From 8d112a0009ec993b57f40d0d5f3597f5913815eb Mon Sep 17 00:00:00 2001 From: Francis Vitt Date: Tue, 26 Jan 2021 15:16:02 -0700 Subject: [PATCH 1/8] update mid-atmos mechanisms to transport CL and BR --- src/chemistry/pp_waccm_ma/chem_mech.doc | 293 +- src/chemistry/pp_waccm_ma/chem_mech.in | 32 +- src/chemistry/pp_waccm_ma/chem_mods.F90 | 12 +- src/chemistry/pp_waccm_ma/m_rxt_id.F90 | 21 +- src/chemistry/pp_waccm_ma/m_spc_id.F90 | 120 +- src/chemistry/pp_waccm_ma/mo_adjrxt.F90 | 9 +- src/chemistry/pp_waccm_ma/mo_indprd.F90 | 88 +- src/chemistry/pp_waccm_ma/mo_lin_matrix.F90 | 384 +- src/chemistry/pp_waccm_ma/mo_lu_factor.F90 | 4808 +-- src/chemistry/pp_waccm_ma/mo_lu_solve.F90 | 1105 +- src/chemistry/pp_waccm_ma/mo_nln_matrix.F90 | 1619 +- src/chemistry/pp_waccm_ma/mo_prod_loss.F90 | 708 +- .../pp_waccm_ma/mo_rxt_rates_conv.F90 | 529 +- src/chemistry/pp_waccm_ma/mo_setrxt.F90 | 39 +- src/chemistry/pp_waccm_ma/mo_sim_dat.F90 | 130 +- src/chemistry/pp_waccm_ma_mam4/chem_mech.doc | 985 +- src/chemistry/pp_waccm_ma_mam4/chem_mech.in | 77 +- src/chemistry/pp_waccm_ma_mam4/chem_mods.F90 | 18 +- src/chemistry/pp_waccm_ma_mam4/m_rxt_id.F90 | 490 +- src/chemistry/pp_waccm_ma_mam4/m_spc_id.F90 | 193 +- src/chemistry/pp_waccm_ma_mam4/mo_adjrxt.F90 | 70 +- src/chemistry/pp_waccm_ma_mam4/mo_indprd.F90 | 103 +- .../pp_waccm_ma_mam4/mo_lin_matrix.F90 | 486 +- .../pp_waccm_ma_mam4/mo_lu_factor.F90 | 5558 ++-- .../pp_waccm_ma_mam4/mo_lu_solve.F90 | 1283 +- .../pp_waccm_ma_mam4/mo_nln_matrix.F90 | 1904 +- src/chemistry/pp_waccm_ma_mam4/mo_phtadj.F90 | 2 +- .../pp_waccm_ma_mam4/mo_prod_loss.F90 | 845 +- .../pp_waccm_ma_mam4/mo_rxt_rates_conv.F90 | 594 +- src/chemistry/pp_waccm_ma_mam4/mo_setrxt.F90 | 480 +- src/chemistry/pp_waccm_ma_mam4/mo_sim_dat.F90 | 461 +- src/chemistry/pp_waccm_mad/chem_mech.doc | 421 +- src/chemistry/pp_waccm_mad/chem_mech.in | 1232 +- src/chemistry/pp_waccm_mad/chem_mods.F90 | 17 +- src/chemistry/pp_waccm_mad/m_rxt_id.F90 | 21 +- src/chemistry/pp_waccm_mad/m_spc_id.F90 | 142 +- src/chemistry/pp_waccm_mad/mo_adjrxt.F90 | 9 +- src/chemistry/pp_waccm_mad/mo_exp_sol.F90 | 14 +- src/chemistry/pp_waccm_mad/mo_imp_sol.F90 | 479 +- src/chemistry/pp_waccm_mad/mo_indprd.F90 | 294 +- src/chemistry/pp_waccm_mad/mo_lin_matrix.F90 | 666 +- src/chemistry/pp_waccm_mad/mo_lu_factor.F90 | 25341 ++++++++-------- src/chemistry/pp_waccm_mad/mo_lu_solve.F90 | 3689 ++- src/chemistry/pp_waccm_mad/mo_nln_matrix.F90 | 5487 ++-- src/chemistry/pp_waccm_mad/mo_prod_loss.F90 | 1707 +- .../pp_waccm_mad/mo_rxt_rates_conv.F90 | 903 +- src/chemistry/pp_waccm_mad/mo_setrxt.F90 | 878 +- src/chemistry/pp_waccm_mad/mo_sim_dat.F90 | 196 +- src/chemistry/pp_waccm_mad_mam4/chem_mech.doc | 1830 +- src/chemistry/pp_waccm_mad_mam4/chem_mech.in | 1292 +- src/chemistry/pp_waccm_mad_mam4/chem_mods.F90 | 19 +- src/chemistry/pp_waccm_mad_mam4/m_rxt_id.F90 | 1072 +- src/chemistry/pp_waccm_mad_mam4/m_spc_id.F90 | 267 +- src/chemistry/pp_waccm_mad_mam4/mo_adjrxt.F90 | 138 +- .../pp_waccm_mad_mam4/mo_exp_sol.F90 | 14 +- .../pp_waccm_mad_mam4/mo_imp_sol.F90 | 479 +- src/chemistry/pp_waccm_mad_mam4/mo_indprd.F90 | 369 +- .../pp_waccm_mad_mam4/mo_lin_matrix.F90 | 732 +- .../pp_waccm_mad_mam4/mo_lu_factor.F90 | 25181 ++++++++------- .../pp_waccm_mad_mam4/mo_lu_solve.F90 | 3812 ++- .../pp_waccm_mad_mam4/mo_nln_matrix.F90 | 5696 ++-- src/chemistry/pp_waccm_mad_mam4/mo_phtadj.F90 | 2 +- .../pp_waccm_mad_mam4/mo_prod_loss.F90 | 1841 +- .../pp_waccm_mad_mam4/mo_rxt_rates_conv.F90 | 1184 +- src/chemistry/pp_waccm_mad_mam4/mo_setrxt.F90 | 895 +- .../pp_waccm_mad_mam4/mo_sim_dat.F90 | 823 +- 66 files changed, 54557 insertions(+), 56031 deletions(-) diff --git a/src/chemistry/pp_waccm_ma/chem_mech.doc b/src/chemistry/pp_waccm_ma/chem_mech.doc index cc7dca1b79..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 @@ -471,16 +471,17 @@ Class List ion_O2p_NO (191) O2p + NO -> NOp + O2 rate = 4.40E-10 (277) ion_Op_CO2 (192) Op + CO2 -> O2p + CO rate = 9.00E-10 (278) ion_Op_N2 (193) Op + N2 -> NOp + N rate = ** User defined ** (279) - ion_Op_O2 (194) Op + O2 -> O2p + O rate = ** User defined ** (280) - Op2D_e (195) Op2D + e -> Op + e rate = ** User defined ** (281) - Op2D_N2 (196) Op2D + N2 -> N2p + O rate = 8.00E-10 (282) - Op2D_O (197) Op2D + O -> Op + O rate = 5.00E-12 (283) - Op2D_O2 (198) Op2D + O2 -> O2p + O rate = 7.00E-10 (284) - Op2P_ea (199) Op2P + e -> Op2D + e rate = ** User defined ** (285) - Op2P_eb (200) Op2P + e -> Op + e rate = ** User defined ** (286) - Op2P_N2a (201) Op2P + N2 -> N2p + O rate = 4.80E-10 (287) - Op2P_N2b (202) Op2P + N2 -> Np + NO rate = 1.00E-10 (288) - Op2P_O (203) Op2P + O -> Op + O rate = 4.00E-10 (289) + ion_Op_N2D (194) Op + N2D -> Np + O rate = 1.30E-10 (280) + ion_Op_O2 (195) Op + O2 -> O2p + O rate = ** User defined ** (281) + Op2D_e (196) Op2D + e -> Op + e rate = ** User defined ** (282) + Op2D_N2 (197) Op2D + N2 -> N2p + O rate = 8.00E-10 (283) + Op2D_O (198) Op2D + O -> Op + O rate = 5.00E-12 (284) + Op2D_O2 (199) Op2D + O2 -> O2p + O rate = 7.00E-10 (285) + Op2P_ea (200) Op2P + e -> Op2D + e rate = ** User defined ** (286) + Op2P_eb (201) Op2P + e -> Op + e rate = ** User defined ** (287) + Op2P_N2a (202) Op2P + N2 -> N2p + O rate = 4.80E-10 (288) + Op2P_N2b (203) Op2P + N2 -> Np + NO rate = 1.00E-10 (289) + Op2P_O (204) Op2P + O -> Op + O rate = 4.00E-10 (290) Extraneous prod/loss species ( 1) NO2 (dataset) @@ -498,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 @@ -530,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 @@ -585,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 @@ -606,7 +617,7 @@ Extraneous prod/loss species - j12*N2O - r56*O1D*N2O - r57*O1D*N2O d(N2O5)/dt = r59*M*NO2*NO3 - j13*N2O5 - j14*N2O5 - r63*M*N2O5 - r157*N2O5 - r160*N2O5 - r163*N2O5 - r174*N2O5 - d(NO)/dt = j14*N2O5 + j17*NO2 + j19*NO3 + .5*r158*NO2 + r190*N2*O2p + r202*N2*Op2P + r39*N2D*O2 + d(NO)/dt = j14*N2O5 + j17*NO2 + j19*NO3 + .5*r158*NO2 + r190*N2*O2p + r203*N2*Op2P + r39*N2D*O2 + 2*r42*N*NO2 + r44*N*O2 + r45*NO2*O + r52*N*OH + 2*r56*O1D*N2O - 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 - r191*O2p*NO @@ -622,9 +633,9 @@ Extraneous prod/loss species - r59*M*NO2*NO3 - r144*CH2O*NO3 d(O)/dt = j2*H2O + 2*j5*O2 + j6*O2 + j8*O3 + j14*N2O5 + j15*NO + j17*NO2 + j18*NO3 + .18*j24*CH4 + j25*CO2 + j27*BRO + j45*CLO + j59*OCLO + j61*CO2 + j77*O2 + j79*O2 + j81*O2 + 2*j82*O2 - + 2*j83*O2 + j84*O2 + j85*O2 + j86*O2 + r5*N2*O1D + r196*N2*Op2D + r201*N2*Op2P + r6*O1D*O2 + + 2*j83*O2 + j84*O2 + j85*O2 + j86*O2 + r5*N2*O1D + r197*N2*Op2D + r202*N2*Op2P + r6*O1D*O2 + r7*O1D*O2 + r24*H*HO2 + r34*OH*OH + r40*N*NO + r41*N*NO2 + r44*N*O2 + r180*NOp*e - + 1.15*r181*O2p*e + r188*Np*O2 + r189*O2p*N + r194*Op*O2 + r198*Op2D*O2 + + 1.15*r181*O2p*e + r188*Np*O2 + r189*O2p*N + r194*Op*N2D + r195*Op*O2 + r199*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 @@ -638,41 +649,31 @@ Extraneous prod/loss species + r191*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 - - r183*N2p*O2 - r187*Np*O2 - r188*Np*O2 - r194*Op*O2 - r198*Op2D*O2 + - r183*N2p*O2 - r187*Np*O2 - r188*Np*O2 - r195*Op*O2 - r199*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 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 - d(N2p)/dt = j65*N2 + j67*N2 + r196*N2*Op2D + r201*N2*Op2P + - r38*O*N2D - r39*O2*N2D - r194*Op*N2D + d(N2p)/dt = j65*N2 + j67*N2 + r197*N2*Op2D + r202*N2*Op2P - r182*e*N2p - r183*O2*N2p - r184*O*N2p - r185*O*N2p d(NOp)/dt = j16*NO + r190*N2*O2p + r193*N2*Op + r184*N2p*O + r188*Np*O2 + r189*O2p*N + r191*O2p*NO - r180*e*NOp - d(Np)/dt = j63*N2 + j66*N2 + j69*N2 + j70*N2 + j62*N + r202*N2*Op2P + d(Np)/dt = j63*N2 + j66*N2 + j69*N2 + j70*N2 + j62*N + r203*N2*Op2P + r194*Op*N2D - r186*O*Np - r187*O2*Np - r188*O2*Np d(O1D)/dt = j1*H2O + j6*O2 + j7*O3 + j12*N2O + r39*N2D*O2 + .85*r181*O2p*e - r5*N2*O1D - r3*H2*O1D - r4*H2O*O1D - r6*O2*O1D - r7*O2*O1D - r8*O3*O1D - r56*N2O*O1D @@ -685,7 +686,7 @@ Extraneous prod/loss species - r1*O2_1D - r9*N2*O2_1D - r10*O*O2_1D - r11*O2*O2_1D d(O2_1S)/dt = r6*O1D*O2 - r2*O2_1S - r13*N2*O2_1S - r12*CO2*O2_1S - r14*O*O2_1S - r15*O2*O2_1S - r16*O3*O2_1S - d(O2p)/dt = j78*O2 + j80*O2 + r183*N2p*O2 + r187*Np*O2 + r192*Op*CO2 + r194*Op*O2 + r198*Op2D*O2 + d(O2p)/dt = j78*O2 + j80*O2 + r183*N2p*O2 + r187*Np*O2 + r192*Op*CO2 + r195*Op*O2 + r199*Op2D*O2 - r190*N2*O2p - r181*e*O2p - r189*N*O2p - r191*NO*O2p d(OH)/dt = j3*H2O + 2*j4*H2O2 + j9*HNO3 + j10*HO2NO2 + j22*CH3OOH + .33*j24*CH4 + j57*HOBR + j58*HOCL + .5*r158*NO2 + r3*O1D*H2 + 2*r4*O1D*H2O + r20*H2*O + r21*H2O2*O + 2*r23*H*HO2 + r26*HO2*O @@ -698,14 +699,14 @@ Extraneous prod/loss species - 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 - d(Op)/dt = j71*O + j72*O + j79*O2 + j81*O2 + r177*Op2P + r178*Op2D + r185*N2p*O + r186*Np*O + r195*Op2D*e - + r197*Op2D*O + r200*Op2P*e + r203*Op2P*O - - r193*N2*Op - r192*CO2*Op - r194*O2*Op - d(Op2D)/dt = j73*O + j75*O + j84*O2 + j86*O2 + r179*Op2P + r199*Op2P*e - - r178*Op2D - r196*N2*Op2D - r195*e*Op2D - r197*O*Op2D - r198*O2*Op2D + d(Op)/dt = j71*O + j72*O + j79*O2 + j81*O2 + r177*Op2P + r178*Op2D + r185*N2p*O + r186*Np*O + r196*Op2D*e + + r198*Op2D*O + r201*Op2P*e + r204*Op2P*O + - r193*N2*Op - r192*CO2*Op - r194*N2D*Op - r195*O2*Op + d(Op2D)/dt = j73*O + j75*O + j84*O2 + j86*O2 + r179*Op2P + r200*Op2P*e + - r178*Op2D - r197*N2*Op2D - r196*e*Op2D - r198*O*Op2D - r199*O2*Op2D d(Op2P)/dt = j74*O + j76*O + j77*O2 + j85*O2 - - r177*Op2P - r179*Op2P - r201*N2*Op2P - r202*N2*Op2P - r199*e*Op2P - r200*e*Op2P - - r203*O*Op2P + - r177*Op2P - r179*Op2P - r202*N2*Op2P - r203*N2*Op2P - r200*e*Op2P - r201*e*Op2P + - r204*O*Op2P d(H2O)/dt = .05*j24*CH4 + r24*H*HO2 + r29*OH*H2 + r30*OH*H2O2 + r31*OH*HO2 + r34*OH*OH + r37*HO2NO2*OH + r61*HNO3*OH + r85*HCL*OH + r88*HOCL*OH + r114*HBR*OH + r128*CH2BR2*OH + r130*CH3BR*OH + r131*CH3CCL3*OH + r133*CH3CL*OH + r138*HCFC22*OH + r146*CH2O*OH + r149*CH3OOH*OH + r150*CH4*OH diff --git a/src/chemistry/pp_waccm_ma/chem_mech.in b/src/chemistry/pp_waccm_ma/chem_mech.in index 8009d2e580..6564d151d4 100644 --- a/src/chemistry/pp_waccm_ma/chem_mech.in +++ b/src/chemistry/pp_waccm_ma/chem_mech.in @@ -1,19 +1,16 @@ * Comments -* User-given Tag Description: WACCMX_MA_1 -* Tag database identifier : MZ236_WACCMX_MA_20181001 -* Tag created by : ajc -* Tag created from branch : WACCMX-MA -* Tag created on : 2018-10-01 13:28:14.849463-06 +* User-given Tag Description: WACCM_MA +* Tag database identifier : MZ282_MA_20210122 +* Tag created by : lke +* Tag created from branch : MA +* Tag created on : 2021-01-22 15:26:54.35253-07 * Comments for this tag follow: -* ajc : 2018-10-01 : Update reaction rates to jpl15 -* Remove H1202 -* CO2 explicit solve -* O1D_N2 cph update -* Update Machine Specifications +* 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, @@ -35,6 +32,7 @@ CH3OOH, CH4, CHBR3 -> CHBr3, + CL -> Cl, CL2 -> Cl2, CL2O2 -> Cl2O2, CLO -> ClO, @@ -56,7 +54,6 @@ HCL -> HCl, HF, HNO3, - HO2, HO2NO2, HOBR -> HOBr, HOCL -> HOCl, @@ -71,9 +68,8 @@ O3, OCLO -> OClO, SF6, - BR -> Br, - CL -> Cl, e -> E, + HO2, N2D -> N, N2p -> N2, NOp -> NO, @@ -101,9 +97,8 @@ End Col-int Not-Transported - BR, - CL, e, + HO2, N2D, N2p, NOp, @@ -149,12 +144,14 @@ End Explicit Implicit + BR BRCL BRO BRONO2 CH2O CH3O2 CH3OOH + CL CL2 CL2O2 CLO @@ -170,7 +167,6 @@ HCL HF HNO3 - HO2 HO2NO2 HOBR HOCL @@ -183,9 +179,8 @@ O2 O3 OCLO - BR - CL e + HO2 N2D N2p NOp @@ -536,6 +531,7 @@ [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 diff --git a/src/chemistry/pp_waccm_ma/chem_mods.F90 b/src/chemistry/pp_waccm_ma/chem_mods.F90 index c919859e83..4daa9f36ee 100644 --- a/src/chemistry/pp_waccm_ma/chem_mods.F90 +++ b/src/chemistry/pp_waccm_ma/chem_mods.F90 @@ -6,14 +6,14 @@ module chem_mods implicit none save integer, parameter :: phtcnt = 86, & ! number of photolysis reactions - rxntot = 289, & ! number of total reactions - gascnt = 203, & ! number of gas phase reactions + rxntot = 290, & ! number of total reactions + gascnt = 204, & ! number of gas phase reactions nabscol = 2, & ! number of absorbing column densities gas_pcnst = 73, & ! number of "gas phase" species nfs = 2, & ! number of "fixed" species relcnt = 0, & ! number of relationship species grpcnt = 0, & ! number of group members - nzcnt = 636, & ! number of non-zero matrix entries + nzcnt = 647, & ! number of non-zero matrix entries extcnt = 11, & ! number of species with external forcing clscnt1 = 23, & ! number of species in explicit class clscnt2 = 0, & ! number of species in hov class @@ -23,9 +23,9 @@ module chem_mods indexm = 1, & ! index of total atm density in invariant array indexh2o = 0, & ! index of water vapor density clsze = 1, & ! loop length for implicit chemistry - rxt_tag_cnt = 289, & - enthalpy_cnt = 53, & - nslvd = 15 + rxt_tag_cnt = 290, & + enthalpy_cnt = 54, & + 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_rxt_id.F90 b/src/chemistry/pp_waccm_ma/m_rxt_id.F90 index 307bbe399a..84bc064b08 100644 --- a/src/chemistry/pp_waccm_ma/m_rxt_id.F90 +++ b/src/chemistry/pp_waccm_ma/m_rxt_id.F90 @@ -279,14 +279,15 @@ module m_rxt_id integer, parameter :: rid_ion_O2p_NO = 277 integer, parameter :: rid_ion_Op_CO2 = 278 integer, parameter :: rid_ion_Op_N2 = 279 - integer, parameter :: rid_ion_Op_O2 = 280 - integer, parameter :: rid_Op2D_e = 281 - integer, parameter :: rid_Op2D_N2 = 282 - integer, parameter :: rid_Op2D_O = 283 - integer, parameter :: rid_Op2D_O2 = 284 - integer, parameter :: rid_Op2P_ea = 285 - integer, parameter :: rid_Op2P_eb = 286 - integer, parameter :: rid_Op2P_N2a = 287 - integer, parameter :: rid_Op2P_N2b = 288 - integer, parameter :: rid_Op2P_O = 289 + integer, parameter :: rid_ion_Op_N2D = 280 + integer, parameter :: rid_ion_Op_O2 = 281 + integer, parameter :: rid_Op2D_e = 282 + integer, parameter :: rid_Op2D_N2 = 283 + integer, parameter :: rid_Op2D_O = 284 + integer, parameter :: rid_Op2D_O2 = 285 + integer, parameter :: rid_Op2P_ea = 286 + integer, parameter :: rid_Op2P_eb = 287 + integer, parameter :: rid_Op2P_N2a = 288 + integer, parameter :: rid_Op2P_N2b = 289 + integer, parameter :: rid_Op2P_O = 290 end module m_rxt_id 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 7222c984fd..f7c7af4176 100644 --- a/src/chemistry/pp_waccm_ma/mo_adjrxt.F90 +++ b/src/chemistry/pp_waccm_ma/mo_adjrxt.F90 @@ -34,9 +34,9 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:,237) = rate(:,:,237) * inv(:,:, 1) rate(:,:,276) = rate(:,:,276) * inv(:,:, 2) rate(:,:,279) = rate(:,:,279) * inv(:,:, 2) - rate(:,:,282) = rate(:,:,282) * inv(:,:, 2) - rate(:,:,287) = rate(:,:,287) * 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(:,:) @@ -206,10 +206,11 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:,278) = rate(:,:,278) * m(:,:) rate(:,:,280) = rate(:,:,280) * m(:,:) rate(:,:,281) = rate(:,:,281) * m(:,:) - rate(:,:,283) = rate(:,:,283) * m(:,:) + rate(:,:,282) = rate(:,:,282) * m(:,:) rate(:,:,284) = rate(:,:,284) * m(:,:) rate(:,:,285) = rate(:,:,285) * m(:,:) rate(:,:,286) = rate(:,:,286) * m(:,:) - rate(:,:,289) = rate(:,:,289) * 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 ff5c78c951..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(:,45) = 0._r8 - prod(:,16) = 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(:,44) = 0._r8 + prod(:,15) = 0._r8 + 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(:,39) = 0._r8 + prod(:,43) = 0._r8 prod(:,30) = 0._r8 - prod(:,17) = (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(:,26) =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(:,19) = 0._r8 - prod(:,29) = 0._r8 + 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(:,22) = 0._r8 prod(:,34) = 0._r8 prod(:,9) = 0._r8 prod(:,31) = 0._r8 - prod(:,40) = 0._r8 prod(:,12) = 0._r8 - prod(:,22) = 0._r8 - prod(:,28) = 0._r8 - prod(:,27) = (.800_r8*rxt(:,64) +rxt(:,66) +.800_r8*rxt(:,68) +rxt(:,70)) & + prod(:,20) = 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(:,37) = + extfrc(:,3) + prod(:,40) = + extfrc(:,3) prod(:,41) = + extfrc(:,1) - prod(:,48) = 0._r8 - prod(:,47) = (rxt(:,25) +rxt(:,61))*y(:,28) +.180_r8*rxt(:,24)*y(:,20) + 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(:,38) =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(:,25) = (rxt(:,63) +rxt(:,65) +rxt(:,66) +rxt(:,67) +rxt(:,69) + & + prod(:,27) = (rxt(:,63) +rxt(:,65) +rxt(:,66) +rxt(:,67) +rxt(:,69) + & rxt(:,70)) + extfrc(:,9) - prod(:,15) = (rxt(:,63) +1.200_r8*rxt(:,64) +1.200_r8*rxt(:,68) +rxt(:,69)) & + prod(:,37) = 0._r8 + prod(:,28) = (rxt(:,63) +1.200_r8*rxt(:,64) +1.200_r8*rxt(:,68) +rxt(:,69)) & + extfrc(:,11) - prod(:,20) = (rxt(:,65) +rxt(:,67)) + extfrc(:,6) - prod(:,24) = 0._r8 - prod(:,18) = (rxt(:,63) +rxt(:,66) +rxt(:,69) +rxt(:,70)) + extfrc(:,10) - prod(:,42) =rxt(:,12)*y(:,48) + 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(:,49) prod(:,4) = 0._r8 prod(:,5) = 0._r8 - prod(:,23) = + extfrc(:,4) - prod(:,46) =.330_r8*rxt(:,24)*y(:,20) + extfrc(:,8) - prod(:,21) = + extfrc(:,5) + prod(:,26) = + extfrc(:,4) + 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 333dd0b8e0..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,502) = -( rxt(k,27) + het_rates(k,2) ) - mat(k,69) = rxt(k,28) - mat(k,64) = -( rxt(k,28) + rxt(k,29) + rxt(k,248) + rxt(k,251) + rxt(k,256) & - + het_rates(k,3) ) - mat(k,272) = -( rxt(k,20) + rxt(k,21) + het_rates(k,14) ) + 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,4) ) + mat(k,282) = -( rxt(k,20) + rxt(k,21) + het_rates(k,15) ) mat(k,35) = rxt(k,22) - mat(k,430) = rxt(k,239)*y(k,20) + rxt(k,240)*y(k,20) - mat(k,478) = -( het_rates(k,18) ) - mat(k,338) = rxt(k,151)*y(k,20) - mat(k,158) = rxt(k,207)*y(k,20) - mat(k,532) = rxt(k,236)*y(k,20) - mat(k,439) = 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,359) = -( rxt(k,45) + het_rates(k,24) ) - mat(k,199) = 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,194) = -( rxt(k,46) + rxt(k,47) + rxt(k,250) + rxt(k,255) + rxt(k,261) & - + het_rates(k,25) ) - mat(k,72) = -( het_rates(k,27) ) - mat(k,267) = rxt(k,20) + rxt(k,21) - mat(k,321) = rxt(k,218)*y(k,17) - mat(k,101) = rxt(k,278)*y(k,28) - mat(k,4) = -( rxt(k,48) + het_rates(k,29) ) - mat(k,421) = 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,508) = rxt(k,223)*y(k,38) + rxt(k,224)*y(k,39) - mat(k,17) = -( rxt(k,49) + het_rates(k,30) ) - mat(k,423) = rxt(k,177)*y(k,8) + rxt(k,178)*y(k,9) + rxt(k,227)*y(k,37) - mat(k,509) = rxt(k,222)*y(k,37) - mat(k,154) = -( rxt(k,207)*y(k,20) + het_rates(k,31) ) + 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,27) ) + mat(k,67) = -( het_rates(k,29) ) + mat(k,277) = rxt(k,20) + rxt(k,21) + 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,424) = rxt(k,180)*y(k,11) + rxt(k,202)*y(k,7) - mat(k,288) = -( het_rates(k,32) ) - mat(k,239) = 2.000_r8*rxt(k,2) + rxt(k,3) - mat(k,273) = 2.000_r8*rxt(k,20) + 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,186) = rxt(k,51) - mat(k,255) = rxt(k,55) + mat(k,112) = rxt(k,51) + mat(k,265) = rxt(k,55) mat(k,26) = rxt(k,56) - mat(k,431) = rxt(k,239)*y(k,20) - mat(k,617) = -( het_rates(k,33) ) - mat(k,246) = rxt(k,1) - mat(k,285) = rxt(k,21) - mat(k,444) = rxt(k,240)*y(k,20) - mat(k,83) = -( rxt(k,4) + het_rates(k,35) ) - mat(k,373) = .500_r8*rxt(k,242) - mat(k,184) = -( rxt(k,51) + het_rates(k,36) ) - mat(k,254) = -( rxt(k,55) + het_rates(k,40) ) - mat(k,328) = 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,153) = rxt(k,207)*y(k,20) - mat(k,206) = -( 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,402) = .500_r8*rxt(k,244) - mat(k,580) = rxt(k,245) - mat(k,66) = rxt(k,248) + rxt(k,251) + rxt(k,256) - mat(k,195) = rxt(k,250) + rxt(k,255) + rxt(k,261) - mat(k,385) = -( rxt(k,242) + het_rates(k,43) ) - mat(k,42) = rxt(k,11) + rxt(k,148) - mat(k,334) = rxt(k,215)*y(k,15) + rxt(k,218)*y(k,17) - mat(k,528) = rxt(k,216)*y(k,15) + rxt(k,219)*y(k,17) - mat(k,435) = rxt(k,239)*y(k,20) - mat(k,39) = -( rxt(k,10) + rxt(k,11) + rxt(k,148) + het_rates(k,44) ) - mat(k,112) = -( rxt(k,57) + het_rates(k,45) ) - mat(k,65) = rxt(k,248) + rxt(k,251) + rxt(k,256) - mat(k,177) = -( rxt(k,58) + het_rates(k,46) ) - mat(k,193) = rxt(k,250) + rxt(k,255) + rxt(k,261) - mat(k,167) = -( rxt(k,62) + het_rates(k,47) ) - mat(k,302) = rxt(k,15) - mat(k,105) = rxt(k,279) + 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,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,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,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,306) = -( rxt(k,15) + rxt(k,16) + het_rates(k,50) ) + + 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,407) = rxt(k,17) + .500_r8*rxt(k,244) - mat(k,585) = rxt(k,19) - mat(k,125) = rxt(k,276) - mat(k,51) = rxt(k,288) - mat(k,432) = 2.000_r8*rxt(k,142)*y(k,48) - mat(k,411) = -( rxt(k,17) + rxt(k,244) + het_rates(k,51) ) - mat(k,209) = rxt(k,9) + 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,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,30) = rxt(k,13) + rxt(k,149) - mat(k,589) = rxt(k,18) - mat(k,67) = rxt(k,28) - mat(k,200) = rxt(k,47) - mat(k,596) = -( rxt(k,18) + rxt(k,19) + rxt(k,245) + het_rates(k,52) ) - mat(k,45) = rxt(k,10) - mat(k,32) = rxt(k,13) + rxt(k,14) + rxt(k,149) - mat(k,71) = rxt(k,29) - mat(k,203) = rxt(k,46) - mat(k,574) = -( rxt(k,71) + rxt(k,72) + rxt(k,73) + rxt(k,74) + rxt(k,75) & - + rxt(k,76) + het_rates(k,53) ) - mat(k,244) = rxt(k,2) - mat(k,233) = 2.000_r8*rxt(k,5) + rxt(k,6) + rxt(k,77) + rxt(k,79) + rxt(k,81) & + 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,633) = rxt(k,8) - mat(k,31) = rxt(k,14) - mat(k,316) = rxt(k,15) - mat(k,417) = rxt(k,17) - mat(k,595) = rxt(k,18) - mat(k,504) = rxt(k,27) - mat(k,367) = rxt(k,45) + mat(k,608) = rxt(k,8) + mat(k,32) = rxt(k,14) + 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,442) = rxt(k,91) - mat(k,58) = rxt(k,282) - mat(k,52) = rxt(k,287) - mat(k,226) = -( rxt(k,5) + rxt(k,6) + rxt(k,77) + rxt(k,78) + rxt(k,79) & + 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,621) = rxt(k,8) - mat(k,581) = 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,427) = rxt(k,143)*y(k,48) - mat(k,636) = -( rxt(k,7) + rxt(k,8) + het_rates(k,55) ) - mat(k,7) = -( rxt(k,59) + het_rates(k,56) ) - mat(k,458) = -( het_rates(k,58) ) - mat(k,23) = rxt(k,26) - mat(k,500) = rxt(k,27) - mat(k,68) = rxt(k,29) - mat(k,188) = rxt(k,51) - mat(k,116) = rxt(k,57) - mat(k,438) = 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,337) = 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,531) = 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,332) = -( 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,358) = rxt(k,45) - mat(k,198) = rxt(k,46) - mat(k,19) = rxt(k,49) - mat(k,256) = rxt(k,55) - mat(k,180) = rxt(k,58) - mat(k,433) = 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,526) = 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,144) = -( het_rates(k,60) ) - mat(k,301) = rxt(k,16) - mat(k,166) = rxt(k,62) - mat(k,553) = rxt(k,71) + rxt(k,72) + rxt(k,73) + rxt(k,74) + rxt(k,75) & + 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,624) = rxt(k,71) + rxt(k,72) + rxt(k,73) + rxt(k,74) + rxt(k,75) & + rxt(k,76) - mat(k,224) = rxt(k,77) + rxt(k,78) + rxt(k,79) + rxt(k,80) + rxt(k,81) & + 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,59) = -( het_rates(k,61) ) - mat(k,91) = -( het_rates(k,62) ) - mat(k,54) = rxt(k,282) - mat(k,49) = rxt(k,287) - mat(k,129) = -( het_rates(k,63) ) - mat(k,300) = rxt(k,16) - mat(k,121) = rxt(k,276) - mat(k,104) = rxt(k,279) - mat(k,76) = -( het_rates(k,64) ) - mat(k,162) = rxt(k,62) + 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,437) = -( 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,87) = -( het_rates(k,63) ) + 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,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,241) = rxt(k,1) - mat(k,231) = rxt(k,6) - mat(k,628) = 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,619) = 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,120) = -( rxt(k,276) + het_rates(k,68) ) - mat(k,222) = rxt(k,78) + rxt(k,80) - mat(k,103) = rxt(k,278)*y(k,28) - mat(k,534) = -( 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,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,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,243) = rxt(k,3) - mat(k,88) = 2.000_r8*rxt(k,4) - mat(k,211) = rxt(k,9) - mat(k,44) = rxt(k,10) - mat(k,38) = rxt(k,22) - mat(k,118) = rxt(k,57) - mat(k,182) = rxt(k,58) + mat(k,254) = rxt(k,3) + mat(k,75) = 2.000_r8*rxt(k,4) + mat(k,222) = rxt(k,9) + 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,20) + 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,102) = -( rxt(k,279) + rxt(k,278)*y(k,28) + het_rates(k,70) ) - mat(k,549) = rxt(k,71) + rxt(k,72) - mat(k,221) = rxt(k,79) + rxt(k,81) + 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,282) + het_rates(k,71) ) - mat(k,542) = rxt(k,73) + rxt(k,75) - mat(k,217) = rxt(k,84) + rxt(k,86) + mat(k,53) = -( rxt(k,264) + rxt(k,283) + het_rates(k,71) ) + 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,287) + rxt(k,288) & + mat(k,46) = -( rxt(k,263) + rxt(k,265) + rxt(k,288) + rxt(k,289) & + het_rates(k,72) ) - mat(k,541) = rxt(k,74) + rxt(k,76) - mat(k,216) = rxt(k,77) + rxt(k,85) - mat(k,238) = -( rxt(k,1) + rxt(k,2) + rxt(k,3) + het_rates(k,73) ) - mat(k,521) = 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,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,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 ac606ca80e..bc31b60706 100644 --- a/src/chemistry/pp_waccm_ma/mo_lu_factor.F90 +++ b/src/chemistry/pp_waccm_ma/mo_lu_factor.F90 @@ -20,73 +20,73 @@ 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,358) = lu(k,358) - lu(k,2) * lu(k,345) - lu(k,359) = lu(k,359) - lu(k,3) * lu(k,345) + 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,424) = lu(k,424) - lu(k,5) * lu(k,421) lu(k,437) = lu(k,437) - lu(k,6) * lu(k,421) - lu(k,514) = - lu(k,5) * lu(k,508) - lu(k,530) = - lu(k,6) * lu(k,508) + 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,359) = lu(k,359) - lu(k,8) * lu(k,346) - lu(k,367) = lu(k,367) - lu(k,9) * lu(k,346) - lu(k,496) = lu(k,496) - lu(k,8) * lu(k,485) - lu(k,504) = lu(k,504) - lu(k,9) * lu(k,485) + 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,226) = lu(k,226) - lu(k,11) * lu(k,214) - lu(k,559) = lu(k,559) - lu(k,11) * lu(k,539) - lu(k,621) = lu(k,621) - lu(k,11) * lu(k,619) + lu(k,236) = lu(k,236) - lu(k,11) * lu(k,224) + 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,226) = lu(k,226) - lu(k,14) * lu(k,215) + lu(k,236) = lu(k,236) - lu(k,14) * lu(k,225) lu(k,427) = lu(k,427) - lu(k,14) * lu(k,422) - lu(k,559) = lu(k,559) - lu(k,14) * lu(k,540) - lu(k,621) = lu(k,621) - lu(k,14) * lu(k,620) + 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,180) = lu(k,180) - lu(k,16) * lu(k,176) - lu(k,198) = lu(k,198) - lu(k,16) * lu(k,192) - lu(k,256) = lu(k,256) - lu(k,16) * lu(k,247) - lu(k,332) = lu(k,332) - lu(k,16) * lu(k,320) - lu(k,358) = lu(k,358) - lu(k,16) * lu(k,347) + 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,424) = lu(k,424) - lu(k,18) * lu(k,423) - lu(k,433) = lu(k,433) - lu(k,19) * lu(k,423) - lu(k,437) = lu(k,437) - lu(k,20) * lu(k,423) - lu(k,514) = lu(k,514) - lu(k,18) * lu(k,509) - lu(k,526) = lu(k,526) - lu(k,19) * lu(k,509) - lu(k,530) = lu(k,530) - lu(k,20) * lu(k,509) + 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,115) = - lu(k,22) * lu(k,111) - lu(k,116) = lu(k,116) - lu(k,23) * lu(k,111) - lu(k,256) = lu(k,256) - lu(k,22) * lu(k,248) - lu(k,260) = - lu(k,23) * lu(k,248) - lu(k,358) = lu(k,358) - lu(k,22) * lu(k,348) - lu(k,363) = lu(k,363) - lu(k,23) * lu(k,348) - lu(k,495) = lu(k,495) - lu(k,22) * lu(k,486) - lu(k,500) = lu(k,500) - lu(k,23) * lu(k,486) + 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) - lu(k,154) = lu(k,154) - lu(k,25) * lu(k,153) - lu(k,157) = lu(k,157) - lu(k,26) * lu(k,153) - lu(k,205) = lu(k,205) - lu(k,25) * lu(k,204) - lu(k,208) = - lu(k,26) * lu(k,204) - lu(k,236) = lu(k,236) - lu(k,25) * lu(k,235) - lu(k,239) = lu(k,239) - lu(k,26) * lu(k,235) - lu(k,600) = lu(k,600) - lu(k,25) * lu(k,599) - lu(k,604) = lu(k,604) - lu(k,26) * lu(k,599) + lu(k,102) = lu(k,102) - lu(k,25) * lu(k,101) + lu(k,105) = lu(k,105) - lu(k,26) * lu(k,101) + lu(k,215) = lu(k,215) - lu(k,25) * lu(k,214) + 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,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) @@ -94,36 +94,36 @@ subroutine lu_fac01( avec_len, lu ) lu(k,31) = lu(k,31) * lu(k,27) lu(k,32) = lu(k,32) * lu(k,27) lu(k,402) = lu(k,402) - lu(k,28) * lu(k,396) - lu(k,407) = lu(k,407) - lu(k,29) * 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,417) = lu(k,417) - lu(k,31) * lu(k,396) - lu(k,418) = lu(k,418) - lu(k,32) * lu(k,396) - lu(k,580) = lu(k,580) - lu(k,28) * lu(k,578) - lu(k,585) = lu(k,585) - lu(k,29) * lu(k,578) - lu(k,589) = lu(k,589) - lu(k,30) * lu(k,578) - lu(k,595) = lu(k,595) - lu(k,31) * lu(k,578) - lu(k,596) = lu(k,596) - lu(k,32) * lu(k,578) + 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,378) = lu(k,378) - lu(k,34) * lu(k,371) - lu(k,380) = - lu(k,35) * lu(k,371) - lu(k,381) = lu(k,381) - lu(k,36) * lu(k,371) - lu(k,389) = lu(k,389) - lu(k,37) * lu(k,371) - lu(k,391) = lu(k,391) - lu(k,38) * lu(k,371) - lu(k,468) = - lu(k,34) * lu(k,466) - lu(k,469) = lu(k,469) - lu(k,35) * lu(k,466) - lu(k,470) = - lu(k,36) * lu(k,466) - lu(k,478) = lu(k,478) - lu(k,37) * lu(k,466) - lu(k,480) = - lu(k,38) * lu(k,466) - lu(k,521) = lu(k,521) - lu(k,34) * lu(k,510) - lu(k,523) = lu(k,523) - lu(k,35) * lu(k,510) - lu(k,524) = lu(k,524) - lu(k,36) * lu(k,510) - lu(k,532) = lu(k,532) - lu(k,37) * lu(k,510) - lu(k,534) = lu(k,534) - lu(k,38) * lu(k,510) + 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,377) = lu(k,377) - lu(k,40) * lu(k,372) - lu(k,378) = lu(k,378) - lu(k,41) * lu(k,372) - lu(k,385) = lu(k,385) - lu(k,42) * lu(k,372) - lu(k,386) = lu(k,386) - lu(k,43) * lu(k,372) - lu(k,391) = lu(k,391) - lu(k,44) * lu(k,372) - lu(k,393) = lu(k,393) - lu(k,45) * lu(k,372) + 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,410) = lu(k,410) - lu(k,42) * 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,416) = lu(k,416) - lu(k,44) * lu(k,397) - lu(k,418) = lu(k,418) - lu(k,45) * lu(k,397) - lu(k,520) = lu(k,520) - lu(k,40) * lu(k,511) - lu(k,521) = lu(k,521) - lu(k,41) * lu(k,511) - lu(k,528) = lu(k,528) - lu(k,42) * lu(k,511) - lu(k,529) = lu(k,529) - lu(k,43) * lu(k,511) - lu(k,534) = lu(k,534) - lu(k,44) * lu(k,511) - lu(k,536) = lu(k,536) - lu(k,45) * lu(k,511) + 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 ) @@ -172,124 +172,163 @@ subroutine lu_fac02( avec_len, lu ) lu(k,50) = lu(k,50) * lu(k,46) lu(k,51) = lu(k,51) * lu(k,46) lu(k,52) = lu(k,52) * lu(k,46) - lu(k,137) = lu(k,137) - lu(k,47) * lu(k,136) - lu(k,139) = - lu(k,48) * lu(k,136) - lu(k,140) = lu(k,140) - lu(k,49) * lu(k,136) - lu(k,141) = lu(k,141) - lu(k,50) * lu(k,136) - lu(k,148) = - lu(k,51) * lu(k,136) - lu(k,152) = lu(k,152) - lu(k,52) * lu(k,136) - lu(k,217) = lu(k,217) - lu(k,47) * lu(k,216) - lu(k,219) = lu(k,219) - lu(k,48) * lu(k,216) - lu(k,220) = lu(k,220) - lu(k,49) * lu(k,216) - lu(k,221) = lu(k,221) - lu(k,50) * lu(k,216) - lu(k,228) = lu(k,228) - lu(k,51) * lu(k,216) - lu(k,233) = lu(k,233) - lu(k,52) * lu(k,216) - lu(k,542) = lu(k,542) - lu(k,47) * lu(k,541) - lu(k,546) = lu(k,546) - lu(k,48) * lu(k,541) - lu(k,548) = lu(k,548) - lu(k,49) * lu(k,541) - lu(k,549) = lu(k,549) - lu(k,50) * lu(k,541) - lu(k,564) = lu(k,564) - lu(k,51) * lu(k,541) - lu(k,574) = lu(k,574) - lu(k,52) * lu(k,541) + lu(k,158) = lu(k,158) - lu(k,47) * lu(k,157) + 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,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,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) lu(k,56) = lu(k,56) * lu(k,53) lu(k,57) = lu(k,57) * lu(k,53) lu(k,58) = lu(k,58) * lu(k,53) - lu(k,140) = lu(k,140) - lu(k,54) * lu(k,137) - lu(k,141) = lu(k,141) - lu(k,55) * lu(k,137) - lu(k,142) = lu(k,142) - lu(k,56) * lu(k,137) - lu(k,146) = - lu(k,57) * lu(k,137) - lu(k,152) = lu(k,152) - lu(k,58) * lu(k,137) - lu(k,220) = lu(k,220) - lu(k,54) * lu(k,217) - lu(k,221) = lu(k,221) - lu(k,55) * lu(k,217) - lu(k,222) = lu(k,222) - lu(k,56) * lu(k,217) - lu(k,226) = lu(k,226) - lu(k,57) * lu(k,217) - lu(k,233) = lu(k,233) - lu(k,58) * lu(k,217) - lu(k,548) = lu(k,548) - lu(k,54) * lu(k,542) - lu(k,549) = lu(k,549) - lu(k,55) * lu(k,542) - lu(k,551) = - lu(k,56) * lu(k,542) - lu(k,559) = lu(k,559) - lu(k,57) * lu(k,542) - lu(k,574) = lu(k,574) - lu(k,58) * lu(k,542) + lu(k,159) = lu(k,159) - lu(k,54) * lu(k,158) + lu(k,162) = lu(k,162) - lu(k,55) * lu(k,158) + lu(k,163) = lu(k,163) - lu(k,56) * lu(k,158) + lu(k,167) = - lu(k,57) * lu(k,158) + lu(k,173) = lu(k,173) - lu(k,58) * lu(k,158) + lu(k,228) = lu(k,228) - lu(k,54) * lu(k,227) + 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,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) lu(k,62) = lu(k,62) * lu(k,59) lu(k,63) = lu(k,63) * lu(k,59) - lu(k,96) = lu(k,96) - lu(k,60) * lu(k,90) - lu(k,97) = lu(k,97) - lu(k,61) * lu(k,90) - lu(k,98) = - lu(k,62) * lu(k,90) - lu(k,99) = - lu(k,63) * lu(k,90) - lu(k,131) = lu(k,131) - lu(k,60) * lu(k,128) - lu(k,132) = - lu(k,61) * lu(k,128) - lu(k,133) = - lu(k,62) * lu(k,128) - lu(k,134) = - lu(k,63) * lu(k,128) - lu(k,145) = lu(k,145) - lu(k,60) * lu(k,138) - lu(k,146) = lu(k,146) - lu(k,61) * lu(k,138) - lu(k,148) = lu(k,148) - lu(k,62) * lu(k,138) - lu(k,150) = lu(k,150) - lu(k,63) * lu(k,138) - lu(k,225) = lu(k,225) - lu(k,60) * lu(k,218) - lu(k,226) = lu(k,226) - lu(k,61) * lu(k,218) - lu(k,228) = lu(k,228) - lu(k,62) * lu(k,218) - lu(k,231) = lu(k,231) - lu(k,63) * lu(k,218) - lu(k,554) = lu(k,554) - lu(k,60) * lu(k,543) - lu(k,559) = lu(k,559) - lu(k,61) * lu(k,543) - lu(k,564) = lu(k,564) - lu(k,62) * lu(k,543) - lu(k,569) = - lu(k,63) * lu(k,543) - 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,69) = lu(k,69) * lu(k,64) - lu(k,70) = lu(k,70) * lu(k,64) - lu(k,71) = lu(k,71) * lu(k,64) - lu(k,399) = - lu(k,65) * lu(k,398) - lu(k,402) = lu(k,402) - lu(k,66) * lu(k,398) - lu(k,411) = lu(k,411) - lu(k,67) * lu(k,398) - lu(k,413) = - lu(k,68) * lu(k,398) - lu(k,415) = lu(k,415) - lu(k,69) * lu(k,398) - lu(k,417) = lu(k,417) - lu(k,70) * lu(k,398) - lu(k,418) = lu(k,418) - lu(k,71) * lu(k,398) - lu(k,488) = lu(k,488) - lu(k,65) * lu(k,487) - lu(k,489) = - lu(k,66) * lu(k,487) - lu(k,498) = lu(k,498) - lu(k,67) * lu(k,487) - lu(k,500) = lu(k,500) - lu(k,68) * lu(k,487) - lu(k,502) = lu(k,502) - lu(k,69) * lu(k,487) - lu(k,504) = lu(k,504) - lu(k,70) * lu(k,487) - lu(k,505) = - lu(k,71) * lu(k,487) - lu(k,550) = lu(k,550) - lu(k,65) * lu(k,544) - lu(k,558) = - lu(k,66) * lu(k,544) - lu(k,568) = lu(k,568) - lu(k,67) * lu(k,544) - lu(k,570) = lu(k,570) - lu(k,68) * lu(k,544) - lu(k,572) = lu(k,572) - lu(k,69) * lu(k,544) - lu(k,574) = lu(k,574) - lu(k,70) * lu(k,544) - lu(k,575) = lu(k,575) - lu(k,71) * lu(k,544) - lu(k,72) = 1._r8 / lu(k,72) - lu(k,73) = lu(k,73) * lu(k,72) - lu(k,74) = lu(k,74) * lu(k,72) - lu(k,75) = lu(k,75) * lu(k,72) - lu(k,107) = - lu(k,73) * lu(k,101) - lu(k,108) = - lu(k,74) * lu(k,101) - lu(k,109) = - lu(k,75) * lu(k,101) - lu(k,273) = lu(k,273) - lu(k,73) * lu(k,267) - lu(k,276) = lu(k,276) - lu(k,74) * lu(k,267) - lu(k,282) = lu(k,282) - lu(k,75) * lu(k,267) - lu(k,330) = lu(k,330) - lu(k,73) * lu(k,321) - lu(k,334) = lu(k,334) - lu(k,74) * lu(k,321) - lu(k,340) = lu(k,340) - lu(k,75) * lu(k,321) - lu(k,451) = - lu(k,73) * lu(k,446) - lu(k,455) = lu(k,455) - lu(k,74) * lu(k,446) - lu(k,461) = - lu(k,75) * lu(k,446) - lu(k,524) = lu(k,524) - lu(k,73) * lu(k,512) - lu(k,528) = lu(k,528) - lu(k,74) * lu(k,512) - lu(k,534) = lu(k,534) - lu(k,75) * lu(k,512) - lu(k,563) = lu(k,563) - lu(k,73) * lu(k,545) - lu(k,567) = lu(k,567) - lu(k,74) * lu(k,545) - lu(k,573) = lu(k,573) - lu(k,75) * lu(k,545) - lu(k,584) = - lu(k,73) * lu(k,579) - lu(k,588) = lu(k,588) - lu(k,74) * lu(k,579) - lu(k,594) = lu(k,594) - lu(k,75) * lu(k,579) + 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,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) + lu(k,70) = lu(k,70) * lu(k,67) + lu(k,144) = - lu(k,68) * lu(k,135) + 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,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) + 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,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) + lu(k,81) = lu(k,81) * lu(k,78) + lu(k,82) = lu(k,82) * lu(k,78) + lu(k,83) = lu(k,83) * lu(k,78) + lu(k,84) = lu(k,84) * lu(k,78) + lu(k,85) = lu(k,85) * lu(k,78) + lu(k,86) = lu(k,86) * lu(k,78) + lu(k,160) = lu(k,160) - lu(k,79) * lu(k,159) + lu(k,162) = lu(k,162) - lu(k,80) * lu(k,159) + lu(k,163) = lu(k,163) - lu(k,81) * lu(k,159) + lu(k,164) = lu(k,164) - lu(k,82) * lu(k,159) + lu(k,165) = lu(k,165) - lu(k,83) * lu(k,159) + lu(k,166) = lu(k,166) - lu(k,84) * lu(k,159) + lu(k,167) = lu(k,167) - lu(k,85) * lu(k,159) + lu(k,173) = lu(k,173) - lu(k,86) * lu(k,159) + lu(k,229) = lu(k,229) - lu(k,79) * lu(k,228) + lu(k,231) = lu(k,231) - lu(k,80) * lu(k,228) + lu(k,232) = lu(k,232) - lu(k,81) * lu(k,228) + lu(k,233) = lu(k,233) - lu(k,82) * lu(k,228) + 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,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 ) @@ -306,105 +345,86 @@ subroutine lu_fac03( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,76) = 1._r8 / lu(k,76) - lu(k,77) = lu(k,77) * lu(k,76) - lu(k,78) = lu(k,78) * lu(k,76) - lu(k,79) = lu(k,79) * lu(k,76) - lu(k,80) = lu(k,80) * lu(k,76) - lu(k,81) = lu(k,81) * lu(k,76) - lu(k,82) = lu(k,82) * lu(k,76) - lu(k,141) = lu(k,141) - lu(k,77) * lu(k,139) - lu(k,142) = lu(k,142) - lu(k,78) * lu(k,139) - lu(k,143) = lu(k,143) - lu(k,79) * lu(k,139) - lu(k,145) = lu(k,145) - lu(k,80) * lu(k,139) - lu(k,146) = lu(k,146) - lu(k,81) * lu(k,139) - lu(k,152) = lu(k,152) - lu(k,82) * lu(k,139) - lu(k,163) = - lu(k,77) * lu(k,162) - lu(k,164) = lu(k,164) - lu(k,78) * lu(k,162) - lu(k,165) = lu(k,165) - lu(k,79) * lu(k,162) - lu(k,167) = lu(k,167) - lu(k,80) * lu(k,162) - lu(k,168) = lu(k,168) - lu(k,81) * lu(k,162) - lu(k,175) = lu(k,175) - lu(k,82) * lu(k,162) - lu(k,221) = lu(k,221) - lu(k,77) * lu(k,219) - lu(k,222) = lu(k,222) - lu(k,78) * lu(k,219) - lu(k,223) = lu(k,223) - lu(k,79) * lu(k,219) - lu(k,225) = lu(k,225) - lu(k,80) * lu(k,219) - lu(k,226) = lu(k,226) - lu(k,81) * lu(k,219) - lu(k,233) = lu(k,233) - lu(k,82) * lu(k,219) - lu(k,549) = lu(k,549) - lu(k,77) * lu(k,546) - lu(k,551) = lu(k,551) - lu(k,78) * lu(k,546) - lu(k,552) = lu(k,552) - lu(k,79) * lu(k,546) - lu(k,554) = lu(k,554) - lu(k,80) * lu(k,546) - lu(k,559) = lu(k,559) - lu(k,81) * lu(k,546) - lu(k,574) = lu(k,574) - lu(k,82) * lu(k,546) - 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,89) = lu(k,89) * lu(k,83) - lu(k,327) = - lu(k,84) * lu(k,322) - lu(k,328) = lu(k,328) - lu(k,85) * lu(k,322) - lu(k,332) = lu(k,332) - lu(k,86) * lu(k,322) - lu(k,334) = lu(k,334) - lu(k,87) * lu(k,322) - lu(k,340) = lu(k,340) - lu(k,88) * lu(k,322) - lu(k,341) = - lu(k,89) * lu(k,322) - lu(k,378) = lu(k,378) - lu(k,84) * lu(k,373) - lu(k,379) = lu(k,379) - lu(k,85) * lu(k,373) - lu(k,383) = lu(k,383) - lu(k,86) * lu(k,373) - lu(k,385) = lu(k,385) - lu(k,87) * lu(k,373) - lu(k,391) = lu(k,391) - lu(k,88) * lu(k,373) - lu(k,392) = lu(k,392) - lu(k,89) * lu(k,373) - lu(k,521) = lu(k,521) - lu(k,84) * lu(k,513) - lu(k,522) = lu(k,522) - lu(k,85) * lu(k,513) - lu(k,526) = lu(k,526) - lu(k,86) * lu(k,513) - lu(k,528) = lu(k,528) - lu(k,87) * lu(k,513) - lu(k,534) = lu(k,534) - lu(k,88) * lu(k,513) - lu(k,535) = lu(k,535) - lu(k,89) * lu(k,513) - lu(k,560) = - lu(k,84) * lu(k,547) - lu(k,561) = lu(k,561) - lu(k,85) * lu(k,547) - lu(k,565) = lu(k,565) - lu(k,86) * lu(k,547) - lu(k,567) = lu(k,567) - lu(k,87) * lu(k,547) - lu(k,573) = lu(k,573) - lu(k,88) * lu(k,547) - lu(k,574) = lu(k,574) - lu(k,89) * lu(k,547) - lu(k,91) = 1._r8 / lu(k,91) - lu(k,92) = lu(k,92) * lu(k,91) - lu(k,93) = lu(k,93) * lu(k,91) - lu(k,94) = lu(k,94) * lu(k,91) - lu(k,95) = lu(k,95) * lu(k,91) - lu(k,96) = lu(k,96) * lu(k,91) - lu(k,97) = lu(k,97) * lu(k,91) - lu(k,98) = lu(k,98) * lu(k,91) - lu(k,99) = lu(k,99) * lu(k,91) - lu(k,100) = lu(k,100) * lu(k,91) - lu(k,141) = lu(k,141) - lu(k,92) * lu(k,140) - lu(k,142) = lu(k,142) - lu(k,93) * lu(k,140) - lu(k,143) = lu(k,143) - lu(k,94) * lu(k,140) - lu(k,144) = lu(k,144) - lu(k,95) * lu(k,140) - lu(k,145) = lu(k,145) - lu(k,96) * lu(k,140) - lu(k,146) = lu(k,146) - lu(k,97) * lu(k,140) - lu(k,148) = lu(k,148) - lu(k,98) * lu(k,140) - lu(k,150) = lu(k,150) - lu(k,99) * lu(k,140) - lu(k,152) = lu(k,152) - lu(k,100) * lu(k,140) - lu(k,221) = lu(k,221) - lu(k,92) * lu(k,220) - lu(k,222) = lu(k,222) - lu(k,93) * lu(k,220) - lu(k,223) = lu(k,223) - lu(k,94) * lu(k,220) - lu(k,224) = lu(k,224) - lu(k,95) * lu(k,220) - lu(k,225) = lu(k,225) - lu(k,96) * lu(k,220) - lu(k,226) = lu(k,226) - lu(k,97) * lu(k,220) - lu(k,228) = lu(k,228) - lu(k,98) * lu(k,220) - lu(k,231) = lu(k,231) - lu(k,99) * lu(k,220) - lu(k,233) = lu(k,233) - lu(k,100) * lu(k,220) - lu(k,549) = lu(k,549) - lu(k,92) * lu(k,548) - lu(k,551) = lu(k,551) - lu(k,93) * lu(k,548) - lu(k,552) = lu(k,552) - lu(k,94) * lu(k,548) - lu(k,553) = lu(k,553) - lu(k,95) * lu(k,548) - lu(k,554) = lu(k,554) - lu(k,96) * lu(k,548) - lu(k,559) = lu(k,559) - lu(k,97) * lu(k,548) - lu(k,564) = lu(k,564) - lu(k,98) * lu(k,548) - lu(k,569) = lu(k,569) - lu(k,99) * lu(k,548) - lu(k,574) = lu(k,574) - lu(k,100) * lu(k,548) + lu(k,87) = 1._r8 / lu(k,87) + lu(k,88) = lu(k,88) * lu(k,87) + lu(k,89) = lu(k,89) * lu(k,87) + lu(k,90) = lu(k,90) * lu(k,87) + lu(k,91) = lu(k,91) * lu(k,87) + lu(k,130) = - lu(k,88) * lu(k,126) + lu(k,131) = - lu(k,89) * lu(k,126) + lu(k,132) = lu(k,132) - lu(k,90) * lu(k,126) + lu(k,134) = lu(k,134) - lu(k,91) * lu(k,126) + lu(k,140) = - lu(k,88) * lu(k,136) + lu(k,141) = lu(k,141) - lu(k,89) * lu(k,136) + lu(k,142) = lu(k,142) - lu(k,90) * lu(k,136) + lu(k,147) = lu(k,147) - lu(k,91) * lu(k,136) + lu(k,150) = lu(k,150) - lu(k,88) * lu(k,148) + lu(k,151) = - lu(k,89) * lu(k,148) + lu(k,152) = lu(k,152) - lu(k,90) * lu(k,148) + lu(k,156) = lu(k,156) - lu(k,91) * lu(k,148) + lu(k,164) = lu(k,164) - lu(k,88) * lu(k,160) + lu(k,165) = lu(k,165) - lu(k,89) * lu(k,160) + lu(k,166) = lu(k,166) - lu(k,90) * lu(k,160) + lu(k,173) = lu(k,173) - lu(k,91) * lu(k,160) + lu(k,191) = lu(k,191) - lu(k,88) * lu(k,187) + lu(k,192) = - lu(k,89) * lu(k,187) + lu(k,193) = lu(k,193) - lu(k,90) * lu(k,187) + lu(k,201) = lu(k,201) - lu(k,91) * lu(k,187) + 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,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) + lu(k,96) = lu(k,96) * lu(k,93) + lu(k,97) = lu(k,97) * lu(k,93) + lu(k,98) = lu(k,98) * lu(k,93) + lu(k,99) = lu(k,99) * lu(k,93) + 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,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) @@ -413,82 +433,91 @@ subroutine lu_fac03( avec_len, lu ) lu(k,107) = lu(k,107) * lu(k,102) lu(k,108) = lu(k,108) * lu(k,102) lu(k,109) = lu(k,109) * lu(k,102) - lu(k,110) = lu(k,110) * lu(k,102) - lu(k,142) = lu(k,142) - lu(k,103) * lu(k,141) - lu(k,143) = lu(k,143) - lu(k,104) * lu(k,141) - lu(k,145) = lu(k,145) - lu(k,105) * lu(k,141) - lu(k,146) = lu(k,146) - lu(k,106) * lu(k,141) - lu(k,147) = - lu(k,107) * lu(k,141) - lu(k,149) = - lu(k,108) * lu(k,141) - lu(k,151) = - lu(k,109) * lu(k,141) - lu(k,152) = lu(k,152) - lu(k,110) * lu(k,141) - lu(k,164) = lu(k,164) - lu(k,103) * lu(k,163) - lu(k,165) = lu(k,165) - lu(k,104) * lu(k,163) - lu(k,167) = lu(k,167) - lu(k,105) * lu(k,163) - lu(k,168) = lu(k,168) - lu(k,106) * lu(k,163) - lu(k,169) = lu(k,169) - lu(k,107) * lu(k,163) - lu(k,171) = - lu(k,108) * lu(k,163) - lu(k,174) = lu(k,174) - lu(k,109) * lu(k,163) - lu(k,175) = lu(k,175) - lu(k,110) * lu(k,163) - lu(k,222) = lu(k,222) - lu(k,103) * lu(k,221) - lu(k,223) = lu(k,223) - lu(k,104) * lu(k,221) - lu(k,225) = lu(k,225) - lu(k,105) * lu(k,221) - lu(k,226) = lu(k,226) - lu(k,106) * lu(k,221) - lu(k,227) = lu(k,227) - lu(k,107) * lu(k,221) - lu(k,229) = lu(k,229) - lu(k,108) * lu(k,221) - lu(k,232) = - lu(k,109) * lu(k,221) - lu(k,233) = lu(k,233) - lu(k,110) * lu(k,221) - lu(k,551) = lu(k,551) - lu(k,103) * lu(k,549) - lu(k,552) = lu(k,552) - lu(k,104) * lu(k,549) - lu(k,554) = lu(k,554) - lu(k,105) * lu(k,549) - lu(k,559) = lu(k,559) - lu(k,106) * lu(k,549) - lu(k,563) = lu(k,563) - lu(k,107) * lu(k,549) - lu(k,567) = lu(k,567) - lu(k,108) * lu(k,549) - lu(k,573) = lu(k,573) - lu(k,109) * lu(k,549) - lu(k,574) = lu(k,574) - lu(k,110) * lu(k,549) - lu(k,112) = 1._r8 / lu(k,112) - lu(k,113) = lu(k,113) * lu(k,112) - lu(k,114) = lu(k,114) * lu(k,112) - lu(k,115) = lu(k,115) * lu(k,112) - lu(k,116) = lu(k,116) * lu(k,112) - lu(k,117) = lu(k,117) * lu(k,112) - lu(k,118) = lu(k,118) * lu(k,112) - lu(k,119) = lu(k,119) * lu(k,112) - lu(k,253) = lu(k,253) - lu(k,113) * lu(k,249) - lu(k,254) = lu(k,254) - lu(k,114) * lu(k,249) - lu(k,256) = lu(k,256) - lu(k,115) * lu(k,249) - lu(k,260) = lu(k,260) - lu(k,116) * lu(k,249) - lu(k,262) = - lu(k,117) * lu(k,249) - lu(k,263) = lu(k,263) - lu(k,118) * lu(k,249) - lu(k,264) = lu(k,264) - lu(k,119) * lu(k,249) - lu(k,378) = lu(k,378) - lu(k,113) * lu(k,374) - lu(k,379) = lu(k,379) - lu(k,114) * lu(k,374) - lu(k,383) = lu(k,383) - lu(k,115) * lu(k,374) - lu(k,388) = lu(k,388) - lu(k,116) * lu(k,374) - lu(k,390) = lu(k,390) - lu(k,117) * lu(k,374) - lu(k,391) = lu(k,391) - lu(k,118) * lu(k,374) - lu(k,392) = lu(k,392) - lu(k,119) * lu(k,374) - lu(k,404) = lu(k,404) - lu(k,113) * lu(k,399) - lu(k,405) = - lu(k,114) * lu(k,399) - lu(k,408) = - lu(k,115) * lu(k,399) - lu(k,413) = lu(k,413) - lu(k,116) * lu(k,399) - lu(k,415) = lu(k,415) - lu(k,117) * lu(k,399) - lu(k,416) = lu(k,416) - lu(k,118) * lu(k,399) - lu(k,417) = lu(k,417) - lu(k,119) * lu(k,399) - lu(k,491) = - lu(k,113) * lu(k,488) - lu(k,492) = - lu(k,114) * lu(k,488) - lu(k,495) = lu(k,495) - lu(k,115) * lu(k,488) - lu(k,500) = lu(k,500) - lu(k,116) * lu(k,488) - lu(k,502) = lu(k,502) - lu(k,117) * lu(k,488) - lu(k,503) = lu(k,503) - lu(k,118) * lu(k,488) - lu(k,504) = lu(k,504) - lu(k,119) * lu(k,488) - lu(k,560) = lu(k,560) - lu(k,113) * lu(k,550) - lu(k,561) = lu(k,561) - lu(k,114) * lu(k,550) - lu(k,565) = lu(k,565) - lu(k,115) * lu(k,550) - lu(k,570) = lu(k,570) - lu(k,116) * lu(k,550) - lu(k,572) = lu(k,572) - lu(k,117) * lu(k,550) - lu(k,573) = lu(k,573) - lu(k,118) * lu(k,550) - lu(k,574) = lu(k,574) - lu(k,119) * lu(k,550) + 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,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,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,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 ) @@ -505,219 +534,265 @@ subroutine lu_fac04( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,120) = 1._r8 / lu(k,120) - lu(k,121) = lu(k,121) * lu(k,120) - lu(k,122) = lu(k,122) * lu(k,120) - lu(k,123) = lu(k,123) * lu(k,120) - lu(k,124) = lu(k,124) * lu(k,120) - lu(k,125) = lu(k,125) * lu(k,120) - lu(k,126) = lu(k,126) * lu(k,120) - lu(k,127) = lu(k,127) * lu(k,120) - lu(k,143) = lu(k,143) - lu(k,121) * lu(k,142) - lu(k,144) = lu(k,144) - lu(k,122) * lu(k,142) - lu(k,145) = lu(k,145) - lu(k,123) * lu(k,142) - lu(k,146) = lu(k,146) - lu(k,124) * lu(k,142) - lu(k,148) = lu(k,148) - lu(k,125) * lu(k,142) - lu(k,150) = lu(k,150) - lu(k,126) * lu(k,142) - lu(k,152) = lu(k,152) - lu(k,127) * lu(k,142) - lu(k,165) = lu(k,165) - lu(k,121) * lu(k,164) - lu(k,166) = lu(k,166) - lu(k,122) * lu(k,164) - lu(k,167) = lu(k,167) - lu(k,123) * lu(k,164) - lu(k,168) = lu(k,168) - lu(k,124) * lu(k,164) - lu(k,170) = lu(k,170) - lu(k,125) * lu(k,164) - lu(k,173) = - lu(k,126) * lu(k,164) - lu(k,175) = lu(k,175) - lu(k,127) * lu(k,164) - lu(k,223) = lu(k,223) - lu(k,121) * lu(k,222) - lu(k,224) = lu(k,224) - lu(k,122) * lu(k,222) - lu(k,225) = lu(k,225) - lu(k,123) * lu(k,222) - lu(k,226) = lu(k,226) - lu(k,124) * lu(k,222) - lu(k,228) = lu(k,228) - lu(k,125) * lu(k,222) - lu(k,231) = lu(k,231) - lu(k,126) * lu(k,222) - lu(k,233) = lu(k,233) - lu(k,127) * lu(k,222) - lu(k,300) = lu(k,300) - lu(k,121) * lu(k,299) - lu(k,301) = lu(k,301) - lu(k,122) * lu(k,299) - lu(k,302) = lu(k,302) - lu(k,123) * lu(k,299) - lu(k,303) = lu(k,303) - lu(k,124) * lu(k,299) - lu(k,306) = lu(k,306) - lu(k,125) * lu(k,299) - lu(k,311) = - lu(k,126) * lu(k,299) - lu(k,316) = lu(k,316) - lu(k,127) * lu(k,299) - lu(k,552) = lu(k,552) - lu(k,121) * lu(k,551) - lu(k,553) = lu(k,553) - lu(k,122) * lu(k,551) - lu(k,554) = lu(k,554) - lu(k,123) * lu(k,551) - lu(k,559) = lu(k,559) - lu(k,124) * lu(k,551) - lu(k,564) = lu(k,564) - lu(k,125) * lu(k,551) - lu(k,569) = lu(k,569) - lu(k,126) * lu(k,551) - lu(k,574) = lu(k,574) - lu(k,127) * lu(k,551) - lu(k,129) = 1._r8 / lu(k,129) - lu(k,130) = lu(k,130) * lu(k,129) - lu(k,131) = lu(k,131) * lu(k,129) - lu(k,132) = lu(k,132) * lu(k,129) - lu(k,133) = lu(k,133) * lu(k,129) - lu(k,134) = lu(k,134) * lu(k,129) - lu(k,135) = lu(k,135) * lu(k,129) - lu(k,144) = lu(k,144) - lu(k,130) * lu(k,143) - lu(k,145) = lu(k,145) - lu(k,131) * lu(k,143) - lu(k,146) = lu(k,146) - lu(k,132) * lu(k,143) - lu(k,148) = lu(k,148) - lu(k,133) * lu(k,143) - lu(k,150) = lu(k,150) - lu(k,134) * lu(k,143) - lu(k,152) = lu(k,152) - lu(k,135) * lu(k,143) - lu(k,166) = lu(k,166) - lu(k,130) * lu(k,165) - lu(k,167) = lu(k,167) - lu(k,131) * lu(k,165) - lu(k,168) = lu(k,168) - lu(k,132) * lu(k,165) - lu(k,170) = lu(k,170) - lu(k,133) * lu(k,165) - lu(k,173) = lu(k,173) - lu(k,134) * lu(k,165) - lu(k,175) = lu(k,175) - lu(k,135) * lu(k,165) - lu(k,224) = lu(k,224) - lu(k,130) * lu(k,223) - lu(k,225) = lu(k,225) - lu(k,131) * lu(k,223) - lu(k,226) = lu(k,226) - lu(k,132) * lu(k,223) - lu(k,228) = lu(k,228) - lu(k,133) * lu(k,223) - lu(k,231) = lu(k,231) - lu(k,134) * lu(k,223) - lu(k,233) = lu(k,233) - lu(k,135) * lu(k,223) - lu(k,301) = lu(k,301) - lu(k,130) * lu(k,300) - lu(k,302) = lu(k,302) - lu(k,131) * lu(k,300) - lu(k,303) = lu(k,303) - lu(k,132) * lu(k,300) - lu(k,306) = lu(k,306) - lu(k,133) * lu(k,300) - lu(k,311) = lu(k,311) - lu(k,134) * lu(k,300) - lu(k,316) = lu(k,316) - lu(k,135) * lu(k,300) - lu(k,553) = lu(k,553) - lu(k,130) * lu(k,552) - lu(k,554) = lu(k,554) - lu(k,131) * lu(k,552) - lu(k,559) = lu(k,559) - lu(k,132) * lu(k,552) - lu(k,564) = lu(k,564) - lu(k,133) * lu(k,552) - lu(k,569) = lu(k,569) - lu(k,134) * lu(k,552) - lu(k,574) = lu(k,574) - lu(k,135) * lu(k,552) - lu(k,144) = 1._r8 / lu(k,144) - lu(k,145) = lu(k,145) * lu(k,144) - lu(k,146) = lu(k,146) * lu(k,144) - lu(k,147) = lu(k,147) * lu(k,144) - lu(k,148) = lu(k,148) * lu(k,144) - lu(k,149) = lu(k,149) * lu(k,144) - lu(k,150) = lu(k,150) * lu(k,144) - lu(k,151) = lu(k,151) * lu(k,144) - lu(k,152) = lu(k,152) * lu(k,144) - lu(k,167) = lu(k,167) - lu(k,145) * lu(k,166) - lu(k,168) = lu(k,168) - lu(k,146) * lu(k,166) - lu(k,169) = lu(k,169) - lu(k,147) * lu(k,166) - lu(k,170) = lu(k,170) - lu(k,148) * lu(k,166) - lu(k,171) = lu(k,171) - lu(k,149) * lu(k,166) - lu(k,173) = lu(k,173) - lu(k,150) * lu(k,166) - lu(k,174) = lu(k,174) - lu(k,151) * lu(k,166) - lu(k,175) = lu(k,175) - lu(k,152) * lu(k,166) - lu(k,225) = lu(k,225) - lu(k,145) * lu(k,224) - lu(k,226) = lu(k,226) - lu(k,146) * lu(k,224) - lu(k,227) = lu(k,227) - lu(k,147) * lu(k,224) - lu(k,228) = lu(k,228) - lu(k,148) * lu(k,224) - lu(k,229) = lu(k,229) - lu(k,149) * lu(k,224) - lu(k,231) = lu(k,231) - lu(k,150) * lu(k,224) - lu(k,232) = lu(k,232) - lu(k,151) * lu(k,224) - lu(k,233) = lu(k,233) - lu(k,152) * lu(k,224) - lu(k,302) = lu(k,302) - lu(k,145) * lu(k,301) - lu(k,303) = lu(k,303) - lu(k,146) * lu(k,301) - lu(k,305) = - lu(k,147) * lu(k,301) - lu(k,306) = lu(k,306) - lu(k,148) * lu(k,301) - lu(k,309) = lu(k,309) - lu(k,149) * lu(k,301) - lu(k,311) = lu(k,311) - lu(k,150) * lu(k,301) - lu(k,315) = lu(k,315) - lu(k,151) * lu(k,301) - lu(k,316) = lu(k,316) - lu(k,152) * lu(k,301) - lu(k,554) = lu(k,554) - lu(k,145) * lu(k,553) - lu(k,559) = lu(k,559) - lu(k,146) * lu(k,553) - lu(k,563) = lu(k,563) - lu(k,147) * lu(k,553) - lu(k,564) = lu(k,564) - lu(k,148) * lu(k,553) - lu(k,567) = lu(k,567) - lu(k,149) * lu(k,553) - lu(k,569) = lu(k,569) - lu(k,150) * lu(k,553) - lu(k,573) = lu(k,573) - lu(k,151) * lu(k,553) - lu(k,574) = lu(k,574) - lu(k,152) * lu(k,553) - lu(k,154) = 1._r8 / lu(k,154) - lu(k,155) = lu(k,155) * lu(k,154) - lu(k,156) = lu(k,156) * lu(k,154) - lu(k,157) = lu(k,157) * lu(k,154) - lu(k,158) = lu(k,158) * lu(k,154) - lu(k,159) = lu(k,159) * lu(k,154) - lu(k,160) = lu(k,160) * lu(k,154) - lu(k,161) = lu(k,161) * lu(k,154) - lu(k,206) = lu(k,206) - lu(k,155) * lu(k,205) - lu(k,207) = lu(k,207) - lu(k,156) * lu(k,205) - lu(k,208) = lu(k,208) - lu(k,157) * lu(k,205) - lu(k,210) = - lu(k,158) * lu(k,205) - lu(k,211) = lu(k,211) - lu(k,159) * lu(k,205) - lu(k,212) = lu(k,212) - lu(k,160) * lu(k,205) - lu(k,213) = - lu(k,161) * lu(k,205) - lu(k,237) = - lu(k,155) * lu(k,236) - lu(k,238) = lu(k,238) - lu(k,156) * lu(k,236) - lu(k,239) = lu(k,239) - lu(k,157) * lu(k,236) - lu(k,242) = - lu(k,158) * lu(k,236) - lu(k,243) = lu(k,243) - lu(k,159) * lu(k,236) - lu(k,245) = - lu(k,160) * lu(k,236) - lu(k,246) = lu(k,246) - lu(k,161) * lu(k,236) - lu(k,426) = - lu(k,155) * lu(k,424) - lu(k,428) = lu(k,428) - lu(k,156) * lu(k,424) - lu(k,431) = lu(k,431) - lu(k,157) * lu(k,424) - lu(k,439) = lu(k,439) - lu(k,158) * lu(k,424) - lu(k,441) = lu(k,441) - lu(k,159) * lu(k,424) - lu(k,443) = - lu(k,160) * lu(k,424) - lu(k,444) = lu(k,444) - lu(k,161) * lu(k,424) - lu(k,519) = lu(k,519) - lu(k,155) * lu(k,514) - lu(k,521) = lu(k,521) - lu(k,156) * lu(k,514) - lu(k,524) = lu(k,524) - lu(k,157) * lu(k,514) - lu(k,532) = lu(k,532) - lu(k,158) * lu(k,514) - lu(k,534) = lu(k,534) - lu(k,159) * lu(k,514) - lu(k,536) = lu(k,536) - lu(k,160) * lu(k,514) - lu(k,537) = lu(k,537) - lu(k,161) * lu(k,514) - lu(k,601) = - lu(k,155) * lu(k,600) - lu(k,602) = lu(k,602) - lu(k,156) * lu(k,600) - lu(k,604) = lu(k,604) - lu(k,157) * lu(k,600) - lu(k,612) = - lu(k,158) * lu(k,600) - lu(k,614) = lu(k,614) - lu(k,159) * lu(k,600) - lu(k,616) = - lu(k,160) * lu(k,600) - lu(k,617) = lu(k,617) - lu(k,161) * lu(k,600) - lu(k,167) = 1._r8 / lu(k,167) - lu(k,168) = lu(k,168) * lu(k,167) - lu(k,169) = lu(k,169) * lu(k,167) - lu(k,170) = lu(k,170) * lu(k,167) - lu(k,171) = lu(k,171) * lu(k,167) - lu(k,172) = lu(k,172) * lu(k,167) - lu(k,173) = lu(k,173) * lu(k,167) - lu(k,174) = lu(k,174) * lu(k,167) - lu(k,175) = lu(k,175) * lu(k,167) - lu(k,226) = lu(k,226) - lu(k,168) * lu(k,225) - lu(k,227) = lu(k,227) - lu(k,169) * lu(k,225) - lu(k,228) = lu(k,228) - lu(k,170) * lu(k,225) - lu(k,229) = lu(k,229) - lu(k,171) * lu(k,225) - lu(k,230) = - lu(k,172) * lu(k,225) - lu(k,231) = lu(k,231) - lu(k,173) * lu(k,225) - lu(k,232) = lu(k,232) - lu(k,174) * lu(k,225) - lu(k,233) = lu(k,233) - lu(k,175) * lu(k,225) - lu(k,303) = lu(k,303) - lu(k,168) * lu(k,302) - lu(k,305) = lu(k,305) - lu(k,169) * lu(k,302) - lu(k,306) = lu(k,306) - lu(k,170) * lu(k,302) - lu(k,309) = lu(k,309) - lu(k,171) * lu(k,302) - lu(k,310) = lu(k,310) - lu(k,172) * lu(k,302) - lu(k,311) = lu(k,311) - lu(k,173) * lu(k,302) - lu(k,315) = lu(k,315) - lu(k,174) * lu(k,302) - lu(k,316) = lu(k,316) - lu(k,175) * lu(k,302) - lu(k,403) = lu(k,403) - lu(k,168) * lu(k,400) - lu(k,406) = - lu(k,169) * lu(k,400) - lu(k,407) = lu(k,407) - lu(k,170) * lu(k,400) - lu(k,410) = lu(k,410) - lu(k,171) * lu(k,400) - lu(k,411) = lu(k,411) - lu(k,172) * lu(k,400) - lu(k,412) = - lu(k,173) * lu(k,400) - lu(k,416) = lu(k,416) - lu(k,174) * lu(k,400) - lu(k,417) = lu(k,417) - lu(k,175) * lu(k,400) - lu(k,520) = lu(k,520) - lu(k,168) * lu(k,515) - lu(k,524) = lu(k,524) - lu(k,169) * lu(k,515) - lu(k,525) = lu(k,525) - lu(k,170) * lu(k,515) - lu(k,528) = lu(k,528) - lu(k,171) * lu(k,515) - lu(k,529) = lu(k,529) - lu(k,172) * lu(k,515) - lu(k,530) = lu(k,530) - lu(k,173) * lu(k,515) - lu(k,534) = lu(k,534) - lu(k,174) * lu(k,515) - lu(k,535) = lu(k,535) - lu(k,175) * lu(k,515) - lu(k,559) = lu(k,559) - lu(k,168) * lu(k,554) - lu(k,563) = lu(k,563) - lu(k,169) * lu(k,554) - lu(k,564) = lu(k,564) - lu(k,170) * lu(k,554) - lu(k,567) = lu(k,567) - lu(k,171) * lu(k,554) - lu(k,568) = lu(k,568) - lu(k,172) * lu(k,554) - lu(k,569) = lu(k,569) - lu(k,173) * lu(k,554) - lu(k,573) = lu(k,573) - lu(k,174) * lu(k,554) - lu(k,574) = lu(k,574) - lu(k,175) * lu(k,554) + 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) + lu(k,130) = lu(k,130) * lu(k,127) + lu(k,131) = lu(k,131) * lu(k,127) + lu(k,132) = lu(k,132) * lu(k,127) + lu(k,133) = lu(k,133) * lu(k,127) + lu(k,134) = lu(k,134) * lu(k,127) + lu(k,138) = lu(k,138) - lu(k,128) * lu(k,137) + lu(k,139) = lu(k,139) - lu(k,129) * lu(k,137) + lu(k,140) = lu(k,140) - lu(k,130) * lu(k,137) + lu(k,141) = lu(k,141) - lu(k,131) * lu(k,137) + lu(k,142) = lu(k,142) - lu(k,132) * lu(k,137) + lu(k,143) = lu(k,143) - lu(k,133) * lu(k,137) + lu(k,147) = lu(k,147) - lu(k,134) * lu(k,137) + lu(k,162) = lu(k,162) - lu(k,128) * lu(k,161) + lu(k,163) = lu(k,163) - lu(k,129) * lu(k,161) + lu(k,164) = lu(k,164) - lu(k,130) * lu(k,161) + lu(k,165) = lu(k,165) - lu(k,131) * lu(k,161) + lu(k,166) = lu(k,166) - lu(k,132) * lu(k,161) + lu(k,167) = lu(k,167) - lu(k,133) * lu(k,161) + lu(k,173) = lu(k,173) - lu(k,134) * lu(k,161) + lu(k,175) = lu(k,175) - lu(k,128) * lu(k,174) + lu(k,176) = - lu(k,129) * lu(k,174) + lu(k,177) = - lu(k,130) * lu(k,174) + lu(k,178) = lu(k,178) - lu(k,131) * lu(k,174) + lu(k,179) = lu(k,179) - lu(k,132) * lu(k,174) + lu(k,180) = lu(k,180) - lu(k,133) * lu(k,174) + lu(k,186) = lu(k,186) - lu(k,134) * lu(k,174) + lu(k,189) = - lu(k,128) * lu(k,188) + lu(k,190) = lu(k,190) - lu(k,129) * lu(k,188) + lu(k,191) = lu(k,191) - lu(k,130) * lu(k,188) + lu(k,192) = lu(k,192) - lu(k,131) * lu(k,188) + lu(k,193) = lu(k,193) - lu(k,132) * lu(k,188) + lu(k,194) = lu(k,194) - lu(k,133) * lu(k,188) + lu(k,201) = lu(k,201) - lu(k,134) * lu(k,188) + lu(k,231) = lu(k,231) - lu(k,128) * lu(k,230) + lu(k,232) = lu(k,232) - lu(k,129) * lu(k,230) + lu(k,233) = lu(k,233) - lu(k,130) * lu(k,230) + 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,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) + 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,146) = lu(k,146) * lu(k,138) + lu(k,147) = lu(k,147) * lu(k,138) + lu(k,163) = lu(k,163) - lu(k,139) * lu(k,162) + lu(k,164) = lu(k,164) - lu(k,140) * lu(k,162) + lu(k,165) = lu(k,165) - lu(k,141) * lu(k,162) + 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,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) + lu(k,177) = lu(k,177) - lu(k,140) * lu(k,175) + lu(k,178) = lu(k,178) - lu(k,141) * lu(k,175) + 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,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) + lu(k,191) = lu(k,191) - lu(k,140) * lu(k,189) + lu(k,192) = lu(k,192) - lu(k,141) * lu(k,189) + 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,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) + lu(k,234) = lu(k,234) - lu(k,141) * lu(k,231) + 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,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) + lu(k,152) = lu(k,152) * lu(k,149) + lu(k,153) = lu(k,153) * lu(k,149) + lu(k,154) = lu(k,154) * lu(k,149) + lu(k,155) = lu(k,155) * lu(k,149) + lu(k,156) = lu(k,156) * lu(k,149) + lu(k,164) = lu(k,164) - lu(k,150) * lu(k,163) + 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,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,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,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,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) + lu(k,167) = lu(k,167) * lu(k,164) + lu(k,168) = lu(k,168) * lu(k,164) + lu(k,169) = lu(k,169) * lu(k,164) + lu(k,170) = lu(k,170) * lu(k,164) + lu(k,171) = lu(k,171) * lu(k,164) + lu(k,172) = lu(k,172) * lu(k,164) + lu(k,173) = lu(k,173) * lu(k,164) + lu(k,178) = lu(k,178) - lu(k,165) * lu(k,177) + lu(k,179) = lu(k,179) - lu(k,166) * lu(k,177) + lu(k,180) = lu(k,180) - lu(k,167) * lu(k,177) + lu(k,181) = lu(k,181) - lu(k,168) * lu(k,177) + lu(k,182) = lu(k,182) - lu(k,169) * lu(k,177) + lu(k,183) = lu(k,183) - lu(k,170) * lu(k,177) + lu(k,184) = lu(k,184) - lu(k,171) * lu(k,177) + lu(k,185) = lu(k,185) - lu(k,172) * lu(k,177) + lu(k,186) = lu(k,186) - lu(k,173) * lu(k,177) + lu(k,192) = lu(k,192) - lu(k,165) * lu(k,191) + lu(k,193) = lu(k,193) - lu(k,166) * lu(k,191) + lu(k,194) = lu(k,194) - lu(k,167) * lu(k,191) + lu(k,195) = lu(k,195) - lu(k,168) * lu(k,191) + lu(k,196) = lu(k,196) - lu(k,169) * lu(k,191) + lu(k,197) = lu(k,197) - lu(k,170) * lu(k,191) + lu(k,199) = lu(k,199) - lu(k,171) * lu(k,191) + lu(k,200) = lu(k,200) - lu(k,172) * lu(k,191) + lu(k,201) = lu(k,201) - lu(k,173) * lu(k,191) + lu(k,234) = lu(k,234) - lu(k,165) * lu(k,233) + lu(k,235) = lu(k,235) - lu(k,166) * lu(k,233) + lu(k,236) = lu(k,236) - lu(k,167) * lu(k,233) + lu(k,237) = lu(k,237) - lu(k,168) * lu(k,233) + lu(k,238) = lu(k,238) - lu(k,169) * lu(k,233) + 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,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 ) @@ -734,261 +809,252 @@ subroutine lu_fac05( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,177) = 1._r8 / lu(k,177) - lu(k,178) = lu(k,178) * lu(k,177) - lu(k,179) = lu(k,179) * lu(k,177) - lu(k,180) = lu(k,180) * lu(k,177) - lu(k,181) = lu(k,181) * lu(k,177) - lu(k,182) = lu(k,182) * lu(k,177) - lu(k,183) = lu(k,183) * lu(k,177) - lu(k,196) = - lu(k,178) * lu(k,193) - lu(k,197) = lu(k,197) - lu(k,179) * lu(k,193) - lu(k,198) = lu(k,198) - lu(k,180) * lu(k,193) - lu(k,199) = lu(k,199) - lu(k,181) * lu(k,193) - lu(k,201) = lu(k,201) - lu(k,182) * lu(k,193) - lu(k,202) = lu(k,202) - lu(k,183) * lu(k,193) - lu(k,253) = lu(k,253) - lu(k,178) * lu(k,250) - lu(k,254) = lu(k,254) - lu(k,179) * lu(k,250) - lu(k,256) = lu(k,256) - lu(k,180) * lu(k,250) - lu(k,257) = lu(k,257) - lu(k,181) * lu(k,250) - lu(k,263) = lu(k,263) - lu(k,182) * lu(k,250) - lu(k,264) = lu(k,264) - lu(k,183) * lu(k,250) - lu(k,327) = lu(k,327) - lu(k,178) * lu(k,323) - lu(k,328) = lu(k,328) - lu(k,179) * lu(k,323) - lu(k,332) = lu(k,332) - lu(k,180) * lu(k,323) - lu(k,333) = lu(k,333) - lu(k,181) * lu(k,323) - lu(k,340) = lu(k,340) - lu(k,182) * lu(k,323) - lu(k,341) = lu(k,341) - lu(k,183) * lu(k,323) - lu(k,353) = - lu(k,178) * lu(k,349) - lu(k,354) = lu(k,354) - lu(k,179) * lu(k,349) - lu(k,358) = lu(k,358) - lu(k,180) * lu(k,349) - lu(k,359) = lu(k,359) - lu(k,181) * lu(k,349) - lu(k,366) = lu(k,366) - lu(k,182) * lu(k,349) - lu(k,367) = lu(k,367) - lu(k,183) * lu(k,349) - lu(k,378) = lu(k,378) - lu(k,178) * lu(k,375) - lu(k,379) = lu(k,379) - lu(k,179) * lu(k,375) - lu(k,383) = lu(k,383) - lu(k,180) * lu(k,375) - lu(k,384) = lu(k,384) - lu(k,181) * lu(k,375) - lu(k,391) = lu(k,391) - lu(k,182) * lu(k,375) - lu(k,392) = lu(k,392) - lu(k,183) * lu(k,375) - lu(k,521) = lu(k,521) - lu(k,178) * lu(k,516) - lu(k,522) = lu(k,522) - lu(k,179) * lu(k,516) - lu(k,526) = lu(k,526) - lu(k,180) * lu(k,516) - lu(k,527) = lu(k,527) - lu(k,181) * lu(k,516) - lu(k,534) = lu(k,534) - lu(k,182) * lu(k,516) - lu(k,535) = lu(k,535) - lu(k,183) * lu(k,516) - lu(k,560) = lu(k,560) - lu(k,178) * lu(k,555) - lu(k,561) = lu(k,561) - lu(k,179) * lu(k,555) - lu(k,565) = lu(k,565) - lu(k,180) * lu(k,555) - lu(k,566) = lu(k,566) - lu(k,181) * lu(k,555) - lu(k,573) = lu(k,573) - lu(k,182) * lu(k,555) - lu(k,574) = lu(k,574) - lu(k,183) * lu(k,555) - 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,191) = lu(k,191) * lu(k,184) - lu(k,270) = lu(k,270) - lu(k,185) * lu(k,268) - lu(k,273) = lu(k,273) - lu(k,186) * lu(k,268) - lu(k,278) = - lu(k,187) * lu(k,268) - lu(k,279) = lu(k,279) - lu(k,188) * lu(k,268) - lu(k,281) = - lu(k,189) * lu(k,268) - lu(k,282) = lu(k,282) - lu(k,190) * lu(k,268) - lu(k,283) = lu(k,283) - lu(k,191) * lu(k,268) - lu(k,378) = lu(k,378) - lu(k,185) * lu(k,376) - lu(k,381) = lu(k,381) - lu(k,186) * lu(k,376) - lu(k,387) = - lu(k,187) * lu(k,376) - lu(k,388) = lu(k,388) - lu(k,188) * lu(k,376) - lu(k,390) = lu(k,390) - lu(k,189) * lu(k,376) - lu(k,391) = lu(k,391) - lu(k,190) * lu(k,376) - lu(k,392) = lu(k,392) - lu(k,191) * lu(k,376) - lu(k,428) = lu(k,428) - lu(k,185) * lu(k,425) - lu(k,431) = lu(k,431) - lu(k,186) * lu(k,425) - lu(k,437) = lu(k,437) - lu(k,187) * lu(k,425) - lu(k,438) = lu(k,438) - lu(k,188) * lu(k,425) - lu(k,440) = lu(k,440) - lu(k,189) * lu(k,425) - lu(k,441) = lu(k,441) - lu(k,190) * lu(k,425) - lu(k,442) = lu(k,442) - lu(k,191) * lu(k,425) - lu(k,449) = - lu(k,185) * lu(k,447) - lu(k,451) = lu(k,451) - lu(k,186) * lu(k,447) - lu(k,457) = - lu(k,187) * lu(k,447) - lu(k,458) = lu(k,458) - lu(k,188) * lu(k,447) - lu(k,460) = lu(k,460) - lu(k,189) * lu(k,447) - lu(k,461) = lu(k,461) - lu(k,190) * lu(k,447) - lu(k,462) = - lu(k,191) * lu(k,447) - lu(k,521) = lu(k,521) - lu(k,185) * lu(k,517) - lu(k,524) = lu(k,524) - lu(k,186) * lu(k,517) - lu(k,530) = lu(k,530) - lu(k,187) * lu(k,517) - lu(k,531) = lu(k,531) - lu(k,188) * lu(k,517) - lu(k,533) = lu(k,533) - lu(k,189) * lu(k,517) - lu(k,534) = lu(k,534) - lu(k,190) * lu(k,517) - lu(k,535) = lu(k,535) - lu(k,191) * lu(k,517) - lu(k,560) = lu(k,560) - lu(k,185) * lu(k,556) - lu(k,563) = lu(k,563) - lu(k,186) * lu(k,556) - lu(k,569) = lu(k,569) - lu(k,187) * lu(k,556) - lu(k,570) = lu(k,570) - lu(k,188) * lu(k,556) - lu(k,572) = lu(k,572) - lu(k,189) * lu(k,556) - lu(k,573) = lu(k,573) - lu(k,190) * lu(k,556) - lu(k,574) = lu(k,574) - lu(k,191) * lu(k,556) - lu(k,194) = 1._r8 / lu(k,194) - lu(k,195) = lu(k,195) * lu(k,194) - lu(k,196) = lu(k,196) * lu(k,194) - lu(k,197) = lu(k,197) * lu(k,194) - lu(k,198) = lu(k,198) * lu(k,194) - lu(k,199) = lu(k,199) * lu(k,194) - lu(k,200) = lu(k,200) * lu(k,194) - lu(k,201) = lu(k,201) * lu(k,194) - lu(k,202) = lu(k,202) * lu(k,194) - lu(k,203) = lu(k,203) * lu(k,194) - lu(k,252) = lu(k,252) - lu(k,195) * lu(k,251) - lu(k,253) = lu(k,253) - lu(k,196) * lu(k,251) - lu(k,254) = lu(k,254) - lu(k,197) * lu(k,251) - lu(k,256) = lu(k,256) - lu(k,198) * lu(k,251) - lu(k,257) = lu(k,257) - lu(k,199) * lu(k,251) - lu(k,258) = - lu(k,200) * lu(k,251) - lu(k,263) = lu(k,263) - lu(k,201) * lu(k,251) - lu(k,264) = lu(k,264) - lu(k,202) * lu(k,251) - lu(k,265) = - lu(k,203) * lu(k,251) - lu(k,325) = - lu(k,195) * lu(k,324) - lu(k,327) = lu(k,327) - lu(k,196) * lu(k,324) - lu(k,328) = lu(k,328) - lu(k,197) * lu(k,324) - lu(k,332) = lu(k,332) - lu(k,198) * lu(k,324) - lu(k,333) = lu(k,333) - lu(k,199) * lu(k,324) - lu(k,335) = - lu(k,200) * lu(k,324) - lu(k,340) = lu(k,340) - lu(k,201) * lu(k,324) - lu(k,341) = lu(k,341) - lu(k,202) * lu(k,324) - lu(k,342) = lu(k,342) - lu(k,203) * lu(k,324) - lu(k,351) = - lu(k,195) * lu(k,350) - lu(k,353) = lu(k,353) - lu(k,196) * lu(k,350) - lu(k,354) = lu(k,354) - lu(k,197) * lu(k,350) - lu(k,358) = lu(k,358) - lu(k,198) * lu(k,350) - lu(k,359) = lu(k,359) - lu(k,199) * lu(k,350) - lu(k,361) = lu(k,361) - lu(k,200) * lu(k,350) - lu(k,366) = lu(k,366) - lu(k,201) * lu(k,350) - lu(k,367) = lu(k,367) - lu(k,202) * lu(k,350) - lu(k,368) = - lu(k,203) * lu(k,350) - lu(k,402) = lu(k,402) - lu(k,195) * lu(k,401) - lu(k,404) = lu(k,404) - lu(k,196) * lu(k,401) - lu(k,405) = lu(k,405) - lu(k,197) * lu(k,401) - lu(k,408) = lu(k,408) - lu(k,198) * lu(k,401) - lu(k,409) = lu(k,409) - lu(k,199) * lu(k,401) - lu(k,411) = lu(k,411) - lu(k,200) * lu(k,401) - lu(k,416) = lu(k,416) - lu(k,201) * lu(k,401) - lu(k,417) = lu(k,417) - lu(k,202) * lu(k,401) - lu(k,418) = lu(k,418) - lu(k,203) * lu(k,401) - lu(k,519) = lu(k,519) - lu(k,195) * lu(k,518) - lu(k,521) = lu(k,521) - lu(k,196) * lu(k,518) - lu(k,522) = lu(k,522) - lu(k,197) * lu(k,518) - lu(k,526) = lu(k,526) - lu(k,198) * lu(k,518) - lu(k,527) = lu(k,527) - lu(k,199) * lu(k,518) - lu(k,529) = lu(k,529) - lu(k,200) * lu(k,518) - lu(k,534) = lu(k,534) - lu(k,201) * lu(k,518) - lu(k,535) = lu(k,535) - lu(k,202) * lu(k,518) - lu(k,536) = lu(k,536) - lu(k,203) * lu(k,518) - lu(k,558) = lu(k,558) - lu(k,195) * lu(k,557) - lu(k,560) = lu(k,560) - lu(k,196) * lu(k,557) - lu(k,561) = lu(k,561) - lu(k,197) * lu(k,557) - lu(k,565) = lu(k,565) - lu(k,198) * lu(k,557) - lu(k,566) = lu(k,566) - lu(k,199) * lu(k,557) - lu(k,568) = lu(k,568) - lu(k,200) * lu(k,557) - lu(k,573) = lu(k,573) - lu(k,201) * lu(k,557) - lu(k,574) = lu(k,574) - lu(k,202) * lu(k,557) - lu(k,575) = lu(k,575) - lu(k,203) * lu(k,557) - lu(k,206) = 1._r8 / lu(k,206) - lu(k,207) = lu(k,207) * lu(k,206) - lu(k,208) = lu(k,208) * lu(k,206) - lu(k,209) = lu(k,209) * lu(k,206) - lu(k,210) = lu(k,210) * lu(k,206) - lu(k,211) = lu(k,211) * lu(k,206) - lu(k,212) = lu(k,212) * lu(k,206) - lu(k,213) = lu(k,213) * lu(k,206) - lu(k,238) = lu(k,238) - lu(k,207) * lu(k,237) - lu(k,239) = lu(k,239) - lu(k,208) * lu(k,237) - lu(k,240) = - lu(k,209) * lu(k,237) - lu(k,242) = lu(k,242) - lu(k,210) * lu(k,237) - lu(k,243) = lu(k,243) - lu(k,211) * lu(k,237) - lu(k,245) = lu(k,245) - lu(k,212) * lu(k,237) - lu(k,246) = lu(k,246) - lu(k,213) * lu(k,237) - lu(k,253) = lu(k,253) - lu(k,207) * lu(k,252) - lu(k,255) = lu(k,255) - lu(k,208) * lu(k,252) - lu(k,258) = lu(k,258) - lu(k,209) * lu(k,252) - lu(k,261) = - lu(k,210) * lu(k,252) - lu(k,263) = lu(k,263) - lu(k,211) * lu(k,252) - lu(k,265) = lu(k,265) - lu(k,212) * lu(k,252) - lu(k,266) = - lu(k,213) * lu(k,252) - lu(k,270) = lu(k,270) - lu(k,207) * lu(k,269) - lu(k,273) = lu(k,273) - lu(k,208) * lu(k,269) - lu(k,277) = - lu(k,209) * lu(k,269) - lu(k,280) = - lu(k,210) * lu(k,269) - lu(k,282) = lu(k,282) - lu(k,211) * lu(k,269) - lu(k,284) = lu(k,284) - lu(k,212) * lu(k,269) - lu(k,285) = lu(k,285) - lu(k,213) * lu(k,269) - lu(k,327) = lu(k,327) - lu(k,207) * lu(k,325) - lu(k,330) = lu(k,330) - lu(k,208) * lu(k,325) - lu(k,335) = lu(k,335) - lu(k,209) * lu(k,325) - lu(k,338) = lu(k,338) - lu(k,210) * lu(k,325) - lu(k,340) = lu(k,340) - lu(k,211) * lu(k,325) - lu(k,342) = lu(k,342) - lu(k,212) * lu(k,325) - lu(k,343) = lu(k,343) - lu(k,213) * lu(k,325) - lu(k,353) = lu(k,353) - lu(k,207) * lu(k,351) - lu(k,356) = - lu(k,208) * lu(k,351) - lu(k,361) = lu(k,361) - lu(k,209) * lu(k,351) - lu(k,364) = lu(k,364) - lu(k,210) * lu(k,351) - lu(k,366) = lu(k,366) - lu(k,211) * lu(k,351) - lu(k,368) = lu(k,368) - lu(k,212) * lu(k,351) - lu(k,369) = - lu(k,213) * lu(k,351) - lu(k,404) = lu(k,404) - lu(k,207) * lu(k,402) - lu(k,406) = lu(k,406) - lu(k,208) * lu(k,402) - lu(k,411) = lu(k,411) - lu(k,209) * lu(k,402) - lu(k,414) = - lu(k,210) * lu(k,402) - lu(k,416) = lu(k,416) - lu(k,211) * lu(k,402) - lu(k,418) = lu(k,418) - lu(k,212) * lu(k,402) - lu(k,419) = - lu(k,213) * lu(k,402) - lu(k,428) = lu(k,428) - lu(k,207) * lu(k,426) - lu(k,431) = lu(k,431) - lu(k,208) * lu(k,426) - lu(k,436) = - lu(k,209) * lu(k,426) - lu(k,439) = lu(k,439) - lu(k,210) * lu(k,426) - lu(k,441) = lu(k,441) - lu(k,211) * lu(k,426) - lu(k,443) = lu(k,443) - lu(k,212) * lu(k,426) - lu(k,444) = lu(k,444) - lu(k,213) * lu(k,426) - lu(k,491) = lu(k,491) - lu(k,207) * lu(k,489) - lu(k,493) = - lu(k,208) * lu(k,489) - lu(k,498) = lu(k,498) - lu(k,209) * lu(k,489) - lu(k,501) = - lu(k,210) * lu(k,489) - lu(k,503) = lu(k,503) - lu(k,211) * lu(k,489) - lu(k,505) = lu(k,505) - lu(k,212) * lu(k,489) - lu(k,506) = - lu(k,213) * lu(k,489) - lu(k,521) = lu(k,521) - lu(k,207) * lu(k,519) - lu(k,524) = lu(k,524) - lu(k,208) * lu(k,519) - lu(k,529) = lu(k,529) - lu(k,209) * lu(k,519) - lu(k,532) = lu(k,532) - lu(k,210) * lu(k,519) - lu(k,534) = lu(k,534) - lu(k,211) * lu(k,519) - lu(k,536) = lu(k,536) - lu(k,212) * lu(k,519) - lu(k,537) = lu(k,537) - lu(k,213) * lu(k,519) - lu(k,560) = lu(k,560) - lu(k,207) * lu(k,558) - lu(k,563) = lu(k,563) - lu(k,208) * lu(k,558) - lu(k,568) = lu(k,568) - lu(k,209) * lu(k,558) - lu(k,571) = - lu(k,210) * lu(k,558) - lu(k,573) = lu(k,573) - lu(k,211) * lu(k,558) - lu(k,575) = lu(k,575) - lu(k,212) * lu(k,558) - lu(k,576) = lu(k,576) - lu(k,213) * lu(k,558) - lu(k,582) = - lu(k,207) * lu(k,580) - lu(k,584) = lu(k,584) - lu(k,208) * lu(k,580) - lu(k,589) = lu(k,589) - lu(k,209) * lu(k,580) - lu(k,592) = - lu(k,210) * lu(k,580) - lu(k,594) = lu(k,594) - lu(k,211) * lu(k,580) - lu(k,596) = lu(k,596) - lu(k,212) * lu(k,580) - lu(k,597) = - lu(k,213) * lu(k,580) - lu(k,602) = lu(k,602) - lu(k,207) * lu(k,601) - lu(k,604) = lu(k,604) - lu(k,208) * lu(k,601) - lu(k,609) = - lu(k,209) * lu(k,601) - lu(k,612) = lu(k,612) - lu(k,210) * lu(k,601) - lu(k,614) = lu(k,614) - lu(k,211) * lu(k,601) - lu(k,616) = lu(k,616) - lu(k,212) * lu(k,601) - lu(k,617) = lu(k,617) - lu(k,213) * lu(k,601) + lu(k,178) = 1._r8 / lu(k,178) + lu(k,179) = lu(k,179) * lu(k,178) + lu(k,180) = lu(k,180) * lu(k,178) + lu(k,181) = lu(k,181) * lu(k,178) + lu(k,182) = lu(k,182) * lu(k,178) + lu(k,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,186) = lu(k,186) * lu(k,178) + lu(k,193) = lu(k,193) - lu(k,179) * lu(k,192) + lu(k,194) = lu(k,194) - lu(k,180) * lu(k,192) + lu(k,195) = lu(k,195) - lu(k,181) * lu(k,192) + lu(k,196) = lu(k,196) - lu(k,182) * lu(k,192) + lu(k,197) = lu(k,197) - lu(k,183) * lu(k,192) + lu(k,199) = lu(k,199) - lu(k,184) * lu(k,192) + lu(k,200) = lu(k,200) - lu(k,185) * lu(k,192) + lu(k,201) = lu(k,201) - lu(k,186) * lu(k,192) + lu(k,235) = lu(k,235) - lu(k,179) * lu(k,234) + lu(k,236) = lu(k,236) - lu(k,180) * lu(k,234) + lu(k,237) = lu(k,237) - lu(k,181) * lu(k,234) + lu(k,238) = lu(k,238) - lu(k,182) * lu(k,234) + 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,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) + lu(k,196) = lu(k,196) * lu(k,193) + lu(k,197) = lu(k,197) * lu(k,193) + lu(k,198) = lu(k,198) * lu(k,193) + lu(k,199) = lu(k,199) * lu(k,193) + lu(k,200) = lu(k,200) * lu(k,193) + lu(k,201) = lu(k,201) * lu(k,193) + lu(k,236) = lu(k,236) - lu(k,194) * lu(k,235) + lu(k,237) = lu(k,237) - lu(k,195) * lu(k,235) + lu(k,238) = lu(k,238) - lu(k,196) * lu(k,235) + lu(k,239) = lu(k,239) - lu(k,197) * lu(k,235) + 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,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) + lu(k,207) = lu(k,207) * lu(k,204) + lu(k,208) = lu(k,208) * lu(k,204) + lu(k,209) = lu(k,209) * lu(k,204) + lu(k,210) = lu(k,210) * lu(k,204) + lu(k,211) = lu(k,211) * lu(k,204) + lu(k,212) = lu(k,212) * lu(k,204) + lu(k,213) = lu(k,213) * lu(k,204) + 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,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) + lu(k,219) = lu(k,219) * lu(k,216) + lu(k,220) = lu(k,220) * lu(k,216) + lu(k,221) = lu(k,221) * lu(k,216) + lu(k,222) = lu(k,222) * lu(k,216) + lu(k,223) = lu(k,223) * lu(k,216) + 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,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,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,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,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,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 ) @@ -1005,389 +1071,389 @@ subroutine lu_fac06( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,226) = 1._r8 / lu(k,226) - lu(k,227) = lu(k,227) * lu(k,226) - lu(k,228) = lu(k,228) * lu(k,226) - lu(k,229) = lu(k,229) * lu(k,226) - lu(k,230) = lu(k,230) * lu(k,226) - lu(k,231) = lu(k,231) * lu(k,226) - lu(k,232) = lu(k,232) * lu(k,226) - lu(k,233) = lu(k,233) * lu(k,226) - lu(k,234) = lu(k,234) * lu(k,226) - lu(k,288) = lu(k,288) - lu(k,227) * lu(k,286) - lu(k,289) = - lu(k,228) * lu(k,286) - lu(k,290) = lu(k,290) - lu(k,229) * lu(k,286) - lu(k,291) = - lu(k,230) * lu(k,286) - lu(k,292) = - lu(k,231) * lu(k,286) - lu(k,294) = lu(k,294) - lu(k,232) * lu(k,286) - lu(k,295) = lu(k,295) - lu(k,233) * lu(k,286) - lu(k,298) = lu(k,298) - lu(k,234) * lu(k,286) - lu(k,305) = lu(k,305) - lu(k,227) * lu(k,303) - lu(k,306) = lu(k,306) - lu(k,228) * lu(k,303) - lu(k,309) = lu(k,309) - lu(k,229) * lu(k,303) - lu(k,310) = lu(k,310) - lu(k,230) * lu(k,303) - lu(k,311) = lu(k,311) - lu(k,231) * lu(k,303) - lu(k,315) = lu(k,315) - lu(k,232) * lu(k,303) - lu(k,316) = lu(k,316) - lu(k,233) * lu(k,303) - lu(k,319) = lu(k,319) - lu(k,234) * lu(k,303) - lu(k,330) = lu(k,330) - lu(k,227) * lu(k,326) - lu(k,331) = - lu(k,228) * lu(k,326) - lu(k,334) = lu(k,334) - lu(k,229) * lu(k,326) - lu(k,335) = lu(k,335) - lu(k,230) * lu(k,326) - lu(k,336) = - lu(k,231) * lu(k,326) - lu(k,340) = lu(k,340) - lu(k,232) * lu(k,326) - lu(k,341) = lu(k,341) - lu(k,233) * lu(k,326) - lu(k,344) = lu(k,344) - lu(k,234) * lu(k,326) - lu(k,356) = lu(k,356) - lu(k,227) * lu(k,352) - lu(k,357) = lu(k,357) - lu(k,228) * lu(k,352) - lu(k,360) = lu(k,360) - lu(k,229) * lu(k,352) - lu(k,361) = lu(k,361) - lu(k,230) * lu(k,352) - lu(k,362) = - lu(k,231) * lu(k,352) - lu(k,366) = lu(k,366) - lu(k,232) * lu(k,352) - lu(k,367) = lu(k,367) - lu(k,233) * lu(k,352) - lu(k,370) = - lu(k,234) * lu(k,352) - lu(k,381) = lu(k,381) - lu(k,227) * lu(k,377) - lu(k,382) = lu(k,382) - lu(k,228) * lu(k,377) - lu(k,385) = lu(k,385) - lu(k,229) * lu(k,377) - lu(k,386) = lu(k,386) - lu(k,230) * lu(k,377) - lu(k,387) = lu(k,387) - lu(k,231) * lu(k,377) - lu(k,391) = lu(k,391) - lu(k,232) * lu(k,377) - lu(k,392) = lu(k,392) - lu(k,233) * lu(k,377) - lu(k,395) = lu(k,395) - lu(k,234) * lu(k,377) - lu(k,406) = lu(k,406) - lu(k,227) * lu(k,403) - lu(k,407) = lu(k,407) - lu(k,228) * lu(k,403) - lu(k,410) = lu(k,410) - lu(k,229) * lu(k,403) - lu(k,411) = lu(k,411) - lu(k,230) * lu(k,403) - lu(k,412) = lu(k,412) - lu(k,231) * lu(k,403) - lu(k,416) = lu(k,416) - lu(k,232) * lu(k,403) - lu(k,417) = lu(k,417) - lu(k,233) * lu(k,403) - lu(k,420) = lu(k,420) - lu(k,234) * lu(k,403) - lu(k,431) = lu(k,431) - lu(k,227) * lu(k,427) - lu(k,432) = lu(k,432) - lu(k,228) * lu(k,427) - lu(k,435) = lu(k,435) - lu(k,229) * lu(k,427) - lu(k,436) = lu(k,436) - lu(k,230) * lu(k,427) - lu(k,437) = lu(k,437) - lu(k,231) * lu(k,427) - lu(k,441) = lu(k,441) - lu(k,232) * lu(k,427) - lu(k,442) = lu(k,442) - lu(k,233) * lu(k,427) - lu(k,445) = lu(k,445) - lu(k,234) * lu(k,427) - lu(k,451) = lu(k,451) - lu(k,227) * lu(k,448) - lu(k,452) = - lu(k,228) * lu(k,448) - lu(k,455) = lu(k,455) - lu(k,229) * lu(k,448) - lu(k,456) = - lu(k,230) * lu(k,448) - lu(k,457) = lu(k,457) - lu(k,231) * lu(k,448) - lu(k,461) = lu(k,461) - lu(k,232) * lu(k,448) - lu(k,462) = lu(k,462) - lu(k,233) * lu(k,448) - lu(k,465) = lu(k,465) - lu(k,234) * lu(k,448) - lu(k,470) = lu(k,470) - lu(k,227) * lu(k,467) - lu(k,471) = lu(k,471) - lu(k,228) * lu(k,467) - lu(k,474) = lu(k,474) - lu(k,229) * lu(k,467) - lu(k,475) = lu(k,475) - lu(k,230) * lu(k,467) - lu(k,476) = - lu(k,231) * lu(k,467) - lu(k,480) = lu(k,480) - lu(k,232) * lu(k,467) - lu(k,481) = - lu(k,233) * lu(k,467) - lu(k,484) = - lu(k,234) * lu(k,467) - lu(k,493) = lu(k,493) - lu(k,227) * lu(k,490) - lu(k,494) = lu(k,494) - lu(k,228) * lu(k,490) - lu(k,497) = lu(k,497) - lu(k,229) * lu(k,490) - lu(k,498) = lu(k,498) - lu(k,230) * lu(k,490) - lu(k,499) = - lu(k,231) * lu(k,490) - lu(k,503) = lu(k,503) - lu(k,232) * lu(k,490) - lu(k,504) = lu(k,504) - lu(k,233) * lu(k,490) - lu(k,507) = - lu(k,234) * lu(k,490) - lu(k,524) = lu(k,524) - lu(k,227) * lu(k,520) - lu(k,525) = lu(k,525) - lu(k,228) * lu(k,520) - lu(k,528) = lu(k,528) - lu(k,229) * lu(k,520) - lu(k,529) = lu(k,529) - lu(k,230) * lu(k,520) - lu(k,530) = lu(k,530) - lu(k,231) * lu(k,520) - lu(k,534) = lu(k,534) - lu(k,232) * lu(k,520) - lu(k,535) = lu(k,535) - lu(k,233) * lu(k,520) - lu(k,538) = lu(k,538) - lu(k,234) * lu(k,520) - lu(k,563) = lu(k,563) - lu(k,227) * lu(k,559) - lu(k,564) = lu(k,564) - lu(k,228) * lu(k,559) - lu(k,567) = lu(k,567) - lu(k,229) * lu(k,559) - lu(k,568) = lu(k,568) - lu(k,230) * lu(k,559) - lu(k,569) = lu(k,569) - lu(k,231) * lu(k,559) - lu(k,573) = lu(k,573) - lu(k,232) * lu(k,559) - lu(k,574) = lu(k,574) - lu(k,233) * lu(k,559) - lu(k,577) = lu(k,577) - lu(k,234) * lu(k,559) - lu(k,584) = lu(k,584) - lu(k,227) * lu(k,581) - lu(k,585) = lu(k,585) - lu(k,228) * lu(k,581) - lu(k,588) = lu(k,588) - lu(k,229) * lu(k,581) - lu(k,589) = lu(k,589) - lu(k,230) * lu(k,581) - lu(k,590) = - lu(k,231) * lu(k,581) - lu(k,594) = lu(k,594) - lu(k,232) * lu(k,581) - lu(k,595) = lu(k,595) - lu(k,233) * lu(k,581) - lu(k,598) = - lu(k,234) * lu(k,581) - lu(k,622) = lu(k,622) - lu(k,227) * lu(k,621) - lu(k,623) = lu(k,623) - lu(k,228) * lu(k,621) - lu(k,626) = lu(k,626) - lu(k,229) * lu(k,621) - lu(k,627) = lu(k,627) - lu(k,230) * lu(k,621) - lu(k,628) = lu(k,628) - lu(k,231) * lu(k,621) - lu(k,632) = lu(k,632) - lu(k,232) * lu(k,621) - lu(k,633) = lu(k,633) - lu(k,233) * lu(k,621) - lu(k,636) = lu(k,636) - lu(k,234) * lu(k,621) - 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,246) = lu(k,246) * lu(k,238) - lu(k,255) = lu(k,255) - lu(k,239) * lu(k,253) - lu(k,258) = lu(k,258) - lu(k,240) * lu(k,253) - lu(k,259) = lu(k,259) - lu(k,241) * lu(k,253) - lu(k,261) = lu(k,261) - lu(k,242) * lu(k,253) - lu(k,263) = lu(k,263) - lu(k,243) * lu(k,253) - lu(k,264) = lu(k,264) - lu(k,244) * lu(k,253) - lu(k,265) = lu(k,265) - lu(k,245) * lu(k,253) - lu(k,266) = lu(k,266) - lu(k,246) * lu(k,253) - lu(k,273) = lu(k,273) - lu(k,239) * lu(k,270) - lu(k,277) = lu(k,277) - lu(k,240) * lu(k,270) - lu(k,278) = lu(k,278) - lu(k,241) * lu(k,270) - lu(k,280) = lu(k,280) - lu(k,242) * lu(k,270) - lu(k,282) = lu(k,282) - lu(k,243) * lu(k,270) - lu(k,283) = lu(k,283) - lu(k,244) * lu(k,270) - lu(k,284) = lu(k,284) - lu(k,245) * lu(k,270) - lu(k,285) = lu(k,285) - lu(k,246) * lu(k,270) - lu(k,288) = lu(k,288) - lu(k,239) * lu(k,287) - lu(k,291) = lu(k,291) - lu(k,240) * lu(k,287) - lu(k,292) = lu(k,292) - lu(k,241) * lu(k,287) - lu(k,293) = - lu(k,242) * lu(k,287) - lu(k,294) = lu(k,294) - lu(k,243) * lu(k,287) - lu(k,295) = lu(k,295) - lu(k,244) * lu(k,287) - lu(k,296) = - lu(k,245) * lu(k,287) - lu(k,297) = lu(k,297) - lu(k,246) * lu(k,287) - lu(k,330) = lu(k,330) - lu(k,239) * lu(k,327) - lu(k,335) = lu(k,335) - lu(k,240) * lu(k,327) - lu(k,336) = lu(k,336) - lu(k,241) * lu(k,327) - lu(k,338) = lu(k,338) - lu(k,242) * lu(k,327) - lu(k,340) = lu(k,340) - lu(k,243) * lu(k,327) - lu(k,341) = lu(k,341) - lu(k,244) * lu(k,327) - lu(k,342) = lu(k,342) - lu(k,245) * lu(k,327) - lu(k,343) = lu(k,343) - lu(k,246) * lu(k,327) - lu(k,356) = lu(k,356) - lu(k,239) * lu(k,353) - lu(k,361) = lu(k,361) - lu(k,240) * lu(k,353) - lu(k,362) = lu(k,362) - lu(k,241) * lu(k,353) - lu(k,364) = lu(k,364) - lu(k,242) * lu(k,353) - lu(k,366) = lu(k,366) - lu(k,243) * lu(k,353) - lu(k,367) = lu(k,367) - lu(k,244) * lu(k,353) - lu(k,368) = lu(k,368) - lu(k,245) * lu(k,353) - lu(k,369) = lu(k,369) - lu(k,246) * lu(k,353) - lu(k,381) = lu(k,381) - lu(k,239) * lu(k,378) - lu(k,386) = lu(k,386) - lu(k,240) * lu(k,378) - lu(k,387) = lu(k,387) - lu(k,241) * lu(k,378) - lu(k,389) = lu(k,389) - lu(k,242) * lu(k,378) - lu(k,391) = lu(k,391) - lu(k,243) * lu(k,378) - lu(k,392) = lu(k,392) - lu(k,244) * lu(k,378) - lu(k,393) = lu(k,393) - lu(k,245) * lu(k,378) - lu(k,394) = lu(k,394) - lu(k,246) * lu(k,378) - lu(k,406) = lu(k,406) - lu(k,239) * lu(k,404) - lu(k,411) = lu(k,411) - lu(k,240) * lu(k,404) - lu(k,412) = lu(k,412) - lu(k,241) * lu(k,404) - lu(k,414) = lu(k,414) - lu(k,242) * lu(k,404) - lu(k,416) = lu(k,416) - lu(k,243) * lu(k,404) - lu(k,417) = lu(k,417) - lu(k,244) * lu(k,404) - lu(k,418) = lu(k,418) - lu(k,245) * lu(k,404) - lu(k,419) = lu(k,419) - lu(k,246) * lu(k,404) - lu(k,431) = lu(k,431) - lu(k,239) * lu(k,428) - lu(k,436) = lu(k,436) - lu(k,240) * lu(k,428) - lu(k,437) = lu(k,437) - lu(k,241) * lu(k,428) - lu(k,439) = lu(k,439) - lu(k,242) * lu(k,428) - lu(k,441) = lu(k,441) - lu(k,243) * lu(k,428) - lu(k,442) = lu(k,442) - lu(k,244) * lu(k,428) - lu(k,443) = lu(k,443) - lu(k,245) * lu(k,428) - lu(k,444) = lu(k,444) - lu(k,246) * lu(k,428) - lu(k,451) = lu(k,451) - lu(k,239) * lu(k,449) - lu(k,456) = lu(k,456) - lu(k,240) * lu(k,449) - lu(k,457) = lu(k,457) - lu(k,241) * lu(k,449) - lu(k,459) = - lu(k,242) * lu(k,449) - lu(k,461) = lu(k,461) - lu(k,243) * lu(k,449) - lu(k,462) = lu(k,462) - lu(k,244) * lu(k,449) - lu(k,463) = - lu(k,245) * lu(k,449) - lu(k,464) = - lu(k,246) * lu(k,449) - lu(k,470) = lu(k,470) - lu(k,239) * lu(k,468) - lu(k,475) = lu(k,475) - lu(k,240) * lu(k,468) - lu(k,476) = lu(k,476) - lu(k,241) * lu(k,468) - lu(k,478) = lu(k,478) - lu(k,242) * lu(k,468) - lu(k,480) = lu(k,480) - lu(k,243) * lu(k,468) - lu(k,481) = lu(k,481) - lu(k,244) * lu(k,468) - lu(k,482) = - lu(k,245) * lu(k,468) - lu(k,483) = - lu(k,246) * lu(k,468) - lu(k,493) = lu(k,493) - lu(k,239) * lu(k,491) - lu(k,498) = lu(k,498) - lu(k,240) * lu(k,491) - lu(k,499) = lu(k,499) - lu(k,241) * lu(k,491) - lu(k,501) = lu(k,501) - lu(k,242) * lu(k,491) - lu(k,503) = lu(k,503) - lu(k,243) * lu(k,491) - lu(k,504) = lu(k,504) - lu(k,244) * lu(k,491) - lu(k,505) = lu(k,505) - lu(k,245) * lu(k,491) - lu(k,506) = lu(k,506) - lu(k,246) * lu(k,491) - lu(k,524) = lu(k,524) - lu(k,239) * lu(k,521) - lu(k,529) = lu(k,529) - lu(k,240) * lu(k,521) - lu(k,530) = lu(k,530) - lu(k,241) * lu(k,521) - lu(k,532) = lu(k,532) - lu(k,242) * lu(k,521) - lu(k,534) = lu(k,534) - lu(k,243) * lu(k,521) - lu(k,535) = lu(k,535) - lu(k,244) * lu(k,521) - lu(k,536) = lu(k,536) - lu(k,245) * lu(k,521) - lu(k,537) = lu(k,537) - lu(k,246) * lu(k,521) - lu(k,563) = lu(k,563) - lu(k,239) * lu(k,560) - lu(k,568) = lu(k,568) - lu(k,240) * lu(k,560) - lu(k,569) = lu(k,569) - lu(k,241) * lu(k,560) - lu(k,571) = lu(k,571) - lu(k,242) * lu(k,560) - lu(k,573) = lu(k,573) - lu(k,243) * lu(k,560) - lu(k,574) = lu(k,574) - lu(k,244) * lu(k,560) - lu(k,575) = lu(k,575) - lu(k,245) * lu(k,560) - lu(k,576) = lu(k,576) - lu(k,246) * lu(k,560) - lu(k,584) = lu(k,584) - lu(k,239) * lu(k,582) - lu(k,589) = lu(k,589) - lu(k,240) * lu(k,582) - lu(k,590) = lu(k,590) - lu(k,241) * lu(k,582) - lu(k,592) = lu(k,592) - lu(k,242) * lu(k,582) - lu(k,594) = lu(k,594) - lu(k,243) * lu(k,582) - lu(k,595) = lu(k,595) - lu(k,244) * lu(k,582) - lu(k,596) = lu(k,596) - lu(k,245) * lu(k,582) - lu(k,597) = lu(k,597) - lu(k,246) * lu(k,582) - lu(k,604) = lu(k,604) - lu(k,239) * lu(k,602) - lu(k,609) = lu(k,609) - lu(k,240) * lu(k,602) - lu(k,610) = lu(k,610) - lu(k,241) * lu(k,602) - lu(k,612) = lu(k,612) - lu(k,242) * lu(k,602) - lu(k,614) = lu(k,614) - lu(k,243) * lu(k,602) - lu(k,615) = lu(k,615) - lu(k,244) * lu(k,602) - lu(k,616) = lu(k,616) - lu(k,245) * lu(k,602) - lu(k,617) = lu(k,617) - lu(k,246) * lu(k,602) - lu(k,254) = 1._r8 / lu(k,254) - lu(k,255) = lu(k,255) * lu(k,254) - lu(k,256) = lu(k,256) * lu(k,254) - lu(k,257) = lu(k,257) * lu(k,254) - lu(k,258) = lu(k,258) * lu(k,254) - lu(k,259) = lu(k,259) * lu(k,254) - lu(k,260) = lu(k,260) * lu(k,254) - lu(k,261) = lu(k,261) * lu(k,254) - lu(k,262) = lu(k,262) * lu(k,254) - lu(k,263) = lu(k,263) * lu(k,254) - lu(k,264) = lu(k,264) * lu(k,254) - lu(k,265) = lu(k,265) * lu(k,254) - lu(k,266) = lu(k,266) * lu(k,254) - lu(k,273) = lu(k,273) - lu(k,255) * lu(k,271) - lu(k,274) = lu(k,274) - lu(k,256) * lu(k,271) - lu(k,275) = - lu(k,257) * lu(k,271) - lu(k,277) = lu(k,277) - lu(k,258) * lu(k,271) - lu(k,278) = lu(k,278) - lu(k,259) * lu(k,271) - lu(k,279) = lu(k,279) - lu(k,260) * lu(k,271) - lu(k,280) = lu(k,280) - lu(k,261) * lu(k,271) - lu(k,281) = lu(k,281) - lu(k,262) * lu(k,271) - lu(k,282) = lu(k,282) - lu(k,263) * lu(k,271) - lu(k,283) = lu(k,283) - lu(k,264) * lu(k,271) - lu(k,284) = lu(k,284) - lu(k,265) * lu(k,271) - lu(k,285) = lu(k,285) - lu(k,266) * lu(k,271) - lu(k,330) = lu(k,330) - lu(k,255) * lu(k,328) - lu(k,332) = lu(k,332) - lu(k,256) * lu(k,328) - lu(k,333) = lu(k,333) - lu(k,257) * lu(k,328) - lu(k,335) = lu(k,335) - lu(k,258) * lu(k,328) - lu(k,336) = lu(k,336) - lu(k,259) * lu(k,328) - lu(k,337) = lu(k,337) - lu(k,260) * lu(k,328) - lu(k,338) = lu(k,338) - lu(k,261) * lu(k,328) - lu(k,339) = - lu(k,262) * lu(k,328) - lu(k,340) = lu(k,340) - lu(k,263) * lu(k,328) - lu(k,341) = lu(k,341) - lu(k,264) * lu(k,328) - lu(k,342) = lu(k,342) - lu(k,265) * lu(k,328) - lu(k,343) = lu(k,343) - lu(k,266) * lu(k,328) - lu(k,356) = lu(k,356) - lu(k,255) * lu(k,354) - lu(k,358) = lu(k,358) - lu(k,256) * lu(k,354) - lu(k,359) = lu(k,359) - lu(k,257) * lu(k,354) - lu(k,361) = lu(k,361) - lu(k,258) * lu(k,354) - lu(k,362) = lu(k,362) - lu(k,259) * lu(k,354) - lu(k,363) = lu(k,363) - lu(k,260) * lu(k,354) - lu(k,364) = lu(k,364) - lu(k,261) * lu(k,354) - lu(k,365) = lu(k,365) - lu(k,262) * lu(k,354) - lu(k,366) = lu(k,366) - lu(k,263) * lu(k,354) - lu(k,367) = lu(k,367) - lu(k,264) * lu(k,354) - lu(k,368) = lu(k,368) - lu(k,265) * lu(k,354) - lu(k,369) = lu(k,369) - lu(k,266) * lu(k,354) - lu(k,381) = lu(k,381) - lu(k,255) * lu(k,379) - lu(k,383) = lu(k,383) - lu(k,256) * lu(k,379) - lu(k,384) = lu(k,384) - lu(k,257) * lu(k,379) - lu(k,386) = lu(k,386) - lu(k,258) * lu(k,379) - lu(k,387) = lu(k,387) - lu(k,259) * lu(k,379) - lu(k,388) = lu(k,388) - lu(k,260) * lu(k,379) - lu(k,389) = lu(k,389) - lu(k,261) * lu(k,379) - lu(k,390) = lu(k,390) - lu(k,262) * lu(k,379) - lu(k,391) = lu(k,391) - lu(k,263) * lu(k,379) - lu(k,392) = lu(k,392) - lu(k,264) * lu(k,379) - lu(k,393) = lu(k,393) - lu(k,265) * lu(k,379) - lu(k,394) = lu(k,394) - lu(k,266) * lu(k,379) - lu(k,406) = lu(k,406) - lu(k,255) * lu(k,405) - lu(k,408) = lu(k,408) - lu(k,256) * lu(k,405) - lu(k,409) = lu(k,409) - lu(k,257) * lu(k,405) - lu(k,411) = lu(k,411) - lu(k,258) * lu(k,405) - lu(k,412) = lu(k,412) - lu(k,259) * lu(k,405) - lu(k,413) = lu(k,413) - lu(k,260) * lu(k,405) - lu(k,414) = lu(k,414) - lu(k,261) * lu(k,405) - lu(k,415) = lu(k,415) - lu(k,262) * lu(k,405) - lu(k,416) = lu(k,416) - lu(k,263) * lu(k,405) - lu(k,417) = lu(k,417) - lu(k,264) * lu(k,405) - lu(k,418) = lu(k,418) - lu(k,265) * lu(k,405) - lu(k,419) = lu(k,419) - lu(k,266) * lu(k,405) - lu(k,431) = lu(k,431) - lu(k,255) * lu(k,429) - lu(k,433) = lu(k,433) - lu(k,256) * lu(k,429) - lu(k,434) = lu(k,434) - lu(k,257) * lu(k,429) - lu(k,436) = lu(k,436) - lu(k,258) * lu(k,429) - lu(k,437) = lu(k,437) - lu(k,259) * lu(k,429) - lu(k,438) = lu(k,438) - lu(k,260) * lu(k,429) - lu(k,439) = lu(k,439) - lu(k,261) * lu(k,429) - lu(k,440) = lu(k,440) - lu(k,262) * lu(k,429) - lu(k,441) = lu(k,441) - lu(k,263) * lu(k,429) - lu(k,442) = lu(k,442) - lu(k,264) * lu(k,429) - lu(k,443) = lu(k,443) - lu(k,265) * lu(k,429) - lu(k,444) = lu(k,444) - lu(k,266) * lu(k,429) - lu(k,493) = lu(k,493) - lu(k,255) * lu(k,492) - lu(k,495) = lu(k,495) - lu(k,256) * lu(k,492) - lu(k,496) = lu(k,496) - lu(k,257) * lu(k,492) - lu(k,498) = lu(k,498) - lu(k,258) * lu(k,492) - lu(k,499) = lu(k,499) - lu(k,259) * lu(k,492) - lu(k,500) = lu(k,500) - lu(k,260) * lu(k,492) - lu(k,501) = lu(k,501) - lu(k,261) * lu(k,492) - lu(k,502) = lu(k,502) - lu(k,262) * lu(k,492) - lu(k,503) = lu(k,503) - lu(k,263) * lu(k,492) - lu(k,504) = lu(k,504) - lu(k,264) * lu(k,492) - lu(k,505) = lu(k,505) - lu(k,265) * lu(k,492) - lu(k,506) = lu(k,506) - lu(k,266) * lu(k,492) - lu(k,524) = lu(k,524) - lu(k,255) * lu(k,522) - lu(k,526) = lu(k,526) - lu(k,256) * lu(k,522) - lu(k,527) = lu(k,527) - lu(k,257) * lu(k,522) - lu(k,529) = lu(k,529) - lu(k,258) * lu(k,522) - lu(k,530) = lu(k,530) - lu(k,259) * lu(k,522) - lu(k,531) = lu(k,531) - lu(k,260) * lu(k,522) - lu(k,532) = lu(k,532) - lu(k,261) * lu(k,522) - lu(k,533) = lu(k,533) - lu(k,262) * lu(k,522) - lu(k,534) = lu(k,534) - lu(k,263) * lu(k,522) - lu(k,535) = lu(k,535) - lu(k,264) * lu(k,522) - lu(k,536) = lu(k,536) - lu(k,265) * lu(k,522) - lu(k,537) = lu(k,537) - lu(k,266) * lu(k,522) - lu(k,563) = lu(k,563) - lu(k,255) * lu(k,561) - lu(k,565) = lu(k,565) - lu(k,256) * lu(k,561) - lu(k,566) = lu(k,566) - lu(k,257) * lu(k,561) - lu(k,568) = lu(k,568) - lu(k,258) * lu(k,561) - lu(k,569) = lu(k,569) - lu(k,259) * lu(k,561) - lu(k,570) = lu(k,570) - lu(k,260) * lu(k,561) - lu(k,571) = lu(k,571) - lu(k,261) * lu(k,561) - lu(k,572) = lu(k,572) - lu(k,262) * lu(k,561) - lu(k,573) = lu(k,573) - lu(k,263) * lu(k,561) - lu(k,574) = lu(k,574) - lu(k,264) * lu(k,561) - lu(k,575) = lu(k,575) - lu(k,265) * lu(k,561) - lu(k,576) = lu(k,576) - lu(k,266) * lu(k,561) - lu(k,604) = lu(k,604) - lu(k,255) * lu(k,603) - lu(k,606) = lu(k,606) - lu(k,256) * lu(k,603) - lu(k,607) = - lu(k,257) * lu(k,603) - lu(k,609) = lu(k,609) - lu(k,258) * lu(k,603) - lu(k,610) = lu(k,610) - lu(k,259) * lu(k,603) - lu(k,611) = - lu(k,260) * lu(k,603) - lu(k,612) = lu(k,612) - lu(k,261) * lu(k,603) - lu(k,613) = - lu(k,262) * lu(k,603) - lu(k,614) = lu(k,614) - lu(k,263) * lu(k,603) - lu(k,615) = lu(k,615) - lu(k,264) * lu(k,603) - lu(k,616) = lu(k,616) - lu(k,265) * lu(k,603) - lu(k,617) = lu(k,617) - lu(k,266) * lu(k,603) + lu(k,236) = 1._r8 / lu(k,236) + lu(k,237) = lu(k,237) * lu(k,236) + lu(k,238) = lu(k,238) * lu(k,236) + lu(k,239) = lu(k,239) * lu(k,236) + lu(k,240) = lu(k,240) * lu(k,236) + lu(k,241) = lu(k,241) * lu(k,236) + lu(k,242) = lu(k,242) * lu(k,236) + 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,299) = lu(k,299) - lu(k,238) * lu(k,296) + lu(k,301) = - lu(k,239) * 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,307) = lu(k,307) - lu(k,243) * lu(k,296) + lu(k,308) = lu(k,308) - lu(k,244) * lu(k,296) + 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,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) + lu(k,251) = lu(k,251) * lu(k,248) + lu(k,252) = lu(k,252) * lu(k,248) + lu(k,253) = lu(k,253) * lu(k,248) + lu(k,254) = lu(k,254) * lu(k,248) + 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,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,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,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,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,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,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) + 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,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,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,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 ) @@ -1404,484 +1470,484 @@ subroutine lu_fac07( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,272) = 1._r8 / lu(k,272) - lu(k,273) = lu(k,273) * lu(k,272) - lu(k,274) = lu(k,274) * lu(k,272) - lu(k,275) = lu(k,275) * lu(k,272) - lu(k,276) = lu(k,276) * lu(k,272) - lu(k,277) = lu(k,277) * lu(k,272) - lu(k,278) = lu(k,278) * lu(k,272) - lu(k,279) = lu(k,279) * lu(k,272) - lu(k,280) = lu(k,280) * lu(k,272) - lu(k,281) = lu(k,281) * lu(k,272) - lu(k,282) = lu(k,282) * lu(k,272) - lu(k,283) = lu(k,283) * lu(k,272) - lu(k,284) = lu(k,284) * lu(k,272) - lu(k,285) = lu(k,285) * lu(k,272) - lu(k,305) = lu(k,305) - lu(k,273) * lu(k,304) - lu(k,307) = lu(k,307) - lu(k,274) * lu(k,304) - lu(k,308) = lu(k,308) - lu(k,275) * lu(k,304) - lu(k,309) = lu(k,309) - lu(k,276) * lu(k,304) - lu(k,310) = lu(k,310) - lu(k,277) * lu(k,304) - lu(k,311) = lu(k,311) - lu(k,278) * lu(k,304) - lu(k,312) = lu(k,312) - lu(k,279) * lu(k,304) - lu(k,313) = lu(k,313) - lu(k,280) * lu(k,304) - lu(k,314) = lu(k,314) - lu(k,281) * lu(k,304) - lu(k,315) = lu(k,315) - lu(k,282) * lu(k,304) - lu(k,316) = lu(k,316) - lu(k,283) * lu(k,304) - lu(k,317) = lu(k,317) - lu(k,284) * lu(k,304) - lu(k,318) = - lu(k,285) * lu(k,304) - lu(k,330) = lu(k,330) - lu(k,273) * lu(k,329) - lu(k,332) = lu(k,332) - lu(k,274) * lu(k,329) - lu(k,333) = lu(k,333) - lu(k,275) * lu(k,329) - lu(k,334) = lu(k,334) - lu(k,276) * lu(k,329) - lu(k,335) = lu(k,335) - lu(k,277) * lu(k,329) - lu(k,336) = lu(k,336) - lu(k,278) * lu(k,329) - lu(k,337) = lu(k,337) - lu(k,279) * lu(k,329) - lu(k,338) = lu(k,338) - lu(k,280) * lu(k,329) - lu(k,339) = lu(k,339) - lu(k,281) * lu(k,329) - lu(k,340) = lu(k,340) - lu(k,282) * lu(k,329) - lu(k,341) = lu(k,341) - lu(k,283) * lu(k,329) - lu(k,342) = lu(k,342) - lu(k,284) * lu(k,329) - lu(k,343) = lu(k,343) - lu(k,285) * lu(k,329) - lu(k,356) = lu(k,356) - lu(k,273) * lu(k,355) - lu(k,358) = lu(k,358) - lu(k,274) * lu(k,355) - lu(k,359) = lu(k,359) - lu(k,275) * lu(k,355) - lu(k,360) = lu(k,360) - lu(k,276) * lu(k,355) - lu(k,361) = lu(k,361) - lu(k,277) * lu(k,355) - lu(k,362) = lu(k,362) - lu(k,278) * lu(k,355) - lu(k,363) = lu(k,363) - lu(k,279) * lu(k,355) - lu(k,364) = lu(k,364) - lu(k,280) * lu(k,355) - lu(k,365) = lu(k,365) - lu(k,281) * lu(k,355) - lu(k,366) = lu(k,366) - lu(k,282) * lu(k,355) - lu(k,367) = lu(k,367) - lu(k,283) * lu(k,355) - lu(k,368) = lu(k,368) - lu(k,284) * lu(k,355) - lu(k,369) = lu(k,369) - lu(k,285) * lu(k,355) - lu(k,381) = lu(k,381) - lu(k,273) * lu(k,380) - lu(k,383) = lu(k,383) - lu(k,274) * lu(k,380) - lu(k,384) = lu(k,384) - lu(k,275) * lu(k,380) - lu(k,385) = lu(k,385) - lu(k,276) * lu(k,380) - lu(k,386) = lu(k,386) - lu(k,277) * lu(k,380) - lu(k,387) = lu(k,387) - lu(k,278) * lu(k,380) - lu(k,388) = lu(k,388) - lu(k,279) * lu(k,380) - lu(k,389) = lu(k,389) - lu(k,280) * lu(k,380) - lu(k,390) = lu(k,390) - lu(k,281) * lu(k,380) - lu(k,391) = lu(k,391) - lu(k,282) * lu(k,380) - lu(k,392) = lu(k,392) - lu(k,283) * lu(k,380) - lu(k,393) = lu(k,393) - lu(k,284) * lu(k,380) - lu(k,394) = lu(k,394) - lu(k,285) * lu(k,380) - lu(k,431) = lu(k,431) - lu(k,273) * lu(k,430) - lu(k,433) = lu(k,433) - lu(k,274) * lu(k,430) - lu(k,434) = lu(k,434) - lu(k,275) * lu(k,430) - lu(k,435) = lu(k,435) - lu(k,276) * lu(k,430) - lu(k,436) = lu(k,436) - lu(k,277) * lu(k,430) - lu(k,437) = lu(k,437) - lu(k,278) * lu(k,430) - lu(k,438) = lu(k,438) - lu(k,279) * lu(k,430) - lu(k,439) = lu(k,439) - lu(k,280) * lu(k,430) - lu(k,440) = lu(k,440) - lu(k,281) * lu(k,430) - lu(k,441) = lu(k,441) - lu(k,282) * lu(k,430) - lu(k,442) = lu(k,442) - lu(k,283) * lu(k,430) - lu(k,443) = lu(k,443) - lu(k,284) * lu(k,430) - lu(k,444) = lu(k,444) - lu(k,285) * lu(k,430) - lu(k,451) = lu(k,451) - lu(k,273) * lu(k,450) - lu(k,453) = - lu(k,274) * lu(k,450) - lu(k,454) = - lu(k,275) * lu(k,450) - lu(k,455) = lu(k,455) - lu(k,276) * lu(k,450) - lu(k,456) = lu(k,456) - lu(k,277) * lu(k,450) - lu(k,457) = lu(k,457) - lu(k,278) * lu(k,450) - lu(k,458) = lu(k,458) - lu(k,279) * lu(k,450) - lu(k,459) = lu(k,459) - lu(k,280) * lu(k,450) - lu(k,460) = lu(k,460) - lu(k,281) * lu(k,450) - lu(k,461) = lu(k,461) - lu(k,282) * lu(k,450) - lu(k,462) = lu(k,462) - lu(k,283) * lu(k,450) - lu(k,463) = lu(k,463) - lu(k,284) * lu(k,450) - lu(k,464) = lu(k,464) - lu(k,285) * lu(k,450) - lu(k,470) = lu(k,470) - lu(k,273) * lu(k,469) - lu(k,472) = lu(k,472) - lu(k,274) * lu(k,469) - lu(k,473) = lu(k,473) - lu(k,275) * lu(k,469) - lu(k,474) = lu(k,474) - lu(k,276) * lu(k,469) - lu(k,475) = lu(k,475) - lu(k,277) * lu(k,469) - lu(k,476) = lu(k,476) - lu(k,278) * lu(k,469) - lu(k,477) = - lu(k,279) * lu(k,469) - lu(k,478) = lu(k,478) - lu(k,280) * lu(k,469) - lu(k,479) = - lu(k,281) * lu(k,469) - lu(k,480) = lu(k,480) - lu(k,282) * lu(k,469) - lu(k,481) = lu(k,481) - lu(k,283) * lu(k,469) - lu(k,482) = lu(k,482) - lu(k,284) * lu(k,469) - lu(k,483) = lu(k,483) - lu(k,285) * lu(k,469) - lu(k,524) = lu(k,524) - lu(k,273) * lu(k,523) - lu(k,526) = lu(k,526) - lu(k,274) * lu(k,523) - lu(k,527) = lu(k,527) - lu(k,275) * lu(k,523) - lu(k,528) = lu(k,528) - lu(k,276) * lu(k,523) - lu(k,529) = lu(k,529) - lu(k,277) * lu(k,523) - lu(k,530) = lu(k,530) - lu(k,278) * lu(k,523) - lu(k,531) = lu(k,531) - lu(k,279) * lu(k,523) - lu(k,532) = lu(k,532) - lu(k,280) * lu(k,523) - lu(k,533) = lu(k,533) - lu(k,281) * lu(k,523) - lu(k,534) = lu(k,534) - lu(k,282) * lu(k,523) - lu(k,535) = lu(k,535) - lu(k,283) * lu(k,523) - lu(k,536) = lu(k,536) - lu(k,284) * lu(k,523) - lu(k,537) = lu(k,537) - lu(k,285) * lu(k,523) - lu(k,563) = lu(k,563) - lu(k,273) * lu(k,562) - lu(k,565) = lu(k,565) - lu(k,274) * lu(k,562) - lu(k,566) = lu(k,566) - lu(k,275) * lu(k,562) - lu(k,567) = lu(k,567) - lu(k,276) * lu(k,562) - lu(k,568) = lu(k,568) - lu(k,277) * lu(k,562) - lu(k,569) = lu(k,569) - lu(k,278) * lu(k,562) - lu(k,570) = lu(k,570) - lu(k,279) * lu(k,562) - lu(k,571) = lu(k,571) - lu(k,280) * lu(k,562) - lu(k,572) = lu(k,572) - lu(k,281) * lu(k,562) - lu(k,573) = lu(k,573) - lu(k,282) * lu(k,562) - lu(k,574) = lu(k,574) - lu(k,283) * lu(k,562) - lu(k,575) = lu(k,575) - lu(k,284) * lu(k,562) - lu(k,576) = lu(k,576) - lu(k,285) * lu(k,562) - lu(k,584) = lu(k,584) - lu(k,273) * lu(k,583) - lu(k,586) = - lu(k,274) * lu(k,583) - lu(k,587) = - lu(k,275) * lu(k,583) - lu(k,588) = lu(k,588) - lu(k,276) * lu(k,583) - lu(k,589) = lu(k,589) - lu(k,277) * lu(k,583) - lu(k,590) = lu(k,590) - lu(k,278) * lu(k,583) - lu(k,591) = - lu(k,279) * lu(k,583) - lu(k,592) = lu(k,592) - lu(k,280) * lu(k,583) - lu(k,593) = - lu(k,281) * lu(k,583) - lu(k,594) = lu(k,594) - lu(k,282) * lu(k,583) - lu(k,595) = lu(k,595) - lu(k,283) * lu(k,583) - lu(k,596) = lu(k,596) - lu(k,284) * lu(k,583) - lu(k,597) = lu(k,597) - lu(k,285) * lu(k,583) - lu(k,288) = 1._r8 / lu(k,288) - lu(k,289) = lu(k,289) * lu(k,288) - lu(k,290) = lu(k,290) * lu(k,288) - lu(k,291) = lu(k,291) * lu(k,288) - lu(k,292) = lu(k,292) * lu(k,288) - lu(k,293) = lu(k,293) * lu(k,288) - lu(k,294) = lu(k,294) * lu(k,288) - lu(k,295) = lu(k,295) * lu(k,288) - lu(k,296) = lu(k,296) * lu(k,288) - lu(k,297) = lu(k,297) * lu(k,288) - lu(k,298) = lu(k,298) * lu(k,288) - lu(k,306) = lu(k,306) - lu(k,289) * lu(k,305) - lu(k,309) = lu(k,309) - lu(k,290) * lu(k,305) - lu(k,310) = lu(k,310) - lu(k,291) * lu(k,305) - lu(k,311) = lu(k,311) - lu(k,292) * lu(k,305) - lu(k,313) = lu(k,313) - lu(k,293) * lu(k,305) - lu(k,315) = lu(k,315) - lu(k,294) * lu(k,305) - lu(k,316) = lu(k,316) - lu(k,295) * lu(k,305) - lu(k,317) = lu(k,317) - lu(k,296) * lu(k,305) - lu(k,318) = lu(k,318) - lu(k,297) * lu(k,305) - lu(k,319) = lu(k,319) - lu(k,298) * lu(k,305) - lu(k,331) = lu(k,331) - lu(k,289) * lu(k,330) - lu(k,334) = lu(k,334) - lu(k,290) * lu(k,330) - lu(k,335) = lu(k,335) - lu(k,291) * lu(k,330) - lu(k,336) = lu(k,336) - lu(k,292) * lu(k,330) - lu(k,338) = lu(k,338) - lu(k,293) * lu(k,330) - lu(k,340) = lu(k,340) - lu(k,294) * lu(k,330) - lu(k,341) = lu(k,341) - lu(k,295) * lu(k,330) - lu(k,342) = lu(k,342) - lu(k,296) * lu(k,330) - lu(k,343) = lu(k,343) - lu(k,297) * lu(k,330) - lu(k,344) = lu(k,344) - lu(k,298) * lu(k,330) - lu(k,357) = lu(k,357) - lu(k,289) * lu(k,356) - lu(k,360) = lu(k,360) - lu(k,290) * lu(k,356) - lu(k,361) = lu(k,361) - lu(k,291) * lu(k,356) - lu(k,362) = lu(k,362) - lu(k,292) * lu(k,356) - lu(k,364) = lu(k,364) - lu(k,293) * lu(k,356) - lu(k,366) = lu(k,366) - lu(k,294) * lu(k,356) - lu(k,367) = lu(k,367) - lu(k,295) * lu(k,356) - lu(k,368) = lu(k,368) - lu(k,296) * lu(k,356) - lu(k,369) = lu(k,369) - lu(k,297) * lu(k,356) - lu(k,370) = lu(k,370) - lu(k,298) * lu(k,356) - lu(k,382) = lu(k,382) - lu(k,289) * lu(k,381) - lu(k,385) = lu(k,385) - lu(k,290) * lu(k,381) - lu(k,386) = lu(k,386) - lu(k,291) * lu(k,381) - lu(k,387) = lu(k,387) - lu(k,292) * lu(k,381) - lu(k,389) = lu(k,389) - lu(k,293) * lu(k,381) - lu(k,391) = lu(k,391) - lu(k,294) * lu(k,381) - lu(k,392) = lu(k,392) - lu(k,295) * lu(k,381) - lu(k,393) = lu(k,393) - lu(k,296) * lu(k,381) - lu(k,394) = lu(k,394) - lu(k,297) * lu(k,381) - lu(k,395) = lu(k,395) - lu(k,298) * lu(k,381) - lu(k,407) = lu(k,407) - lu(k,289) * lu(k,406) - lu(k,410) = lu(k,410) - lu(k,290) * lu(k,406) - lu(k,411) = lu(k,411) - lu(k,291) * lu(k,406) - lu(k,412) = lu(k,412) - lu(k,292) * lu(k,406) - lu(k,414) = lu(k,414) - lu(k,293) * lu(k,406) - lu(k,416) = lu(k,416) - lu(k,294) * lu(k,406) - lu(k,417) = lu(k,417) - lu(k,295) * lu(k,406) - lu(k,418) = lu(k,418) - lu(k,296) * lu(k,406) - lu(k,419) = lu(k,419) - lu(k,297) * lu(k,406) - lu(k,420) = lu(k,420) - lu(k,298) * lu(k,406) - lu(k,432) = lu(k,432) - lu(k,289) * lu(k,431) - lu(k,435) = lu(k,435) - lu(k,290) * lu(k,431) - lu(k,436) = lu(k,436) - lu(k,291) * lu(k,431) - lu(k,437) = lu(k,437) - lu(k,292) * lu(k,431) - lu(k,439) = lu(k,439) - lu(k,293) * lu(k,431) - lu(k,441) = lu(k,441) - lu(k,294) * lu(k,431) - lu(k,442) = lu(k,442) - lu(k,295) * lu(k,431) - lu(k,443) = lu(k,443) - lu(k,296) * lu(k,431) - lu(k,444) = lu(k,444) - lu(k,297) * lu(k,431) - lu(k,445) = lu(k,445) - lu(k,298) * lu(k,431) - lu(k,452) = lu(k,452) - lu(k,289) * lu(k,451) - lu(k,455) = lu(k,455) - lu(k,290) * lu(k,451) - lu(k,456) = lu(k,456) - lu(k,291) * lu(k,451) - lu(k,457) = lu(k,457) - lu(k,292) * lu(k,451) - lu(k,459) = lu(k,459) - lu(k,293) * lu(k,451) - lu(k,461) = lu(k,461) - lu(k,294) * lu(k,451) - lu(k,462) = lu(k,462) - lu(k,295) * lu(k,451) - lu(k,463) = lu(k,463) - lu(k,296) * lu(k,451) - lu(k,464) = lu(k,464) - lu(k,297) * lu(k,451) - lu(k,465) = lu(k,465) - lu(k,298) * lu(k,451) - lu(k,471) = lu(k,471) - lu(k,289) * lu(k,470) - lu(k,474) = lu(k,474) - lu(k,290) * lu(k,470) - lu(k,475) = lu(k,475) - lu(k,291) * lu(k,470) - lu(k,476) = lu(k,476) - lu(k,292) * lu(k,470) - lu(k,478) = lu(k,478) - lu(k,293) * lu(k,470) - lu(k,480) = lu(k,480) - lu(k,294) * lu(k,470) - lu(k,481) = lu(k,481) - lu(k,295) * lu(k,470) - lu(k,482) = lu(k,482) - lu(k,296) * lu(k,470) - lu(k,483) = lu(k,483) - lu(k,297) * lu(k,470) - lu(k,484) = lu(k,484) - lu(k,298) * lu(k,470) - lu(k,494) = lu(k,494) - lu(k,289) * lu(k,493) - lu(k,497) = lu(k,497) - lu(k,290) * lu(k,493) - lu(k,498) = lu(k,498) - lu(k,291) * lu(k,493) - lu(k,499) = lu(k,499) - lu(k,292) * lu(k,493) - lu(k,501) = lu(k,501) - lu(k,293) * lu(k,493) - lu(k,503) = lu(k,503) - lu(k,294) * lu(k,493) - lu(k,504) = lu(k,504) - lu(k,295) * lu(k,493) - lu(k,505) = lu(k,505) - lu(k,296) * lu(k,493) - lu(k,506) = lu(k,506) - lu(k,297) * lu(k,493) - lu(k,507) = lu(k,507) - lu(k,298) * lu(k,493) - lu(k,525) = lu(k,525) - lu(k,289) * lu(k,524) - lu(k,528) = lu(k,528) - lu(k,290) * lu(k,524) - lu(k,529) = lu(k,529) - lu(k,291) * lu(k,524) - lu(k,530) = lu(k,530) - lu(k,292) * lu(k,524) - lu(k,532) = lu(k,532) - lu(k,293) * lu(k,524) - lu(k,534) = lu(k,534) - lu(k,294) * lu(k,524) - lu(k,535) = lu(k,535) - lu(k,295) * lu(k,524) - lu(k,536) = lu(k,536) - lu(k,296) * lu(k,524) - lu(k,537) = lu(k,537) - lu(k,297) * lu(k,524) - lu(k,538) = lu(k,538) - lu(k,298) * lu(k,524) - lu(k,564) = lu(k,564) - lu(k,289) * lu(k,563) - lu(k,567) = lu(k,567) - lu(k,290) * lu(k,563) - lu(k,568) = lu(k,568) - lu(k,291) * lu(k,563) - lu(k,569) = lu(k,569) - lu(k,292) * lu(k,563) - lu(k,571) = lu(k,571) - lu(k,293) * lu(k,563) - lu(k,573) = lu(k,573) - lu(k,294) * lu(k,563) - lu(k,574) = lu(k,574) - lu(k,295) * lu(k,563) - lu(k,575) = lu(k,575) - lu(k,296) * lu(k,563) - lu(k,576) = lu(k,576) - lu(k,297) * lu(k,563) - lu(k,577) = lu(k,577) - lu(k,298) * lu(k,563) - lu(k,585) = lu(k,585) - lu(k,289) * lu(k,584) - lu(k,588) = lu(k,588) - lu(k,290) * lu(k,584) - lu(k,589) = lu(k,589) - lu(k,291) * lu(k,584) - lu(k,590) = lu(k,590) - lu(k,292) * lu(k,584) - lu(k,592) = lu(k,592) - lu(k,293) * lu(k,584) - lu(k,594) = lu(k,594) - lu(k,294) * lu(k,584) - lu(k,595) = lu(k,595) - lu(k,295) * lu(k,584) - lu(k,596) = lu(k,596) - lu(k,296) * lu(k,584) - lu(k,597) = lu(k,597) - lu(k,297) * lu(k,584) - lu(k,598) = lu(k,598) - lu(k,298) * lu(k,584) - lu(k,605) = - lu(k,289) * lu(k,604) - lu(k,608) = - lu(k,290) * lu(k,604) - lu(k,609) = lu(k,609) - lu(k,291) * lu(k,604) - lu(k,610) = lu(k,610) - lu(k,292) * lu(k,604) - lu(k,612) = lu(k,612) - lu(k,293) * lu(k,604) - lu(k,614) = lu(k,614) - lu(k,294) * lu(k,604) - lu(k,615) = lu(k,615) - lu(k,295) * lu(k,604) - lu(k,616) = lu(k,616) - lu(k,296) * lu(k,604) - lu(k,617) = lu(k,617) - lu(k,297) * lu(k,604) - lu(k,618) = - lu(k,298) * lu(k,604) - lu(k,623) = lu(k,623) - lu(k,289) * lu(k,622) - lu(k,626) = lu(k,626) - lu(k,290) * lu(k,622) - lu(k,627) = lu(k,627) - lu(k,291) * lu(k,622) - lu(k,628) = lu(k,628) - lu(k,292) * lu(k,622) - lu(k,630) = - lu(k,293) * lu(k,622) - lu(k,632) = lu(k,632) - lu(k,294) * lu(k,622) - lu(k,633) = lu(k,633) - lu(k,295) * lu(k,622) - lu(k,634) = lu(k,634) - lu(k,296) * lu(k,622) - lu(k,635) = - lu(k,297) * lu(k,622) - lu(k,636) = lu(k,636) - lu(k,298) * lu(k,622) - lu(k,306) = 1._r8 / lu(k,306) - lu(k,307) = lu(k,307) * lu(k,306) - lu(k,308) = lu(k,308) * lu(k,306) - lu(k,309) = lu(k,309) * lu(k,306) - lu(k,310) = lu(k,310) * lu(k,306) - lu(k,311) = lu(k,311) * lu(k,306) - lu(k,312) = lu(k,312) * lu(k,306) - lu(k,313) = lu(k,313) * lu(k,306) - lu(k,314) = lu(k,314) * lu(k,306) - lu(k,315) = lu(k,315) * lu(k,306) - lu(k,316) = lu(k,316) * lu(k,306) - lu(k,317) = lu(k,317) * lu(k,306) - lu(k,318) = lu(k,318) * lu(k,306) - lu(k,319) = lu(k,319) * lu(k,306) - lu(k,332) = lu(k,332) - lu(k,307) * lu(k,331) - lu(k,333) = lu(k,333) - lu(k,308) * lu(k,331) - lu(k,334) = lu(k,334) - lu(k,309) * lu(k,331) - lu(k,335) = lu(k,335) - lu(k,310) * lu(k,331) - lu(k,336) = lu(k,336) - lu(k,311) * lu(k,331) - lu(k,337) = lu(k,337) - lu(k,312) * lu(k,331) - lu(k,338) = lu(k,338) - lu(k,313) * lu(k,331) - lu(k,339) = lu(k,339) - lu(k,314) * lu(k,331) - lu(k,340) = lu(k,340) - lu(k,315) * lu(k,331) - lu(k,341) = lu(k,341) - lu(k,316) * lu(k,331) - lu(k,342) = lu(k,342) - lu(k,317) * lu(k,331) - lu(k,343) = lu(k,343) - lu(k,318) * lu(k,331) - lu(k,344) = lu(k,344) - lu(k,319) * lu(k,331) - lu(k,358) = lu(k,358) - lu(k,307) * lu(k,357) - lu(k,359) = lu(k,359) - lu(k,308) * lu(k,357) - lu(k,360) = lu(k,360) - lu(k,309) * lu(k,357) - lu(k,361) = lu(k,361) - lu(k,310) * lu(k,357) - lu(k,362) = lu(k,362) - lu(k,311) * lu(k,357) - lu(k,363) = lu(k,363) - lu(k,312) * lu(k,357) - lu(k,364) = lu(k,364) - lu(k,313) * lu(k,357) - lu(k,365) = lu(k,365) - lu(k,314) * lu(k,357) - lu(k,366) = lu(k,366) - lu(k,315) * lu(k,357) - lu(k,367) = lu(k,367) - lu(k,316) * lu(k,357) - lu(k,368) = lu(k,368) - lu(k,317) * lu(k,357) - lu(k,369) = lu(k,369) - lu(k,318) * lu(k,357) - lu(k,370) = lu(k,370) - lu(k,319) * lu(k,357) - lu(k,383) = lu(k,383) - lu(k,307) * lu(k,382) - lu(k,384) = lu(k,384) - lu(k,308) * lu(k,382) - lu(k,385) = lu(k,385) - lu(k,309) * lu(k,382) - lu(k,386) = lu(k,386) - lu(k,310) * lu(k,382) - lu(k,387) = lu(k,387) - lu(k,311) * lu(k,382) - lu(k,388) = lu(k,388) - lu(k,312) * lu(k,382) - lu(k,389) = lu(k,389) - lu(k,313) * lu(k,382) - lu(k,390) = lu(k,390) - lu(k,314) * lu(k,382) - lu(k,391) = lu(k,391) - lu(k,315) * lu(k,382) - lu(k,392) = lu(k,392) - lu(k,316) * lu(k,382) - lu(k,393) = lu(k,393) - lu(k,317) * lu(k,382) - lu(k,394) = lu(k,394) - lu(k,318) * lu(k,382) - lu(k,395) = lu(k,395) - lu(k,319) * lu(k,382) - lu(k,408) = lu(k,408) - lu(k,307) * lu(k,407) - lu(k,409) = lu(k,409) - lu(k,308) * lu(k,407) - lu(k,410) = lu(k,410) - lu(k,309) * lu(k,407) - lu(k,411) = lu(k,411) - lu(k,310) * lu(k,407) - lu(k,412) = lu(k,412) - lu(k,311) * lu(k,407) - lu(k,413) = lu(k,413) - lu(k,312) * lu(k,407) - lu(k,414) = lu(k,414) - lu(k,313) * lu(k,407) - lu(k,415) = lu(k,415) - lu(k,314) * lu(k,407) - lu(k,416) = lu(k,416) - lu(k,315) * lu(k,407) - lu(k,417) = lu(k,417) - lu(k,316) * lu(k,407) - lu(k,418) = lu(k,418) - lu(k,317) * lu(k,407) - lu(k,419) = lu(k,419) - lu(k,318) * lu(k,407) - lu(k,420) = lu(k,420) - lu(k,319) * lu(k,407) - lu(k,433) = lu(k,433) - lu(k,307) * lu(k,432) - lu(k,434) = lu(k,434) - lu(k,308) * lu(k,432) - lu(k,435) = lu(k,435) - lu(k,309) * lu(k,432) - lu(k,436) = lu(k,436) - lu(k,310) * lu(k,432) - lu(k,437) = lu(k,437) - lu(k,311) * lu(k,432) - lu(k,438) = lu(k,438) - lu(k,312) * lu(k,432) - lu(k,439) = lu(k,439) - lu(k,313) * lu(k,432) - lu(k,440) = lu(k,440) - lu(k,314) * lu(k,432) - lu(k,441) = lu(k,441) - lu(k,315) * lu(k,432) - lu(k,442) = lu(k,442) - lu(k,316) * lu(k,432) - lu(k,443) = lu(k,443) - lu(k,317) * lu(k,432) - lu(k,444) = lu(k,444) - lu(k,318) * lu(k,432) - lu(k,445) = lu(k,445) - lu(k,319) * lu(k,432) - lu(k,453) = lu(k,453) - lu(k,307) * lu(k,452) - lu(k,454) = lu(k,454) - lu(k,308) * lu(k,452) - lu(k,455) = lu(k,455) - lu(k,309) * lu(k,452) - lu(k,456) = lu(k,456) - lu(k,310) * lu(k,452) - lu(k,457) = lu(k,457) - lu(k,311) * lu(k,452) - lu(k,458) = lu(k,458) - lu(k,312) * lu(k,452) - lu(k,459) = lu(k,459) - lu(k,313) * lu(k,452) - lu(k,460) = lu(k,460) - lu(k,314) * lu(k,452) - lu(k,461) = lu(k,461) - lu(k,315) * lu(k,452) - lu(k,462) = lu(k,462) - lu(k,316) * lu(k,452) - lu(k,463) = lu(k,463) - lu(k,317) * lu(k,452) - lu(k,464) = lu(k,464) - lu(k,318) * lu(k,452) - lu(k,465) = lu(k,465) - lu(k,319) * lu(k,452) - lu(k,472) = lu(k,472) - lu(k,307) * lu(k,471) - lu(k,473) = lu(k,473) - lu(k,308) * lu(k,471) - lu(k,474) = lu(k,474) - lu(k,309) * lu(k,471) - lu(k,475) = lu(k,475) - lu(k,310) * lu(k,471) - lu(k,476) = lu(k,476) - lu(k,311) * lu(k,471) - lu(k,477) = lu(k,477) - lu(k,312) * lu(k,471) - lu(k,478) = lu(k,478) - lu(k,313) * lu(k,471) - lu(k,479) = lu(k,479) - lu(k,314) * lu(k,471) - lu(k,480) = lu(k,480) - lu(k,315) * lu(k,471) - lu(k,481) = lu(k,481) - lu(k,316) * lu(k,471) - lu(k,482) = lu(k,482) - lu(k,317) * lu(k,471) - lu(k,483) = lu(k,483) - lu(k,318) * lu(k,471) - lu(k,484) = lu(k,484) - lu(k,319) * lu(k,471) - lu(k,495) = lu(k,495) - lu(k,307) * lu(k,494) - lu(k,496) = lu(k,496) - lu(k,308) * lu(k,494) - lu(k,497) = lu(k,497) - lu(k,309) * lu(k,494) - lu(k,498) = lu(k,498) - lu(k,310) * lu(k,494) - lu(k,499) = lu(k,499) - lu(k,311) * lu(k,494) - lu(k,500) = lu(k,500) - lu(k,312) * lu(k,494) - lu(k,501) = lu(k,501) - lu(k,313) * lu(k,494) - lu(k,502) = lu(k,502) - lu(k,314) * lu(k,494) - lu(k,503) = lu(k,503) - lu(k,315) * lu(k,494) - lu(k,504) = lu(k,504) - lu(k,316) * lu(k,494) - lu(k,505) = lu(k,505) - lu(k,317) * lu(k,494) - lu(k,506) = lu(k,506) - lu(k,318) * lu(k,494) - lu(k,507) = lu(k,507) - lu(k,319) * lu(k,494) - lu(k,526) = lu(k,526) - lu(k,307) * lu(k,525) - lu(k,527) = lu(k,527) - lu(k,308) * lu(k,525) - lu(k,528) = lu(k,528) - lu(k,309) * lu(k,525) - lu(k,529) = lu(k,529) - lu(k,310) * lu(k,525) - lu(k,530) = lu(k,530) - lu(k,311) * lu(k,525) - lu(k,531) = lu(k,531) - lu(k,312) * lu(k,525) - lu(k,532) = lu(k,532) - lu(k,313) * lu(k,525) - lu(k,533) = lu(k,533) - lu(k,314) * lu(k,525) - lu(k,534) = lu(k,534) - lu(k,315) * lu(k,525) - lu(k,535) = lu(k,535) - lu(k,316) * lu(k,525) - lu(k,536) = lu(k,536) - lu(k,317) * lu(k,525) - lu(k,537) = lu(k,537) - lu(k,318) * lu(k,525) - lu(k,538) = lu(k,538) - lu(k,319) * lu(k,525) - lu(k,565) = lu(k,565) - lu(k,307) * lu(k,564) - lu(k,566) = lu(k,566) - lu(k,308) * lu(k,564) - lu(k,567) = lu(k,567) - lu(k,309) * lu(k,564) - lu(k,568) = lu(k,568) - lu(k,310) * lu(k,564) - lu(k,569) = lu(k,569) - lu(k,311) * lu(k,564) - lu(k,570) = lu(k,570) - lu(k,312) * lu(k,564) - lu(k,571) = lu(k,571) - lu(k,313) * lu(k,564) - lu(k,572) = lu(k,572) - lu(k,314) * lu(k,564) - lu(k,573) = lu(k,573) - lu(k,315) * lu(k,564) - lu(k,574) = lu(k,574) - lu(k,316) * lu(k,564) - lu(k,575) = lu(k,575) - lu(k,317) * lu(k,564) - lu(k,576) = lu(k,576) - lu(k,318) * lu(k,564) - lu(k,577) = lu(k,577) - lu(k,319) * lu(k,564) - lu(k,586) = lu(k,586) - lu(k,307) * lu(k,585) - lu(k,587) = lu(k,587) - lu(k,308) * lu(k,585) - lu(k,588) = lu(k,588) - lu(k,309) * lu(k,585) - lu(k,589) = lu(k,589) - lu(k,310) * lu(k,585) - lu(k,590) = lu(k,590) - lu(k,311) * lu(k,585) - lu(k,591) = lu(k,591) - lu(k,312) * lu(k,585) - lu(k,592) = lu(k,592) - lu(k,313) * lu(k,585) - lu(k,593) = lu(k,593) - lu(k,314) * lu(k,585) - lu(k,594) = lu(k,594) - lu(k,315) * lu(k,585) - lu(k,595) = lu(k,595) - lu(k,316) * lu(k,585) - lu(k,596) = lu(k,596) - lu(k,317) * lu(k,585) - lu(k,597) = lu(k,597) - lu(k,318) * lu(k,585) - lu(k,598) = lu(k,598) - lu(k,319) * lu(k,585) - lu(k,606) = lu(k,606) - lu(k,307) * lu(k,605) - lu(k,607) = lu(k,607) - lu(k,308) * lu(k,605) - lu(k,608) = lu(k,608) - lu(k,309) * lu(k,605) - lu(k,609) = lu(k,609) - lu(k,310) * lu(k,605) - lu(k,610) = lu(k,610) - lu(k,311) * lu(k,605) - lu(k,611) = lu(k,611) - lu(k,312) * lu(k,605) - lu(k,612) = lu(k,612) - lu(k,313) * lu(k,605) - lu(k,613) = lu(k,613) - lu(k,314) * lu(k,605) - lu(k,614) = lu(k,614) - lu(k,315) * lu(k,605) - lu(k,615) = lu(k,615) - lu(k,316) * lu(k,605) - lu(k,616) = lu(k,616) - lu(k,317) * lu(k,605) - lu(k,617) = lu(k,617) - lu(k,318) * lu(k,605) - lu(k,618) = lu(k,618) - lu(k,319) * lu(k,605) - lu(k,624) = lu(k,624) - lu(k,307) * lu(k,623) - lu(k,625) = lu(k,625) - lu(k,308) * lu(k,623) - lu(k,626) = lu(k,626) - lu(k,309) * lu(k,623) - lu(k,627) = lu(k,627) - lu(k,310) * lu(k,623) - lu(k,628) = lu(k,628) - lu(k,311) * lu(k,623) - lu(k,629) = lu(k,629) - lu(k,312) * lu(k,623) - lu(k,630) = lu(k,630) - lu(k,313) * lu(k,623) - lu(k,631) = lu(k,631) - lu(k,314) * lu(k,623) - lu(k,632) = lu(k,632) - lu(k,315) * lu(k,623) - lu(k,633) = lu(k,633) - lu(k,316) * lu(k,623) - lu(k,634) = lu(k,634) - lu(k,317) * lu(k,623) - lu(k,635) = lu(k,635) - lu(k,318) * lu(k,623) - lu(k,636) = lu(k,636) - lu(k,319) * lu(k,623) + lu(k,282) = 1._r8 / lu(k,282) + lu(k,283) = lu(k,283) * lu(k,282) + lu(k,284) = lu(k,284) * lu(k,282) + lu(k,285) = lu(k,285) * lu(k,282) + lu(k,286) = lu(k,286) * lu(k,282) + lu(k,287) = lu(k,287) * lu(k,282) + lu(k,288) = lu(k,288) * lu(k,282) + lu(k,289) = lu(k,289) * lu(k,282) + lu(k,290) = lu(k,290) * lu(k,282) + lu(k,291) = lu(k,291) * lu(k,282) + lu(k,292) = lu(k,292) * lu(k,282) + 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,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) + lu(k,301) = lu(k,301) * lu(k,298) + lu(k,302) = lu(k,302) * lu(k,298) + lu(k,303) = lu(k,303) * lu(k,298) + lu(k,304) = lu(k,304) * lu(k,298) + lu(k,305) = lu(k,305) * lu(k,298) + 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,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,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,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 ) @@ -1898,296 +1964,296 @@ subroutine lu_fac08( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,332) = 1._r8 / lu(k,332) - lu(k,333) = lu(k,333) * lu(k,332) - lu(k,334) = lu(k,334) * lu(k,332) - lu(k,335) = lu(k,335) * lu(k,332) - lu(k,336) = lu(k,336) * lu(k,332) - lu(k,337) = lu(k,337) * lu(k,332) - lu(k,338) = lu(k,338) * lu(k,332) - lu(k,339) = lu(k,339) * lu(k,332) - lu(k,340) = lu(k,340) * lu(k,332) - lu(k,341) = lu(k,341) * lu(k,332) - lu(k,342) = lu(k,342) * lu(k,332) - lu(k,343) = lu(k,343) * lu(k,332) - lu(k,344) = lu(k,344) * lu(k,332) - lu(k,359) = lu(k,359) - lu(k,333) * lu(k,358) - lu(k,360) = lu(k,360) - lu(k,334) * lu(k,358) - lu(k,361) = lu(k,361) - lu(k,335) * lu(k,358) - lu(k,362) = lu(k,362) - lu(k,336) * lu(k,358) - lu(k,363) = lu(k,363) - lu(k,337) * lu(k,358) - lu(k,364) = lu(k,364) - lu(k,338) * lu(k,358) - lu(k,365) = lu(k,365) - lu(k,339) * lu(k,358) - lu(k,366) = lu(k,366) - lu(k,340) * lu(k,358) - lu(k,367) = lu(k,367) - lu(k,341) * lu(k,358) - lu(k,368) = lu(k,368) - lu(k,342) * lu(k,358) - lu(k,369) = lu(k,369) - lu(k,343) * lu(k,358) - lu(k,370) = lu(k,370) - lu(k,344) * lu(k,358) - lu(k,384) = lu(k,384) - lu(k,333) * lu(k,383) - lu(k,385) = lu(k,385) - lu(k,334) * lu(k,383) - lu(k,386) = lu(k,386) - lu(k,335) * lu(k,383) - lu(k,387) = lu(k,387) - lu(k,336) * lu(k,383) - lu(k,388) = lu(k,388) - lu(k,337) * lu(k,383) - lu(k,389) = lu(k,389) - lu(k,338) * lu(k,383) - lu(k,390) = lu(k,390) - lu(k,339) * lu(k,383) - lu(k,391) = lu(k,391) - lu(k,340) * lu(k,383) - lu(k,392) = lu(k,392) - lu(k,341) * lu(k,383) - lu(k,393) = lu(k,393) - lu(k,342) * lu(k,383) - lu(k,394) = lu(k,394) - lu(k,343) * lu(k,383) - lu(k,395) = lu(k,395) - lu(k,344) * lu(k,383) - lu(k,409) = lu(k,409) - lu(k,333) * lu(k,408) - lu(k,410) = lu(k,410) - lu(k,334) * lu(k,408) - lu(k,411) = lu(k,411) - lu(k,335) * lu(k,408) - lu(k,412) = lu(k,412) - lu(k,336) * lu(k,408) - lu(k,413) = lu(k,413) - lu(k,337) * lu(k,408) - lu(k,414) = lu(k,414) - lu(k,338) * lu(k,408) - lu(k,415) = lu(k,415) - lu(k,339) * lu(k,408) - lu(k,416) = lu(k,416) - lu(k,340) * lu(k,408) - lu(k,417) = lu(k,417) - lu(k,341) * lu(k,408) - lu(k,418) = lu(k,418) - lu(k,342) * lu(k,408) - lu(k,419) = lu(k,419) - lu(k,343) * lu(k,408) - lu(k,420) = lu(k,420) - lu(k,344) * lu(k,408) - lu(k,434) = lu(k,434) - lu(k,333) * lu(k,433) - lu(k,435) = lu(k,435) - lu(k,334) * lu(k,433) - lu(k,436) = lu(k,436) - lu(k,335) * lu(k,433) - lu(k,437) = lu(k,437) - lu(k,336) * lu(k,433) - lu(k,438) = lu(k,438) - lu(k,337) * lu(k,433) - lu(k,439) = lu(k,439) - lu(k,338) * lu(k,433) - lu(k,440) = lu(k,440) - lu(k,339) * lu(k,433) - lu(k,441) = lu(k,441) - lu(k,340) * lu(k,433) - lu(k,442) = lu(k,442) - lu(k,341) * lu(k,433) - lu(k,443) = lu(k,443) - lu(k,342) * lu(k,433) - lu(k,444) = lu(k,444) - lu(k,343) * lu(k,433) - lu(k,445) = lu(k,445) - lu(k,344) * lu(k,433) - lu(k,454) = lu(k,454) - lu(k,333) * lu(k,453) - lu(k,455) = lu(k,455) - lu(k,334) * lu(k,453) - lu(k,456) = lu(k,456) - lu(k,335) * lu(k,453) - lu(k,457) = lu(k,457) - lu(k,336) * lu(k,453) - lu(k,458) = lu(k,458) - lu(k,337) * lu(k,453) - lu(k,459) = lu(k,459) - lu(k,338) * lu(k,453) - lu(k,460) = lu(k,460) - lu(k,339) * lu(k,453) - lu(k,461) = lu(k,461) - lu(k,340) * lu(k,453) - lu(k,462) = lu(k,462) - lu(k,341) * lu(k,453) - lu(k,463) = lu(k,463) - lu(k,342) * lu(k,453) - lu(k,464) = lu(k,464) - lu(k,343) * lu(k,453) - lu(k,465) = lu(k,465) - lu(k,344) * lu(k,453) - lu(k,473) = lu(k,473) - lu(k,333) * lu(k,472) - lu(k,474) = lu(k,474) - lu(k,334) * lu(k,472) - lu(k,475) = lu(k,475) - lu(k,335) * lu(k,472) - lu(k,476) = lu(k,476) - lu(k,336) * lu(k,472) - lu(k,477) = lu(k,477) - lu(k,337) * lu(k,472) - lu(k,478) = lu(k,478) - lu(k,338) * lu(k,472) - lu(k,479) = lu(k,479) - lu(k,339) * lu(k,472) - lu(k,480) = lu(k,480) - lu(k,340) * lu(k,472) - lu(k,481) = lu(k,481) - lu(k,341) * lu(k,472) - lu(k,482) = lu(k,482) - lu(k,342) * lu(k,472) - lu(k,483) = lu(k,483) - lu(k,343) * lu(k,472) - lu(k,484) = lu(k,484) - lu(k,344) * lu(k,472) - lu(k,496) = lu(k,496) - lu(k,333) * lu(k,495) - lu(k,497) = lu(k,497) - lu(k,334) * lu(k,495) - lu(k,498) = lu(k,498) - lu(k,335) * lu(k,495) - lu(k,499) = lu(k,499) - lu(k,336) * lu(k,495) - lu(k,500) = lu(k,500) - lu(k,337) * lu(k,495) - lu(k,501) = lu(k,501) - lu(k,338) * lu(k,495) - lu(k,502) = lu(k,502) - lu(k,339) * lu(k,495) - lu(k,503) = lu(k,503) - lu(k,340) * lu(k,495) - lu(k,504) = lu(k,504) - lu(k,341) * lu(k,495) - lu(k,505) = lu(k,505) - lu(k,342) * lu(k,495) - lu(k,506) = lu(k,506) - lu(k,343) * lu(k,495) - lu(k,507) = lu(k,507) - lu(k,344) * lu(k,495) - lu(k,527) = lu(k,527) - lu(k,333) * lu(k,526) - lu(k,528) = lu(k,528) - lu(k,334) * lu(k,526) - lu(k,529) = lu(k,529) - lu(k,335) * lu(k,526) - lu(k,530) = lu(k,530) - lu(k,336) * lu(k,526) - lu(k,531) = lu(k,531) - lu(k,337) * lu(k,526) - lu(k,532) = lu(k,532) - lu(k,338) * lu(k,526) - lu(k,533) = lu(k,533) - lu(k,339) * lu(k,526) - lu(k,534) = lu(k,534) - lu(k,340) * lu(k,526) - lu(k,535) = lu(k,535) - lu(k,341) * lu(k,526) - lu(k,536) = lu(k,536) - lu(k,342) * lu(k,526) - lu(k,537) = lu(k,537) - lu(k,343) * lu(k,526) - lu(k,538) = lu(k,538) - lu(k,344) * lu(k,526) - lu(k,566) = lu(k,566) - lu(k,333) * lu(k,565) - lu(k,567) = lu(k,567) - lu(k,334) * lu(k,565) - lu(k,568) = lu(k,568) - lu(k,335) * lu(k,565) - lu(k,569) = lu(k,569) - lu(k,336) * lu(k,565) - lu(k,570) = lu(k,570) - lu(k,337) * lu(k,565) - lu(k,571) = lu(k,571) - lu(k,338) * lu(k,565) - lu(k,572) = lu(k,572) - lu(k,339) * lu(k,565) - lu(k,573) = lu(k,573) - lu(k,340) * lu(k,565) - lu(k,574) = lu(k,574) - lu(k,341) * lu(k,565) - lu(k,575) = lu(k,575) - lu(k,342) * lu(k,565) - lu(k,576) = lu(k,576) - lu(k,343) * lu(k,565) - lu(k,577) = lu(k,577) - lu(k,344) * lu(k,565) - lu(k,587) = lu(k,587) - lu(k,333) * lu(k,586) - lu(k,588) = lu(k,588) - lu(k,334) * lu(k,586) - lu(k,589) = lu(k,589) - lu(k,335) * lu(k,586) - lu(k,590) = lu(k,590) - lu(k,336) * lu(k,586) - lu(k,591) = lu(k,591) - lu(k,337) * lu(k,586) - lu(k,592) = lu(k,592) - lu(k,338) * lu(k,586) - lu(k,593) = lu(k,593) - lu(k,339) * lu(k,586) - lu(k,594) = lu(k,594) - lu(k,340) * lu(k,586) - lu(k,595) = lu(k,595) - lu(k,341) * lu(k,586) - lu(k,596) = lu(k,596) - lu(k,342) * lu(k,586) - lu(k,597) = lu(k,597) - lu(k,343) * lu(k,586) - lu(k,598) = lu(k,598) - lu(k,344) * lu(k,586) - lu(k,607) = lu(k,607) - lu(k,333) * lu(k,606) - lu(k,608) = lu(k,608) - lu(k,334) * lu(k,606) - lu(k,609) = lu(k,609) - lu(k,335) * lu(k,606) - lu(k,610) = lu(k,610) - lu(k,336) * lu(k,606) - lu(k,611) = lu(k,611) - lu(k,337) * lu(k,606) - lu(k,612) = lu(k,612) - lu(k,338) * lu(k,606) - lu(k,613) = lu(k,613) - lu(k,339) * lu(k,606) - lu(k,614) = lu(k,614) - lu(k,340) * lu(k,606) - lu(k,615) = lu(k,615) - lu(k,341) * lu(k,606) - lu(k,616) = lu(k,616) - lu(k,342) * lu(k,606) - lu(k,617) = lu(k,617) - lu(k,343) * lu(k,606) - lu(k,618) = lu(k,618) - lu(k,344) * lu(k,606) - lu(k,625) = lu(k,625) - lu(k,333) * lu(k,624) - lu(k,626) = lu(k,626) - lu(k,334) * lu(k,624) - lu(k,627) = lu(k,627) - lu(k,335) * lu(k,624) - lu(k,628) = lu(k,628) - lu(k,336) * lu(k,624) - lu(k,629) = lu(k,629) - lu(k,337) * lu(k,624) - lu(k,630) = lu(k,630) - lu(k,338) * lu(k,624) - lu(k,631) = lu(k,631) - lu(k,339) * lu(k,624) - lu(k,632) = lu(k,632) - lu(k,340) * lu(k,624) - lu(k,633) = lu(k,633) - lu(k,341) * lu(k,624) - lu(k,634) = lu(k,634) - lu(k,342) * lu(k,624) - lu(k,635) = lu(k,635) - lu(k,343) * lu(k,624) - lu(k,636) = lu(k,636) - lu(k,344) * lu(k,624) - lu(k,359) = 1._r8 / lu(k,359) - lu(k,360) = lu(k,360) * lu(k,359) - lu(k,361) = lu(k,361) * lu(k,359) - lu(k,362) = lu(k,362) * lu(k,359) - lu(k,363) = lu(k,363) * lu(k,359) - lu(k,364) = lu(k,364) * lu(k,359) - lu(k,365) = lu(k,365) * lu(k,359) - lu(k,366) = lu(k,366) * lu(k,359) - lu(k,367) = lu(k,367) * lu(k,359) - lu(k,368) = lu(k,368) * lu(k,359) - lu(k,369) = lu(k,369) * lu(k,359) - lu(k,370) = lu(k,370) * lu(k,359) - lu(k,385) = lu(k,385) - lu(k,360) * lu(k,384) - lu(k,386) = lu(k,386) - lu(k,361) * lu(k,384) - lu(k,387) = lu(k,387) - lu(k,362) * lu(k,384) - lu(k,388) = lu(k,388) - lu(k,363) * lu(k,384) - lu(k,389) = lu(k,389) - lu(k,364) * lu(k,384) - lu(k,390) = lu(k,390) - lu(k,365) * lu(k,384) - lu(k,391) = lu(k,391) - lu(k,366) * lu(k,384) - lu(k,392) = lu(k,392) - lu(k,367) * lu(k,384) - lu(k,393) = lu(k,393) - lu(k,368) * lu(k,384) - lu(k,394) = lu(k,394) - lu(k,369) * lu(k,384) - lu(k,395) = lu(k,395) - lu(k,370) * lu(k,384) - lu(k,410) = lu(k,410) - lu(k,360) * lu(k,409) - lu(k,411) = lu(k,411) - lu(k,361) * lu(k,409) - lu(k,412) = lu(k,412) - lu(k,362) * lu(k,409) - lu(k,413) = lu(k,413) - lu(k,363) * lu(k,409) - lu(k,414) = lu(k,414) - lu(k,364) * lu(k,409) - lu(k,415) = lu(k,415) - lu(k,365) * lu(k,409) - lu(k,416) = lu(k,416) - lu(k,366) * lu(k,409) - lu(k,417) = lu(k,417) - lu(k,367) * lu(k,409) - lu(k,418) = lu(k,418) - lu(k,368) * lu(k,409) - lu(k,419) = lu(k,419) - lu(k,369) * lu(k,409) - lu(k,420) = lu(k,420) - lu(k,370) * lu(k,409) - lu(k,435) = lu(k,435) - lu(k,360) * lu(k,434) - lu(k,436) = lu(k,436) - lu(k,361) * lu(k,434) - lu(k,437) = lu(k,437) - lu(k,362) * lu(k,434) - lu(k,438) = lu(k,438) - lu(k,363) * lu(k,434) - lu(k,439) = lu(k,439) - lu(k,364) * lu(k,434) - lu(k,440) = lu(k,440) - lu(k,365) * lu(k,434) - lu(k,441) = lu(k,441) - lu(k,366) * lu(k,434) - lu(k,442) = lu(k,442) - lu(k,367) * lu(k,434) - lu(k,443) = lu(k,443) - lu(k,368) * lu(k,434) - lu(k,444) = lu(k,444) - lu(k,369) * lu(k,434) - lu(k,445) = lu(k,445) - lu(k,370) * lu(k,434) - lu(k,455) = lu(k,455) - lu(k,360) * lu(k,454) - lu(k,456) = lu(k,456) - lu(k,361) * lu(k,454) - lu(k,457) = lu(k,457) - lu(k,362) * lu(k,454) - lu(k,458) = lu(k,458) - lu(k,363) * lu(k,454) - lu(k,459) = lu(k,459) - lu(k,364) * lu(k,454) - lu(k,460) = lu(k,460) - lu(k,365) * lu(k,454) - lu(k,461) = lu(k,461) - lu(k,366) * lu(k,454) - lu(k,462) = lu(k,462) - lu(k,367) * lu(k,454) - lu(k,463) = lu(k,463) - lu(k,368) * lu(k,454) - lu(k,464) = lu(k,464) - lu(k,369) * lu(k,454) - lu(k,465) = lu(k,465) - lu(k,370) * lu(k,454) - lu(k,474) = lu(k,474) - lu(k,360) * lu(k,473) - lu(k,475) = lu(k,475) - lu(k,361) * lu(k,473) - lu(k,476) = lu(k,476) - lu(k,362) * lu(k,473) - lu(k,477) = lu(k,477) - lu(k,363) * lu(k,473) - lu(k,478) = lu(k,478) - lu(k,364) * lu(k,473) - lu(k,479) = lu(k,479) - lu(k,365) * lu(k,473) - lu(k,480) = lu(k,480) - lu(k,366) * lu(k,473) - lu(k,481) = lu(k,481) - lu(k,367) * lu(k,473) - lu(k,482) = lu(k,482) - lu(k,368) * lu(k,473) - lu(k,483) = lu(k,483) - lu(k,369) * lu(k,473) - lu(k,484) = lu(k,484) - lu(k,370) * lu(k,473) - lu(k,497) = lu(k,497) - lu(k,360) * lu(k,496) - lu(k,498) = lu(k,498) - lu(k,361) * lu(k,496) - lu(k,499) = lu(k,499) - lu(k,362) * lu(k,496) - lu(k,500) = lu(k,500) - lu(k,363) * lu(k,496) - lu(k,501) = lu(k,501) - lu(k,364) * lu(k,496) - lu(k,502) = lu(k,502) - lu(k,365) * lu(k,496) - lu(k,503) = lu(k,503) - lu(k,366) * lu(k,496) - lu(k,504) = lu(k,504) - lu(k,367) * lu(k,496) - lu(k,505) = lu(k,505) - lu(k,368) * lu(k,496) - lu(k,506) = lu(k,506) - lu(k,369) * lu(k,496) - lu(k,507) = lu(k,507) - lu(k,370) * lu(k,496) - lu(k,528) = lu(k,528) - lu(k,360) * lu(k,527) - lu(k,529) = lu(k,529) - lu(k,361) * lu(k,527) - lu(k,530) = lu(k,530) - lu(k,362) * lu(k,527) - lu(k,531) = lu(k,531) - lu(k,363) * lu(k,527) - lu(k,532) = lu(k,532) - lu(k,364) * lu(k,527) - lu(k,533) = lu(k,533) - lu(k,365) * lu(k,527) - lu(k,534) = lu(k,534) - lu(k,366) * lu(k,527) - lu(k,535) = lu(k,535) - lu(k,367) * lu(k,527) - lu(k,536) = lu(k,536) - lu(k,368) * lu(k,527) - lu(k,537) = lu(k,537) - lu(k,369) * lu(k,527) - lu(k,538) = lu(k,538) - lu(k,370) * lu(k,527) - lu(k,567) = lu(k,567) - lu(k,360) * lu(k,566) - lu(k,568) = lu(k,568) - lu(k,361) * lu(k,566) - lu(k,569) = lu(k,569) - lu(k,362) * lu(k,566) - lu(k,570) = lu(k,570) - lu(k,363) * lu(k,566) - lu(k,571) = lu(k,571) - lu(k,364) * lu(k,566) - lu(k,572) = lu(k,572) - lu(k,365) * lu(k,566) - lu(k,573) = lu(k,573) - lu(k,366) * lu(k,566) - lu(k,574) = lu(k,574) - lu(k,367) * lu(k,566) - lu(k,575) = lu(k,575) - lu(k,368) * lu(k,566) - lu(k,576) = lu(k,576) - lu(k,369) * lu(k,566) - lu(k,577) = lu(k,577) - lu(k,370) * lu(k,566) - lu(k,588) = lu(k,588) - lu(k,360) * lu(k,587) - lu(k,589) = lu(k,589) - lu(k,361) * lu(k,587) - lu(k,590) = lu(k,590) - lu(k,362) * lu(k,587) - lu(k,591) = lu(k,591) - lu(k,363) * lu(k,587) - lu(k,592) = lu(k,592) - lu(k,364) * lu(k,587) - lu(k,593) = lu(k,593) - lu(k,365) * lu(k,587) - lu(k,594) = lu(k,594) - lu(k,366) * lu(k,587) - lu(k,595) = lu(k,595) - lu(k,367) * lu(k,587) - lu(k,596) = lu(k,596) - lu(k,368) * lu(k,587) - lu(k,597) = lu(k,597) - lu(k,369) * lu(k,587) - lu(k,598) = lu(k,598) - lu(k,370) * lu(k,587) - lu(k,608) = lu(k,608) - lu(k,360) * lu(k,607) - lu(k,609) = lu(k,609) - lu(k,361) * lu(k,607) - lu(k,610) = lu(k,610) - lu(k,362) * lu(k,607) - lu(k,611) = lu(k,611) - lu(k,363) * lu(k,607) - lu(k,612) = lu(k,612) - lu(k,364) * lu(k,607) - lu(k,613) = lu(k,613) - lu(k,365) * lu(k,607) - lu(k,614) = lu(k,614) - lu(k,366) * lu(k,607) - lu(k,615) = lu(k,615) - lu(k,367) * lu(k,607) - lu(k,616) = lu(k,616) - lu(k,368) * lu(k,607) - lu(k,617) = lu(k,617) - lu(k,369) * lu(k,607) - lu(k,618) = lu(k,618) - lu(k,370) * lu(k,607) - lu(k,626) = lu(k,626) - lu(k,360) * lu(k,625) - lu(k,627) = lu(k,627) - lu(k,361) * lu(k,625) - lu(k,628) = lu(k,628) - lu(k,362) * lu(k,625) - lu(k,629) = lu(k,629) - lu(k,363) * lu(k,625) - lu(k,630) = lu(k,630) - lu(k,364) * lu(k,625) - lu(k,631) = lu(k,631) - lu(k,365) * lu(k,625) - lu(k,632) = lu(k,632) - lu(k,366) * lu(k,625) - lu(k,633) = lu(k,633) - lu(k,367) * lu(k,625) - lu(k,634) = lu(k,634) - lu(k,368) * lu(k,625) - lu(k,635) = lu(k,635) - lu(k,369) * lu(k,625) - lu(k,636) = lu(k,636) - lu(k,370) * lu(k,625) + 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) @@ -2219,86 +2285,86 @@ subroutine lu_fac08( avec_len, lu ) 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,456) = lu(k,456) - lu(k,386) * lu(k,455) - lu(k,457) = lu(k,457) - lu(k,387) * lu(k,455) - lu(k,458) = lu(k,458) - lu(k,388) * lu(k,455) - lu(k,459) = lu(k,459) - lu(k,389) * lu(k,455) - lu(k,460) = lu(k,460) - lu(k,390) * lu(k,455) - lu(k,461) = lu(k,461) - lu(k,391) * lu(k,455) - lu(k,462) = lu(k,462) - lu(k,392) * lu(k,455) - lu(k,463) = lu(k,463) - lu(k,393) * lu(k,455) - lu(k,464) = lu(k,464) - lu(k,394) * lu(k,455) - lu(k,465) = lu(k,465) - lu(k,395) * lu(k,455) - lu(k,475) = lu(k,475) - lu(k,386) * lu(k,474) - lu(k,476) = lu(k,476) - lu(k,387) * lu(k,474) - lu(k,477) = lu(k,477) - lu(k,388) * lu(k,474) - lu(k,478) = lu(k,478) - lu(k,389) * lu(k,474) - lu(k,479) = lu(k,479) - lu(k,390) * lu(k,474) - lu(k,480) = lu(k,480) - lu(k,391) * lu(k,474) - lu(k,481) = lu(k,481) - lu(k,392) * lu(k,474) - lu(k,482) = lu(k,482) - lu(k,393) * lu(k,474) - lu(k,483) = lu(k,483) - lu(k,394) * lu(k,474) - lu(k,484) = lu(k,484) - lu(k,395) * lu(k,474) - lu(k,498) = lu(k,498) - lu(k,386) * lu(k,497) - lu(k,499) = lu(k,499) - lu(k,387) * lu(k,497) - lu(k,500) = lu(k,500) - lu(k,388) * lu(k,497) - lu(k,501) = lu(k,501) - lu(k,389) * lu(k,497) - lu(k,502) = lu(k,502) - lu(k,390) * lu(k,497) - lu(k,503) = lu(k,503) - lu(k,391) * lu(k,497) - lu(k,504) = lu(k,504) - lu(k,392) * lu(k,497) - lu(k,505) = lu(k,505) - lu(k,393) * lu(k,497) - lu(k,506) = lu(k,506) - lu(k,394) * lu(k,497) - lu(k,507) = lu(k,507) - lu(k,395) * lu(k,497) - lu(k,529) = lu(k,529) - lu(k,386) * lu(k,528) - lu(k,530) = lu(k,530) - lu(k,387) * lu(k,528) - lu(k,531) = lu(k,531) - lu(k,388) * lu(k,528) - lu(k,532) = lu(k,532) - lu(k,389) * lu(k,528) - lu(k,533) = lu(k,533) - lu(k,390) * lu(k,528) - lu(k,534) = lu(k,534) - lu(k,391) * lu(k,528) - lu(k,535) = lu(k,535) - lu(k,392) * lu(k,528) - lu(k,536) = lu(k,536) - lu(k,393) * lu(k,528) - lu(k,537) = lu(k,537) - lu(k,394) * lu(k,528) - lu(k,538) = lu(k,538) - lu(k,395) * lu(k,528) - lu(k,568) = lu(k,568) - lu(k,386) * lu(k,567) - lu(k,569) = lu(k,569) - lu(k,387) * lu(k,567) - lu(k,570) = lu(k,570) - lu(k,388) * lu(k,567) - lu(k,571) = lu(k,571) - lu(k,389) * lu(k,567) - lu(k,572) = lu(k,572) - lu(k,390) * lu(k,567) - lu(k,573) = lu(k,573) - lu(k,391) * lu(k,567) - lu(k,574) = lu(k,574) - lu(k,392) * lu(k,567) - lu(k,575) = lu(k,575) - lu(k,393) * lu(k,567) - lu(k,576) = lu(k,576) - lu(k,394) * lu(k,567) - lu(k,577) = lu(k,577) - lu(k,395) * lu(k,567) - lu(k,589) = lu(k,589) - lu(k,386) * lu(k,588) - lu(k,590) = lu(k,590) - lu(k,387) * lu(k,588) - lu(k,591) = lu(k,591) - lu(k,388) * lu(k,588) - lu(k,592) = lu(k,592) - lu(k,389) * lu(k,588) - lu(k,593) = lu(k,593) - lu(k,390) * lu(k,588) - lu(k,594) = lu(k,594) - lu(k,391) * lu(k,588) - lu(k,595) = lu(k,595) - lu(k,392) * lu(k,588) - lu(k,596) = lu(k,596) - lu(k,393) * lu(k,588) - lu(k,597) = lu(k,597) - lu(k,394) * lu(k,588) - lu(k,598) = lu(k,598) - lu(k,395) * lu(k,588) - lu(k,609) = lu(k,609) - lu(k,386) * lu(k,608) - lu(k,610) = lu(k,610) - lu(k,387) * lu(k,608) - lu(k,611) = lu(k,611) - lu(k,388) * lu(k,608) - lu(k,612) = lu(k,612) - lu(k,389) * lu(k,608) - lu(k,613) = lu(k,613) - lu(k,390) * lu(k,608) - lu(k,614) = lu(k,614) - lu(k,391) * lu(k,608) - lu(k,615) = lu(k,615) - lu(k,392) * lu(k,608) - lu(k,616) = lu(k,616) - lu(k,393) * lu(k,608) - lu(k,617) = lu(k,617) - lu(k,394) * lu(k,608) - lu(k,618) = lu(k,618) - lu(k,395) * lu(k,608) - lu(k,627) = lu(k,627) - lu(k,386) * lu(k,626) - lu(k,628) = lu(k,628) - lu(k,387) * lu(k,626) - lu(k,629) = lu(k,629) - lu(k,388) * lu(k,626) - lu(k,630) = lu(k,630) - lu(k,389) * lu(k,626) - lu(k,631) = lu(k,631) - lu(k,390) * lu(k,626) - lu(k,632) = lu(k,632) - lu(k,391) * lu(k,626) - lu(k,633) = lu(k,633) - lu(k,392) * lu(k,626) - lu(k,634) = lu(k,634) - lu(k,393) * lu(k,626) - lu(k,635) = lu(k,635) - lu(k,394) * lu(k,626) - lu(k,636) = lu(k,636) - lu(k,395) * lu(k,626) + 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) @@ -2318,78 +2384,78 @@ subroutine lu_fac08( avec_len, lu ) 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,457) = lu(k,457) - lu(k,412) * lu(k,456) - lu(k,458) = lu(k,458) - lu(k,413) * lu(k,456) - lu(k,459) = lu(k,459) - lu(k,414) * lu(k,456) - lu(k,460) = lu(k,460) - lu(k,415) * lu(k,456) - lu(k,461) = lu(k,461) - lu(k,416) * lu(k,456) - lu(k,462) = lu(k,462) - lu(k,417) * lu(k,456) - lu(k,463) = lu(k,463) - lu(k,418) * lu(k,456) - lu(k,464) = lu(k,464) - lu(k,419) * lu(k,456) - lu(k,465) = lu(k,465) - lu(k,420) * lu(k,456) - lu(k,476) = lu(k,476) - lu(k,412) * lu(k,475) - lu(k,477) = lu(k,477) - lu(k,413) * lu(k,475) - lu(k,478) = lu(k,478) - lu(k,414) * lu(k,475) - lu(k,479) = lu(k,479) - lu(k,415) * lu(k,475) - lu(k,480) = lu(k,480) - lu(k,416) * lu(k,475) - lu(k,481) = lu(k,481) - lu(k,417) * lu(k,475) - lu(k,482) = lu(k,482) - lu(k,418) * lu(k,475) - lu(k,483) = lu(k,483) - lu(k,419) * lu(k,475) - lu(k,484) = lu(k,484) - lu(k,420) * lu(k,475) - lu(k,499) = lu(k,499) - lu(k,412) * lu(k,498) - lu(k,500) = lu(k,500) - lu(k,413) * lu(k,498) - lu(k,501) = lu(k,501) - lu(k,414) * lu(k,498) - lu(k,502) = lu(k,502) - lu(k,415) * lu(k,498) - lu(k,503) = lu(k,503) - lu(k,416) * lu(k,498) - lu(k,504) = lu(k,504) - lu(k,417) * lu(k,498) - lu(k,505) = lu(k,505) - lu(k,418) * lu(k,498) - lu(k,506) = lu(k,506) - lu(k,419) * lu(k,498) - lu(k,507) = lu(k,507) - lu(k,420) * lu(k,498) - lu(k,530) = lu(k,530) - lu(k,412) * lu(k,529) - lu(k,531) = lu(k,531) - lu(k,413) * lu(k,529) - lu(k,532) = lu(k,532) - lu(k,414) * lu(k,529) - lu(k,533) = lu(k,533) - lu(k,415) * lu(k,529) - lu(k,534) = lu(k,534) - lu(k,416) * lu(k,529) - lu(k,535) = lu(k,535) - lu(k,417) * lu(k,529) - lu(k,536) = lu(k,536) - lu(k,418) * lu(k,529) - lu(k,537) = lu(k,537) - lu(k,419) * lu(k,529) - lu(k,538) = lu(k,538) - lu(k,420) * lu(k,529) - lu(k,569) = lu(k,569) - lu(k,412) * lu(k,568) - lu(k,570) = lu(k,570) - lu(k,413) * lu(k,568) - lu(k,571) = lu(k,571) - lu(k,414) * lu(k,568) - lu(k,572) = lu(k,572) - lu(k,415) * lu(k,568) - lu(k,573) = lu(k,573) - lu(k,416) * lu(k,568) - lu(k,574) = lu(k,574) - lu(k,417) * lu(k,568) - lu(k,575) = lu(k,575) - lu(k,418) * lu(k,568) - lu(k,576) = lu(k,576) - lu(k,419) * lu(k,568) - lu(k,577) = lu(k,577) - lu(k,420) * lu(k,568) - lu(k,590) = lu(k,590) - lu(k,412) * lu(k,589) - lu(k,591) = lu(k,591) - lu(k,413) * lu(k,589) - lu(k,592) = lu(k,592) - lu(k,414) * lu(k,589) - lu(k,593) = lu(k,593) - lu(k,415) * lu(k,589) - lu(k,594) = lu(k,594) - lu(k,416) * lu(k,589) - lu(k,595) = lu(k,595) - lu(k,417) * lu(k,589) - lu(k,596) = lu(k,596) - lu(k,418) * lu(k,589) - lu(k,597) = lu(k,597) - lu(k,419) * lu(k,589) - lu(k,598) = lu(k,598) - lu(k,420) * lu(k,589) - lu(k,610) = lu(k,610) - lu(k,412) * lu(k,609) - lu(k,611) = lu(k,611) - lu(k,413) * lu(k,609) - lu(k,612) = lu(k,612) - lu(k,414) * lu(k,609) - lu(k,613) = lu(k,613) - lu(k,415) * lu(k,609) - lu(k,614) = lu(k,614) - lu(k,416) * lu(k,609) - lu(k,615) = lu(k,615) - lu(k,417) * lu(k,609) - lu(k,616) = lu(k,616) - lu(k,418) * lu(k,609) - lu(k,617) = lu(k,617) - lu(k,419) * lu(k,609) - lu(k,618) = lu(k,618) - lu(k,420) * lu(k,609) - lu(k,628) = lu(k,628) - lu(k,412) * lu(k,627) - lu(k,629) = lu(k,629) - lu(k,413) * lu(k,627) - lu(k,630) = lu(k,630) - lu(k,414) * lu(k,627) - lu(k,631) = lu(k,631) - lu(k,415) * lu(k,627) - lu(k,632) = lu(k,632) - lu(k,416) * lu(k,627) - lu(k,633) = lu(k,633) - lu(k,417) * lu(k,627) - lu(k,634) = lu(k,634) - lu(k,418) * lu(k,627) - lu(k,635) = lu(k,635) - lu(k,419) * lu(k,627) - lu(k,636) = lu(k,636) - lu(k,420) * lu(k,627) + 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) @@ -2399,70 +2465,70 @@ subroutine lu_fac08( avec_len, lu ) 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,458) = lu(k,458) - lu(k,438) * lu(k,457) - lu(k,459) = lu(k,459) - lu(k,439) * lu(k,457) - lu(k,460) = lu(k,460) - lu(k,440) * lu(k,457) - lu(k,461) = lu(k,461) - lu(k,441) * lu(k,457) - lu(k,462) = lu(k,462) - lu(k,442) * lu(k,457) - lu(k,463) = lu(k,463) - lu(k,443) * lu(k,457) - lu(k,464) = lu(k,464) - lu(k,444) * lu(k,457) - lu(k,465) = lu(k,465) - lu(k,445) * lu(k,457) - lu(k,477) = lu(k,477) - lu(k,438) * lu(k,476) - lu(k,478) = lu(k,478) - lu(k,439) * lu(k,476) - lu(k,479) = lu(k,479) - lu(k,440) * lu(k,476) - lu(k,480) = lu(k,480) - lu(k,441) * lu(k,476) - lu(k,481) = lu(k,481) - lu(k,442) * lu(k,476) - lu(k,482) = lu(k,482) - lu(k,443) * lu(k,476) - lu(k,483) = lu(k,483) - lu(k,444) * lu(k,476) - lu(k,484) = lu(k,484) - lu(k,445) * lu(k,476) - lu(k,500) = lu(k,500) - lu(k,438) * lu(k,499) - lu(k,501) = lu(k,501) - lu(k,439) * lu(k,499) - lu(k,502) = lu(k,502) - lu(k,440) * lu(k,499) - lu(k,503) = lu(k,503) - lu(k,441) * lu(k,499) - lu(k,504) = lu(k,504) - lu(k,442) * lu(k,499) - lu(k,505) = lu(k,505) - lu(k,443) * lu(k,499) - lu(k,506) = lu(k,506) - lu(k,444) * lu(k,499) - lu(k,507) = lu(k,507) - lu(k,445) * lu(k,499) - lu(k,531) = lu(k,531) - lu(k,438) * lu(k,530) - lu(k,532) = lu(k,532) - lu(k,439) * lu(k,530) - lu(k,533) = lu(k,533) - lu(k,440) * lu(k,530) - lu(k,534) = lu(k,534) - lu(k,441) * lu(k,530) - lu(k,535) = lu(k,535) - lu(k,442) * lu(k,530) - lu(k,536) = lu(k,536) - lu(k,443) * lu(k,530) - lu(k,537) = lu(k,537) - lu(k,444) * lu(k,530) - lu(k,538) = lu(k,538) - lu(k,445) * lu(k,530) - lu(k,570) = lu(k,570) - lu(k,438) * lu(k,569) - lu(k,571) = lu(k,571) - lu(k,439) * lu(k,569) - lu(k,572) = lu(k,572) - lu(k,440) * lu(k,569) - lu(k,573) = lu(k,573) - lu(k,441) * lu(k,569) - lu(k,574) = lu(k,574) - lu(k,442) * lu(k,569) - lu(k,575) = lu(k,575) - lu(k,443) * lu(k,569) - lu(k,576) = lu(k,576) - lu(k,444) * lu(k,569) - lu(k,577) = lu(k,577) - lu(k,445) * lu(k,569) - lu(k,591) = lu(k,591) - lu(k,438) * lu(k,590) - lu(k,592) = lu(k,592) - lu(k,439) * lu(k,590) - lu(k,593) = lu(k,593) - lu(k,440) * lu(k,590) - lu(k,594) = lu(k,594) - lu(k,441) * lu(k,590) - lu(k,595) = lu(k,595) - lu(k,442) * lu(k,590) - lu(k,596) = lu(k,596) - lu(k,443) * lu(k,590) - lu(k,597) = lu(k,597) - lu(k,444) * lu(k,590) - lu(k,598) = lu(k,598) - lu(k,445) * lu(k,590) - lu(k,611) = lu(k,611) - lu(k,438) * lu(k,610) - lu(k,612) = lu(k,612) - lu(k,439) * lu(k,610) - lu(k,613) = lu(k,613) - lu(k,440) * lu(k,610) - lu(k,614) = lu(k,614) - lu(k,441) * lu(k,610) - lu(k,615) = lu(k,615) - lu(k,442) * lu(k,610) - lu(k,616) = lu(k,616) - lu(k,443) * lu(k,610) - lu(k,617) = lu(k,617) - lu(k,444) * lu(k,610) - lu(k,618) = lu(k,618) - lu(k,445) * lu(k,610) - lu(k,629) = lu(k,629) - lu(k,438) * lu(k,628) - lu(k,630) = lu(k,630) - lu(k,439) * lu(k,628) - lu(k,631) = lu(k,631) - lu(k,440) * lu(k,628) - lu(k,632) = lu(k,632) - lu(k,441) * lu(k,628) - lu(k,633) = lu(k,633) - lu(k,442) * lu(k,628) - lu(k,634) = lu(k,634) - lu(k,443) * lu(k,628) - lu(k,635) = lu(k,635) - lu(k,444) * lu(k,628) - lu(k,636) = lu(k,636) - lu(k,445) * lu(k,628) + 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 ) @@ -2479,182 +2545,182 @@ subroutine lu_fac09( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,458) = 1._r8 / lu(k,458) - lu(k,459) = lu(k,459) * lu(k,458) - lu(k,460) = lu(k,460) * lu(k,458) - lu(k,461) = lu(k,461) * lu(k,458) - lu(k,462) = lu(k,462) * lu(k,458) - lu(k,463) = lu(k,463) * lu(k,458) - lu(k,464) = lu(k,464) * lu(k,458) - lu(k,465) = lu(k,465) * lu(k,458) - lu(k,478) = lu(k,478) - lu(k,459) * lu(k,477) - lu(k,479) = lu(k,479) - lu(k,460) * lu(k,477) - lu(k,480) = lu(k,480) - lu(k,461) * lu(k,477) - lu(k,481) = lu(k,481) - lu(k,462) * lu(k,477) - lu(k,482) = lu(k,482) - lu(k,463) * lu(k,477) - lu(k,483) = lu(k,483) - lu(k,464) * lu(k,477) - lu(k,484) = lu(k,484) - lu(k,465) * lu(k,477) - lu(k,501) = lu(k,501) - lu(k,459) * lu(k,500) - lu(k,502) = lu(k,502) - lu(k,460) * lu(k,500) - lu(k,503) = lu(k,503) - lu(k,461) * lu(k,500) - lu(k,504) = lu(k,504) - lu(k,462) * lu(k,500) - lu(k,505) = lu(k,505) - lu(k,463) * lu(k,500) - lu(k,506) = lu(k,506) - lu(k,464) * lu(k,500) - lu(k,507) = lu(k,507) - lu(k,465) * lu(k,500) - lu(k,532) = lu(k,532) - lu(k,459) * lu(k,531) - lu(k,533) = lu(k,533) - lu(k,460) * lu(k,531) - lu(k,534) = lu(k,534) - lu(k,461) * lu(k,531) - lu(k,535) = lu(k,535) - lu(k,462) * lu(k,531) - lu(k,536) = lu(k,536) - lu(k,463) * lu(k,531) - lu(k,537) = lu(k,537) - lu(k,464) * lu(k,531) - lu(k,538) = lu(k,538) - lu(k,465) * lu(k,531) - lu(k,571) = lu(k,571) - lu(k,459) * lu(k,570) - lu(k,572) = lu(k,572) - lu(k,460) * lu(k,570) - lu(k,573) = lu(k,573) - lu(k,461) * lu(k,570) - lu(k,574) = lu(k,574) - lu(k,462) * lu(k,570) - lu(k,575) = lu(k,575) - lu(k,463) * lu(k,570) - lu(k,576) = lu(k,576) - lu(k,464) * lu(k,570) - lu(k,577) = lu(k,577) - lu(k,465) * lu(k,570) - lu(k,592) = lu(k,592) - lu(k,459) * lu(k,591) - lu(k,593) = lu(k,593) - lu(k,460) * lu(k,591) - lu(k,594) = lu(k,594) - lu(k,461) * lu(k,591) - lu(k,595) = lu(k,595) - lu(k,462) * lu(k,591) - lu(k,596) = lu(k,596) - lu(k,463) * lu(k,591) - lu(k,597) = lu(k,597) - lu(k,464) * lu(k,591) - lu(k,598) = lu(k,598) - lu(k,465) * lu(k,591) - lu(k,612) = lu(k,612) - lu(k,459) * lu(k,611) - lu(k,613) = lu(k,613) - lu(k,460) * lu(k,611) - lu(k,614) = lu(k,614) - lu(k,461) * lu(k,611) - lu(k,615) = lu(k,615) - lu(k,462) * lu(k,611) - lu(k,616) = lu(k,616) - lu(k,463) * lu(k,611) - lu(k,617) = lu(k,617) - lu(k,464) * lu(k,611) - lu(k,618) = lu(k,618) - lu(k,465) * lu(k,611) - lu(k,630) = lu(k,630) - lu(k,459) * lu(k,629) - lu(k,631) = lu(k,631) - lu(k,460) * lu(k,629) - lu(k,632) = lu(k,632) - lu(k,461) * lu(k,629) - lu(k,633) = lu(k,633) - lu(k,462) * lu(k,629) - lu(k,634) = lu(k,634) - lu(k,463) * lu(k,629) - lu(k,635) = lu(k,635) - lu(k,464) * lu(k,629) - lu(k,636) = lu(k,636) - lu(k,465) * lu(k,629) - lu(k,478) = 1._r8 / lu(k,478) - lu(k,479) = lu(k,479) * lu(k,478) - lu(k,480) = lu(k,480) * lu(k,478) - lu(k,481) = lu(k,481) * lu(k,478) - lu(k,482) = lu(k,482) * lu(k,478) - lu(k,483) = lu(k,483) * lu(k,478) - lu(k,484) = lu(k,484) * lu(k,478) - lu(k,502) = lu(k,502) - lu(k,479) * lu(k,501) - lu(k,503) = lu(k,503) - lu(k,480) * lu(k,501) - lu(k,504) = lu(k,504) - lu(k,481) * lu(k,501) - lu(k,505) = lu(k,505) - lu(k,482) * lu(k,501) - lu(k,506) = lu(k,506) - lu(k,483) * lu(k,501) - lu(k,507) = lu(k,507) - lu(k,484) * lu(k,501) - lu(k,533) = lu(k,533) - lu(k,479) * lu(k,532) - lu(k,534) = lu(k,534) - lu(k,480) * lu(k,532) - lu(k,535) = lu(k,535) - lu(k,481) * lu(k,532) - lu(k,536) = lu(k,536) - lu(k,482) * lu(k,532) - lu(k,537) = lu(k,537) - lu(k,483) * lu(k,532) - lu(k,538) = lu(k,538) - lu(k,484) * lu(k,532) - lu(k,572) = lu(k,572) - lu(k,479) * lu(k,571) - lu(k,573) = lu(k,573) - lu(k,480) * lu(k,571) - lu(k,574) = lu(k,574) - lu(k,481) * lu(k,571) - lu(k,575) = lu(k,575) - lu(k,482) * lu(k,571) - lu(k,576) = lu(k,576) - lu(k,483) * lu(k,571) - lu(k,577) = lu(k,577) - lu(k,484) * lu(k,571) - lu(k,593) = lu(k,593) - lu(k,479) * lu(k,592) - lu(k,594) = lu(k,594) - lu(k,480) * lu(k,592) - lu(k,595) = lu(k,595) - lu(k,481) * lu(k,592) - lu(k,596) = lu(k,596) - lu(k,482) * lu(k,592) - lu(k,597) = lu(k,597) - lu(k,483) * lu(k,592) - lu(k,598) = lu(k,598) - lu(k,484) * lu(k,592) - lu(k,613) = lu(k,613) - lu(k,479) * lu(k,612) - lu(k,614) = lu(k,614) - lu(k,480) * lu(k,612) - lu(k,615) = lu(k,615) - lu(k,481) * lu(k,612) - lu(k,616) = lu(k,616) - lu(k,482) * lu(k,612) - lu(k,617) = lu(k,617) - lu(k,483) * lu(k,612) - lu(k,618) = lu(k,618) - lu(k,484) * lu(k,612) - lu(k,631) = lu(k,631) - lu(k,479) * lu(k,630) - lu(k,632) = lu(k,632) - lu(k,480) * lu(k,630) - lu(k,633) = lu(k,633) - lu(k,481) * lu(k,630) - lu(k,634) = lu(k,634) - lu(k,482) * lu(k,630) - lu(k,635) = lu(k,635) - lu(k,483) * lu(k,630) - lu(k,636) = lu(k,636) - lu(k,484) * lu(k,630) - lu(k,502) = 1._r8 / lu(k,502) - lu(k,503) = lu(k,503) * lu(k,502) - lu(k,504) = lu(k,504) * lu(k,502) - lu(k,505) = lu(k,505) * lu(k,502) - lu(k,506) = lu(k,506) * lu(k,502) - lu(k,507) = lu(k,507) * lu(k,502) - lu(k,534) = lu(k,534) - lu(k,503) * lu(k,533) - lu(k,535) = lu(k,535) - lu(k,504) * lu(k,533) - lu(k,536) = lu(k,536) - lu(k,505) * lu(k,533) - lu(k,537) = lu(k,537) - lu(k,506) * lu(k,533) - lu(k,538) = lu(k,538) - lu(k,507) * lu(k,533) - lu(k,573) = lu(k,573) - lu(k,503) * lu(k,572) - lu(k,574) = lu(k,574) - lu(k,504) * lu(k,572) - lu(k,575) = lu(k,575) - lu(k,505) * lu(k,572) - lu(k,576) = lu(k,576) - lu(k,506) * lu(k,572) - lu(k,577) = lu(k,577) - lu(k,507) * lu(k,572) - lu(k,594) = lu(k,594) - lu(k,503) * lu(k,593) - lu(k,595) = lu(k,595) - lu(k,504) * lu(k,593) - lu(k,596) = lu(k,596) - lu(k,505) * lu(k,593) - lu(k,597) = lu(k,597) - lu(k,506) * lu(k,593) - lu(k,598) = lu(k,598) - lu(k,507) * lu(k,593) - lu(k,614) = lu(k,614) - lu(k,503) * lu(k,613) - lu(k,615) = lu(k,615) - lu(k,504) * lu(k,613) - lu(k,616) = lu(k,616) - lu(k,505) * lu(k,613) - lu(k,617) = lu(k,617) - lu(k,506) * lu(k,613) - lu(k,618) = lu(k,618) - lu(k,507) * lu(k,613) - lu(k,632) = lu(k,632) - lu(k,503) * lu(k,631) - lu(k,633) = lu(k,633) - lu(k,504) * lu(k,631) - lu(k,634) = lu(k,634) - lu(k,505) * lu(k,631) - lu(k,635) = lu(k,635) - lu(k,506) * lu(k,631) - lu(k,636) = lu(k,636) - lu(k,507) * lu(k,631) - lu(k,534) = 1._r8 / lu(k,534) - lu(k,535) = lu(k,535) * lu(k,534) - lu(k,536) = lu(k,536) * lu(k,534) - lu(k,537) = lu(k,537) * lu(k,534) - lu(k,538) = lu(k,538) * lu(k,534) - lu(k,574) = lu(k,574) - lu(k,535) * lu(k,573) - lu(k,575) = lu(k,575) - lu(k,536) * lu(k,573) - lu(k,576) = lu(k,576) - lu(k,537) * lu(k,573) - lu(k,577) = lu(k,577) - lu(k,538) * lu(k,573) - lu(k,595) = lu(k,595) - lu(k,535) * lu(k,594) - lu(k,596) = lu(k,596) - lu(k,536) * lu(k,594) - lu(k,597) = lu(k,597) - lu(k,537) * lu(k,594) - lu(k,598) = lu(k,598) - lu(k,538) * lu(k,594) - lu(k,615) = lu(k,615) - lu(k,535) * lu(k,614) - lu(k,616) = lu(k,616) - lu(k,536) * lu(k,614) - lu(k,617) = lu(k,617) - lu(k,537) * lu(k,614) - lu(k,618) = lu(k,618) - lu(k,538) * lu(k,614) - lu(k,633) = lu(k,633) - lu(k,535) * lu(k,632) - lu(k,634) = lu(k,634) - lu(k,536) * lu(k,632) - lu(k,635) = lu(k,635) - lu(k,537) * lu(k,632) - lu(k,636) = lu(k,636) - lu(k,538) * lu(k,632) - 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,596) = lu(k,596) - lu(k,575) * lu(k,595) - lu(k,597) = lu(k,597) - lu(k,576) * lu(k,595) - lu(k,598) = lu(k,598) - lu(k,577) * lu(k,595) - lu(k,616) = lu(k,616) - lu(k,575) * lu(k,615) - lu(k,617) = lu(k,617) - lu(k,576) * lu(k,615) - lu(k,618) = lu(k,618) - lu(k,577) * lu(k,615) - lu(k,634) = lu(k,634) - lu(k,575) * lu(k,633) - lu(k,635) = lu(k,635) - lu(k,576) * lu(k,633) - lu(k,636) = lu(k,636) - lu(k,577) * lu(k,633) - lu(k,596) = 1._r8 / lu(k,596) - lu(k,597) = lu(k,597) * lu(k,596) - lu(k,598) = lu(k,598) * lu(k,596) - lu(k,617) = lu(k,617) - lu(k,597) * lu(k,616) - lu(k,618) = lu(k,618) - lu(k,598) * lu(k,616) - lu(k,635) = lu(k,635) - lu(k,597) * lu(k,634) - lu(k,636) = lu(k,636) - lu(k,598) * lu(k,634) - lu(k,617) = 1._r8 / lu(k,617) - lu(k,618) = lu(k,618) * lu(k,617) - lu(k,636) = lu(k,636) - lu(k,618) * lu(k,635) - lu(k,636) = 1._r8 / lu(k,636) + 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,647) = lu(k,647) - lu(k,608) * lu(k,646) + lu(k,647) = 1._r8 / lu(k,647) end do end subroutine lu_fac09 subroutine lu_fac( avec_len, lu ) diff --git a/src/chemistry/pp_waccm_ma/mo_lu_solve.F90 b/src/chemistry/pp_waccm_ma/mo_lu_solve.F90 index d5f257eef2..8eb1800255 100644 --- a/src/chemistry/pp_waccm_ma/mo_lu_solve.F90 +++ b/src/chemistry/pp_waccm_ma/mo_lu_solve.F90 @@ -21,215 +21,209 @@ subroutine lu_slv01( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,38) = b(k,38) - lu(k,2) * b(k,1) - b(k,39) = b(k,39) - lu(k,3) * b(k,1) - b(k,26) = b(k,26) - lu(k,5) * b(k,2) + 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,39) = b(k,39) - lu(k,8) * b(k,3) - b(k,47) = b(k,47) - 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,38) = b(k,38) - lu(k,16) * b(k,6) - b(k,26) = b(k,26) - lu(k,18) * b(k,7) - b(k,38) = b(k,38) - lu(k,19) * b(k,7) - b(k,42) = b(k,42) - lu(k,20) * b(k,7) + 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,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,43) = b(k,43) - lu(k,23) * b(k,8) - b(k,26) = b(k,26) - lu(k,25) * b(k,9) + 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,40) = b(k,40) - lu(k,29) * b(k,10) b(k,41) = b(k,41) - lu(k,30) * b(k,10) - b(k,47) = b(k,47) - lu(k,31) * b(k,10) - b(k,48) = b(k,48) - lu(k,32) * b(k,10) + b(k,45) = b(k,45) - lu(k,31) * 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,40) = b(k,40) - lu(k,42) * b(k,12) + b(k,37) = b(k,37) - lu(k,42) * b(k,12) b(k,41) = b(k,41) - lu(k,43) * b(k,12) - b(k,46) = b(k,46) - lu(k,44) * b(k,12) - b(k,48) = b(k,48) - lu(k,45) * 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,20) = b(k,20) - lu(k,49) * b(k,13) - b(k,21) = b(k,21) - lu(k,50) * b(k,13) - b(k,37) = b(k,37) - lu(k,51) * b(k,13) - b(k,47) = b(k,47) - lu(k,52) * b(k,13) - b(k,20) = b(k,20) - lu(k,54) * b(k,14) - b(k,21) = b(k,21) - lu(k,55) * b(k,14) - b(k,23) = b(k,23) - lu(k,56) * b(k,14) + 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,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,47) = b(k,47) - lu(k,58) * b(k,14) - b(k,27) = b(k,27) - lu(k,60) * b(k,15) - b(k,32) = b(k,32) - lu(k,61) * b(k,15) - b(k,37) = b(k,37) - lu(k,62) * b(k,15) - b(k,42) = b(k,42) - lu(k,63) * b(k,15) - b(k,22) = b(k,22) - lu(k,65) * b(k,16) - b(k,31) = b(k,31) - lu(k,66) * b(k,16) - b(k,41) = b(k,41) - lu(k,67) * b(k,16) - b(k,43) = b(k,43) - lu(k,68) * b(k,16) - b(k,45) = b(k,45) - lu(k,69) * b(k,16) - b(k,47) = b(k,47) - lu(k,70) * b(k,16) - b(k,48) = b(k,48) - lu(k,71) * b(k,16) - b(k,36) = b(k,36) - lu(k,73) * b(k,17) - b(k,40) = b(k,40) - lu(k,74) * b(k,17) + 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,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,50) = b(k,50) - lu(k,66) * b(k,15) + b(k,36) = b(k,36) - lu(k,68) * 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,37) = b(k,37) - lu(k,74) * b(k,17) b(k,46) = b(k,46) - lu(k,75) * b(k,17) - b(k,21) = b(k,21) - lu(k,77) * b(k,18) - b(k,23) = b(k,23) - lu(k,78) * b(k,18) - b(k,24) = b(k,24) - lu(k,79) * b(k,18) - b(k,27) = b(k,27) - lu(k,80) * b(k,18) - b(k,32) = b(k,32) - lu(k,81) * b(k,18) - b(k,47) = b(k,47) - lu(k,82) * b(k,18) - b(k,33) = b(k,33) - lu(k,84) * b(k,19) - b(k,34) = b(k,34) - lu(k,85) * b(k,19) - b(k,38) = b(k,38) - lu(k,86) * b(k,19) - b(k,40) = b(k,40) - lu(k,87) * b(k,19) - b(k,46) = b(k,46) - lu(k,88) * b(k,19) - b(k,47) = b(k,47) - lu(k,89) * b(k,19) - b(k,21) = b(k,21) - lu(k,92) * b(k,20) - b(k,23) = b(k,23) - lu(k,93) * b(k,20) - b(k,24) = b(k,24) - lu(k,94) * b(k,20) - b(k,25) = b(k,25) - lu(k,95) * b(k,20) - b(k,27) = b(k,27) - lu(k,96) * b(k,20) - b(k,32) = b(k,32) - lu(k,97) * b(k,20) - b(k,37) = b(k,37) - lu(k,98) * b(k,20) - b(k,42) = b(k,42) - lu(k,99) * b(k,20) - b(k,47) = b(k,47) - lu(k,100) * b(k,20) - b(k,23) = b(k,23) - lu(k,103) * b(k,21) - b(k,24) = b(k,24) - lu(k,104) * b(k,21) - b(k,27) = b(k,27) - lu(k,105) * b(k,21) - b(k,32) = b(k,32) - lu(k,106) * b(k,21) - b(k,36) = b(k,36) - lu(k,107) * b(k,21) - b(k,40) = b(k,40) - lu(k,108) * b(k,21) - b(k,46) = b(k,46) - lu(k,109) * b(k,21) - b(k,47) = b(k,47) - lu(k,110) * b(k,21) - b(k,33) = b(k,33) - lu(k,113) * b(k,22) - b(k,34) = b(k,34) - lu(k,114) * b(k,22) - b(k,38) = b(k,38) - lu(k,115) * b(k,22) - b(k,43) = b(k,43) - lu(k,116) * b(k,22) - b(k,45) = b(k,45) - lu(k,117) * b(k,22) - b(k,46) = b(k,46) - lu(k,118) * b(k,22) - b(k,47) = b(k,47) - lu(k,119) * b(k,22) - b(k,24) = b(k,24) - lu(k,121) * b(k,23) - b(k,25) = b(k,25) - lu(k,122) * b(k,23) - b(k,27) = b(k,27) - lu(k,123) * b(k,23) - b(k,32) = b(k,32) - lu(k,124) * b(k,23) - b(k,37) = b(k,37) - lu(k,125) * b(k,23) - b(k,42) = b(k,42) - lu(k,126) * b(k,23) - b(k,47) = b(k,47) - lu(k,127) * b(k,23) - b(k,25) = b(k,25) - lu(k,130) * b(k,24) - b(k,27) = b(k,27) - lu(k,131) * b(k,24) - b(k,32) = b(k,32) - lu(k,132) * b(k,24) - b(k,37) = b(k,37) - lu(k,133) * b(k,24) - b(k,42) = b(k,42) - lu(k,134) * b(k,24) - b(k,47) = b(k,47) - lu(k,135) * b(k,24) - b(k,27) = b(k,27) - lu(k,145) * b(k,25) - b(k,32) = b(k,32) - lu(k,146) * b(k,25) - b(k,36) = b(k,36) - lu(k,147) * b(k,25) - b(k,37) = b(k,37) - lu(k,148) * b(k,25) - b(k,40) = b(k,40) - lu(k,149) * b(k,25) - b(k,42) = b(k,42) - lu(k,150) * b(k,25) - b(k,46) = b(k,46) - lu(k,151) * b(k,25) - b(k,47) = b(k,47) - lu(k,152) * b(k,25) - b(k,31) = b(k,31) - lu(k,155) * b(k,26) - b(k,33) = b(k,33) - lu(k,156) * b(k,26) - b(k,36) = b(k,36) - lu(k,157) * b(k,26) - b(k,44) = b(k,44) - lu(k,158) * b(k,26) - b(k,46) = b(k,46) - lu(k,159) * b(k,26) - b(k,48) = b(k,48) - lu(k,160) * b(k,26) - b(k,49) = b(k,49) - lu(k,161) * b(k,26) - b(k,32) = b(k,32) - lu(k,168) * b(k,27) - b(k,36) = b(k,36) - lu(k,169) * b(k,27) - b(k,37) = b(k,37) - lu(k,170) * b(k,27) - b(k,40) = b(k,40) - lu(k,171) * b(k,27) - b(k,41) = b(k,41) - lu(k,172) * b(k,27) - b(k,42) = b(k,42) - lu(k,173) * b(k,27) - b(k,46) = b(k,46) - lu(k,174) * b(k,27) - b(k,47) = b(k,47) - lu(k,175) * b(k,27) - b(k,33) = b(k,33) - lu(k,178) * b(k,28) - b(k,34) = b(k,34) - lu(k,179) * b(k,28) - b(k,38) = b(k,38) - lu(k,180) * b(k,28) - b(k,39) = b(k,39) - lu(k,181) * b(k,28) - b(k,46) = b(k,46) - lu(k,182) * b(k,28) - b(k,47) = b(k,47) - lu(k,183) * b(k,28) - b(k,33) = b(k,33) - lu(k,185) * b(k,29) - b(k,36) = b(k,36) - lu(k,186) * b(k,29) - b(k,42) = b(k,42) - lu(k,187) * b(k,29) - b(k,43) = b(k,43) - lu(k,188) * b(k,29) - b(k,45) = b(k,45) - lu(k,189) * b(k,29) - b(k,46) = b(k,46) - lu(k,190) * b(k,29) - b(k,47) = b(k,47) - lu(k,191) * b(k,29) - b(k,31) = b(k,31) - lu(k,195) * b(k,30) - b(k,33) = b(k,33) - lu(k,196) * b(k,30) - b(k,34) = b(k,34) - lu(k,197) * b(k,30) - b(k,38) = b(k,38) - lu(k,198) * b(k,30) - b(k,39) = b(k,39) - lu(k,199) * b(k,30) - b(k,41) = b(k,41) - lu(k,200) * b(k,30) - b(k,46) = b(k,46) - lu(k,201) * b(k,30) - b(k,47) = b(k,47) - lu(k,202) * b(k,30) - b(k,48) = b(k,48) - lu(k,203) * b(k,30) - b(k,33) = b(k,33) - lu(k,207) * b(k,31) - b(k,36) = b(k,36) - lu(k,208) * b(k,31) - b(k,41) = b(k,41) - lu(k,209) * b(k,31) - b(k,44) = b(k,44) - lu(k,210) * b(k,31) - b(k,46) = b(k,46) - lu(k,211) * b(k,31) - b(k,48) = b(k,48) - lu(k,212) * b(k,31) - b(k,49) = b(k,49) - lu(k,213) * b(k,31) - b(k,36) = b(k,36) - lu(k,227) * b(k,32) - b(k,37) = b(k,37) - lu(k,228) * b(k,32) - b(k,40) = b(k,40) - lu(k,229) * b(k,32) - b(k,41) = b(k,41) - lu(k,230) * b(k,32) - b(k,42) = b(k,42) - lu(k,231) * b(k,32) - b(k,46) = b(k,46) - lu(k,232) * b(k,32) - b(k,47) = b(k,47) - lu(k,233) * b(k,32) - b(k,50) = b(k,50) - lu(k,234) * b(k,32) - b(k,36) = b(k,36) - lu(k,239) * b(k,33) - b(k,41) = b(k,41) - lu(k,240) * b(k,33) - b(k,42) = b(k,42) - lu(k,241) * b(k,33) - b(k,44) = b(k,44) - lu(k,242) * b(k,33) - b(k,46) = b(k,46) - lu(k,243) * b(k,33) - b(k,47) = b(k,47) - lu(k,244) * b(k,33) - b(k,48) = b(k,48) - lu(k,245) * b(k,33) - b(k,49) = b(k,49) - lu(k,246) * b(k,33) - b(k,36) = b(k,36) - lu(k,255) * b(k,34) - b(k,38) = b(k,38) - lu(k,256) * b(k,34) - b(k,39) = b(k,39) - lu(k,257) * b(k,34) - b(k,41) = b(k,41) - lu(k,258) * b(k,34) - b(k,42) = b(k,42) - lu(k,259) * b(k,34) - b(k,43) = b(k,43) - lu(k,260) * b(k,34) - b(k,44) = b(k,44) - lu(k,261) * b(k,34) - b(k,45) = b(k,45) - lu(k,262) * b(k,34) - b(k,46) = b(k,46) - lu(k,263) * b(k,34) - b(k,47) = b(k,47) - lu(k,264) * b(k,34) - b(k,48) = b(k,48) - lu(k,265) * b(k,34) - b(k,49) = b(k,49) - lu(k,266) * b(k,34) - b(k,36) = b(k,36) - lu(k,273) * b(k,35) - b(k,38) = b(k,38) - lu(k,274) * b(k,35) - b(k,39) = b(k,39) - lu(k,275) * b(k,35) - b(k,40) = b(k,40) - lu(k,276) * b(k,35) - b(k,41) = b(k,41) - lu(k,277) * b(k,35) - b(k,42) = b(k,42) - lu(k,278) * b(k,35) - b(k,43) = b(k,43) - lu(k,279) * b(k,35) - b(k,44) = b(k,44) - lu(k,280) * b(k,35) - b(k,45) = b(k,45) - lu(k,281) * b(k,35) - b(k,46) = b(k,46) - lu(k,282) * b(k,35) - b(k,47) = b(k,47) - lu(k,283) * b(k,35) - b(k,48) = b(k,48) - lu(k,284) * b(k,35) - b(k,49) = b(k,49) - lu(k,285) * b(k,35) - b(k,37) = b(k,37) - lu(k,289) * b(k,36) - b(k,40) = b(k,40) - lu(k,290) * b(k,36) - b(k,41) = b(k,41) - lu(k,291) * b(k,36) - b(k,42) = b(k,42) - lu(k,292) * b(k,36) - b(k,44) = b(k,44) - lu(k,293) * b(k,36) - b(k,46) = b(k,46) - lu(k,294) * b(k,36) - b(k,47) = b(k,47) - lu(k,295) * b(k,36) - b(k,48) = b(k,48) - lu(k,296) * b(k,36) - b(k,49) = b(k,49) - lu(k,297) * b(k,36) - b(k,50) = b(k,50) - lu(k,298) * b(k,36) + 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) + b(k,27) = b(k,27) - lu(k,82) * b(k,18) + 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,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,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,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,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,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,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,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,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,40) = b(k,40) - lu(k,154) * b(k,26) + b(k,42) = b(k,42) - lu(k,155) * 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,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,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,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,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,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,47) = b(k,47) - lu(k,223) * b(k,31) + b(k,36) = b(k,36) - lu(k,237) * 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,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,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,38) = b(k,38) - lu(k,266) * b(k,34) + b(k,39) = b(k,39) - lu(k,267) * 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,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,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) + b(k,44) = b(k,44) - lu(k,290) * b(k,35) + b(k,45) = b(k,45) - lu(k,291) * b(k,35) + 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,50) = b(k,50) - lu(k,295) * b(k,35) end do end subroutine lu_slv01 subroutine lu_slv02( avec_len, lu, b ) @@ -250,42 +244,52 @@ subroutine lu_slv02( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,38) = b(k,38) - lu(k,307) * b(k,37) - b(k,39) = b(k,39) - lu(k,308) * b(k,37) - b(k,40) = b(k,40) - lu(k,309) * b(k,37) - b(k,41) = b(k,41) - lu(k,310) * b(k,37) - b(k,42) = b(k,42) - lu(k,311) * b(k,37) - b(k,43) = b(k,43) - lu(k,312) * b(k,37) - b(k,44) = b(k,44) - lu(k,313) * b(k,37) - b(k,45) = b(k,45) - lu(k,314) * b(k,37) - b(k,46) = b(k,46) - lu(k,315) * b(k,37) - b(k,47) = b(k,47) - lu(k,316) * b(k,37) - b(k,48) = b(k,48) - lu(k,317) * b(k,37) - b(k,49) = b(k,49) - lu(k,318) * b(k,37) - b(k,50) = b(k,50) - lu(k,319) * b(k,37) - b(k,39) = b(k,39) - lu(k,333) * b(k,38) - b(k,40) = b(k,40) - lu(k,334) * b(k,38) - b(k,41) = b(k,41) - lu(k,335) * b(k,38) - b(k,42) = b(k,42) - lu(k,336) * b(k,38) - b(k,43) = b(k,43) - lu(k,337) * b(k,38) - b(k,44) = b(k,44) - lu(k,338) * b(k,38) - b(k,45) = b(k,45) - lu(k,339) * b(k,38) - b(k,46) = b(k,46) - lu(k,340) * b(k,38) - b(k,47) = b(k,47) - lu(k,341) * b(k,38) - b(k,48) = b(k,48) - lu(k,342) * b(k,38) - b(k,49) = b(k,49) - lu(k,343) * b(k,38) - b(k,50) = b(k,50) - lu(k,344) * b(k,38) - b(k,40) = b(k,40) - lu(k,360) * b(k,39) - b(k,41) = b(k,41) - lu(k,361) * b(k,39) - b(k,42) = b(k,42) - lu(k,362) * b(k,39) - b(k,43) = b(k,43) - lu(k,363) * b(k,39) - b(k,44) = b(k,44) - lu(k,364) * b(k,39) - b(k,45) = b(k,45) - lu(k,365) * b(k,39) - b(k,46) = b(k,46) - lu(k,366) * b(k,39) - b(k,47) = b(k,47) - lu(k,367) * b(k,39) - b(k,48) = b(k,48) - lu(k,368) * b(k,39) - b(k,49) = b(k,49) - lu(k,369) * b(k,39) - b(k,50) = b(k,50) - lu(k,370) * b(k,39) + b(k,37) = b(k,37) - lu(k,299) * 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,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) @@ -313,34 +317,34 @@ subroutine lu_slv02( avec_len, lu, b ) 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,459) * b(k,43) - b(k,45) = b(k,45) - lu(k,460) * b(k,43) - b(k,46) = b(k,46) - lu(k,461) * b(k,43) - b(k,47) = b(k,47) - lu(k,462) * b(k,43) - b(k,48) = b(k,48) - lu(k,463) * b(k,43) - b(k,49) = b(k,49) - lu(k,464) * b(k,43) - b(k,50) = b(k,50) - lu(k,465) * b(k,43) - b(k,45) = b(k,45) - lu(k,479) * b(k,44) - b(k,46) = b(k,46) - lu(k,480) * b(k,44) - b(k,47) = b(k,47) - lu(k,481) * b(k,44) - b(k,48) = b(k,48) - lu(k,482) * b(k,44) - b(k,49) = b(k,49) - lu(k,483) * b(k,44) - b(k,50) = b(k,50) - lu(k,484) * b(k,44) - b(k,46) = b(k,46) - lu(k,503) * b(k,45) - b(k,47) = b(k,47) - lu(k,504) * b(k,45) - b(k,48) = b(k,48) - lu(k,505) * b(k,45) - b(k,49) = b(k,49) - lu(k,506) * b(k,45) - b(k,50) = b(k,50) - lu(k,507) * b(k,45) - b(k,47) = b(k,47) - lu(k,535) * b(k,46) - b(k,48) = b(k,48) - lu(k,536) * b(k,46) - b(k,49) = b(k,49) - lu(k,537) * b(k,46) - b(k,50) = b(k,50) - lu(k,538) * b(k,46) - b(k,48) = b(k,48) - lu(k,575) * b(k,47) - b(k,49) = b(k,49) - lu(k,576) * b(k,47) - b(k,50) = b(k,50) - lu(k,577) * b(k,47) - b(k,49) = b(k,49) - lu(k,597) * b(k,48) - b(k,50) = b(k,50) - lu(k,598) * b(k,48) - b(k,50) = b(k,50) - lu(k,618) * b(k,49) + 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 ) @@ -364,169 +368,180 @@ subroutine lu_slv03( avec_len, lu, b ) !----------------------------------------------------------------------- ! ... Solve U * x = y !----------------------------------------------------------------------- - b(k,50) = b(k,50) * lu(k,636) - b(k,49) = b(k,49) - lu(k,635) * b(k,50) - b(k,48) = b(k,48) - lu(k,634) * b(k,50) - b(k,47) = b(k,47) - lu(k,633) * b(k,50) - b(k,46) = b(k,46) - lu(k,632) * b(k,50) - b(k,45) = b(k,45) - lu(k,631) * b(k,50) - b(k,44) = b(k,44) - lu(k,630) * b(k,50) - b(k,43) = b(k,43) - lu(k,629) * b(k,50) - b(k,42) = b(k,42) - lu(k,628) * b(k,50) - b(k,41) = b(k,41) - lu(k,627) * b(k,50) - b(k,40) = b(k,40) - lu(k,626) * b(k,50) - b(k,39) = b(k,39) - lu(k,625) * b(k,50) - b(k,38) = b(k,38) - lu(k,624) * b(k,50) - b(k,37) = b(k,37) - lu(k,623) * b(k,50) - b(k,36) = b(k,36) - lu(k,622) * b(k,50) - b(k,32) = b(k,32) - lu(k,621) * b(k,50) - b(k,5) = b(k,5) - lu(k,620) * b(k,50) - b(k,4) = b(k,4) - lu(k,619) * b(k,50) - b(k,49) = b(k,49) * lu(k,617) - b(k,48) = b(k,48) - lu(k,616) * b(k,49) - b(k,47) = b(k,47) - lu(k,615) * b(k,49) - b(k,46) = b(k,46) - lu(k,614) * b(k,49) - b(k,45) = b(k,45) - lu(k,613) * b(k,49) - b(k,44) = b(k,44) - lu(k,612) * b(k,49) - b(k,43) = b(k,43) - lu(k,611) * b(k,49) - b(k,42) = b(k,42) - lu(k,610) * b(k,49) - b(k,41) = b(k,41) - lu(k,609) * b(k,49) - b(k,40) = b(k,40) - lu(k,608) * b(k,49) - b(k,39) = b(k,39) - lu(k,607) * b(k,49) - b(k,38) = b(k,38) - lu(k,606) * b(k,49) - b(k,37) = b(k,37) - lu(k,605) * b(k,49) - b(k,36) = b(k,36) - lu(k,604) * b(k,49) - b(k,34) = b(k,34) - lu(k,603) * b(k,49) - b(k,33) = b(k,33) - lu(k,602) * b(k,49) - b(k,31) = b(k,31) - lu(k,601) * b(k,49) - b(k,26) = b(k,26) - lu(k,600) * b(k,49) - b(k,9) = b(k,9) - lu(k,599) * b(k,49) - b(k,48) = b(k,48) * lu(k,596) - b(k,47) = b(k,47) - lu(k,595) * b(k,48) - b(k,46) = b(k,46) - lu(k,594) * b(k,48) - b(k,45) = b(k,45) - lu(k,593) * b(k,48) - b(k,44) = b(k,44) - lu(k,592) * b(k,48) - b(k,43) = b(k,43) - lu(k,591) * b(k,48) - b(k,42) = b(k,42) - lu(k,590) * b(k,48) - b(k,41) = b(k,41) - lu(k,589) * b(k,48) - b(k,40) = b(k,40) - lu(k,588) * b(k,48) - b(k,39) = b(k,39) - lu(k,587) * b(k,48) - b(k,38) = b(k,38) - lu(k,586) * b(k,48) - b(k,37) = b(k,37) - lu(k,585) * b(k,48) - b(k,36) = b(k,36) - lu(k,584) * b(k,48) - b(k,35) = b(k,35) - lu(k,583) * b(k,48) - b(k,33) = b(k,33) - lu(k,582) * b(k,48) - b(k,32) = b(k,32) - lu(k,581) * b(k,48) - b(k,31) = b(k,31) - lu(k,580) * b(k,48) - b(k,17) = b(k,17) - lu(k,579) * b(k,48) - b(k,10) = b(k,10) - lu(k,578) * b(k,48) - b(k,47) = b(k,47) * lu(k,574) - b(k,46) = b(k,46) - lu(k,573) * b(k,47) - b(k,45) = b(k,45) - lu(k,572) * b(k,47) - b(k,44) = b(k,44) - lu(k,571) * b(k,47) - b(k,43) = b(k,43) - lu(k,570) * b(k,47) - b(k,42) = b(k,42) - lu(k,569) * b(k,47) - b(k,41) = b(k,41) - lu(k,568) * b(k,47) - b(k,40) = b(k,40) - lu(k,567) * b(k,47) - b(k,39) = b(k,39) - lu(k,566) * b(k,47) - b(k,38) = b(k,38) - lu(k,565) * b(k,47) - b(k,37) = b(k,37) - lu(k,564) * b(k,47) - b(k,36) = b(k,36) - lu(k,563) * b(k,47) - b(k,35) = b(k,35) - lu(k,562) * b(k,47) - b(k,34) = b(k,34) - lu(k,561) * b(k,47) - b(k,33) = b(k,33) - lu(k,560) * b(k,47) - b(k,32) = b(k,32) - lu(k,559) * b(k,47) - b(k,31) = b(k,31) - lu(k,558) * b(k,47) - b(k,30) = b(k,30) - lu(k,557) * b(k,47) - b(k,29) = b(k,29) - lu(k,556) * b(k,47) - b(k,28) = b(k,28) - lu(k,555) * b(k,47) - b(k,27) = b(k,27) - lu(k,554) * b(k,47) - b(k,25) = b(k,25) - lu(k,553) * b(k,47) - b(k,24) = b(k,24) - 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,21) = b(k,21) - lu(k,549) * b(k,47) - b(k,20) = b(k,20) - lu(k,548) * b(k,47) - b(k,19) = b(k,19) - lu(k,547) * b(k,47) - b(k,18) = b(k,18) - lu(k,546) * b(k,47) - b(k,17) = b(k,17) - lu(k,545) * b(k,47) - b(k,16) = b(k,16) - lu(k,544) * b(k,47) - b(k,15) = b(k,15) - lu(k,543) * b(k,47) - b(k,14) = b(k,14) - lu(k,542) * b(k,47) - b(k,13) = b(k,13) - lu(k,541) * b(k,47) - b(k,5) = b(k,5) - lu(k,540) * b(k,47) - b(k,4) = b(k,4) - lu(k,539) * b(k,47) - b(k,46) = b(k,46) * lu(k,534) - b(k,45) = b(k,45) - lu(k,533) * b(k,46) - b(k,44) = b(k,44) - lu(k,532) * b(k,46) - b(k,43) = b(k,43) - lu(k,531) * b(k,46) - b(k,42) = b(k,42) - lu(k,530) * b(k,46) - b(k,41) = b(k,41) - lu(k,529) * b(k,46) - b(k,40) = b(k,40) - lu(k,528) * b(k,46) - b(k,39) = b(k,39) - lu(k,527) * b(k,46) - b(k,38) = b(k,38) - lu(k,526) * b(k,46) - b(k,37) = b(k,37) - lu(k,525) * b(k,46) - b(k,36) = b(k,36) - lu(k,524) * b(k,46) - b(k,35) = b(k,35) - lu(k,523) * b(k,46) - b(k,34) = b(k,34) - lu(k,522) * b(k,46) - b(k,33) = b(k,33) - lu(k,521) * b(k,46) - b(k,32) = b(k,32) - lu(k,520) * b(k,46) - b(k,31) = b(k,31) - lu(k,519) * b(k,46) - b(k,30) = b(k,30) - lu(k,518) * b(k,46) - b(k,29) = b(k,29) - lu(k,517) * b(k,46) - b(k,28) = b(k,28) - lu(k,516) * b(k,46) - b(k,27) = b(k,27) - lu(k,515) * b(k,46) - b(k,26) = b(k,26) - lu(k,514) * b(k,46) - b(k,19) = b(k,19) - lu(k,513) * b(k,46) - b(k,17) = b(k,17) - lu(k,512) * b(k,46) - b(k,12) = b(k,12) - lu(k,511) * b(k,46) - b(k,11) = b(k,11) - lu(k,510) * b(k,46) - b(k,7) = b(k,7) - lu(k,509) * b(k,46) - b(k,2) = b(k,2) - lu(k,508) * b(k,46) - b(k,45) = b(k,45) * lu(k,502) - b(k,44) = b(k,44) - lu(k,501) * b(k,45) - b(k,43) = b(k,43) - lu(k,500) * b(k,45) - b(k,42) = b(k,42) - lu(k,499) * b(k,45) - b(k,41) = b(k,41) - lu(k,498) * b(k,45) - b(k,40) = b(k,40) - lu(k,497) * b(k,45) - b(k,39) = b(k,39) - lu(k,496) * b(k,45) - b(k,38) = b(k,38) - lu(k,495) * b(k,45) - b(k,37) = b(k,37) - lu(k,494) * b(k,45) - b(k,36) = b(k,36) - lu(k,493) * b(k,45) - b(k,34) = b(k,34) - lu(k,492) * b(k,45) - b(k,33) = b(k,33) - lu(k,491) * b(k,45) - b(k,32) = b(k,32) - lu(k,490) * b(k,45) - b(k,31) = b(k,31) - lu(k,489) * b(k,45) - b(k,22) = b(k,22) - lu(k,488) * b(k,45) - b(k,16) = b(k,16) - lu(k,487) * b(k,45) - b(k,8) = b(k,8) - lu(k,486) * b(k,45) - b(k,3) = b(k,3) - lu(k,485) * b(k,45) - b(k,44) = b(k,44) * lu(k,478) - b(k,43) = b(k,43) - lu(k,477) * b(k,44) - b(k,42) = b(k,42) - lu(k,476) * b(k,44) - b(k,41) = b(k,41) - lu(k,475) * b(k,44) - b(k,40) = b(k,40) - lu(k,474) * b(k,44) - b(k,39) = b(k,39) - lu(k,473) * b(k,44) - b(k,38) = b(k,38) - lu(k,472) * b(k,44) - b(k,37) = b(k,37) - lu(k,471) * b(k,44) - b(k,36) = b(k,36) - lu(k,470) * b(k,44) - b(k,35) = b(k,35) - lu(k,469) * b(k,44) - b(k,33) = b(k,33) - lu(k,468) * b(k,44) - b(k,32) = b(k,32) - lu(k,467) * b(k,44) - b(k,11) = b(k,11) - lu(k,466) * b(k,44) - b(k,43) = b(k,43) * lu(k,458) - b(k,42) = b(k,42) - lu(k,457) * b(k,43) - b(k,41) = b(k,41) - lu(k,456) * b(k,43) - b(k,40) = b(k,40) - lu(k,455) * b(k,43) - b(k,39) = b(k,39) - lu(k,454) * b(k,43) - b(k,38) = b(k,38) - lu(k,453) * b(k,43) - b(k,37) = b(k,37) - lu(k,452) * b(k,43) - b(k,36) = b(k,36) - lu(k,451) * b(k,43) - b(k,35) = b(k,35) - lu(k,450) * b(k,43) - b(k,33) = b(k,33) - lu(k,449) * b(k,43) - b(k,32) = b(k,32) - lu(k,448) * b(k,43) - b(k,29) = b(k,29) - lu(k,447) * b(k,43) - b(k,17) = b(k,17) - lu(k,446) * b(k,43) + b(k,50) = b(k,50) * lu(k,647) + b(k,49) = b(k,49) - lu(k,646) * b(k,50) + b(k,48) = b(k,48) - lu(k,645) * b(k,50) + b(k,47) = b(k,47) - lu(k,644) * b(k,50) + b(k,46) = b(k,46) - lu(k,643) * b(k,50) + b(k,45) = b(k,45) - lu(k,642) * b(k,50) + b(k,44) = b(k,44) - lu(k,641) * b(k,50) + b(k,43) = b(k,43) - lu(k,640) * b(k,50) + b(k,42) = b(k,42) - lu(k,639) * b(k,50) + b(k,41) = b(k,41) - lu(k,638) * b(k,50) + b(k,40) = b(k,40) - lu(k,637) * b(k,50) + b(k,39) = b(k,39) - lu(k,636) * b(k,50) + 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,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,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) @@ -539,8 +554,8 @@ subroutine lu_slv03( avec_len, lu, b ) 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,29) = b(k,29) - lu(k,425) * b(k,42) - b(k,26) = b(k,26) - lu(k,424) * 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) @@ -555,26 +570,11 @@ subroutine lu_slv03( avec_len, lu, b ) 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,27) = b(k,27) - lu(k,400) * b(k,41) - b(k,22) = b(k,22) - lu(k,399) * b(k,41) - b(k,16) = b(k,16) - lu(k,398) * 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) - 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,34) = b(k,34) - lu(k,379) * b(k,40) - b(k,33) = b(k,33) - lu(k,378) * b(k,40) - b(k,32) = b(k,32) - lu(k,377) * b(k,40) - b(k,29) = b(k,29) - lu(k,376) * b(k,40) - b(k,28) = b(k,28) - lu(k,375) * b(k,40) - b(k,22) = b(k,22) - lu(k,374) * b(k,40) - b(k,19) = b(k,19) - lu(k,373) * b(k,40) - b(k,12) = b(k,12) - lu(k,372) * b(k,40) - b(k,11) = b(k,11) - lu(k,371) * b(k,40) end do end subroutine lu_slv03 subroutine lu_slv04( avec_len, lu, b ) @@ -595,115 +595,126 @@ subroutine lu_slv04( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,39) = b(k,39) * lu(k,359) - b(k,38) = b(k,38) - lu(k,358) * b(k,39) - b(k,37) = b(k,37) - lu(k,357) * b(k,39) - b(k,36) = b(k,36) - lu(k,356) * b(k,39) - b(k,35) = b(k,35) - lu(k,355) * b(k,39) - b(k,34) = b(k,34) - lu(k,354) * b(k,39) - b(k,33) = b(k,33) - lu(k,353) * b(k,39) - b(k,32) = b(k,32) - lu(k,352) * b(k,39) - b(k,31) = b(k,31) - lu(k,351) * b(k,39) - b(k,30) = b(k,30) - lu(k,350) * b(k,39) - b(k,28) = b(k,28) - lu(k,349) * b(k,39) - b(k,8) = b(k,8) - lu(k,348) * b(k,39) - b(k,6) = b(k,6) - lu(k,347) * b(k,39) - b(k,3) = b(k,3) - lu(k,346) * b(k,39) - b(k,1) = b(k,1) - lu(k,345) * b(k,39) - b(k,38) = b(k,38) * lu(k,332) - b(k,37) = b(k,37) - lu(k,331) * b(k,38) - b(k,36) = b(k,36) - lu(k,330) * b(k,38) - b(k,35) = b(k,35) - lu(k,329) * b(k,38) - b(k,34) = b(k,34) - lu(k,328) * b(k,38) - b(k,33) = b(k,33) - lu(k,327) * b(k,38) - b(k,32) = b(k,32) - lu(k,326) * b(k,38) - b(k,31) = b(k,31) - lu(k,325) * b(k,38) - b(k,30) = b(k,30) - lu(k,324) * b(k,38) - b(k,28) = b(k,28) - lu(k,323) * b(k,38) - b(k,19) = b(k,19) - lu(k,322) * b(k,38) - b(k,17) = b(k,17) - lu(k,321) * b(k,38) - b(k,6) = b(k,6) - lu(k,320) * b(k,38) - b(k,37) = b(k,37) * lu(k,306) - b(k,36) = b(k,36) - lu(k,305) * b(k,37) - b(k,35) = b(k,35) - lu(k,304) * b(k,37) - b(k,32) = b(k,32) - lu(k,303) * b(k,37) - b(k,27) = b(k,27) - lu(k,302) * b(k,37) - b(k,25) = b(k,25) - lu(k,301) * b(k,37) - b(k,24) = b(k,24) - lu(k,300) * b(k,37) - b(k,23) = b(k,23) - lu(k,299) * b(k,37) - b(k,36) = b(k,36) * lu(k,288) - b(k,33) = b(k,33) - lu(k,287) * b(k,36) - b(k,32) = b(k,32) - lu(k,286) * b(k,36) - b(k,35) = b(k,35) * lu(k,272) - b(k,34) = b(k,34) - lu(k,271) * b(k,35) - b(k,33) = b(k,33) - lu(k,270) * b(k,35) - b(k,31) = b(k,31) - lu(k,269) * b(k,35) - b(k,29) = b(k,29) - lu(k,268) * b(k,35) - b(k,17) = b(k,17) - lu(k,267) * b(k,35) - b(k,34) = b(k,34) * lu(k,254) - b(k,33) = b(k,33) - lu(k,253) * b(k,34) - b(k,31) = b(k,31) - lu(k,252) * b(k,34) - b(k,30) = b(k,30) - lu(k,251) * b(k,34) - b(k,28) = b(k,28) - lu(k,250) * b(k,34) - b(k,22) = b(k,22) - lu(k,249) * b(k,34) - b(k,8) = b(k,8) - lu(k,248) * b(k,34) - b(k,6) = b(k,6) - lu(k,247) * b(k,34) - b(k,33) = b(k,33) * lu(k,238) - b(k,31) = b(k,31) - lu(k,237) * b(k,33) - b(k,26) = b(k,26) - lu(k,236) * b(k,33) - b(k,9) = b(k,9) - lu(k,235) * b(k,33) - b(k,32) = b(k,32) * lu(k,226) - b(k,27) = b(k,27) - lu(k,225) * b(k,32) - b(k,25) = b(k,25) - lu(k,224) * b(k,32) - b(k,24) = b(k,24) - lu(k,223) * b(k,32) - b(k,23) = b(k,23) - lu(k,222) * b(k,32) - b(k,21) = b(k,21) - lu(k,221) * b(k,32) - b(k,20) = b(k,20) - lu(k,220) * b(k,32) - b(k,18) = b(k,18) - lu(k,219) * b(k,32) - b(k,15) = b(k,15) - lu(k,218) * b(k,32) - b(k,14) = b(k,14) - lu(k,217) * b(k,32) - b(k,13) = b(k,13) - lu(k,216) * b(k,32) - b(k,5) = b(k,5) - lu(k,215) * b(k,32) - b(k,4) = b(k,4) - lu(k,214) * b(k,32) - b(k,31) = b(k,31) * lu(k,206) - b(k,26) = b(k,26) - lu(k,205) * b(k,31) - b(k,9) = b(k,9) - lu(k,204) * b(k,31) - b(k,30) = b(k,30) * lu(k,194) - b(k,28) = b(k,28) - lu(k,193) * b(k,30) - b(k,6) = b(k,6) - lu(k,192) * b(k,30) - b(k,29) = b(k,29) * lu(k,184) - b(k,28) = b(k,28) * lu(k,177) - b(k,6) = b(k,6) - lu(k,176) * b(k,28) - b(k,27) = b(k,27) * lu(k,167) - b(k,25) = b(k,25) - lu(k,166) * b(k,27) - b(k,24) = b(k,24) - lu(k,165) * b(k,27) - b(k,23) = b(k,23) - lu(k,164) * b(k,27) - b(k,21) = b(k,21) - lu(k,163) * b(k,27) - b(k,18) = b(k,18) - lu(k,162) * b(k,27) - b(k,26) = b(k,26) * lu(k,154) - b(k,9) = b(k,9) - lu(k,153) * b(k,26) - b(k,25) = b(k,25) * lu(k,144) - b(k,24) = b(k,24) - lu(k,143) * b(k,25) - b(k,23) = b(k,23) - lu(k,142) * b(k,25) - b(k,21) = b(k,21) - lu(k,141) * b(k,25) - b(k,20) = b(k,20) - lu(k,140) * b(k,25) - b(k,18) = b(k,18) - lu(k,139) * b(k,25) - b(k,15) = b(k,15) - lu(k,138) * b(k,25) - b(k,14) = b(k,14) - lu(k,137) * b(k,25) - b(k,13) = b(k,13) - lu(k,136) * b(k,25) - b(k,24) = b(k,24) * lu(k,129) - b(k,15) = b(k,15) - lu(k,128) * b(k,24) - b(k,23) = b(k,23) * lu(k,120) - b(k,22) = b(k,22) * lu(k,112) - b(k,8) = b(k,8) - lu(k,111) * b(k,22) + 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,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) + b(k,35) = b(k,35) * lu(k,282) + 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,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,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) + b(k,33) = b(k,33) * lu(k,248) + b(k,31) = b(k,31) - lu(k,247) * b(k,33) + b(k,21) = b(k,21) - lu(k,246) * b(k,33) + b(k,9) = b(k,9) - lu(k,245) * b(k,33) + b(k,32) = b(k,32) * lu(k,236) + b(k,29) = b(k,29) - lu(k,235) * b(k,32) + b(k,28) = b(k,28) - lu(k,234) * b(k,32) + b(k,27) = b(k,27) - lu(k,233) * b(k,32) + b(k,26) = b(k,26) - lu(k,232) * b(k,32) + b(k,25) = b(k,25) - lu(k,231) * b(k,32) + b(k,24) = b(k,24) - lu(k,230) * b(k,32) + b(k,19) = b(k,19) - lu(k,229) * b(k,32) + b(k,18) = b(k,18) - lu(k,228) * b(k,32) + b(k,14) = b(k,14) - lu(k,227) * b(k,32) + b(k,13) = b(k,13) - lu(k,226) * b(k,32) + b(k,5) = b(k,5) - lu(k,225) * b(k,32) + b(k,4) = b(k,4) - lu(k,224) * b(k,32) + b(k,31) = b(k,31) * lu(k,216) + 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,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) + b(k,27) = b(k,27) - lu(k,191) * b(k,29) + b(k,26) = b(k,26) - lu(k,190) * b(k,29) + b(k,25) = b(k,25) - lu(k,189) * b(k,29) + b(k,24) = b(k,24) - lu(k,188) * b(k,29) + b(k,19) = b(k,19) - lu(k,187) * b(k,29) + b(k,28) = b(k,28) * lu(k,178) + b(k,27) = b(k,27) - lu(k,177) * b(k,28) + b(k,26) = b(k,26) - lu(k,176) * b(k,28) + b(k,25) = b(k,25) - lu(k,175) * b(k,28) + b(k,24) = b(k,24) - lu(k,174) * b(k,28) + b(k,27) = b(k,27) * lu(k,164) + b(k,26) = b(k,26) - lu(k,163) * b(k,27) + b(k,25) = b(k,25) - lu(k,162) * b(k,27) + b(k,24) = b(k,24) - lu(k,161) * b(k,27) + b(k,19) = b(k,19) - lu(k,160) * b(k,27) + b(k,18) = b(k,18) - lu(k,159) * b(k,27) + b(k,14) = b(k,14) - lu(k,158) * b(k,27) + b(k,13) = b(k,13) - lu(k,157) * b(k,27) + b(k,26) = b(k,26) * lu(k,149) + b(k,19) = b(k,19) - lu(k,148) * b(k,26) + b(k,25) = b(k,25) * lu(k,138) + b(k,24) = b(k,24) - lu(k,137) * b(k,25) + b(k,19) = b(k,19) - lu(k,136) * b(k,25) + 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,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,17) = b(k,17) - lu(k,101) * b(k,21) - b(k,20) = b(k,20) * lu(k,91) - b(k,15) = b(k,15) - lu(k,90) * b(k,20) - b(k,19) = b(k,19) * lu(k,83) - b(k,18) = b(k,18) * lu(k,76) - b(k,17) = b(k,17) * lu(k,72) - b(k,16) = b(k,16) * lu(k,64) + b(k,9) = b(k,9) - lu(k,101) * b(k,21) + b(k,20) = b(k,20) * lu(k,93) + b(k,8) = b(k,8) - lu(k,92) * b(k,20) + b(k,19) = b(k,19) * lu(k,87) + b(k,18) = b(k,18) * lu(k,78) + b(k,17) = b(k,17) * lu(k,71) + b(k,16) = b(k,16) * lu(k,67) b(k,15) = b(k,15) * lu(k,59) b(k,14) = b(k,14) * lu(k,53) b(k,13) = b(k,13) * lu(k,46) diff --git a/src/chemistry/pp_waccm_ma/mo_nln_matrix.F90 b/src/chemistry/pp_waccm_ma/mo_nln_matrix.F90 index 113c80a687..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,486) = rxt(k,192)*y(k,24) - mat(k,348) = rxt(k,192)*y(k,2) - mat(k,248) = (rxt(k,254)+rxt(k,259))*y(k,45) - mat(k,111) = (rxt(k,254)+rxt(k,259))*y(k,40) - mat(k,502) = -(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,365) = -(rxt(k,190) + rxt(k,191) + rxt(k,192)) * y(k,2) - mat(k,390) = -rxt(k,193)*y(k,2) - mat(k,314) = -rxt(k,194)*y(k,2) - mat(k,415) = -rxt(k,195)*y(k,2) - mat(k,572) = -rxt(k,197)*y(k,2) - mat(k,533) = -rxt(k,198)*y(k,2) - mat(k,69) = rxt(k,196)*y(k,53) - mat(k,189) = rxt(k,206)*y(k,65) - mat(k,117) = rxt(k,201)*y(k,53) - mat(k,572) = mat(k,572) + rxt(k,196)*y(k,3) + rxt(k,201)*y(k,45) - mat(k,631) = rxt(k,188)*y(k,58) - mat(k,460) = rxt(k,188)*y(k,55) - mat(k,440) = rxt(k,206)*y(k,36) - mat(k,64) = -(rxt(k,196)*y(k,53)) - mat(k,544) = -rxt(k,196)*y(k,3) - mat(k,487) = rxt(k,195)*y(k,51) - mat(k,398) = rxt(k,195)*y(k,2) - mat(k,272) = -(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,329) = -rxt(k,150)*y(k,14) - mat(k,450) = -rxt(k,186)*y(k,14) - mat(k,583) = -rxt(k,230)*y(k,14) - mat(k,562) = -rxt(k,231)*y(k,14) - mat(k,523) = -rxt(k,232)*y(k,14) - mat(k,469) = 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,355) = rxt(k,157)*y(k,18) - mat(k,304) = rxt(k,234)*y(k,18) - mat(k,523) = mat(k,523) + .300_r8*rxt(k,235)*y(k,19) - mat(k,478) = -(rxt(k,157)*y(k,24) + rxt(k,233)*y(k,43) + rxt(k,234)*y(k,50)) - mat(k,364) = -rxt(k,157)*y(k,18) - mat(k,389) = -rxt(k,233)*y(k,18) - mat(k,313) = -rxt(k,234)*y(k,18) - mat(k,37) = .700_r8*rxt(k,235)*y(k,69) - mat(k,532) = .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,510) = -rxt(k,235)*y(k,19) - mat(k,466) = rxt(k,233)*y(k,43) - mat(k,371) = rxt(k,233)*y(k,18) - mat(k,347) = 2.000_r8*rxt(k,159)*y(k,24) - mat(k,192) = (rxt(k,252)+rxt(k,257)+rxt(k,262))*y(k,40) + rxt(k,163)*y(k,59) - mat(k,247) = (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,176) = (rxt(k,247)+rxt(k,253)+rxt(k,258))*y(k,40) - mat(k,320) = rxt(k,163)*y(k,25) - mat(k,345) = 2.000_r8*rxt(k,184)*y(k,24) - mat(k,359) = -(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,473) = -rxt(k,157)*y(k,24) - mat(k,384) = -rxt(k,161)*y(k,24) - mat(k,308) = -rxt(k,162)*y(k,24) - mat(k,409) = -rxt(k,164)*y(k,24) - mat(k,566) = -rxt(k,167)*y(k,24) - mat(k,527) = -(rxt(k,168) + rxt(k,169)) * y(k,24) - mat(k,496) = -(rxt(k,190) + rxt(k,191) + rxt(k,192)) * y(k,24) - mat(k,199) = rxt(k,165)*y(k,53) - mat(k,257) = rxt(k,183)*y(k,65) - mat(k,384) = mat(k,384) + rxt(k,155)*y(k,59) - mat(k,181) = rxt(k,173)*y(k,53) + rxt(k,172)*y(k,59) + rxt(k,174)*y(k,69) - mat(k,566) = mat(k,566) + rxt(k,165)*y(k,25) + rxt(k,173)*y(k,46) - mat(k,625) = rxt(k,156)*y(k,59) - mat(k,333) = rxt(k,155)*y(k,43) + rxt(k,172)*y(k,46) + rxt(k,156)*y(k,55) - mat(k,434) = rxt(k,183)*y(k,40) - mat(k,527) = mat(k,527) + rxt(k,174)*y(k,46) - mat(k,194) = -(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,324) = -rxt(k,163)*y(k,25) - mat(k,557) = -rxt(k,165)*y(k,25) - mat(k,518) = -rxt(k,166)*y(k,25) - mat(k,251) = -(rxt(k,252) + rxt(k,257) + rxt(k,262)) * y(k,25) - mat(k,350) = rxt(k,164)*y(k,51) - mat(k,401) = rxt(k,164)*y(k,24) - mat(k,72) = -((rxt(k,237) + rxt(k,241)) * y(k,69)) - mat(k,512) = -(rxt(k,237) + rxt(k,241)) * y(k,27) - mat(k,267) = 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,579) = rxt(k,230)*y(k,14) - mat(k,545) = rxt(k,231)*y(k,14) - mat(k,446) = rxt(k,186)*y(k,14) - mat(k,321) = rxt(k,150)*y(k,14) - mat(k,512) = mat(k,512) + rxt(k,232)*y(k,14) + 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,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,421) = -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,423) = -rxt(k,212)*y(k,30) - mat(k,154) = -(rxt(k,208)*y(k,33) + rxt(k,209)*y(k,73) + rxt(k,210)*y(k,42)) - mat(k,600) = -rxt(k,208)*y(k,31) - mat(k,236) = -rxt(k,209)*y(k,31) - mat(k,205) = -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,424) = 2.000_r8*rxt(k,211)*y(k,29) + rxt(k,212)*y(k,30) - mat(k,288) = -((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,381) = -(rxt(k,108) + rxt(k,109) + rxt(k,110)) * y(k,32) - mat(k,227) = -rxt(k,111)*y(k,32) - mat(k,622) = -rxt(k,114)*y(k,32) - mat(k,273) = rxt(k,232)*y(k,69) - mat(k,73) = rxt(k,241)*y(k,69) - mat(k,157) = rxt(k,208)*y(k,33) - mat(k,604) = rxt(k,208)*y(k,31) + rxt(k,106)*y(k,53) + rxt(k,152)*y(k,59) & + 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,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,186) = rxt(k,206)*y(k,65) - mat(k,255) = rxt(k,183)*y(k,65) - mat(k,169) = rxt(k,138)*y(k,69) - mat(k,563) = rxt(k,106)*y(k,33) + rxt(k,118)*y(k,69) - mat(k,330) = rxt(k,152)*y(k,33) - mat(k,431) = rxt(k,89)*y(k,33) + rxt(k,206)*y(k,36) + rxt(k,183)*y(k,40) - mat(k,524) = 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,617) = -(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,444) = -rxt(k,89)*y(k,33) - mat(k,576) = -rxt(k,106)*y(k,33) - mat(k,537) = -rxt(k,115)*y(k,33) - mat(k,343) = -rxt(k,152)*y(k,33) - mat(k,161) = -rxt(k,208)*y(k,33) - mat(k,297) = rxt(k,108)*y(k,43) - mat(k,394) = rxt(k,108)*y(k,32) - mat(k,83) = -(rxt(k,107)*y(k,53) + rxt(k,116)*y(k,69) + rxt(k,153)*y(k,59)) - mat(k,547) = -rxt(k,107)*y(k,35) - mat(k,513) = -rxt(k,116)*y(k,35) - mat(k,322) = -rxt(k,153)*y(k,35) - mat(k,373) = 2.000_r8*rxt(k,122)*y(k,43) - mat(k,513) = mat(k,513) + 2.000_r8*rxt(k,121)*y(k,69) - mat(k,184) = -(rxt(k,199)*y(k,53) + rxt(k,200)*y(k,69) + (rxt(k,205) & + 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,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,556) = -rxt(k,199)*y(k,36) - mat(k,517) = -rxt(k,200)*y(k,36) - mat(k,425) = -(rxt(k,205) + rxt(k,206)) * y(k,36) - mat(k,268) = rxt(k,186)*y(k,58) - mat(k,376) = rxt(k,187)*y(k,58) - mat(k,447) = rxt(k,186)*y(k,14) + rxt(k,187)*y(k,43) - mat(k,254) = -(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,561) = -rxt(k,170)*y(k,40) - mat(k,522) = -rxt(k,171)*y(k,40) - mat(k,429) = -(rxt(k,182) + rxt(k,183)) * y(k,40) - mat(k,179) = -(rxt(k,247) + rxt(k,253) + rxt(k,258)) * y(k,40) - mat(k,197) = -(rxt(k,252) + rxt(k,257) + rxt(k,262)) * y(k,40) - mat(k,114) = -(rxt(k,254) + rxt(k,259)) * y(k,40) - mat(k,271) = rxt(k,150)*y(k,59) - mat(k,354) = rxt(k,169)*y(k,69) - mat(k,603) = rxt(k,152)*y(k,59) - mat(k,85) = rxt(k,153)*y(k,59) - mat(k,379) = rxt(k,154)*y(k,59) - mat(k,179) = mat(k,179) + rxt(k,172)*y(k,59) - mat(k,328) = 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,522) = mat(k,522) + rxt(k,169)*y(k,24) - mat(k,153) = rxt(k,208)*y(k,33) + rxt(k,210)*y(k,42) + rxt(k,209)*y(k,73) - mat(k,599) = rxt(k,208)*y(k,31) - mat(k,204) = rxt(k,210)*y(k,31) - mat(k,235) = rxt(k,209)*y(k,31) - mat(k,206) = -(rxt(k,147)*y(k,69) + rxt(k,210)*y(k,31)) - mat(k,519) = -rxt(k,147)*y(k,42) - mat(k,155) = -rxt(k,210)*y(k,42) - mat(k,269) = rxt(k,230)*y(k,52) - mat(k,195) = (rxt(k,252)+rxt(k,257)+rxt(k,262))*y(k,40) - mat(k,252) = (rxt(k,252)+rxt(k,257)+rxt(k,262))*y(k,25) + ) * 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,580) = rxt(k,230)*y(k,14) - mat(k,519) = mat(k,519) + rxt(k,146)*y(k,51) - mat(k,385) = -((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,290) = -(rxt(k,108) + rxt(k,109) + rxt(k,110)) * y(k,43) - mat(k,567) = -rxt(k,112)*y(k,43) - mat(k,626) = -rxt(k,113)*y(k,43) - mat(k,528) = -rxt(k,117)*y(k,43) - mat(k,588) = -rxt(k,134)*y(k,43) - mat(k,309) = -rxt(k,139)*y(k,43) - mat(k,410) = -rxt(k,144)*y(k,43) - mat(k,334) = -(rxt(k,154) + rxt(k,155)) * y(k,43) - mat(k,360) = -rxt(k,161)*y(k,43) - mat(k,455) = -rxt(k,187)*y(k,43) - mat(k,497) = -rxt(k,193)*y(k,43) - mat(k,474) = -rxt(k,233)*y(k,43) - mat(k,497) = mat(k,497) + rxt(k,198)*y(k,69) - mat(k,276) = 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,474) = mat(k,474) + rxt(k,157)*y(k,24) + rxt(k,234)*y(k,50) - mat(k,360) = mat(k,360) + rxt(k,157)*y(k,18) + rxt(k,168)*y(k,69) - mat(k,74) = rxt(k,237)*y(k,69) - mat(k,290) = mat(k,290) + rxt(k,111)*y(k,54) - mat(k,87) = rxt(k,107)*y(k,53) + rxt(k,153)*y(k,59) + rxt(k,116)*y(k,69) - mat(k,309) = mat(k,309) + rxt(k,234)*y(k,18) - mat(k,588) = mat(k,588) + rxt(k,230)*y(k,14) + rxt(k,137)*y(k,69) - mat(k,567) = mat(k,567) + rxt(k,231)*y(k,14) + rxt(k,107)*y(k,35) - mat(k,229) = rxt(k,111)*y(k,32) - mat(k,626) = mat(k,626) + rxt(k,119)*y(k,69) - mat(k,455) = mat(k,455) + rxt(k,186)*y(k,14) - mat(k,334) = mat(k,334) + rxt(k,150)*y(k,14) + rxt(k,153)*y(k,35) - mat(k,528) = mat(k,528) + 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) + 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,208 +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,511) = -rxt(k,123)*y(k,44) - mat(k,372) = rxt(k,144)*y(k,51) - mat(k,397) = rxt(k,144)*y(k,43) - mat(k,112) = -(rxt(k,201)*y(k,53) + (rxt(k,254) + rxt(k,259)) * y(k,40)) - mat(k,550) = -rxt(k,201)*y(k,45) - mat(k,249) = -(rxt(k,254) + rxt(k,259)) * y(k,45) - mat(k,488) = rxt(k,193)*y(k,43) - mat(k,374) = rxt(k,193)*y(k,2) - mat(k,177) = -(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,323) = -rxt(k,172)*y(k,46) - mat(k,555) = -rxt(k,173)*y(k,46) - mat(k,516) = -rxt(k,174)*y(k,46) - mat(k,250) = -(rxt(k,247) + rxt(k,253) + rxt(k,258)) * y(k,46) - mat(k,349) = rxt(k,161)*y(k,43) - mat(k,193) = rxt(k,166)*y(k,69) - mat(k,375) = rxt(k,161)*y(k,24) - mat(k,516) = mat(k,516) + rxt(k,166)*y(k,25) - mat(k,167) = -(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,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,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,302) = -rxt(k,126)*y(k,47) - mat(k,400) = -(rxt(k,127) + rxt(k,128) + rxt(k,129)) * y(k,47) - mat(k,225) = -rxt(k,130)*y(k,47) - mat(k,515) = -rxt(k,138)*y(k,47) - mat(k,123) = -rxt(k,275)*y(k,47) - mat(k,554) = rxt(k,124)*y(k,61) + rxt(k,272)*y(k,64) - mat(k,225) = mat(k,225) + rxt(k,273)*y(k,64) - mat(k,145) = 1.100_r8*rxt(k,268)*y(k,62) + .200_r8*rxt(k,266)*y(k,63) - mat(k,60) = rxt(k,124)*y(k,53) - mat(k,96) = 1.100_r8*rxt(k,268)*y(k,60) - mat(k,131) = .200_r8*rxt(k,266)*y(k,60) - mat(k,80) = rxt(k,272)*y(k,53) + rxt(k,273)*y(k,54) - mat(k,396) = rxt(k,145)*y(k,52) - mat(k,578) = rxt(k,145)*y(k,51) - mat(k,306) = -(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,170) = -rxt(k,126)*y(k,50) - mat(k,585) = -rxt(k,135)*y(k,50) - mat(k,382) = -rxt(k,139)*y(k,50) - mat(k,623) = -rxt(k,140)*y(k,50) - mat(k,564) = -rxt(k,141)*y(k,50) - mat(k,357) = -rxt(k,162)*y(k,50) - mat(k,494) = -rxt(k,194)*y(k,50) - mat(k,471) = -rxt(k,234)*y(k,50) - mat(k,125) = -rxt(k,277)*y(k,50) - mat(k,170) = mat(k,170) + 2.000_r8*rxt(k,128)*y(k,51) + rxt(k,130)*y(k,54) & + 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,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,407) = 2.000_r8*rxt(k,128)*y(k,47) + rxt(k,131)*y(k,53) - mat(k,564) = mat(k,564) + rxt(k,131)*y(k,51) - mat(k,228) = rxt(k,130)*y(k,47) + rxt(k,125)*y(k,61) - mat(k,62) = rxt(k,125)*y(k,54) - mat(k,525) = rxt(k,138)*y(k,47) - mat(k,411) = -((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,172) = -(rxt(k,127) + rxt(k,128) + rxt(k,129)) * y(k,51) - mat(k,568) = -(rxt(k,131) + rxt(k,133)) * y(k,51) - mat(k,627) = -rxt(k,132)*y(k,51) - mat(k,386) = -rxt(k,144)*y(k,51) - mat(k,589) = -rxt(k,145)*y(k,51) - mat(k,529) = -rxt(k,146)*y(k,51) - mat(k,361) = -rxt(k,164)*y(k,51) - mat(k,498) = -rxt(k,195)*y(k,51) - mat(k,498) = mat(k,498) + rxt(k,194)*y(k,50) - mat(k,475) = rxt(k,234)*y(k,50) - mat(k,361) = mat(k,361) + rxt(k,162)*y(k,50) - mat(k,386) = mat(k,386) + 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,310) = 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,589) = mat(k,589) + 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,568) = mat(k,568) + rxt(k,141)*y(k,50) + rxt(k,136)*y(k,52) - mat(k,627) = mat(k,627) + rxt(k,140)*y(k,50) - mat(k,529) = mat(k,529) + rxt(k,123)*y(k,44) + rxt(k,137)*y(k,52) - mat(k,596) = -(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,393) = -rxt(k,134)*y(k,52) - mat(k,317) = -rxt(k,135)*y(k,52) - mat(k,575) = -rxt(k,136)*y(k,52) - mat(k,536) = -rxt(k,137)*y(k,52) - mat(k,418) = -rxt(k,145)*y(k,52) - mat(k,284) = -rxt(k,230)*y(k,52) - mat(k,71) = rxt(k,196)*y(k,53) - mat(k,203) = rxt(k,165)*y(k,53) + rxt(k,163)*y(k,59) + rxt(k,166)*y(k,69) - mat(k,160) = rxt(k,210)*y(k,42) - mat(k,212) = rxt(k,210)*y(k,31) + rxt(k,147)*y(k,69) - mat(k,418) = mat(k,418) + rxt(k,133)*y(k,53) + rxt(k,132)*y(k,55) - mat(k,575) = mat(k,575) + 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,342) = rxt(k,163)*y(k,25) - mat(k,536) = mat(k,536) + rxt(k,166)*y(k,25) + rxt(k,147)*y(k,42) - mat(k,574) = -(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,633) = -rxt(k,103)*y(k,53) - mat(k,233) = -rxt(k,105)*y(k,53) - mat(k,615) = -rxt(k,106)*y(k,53) - mat(k,89) = -rxt(k,107)*y(k,53) - mat(k,392) = -rxt(k,112)*y(k,53) - mat(k,535) = -rxt(k,118)*y(k,53) - mat(k,417) = -(rxt(k,131) + rxt(k,133)) * y(k,53) - mat(k,595) = -rxt(k,136)*y(k,53) - mat(k,316) = -rxt(k,141)*y(k,53) - mat(k,202) = -rxt(k,165)*y(k,53) - mat(k,367) = -rxt(k,167)*y(k,53) - mat(k,264) = -rxt(k,170)*y(k,53) - mat(k,183) = -rxt(k,173)*y(k,53) - mat(k,70) = -rxt(k,196)*y(k,53) - mat(k,504) = -rxt(k,197)*y(k,53) - mat(k,191) = -rxt(k,199)*y(k,53) - mat(k,119) = -rxt(k,201)*y(k,53) - mat(k,283) = -rxt(k,231)*y(k,53) - mat(k,100) = -(rxt(k,270) + rxt(k,271)) * y(k,53) - mat(k,82) = -rxt(k,272)*y(k,53) - mat(k,295) = rxt(k,110)*y(k,43) - mat(k,392) = mat(k,392) + rxt(k,110)*y(k,32) - mat(k,175) = 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,316) = mat(k,316) + rxt(k,126)*y(k,47) - mat(k,417) = mat(k,417) + rxt(k,127)*y(k,47) - mat(k,233) = mat(k,233) + rxt(k,130)*y(k,47) + rxt(k,274)*y(k,64) + ( & - + rxt(k,92)+rxt(k,93))*y(k,65) + rxt(k,280)*y(k,70) + rxt(k,284) & + 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,152) = rxt(k,266)*y(k,63) + 1.150_r8*rxt(k,267)*y(k,68) - mat(k,135) = rxt(k,266)*y(k,60) - mat(k,82) = mat(k,82) + rxt(k,274)*y(k,54) - mat(k,442) = (rxt(k,92)+rxt(k,93))*y(k,54) - mat(k,127) = rxt(k,275)*y(k,47) + 1.150_r8*rxt(k,267)*y(k,60) - mat(k,535) = mat(k,535) + 2.000_r8*rxt(k,120)*y(k,69) - mat(k,110) = rxt(k,280)*y(k,54) - mat(k,58) = rxt(k,284)*y(k,54) - mat(k,226) = -(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,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,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,280)*y(k,70) + rxt(k,284)*y(k,71)) - mat(k,427) = -rxt(k,92)*y(k,54) - mat(k,11) = -rxt(k,97)*y(k,54) - mat(k,559) = -rxt(k,105)*y(k,54) - mat(k,286) = -rxt(k,111)*y(k,54) - mat(k,61) = -rxt(k,125)*y(k,54) - mat(k,168) = -rxt(k,130)*y(k,54) - mat(k,97) = -rxt(k,269)*y(k,54) - mat(k,81) = -(rxt(k,273) + rxt(k,274)) * y(k,54) - mat(k,106) = -rxt(k,280)*y(k,54) - mat(k,57) = -rxt(k,284)*y(k,54) - mat(k,490) = 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,467) = rxt(k,233)*y(k,43) - mat(k,352) = (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,286) = mat(k,286) + rxt(k,108)*y(k,43) + rxt(k,114)*y(k,55) - mat(k,377) = 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) + + rxt(k,281)*y(k,70) + rxt(k,285)*y(k,71)) + 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,168) = mat(k,168) + rxt(k,129)*y(k,51) - mat(k,303) = rxt(k,140)*y(k,55) + rxt(k,277)*y(k,68) - mat(k,403) = rxt(k,129)*y(k,47) + rxt(k,131)*y(k,53) + rxt(k,132)*y(k,55) - mat(k,581) = rxt(k,134)*y(k,43) + rxt(k,136)*y(k,53) - mat(k,559) = mat(k,559) + 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,226) = mat(k,226) + 2.000_r8*rxt(k,97)*y(k,66) - mat(k,621) = 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,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,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,448) = rxt(k,187)*y(k,43) + rxt(k,188)*y(k,55) - mat(k,326) = rxt(k,154)*y(k,43) + rxt(k,156)*y(k,55) - mat(k,427) = mat(k,427) + 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,124) = rxt(k,277)*y(k,50) - mat(k,520) = 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,636) = -(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,445) = -rxt(k,94)*y(k,55) - mat(k,577) = -rxt(k,103)*y(k,55) - mat(k,395) = -rxt(k,113)*y(k,55) - mat(k,298) = -rxt(k,114)*y(k,55) - mat(k,538) = -rxt(k,119)*y(k,55) - mat(k,420) = -rxt(k,132)*y(k,55) - mat(k,319) = -rxt(k,140)*y(k,55) - mat(k,344) = -rxt(k,156)*y(k,55) - mat(k,465) = -rxt(k,188)*y(k,55) - mat(k,577) = mat(k,577) + rxt(k,105)*y(k,54) - mat(k,234) = 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 ) @@ -476,197 +474,204 @@ subroutine nlnmat03( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,485) = rxt(k,190)*y(k,24) - mat(k,346) = rxt(k,190)*y(k,2) + 2.000_r8*rxt(k,160)*y(k,24) - mat(k,458) = -(rxt(k,186)*y(k,14) + rxt(k,187)*y(k,43) + rxt(k,188)*y(k,55)) - mat(k,279) = -rxt(k,186)*y(k,58) - mat(k,388) = -rxt(k,187)*y(k,58) - mat(k,629) = -rxt(k,188)*y(k,58) - mat(k,500) = 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,363) = (rxt(k,190)+rxt(k,191))*y(k,2) - mat(k,188) = rxt(k,199)*y(k,53) + rxt(k,205)*y(k,65) + rxt(k,200)*y(k,69) - mat(k,312) = rxt(k,194)*y(k,2) - mat(k,570) = rxt(k,197)*y(k,2) + rxt(k,199)*y(k,36) - mat(k,438) = rxt(k,205)*y(k,36) - mat(k,531) = rxt(k,198)*y(k,2) + rxt(k,200)*y(k,36) - mat(k,332) = -(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,274) = -rxt(k,150)*y(k,59) - mat(k,606) = -rxt(k,152)*y(k,59) - mat(k,86) = -rxt(k,153)*y(k,59) - mat(k,383) = -(rxt(k,154) + rxt(k,155)) * y(k,59) - mat(k,624) = -rxt(k,156)*y(k,59) - mat(k,198) = -rxt(k,163)*y(k,59) - mat(k,180) = -rxt(k,172)*y(k,59) - mat(k,495) = rxt(k,191)*y(k,24) - mat(k,472) = rxt(k,157)*y(k,24) - mat(k,358) = 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,256) = rxt(k,170)*y(k,53) + rxt(k,182)*y(k,65) + rxt(k,171)*y(k,69) - mat(k,307) = rxt(k,162)*y(k,24) - mat(k,565) = rxt(k,167)*y(k,24) + rxt(k,170)*y(k,40) - mat(k,433) = rxt(k,212)*y(k,30) + rxt(k,182)*y(k,40) - mat(k,526) = rxt(k,168)*y(k,24) + rxt(k,171)*y(k,40) - mat(k,144) = -(rxt(k,266)*y(k,63) + rxt(k,267)*y(k,68) + rxt(k,268)*y(k,62)) - mat(k,130) = -rxt(k,266)*y(k,60) - mat(k,122) = -rxt(k,267)*y(k,60) - mat(k,95) = -rxt(k,268)*y(k,60) - mat(k,59) = -(rxt(k,124)*y(k,53) + rxt(k,125)*y(k,54)) - mat(k,543) = -rxt(k,124)*y(k,61) - mat(k,218) = -rxt(k,125)*y(k,61) - mat(k,543) = mat(k,543) + rxt(k,270)*y(k,62) - mat(k,138) = .900_r8*rxt(k,268)*y(k,62) + .800_r8*rxt(k,266)*y(k,63) - mat(k,90) = rxt(k,270)*y(k,53) + .900_r8*rxt(k,268)*y(k,60) - mat(k,128) = .800_r8*rxt(k,266)*y(k,60) - mat(k,91) = -(rxt(k,268)*y(k,60) + rxt(k,269)*y(k,54) + (rxt(k,270) + rxt(k,271) & - ) * y(k,53)) - mat(k,140) = -rxt(k,268)*y(k,62) - mat(k,220) = -rxt(k,269)*y(k,62) - mat(k,548) = -(rxt(k,270) + rxt(k,271)) * y(k,62) - mat(k,129) = -(rxt(k,266)*y(k,60)) - mat(k,143) = -rxt(k,266)*y(k,63) - mat(k,165) = rxt(k,275)*y(k,68) - mat(k,300) = rxt(k,277)*y(k,68) - mat(k,552) = rxt(k,270)*y(k,62) - mat(k,223) = rxt(k,274)*y(k,64) - mat(k,94) = rxt(k,270)*y(k,53) - mat(k,79) = rxt(k,274)*y(k,54) - mat(k,121) = rxt(k,275)*y(k,47) + rxt(k,277)*y(k,50) - mat(k,76) = -(rxt(k,272)*y(k,53) + (rxt(k,273) + rxt(k,274)) * y(k,54)) - mat(k,546) = -rxt(k,272)*y(k,64) - mat(k,219) = -(rxt(k,273) + rxt(k,274)) * y(k,64) - mat(k,437) = -(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,610) = -rxt(k,89)*y(k,65) - mat(k,241) = -rxt(k,90)*y(k,65) - mat(k,231) = -(rxt(k,92) + rxt(k,93)) * y(k,65) - mat(k,628) = -rxt(k,94)*y(k,65) - mat(k,259) = -(rxt(k,182) + rxt(k,183)) * y(k,65) - mat(k,187) = -(rxt(k,205) + rxt(k,206)) * y(k,65) + 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,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,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,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,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,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,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,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,231) = mat(k,231) + rxt(k,125)*y(k,61) - mat(k,150) = .850_r8*rxt(k,267)*y(k,68) - mat(k,63) = rxt(k,125)*y(k,54) - mat(k,126) = .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,539) = -rxt(k,96)*y(k,66) - mat(k,214) = -rxt(k,97)*y(k,66) - mat(k,539) = mat(k,539) + rxt(k,100)*y(k,67) - mat(k,214) = mat(k,214) + rxt(k,101)*y(k,67) - mat(k,619) = 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,540) = -rxt(k,100)*y(k,67) - mat(k,215) = -rxt(k,101)*y(k,67) - mat(k,620) = -rxt(k,102)*y(k,67) - mat(k,215) = mat(k,215) + rxt(k,92)*y(k,65) - mat(k,422) = rxt(k,92)*y(k,54) - mat(k,120) = -(rxt(k,267)*y(k,60) + rxt(k,275)*y(k,47) + rxt(k,277)*y(k,50)) - mat(k,142) = -rxt(k,267)*y(k,68) - mat(k,164) = -rxt(k,275)*y(k,68) - mat(k,299) = -rxt(k,277)*y(k,68) - mat(k,222) = rxt(k,269)*y(k,62) + rxt(k,273)*y(k,64) + rxt(k,280)*y(k,70) & - + rxt(k,284)*y(k,71) - mat(k,93) = rxt(k,269)*y(k,54) - mat(k,78) = rxt(k,273)*y(k,54) - mat(k,103) = rxt(k,280)*y(k,54) - mat(k,56) = rxt(k,284)*y(k,54) - mat(k,534) = -(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,614) = -rxt(k,115)*y(k,69) - mat(k,88) = -rxt(k,116)*y(k,69) - mat(k,391) = -rxt(k,117)*y(k,69) - mat(k,573) = -rxt(k,118)*y(k,69) - mat(k,632) = -rxt(k,119)*y(k,69) - mat(k,44) = -rxt(k,123)*y(k,69) - mat(k,594) = -rxt(k,137)*y(k,69) - mat(k,174) = -rxt(k,138)*y(k,69) + 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,609) = mat(k,609) + rxt(k,100)*y(k,67) + mat(k,224) = mat(k,224) + rxt(k,101)*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,592) = -rxt(k,102)*y(k,67) + mat(k,225) = mat(k,225) + rxt(k,92)*y(k,65) + 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,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,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,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,211) = -rxt(k,147)*y(k,69) - mat(k,201) = -rxt(k,166)*y(k,69) - mat(k,366) = -(rxt(k,168) + rxt(k,169)) * y(k,69) - mat(k,263) = -rxt(k,171)*y(k,69) - mat(k,182) = -rxt(k,174)*y(k,69) - mat(k,503) = -rxt(k,198)*y(k,69) - mat(k,190) = -rxt(k,200)*y(k,69) - mat(k,282) = -rxt(k,232)*y(k,69) - mat(k,38) = -rxt(k,235)*y(k,69) - mat(k,75) = -(rxt(k,237) + rxt(k,241)) * y(k,69) - mat(k,282) = mat(k,282) + rxt(k,231)*y(k,53) - mat(k,38) = mat(k,38) + .300_r8*rxt(k,235)*y(k,69) - mat(k,159) = rxt(k,209)*y(k,73) - mat(k,294) = 2.000_r8*rxt(k,109)*y(k,43) + rxt(k,114)*y(k,55) - mat(k,614) = mat(k,614) + rxt(k,106)*y(k,53) + rxt(k,89)*y(k,65) - mat(k,88) = mat(k,88) + rxt(k,107)*y(k,53) - mat(k,190) = mat(k,190) + rxt(k,199)*y(k,53) + rxt(k,205)*y(k,65) - mat(k,263) = mat(k,263) + rxt(k,170)*y(k,53) + rxt(k,182)*y(k,65) - mat(k,391) = mat(k,391) + 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,118) = rxt(k,201)*y(k,53) - mat(k,182) = mat(k,182) + rxt(k,173)*y(k,53) - mat(k,315) = rxt(k,139)*y(k,43) - mat(k,594) = mat(k,594) + rxt(k,134)*y(k,43) - mat(k,573) = mat(k,573) + 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,632) = mat(k,632) + rxt(k,114)*y(k,32) + rxt(k,113)*y(k,43) - mat(k,340) = rxt(k,155)*y(k,43) - mat(k,441) = rxt(k,89)*y(k,33) + rxt(k,205)*y(k,36) + rxt(k,182)*y(k,40) & + mat(k,222) = -rxt(k,147)*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,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,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,534) = mat(k,534) + .300_r8*rxt(k,235)*y(k,19) - mat(k,243) = rxt(k,209)*y(k,31) + 2.000_r8*rxt(k,90)*y(k,65) - mat(k,102) = -(rxt(k,280)*y(k,54)) - mat(k,221) = -rxt(k,280)*y(k,70) - mat(k,549) = rxt(k,271)*y(k,62) + rxt(k,272)*y(k,64) + rxt(k,283)*y(k,71) & - + rxt(k,289)*y(k,72) - mat(k,141) = rxt(k,281)*y(k,71) + rxt(k,286)*y(k,72) - mat(k,92) = rxt(k,271)*y(k,53) - mat(k,77) = rxt(k,272)*y(k,53) - mat(k,55) = rxt(k,283)*y(k,53) + rxt(k,281)*y(k,60) - mat(k,50) = rxt(k,289)*y(k,53) + rxt(k,286)*y(k,60) - mat(k,53) = -(rxt(k,281)*y(k,60) + rxt(k,283)*y(k,53) + rxt(k,284)*y(k,54)) - mat(k,137) = -rxt(k,281)*y(k,71) - mat(k,542) = -rxt(k,283)*y(k,71) - mat(k,217) = -rxt(k,284)*y(k,71) - mat(k,137) = mat(k,137) + rxt(k,285)*y(k,72) - mat(k,47) = rxt(k,285)*y(k,60) - mat(k,46) = -((rxt(k,285) + rxt(k,286)) * y(k,60) + rxt(k,289)*y(k,53)) - mat(k,136) = -(rxt(k,285) + rxt(k,286)) * y(k,72) - mat(k,541) = -rxt(k,289)*y(k,72) - mat(k,238) = -(rxt(k,90)*y(k,65) + rxt(k,209)*y(k,31)) + 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,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,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,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,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,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,156) = -rxt(k,209)*y(k,73) - mat(k,270) = rxt(k,232)*y(k,69) + 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,287) = rxt(k,110)*y(k,43) - mat(k,602) = rxt(k,115)*y(k,69) - mat(k,84) = rxt(k,116)*y(k,69) - mat(k,185) = rxt(k,200)*y(k,69) - mat(k,253) = (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,207) = rxt(k,147)*y(k,69) - mat(k,378) = rxt(k,110)*y(k,32) + rxt(k,117)*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,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,41) = rxt(k,123)*y(k,69) - mat(k,113) = (rxt(k,254)+rxt(k,259))*y(k,40) - mat(k,178) = (rxt(k,247)+rxt(k,253)+rxt(k,258))*y(k,40) + rxt(k,174)*y(k,69) - mat(k,521) = 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 ) @@ -704,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) @@ -720,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) @@ -738,96 +743,89 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 55) = 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) = lmat(k, 62) + mat(k, 63) = lmat(k, 63) mat(k, 64) = mat(k, 64) + lmat(k, 64) - mat(k, 65) = lmat(k, 65) - mat(k, 66) = lmat(k, 66) - mat(k, 67) = lmat(k, 67) - mat(k, 68) = lmat(k, 68) - mat(k, 69) = mat(k, 69) + lmat(k, 69) + 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, 72) = mat(k, 72) + lmat(k, 72) - mat(k, 76) = mat(k, 76) + lmat(k, 76) - mat(k, 83) = mat(k, 83) + lmat(k, 83) - mat(k, 88) = mat(k, 88) + lmat(k, 88) - mat(k, 91) = mat(k, 91) + lmat(k, 91) - mat(k, 101) = lmat(k, 101) + 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, 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, 103) = mat(k, 103) + lmat(k, 103) - mat(k, 104) = lmat(k, 104) - mat(k, 105) = lmat(k, 105) + 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, 116) = lmat(k, 116) - mat(k, 118) = mat(k, 118) + lmat(k, 118) - mat(k, 120) = mat(k, 120) + lmat(k, 120) - mat(k, 121) = mat(k, 121) + lmat(k, 121) - mat(k, 125) = mat(k, 125) + lmat(k, 125) - mat(k, 129) = mat(k, 129) + lmat(k, 129) - mat(k, 144) = mat(k, 144) + lmat(k, 144) - mat(k, 153) = mat(k, 153) + lmat(k, 153) + 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) + mat(k, 138) = mat(k, 138) + lmat(k, 138) + mat(k, 139) = mat(k, 139) + lmat(k, 139) + mat(k, 142) = lmat(k, 142) + mat(k, 148) = mat(k, 148) + lmat(k, 148) + mat(k, 149) = mat(k, 149) + lmat(k, 149) mat(k, 154) = mat(k, 154) + lmat(k, 154) - mat(k, 158) = lmat(k, 158) - mat(k, 162) = lmat(k, 162) - mat(k, 166) = lmat(k, 166) - mat(k, 167) = mat(k, 167) + lmat(k, 167) - mat(k, 177) = mat(k, 177) + lmat(k, 177) - mat(k, 180) = mat(k, 180) + lmat(k, 180) - mat(k, 182) = mat(k, 182) + lmat(k, 182) - mat(k, 184) = mat(k, 184) + lmat(k, 184) - mat(k, 186) = mat(k, 186) + lmat(k, 186) - mat(k, 188) = mat(k, 188) + lmat(k, 188) + mat(k, 164) = mat(k, 164) + lmat(k, 164) + mat(k, 178) = mat(k, 178) + lmat(k, 178) + mat(k, 188) = lmat(k, 188) + mat(k, 191) = lmat(k, 191) mat(k, 193) = mat(k, 193) + lmat(k, 193) - mat(k, 194) = mat(k, 194) + lmat(k, 194) - mat(k, 195) = mat(k, 195) + lmat(k, 195) - mat(k, 198) = mat(k, 198) + lmat(k, 198) - mat(k, 199) = mat(k, 199) + lmat(k, 199) - mat(k, 200) = lmat(k, 200) mat(k, 203) = mat(k, 203) + lmat(k, 203) - mat(k, 206) = mat(k, 206) + lmat(k, 206) - mat(k, 209) = lmat(k, 209) - mat(k, 211) = mat(k, 211) + lmat(k, 211) - mat(k, 216) = lmat(k, 216) - mat(k, 217) = mat(k, 217) + lmat(k, 217) - mat(k, 221) = mat(k, 221) + lmat(k, 221) + mat(k, 204) = mat(k, 204) + lmat(k, 204) + mat(k, 205) = mat(k, 205) + lmat(k, 205) + 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, 212) = mat(k, 212) + lmat(k, 212) + mat(k, 216) = mat(k, 216) + lmat(k, 216) + mat(k, 220) = lmat(k, 220) mat(k, 222) = mat(k, 222) + lmat(k, 222) - mat(k, 224) = lmat(k, 224) - mat(k, 226) = mat(k, 226) + lmat(k, 226) + mat(k, 226) = lmat(k, 226) + mat(k, 227) = mat(k, 227) + lmat(k, 227) mat(k, 231) = mat(k, 231) + lmat(k, 231) - mat(k, 233) = mat(k, 233) + lmat(k, 233) - mat(k, 238) = mat(k, 238) + lmat(k, 238) - mat(k, 239) = lmat(k, 239) + 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, 241) = mat(k, 241) + lmat(k, 241) - mat(k, 243) = mat(k, 243) + lmat(k, 243) - mat(k, 244) = lmat(k, 244) - mat(k, 246) = lmat(k, 246) + 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, 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) = mat(k, 255) + lmat(k, 255) - mat(k, 256) = mat(k, 256) + lmat(k, 256) - mat(k, 267) = mat(k, 267) + lmat(k, 267) - mat(k, 272) = mat(k, 272) + lmat(k, 272) - mat(k, 273) = mat(k, 273) + lmat(k, 273) - mat(k, 285) = lmat(k, 285) - mat(k, 288) = mat(k, 288) + lmat(k, 288) - mat(k, 300) = mat(k, 300) + lmat(k, 300) - mat(k, 301) = lmat(k, 301) - mat(k, 302) = mat(k, 302) + lmat(k, 302) - mat(k, 306) = mat(k, 306) + lmat(k, 306) - mat(k, 316) = mat(k, 316) + lmat(k, 316) - mat(k, 321) = mat(k, 321) + lmat(k, 321) - mat(k, 328) = mat(k, 328) + lmat(k, 328) - mat(k, 332) = mat(k, 332) + lmat(k, 332) - mat(k, 334) = mat(k, 334) + lmat(k, 334) - mat(k, 337) = lmat(k, 337) - mat(k, 338) = lmat(k, 338) - mat(k, 358) = mat(k, 358) + lmat(k, 358) - mat(k, 359) = mat(k, 359) + lmat(k, 359) - mat(k, 367) = mat(k, 367) + lmat(k, 367) - mat(k, 373) = mat(k, 373) + lmat(k, 373) + 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, 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, 286) = lmat(k, 286) + mat(k, 298) = mat(k, 298) + lmat(k, 298) + mat(k, 311) = mat(k, 311) + lmat(k, 311) + 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, 407) = mat(k, 407) + lmat(k, 407) + 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, 417) = mat(k, 417) + lmat(k, 417) + 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, 424) = mat(k, 424) + lmat(k, 424) @@ -836,178 +834,191 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) 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, 437) = mat(k, 437) + lmat(k, 437) - mat(k, 438) = mat(k, 438) + lmat(k, 438) - mat(k, 439) = lmat(k, 439) mat(k, 441) = mat(k, 441) + lmat(k, 441) - mat(k, 442) = mat(k, 442) + lmat(k, 442) - mat(k, 444) = mat(k, 444) + lmat(k, 444) - mat(k, 458) = mat(k, 458) + lmat(k, 458) - mat(k, 478) = mat(k, 478) + lmat(k, 478) - mat(k, 500) = mat(k, 500) + lmat(k, 500) - mat(k, 502) = mat(k, 502) + lmat(k, 502) - mat(k, 504) = mat(k, 504) + lmat(k, 504) - mat(k, 508) = lmat(k, 508) - mat(k, 509) = lmat(k, 509) - mat(k, 521) = mat(k, 521) + lmat(k, 521) - mat(k, 526) = mat(k, 526) + lmat(k, 526) - mat(k, 528) = mat(k, 528) + lmat(k, 528) - mat(k, 531) = mat(k, 531) + lmat(k, 531) - mat(k, 532) = mat(k, 532) + lmat(k, 532) + mat(k, 442) = lmat(k, 442) + mat(k, 443) = mat(k, 443) + lmat(k, 443) + 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, 515) = mat(k, 515) + lmat(k, 515) + mat(k, 516) = lmat(k, 516) + 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, 541) = mat(k, 541) + lmat(k, 541) mat(k, 542) = mat(k, 542) + lmat(k, 542) - mat(k, 549) = mat(k, 549) + lmat(k, 549) - mat(k, 553) = lmat(k, 553) + 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, 574) = mat(k, 574) + lmat(k, 574) - mat(k, 580) = mat(k, 580) + lmat(k, 580) - mat(k, 581) = mat(k, 581) + lmat(k, 581) - mat(k, 585) = mat(k, 585) + lmat(k, 585) - mat(k, 589) = mat(k, 589) + lmat(k, 589) - mat(k, 595) = mat(k, 595) + lmat(k, 595) - mat(k, 596) = mat(k, 596) + lmat(k, 596) - mat(k, 617) = mat(k, 617) + lmat(k, 617) - mat(k, 619) = mat(k, 619) + lmat(k, 619) - mat(k, 621) = mat(k, 621) + lmat(k, 621) - mat(k, 628) = mat(k, 628) + lmat(k, 628) - mat(k, 633) = mat(k, 633) + lmat(k, 633) - mat(k, 636) = mat(k, 636) + lmat(k, 636) - mat(k, 98) = 0._r8 + 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, 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, 99) = 0._r8 - mat(k, 107) = 0._r8 - mat(k, 108) = 0._r8 - mat(k, 109) = 0._r8 - mat(k, 115) = 0._r8 - mat(k, 132) = 0._r8 - mat(k, 133) = 0._r8 - mat(k, 134) = 0._r8 - mat(k, 139) = 0._r8 + mat(k, 130) = 0._r8 + mat(k, 131) = 0._r8 + mat(k, 140) = 0._r8 + mat(k, 144) = 0._r8 + mat(k, 145) = 0._r8 mat(k, 146) = 0._r8 - mat(k, 147) = 0._r8 - mat(k, 148) = 0._r8 - mat(k, 149) = 0._r8 mat(k, 151) = 0._r8 - mat(k, 163) = 0._r8 - mat(k, 171) = 0._r8 - mat(k, 173) = 0._r8 + mat(k, 161) = 0._r8 + mat(k, 167) = 0._r8 + mat(k, 168) = 0._r8 + mat(k, 169) = 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, 182) = 0._r8 + mat(k, 185) = 0._r8 + mat(k, 189) = 0._r8 + mat(k, 192) = 0._r8 mat(k, 196) = 0._r8 - mat(k, 208) = 0._r8 - mat(k, 210) = 0._r8 - mat(k, 213) = 0._r8 - mat(k, 230) = 0._r8 - mat(k, 232) = 0._r8 - mat(k, 237) = 0._r8 + mat(k, 199) = 0._r8 + mat(k, 206) = 0._r8 + mat(k, 218) = 0._r8 + mat(k, 219) = 0._r8 + mat(k, 223) = 0._r8 mat(k, 240) = 0._r8 mat(k, 242) = 0._r8 - mat(k, 245) = 0._r8 - mat(k, 258) = 0._r8 - mat(k, 260) = 0._r8 - mat(k, 261) = 0._r8 - mat(k, 262) = 0._r8 - mat(k, 265) = 0._r8 + mat(k, 247) = 0._r8 + mat(k, 251) = 0._r8 + mat(k, 253) = 0._r8 + mat(k, 255) = 0._r8 mat(k, 266) = 0._r8 - mat(k, 275) = 0._r8 - mat(k, 277) = 0._r8 - mat(k, 278) = 0._r8 - mat(k, 280) = 0._r8 - mat(k, 281) = 0._r8 + mat(k, 267) = 0._r8 + mat(k, 268) = 0._r8 + mat(k, 271) = 0._r8 + mat(k, 272) = 0._r8 + mat(k, 274) = 0._r8 + mat(k, 287) = 0._r8 + mat(k, 288) = 0._r8 mat(k, 289) = 0._r8 - mat(k, 291) = 0._r8 - mat(k, 292) = 0._r8 + mat(k, 290) = 0._r8 mat(k, 293) = 0._r8 - mat(k, 296) = 0._r8 - mat(k, 305) = 0._r8 - mat(k, 311) = 0._r8 + mat(k, 301) = 0._r8 + mat(k, 302) = 0._r8 + mat(k, 303) = 0._r8 + mat(k, 304) = 0._r8 + mat(k, 306) = 0._r8 mat(k, 318) = 0._r8 mat(k, 325) = 0._r8 - mat(k, 327) = 0._r8 - mat(k, 331) = 0._r8 - mat(k, 335) = 0._r8 - mat(k, 336) = 0._r8 + mat(k, 337) = 0._r8 mat(k, 339) = 0._r8 - mat(k, 341) = 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, 362) = 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, 369) = 0._r8 mat(k, 370) = 0._r8 - mat(k, 380) = 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, 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, 409) = 0._r8 mat(k, 412) = 0._r8 - mat(k, 413) = 0._r8 - mat(k, 414) = 0._r8 - mat(k, 419) = 0._r8 + mat(k, 417) = 0._r8 + mat(k, 418) = 0._r8 mat(k, 426) = 0._r8 mat(k, 436) = 0._r8 - mat(k, 443) = 0._r8 - mat(k, 449) = 0._r8 - mat(k, 451) = 0._r8 + mat(k, 440) = 0._r8 mat(k, 452) = 0._r8 - mat(k, 453) = 0._r8 mat(k, 454) = 0._r8 - mat(k, 456) = 0._r8 mat(k, 457) = 0._r8 - mat(k, 459) = 0._r8 - mat(k, 461) = 0._r8 - mat(k, 462) = 0._r8 + mat(k, 460) = 0._r8 mat(k, 463) = 0._r8 - mat(k, 464) = 0._r8 - mat(k, 468) = 0._r8 + mat(k, 466) = 0._r8 mat(k, 470) = 0._r8 mat(k, 476) = 0._r8 - mat(k, 477) = 0._r8 + mat(k, 478) = 0._r8 mat(k, 479) = 0._r8 mat(k, 480) = 0._r8 - mat(k, 481) = 0._r8 - mat(k, 482) = 0._r8 mat(k, 483) = 0._r8 - mat(k, 484) = 0._r8 + mat(k, 486) = 0._r8 mat(k, 489) = 0._r8 mat(k, 491) = 0._r8 - mat(k, 492) = 0._r8 mat(k, 493) = 0._r8 mat(k, 499) = 0._r8 mat(k, 501) = 0._r8 - mat(k, 505) = 0._r8 - mat(k, 506) = 0._r8 + mat(k, 503) = 0._r8 + mat(k, 504) = 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, 514) = 0._r8 - mat(k, 530) = 0._r8 + mat(k, 522) = 0._r8 + mat(k, 538) = 0._r8 + mat(k, 549) = 0._r8 mat(k, 551) = 0._r8 - mat(k, 558) = 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, 569) = 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, 586) = 0._r8 - mat(k, 587) = 0._r8 mat(k, 590) = 0._r8 - mat(k, 591) = 0._r8 - mat(k, 592) = 0._r8 - mat(k, 593) = 0._r8 mat(k, 597) = 0._r8 - mat(k, 598) = 0._r8 - mat(k, 601) = 0._r8 mat(k, 605) = 0._r8 - mat(k, 607) = 0._r8 - mat(k, 608) = 0._r8 - mat(k, 609) = 0._r8 - mat(k, 611) = 0._r8 - mat(k, 612) = 0._r8 - mat(k, 613) = 0._r8 - mat(k, 616) = 0._r8 - mat(k, 618) = 0._r8 + mat(k, 623) = 0._r8 + mat(k, 628) = 0._r8 mat(k, 630) = 0._r8 - mat(k, 635) = 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) @@ -1023,41 +1034,41 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 46) = mat(k, 46) - dti(k) mat(k, 53) = mat(k, 53) - dti(k) mat(k, 59) = mat(k, 59) - dti(k) - mat(k, 64) = mat(k, 64) - dti(k) - mat(k, 72) = mat(k, 72) - dti(k) - mat(k, 76) = mat(k, 76) - dti(k) - mat(k, 83) = mat(k, 83) - dti(k) - mat(k, 91) = mat(k, 91) - dti(k) + mat(k, 67) = mat(k, 67) - dti(k) + mat(k, 71) = mat(k, 71) - dti(k) + mat(k, 78) = mat(k, 78) - dti(k) + 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, 112) = mat(k, 112) - dti(k) - mat(k, 120) = mat(k, 120) - dti(k) - mat(k, 129) = mat(k, 129) - dti(k) - mat(k, 144) = mat(k, 144) - dti(k) - mat(k, 154) = mat(k, 154) - dti(k) - mat(k, 167) = mat(k, 167) - dti(k) - mat(k, 177) = mat(k, 177) - dti(k) - mat(k, 184) = mat(k, 184) - dti(k) - mat(k, 194) = mat(k, 194) - dti(k) - mat(k, 206) = mat(k, 206) - dti(k) - mat(k, 226) = mat(k, 226) - dti(k) - mat(k, 238) = mat(k, 238) - dti(k) - mat(k, 254) = mat(k, 254) - dti(k) - mat(k, 272) = mat(k, 272) - dti(k) - mat(k, 288) = mat(k, 288) - dti(k) - mat(k, 306) = mat(k, 306) - dti(k) - mat(k, 332) = mat(k, 332) - dti(k) - mat(k, 359) = mat(k, 359) - 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) + mat(k, 164) = mat(k, 164) - dti(k) + mat(k, 178) = mat(k, 178) - dti(k) + mat(k, 193) = mat(k, 193) - dti(k) + mat(k, 204) = mat(k, 204) - dti(k) + mat(k, 216) = mat(k, 216) - dti(k) + mat(k, 236) = mat(k, 236) - dti(k) + mat(k, 248) = mat(k, 248) - dti(k) + 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, 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, 458) = mat(k, 458) - dti(k) - mat(k, 478) = mat(k, 478) - dti(k) - mat(k, 502) = mat(k, 502) - dti(k) - mat(k, 534) = mat(k, 534) - dti(k) - mat(k, 574) = mat(k, 574) - dti(k) - mat(k, 596) = mat(k, 596) - dti(k) - mat(k, 617) = mat(k, 617) - dti(k) - mat(k, 636) = mat(k, 636) - 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, 647) = mat(k, 647) - dti(k) end do end subroutine nlnmat_finit subroutine nlnmat( avec_len, mat, y, rxt, lmat, dti ) diff --git a/src/chemistry/pp_waccm_ma/mo_prod_loss.F90 b/src/chemistry/pp_waccm_ma/mo_prod_loss.F90 index ecb47a0f85..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,45) = (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,45) = (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,16) = (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,16) =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,39) = ((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,39) = (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,17) = ((rxt(k,237) +rxt(k,241))* y(k,69) + het_rates(k,27))* y(k,27) - prod(k,17) = (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,26) = (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,26) = (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,19) = (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,19) = (.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,29) = (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,29) = (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,40) = (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,40) = (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,22) = ((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,22) = (rxt(k,248) +rxt(k,251) +rxt(k,256))*y(k,3) +rxt(k,193)*y(k,43) & - *y(k,2) - loss(k,28) = ((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,28) = (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,27) = (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,27) = (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,37) = (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,37) = (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,276)*y(k,68) +rxt(k,288)*y(k,72) - loss(k,41) = (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,41) = (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,48) = (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,48) = (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) & + + 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,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,47) = (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,47) = (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,280)*y(k,70) +rxt(k,284)*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,91)*y(k,65) & - +rxt(k,120)*y(k,69)*y(k,69) +rxt(k,282)*y(k,71) +rxt(k,287)*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) & + 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,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,280) & - * y(k,70) +rxt(k,284)* y(k,71) + rxt(k,5) + rxt(k,6) + rxt(k,77) & + * 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,38) = (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,38) = (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) - loss(k,25) = (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) - prod(k,25) = (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,15) = (rxt(k,124)* y(k,53) +rxt(k,125)* y(k,54) + het_rates(k,61)) & - * y(k,61) - prod(k,15) = (.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,20) = ((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,20) =rxt(k,282)*y(k,71) +rxt(k,287)*y(k,72) - loss(k,24) = (rxt(k,266)* y(k,60) + het_rates(k,63))* y(k,63) - prod(k,24) = (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,18) = (rxt(k,272)* y(k,53) + (rxt(k,273) +rxt(k,274))* y(k,54) & + 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,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,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,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,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,18) =rxt(k,62)*y(k,47) +rxt(k,288)*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,23) = (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,23) = (rxt(k,78) +rxt(k,80) +rxt(k,269)*y(k,62) +rxt(k,273)*y(k,64) + & - rxt(k,280)*y(k,70) +rxt(k,284)*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) & + 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,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,21) = (rxt(k,278)* y(k,28) +rxt(k,280)* y(k,54) + rxt(k,279) & - + het_rates(k,70))* y(k,70) - prod(k,21) = (rxt(k,71) +rxt(k,72) +rxt(k,271)*y(k,62) +rxt(k,272)*y(k,64) + & - rxt(k,283)*y(k,71) +rxt(k,289)*y(k,72))*y(k,53) + (rxt(k,79) + & - rxt(k,81))*y(k,54) + (rxt(k,281)*y(k,71) +rxt(k,286)*y(k,72))*y(k,60) & + 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,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,283)* y(k,53) +rxt(k,284)* y(k,54) +rxt(k,281)* y(k,60) & - + rxt(k,264) + rxt(k,282) + 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,285)*y(k,60))*y(k,72) - loss(k,13) = (rxt(k,289)* y(k,53) + (rxt(k,285) +rxt(k,286))* y(k,60) & - + rxt(k,263) + rxt(k,265) + rxt(k,287) + rxt(k,288) & + 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,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 498331aff5..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,224 +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,:, 54) ! rate_const*Op*O2 - rxt_rates(:ncol,:, 281) = rxt_rates(:ncol,:, 281)*sol(:ncol,:, 71)*sol(:ncol,:, 60) ! rate_const*Op2D*e - rxt_rates(:ncol,:, 282) = rxt_rates(:ncol,:, 282)*sol(:ncol,:, 71) ! rate_const*N2*Op2D - rxt_rates(:ncol,:, 283) = rxt_rates(:ncol,:, 283)*sol(:ncol,:, 71)*sol(:ncol,:, 53) ! rate_const*Op2D*O - rxt_rates(:ncol,:, 284) = rxt_rates(:ncol,:, 284)*sol(:ncol,:, 71)*sol(:ncol,:, 54) ! rate_const*Op2D*O2 - rxt_rates(:ncol,:, 285) = rxt_rates(:ncol,:, 285)*sol(:ncol,:, 72)*sol(:ncol,:, 60) ! rate_const*Op2P*e - 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) ! rate_const*N2*Op2P + 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,:, 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,:, 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)*sol(:ncol,:, 53) ! rate_const*Op2P*O + 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,:, 54) ! rate_const*Op2P*O end subroutine set_rates end module mo_rxt_rates_conv diff --git a/src/chemistry/pp_waccm_ma/mo_setrxt.F90 b/src/chemistry/pp_waccm_ma/mo_setrxt.F90 index fddf8b3311..00b86bfa84 100644 --- a/src/chemistry/pp_waccm_ma/mo_setrxt.F90 +++ b/src/chemistry/pp_waccm_ma/mo_setrxt.F90 @@ -93,12 +93,13 @@ subroutine setrxt( rate, temp, m, ncol ) rate(:,276) = 5e-16_r8 rate(:,277) = 4.4e-10_r8 rate(:,278) = 9e-10_r8 - rate(:,282) = 8e-10_r8 - rate(:,283) = 5e-12_r8 - rate(:,284) = 7e-10_r8 - rate(:,287) = 4.8e-10_r8 - rate(:,288) = 1e-10_r8 - rate(:,289) = 4e-10_r8 + rate(:,280) = 1.3e-10_r8 + rate(:,283) = 8e-10_r8 + rate(:,284) = 5e-12_r8 + rate(:,285) = 7e-10_r8 + rate(:,288) = 4.8e-10_r8 + rate(:,289) = 1e-10_r8 + rate(:,290) = 4e-10_r8 do n = 1,pver offset = (n-1)*ncol @@ -215,12 +216,13 @@ subroutine setrxt( rate, temp, m, ncol ) rate(:,276) = 5e-16_r8 * exp_fac(:) rate(:,277) = 4.4e-10_r8 * exp_fac(:) rate(:,278) = 9e-10_r8 * exp_fac(:) - rate(:,282) = 8e-10_r8 * exp_fac(:) - rate(:,283) = 5e-12_r8 * exp_fac(:) - rate(:,284) = 7e-10_r8 * exp_fac(:) - rate(:,287) = 4.8e-10_r8 * exp_fac(:) - rate(:,288) = 1e-10_r8 * exp_fac(:) - rate(:,289) = 4e-10_r8 * exp_fac(:) + rate(:,280) = 1.3e-10_r8 * exp_fac(:) + rate(:,283) = 8e-10_r8 * exp_fac(:) + rate(:,284) = 5e-12_r8 * exp_fac(:) + rate(:,285) = 7e-10_r8 * exp_fac(:) + rate(:,288) = 4.8e-10_r8 * exp_fac(:) + rate(:,289) = 1e-10_r8 * exp_fac(:) + rate(:,290) = 4e-10_r8 * exp_fac(:) rate(:,210) = 6e-12_r8 * exp( 400._r8 * itemp(:) ) rate(:,215) = 1.46e-11_r8 * exp( -1040._r8 * itemp(:) ) rate(:,216) = 1.42e-12_r8 * exp( -1150._r8 * itemp(:) ) @@ -340,12 +342,13 @@ subroutine setrxt_hrates( rate, temp, m, ncol, kbot ) rate(:n,274) = 2e-10_r8 rate(:n,275) = 1e-10_r8 rate(:n,277) = 4.4e-10_r8 - rate(:n,282) = 8e-10_r8 - rate(:n,283) = 5e-12_r8 - rate(:n,284) = 7e-10_r8 - rate(:n,287) = 4.8e-10_r8 - rate(:n,288) = 1e-10_r8 - rate(:n,289) = 4e-10_r8 + rate(:n,280) = 1.3e-10_r8 + rate(:n,283) = 8e-10_r8 + rate(:n,284) = 5e-12_r8 + rate(:n,285) = 7e-10_r8 + rate(:n,288) = 4.8e-10_r8 + rate(:n,289) = 1e-10_r8 + rate(:n,290) = 4e-10_r8 do k = 1,kbot offset = (k-1)*ncol diff --git a/src/chemistry/pp_waccm_ma/mo_sim_dat.F90 b/src/chemistry/pp_waccm_ma/mo_sim_dat.F90 index 85aa20921c..e17aca3e5b 100644 --- a/src/chemistry/pp_waccm_ma/mo_sim_dat.F90 +++ b/src/chemistry/pp_waccm_ma/mo_sim_dat.F90 @@ -34,49 +34,49 @@ subroutine set_sim_dat clscnt(:) = (/ 23, 0, 0, 50, 0 /) cls_rxt_cnt(:,1) = (/ 3, 59, 0, 23 /) - cls_rxt_cnt(:,4) = (/ 30, 121, 137, 50 /) + 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, 45, 16, 35, 44, 11, 6, 1, 39, 30, & - 17, 2, 7, 26, 36, 49, 19, 29, 34, 9, & - 31, 40, 12, 22, 28, 27, 10, 37, 41, 48, & - 47, 32, 50, 3, 43, 38, 25, 15, 20, 24, & - 18, 42, 4, 5, 23, 46, 21, 14, 13, 33 /) + 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, 64, 72, 76, 83, 91, & - 102, 112, 120, 129, 144, 154, 167, 177, 184, 194, & - 206, 226, 238, 254, 272, 288, 306, 332, 359, 385, & - 411, 437, 458, 478, 502, 534, 574, 596, 617, 636 /) + 33, 39, 46, 53, 59, 67, 71, 78, 87, 93, & + 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 ) @@ -237,7 +237,7 @@ subroutine set_sim_dat 'BRO_NO2_M ', 'BRONO2_O ', & 'BRO_O ', 'BRO_OH ', & 'HBR_O ', 'HBR_OH ' /) - rxt_tag_lst( 201: 289) = (/ 'HOBR_O ', 'O1D_CF3BR ', & + rxt_tag_lst( 201: 290) = (/ 'HOBR_O ', 'O1D_CF3BR ', & 'O1D_CHBR3 ', 'O1D_H2402 ', & 'O1D_HBRa ', 'O1D_HBRb ', & 'F_CH4 ', 'F_H2 ', & @@ -276,12 +276,12 @@ subroutine set_sim_dat 'ion_Np_O2a ', 'ion_Np_O2b ', & 'ion_O2p_N ', 'ion_O2p_N2 ', & 'ion_O2p_NO ', 'ion_Op_CO2 ', & - 'ion_Op_N2 ', 'ion_Op_O2 ', & - 'Op2D_e ', 'Op2D_N2 ', & - 'Op2D_O ', 'Op2D_O2 ', & - 'Op2P_ea ', 'Op2P_eb ', & - 'Op2P_N2a ', 'Op2P_N2b ', & - 'Op2P_O ' /) + 'ion_Op_N2 ', 'ion_Op_N2D ', & + 'ion_Op_O2 ', 'Op2D_e ', & + 'Op2D_N2 ', 'Op2D_O ', & + 'Op2D_O2 ', 'Op2P_ea ', & + 'Op2P_eb ', 'Op2P_N2a ', & + 'Op2P_N2b ', 'Op2P_O ' /) rxt_tag_map(:rxt_tag_cnt) = (/ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, & 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, & @@ -310,7 +310,7 @@ subroutine set_sim_dat 251, 252, 253, 254, 255, 256, 257, 258, 259, 260, & 261, 262, 263, 264, 265, 266, 267, 268, 269, 270, & 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, & - 281, 282, 283, 284, 285, 286, 287, 288, 289 /) + 281, 282, 283, 284, 285, 286, 287, 288, 289, 290 /) if( allocated( pht_alias_lst ) ) then deallocate( pht_alias_lst ) end if @@ -427,7 +427,7 @@ subroutine set_sim_dat 269, 270, 272, 273, 274, & 275, 277, 279, 280, 281, & 282, 283, 284, 285, 286, & - 287, 288, 289 /) + 287, 288, 289, 290 /) cph_enthalpy(:) = (/ 189.810000_r8, 32.910000_r8, 189.810000_r8, 94.300000_r8, 94.300000_r8, & 94.300000_r8, 62.600000_r8, 62.600000_r8, 62.600000_r8, 62.600000_r8, & 392.190000_r8, 493.580000_r8, 101.390000_r8, 232.590000_r8, 203.400000_r8, & @@ -436,9 +436,9 @@ subroutine set_sim_dat 133.750000_r8, 193.020000_r8, 34.470000_r8, 199.170000_r8, 483.390000_r8, & 321.300000_r8, 163.060000_r8, 82.389000_r8, 508.950000_r8, 354.830000_r8, & 339.590000_r8, 67.530000_r8, 95.550000_r8, 239.840000_r8, 646.280000_r8, & - 406.160000_r8, 271.380000_r8, 105.040000_r8, 150.110000_r8, 319.370000_r8, & - 128.320000_r8, 319.360000_r8, 469.400000_r8, 163.060000_r8, 482.430000_r8, & - 291.380000_r8, 67.540000_r8, 501.720000_r8 /) + 406.160000_r8, 271.380000_r8, 105.040000_r8, 139.900000_r8, 150.110000_r8, & + 319.370000_r8, 128.320000_r8, 319.360000_r8, 469.400000_r8, 163.060000_r8, & + 482.430000_r8, 291.380000_r8, 67.540000_r8, 501.720000_r8 /) allocate( num_rnts(rxntot-phtcnt),stat=ios ) if( ios /= 0 ) then write(iulog,*) 'set_sim_dat: failed to allocate num_rnts; error = ',ios @@ -464,7 +464,7 @@ subroutine set_sim_dat 2, 2, 2, 1, 1, 2, 1, 1, 1, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 2, 2 /) + 2, 2, 2, 2 /) end subroutine set_sim_dat diff --git a/src/chemistry/pp_waccm_ma_mam4/chem_mech.doc b/src/chemistry/pp_waccm_ma_mam4/chem_mech.doc index 021d2663c7..4cc3165099 100644 --- a/src/chemistry/pp_waccm_ma_mam4/chem_mech.doc +++ b/src/chemistry/pp_waccm_ma_mam4/chem_mech.doc @@ -3,101 +3,104 @@ 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) SO (SO) - ( 75) SO2 - ( 76) SO3 (SO3) - ( 77) so4_a1 (NH4HSO4) - ( 78) so4_a2 (NH4HSO4) - ( 79) so4_a3 (NH4HSO4) - ( 80) soa_a1 (C) - ( 81) soa_a2 (C) - ( 82) SOAG (C) - ( 83) BR (Br) - ( 84) CL (Cl) - ( 85) e (E) - ( 86) HO2 - ( 87) N2D (N) - ( 88) N2p (N2) - ( 89) NOp (NO) - ( 90) Np (N) - ( 91) O1D (O) - ( 92) O2_1D (O2) - ( 93) O2_1S (O2) - ( 94) O2p (O2) - ( 95) OH - ( 96) Op (O) - ( 97) H2O + ( 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) + ( 89) N2p (N2) + ( 90) NOp (NO) + ( 91) Np (N) + ( 92) O1D (O) + ( 93) O2_1D (O2) + ( 94) O2_1S (O2) + ( 95) O2p (O2) + ( 96) OH + ( 97) Op (O) + ( 98) Op2D (O) + ( 99) Op2P (O) + (100) H2O Invariant species @@ -135,71 +138,72 @@ Class List ( 20) HCFC142B ( 21) HCFC22 ( 22) N2O + ( 23) SF6 Implicit -------- ( 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 @@ -212,7 +216,9 @@ Class List ( 72) O2p ( 73) OH ( 74) Op - ( 75) H2O + ( 75) Op2D + ( 76) Op2P + ( 77) H2O Photolysis jh2o_b ( 1) H2O + hv -> H2 + O1D rate = ** User defined ** ( 1) @@ -275,269 +281,283 @@ Class List jhobr ( 57) HOBR + hv -> BR + OH rate = ** User defined ** ( 57) jhocl ( 58) HOCL + hv -> OH + CL rate = ** User defined ** ( 58) joclo ( 59) OCLO + hv -> O + CLO rate = ** User defined ** ( 59) - jeuv_26 ( 60) CO2 + hv -> CO + O rate = ** User defined ** ( 60) - jeuv_4 ( 61) N + hv -> Np + e rate = ** User defined ** ( 61) - jeuv_23 ( 62) N2 + hv -> N2D + Np + e rate = ** User defined ** ( 62) - jeuv_25 ( 63) N2 + hv -> 1.2*N2D + 0.8*N rate = ** User defined ** ( 63) - jeuv_6 ( 64) N2 + hv -> N2p + e rate = ** User defined ** ( 64) - jeuv_22 ( 65) N2 + hv -> N + Np + e rate = ** User defined ** ( 65) - jeuv_18 ( 66) N2 + hv -> N2p + e rate = ** User defined ** ( 66) - jeuv_13 ( 67) N2 + hv -> 1.2*N2D + 0.8*N rate = ** User defined ** ( 67) - jeuv_11 ( 68) N2 + hv -> N2D + Np + e rate = ** User defined ** ( 68) - jeuv_10 ( 69) N2 + hv -> N + Np + e rate = ** User defined ** ( 69) - jeuv_1 ( 70) O + hv -> Op + e rate = ** User defined ** ( 70) - jeuv_14 ( 71) O + hv -> Op + e rate = ** User defined ** ( 71) - jeuv_2 ( 72) O + hv -> Op + e rate = ** User defined ** ( 72) - jeuv_3 ( 73) O + hv -> Op + e rate = ** User defined ** ( 73) - jeuv_15 ( 74) O + hv -> Op + e rate = ** User defined ** ( 74) - jeuv_16 ( 75) O + hv -> Op + e rate = ** User defined ** ( 75) - jeuv_9 ( 76) O2 + hv -> O + Op + e rate = ** User defined ** ( 76) - jeuv_17 ( 77) O2 + hv -> O2p + e rate = ** User defined ** ( 77) - jeuv_7 ( 78) O2 + hv -> O + Op + e rate = ** User defined ** ( 78) - jeuv_5 ( 79) O2 + hv -> O2p + e rate = ** User defined ** ( 79) - jeuv_19 ( 80) O2 + hv -> O + Op + e rate = ** User defined ** ( 80) - jeuv_24 ( 81) O2 + hv -> 2*O rate = ** User defined ** ( 81) - jeuv_12 ( 82) O2 + hv -> 2*O rate = ** User defined ** ( 82) - jeuv_20 ( 83) O2 + hv -> O + Op + e rate = ** User defined ** ( 83) - jeuv_21 ( 84) O2 + hv -> O + Op + e rate = ** User defined ** ( 84) - jeuv_8 ( 85) O2 + hv -> O + Op + e rate = ** User defined ** ( 85) - jh2so4 ( 86) H2SO4 + hv -> SO3 + H2O rate = ** User defined ** ( 86) - jocs ( 87) OCS + hv -> S + CO rate = ** User defined ** ( 87) - jso ( 88) SO + hv -> S + O rate = ** User defined ** ( 88) - jso2 ( 89) SO2 + hv -> SO + O rate = ** User defined ** ( 89) - jso3 ( 90) SO3 + hv -> SO2 + O rate = ** User defined ** ( 90) + jsf6 ( 60) SF6 + hv -> {sink} rate = ** User defined ** ( 60) + jeuv_26 ( 61) CO2 + hv -> CO + O rate = ** User defined ** ( 61) + jeuv_4 ( 62) N + hv -> Np + e rate = ** User defined ** ( 62) + jeuv_6 ( 63) N2 + hv -> N2p + e rate = ** User defined ** ( 63) + jeuv_22 ( 64) N2 + hv -> N + Np + e rate = ** User defined ** ( 64) + jeuv_23 ( 65) N2 + hv -> N2D + Np + e rate = ** User defined ** ( 65) + jeuv_25 ( 66) N2 + hv -> 1.2*N2D + 0.8*N rate = ** User defined ** ( 66) + jeuv_18 ( 67) N2 + hv -> N2p + e rate = ** User defined ** ( 67) + jeuv_13 ( 68) N2 + hv -> 1.2*N2D + 0.8*N rate = ** User defined ** ( 68) + jeuv_11 ( 69) N2 + hv -> N2D + Np + e rate = ** User defined ** ( 69) + jeuv_10 ( 70) N2 + hv -> N + Np + e rate = ** User defined ** ( 70) + jeuv_3 ( 71) O + hv -> Op2P + e rate = ** User defined ** ( 71) + jeuv_16 ( 72) O + hv -> Op2P + e rate = ** User defined ** ( 72) + jeuv_1 ( 73) O + hv -> Op + e rate = ** User defined ** ( 73) + jeuv_14 ( 74) O + hv -> Op + e rate = ** User defined ** ( 74) + jeuv_2 ( 75) O + hv -> Op2D + e rate = ** User defined ** ( 75) + jeuv_15 ( 76) O + hv -> Op2D + e rate = ** User defined ** ( 76) + jeuv_21 ( 77) O2 + hv -> O + Op2P + e rate = ** User defined ** ( 77) + jeuv_17 ( 78) O2 + hv -> O2p + e rate = ** User defined ** ( 78) + jeuv_7 ( 79) O2 + hv -> O + Op + e rate = ** User defined ** ( 79) + jeuv_5 ( 80) O2 + hv -> O2p + e rate = ** User defined ** ( 80) + jeuv_19 ( 81) O2 + hv -> O + Op + e rate = ** User defined ** ( 81) + jeuv_24 ( 82) O2 + hv -> 2*O rate = ** User defined ** ( 82) + jeuv_12 ( 83) O2 + hv -> 2*O rate = ** User defined ** ( 83) + jeuv_9 ( 84) O2 + hv -> O + Op2P + e rate = ** User defined ** ( 84) + jeuv_8 ( 85) O2 + hv -> O + Op2D + e rate = ** User defined ** ( 85) + jeuv_20 ( 86) O2 + hv -> O + Op2D + e rate = ** User defined ** ( 86) + jh2so4 ( 87) H2SO4 + hv -> SO3 + H2O rate = ** User defined ** ( 87) + jocs ( 88) OCS + hv -> S + CO rate = ** User defined ** ( 88) + jso ( 89) SO + hv -> S + O rate = ** User defined ** ( 89) + jso2 ( 90) SO2 + hv -> SO + O rate = ** User defined ** ( 90) + jso3 ( 91) SO3 + hv -> SO2 + O rate = ** User defined ** ( 91) Reactions - ag1 ( 1) O2_1D -> O2 rate = 2.58E-04 ( 91) - ag2 ( 2) O2_1S -> O2 rate = 8.50E-02 ( 92) - O1D_H2 ( 3) O1D + H2 -> H + OH rate = 1.20E-10 ( 93) - O1D_H2O ( 4) O1D + H2O -> 2*OH rate = 1.63E-10*exp( 60./t) ( 94) - O1D_N2 ( 5) O1D + N2 -> O + N2 rate = 2.15E-11*exp( 110./t) ( 95) - O1D_O2 ( 6) O1D + O2 -> O + O2_1S rate = 2.64E-11*exp( 55./t) ( 96) - O1D_O2b ( 7) O1D + O2 -> O + O2 rate = 6.60E-12*exp( 55./t) ( 97) - O1D_O3 ( 8) O1D + O3 -> O2 + O2 rate = 1.20E-10 ( 98) - O2_1D_N2 ( 9) O2_1D + N2 -> O2 + N2 rate = 1.00E-20 ( 99) - O2_1D_O ( 10) O2_1D + O -> O2 + O rate = 1.30E-16 (100) - O2_1D_O2 ( 11) O2_1D + O2 -> 2*O2 rate = 3.60E-18*exp( -220./t) (101) - O2_1S_CO2 ( 12) O2_1S + CO2 -> O2_1D + CO2 rate = 4.20E-13 (102) - O2_1S_N2 ( 13) O2_1S + N2 -> O2_1D + N2 rate = 1.80E-15*exp( 45./t) (103) - O2_1S_O ( 14) O2_1S + O -> O2_1D + O rate = 8.00E-14 (104) - O2_1S_O2 ( 15) O2_1S + O2 -> O2_1D + O2 rate = 3.90E-17 (105) - O2_1S_O3 ( 16) O2_1S + O3 -> O2_1D + O3 rate = 3.50E-11*exp( -135./t) (106) - O_O3 ( 17) O + O3 -> 2*O2 rate = 8.00E-12*exp( -2060./t) (107) - usr_O_O ( 18) O + O + M -> O2 + M rate = ** User defined ** (108) - usr_O_O2 ( 19) O + O2 + M -> O3 + M rate = ** User defined ** (109) - H2_O ( 20) H2 + O -> OH + H rate = 1.60E-11*exp( -4570./t) (110) - H2O2_O ( 21) H2O2 + O -> OH + HO2 rate = 1.40E-12*exp( -2000./t) (111) - H_HO2 ( 22) H + HO2 -> H2 + O2 rate = 6.90E-12 (112) - H_HO2a ( 23) H + HO2 -> 2*OH rate = 7.20E-11 (113) - H_HO2b ( 24) H + HO2 -> H2O + O rate = 1.60E-12 (114) - H_O2 ( 25) H + O2 + M -> HO2 + M troe : ko=4.40E-32*(300/t)**1.30 (115) + ag1 ( 1) O2_1D -> O2 rate = 2.58E-04 ( 92) + ag2 ( 2) O2_1S -> O2 rate = 8.50E-02 ( 93) + O1D_H2 ( 3) O1D + H2 -> H + OH rate = 1.20E-10 ( 94) + O1D_H2O ( 4) O1D + H2O -> 2*OH rate = 1.63E-10*exp( 60./t) ( 95) + O1D_N2 ( 5) O1D + N2 -> O + N2 rate = 2.15E-11*exp( 110./t) ( 96) + O1D_O2 ( 6) O1D + O2 -> O + O2_1S rate = 2.64E-11*exp( 55./t) ( 97) + O1D_O2b ( 7) O1D + O2 -> O + O2 rate = 6.60E-12*exp( 55./t) ( 98) + O1D_O3 ( 8) O1D + O3 -> O2 + O2 rate = 1.20E-10 ( 99) + O2_1D_N2 ( 9) O2_1D + N2 -> O2 + N2 rate = 1.00E-20 (100) + O2_1D_O ( 10) O2_1D + O -> O2 + O rate = 1.30E-16 (101) + O2_1D_O2 ( 11) O2_1D + O2 -> 2*O2 rate = 3.60E-18*exp( -220./t) (102) + O2_1S_CO2 ( 12) O2_1S + CO2 -> O2_1D + CO2 rate = 4.20E-13 (103) + O2_1S_N2 ( 13) O2_1S + N2 -> O2_1D + N2 rate = 1.80E-15*exp( 45./t) (104) + O2_1S_O ( 14) O2_1S + O -> O2_1D + O rate = 8.00E-14 (105) + O2_1S_O2 ( 15) O2_1S + O2 -> O2_1D + O2 rate = 3.90E-17 (106) + O2_1S_O3 ( 16) O2_1S + O3 -> O2_1D + O3 rate = 3.50E-11*exp( -135./t) (107) + O_O3 ( 17) O + O3 -> 2*O2 rate = 8.00E-12*exp( -2060./t) (108) + usr_O_O ( 18) O + O + M -> O2 + M rate = ** User defined ** (109) + usr_O_O2 ( 19) O + O2 + M -> O3 + M rate = ** User defined ** (110) + H2_O ( 20) H2 + O -> OH + H rate = 1.60E-11*exp( -4570./t) (111) + H2O2_O ( 21) H2O2 + O -> OH + HO2 rate = 1.40E-12*exp( -2000./t) (112) + H_HO2 ( 22) H + HO2 -> H2 + O2 rate = 6.90E-12 (113) + H_HO2a ( 23) H + HO2 -> 2*OH rate = 7.20E-11 (114) + H_HO2b ( 24) H + HO2 -> H2O + O rate = 1.60E-12 (115) + H_O2 ( 25) H + O2 + M -> HO2 + M troe : ko=4.40E-32*(300/t)**1.30 (116) ki=7.50E-11*(300/t)**-0.20 f=0.60 - HO2_O ( 26) HO2 + O -> OH + O2 rate = 3.00E-11*exp( 200./t) (116) - HO2_O3 ( 27) HO2 + O3 -> OH + 2*O2 rate = 1.00E-14*exp( -490./t) (117) - H_O3 ( 28) H + O3 -> OH + O2 rate = 1.40E-10*exp( -470./t) (118) - OH_H2 ( 29) OH + H2 -> H2O + H rate = 2.80E-12*exp( -1800./t) (119) - OH_H2O2 ( 30) OH + H2O2 -> H2O + HO2 rate = 1.80E-12 (120) - OH_HO2 ( 31) OH + HO2 -> H2O + O2 rate = 4.80E-11*exp( 250./t) (121) - OH_O ( 32) OH + O -> H + O2 rate = 1.80E-11*exp( 180./t) (122) - OH_O3 ( 33) OH + O3 -> HO2 + O2 rate = 1.70E-12*exp( -940./t) (123) - OH_OH ( 34) OH + OH -> H2O + O rate = 1.80E-12 (124) - OH_OH_M ( 35) OH + OH + M -> H2O2 + M troe : ko=6.90E-31*(300/t)**1.00 (125) + HO2_O ( 26) HO2 + O -> OH + O2 rate = 3.00E-11*exp( 200./t) (117) + HO2_O3 ( 27) HO2 + O3 -> OH + 2*O2 rate = 1.00E-14*exp( -490./t) (118) + H_O3 ( 28) H + O3 -> OH + O2 rate = 1.40E-10*exp( -470./t) (119) + OH_H2 ( 29) OH + H2 -> H2O + H rate = 2.80E-12*exp( -1800./t) (120) + OH_H2O2 ( 30) OH + H2O2 -> H2O + HO2 rate = 1.80E-12 (121) + OH_HO2 ( 31) OH + HO2 -> H2O + O2 rate = 4.80E-11*exp( 250./t) (122) + OH_O ( 32) OH + O -> H + O2 rate = 1.80E-11*exp( 180./t) (123) + OH_O3 ( 33) OH + O3 -> HO2 + O2 rate = 1.70E-12*exp( -940./t) (124) + OH_OH ( 34) OH + OH -> H2O + O rate = 1.80E-12 (125) + OH_OH_M ( 35) OH + OH + M -> H2O2 + M troe : ko=6.90E-31*(300/t)**1.00 (126) ki=2.60E-11 f=0.60 - usr_HO2_HO2 ( 36) HO2 + HO2 -> H2O2 + O2 rate = ** User defined ** (126) - HO2NO2_OH ( 37) HO2NO2 + OH -> H2O + NO2 + O2 rate = 1.30E-12*exp( 380./t) (127) - N2D_O ( 38) N2D + O -> N + O rate = 7.00E-13 (128) - N2D_O2 ( 39) N2D + O2 -> NO + O1D rate = 5.00E-12 (129) - N_NO ( 40) N + NO -> N2 + O rate = 2.10E-11*exp( 100./t) (130) - N_NO2a ( 41) N + NO2 -> N2O + O rate = 2.90E-12*exp( 220./t) (131) - N_NO2b ( 42) N + NO2 -> 2*NO rate = 1.45E-12*exp( 220./t) (132) - N_NO2c ( 43) N + NO2 -> N2 + O2 rate = 1.45E-12*exp( 220./t) (133) - N_O2 ( 44) N + O2 -> NO + O rate = 1.50E-11*exp( -3600./t) (134) - NO2_O ( 45) NO2 + O -> NO + O2 rate = 5.10E-12*exp( 210./t) (135) - NO2_O3 ( 46) NO2 + O3 -> NO3 + O2 rate = 1.20E-13*exp( -2450./t) (136) - NO2_O_M ( 47) NO2 + O + M -> NO3 + M troe : ko=2.50E-31*(300/t)**1.80 (137) + usr_HO2_HO2 ( 36) HO2 + HO2 -> H2O2 + O2 rate = ** User defined ** (127) + HO2NO2_OH ( 37) HO2NO2 + OH -> H2O + NO2 + O2 rate = 1.30E-12*exp( 380./t) (128) + N2D_O ( 38) N2D + O -> N + O rate = 7.00E-13 (129) + N2D_O2 ( 39) N2D + O2 -> NO + O1D rate = 5.00E-12 (130) + N_NO ( 40) N + NO -> N2 + O rate = 2.10E-11*exp( 100./t) (131) + N_NO2a ( 41) N + NO2 -> N2O + O rate = 2.90E-12*exp( 220./t) (132) + N_NO2b ( 42) N + NO2 -> 2*NO rate = 1.45E-12*exp( 220./t) (133) + N_NO2c ( 43) N + NO2 -> N2 + O2 rate = 1.45E-12*exp( 220./t) (134) + N_O2 ( 44) N + O2 -> NO + O rate = 1.50E-11*exp( -3600./t) (135) + NO2_O ( 45) NO2 + O -> NO + O2 rate = 5.10E-12*exp( 210./t) (136) + NO2_O3 ( 46) NO2 + O3 -> NO3 + O2 rate = 1.20E-13*exp( -2450./t) (137) + NO2_O_M ( 47) NO2 + O + M -> NO3 + M troe : ko=2.50E-31*(300/t)**1.80 (138) ki=2.20E-11*(300/t)**0.70 f=0.60 - NO3_HO2 ( 48) NO3 + HO2 -> OH + NO2 + O2 rate = 3.50E-12 (138) - NO3_NO ( 49) NO3 + NO -> 2*NO2 rate = 1.50E-11*exp( 170./t) (139) - NO3_O ( 50) NO3 + O -> NO2 + O2 rate = 1.00E-11 (140) - NO3_OH ( 51) NO3 + OH -> HO2 + NO2 rate = 2.20E-11 (141) - N_OH ( 52) N + OH -> NO + H rate = 5.00E-11 (142) - NO_HO2 ( 53) NO + HO2 -> NO2 + OH rate = 3.30E-12*exp( 270./t) (143) - NO_O3 ( 54) NO + O3 -> NO2 + O2 rate = 3.00E-12*exp( -1500./t) (144) - NO_O_M ( 55) NO + O + M -> NO2 + M troe : ko=9.00E-32*(300/t)**1.50 (145) + NO3_HO2 ( 48) NO3 + HO2 -> OH + NO2 + O2 rate = 3.50E-12 (139) + NO3_NO ( 49) NO3 + NO -> 2*NO2 rate = 1.50E-11*exp( 170./t) (140) + NO3_O ( 50) NO3 + O -> NO2 + O2 rate = 1.00E-11 (141) + NO3_OH ( 51) NO3 + OH -> HO2 + NO2 rate = 2.20E-11 (142) + N_OH ( 52) N + OH -> NO + H rate = 5.00E-11 (143) + NO_HO2 ( 53) NO + HO2 -> NO2 + OH rate = 3.30E-12*exp( 270./t) (144) + NO_O3 ( 54) NO + O3 -> NO2 + O2 rate = 3.00E-12*exp( -1500./t) (145) + NO_O_M ( 55) NO + O + M -> NO2 + M troe : ko=9.00E-32*(300/t)**1.50 (146) ki=3.00E-11 f=0.60 - O1D_N2Oa ( 56) O1D + N2O -> 2*NO rate = 7.26E-11*exp( 20./t) (146) - O1D_N2Ob ( 57) O1D + N2O -> N2 + O2 rate = 4.64E-11*exp( 20./t) (147) - tag_NO2_HO2 ( 58) NO2 + HO2 + M -> HO2NO2 + M troe : ko=1.90E-31*(300/t)**3.40 (148) + O1D_N2Oa ( 56) O1D + N2O -> 2*NO rate = 7.26E-11*exp( 20./t) (147) + O1D_N2Ob ( 57) O1D + N2O -> N2 + O2 rate = 4.64E-11*exp( 20./t) (148) + tag_NO2_HO2 ( 58) NO2 + HO2 + M -> HO2NO2 + M troe : ko=1.90E-31*(300/t)**3.40 (149) ki=4.00E-12*(300/t)**0.30 f=0.60 - tag_NO2_NO3 ( 59) NO2 + NO3 + M -> N2O5 + M troe : ko=2.40E-30*(300/t)**3.00 (149) + tag_NO2_NO3 ( 59) NO2 + NO3 + M -> N2O5 + M troe : ko=2.40E-30*(300/t)**3.00 (150) ki=1.60E-12*(300/t)**-0.10 f=0.60 - tag_NO2_OH ( 60) NO2 + OH + M -> HNO3 + M troe : ko=1.80E-30*(300/t)**3.00 (150) + tag_NO2_OH ( 60) NO2 + OH + M -> HNO3 + M troe : ko=1.80E-30*(300/t)**3.00 (151) ki=2.80E-11 f=0.60 - usr_HNO3_OH ( 61) HNO3 + OH -> NO3 + H2O rate = ** User defined ** (151) - usr_HO2NO2_M ( 62) HO2NO2 + M -> HO2 + NO2 + M rate = ** User defined ** (152) - usr_N2O5_M ( 63) N2O5 + M -> NO2 + NO3 + M rate = ** User defined ** (153) - CL_CH2O ( 64) CL + CH2O -> HCL + HO2 + CO rate = 8.10E-11*exp( -30./t) (154) - CL_CH4 ( 65) CL + CH4 -> CH3O2 + HCL rate = 7.10E-12*exp( -1270./t) (155) - CL_H2 ( 66) CL + H2 -> HCL + H rate = 3.05E-11*exp( -2270./t) (156) - CL_H2O2 ( 67) CL + H2O2 -> HCL + HO2 rate = 1.10E-11*exp( -980./t) (157) - CL_HO2a ( 68) CL + HO2 -> HCL + O2 rate = 1.40E-11*exp( 270./t) (158) - CL_HO2b ( 69) CL + HO2 -> OH + CLO rate = 3.60E-11*exp( -375./t) (159) - CL_O3 ( 70) CL + O3 -> CLO + O2 rate = 2.30E-11*exp( -200./t) (160) - CLO_CH3O2 ( 71) CLO + CH3O2 -> CL + HO2 + CH2O rate = 3.30E-12*exp( -115./t) (161) - CLO_CLOa ( 72) CLO + CLO -> 2*CL + O2 rate = 3.00E-11*exp( -2450./t) (162) - CLO_CLOb ( 73) CLO + CLO -> CL2 + O2 rate = 1.00E-12*exp( -1590./t) (163) - CLO_CLOc ( 74) CLO + CLO -> CL + OCLO rate = 3.50E-13*exp( -1370./t) (164) - CLO_HO2 ( 75) CLO + HO2 -> O2 + HOCL rate = 2.60E-12*exp( 290./t) (165) - CLO_NO ( 76) CLO + NO -> NO2 + CL rate = 6.40E-12*exp( 290./t) (166) - CLONO2_CL ( 77) CLONO2 + CL -> CL2 + NO3 rate = 6.50E-12*exp( 135./t) (167) - CLO_NO2_M ( 78) CLO + NO2 + M -> CLONO2 + M troe : ko=1.80E-31*(300/t)**3.40 (168) + usr_HNO3_OH ( 61) HNO3 + OH -> NO3 + H2O rate = ** User defined ** (152) + usr_HO2NO2_M ( 62) HO2NO2 + M -> HO2 + NO2 + M rate = ** User defined ** (153) + usr_N2O5_M ( 63) N2O5 + M -> NO2 + NO3 + M rate = ** User defined ** (154) + CL_CH2O ( 64) CL + CH2O -> HCL + HO2 + CO rate = 8.10E-11*exp( -30./t) (155) + CL_CH4 ( 65) CL + CH4 -> CH3O2 + HCL rate = 7.10E-12*exp( -1270./t) (156) + CL_H2 ( 66) CL + H2 -> HCL + H rate = 3.05E-11*exp( -2270./t) (157) + CL_H2O2 ( 67) CL + H2O2 -> HCL + HO2 rate = 1.10E-11*exp( -980./t) (158) + CL_HO2a ( 68) CL + HO2 -> HCL + O2 rate = 1.40E-11*exp( 270./t) (159) + CL_HO2b ( 69) CL + HO2 -> OH + CLO rate = 3.60E-11*exp( -375./t) (160) + CL_O3 ( 70) CL + O3 -> CLO + O2 rate = 2.30E-11*exp( -200./t) (161) + CLO_CH3O2 ( 71) CLO + CH3O2 -> CL + HO2 + CH2O rate = 3.30E-12*exp( -115./t) (162) + CLO_CLOa ( 72) CLO + CLO -> 2*CL + O2 rate = 3.00E-11*exp( -2450./t) (163) + CLO_CLOb ( 73) CLO + CLO -> CL2 + O2 rate = 1.00E-12*exp( -1590./t) (164) + CLO_CLOc ( 74) CLO + CLO -> CL + OCLO rate = 3.50E-13*exp( -1370./t) (165) + CLO_HO2 ( 75) CLO + HO2 -> O2 + HOCL rate = 2.60E-12*exp( 290./t) (166) + CLO_NO ( 76) CLO + NO -> NO2 + CL rate = 6.40E-12*exp( 290./t) (167) + CLONO2_CL ( 77) CLONO2 + CL -> CL2 + NO3 rate = 6.50E-12*exp( 135./t) (168) + CLO_NO2_M ( 78) CLO + NO2 + M -> CLONO2 + M troe : ko=1.80E-31*(300/t)**3.40 (169) ki=1.50E-11*(300/t)**1.90 f=0.60 - CLONO2_O ( 79) CLONO2 + O -> CLO + NO3 rate = 3.60E-12*exp( -840./t) (169) - CLONO2_OH ( 80) CLONO2 + OH -> HOCL + NO3 rate = 1.20E-12*exp( -330./t) (170) - CLO_O ( 81) CLO + O -> CL + O2 rate = 2.80E-11*exp( 85./t) (171) - CLO_OHa ( 82) CLO + OH -> CL + HO2 rate = 7.40E-12*exp( 270./t) (172) - CLO_OHb ( 83) CLO + OH -> HCL + O2 rate = 6.00E-13*exp( 230./t) (173) - HCL_O ( 84) HCL + O -> CL + OH rate = 1.00E-11*exp( -3300./t) (174) - HCL_OH ( 85) HCL + OH -> H2O + CL rate = 1.80E-12*exp( -250./t) (175) - HOCL_CL ( 86) HOCL + CL -> HCL + CLO rate = 3.40E-12*exp( -130./t) (176) - HOCL_O ( 87) HOCL + O -> CLO + OH rate = 1.70E-13 (177) - HOCL_OH ( 88) HOCL + OH -> H2O + CLO rate = 3.00E-12*exp( -500./t) (178) - O1D_CCL4 ( 89) O1D + CCL4 -> 4*CL rate = 2.61E-10 (179) - O1D_CF2CLBR ( 90) O1D + CF2CLBR -> CL + BR + COF2 rate = 9.75E-11 (180) - O1D_CFC11 ( 91) O1D + CFC11 -> 2*CL + COFCL rate = 2.07E-10 (181) - O1D_CFC113 ( 92) O1D + CFC113 -> 2*CL + COFCL + COF2 rate = 2.09E-10 (182) - O1D_CFC114 ( 93) O1D + CFC114 -> 2*CL + 2*COF2 rate = 1.17E-10 (183) - O1D_CFC115 ( 94) O1D + CFC115 -> CL + F + 2*COF2 rate = 4.64E-11 (184) - O1D_CFC12 ( 95) O1D + CFC12 -> 2*CL + COF2 rate = 1.20E-10 (185) - O1D_HCLa ( 96) O1D + HCL -> CL + OH rate = 9.90E-11 (186) - O1D_HCLb ( 97) O1D + HCL -> CLO + H rate = 3.30E-12 (187) - tag_CLO_CLO_M ( 98) CLO + CLO + M -> CL2O2 + M troe : ko=1.90E-32*(300/t)**3.60 (188) + CLONO2_O ( 79) CLONO2 + O -> CLO + NO3 rate = 3.60E-12*exp( -840./t) (170) + CLONO2_OH ( 80) CLONO2 + OH -> HOCL + NO3 rate = 1.20E-12*exp( -330./t) (171) + CLO_O ( 81) CLO + O -> CL + O2 rate = 2.80E-11*exp( 85./t) (172) + CLO_OHa ( 82) CLO + OH -> CL + HO2 rate = 7.40E-12*exp( 270./t) (173) + CLO_OHb ( 83) CLO + OH -> HCL + O2 rate = 6.00E-13*exp( 230./t) (174) + HCL_O ( 84) HCL + O -> CL + OH rate = 1.00E-11*exp( -3300./t) (175) + HCL_OH ( 85) HCL + OH -> H2O + CL rate = 1.80E-12*exp( -250./t) (176) + HOCL_CL ( 86) HOCL + CL -> HCL + CLO rate = 3.40E-12*exp( -130./t) (177) + HOCL_O ( 87) HOCL + O -> CLO + OH rate = 1.70E-13 (178) + HOCL_OH ( 88) HOCL + OH -> H2O + CLO rate = 3.00E-12*exp( -500./t) (179) + O1D_CCL4 ( 89) O1D + CCL4 -> 4*CL rate = 2.61E-10 (180) + O1D_CF2CLBR ( 90) O1D + CF2CLBR -> CL + BR + COF2 rate = 9.75E-11 (181) + O1D_CFC11 ( 91) O1D + CFC11 -> 2*CL + COFCL rate = 2.07E-10 (182) + O1D_CFC113 ( 92) O1D + CFC113 -> 2*CL + COFCL + COF2 rate = 2.09E-10 (183) + O1D_CFC114 ( 93) O1D + CFC114 -> 2*CL + 2*COF2 rate = 1.17E-10 (184) + O1D_CFC115 ( 94) O1D + CFC115 -> CL + F + 2*COF2 rate = 4.64E-11 (185) + O1D_CFC12 ( 95) O1D + CFC12 -> 2*CL + COF2 rate = 1.20E-10 (186) + O1D_HCLa ( 96) O1D + HCL -> CL + OH rate = 9.90E-11 (187) + O1D_HCLb ( 97) O1D + HCL -> CLO + H rate = 3.30E-12 (188) + tag_CLO_CLO_M ( 98) CLO + CLO + M -> CL2O2 + M troe : ko=1.90E-32*(300/t)**3.60 (189) ki=3.70E-12*(300/t)**1.60 f=0.60 - usr_CL2O2_M ( 99) CL2O2 + M -> CLO + CLO + M rate = ** User defined ** (189) - BR_CH2O (100) BR + CH2O -> HBR + HO2 + CO rate = 1.70E-11*exp( -800./t) (190) - BR_HO2 (101) BR + HO2 -> HBR + O2 rate = 4.80E-12*exp( -310./t) (191) - BR_O3 (102) BR + O3 -> BRO + O2 rate = 1.60E-11*exp( -780./t) (192) - BRO_BRO (103) BRO + BRO -> 2*BR + O2 rate = 1.50E-12*exp( 230./t) (193) - BRO_CLOa (104) BRO + CLO -> BR + OCLO rate = 9.50E-13*exp( 550./t) (194) - BRO_CLOb (105) BRO + CLO -> BR + CL + O2 rate = 2.30E-12*exp( 260./t) (195) - BRO_CLOc (106) BRO + CLO -> BRCL + O2 rate = 4.10E-13*exp( 290./t) (196) - BRO_HO2 (107) BRO + HO2 -> HOBR + O2 rate = 4.50E-12*exp( 460./t) (197) - BRO_NO (108) BRO + NO -> BR + NO2 rate = 8.80E-12*exp( 260./t) (198) - BRO_NO2_M (109) BRO + NO2 + M -> BRONO2 + M troe : ko=5.20E-31*(300/t)**3.20 (199) + usr_CL2O2_M ( 99) CL2O2 + M -> CLO + CLO + M rate = ** User defined ** (190) + BR_CH2O (100) BR + CH2O -> HBR + HO2 + CO rate = 1.70E-11*exp( -800./t) (191) + BR_HO2 (101) BR + HO2 -> HBR + O2 rate = 4.80E-12*exp( -310./t) (192) + BR_O3 (102) BR + O3 -> BRO + O2 rate = 1.60E-11*exp( -780./t) (193) + BRO_BRO (103) BRO + BRO -> 2*BR + O2 rate = 1.50E-12*exp( 230./t) (194) + BRO_CLOa (104) BRO + CLO -> BR + OCLO rate = 9.50E-13*exp( 550./t) (195) + BRO_CLOb (105) BRO + CLO -> BR + CL + O2 rate = 2.30E-12*exp( 260./t) (196) + BRO_CLOc (106) BRO + CLO -> BRCL + O2 rate = 4.10E-13*exp( 290./t) (197) + BRO_HO2 (107) BRO + HO2 -> HOBR + O2 rate = 4.50E-12*exp( 460./t) (198) + BRO_NO (108) BRO + NO -> BR + NO2 rate = 8.80E-12*exp( 260./t) (199) + BRO_NO2_M (109) BRO + NO2 + M -> BRONO2 + M troe : ko=5.20E-31*(300/t)**3.20 (200) ki=6.90E-12*(300/t)**2.90 f=0.60 - BRONO2_O (110) BRONO2 + O -> BRO + NO3 rate = 1.90E-11*exp( 215./t) (200) - BRO_O (111) BRO + O -> BR + O2 rate = 1.90E-11*exp( 230./t) (201) - BRO_OH (112) BRO + OH -> BR + HO2 rate = 1.70E-11*exp( 250./t) (202) - HBR_O (113) HBR + O -> BR + OH rate = 5.80E-12*exp( -1500./t) (203) - HBR_OH (114) HBR + OH -> BR + H2O rate = 5.50E-12*exp( 200./t) (204) - HOBR_O (115) HOBR + O -> BRO + OH rate = 1.20E-10*exp( -430./t) (205) - O1D_CF3BR (116) O1D + CF3BR -> BR + F + COF2 rate = 4.50E-11 (206) - O1D_CHBR3 (117) O1D + CHBR3 -> 3*BR rate = 4.62E-10 (207) - O1D_H2402 (118) O1D + H2402 -> 2*BR + 2*COF2 rate = 1.20E-10 (208) - O1D_HBRa (119) O1D + HBR -> BR + OH rate = 9.00E-11 (209) - O1D_HBRb (120) O1D + HBR -> BRO + H rate = 3.00E-11 (210) - F_CH4 (121) F + CH4 -> HF + CH3O2 rate = 1.60E-10*exp( -260./t) (211) - F_H2 (122) F + H2 -> HF + H rate = 1.40E-10*exp( -500./t) (212) - F_H2O (123) F + H2O -> HF + OH rate = 1.40E-11 (213) - F_HNO3 (124) F + HNO3 -> HF + NO3 rate = 6.00E-12*exp( 400./t) (214) - O1D_COF2 (125) O1D + COF2 -> 2*F rate = 2.14E-11 (215) - O1D_COFCL (126) O1D + COFCL -> F + CL rate = 1.90E-10 (216) - CH2BR2_CL (127) CH2BR2 + CL -> 2*BR + HCL rate = 6.30E-12*exp( -800./t) (217) - CH2BR2_OH (128) CH2BR2 + OH -> 2*BR + H2O rate = 2.00E-12*exp( -840./t) (218) - CH3BR_CL (129) CH3BR + CL -> HCL + HO2 + BR rate = 1.46E-11*exp( -1040./t) (219) - CH3BR_OH (130) CH3BR + OH -> BR + H2O + HO2 rate = 1.42E-12*exp( -1150./t) (220) - CH3CCL3_OH (131) CH3CCL3 + OH -> H2O + 3*CL rate = 1.64E-12*exp( -1520./t) (221) - CH3CL_CL (132) CH3CL + CL -> HO2 + CO + 2*HCL rate = 2.03E-11*exp( -1100./t) (222) - CH3CL_OH (133) CH3CL + OH -> CL + H2O + HO2 rate = 1.96E-12*exp( -1200./t) (223) - CHBR3_CL (134) CHBR3 + CL -> 3*BR + HCL rate = 4.85E-12*exp( -850./t) (224) - CHBR3_OH (135) CHBR3 + OH -> 3*BR rate = 9.00E-13*exp( -360./t) (225) - HCFC141B_OH (136) HCFC141B + OH -> CL + COFCL rate = 1.25E-12*exp( -1600./t) (226) - HCFC142B_OH (137) HCFC142B + OH -> CL + COF2 rate = 1.30E-12*exp( -1770./t) (227) - HCFC22_OH (138) HCFC22 + OH -> H2O + CL + COF2 rate = 9.20E-13*exp( -1560./t) (228) - O1D_CH2BR2 (139) O1D + CH2BR2 -> 2*BR rate = 2.57E-10 (229) - O1D_CH3BR (140) O1D + CH3BR -> BR rate = 1.80E-10 (230) - O1D_HCFC141B (141) O1D + HCFC141B -> CL + COFCL rate = 1.79E-10 (231) - O1D_HCFC142B (142) O1D + HCFC142B -> CL + COF2 rate = 1.30E-10 (232) - O1D_HCFC22 (143) O1D + HCFC22 -> CL + COF2 rate = 7.65E-11 (233) - CH2O_NO3 (144) CH2O + NO3 -> CO + HO2 + HNO3 rate = 6.00E-13*exp( -2058./t) (234) - CH2O_O (145) CH2O + O -> HO2 + OH + CO rate = 3.40E-11*exp( -1600./t) (235) - CH2O_OH (146) CH2O + OH -> CO + H2O + H rate = 5.50E-12*exp( 125./t) (236) - CH3O2_HO2 (147) CH3O2 + HO2 -> CH3OOH + O2 rate = 4.10E-13*exp( 750./t) (237) - CH3O2_NO (148) CH3O2 + NO -> CH2O + NO2 + HO2 rate = 2.80E-12*exp( 300./t) (238) - CH3OOH_OH (149) CH3OOH + OH -> 0.7*CH3O2 + 0.3*OH + 0.3*CH2O + H2O rate = 3.80E-12*exp( 200./t) (239) - CH4_OH (150) CH4 + OH -> CH3O2 + H2O rate = 2.45E-12*exp( -1775./t) (240) - CO_OH_M (151) CO + OH + M -> CO2 + HO2 + M troe : ko=5.90E-33*(300/t)**1.00 (241) + BRONO2_O (110) BRONO2 + O -> BRO + NO3 rate = 1.90E-11*exp( 215./t) (201) + BRO_O (111) BRO + O -> BR + O2 rate = 1.90E-11*exp( 230./t) (202) + BRO_OH (112) BRO + OH -> BR + HO2 rate = 1.70E-11*exp( 250./t) (203) + HBR_O (113) HBR + O -> BR + OH rate = 5.80E-12*exp( -1500./t) (204) + HBR_OH (114) HBR + OH -> BR + H2O rate = 5.50E-12*exp( 200./t) (205) + HOBR_O (115) HOBR + O -> BRO + OH rate = 1.20E-10*exp( -430./t) (206) + O1D_CF3BR (116) O1D + CF3BR -> BR + F + COF2 rate = 4.50E-11 (207) + O1D_CHBR3 (117) O1D + CHBR3 -> 3*BR rate = 4.62E-10 (208) + O1D_H2402 (118) O1D + H2402 -> 2*BR + 2*COF2 rate = 1.20E-10 (209) + O1D_HBRa (119) O1D + HBR -> BR + OH rate = 9.00E-11 (210) + O1D_HBRb (120) O1D + HBR -> BRO + H rate = 3.00E-11 (211) + F_CH4 (121) F + CH4 -> HF + CH3O2 rate = 1.60E-10*exp( -260./t) (212) + F_H2 (122) F + H2 -> HF + H rate = 1.40E-10*exp( -500./t) (213) + F_H2O (123) F + H2O -> HF + OH rate = 1.40E-11 (214) + F_HNO3 (124) F + HNO3 -> HF + NO3 rate = 6.00E-12*exp( 400./t) (215) + O1D_COF2 (125) O1D + COF2 -> 2*F rate = 2.14E-11 (216) + O1D_COFCL (126) O1D + COFCL -> F + CL rate = 1.90E-10 (217) + CH2BR2_CL (127) CH2BR2 + CL -> 2*BR + HCL rate = 6.30E-12*exp( -800./t) (218) + CH2BR2_OH (128) CH2BR2 + OH -> 2*BR + H2O rate = 2.00E-12*exp( -840./t) (219) + CH3BR_CL (129) CH3BR + CL -> HCL + HO2 + BR rate = 1.46E-11*exp( -1040./t) (220) + CH3BR_OH (130) CH3BR + OH -> BR + H2O + HO2 rate = 1.42E-12*exp( -1150./t) (221) + CH3CCL3_OH (131) CH3CCL3 + OH -> H2O + 3*CL rate = 1.64E-12*exp( -1520./t) (222) + CH3CL_CL (132) CH3CL + CL -> HO2 + CO + 2*HCL rate = 2.03E-11*exp( -1100./t) (223) + CH3CL_OH (133) CH3CL + OH -> CL + H2O + HO2 rate = 1.96E-12*exp( -1200./t) (224) + CHBR3_CL (134) CHBR3 + CL -> 3*BR + HCL rate = 4.85E-12*exp( -850./t) (225) + CHBR3_OH (135) CHBR3 + OH -> 3*BR rate = 9.00E-13*exp( -360./t) (226) + HCFC141B_OH (136) HCFC141B + OH -> CL + COFCL rate = 1.25E-12*exp( -1600./t) (227) + HCFC142B_OH (137) HCFC142B + OH -> CL + COF2 rate = 1.30E-12*exp( -1770./t) (228) + HCFC22_OH (138) HCFC22 + OH -> H2O + CL + COF2 rate = 9.20E-13*exp( -1560./t) (229) + O1D_CH2BR2 (139) O1D + CH2BR2 -> 2*BR rate = 2.57E-10 (230) + O1D_CH3BR (140) O1D + CH3BR -> BR rate = 1.80E-10 (231) + O1D_HCFC141B (141) O1D + HCFC141B -> CL + COFCL rate = 1.79E-10 (232) + O1D_HCFC142B (142) O1D + HCFC142B -> CL + COF2 rate = 1.30E-10 (233) + O1D_HCFC22 (143) O1D + HCFC22 -> CL + COF2 rate = 7.65E-11 (234) + CH2O_NO3 (144) CH2O + NO3 -> CO + HO2 + HNO3 rate = 6.00E-13*exp( -2058./t) (235) + CH2O_O (145) CH2O + O -> HO2 + OH + CO rate = 3.40E-11*exp( -1600./t) (236) + CH2O_OH (146) CH2O + OH -> CO + H2O + H rate = 5.50E-12*exp( 125./t) (237) + CH3O2_HO2 (147) CH3O2 + HO2 -> CH3OOH + O2 rate = 4.10E-13*exp( 750./t) (238) + CH3O2_NO (148) CH3O2 + NO -> CH2O + NO2 + HO2 rate = 2.80E-12*exp( 300./t) (239) + CH3OOH_OH (149) CH3OOH + OH -> 0.7*CH3O2 + 0.3*OH + 0.3*CH2O + H2O rate = 3.80E-12*exp( 200./t) (240) + CH4_OH (150) CH4 + OH -> CH3O2 + H2O rate = 2.45E-12*exp( -1775./t) (241) + CO_OH_M (151) CO + OH + M -> CO2 + HO2 + M troe : ko=5.90E-33*(300/t)**1.00 (242) ki=1.10E-12*(300/t)**-1.30 f=0.60 - O1D_CH4a (152) O1D + CH4 -> CH3O2 + OH rate = 1.31E-10 (242) - O1D_CH4b (153) O1D + CH4 -> CH2O + H + HO2 rate = 3.50E-11 (243) - O1D_CH4c (154) O1D + CH4 -> CH2O + H2 rate = 9.00E-12 (244) - usr_CO_OH_b (155) CO + OH -> CO2 + H rate = ** User defined ** (245) - OCS_O (156) OCS + O -> SO + CO rate = 2.10E-11*exp( -2200./t) (246) - OCS_OH (157) OCS + OH -> SO2 + CO + H rate = 7.20E-14*exp( -1070./t) (247) - S_O2 (158) S + O2 -> SO + O rate = 2.30E-12 (248) - S_O3 (159) S + O3 -> SO + O2 rate = 1.20E-11 (249) - SO_BRO (160) SO + BRO -> SO2 + BR rate = 5.70E-11 (250) - SO_CLO (161) SO + CLO -> SO2 + CL rate = 2.80E-11 (251) - S_OH (162) S + OH -> SO + H rate = 6.60E-11 (252) - SO_NO2 (163) SO + NO2 -> SO2 + NO rate = 1.40E-11 (253) - SO_O2 (164) SO + O2 -> SO2 + O rate = 1.60E-13*exp( -2280./t) (254) - SO_O3 (165) SO + O3 -> SO2 + O2 rate = 3.40E-12*exp( -1100./t) (255) - SO_OCLO (166) SO + OCLO -> SO2 + CLO rate = 1.90E-12 (256) - SO_OH (167) SO + OH -> SO2 + H rate = 2.70E-11*exp( 335./t) (257) - usr_SO2_OH (168) SO2 + OH -> SO3 + HO2 rate = ** User defined ** (258) - usr_SO3_H2O (169) SO3 + H2O -> H2SO4 rate = ** User defined ** (259) - DMS_NO3 (170) DMS + NO3 -> SO2 + HNO3 rate = 1.90E-13*exp( 520./t) (260) - DMS_OHa (171) DMS + OH -> SO2 rate = 9.60E-12*exp( -234./t) (261) - usr_DMS_OH (172) DMS + OH -> 0.5*SO2 + 0.5*HO2 rate = ** User defined ** (262) - usr_HO2_aer (173) HO2 -> 0.5*H2O2 rate = ** User defined ** (263) - usr_N2O5_aer (174) N2O5 -> 2*HNO3 rate = ** User defined ** (264) - usr_NO2_aer (175) NO2 -> 0.5*OH + 0.5*NO + 0.5*HNO3 rate = ** User defined ** (265) - usr_NO3_aer (176) NO3 -> HNO3 rate = ** User defined ** (266) - het1 (177) N2O5 -> 2*HNO3 rate = ** User defined ** (267) - het10 (178) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (268) - het11 (179) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (269) - het12 (180) N2O5 -> 2*HNO3 rate = ** User defined ** (270) - het13 (181) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (271) - het14 (182) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (272) - het15 (183) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (273) - het16 (184) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (274) - het17 (185) HOBR + HCL -> BRCL + H2O rate = ** User defined ** (275) - het2 (186) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (276) - het3 (187) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (277) - het4 (188) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (278) - het5 (189) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (279) - het6 (190) HOBR + HCL -> BRCL + H2O rate = ** User defined ** (280) - het7 (191) N2O5 -> 2*HNO3 rate = ** User defined ** (281) - het8 (192) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (282) - het9 (193) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (283) - elec1 (194) NOp + e -> 0.2*N + 0.8*N2D + O rate = ** User defined ** (284) - elec2 (195) O2p + e -> 1.15*O + 0.85*O1D rate = ** User defined ** (285) - elec3 (196) N2p + e -> 1.1*N + 0.9*N2D rate = ** User defined ** (286) - ion_N2p_O2 (197) N2p + O2 -> O2p + N2 rate = 6.00E-11 (287) - ion_N2p_Oa (198) N2p + O -> NOp + N2D rate = ** User defined ** (288) - ion_N2p_Ob (199) N2p + O -> Op + N2 rate = ** User defined ** (289) - ion_Np_O (200) Np + O -> Op + N rate = 1.00E-12 (290) - ion_Np_O2a (201) Np + O2 -> O2p + N rate = 4.00E-10 (291) - ion_Np_O2b (202) Np + O2 -> NOp + O rate = 2.00E-10 (292) - ion_O2p_N (203) O2p + N -> NOp + O rate = 1.00E-10 (293) - ion_O2p_N2 (204) O2p + N2 -> NOp + NO rate = 5.00E-16 (294) - ion_O2p_NO (205) O2p + NO -> NOp + O2 rate = 4.40E-10 (295) - ion_Op_CO2 (206) Op + CO2 -> O2p + CO rate = 9.00E-10 (296) - ion_Op_N2 (207) Op + N2 -> NOp + N rate = ** User defined ** (297) - ion_Op_O2 (208) Op + O2 -> O2p + O rate = ** User defined ** (298) + O1D_CH4a (152) O1D + CH4 -> CH3O2 + OH rate = 1.31E-10 (243) + 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) + 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) + usr_NO3_aer (176) NO3 -> HNO3 rate = ** User defined ** (267) + het1 (177) N2O5 -> 2*HNO3 rate = ** User defined ** (268) + het10 (178) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (269) + het11 (179) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (270) + het12 (180) N2O5 -> 2*HNO3 rate = ** User defined ** (271) + het13 (181) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (272) + het14 (182) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (273) + het15 (183) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (274) + het16 (184) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (275) + het17 (185) HOBR + HCL -> BRCL + H2O rate = ** User defined ** (276) + het2 (186) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (277) + het3 (187) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (278) + het4 (188) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (279) + het5 (189) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (280) + het6 (190) HOBR + HCL -> BRCL + H2O rate = ** User defined ** (281) + het7 (191) N2O5 -> 2*HNO3 rate = ** User defined ** (282) + het8 (192) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (283) + het9 (193) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (284) + ag247nm (194) Op2P -> Op rate = 4.70E-02 (285) + ag373nm (195) Op2D -> Op rate = 7.70E-05 (286) + ag732nm (196) Op2P -> Op2D rate = 1.71E-01 (287) + elec1 (197) NOp + e -> 0.2*N + 0.8*N2D + O rate = ** User defined ** (288) + elec2 (198) O2p + e -> 1.15*O + 0.85*O1D rate = ** User defined ** (289) + elec3 (199) N2p + e -> 1.1*N + 0.9*N2D rate = ** User defined ** (290) + ion_N2p_O2 (200) N2p + O2 -> O2p + N2 rate = 6.00E-11 (291) + ion_N2p_Oa (201) N2p + O -> NOp + N2D rate = ** User defined ** (292) + ion_N2p_Ob (202) N2p + O -> Op + N2 rate = ** User defined ** (293) + ion_Np_O (203) Np + O -> Op + N rate = 1.00E-12 (294) + ion_Np_O2a (204) Np + O2 -> O2p + N rate = 4.00E-10 (295) + ion_Np_O2b (205) Np + O2 -> NOp + O rate = 2.00E-10 (296) + ion_O2p_N (206) O2p + N -> NOp + O rate = 1.00E-10 (297) + ion_O2p_N2 (207) O2p + N2 -> NOp + NO rate = 5.00E-16 (298) + ion_O2p_NO (208) O2p + NO -> NOp + O2 rate = 4.40E-10 (299) + ion_Op_CO2 (209) Op + CO2 -> O2p + CO rate = 9.00E-10 (300) + ion_Op_N2 (210) Op + N2 -> NOp + N rate = ** User defined ** (301) + ion_Op_N2D (211) Op + N2D -> Np + O rate = 1.30E-10 (302) + ion_Op_O2 (212) Op + O2 -> O2p + O rate = ** User defined ** (303) + Op2D_e (213) Op2D + e -> Op + e rate = ** User defined ** (304) + Op2D_N2 (214) Op2D + N2 -> N2p + O rate = 8.00E-10 (305) + Op2D_O (215) Op2D + O -> Op + O rate = 5.00E-12 (306) + Op2D_O2 (216) Op2D + O2 -> O2p + O rate = 7.00E-10 (307) + Op2P_ea (217) Op2P + e -> Op2D + e rate = ** User defined ** (308) + Op2P_eb (218) Op2P + e -> Op + e rate = ** User defined ** (309) + Op2P_N2a (219) Op2P + N2 -> N2p + O rate = 4.80E-10 (310) + Op2P_N2b (220) Op2P + N2 -> Np + NO rate = 1.00E-10 (311) + Op2P_O (221) Op2P + O -> Op + O rate = 4.00E-10 (312) Extraneous prod/loss species ( 1) so4_a2 (dataset) @@ -568,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 @@ -600,26 +627,36 @@ 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 + j60*CO2 + j87*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 - + r206*Op*CO2 + 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 + 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 - - j25*CO2 - j60*CO2 - r206*Op*CO2 + - j25*CO2 - j61*CO2 - r209*Op*CO2 d(COF2)/dt = j31*CF2CLBR + j32*CF3BR + j34*CFC113 + 2*j35*CFC114 + 2*j36*CFC115 + j37*CFC12 + 2*j50*H2402 + j53*HCFC142B + j54*HCFC22 + r90*O1D*CF2CLBR + r92*O1D*CFC113 + 2*r93*O1D*CFC114 + 2*r94*O1D*CFC115 + r95*O1D*CFC12 + r116*O1D*CF3BR + 2*r118*O1D*H2402 + r137*HCFC142B*OH @@ -628,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 @@ -637,16 +674,16 @@ 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 - - j86*H2SO4 + 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 d(HCFC141B)/dt = - j52*HCFC141B - r136*OH*HCFC141B - r141*O1D*HCFC141B @@ -661,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 @@ -670,9 +707,9 @@ Extraneous prod/loss species d(HOCL)/dt = r181*CLONO2 + r186*CLONO2 + r192*CLONO2 + r75*CLO*HO2 + r80*CLONO2*OH - j58*HOCL - r86*CL*HOCL - r87*O*HOCL - r88*OH*HOCL - r178*HCL*HOCL - r184*HCL*HOCL - r189*HCL*HOCL - d(N)/dt = .8*j63*N2 + j65*N2 + .8*j67*N2 + j69*N2 + j15*NO + r207*N2*Op + r38*N2D*O + .2*r194*NOp*e - + 1.1*r196*N2p*e + r200*Np*O + r201*Np*O2 - - j61*N - r40*NO*N - r41*NO2*N - r42*NO2*N - r43*NO2*N - r44*O2*N - r52*OH*N - r203*O2p*N + d(N)/dt = j64*N2 + .8*j66*N2 + .8*j68*N2 + j70*N2 + j15*NO + r210*N2*Op + r38*N2D*O + .2*r197*NOp*e + + 1.1*r199*N2p*e + r203*Np*O + r204*Np*O2 + - j62*N - r40*NO*N - r41*NO2*N - r42*NO2*N - r43*NO2*N - r44*O2*N - r52*OH*N - r206*O2p*N d(N2O)/dt = r41*N*NO2 - j12*N2O - r56*O1D*N2O - r57*O1D*N2O d(N2O5)/dt = r59*M*NO2*NO3 @@ -680,105 +717,90 @@ Extraneous prod/loss species d(ncl_a1)/dt = 0 d(ncl_a2)/dt = 0 d(ncl_a3)/dt = 0 - d(NO)/dt = j14*N2O5 + j17*NO2 + j19*NO3 + .5*r175*NO2 + r204*N2*O2p + r39*N2D*O2 + 2*r42*N*NO2 + r44*N*O2 - + r45*NO2*O + r52*N*OH + 2*r56*O1D*N2O + r163*SO*NO2 + 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 + 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 - r205*O2p*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 + r37*HO2NO2*OH + r48*NO3*HO2 + 2*r49*NO3*NO + r50*NO3*O + r51*NO3*OH + r53*NO*HO2 + r54*NO*O3 + r55*M*NO*O + r76*CLO*NO + r108*BRO*NO + r148*CH3O2*NO - j17*NO2 - 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 d(num_a4)/dt = 0 d(O)/dt = j2*H2O + 2*j5*O2 + j6*O2 + j8*O3 + j14*N2O5 + j15*NO + j17*NO2 + j18*NO3 + .18*j24*CH4 - + j25*CO2 + j27*BRO + j45*CLO + j59*OCLO + j60*CO2 + j76*O2 + j78*O2 + j80*O2 + 2*j81*O2 - + 2*j82*O2 + j83*O2 + j84*O2 + j85*O2 + j88*SO + j89*SO2 + j90*SO3 + r5*N2*O1D + r6*O1D*O2 - + r7*O1D*O2 + r24*H*HO2 + r34*OH*OH + r40*N*NO + r41*N*NO2 + r44*N*O2 + r158*S*O2 + r164*SO*O2 - + r194*NOp*e + 1.15*r195*O2p*e + r202*Np*O2 + r203*O2p*N + r208*Op*O2 - - j70*O - j71*O - j72*O - j73*O - j74*O - j75*O - r17*O3*O - 2*r18*M*O*O - r19*M*O2*O + + 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 + + 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 - r198*N2p*O - r199*N2p*O - r200*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 + r205*O2p*NO - - j5*O2 - j6*O2 - j76*O2 - j77*O2 - j78*O2 - j79*O2 - j80*O2 - j81*O2 - j82*O2 - j83*O2 - - j84*O2 - j85*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 - r197*N2p*O2 - r201*Np*O2 - r202*Np*O2 - r208*Op*O2 + + 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 + - 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 = - j87*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 = j87*OCS + j88*SO - - r158*O2*S - r159*O3*S - r162*OH*S - d(SO)/dt = j89*SO2 + r156*OCS*O + r158*S*O2 + r159*S*O3 + r162*S*OH - - j88*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 = j90*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 - - j89*SO2 - r168*OH*SO2 - d(SO3)/dt = j86*H2SO4 + r168*SO2*OH - - j90*SO3 - r169*H2O*SO3 + d(S)/dt = j88*OCS + j89*SO + - r160*O2*S - r161*O3*S - r164*OH*S + d(SF6)/dt = - j60*SF6 + 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 = j62*N2 + j64*N2 + j65*N2 + j66*N2 + j68*N2 + j69*N2 + j16*NO + j61*N + j70*O + j71*O + j72*O - + j73*O + j74*O + j75*O + j76*O2 + j77*O2 + j78*O2 + j79*O2 + j80*O2 + j83*O2 + j84*O2 - + j85*O2 - - r194*NOp*e - r195*O2p*e - r196*N2p*e + 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 + - r197*NOp*e - r198*O2p*e - r199*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 + 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 - d(N2D)/dt = j62*N2 + 1.2*j63*N2 + 1.2*j67*N2 + j68*N2 + .8*r194*NOp*e + .9*r196*N2p*e + r198*N2p*O - - r38*O*N2D - r39*O2*N2D - d(N2p)/dt = j64*N2 + j66*N2 - - r196*e*N2p - r197*O2*N2p - r198*O*N2p - r199*O*N2p - d(NOp)/dt = j16*NO + r204*N2*O2p + r207*N2*Op + r198*N2p*O + r202*Np*O2 + r203*O2p*N + r205*O2p*NO - - r194*e*NOp - d(Np)/dt = j62*N2 + j65*N2 + j68*N2 + j69*N2 + j61*N - - r200*O*Np - r201*O2*Np - r202*O2*Np - d(O1D)/dt = j1*H2O + j6*O2 + j7*O3 + j12*N2O + r39*N2D*O2 + .85*r195*O2p*e + d(N2D)/dt = j65*N2 + 1.2*j66*N2 + 1.2*j68*N2 + j69*N2 + .8*r197*NOp*e + .9*r199*N2p*e + r201*N2p*O + - r38*O*N2D - r39*O2*N2D - r211*Op*N2D + d(N2p)/dt = j63*N2 + j67*N2 + r214*N2*Op2D + r219*N2*Op2P + - r199*e*N2p - r200*O2*N2p - r201*O*N2p - r202*O*N2p + d(NOp)/dt = j16*NO + r207*N2*O2p + r210*N2*Op + r201*N2p*O + r205*Np*O2 + r206*O2p*N + r208*O2p*NO + - r197*e*NOp + d(Np)/dt = j64*N2 + j65*N2 + j69*N2 + j70*N2 + j62*N + r220*N2*Op2P + r211*Op*N2D + - r203*O*Np - r204*O2*Np - r205*O2*Np + d(O1D)/dt = j1*H2O + j6*O2 + j7*O3 + j12*N2O + r39*N2D*O2 + .85*r198*O2p*e - r5*N2*O1D - r3*H2*O1D - r4*H2O*O1D - r6*O2*O1D - r7*O2*O1D - r8*O3*O1D - r56*N2O*O1D - r57*N2O*O1D - r89*CCL4*O1D - r90*CF2CLBR*O1D - r91*CFC11*O1D - r92*CFC113*O1D - r93*CFC114*O1D - r94*CFC115*O1D - r95*CFC12*O1D - r96*HCL*O1D - r97*HCL*O1D - r116*CF3BR*O1D - r117*CHBR3*O1D @@ -789,8 +811,8 @@ Extraneous prod/loss species - r1*O2_1D - r9*N2*O2_1D - r10*O*O2_1D - r11*O2*O2_1D d(O2_1S)/dt = r6*O1D*O2 - r2*O2_1S - r13*N2*O2_1S - r12*CO2*O2_1S - r14*O*O2_1S - r15*O2*O2_1S - r16*O3*O2_1S - d(O2p)/dt = j77*O2 + j79*O2 + r197*N2p*O2 + r201*Np*O2 + r206*Op*CO2 + r208*Op*O2 - - r204*N2*O2p - r195*e*O2p - r203*N*O2p - r205*NO*O2p + d(O2p)/dt = j78*O2 + j80*O2 + r200*N2p*O2 + r204*Np*O2 + r209*Op*CO2 + r212*Op*O2 + r216*Op2D*O2 + - r207*N2*O2p - r198*e*O2p - r206*N*O2p - r208*NO*O2p d(OH)/dt = j3*H2O + 2*j4*H2O2 + j9*HNO3 + j10*HO2NO2 + j22*CH3OOH + .33*j24*CH4 + j57*HOBR + j58*HOCL + .5*r175*NO2 + r3*O1D*H2 + 2*r4*O1D*H2O + r20*H2*O + r21*H2O2*O + 2*r23*H*HO2 + r26*HO2*O + r27*HO2*O3 + r28*H*O3 + r48*NO3*HO2 + r53*NO*HO2 + r69*CL*HO2 + r84*HCL*O + r87*HOCL*O @@ -801,14 +823,19 @@ 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 - d(Op)/dt = j70*O + j71*O + j72*O + j73*O + j74*O + j75*O + j76*O2 + j78*O2 + j80*O2 + j83*O2 + j84*O2 - + j85*O2 + r199*N2p*O + r200*Np*O - - r207*N2*Op - r206*CO2*Op - r208*O2*Op - d(H2O)/dt = .05*j24*CH4 + j86*H2SO4 + r24*H*HO2 + r29*OH*H2 + r30*OH*H2O2 + r31*OH*HO2 + r34*OH*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 + d(Op2D)/dt = j75*O + j76*O + j85*O2 + j86*O2 + r196*Op2P + r217*Op2P*e + - r195*Op2D - r214*N2*Op2D - r213*e*Op2D - r215*O*Op2D - r216*O2*Op2D + d(Op2P)/dt = j71*O + j72*O + j77*O2 + j84*O2 + - r194*Op2P - r196*Op2P - r219*N2*Op2P - r220*N2*Op2P - r217*e*Op2P - r218*e*Op2P + - r221*O*Op2P + d(H2O)/dt = .05*j24*CH4 + j87*H2SO4 + r24*H*HO2 + r29*OH*H2 + r30*OH*H2O2 + r31*OH*HO2 + r34*OH*OH + r37*HO2NO2*OH + r61*HNO3*OH + r85*HCL*OH + r88*HOCL*OH + r114*HBR*OH + r128*CH2BR2*OH + r130*CH3BR*OH + r131*CH3CCL3*OH + r133*CH3CL*OH + r138*HCFC22*OH + r146*CH2O*OH + r149*CH3OOH*OH + r150*CH4*OH + 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 431fcf7448..ce56868aba 100644 --- a/src/chemistry/pp_waccm_ma_mam4/chem_mech.in +++ b/src/chemistry/pp_waccm_ma_mam4/chem_mech.in @@ -1,21 +1,19 @@ * Comments -* User-given Tag Description: WACCM_MA_MAM4_1 -* Tag database identifier : MZ235_WACCM_MA_MAM4_20181001 -* Tag created by : ajc -* Tag created from branch : WACCM-MA-MAM4 -* Tag created on : 2018-10-01 13:27:46.607357-06 +* 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 : 2020-09-25 11:46:07.598596-06 * Comments for this tag follow: -* ajc : 2018-10-01 : Update reaction rates to jpl15 -* Remove H1202 -* CO2 explicit solve -* O1D_N2 cph update -* Update Machine Specifications +* 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, @@ -37,6 +35,7 @@ CH3OOH, CH4, CHBR3 -> CHBr3, + CL -> Cl, CL2 -> Cl2, CL2O2 -> Cl2O2, CLO -> ClO, @@ -87,6 +86,7 @@ pom_a1 -> C, pom_a4 -> C, S -> S, + SF6, SO -> SO, SO2, SO3 -> SO3, @@ -96,8 +96,6 @@ soa_a1 -> C, soa_a2 -> C, SOAG -> C, - BR -> Br, - CL -> Cl, e -> E, HO2, N2D -> N, @@ -110,6 +108,8 @@ O2p -> O2, OH, Op -> O, + Op2D -> O, + Op2P -> O, H2O End Solution @@ -125,8 +125,6 @@ End Col-int Not-Transported - BR, - CL, e, HO2, N2D, @@ -138,7 +136,9 @@ O2_1S, O2p, OH, - Op + Op, + Op2D, + Op2P End Not-Transported END Species @@ -168,17 +168,20 @@ HCFC142B HCFC22 N2O + SF6 End Explicit Implicit bc_a1 bc_a4 + BR BRCL BRO BRONO2 CH2O CH3O2 CH3OOH + CL CL2 CL2O2 CLO @@ -231,8 +234,6 @@ soa_a1 soa_a2 SOAG - BR - CL e HO2 N2D @@ -245,6 +246,8 @@ O2p OH Op + Op2D + Op2P H2O End Implicit @@ -324,35 +327,36 @@ [jhobr] HOBR + hv -> BR + OH [jhocl] HOCL + hv -> OH + CL [joclo] OCLO + hv -> O + CLO +[jsf6] SF6 + hv -> sink ********************************* *** ions ********************************* [jeuv_26=userdefined,userdefined] CO2 + hv -> CO + O [jeuv_4=userdefined,userdefined] N + hv -> Np + e -[jeuv_23=userdefined,userdefined] N2 + hv -> N2D + Np + e -[jeuv_25=userdefined,userdefined] N2 + hv -> 1.2*N2D + 0.8*N [jeuv_6=userdefined,userdefined] N2 + hv -> N2p + 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_18=userdefined,userdefined] N2 + hv -> N2p + e [jeuv_13=userdefined,userdefined] N2 + hv -> 1.2*N2D + 0.8*N [jeuv_11=userdefined,userdefined] N2 + hv -> N2D + Np + e [jeuv_10=userdefined,userdefined] N2 + hv -> N + Np + e +[jeuv_3=userdefined,userdefined] O + hv -> Op2P + 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_2=userdefined,userdefined] O + hv -> Op + e -[jeuv_3=userdefined,userdefined] O + hv -> Op + e -[jeuv_15=userdefined,userdefined] O + hv -> Op + e -[jeuv_16=userdefined,userdefined] O + hv -> Op + e -[jeuv_9=userdefined,userdefined] O2 + hv -> O + Op + e +[jeuv_2=userdefined,userdefined] O + hv -> Op2D + e +[jeuv_15=userdefined,userdefined] O + hv -> Op2D + e +[jeuv_21=userdefined,userdefined] O2 + hv -> O + Op2P + 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_20=userdefined,userdefined] O2 + hv -> O + Op + e -[jeuv_21=userdefined,userdefined] O2 + hv -> O + Op + e -[jeuv_8=userdefined,userdefined] O2 + hv -> O + Op + e +[jeuv_9=userdefined,userdefined] O2 + hv -> O + Op2P + e +[jeuv_8=userdefined,userdefined] O2 + hv -> O + Op2D + e +[jeuv_20=userdefined,userdefined] O2 + hv -> O + Op2D + e ********************************* *** sulfur ********************************* @@ -546,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 @@ -558,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 @@ -593,6 +597,9 @@ ********************************* *** 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 @@ -607,7 +614,17 @@ [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 diff --git a/src/chemistry/pp_waccm_ma_mam4/chem_mods.F90 b/src/chemistry/pp_waccm_ma_mam4/chem_mods.F90 index b9c790cf99..b3d2ff52e0 100644 --- a/src/chemistry/pp_waccm_ma_mam4/chem_mods.F90 +++ b/src/chemistry/pp_waccm_ma_mam4/chem_mods.F90 @@ -5,26 +5,26 @@ module chem_mods use shr_kind_mod, only : r8 => shr_kind_r8 implicit none save - integer, parameter :: phtcnt = 90, & ! number of photolysis reactions - rxntot = 298, & ! number of total reactions - gascnt = 208, & ! number of gas phase reactions + integer, parameter :: phtcnt = 91, & ! number of photolysis reactions + rxntot = 312, & ! number of total reactions + gascnt = 221, & ! number of gas phase reactions nabscol = 2, & ! number of absorbing column densities - gas_pcnst = 97, & ! number of "gas phase" species + gas_pcnst = 100, & ! number of "gas phase" species nfs = 2, & ! number of "fixed" species relcnt = 0, & ! number of relationship species grpcnt = 0, & ! number of group members - nzcnt = 733, & ! number of non-zero matrix entries + nzcnt = 764, & ! number of non-zero matrix entries extcnt = 22, & ! 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 = 75, & ! number of species in implicit class + clscnt4 = 77, & ! 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 = 298, & - enthalpy_cnt = 41, & + rxt_tag_cnt = 312, & + enthalpy_cnt = 54, & nslvd = 14 integer :: clscnt(5) = 0 integer :: cls_rxt_cnt(4,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 8f30e1463b..dff4734ed0 100644 --- a/src/chemistry/pp_waccm_ma_mam4/m_rxt_id.F90 +++ b/src/chemistry/pp_waccm_ma_mam4/m_rxt_id.F90 @@ -59,243 +59,257 @@ module m_rxt_id integer, parameter :: rid_jhobr = 57 integer, parameter :: rid_jhocl = 58 integer, parameter :: rid_joclo = 59 - integer, parameter :: rid_jeuv_26 = 60 - integer, parameter :: rid_jeuv_4 = 61 - integer, parameter :: rid_jeuv_23 = 62 - integer, parameter :: rid_jeuv_25 = 63 - integer, parameter :: rid_jeuv_6 = 64 - integer, parameter :: rid_jeuv_22 = 65 - integer, parameter :: rid_jeuv_18 = 66 - integer, parameter :: rid_jeuv_13 = 67 - integer, parameter :: rid_jeuv_11 = 68 - integer, parameter :: rid_jeuv_10 = 69 - integer, parameter :: rid_jeuv_1 = 70 - integer, parameter :: rid_jeuv_14 = 71 - integer, parameter :: rid_jeuv_2 = 72 - integer, parameter :: rid_jeuv_3 = 73 - integer, parameter :: rid_jeuv_15 = 74 - integer, parameter :: rid_jeuv_16 = 75 - integer, parameter :: rid_jeuv_9 = 76 - integer, parameter :: rid_jeuv_17 = 77 - integer, parameter :: rid_jeuv_7 = 78 - integer, parameter :: rid_jeuv_5 = 79 - integer, parameter :: rid_jeuv_19 = 80 - integer, parameter :: rid_jeuv_24 = 81 - integer, parameter :: rid_jeuv_12 = 82 - integer, parameter :: rid_jeuv_20 = 83 - integer, parameter :: rid_jeuv_21 = 84 + integer, parameter :: rid_jsf6 = 60 + integer, parameter :: rid_jeuv_26 = 61 + integer, parameter :: rid_jeuv_4 = 62 + integer, parameter :: rid_jeuv_6 = 63 + integer, parameter :: rid_jeuv_22 = 64 + integer, parameter :: rid_jeuv_23 = 65 + integer, parameter :: rid_jeuv_25 = 66 + integer, parameter :: rid_jeuv_18 = 67 + integer, parameter :: rid_jeuv_13 = 68 + integer, parameter :: rid_jeuv_11 = 69 + integer, parameter :: rid_jeuv_10 = 70 + integer, parameter :: rid_jeuv_3 = 71 + integer, parameter :: rid_jeuv_16 = 72 + integer, parameter :: rid_jeuv_1 = 73 + integer, parameter :: rid_jeuv_14 = 74 + integer, parameter :: rid_jeuv_2 = 75 + integer, parameter :: rid_jeuv_15 = 76 + integer, parameter :: rid_jeuv_21 = 77 + integer, parameter :: rid_jeuv_17 = 78 + integer, parameter :: rid_jeuv_7 = 79 + integer, parameter :: rid_jeuv_5 = 80 + integer, parameter :: rid_jeuv_19 = 81 + integer, parameter :: rid_jeuv_24 = 82 + integer, parameter :: rid_jeuv_12 = 83 + integer, parameter :: rid_jeuv_9 = 84 integer, parameter :: rid_jeuv_8 = 85 - integer, parameter :: rid_jh2so4 = 86 - integer, parameter :: rid_jocs = 87 - integer, parameter :: rid_jso = 88 - integer, parameter :: rid_jso2 = 89 - integer, parameter :: rid_jso3 = 90 - integer, parameter :: rid_ag1 = 91 - integer, parameter :: rid_ag2 = 92 - integer, parameter :: rid_O1D_H2 = 93 - integer, parameter :: rid_O1D_H2O = 94 - integer, parameter :: rid_O1D_N2 = 95 - integer, parameter :: rid_O1D_O2 = 96 - integer, parameter :: rid_O1D_O2b = 97 - integer, parameter :: rid_O1D_O3 = 98 - integer, parameter :: rid_O2_1D_N2 = 99 - integer, parameter :: rid_O2_1D_O = 100 - integer, parameter :: rid_O2_1D_O2 = 101 - integer, parameter :: rid_O2_1S_CO2 = 102 - integer, parameter :: rid_O2_1S_N2 = 103 - integer, parameter :: rid_O2_1S_O = 104 - integer, parameter :: rid_O2_1S_O2 = 105 - integer, parameter :: rid_O2_1S_O3 = 106 - integer, parameter :: rid_O_O3 = 107 - integer, parameter :: rid_usr_O_O = 108 - integer, parameter :: rid_usr_O_O2 = 109 - integer, parameter :: rid_H2_O = 110 - integer, parameter :: rid_H2O2_O = 111 - integer, parameter :: rid_H_HO2 = 112 - integer, parameter :: rid_H_HO2a = 113 - integer, parameter :: rid_H_HO2b = 114 - integer, parameter :: rid_H_O2 = 115 - integer, parameter :: rid_HO2_O = 116 - integer, parameter :: rid_HO2_O3 = 117 - integer, parameter :: rid_H_O3 = 118 - integer, parameter :: rid_OH_H2 = 119 - integer, parameter :: rid_OH_H2O2 = 120 - integer, parameter :: rid_OH_HO2 = 121 - integer, parameter :: rid_OH_O = 122 - integer, parameter :: rid_OH_O3 = 123 - integer, parameter :: rid_OH_OH = 124 - integer, parameter :: rid_OH_OH_M = 125 - integer, parameter :: rid_usr_HO2_HO2 = 126 - integer, parameter :: rid_HO2NO2_OH = 127 - integer, parameter :: rid_N2D_O = 128 - integer, parameter :: rid_N2D_O2 = 129 - integer, parameter :: rid_N_NO = 130 - integer, parameter :: rid_N_NO2a = 131 - integer, parameter :: rid_N_NO2b = 132 - integer, parameter :: rid_N_NO2c = 133 - integer, parameter :: rid_N_O2 = 134 - integer, parameter :: rid_NO2_O = 135 - integer, parameter :: rid_NO2_O3 = 136 - integer, parameter :: rid_NO2_O_M = 137 - integer, parameter :: rid_NO3_HO2 = 138 - integer, parameter :: rid_NO3_NO = 139 - integer, parameter :: rid_NO3_O = 140 - integer, parameter :: rid_NO3_OH = 141 - integer, parameter :: rid_N_OH = 142 - integer, parameter :: rid_NO_HO2 = 143 - integer, parameter :: rid_NO_O3 = 144 - integer, parameter :: rid_NO_O_M = 145 - integer, parameter :: rid_O1D_N2Oa = 146 - integer, parameter :: rid_O1D_N2Ob = 147 - integer, parameter :: rid_tag_NO2_HO2 = 148 - integer, parameter :: rid_tag_NO2_NO3 = 149 - integer, parameter :: rid_tag_NO2_OH = 150 - integer, parameter :: rid_usr_HNO3_OH = 151 - integer, parameter :: rid_usr_HO2NO2_M = 152 - integer, parameter :: rid_usr_N2O5_M = 153 - integer, parameter :: rid_CL_CH2O = 154 - integer, parameter :: rid_CL_CH4 = 155 - integer, parameter :: rid_CL_H2 = 156 - integer, parameter :: rid_CL_H2O2 = 157 - integer, parameter :: rid_CL_HO2a = 158 - integer, parameter :: rid_CL_HO2b = 159 - integer, parameter :: rid_CL_O3 = 160 - integer, parameter :: rid_CLO_CH3O2 = 161 - integer, parameter :: rid_CLO_CLOa = 162 - integer, parameter :: rid_CLO_CLOb = 163 - integer, parameter :: rid_CLO_CLOc = 164 - integer, parameter :: rid_CLO_HO2 = 165 - integer, parameter :: rid_CLO_NO = 166 - integer, parameter :: rid_CLONO2_CL = 167 - integer, parameter :: rid_CLO_NO2_M = 168 - integer, parameter :: rid_CLONO2_O = 169 - integer, parameter :: rid_CLONO2_OH = 170 - integer, parameter :: rid_CLO_O = 171 - integer, parameter :: rid_CLO_OHa = 172 - integer, parameter :: rid_CLO_OHb = 173 - integer, parameter :: rid_HCL_O = 174 - integer, parameter :: rid_HCL_OH = 175 - integer, parameter :: rid_HOCL_CL = 176 - integer, parameter :: rid_HOCL_O = 177 - integer, parameter :: rid_HOCL_OH = 178 - integer, parameter :: rid_O1D_CCL4 = 179 - integer, parameter :: rid_O1D_CF2CLBR = 180 - integer, parameter :: rid_O1D_CFC11 = 181 - integer, parameter :: rid_O1D_CFC113 = 182 - integer, parameter :: rid_O1D_CFC114 = 183 - integer, parameter :: rid_O1D_CFC115 = 184 - integer, parameter :: rid_O1D_CFC12 = 185 - integer, parameter :: rid_O1D_HCLa = 186 - integer, parameter :: rid_O1D_HCLb = 187 - integer, parameter :: rid_tag_CLO_CLO_M = 188 - integer, parameter :: rid_usr_CL2O2_M = 189 - integer, parameter :: rid_BR_CH2O = 190 - integer, parameter :: rid_BR_HO2 = 191 - integer, parameter :: rid_BR_O3 = 192 - integer, parameter :: rid_BRO_BRO = 193 - integer, parameter :: rid_BRO_CLOa = 194 - integer, parameter :: rid_BRO_CLOb = 195 - integer, parameter :: rid_BRO_CLOc = 196 - integer, parameter :: rid_BRO_HO2 = 197 - integer, parameter :: rid_BRO_NO = 198 - integer, parameter :: rid_BRO_NO2_M = 199 - integer, parameter :: rid_BRONO2_O = 200 - integer, parameter :: rid_BRO_O = 201 - integer, parameter :: rid_BRO_OH = 202 - integer, parameter :: rid_HBR_O = 203 - integer, parameter :: rid_HBR_OH = 204 - integer, parameter :: rid_HOBR_O = 205 - integer, parameter :: rid_O1D_CF3BR = 206 - integer, parameter :: rid_O1D_CHBR3 = 207 - integer, parameter :: rid_O1D_H2402 = 208 - integer, parameter :: rid_O1D_HBRa = 209 - integer, parameter :: rid_O1D_HBRb = 210 - integer, parameter :: rid_F_CH4 = 211 - integer, parameter :: rid_F_H2 = 212 - integer, parameter :: rid_F_H2O = 213 - integer, parameter :: rid_F_HNO3 = 214 - integer, parameter :: rid_O1D_COF2 = 215 - integer, parameter :: rid_O1D_COFCL = 216 - integer, parameter :: rid_CH2BR2_CL = 217 - integer, parameter :: rid_CH2BR2_OH = 218 - integer, parameter :: rid_CH3BR_CL = 219 - integer, parameter :: rid_CH3BR_OH = 220 - integer, parameter :: rid_CH3CCL3_OH = 221 - integer, parameter :: rid_CH3CL_CL = 222 - integer, parameter :: rid_CH3CL_OH = 223 - integer, parameter :: rid_CHBR3_CL = 224 - integer, parameter :: rid_CHBR3_OH = 225 - integer, parameter :: rid_HCFC141B_OH = 226 - integer, parameter :: rid_HCFC142B_OH = 227 - integer, parameter :: rid_HCFC22_OH = 228 - integer, parameter :: rid_O1D_CH2BR2 = 229 - integer, parameter :: rid_O1D_CH3BR = 230 - integer, parameter :: rid_O1D_HCFC141B = 231 - integer, parameter :: rid_O1D_HCFC142B = 232 - integer, parameter :: rid_O1D_HCFC22 = 233 - integer, parameter :: rid_CH2O_NO3 = 234 - integer, parameter :: rid_CH2O_O = 235 - integer, parameter :: rid_CH2O_OH = 236 - integer, parameter :: rid_CH3O2_HO2 = 237 - integer, parameter :: rid_CH3O2_NO = 238 - integer, parameter :: rid_CH3OOH_OH = 239 - integer, parameter :: rid_CH4_OH = 240 - integer, parameter :: rid_CO_OH_M = 241 - integer, parameter :: rid_O1D_CH4a = 242 - integer, parameter :: rid_O1D_CH4b = 243 - integer, parameter :: rid_O1D_CH4c = 244 - integer, parameter :: rid_usr_CO_OH_b = 245 - integer, parameter :: rid_OCS_O = 246 - integer, parameter :: rid_OCS_OH = 247 - integer, parameter :: rid_S_O2 = 248 - integer, parameter :: rid_S_O3 = 249 - integer, parameter :: rid_SO_BRO = 250 - integer, parameter :: rid_SO_CLO = 251 - integer, parameter :: rid_S_OH = 252 - integer, parameter :: rid_SO_NO2 = 253 - integer, parameter :: rid_SO_O2 = 254 - integer, parameter :: rid_SO_O3 = 255 - integer, parameter :: rid_SO_OCLO = 256 - integer, parameter :: rid_SO_OH = 257 - integer, parameter :: rid_usr_SO2_OH = 258 - integer, parameter :: rid_usr_SO3_H2O = 259 - integer, parameter :: rid_DMS_NO3 = 260 - integer, parameter :: rid_DMS_OHa = 261 - integer, parameter :: rid_usr_DMS_OH = 262 - integer, parameter :: rid_usr_HO2_aer = 263 - integer, parameter :: rid_usr_N2O5_aer = 264 - integer, parameter :: rid_usr_NO2_aer = 265 - integer, parameter :: rid_usr_NO3_aer = 266 - integer, parameter :: rid_het1 = 267 - integer, parameter :: rid_het10 = 268 - integer, parameter :: rid_het11 = 269 - integer, parameter :: rid_het12 = 270 - integer, parameter :: rid_het13 = 271 - integer, parameter :: rid_het14 = 272 - integer, parameter :: rid_het15 = 273 - integer, parameter :: rid_het16 = 274 - integer, parameter :: rid_het17 = 275 - integer, parameter :: rid_het2 = 276 - integer, parameter :: rid_het3 = 277 - integer, parameter :: rid_het4 = 278 - integer, parameter :: rid_het5 = 279 - integer, parameter :: rid_het6 = 280 - integer, parameter :: rid_het7 = 281 - integer, parameter :: rid_het8 = 282 - integer, parameter :: rid_het9 = 283 - integer, parameter :: rid_elec1 = 284 - integer, parameter :: rid_elec2 = 285 - integer, parameter :: rid_elec3 = 286 - integer, parameter :: rid_ion_N2p_O2 = 287 - integer, parameter :: rid_ion_N2p_Oa = 288 - integer, parameter :: rid_ion_N2p_Ob = 289 - integer, parameter :: rid_ion_Np_O = 290 - integer, parameter :: rid_ion_Np_O2a = 291 - integer, parameter :: rid_ion_Np_O2b = 292 - integer, parameter :: rid_ion_O2p_N = 293 - integer, parameter :: rid_ion_O2p_N2 = 294 - integer, parameter :: rid_ion_O2p_NO = 295 - integer, parameter :: rid_ion_Op_CO2 = 296 - integer, parameter :: rid_ion_Op_N2 = 297 - integer, parameter :: rid_ion_Op_O2 = 298 + integer, parameter :: rid_jeuv_20 = 86 + integer, parameter :: rid_jh2so4 = 87 + integer, parameter :: rid_jocs = 88 + integer, parameter :: rid_jso = 89 + integer, parameter :: rid_jso2 = 90 + integer, parameter :: rid_jso3 = 91 + integer, parameter :: rid_ag1 = 92 + integer, parameter :: rid_ag2 = 93 + integer, parameter :: rid_O1D_H2 = 94 + integer, parameter :: rid_O1D_H2O = 95 + integer, parameter :: rid_O1D_N2 = 96 + integer, parameter :: rid_O1D_O2 = 97 + integer, parameter :: rid_O1D_O2b = 98 + integer, parameter :: rid_O1D_O3 = 99 + integer, parameter :: rid_O2_1D_N2 = 100 + integer, parameter :: rid_O2_1D_O = 101 + integer, parameter :: rid_O2_1D_O2 = 102 + integer, parameter :: rid_O2_1S_CO2 = 103 + integer, parameter :: rid_O2_1S_N2 = 104 + integer, parameter :: rid_O2_1S_O = 105 + integer, parameter :: rid_O2_1S_O2 = 106 + integer, parameter :: rid_O2_1S_O3 = 107 + integer, parameter :: rid_O_O3 = 108 + integer, parameter :: rid_usr_O_O = 109 + integer, parameter :: rid_usr_O_O2 = 110 + integer, parameter :: rid_H2_O = 111 + integer, parameter :: rid_H2O2_O = 112 + integer, parameter :: rid_H_HO2 = 113 + integer, parameter :: rid_H_HO2a = 114 + integer, parameter :: rid_H_HO2b = 115 + integer, parameter :: rid_H_O2 = 116 + integer, parameter :: rid_HO2_O = 117 + integer, parameter :: rid_HO2_O3 = 118 + integer, parameter :: rid_H_O3 = 119 + integer, parameter :: rid_OH_H2 = 120 + integer, parameter :: rid_OH_H2O2 = 121 + integer, parameter :: rid_OH_HO2 = 122 + integer, parameter :: rid_OH_O = 123 + integer, parameter :: rid_OH_O3 = 124 + integer, parameter :: rid_OH_OH = 125 + integer, parameter :: rid_OH_OH_M = 126 + integer, parameter :: rid_usr_HO2_HO2 = 127 + integer, parameter :: rid_HO2NO2_OH = 128 + integer, parameter :: rid_N2D_O = 129 + integer, parameter :: rid_N2D_O2 = 130 + integer, parameter :: rid_N_NO = 131 + integer, parameter :: rid_N_NO2a = 132 + integer, parameter :: rid_N_NO2b = 133 + integer, parameter :: rid_N_NO2c = 134 + integer, parameter :: rid_N_O2 = 135 + integer, parameter :: rid_NO2_O = 136 + integer, parameter :: rid_NO2_O3 = 137 + integer, parameter :: rid_NO2_O_M = 138 + integer, parameter :: rid_NO3_HO2 = 139 + integer, parameter :: rid_NO3_NO = 140 + integer, parameter :: rid_NO3_O = 141 + integer, parameter :: rid_NO3_OH = 142 + integer, parameter :: rid_N_OH = 143 + integer, parameter :: rid_NO_HO2 = 144 + integer, parameter :: rid_NO_O3 = 145 + integer, parameter :: rid_NO_O_M = 146 + integer, parameter :: rid_O1D_N2Oa = 147 + integer, parameter :: rid_O1D_N2Ob = 148 + integer, parameter :: rid_tag_NO2_HO2 = 149 + integer, parameter :: rid_tag_NO2_NO3 = 150 + integer, parameter :: rid_tag_NO2_OH = 151 + integer, parameter :: rid_usr_HNO3_OH = 152 + integer, parameter :: rid_usr_HO2NO2_M = 153 + integer, parameter :: rid_usr_N2O5_M = 154 + integer, parameter :: rid_CL_CH2O = 155 + integer, parameter :: rid_CL_CH4 = 156 + integer, parameter :: rid_CL_H2 = 157 + integer, parameter :: rid_CL_H2O2 = 158 + integer, parameter :: rid_CL_HO2a = 159 + integer, parameter :: rid_CL_HO2b = 160 + integer, parameter :: rid_CL_O3 = 161 + integer, parameter :: rid_CLO_CH3O2 = 162 + integer, parameter :: rid_CLO_CLOa = 163 + integer, parameter :: rid_CLO_CLOb = 164 + integer, parameter :: rid_CLO_CLOc = 165 + integer, parameter :: rid_CLO_HO2 = 166 + integer, parameter :: rid_CLO_NO = 167 + integer, parameter :: rid_CLONO2_CL = 168 + integer, parameter :: rid_CLO_NO2_M = 169 + integer, parameter :: rid_CLONO2_O = 170 + integer, parameter :: rid_CLONO2_OH = 171 + integer, parameter :: rid_CLO_O = 172 + integer, parameter :: rid_CLO_OHa = 173 + integer, parameter :: rid_CLO_OHb = 174 + integer, parameter :: rid_HCL_O = 175 + integer, parameter :: rid_HCL_OH = 176 + integer, parameter :: rid_HOCL_CL = 177 + integer, parameter :: rid_HOCL_O = 178 + integer, parameter :: rid_HOCL_OH = 179 + integer, parameter :: rid_O1D_CCL4 = 180 + integer, parameter :: rid_O1D_CF2CLBR = 181 + integer, parameter :: rid_O1D_CFC11 = 182 + integer, parameter :: rid_O1D_CFC113 = 183 + integer, parameter :: rid_O1D_CFC114 = 184 + integer, parameter :: rid_O1D_CFC115 = 185 + integer, parameter :: rid_O1D_CFC12 = 186 + integer, parameter :: rid_O1D_HCLa = 187 + integer, parameter :: rid_O1D_HCLb = 188 + integer, parameter :: rid_tag_CLO_CLO_M = 189 + integer, parameter :: rid_usr_CL2O2_M = 190 + integer, parameter :: rid_BR_CH2O = 191 + integer, parameter :: rid_BR_HO2 = 192 + integer, parameter :: rid_BR_O3 = 193 + integer, parameter :: rid_BRO_BRO = 194 + integer, parameter :: rid_BRO_CLOa = 195 + integer, parameter :: rid_BRO_CLOb = 196 + integer, parameter :: rid_BRO_CLOc = 197 + integer, parameter :: rid_BRO_HO2 = 198 + integer, parameter :: rid_BRO_NO = 199 + integer, parameter :: rid_BRO_NO2_M = 200 + integer, parameter :: rid_BRONO2_O = 201 + integer, parameter :: rid_BRO_O = 202 + integer, parameter :: rid_BRO_OH = 203 + integer, parameter :: rid_HBR_O = 204 + integer, parameter :: rid_HBR_OH = 205 + integer, parameter :: rid_HOBR_O = 206 + integer, parameter :: rid_O1D_CF3BR = 207 + integer, parameter :: rid_O1D_CHBR3 = 208 + integer, parameter :: rid_O1D_H2402 = 209 + integer, parameter :: rid_O1D_HBRa = 210 + integer, parameter :: rid_O1D_HBRb = 211 + integer, parameter :: rid_F_CH4 = 212 + integer, parameter :: rid_F_H2 = 213 + integer, parameter :: rid_F_H2O = 214 + integer, parameter :: rid_F_HNO3 = 215 + integer, parameter :: rid_O1D_COF2 = 216 + integer, parameter :: rid_O1D_COFCL = 217 + integer, parameter :: rid_CH2BR2_CL = 218 + integer, parameter :: rid_CH2BR2_OH = 219 + integer, parameter :: rid_CH3BR_CL = 220 + integer, parameter :: rid_CH3BR_OH = 221 + integer, parameter :: rid_CH3CCL3_OH = 222 + integer, parameter :: rid_CH3CL_CL = 223 + integer, parameter :: rid_CH3CL_OH = 224 + integer, parameter :: rid_CHBR3_CL = 225 + integer, parameter :: rid_CHBR3_OH = 226 + integer, parameter :: rid_HCFC141B_OH = 227 + integer, parameter :: rid_HCFC142B_OH = 228 + integer, parameter :: rid_HCFC22_OH = 229 + integer, parameter :: rid_O1D_CH2BR2 = 230 + integer, parameter :: rid_O1D_CH3BR = 231 + integer, parameter :: rid_O1D_HCFC141B = 232 + integer, parameter :: rid_O1D_HCFC142B = 233 + integer, parameter :: rid_O1D_HCFC22 = 234 + integer, parameter :: rid_CH2O_NO3 = 235 + integer, parameter :: rid_CH2O_O = 236 + integer, parameter :: rid_CH2O_OH = 237 + integer, parameter :: rid_CH3O2_HO2 = 238 + integer, parameter :: rid_CH3O2_NO = 239 + integer, parameter :: rid_CH3OOH_OH = 240 + integer, parameter :: rid_CH4_OH = 241 + integer, parameter :: rid_CO_OH_M = 242 + integer, parameter :: rid_O1D_CH4a = 243 + integer, parameter :: rid_O1D_CH4b = 244 + integer, parameter :: rid_O1D_CH4c = 245 + integer, parameter :: rid_usr_CO_OH_b = 246 + 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 + integer, parameter :: rid_usr_NO3_aer = 267 + integer, parameter :: rid_het1 = 268 + integer, parameter :: rid_het10 = 269 + integer, parameter :: rid_het11 = 270 + integer, parameter :: rid_het12 = 271 + integer, parameter :: rid_het13 = 272 + integer, parameter :: rid_het14 = 273 + integer, parameter :: rid_het15 = 274 + integer, parameter :: rid_het16 = 275 + integer, parameter :: rid_het17 = 276 + integer, parameter :: rid_het2 = 277 + integer, parameter :: rid_het3 = 278 + integer, parameter :: rid_het4 = 279 + integer, parameter :: rid_het5 = 280 + integer, parameter :: rid_het6 = 281 + integer, parameter :: rid_het7 = 282 + integer, parameter :: rid_het8 = 283 + integer, parameter :: rid_het9 = 284 + integer, parameter :: rid_ag247nm = 285 + integer, parameter :: rid_ag373nm = 286 + integer, parameter :: rid_ag732nm = 287 + integer, parameter :: rid_elec1 = 288 + integer, parameter :: rid_elec2 = 289 + integer, parameter :: rid_elec3 = 290 + integer, parameter :: rid_ion_N2p_O2 = 291 + integer, parameter :: rid_ion_N2p_Oa = 292 + integer, parameter :: rid_ion_N2p_Ob = 293 + integer, parameter :: rid_ion_Np_O = 294 + integer, parameter :: rid_ion_Np_O2a = 295 + integer, parameter :: rid_ion_Np_O2b = 296 + integer, parameter :: rid_ion_O2p_N = 297 + integer, parameter :: rid_ion_O2p_N2 = 298 + integer, parameter :: rid_ion_O2p_NO = 299 + integer, parameter :: rid_ion_Op_CO2 = 300 + integer, parameter :: rid_ion_Op_N2 = 301 + integer, parameter :: rid_ion_Op_N2D = 302 + integer, parameter :: rid_ion_Op_O2 = 303 + integer, parameter :: rid_Op2D_e = 304 + integer, parameter :: rid_Op2D_N2 = 305 + integer, parameter :: rid_Op2D_O = 306 + integer, parameter :: rid_Op2D_O2 = 307 + integer, parameter :: rid_Op2P_ea = 308 + integer, parameter :: rid_Op2P_eb = 309 + integer, parameter :: rid_Op2P_N2a = 310 + integer, parameter :: rid_Op2P_N2b = 311 + integer, parameter :: rid_Op2P_O = 312 end module m_rxt_id 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 cbcc1467c8..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,99 +2,102 @@ 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_SO = 74 - integer, parameter :: id_SO2 = 75 - integer, parameter :: id_SO3 = 76 - integer, parameter :: id_so4_a1 = 77 - integer, parameter :: id_so4_a2 = 78 - integer, parameter :: id_so4_a3 = 79 - integer, parameter :: id_soa_a1 = 80 - integer, parameter :: id_soa_a2 = 81 - integer, parameter :: id_SOAG = 82 - integer, parameter :: id_BR = 83 - integer, parameter :: id_CL = 84 - integer, parameter :: id_e = 85 - integer, parameter :: id_HO2 = 86 - integer, parameter :: id_N2D = 87 - integer, parameter :: id_N2p = 88 - integer, parameter :: id_NOp = 89 - integer, parameter :: id_Np = 90 - integer, parameter :: id_O1D = 91 - integer, parameter :: id_O2_1D = 92 - integer, parameter :: id_O2_1S = 93 - integer, parameter :: id_O2p = 94 - integer, parameter :: id_OH = 95 - integer, parameter :: id_Op = 96 - integer, parameter :: id_H2O = 97 + 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 + integer, parameter :: id_N2p = 89 + integer, parameter :: id_NOp = 90 + integer, parameter :: id_Np = 91 + integer, parameter :: id_O1D = 92 + integer, parameter :: id_O2_1D = 93 + integer, parameter :: id_O2_1S = 94 + integer, parameter :: id_O2p = 95 + integer, parameter :: id_OH = 96 + integer, parameter :: id_Op = 97 + integer, parameter :: id_Op2D = 98 + integer, parameter :: id_Op2P = 99 + integer, parameter :: id_H2O = 100 end module m_spc_id diff --git a/src/chemistry/pp_waccm_ma_mam4/mo_adjrxt.F90 b/src/chemistry/pp_waccm_ma_mam4/mo_adjrxt.F90 index 856b9becc1..fadce62bf1 100644 --- a/src/chemistry/pp_waccm_ma_mam4/mo_adjrxt.F90 +++ b/src/chemistry/pp_waccm_ma_mam4/mo_adjrxt.F90 @@ -13,36 +13,38 @@ 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(:,:, 95) = rate(:,:, 95) * inv(:,:, 2) - rate(:,:, 99) = rate(:,:, 99) * inv(:,:, 2) - rate(:,:,103) = rate(:,:,103) * inv(:,:, 2) - rate(:,:,108) = rate(:,:,108) * inv(:,:, 1) + 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(:,:,115) = rate(:,:,115) * inv(:,:, 1) - rate(:,:,125) = rate(:,:,125) * inv(:,:, 1) - rate(:,:,137) = rate(:,:,137) * inv(:,:, 1) - rate(:,:,145) = rate(:,:,145) * inv(:,:, 1) - rate(:,:,148) = rate(:,:,148) * 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(:,:,152) = rate(:,:,152) * inv(:,:, 1) + rate(:,:,151) = rate(:,:,151) * inv(:,:, 1) rate(:,:,153) = rate(:,:,153) * inv(:,:, 1) - rate(:,:,168) = rate(:,:,168) * inv(:,:, 1) - rate(:,:,188) = rate(:,:,188) * inv(:,:, 1) + rate(:,:,154) = rate(:,:,154) * inv(:,:, 1) + rate(:,:,169) = rate(:,:,169) * inv(:,:, 1) rate(:,:,189) = rate(:,:,189) * inv(:,:, 1) - rate(:,:,199) = rate(:,:,199) * inv(:,:, 1) - rate(:,:,241) = rate(:,:,241) * inv(:,:, 1) - rate(:,:,294) = rate(:,:,294) * inv(:,:, 2) - rate(:,:,297) = rate(:,:,297) * inv(:,:, 2) - rate(:,:, 93) = rate(:,:, 93) * m(:,:) + 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(:,:, 96) = rate(:,:, 96) * m(:,:) + rate(:,:, 95) = rate(:,:, 95) * m(:,:) rate(:,:, 97) = rate(:,:, 97) * m(:,:) rate(:,:, 98) = rate(:,:, 98) * m(:,:) - rate(:,:,100) = rate(:,:,100) * m(:,:) + rate(:,:, 99) = rate(:,:, 99) * m(:,:) rate(:,:,101) = rate(:,:,101) * m(:,:) rate(:,:,102) = rate(:,:,102) * m(:,:) - rate(:,:,104) = rate(:,:,104) * m(:,:) + rate(:,:,103) = rate(:,:,103) * m(:,:) rate(:,:,105) = rate(:,:,105) * m(:,:) rate(:,:,106) = rate(:,:,106) * m(:,:) rate(:,:,107) = rate(:,:,107) * m(:,:) @@ -90,7 +92,7 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:,149) = rate(:,:,149) * m(:,:) rate(:,:,150) = rate(:,:,150) * m(:,:) rate(:,:,151) = rate(:,:,151) * m(:,:) - rate(:,:,154) = rate(:,:,154) * m(:,:) + rate(:,:,152) = rate(:,:,152) * m(:,:) rate(:,:,155) = rate(:,:,155) * m(:,:) rate(:,:,156) = rate(:,:,156) * m(:,:) rate(:,:,157) = rate(:,:,157) * m(:,:) @@ -125,7 +127,7 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:,186) = rate(:,:,186) * m(:,:) rate(:,:,187) = rate(:,:,187) * m(:,:) rate(:,:,188) = rate(:,:,188) * m(:,:) - rate(:,:,190) = rate(:,:,190) * m(:,:) + rate(:,:,189) = rate(:,:,189) * m(:,:) rate(:,:,191) = rate(:,:,191) * m(:,:) rate(:,:,192) = rate(:,:,192) * m(:,:) rate(:,:,193) = rate(:,:,193) * m(:,:) @@ -198,26 +200,34 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:,260) = rate(:,:,260) * m(:,:) rate(:,:,261) = rate(:,:,261) * m(:,:) rate(:,:,262) = rate(:,:,262) * m(:,:) - rate(:,:,268) = rate(:,:,268) * m(:,:) - rate(:,:,273) = rate(:,:,273) * m(:,:) + rate(:,:,263) = rate(:,:,263) * m(:,:) + rate(:,:,269) = rate(:,:,269) * m(:,:) rate(:,:,274) = rate(:,:,274) * m(:,:) rate(:,:,275) = rate(:,:,275) * m(:,:) - rate(:,:,278) = rate(:,:,278) * m(:,:) + rate(:,:,276) = rate(:,:,276) * m(:,:) rate(:,:,279) = rate(:,:,279) * m(:,:) rate(:,:,280) = rate(:,:,280) * m(:,:) - rate(:,:,283) = rate(:,:,283) * m(:,:) + rate(:,:,281) = rate(:,:,281) * 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(:,:,298) = rate(:,:,298) * 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 8959c236f7..6e5fc42ac1 100644 --- a/src/chemistry/pp_waccm_ma_mam4/mo_indprd.F90 +++ b/src/chemistry/pp_waccm_ma_mam4/mo_indprd.F90 @@ -36,74 +36,83 @@ subroutine indprd( class, prod, nprod, y, extfrc, rxt, chnkpnts ) prod(:,14) = 0._r8 prod(:,15) = 0._r8 prod(:,16) = 0._r8 - prod(:,17) = (rxt(:,241)*y(:,95) +rxt(:,245)*y(:,95))*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(:,131)*y(:,60)*y(:,53) + prod(:,22) =rxt(:,132)*y(:,62)*y(:,55) + prod(:,23) = 0._r8 !-------------------------------------------------------------------- ! ... "independent" production for Implicit species !-------------------------------------------------------------------- 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(:,63) = 0._r8 - prod(:,40) = 0._r8 - prod(:,67) =.180_r8*rxt(:,24)*y(:,22) - prod(:,60) =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(:,54) = 0._r8 - prod(:,39) = (rxt(:,25) +rxt(:,60))*y(:,30) +.380_r8*rxt(:,24)*y(:,22) & + prod(:,72) = 0._r8 + prod(:,56) = 0._r8 + 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(:,57) = (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(:,51) = 0._r8 - prod(:,58) = 0._r8 + prod(:,48) = 0._r8 + prod(:,61) = 0._r8 prod(:,28) = 0._r8 - prod(:,55) = 0._r8 + prod(:,57) = 0._r8 prod(:,36) = 0._r8 prod(:,45) = 0._r8 - prod(:,52) = 0._r8 - prod(:,50) = (.800_r8*rxt(:,63) +rxt(:,65) +.800_r8*rxt(:,67) +rxt(:,69)) & + prod(:,47) = 0._r8 + prod(:,54) = (rxt(:,64) +.800_r8*rxt(:,66) +.800_r8*rxt(:,68) +rxt(:,70)) & + extfrc(:,15) prod(:,31) = 0._r8 prod(:,6) = 0._r8 prod(:,7) = 0._r8 prod(:,8) = 0._r8 - prod(:,68) = + extfrc(:,11) - prod(:,65) = + extfrc(:,12) - prod(:,61) = 0._r8 + 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(:,74) = (rxt(:,25) +rxt(:,60))*y(:,30) +.180_r8*rxt(:,24)*y(:,22) - prod(:,71) = 0._r8 - 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 prod(:,13) = + extfrc(:,7) prod(:,14) = + extfrc(:,8) prod(:,43) = 0._r8 - prod(:,56) = 0._r8 - prod(:,53) = + extfrc(:,13) + prod(:,58) = 0._r8 + prod(:,55) = + extfrc(:,13) prod(:,30) = 0._r8 prod(:,15) = + extfrc(:,9) prod(:,16) = + extfrc(:,1) @@ -111,29 +120,23 @@ subroutine indprd( class, prod, nprod, y, extfrc, rxt, chnkpnts ) prod(:,18) = 0._r8 prod(:,19) = 0._r8 prod(:,20) = 0._r8 - prod(:,59) =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(:,62) =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(:,49) = (rxt(:,62) +rxt(:,64) +rxt(:,65) +rxt(:,66) +rxt(:,68) + & - rxt(:,69)) + extfrc(:,19) + prod(:,52) = (rxt(:,63) +rxt(:,64) +rxt(:,65) +rxt(:,67) +rxt(:,69) + & + rxt(:,70)) + extfrc(:,19) prod(:,64) = 0._r8 - prod(:,38) = (rxt(:,62) +1.200_r8*rxt(:,63) +1.200_r8*rxt(:,67) +rxt(:,68)) & + prod(:,53) = (rxt(:,65) +1.200_r8*rxt(:,66) +1.200_r8*rxt(:,68) +rxt(:,69)) & + extfrc(:,16) - prod(:,42) = (rxt(:,64) +rxt(:,66)) + extfrc(:,17) - prod(:,48) = 0._r8 - prod(:,37) = (rxt(:,62) +rxt(:,65) +rxt(:,68) +rxt(:,69)) + extfrc(:,20) - prod(:,69) =rxt(:,12)*y(:,54) + prod(:,41) = (rxt(:,63) +rxt(:,67)) + extfrc(:,17) + prod(:,44) = 0._r8 + 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(:,47) = + extfrc(:,21) - prod(:,73) =.330_r8*rxt(:,24)*y(:,22) + extfrc(:,22) - prod(:,44) = + extfrc(:,18) - prod(:,75) =.050_r8*rxt(:,24)*y(:,22) + prod(:,51) = + extfrc(:,21) + 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(:,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 4f46c86a05..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,208 +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,395) = -( rxt(k,27) + het_rates(k,4) ) - mat(k,111) = rxt(k,28) - mat(k,106) = -( rxt(k,28) + rxt(k,29) + rxt(k,269) + rxt(k,272) + rxt(k,277) & - + het_rates(k,5) ) - mat(k,502) = -( rxt(k,20) + rxt(k,21) + het_rates(k,16) ) - mat(k,80) = rxt(k,22) - mat(k,549) = rxt(k,243)*y(k,22) + rxt(k,244)*y(k,22) - mat(k,320) = -( het_rates(k,20) ) - mat(k,366) = rxt(k,155)*y(k,22) - mat(k,162) = rxt(k,211)*y(k,22) - mat(k,652) = rxt(k,240)*y(k,22) - mat(k,542) = rxt(k,242)*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,189) + het_rates(k,25) ) - mat(k,479) = -( rxt(k,45) + het_rates(k,26) ) - mat(k,242) = rxt(k,47) - mat(k,67) = rxt(k,59) - mat(k,23) = 2.000_r8*rxt(k,189) - mat(k,236) = -( rxt(k,46) + rxt(k,47) + rxt(k,271) + rxt(k,276) + rxt(k,282) & - + het_rates(k,27) ) - mat(k,102) = -( het_rates(k,29) ) - mat(k,489) = rxt(k,20) + rxt(k,21) - mat(k,70) = rxt(k,87) - mat(k,358) = rxt(k,222)*y(k,19) - mat(k,139) = rxt(k,296)*y(k,30) - mat(k,27) = -( rxt(k,48) + het_rates(k,31) ) - mat(k,533) = rxt(k,180)*y(k,8) + rxt(k,182)*y(k,11) + 2.000_r8*rxt(k,183)*y(k,12) & + 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) & - + rxt(k,206)*y(k,9) + 2.000_r8*rxt(k,208)*y(k,40) & - + rxt(k,232)*y(k,45) + rxt(k,233)*y(k,46) - mat(k,631) = rxt(k,227)*y(k,45) + rxt(k,228)*y(k,46) - mat(k,37) = -( rxt(k,49) + het_rates(k,32) ) - mat(k,535) = rxt(k,181)*y(k,10) + rxt(k,182)*y(k,11) + rxt(k,231)*y(k,44) - mat(k,632) = rxt(k,226)*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,159) = -( rxt(k,211)*y(k,22) + het_rates(k,37) ) + + 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,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,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,536) = rxt(k,184)*y(k,13) + rxt(k,206)*y(k,9) - mat(k,273) = -( het_rates(k,38) ) - mat(k,716) = 2.000_r8*rxt(k,2) + rxt(k,3) - mat(k,492) = 2.000_r8*rxt(k,20) + 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,721) = 2.000_r8*rxt(k,20) mat(k,78) = rxt(k,22) - mat(k,212) = rxt(k,51) - mat(k,287) = rxt(k,55) + mat(k,170) = rxt(k,51) + mat(k,327) = rxt(k,55) mat(k,43) = rxt(k,56) - mat(k,539) = rxt(k,243)*y(k,22) - mat(k,574) = -( het_rates(k,39) ) - mat(k,728) = rxt(k,1) - mat(k,505) = rxt(k,21) - mat(k,552) = rxt(k,244)*y(k,22) - mat(k,114) = -( rxt(k,4) + het_rates(k,41) ) - mat(k,410) = .500_r8*rxt(k,263) - mat(k,24) = -( rxt(k,86) + het_rates(k,42) ) - mat(k,211) = -( rxt(k,51) + het_rates(k,43) ) - mat(k,288) = -( rxt(k,55) + het_rates(k,47) ) - mat(k,364) = rxt(k,155)*y(k,22) + rxt(k,217)*y(k,15) + rxt(k,219)*y(k,17) & - + 2.000_r8*rxt(k,222)*y(k,19) + rxt(k,224)*y(k,23) - mat(k,41) = -( rxt(k,56) + het_rates(k,48) ) - mat(k,158) = rxt(k,211)*y(k,22) - mat(k,248) = -( rxt(k,9) + het_rates(k,49) ) - mat(k,53) = 2.000_r8*rxt(k,264) + 2.000_r8*rxt(k,267) + 2.000_r8*rxt(k,270) & - + 2.000_r8*rxt(k,281) - mat(k,440) = .500_r8*rxt(k,265) - mat(k,337) = rxt(k,266) - mat(k,108) = rxt(k,269) + rxt(k,272) + rxt(k,277) - mat(k,237) = rxt(k,271) + rxt(k,276) + rxt(k,282) - mat(k,83) = -( rxt(k,10) + rxt(k,11) + rxt(k,152) + het_rates(k,50) ) - mat(k,150) = -( rxt(k,57) + het_rates(k,51) ) - mat(k,107) = rxt(k,269) + rxt(k,272) + rxt(k,277) - mat(k,220) = -( rxt(k,58) + het_rates(k,52) ) - mat(k,235) = rxt(k,271) + rxt(k,276) + rxt(k,282) - mat(k,202) = -( rxt(k,61) + het_rates(k,53) ) - mat(k,514) = rxt(k,15) - mat(k,143) = rxt(k,297) - mat(k,52) = -( rxt(k,13) + rxt(k,14) + rxt(k,153) + rxt(k,264) + rxt(k,267) & - + rxt(k,270) + rxt(k,281) + 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,525) = -( rxt(k,15) + rxt(k,16) + het_rates(k,59) ) - mat(k,56) = rxt(k,14) - mat(k,453) = rxt(k,17) + .500_r8*rxt(k,265) - mat(k,349) = rxt(k,19) - mat(k,171) = rxt(k,294) - mat(k,550) = 2.000_r8*rxt(k,146)*y(k,54) - mat(k,450) = -( rxt(k,17) + rxt(k,265) + het_rates(k,60) ) - mat(k,252) = rxt(k,9) - mat(k,86) = rxt(k,11) + rxt(k,152) - mat(k,55) = rxt(k,13) + rxt(k,153) - mat(k,346) = rxt(k,18) - mat(k,112) = rxt(k,28) - mat(k,241) = rxt(k,47) - mat(k,342) = -( rxt(k,18) + rxt(k,19) + rxt(k,266) + het_rates(k,61) ) - mat(k,84) = rxt(k,10) - mat(k,54) = rxt(k,13) + rxt(k,14) + rxt(k,153) - mat(k,110) = rxt(k,29) - mat(k,239) = 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,707) = -( rxt(k,70) + rxt(k,71) + rxt(k,72) + rxt(k,73) + rxt(k,74) & - + rxt(k,75) + het_rates(k,66) ) - mat(k,732) = rxt(k,2) - mat(k,607) = 2.000_r8*rxt(k,5) + rxt(k,6) + rxt(k,76) + rxt(k,78) + rxt(k,80) & - + 2.000_r8*rxt(k,81) + 2.000_r8*rxt(k,82) + rxt(k,83) + rxt(k,84) & - + rxt(k,85) - mat(k,629) = rxt(k,8) + mat(k,542) = rxt(k,244)*y(k,23) + mat(k,574) = -( het_rates(k,41) ) + mat(k,757) = rxt(k,1) + 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,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,441) = .500_r8*rxt(k,266) + mat(k,364) = rxt(k,267) + 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,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,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,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,531) = rxt(k,15) - mat(k,459) = rxt(k,17) - mat(k,355) = rxt(k,18) - mat(k,406) = rxt(k,27) - mat(k,487) = rxt(k,45) - mat(k,68) = rxt(k,59) - mat(k,271) = rxt(k,88) - mat(k,232) = rxt(k,89) - mat(k,50) = rxt(k,90) - mat(k,556) = rxt(k,95) - mat(k,604) = -( rxt(k,5) + rxt(k,6) + rxt(k,76) + 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) + het_rates(k,67) ) - mat(k,626) = rxt(k,8) - mat(k,352) = rxt(k,19) - mat(k,31) = rxt(k,91) + rxt(k,99) - mat(k,34) = rxt(k,92) - mat(k,553) = rxt(k,147)*y(k,54) - mat(k,627) = -( 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,87) + het_rates(k,70) ) - mat(k,13) = -( het_rates(k,71) ) - mat(k,14) = -( het_rates(k,72) ) - mat(k,132) = -( het_rates(k,73) ) - mat(k,71) = rxt(k,87) - mat(k,257) = rxt(k,88) - mat(k,259) = -( rxt(k,88) + het_rates(k,74) ) - mat(k,229) = rxt(k,89) - mat(k,228) = -( rxt(k,89) + het_rates(k,75) ) - mat(k,49) = rxt(k,90) - mat(k,48) = -( rxt(k,90) + het_rates(k,76) ) - mat(k,25) = rxt(k,86) - mat(k,15) = -( het_rates(k,77) ) - mat(k,16) = -( het_rates(k,78) ) - mat(k,17) = -( het_rates(k,79) ) - mat(k,18) = -( het_rates(k,80) ) - mat(k,19) = -( het_rates(k,81) ) - mat(k,20) = -( het_rates(k,82) ) - mat(k,307) = -( het_rates(k,83) ) - mat(k,45) = rxt(k,26) - mat(k,391) = rxt(k,27) - mat(k,109) = rxt(k,29) - mat(k,213) = rxt(k,51) - mat(k,152) = rxt(k,57) - mat(k,541) = rxt(k,180)*y(k,8) + rxt(k,206)*y(k,9) + 3.000_r8*rxt(k,207)*y(k,23) & - + 2.000_r8*rxt(k,208)*y(k,40) + 2.000_r8*rxt(k,229)*y(k,15) & - + rxt(k,230)*y(k,17) - mat(k,365) = 2.000_r8*rxt(k,217)*y(k,15) + rxt(k,219)*y(k,17) & - + 3.000_r8*rxt(k,224)*y(k,23) - mat(k,651) = 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,368) = -( rxt(k,155)*y(k,22) + rxt(k,217)*y(k,15) + rxt(k,219)*y(k,17) & - + rxt(k,222)*y(k,19) + rxt(k,224)*y(k,23) + het_rates(k,84) ) - 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,475) = rxt(k,45) - mat(k,240) = rxt(k,46) - mat(k,39) = rxt(k,49) - mat(k,292) = rxt(k,55) - mat(k,222) = rxt(k,58) - mat(k,544) = 4.000_r8*rxt(k,179)*y(k,7) + rxt(k,180)*y(k,8) & - + 2.000_r8*rxt(k,181)*y(k,10) + 2.000_r8*rxt(k,182)*y(k,11) & - + 2.000_r8*rxt(k,183)*y(k,12) + rxt(k,184)*y(k,13) & - + 2.000_r8*rxt(k,185)*y(k,14) + rxt(k,231)*y(k,44) & - + rxt(k,232)*y(k,45) + rxt(k,233)*y(k,46) - mat(k,654) = 3.000_r8*rxt(k,221)*y(k,18) + rxt(k,223)*y(k,19) & - + rxt(k,226)*y(k,44) + rxt(k,227)*y(k,45) + rxt(k,228)*y(k,46) - mat(k,188) = -( het_rates(k,85) ) - mat(k,513) = rxt(k,16) - mat(k,201) = rxt(k,61) - mat(k,682) = rxt(k,70) + rxt(k,71) + rxt(k,72) + rxt(k,73) + rxt(k,74) & - + rxt(k,75) - mat(k,589) = rxt(k,76) + rxt(k,77) + rxt(k,78) + rxt(k,79) + rxt(k,80) & - + rxt(k,83) + rxt(k,84) + rxt(k,85) - mat(k,421) = -( rxt(k,263) + het_rates(k,86) ) - mat(k,85) = rxt(k,11) + rxt(k,152) - mat(k,370) = rxt(k,219)*y(k,17) + rxt(k,222)*y(k,19) - mat(k,656) = rxt(k,220)*y(k,17) + rxt(k,223)*y(k,19) - mat(k,546) = rxt(k,243)*y(k,22) - mat(k,97) = -( het_rates(k,87) ) - mat(k,122) = -( het_rates(k,88) ) - mat(k,176) = -( het_rates(k,89) ) - mat(k,512) = rxt(k,16) - mat(k,168) = rxt(k,294) - mat(k,142) = rxt(k,297) + 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,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,107) = rxt(k,29) + mat(k,265) = rxt(k,46) + 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,68) ) + mat(k,754) = rxt(k,2) + 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,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,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,550) = rxt(k,96) + mat(k,101) = rxt(k,305) + mat(k,95) = rxt(k,310) + 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,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,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,77) ) + mat(k,255) = rxt(k,90) + 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,79) ) + mat(k,25) = rxt(k,87) + 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,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,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,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 ) @@ -249,48 +246,65 @@ subroutine linmat02( avec_len, mat, y, rxt, het_rates ) !---------------------------------------------- integer :: k do k = 1,avec_len - mat(k,90) = -( het_rates(k,90) ) - mat(k,197) = rxt(k,61) - mat(k,551) = -( rxt(k,95) + rxt(k,146)*y(k,54) + rxt(k,147)*y(k,54) & - + rxt(k,179)*y(k,7) + rxt(k,180)*y(k,8) + rxt(k,181)*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,206)*y(k,9) + rxt(k,207)*y(k,23) & - + rxt(k,208)*y(k,40) + rxt(k,229)*y(k,15) + rxt(k,230)*y(k,17) & - + rxt(k,231)*y(k,44) + rxt(k,232)*y(k,45) + rxt(k,233)*y(k,46) & - + rxt(k,242)*y(k,22) + rxt(k,243)*y(k,22) + rxt(k,244)*y(k,22) & - + het_rates(k,91) ) - mat(k,727) = rxt(k,1) - mat(k,602) = rxt(k,6) - mat(k,624) = rxt(k,7) - mat(k,30) = -( rxt(k,91) + rxt(k,99) + het_rates(k,92) ) - mat(k,609) = rxt(k,7) - mat(k,32) = rxt(k,103) + rxt(k,102)*y(k,30) - mat(k,33) = -( rxt(k,92) + rxt(k,103) + rxt(k,102)*y(k,30) + het_rates(k,93) ) - mat(k,167) = -( rxt(k,294) + het_rates(k,94) ) - mat(k,587) = rxt(k,77) + rxt(k,79) - mat(k,141) = rxt(k,296)*y(k,30) - mat(k,665) = -( rxt(k,218)*y(k,15) + rxt(k,220)*y(k,17) + rxt(k,221)*y(k,18) & - + rxt(k,223)*y(k,19) + rxt(k,225)*y(k,23) + rxt(k,226)*y(k,44) & - + rxt(k,227)*y(k,45) + rxt(k,228)*y(k,46) + rxt(k,240)*y(k,22) & - + het_rates(k,95) ) - mat(k,731) = rxt(k,3) - mat(k,118) = 2.000_r8*rxt(k,4) - mat(k,254) = rxt(k,9) + mat(k,229) = -( het_rates(k,88) ) + 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,582) = rxt(k,16) + mat(k,199) = rxt(k,298) + mat(k,187) = rxt(k,301) + mat(k,178) = -( het_rates(k,91) ) + mat(k,239) = rxt(k,62) + mat(k,93) = rxt(k,311) + 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,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,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,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,129) = 2.000_r8*rxt(k,4) + mat(k,280) = rxt(k,9) mat(k,88) = rxt(k,10) - mat(k,81) = rxt(k,22) - mat(k,155) = rxt(k,57) - mat(k,224) = rxt(k,58) - mat(k,458) = .500_r8*rxt(k,265) - mat(k,555) = rxt(k,242)*y(k,22) - mat(k,140) = -( rxt(k,297) + rxt(k,296)*y(k,30) + het_rates(k,96) ) - mat(k,678) = rxt(k,70) + rxt(k,71) + rxt(k,72) + rxt(k,73) + rxt(k,74) & - + rxt(k,75) - mat(k,586) = rxt(k,76) + rxt(k,78) + rxt(k,80) + rxt(k,83) + rxt(k,84) & - + rxt(k,85) - mat(k,733) = -( rxt(k,1) + rxt(k,2) + rxt(k,3) + het_rates(k,97) ) - mat(k,26) = rxt(k,86) - mat(k,667) = rxt(k,218)*y(k,15) + rxt(k,220)*y(k,17) + rxt(k,221)*y(k,18) & - + rxt(k,223)*y(k,19) + rxt(k,228)*y(k,46) + rxt(k,240)*y(k,22) + mat(k,80) = rxt(k,22) + mat(k,149) = rxt(k,57) + mat(k,167) = rxt(k,58) + 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,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,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,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,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 f1ac68b1bf..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,86 +40,86 @@ 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,475) = lu(k,475) - lu(k,22) * lu(k,461) - lu(k,479) = lu(k,479) - lu(k,23) * lu(k,461) + 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) lu(k,48) = lu(k,48) - lu(k,25) * lu(k,47) lu(k,51) = lu(k,51) - lu(k,26) * lu(k,47) - lu(k,711) = lu(k,711) - lu(k,25) * lu(k,709) - lu(k,733) = lu(k,733) - lu(k,26) * lu(k,709) + lu(k,742) = lu(k,742) - lu(k,25) * lu(k,740) + lu(k,764) = lu(k,764) - lu(k,26) * lu(k,740) 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,536) = lu(k,536) - lu(k,28) * lu(k,533) - lu(k,551) = lu(k,551) - lu(k,29) * lu(k,533) - lu(k,641) = - lu(k,28) * lu(k,631) - lu(k,661) = - lu(k,29) * lu(k,631) + 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,604) = lu(k,604) - lu(k,31) * lu(k,580) - lu(k,626) = lu(k,626) - lu(k,31) * lu(k,609) - lu(k,704) = lu(k,704) - lu(k,31) * lu(k,668) + 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,553) = lu(k,553) - lu(k,34) * lu(k,534) - lu(k,604) = lu(k,604) - lu(k,34) * lu(k,581) - lu(k,626) = lu(k,626) - lu(k,34) * lu(k,610) - lu(k,704) = lu(k,704) - lu(k,34) * lu(k,669) + 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,222) = lu(k,222) - lu(k,36) * lu(k,219) - lu(k,240) = lu(k,240) - lu(k,36) * lu(k,234) - lu(k,292) = lu(k,292) - lu(k,36) * lu(k,281) - lu(k,368) = lu(k,368) - lu(k,36) * lu(k,357) - lu(k,475) = lu(k,475) - lu(k,36) * lu(k,462) + 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,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,536) = lu(k,536) - lu(k,38) * lu(k,535) - lu(k,544) = lu(k,544) - lu(k,39) * lu(k,535) - lu(k,551) = lu(k,551) - lu(k,40) * lu(k,535) - lu(k,641) = lu(k,641) - lu(k,38) * lu(k,632) - lu(k,654) = lu(k,654) - lu(k,39) * lu(k,632) - lu(k,661) = lu(k,661) - lu(k,40) * lu(k,632) + 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) - lu(k,159) = lu(k,159) - lu(k,42) * lu(k,158) - lu(k,161) = lu(k,161) - lu(k,43) * lu(k,158) - lu(k,247) = lu(k,247) - lu(k,42) * lu(k,246) - lu(k,249) = - lu(k,43) * lu(k,246) - lu(k,559) = lu(k,559) - lu(k,42) * lu(k,558) - lu(k,561) = lu(k,561) - lu(k,43) * lu(k,558) - lu(k,712) = lu(k,712) - lu(k,42) * lu(k,710) - lu(k,716) = lu(k,716) - lu(k,43) * lu(k,710) + lu(k,153) = lu(k,153) - lu(k,42) * lu(k,152) + 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,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) lu(k,45) = lu(k,45) * lu(k,44) lu(k,46) = lu(k,46) * lu(k,44) - lu(k,152) = lu(k,152) - lu(k,45) * lu(k,149) - lu(k,153) = - lu(k,46) * lu(k,149) - lu(k,289) = - lu(k,45) * lu(k,282) - lu(k,292) = lu(k,292) - lu(k,46) * lu(k,282) - lu(k,391) = lu(k,391) - lu(k,45) * lu(k,382) - lu(k,394) = lu(k,394) - lu(k,46) * lu(k,382) - lu(k,472) = lu(k,472) - lu(k,45) * lu(k,463) - lu(k,475) = lu(k,475) - lu(k,46) * lu(k,463) + lu(k,145) = lu(k,145) - lu(k,45) * lu(k,143) + 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,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) lu(k,51) = lu(k,51) * lu(k,48) - lu(k,228) = lu(k,228) - lu(k,49) * lu(k,227) - lu(k,232) = lu(k,232) - lu(k,50) * lu(k,227) - lu(k,233) = - lu(k,51) * lu(k,227) - lu(k,645) = lu(k,645) - lu(k,49) * lu(k,633) - lu(k,666) = lu(k,666) - lu(k,50) * lu(k,633) - lu(k,667) = lu(k,667) - lu(k,51) * lu(k,633) - lu(k,713) = - lu(k,49) * lu(k,711) - lu(k,732) = lu(k,732) - lu(k,50) * lu(k,711) - lu(k,733) = lu(k,733) - lu(k,51) * lu(k,711) + 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,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) end do end subroutine lu_fac01 subroutine lu_fac02( avec_len, lu ) @@ -142,49 +142,49 @@ subroutine lu_fac02( avec_len, lu ) lu(k,55) = lu(k,55) * lu(k,52) lu(k,56) = lu(k,56) * lu(k,52) lu(k,57) = lu(k,57) * lu(k,52) - lu(k,337) = lu(k,337) - lu(k,53) * lu(k,333) - lu(k,342) = lu(k,342) - lu(k,54) * lu(k,333) - lu(k,346) = lu(k,346) - lu(k,55) * lu(k,333) - lu(k,349) = lu(k,349) - lu(k,56) * lu(k,333) - lu(k,355) = lu(k,355) - lu(k,57) * lu(k,333) - lu(k,440) = lu(k,440) - lu(k,53) * lu(k,433) - lu(k,446) = lu(k,446) - lu(k,54) * lu(k,433) - lu(k,450) = lu(k,450) - lu(k,55) * lu(k,433) - lu(k,453) = lu(k,453) - lu(k,56) * lu(k,433) - lu(k,459) = lu(k,459) - lu(k,57) * lu(k,433) + 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,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) 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,336) = lu(k,336) - lu(k,59) * lu(k,334) - lu(k,337) = lu(k,337) - lu(k,60) * lu(k,334) - lu(k,342) = lu(k,342) - lu(k,61) * lu(k,334) - lu(k,345) = lu(k,345) - lu(k,62) * lu(k,334) - lu(k,354) = lu(k,354) - lu(k,63) * lu(k,334) - lu(k,645) = lu(k,645) - lu(k,59) * lu(k,634) - lu(k,647) = lu(k,647) - lu(k,60) * lu(k,634) - lu(k,653) = lu(k,653) - lu(k,61) * lu(k,634) - lu(k,656) = lu(k,656) - lu(k,62) * lu(k,634) - lu(k,665) = lu(k,665) - lu(k,63) * lu(k,634) + lu(k,363) = lu(k,363) - lu(k,59) * lu(k,361) + lu(k,364) = lu(k,364) - lu(k,60) * lu(k,361) + 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,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) lu(k,67) = lu(k,67) * lu(k,64) lu(k,68) = lu(k,68) * lu(k,64) - lu(k,258) = lu(k,258) - lu(k,65) * lu(k,256) - lu(k,259) = lu(k,259) - lu(k,66) * lu(k,256) - lu(k,266) = lu(k,266) - lu(k,67) * lu(k,256) - lu(k,271) = lu(k,271) - lu(k,68) * lu(k,256) - lu(k,386) = lu(k,386) - lu(k,65) * lu(k,383) - lu(k,388) = lu(k,388) - lu(k,66) * lu(k,383) - lu(k,398) = lu(k,398) - lu(k,67) * lu(k,383) - lu(k,406) = lu(k,406) - lu(k,68) * lu(k,383) - lu(k,466) = lu(k,466) - lu(k,65) * lu(k,464) - lu(k,469) = lu(k,469) - lu(k,66) * lu(k,464) - lu(k,479) = lu(k,479) - lu(k,67) * lu(k,464) - lu(k,487) = lu(k,487) - lu(k,68) * lu(k,464) + 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,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,41 +193,41 @@ 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,638) = lu(k,638) - lu(k,70) * lu(k,635) - lu(k,640) = lu(k,640) - lu(k,71) * lu(k,635) - lu(k,645) = lu(k,645) - lu(k,72) * lu(k,635) - lu(k,648) = lu(k,648) - lu(k,73) * lu(k,635) - lu(k,649) = lu(k,649) - lu(k,74) * lu(k,635) - lu(k,665) = lu(k,665) - lu(k,75) * lu(k,635) - lu(k,666) = lu(k,666) - lu(k,76) * lu(k,635) - lu(k,673) = lu(k,673) - lu(k,70) * lu(k,670) - lu(k,677) = - lu(k,71) * lu(k,670) - lu(k,686) = - lu(k,72) * lu(k,670) - lu(k,689) = lu(k,689) - lu(k,73) * lu(k,670) - lu(k,690) = lu(k,690) - lu(k,74) * lu(k,670) - lu(k,706) = lu(k,706) - lu(k,75) * lu(k,670) - lu(k,707) = lu(k,707) - lu(k,76) * lu(k,670) + 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,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) 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,319) = - lu(k,78) * lu(k,318) - lu(k,320) = lu(k,320) - lu(k,79) * lu(k,318) - lu(k,325) = lu(k,325) - lu(k,80) * lu(k,318) - lu(k,330) = - lu(k,81) * lu(k,318) - lu(k,332) = - lu(k,82) * lu(k,318) - lu(k,414) = lu(k,414) - lu(k,78) * lu(k,408) - lu(k,417) = lu(k,417) - lu(k,79) * lu(k,408) - lu(k,424) = - lu(k,80) * lu(k,408) - lu(k,430) = lu(k,430) - lu(k,81) * lu(k,408) - lu(k,432) = lu(k,432) - lu(k,82) * lu(k,408) - lu(k,649) = lu(k,649) - lu(k,78) * lu(k,636) - lu(k,652) = lu(k,652) - lu(k,79) * lu(k,636) - lu(k,659) = lu(k,659) - lu(k,80) * lu(k,636) - lu(k,665) = lu(k,665) - lu(k,81) * lu(k,636) - lu(k,667) = lu(k,667) - lu(k,82) * lu(k,636) + lu(k,346) = - lu(k,78) * lu(k,345) + lu(k,347) = lu(k,347) - lu(k,79) * 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,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,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) @@ -235,24 +235,24 @@ subroutine lu_fac02( avec_len, lu ) lu(k,87) = lu(k,87) * lu(k,83) lu(k,88) = lu(k,88) * lu(k,83) lu(k,89) = lu(k,89) * lu(k,83) - lu(k,418) = lu(k,418) - lu(k,84) * lu(k,409) - lu(k,421) = lu(k,421) - lu(k,85) * lu(k,409) - lu(k,422) = lu(k,422) - lu(k,86) * lu(k,409) - lu(k,428) = lu(k,428) - lu(k,87) * lu(k,409) - lu(k,430) = lu(k,430) - lu(k,88) * lu(k,409) - lu(k,432) = lu(k,432) - lu(k,89) * lu(k,409) - lu(k,446) = lu(k,446) - lu(k,84) * lu(k,434) - lu(k,449) = lu(k,449) - lu(k,85) * lu(k,434) - lu(k,450) = lu(k,450) - lu(k,86) * lu(k,434) - lu(k,456) = lu(k,456) - lu(k,87) * lu(k,434) - lu(k,458) = lu(k,458) - lu(k,88) * lu(k,434) - lu(k,460) = - lu(k,89) * lu(k,434) - lu(k,653) = lu(k,653) - lu(k,84) * lu(k,637) - lu(k,656) = lu(k,656) - lu(k,85) * lu(k,637) - lu(k,657) = lu(k,657) - lu(k,86) * lu(k,637) - lu(k,663) = lu(k,663) - lu(k,87) * lu(k,637) - lu(k,665) = lu(k,665) - lu(k,88) * lu(k,637) - lu(k,667) = lu(k,667) - lu(k,89) * lu(k,637) + 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,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,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) @@ -260,24 +260,24 @@ subroutine lu_fac02( avec_len, lu ) lu(k,94) = lu(k,94) * lu(k,90) lu(k,95) = lu(k,95) * lu(k,90) lu(k,96) = lu(k,96) * lu(k,90) - lu(k,198) = - lu(k,91) * lu(k,197) - lu(k,199) = lu(k,199) - lu(k,92) * lu(k,197) - lu(k,200) = lu(k,200) - lu(k,93) * lu(k,197) - lu(k,202) = lu(k,202) - lu(k,94) * lu(k,197) - lu(k,208) = lu(k,208) - lu(k,95) * lu(k,197) - lu(k,210) = lu(k,210) - lu(k,96) * lu(k,197) - lu(k,586) = lu(k,586) - lu(k,91) * lu(k,582) - lu(k,587) = lu(k,587) - lu(k,92) * lu(k,582) - lu(k,588) = lu(k,588) - lu(k,93) * lu(k,582) - lu(k,590) = lu(k,590) - lu(k,94) * lu(k,582) - lu(k,604) = lu(k,604) - lu(k,95) * lu(k,582) - lu(k,607) = lu(k,607) - lu(k,96) * lu(k,582) - lu(k,678) = lu(k,678) - lu(k,91) * lu(k,671) - lu(k,680) = - lu(k,92) * lu(k,671) - lu(k,681) = lu(k,681) - lu(k,93) * lu(k,671) - lu(k,683) = lu(k,683) - lu(k,94) * lu(k,671) - lu(k,704) = lu(k,704) - lu(k,95) * lu(k,671) - lu(k,707) = lu(k,707) - lu(k,96) * lu(k,671) + lu(k,209) = lu(k,209) - lu(k,91) * lu(k,208) + lu(k,210) = lu(k,210) - lu(k,92) * lu(k,208) + 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,223) = - lu(k,96) * lu(k,208) + lu(k,466) = lu(k,466) - lu(k,91) * 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,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 ) @@ -299,148 +299,177 @@ subroutine lu_fac03( avec_len, lu ) lu(k,99) = lu(k,99) * lu(k,97) lu(k,100) = lu(k,100) * lu(k,97) lu(k,101) = lu(k,101) * lu(k,97) - lu(k,127) = lu(k,127) - lu(k,98) * lu(k,121) - lu(k,128) = - lu(k,99) * lu(k,121) - lu(k,129) = - lu(k,100) * lu(k,121) - lu(k,130) = lu(k,130) - lu(k,101) * lu(k,121) - lu(k,178) = lu(k,178) - lu(k,98) * lu(k,175) - lu(k,179) = - lu(k,99) * lu(k,175) - lu(k,180) = - lu(k,100) * lu(k,175) - lu(k,181) = - lu(k,101) * lu(k,175) - lu(k,189) = lu(k,189) - lu(k,98) * lu(k,183) - lu(k,192) = - lu(k,99) * lu(k,183) - lu(k,193) = lu(k,193) - lu(k,100) * lu(k,183) - lu(k,194) = - lu(k,101) * lu(k,183) - lu(k,590) = lu(k,590) - lu(k,98) * lu(k,583) - lu(k,601) = lu(k,601) - lu(k,99) * lu(k,583) - lu(k,602) = lu(k,602) - lu(k,100) * lu(k,583) - lu(k,604) = lu(k,604) - lu(k,101) * lu(k,583) - lu(k,683) = lu(k,683) - lu(k,98) * lu(k,672) - lu(k,701) = lu(k,701) - lu(k,99) * lu(k,672) - lu(k,702) = - lu(k,100) * lu(k,672) - lu(k,704) = lu(k,704) - lu(k,101) * lu(k,672) - 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,144) = - lu(k,103) * lu(k,139) - lu(k,145) = - lu(k,104) * lu(k,139) - lu(k,147) = - lu(k,105) * lu(k,139) - lu(k,306) = - lu(k,103) * lu(k,304) - lu(k,309) = lu(k,309) - lu(k,104) * lu(k,304) - lu(k,315) = - lu(k,105) * lu(k,304) - lu(k,339) = - lu(k,103) * lu(k,335) - lu(k,345) = lu(k,345) - lu(k,104) * lu(k,335) - lu(k,354) = lu(k,354) - lu(k,105) * lu(k,335) - lu(k,363) = lu(k,363) - lu(k,103) * lu(k,358) - lu(k,370) = lu(k,370) - lu(k,104) * lu(k,358) - lu(k,379) = lu(k,379) - lu(k,105) * lu(k,358) - lu(k,492) = lu(k,492) - lu(k,103) * lu(k,489) - lu(k,499) = lu(k,499) - lu(k,104) * lu(k,489) - lu(k,508) = lu(k,508) - lu(k,105) * lu(k,489) - lu(k,649) = lu(k,649) - lu(k,103) * lu(k,638) - lu(k,656) = lu(k,656) - lu(k,104) * lu(k,638) - lu(k,665) = lu(k,665) - lu(k,105) * lu(k,638) - lu(k,690) = lu(k,690) - lu(k,103) * lu(k,673) - lu(k,697) = lu(k,697) - lu(k,104) * lu(k,673) - lu(k,706) = lu(k,706) - lu(k,105) * lu(k,673) - lu(k,106) = 1._r8 / lu(k,106) - lu(k,107) = lu(k,107) * lu(k,106) - lu(k,108) = lu(k,108) * lu(k,106) - lu(k,109) = lu(k,109) * lu(k,106) - lu(k,110) = lu(k,110) * lu(k,106) - lu(k,111) = lu(k,111) * lu(k,106) - lu(k,112) = lu(k,112) * lu(k,106) - lu(k,113) = lu(k,113) * lu(k,106) - lu(k,385) = lu(k,385) - lu(k,107) * lu(k,384) - lu(k,387) = - lu(k,108) * lu(k,384) - lu(k,391) = lu(k,391) - lu(k,109) * lu(k,384) - lu(k,393) = - lu(k,110) * lu(k,384) - lu(k,395) = lu(k,395) - lu(k,111) * lu(k,384) - lu(k,397) = lu(k,397) - lu(k,112) * lu(k,384) - lu(k,406) = lu(k,406) - lu(k,113) * lu(k,384) - lu(k,436) = - lu(k,107) * lu(k,435) - lu(k,440) = lu(k,440) - lu(k,108) * lu(k,435) - lu(k,444) = - lu(k,109) * lu(k,435) - lu(k,446) = lu(k,446) - lu(k,110) * lu(k,435) - lu(k,448) = lu(k,448) - lu(k,111) * lu(k,435) - lu(k,450) = lu(k,450) - lu(k,112) * lu(k,435) - lu(k,459) = lu(k,459) - lu(k,113) * lu(k,435) - lu(k,679) = lu(k,679) - lu(k,107) * lu(k,674) - lu(k,688) = - lu(k,108) * lu(k,674) - lu(k,692) = lu(k,692) - lu(k,109) * lu(k,674) - lu(k,694) = lu(k,694) - lu(k,110) * lu(k,674) - lu(k,696) = lu(k,696) - lu(k,111) * lu(k,674) - lu(k,698) = lu(k,698) - lu(k,112) * lu(k,674) - lu(k,707) = lu(k,707) - lu(k,113) * lu(k,674) - lu(k,114) = 1._r8 / lu(k,114) - lu(k,115) = lu(k,115) * lu(k,114) - lu(k,116) = lu(k,116) * lu(k,114) - lu(k,117) = lu(k,117) * lu(k,114) - lu(k,118) = lu(k,118) * lu(k,114) - lu(k,119) = lu(k,119) * lu(k,114) - lu(k,120) = lu(k,120) * lu(k,114) - lu(k,364) = lu(k,364) - lu(k,115) * lu(k,359) - lu(k,368) = lu(k,368) - lu(k,116) * lu(k,359) - lu(k,370) = lu(k,370) - lu(k,117) * lu(k,359) - lu(k,379) = lu(k,379) - lu(k,118) * lu(k,359) - lu(k,380) = - lu(k,119) * lu(k,359) - lu(k,381) = - lu(k,120) * lu(k,359) - lu(k,415) = lu(k,415) - lu(k,115) * lu(k,410) - lu(k,419) = lu(k,419) - lu(k,116) * lu(k,410) - lu(k,421) = lu(k,421) - lu(k,117) * lu(k,410) - lu(k,430) = lu(k,430) - lu(k,118) * lu(k,410) - lu(k,431) = lu(k,431) - lu(k,119) * lu(k,410) - lu(k,432) = lu(k,432) - lu(k,120) * lu(k,410) - lu(k,650) = lu(k,650) - lu(k,115) * lu(k,639) - lu(k,654) = lu(k,654) - lu(k,116) * lu(k,639) - lu(k,656) = lu(k,656) - lu(k,117) * lu(k,639) - lu(k,665) = lu(k,665) - lu(k,118) * lu(k,639) - lu(k,666) = lu(k,666) - lu(k,119) * lu(k,639) - lu(k,667) = lu(k,667) - lu(k,120) * lu(k,639) - lu(k,691) = lu(k,691) - lu(k,115) * lu(k,675) - lu(k,695) = lu(k,695) - lu(k,116) * lu(k,675) - lu(k,697) = lu(k,697) - lu(k,117) * lu(k,675) - lu(k,706) = lu(k,706) - lu(k,118) * lu(k,675) - lu(k,707) = lu(k,707) - lu(k,119) * lu(k,675) - lu(k,708) = - lu(k,120) * lu(k,675) - 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,131) = lu(k,131) * lu(k,122) - lu(k,185) = - lu(k,123) * lu(k,184) - lu(k,186) = lu(k,186) - lu(k,124) * lu(k,184) - lu(k,187) = lu(k,187) - lu(k,125) * lu(k,184) - lu(k,188) = lu(k,188) - lu(k,126) * lu(k,184) - lu(k,189) = lu(k,189) - lu(k,127) * lu(k,184) - lu(k,192) = lu(k,192) - lu(k,128) * lu(k,184) - lu(k,193) = lu(k,193) - lu(k,129) * lu(k,184) - lu(k,194) = lu(k,194) - lu(k,130) * lu(k,184) - lu(k,196) = lu(k,196) - lu(k,131) * lu(k,184) - lu(k,586) = lu(k,586) - lu(k,123) * lu(k,584) - lu(k,587) = lu(k,587) - lu(k,124) * lu(k,584) - lu(k,588) = lu(k,588) - lu(k,125) * lu(k,584) - lu(k,589) = lu(k,589) - lu(k,126) * lu(k,584) - lu(k,590) = lu(k,590) - lu(k,127) * lu(k,584) - lu(k,601) = lu(k,601) - lu(k,128) * lu(k,584) - lu(k,602) = lu(k,602) - lu(k,129) * lu(k,584) - lu(k,604) = lu(k,604) - lu(k,130) * lu(k,584) - lu(k,607) = lu(k,607) - lu(k,131) * lu(k,584) - lu(k,678) = lu(k,678) - lu(k,123) * lu(k,676) - lu(k,680) = lu(k,680) - lu(k,124) * lu(k,676) - lu(k,681) = lu(k,681) - lu(k,125) * lu(k,676) - lu(k,682) = lu(k,682) - lu(k,126) * lu(k,676) - lu(k,683) = lu(k,683) - lu(k,127) * lu(k,676) - lu(k,701) = lu(k,701) - lu(k,128) * lu(k,676) - lu(k,702) = lu(k,702) - lu(k,129) * lu(k,676) - lu(k,704) = lu(k,704) - lu(k,130) * lu(k,676) - lu(k,707) = lu(k,707) - lu(k,131) * lu(k,676) + lu(k,102) = lu(k,102) * lu(k,97) + lu(k,210) = lu(k,210) - lu(k,98) * lu(k,209) + 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,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,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,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) + 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,121) = lu(k,121) * lu(k,115) + 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) + lu(k,134) = lu(k,134) * lu(k,131) + lu(k,135) = lu(k,135) * lu(k,131) + lu(k,136) = lu(k,136) * lu(k,131) + lu(k,137) = lu(k,137) * lu(k,131) + 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,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,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,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 ) @@ -457,170 +486,178 @@ subroutine lu_fac04( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,132) = 1._r8 / lu(k,132) - lu(k,133) = lu(k,133) * lu(k,132) - lu(k,134) = lu(k,134) * lu(k,132) - lu(k,135) = lu(k,135) * lu(k,132) - lu(k,136) = lu(k,136) * lu(k,132) - lu(k,137) = lu(k,137) * lu(k,132) - lu(k,138) = lu(k,138) * lu(k,132) - lu(k,259) = lu(k,259) - lu(k,133) * lu(k,257) - lu(k,260) = lu(k,260) - lu(k,134) * lu(k,257) - lu(k,268) = lu(k,268) - lu(k,135) * lu(k,257) - lu(k,269) = lu(k,269) - lu(k,136) * lu(k,257) - lu(k,270) = lu(k,270) - lu(k,137) * lu(k,257) - lu(k,271) = lu(k,271) - lu(k,138) * lu(k,257) - lu(k,592) = lu(k,592) - lu(k,133) * lu(k,585) - lu(k,593) = lu(k,593) - lu(k,134) * lu(k,585) - lu(k,604) = lu(k,604) - lu(k,135) * lu(k,585) - lu(k,605) = lu(k,605) - lu(k,136) * lu(k,585) - lu(k,606) = - lu(k,137) * lu(k,585) - lu(k,607) = lu(k,607) - lu(k,138) * lu(k,585) - lu(k,613) = lu(k,613) - lu(k,133) * lu(k,611) - lu(k,614) = lu(k,614) - lu(k,134) * lu(k,611) - lu(k,626) = lu(k,626) - lu(k,135) * lu(k,611) - lu(k,627) = lu(k,627) - lu(k,136) * lu(k,611) - lu(k,628) = lu(k,628) - lu(k,137) * lu(k,611) - lu(k,629) = lu(k,629) - lu(k,138) * lu(k,611) - lu(k,648) = lu(k,648) - lu(k,133) * lu(k,640) - lu(k,649) = lu(k,649) - lu(k,134) * lu(k,640) - lu(k,663) = lu(k,663) - lu(k,135) * lu(k,640) - lu(k,664) = lu(k,664) - lu(k,136) * lu(k,640) - lu(k,665) = lu(k,665) - lu(k,137) * lu(k,640) - lu(k,666) = lu(k,666) - lu(k,138) * lu(k,640) - lu(k,689) = lu(k,689) - lu(k,133) * lu(k,677) - lu(k,690) = lu(k,690) - lu(k,134) * lu(k,677) - lu(k,704) = lu(k,704) - lu(k,135) * lu(k,677) - lu(k,705) = lu(k,705) - lu(k,136) * lu(k,677) - lu(k,706) = lu(k,706) - lu(k,137) * lu(k,677) - lu(k,707) = lu(k,707) - lu(k,138) * lu(k,677) - lu(k,140) = 1._r8 / lu(k,140) - lu(k,141) = lu(k,141) * lu(k,140) - lu(k,142) = lu(k,142) * lu(k,140) - lu(k,143) = lu(k,143) * lu(k,140) - lu(k,144) = lu(k,144) * lu(k,140) - lu(k,145) = lu(k,145) * lu(k,140) - lu(k,146) = lu(k,146) * lu(k,140) - lu(k,147) = lu(k,147) * lu(k,140) - lu(k,148) = lu(k,148) * lu(k,140) - lu(k,186) = lu(k,186) - lu(k,141) * lu(k,185) - lu(k,187) = lu(k,187) - lu(k,142) * lu(k,185) - lu(k,189) = lu(k,189) - lu(k,143) * lu(k,185) - lu(k,190) = - lu(k,144) * lu(k,185) - lu(k,191) = - lu(k,145) * lu(k,185) - lu(k,194) = lu(k,194) - lu(k,146) * lu(k,185) - lu(k,195) = - lu(k,147) * lu(k,185) - lu(k,196) = lu(k,196) - lu(k,148) * lu(k,185) - lu(k,199) = lu(k,199) - lu(k,141) * lu(k,198) - lu(k,200) = lu(k,200) - lu(k,142) * lu(k,198) - lu(k,202) = lu(k,202) - lu(k,143) * lu(k,198) - lu(k,203) = lu(k,203) - lu(k,144) * lu(k,198) - lu(k,204) = - lu(k,145) * lu(k,198) - lu(k,208) = lu(k,208) - lu(k,146) * lu(k,198) - lu(k,209) = lu(k,209) - lu(k,147) * lu(k,198) - lu(k,210) = lu(k,210) - lu(k,148) * lu(k,198) - lu(k,587) = lu(k,587) - lu(k,141) * lu(k,586) - lu(k,588) = lu(k,588) - lu(k,142) * lu(k,586) - lu(k,590) = lu(k,590) - lu(k,143) * lu(k,586) - lu(k,593) = lu(k,593) - lu(k,144) * lu(k,586) - lu(k,597) = lu(k,597) - lu(k,145) * lu(k,586) - lu(k,604) = lu(k,604) - lu(k,146) * lu(k,586) - lu(k,606) = lu(k,606) - lu(k,147) * lu(k,586) - lu(k,607) = lu(k,607) - lu(k,148) * lu(k,586) - lu(k,680) = lu(k,680) - lu(k,141) * lu(k,678) - lu(k,681) = lu(k,681) - lu(k,142) * lu(k,678) - lu(k,683) = lu(k,683) - lu(k,143) * lu(k,678) - lu(k,690) = lu(k,690) - lu(k,144) * lu(k,678) - lu(k,697) = lu(k,697) - lu(k,145) * lu(k,678) - lu(k,704) = lu(k,704) - lu(k,146) * lu(k,678) - lu(k,706) = lu(k,706) - lu(k,147) * lu(k,678) - lu(k,707) = lu(k,707) - lu(k,148) * lu(k,678) - lu(k,150) = 1._r8 / lu(k,150) - lu(k,151) = lu(k,151) * lu(k,150) - lu(k,152) = lu(k,152) * lu(k,150) - lu(k,153) = lu(k,153) * lu(k,150) - lu(k,154) = lu(k,154) * lu(k,150) - lu(k,155) = lu(k,155) * lu(k,150) - lu(k,156) = lu(k,156) * lu(k,150) - lu(k,157) = lu(k,157) * lu(k,150) - lu(k,288) = lu(k,288) - lu(k,151) * lu(k,283) - lu(k,289) = lu(k,289) - lu(k,152) * lu(k,283) - lu(k,292) = lu(k,292) - lu(k,153) * lu(k,283) - lu(k,293) = - lu(k,154) * lu(k,283) - lu(k,301) = lu(k,301) - lu(k,155) * lu(k,283) - lu(k,302) = lu(k,302) - lu(k,156) * lu(k,283) - lu(k,303) = lu(k,303) - lu(k,157) * lu(k,283) - lu(k,390) = - lu(k,151) * lu(k,385) - lu(k,391) = lu(k,391) - lu(k,152) * lu(k,385) - lu(k,394) = lu(k,394) - lu(k,153) * lu(k,385) - lu(k,395) = lu(k,395) - lu(k,154) * lu(k,385) - lu(k,405) = lu(k,405) - lu(k,155) * lu(k,385) - lu(k,406) = lu(k,406) - lu(k,156) * lu(k,385) - lu(k,407) = - lu(k,157) * lu(k,385) - lu(k,415) = lu(k,415) - lu(k,151) * lu(k,411) - lu(k,416) = lu(k,416) - lu(k,152) * lu(k,411) - lu(k,419) = lu(k,419) - lu(k,153) * lu(k,411) - lu(k,420) = lu(k,420) - lu(k,154) * lu(k,411) - lu(k,430) = lu(k,430) - lu(k,155) * lu(k,411) - lu(k,431) = lu(k,431) - lu(k,156) * lu(k,411) - lu(k,432) = lu(k,432) - lu(k,157) * lu(k,411) - lu(k,443) = - lu(k,151) * lu(k,436) - lu(k,444) = lu(k,444) - lu(k,152) * lu(k,436) - lu(k,447) = - lu(k,153) * lu(k,436) - lu(k,448) = lu(k,448) - lu(k,154) * lu(k,436) - lu(k,458) = lu(k,458) - lu(k,155) * lu(k,436) - lu(k,459) = lu(k,459) - lu(k,156) * lu(k,436) - lu(k,460) = lu(k,460) - lu(k,157) * lu(k,436) - lu(k,691) = lu(k,691) - lu(k,151) * lu(k,679) - lu(k,692) = lu(k,692) - lu(k,152) * lu(k,679) - lu(k,695) = lu(k,695) - lu(k,153) * lu(k,679) - lu(k,696) = lu(k,696) - lu(k,154) * lu(k,679) - lu(k,706) = lu(k,706) - lu(k,155) * lu(k,679) - lu(k,707) = lu(k,707) - lu(k,156) * lu(k,679) - lu(k,708) = lu(k,708) - lu(k,157) * lu(k,679) - 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,248) = lu(k,248) - lu(k,160) * lu(k,247) - lu(k,249) = lu(k,249) - lu(k,161) * lu(k,247) - lu(k,250) = - lu(k,162) * lu(k,247) - lu(k,251) = lu(k,251) - lu(k,163) * lu(k,247) - lu(k,253) = - lu(k,164) * lu(k,247) - lu(k,254) = lu(k,254) - lu(k,165) * lu(k,247) - lu(k,255) = lu(k,255) - lu(k,166) * lu(k,247) - lu(k,538) = - lu(k,160) * lu(k,536) - lu(k,539) = lu(k,539) - lu(k,161) * lu(k,536) - lu(k,542) = lu(k,542) - lu(k,162) * lu(k,536) - lu(k,543) = - lu(k,163) * lu(k,536) - lu(k,552) = lu(k,552) - lu(k,164) * lu(k,536) - lu(k,555) = lu(k,555) - lu(k,165) * lu(k,536) - lu(k,557) = lu(k,557) - lu(k,166) * lu(k,536) - lu(k,560) = - lu(k,160) * lu(k,559) - lu(k,561) = lu(k,561) - lu(k,161) * lu(k,559) - lu(k,564) = - lu(k,162) * lu(k,559) - lu(k,565) = - lu(k,163) * lu(k,559) - lu(k,574) = lu(k,574) - lu(k,164) * lu(k,559) - lu(k,577) = lu(k,577) - lu(k,165) * lu(k,559) - lu(k,579) = lu(k,579) - lu(k,166) * lu(k,559) - lu(k,647) = lu(k,647) - lu(k,160) * lu(k,641) - lu(k,649) = lu(k,649) - lu(k,161) * lu(k,641) - lu(k,652) = lu(k,652) - lu(k,162) * lu(k,641) - lu(k,653) = lu(k,653) - lu(k,163) * lu(k,641) - lu(k,662) = lu(k,662) - lu(k,164) * lu(k,641) - lu(k,665) = lu(k,665) - lu(k,165) * lu(k,641) - lu(k,667) = lu(k,667) - lu(k,166) * lu(k,641) - lu(k,714) = - lu(k,160) * lu(k,712) - lu(k,716) = lu(k,716) - lu(k,161) * lu(k,712) - lu(k,718) = - lu(k,162) * lu(k,712) - lu(k,719) = - lu(k,163) * lu(k,712) - lu(k,728) = lu(k,728) - lu(k,164) * lu(k,712) - lu(k,731) = lu(k,731) - lu(k,165) * lu(k,712) - lu(k,733) = lu(k,733) - lu(k,166) * lu(k,712) + 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,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) + lu(k,196) = lu(k,196) - lu(k,142) * lu(k,187) + lu(k,201) = lu(k,201) - lu(k,139) * lu(k,199) + lu(k,202) = - lu(k,140) * lu(k,199) + lu(k,203) = lu(k,203) - lu(k,141) * lu(k,199) + lu(k,204) = lu(k,204) - lu(k,142) * lu(k,199) + lu(k,215) = lu(k,215) - lu(k,139) * lu(k,211) + lu(k,216) = lu(k,216) - lu(k,140) * lu(k,211) + lu(k,217) = lu(k,217) - lu(k,141) * lu(k,211) + lu(k,220) = lu(k,220) - lu(k,142) * lu(k,211) + 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,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,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) + lu(k,147) = lu(k,147) * lu(k,144) + lu(k,148) = lu(k,148) * lu(k,144) + lu(k,149) = lu(k,149) * lu(k,144) + lu(k,150) = lu(k,150) * lu(k,144) + lu(k,151) = lu(k,151) * lu(k,144) + lu(k,328) = lu(k,328) - lu(k,145) * lu(k,323) + 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,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,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,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,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) + 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,274) = lu(k,274) - lu(k,154) * lu(k,273) + 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,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,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) + lu(k,750) = - lu(k,157) * lu(k,743) + lu(k,757) = lu(k,757) - lu(k,158) * lu(k,743) + lu(k,760) = lu(k,760) - lu(k,159) * lu(k,743) + lu(k,764) = lu(k,764) - lu(k,160) * lu(k,743) + 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,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,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,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,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,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,488) = lu(k,488) - lu(k,163) * lu(k,474) + lu(k,492) = lu(k,492) - lu(k,164) * 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,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 ) @@ -637,226 +674,211 @@ subroutine lu_fac05( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,167) = 1._r8 / lu(k,167) - lu(k,168) = lu(k,168) * lu(k,167) - lu(k,169) = lu(k,169) * lu(k,167) - lu(k,170) = lu(k,170) * lu(k,167) - lu(k,171) = lu(k,171) * lu(k,167) - lu(k,172) = lu(k,172) * lu(k,167) - lu(k,173) = lu(k,173) * lu(k,167) - lu(k,174) = lu(k,174) * lu(k,167) - lu(k,187) = lu(k,187) - lu(k,168) * lu(k,186) - lu(k,188) = lu(k,188) - lu(k,169) * lu(k,186) - lu(k,189) = lu(k,189) - lu(k,170) * lu(k,186) - lu(k,192) = lu(k,192) - lu(k,171) * lu(k,186) - lu(k,193) = lu(k,193) - lu(k,172) * lu(k,186) - lu(k,194) = lu(k,194) - lu(k,173) * lu(k,186) - lu(k,196) = lu(k,196) - lu(k,174) * lu(k,186) - lu(k,200) = lu(k,200) - lu(k,168) * lu(k,199) - lu(k,201) = lu(k,201) - lu(k,169) * lu(k,199) - lu(k,202) = lu(k,202) - lu(k,170) * lu(k,199) - lu(k,206) = lu(k,206) - lu(k,171) * lu(k,199) - lu(k,207) = - lu(k,172) * lu(k,199) - lu(k,208) = lu(k,208) - lu(k,173) * lu(k,199) - lu(k,210) = lu(k,210) - lu(k,174) * lu(k,199) - lu(k,512) = lu(k,512) - lu(k,168) * lu(k,511) - lu(k,513) = lu(k,513) - lu(k,169) * lu(k,511) - lu(k,514) = lu(k,514) - lu(k,170) * lu(k,511) - lu(k,525) = lu(k,525) - lu(k,171) * lu(k,511) - lu(k,526) = - lu(k,172) * lu(k,511) - lu(k,528) = lu(k,528) - lu(k,173) * lu(k,511) - lu(k,531) = lu(k,531) - lu(k,174) * lu(k,511) - lu(k,588) = lu(k,588) - lu(k,168) * lu(k,587) - lu(k,589) = lu(k,589) - lu(k,169) * lu(k,587) - lu(k,590) = lu(k,590) - lu(k,170) * lu(k,587) - lu(k,601) = lu(k,601) - lu(k,171) * lu(k,587) - lu(k,602) = lu(k,602) - lu(k,172) * lu(k,587) - lu(k,604) = lu(k,604) - lu(k,173) * lu(k,587) - lu(k,607) = lu(k,607) - lu(k,174) * lu(k,587) - lu(k,681) = lu(k,681) - lu(k,168) * lu(k,680) - lu(k,682) = lu(k,682) - lu(k,169) * lu(k,680) - lu(k,683) = lu(k,683) - lu(k,170) * lu(k,680) - lu(k,701) = lu(k,701) - lu(k,171) * lu(k,680) - lu(k,702) = lu(k,702) - lu(k,172) * lu(k,680) - lu(k,704) = lu(k,704) - lu(k,173) * lu(k,680) - lu(k,707) = lu(k,707) - lu(k,174) * lu(k,680) - 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,188) = lu(k,188) - lu(k,177) * lu(k,187) - lu(k,189) = lu(k,189) - lu(k,178) * lu(k,187) - lu(k,192) = lu(k,192) - lu(k,179) * lu(k,187) - lu(k,193) = lu(k,193) - lu(k,180) * lu(k,187) - lu(k,194) = lu(k,194) - lu(k,181) * lu(k,187) - lu(k,196) = lu(k,196) - lu(k,182) * lu(k,187) - lu(k,201) = lu(k,201) - lu(k,177) * lu(k,200) - lu(k,202) = lu(k,202) - lu(k,178) * lu(k,200) - lu(k,206) = lu(k,206) - lu(k,179) * lu(k,200) - lu(k,207) = lu(k,207) - lu(k,180) * lu(k,200) - lu(k,208) = lu(k,208) - lu(k,181) * lu(k,200) - lu(k,210) = lu(k,210) - lu(k,182) * lu(k,200) - lu(k,513) = lu(k,513) - lu(k,177) * lu(k,512) - lu(k,514) = lu(k,514) - lu(k,178) * lu(k,512) - lu(k,525) = lu(k,525) - lu(k,179) * lu(k,512) - lu(k,526) = lu(k,526) - lu(k,180) * lu(k,512) - lu(k,528) = lu(k,528) - lu(k,181) * lu(k,512) - lu(k,531) = lu(k,531) - lu(k,182) * lu(k,512) - lu(k,589) = lu(k,589) - lu(k,177) * lu(k,588) - lu(k,590) = lu(k,590) - lu(k,178) * lu(k,588) - lu(k,601) = lu(k,601) - lu(k,179) * lu(k,588) - lu(k,602) = lu(k,602) - lu(k,180) * lu(k,588) - lu(k,604) = lu(k,604) - lu(k,181) * lu(k,588) - lu(k,607) = lu(k,607) - lu(k,182) * lu(k,588) - lu(k,682) = lu(k,682) - lu(k,177) * lu(k,681) - lu(k,683) = lu(k,683) - lu(k,178) * lu(k,681) - lu(k,701) = lu(k,701) - lu(k,179) * lu(k,681) - lu(k,702) = lu(k,702) - lu(k,180) * lu(k,681) - lu(k,704) = lu(k,704) - lu(k,181) * lu(k,681) - lu(k,707) = lu(k,707) - lu(k,182) * lu(k,681) - lu(k,188) = 1._r8 / lu(k,188) - lu(k,189) = lu(k,189) * lu(k,188) - lu(k,190) = lu(k,190) * lu(k,188) - lu(k,191) = lu(k,191) * lu(k,188) - lu(k,192) = lu(k,192) * lu(k,188) - lu(k,193) = lu(k,193) * lu(k,188) - lu(k,194) = lu(k,194) * lu(k,188) - lu(k,195) = lu(k,195) * lu(k,188) - lu(k,196) = lu(k,196) * lu(k,188) - lu(k,202) = lu(k,202) - lu(k,189) * lu(k,201) - lu(k,203) = lu(k,203) - lu(k,190) * lu(k,201) - lu(k,204) = lu(k,204) - lu(k,191) * lu(k,201) - lu(k,206) = lu(k,206) - lu(k,192) * lu(k,201) - lu(k,207) = lu(k,207) - lu(k,193) * lu(k,201) - lu(k,208) = lu(k,208) - lu(k,194) * lu(k,201) - lu(k,209) = lu(k,209) - lu(k,195) * lu(k,201) - lu(k,210) = lu(k,210) - lu(k,196) * lu(k,201) - lu(k,514) = lu(k,514) - lu(k,189) * lu(k,513) - lu(k,515) = - lu(k,190) * lu(k,513) - lu(k,521) = lu(k,521) - lu(k,191) * lu(k,513) - lu(k,525) = lu(k,525) - lu(k,192) * lu(k,513) - lu(k,526) = lu(k,526) - lu(k,193) * lu(k,513) - lu(k,528) = lu(k,528) - lu(k,194) * lu(k,513) - lu(k,530) = lu(k,530) - lu(k,195) * lu(k,513) - lu(k,531) = lu(k,531) - lu(k,196) * lu(k,513) - lu(k,590) = lu(k,590) - lu(k,189) * lu(k,589) - lu(k,593) = lu(k,593) - lu(k,190) * lu(k,589) - lu(k,597) = lu(k,597) - lu(k,191) * lu(k,589) - lu(k,601) = lu(k,601) - lu(k,192) * lu(k,589) - lu(k,602) = lu(k,602) - lu(k,193) * lu(k,589) - lu(k,604) = lu(k,604) - lu(k,194) * lu(k,589) - lu(k,606) = lu(k,606) - lu(k,195) * lu(k,589) - lu(k,607) = lu(k,607) - lu(k,196) * lu(k,589) - lu(k,683) = lu(k,683) - lu(k,189) * lu(k,682) - lu(k,690) = lu(k,690) - lu(k,190) * lu(k,682) - lu(k,697) = lu(k,697) - lu(k,191) * lu(k,682) - lu(k,701) = lu(k,701) - lu(k,192) * lu(k,682) - lu(k,702) = lu(k,702) - lu(k,193) * lu(k,682) - lu(k,704) = lu(k,704) - lu(k,194) * lu(k,682) - lu(k,706) = lu(k,706) - lu(k,195) * lu(k,682) - lu(k,707) = lu(k,707) - lu(k,196) * lu(k,682) - lu(k,202) = 1._r8 / lu(k,202) - lu(k,203) = lu(k,203) * lu(k,202) - lu(k,204) = lu(k,204) * lu(k,202) - lu(k,205) = lu(k,205) * lu(k,202) - lu(k,206) = lu(k,206) * lu(k,202) - lu(k,207) = lu(k,207) * lu(k,202) - lu(k,208) = lu(k,208) * lu(k,202) - lu(k,209) = lu(k,209) * lu(k,202) - lu(k,210) = lu(k,210) * lu(k,202) - lu(k,442) = - lu(k,203) * lu(k,437) - lu(k,449) = lu(k,449) - lu(k,204) * lu(k,437) - lu(k,450) = lu(k,450) - lu(k,205) * lu(k,437) - lu(k,453) = lu(k,453) - lu(k,206) * lu(k,437) - lu(k,454) = - lu(k,207) * lu(k,437) - lu(k,456) = lu(k,456) - lu(k,208) * lu(k,437) - lu(k,458) = lu(k,458) - lu(k,209) * lu(k,437) - lu(k,459) = lu(k,459) - lu(k,210) * lu(k,437) - lu(k,515) = lu(k,515) - lu(k,203) * lu(k,514) - lu(k,521) = lu(k,521) - lu(k,204) * lu(k,514) - lu(k,522) = lu(k,522) - lu(k,205) * lu(k,514) - lu(k,525) = lu(k,525) - lu(k,206) * lu(k,514) - lu(k,526) = lu(k,526) - lu(k,207) * lu(k,514) - lu(k,528) = lu(k,528) - lu(k,208) * lu(k,514) - lu(k,530) = lu(k,530) - lu(k,209) * lu(k,514) - lu(k,531) = lu(k,531) - lu(k,210) * lu(k,514) - lu(k,593) = lu(k,593) - lu(k,203) * lu(k,590) - lu(k,597) = lu(k,597) - lu(k,204) * lu(k,590) - lu(k,598) = - lu(k,205) * lu(k,590) - lu(k,601) = lu(k,601) - lu(k,206) * lu(k,590) - lu(k,602) = lu(k,602) - lu(k,207) * lu(k,590) - lu(k,604) = lu(k,604) - lu(k,208) * lu(k,590) - lu(k,606) = lu(k,606) - lu(k,209) * lu(k,590) - lu(k,607) = lu(k,607) - lu(k,210) * lu(k,590) - lu(k,649) = lu(k,649) - lu(k,203) * lu(k,642) - lu(k,656) = lu(k,656) - lu(k,204) * lu(k,642) - lu(k,657) = lu(k,657) - lu(k,205) * lu(k,642) - lu(k,660) = lu(k,660) - lu(k,206) * lu(k,642) - lu(k,661) = lu(k,661) - lu(k,207) * lu(k,642) - lu(k,663) = lu(k,663) - lu(k,208) * lu(k,642) - lu(k,665) = lu(k,665) - lu(k,209) * lu(k,642) - lu(k,666) = lu(k,666) - lu(k,210) * lu(k,642) - lu(k,690) = lu(k,690) - lu(k,203) * lu(k,683) - lu(k,697) = lu(k,697) - lu(k,204) * lu(k,683) - lu(k,698) = lu(k,698) - lu(k,205) * lu(k,683) - lu(k,701) = lu(k,701) - lu(k,206) * lu(k,683) - lu(k,702) = lu(k,702) - lu(k,207) * lu(k,683) - lu(k,704) = lu(k,704) - lu(k,208) * lu(k,683) - lu(k,706) = lu(k,706) - lu(k,209) * lu(k,683) - lu(k,707) = lu(k,707) - lu(k,210) * lu(k,683) - 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,306) = lu(k,306) - lu(k,212) * lu(k,305) - lu(k,307) = lu(k,307) - lu(k,213) * lu(k,305) - lu(k,308) = lu(k,308) - lu(k,214) * lu(k,305) - lu(k,311) = - lu(k,215) * lu(k,305) - lu(k,315) = lu(k,315) - lu(k,216) * lu(k,305) - lu(k,316) = - lu(k,217) * lu(k,305) - lu(k,317) = - lu(k,218) * lu(k,305) - lu(k,414) = lu(k,414) - lu(k,212) * lu(k,412) - lu(k,416) = lu(k,416) - lu(k,213) * lu(k,412) - lu(k,420) = lu(k,420) - lu(k,214) * lu(k,412) - lu(k,426) = - lu(k,215) * lu(k,412) - lu(k,430) = lu(k,430) - lu(k,216) * lu(k,412) - lu(k,431) = lu(k,431) - lu(k,217) * lu(k,412) - lu(k,432) = lu(k,432) - lu(k,218) * lu(k,412) - lu(k,492) = lu(k,492) - lu(k,212) * lu(k,490) - lu(k,494) = lu(k,494) - lu(k,213) * lu(k,490) - lu(k,498) = - lu(k,214) * lu(k,490) - lu(k,504) = - lu(k,215) * lu(k,490) - lu(k,508) = lu(k,508) - lu(k,216) * lu(k,490) - lu(k,509) = lu(k,509) - lu(k,217) * lu(k,490) - lu(k,510) = lu(k,510) - lu(k,218) * lu(k,490) - lu(k,539) = lu(k,539) - lu(k,212) * lu(k,537) - lu(k,541) = lu(k,541) - lu(k,213) * lu(k,537) - lu(k,545) = lu(k,545) - lu(k,214) * lu(k,537) - lu(k,551) = lu(k,551) - lu(k,215) * lu(k,537) - lu(k,555) = lu(k,555) - lu(k,216) * lu(k,537) - lu(k,556) = lu(k,556) - lu(k,217) * lu(k,537) - lu(k,557) = lu(k,557) - lu(k,218) * lu(k,537) - lu(k,649) = lu(k,649) - lu(k,212) * lu(k,643) - lu(k,651) = lu(k,651) - lu(k,213) * lu(k,643) - lu(k,655) = lu(k,655) - lu(k,214) * lu(k,643) - lu(k,661) = lu(k,661) - lu(k,215) * lu(k,643) - lu(k,665) = lu(k,665) - lu(k,216) * lu(k,643) - lu(k,666) = lu(k,666) - lu(k,217) * lu(k,643) - lu(k,667) = lu(k,667) - lu(k,218) * lu(k,643) - lu(k,690) = lu(k,690) - lu(k,212) * lu(k,684) - lu(k,692) = lu(k,692) - lu(k,213) * lu(k,684) - lu(k,696) = lu(k,696) - lu(k,214) * lu(k,684) - lu(k,702) = lu(k,702) - lu(k,215) * lu(k,684) - lu(k,706) = lu(k,706) - lu(k,216) * lu(k,684) - lu(k,707) = lu(k,707) - lu(k,217) * lu(k,684) - lu(k,708) = lu(k,708) - lu(k,218) * lu(k,684) + 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) + lu(k,181) = lu(k,181) * lu(k,178) + lu(k,182) = lu(k,182) * lu(k,178) + 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,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) + 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,197) = lu(k,197) * lu(k,189) + lu(k,198) = lu(k,198) * lu(k,189) + lu(k,214) = lu(k,214) - lu(k,190) * lu(k,213) + lu(k,215) = lu(k,215) - lu(k,191) * lu(k,213) + lu(k,216) = lu(k,216) - lu(k,192) * lu(k,213) + lu(k,217) = lu(k,217) - lu(k,193) * lu(k,213) + 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,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) + lu(k,230) = lu(k,230) - lu(k,193) * lu(k,226) + 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,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,248) = lu(k,248) - lu(k,196) * lu(k,240) + lu(k,249) = lu(k,249) - lu(k,197) * 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) + lu(k,481) = lu(k,481) - lu(k,193) * lu(k,477) + 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,495) = lu(k,495) - lu(k,197) * lu(k,477) + lu(k,500) = lu(k,500) - lu(k,198) * lu(k,477) + 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) + lu(k,203) = lu(k,203) * lu(k,200) + lu(k,204) = lu(k,204) * lu(k,200) + lu(k,205) = lu(k,205) * lu(k,200) + lu(k,206) = lu(k,206) * lu(k,200) + lu(k,207) = lu(k,207) * lu(k,200) + lu(k,215) = lu(k,215) - lu(k,201) * lu(k,214) + lu(k,216) = lu(k,216) - lu(k,202) * lu(k,214) + lu(k,217) = lu(k,217) - lu(k,203) * lu(k,214) + 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,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,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,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,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 ) @@ -873,267 +895,271 @@ subroutine lu_fac06( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,220) = 1._r8 / lu(k,220) - lu(k,221) = lu(k,221) * lu(k,220) - lu(k,222) = lu(k,222) * lu(k,220) - lu(k,223) = lu(k,223) * lu(k,220) - lu(k,224) = lu(k,224) * lu(k,220) - lu(k,225) = lu(k,225) * lu(k,220) - lu(k,226) = lu(k,226) * lu(k,220) - lu(k,238) = lu(k,238) - lu(k,221) * lu(k,235) - lu(k,240) = lu(k,240) - lu(k,222) * lu(k,235) - lu(k,242) = lu(k,242) - lu(k,223) * lu(k,235) - lu(k,243) = lu(k,243) - lu(k,224) * lu(k,235) - lu(k,244) = lu(k,244) - lu(k,225) * lu(k,235) - lu(k,245) = - lu(k,226) * lu(k,235) - lu(k,288) = lu(k,288) - lu(k,221) * lu(k,284) - lu(k,292) = lu(k,292) - lu(k,222) * lu(k,284) - lu(k,296) = lu(k,296) - lu(k,223) * lu(k,284) - lu(k,301) = lu(k,301) - lu(k,224) * lu(k,284) - lu(k,302) = lu(k,302) - lu(k,225) * lu(k,284) - lu(k,303) = lu(k,303) - lu(k,226) * lu(k,284) - lu(k,364) = lu(k,364) - lu(k,221) * lu(k,360) - lu(k,368) = lu(k,368) - lu(k,222) * lu(k,360) - lu(k,372) = lu(k,372) - lu(k,223) * lu(k,360) - lu(k,379) = lu(k,379) - lu(k,224) * lu(k,360) - lu(k,380) = lu(k,380) - lu(k,225) * lu(k,360) - lu(k,381) = lu(k,381) - lu(k,226) * lu(k,360) - lu(k,415) = lu(k,415) - lu(k,221) * lu(k,413) - lu(k,419) = lu(k,419) - lu(k,222) * lu(k,413) - lu(k,423) = lu(k,423) - lu(k,223) * lu(k,413) - lu(k,430) = lu(k,430) - lu(k,224) * lu(k,413) - lu(k,431) = lu(k,431) - lu(k,225) * lu(k,413) - lu(k,432) = lu(k,432) - lu(k,226) * lu(k,413) - lu(k,471) = lu(k,471) - lu(k,221) * lu(k,465) - lu(k,475) = lu(k,475) - lu(k,222) * lu(k,465) - lu(k,479) = lu(k,479) - lu(k,223) * lu(k,465) - lu(k,486) = lu(k,486) - lu(k,224) * lu(k,465) - lu(k,487) = lu(k,487) - lu(k,225) * lu(k,465) - lu(k,488) = - lu(k,226) * lu(k,465) - lu(k,650) = lu(k,650) - lu(k,221) * lu(k,644) - lu(k,654) = lu(k,654) - lu(k,222) * lu(k,644) - lu(k,658) = lu(k,658) - lu(k,223) * lu(k,644) - lu(k,665) = lu(k,665) - lu(k,224) * lu(k,644) - lu(k,666) = lu(k,666) - lu(k,225) * lu(k,644) - lu(k,667) = lu(k,667) - lu(k,226) * lu(k,644) - lu(k,691) = lu(k,691) - lu(k,221) * lu(k,685) - lu(k,695) = lu(k,695) - lu(k,222) * lu(k,685) - lu(k,699) = lu(k,699) - lu(k,223) * lu(k,685) - lu(k,706) = lu(k,706) - lu(k,224) * lu(k,685) - lu(k,707) = lu(k,707) - lu(k,225) * lu(k,685) - lu(k,708) = lu(k,708) - lu(k,226) * lu(k,685) - lu(k,228) = 1._r8 / lu(k,228) - lu(k,229) = lu(k,229) * lu(k,228) - lu(k,230) = lu(k,230) * lu(k,228) - lu(k,231) = lu(k,231) * lu(k,228) - lu(k,232) = lu(k,232) * lu(k,228) - lu(k,233) = lu(k,233) * lu(k,228) - lu(k,259) = lu(k,259) - lu(k,229) * lu(k,258) - lu(k,264) = - lu(k,230) * lu(k,258) - lu(k,270) = lu(k,270) - lu(k,231) * lu(k,258) - lu(k,271) = lu(k,271) - lu(k,232) * lu(k,258) - lu(k,272) = - lu(k,233) * lu(k,258) - lu(k,338) = - lu(k,229) * lu(k,336) - lu(k,345) = lu(k,345) - lu(k,230) * lu(k,336) - lu(k,354) = lu(k,354) - lu(k,231) * lu(k,336) - lu(k,355) = lu(k,355) - lu(k,232) * lu(k,336) - lu(k,356) = - lu(k,233) * lu(k,336) - lu(k,388) = lu(k,388) - lu(k,229) * lu(k,386) - lu(k,396) = lu(k,396) - lu(k,230) * lu(k,386) - lu(k,405) = lu(k,405) - lu(k,231) * lu(k,386) - lu(k,406) = lu(k,406) - lu(k,232) * lu(k,386) - lu(k,407) = lu(k,407) - lu(k,233) * lu(k,386) - lu(k,441) = lu(k,441) - lu(k,229) * lu(k,438) - lu(k,449) = lu(k,449) - lu(k,230) * lu(k,438) - lu(k,458) = lu(k,458) - lu(k,231) * lu(k,438) - lu(k,459) = lu(k,459) - lu(k,232) * lu(k,438) - lu(k,460) = lu(k,460) - lu(k,233) * lu(k,438) - lu(k,469) = lu(k,469) - lu(k,229) * lu(k,466) - lu(k,477) = lu(k,477) - lu(k,230) * lu(k,466) - lu(k,486) = lu(k,486) - lu(k,231) * lu(k,466) - lu(k,487) = lu(k,487) - lu(k,232) * lu(k,466) - lu(k,488) = lu(k,488) - lu(k,233) * lu(k,466) - lu(k,592) = lu(k,592) - lu(k,229) * lu(k,591) - lu(k,597) = lu(k,597) - lu(k,230) * lu(k,591) - lu(k,606) = lu(k,606) - lu(k,231) * lu(k,591) - lu(k,607) = lu(k,607) - lu(k,232) * lu(k,591) - lu(k,608) = - lu(k,233) * lu(k,591) - lu(k,613) = lu(k,613) - lu(k,229) * lu(k,612) - lu(k,619) = lu(k,619) - lu(k,230) * lu(k,612) - lu(k,628) = lu(k,628) - lu(k,231) * lu(k,612) - lu(k,629) = lu(k,629) - lu(k,232) * lu(k,612) - lu(k,630) = - lu(k,233) * lu(k,612) - lu(k,648) = lu(k,648) - lu(k,229) * lu(k,645) - lu(k,656) = lu(k,656) - lu(k,230) * lu(k,645) - lu(k,665) = lu(k,665) - lu(k,231) * lu(k,645) - lu(k,666) = lu(k,666) - lu(k,232) * lu(k,645) - lu(k,667) = lu(k,667) - lu(k,233) * lu(k,645) - lu(k,689) = lu(k,689) - lu(k,229) * lu(k,686) - lu(k,697) = lu(k,697) - lu(k,230) * lu(k,686) - lu(k,706) = lu(k,706) - lu(k,231) * lu(k,686) - lu(k,707) = lu(k,707) - lu(k,232) * lu(k,686) - lu(k,708) = lu(k,708) - lu(k,233) * lu(k,686) - lu(k,715) = - lu(k,229) * lu(k,713) - lu(k,722) = - lu(k,230) * lu(k,713) - lu(k,731) = lu(k,731) - lu(k,231) * lu(k,713) - lu(k,732) = lu(k,732) - lu(k,232) * lu(k,713) - lu(k,733) = lu(k,733) - lu(k,233) * lu(k,713) - lu(k,236) = 1._r8 / lu(k,236) - lu(k,237) = lu(k,237) * lu(k,236) - lu(k,238) = lu(k,238) * lu(k,236) - lu(k,239) = lu(k,239) * lu(k,236) - lu(k,240) = lu(k,240) * lu(k,236) - lu(k,241) = lu(k,241) * lu(k,236) - lu(k,242) = lu(k,242) * lu(k,236) - lu(k,243) = lu(k,243) * lu(k,236) - lu(k,244) = lu(k,244) * lu(k,236) - lu(k,245) = lu(k,245) * lu(k,236) - lu(k,286) = lu(k,286) - lu(k,237) * lu(k,285) - lu(k,288) = lu(k,288) - lu(k,238) * lu(k,285) - lu(k,291) = - lu(k,239) * lu(k,285) - lu(k,292) = lu(k,292) - lu(k,240) * lu(k,285) - lu(k,295) = - lu(k,241) * lu(k,285) - lu(k,296) = lu(k,296) - lu(k,242) * lu(k,285) - lu(k,301) = lu(k,301) - lu(k,243) * lu(k,285) - lu(k,302) = lu(k,302) - lu(k,244) * lu(k,285) - lu(k,303) = lu(k,303) - lu(k,245) * lu(k,285) - lu(k,362) = - lu(k,237) * lu(k,361) - lu(k,364) = lu(k,364) - lu(k,238) * lu(k,361) - lu(k,367) = lu(k,367) - lu(k,239) * lu(k,361) - lu(k,368) = lu(k,368) - lu(k,240) * lu(k,361) - lu(k,371) = - lu(k,241) * lu(k,361) - lu(k,372) = lu(k,372) - lu(k,242) * lu(k,361) - lu(k,379) = lu(k,379) - lu(k,243) * lu(k,361) - lu(k,380) = lu(k,380) - lu(k,244) * lu(k,361) - lu(k,381) = lu(k,381) - lu(k,245) * lu(k,361) - lu(k,440) = lu(k,440) - lu(k,237) * lu(k,439) - lu(k,443) = lu(k,443) - lu(k,238) * lu(k,439) - lu(k,446) = lu(k,446) - lu(k,239) * lu(k,439) - lu(k,447) = lu(k,447) - lu(k,240) * lu(k,439) - lu(k,450) = lu(k,450) - lu(k,241) * lu(k,439) - lu(k,451) = lu(k,451) - lu(k,242) * lu(k,439) - lu(k,458) = lu(k,458) - lu(k,243) * lu(k,439) - lu(k,459) = lu(k,459) - lu(k,244) * lu(k,439) - lu(k,460) = lu(k,460) - lu(k,245) * lu(k,439) - lu(k,468) = - lu(k,237) * lu(k,467) - lu(k,471) = lu(k,471) - lu(k,238) * lu(k,467) - lu(k,474) = - lu(k,239) * lu(k,467) - lu(k,475) = lu(k,475) - lu(k,240) * lu(k,467) - lu(k,478) = lu(k,478) - lu(k,241) * lu(k,467) - lu(k,479) = lu(k,479) - lu(k,242) * lu(k,467) - lu(k,486) = lu(k,486) - lu(k,243) * lu(k,467) - lu(k,487) = lu(k,487) - lu(k,244) * lu(k,467) - lu(k,488) = lu(k,488) - lu(k,245) * lu(k,467) - lu(k,647) = lu(k,647) - lu(k,237) * lu(k,646) - lu(k,650) = lu(k,650) - lu(k,238) * lu(k,646) - lu(k,653) = lu(k,653) - lu(k,239) * lu(k,646) - lu(k,654) = lu(k,654) - lu(k,240) * lu(k,646) - lu(k,657) = lu(k,657) - lu(k,241) * lu(k,646) - lu(k,658) = lu(k,658) - lu(k,242) * lu(k,646) - lu(k,665) = lu(k,665) - lu(k,243) * lu(k,646) - lu(k,666) = lu(k,666) - lu(k,244) * lu(k,646) - lu(k,667) = lu(k,667) - lu(k,245) * lu(k,646) - lu(k,688) = lu(k,688) - lu(k,237) * lu(k,687) - lu(k,691) = lu(k,691) - lu(k,238) * lu(k,687) - lu(k,694) = lu(k,694) - lu(k,239) * lu(k,687) - lu(k,695) = lu(k,695) - lu(k,240) * lu(k,687) - lu(k,698) = lu(k,698) - lu(k,241) * lu(k,687) - lu(k,699) = lu(k,699) - lu(k,242) * lu(k,687) - lu(k,706) = lu(k,706) - lu(k,243) * lu(k,687) - lu(k,707) = lu(k,707) - lu(k,244) * lu(k,687) - lu(k,708) = lu(k,708) - lu(k,245) * lu(k,687) - lu(k,248) = 1._r8 / lu(k,248) - lu(k,249) = lu(k,249) * lu(k,248) - lu(k,250) = lu(k,250) * lu(k,248) - lu(k,251) = lu(k,251) * lu(k,248) - lu(k,252) = lu(k,252) * lu(k,248) - lu(k,253) = lu(k,253) * lu(k,248) - lu(k,254) = lu(k,254) * lu(k,248) - lu(k,255) = lu(k,255) * lu(k,248) - lu(k,287) = lu(k,287) - lu(k,249) * lu(k,286) - lu(k,290) = - lu(k,250) * lu(k,286) - lu(k,291) = lu(k,291) - lu(k,251) * lu(k,286) - lu(k,295) = lu(k,295) - lu(k,252) * lu(k,286) - lu(k,298) = - lu(k,253) * lu(k,286) - lu(k,301) = lu(k,301) - lu(k,254) * lu(k,286) - lu(k,303) = lu(k,303) - lu(k,255) * lu(k,286) - lu(k,339) = lu(k,339) - lu(k,249) * lu(k,337) - lu(k,341) = - lu(k,250) * lu(k,337) - lu(k,342) = lu(k,342) - lu(k,251) * lu(k,337) - lu(k,346) = lu(k,346) - lu(k,252) * lu(k,337) - lu(k,351) = - lu(k,253) * lu(k,337) - lu(k,354) = lu(k,354) - lu(k,254) * lu(k,337) - lu(k,356) = lu(k,356) - lu(k,255) * lu(k,337) - lu(k,363) = lu(k,363) - lu(k,249) * lu(k,362) - lu(k,366) = lu(k,366) - lu(k,250) * lu(k,362) - lu(k,367) = lu(k,367) - lu(k,251) * lu(k,362) - lu(k,371) = lu(k,371) - lu(k,252) * lu(k,362) - lu(k,376) = lu(k,376) - lu(k,253) * lu(k,362) - lu(k,379) = lu(k,379) - lu(k,254) * lu(k,362) - lu(k,381) = lu(k,381) - lu(k,255) * lu(k,362) - lu(k,389) = - lu(k,249) * lu(k,387) - lu(k,392) = - lu(k,250) * lu(k,387) - lu(k,393) = lu(k,393) - lu(k,251) * lu(k,387) - lu(k,397) = lu(k,397) - lu(k,252) * lu(k,387) - lu(k,402) = - lu(k,253) * lu(k,387) - lu(k,405) = lu(k,405) - lu(k,254) * lu(k,387) - lu(k,407) = lu(k,407) - lu(k,255) * lu(k,387) - lu(k,442) = lu(k,442) - lu(k,249) * lu(k,440) - lu(k,445) = - lu(k,250) * lu(k,440) - lu(k,446) = lu(k,446) - lu(k,251) * lu(k,440) - lu(k,450) = lu(k,450) - lu(k,252) * lu(k,440) - lu(k,455) = - lu(k,253) * lu(k,440) - lu(k,458) = lu(k,458) - lu(k,254) * lu(k,440) - lu(k,460) = lu(k,460) - lu(k,255) * lu(k,440) - lu(k,470) = - lu(k,249) * lu(k,468) - lu(k,473) = lu(k,473) - lu(k,250) * lu(k,468) - lu(k,474) = lu(k,474) - lu(k,251) * lu(k,468) - lu(k,478) = lu(k,478) - lu(k,252) * lu(k,468) - lu(k,483) = - lu(k,253) * lu(k,468) - lu(k,486) = lu(k,486) - lu(k,254) * lu(k,468) - lu(k,488) = lu(k,488) - lu(k,255) * lu(k,468) - lu(k,492) = lu(k,492) - lu(k,249) * lu(k,491) - lu(k,495) = - lu(k,250) * lu(k,491) - lu(k,496) = lu(k,496) - lu(k,251) * lu(k,491) - lu(k,500) = - lu(k,252) * lu(k,491) - lu(k,505) = lu(k,505) - lu(k,253) * lu(k,491) - lu(k,508) = lu(k,508) - lu(k,254) * lu(k,491) - lu(k,510) = lu(k,510) - lu(k,255) * lu(k,491) - lu(k,539) = lu(k,539) - lu(k,249) * lu(k,538) - lu(k,542) = lu(k,542) - lu(k,250) * lu(k,538) - lu(k,543) = lu(k,543) - lu(k,251) * lu(k,538) - lu(k,547) = - lu(k,252) * lu(k,538) - lu(k,552) = lu(k,552) - lu(k,253) * lu(k,538) - lu(k,555) = lu(k,555) - lu(k,254) * lu(k,538) - lu(k,557) = lu(k,557) - lu(k,255) * lu(k,538) - lu(k,561) = lu(k,561) - lu(k,249) * lu(k,560) - lu(k,564) = lu(k,564) - lu(k,250) * lu(k,560) - lu(k,565) = lu(k,565) - lu(k,251) * lu(k,560) - lu(k,569) = - lu(k,252) * lu(k,560) - lu(k,574) = lu(k,574) - lu(k,253) * lu(k,560) - lu(k,577) = lu(k,577) - lu(k,254) * lu(k,560) - lu(k,579) = lu(k,579) - lu(k,255) * lu(k,560) - lu(k,649) = lu(k,649) - lu(k,249) * lu(k,647) - lu(k,652) = lu(k,652) - lu(k,250) * lu(k,647) - lu(k,653) = lu(k,653) - lu(k,251) * lu(k,647) - lu(k,657) = lu(k,657) - lu(k,252) * lu(k,647) - lu(k,662) = lu(k,662) - lu(k,253) * lu(k,647) - lu(k,665) = lu(k,665) - lu(k,254) * lu(k,647) - lu(k,667) = lu(k,667) - lu(k,255) * lu(k,647) - lu(k,690) = lu(k,690) - lu(k,249) * lu(k,688) - lu(k,693) = - lu(k,250) * lu(k,688) - lu(k,694) = lu(k,694) - lu(k,251) * lu(k,688) - lu(k,698) = lu(k,698) - lu(k,252) * lu(k,688) - lu(k,703) = lu(k,703) - lu(k,253) * lu(k,688) - lu(k,706) = lu(k,706) - lu(k,254) * lu(k,688) - lu(k,708) = lu(k,708) - lu(k,255) * lu(k,688) - lu(k,716) = lu(k,716) - lu(k,249) * lu(k,714) - lu(k,718) = lu(k,718) - lu(k,250) * lu(k,714) - lu(k,719) = lu(k,719) - lu(k,251) * lu(k,714) - lu(k,723) = - lu(k,252) * lu(k,714) - lu(k,728) = lu(k,728) - lu(k,253) * lu(k,714) - lu(k,731) = lu(k,731) - lu(k,254) * lu(k,714) - lu(k,733) = lu(k,733) - lu(k,255) * lu(k,714) + 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,223) = lu(k,223) * lu(k,215) + lu(k,224) = lu(k,224) * lu(k,215) + lu(k,229) = lu(k,229) - lu(k,216) * lu(k,228) + lu(k,230) = lu(k,230) - lu(k,217) * lu(k,228) + lu(k,231) = lu(k,231) - lu(k,218) * lu(k,228) + lu(k,232) = lu(k,232) - lu(k,219) * lu(k,228) + lu(k,233) = lu(k,233) - lu(k,220) * lu(k,228) + lu(k,234) = lu(k,234) - lu(k,221) * lu(k,228) + lu(k,235) = lu(k,235) - lu(k,222) * lu(k,228) + lu(k,236) = lu(k,236) - lu(k,223) * lu(k,228) + lu(k,237) = lu(k,237) - lu(k,224) * lu(k,228) + lu(k,243) = lu(k,243) - lu(k,216) * lu(k,242) + 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,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,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) + 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,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,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,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) + 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,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,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) + lu(k,257) = lu(k,257) * lu(k,254) + lu(k,258) = lu(k,258) * lu(k,254) + lu(k,259) = lu(k,259) * lu(k,254) + lu(k,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,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) + lu(k,373) = lu(k,373) - lu(k,257) * lu(k,363) + lu(k,379) = lu(k,379) - lu(k,258) * lu(k,363) + lu(k,383) = - lu(k,259) * lu(k,363) + lu(k,442) = lu(k,442) - lu(k,255) * lu(k,439) + lu(k,448) = lu(k,448) - lu(k,256) * lu(k,439) + lu(k,451) = lu(k,451) - lu(k,257) * lu(k,439) + lu(k,457) = lu(k,457) - lu(k,258) * lu(k,439) + lu(k,461) = lu(k,461) - lu(k,259) * lu(k,439) + lu(k,485) = lu(k,485) - lu(k,255) * lu(k,482) + lu(k,491) = lu(k,491) - lu(k,256) * lu(k,482) + 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,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) + lu(k,760) = lu(k,760) - lu(k,258) * lu(k,744) + lu(k,764) = lu(k,764) - lu(k,259) * lu(k,744) + lu(k,262) = 1._r8 / lu(k,262) + lu(k,263) = lu(k,263) * lu(k,262) + lu(k,264) = lu(k,264) * lu(k,262) + lu(k,265) = lu(k,265) * lu(k,262) + lu(k,266) = lu(k,266) * lu(k,262) + lu(k,267) = lu(k,267) * lu(k,262) + lu(k,268) = lu(k,268) * lu(k,262) + lu(k,269) = lu(k,269) * lu(k,262) + lu(k,270) = lu(k,270) * lu(k,262) + lu(k,271) = lu(k,271) * lu(k,262) + lu(k,326) = lu(k,326) - lu(k,263) * lu(k,325) + 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,267) * lu(k,325) + lu(k,335) = lu(k,335) - lu(k,268) * 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,267) * lu(k,413) + lu(k,423) = lu(k,423) - lu(k,268) * 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,441) - lu(k,263) * lu(k,440) + lu(k,445) = lu(k,445) - lu(k,264) * 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,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) + lu(k,490) = lu(k,490) - lu(k,265) * lu(k,483) + 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,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,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 ) @@ -1150,271 +1176,229 @@ subroutine lu_fac07( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,259) = 1._r8 / lu(k,259) - lu(k,260) = lu(k,260) * lu(k,259) - lu(k,261) = lu(k,261) * lu(k,259) - lu(k,262) = lu(k,262) * lu(k,259) - lu(k,263) = lu(k,263) * lu(k,259) - lu(k,264) = lu(k,264) * lu(k,259) - lu(k,265) = lu(k,265) * lu(k,259) - lu(k,266) = lu(k,266) * lu(k,259) - lu(k,267) = lu(k,267) * lu(k,259) - lu(k,268) = lu(k,268) * lu(k,259) - lu(k,269) = lu(k,269) * lu(k,259) - lu(k,270) = lu(k,270) * lu(k,259) - lu(k,271) = lu(k,271) * lu(k,259) - lu(k,272) = lu(k,272) * lu(k,259) - lu(k,339) = lu(k,339) - lu(k,260) * lu(k,338) - lu(k,340) = - lu(k,261) * lu(k,338) - lu(k,343) = - lu(k,262) * lu(k,338) - lu(k,344) = - lu(k,263) * lu(k,338) - lu(k,345) = lu(k,345) - lu(k,264) * lu(k,338) - lu(k,346) = lu(k,346) - lu(k,265) * lu(k,338) - lu(k,347) = - lu(k,266) * lu(k,338) - lu(k,349) = lu(k,349) - lu(k,267) * lu(k,338) - lu(k,352) = lu(k,352) - lu(k,268) * lu(k,338) - lu(k,353) = - lu(k,269) * lu(k,338) - lu(k,354) = lu(k,354) - lu(k,270) * lu(k,338) - lu(k,355) = lu(k,355) - lu(k,271) * lu(k,338) - lu(k,356) = lu(k,356) - lu(k,272) * lu(k,338) - lu(k,389) = lu(k,389) - lu(k,260) * lu(k,388) - lu(k,391) = lu(k,391) - lu(k,261) * lu(k,388) - lu(k,394) = lu(k,394) - lu(k,262) * lu(k,388) - lu(k,395) = lu(k,395) - lu(k,263) * lu(k,388) - lu(k,396) = lu(k,396) - lu(k,264) * lu(k,388) - lu(k,397) = lu(k,397) - lu(k,265) * lu(k,388) - lu(k,398) = lu(k,398) - lu(k,266) * lu(k,388) - lu(k,400) = lu(k,400) - lu(k,267) * lu(k,388) - lu(k,403) = lu(k,403) - lu(k,268) * lu(k,388) - lu(k,404) = - lu(k,269) * lu(k,388) - lu(k,405) = lu(k,405) - lu(k,270) * lu(k,388) - lu(k,406) = lu(k,406) - lu(k,271) * lu(k,388) - lu(k,407) = lu(k,407) - lu(k,272) * lu(k,388) - lu(k,442) = lu(k,442) - lu(k,260) * lu(k,441) - lu(k,444) = lu(k,444) - lu(k,261) * lu(k,441) - lu(k,447) = lu(k,447) - lu(k,262) * lu(k,441) - lu(k,448) = lu(k,448) - lu(k,263) * lu(k,441) - lu(k,449) = lu(k,449) - lu(k,264) * lu(k,441) - lu(k,450) = lu(k,450) - lu(k,265) * lu(k,441) - lu(k,451) = lu(k,451) - lu(k,266) * lu(k,441) - lu(k,453) = lu(k,453) - lu(k,267) * lu(k,441) - lu(k,456) = lu(k,456) - lu(k,268) * lu(k,441) - lu(k,457) = lu(k,457) - lu(k,269) * lu(k,441) - lu(k,458) = lu(k,458) - lu(k,270) * lu(k,441) - lu(k,459) = lu(k,459) - lu(k,271) * lu(k,441) - lu(k,460) = lu(k,460) - lu(k,272) * lu(k,441) - lu(k,470) = lu(k,470) - lu(k,260) * lu(k,469) - lu(k,472) = lu(k,472) - lu(k,261) * lu(k,469) - lu(k,475) = lu(k,475) - lu(k,262) * lu(k,469) - lu(k,476) = lu(k,476) - lu(k,263) * lu(k,469) - lu(k,477) = lu(k,477) - lu(k,264) * lu(k,469) - lu(k,478) = lu(k,478) - lu(k,265) * lu(k,469) - lu(k,479) = lu(k,479) - lu(k,266) * lu(k,469) - lu(k,481) = lu(k,481) - lu(k,267) * lu(k,469) - lu(k,484) = lu(k,484) - lu(k,268) * lu(k,469) - lu(k,485) = - lu(k,269) * lu(k,469) - lu(k,486) = lu(k,486) - lu(k,270) * lu(k,469) - lu(k,487) = lu(k,487) - lu(k,271) * lu(k,469) - lu(k,488) = lu(k,488) - lu(k,272) * lu(k,469) - lu(k,593) = lu(k,593) - lu(k,260) * lu(k,592) - lu(k,594) = - lu(k,261) * lu(k,592) - lu(k,595) = - lu(k,262) * lu(k,592) - lu(k,596) = - lu(k,263) * lu(k,592) - lu(k,597) = lu(k,597) - lu(k,264) * lu(k,592) - lu(k,598) = lu(k,598) - lu(k,265) * lu(k,592) - lu(k,599) = - lu(k,266) * lu(k,592) - lu(k,601) = lu(k,601) - lu(k,267) * lu(k,592) - lu(k,604) = lu(k,604) - lu(k,268) * lu(k,592) - lu(k,605) = lu(k,605) - lu(k,269) * lu(k,592) - lu(k,606) = lu(k,606) - lu(k,270) * lu(k,592) - lu(k,607) = lu(k,607) - lu(k,271) * lu(k,592) - lu(k,608) = lu(k,608) - lu(k,272) * lu(k,592) - lu(k,614) = lu(k,614) - lu(k,260) * lu(k,613) - lu(k,615) = lu(k,615) - lu(k,261) * lu(k,613) - lu(k,617) = lu(k,617) - lu(k,262) * lu(k,613) - lu(k,618) = lu(k,618) - lu(k,263) * lu(k,613) - lu(k,619) = lu(k,619) - lu(k,264) * lu(k,613) - lu(k,620) = lu(k,620) - lu(k,265) * lu(k,613) - lu(k,621) = lu(k,621) - lu(k,266) * lu(k,613) - lu(k,623) = lu(k,623) - lu(k,267) * lu(k,613) - lu(k,626) = lu(k,626) - lu(k,268) * lu(k,613) - lu(k,627) = lu(k,627) - lu(k,269) * lu(k,613) - lu(k,628) = lu(k,628) - lu(k,270) * lu(k,613) - lu(k,629) = lu(k,629) - lu(k,271) * lu(k,613) - lu(k,630) = lu(k,630) - lu(k,272) * lu(k,613) - lu(k,649) = lu(k,649) - lu(k,260) * lu(k,648) - lu(k,651) = lu(k,651) - lu(k,261) * lu(k,648) - lu(k,654) = lu(k,654) - lu(k,262) * lu(k,648) - lu(k,655) = lu(k,655) - lu(k,263) * lu(k,648) - lu(k,656) = lu(k,656) - lu(k,264) * lu(k,648) - lu(k,657) = lu(k,657) - lu(k,265) * lu(k,648) - lu(k,658) = lu(k,658) - lu(k,266) * lu(k,648) - lu(k,660) = lu(k,660) - lu(k,267) * lu(k,648) - lu(k,663) = lu(k,663) - 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,666) = lu(k,666) - lu(k,271) * lu(k,648) - lu(k,667) = lu(k,667) - lu(k,272) * lu(k,648) - lu(k,690) = lu(k,690) - lu(k,260) * lu(k,689) - lu(k,692) = lu(k,692) - lu(k,261) * lu(k,689) - lu(k,695) = lu(k,695) - lu(k,262) * lu(k,689) - lu(k,696) = lu(k,696) - lu(k,263) * lu(k,689) - lu(k,697) = lu(k,697) - lu(k,264) * lu(k,689) - lu(k,698) = lu(k,698) - lu(k,265) * lu(k,689) - lu(k,699) = lu(k,699) - lu(k,266) * lu(k,689) - lu(k,701) = lu(k,701) - lu(k,267) * lu(k,689) - lu(k,704) = lu(k,704) - lu(k,268) * lu(k,689) - lu(k,705) = lu(k,705) - lu(k,269) * lu(k,689) - lu(k,706) = lu(k,706) - lu(k,270) * lu(k,689) - lu(k,707) = lu(k,707) - lu(k,271) * lu(k,689) - lu(k,708) = lu(k,708) - lu(k,272) * lu(k,689) - lu(k,716) = lu(k,716) - lu(k,260) * lu(k,715) - lu(k,717) = - lu(k,261) * lu(k,715) - lu(k,720) = - lu(k,262) * lu(k,715) - lu(k,721) = - lu(k,263) * lu(k,715) - lu(k,722) = lu(k,722) - lu(k,264) * lu(k,715) - lu(k,723) = lu(k,723) - lu(k,265) * lu(k,715) - lu(k,724) = - lu(k,266) * lu(k,715) - lu(k,726) = - lu(k,267) * lu(k,715) - lu(k,729) = - lu(k,268) * lu(k,715) - lu(k,730) = - lu(k,269) * lu(k,715) - lu(k,731) = lu(k,731) - lu(k,270) * lu(k,715) - lu(k,732) = lu(k,732) - lu(k,271) * lu(k,715) - lu(k,733) = lu(k,733) - lu(k,272) * lu(k,715) - lu(k,273) = 1._r8 / lu(k,273) - lu(k,274) = lu(k,274) * lu(k,273) - lu(k,275) = lu(k,275) * lu(k,273) - lu(k,276) = lu(k,276) * lu(k,273) - lu(k,277) = lu(k,277) * lu(k,273) - lu(k,278) = lu(k,278) * lu(k,273) - lu(k,279) = lu(k,279) * lu(k,273) - lu(k,280) = lu(k,280) * lu(k,273) - lu(k,294) = - lu(k,274) * lu(k,287) - lu(k,298) = lu(k,298) - lu(k,275) * lu(k,287) - lu(k,299) = - lu(k,276) * lu(k,287) - lu(k,300) = - lu(k,277) * lu(k,287) - lu(k,301) = lu(k,301) - lu(k,278) * lu(k,287) - lu(k,302) = lu(k,302) - lu(k,279) * lu(k,287) - lu(k,303) = lu(k,303) - lu(k,280) * lu(k,287) - lu(k,309) = lu(k,309) - lu(k,274) * lu(k,306) - lu(k,312) = - lu(k,275) * lu(k,306) - lu(k,313) = lu(k,313) - lu(k,276) * lu(k,306) - lu(k,314) = lu(k,314) - lu(k,277) * lu(k,306) - lu(k,315) = lu(k,315) - lu(k,278) * lu(k,306) - lu(k,316) = lu(k,316) - lu(k,279) * lu(k,306) - lu(k,317) = lu(k,317) - lu(k,280) * lu(k,306) - lu(k,322) = lu(k,322) - lu(k,274) * lu(k,319) - lu(k,327) = - lu(k,275) * lu(k,319) - lu(k,328) = lu(k,328) - lu(k,276) * lu(k,319) - lu(k,329) = - lu(k,277) * lu(k,319) - lu(k,330) = lu(k,330) - lu(k,278) * lu(k,319) - lu(k,331) = - lu(k,279) * lu(k,319) - lu(k,332) = lu(k,332) - lu(k,280) * lu(k,319) - lu(k,345) = lu(k,345) - lu(k,274) * lu(k,339) - lu(k,351) = lu(k,351) - lu(k,275) * lu(k,339) - lu(k,352) = lu(k,352) - lu(k,276) * lu(k,339) - lu(k,353) = lu(k,353) - lu(k,277) * lu(k,339) - lu(k,354) = lu(k,354) - lu(k,278) * lu(k,339) - lu(k,355) = lu(k,355) - lu(k,279) * lu(k,339) - lu(k,356) = lu(k,356) - lu(k,280) * lu(k,339) - lu(k,370) = lu(k,370) - lu(k,274) * lu(k,363) - lu(k,376) = lu(k,376) - lu(k,275) * lu(k,363) - lu(k,377) = lu(k,377) - lu(k,276) * lu(k,363) - lu(k,378) = lu(k,378) - lu(k,277) * lu(k,363) - lu(k,379) = lu(k,379) - lu(k,278) * lu(k,363) - lu(k,380) = lu(k,380) - lu(k,279) * lu(k,363) - lu(k,381) = lu(k,381) - lu(k,280) * lu(k,363) - lu(k,396) = lu(k,396) - lu(k,274) * lu(k,389) - lu(k,402) = lu(k,402) - lu(k,275) * lu(k,389) - lu(k,403) = lu(k,403) - lu(k,276) * lu(k,389) - lu(k,404) = lu(k,404) - lu(k,277) * lu(k,389) - lu(k,405) = lu(k,405) - lu(k,278) * lu(k,389) - lu(k,406) = lu(k,406) - lu(k,279) * lu(k,389) - lu(k,407) = lu(k,407) - lu(k,280) * lu(k,389) - lu(k,421) = lu(k,421) - lu(k,274) * lu(k,414) - lu(k,427) = lu(k,427) - lu(k,275) * lu(k,414) - lu(k,428) = lu(k,428) - lu(k,276) * lu(k,414) - lu(k,429) = lu(k,429) - lu(k,277) * lu(k,414) - lu(k,430) = lu(k,430) - lu(k,278) * lu(k,414) - lu(k,431) = lu(k,431) - lu(k,279) * lu(k,414) - lu(k,432) = lu(k,432) - lu(k,280) * lu(k,414) - lu(k,449) = lu(k,449) - lu(k,274) * lu(k,442) - lu(k,455) = lu(k,455) - lu(k,275) * lu(k,442) - lu(k,456) = lu(k,456) - lu(k,276) * lu(k,442) - lu(k,457) = lu(k,457) - lu(k,277) * lu(k,442) - lu(k,458) = lu(k,458) - lu(k,278) * lu(k,442) - lu(k,459) = lu(k,459) - lu(k,279) * lu(k,442) - lu(k,460) = lu(k,460) - lu(k,280) * lu(k,442) - lu(k,477) = lu(k,477) - lu(k,274) * lu(k,470) - lu(k,483) = lu(k,483) - lu(k,275) * lu(k,470) - lu(k,484) = lu(k,484) - lu(k,276) * lu(k,470) - lu(k,485) = lu(k,485) - lu(k,277) * lu(k,470) - lu(k,486) = lu(k,486) - lu(k,278) * lu(k,470) - lu(k,487) = lu(k,487) - lu(k,279) * lu(k,470) - lu(k,488) = lu(k,488) - lu(k,280) * lu(k,470) - lu(k,499) = lu(k,499) - lu(k,274) * lu(k,492) - lu(k,505) = lu(k,505) - lu(k,275) * lu(k,492) - lu(k,506) = - lu(k,276) * lu(k,492) - lu(k,507) = - lu(k,277) * lu(k,492) - lu(k,508) = lu(k,508) - lu(k,278) * lu(k,492) - lu(k,509) = lu(k,509) - lu(k,279) * lu(k,492) - lu(k,510) = lu(k,510) - lu(k,280) * lu(k,492) - lu(k,521) = lu(k,521) - lu(k,274) * lu(k,515) - lu(k,527) = - lu(k,275) * lu(k,515) - lu(k,528) = lu(k,528) - lu(k,276) * lu(k,515) - lu(k,529) = lu(k,529) - lu(k,277) * lu(k,515) - lu(k,530) = lu(k,530) - lu(k,278) * lu(k,515) - lu(k,531) = lu(k,531) - lu(k,279) * lu(k,515) - lu(k,532) = - lu(k,280) * lu(k,515) - lu(k,546) = lu(k,546) - lu(k,274) * lu(k,539) - lu(k,552) = lu(k,552) - lu(k,275) * lu(k,539) - lu(k,553) = lu(k,553) - lu(k,276) * lu(k,539) - lu(k,554) = lu(k,554) - lu(k,277) * lu(k,539) - lu(k,555) = lu(k,555) - lu(k,278) * lu(k,539) - lu(k,556) = lu(k,556) - lu(k,279) * lu(k,539) - lu(k,557) = lu(k,557) - lu(k,280) * lu(k,539) - lu(k,568) = - lu(k,274) * lu(k,561) - lu(k,574) = lu(k,574) - lu(k,275) * lu(k,561) - lu(k,575) = - lu(k,276) * lu(k,561) - lu(k,576) = - lu(k,277) * lu(k,561) - lu(k,577) = lu(k,577) - lu(k,278) * lu(k,561) - lu(k,578) = lu(k,578) - lu(k,279) * lu(k,561) - lu(k,579) = lu(k,579) - lu(k,280) * lu(k,561) - lu(k,597) = lu(k,597) - lu(k,274) * lu(k,593) - lu(k,603) = - lu(k,275) * lu(k,593) - lu(k,604) = lu(k,604) - lu(k,276) * lu(k,593) - lu(k,605) = lu(k,605) - lu(k,277) * lu(k,593) - lu(k,606) = lu(k,606) - lu(k,278) * lu(k,593) - lu(k,607) = lu(k,607) - lu(k,279) * lu(k,593) - lu(k,608) = lu(k,608) - lu(k,280) * lu(k,593) - lu(k,619) = lu(k,619) - lu(k,274) * lu(k,614) - lu(k,625) = - lu(k,275) * lu(k,614) - lu(k,626) = lu(k,626) - lu(k,276) * lu(k,614) - lu(k,627) = lu(k,627) - lu(k,277) * lu(k,614) - lu(k,628) = lu(k,628) - lu(k,278) * lu(k,614) - lu(k,629) = lu(k,629) - lu(k,279) * lu(k,614) - lu(k,630) = lu(k,630) - lu(k,280) * lu(k,614) - lu(k,656) = lu(k,656) - lu(k,274) * lu(k,649) - lu(k,662) = lu(k,662) - lu(k,275) * lu(k,649) - lu(k,663) = lu(k,663) - lu(k,276) * lu(k,649) - lu(k,664) = lu(k,664) - lu(k,277) * lu(k,649) - lu(k,665) = lu(k,665) - lu(k,278) * lu(k,649) - lu(k,666) = lu(k,666) - lu(k,279) * lu(k,649) - lu(k,667) = lu(k,667) - lu(k,280) * lu(k,649) - lu(k,697) = lu(k,697) - lu(k,274) * lu(k,690) - lu(k,703) = lu(k,703) - lu(k,275) * lu(k,690) - lu(k,704) = lu(k,704) - lu(k,276) * lu(k,690) - lu(k,705) = lu(k,705) - lu(k,277) * lu(k,690) - lu(k,706) = lu(k,706) - lu(k,278) * lu(k,690) - lu(k,707) = lu(k,707) - lu(k,279) * lu(k,690) - lu(k,708) = lu(k,708) - lu(k,280) * lu(k,690) - lu(k,722) = lu(k,722) - lu(k,274) * lu(k,716) - lu(k,728) = lu(k,728) - lu(k,275) * lu(k,716) - lu(k,729) = lu(k,729) - lu(k,276) * lu(k,716) - lu(k,730) = lu(k,730) - lu(k,277) * lu(k,716) - lu(k,731) = lu(k,731) - lu(k,278) * lu(k,716) - lu(k,732) = lu(k,732) - lu(k,279) * lu(k,716) - lu(k,733) = lu(k,733) - lu(k,280) * lu(k,716) + lu(k,274) = 1._r8 / lu(k,274) + lu(k,275) = lu(k,275) * lu(k,274) + lu(k,276) = lu(k,276) * lu(k,274) + lu(k,277) = lu(k,277) * lu(k,274) + lu(k,278) = lu(k,278) * lu(k,274) + lu(k,279) = lu(k,279) * lu(k,274) + lu(k,280) = lu(k,280) * lu(k,274) + lu(k,281) = lu(k,281) * lu(k,274) + 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,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,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,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,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,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,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,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,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) + 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,297) = lu(k,297) * lu(k,285) + lu(k,298) = lu(k,298) * lu(k,285) + lu(k,366) = lu(k,366) - lu(k,286) * lu(k,365) + 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,372) - lu(k,290) * lu(k,365) + lu(k,373) = lu(k,373) - lu(k,291) * 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) + lu(k,448) = lu(k,448) - lu(k,288) * lu(k,442) + 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,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) + lu(k,491) = lu(k,491) - lu(k,288) * lu(k,485) + 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,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,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,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,753) - lu(k,290) * lu(k,746) + lu(k,754) = lu(k,754) - lu(k,291) * 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 subroutine lu_fac08( avec_len, lu ) @@ -1431,502 +1415,467 @@ subroutine lu_fac08( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,288) = 1._r8 / lu(k,288) - lu(k,289) = lu(k,289) * lu(k,288) - lu(k,290) = lu(k,290) * lu(k,288) - lu(k,291) = lu(k,291) * lu(k,288) - lu(k,292) = lu(k,292) * lu(k,288) - lu(k,293) = lu(k,293) * lu(k,288) - lu(k,294) = lu(k,294) * lu(k,288) - lu(k,295) = lu(k,295) * lu(k,288) - lu(k,296) = lu(k,296) * lu(k,288) - lu(k,297) = lu(k,297) * lu(k,288) - lu(k,298) = lu(k,298) * lu(k,288) - lu(k,299) = lu(k,299) * lu(k,288) - lu(k,300) = lu(k,300) * lu(k,288) - lu(k,301) = lu(k,301) * lu(k,288) - lu(k,302) = lu(k,302) * lu(k,288) - lu(k,303) = lu(k,303) * lu(k,288) - lu(k,365) = lu(k,365) - lu(k,289) * lu(k,364) - lu(k,366) = lu(k,366) - lu(k,290) * lu(k,364) - lu(k,367) = lu(k,367) - lu(k,291) * lu(k,364) - lu(k,368) = lu(k,368) - lu(k,292) * lu(k,364) - lu(k,369) = - lu(k,293) * lu(k,364) - lu(k,370) = lu(k,370) - lu(k,294) * lu(k,364) - lu(k,371) = lu(k,371) - lu(k,295) * lu(k,364) - lu(k,372) = lu(k,372) - lu(k,296) * lu(k,364) - lu(k,375) = - lu(k,297) * lu(k,364) - lu(k,376) = lu(k,376) - lu(k,298) * lu(k,364) - lu(k,377) = lu(k,377) - lu(k,299) * lu(k,364) - lu(k,378) = lu(k,378) - lu(k,300) * lu(k,364) - lu(k,379) = lu(k,379) - lu(k,301) * lu(k,364) - lu(k,380) = lu(k,380) - lu(k,302) * lu(k,364) - lu(k,381) = lu(k,381) - lu(k,303) * lu(k,364) - lu(k,391) = lu(k,391) - lu(k,289) * lu(k,390) - lu(k,392) = lu(k,392) - lu(k,290) * lu(k,390) - lu(k,393) = lu(k,393) - lu(k,291) * lu(k,390) - lu(k,394) = lu(k,394) - lu(k,292) * lu(k,390) - lu(k,395) = lu(k,395) - lu(k,293) * lu(k,390) - lu(k,396) = lu(k,396) - lu(k,294) * lu(k,390) - lu(k,397) = lu(k,397) - lu(k,295) * lu(k,390) - lu(k,398) = lu(k,398) - lu(k,296) * lu(k,390) - lu(k,401) = - lu(k,297) * lu(k,390) - lu(k,402) = lu(k,402) - lu(k,298) * lu(k,390) - lu(k,403) = lu(k,403) - lu(k,299) * lu(k,390) - lu(k,404) = lu(k,404) - lu(k,300) * lu(k,390) - lu(k,405) = lu(k,405) - lu(k,301) * lu(k,390) - lu(k,406) = lu(k,406) - lu(k,302) * lu(k,390) - lu(k,407) = lu(k,407) - lu(k,303) * lu(k,390) - lu(k,416) = lu(k,416) - lu(k,289) * lu(k,415) - lu(k,417) = lu(k,417) - lu(k,290) * lu(k,415) - lu(k,418) = lu(k,418) - lu(k,291) * lu(k,415) - lu(k,419) = lu(k,419) - lu(k,292) * lu(k,415) - lu(k,420) = lu(k,420) - lu(k,293) * lu(k,415) - lu(k,421) = lu(k,421) - lu(k,294) * lu(k,415) - lu(k,422) = lu(k,422) - lu(k,295) * lu(k,415) - lu(k,423) = lu(k,423) - lu(k,296) * lu(k,415) - lu(k,426) = lu(k,426) - lu(k,297) * lu(k,415) - lu(k,427) = lu(k,427) - lu(k,298) * lu(k,415) - lu(k,428) = lu(k,428) - lu(k,299) * lu(k,415) - lu(k,429) = lu(k,429) - lu(k,300) * lu(k,415) - lu(k,430) = lu(k,430) - lu(k,301) * lu(k,415) - lu(k,431) = lu(k,431) - lu(k,302) * lu(k,415) - lu(k,432) = lu(k,432) - lu(k,303) * lu(k,415) - lu(k,444) = lu(k,444) - lu(k,289) * lu(k,443) - lu(k,445) = lu(k,445) - lu(k,290) * lu(k,443) - lu(k,446) = lu(k,446) - lu(k,291) * lu(k,443) - lu(k,447) = lu(k,447) - lu(k,292) * lu(k,443) - lu(k,448) = lu(k,448) - lu(k,293) * lu(k,443) - lu(k,449) = lu(k,449) - lu(k,294) * lu(k,443) - lu(k,450) = lu(k,450) - lu(k,295) * lu(k,443) - lu(k,451) = lu(k,451) - lu(k,296) * lu(k,443) - lu(k,454) = lu(k,454) - lu(k,297) * lu(k,443) - lu(k,455) = lu(k,455) - lu(k,298) * lu(k,443) - lu(k,456) = lu(k,456) - lu(k,299) * lu(k,443) - lu(k,457) = lu(k,457) - lu(k,300) * lu(k,443) - lu(k,458) = lu(k,458) - lu(k,301) * lu(k,443) - lu(k,459) = lu(k,459) - lu(k,302) * lu(k,443) - lu(k,460) = lu(k,460) - lu(k,303) * lu(k,443) - lu(k,472) = lu(k,472) - lu(k,289) * lu(k,471) - lu(k,473) = lu(k,473) - lu(k,290) * lu(k,471) - lu(k,474) = lu(k,474) - lu(k,291) * lu(k,471) - lu(k,475) = lu(k,475) - lu(k,292) * lu(k,471) - lu(k,476) = lu(k,476) - lu(k,293) * lu(k,471) - lu(k,477) = lu(k,477) - lu(k,294) * lu(k,471) - lu(k,478) = lu(k,478) - lu(k,295) * lu(k,471) - lu(k,479) = lu(k,479) - lu(k,296) * lu(k,471) - lu(k,482) = - lu(k,297) * lu(k,471) - lu(k,483) = lu(k,483) - lu(k,298) * lu(k,471) - lu(k,484) = lu(k,484) - lu(k,299) * lu(k,471) - lu(k,485) = lu(k,485) - lu(k,300) * lu(k,471) - lu(k,486) = lu(k,486) - lu(k,301) * lu(k,471) - lu(k,487) = lu(k,487) - lu(k,302) * lu(k,471) - lu(k,488) = lu(k,488) - lu(k,303) * lu(k,471) - lu(k,494) = lu(k,494) - lu(k,289) * lu(k,493) - lu(k,495) = lu(k,495) - lu(k,290) * lu(k,493) - lu(k,496) = lu(k,496) - lu(k,291) * lu(k,493) - lu(k,497) = lu(k,497) - lu(k,292) * lu(k,493) - lu(k,498) = lu(k,498) - lu(k,293) * lu(k,493) - lu(k,499) = lu(k,499) - lu(k,294) * lu(k,493) - lu(k,500) = lu(k,500) - lu(k,295) * lu(k,493) - lu(k,501) = - lu(k,296) * lu(k,493) - lu(k,504) = lu(k,504) - lu(k,297) * lu(k,493) - lu(k,505) = lu(k,505) - lu(k,298) * lu(k,493) - lu(k,506) = lu(k,506) - lu(k,299) * lu(k,493) - lu(k,507) = lu(k,507) - lu(k,300) * lu(k,493) - lu(k,508) = lu(k,508) - lu(k,301) * lu(k,493) - lu(k,509) = lu(k,509) - lu(k,302) * lu(k,493) - lu(k,510) = lu(k,510) - lu(k,303) * lu(k,493) - lu(k,541) = lu(k,541) - lu(k,289) * lu(k,540) - lu(k,542) = lu(k,542) - lu(k,290) * lu(k,540) - lu(k,543) = lu(k,543) - lu(k,291) * lu(k,540) - lu(k,544) = lu(k,544) - lu(k,292) * lu(k,540) - lu(k,545) = lu(k,545) - lu(k,293) * lu(k,540) - lu(k,546) = lu(k,546) - lu(k,294) * lu(k,540) - lu(k,547) = lu(k,547) - lu(k,295) * lu(k,540) - lu(k,548) = lu(k,548) - lu(k,296) * lu(k,540) - lu(k,551) = lu(k,551) - lu(k,297) * lu(k,540) - lu(k,552) = lu(k,552) - lu(k,298) * lu(k,540) - lu(k,553) = lu(k,553) - lu(k,299) * lu(k,540) - lu(k,554) = lu(k,554) - lu(k,300) * lu(k,540) - lu(k,555) = lu(k,555) - lu(k,301) * lu(k,540) - lu(k,556) = lu(k,556) - lu(k,302) * lu(k,540) - lu(k,557) = lu(k,557) - lu(k,303) * lu(k,540) - lu(k,563) = - lu(k,289) * lu(k,562) - lu(k,564) = lu(k,564) - lu(k,290) * lu(k,562) - lu(k,565) = lu(k,565) - lu(k,291) * lu(k,562) - lu(k,566) = lu(k,566) - lu(k,292) * lu(k,562) - lu(k,567) = - lu(k,293) * lu(k,562) - lu(k,568) = lu(k,568) - lu(k,294) * lu(k,562) - lu(k,569) = lu(k,569) - lu(k,295) * lu(k,562) - lu(k,570) = - lu(k,296) * lu(k,562) - lu(k,573) = lu(k,573) - lu(k,297) * lu(k,562) - lu(k,574) = lu(k,574) - lu(k,298) * lu(k,562) - lu(k,575) = lu(k,575) - lu(k,299) * lu(k,562) - lu(k,576) = lu(k,576) - lu(k,300) * lu(k,562) - lu(k,577) = lu(k,577) - lu(k,301) * lu(k,562) - lu(k,578) = lu(k,578) - lu(k,302) * lu(k,562) - lu(k,579) = lu(k,579) - lu(k,303) * lu(k,562) - lu(k,651) = lu(k,651) - lu(k,289) * lu(k,650) - lu(k,652) = lu(k,652) - lu(k,290) * lu(k,650) - lu(k,653) = lu(k,653) - lu(k,291) * lu(k,650) - lu(k,654) = lu(k,654) - lu(k,292) * lu(k,650) - lu(k,655) = lu(k,655) - lu(k,293) * lu(k,650) - lu(k,656) = lu(k,656) - lu(k,294) * lu(k,650) - lu(k,657) = lu(k,657) - lu(k,295) * lu(k,650) - lu(k,658) = lu(k,658) - lu(k,296) * lu(k,650) - lu(k,661) = lu(k,661) - lu(k,297) * lu(k,650) - lu(k,662) = lu(k,662) - lu(k,298) * lu(k,650) - lu(k,663) = lu(k,663) - lu(k,299) * lu(k,650) - lu(k,664) = lu(k,664) - lu(k,300) * lu(k,650) - lu(k,665) = lu(k,665) - lu(k,301) * lu(k,650) - lu(k,666) = lu(k,666) - lu(k,302) * lu(k,650) - lu(k,667) = lu(k,667) - lu(k,303) * lu(k,650) - lu(k,692) = lu(k,692) - lu(k,289) * lu(k,691) - lu(k,693) = lu(k,693) - lu(k,290) * lu(k,691) - lu(k,694) = lu(k,694) - lu(k,291) * lu(k,691) - lu(k,695) = lu(k,695) - lu(k,292) * lu(k,691) - lu(k,696) = lu(k,696) - lu(k,293) * lu(k,691) - lu(k,697) = lu(k,697) - lu(k,294) * lu(k,691) - lu(k,698) = lu(k,698) - lu(k,295) * lu(k,691) - lu(k,699) = lu(k,699) - lu(k,296) * lu(k,691) - lu(k,702) = lu(k,702) - lu(k,297) * lu(k,691) - lu(k,703) = lu(k,703) - lu(k,298) * lu(k,691) - lu(k,704) = lu(k,704) - lu(k,299) * lu(k,691) - lu(k,705) = lu(k,705) - lu(k,300) * lu(k,691) - lu(k,706) = lu(k,706) - lu(k,301) * lu(k,691) - lu(k,707) = lu(k,707) - lu(k,302) * lu(k,691) - lu(k,708) = lu(k,708) - lu(k,303) * lu(k,691) - lu(k,307) = 1._r8 / lu(k,307) - lu(k,308) = lu(k,308) * lu(k,307) - lu(k,309) = lu(k,309) * lu(k,307) - lu(k,310) = lu(k,310) * lu(k,307) - lu(k,311) = lu(k,311) * lu(k,307) - lu(k,312) = lu(k,312) * lu(k,307) - lu(k,313) = lu(k,313) * lu(k,307) - lu(k,314) = lu(k,314) * lu(k,307) - lu(k,315) = lu(k,315) * lu(k,307) - lu(k,316) = lu(k,316) * lu(k,307) - lu(k,317) = lu(k,317) * lu(k,307) - lu(k,344) = lu(k,344) - lu(k,308) * lu(k,340) - lu(k,345) = lu(k,345) - lu(k,309) * lu(k,340) - lu(k,348) = lu(k,348) - lu(k,310) * lu(k,340) - lu(k,350) = - lu(k,311) * lu(k,340) - lu(k,351) = lu(k,351) - lu(k,312) * lu(k,340) - lu(k,352) = lu(k,352) - lu(k,313) * lu(k,340) - lu(k,353) = lu(k,353) - lu(k,314) * lu(k,340) - lu(k,354) = lu(k,354) - lu(k,315) * lu(k,340) - lu(k,355) = lu(k,355) - lu(k,316) * lu(k,340) - lu(k,356) = lu(k,356) - lu(k,317) * lu(k,340) - lu(k,369) = lu(k,369) - lu(k,308) * lu(k,365) - lu(k,370) = lu(k,370) - lu(k,309) * lu(k,365) - lu(k,373) = lu(k,373) - lu(k,310) * lu(k,365) - lu(k,375) = lu(k,375) - lu(k,311) * lu(k,365) - lu(k,376) = lu(k,376) - lu(k,312) * lu(k,365) - lu(k,377) = lu(k,377) - lu(k,313) * lu(k,365) - lu(k,378) = lu(k,378) - lu(k,314) * lu(k,365) - lu(k,379) = lu(k,379) - lu(k,315) * lu(k,365) - lu(k,380) = lu(k,380) - lu(k,316) * lu(k,365) - lu(k,381) = lu(k,381) - lu(k,317) * lu(k,365) - lu(k,395) = lu(k,395) - lu(k,308) * lu(k,391) - lu(k,396) = lu(k,396) - lu(k,309) * lu(k,391) - lu(k,399) = - lu(k,310) * lu(k,391) - lu(k,401) = lu(k,401) - lu(k,311) * lu(k,391) - lu(k,402) = lu(k,402) - lu(k,312) * lu(k,391) - lu(k,403) = lu(k,403) - lu(k,313) * lu(k,391) - lu(k,404) = lu(k,404) - lu(k,314) * lu(k,391) - lu(k,405) = lu(k,405) - lu(k,315) * lu(k,391) - lu(k,406) = lu(k,406) - lu(k,316) * lu(k,391) - lu(k,407) = lu(k,407) - lu(k,317) * lu(k,391) - lu(k,420) = lu(k,420) - lu(k,308) * lu(k,416) - lu(k,421) = lu(k,421) - lu(k,309) * lu(k,416) - lu(k,424) = lu(k,424) - lu(k,310) * lu(k,416) - lu(k,426) = lu(k,426) - lu(k,311) * lu(k,416) - lu(k,427) = lu(k,427) - lu(k,312) * lu(k,416) - lu(k,428) = lu(k,428) - lu(k,313) * lu(k,416) - lu(k,429) = lu(k,429) - lu(k,314) * lu(k,416) - lu(k,430) = lu(k,430) - lu(k,315) * lu(k,416) - lu(k,431) = lu(k,431) - lu(k,316) * lu(k,416) - lu(k,432) = lu(k,432) - lu(k,317) * lu(k,416) - lu(k,448) = lu(k,448) - lu(k,308) * lu(k,444) - lu(k,449) = lu(k,449) - lu(k,309) * lu(k,444) - lu(k,452) = - lu(k,310) * lu(k,444) - lu(k,454) = lu(k,454) - lu(k,311) * lu(k,444) - lu(k,455) = lu(k,455) - lu(k,312) * lu(k,444) - lu(k,456) = lu(k,456) - lu(k,313) * lu(k,444) - lu(k,457) = lu(k,457) - lu(k,314) * lu(k,444) - lu(k,458) = lu(k,458) - lu(k,315) * lu(k,444) - lu(k,459) = lu(k,459) - lu(k,316) * lu(k,444) - lu(k,460) = lu(k,460) - lu(k,317) * lu(k,444) - lu(k,476) = lu(k,476) - lu(k,308) * lu(k,472) - lu(k,477) = lu(k,477) - lu(k,309) * lu(k,472) - lu(k,480) = lu(k,480) - lu(k,310) * lu(k,472) - lu(k,482) = lu(k,482) - lu(k,311) * lu(k,472) - lu(k,483) = lu(k,483) - lu(k,312) * lu(k,472) - lu(k,484) = lu(k,484) - lu(k,313) * lu(k,472) - lu(k,485) = lu(k,485) - lu(k,314) * lu(k,472) - lu(k,486) = lu(k,486) - lu(k,315) * lu(k,472) - lu(k,487) = lu(k,487) - lu(k,316) * lu(k,472) - lu(k,488) = lu(k,488) - lu(k,317) * lu(k,472) - lu(k,498) = lu(k,498) - lu(k,308) * lu(k,494) - lu(k,499) = lu(k,499) - lu(k,309) * lu(k,494) - lu(k,502) = lu(k,502) - lu(k,310) * lu(k,494) - lu(k,504) = lu(k,504) - lu(k,311) * lu(k,494) - lu(k,505) = lu(k,505) - lu(k,312) * lu(k,494) - lu(k,506) = lu(k,506) - lu(k,313) * lu(k,494) - lu(k,507) = lu(k,507) - lu(k,314) * lu(k,494) - lu(k,508) = lu(k,508) - lu(k,315) * lu(k,494) - lu(k,509) = lu(k,509) - lu(k,316) * lu(k,494) - lu(k,510) = lu(k,510) - lu(k,317) * lu(k,494) - lu(k,520) = lu(k,520) - lu(k,308) * lu(k,516) - lu(k,521) = lu(k,521) - lu(k,309) * lu(k,516) - lu(k,524) = lu(k,524) - lu(k,310) * lu(k,516) - lu(k,526) = lu(k,526) - lu(k,311) * lu(k,516) - lu(k,527) = lu(k,527) - lu(k,312) * lu(k,516) - lu(k,528) = lu(k,528) - lu(k,313) * lu(k,516) - lu(k,529) = lu(k,529) - lu(k,314) * lu(k,516) - lu(k,530) = lu(k,530) - lu(k,315) * lu(k,516) - lu(k,531) = lu(k,531) - lu(k,316) * lu(k,516) - lu(k,532) = lu(k,532) - lu(k,317) * lu(k,516) - lu(k,545) = lu(k,545) - lu(k,308) * lu(k,541) - lu(k,546) = lu(k,546) - lu(k,309) * lu(k,541) - lu(k,549) = lu(k,549) - lu(k,310) * lu(k,541) - lu(k,551) = lu(k,551) - lu(k,311) * lu(k,541) - lu(k,552) = lu(k,552) - lu(k,312) * lu(k,541) - lu(k,553) = lu(k,553) - lu(k,313) * lu(k,541) - lu(k,554) = lu(k,554) - lu(k,314) * lu(k,541) - lu(k,555) = lu(k,555) - lu(k,315) * lu(k,541) - lu(k,556) = lu(k,556) - lu(k,316) * lu(k,541) - lu(k,557) = lu(k,557) - lu(k,317) * lu(k,541) - lu(k,567) = lu(k,567) - lu(k,308) * lu(k,563) - lu(k,568) = lu(k,568) - lu(k,309) * lu(k,563) - lu(k,571) = - lu(k,310) * lu(k,563) - lu(k,573) = lu(k,573) - lu(k,311) * lu(k,563) - lu(k,574) = lu(k,574) - lu(k,312) * lu(k,563) - lu(k,575) = lu(k,575) - lu(k,313) * lu(k,563) - lu(k,576) = lu(k,576) - lu(k,314) * lu(k,563) - lu(k,577) = lu(k,577) - lu(k,315) * lu(k,563) - lu(k,578) = lu(k,578) - lu(k,316) * lu(k,563) - lu(k,579) = lu(k,579) - lu(k,317) * lu(k,563) - lu(k,596) = lu(k,596) - lu(k,308) * lu(k,594) - lu(k,597) = lu(k,597) - lu(k,309) * lu(k,594) - lu(k,600) = - lu(k,310) * lu(k,594) - lu(k,602) = lu(k,602) - lu(k,311) * lu(k,594) - lu(k,603) = lu(k,603) - lu(k,312) * lu(k,594) - lu(k,604) = lu(k,604) - lu(k,313) * lu(k,594) - lu(k,605) = lu(k,605) - lu(k,314) * lu(k,594) - lu(k,606) = lu(k,606) - lu(k,315) * lu(k,594) - lu(k,607) = lu(k,607) - lu(k,316) * lu(k,594) - lu(k,608) = lu(k,608) - lu(k,317) * lu(k,594) - lu(k,618) = lu(k,618) - lu(k,308) * lu(k,615) - lu(k,619) = lu(k,619) - lu(k,309) * lu(k,615) - lu(k,622) = - lu(k,310) * lu(k,615) - lu(k,624) = lu(k,624) - lu(k,311) * lu(k,615) - lu(k,625) = lu(k,625) - lu(k,312) * lu(k,615) - lu(k,626) = lu(k,626) - lu(k,313) * lu(k,615) - lu(k,627) = lu(k,627) - lu(k,314) * lu(k,615) - lu(k,628) = lu(k,628) - lu(k,315) * lu(k,615) - lu(k,629) = lu(k,629) - lu(k,316) * lu(k,615) - lu(k,630) = lu(k,630) - lu(k,317) * lu(k,615) - lu(k,655) = lu(k,655) - lu(k,308) * lu(k,651) - lu(k,656) = lu(k,656) - lu(k,309) * lu(k,651) - lu(k,659) = lu(k,659) - lu(k,310) * lu(k,651) - lu(k,661) = lu(k,661) - lu(k,311) * lu(k,651) - lu(k,662) = lu(k,662) - lu(k,312) * lu(k,651) - lu(k,663) = lu(k,663) - lu(k,313) * lu(k,651) - lu(k,664) = lu(k,664) - lu(k,314) * lu(k,651) - lu(k,665) = lu(k,665) - lu(k,315) * lu(k,651) - lu(k,666) = lu(k,666) - lu(k,316) * lu(k,651) - lu(k,667) = lu(k,667) - lu(k,317) * lu(k,651) - lu(k,696) = lu(k,696) - lu(k,308) * lu(k,692) - lu(k,697) = lu(k,697) - lu(k,309) * lu(k,692) - lu(k,700) = lu(k,700) - lu(k,310) * lu(k,692) - lu(k,702) = lu(k,702) - lu(k,311) * lu(k,692) - lu(k,703) = lu(k,703) - lu(k,312) * lu(k,692) - lu(k,704) = lu(k,704) - lu(k,313) * lu(k,692) - lu(k,705) = lu(k,705) - lu(k,314) * lu(k,692) - lu(k,706) = lu(k,706) - lu(k,315) * lu(k,692) - lu(k,707) = lu(k,707) - lu(k,316) * lu(k,692) - lu(k,708) = lu(k,708) - lu(k,317) * lu(k,692) - lu(k,721) = lu(k,721) - lu(k,308) * lu(k,717) - lu(k,722) = lu(k,722) - lu(k,309) * lu(k,717) - lu(k,725) = - lu(k,310) * lu(k,717) - lu(k,727) = lu(k,727) - lu(k,311) * lu(k,717) - lu(k,728) = lu(k,728) - lu(k,312) * lu(k,717) - lu(k,729) = lu(k,729) - lu(k,313) * lu(k,717) - lu(k,730) = lu(k,730) - lu(k,314) * lu(k,717) - lu(k,731) = lu(k,731) - lu(k,315) * lu(k,717) - lu(k,732) = lu(k,732) - lu(k,316) * lu(k,717) - lu(k,733) = lu(k,733) - lu(k,317) * lu(k,717) - 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,343) = lu(k,343) - lu(k,321) * lu(k,341) - lu(k,345) = lu(k,345) - lu(k,322) * lu(k,341) - lu(k,346) = lu(k,346) - lu(k,323) * lu(k,341) - lu(k,347) = lu(k,347) - lu(k,324) * lu(k,341) - lu(k,348) = lu(k,348) - lu(k,325) * lu(k,341) - lu(k,349) = lu(k,349) - lu(k,326) * lu(k,341) - lu(k,351) = lu(k,351) - lu(k,327) * lu(k,341) - lu(k,352) = lu(k,352) - lu(k,328) * lu(k,341) - lu(k,353) = lu(k,353) - lu(k,329) * lu(k,341) - lu(k,354) = lu(k,354) - lu(k,330) * lu(k,341) - lu(k,355) = lu(k,355) - lu(k,331) * lu(k,341) - lu(k,356) = lu(k,356) - lu(k,332) * lu(k,341) - lu(k,368) = lu(k,368) - lu(k,321) * lu(k,366) - lu(k,370) = lu(k,370) - lu(k,322) * lu(k,366) - lu(k,371) = lu(k,371) - lu(k,323) * lu(k,366) - lu(k,372) = lu(k,372) - lu(k,324) * lu(k,366) - lu(k,373) = lu(k,373) - lu(k,325) * lu(k,366) - lu(k,374) = - lu(k,326) * lu(k,366) - lu(k,376) = lu(k,376) - lu(k,327) * lu(k,366) - lu(k,377) = lu(k,377) - lu(k,328) * lu(k,366) - lu(k,378) = lu(k,378) - lu(k,329) * lu(k,366) - lu(k,379) = lu(k,379) - lu(k,330) * lu(k,366) - lu(k,380) = lu(k,380) - lu(k,331) * lu(k,366) - lu(k,381) = lu(k,381) - lu(k,332) * lu(k,366) - lu(k,394) = lu(k,394) - lu(k,321) * lu(k,392) - lu(k,396) = lu(k,396) - lu(k,322) * lu(k,392) - lu(k,397) = lu(k,397) - lu(k,323) * lu(k,392) - lu(k,398) = lu(k,398) - lu(k,324) * lu(k,392) - lu(k,399) = lu(k,399) - lu(k,325) * lu(k,392) - lu(k,400) = lu(k,400) - lu(k,326) * lu(k,392) - lu(k,402) = lu(k,402) - lu(k,327) * lu(k,392) - lu(k,403) = lu(k,403) - lu(k,328) * lu(k,392) - lu(k,404) = lu(k,404) - lu(k,329) * lu(k,392) - lu(k,405) = lu(k,405) - lu(k,330) * lu(k,392) - lu(k,406) = lu(k,406) - lu(k,331) * lu(k,392) - lu(k,407) = lu(k,407) - lu(k,332) * lu(k,392) - lu(k,419) = lu(k,419) - lu(k,321) * lu(k,417) - lu(k,421) = lu(k,421) - lu(k,322) * lu(k,417) - lu(k,422) = lu(k,422) - lu(k,323) * lu(k,417) - lu(k,423) = lu(k,423) - lu(k,324) * lu(k,417) - lu(k,424) = lu(k,424) - lu(k,325) * lu(k,417) - lu(k,425) = lu(k,425) - lu(k,326) * lu(k,417) - lu(k,427) = lu(k,427) - lu(k,327) * lu(k,417) - lu(k,428) = lu(k,428) - lu(k,328) * lu(k,417) - lu(k,429) = lu(k,429) - lu(k,329) * lu(k,417) - lu(k,430) = lu(k,430) - lu(k,330) * lu(k,417) - lu(k,431) = lu(k,431) - lu(k,331) * lu(k,417) - lu(k,432) = lu(k,432) - lu(k,332) * lu(k,417) - lu(k,447) = lu(k,447) - lu(k,321) * lu(k,445) - lu(k,449) = lu(k,449) - lu(k,322) * lu(k,445) - lu(k,450) = lu(k,450) - lu(k,323) * lu(k,445) - lu(k,451) = lu(k,451) - lu(k,324) * lu(k,445) - lu(k,452) = lu(k,452) - lu(k,325) * lu(k,445) - lu(k,453) = lu(k,453) - lu(k,326) * lu(k,445) - lu(k,455) = lu(k,455) - lu(k,327) * lu(k,445) - lu(k,456) = lu(k,456) - lu(k,328) * lu(k,445) - lu(k,457) = lu(k,457) - lu(k,329) * lu(k,445) - lu(k,458) = lu(k,458) - lu(k,330) * lu(k,445) - lu(k,459) = lu(k,459) - lu(k,331) * lu(k,445) - lu(k,460) = lu(k,460) - lu(k,332) * lu(k,445) - lu(k,475) = lu(k,475) - lu(k,321) * lu(k,473) - lu(k,477) = lu(k,477) - lu(k,322) * lu(k,473) - lu(k,478) = lu(k,478) - lu(k,323) * lu(k,473) - lu(k,479) = lu(k,479) - lu(k,324) * lu(k,473) - lu(k,480) = lu(k,480) - lu(k,325) * lu(k,473) - lu(k,481) = lu(k,481) - lu(k,326) * lu(k,473) - lu(k,483) = lu(k,483) - lu(k,327) * lu(k,473) - lu(k,484) = lu(k,484) - lu(k,328) * lu(k,473) - lu(k,485) = lu(k,485) - lu(k,329) * lu(k,473) - lu(k,486) = lu(k,486) - lu(k,330) * lu(k,473) - lu(k,487) = lu(k,487) - lu(k,331) * lu(k,473) - lu(k,488) = lu(k,488) - lu(k,332) * lu(k,473) - lu(k,497) = lu(k,497) - lu(k,321) * lu(k,495) - lu(k,499) = lu(k,499) - lu(k,322) * lu(k,495) - lu(k,500) = lu(k,500) - lu(k,323) * lu(k,495) - lu(k,501) = lu(k,501) - lu(k,324) * lu(k,495) - lu(k,502) = lu(k,502) - lu(k,325) * lu(k,495) - lu(k,503) = - lu(k,326) * lu(k,495) - lu(k,505) = lu(k,505) - lu(k,327) * lu(k,495) - lu(k,506) = lu(k,506) - lu(k,328) * lu(k,495) - lu(k,507) = lu(k,507) - lu(k,329) * lu(k,495) - lu(k,508) = lu(k,508) - lu(k,330) * lu(k,495) - lu(k,509) = lu(k,509) - lu(k,331) * lu(k,495) - lu(k,510) = lu(k,510) - lu(k,332) * lu(k,495) - lu(k,519) = lu(k,519) - lu(k,321) * lu(k,517) - lu(k,521) = lu(k,521) - lu(k,322) * lu(k,517) - lu(k,522) = lu(k,522) - lu(k,323) * lu(k,517) - lu(k,523) = lu(k,523) - lu(k,324) * lu(k,517) - lu(k,524) = lu(k,524) - lu(k,325) * lu(k,517) - lu(k,525) = lu(k,525) - lu(k,326) * lu(k,517) - lu(k,527) = lu(k,527) - lu(k,327) * lu(k,517) - lu(k,528) = lu(k,528) - lu(k,328) * lu(k,517) - lu(k,529) = lu(k,529) - lu(k,329) * lu(k,517) - lu(k,530) = lu(k,530) - lu(k,330) * lu(k,517) - lu(k,531) = lu(k,531) - lu(k,331) * lu(k,517) - lu(k,532) = lu(k,532) - lu(k,332) * lu(k,517) - lu(k,544) = lu(k,544) - lu(k,321) * lu(k,542) - lu(k,546) = lu(k,546) - lu(k,322) * lu(k,542) - lu(k,547) = lu(k,547) - lu(k,323) * lu(k,542) - lu(k,548) = lu(k,548) - lu(k,324) * lu(k,542) - lu(k,549) = lu(k,549) - lu(k,325) * lu(k,542) - lu(k,550) = lu(k,550) - lu(k,326) * lu(k,542) - lu(k,552) = lu(k,552) - lu(k,327) * lu(k,542) - lu(k,553) = lu(k,553) - lu(k,328) * lu(k,542) - lu(k,554) = lu(k,554) - lu(k,329) * lu(k,542) - lu(k,555) = lu(k,555) - lu(k,330) * lu(k,542) - lu(k,556) = lu(k,556) - lu(k,331) * lu(k,542) - lu(k,557) = lu(k,557) - lu(k,332) * lu(k,542) - lu(k,566) = lu(k,566) - lu(k,321) * lu(k,564) - lu(k,568) = lu(k,568) - lu(k,322) * lu(k,564) - lu(k,569) = lu(k,569) - lu(k,323) * lu(k,564) - lu(k,570) = lu(k,570) - lu(k,324) * lu(k,564) - lu(k,571) = lu(k,571) - lu(k,325) * lu(k,564) - lu(k,572) = - lu(k,326) * lu(k,564) - lu(k,574) = lu(k,574) - lu(k,327) * lu(k,564) - lu(k,575) = lu(k,575) - lu(k,328) * lu(k,564) - lu(k,576) = lu(k,576) - lu(k,329) * lu(k,564) - lu(k,577) = lu(k,577) - lu(k,330) * lu(k,564) - lu(k,578) = lu(k,578) - lu(k,331) * lu(k,564) - lu(k,579) = lu(k,579) - lu(k,332) * lu(k,564) - lu(k,654) = lu(k,654) - lu(k,321) * lu(k,652) - lu(k,656) = lu(k,656) - lu(k,322) * lu(k,652) - lu(k,657) = lu(k,657) - lu(k,323) * lu(k,652) - lu(k,658) = lu(k,658) - lu(k,324) * lu(k,652) - lu(k,659) = lu(k,659) - lu(k,325) * lu(k,652) - lu(k,660) = lu(k,660) - lu(k,326) * lu(k,652) - lu(k,662) = lu(k,662) - lu(k,327) * lu(k,652) - lu(k,663) = lu(k,663) - lu(k,328) * lu(k,652) - lu(k,664) = lu(k,664) - lu(k,329) * lu(k,652) - lu(k,665) = lu(k,665) - lu(k,330) * lu(k,652) - lu(k,666) = lu(k,666) - lu(k,331) * lu(k,652) - lu(k,667) = lu(k,667) - lu(k,332) * lu(k,652) - lu(k,695) = lu(k,695) - lu(k,321) * lu(k,693) - lu(k,697) = lu(k,697) - lu(k,322) * lu(k,693) - lu(k,698) = lu(k,698) - lu(k,323) * lu(k,693) - lu(k,699) = lu(k,699) - lu(k,324) * lu(k,693) - lu(k,700) = lu(k,700) - lu(k,325) * lu(k,693) - lu(k,701) = lu(k,701) - lu(k,326) * lu(k,693) - lu(k,703) = lu(k,703) - lu(k,327) * lu(k,693) - lu(k,704) = lu(k,704) - lu(k,328) * lu(k,693) - lu(k,705) = lu(k,705) - lu(k,329) * lu(k,693) - lu(k,706) = lu(k,706) - lu(k,330) * lu(k,693) - lu(k,707) = lu(k,707) - lu(k,331) * lu(k,693) - lu(k,708) = lu(k,708) - lu(k,332) * lu(k,693) - lu(k,720) = lu(k,720) - lu(k,321) * lu(k,718) - lu(k,722) = lu(k,722) - lu(k,322) * lu(k,718) - lu(k,723) = lu(k,723) - lu(k,323) * lu(k,718) - lu(k,724) = lu(k,724) - lu(k,324) * lu(k,718) - lu(k,725) = lu(k,725) - lu(k,325) * lu(k,718) - lu(k,726) = lu(k,726) - lu(k,326) * lu(k,718) - lu(k,728) = lu(k,728) - lu(k,327) * lu(k,718) - lu(k,729) = lu(k,729) - lu(k,328) * lu(k,718) - lu(k,730) = lu(k,730) - lu(k,329) * lu(k,718) - lu(k,731) = lu(k,731) - lu(k,330) * lu(k,718) - lu(k,732) = lu(k,732) - lu(k,331) * lu(k,718) - lu(k,733) = lu(k,733) - lu(k,332) * lu(k,718) + lu(k,299) = 1._r8 / lu(k,299) + lu(k,300) = lu(k,300) * lu(k,299) + lu(k,301) = lu(k,301) * lu(k,299) + lu(k,302) = lu(k,302) * lu(k,299) + lu(k,303) = lu(k,303) * lu(k,299) + lu(k,304) = lu(k,304) * lu(k,299) + lu(k,305) = lu(k,305) * lu(k,299) + 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,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,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,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,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,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,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,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,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,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,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) + lu(k,310) = 1._r8 / lu(k,310) + lu(k,311) = lu(k,311) * lu(k,310) + lu(k,312) = lu(k,312) * lu(k,310) + lu(k,313) = lu(k,313) * lu(k,310) + lu(k,314) = lu(k,314) * lu(k,310) + lu(k,315) = lu(k,315) * lu(k,310) + lu(k,316) = lu(k,316) * lu(k,310) + lu(k,317) = lu(k,317) * lu(k,310) + lu(k,318) = lu(k,318) * lu(k,310) + lu(k,319) = lu(k,319) * lu(k,310) + 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,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,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,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,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,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,453) - lu(k,314) * lu(k,444) + lu(k,454) = lu(k,454) - lu(k,315) * 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,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,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,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,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) + lu(k,331) = lu(k,331) * lu(k,329) + lu(k,332) = lu(k,332) * lu(k,329) + lu(k,333) = lu(k,333) * lu(k,329) + lu(k,334) = lu(k,334) * lu(k,329) + lu(k,335) = lu(k,335) * lu(k,329) + lu(k,336) = lu(k,336) * lu(k,329) + lu(k,337) = lu(k,337) * lu(k,329) + lu(k,338) = lu(k,338) * lu(k,329) + lu(k,339) = lu(k,339) * lu(k,329) + lu(k,340) = lu(k,340) * lu(k,329) + lu(k,341) = lu(k,341) * lu(k,329) + lu(k,342) = lu(k,342) * lu(k,329) + lu(k,343) = lu(k,343) * lu(k,329) + lu(k,344) = lu(k,344) * lu(k,329) + lu(k,393) = lu(k,393) - lu(k,330) * lu(k,392) + lu(k,394) = lu(k,394) - lu(k,331) * lu(k,392) + lu(k,395) = lu(k,395) - lu(k,332) * lu(k,392) + lu(k,396) = lu(k,396) - lu(k,333) * lu(k,392) + lu(k,397) = lu(k,397) - lu(k,334) * lu(k,392) + lu(k,398) = lu(k,398) - lu(k,335) * lu(k,392) + 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,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) + lu(k,420) = lu(k,420) - lu(k,332) * lu(k,417) + lu(k,421) = lu(k,421) - lu(k,333) * lu(k,417) + lu(k,422) = lu(k,422) - lu(k,334) * lu(k,417) + lu(k,423) = lu(k,423) - lu(k,335) * lu(k,417) + 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,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) + lu(k,448) = lu(k,448) - lu(k,332) * lu(k,445) + lu(k,449) = lu(k,449) - lu(k,333) * lu(k,445) + lu(k,450) = lu(k,450) - lu(k,334) * lu(k,445) + lu(k,451) = lu(k,451) - lu(k,335) * lu(k,445) + 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,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) + lu(k,491) = lu(k,491) - lu(k,332) * lu(k,488) + lu(k,492) = lu(k,492) - lu(k,333) * lu(k,488) + lu(k,493) = lu(k,493) - lu(k,334) * lu(k,488) + lu(k,494) = lu(k,494) - lu(k,335) * lu(k,488) + 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,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,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 ) @@ -1943,386 +1892,372 @@ subroutine lu_fac09( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,342) = 1._r8 / lu(k,342) - lu(k,343) = lu(k,343) * lu(k,342) - lu(k,344) = lu(k,344) * lu(k,342) - lu(k,345) = lu(k,345) * lu(k,342) - lu(k,346) = lu(k,346) * lu(k,342) - lu(k,347) = lu(k,347) * lu(k,342) - lu(k,348) = lu(k,348) * lu(k,342) - lu(k,349) = lu(k,349) * lu(k,342) - lu(k,350) = lu(k,350) * lu(k,342) - lu(k,351) = lu(k,351) * lu(k,342) - lu(k,352) = lu(k,352) * lu(k,342) - lu(k,353) = lu(k,353) * lu(k,342) - lu(k,354) = lu(k,354) * lu(k,342) - lu(k,355) = lu(k,355) * lu(k,342) - lu(k,356) = lu(k,356) * lu(k,342) - lu(k,368) = lu(k,368) - lu(k,343) * lu(k,367) - lu(k,369) = lu(k,369) - lu(k,344) * lu(k,367) - lu(k,370) = lu(k,370) - lu(k,345) * lu(k,367) - lu(k,371) = lu(k,371) - lu(k,346) * lu(k,367) - lu(k,372) = lu(k,372) - lu(k,347) * lu(k,367) - lu(k,373) = lu(k,373) - lu(k,348) * lu(k,367) - lu(k,374) = lu(k,374) - lu(k,349) * lu(k,367) - lu(k,375) = lu(k,375) - lu(k,350) * lu(k,367) - lu(k,376) = lu(k,376) - lu(k,351) * lu(k,367) - lu(k,377) = lu(k,377) - lu(k,352) * lu(k,367) - lu(k,378) = lu(k,378) - lu(k,353) * lu(k,367) - lu(k,379) = lu(k,379) - lu(k,354) * lu(k,367) - lu(k,380) = lu(k,380) - lu(k,355) * lu(k,367) - lu(k,381) = lu(k,381) - lu(k,356) * lu(k,367) - lu(k,394) = lu(k,394) - lu(k,343) * lu(k,393) - lu(k,395) = lu(k,395) - lu(k,344) * lu(k,393) - lu(k,396) = lu(k,396) - lu(k,345) * lu(k,393) - lu(k,397) = lu(k,397) - lu(k,346) * lu(k,393) - lu(k,398) = lu(k,398) - lu(k,347) * lu(k,393) - lu(k,399) = lu(k,399) - lu(k,348) * lu(k,393) - lu(k,400) = lu(k,400) - lu(k,349) * lu(k,393) - lu(k,401) = lu(k,401) - lu(k,350) * lu(k,393) - lu(k,402) = lu(k,402) - lu(k,351) * lu(k,393) - lu(k,403) = lu(k,403) - lu(k,352) * lu(k,393) - lu(k,404) = lu(k,404) - lu(k,353) * lu(k,393) - lu(k,405) = lu(k,405) - lu(k,354) * lu(k,393) - lu(k,406) = lu(k,406) - lu(k,355) * lu(k,393) - lu(k,407) = lu(k,407) - lu(k,356) * lu(k,393) - lu(k,419) = lu(k,419) - lu(k,343) * lu(k,418) - lu(k,420) = lu(k,420) - lu(k,344) * lu(k,418) - lu(k,421) = lu(k,421) - lu(k,345) * lu(k,418) - lu(k,422) = lu(k,422) - lu(k,346) * lu(k,418) - lu(k,423) = lu(k,423) - lu(k,347) * lu(k,418) - lu(k,424) = lu(k,424) - lu(k,348) * lu(k,418) - lu(k,425) = lu(k,425) - lu(k,349) * lu(k,418) - lu(k,426) = lu(k,426) - lu(k,350) * lu(k,418) - lu(k,427) = lu(k,427) - lu(k,351) * lu(k,418) - lu(k,428) = lu(k,428) - lu(k,352) * lu(k,418) - lu(k,429) = lu(k,429) - lu(k,353) * lu(k,418) - lu(k,430) = lu(k,430) - lu(k,354) * lu(k,418) - lu(k,431) = lu(k,431) - lu(k,355) * lu(k,418) - lu(k,432) = lu(k,432) - lu(k,356) * lu(k,418) - lu(k,447) = lu(k,447) - lu(k,343) * lu(k,446) - lu(k,448) = lu(k,448) - lu(k,344) * lu(k,446) - lu(k,449) = lu(k,449) - lu(k,345) * lu(k,446) - lu(k,450) = lu(k,450) - lu(k,346) * lu(k,446) - lu(k,451) = lu(k,451) - lu(k,347) * lu(k,446) - lu(k,452) = lu(k,452) - lu(k,348) * lu(k,446) - lu(k,453) = lu(k,453) - lu(k,349) * lu(k,446) - lu(k,454) = lu(k,454) - lu(k,350) * lu(k,446) - lu(k,455) = lu(k,455) - lu(k,351) * lu(k,446) - lu(k,456) = lu(k,456) - lu(k,352) * lu(k,446) - lu(k,457) = lu(k,457) - lu(k,353) * lu(k,446) - lu(k,458) = lu(k,458) - lu(k,354) * lu(k,446) - lu(k,459) = lu(k,459) - lu(k,355) * lu(k,446) - lu(k,460) = lu(k,460) - lu(k,356) * lu(k,446) - lu(k,475) = lu(k,475) - lu(k,343) * lu(k,474) - lu(k,476) = lu(k,476) - lu(k,344) * lu(k,474) - lu(k,477) = lu(k,477) - lu(k,345) * lu(k,474) - lu(k,478) = lu(k,478) - lu(k,346) * lu(k,474) - lu(k,479) = lu(k,479) - lu(k,347) * lu(k,474) - lu(k,480) = lu(k,480) - lu(k,348) * lu(k,474) - lu(k,481) = lu(k,481) - lu(k,349) * lu(k,474) - lu(k,482) = lu(k,482) - lu(k,350) * lu(k,474) - lu(k,483) = lu(k,483) - lu(k,351) * lu(k,474) - lu(k,484) = lu(k,484) - lu(k,352) * lu(k,474) - lu(k,485) = lu(k,485) - lu(k,353) * lu(k,474) - lu(k,486) = lu(k,486) - lu(k,354) * lu(k,474) - lu(k,487) = lu(k,487) - lu(k,355) * lu(k,474) - lu(k,488) = lu(k,488) - lu(k,356) * lu(k,474) - lu(k,497) = lu(k,497) - lu(k,343) * lu(k,496) - lu(k,498) = lu(k,498) - lu(k,344) * lu(k,496) - lu(k,499) = lu(k,499) - lu(k,345) * lu(k,496) - lu(k,500) = lu(k,500) - lu(k,346) * lu(k,496) - lu(k,501) = lu(k,501) - lu(k,347) * lu(k,496) - lu(k,502) = lu(k,502) - lu(k,348) * lu(k,496) - lu(k,503) = lu(k,503) - lu(k,349) * lu(k,496) - lu(k,504) = lu(k,504) - lu(k,350) * lu(k,496) - lu(k,505) = lu(k,505) - lu(k,351) * lu(k,496) - lu(k,506) = lu(k,506) - lu(k,352) * lu(k,496) - lu(k,507) = lu(k,507) - lu(k,353) * lu(k,496) - lu(k,508) = lu(k,508) - lu(k,354) * lu(k,496) - lu(k,509) = lu(k,509) - lu(k,355) * lu(k,496) - lu(k,510) = lu(k,510) - lu(k,356) * lu(k,496) - lu(k,519) = lu(k,519) - lu(k,343) * lu(k,518) - lu(k,520) = lu(k,520) - lu(k,344) * lu(k,518) - lu(k,521) = lu(k,521) - lu(k,345) * lu(k,518) - lu(k,522) = lu(k,522) - lu(k,346) * lu(k,518) - lu(k,523) = lu(k,523) - lu(k,347) * lu(k,518) - lu(k,524) = lu(k,524) - lu(k,348) * lu(k,518) - lu(k,525) = lu(k,525) - lu(k,349) * lu(k,518) - lu(k,526) = lu(k,526) - lu(k,350) * lu(k,518) - lu(k,527) = lu(k,527) - lu(k,351) * lu(k,518) - lu(k,528) = lu(k,528) - lu(k,352) * lu(k,518) - lu(k,529) = lu(k,529) - lu(k,353) * lu(k,518) - lu(k,530) = lu(k,530) - lu(k,354) * lu(k,518) - lu(k,531) = lu(k,531) - lu(k,355) * lu(k,518) - lu(k,532) = lu(k,532) - lu(k,356) * lu(k,518) - lu(k,544) = lu(k,544) - lu(k,343) * lu(k,543) - lu(k,545) = lu(k,545) - lu(k,344) * lu(k,543) - lu(k,546) = lu(k,546) - lu(k,345) * lu(k,543) - lu(k,547) = lu(k,547) - lu(k,346) * lu(k,543) - lu(k,548) = lu(k,548) - lu(k,347) * lu(k,543) - lu(k,549) = lu(k,549) - lu(k,348) * lu(k,543) - lu(k,550) = lu(k,550) - lu(k,349) * lu(k,543) - lu(k,551) = lu(k,551) - lu(k,350) * lu(k,543) - lu(k,552) = lu(k,552) - lu(k,351) * lu(k,543) - lu(k,553) = lu(k,553) - lu(k,352) * lu(k,543) - lu(k,554) = lu(k,554) - lu(k,353) * lu(k,543) - lu(k,555) = lu(k,555) - lu(k,354) * lu(k,543) - lu(k,556) = lu(k,556) - lu(k,355) * lu(k,543) - lu(k,557) = lu(k,557) - lu(k,356) * lu(k,543) - lu(k,566) = lu(k,566) - lu(k,343) * lu(k,565) - lu(k,567) = lu(k,567) - lu(k,344) * lu(k,565) - lu(k,568) = lu(k,568) - lu(k,345) * lu(k,565) - lu(k,569) = lu(k,569) - lu(k,346) * lu(k,565) - lu(k,570) = lu(k,570) - lu(k,347) * lu(k,565) - lu(k,571) = lu(k,571) - lu(k,348) * lu(k,565) - lu(k,572) = lu(k,572) - lu(k,349) * lu(k,565) - lu(k,573) = lu(k,573) - lu(k,350) * lu(k,565) - lu(k,574) = lu(k,574) - lu(k,351) * lu(k,565) - lu(k,575) = lu(k,575) - lu(k,352) * lu(k,565) - lu(k,576) = lu(k,576) - lu(k,353) * lu(k,565) - lu(k,577) = lu(k,577) - lu(k,354) * lu(k,565) - lu(k,578) = lu(k,578) - lu(k,355) * lu(k,565) - lu(k,579) = lu(k,579) - lu(k,356) * lu(k,565) - lu(k,617) = lu(k,617) - lu(k,343) * lu(k,616) - lu(k,618) = lu(k,618) - lu(k,344) * lu(k,616) - lu(k,619) = lu(k,619) - lu(k,345) * lu(k,616) - lu(k,620) = lu(k,620) - lu(k,346) * lu(k,616) - lu(k,621) = lu(k,621) - lu(k,347) * lu(k,616) - lu(k,622) = lu(k,622) - lu(k,348) * lu(k,616) - lu(k,623) = lu(k,623) - lu(k,349) * lu(k,616) - lu(k,624) = lu(k,624) - lu(k,350) * lu(k,616) - lu(k,625) = lu(k,625) - lu(k,351) * lu(k,616) - lu(k,626) = lu(k,626) - lu(k,352) * lu(k,616) - lu(k,627) = lu(k,627) - lu(k,353) * lu(k,616) - lu(k,628) = lu(k,628) - lu(k,354) * lu(k,616) - lu(k,629) = lu(k,629) - lu(k,355) * lu(k,616) - lu(k,630) = lu(k,630) - lu(k,356) * lu(k,616) - lu(k,654) = lu(k,654) - lu(k,343) * lu(k,653) - lu(k,655) = lu(k,655) - lu(k,344) * lu(k,653) - lu(k,656) = lu(k,656) - lu(k,345) * lu(k,653) - lu(k,657) = lu(k,657) - lu(k,346) * lu(k,653) - lu(k,658) = lu(k,658) - lu(k,347) * lu(k,653) - lu(k,659) = lu(k,659) - lu(k,348) * lu(k,653) - lu(k,660) = lu(k,660) - lu(k,349) * lu(k,653) - lu(k,661) = lu(k,661) - lu(k,350) * lu(k,653) - lu(k,662) = lu(k,662) - lu(k,351) * lu(k,653) - lu(k,663) = lu(k,663) - lu(k,352) * lu(k,653) - lu(k,664) = lu(k,664) - lu(k,353) * lu(k,653) - lu(k,665) = lu(k,665) - lu(k,354) * lu(k,653) - lu(k,666) = lu(k,666) - lu(k,355) * lu(k,653) - lu(k,667) = lu(k,667) - lu(k,356) * lu(k,653) - lu(k,695) = lu(k,695) - lu(k,343) * lu(k,694) - lu(k,696) = lu(k,696) - lu(k,344) * lu(k,694) - lu(k,697) = lu(k,697) - lu(k,345) * lu(k,694) - lu(k,698) = lu(k,698) - lu(k,346) * lu(k,694) - lu(k,699) = lu(k,699) - lu(k,347) * lu(k,694) - lu(k,700) = lu(k,700) - lu(k,348) * lu(k,694) - lu(k,701) = lu(k,701) - lu(k,349) * lu(k,694) - lu(k,702) = lu(k,702) - lu(k,350) * lu(k,694) - lu(k,703) = lu(k,703) - lu(k,351) * lu(k,694) - lu(k,704) = lu(k,704) - lu(k,352) * lu(k,694) - lu(k,705) = lu(k,705) - lu(k,353) * lu(k,694) - lu(k,706) = lu(k,706) - lu(k,354) * lu(k,694) - lu(k,707) = lu(k,707) - lu(k,355) * lu(k,694) - lu(k,708) = lu(k,708) - lu(k,356) * lu(k,694) - lu(k,720) = lu(k,720) - lu(k,343) * lu(k,719) - lu(k,721) = lu(k,721) - lu(k,344) * lu(k,719) - lu(k,722) = lu(k,722) - lu(k,345) * lu(k,719) - lu(k,723) = lu(k,723) - lu(k,346) * lu(k,719) - lu(k,724) = lu(k,724) - lu(k,347) * lu(k,719) - lu(k,725) = lu(k,725) - lu(k,348) * lu(k,719) - lu(k,726) = lu(k,726) - lu(k,349) * lu(k,719) - lu(k,727) = lu(k,727) - lu(k,350) * lu(k,719) - lu(k,728) = lu(k,728) - lu(k,351) * lu(k,719) - lu(k,729) = lu(k,729) - lu(k,352) * lu(k,719) - lu(k,730) = lu(k,730) - lu(k,353) * lu(k,719) - lu(k,731) = lu(k,731) - lu(k,354) * lu(k,719) - lu(k,732) = lu(k,732) - lu(k,355) * lu(k,719) - lu(k,733) = lu(k,733) - lu(k,356) * lu(k,719) - lu(k,368) = 1._r8 / lu(k,368) - lu(k,369) = lu(k,369) * lu(k,368) - lu(k,370) = lu(k,370) * lu(k,368) - lu(k,371) = lu(k,371) * lu(k,368) - lu(k,372) = lu(k,372) * lu(k,368) - lu(k,373) = lu(k,373) * lu(k,368) - lu(k,374) = lu(k,374) * lu(k,368) - lu(k,375) = lu(k,375) * lu(k,368) - lu(k,376) = lu(k,376) * lu(k,368) - lu(k,377) = lu(k,377) * lu(k,368) - lu(k,378) = lu(k,378) * lu(k,368) - lu(k,379) = lu(k,379) * lu(k,368) - lu(k,380) = lu(k,380) * lu(k,368) - lu(k,381) = lu(k,381) * lu(k,368) - lu(k,395) = lu(k,395) - lu(k,369) * lu(k,394) - lu(k,396) = lu(k,396) - lu(k,370) * lu(k,394) - lu(k,397) = lu(k,397) - lu(k,371) * lu(k,394) - lu(k,398) = lu(k,398) - lu(k,372) * lu(k,394) - lu(k,399) = lu(k,399) - lu(k,373) * lu(k,394) - lu(k,400) = lu(k,400) - lu(k,374) * lu(k,394) - lu(k,401) = lu(k,401) - lu(k,375) * lu(k,394) - lu(k,402) = lu(k,402) - lu(k,376) * lu(k,394) - lu(k,403) = lu(k,403) - lu(k,377) * lu(k,394) - lu(k,404) = lu(k,404) - lu(k,378) * lu(k,394) - lu(k,405) = lu(k,405) - lu(k,379) * lu(k,394) - lu(k,406) = lu(k,406) - lu(k,380) * lu(k,394) - lu(k,407) = lu(k,407) - lu(k,381) * lu(k,394) - lu(k,420) = lu(k,420) - lu(k,369) * lu(k,419) - lu(k,421) = lu(k,421) - lu(k,370) * lu(k,419) - lu(k,422) = lu(k,422) - lu(k,371) * lu(k,419) - lu(k,423) = lu(k,423) - lu(k,372) * lu(k,419) - lu(k,424) = lu(k,424) - lu(k,373) * lu(k,419) - lu(k,425) = lu(k,425) - lu(k,374) * lu(k,419) - lu(k,426) = lu(k,426) - lu(k,375) * lu(k,419) - lu(k,427) = lu(k,427) - lu(k,376) * lu(k,419) - lu(k,428) = lu(k,428) - lu(k,377) * lu(k,419) - lu(k,429) = lu(k,429) - lu(k,378) * lu(k,419) - lu(k,430) = lu(k,430) - lu(k,379) * lu(k,419) - lu(k,431) = lu(k,431) - lu(k,380) * lu(k,419) - lu(k,432) = lu(k,432) - lu(k,381) * lu(k,419) - lu(k,448) = lu(k,448) - lu(k,369) * lu(k,447) - lu(k,449) = lu(k,449) - lu(k,370) * lu(k,447) - lu(k,450) = lu(k,450) - lu(k,371) * lu(k,447) - lu(k,451) = lu(k,451) - lu(k,372) * lu(k,447) - lu(k,452) = lu(k,452) - lu(k,373) * lu(k,447) - lu(k,453) = lu(k,453) - lu(k,374) * lu(k,447) - lu(k,454) = lu(k,454) - lu(k,375) * lu(k,447) - lu(k,455) = lu(k,455) - lu(k,376) * lu(k,447) - lu(k,456) = lu(k,456) - lu(k,377) * lu(k,447) - lu(k,457) = lu(k,457) - lu(k,378) * lu(k,447) - lu(k,458) = lu(k,458) - lu(k,379) * lu(k,447) - lu(k,459) = lu(k,459) - lu(k,380) * lu(k,447) - lu(k,460) = lu(k,460) - lu(k,381) * lu(k,447) - lu(k,476) = lu(k,476) - lu(k,369) * lu(k,475) - lu(k,477) = lu(k,477) - lu(k,370) * lu(k,475) - lu(k,478) = lu(k,478) - lu(k,371) * lu(k,475) - lu(k,479) = lu(k,479) - lu(k,372) * lu(k,475) - lu(k,480) = lu(k,480) - lu(k,373) * lu(k,475) - lu(k,481) = lu(k,481) - lu(k,374) * lu(k,475) - lu(k,482) = lu(k,482) - lu(k,375) * lu(k,475) - lu(k,483) = lu(k,483) - lu(k,376) * lu(k,475) - lu(k,484) = lu(k,484) - lu(k,377) * lu(k,475) - lu(k,485) = lu(k,485) - lu(k,378) * lu(k,475) - lu(k,486) = lu(k,486) - lu(k,379) * lu(k,475) - lu(k,487) = lu(k,487) - lu(k,380) * lu(k,475) - lu(k,488) = lu(k,488) - lu(k,381) * lu(k,475) - lu(k,498) = lu(k,498) - lu(k,369) * lu(k,497) - lu(k,499) = lu(k,499) - lu(k,370) * lu(k,497) - lu(k,500) = lu(k,500) - lu(k,371) * lu(k,497) - lu(k,501) = lu(k,501) - lu(k,372) * lu(k,497) - lu(k,502) = lu(k,502) - lu(k,373) * lu(k,497) - lu(k,503) = lu(k,503) - lu(k,374) * lu(k,497) - lu(k,504) = lu(k,504) - lu(k,375) * lu(k,497) - lu(k,505) = lu(k,505) - lu(k,376) * lu(k,497) - lu(k,506) = lu(k,506) - lu(k,377) * lu(k,497) - lu(k,507) = lu(k,507) - lu(k,378) * lu(k,497) - lu(k,508) = lu(k,508) - lu(k,379) * lu(k,497) - lu(k,509) = lu(k,509) - lu(k,380) * lu(k,497) - lu(k,510) = lu(k,510) - lu(k,381) * lu(k,497) - lu(k,520) = lu(k,520) - lu(k,369) * lu(k,519) - lu(k,521) = lu(k,521) - lu(k,370) * lu(k,519) - lu(k,522) = lu(k,522) - lu(k,371) * lu(k,519) - lu(k,523) = lu(k,523) - lu(k,372) * lu(k,519) - lu(k,524) = lu(k,524) - lu(k,373) * lu(k,519) - lu(k,525) = lu(k,525) - lu(k,374) * lu(k,519) - lu(k,526) = lu(k,526) - lu(k,375) * lu(k,519) - lu(k,527) = lu(k,527) - lu(k,376) * lu(k,519) - lu(k,528) = lu(k,528) - lu(k,377) * lu(k,519) - lu(k,529) = lu(k,529) - lu(k,378) * lu(k,519) - lu(k,530) = lu(k,530) - lu(k,379) * lu(k,519) - lu(k,531) = lu(k,531) - lu(k,380) * lu(k,519) - lu(k,532) = lu(k,532) - lu(k,381) * lu(k,519) - lu(k,545) = lu(k,545) - lu(k,369) * lu(k,544) - lu(k,546) = lu(k,546) - lu(k,370) * lu(k,544) - lu(k,547) = lu(k,547) - lu(k,371) * lu(k,544) - lu(k,548) = lu(k,548) - lu(k,372) * lu(k,544) - lu(k,549) = lu(k,549) - lu(k,373) * lu(k,544) - lu(k,550) = lu(k,550) - lu(k,374) * lu(k,544) - lu(k,551) = lu(k,551) - lu(k,375) * lu(k,544) - lu(k,552) = lu(k,552) - lu(k,376) * lu(k,544) - lu(k,553) = lu(k,553) - lu(k,377) * lu(k,544) - lu(k,554) = lu(k,554) - lu(k,378) * lu(k,544) - lu(k,555) = lu(k,555) - lu(k,379) * lu(k,544) - lu(k,556) = lu(k,556) - lu(k,380) * lu(k,544) - lu(k,557) = lu(k,557) - lu(k,381) * lu(k,544) - lu(k,567) = lu(k,567) - lu(k,369) * lu(k,566) - lu(k,568) = lu(k,568) - lu(k,370) * lu(k,566) - lu(k,569) = lu(k,569) - lu(k,371) * lu(k,566) - lu(k,570) = lu(k,570) - lu(k,372) * lu(k,566) - lu(k,571) = lu(k,571) - lu(k,373) * lu(k,566) - lu(k,572) = lu(k,572) - lu(k,374) * lu(k,566) - lu(k,573) = lu(k,573) - lu(k,375) * lu(k,566) - lu(k,574) = lu(k,574) - lu(k,376) * lu(k,566) - lu(k,575) = lu(k,575) - lu(k,377) * lu(k,566) - lu(k,576) = lu(k,576) - lu(k,378) * lu(k,566) - lu(k,577) = lu(k,577) - lu(k,379) * lu(k,566) - lu(k,578) = lu(k,578) - lu(k,380) * lu(k,566) - lu(k,579) = lu(k,579) - lu(k,381) * lu(k,566) - lu(k,596) = lu(k,596) - lu(k,369) * lu(k,595) - lu(k,597) = lu(k,597) - lu(k,370) * lu(k,595) - lu(k,598) = lu(k,598) - lu(k,371) * lu(k,595) - lu(k,599) = lu(k,599) - lu(k,372) * lu(k,595) - lu(k,600) = lu(k,600) - lu(k,373) * lu(k,595) - lu(k,601) = lu(k,601) - lu(k,374) * lu(k,595) - lu(k,602) = lu(k,602) - lu(k,375) * lu(k,595) - lu(k,603) = lu(k,603) - lu(k,376) * lu(k,595) - lu(k,604) = lu(k,604) - lu(k,377) * lu(k,595) - lu(k,605) = lu(k,605) - lu(k,378) * lu(k,595) - lu(k,606) = lu(k,606) - lu(k,379) * lu(k,595) - lu(k,607) = lu(k,607) - lu(k,380) * lu(k,595) - lu(k,608) = lu(k,608) - lu(k,381) * lu(k,595) - lu(k,618) = lu(k,618) - lu(k,369) * lu(k,617) - lu(k,619) = lu(k,619) - lu(k,370) * lu(k,617) - lu(k,620) = lu(k,620) - lu(k,371) * lu(k,617) - lu(k,621) = lu(k,621) - lu(k,372) * lu(k,617) - lu(k,622) = lu(k,622) - lu(k,373) * lu(k,617) - lu(k,623) = lu(k,623) - lu(k,374) * lu(k,617) - lu(k,624) = lu(k,624) - lu(k,375) * lu(k,617) - lu(k,625) = lu(k,625) - lu(k,376) * lu(k,617) - lu(k,626) = lu(k,626) - lu(k,377) * lu(k,617) - lu(k,627) = lu(k,627) - lu(k,378) * lu(k,617) - lu(k,628) = lu(k,628) - lu(k,379) * lu(k,617) - lu(k,629) = lu(k,629) - lu(k,380) * lu(k,617) - lu(k,630) = lu(k,630) - lu(k,381) * lu(k,617) - lu(k,655) = lu(k,655) - lu(k,369) * lu(k,654) - lu(k,656) = lu(k,656) - lu(k,370) * lu(k,654) - lu(k,657) = lu(k,657) - lu(k,371) * lu(k,654) - lu(k,658) = lu(k,658) - lu(k,372) * lu(k,654) - lu(k,659) = lu(k,659) - lu(k,373) * lu(k,654) - lu(k,660) = lu(k,660) - lu(k,374) * lu(k,654) - lu(k,661) = lu(k,661) - lu(k,375) * lu(k,654) - lu(k,662) = lu(k,662) - lu(k,376) * lu(k,654) - lu(k,663) = lu(k,663) - lu(k,377) * lu(k,654) - lu(k,664) = lu(k,664) - lu(k,378) * lu(k,654) - lu(k,665) = lu(k,665) - lu(k,379) * lu(k,654) - lu(k,666) = lu(k,666) - lu(k,380) * lu(k,654) - lu(k,667) = lu(k,667) - lu(k,381) * lu(k,654) - lu(k,696) = lu(k,696) - lu(k,369) * lu(k,695) - lu(k,697) = lu(k,697) - lu(k,370) * lu(k,695) - lu(k,698) = lu(k,698) - lu(k,371) * lu(k,695) - lu(k,699) = lu(k,699) - lu(k,372) * lu(k,695) - lu(k,700) = lu(k,700) - lu(k,373) * lu(k,695) - lu(k,701) = lu(k,701) - lu(k,374) * lu(k,695) - lu(k,702) = lu(k,702) - lu(k,375) * lu(k,695) - lu(k,703) = lu(k,703) - lu(k,376) * lu(k,695) - lu(k,704) = lu(k,704) - lu(k,377) * lu(k,695) - lu(k,705) = lu(k,705) - lu(k,378) * lu(k,695) - lu(k,706) = lu(k,706) - lu(k,379) * lu(k,695) - lu(k,707) = lu(k,707) - lu(k,380) * lu(k,695) - lu(k,708) = lu(k,708) - lu(k,381) * lu(k,695) - lu(k,721) = lu(k,721) - lu(k,369) * lu(k,720) - lu(k,722) = lu(k,722) - lu(k,370) * lu(k,720) - lu(k,723) = lu(k,723) - lu(k,371) * lu(k,720) - lu(k,724) = lu(k,724) - lu(k,372) * lu(k,720) - lu(k,725) = lu(k,725) - lu(k,373) * lu(k,720) - lu(k,726) = lu(k,726) - lu(k,374) * lu(k,720) - lu(k,727) = lu(k,727) - lu(k,375) * lu(k,720) - lu(k,728) = lu(k,728) - lu(k,376) * lu(k,720) - lu(k,729) = lu(k,729) - lu(k,377) * lu(k,720) - lu(k,730) = lu(k,730) - lu(k,378) * lu(k,720) - lu(k,731) = lu(k,731) - lu(k,379) * lu(k,720) - lu(k,732) = lu(k,732) - lu(k,380) * lu(k,720) - lu(k,733) = lu(k,733) - lu(k,381) * lu(k,720) + lu(k,347) = 1._r8 / lu(k,347) + lu(k,348) = lu(k,348) * lu(k,347) + lu(k,349) = lu(k,349) * lu(k,347) + lu(k,350) = lu(k,350) * lu(k,347) + lu(k,351) = lu(k,351) * lu(k,347) + lu(k,352) = lu(k,352) * lu(k,347) + lu(k,353) = lu(k,353) * lu(k,347) + lu(k,354) = lu(k,354) * lu(k,347) + lu(k,355) = lu(k,355) * lu(k,347) + lu(k,356) = lu(k,356) * lu(k,347) + lu(k,357) = lu(k,357) * lu(k,347) + lu(k,358) = lu(k,358) * lu(k,347) + lu(k,359) = lu(k,359) * lu(k,347) + lu(k,370) = lu(k,370) - lu(k,348) * lu(k,368) + lu(k,371) = lu(k,371) - lu(k,349) * lu(k,368) + lu(k,372) = lu(k,372) - lu(k,350) * lu(k,368) + 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,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) + lu(k,396) = lu(k,396) - lu(k,349) * lu(k,393) + lu(k,397) = lu(k,397) - lu(k,350) * lu(k,393) + 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,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) + lu(k,421) = lu(k,421) - lu(k,349) * lu(k,418) + lu(k,422) = lu(k,422) - lu(k,350) * lu(k,418) + 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,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) + lu(k,450) = lu(k,450) - lu(k,350) * lu(k,446) + 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,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) + lu(k,492) = lu(k,492) - lu(k,349) * lu(k,489) + lu(k,493) = lu(k,493) - lu(k,350) * lu(k,489) + 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,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,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,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) + lu(k,752) = lu(k,752) - lu(k,349) * lu(k,749) + lu(k,753) = lu(k,753) - lu(k,350) * lu(k,749) + 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,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) + lu(k,370) = lu(k,370) * lu(k,369) + lu(k,371) = lu(k,371) * lu(k,369) + lu(k,372) = lu(k,372) * lu(k,369) + lu(k,373) = lu(k,373) * lu(k,369) + lu(k,374) = lu(k,374) * lu(k,369) + lu(k,375) = lu(k,375) * lu(k,369) + lu(k,376) = lu(k,376) * lu(k,369) + lu(k,377) = lu(k,377) * lu(k,369) + lu(k,378) = lu(k,378) * lu(k,369) + lu(k,379) = lu(k,379) * lu(k,369) + lu(k,380) = lu(k,380) * lu(k,369) + lu(k,381) = lu(k,381) * lu(k,369) + lu(k,382) = lu(k,382) * lu(k,369) + lu(k,383) = lu(k,383) * lu(k,369) + lu(k,395) = lu(k,395) - lu(k,370) * lu(k,394) + lu(k,396) = lu(k,396) - lu(k,371) * lu(k,394) + lu(k,397) = lu(k,397) - lu(k,372) * lu(k,394) + lu(k,398) = lu(k,398) - lu(k,373) * lu(k,394) + lu(k,399) = lu(k,399) - lu(k,374) * lu(k,394) + lu(k,400) = lu(k,400) - lu(k,375) * lu(k,394) + lu(k,401) = lu(k,401) - lu(k,376) * lu(k,394) + lu(k,402) = lu(k,402) - lu(k,377) * lu(k,394) + lu(k,403) = lu(k,403) - lu(k,378) * lu(k,394) + lu(k,404) = lu(k,404) - lu(k,379) * lu(k,394) + lu(k,405) = lu(k,405) - lu(k,380) * lu(k,394) + lu(k,406) = lu(k,406) - lu(k,381) * lu(k,394) + lu(k,407) = lu(k,407) - lu(k,382) * lu(k,394) + lu(k,408) = lu(k,408) - lu(k,383) * lu(k,394) + lu(k,420) = lu(k,420) - lu(k,370) * lu(k,419) + lu(k,421) = lu(k,421) - lu(k,371) * lu(k,419) + lu(k,422) = lu(k,422) - lu(k,372) * lu(k,419) + lu(k,423) = lu(k,423) - lu(k,373) * lu(k,419) + lu(k,424) = lu(k,424) - lu(k,374) * lu(k,419) + lu(k,425) = lu(k,425) - lu(k,375) * lu(k,419) + lu(k,426) = lu(k,426) - lu(k,376) * lu(k,419) + lu(k,427) = lu(k,427) - lu(k,377) * lu(k,419) + lu(k,428) = lu(k,428) - lu(k,378) * lu(k,419) + lu(k,429) = lu(k,429) - lu(k,379) * lu(k,419) + lu(k,430) = lu(k,430) - lu(k,380) * lu(k,419) + lu(k,431) = lu(k,431) - lu(k,381) * lu(k,419) + lu(k,432) = lu(k,432) - lu(k,382) * lu(k,419) + lu(k,433) = lu(k,433) - lu(k,383) * lu(k,419) + lu(k,448) = lu(k,448) - lu(k,370) * lu(k,447) + lu(k,449) = lu(k,449) - lu(k,371) * lu(k,447) + lu(k,450) = lu(k,450) - lu(k,372) * lu(k,447) + lu(k,451) = lu(k,451) - lu(k,373) * lu(k,447) + lu(k,452) = lu(k,452) - lu(k,374) * lu(k,447) + lu(k,453) = lu(k,453) - lu(k,375) * lu(k,447) + lu(k,454) = lu(k,454) - lu(k,376) * lu(k,447) + lu(k,455) = lu(k,455) - lu(k,377) * lu(k,447) + lu(k,456) = lu(k,456) - lu(k,378) * lu(k,447) + lu(k,457) = lu(k,457) - lu(k,379) * lu(k,447) + lu(k,458) = lu(k,458) - lu(k,380) * lu(k,447) + lu(k,459) = lu(k,459) - lu(k,381) * lu(k,447) + lu(k,460) = lu(k,460) - lu(k,382) * lu(k,447) + lu(k,461) = lu(k,461) - lu(k,383) * lu(k,447) + lu(k,491) = lu(k,491) - lu(k,370) * lu(k,490) + lu(k,492) = lu(k,492) - lu(k,371) * lu(k,490) + lu(k,493) = lu(k,493) - lu(k,372) * lu(k,490) + lu(k,494) = lu(k,494) - lu(k,373) * lu(k,490) + lu(k,495) = lu(k,495) - lu(k,374) * lu(k,490) + lu(k,496) = lu(k,496) - lu(k,375) * lu(k,490) + lu(k,497) = lu(k,497) - lu(k,376) * lu(k,490) + lu(k,498) = lu(k,498) - lu(k,377) * lu(k,490) + lu(k,499) = lu(k,499) - lu(k,378) * lu(k,490) + lu(k,500) = lu(k,500) - lu(k,379) * lu(k,490) + lu(k,501) = lu(k,501) - lu(k,380) * lu(k,490) + 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,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) + lu(k,729) = lu(k,729) - lu(k,373) * lu(k,725) + lu(k,730) = lu(k,730) - lu(k,374) * lu(k,725) + lu(k,731) = lu(k,731) - lu(k,375) * lu(k,725) + lu(k,732) = lu(k,732) - lu(k,376) * lu(k,725) + lu(k,733) = lu(k,733) - lu(k,377) * lu(k,725) + lu(k,734) = lu(k,734) - lu(k,378) * lu(k,725) + lu(k,735) = lu(k,735) - lu(k,379) * lu(k,725) + lu(k,736) = lu(k,736) - lu(k,380) * lu(k,725) + lu(k,737) = lu(k,737) - lu(k,381) * lu(k,725) + lu(k,738) = lu(k,738) - lu(k,382) * lu(k,725) + lu(k,739) = lu(k,739) - lu(k,383) * lu(k,725) + lu(k,751) = lu(k,751) - lu(k,370) * lu(k,750) + lu(k,752) = lu(k,752) - lu(k,371) * lu(k,750) + lu(k,753) = lu(k,753) - lu(k,372) * lu(k,750) + lu(k,754) = lu(k,754) - lu(k,373) * lu(k,750) + lu(k,755) = lu(k,755) - lu(k,374) * lu(k,750) + lu(k,756) = lu(k,756) - lu(k,375) * lu(k,750) + lu(k,757) = lu(k,757) - lu(k,376) * lu(k,750) + lu(k,758) = lu(k,758) - lu(k,377) * lu(k,750) + lu(k,759) = lu(k,759) - lu(k,378) * lu(k,750) + lu(k,760) = lu(k,760) - lu(k,379) * lu(k,750) + lu(k,761) = lu(k,761) - lu(k,380) * lu(k,750) + lu(k,762) = lu(k,762) - lu(k,381) * lu(k,750) + lu(k,763) = lu(k,763) - lu(k,382) * lu(k,750) + lu(k,764) = lu(k,764) - lu(k,383) * lu(k,750) lu(k,395) = 1._r8 / lu(k,395) lu(k,396) = lu(k,396) * lu(k,395) lu(k,397) = lu(k,397) * lu(k,395) @@ -2336,6 +2271,7 @@ subroutine lu_fac09( avec_len, lu ) lu(k,405) = lu(k,405) * lu(k,395) lu(k,406) = lu(k,406) * lu(k,395) lu(k,407) = lu(k,407) * lu(k,395) + lu(k,408) = lu(k,408) * lu(k,395) lu(k,421) = lu(k,421) - lu(k,396) * lu(k,420) lu(k,422) = lu(k,422) - lu(k,397) * lu(k,420) lu(k,423) = lu(k,423) - lu(k,398) * lu(k,420) @@ -2348,6 +2284,7 @@ subroutine lu_fac09( avec_len, lu ) lu(k,430) = lu(k,430) - lu(k,405) * lu(k,420) lu(k,431) = lu(k,431) - lu(k,406) * lu(k,420) lu(k,432) = lu(k,432) - lu(k,407) * lu(k,420) + lu(k,433) = lu(k,433) - lu(k,408) * lu(k,420) lu(k,449) = lu(k,449) - lu(k,396) * lu(k,448) lu(k,450) = lu(k,450) - lu(k,397) * lu(k,448) lu(k,451) = lu(k,451) - lu(k,398) * lu(k,448) @@ -2360,126 +2297,150 @@ subroutine lu_fac09( avec_len, lu ) lu(k,458) = lu(k,458) - lu(k,405) * lu(k,448) lu(k,459) = lu(k,459) - lu(k,406) * lu(k,448) lu(k,460) = lu(k,460) - lu(k,407) * lu(k,448) - lu(k,477) = lu(k,477) - lu(k,396) * lu(k,476) - lu(k,478) = lu(k,478) - lu(k,397) * lu(k,476) - lu(k,479) = lu(k,479) - lu(k,398) * lu(k,476) - lu(k,480) = lu(k,480) - lu(k,399) * lu(k,476) - lu(k,481) = lu(k,481) - lu(k,400) * lu(k,476) - lu(k,482) = lu(k,482) - lu(k,401) * lu(k,476) - lu(k,483) = lu(k,483) - lu(k,402) * lu(k,476) - lu(k,484) = lu(k,484) - lu(k,403) * lu(k,476) - lu(k,485) = lu(k,485) - lu(k,404) * lu(k,476) - lu(k,486) = lu(k,486) - lu(k,405) * lu(k,476) - lu(k,487) = lu(k,487) - lu(k,406) * lu(k,476) - lu(k,488) = lu(k,488) - lu(k,407) * lu(k,476) - lu(k,499) = lu(k,499) - lu(k,396) * lu(k,498) - lu(k,500) = lu(k,500) - lu(k,397) * lu(k,498) - lu(k,501) = lu(k,501) - lu(k,398) * lu(k,498) - lu(k,502) = lu(k,502) - lu(k,399) * lu(k,498) - lu(k,503) = lu(k,503) - lu(k,400) * lu(k,498) - lu(k,504) = lu(k,504) - lu(k,401) * lu(k,498) - lu(k,505) = lu(k,505) - lu(k,402) * lu(k,498) - lu(k,506) = lu(k,506) - lu(k,403) * lu(k,498) - lu(k,507) = lu(k,507) - lu(k,404) * lu(k,498) - lu(k,508) = lu(k,508) - lu(k,405) * lu(k,498) - lu(k,509) = lu(k,509) - lu(k,406) * lu(k,498) - lu(k,510) = lu(k,510) - lu(k,407) * lu(k,498) - lu(k,521) = lu(k,521) - lu(k,396) * lu(k,520) - lu(k,522) = lu(k,522) - lu(k,397) * lu(k,520) - lu(k,523) = lu(k,523) - lu(k,398) * lu(k,520) - lu(k,524) = lu(k,524) - lu(k,399) * lu(k,520) - lu(k,525) = lu(k,525) - lu(k,400) * lu(k,520) - lu(k,526) = lu(k,526) - lu(k,401) * lu(k,520) - lu(k,527) = lu(k,527) - lu(k,402) * lu(k,520) - lu(k,528) = lu(k,528) - lu(k,403) * lu(k,520) - lu(k,529) = lu(k,529) - lu(k,404) * lu(k,520) - lu(k,530) = lu(k,530) - lu(k,405) * lu(k,520) - lu(k,531) = lu(k,531) - lu(k,406) * lu(k,520) - lu(k,532) = lu(k,532) - lu(k,407) * lu(k,520) - lu(k,546) = lu(k,546) - lu(k,396) * lu(k,545) - lu(k,547) = lu(k,547) - lu(k,397) * lu(k,545) - lu(k,548) = lu(k,548) - lu(k,398) * lu(k,545) - lu(k,549) = lu(k,549) - lu(k,399) * lu(k,545) - lu(k,550) = lu(k,550) - lu(k,400) * lu(k,545) - lu(k,551) = lu(k,551) - lu(k,401) * lu(k,545) - lu(k,552) = lu(k,552) - lu(k,402) * lu(k,545) - lu(k,553) = lu(k,553) - lu(k,403) * lu(k,545) - lu(k,554) = lu(k,554) - lu(k,404) * lu(k,545) - lu(k,555) = lu(k,555) - lu(k,405) * lu(k,545) - lu(k,556) = lu(k,556) - lu(k,406) * lu(k,545) - lu(k,557) = lu(k,557) - lu(k,407) * lu(k,545) - lu(k,568) = lu(k,568) - lu(k,396) * lu(k,567) - lu(k,569) = lu(k,569) - lu(k,397) * lu(k,567) - lu(k,570) = lu(k,570) - lu(k,398) * lu(k,567) - lu(k,571) = lu(k,571) - lu(k,399) * lu(k,567) - lu(k,572) = lu(k,572) - lu(k,400) * lu(k,567) - lu(k,573) = lu(k,573) - lu(k,401) * lu(k,567) - lu(k,574) = lu(k,574) - lu(k,402) * lu(k,567) - lu(k,575) = lu(k,575) - lu(k,403) * lu(k,567) - lu(k,576) = lu(k,576) - lu(k,404) * lu(k,567) - lu(k,577) = lu(k,577) - lu(k,405) * lu(k,567) - lu(k,578) = lu(k,578) - lu(k,406) * lu(k,567) - lu(k,579) = lu(k,579) - lu(k,407) * lu(k,567) - lu(k,597) = lu(k,597) - lu(k,396) * lu(k,596) - lu(k,598) = lu(k,598) - lu(k,397) * lu(k,596) - lu(k,599) = lu(k,599) - lu(k,398) * lu(k,596) - lu(k,600) = lu(k,600) - lu(k,399) * lu(k,596) - lu(k,601) = lu(k,601) - lu(k,400) * lu(k,596) - lu(k,602) = lu(k,602) - lu(k,401) * lu(k,596) - lu(k,603) = lu(k,603) - lu(k,402) * lu(k,596) - lu(k,604) = lu(k,604) - lu(k,403) * lu(k,596) - lu(k,605) = lu(k,605) - lu(k,404) * lu(k,596) - lu(k,606) = lu(k,606) - lu(k,405) * lu(k,596) - lu(k,607) = lu(k,607) - lu(k,406) * lu(k,596) - lu(k,608) = lu(k,608) - lu(k,407) * lu(k,596) - lu(k,619) = lu(k,619) - lu(k,396) * lu(k,618) - lu(k,620) = lu(k,620) - lu(k,397) * lu(k,618) - lu(k,621) = lu(k,621) - lu(k,398) * lu(k,618) - lu(k,622) = lu(k,622) - lu(k,399) * lu(k,618) - lu(k,623) = lu(k,623) - lu(k,400) * lu(k,618) - lu(k,624) = lu(k,624) - lu(k,401) * lu(k,618) - lu(k,625) = lu(k,625) - lu(k,402) * lu(k,618) - lu(k,626) = lu(k,626) - lu(k,403) * lu(k,618) - lu(k,627) = lu(k,627) - lu(k,404) * lu(k,618) - lu(k,628) = lu(k,628) - lu(k,405) * lu(k,618) - lu(k,629) = lu(k,629) - lu(k,406) * lu(k,618) - lu(k,630) = lu(k,630) - lu(k,407) * lu(k,618) - lu(k,656) = lu(k,656) - lu(k,396) * lu(k,655) - lu(k,657) = lu(k,657) - lu(k,397) * lu(k,655) - lu(k,658) = lu(k,658) - lu(k,398) * lu(k,655) - lu(k,659) = lu(k,659) - lu(k,399) * lu(k,655) - lu(k,660) = lu(k,660) - lu(k,400) * lu(k,655) - lu(k,661) = lu(k,661) - lu(k,401) * lu(k,655) - lu(k,662) = lu(k,662) - lu(k,402) * lu(k,655) - lu(k,663) = lu(k,663) - lu(k,403) * lu(k,655) - lu(k,664) = lu(k,664) - lu(k,404) * lu(k,655) - lu(k,665) = lu(k,665) - lu(k,405) * lu(k,655) - lu(k,666) = lu(k,666) - lu(k,406) * lu(k,655) - lu(k,667) = lu(k,667) - lu(k,407) * lu(k,655) - lu(k,697) = lu(k,697) - lu(k,396) * lu(k,696) - lu(k,698) = lu(k,698) - lu(k,397) * lu(k,696) - lu(k,699) = lu(k,699) - lu(k,398) * lu(k,696) - lu(k,700) = lu(k,700) - lu(k,399) * lu(k,696) - lu(k,701) = lu(k,701) - lu(k,400) * lu(k,696) - lu(k,702) = lu(k,702) - lu(k,401) * lu(k,696) - lu(k,703) = lu(k,703) - lu(k,402) * lu(k,696) - lu(k,704) = lu(k,704) - lu(k,403) * lu(k,696) - lu(k,705) = lu(k,705) - lu(k,404) * lu(k,696) - lu(k,706) = lu(k,706) - lu(k,405) * lu(k,696) - lu(k,707) = lu(k,707) - lu(k,406) * lu(k,696) - lu(k,708) = lu(k,708) - lu(k,407) * lu(k,696) - lu(k,722) = lu(k,722) - lu(k,396) * lu(k,721) - lu(k,723) = lu(k,723) - lu(k,397) * lu(k,721) - lu(k,724) = lu(k,724) - lu(k,398) * lu(k,721) - lu(k,725) = lu(k,725) - lu(k,399) * lu(k,721) - lu(k,726) = lu(k,726) - lu(k,400) * lu(k,721) - lu(k,727) = lu(k,727) - lu(k,401) * lu(k,721) - lu(k,728) = lu(k,728) - lu(k,402) * lu(k,721) - lu(k,729) = lu(k,729) - lu(k,403) * lu(k,721) - lu(k,730) = lu(k,730) - lu(k,404) * lu(k,721) - lu(k,731) = lu(k,731) - lu(k,405) * lu(k,721) - lu(k,732) = lu(k,732) - lu(k,406) * lu(k,721) - lu(k,733) = lu(k,733) - lu(k,407) * lu(k,721) + lu(k,461) = lu(k,461) - lu(k,408) * lu(k,448) + lu(k,492) = lu(k,492) - lu(k,396) * lu(k,491) + lu(k,493) = lu(k,493) - lu(k,397) * lu(k,491) + lu(k,494) = lu(k,494) - lu(k,398) * lu(k,491) + lu(k,495) = lu(k,495) - lu(k,399) * lu(k,491) + lu(k,496) = lu(k,496) - lu(k,400) * lu(k,491) + lu(k,497) = lu(k,497) - lu(k,401) * lu(k,491) + lu(k,498) = lu(k,498) - lu(k,402) * lu(k,491) + lu(k,499) = lu(k,499) - lu(k,403) * lu(k,491) + lu(k,500) = lu(k,500) - lu(k,404) * lu(k,491) + lu(k,501) = lu(k,501) - lu(k,405) * lu(k,491) + 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,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) + lu(k,730) = lu(k,730) - lu(k,399) * lu(k,726) + lu(k,731) = lu(k,731) - lu(k,400) * lu(k,726) + lu(k,732) = lu(k,732) - lu(k,401) * lu(k,726) + lu(k,733) = lu(k,733) - lu(k,402) * lu(k,726) + lu(k,734) = lu(k,734) - lu(k,403) * lu(k,726) + lu(k,735) = lu(k,735) - lu(k,404) * lu(k,726) + lu(k,736) = lu(k,736) - lu(k,405) * lu(k,726) + lu(k,737) = lu(k,737) - lu(k,406) * lu(k,726) + lu(k,738) = lu(k,738) - lu(k,407) * lu(k,726) + lu(k,739) = lu(k,739) - lu(k,408) * lu(k,726) + lu(k,752) = lu(k,752) - lu(k,396) * lu(k,751) + lu(k,753) = lu(k,753) - lu(k,397) * lu(k,751) + lu(k,754) = lu(k,754) - lu(k,398) * lu(k,751) + lu(k,755) = lu(k,755) - lu(k,399) * lu(k,751) + lu(k,756) = lu(k,756) - lu(k,400) * lu(k,751) + lu(k,757) = lu(k,757) - lu(k,401) * lu(k,751) + lu(k,758) = lu(k,758) - lu(k,402) * lu(k,751) + lu(k,759) = lu(k,759) - lu(k,403) * lu(k,751) + lu(k,760) = lu(k,760) - lu(k,404) * lu(k,751) + lu(k,761) = lu(k,761) - lu(k,405) * lu(k,751) + lu(k,762) = lu(k,762) - lu(k,406) * lu(k,751) + lu(k,763) = lu(k,763) - lu(k,407) * lu(k,751) + lu(k,764) = lu(k,764) - lu(k,408) * lu(k,751) lu(k,421) = 1._r8 / lu(k,421) lu(k,422) = lu(k,422) * lu(k,421) lu(k,423) = lu(k,423) * lu(k,421) @@ -2492,6 +2453,7 @@ subroutine lu_fac09( avec_len, lu ) lu(k,430) = lu(k,430) * lu(k,421) lu(k,431) = lu(k,431) * lu(k,421) lu(k,432) = lu(k,432) * lu(k,421) + lu(k,433) = lu(k,433) * lu(k,421) lu(k,450) = lu(k,450) - lu(k,422) * lu(k,449) lu(k,451) = lu(k,451) - lu(k,423) * lu(k,449) lu(k,452) = lu(k,452) - lu(k,424) * lu(k,449) @@ -2503,116 +2465,139 @@ subroutine lu_fac09( avec_len, lu ) lu(k,458) = lu(k,458) - lu(k,430) * lu(k,449) lu(k,459) = lu(k,459) - lu(k,431) * lu(k,449) lu(k,460) = lu(k,460) - lu(k,432) * lu(k,449) - lu(k,478) = lu(k,478) - lu(k,422) * lu(k,477) - lu(k,479) = lu(k,479) - lu(k,423) * lu(k,477) - lu(k,480) = lu(k,480) - lu(k,424) * lu(k,477) - lu(k,481) = lu(k,481) - lu(k,425) * lu(k,477) - lu(k,482) = lu(k,482) - lu(k,426) * lu(k,477) - lu(k,483) = lu(k,483) - lu(k,427) * lu(k,477) - lu(k,484) = lu(k,484) - lu(k,428) * lu(k,477) - lu(k,485) = lu(k,485) - lu(k,429) * lu(k,477) - lu(k,486) = lu(k,486) - lu(k,430) * lu(k,477) - lu(k,487) = lu(k,487) - lu(k,431) * lu(k,477) - lu(k,488) = lu(k,488) - lu(k,432) * lu(k,477) - lu(k,500) = lu(k,500) - lu(k,422) * lu(k,499) - lu(k,501) = lu(k,501) - lu(k,423) * lu(k,499) - lu(k,502) = lu(k,502) - lu(k,424) * lu(k,499) - lu(k,503) = lu(k,503) - lu(k,425) * lu(k,499) - lu(k,504) = lu(k,504) - lu(k,426) * lu(k,499) - lu(k,505) = lu(k,505) - lu(k,427) * lu(k,499) - lu(k,506) = lu(k,506) - lu(k,428) * lu(k,499) - lu(k,507) = lu(k,507) - lu(k,429) * lu(k,499) - lu(k,508) = lu(k,508) - lu(k,430) * lu(k,499) - lu(k,509) = lu(k,509) - lu(k,431) * lu(k,499) - lu(k,510) = lu(k,510) - lu(k,432) * lu(k,499) - lu(k,522) = lu(k,522) - lu(k,422) * lu(k,521) - lu(k,523) = lu(k,523) - lu(k,423) * lu(k,521) - lu(k,524) = lu(k,524) - lu(k,424) * lu(k,521) - lu(k,525) = lu(k,525) - lu(k,425) * lu(k,521) - lu(k,526) = lu(k,526) - lu(k,426) * lu(k,521) - lu(k,527) = lu(k,527) - lu(k,427) * lu(k,521) - lu(k,528) = lu(k,528) - lu(k,428) * lu(k,521) - lu(k,529) = lu(k,529) - lu(k,429) * lu(k,521) - lu(k,530) = lu(k,530) - lu(k,430) * lu(k,521) - lu(k,531) = lu(k,531) - lu(k,431) * lu(k,521) - lu(k,532) = lu(k,532) - lu(k,432) * lu(k,521) - lu(k,547) = lu(k,547) - lu(k,422) * lu(k,546) - lu(k,548) = lu(k,548) - lu(k,423) * lu(k,546) - lu(k,549) = lu(k,549) - lu(k,424) * lu(k,546) - lu(k,550) = lu(k,550) - lu(k,425) * lu(k,546) - lu(k,551) = lu(k,551) - lu(k,426) * lu(k,546) - lu(k,552) = lu(k,552) - lu(k,427) * lu(k,546) - lu(k,553) = lu(k,553) - lu(k,428) * lu(k,546) - lu(k,554) = lu(k,554) - lu(k,429) * lu(k,546) - lu(k,555) = lu(k,555) - lu(k,430) * lu(k,546) - lu(k,556) = lu(k,556) - lu(k,431) * lu(k,546) - lu(k,557) = lu(k,557) - lu(k,432) * lu(k,546) - lu(k,569) = lu(k,569) - lu(k,422) * lu(k,568) - lu(k,570) = lu(k,570) - lu(k,423) * lu(k,568) - lu(k,571) = lu(k,571) - lu(k,424) * lu(k,568) - lu(k,572) = lu(k,572) - lu(k,425) * lu(k,568) - lu(k,573) = lu(k,573) - lu(k,426) * lu(k,568) - lu(k,574) = lu(k,574) - lu(k,427) * lu(k,568) - lu(k,575) = lu(k,575) - lu(k,428) * lu(k,568) - lu(k,576) = lu(k,576) - lu(k,429) * lu(k,568) - lu(k,577) = lu(k,577) - lu(k,430) * lu(k,568) - lu(k,578) = lu(k,578) - lu(k,431) * lu(k,568) - lu(k,579) = lu(k,579) - lu(k,432) * lu(k,568) - lu(k,598) = lu(k,598) - lu(k,422) * lu(k,597) - lu(k,599) = lu(k,599) - lu(k,423) * lu(k,597) - lu(k,600) = lu(k,600) - lu(k,424) * lu(k,597) - lu(k,601) = lu(k,601) - lu(k,425) * lu(k,597) - lu(k,602) = lu(k,602) - lu(k,426) * lu(k,597) - lu(k,603) = lu(k,603) - lu(k,427) * lu(k,597) - lu(k,604) = lu(k,604) - lu(k,428) * lu(k,597) - lu(k,605) = lu(k,605) - lu(k,429) * lu(k,597) - lu(k,606) = lu(k,606) - lu(k,430) * lu(k,597) - lu(k,607) = lu(k,607) - lu(k,431) * lu(k,597) - lu(k,608) = lu(k,608) - lu(k,432) * lu(k,597) - lu(k,620) = lu(k,620) - lu(k,422) * lu(k,619) - lu(k,621) = lu(k,621) - lu(k,423) * lu(k,619) - lu(k,622) = lu(k,622) - lu(k,424) * lu(k,619) - lu(k,623) = lu(k,623) - lu(k,425) * lu(k,619) - lu(k,624) = lu(k,624) - lu(k,426) * lu(k,619) - lu(k,625) = lu(k,625) - lu(k,427) * lu(k,619) - lu(k,626) = lu(k,626) - lu(k,428) * lu(k,619) - lu(k,627) = lu(k,627) - lu(k,429) * lu(k,619) - lu(k,628) = lu(k,628) - lu(k,430) * lu(k,619) - lu(k,629) = lu(k,629) - lu(k,431) * lu(k,619) - lu(k,630) = lu(k,630) - lu(k,432) * lu(k,619) - lu(k,657) = lu(k,657) - lu(k,422) * lu(k,656) - lu(k,658) = lu(k,658) - lu(k,423) * lu(k,656) - lu(k,659) = lu(k,659) - lu(k,424) * lu(k,656) - lu(k,660) = lu(k,660) - lu(k,425) * lu(k,656) - lu(k,661) = lu(k,661) - lu(k,426) * lu(k,656) - lu(k,662) = lu(k,662) - lu(k,427) * lu(k,656) - lu(k,663) = lu(k,663) - lu(k,428) * lu(k,656) - lu(k,664) = lu(k,664) - lu(k,429) * lu(k,656) - lu(k,665) = lu(k,665) - lu(k,430) * lu(k,656) - lu(k,666) = lu(k,666) - lu(k,431) * lu(k,656) - lu(k,667) = lu(k,667) - lu(k,432) * lu(k,656) - lu(k,698) = lu(k,698) - lu(k,422) * lu(k,697) - lu(k,699) = lu(k,699) - lu(k,423) * lu(k,697) - lu(k,700) = lu(k,700) - lu(k,424) * lu(k,697) - lu(k,701) = lu(k,701) - lu(k,425) * lu(k,697) - lu(k,702) = lu(k,702) - lu(k,426) * lu(k,697) - lu(k,703) = lu(k,703) - lu(k,427) * lu(k,697) - lu(k,704) = lu(k,704) - lu(k,428) * lu(k,697) - lu(k,705) = lu(k,705) - lu(k,429) * lu(k,697) - lu(k,706) = lu(k,706) - lu(k,430) * lu(k,697) - lu(k,707) = lu(k,707) - lu(k,431) * lu(k,697) - lu(k,708) = lu(k,708) - lu(k,432) * lu(k,697) - lu(k,723) = lu(k,723) - lu(k,422) * lu(k,722) - lu(k,724) = lu(k,724) - lu(k,423) * lu(k,722) - lu(k,725) = lu(k,725) - lu(k,424) * lu(k,722) - lu(k,726) = lu(k,726) - lu(k,425) * lu(k,722) - lu(k,727) = lu(k,727) - lu(k,426) * lu(k,722) - lu(k,728) = lu(k,728) - lu(k,427) * lu(k,722) - lu(k,729) = lu(k,729) - lu(k,428) * lu(k,722) - lu(k,730) = lu(k,730) - lu(k,429) * lu(k,722) - lu(k,731) = lu(k,731) - lu(k,430) * lu(k,722) - lu(k,732) = lu(k,732) - lu(k,431) * lu(k,722) - lu(k,733) = lu(k,733) - lu(k,432) * lu(k,722) + lu(k,461) = lu(k,461) - lu(k,433) * lu(k,449) + lu(k,493) = lu(k,493) - lu(k,422) * lu(k,492) + lu(k,494) = lu(k,494) - lu(k,423) * lu(k,492) + lu(k,495) = lu(k,495) - lu(k,424) * lu(k,492) + lu(k,496) = lu(k,496) - lu(k,425) * lu(k,492) + lu(k,497) = lu(k,497) - lu(k,426) * lu(k,492) + lu(k,498) = lu(k,498) - lu(k,427) * lu(k,492) + lu(k,499) = lu(k,499) - lu(k,428) * lu(k,492) + lu(k,500) = lu(k,500) - lu(k,429) * lu(k,492) + lu(k,501) = lu(k,501) - lu(k,430) * lu(k,492) + 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,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) + lu(k,731) = lu(k,731) - lu(k,425) * lu(k,727) + lu(k,732) = lu(k,732) - lu(k,426) * lu(k,727) + lu(k,733) = lu(k,733) - lu(k,427) * lu(k,727) + lu(k,734) = lu(k,734) - lu(k,428) * lu(k,727) + lu(k,735) = lu(k,735) - lu(k,429) * lu(k,727) + lu(k,736) = lu(k,736) - lu(k,430) * lu(k,727) + lu(k,737) = lu(k,737) - lu(k,431) * lu(k,727) + lu(k,738) = lu(k,738) - lu(k,432) * lu(k,727) + lu(k,739) = lu(k,739) - lu(k,433) * lu(k,727) + lu(k,753) = lu(k,753) - lu(k,422) * lu(k,752) + lu(k,754) = lu(k,754) - lu(k,423) * lu(k,752) + lu(k,755) = lu(k,755) - lu(k,424) * lu(k,752) + lu(k,756) = lu(k,756) - lu(k,425) * lu(k,752) + lu(k,757) = lu(k,757) - lu(k,426) * lu(k,752) + lu(k,758) = lu(k,758) - lu(k,427) * lu(k,752) + lu(k,759) = lu(k,759) - lu(k,428) * lu(k,752) + lu(k,760) = lu(k,760) - lu(k,429) * lu(k,752) + lu(k,761) = lu(k,761) - lu(k,430) * lu(k,752) + lu(k,762) = lu(k,762) - lu(k,431) * lu(k,752) + lu(k,763) = lu(k,763) - lu(k,432) * lu(k,752) + lu(k,764) = lu(k,764) - lu(k,433) * lu(k,752) end do end subroutine lu_fac09 subroutine lu_fac10( avec_len, lu ) @@ -2640,401 +2625,503 @@ subroutine lu_fac10( avec_len, lu ) lu(k,458) = lu(k,458) * lu(k,450) lu(k,459) = lu(k,459) * lu(k,450) lu(k,460) = lu(k,460) * lu(k,450) - lu(k,479) = lu(k,479) - lu(k,451) * lu(k,478) - lu(k,480) = lu(k,480) - lu(k,452) * lu(k,478) - lu(k,481) = lu(k,481) - lu(k,453) * lu(k,478) - lu(k,482) = lu(k,482) - lu(k,454) * lu(k,478) - lu(k,483) = lu(k,483) - lu(k,455) * lu(k,478) - lu(k,484) = lu(k,484) - lu(k,456) * lu(k,478) - lu(k,485) = lu(k,485) - lu(k,457) * lu(k,478) - lu(k,486) = lu(k,486) - lu(k,458) * lu(k,478) - lu(k,487) = lu(k,487) - lu(k,459) * lu(k,478) - lu(k,488) = lu(k,488) - lu(k,460) * lu(k,478) - lu(k,501) = lu(k,501) - lu(k,451) * lu(k,500) - lu(k,502) = lu(k,502) - lu(k,452) * lu(k,500) - lu(k,503) = lu(k,503) - lu(k,453) * lu(k,500) - lu(k,504) = lu(k,504) - lu(k,454) * lu(k,500) - lu(k,505) = lu(k,505) - lu(k,455) * lu(k,500) - lu(k,506) = lu(k,506) - lu(k,456) * lu(k,500) - lu(k,507) = lu(k,507) - lu(k,457) * lu(k,500) - lu(k,508) = lu(k,508) - lu(k,458) * lu(k,500) - lu(k,509) = lu(k,509) - lu(k,459) * lu(k,500) - lu(k,510) = lu(k,510) - lu(k,460) * lu(k,500) - lu(k,523) = lu(k,523) - lu(k,451) * lu(k,522) - lu(k,524) = lu(k,524) - lu(k,452) * lu(k,522) - lu(k,525) = lu(k,525) - lu(k,453) * lu(k,522) - lu(k,526) = lu(k,526) - lu(k,454) * lu(k,522) - lu(k,527) = lu(k,527) - lu(k,455) * lu(k,522) - lu(k,528) = lu(k,528) - lu(k,456) * lu(k,522) - lu(k,529) = lu(k,529) - lu(k,457) * lu(k,522) - lu(k,530) = lu(k,530) - lu(k,458) * lu(k,522) - lu(k,531) = lu(k,531) - lu(k,459) * lu(k,522) - lu(k,532) = lu(k,532) - lu(k,460) * lu(k,522) - lu(k,548) = lu(k,548) - lu(k,451) * lu(k,547) - lu(k,549) = lu(k,549) - lu(k,452) * lu(k,547) - lu(k,550) = lu(k,550) - lu(k,453) * lu(k,547) - lu(k,551) = lu(k,551) - lu(k,454) * lu(k,547) - lu(k,552) = lu(k,552) - lu(k,455) * lu(k,547) - lu(k,553) = lu(k,553) - lu(k,456) * lu(k,547) - lu(k,554) = lu(k,554) - lu(k,457) * lu(k,547) - lu(k,555) = lu(k,555) - lu(k,458) * lu(k,547) - lu(k,556) = lu(k,556) - lu(k,459) * lu(k,547) - lu(k,557) = lu(k,557) - lu(k,460) * lu(k,547) - lu(k,570) = lu(k,570) - lu(k,451) * lu(k,569) - lu(k,571) = lu(k,571) - lu(k,452) * lu(k,569) - lu(k,572) = lu(k,572) - lu(k,453) * lu(k,569) - lu(k,573) = lu(k,573) - lu(k,454) * lu(k,569) - lu(k,574) = lu(k,574) - lu(k,455) * lu(k,569) - lu(k,575) = lu(k,575) - lu(k,456) * lu(k,569) - lu(k,576) = lu(k,576) - lu(k,457) * lu(k,569) - lu(k,577) = lu(k,577) - lu(k,458) * lu(k,569) - lu(k,578) = lu(k,578) - lu(k,459) * lu(k,569) - lu(k,579) = lu(k,579) - lu(k,460) * lu(k,569) - lu(k,599) = lu(k,599) - lu(k,451) * lu(k,598) - lu(k,600) = lu(k,600) - lu(k,452) * lu(k,598) - lu(k,601) = lu(k,601) - lu(k,453) * lu(k,598) - lu(k,602) = lu(k,602) - lu(k,454) * lu(k,598) - lu(k,603) = lu(k,603) - lu(k,455) * lu(k,598) - lu(k,604) = lu(k,604) - lu(k,456) * lu(k,598) - lu(k,605) = lu(k,605) - lu(k,457) * lu(k,598) - lu(k,606) = lu(k,606) - lu(k,458) * lu(k,598) - lu(k,607) = lu(k,607) - lu(k,459) * lu(k,598) - lu(k,608) = lu(k,608) - lu(k,460) * lu(k,598) - lu(k,621) = lu(k,621) - lu(k,451) * lu(k,620) - lu(k,622) = lu(k,622) - lu(k,452) * lu(k,620) - lu(k,623) = lu(k,623) - lu(k,453) * lu(k,620) - lu(k,624) = lu(k,624) - lu(k,454) * lu(k,620) - lu(k,625) = lu(k,625) - lu(k,455) * lu(k,620) - lu(k,626) = lu(k,626) - lu(k,456) * lu(k,620) - lu(k,627) = lu(k,627) - lu(k,457) * lu(k,620) - lu(k,628) = lu(k,628) - lu(k,458) * lu(k,620) - lu(k,629) = lu(k,629) - lu(k,459) * lu(k,620) - lu(k,630) = lu(k,630) - lu(k,460) * lu(k,620) - lu(k,658) = lu(k,658) - lu(k,451) * lu(k,657) - lu(k,659) = lu(k,659) - lu(k,452) * lu(k,657) - lu(k,660) = lu(k,660) - lu(k,453) * lu(k,657) - lu(k,661) = lu(k,661) - lu(k,454) * lu(k,657) - lu(k,662) = lu(k,662) - lu(k,455) * lu(k,657) - lu(k,663) = lu(k,663) - lu(k,456) * lu(k,657) - lu(k,664) = lu(k,664) - lu(k,457) * lu(k,657) - lu(k,665) = lu(k,665) - lu(k,458) * lu(k,657) - lu(k,666) = lu(k,666) - lu(k,459) * lu(k,657) - lu(k,667) = lu(k,667) - lu(k,460) * lu(k,657) - lu(k,699) = lu(k,699) - lu(k,451) * lu(k,698) - lu(k,700) = lu(k,700) - lu(k,452) * lu(k,698) - lu(k,701) = lu(k,701) - lu(k,453) * lu(k,698) - lu(k,702) = lu(k,702) - lu(k,454) * lu(k,698) - lu(k,703) = lu(k,703) - lu(k,455) * lu(k,698) - lu(k,704) = lu(k,704) - lu(k,456) * lu(k,698) - lu(k,705) = lu(k,705) - lu(k,457) * lu(k,698) - lu(k,706) = lu(k,706) - lu(k,458) * lu(k,698) - lu(k,707) = lu(k,707) - lu(k,459) * lu(k,698) - lu(k,708) = lu(k,708) - lu(k,460) * lu(k,698) - lu(k,724) = lu(k,724) - lu(k,451) * lu(k,723) - lu(k,725) = lu(k,725) - lu(k,452) * lu(k,723) - lu(k,726) = lu(k,726) - lu(k,453) * lu(k,723) - lu(k,727) = lu(k,727) - lu(k,454) * lu(k,723) - lu(k,728) = lu(k,728) - lu(k,455) * lu(k,723) - lu(k,729) = lu(k,729) - lu(k,456) * lu(k,723) - lu(k,730) = lu(k,730) - lu(k,457) * lu(k,723) - lu(k,731) = lu(k,731) - lu(k,458) * lu(k,723) - lu(k,732) = lu(k,732) - lu(k,459) * lu(k,723) - lu(k,733) = lu(k,733) - lu(k,460) * lu(k,723) - lu(k,479) = 1._r8 / lu(k,479) - lu(k,480) = lu(k,480) * lu(k,479) - lu(k,481) = lu(k,481) * lu(k,479) - lu(k,482) = lu(k,482) * lu(k,479) - lu(k,483) = lu(k,483) * lu(k,479) - lu(k,484) = lu(k,484) * lu(k,479) - lu(k,485) = lu(k,485) * lu(k,479) - lu(k,486) = lu(k,486) * lu(k,479) - lu(k,487) = lu(k,487) * lu(k,479) - lu(k,488) = lu(k,488) * lu(k,479) - lu(k,502) = lu(k,502) - lu(k,480) * lu(k,501) - lu(k,503) = lu(k,503) - lu(k,481) * lu(k,501) - lu(k,504) = lu(k,504) - lu(k,482) * lu(k,501) - lu(k,505) = lu(k,505) - lu(k,483) * lu(k,501) - lu(k,506) = lu(k,506) - lu(k,484) * lu(k,501) - lu(k,507) = lu(k,507) - lu(k,485) * lu(k,501) - lu(k,508) = lu(k,508) - lu(k,486) * lu(k,501) - lu(k,509) = lu(k,509) - lu(k,487) * lu(k,501) - lu(k,510) = lu(k,510) - lu(k,488) * lu(k,501) - lu(k,524) = lu(k,524) - lu(k,480) * lu(k,523) - lu(k,525) = lu(k,525) - lu(k,481) * lu(k,523) - lu(k,526) = lu(k,526) - lu(k,482) * lu(k,523) - lu(k,527) = lu(k,527) - lu(k,483) * lu(k,523) - lu(k,528) = lu(k,528) - lu(k,484) * lu(k,523) - lu(k,529) = lu(k,529) - lu(k,485) * lu(k,523) - lu(k,530) = lu(k,530) - lu(k,486) * lu(k,523) - lu(k,531) = lu(k,531) - lu(k,487) * lu(k,523) - lu(k,532) = lu(k,532) - lu(k,488) * lu(k,523) - lu(k,549) = lu(k,549) - lu(k,480) * lu(k,548) - lu(k,550) = lu(k,550) - lu(k,481) * lu(k,548) - lu(k,551) = lu(k,551) - lu(k,482) * lu(k,548) - lu(k,552) = lu(k,552) - lu(k,483) * lu(k,548) - lu(k,553) = lu(k,553) - lu(k,484) * lu(k,548) - lu(k,554) = lu(k,554) - lu(k,485) * lu(k,548) - lu(k,555) = lu(k,555) - lu(k,486) * lu(k,548) - lu(k,556) = lu(k,556) - lu(k,487) * lu(k,548) - lu(k,557) = lu(k,557) - lu(k,488) * lu(k,548) - lu(k,571) = lu(k,571) - lu(k,480) * lu(k,570) - lu(k,572) = lu(k,572) - lu(k,481) * lu(k,570) - lu(k,573) = lu(k,573) - lu(k,482) * lu(k,570) - lu(k,574) = lu(k,574) - lu(k,483) * lu(k,570) - lu(k,575) = lu(k,575) - lu(k,484) * lu(k,570) - lu(k,576) = lu(k,576) - lu(k,485) * lu(k,570) - lu(k,577) = lu(k,577) - lu(k,486) * lu(k,570) - lu(k,578) = lu(k,578) - lu(k,487) * lu(k,570) - lu(k,579) = lu(k,579) - lu(k,488) * lu(k,570) - lu(k,600) = lu(k,600) - lu(k,480) * lu(k,599) - lu(k,601) = lu(k,601) - lu(k,481) * lu(k,599) - lu(k,602) = lu(k,602) - lu(k,482) * lu(k,599) - lu(k,603) = lu(k,603) - lu(k,483) * lu(k,599) - lu(k,604) = lu(k,604) - lu(k,484) * lu(k,599) - lu(k,605) = lu(k,605) - lu(k,485) * lu(k,599) - lu(k,606) = lu(k,606) - lu(k,486) * lu(k,599) - lu(k,607) = lu(k,607) - lu(k,487) * lu(k,599) - lu(k,608) = lu(k,608) - lu(k,488) * lu(k,599) - lu(k,622) = lu(k,622) - lu(k,480) * lu(k,621) - lu(k,623) = lu(k,623) - lu(k,481) * lu(k,621) - lu(k,624) = lu(k,624) - lu(k,482) * lu(k,621) - lu(k,625) = lu(k,625) - lu(k,483) * lu(k,621) - lu(k,626) = lu(k,626) - lu(k,484) * lu(k,621) - lu(k,627) = lu(k,627) - lu(k,485) * lu(k,621) - lu(k,628) = lu(k,628) - lu(k,486) * lu(k,621) - lu(k,629) = lu(k,629) - lu(k,487) * lu(k,621) - lu(k,630) = lu(k,630) - lu(k,488) * lu(k,621) - lu(k,659) = lu(k,659) - lu(k,480) * lu(k,658) - lu(k,660) = lu(k,660) - lu(k,481) * lu(k,658) - lu(k,661) = lu(k,661) - lu(k,482) * lu(k,658) - lu(k,662) = lu(k,662) - lu(k,483) * lu(k,658) - lu(k,663) = lu(k,663) - lu(k,484) * lu(k,658) - lu(k,664) = lu(k,664) - lu(k,485) * lu(k,658) - lu(k,665) = lu(k,665) - lu(k,486) * lu(k,658) - lu(k,666) = lu(k,666) - lu(k,487) * lu(k,658) - lu(k,667) = lu(k,667) - lu(k,488) * lu(k,658) - lu(k,700) = lu(k,700) - lu(k,480) * lu(k,699) - lu(k,701) = lu(k,701) - lu(k,481) * lu(k,699) - lu(k,702) = lu(k,702) - lu(k,482) * lu(k,699) - lu(k,703) = lu(k,703) - lu(k,483) * lu(k,699) - lu(k,704) = lu(k,704) - lu(k,484) * lu(k,699) - lu(k,705) = lu(k,705) - lu(k,485) * lu(k,699) - lu(k,706) = lu(k,706) - lu(k,486) * lu(k,699) - lu(k,707) = lu(k,707) - lu(k,487) * lu(k,699) - lu(k,708) = lu(k,708) - lu(k,488) * lu(k,699) - lu(k,725) = lu(k,725) - lu(k,480) * lu(k,724) - lu(k,726) = lu(k,726) - lu(k,481) * lu(k,724) - lu(k,727) = lu(k,727) - lu(k,482) * lu(k,724) - lu(k,728) = lu(k,728) - lu(k,483) * lu(k,724) - lu(k,729) = lu(k,729) - lu(k,484) * lu(k,724) - lu(k,730) = lu(k,730) - lu(k,485) * lu(k,724) - lu(k,731) = lu(k,731) - lu(k,486) * lu(k,724) - lu(k,732) = lu(k,732) - lu(k,487) * lu(k,724) - lu(k,733) = lu(k,733) - lu(k,488) * lu(k,724) - lu(k,502) = 1._r8 / lu(k,502) - lu(k,503) = lu(k,503) * lu(k,502) - lu(k,504) = lu(k,504) * lu(k,502) - lu(k,505) = lu(k,505) * lu(k,502) - lu(k,506) = lu(k,506) * lu(k,502) - lu(k,507) = lu(k,507) * lu(k,502) - lu(k,508) = lu(k,508) * lu(k,502) - lu(k,509) = lu(k,509) * lu(k,502) - lu(k,510) = lu(k,510) * lu(k,502) - lu(k,525) = lu(k,525) - lu(k,503) * lu(k,524) - lu(k,526) = lu(k,526) - lu(k,504) * lu(k,524) - lu(k,527) = lu(k,527) - lu(k,505) * lu(k,524) - lu(k,528) = lu(k,528) - lu(k,506) * lu(k,524) - lu(k,529) = lu(k,529) - lu(k,507) * lu(k,524) - lu(k,530) = lu(k,530) - lu(k,508) * lu(k,524) - lu(k,531) = lu(k,531) - lu(k,509) * lu(k,524) - lu(k,532) = lu(k,532) - lu(k,510) * lu(k,524) - lu(k,550) = lu(k,550) - lu(k,503) * lu(k,549) - lu(k,551) = lu(k,551) - lu(k,504) * lu(k,549) - lu(k,552) = lu(k,552) - lu(k,505) * lu(k,549) - lu(k,553) = lu(k,553) - lu(k,506) * lu(k,549) - lu(k,554) = lu(k,554) - lu(k,507) * lu(k,549) - lu(k,555) = lu(k,555) - lu(k,508) * lu(k,549) - lu(k,556) = lu(k,556) - lu(k,509) * lu(k,549) - lu(k,557) = lu(k,557) - lu(k,510) * lu(k,549) - lu(k,572) = lu(k,572) - lu(k,503) * lu(k,571) - lu(k,573) = lu(k,573) - lu(k,504) * lu(k,571) - lu(k,574) = lu(k,574) - lu(k,505) * lu(k,571) - lu(k,575) = lu(k,575) - lu(k,506) * lu(k,571) - lu(k,576) = lu(k,576) - lu(k,507) * lu(k,571) - lu(k,577) = lu(k,577) - lu(k,508) * lu(k,571) - lu(k,578) = lu(k,578) - lu(k,509) * lu(k,571) - lu(k,579) = lu(k,579) - lu(k,510) * lu(k,571) - lu(k,601) = lu(k,601) - lu(k,503) * lu(k,600) - lu(k,602) = lu(k,602) - lu(k,504) * lu(k,600) - lu(k,603) = lu(k,603) - lu(k,505) * lu(k,600) - lu(k,604) = lu(k,604) - lu(k,506) * lu(k,600) - lu(k,605) = lu(k,605) - lu(k,507) * lu(k,600) - lu(k,606) = lu(k,606) - lu(k,508) * lu(k,600) - lu(k,607) = lu(k,607) - lu(k,509) * lu(k,600) - lu(k,608) = lu(k,608) - lu(k,510) * lu(k,600) - lu(k,623) = lu(k,623) - lu(k,503) * lu(k,622) - lu(k,624) = lu(k,624) - lu(k,504) * lu(k,622) - lu(k,625) = lu(k,625) - lu(k,505) * lu(k,622) - lu(k,626) = lu(k,626) - lu(k,506) * lu(k,622) - lu(k,627) = lu(k,627) - lu(k,507) * lu(k,622) - lu(k,628) = lu(k,628) - lu(k,508) * lu(k,622) - lu(k,629) = lu(k,629) - lu(k,509) * lu(k,622) - lu(k,630) = lu(k,630) - lu(k,510) * lu(k,622) - lu(k,660) = lu(k,660) - lu(k,503) * lu(k,659) - lu(k,661) = lu(k,661) - lu(k,504) * lu(k,659) - lu(k,662) = lu(k,662) - lu(k,505) * lu(k,659) - lu(k,663) = lu(k,663) - lu(k,506) * lu(k,659) - lu(k,664) = lu(k,664) - lu(k,507) * lu(k,659) - lu(k,665) = lu(k,665) - lu(k,508) * lu(k,659) - lu(k,666) = lu(k,666) - lu(k,509) * lu(k,659) - lu(k,667) = lu(k,667) - lu(k,510) * lu(k,659) - lu(k,701) = lu(k,701) - lu(k,503) * lu(k,700) - lu(k,702) = lu(k,702) - lu(k,504) * lu(k,700) - lu(k,703) = lu(k,703) - lu(k,505) * lu(k,700) - lu(k,704) = lu(k,704) - lu(k,506) * lu(k,700) - lu(k,705) = lu(k,705) - lu(k,507) * lu(k,700) - lu(k,706) = lu(k,706) - lu(k,508) * lu(k,700) - lu(k,707) = lu(k,707) - lu(k,509) * lu(k,700) - lu(k,708) = lu(k,708) - lu(k,510) * lu(k,700) - lu(k,726) = lu(k,726) - lu(k,503) * lu(k,725) - lu(k,727) = lu(k,727) - lu(k,504) * lu(k,725) - lu(k,728) = lu(k,728) - lu(k,505) * lu(k,725) - lu(k,729) = lu(k,729) - lu(k,506) * lu(k,725) - lu(k,730) = lu(k,730) - lu(k,507) * lu(k,725) - lu(k,731) = lu(k,731) - lu(k,508) * lu(k,725) - lu(k,732) = lu(k,732) - lu(k,509) * lu(k,725) - lu(k,733) = lu(k,733) - lu(k,510) * lu(k,725) - lu(k,525) = 1._r8 / lu(k,525) - lu(k,526) = lu(k,526) * lu(k,525) - lu(k,527) = lu(k,527) * lu(k,525) - lu(k,528) = lu(k,528) * lu(k,525) - lu(k,529) = lu(k,529) * lu(k,525) - lu(k,530) = lu(k,530) * lu(k,525) - lu(k,531) = lu(k,531) * lu(k,525) - lu(k,532) = lu(k,532) * lu(k,525) - lu(k,551) = lu(k,551) - lu(k,526) * lu(k,550) - lu(k,552) = lu(k,552) - lu(k,527) * lu(k,550) - lu(k,553) = lu(k,553) - lu(k,528) * lu(k,550) - lu(k,554) = lu(k,554) - lu(k,529) * lu(k,550) - lu(k,555) = lu(k,555) - lu(k,530) * lu(k,550) - lu(k,556) = lu(k,556) - lu(k,531) * lu(k,550) - lu(k,557) = lu(k,557) - lu(k,532) * lu(k,550) - lu(k,573) = lu(k,573) - lu(k,526) * lu(k,572) - lu(k,574) = lu(k,574) - lu(k,527) * lu(k,572) - lu(k,575) = lu(k,575) - lu(k,528) * lu(k,572) - lu(k,576) = lu(k,576) - lu(k,529) * lu(k,572) - lu(k,577) = lu(k,577) - lu(k,530) * lu(k,572) - lu(k,578) = lu(k,578) - lu(k,531) * lu(k,572) - lu(k,579) = lu(k,579) - lu(k,532) * lu(k,572) - lu(k,602) = lu(k,602) - lu(k,526) * lu(k,601) - lu(k,603) = lu(k,603) - lu(k,527) * lu(k,601) - lu(k,604) = lu(k,604) - lu(k,528) * lu(k,601) - lu(k,605) = lu(k,605) - lu(k,529) * lu(k,601) - lu(k,606) = lu(k,606) - lu(k,530) * lu(k,601) - lu(k,607) = lu(k,607) - lu(k,531) * lu(k,601) - lu(k,608) = lu(k,608) - lu(k,532) * lu(k,601) - lu(k,624) = lu(k,624) - lu(k,526) * lu(k,623) - lu(k,625) = lu(k,625) - lu(k,527) * lu(k,623) - lu(k,626) = lu(k,626) - lu(k,528) * lu(k,623) - lu(k,627) = lu(k,627) - lu(k,529) * lu(k,623) - lu(k,628) = lu(k,628) - lu(k,530) * lu(k,623) - lu(k,629) = lu(k,629) - lu(k,531) * lu(k,623) - lu(k,630) = lu(k,630) - lu(k,532) * lu(k,623) - lu(k,661) = lu(k,661) - lu(k,526) * lu(k,660) - lu(k,662) = lu(k,662) - lu(k,527) * lu(k,660) - lu(k,663) = lu(k,663) - lu(k,528) * lu(k,660) - lu(k,664) = lu(k,664) - lu(k,529) * lu(k,660) - lu(k,665) = lu(k,665) - lu(k,530) * lu(k,660) - lu(k,666) = lu(k,666) - lu(k,531) * lu(k,660) - lu(k,667) = lu(k,667) - lu(k,532) * lu(k,660) - lu(k,702) = lu(k,702) - lu(k,526) * lu(k,701) - lu(k,703) = lu(k,703) - lu(k,527) * lu(k,701) - lu(k,704) = lu(k,704) - lu(k,528) * lu(k,701) - lu(k,705) = lu(k,705) - lu(k,529) * lu(k,701) - lu(k,706) = lu(k,706) - lu(k,530) * lu(k,701) - lu(k,707) = lu(k,707) - lu(k,531) * lu(k,701) - lu(k,708) = lu(k,708) - lu(k,532) * lu(k,701) - lu(k,727) = lu(k,727) - lu(k,526) * lu(k,726) - lu(k,728) = lu(k,728) - lu(k,527) * lu(k,726) - lu(k,729) = lu(k,729) - lu(k,528) * lu(k,726) - lu(k,730) = lu(k,730) - lu(k,529) * lu(k,726) - lu(k,731) = lu(k,731) - lu(k,530) * lu(k,726) - lu(k,732) = lu(k,732) - lu(k,531) * lu(k,726) - lu(k,733) = lu(k,733) - lu(k,532) * lu(k,726) - lu(k,551) = 1._r8 / lu(k,551) - lu(k,552) = lu(k,552) * lu(k,551) - lu(k,553) = lu(k,553) * lu(k,551) - lu(k,554) = lu(k,554) * lu(k,551) - lu(k,555) = lu(k,555) * lu(k,551) - lu(k,556) = lu(k,556) * lu(k,551) - lu(k,557) = lu(k,557) * lu(k,551) - lu(k,574) = lu(k,574) - lu(k,552) * lu(k,573) - lu(k,575) = lu(k,575) - lu(k,553) * lu(k,573) - lu(k,576) = lu(k,576) - lu(k,554) * lu(k,573) - lu(k,577) = lu(k,577) - lu(k,555) * lu(k,573) - lu(k,578) = lu(k,578) - lu(k,556) * lu(k,573) - lu(k,579) = lu(k,579) - lu(k,557) * lu(k,573) - lu(k,603) = lu(k,603) - lu(k,552) * lu(k,602) - lu(k,604) = lu(k,604) - lu(k,553) * lu(k,602) - lu(k,605) = lu(k,605) - lu(k,554) * lu(k,602) - lu(k,606) = lu(k,606) - lu(k,555) * lu(k,602) - lu(k,607) = lu(k,607) - lu(k,556) * lu(k,602) - lu(k,608) = lu(k,608) - lu(k,557) * lu(k,602) - lu(k,625) = lu(k,625) - lu(k,552) * lu(k,624) - lu(k,626) = lu(k,626) - lu(k,553) * lu(k,624) - lu(k,627) = lu(k,627) - lu(k,554) * lu(k,624) - lu(k,628) = lu(k,628) - lu(k,555) * lu(k,624) - lu(k,629) = lu(k,629) - lu(k,556) * lu(k,624) - lu(k,630) = lu(k,630) - lu(k,557) * lu(k,624) - lu(k,662) = lu(k,662) - lu(k,552) * lu(k,661) - lu(k,663) = lu(k,663) - lu(k,553) * lu(k,661) - lu(k,664) = lu(k,664) - lu(k,554) * lu(k,661) - lu(k,665) = lu(k,665) - lu(k,555) * lu(k,661) - lu(k,666) = lu(k,666) - lu(k,556) * lu(k,661) - lu(k,667) = lu(k,667) - lu(k,557) * lu(k,661) - lu(k,703) = lu(k,703) - lu(k,552) * lu(k,702) - lu(k,704) = lu(k,704) - lu(k,553) * lu(k,702) - lu(k,705) = lu(k,705) - lu(k,554) * lu(k,702) - lu(k,706) = lu(k,706) - lu(k,555) * lu(k,702) - lu(k,707) = lu(k,707) - lu(k,556) * lu(k,702) - lu(k,708) = lu(k,708) - lu(k,557) * lu(k,702) - lu(k,728) = lu(k,728) - lu(k,552) * lu(k,727) - lu(k,729) = lu(k,729) - lu(k,553) * lu(k,727) - lu(k,730) = lu(k,730) - lu(k,554) * lu(k,727) - lu(k,731) = lu(k,731) - lu(k,555) * lu(k,727) - lu(k,732) = lu(k,732) - lu(k,556) * lu(k,727) - lu(k,733) = lu(k,733) - lu(k,557) * lu(k,727) + lu(k,461) = lu(k,461) * lu(k,450) + lu(k,494) = lu(k,494) - lu(k,451) * lu(k,493) + lu(k,495) = lu(k,495) - lu(k,452) * lu(k,493) + lu(k,496) = lu(k,496) - lu(k,453) * lu(k,493) + lu(k,497) = lu(k,497) - lu(k,454) * lu(k,493) + lu(k,498) = lu(k,498) - lu(k,455) * lu(k,493) + lu(k,499) = lu(k,499) - lu(k,456) * lu(k,493) + lu(k,500) = lu(k,500) - lu(k,457) * lu(k,493) + lu(k,501) = lu(k,501) - lu(k,458) * lu(k,493) + 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,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) + lu(k,732) = lu(k,732) - lu(k,454) * lu(k,728) + lu(k,733) = lu(k,733) - lu(k,455) * lu(k,728) + lu(k,734) = lu(k,734) - lu(k,456) * lu(k,728) + lu(k,735) = lu(k,735) - lu(k,457) * lu(k,728) + lu(k,736) = lu(k,736) - lu(k,458) * lu(k,728) + lu(k,737) = lu(k,737) - lu(k,459) * lu(k,728) + lu(k,738) = lu(k,738) - lu(k,460) * lu(k,728) + lu(k,739) = lu(k,739) - lu(k,461) * lu(k,728) + lu(k,754) = lu(k,754) - lu(k,451) * lu(k,753) + lu(k,755) = lu(k,755) - lu(k,452) * lu(k,753) + lu(k,756) = lu(k,756) - lu(k,453) * lu(k,753) + lu(k,757) = lu(k,757) - lu(k,454) * lu(k,753) + lu(k,758) = lu(k,758) - lu(k,455) * lu(k,753) + lu(k,759) = lu(k,759) - lu(k,456) * lu(k,753) + lu(k,760) = lu(k,760) - lu(k,457) * lu(k,753) + lu(k,761) = lu(k,761) - lu(k,458) * lu(k,753) + lu(k,762) = lu(k,762) - lu(k,459) * lu(k,753) + lu(k,763) = lu(k,763) - lu(k,460) * lu(k,753) + lu(k,764) = lu(k,764) - lu(k,461) * lu(k,753) + lu(k,494) = 1._r8 / lu(k,494) + lu(k,495) = lu(k,495) * lu(k,494) + lu(k,496) = lu(k,496) * lu(k,494) + lu(k,497) = lu(k,497) * lu(k,494) + lu(k,498) = lu(k,498) * lu(k,494) + lu(k,499) = lu(k,499) * lu(k,494) + lu(k,500) = lu(k,500) * lu(k,494) + lu(k,501) = lu(k,501) * lu(k,494) + 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,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) + lu(k,733) = lu(k,733) - lu(k,498) * lu(k,729) + lu(k,734) = lu(k,734) - lu(k,499) * lu(k,729) + lu(k,735) = lu(k,735) - lu(k,500) * lu(k,729) + lu(k,736) = lu(k,736) - lu(k,501) * lu(k,729) + lu(k,737) = lu(k,737) - lu(k,502) * lu(k,729) + lu(k,738) = lu(k,738) - lu(k,503) * lu(k,729) + lu(k,739) = lu(k,739) - lu(k,504) * lu(k,729) + lu(k,755) = lu(k,755) - lu(k,495) * lu(k,754) + lu(k,756) = lu(k,756) - lu(k,496) * lu(k,754) + lu(k,757) = lu(k,757) - lu(k,497) * lu(k,754) + lu(k,758) = lu(k,758) - lu(k,498) * lu(k,754) + lu(k,759) = lu(k,759) - lu(k,499) * lu(k,754) + lu(k,760) = lu(k,760) - lu(k,500) * lu(k,754) + lu(k,761) = lu(k,761) - lu(k,501) * lu(k,754) + 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,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,604) = lu(k,604) - lu(k,575) * lu(k,603) - lu(k,605) = lu(k,605) - lu(k,576) * lu(k,603) - lu(k,606) = lu(k,606) - lu(k,577) * lu(k,603) - lu(k,607) = lu(k,607) - lu(k,578) * lu(k,603) - lu(k,608) = lu(k,608) - lu(k,579) * lu(k,603) + 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,704) = lu(k,704) - lu(k,575) * lu(k,703) - lu(k,705) = lu(k,705) - lu(k,576) * lu(k,703) - lu(k,706) = lu(k,706) - lu(k,577) * lu(k,703) - lu(k,707) = lu(k,707) - lu(k,578) * lu(k,703) - lu(k,708) = lu(k,708) - lu(k,579) * lu(k,703) - lu(k,729) = lu(k,729) - lu(k,575) * lu(k,728) - lu(k,730) = lu(k,730) - lu(k,576) * lu(k,728) - lu(k,731) = lu(k,731) - lu(k,577) * lu(k,728) - lu(k,732) = lu(k,732) - lu(k,578) * lu(k,728) - lu(k,733) = lu(k,733) - lu(k,579) * lu(k,728) + 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 ) @@ -3051,51 +3138,82 @@ subroutine lu_fac11( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,604) = 1._r8 / lu(k,604) - lu(k,605) = lu(k,605) * lu(k,604) - lu(k,606) = lu(k,606) * lu(k,604) - lu(k,607) = lu(k,607) * lu(k,604) - lu(k,608) = lu(k,608) * lu(k,604) - lu(k,627) = lu(k,627) - lu(k,605) * lu(k,626) - lu(k,628) = lu(k,628) - lu(k,606) * lu(k,626) - lu(k,629) = lu(k,629) - lu(k,607) * lu(k,626) - lu(k,630) = lu(k,630) - lu(k,608) * lu(k,626) - lu(k,664) = lu(k,664) - lu(k,605) * lu(k,663) - lu(k,665) = lu(k,665) - lu(k,606) * lu(k,663) - lu(k,666) = lu(k,666) - lu(k,607) * lu(k,663) - lu(k,667) = lu(k,667) - lu(k,608) * lu(k,663) - lu(k,705) = lu(k,705) - lu(k,605) * lu(k,704) - lu(k,706) = lu(k,706) - lu(k,606) * lu(k,704) - lu(k,707) = lu(k,707) - lu(k,607) * lu(k,704) - lu(k,708) = lu(k,708) - lu(k,608) * lu(k,704) - lu(k,730) = lu(k,730) - lu(k,605) * lu(k,729) - lu(k,731) = lu(k,731) - lu(k,606) * lu(k,729) - lu(k,732) = lu(k,732) - lu(k,607) * lu(k,729) - lu(k,733) = lu(k,733) - lu(k,608) * lu(k,729) 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,706) = lu(k,706) - lu(k,628) * lu(k,705) - lu(k,707) = lu(k,707) - lu(k,629) * lu(k,705) - lu(k,708) = lu(k,708) - lu(k,630) * lu(k,705) - lu(k,731) = lu(k,731) - lu(k,628) * lu(k,730) - lu(k,732) = lu(k,732) - lu(k,629) * lu(k,730) - lu(k,733) = lu(k,733) - lu(k,630) * lu(k,730) + 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,707) = lu(k,707) - lu(k,666) * lu(k,706) - lu(k,708) = lu(k,708) - lu(k,667) * lu(k,706) - lu(k,732) = lu(k,732) - lu(k,666) * lu(k,731) - lu(k,733) = lu(k,733) - lu(k,667) * lu(k,731) - lu(k,707) = 1._r8 / lu(k,707) - lu(k,708) = lu(k,708) * lu(k,707) - lu(k,733) = lu(k,733) - lu(k,708) * lu(k,732) - lu(k,733) = 1._r8 / lu(k,733) + 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) + lu(k,764) = 1._r8 / lu(k,764) end do end subroutine lu_fac11 subroutine lu_fac( avec_len, lu ) 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 adfac6be6a..295593f935 100644 --- a/src/chemistry/pp_waccm_ma_mam4/mo_lu_solve.F90 +++ b/src/chemistry/pp_waccm_ma_mam4/mo_lu_solve.F90 @@ -21,218 +21,211 @@ subroutine lu_slv01( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,62) = b(k,62) - lu(k,22) * b(k,21) - b(k,66) = b(k,66) - lu(k,23) * b(k,21) + b(k,65) = b(k,65) - lu(k,22) * 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,75) = b(k,75) - lu(k,26) * 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,71) = b(k,71) - lu(k,31) * b(k,24) - b(k,71) = b(k,71) - lu(k,34) * b(k,25) - b(k,62) = b(k,62) - lu(k,36) * b(k,26) + 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,62) = b(k,62) - lu(k,39) * b(k,27) + b(k,65) = b(k,65) - lu(k,39) * b(k,27) b(k,69) = b(k,69) - lu(k,40) * b(k,27) b(k,46) = b(k,46) - lu(k,42) * b(k,28) - b(k,57) = b(k,57) - lu(k,43) * b(k,28) - b(k,59) = b(k,59) - lu(k,45) * b(k,29) - b(k,62) = b(k,62) - lu(k,46) * b(k,29) - b(k,53) = b(k,53) - lu(k,49) * b(k,30) - b(k,74) = b(k,74) - lu(k,50) * b(k,30) - b(k,75) = b(k,75) - lu(k,51) * b(k,30) - b(k,55) = b(k,55) - lu(k,53) * b(k,31) - b(k,61) = b(k,61) - lu(k,54) * b(k,31) - b(k,65) = b(k,65) - lu(k,55) * b(k,31) - b(k,68) = b(k,68) - lu(k,56) * b(k,31) - b(k,74) = b(k,74) - lu(k,57) * b(k,31) - b(k,53) = b(k,53) - lu(k,59) * b(k,32) - b(k,55) = b(k,55) - lu(k,60) * b(k,32) - b(k,61) = b(k,61) - lu(k,61) * b(k,32) + b(k,59) = b(k,59) - lu(k,43) * b(k,28) + b(k,60) = b(k,60) - lu(k,45) * b(k,29) + b(k,65) = b(k,65) - lu(k,46) * b(k,29) + b(k,55) = b(k,55) - lu(k,49) * b(k,30) + b(k,67) = b(k,67) - lu(k,50) * b(k,30) + 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,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) b(k,64) = b(k,64) - lu(k,62) * b(k,32) b(k,73) = b(k,73) - lu(k,63) * b(k,32) - b(k,53) = b(k,53) - lu(k,65) * b(k,33) - b(k,56) = b(k,56) - lu(k,66) * b(k,33) - b(k,66) = b(k,66) - lu(k,67) * b(k,33) - b(k,74) = b(k,74) - lu(k,68) * b(k,33) - b(k,39) = b(k,39) - lu(k,70) * b(k,34) + 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,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,53) = b(k,53) - lu(k,72) * b(k,34) - b(k,56) = b(k,56) - lu(k,73) * b(k,34) - b(k,57) = b(k,57) - lu(k,74) * b(k,34) - b(k,73) = b(k,73) - lu(k,75) * b(k,34) - b(k,74) = b(k,74) - lu(k,76) * b(k,34) - b(k,57) = b(k,57) - lu(k,78) * b(k,35) - b(k,60) = b(k,60) - lu(k,79) * b(k,35) - b(k,67) = b(k,67) - lu(k,80) * b(k,35) - b(k,73) = b(k,73) - lu(k,81) * b(k,35) - b(k,75) = b(k,75) - lu(k,82) * b(k,35) - b(k,61) = b(k,61) - lu(k,84) * b(k,36) + b(k,55) = b(k,55) - lu(k,72) * b(k,34) + b(k,58) = b(k,58) - lu(k,73) * b(k,34) + b(k,59) = b(k,59) - lu(k,74) * b(k,34) + b(k,67) = b(k,67) - lu(k,75) * b(k,34) + 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,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,65) = b(k,65) - lu(k,86) * b(k,36) - b(k,71) = b(k,71) - lu(k,87) * 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,75) = b(k,75) - lu(k,89) * b(k,36) - b(k,44) = b(k,44) - lu(k,91) * b(k,37) - b(k,47) = b(k,47) - lu(k,92) * b(k,37) - b(k,48) = b(k,48) - lu(k,93) * b(k,37) + 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,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,71) = b(k,71) - lu(k,95) * b(k,37) - b(k,74) = b(k,74) - lu(k,96) * b(k,37) - b(k,50) = b(k,50) - lu(k,98) * b(k,38) - b(k,68) = b(k,68) - lu(k,99) * b(k,38) - b(k,69) = b(k,69) - lu(k,100) * b(k,38) - b(k,71) = b(k,71) - lu(k,101) * b(k,38) - b(k,57) = b(k,57) - lu(k,103) * b(k,39) - b(k,64) = b(k,64) - lu(k,104) * b(k,39) - b(k,73) = b(k,73) - lu(k,105) * b(k,39) - b(k,45) = b(k,45) - lu(k,107) * b(k,40) - b(k,55) = b(k,55) - lu(k,108) * b(k,40) - b(k,59) = b(k,59) - lu(k,109) * b(k,40) - b(k,61) = b(k,61) - lu(k,110) * b(k,40) - b(k,63) = b(k,63) - lu(k,111) * b(k,40) - b(k,65) = b(k,65) - lu(k,112) * b(k,40) - b(k,74) = b(k,74) - lu(k,113) * b(k,40) - b(k,58) = b(k,58) - lu(k,115) * b(k,41) - b(k,62) = b(k,62) - lu(k,116) * b(k,41) - b(k,64) = b(k,64) - lu(k,117) * b(k,41) - b(k,73) = b(k,73) - lu(k,118) * b(k,41) - b(k,74) = b(k,74) - lu(k,119) * b(k,41) - b(k,75) = b(k,75) - lu(k,120) * b(k,41) - b(k,44) = b(k,44) - lu(k,123) * b(k,42) - b(k,47) = b(k,47) - lu(k,124) * b(k,42) - b(k,48) = b(k,48) - lu(k,125) * b(k,42) - b(k,49) = b(k,49) - lu(k,126) * b(k,42) - b(k,50) = b(k,50) - lu(k,127) * b(k,42) - b(k,68) = b(k,68) - lu(k,128) * b(k,42) - b(k,69) = b(k,69) - lu(k,129) * b(k,42) - b(k,71) = b(k,71) - lu(k,130) * b(k,42) - b(k,74) = b(k,74) - lu(k,131) * b(k,42) - b(k,56) = b(k,56) - lu(k,133) * b(k,43) - b(k,57) = b(k,57) - lu(k,134) * b(k,43) - b(k,71) = b(k,71) - lu(k,135) * b(k,43) - b(k,72) = b(k,72) - lu(k,136) * b(k,43) - b(k,73) = b(k,73) - lu(k,137) * b(k,43) - b(k,74) = b(k,74) - lu(k,138) * b(k,43) - b(k,47) = b(k,47) - lu(k,141) * b(k,44) - b(k,48) = b(k,48) - lu(k,142) * b(k,44) - b(k,50) = b(k,50) - lu(k,143) * b(k,44) - b(k,57) = b(k,57) - lu(k,144) * b(k,44) - b(k,64) = b(k,64) - lu(k,145) * b(k,44) - b(k,71) = b(k,71) - lu(k,146) * b(k,44) - b(k,73) = b(k,73) - lu(k,147) * b(k,44) - b(k,74) = b(k,74) - lu(k,148) * b(k,44) - b(k,58) = b(k,58) - lu(k,151) * b(k,45) - b(k,59) = b(k,59) - lu(k,152) * b(k,45) - b(k,62) = b(k,62) - lu(k,153) * b(k,45) - b(k,63) = b(k,63) - lu(k,154) * b(k,45) - b(k,73) = b(k,73) - lu(k,155) * b(k,45) - b(k,74) = b(k,74) - lu(k,156) * b(k,45) - b(k,75) = b(k,75) - lu(k,157) * b(k,45) - b(k,55) = b(k,55) - lu(k,160) * b(k,46) - b(k,57) = b(k,57) - lu(k,161) * b(k,46) - b(k,60) = b(k,60) - lu(k,162) * b(k,46) - b(k,61) = b(k,61) - lu(k,163) * b(k,46) - b(k,70) = b(k,70) - lu(k,164) * b(k,46) - b(k,73) = b(k,73) - lu(k,165) * b(k,46) - b(k,75) = b(k,75) - lu(k,166) * b(k,46) - b(k,48) = b(k,48) - lu(k,168) * b(k,47) - b(k,49) = b(k,49) - lu(k,169) * b(k,47) - b(k,50) = b(k,50) - lu(k,170) * b(k,47) - b(k,68) = b(k,68) - lu(k,171) * b(k,47) - b(k,69) = b(k,69) - lu(k,172) * b(k,47) - b(k,71) = b(k,71) - lu(k,173) * b(k,47) - b(k,74) = b(k,74) - lu(k,174) * b(k,47) - b(k,49) = b(k,49) - lu(k,177) * b(k,48) - b(k,50) = b(k,50) - lu(k,178) * b(k,48) - b(k,68) = b(k,68) - lu(k,179) * b(k,48) - b(k,69) = b(k,69) - lu(k,180) * b(k,48) - b(k,71) = b(k,71) - lu(k,181) * b(k,48) - b(k,74) = b(k,74) - lu(k,182) * b(k,48) - b(k,50) = b(k,50) - lu(k,189) * b(k,49) - b(k,57) = b(k,57) - lu(k,190) * b(k,49) - b(k,64) = b(k,64) - lu(k,191) * b(k,49) - b(k,68) = b(k,68) - lu(k,192) * b(k,49) - b(k,69) = b(k,69) - lu(k,193) * b(k,49) - b(k,71) = b(k,71) - lu(k,194) * b(k,49) - b(k,73) = b(k,73) - lu(k,195) * b(k,49) - b(k,74) = b(k,74) - lu(k,196) * b(k,49) - b(k,57) = b(k,57) - lu(k,203) * b(k,50) - b(k,64) = b(k,64) - lu(k,204) * b(k,50) - b(k,65) = b(k,65) - lu(k,205) * b(k,50) - b(k,68) = b(k,68) - lu(k,206) * b(k,50) - b(k,69) = b(k,69) - lu(k,207) * b(k,50) - b(k,71) = b(k,71) - lu(k,208) * b(k,50) - b(k,73) = b(k,73) - lu(k,209) * b(k,50) - b(k,74) = b(k,74) - lu(k,210) * b(k,50) - b(k,57) = b(k,57) - lu(k,212) * b(k,51) - b(k,59) = b(k,59) - lu(k,213) * b(k,51) - b(k,63) = b(k,63) - lu(k,214) * b(k,51) - b(k,69) = b(k,69) - lu(k,215) * b(k,51) - b(k,73) = b(k,73) - lu(k,216) * b(k,51) - b(k,74) = b(k,74) - lu(k,217) * b(k,51) - b(k,75) = b(k,75) - lu(k,218) * b(k,51) - b(k,58) = b(k,58) - lu(k,221) * b(k,52) - b(k,62) = b(k,62) - lu(k,222) * b(k,52) - b(k,66) = b(k,66) - lu(k,223) * b(k,52) + b(k,67) = b(k,67) - lu(k,95) * b(k,37) + 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,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,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) + b(k,53) = b(k,53) - lu(k,140) * b(k,44) + b(k,54) = b(k,54) - lu(k,141) * b(k,44) + b(k,67) = b(k,67) - lu(k,142) * b(k,44) + b(k,60) = b(k,60) - lu(k,145) * b(k,45) + 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,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) + b(k,62) = b(k,62) - lu(k,156) * b(k,46) + b(k,63) = b(k,63) - lu(k,157) * b(k,46) + b(k,70) = b(k,70) - lu(k,158) * b(k,46) + b(k,73) = b(k,73) - lu(k,159) * b(k,46) + 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,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,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) + b(k,54) = b(k,54) - lu(k,193) * b(k,50) + 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,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,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,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,74) = b(k,74) - lu(k,225) * b(k,52) - b(k,75) = b(k,75) - lu(k,226) * b(k,52) - b(k,56) = b(k,56) - lu(k,229) * b(k,53) - b(k,64) = b(k,64) - lu(k,230) * b(k,53) - b(k,73) = b(k,73) - lu(k,231) * b(k,53) - b(k,74) = b(k,74) - lu(k,232) * b(k,53) - b(k,75) = b(k,75) - lu(k,233) * b(k,53) - b(k,55) = b(k,55) - lu(k,237) * b(k,54) - b(k,58) = b(k,58) - lu(k,238) * b(k,54) - b(k,61) = b(k,61) - lu(k,239) * b(k,54) - b(k,62) = b(k,62) - lu(k,240) * b(k,54) - b(k,65) = b(k,65) - lu(k,241) * b(k,54) - b(k,66) = b(k,66) - lu(k,242) * b(k,54) - b(k,73) = b(k,73) - lu(k,243) * b(k,54) - b(k,74) = b(k,74) - lu(k,244) * b(k,54) - b(k,75) = b(k,75) - lu(k,245) * b(k,54) - b(k,57) = b(k,57) - lu(k,249) * b(k,55) - b(k,60) = b(k,60) - lu(k,250) * b(k,55) - b(k,61) = b(k,61) - lu(k,251) * b(k,55) - b(k,65) = b(k,65) - lu(k,252) * b(k,55) - b(k,70) = b(k,70) - lu(k,253) * b(k,55) - b(k,73) = b(k,73) - lu(k,254) * b(k,55) - b(k,75) = b(k,75) - lu(k,255) * b(k,55) - b(k,57) = b(k,57) - lu(k,260) * b(k,56) - b(k,59) = b(k,59) - lu(k,261) * b(k,56) - b(k,62) = b(k,62) - lu(k,262) * b(k,56) - b(k,63) = b(k,63) - lu(k,263) * b(k,56) - b(k,64) = b(k,64) - lu(k,264) * b(k,56) - b(k,65) = b(k,65) - lu(k,265) * b(k,56) - b(k,66) = b(k,66) - lu(k,266) * b(k,56) - b(k,68) = b(k,68) - lu(k,267) * b(k,56) - b(k,71) = b(k,71) - lu(k,268) * b(k,56) + 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,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,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) + b(k,73) = b(k,73) - lu(k,258) * b(k,55) + b(k,77) = b(k,77) - lu(k,259) * b(k,55) + b(k,57) = b(k,57) - lu(k,263) * b(k,56) + b(k,61) = b(k,61) - lu(k,264) * b(k,56) + b(k,63) = b(k,63) - lu(k,265) * b(k,56) + 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,72) = b(k,72) - lu(k,269) * b(k,56) b(k,73) = b(k,73) - lu(k,270) * b(k,56) - b(k,74) = b(k,74) - lu(k,271) * b(k,56) - b(k,75) = b(k,75) - lu(k,272) * b(k,56) - b(k,64) = b(k,64) - lu(k,274) * b(k,57) - b(k,70) = b(k,70) - lu(k,275) * b(k,57) - b(k,71) = b(k,71) - lu(k,276) * b(k,57) - b(k,72) = b(k,72) - lu(k,277) * b(k,57) - b(k,73) = b(k,73) - lu(k,278) * b(k,57) - b(k,74) = b(k,74) - lu(k,279) * b(k,57) - b(k,75) = b(k,75) - lu(k,280) * b(k,57) - b(k,59) = b(k,59) - lu(k,289) * b(k,58) - b(k,60) = b(k,60) - lu(k,290) * b(k,58) - b(k,61) = b(k,61) - lu(k,291) * b(k,58) - b(k,62) = b(k,62) - lu(k,292) * b(k,58) - b(k,63) = b(k,63) - lu(k,293) * b(k,58) - b(k,64) = b(k,64) - lu(k,294) * b(k,58) - b(k,65) = b(k,65) - lu(k,295) * b(k,58) - b(k,66) = b(k,66) - lu(k,296) * b(k,58) - b(k,69) = b(k,69) - lu(k,297) * b(k,58) - b(k,70) = b(k,70) - lu(k,298) * b(k,58) - b(k,71) = b(k,71) - lu(k,299) * b(k,58) - b(k,72) = b(k,72) - lu(k,300) * b(k,58) - b(k,73) = b(k,73) - lu(k,301) * b(k,58) - b(k,74) = b(k,74) - lu(k,302) * b(k,58) - b(k,75) = b(k,75) - lu(k,303) * b(k,58) + 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,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) + b(k,64) = b(k,64) - lu(k,288) * b(k,58) + 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,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 subroutine lu_slv02( avec_len, lu, b ) @@ -253,133 +246,155 @@ subroutine lu_slv02( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,63) = b(k,63) - lu(k,308) * b(k,59) - b(k,64) = b(k,64) - lu(k,309) * b(k,59) - b(k,67) = b(k,67) - lu(k,310) * b(k,59) - b(k,69) = b(k,69) - lu(k,311) * b(k,59) - b(k,70) = b(k,70) - lu(k,312) * b(k,59) - b(k,71) = b(k,71) - lu(k,313) * b(k,59) - b(k,72) = b(k,72) - lu(k,314) * b(k,59) - b(k,73) = b(k,73) - lu(k,315) * b(k,59) - b(k,74) = b(k,74) - lu(k,316) * b(k,59) - b(k,75) = b(k,75) - lu(k,317) * b(k,59) - b(k,62) = b(k,62) - lu(k,321) * b(k,60) - b(k,64) = b(k,64) - lu(k,322) * b(k,60) - b(k,65) = b(k,65) - lu(k,323) * b(k,60) - b(k,66) = b(k,66) - lu(k,324) * b(k,60) - b(k,67) = b(k,67) - lu(k,325) * b(k,60) - b(k,68) = b(k,68) - lu(k,326) * b(k,60) - b(k,70) = b(k,70) - lu(k,327) * b(k,60) - b(k,71) = b(k,71) - lu(k,328) * b(k,60) - b(k,72) = b(k,72) - lu(k,329) * b(k,60) - b(k,73) = b(k,73) - lu(k,330) * b(k,60) - b(k,74) = b(k,74) - lu(k,331) * b(k,60) - b(k,75) = b(k,75) - lu(k,332) * b(k,60) - b(k,62) = b(k,62) - lu(k,343) * b(k,61) - b(k,63) = b(k,63) - lu(k,344) * b(k,61) - b(k,64) = b(k,64) - lu(k,345) * b(k,61) - b(k,65) = b(k,65) - lu(k,346) * b(k,61) - b(k,66) = b(k,66) - lu(k,347) * b(k,61) - b(k,67) = b(k,67) - lu(k,348) * b(k,61) - b(k,68) = b(k,68) - lu(k,349) * b(k,61) - b(k,69) = b(k,69) - lu(k,350) * b(k,61) - b(k,70) = b(k,70) - lu(k,351) * b(k,61) - b(k,71) = b(k,71) - lu(k,352) * b(k,61) - b(k,72) = b(k,72) - lu(k,353) * b(k,61) - b(k,73) = b(k,73) - lu(k,354) * b(k,61) - b(k,74) = b(k,74) - lu(k,355) * b(k,61) - b(k,75) = b(k,75) - lu(k,356) * b(k,61) - b(k,63) = b(k,63) - lu(k,369) * b(k,62) - b(k,64) = b(k,64) - lu(k,370) * b(k,62) - b(k,65) = b(k,65) - lu(k,371) * b(k,62) - b(k,66) = b(k,66) - lu(k,372) * b(k,62) - b(k,67) = b(k,67) - lu(k,373) * b(k,62) - b(k,68) = b(k,68) - lu(k,374) * b(k,62) - b(k,69) = b(k,69) - lu(k,375) * b(k,62) - b(k,70) = b(k,70) - lu(k,376) * b(k,62) - b(k,71) = b(k,71) - lu(k,377) * b(k,62) - b(k,72) = b(k,72) - lu(k,378) * b(k,62) - b(k,73) = b(k,73) - lu(k,379) * b(k,62) - b(k,74) = b(k,74) - lu(k,380) * b(k,62) - b(k,75) = b(k,75) - lu(k,381) * b(k,62) - b(k,64) = b(k,64) - lu(k,396) * b(k,63) - b(k,65) = b(k,65) - lu(k,397) * b(k,63) - b(k,66) = b(k,66) - lu(k,398) * b(k,63) - b(k,67) = b(k,67) - lu(k,399) * b(k,63) - b(k,68) = b(k,68) - lu(k,400) * b(k,63) - b(k,69) = b(k,69) - lu(k,401) * b(k,63) - b(k,70) = b(k,70) - lu(k,402) * b(k,63) - b(k,71) = b(k,71) - lu(k,403) * b(k,63) - b(k,72) = b(k,72) - lu(k,404) * b(k,63) - b(k,73) = b(k,73) - lu(k,405) * b(k,63) - b(k,74) = b(k,74) - lu(k,406) * b(k,63) - b(k,75) = b(k,75) - lu(k,407) * b(k,63) - b(k,65) = b(k,65) - lu(k,422) * b(k,64) - b(k,66) = b(k,66) - lu(k,423) * b(k,64) - b(k,67) = b(k,67) - lu(k,424) * b(k,64) - b(k,68) = b(k,68) - lu(k,425) * b(k,64) - b(k,69) = b(k,69) - lu(k,426) * b(k,64) - b(k,70) = b(k,70) - lu(k,427) * b(k,64) - b(k,71) = b(k,71) - lu(k,428) * b(k,64) - b(k,72) = b(k,72) - lu(k,429) * b(k,64) - b(k,73) = b(k,73) - lu(k,430) * b(k,64) - b(k,74) = b(k,74) - lu(k,431) * b(k,64) - b(k,75) = b(k,75) - lu(k,432) * b(k,64) - b(k,66) = b(k,66) - lu(k,451) * b(k,65) - b(k,67) = b(k,67) - lu(k,452) * b(k,65) - b(k,68) = b(k,68) - lu(k,453) * b(k,65) - b(k,69) = b(k,69) - lu(k,454) * b(k,65) - b(k,70) = b(k,70) - lu(k,455) * b(k,65) - b(k,71) = b(k,71) - lu(k,456) * b(k,65) - b(k,72) = b(k,72) - lu(k,457) * b(k,65) - b(k,73) = b(k,73) - lu(k,458) * b(k,65) - b(k,74) = b(k,74) - lu(k,459) * b(k,65) - b(k,75) = b(k,75) - lu(k,460) * b(k,65) - b(k,67) = b(k,67) - lu(k,480) * b(k,66) - b(k,68) = b(k,68) - lu(k,481) * b(k,66) - b(k,69) = b(k,69) - lu(k,482) * b(k,66) - b(k,70) = b(k,70) - lu(k,483) * b(k,66) - b(k,71) = b(k,71) - lu(k,484) * b(k,66) - b(k,72) = b(k,72) - lu(k,485) * b(k,66) - b(k,73) = b(k,73) - lu(k,486) * b(k,66) - b(k,74) = b(k,74) - lu(k,487) * b(k,66) - b(k,75) = b(k,75) - lu(k,488) * b(k,66) - b(k,68) = b(k,68) - lu(k,503) * b(k,67) - b(k,69) = b(k,69) - lu(k,504) * b(k,67) - b(k,70) = b(k,70) - lu(k,505) * b(k,67) - b(k,71) = b(k,71) - lu(k,506) * b(k,67) - b(k,72) = b(k,72) - lu(k,507) * b(k,67) - b(k,73) = b(k,73) - lu(k,508) * b(k,67) - b(k,74) = b(k,74) - lu(k,509) * b(k,67) - b(k,75) = b(k,75) - lu(k,510) * b(k,67) - b(k,69) = b(k,69) - lu(k,526) * b(k,68) - b(k,70) = b(k,70) - lu(k,527) * b(k,68) - b(k,71) = b(k,71) - lu(k,528) * b(k,68) - b(k,72) = b(k,72) - lu(k,529) * b(k,68) - b(k,73) = b(k,73) - lu(k,530) * b(k,68) - b(k,74) = b(k,74) - lu(k,531) * b(k,68) - b(k,75) = b(k,75) - lu(k,532) * b(k,68) - b(k,70) = b(k,70) - lu(k,552) * b(k,69) - b(k,71) = b(k,71) - lu(k,553) * b(k,69) - b(k,72) = b(k,72) - lu(k,554) * b(k,69) - b(k,73) = b(k,73) - lu(k,555) * b(k,69) - b(k,74) = b(k,74) - lu(k,556) * b(k,69) - b(k,75) = b(k,75) - lu(k,557) * b(k,69) + 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,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) + b(k,64) = b(k,64) - lu(k,311) * b(k,60) + b(k,67) = b(k,67) - lu(k,312) * b(k,60) + 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,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) + b(k,64) = b(k,64) - lu(k,332) * b(k,61) + b(k,65) = b(k,65) - lu(k,333) * b(k,61) + b(k,66) = b(k,66) - lu(k,334) * b(k,61) + b(k,67) = b(k,67) - lu(k,335) * b(k,61) + 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,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) + b(k,66) = b(k,66) - lu(k,350) * b(k,62) + 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,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) + b(k,65) = b(k,65) - lu(k,371) * b(k,63) + b(k,66) = b(k,66) - lu(k,372) * b(k,63) + b(k,67) = b(k,67) - lu(k,373) * b(k,63) + b(k,68) = b(k,68) - lu(k,374) * b(k,63) + b(k,69) = b(k,69) - lu(k,375) * b(k,63) + b(k,70) = b(k,70) - lu(k,376) * b(k,63) + b(k,71) = b(k,71) - lu(k,377) * b(k,63) + b(k,72) = b(k,72) - lu(k,378) * b(k,63) + b(k,73) = b(k,73) - lu(k,379) * b(k,63) + b(k,74) = b(k,74) - lu(k,380) * b(k,63) + b(k,75) = b(k,75) - lu(k,381) * b(k,63) + b(k,76) = b(k,76) - lu(k,382) * b(k,63) + b(k,77) = b(k,77) - lu(k,383) * b(k,63) + b(k,65) = b(k,65) - lu(k,396) * b(k,64) + b(k,66) = b(k,66) - lu(k,397) * b(k,64) + b(k,67) = b(k,67) - lu(k,398) * b(k,64) + b(k,68) = b(k,68) - lu(k,399) * b(k,64) + b(k,69) = b(k,69) - lu(k,400) * b(k,64) + b(k,70) = b(k,70) - lu(k,401) * b(k,64) + b(k,71) = b(k,71) - lu(k,402) * b(k,64) + b(k,72) = b(k,72) - lu(k,403) * b(k,64) + b(k,73) = b(k,73) - lu(k,404) * b(k,64) + b(k,74) = b(k,74) - lu(k,405) * b(k,64) + b(k,75) = b(k,75) - lu(k,406) * b(k,64) + b(k,76) = b(k,76) - lu(k,407) * b(k,64) + b(k,77) = b(k,77) - lu(k,408) * b(k,64) + b(k,66) = b(k,66) - lu(k,422) * b(k,65) + b(k,67) = b(k,67) - lu(k,423) * b(k,65) + b(k,68) = b(k,68) - lu(k,424) * b(k,65) + b(k,69) = b(k,69) - lu(k,425) * b(k,65) + b(k,70) = b(k,70) - lu(k,426) * b(k,65) + b(k,71) = b(k,71) - lu(k,427) * b(k,65) + b(k,72) = b(k,72) - lu(k,428) * b(k,65) + b(k,73) = b(k,73) - lu(k,429) * b(k,65) + b(k,74) = b(k,74) - lu(k,430) * b(k,65) + b(k,75) = b(k,75) - lu(k,431) * b(k,65) + b(k,76) = b(k,76) - lu(k,432) * b(k,65) + b(k,77) = b(k,77) - lu(k,433) * b(k,65) + b(k,67) = b(k,67) - lu(k,451) * b(k,66) + b(k,68) = b(k,68) - lu(k,452) * b(k,66) + b(k,69) = b(k,69) - lu(k,453) * b(k,66) + b(k,70) = b(k,70) - lu(k,454) * b(k,66) + b(k,71) = b(k,71) - lu(k,455) * b(k,66) + b(k,72) = b(k,72) - lu(k,456) * b(k,66) + b(k,73) = b(k,73) - lu(k,457) * b(k,66) + b(k,74) = b(k,74) - lu(k,458) * b(k,66) + b(k,75) = b(k,75) - lu(k,459) * b(k,66) + b(k,76) = b(k,76) - lu(k,460) * b(k,66) + b(k,77) = b(k,77) - lu(k,461) * b(k,66) + b(k,68) = b(k,68) - lu(k,495) * b(k,67) + b(k,69) = b(k,69) - lu(k,496) * b(k,67) + b(k,70) = b(k,70) - lu(k,497) * b(k,67) + b(k,71) = b(k,71) - lu(k,498) * b(k,67) + b(k,72) = b(k,72) - lu(k,499) * b(k,67) + b(k,73) = b(k,73) - lu(k,500) * b(k,67) + b(k,74) = b(k,74) - lu(k,501) * b(k,67) + 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,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,72) = b(k,72) - lu(k,605) * b(k,71) - b(k,73) = b(k,73) - lu(k,606) * b(k,71) - b(k,74) = b(k,74) - lu(k,607) * b(k,71) - b(k,75) = b(k,75) - lu(k,608) * b(k,71) + 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,75) = b(k,75) - lu(k,708) * b(k,74) + 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 subroutine lu_slv03( avec_len, lu, b ) @@ -403,71 +418,95 @@ subroutine lu_slv03( avec_len, lu, b ) !----------------------------------------------------------------------- ! ... Solve U * x = y !----------------------------------------------------------------------- - b(k,75) = b(k,75) * lu(k,733) - b(k,74) = b(k,74) - lu(k,732) * b(k,75) - b(k,73) = b(k,73) - lu(k,731) * b(k,75) - b(k,72) = b(k,72) - lu(k,730) * b(k,75) - b(k,71) = b(k,71) - lu(k,729) * b(k,75) - b(k,70) = b(k,70) - lu(k,728) * b(k,75) - b(k,69) = b(k,69) - lu(k,727) * b(k,75) - b(k,68) = b(k,68) - lu(k,726) * b(k,75) - b(k,67) = b(k,67) - lu(k,725) * b(k,75) - b(k,66) = b(k,66) - lu(k,724) * b(k,75) - b(k,65) = b(k,65) - lu(k,723) * b(k,75) - b(k,64) = b(k,64) - lu(k,722) * b(k,75) - b(k,63) = b(k,63) - lu(k,721) * b(k,75) - b(k,62) = b(k,62) - lu(k,720) * b(k,75) - b(k,61) = b(k,61) - lu(k,719) * b(k,75) - b(k,60) = b(k,60) - lu(k,718) * b(k,75) - b(k,59) = b(k,59) - lu(k,717) * b(k,75) - b(k,57) = b(k,57) - lu(k,716) * b(k,75) - b(k,56) = b(k,56) - lu(k,715) * b(k,75) - b(k,55) = b(k,55) - lu(k,714) * b(k,75) - b(k,53) = b(k,53) - lu(k,713) * b(k,75) - b(k,46) = b(k,46) - lu(k,712) * b(k,75) - b(k,30) = b(k,30) - lu(k,711) * b(k,75) - b(k,28) = b(k,28) - lu(k,710) * b(k,75) - b(k,22) = b(k,22) - lu(k,709) * b(k,75) - b(k,74) = b(k,74) * lu(k,707) - b(k,73) = b(k,73) - lu(k,706) * b(k,74) - b(k,72) = b(k,72) - lu(k,705) * b(k,74) - b(k,71) = b(k,71) - lu(k,704) * b(k,74) - b(k,70) = b(k,70) - lu(k,703) * b(k,74) - b(k,69) = b(k,69) - lu(k,702) * b(k,74) - b(k,68) = b(k,68) - lu(k,701) * b(k,74) - b(k,67) = b(k,67) - lu(k,700) * b(k,74) - b(k,66) = b(k,66) - lu(k,699) * b(k,74) - b(k,65) = b(k,65) - lu(k,698) * b(k,74) - b(k,64) = b(k,64) - lu(k,697) * b(k,74) - b(k,63) = b(k,63) - lu(k,696) * b(k,74) - b(k,62) = b(k,62) - lu(k,695) * b(k,74) - b(k,61) = b(k,61) - lu(k,694) * b(k,74) - b(k,60) = b(k,60) - lu(k,693) * b(k,74) - b(k,59) = b(k,59) - lu(k,692) * b(k,74) - b(k,58) = b(k,58) - lu(k,691) * b(k,74) - b(k,57) = b(k,57) - lu(k,690) * b(k,74) - b(k,56) = b(k,56) - lu(k,689) * b(k,74) - b(k,55) = b(k,55) - lu(k,688) * b(k,74) - b(k,54) = b(k,54) - lu(k,687) * b(k,74) - b(k,53) = b(k,53) - lu(k,686) * b(k,74) - b(k,52) = b(k,52) - lu(k,685) * b(k,74) - b(k,51) = b(k,51) - lu(k,684) * b(k,74) - b(k,50) = b(k,50) - lu(k,683) * b(k,74) - b(k,49) = b(k,49) - lu(k,682) * b(k,74) - b(k,48) = b(k,48) - lu(k,681) * b(k,74) - b(k,47) = b(k,47) - lu(k,680) * b(k,74) - b(k,45) = b(k,45) - lu(k,679) * b(k,74) - b(k,44) = b(k,44) - lu(k,678) * b(k,74) - b(k,43) = b(k,43) - lu(k,677) * b(k,74) - b(k,42) = b(k,42) - lu(k,676) * b(k,74) - b(k,41) = b(k,41) - lu(k,675) * b(k,74) - b(k,40) = b(k,40) - lu(k,674) * b(k,74) - b(k,39) = b(k,39) - lu(k,673) * b(k,74) - b(k,38) = b(k,38) - lu(k,672) * b(k,74) - b(k,37) = b(k,37) - lu(k,671) * b(k,74) - b(k,34) = b(k,34) - lu(k,670) * b(k,74) - b(k,25) = b(k,25) - lu(k,669) * b(k,74) - b(k,24) = b(k,24) - lu(k,668) * b(k,74) + b(k,77) = b(k,77) * lu(k,764) + b(k,76) = b(k,76) - lu(k,763) * b(k,77) + b(k,75) = b(k,75) - lu(k,762) * b(k,77) + b(k,74) = b(k,74) - lu(k,761) * b(k,77) + b(k,73) = b(k,73) - lu(k,760) * b(k,77) + b(k,72) = b(k,72) - lu(k,759) * b(k,77) + b(k,71) = b(k,71) - lu(k,758) * b(k,77) + b(k,70) = b(k,70) - lu(k,757) * b(k,77) + b(k,69) = b(k,69) - lu(k,756) * b(k,77) + b(k,68) = b(k,68) - lu(k,755) * b(k,77) + b(k,67) = b(k,67) - lu(k,754) * b(k,77) + b(k,66) = b(k,66) - lu(k,753) * b(k,77) + b(k,65) = b(k,65) - lu(k,752) * b(k,77) + b(k,64) = b(k,64) - lu(k,751) * b(k,77) + b(k,63) = b(k,63) - lu(k,750) * b(k,77) + b(k,62) = b(k,62) - lu(k,749) * b(k,77) + b(k,60) = b(k,60) - lu(k,748) * b(k,77) + b(k,59) = b(k,59) - lu(k,747) * b(k,77) + b(k,58) = b(k,58) - lu(k,746) * b(k,77) + b(k,57) = b(k,57) - lu(k,745) * b(k,77) + b(k,55) = b(k,55) - lu(k,744) * b(k,77) + b(k,46) = b(k,46) - lu(k,743) * b(k,77) + b(k,30) = b(k,30) - lu(k,742) * b(k,77) + b(k,28) = b(k,28) - lu(k,741) * b(k,77) + b(k,22) = b(k,22) - lu(k,740) * b(k,77) + b(k,76) = b(k,76) * lu(k,738) + b(k,75) = b(k,75) - lu(k,737) * b(k,76) + b(k,74) = b(k,74) - lu(k,736) * b(k,76) + b(k,73) = b(k,73) - lu(k,735) * b(k,76) + b(k,72) = b(k,72) - lu(k,734) * b(k,76) + b(k,71) = b(k,71) - lu(k,733) * b(k,76) + b(k,70) = b(k,70) - lu(k,732) * b(k,76) + b(k,69) = b(k,69) - lu(k,731) * b(k,76) + b(k,68) = b(k,68) - lu(k,730) * b(k,76) + b(k,67) = b(k,67) - lu(k,729) * b(k,76) + b(k,66) = b(k,66) - lu(k,728) * b(k,76) + b(k,65) = b(k,65) - lu(k,727) * b(k,76) + 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,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) @@ -488,21 +527,19 @@ subroutine lu_slv03( avec_len, lu, b ) 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,53) = b(k,53) - lu(k,645) * b(k,73) - b(k,52) = b(k,52) - lu(k,644) * b(k,73) - b(k,51) = b(k,51) - lu(k,643) * b(k,73) - b(k,50) = b(k,50) - lu(k,642) * b(k,73) - b(k,46) = b(k,46) - lu(k,641) * b(k,73) - b(k,43) = b(k,43) - lu(k,640) * b(k,73) - b(k,41) = b(k,41) - lu(k,639) * b(k,73) - b(k,39) = b(k,39) - lu(k,638) * b(k,73) - b(k,36) = b(k,36) - lu(k,637) * b(k,73) - b(k,35) = b(k,35) - lu(k,636) * b(k,73) - b(k,34) = b(k,34) - lu(k,635) * b(k,73) - b(k,32) = b(k,32) - lu(k,634) * b(k,73) - b(k,30) = b(k,30) - lu(k,633) * b(k,73) - b(k,27) = b(k,27) - lu(k,632) * b(k,73) - b(k,23) = b(k,23) - lu(k,631) * 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) @@ -515,38 +552,34 @@ subroutine lu_slv03( avec_len, lu, b ) 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,59) = b(k,59) - lu(k,615) * b(k,72) - b(k,57) = b(k,57) - lu(k,614) * b(k,72) - b(k,56) = b(k,56) - lu(k,613) * b(k,72) - b(k,53) = b(k,53) - lu(k,612) * b(k,72) - b(k,43) = b(k,43) - lu(k,611) * b(k,72) - b(k,25) = b(k,25) - lu(k,610) * b(k,72) - b(k,24) = b(k,24) - lu(k,609) * b(k,72) - b(k,71) = b(k,71) * lu(k,604) - b(k,70) = b(k,70) - lu(k,603) * b(k,71) - b(k,69) = b(k,69) - lu(k,602) * b(k,71) - b(k,68) = b(k,68) - lu(k,601) * b(k,71) - b(k,67) = b(k,67) - lu(k,600) * b(k,71) - b(k,66) = b(k,66) - lu(k,599) * b(k,71) - b(k,65) = b(k,65) - lu(k,598) * b(k,71) - b(k,64) = b(k,64) - lu(k,597) * b(k,71) - b(k,63) = b(k,63) - lu(k,596) * b(k,71) - b(k,62) = b(k,62) - lu(k,595) * b(k,71) - b(k,59) = b(k,59) - lu(k,594) * b(k,71) - b(k,57) = b(k,57) - lu(k,593) * b(k,71) - b(k,56) = b(k,56) - lu(k,592) * b(k,71) - b(k,53) = b(k,53) - lu(k,591) * b(k,71) - b(k,50) = b(k,50) - lu(k,590) * b(k,71) - b(k,49) = b(k,49) - lu(k,589) * b(k,71) - b(k,48) = b(k,48) - lu(k,588) * b(k,71) - b(k,47) = b(k,47) - lu(k,587) * b(k,71) - b(k,44) = b(k,44) - lu(k,586) * b(k,71) - b(k,43) = b(k,43) - lu(k,585) * b(k,71) - b(k,42) = b(k,42) - lu(k,584) * b(k,71) - b(k,38) = b(k,38) - lu(k,583) * b(k,71) - b(k,37) = b(k,37) - lu(k,582) * b(k,71) - b(k,25) = b(k,25) - lu(k,581) * b(k,71) - b(k,24) = b(k,24) - lu(k,580) * b(k,71) + 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,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) @@ -557,61 +590,49 @@ subroutine lu_slv03( avec_len, lu, b ) 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,60) = b(k,60) - lu(k,564) * b(k,70) - b(k,59) = b(k,59) - lu(k,563) * b(k,70) - b(k,58) = b(k,58) - lu(k,562) * b(k,70) - b(k,57) = b(k,57) - lu(k,561) * b(k,70) - b(k,55) = b(k,55) - lu(k,560) * b(k,70) - b(k,46) = b(k,46) - lu(k,559) * b(k,70) - b(k,28) = b(k,28) - lu(k,558) * b(k,70) - b(k,69) = b(k,69) * lu(k,551) - b(k,68) = b(k,68) - lu(k,550) * b(k,69) - b(k,67) = b(k,67) - lu(k,549) * b(k,69) - b(k,66) = b(k,66) - lu(k,548) * b(k,69) - b(k,65) = b(k,65) - lu(k,547) * b(k,69) - b(k,64) = b(k,64) - lu(k,546) * b(k,69) - b(k,63) = b(k,63) - lu(k,545) * b(k,69) - b(k,62) = b(k,62) - lu(k,544) * b(k,69) - b(k,61) = b(k,61) - lu(k,543) * b(k,69) - b(k,60) = b(k,60) - lu(k,542) * b(k,69) - b(k,59) = b(k,59) - lu(k,541) * b(k,69) - b(k,58) = b(k,58) - lu(k,540) * b(k,69) - b(k,57) = b(k,57) - lu(k,539) * b(k,69) - b(k,55) = b(k,55) - lu(k,538) * b(k,69) - b(k,51) = b(k,51) - lu(k,537) * b(k,69) - b(k,46) = b(k,46) - lu(k,536) * b(k,69) - b(k,27) = b(k,27) - lu(k,535) * b(k,69) - b(k,25) = b(k,25) - lu(k,534) * b(k,69) - b(k,23) = b(k,23) - lu(k,533) * b(k,69) - b(k,68) = b(k,68) * lu(k,525) - b(k,67) = b(k,67) - lu(k,524) * b(k,68) - b(k,66) = b(k,66) - lu(k,523) * b(k,68) - b(k,65) = b(k,65) - lu(k,522) * b(k,68) - b(k,64) = b(k,64) - lu(k,521) * b(k,68) - b(k,63) = b(k,63) - lu(k,520) * b(k,68) - b(k,62) = b(k,62) - lu(k,519) * b(k,68) - b(k,61) = b(k,61) - lu(k,518) * b(k,68) - b(k,60) = b(k,60) - lu(k,517) * b(k,68) - b(k,59) = b(k,59) - lu(k,516) * b(k,68) - b(k,57) = b(k,57) - lu(k,515) * b(k,68) - b(k,50) = b(k,50) - lu(k,514) * b(k,68) - b(k,49) = b(k,49) - lu(k,513) * b(k,68) - b(k,48) = b(k,48) - lu(k,512) * b(k,68) - b(k,47) = b(k,47) - lu(k,511) * b(k,68) - b(k,67) = b(k,67) * lu(k,502) - b(k,66) = b(k,66) - lu(k,501) * b(k,67) - b(k,65) = b(k,65) - lu(k,500) * b(k,67) - b(k,64) = b(k,64) - lu(k,499) * b(k,67) - b(k,63) = b(k,63) - lu(k,498) * b(k,67) - b(k,62) = b(k,62) - lu(k,497) * b(k,67) - b(k,61) = b(k,61) - lu(k,496) * b(k,67) - b(k,60) = b(k,60) - lu(k,495) * b(k,67) - b(k,59) = b(k,59) - lu(k,494) * b(k,67) - b(k,58) = b(k,58) - lu(k,493) * b(k,67) - b(k,57) = b(k,57) - lu(k,492) * b(k,67) - b(k,55) = b(k,55) - lu(k,491) * b(k,67) - b(k,51) = b(k,51) - lu(k,490) * b(k,67) - b(k,39) = b(k,39) - lu(k,489) * b(k,67) + 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 ) @@ -632,151 +653,161 @@ subroutine lu_slv04( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,66) = b(k,66) * lu(k,479) - b(k,65) = b(k,65) - lu(k,478) * b(k,66) - b(k,64) = b(k,64) - lu(k,477) * b(k,66) - b(k,63) = b(k,63) - lu(k,476) * b(k,66) - b(k,62) = b(k,62) - lu(k,475) * b(k,66) - b(k,61) = b(k,61) - lu(k,474) * b(k,66) - b(k,60) = b(k,60) - lu(k,473) * b(k,66) - b(k,59) = b(k,59) - lu(k,472) * b(k,66) - b(k,58) = b(k,58) - lu(k,471) * b(k,66) - b(k,57) = b(k,57) - lu(k,470) * b(k,66) - b(k,56) = b(k,56) - lu(k,469) * b(k,66) - b(k,55) = b(k,55) - lu(k,468) * b(k,66) - b(k,54) = b(k,54) - lu(k,467) * b(k,66) - b(k,53) = b(k,53) - lu(k,466) * b(k,66) - b(k,52) = b(k,52) - lu(k,465) * b(k,66) - b(k,33) = b(k,33) - lu(k,464) * b(k,66) - b(k,29) = b(k,29) - lu(k,463) * b(k,66) - b(k,26) = b(k,26) - lu(k,462) * b(k,66) - b(k,21) = b(k,21) - lu(k,461) * b(k,66) - b(k,65) = b(k,65) * lu(k,450) - b(k,64) = b(k,64) - lu(k,449) * b(k,65) - b(k,63) = b(k,63) - lu(k,448) * b(k,65) - b(k,62) = b(k,62) - lu(k,447) * b(k,65) - b(k,61) = b(k,61) - lu(k,446) * b(k,65) - b(k,60) = b(k,60) - lu(k,445) * b(k,65) - b(k,59) = b(k,59) - lu(k,444) * b(k,65) - b(k,58) = b(k,58) - lu(k,443) * b(k,65) - b(k,57) = b(k,57) - lu(k,442) * b(k,65) - b(k,56) = b(k,56) - lu(k,441) * b(k,65) - b(k,55) = b(k,55) - lu(k,440) * b(k,65) - b(k,54) = b(k,54) - lu(k,439) * b(k,65) - b(k,53) = b(k,53) - lu(k,438) * b(k,65) - b(k,50) = b(k,50) - lu(k,437) * b(k,65) - b(k,45) = b(k,45) - lu(k,436) * b(k,65) - b(k,40) = b(k,40) - lu(k,435) * b(k,65) - b(k,36) = b(k,36) - lu(k,434) * b(k,65) - b(k,31) = b(k,31) - lu(k,433) * b(k,65) - b(k,64) = b(k,64) * lu(k,421) - b(k,63) = b(k,63) - lu(k,420) * b(k,64) - b(k,62) = b(k,62) - lu(k,419) * b(k,64) - b(k,61) = b(k,61) - lu(k,418) * b(k,64) - b(k,60) = b(k,60) - lu(k,417) * b(k,64) - b(k,59) = b(k,59) - lu(k,416) * b(k,64) - b(k,58) = b(k,58) - lu(k,415) * b(k,64) - b(k,57) = b(k,57) - lu(k,414) * b(k,64) - b(k,52) = b(k,52) - lu(k,413) * b(k,64) - b(k,51) = b(k,51) - lu(k,412) * b(k,64) - b(k,45) = b(k,45) - lu(k,411) * b(k,64) - b(k,41) = b(k,41) - lu(k,410) * b(k,64) - b(k,36) = b(k,36) - lu(k,409) * b(k,64) - b(k,35) = b(k,35) - lu(k,408) * b(k,64) - b(k,63) = b(k,63) * lu(k,395) - b(k,62) = b(k,62) - lu(k,394) * b(k,63) - b(k,61) = b(k,61) - lu(k,393) * b(k,63) - b(k,60) = b(k,60) - lu(k,392) * b(k,63) - b(k,59) = b(k,59) - lu(k,391) * b(k,63) - b(k,58) = b(k,58) - lu(k,390) * b(k,63) - b(k,57) = b(k,57) - lu(k,389) * b(k,63) - b(k,56) = b(k,56) - lu(k,388) * b(k,63) - b(k,55) = b(k,55) - lu(k,387) * b(k,63) - b(k,53) = b(k,53) - lu(k,386) * b(k,63) - b(k,45) = b(k,45) - lu(k,385) * b(k,63) - b(k,40) = b(k,40) - lu(k,384) * b(k,63) - b(k,33) = b(k,33) - lu(k,383) * b(k,63) - b(k,29) = b(k,29) - lu(k,382) * b(k,63) - b(k,62) = b(k,62) * lu(k,368) - b(k,61) = b(k,61) - lu(k,367) * b(k,62) - b(k,60) = b(k,60) - lu(k,366) * b(k,62) - b(k,59) = b(k,59) - lu(k,365) * b(k,62) - b(k,58) = b(k,58) - lu(k,364) * b(k,62) - b(k,57) = b(k,57) - lu(k,363) * b(k,62) - b(k,55) = b(k,55) - lu(k,362) * b(k,62) - b(k,54) = b(k,54) - lu(k,361) * b(k,62) - b(k,52) = b(k,52) - lu(k,360) * b(k,62) - b(k,41) = b(k,41) - lu(k,359) * b(k,62) - b(k,39) = b(k,39) - lu(k,358) * b(k,62) - b(k,26) = b(k,26) - lu(k,357) * b(k,62) - b(k,61) = b(k,61) * lu(k,342) - b(k,60) = b(k,60) - lu(k,341) * b(k,61) - b(k,59) = b(k,59) - lu(k,340) * b(k,61) - b(k,57) = b(k,57) - lu(k,339) * b(k,61) - b(k,56) = b(k,56) - lu(k,338) * b(k,61) - b(k,55) = b(k,55) - lu(k,337) * b(k,61) - b(k,53) = b(k,53) - lu(k,336) * b(k,61) - b(k,39) = b(k,39) - lu(k,335) * b(k,61) - b(k,32) = b(k,32) - lu(k,334) * b(k,61) - b(k,31) = b(k,31) - lu(k,333) * b(k,61) - b(k,60) = b(k,60) * lu(k,320) - b(k,57) = b(k,57) - lu(k,319) * b(k,60) - b(k,35) = b(k,35) - lu(k,318) * b(k,60) - b(k,59) = b(k,59) * lu(k,307) - b(k,57) = b(k,57) - lu(k,306) * b(k,59) - b(k,51) = b(k,51) - lu(k,305) * b(k,59) - b(k,39) = b(k,39) - lu(k,304) * b(k,59) - b(k,58) = b(k,58) * lu(k,288) - b(k,57) = b(k,57) - lu(k,287) * b(k,58) - b(k,55) = b(k,55) - lu(k,286) * b(k,58) - b(k,54) = b(k,54) - lu(k,285) * b(k,58) - b(k,52) = b(k,52) - lu(k,284) * b(k,58) - b(k,45) = b(k,45) - lu(k,283) * b(k,58) - b(k,29) = b(k,29) - lu(k,282) * b(k,58) - b(k,26) = b(k,26) - lu(k,281) * b(k,58) - b(k,57) = b(k,57) * lu(k,273) - b(k,56) = b(k,56) * lu(k,259) - b(k,53) = b(k,53) - lu(k,258) * b(k,56) - b(k,43) = b(k,43) - lu(k,257) * b(k,56) - b(k,33) = b(k,33) - lu(k,256) * b(k,56) - b(k,55) = b(k,55) * lu(k,248) - b(k,46) = b(k,46) - lu(k,247) * b(k,55) - b(k,28) = b(k,28) - lu(k,246) * b(k,55) - b(k,54) = b(k,54) * lu(k,236) - b(k,52) = b(k,52) - lu(k,235) * b(k,54) - b(k,26) = b(k,26) - lu(k,234) * b(k,54) - b(k,53) = b(k,53) * lu(k,228) - b(k,30) = b(k,30) - lu(k,227) * b(k,53) - b(k,52) = b(k,52) * lu(k,220) - b(k,26) = b(k,26) - lu(k,219) * b(k,52) - b(k,51) = b(k,51) * lu(k,211) - b(k,50) = b(k,50) * lu(k,202) - b(k,49) = b(k,49) - lu(k,201) * b(k,50) - b(k,48) = b(k,48) - lu(k,200) * b(k,50) - b(k,47) = b(k,47) - lu(k,199) * b(k,50) - b(k,44) = b(k,44) - lu(k,198) * b(k,50) - b(k,37) = b(k,37) - lu(k,197) * b(k,50) - b(k,49) = b(k,49) * lu(k,188) - b(k,48) = b(k,48) - lu(k,187) * b(k,49) - b(k,47) = b(k,47) - lu(k,186) * b(k,49) - b(k,44) = b(k,44) - lu(k,185) * b(k,49) - b(k,42) = b(k,42) - lu(k,184) * b(k,49) - b(k,38) = b(k,38) - lu(k,183) * b(k,49) - b(k,48) = b(k,48) * lu(k,176) - b(k,38) = b(k,38) - lu(k,175) * b(k,48) - b(k,47) = b(k,47) * lu(k,167) - b(k,46) = b(k,46) * lu(k,159) - b(k,28) = b(k,28) - lu(k,158) * b(k,46) - b(k,45) = b(k,45) * lu(k,150) - b(k,29) = b(k,29) - lu(k,149) * b(k,45) - b(k,44) = b(k,44) * lu(k,140) - b(k,39) = b(k,39) - lu(k,139) * b(k,44) - b(k,43) = b(k,43) * lu(k,132) - b(k,42) = b(k,42) * lu(k,122) - b(k,38) = b(k,38) - lu(k,121) * b(k,42) - b(k,41) = b(k,41) * lu(k,114) - b(k,40) = b(k,40) * lu(k,106) - b(k,39) = b(k,39) * lu(k,102) + 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) + b(k,64) = b(k,64) - lu(k,491) * b(k,67) + b(k,63) = b(k,63) - lu(k,490) * b(k,67) + b(k,62) = b(k,62) - lu(k,489) * b(k,67) + b(k,61) = b(k,61) - lu(k,488) * b(k,67) + b(k,60) = b(k,60) - lu(k,487) * b(k,67) + b(k,59) = b(k,59) - lu(k,486) * b(k,67) + b(k,58) = b(k,58) - lu(k,485) * b(k,67) + b(k,57) = b(k,57) - lu(k,484) * b(k,67) + b(k,56) = b(k,56) - lu(k,483) * b(k,67) + b(k,55) = b(k,55) - lu(k,482) * b(k,67) + b(k,54) = b(k,54) - lu(k,481) * b(k,67) + b(k,53) = b(k,53) - lu(k,480) * b(k,67) + b(k,52) = b(k,52) - lu(k,479) * b(k,67) + b(k,51) = b(k,51) - lu(k,478) * b(k,67) + b(k,50) = b(k,50) - lu(k,477) * b(k,67) + b(k,49) = b(k,49) - lu(k,476) * b(k,67) + b(k,48) = b(k,48) - lu(k,475) * b(k,67) + b(k,47) = b(k,47) - lu(k,474) * b(k,67) + b(k,45) = b(k,45) - lu(k,473) * b(k,67) + b(k,44) = b(k,44) - lu(k,472) * b(k,67) + b(k,43) = b(k,43) - lu(k,471) * b(k,67) + b(k,42) = b(k,42) - lu(k,470) * b(k,67) + b(k,41) = b(k,41) - lu(k,469) * b(k,67) + b(k,40) = b(k,40) - lu(k,468) * b(k,67) + b(k,39) = b(k,39) - lu(k,467) * b(k,67) + b(k,38) = b(k,38) - lu(k,466) * b(k,67) + b(k,37) = b(k,37) - lu(k,465) * b(k,67) + b(k,34) = b(k,34) - lu(k,464) * b(k,67) + b(k,25) = b(k,25) - lu(k,463) * b(k,67) + b(k,24) = b(k,24) - lu(k,462) * b(k,67) + b(k,66) = b(k,66) * lu(k,450) + b(k,65) = b(k,65) - lu(k,449) * b(k,66) + b(k,64) = b(k,64) - lu(k,448) * b(k,66) + b(k,63) = b(k,63) - lu(k,447) * b(k,66) + b(k,62) = b(k,62) - lu(k,446) * b(k,66) + b(k,61) = b(k,61) - lu(k,445) * b(k,66) + b(k,60) = b(k,60) - lu(k,444) * b(k,66) + b(k,59) = b(k,59) - lu(k,443) * b(k,66) + b(k,58) = b(k,58) - lu(k,442) * b(k,66) + 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,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) + b(k,62) = b(k,62) - lu(k,418) * b(k,65) + b(k,61) = b(k,61) - lu(k,417) * b(k,65) + b(k,60) = b(k,60) - lu(k,416) * b(k,65) + b(k,59) = b(k,59) - lu(k,415) * b(k,65) + 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,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) + b(k,62) = b(k,62) - lu(k,393) * b(k,64) + 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,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,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) + b(k,62) = b(k,62) - lu(k,368) * b(k,63) + b(k,60) = b(k,60) - lu(k,367) * b(k,63) + b(k,59) = b(k,59) - lu(k,366) * b(k,63) + 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,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) + b(k,59) = b(k,59) - lu(k,346) * b(k,62) + b(k,35) = b(k,35) - lu(k,345) * b(k,62) + b(k,61) = b(k,61) * lu(k,329) + b(k,60) = b(k,60) - lu(k,328) * b(k,61) + b(k,59) = b(k,59) - lu(k,327) * b(k,61) + b(k,57) = b(k,57) - lu(k,326) * b(k,61) + b(k,56) = b(k,56) - lu(k,325) * b(k,61) + b(k,47) = b(k,47) - lu(k,324) * b(k,61) + b(k,45) = b(k,45) - lu(k,323) * b(k,61) + b(k,29) = b(k,29) - lu(k,322) * b(k,61) + 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,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) + b(k,43) = b(k,43) - lu(k,283) * b(k,58) + b(k,33) = b(k,33) - lu(k,282) * b(k,58) + b(k,57) = b(k,57) * lu(k,274) + b(k,46) = b(k,46) - lu(k,273) * b(k,57) + b(k,28) = b(k,28) - lu(k,272) * b(k,57) + b(k,56) = b(k,56) * lu(k,262) + b(k,47) = b(k,47) - lu(k,261) * b(k,56) + b(k,26) = b(k,26) - lu(k,260) * b(k,56) + b(k,55) = b(k,55) * lu(k,254) + b(k,30) = b(k,30) - lu(k,253) * b(k,55) + b(k,54) = b(k,54) * lu(k,244) + b(k,53) = b(k,53) - lu(k,243) * b(k,54) + 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,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,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,49) = b(k,49) - lu(k,212) * b(k,52) + b(k,44) = b(k,44) - lu(k,211) * 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,49) = b(k,49) - lu(k,188) * b(k,50) + b(k,44) = b(k,44) - lu(k,187) * 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,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) + b(k,28) = b(k,28) - lu(k,152) * b(k,46) + b(k,45) = b(k,45) * lu(k,144) + 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,124) + b(k,41) = b(k,41) * lu(k,115) + 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) b(k,36) = b(k,36) * lu(k,83) 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 34094dae8e..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,382) = rxt(k,196)*y(k,26) - mat(k,463) = rxt(k,196)*y(k,4) - mat(k,282) = (rxt(k,275)+rxt(k,280))*y(k,51) - mat(k,149) = (rxt(k,275)+rxt(k,280))*y(k,47) - mat(k,395) = -(4._r8*rxt(k,193)*y(k,4) + (rxt(k,194) + rxt(k,195) + rxt(k,196) & - ) * y(k,26) + rxt(k,197)*y(k,86) + rxt(k,198)*y(k,59) + rxt(k,199) & - *y(k,60) + rxt(k,201)*y(k,66) + rxt(k,202)*y(k,95) + rxt(k,250) & - *y(k,74)) - mat(k,476) = -(rxt(k,194) + rxt(k,195) + rxt(k,196)) * y(k,4) - mat(k,420) = -rxt(k,197)*y(k,4) - mat(k,520) = -rxt(k,198)*y(k,4) - mat(k,448) = -rxt(k,199)*y(k,4) - mat(k,696) = -rxt(k,201)*y(k,4) - mat(k,655) = -rxt(k,202)*y(k,4) - mat(k,263) = -rxt(k,250)*y(k,4) - mat(k,111) = rxt(k,200)*y(k,66) - mat(k,214) = rxt(k,210)*y(k,91) - mat(k,154) = rxt(k,205)*y(k,66) - mat(k,696) = mat(k,696) + rxt(k,200)*y(k,5) + rxt(k,205)*y(k,51) - mat(k,618) = rxt(k,192)*y(k,83) - mat(k,308) = rxt(k,192)*y(k,68) - mat(k,545) = rxt(k,210)*y(k,43) - mat(k,106) = -(rxt(k,200)*y(k,66)) - mat(k,674) = -rxt(k,200)*y(k,5) - mat(k,384) = rxt(k,199)*y(k,60) - mat(k,435) = rxt(k,199)*y(k,4) - mat(k,502) = -(rxt(k,154)*y(k,84) + rxt(k,190)*y(k,83) + rxt(k,234)*y(k,61) & - + rxt(k,235)*y(k,66) + rxt(k,236)*y(k,95)) - mat(k,373) = -rxt(k,154)*y(k,16) - mat(k,310) = -rxt(k,190)*y(k,16) - mat(k,348) = -rxt(k,234)*y(k,16) - mat(k,700) = -rxt(k,235)*y(k,16) - mat(k,659) = -rxt(k,236)*y(k,16) - mat(k,325) = rxt(k,161)*y(k,26) + rxt(k,238)*y(k,59) - mat(k,80) = .300_r8*rxt(k,239)*y(k,95) - mat(k,480) = rxt(k,161)*y(k,20) - mat(k,524) = rxt(k,238)*y(k,20) - mat(k,659) = mat(k,659) + .300_r8*rxt(k,239)*y(k,21) - mat(k,320) = -(rxt(k,161)*y(k,26) + rxt(k,237)*y(k,86) + rxt(k,238)*y(k,59)) - mat(k,473) = -rxt(k,161)*y(k,20) - mat(k,417) = -rxt(k,237)*y(k,20) - mat(k,517) = -rxt(k,238)*y(k,20) - mat(k,79) = .700_r8*rxt(k,239)*y(k,95) - mat(k,652) = .700_r8*rxt(k,239)*y(k,21) - mat(k,77) = -(rxt(k,239)*y(k,95)) - mat(k,636) = -rxt(k,239)*y(k,21) - mat(k,318) = rxt(k,237)*y(k,86) - mat(k,408) = rxt(k,237)*y(k,20) - mat(k,462) = 2.000_r8*rxt(k,163)*y(k,26) - mat(k,234) = (rxt(k,273)+rxt(k,278)+rxt(k,283))*y(k,47) + rxt(k,167)*y(k,84) - mat(k,281) = (rxt(k,273)+rxt(k,278)+rxt(k,283))*y(k,27) + (rxt(k,268) & - +rxt(k,274)+rxt(k,279))*y(k,52) - mat(k,219) = (rxt(k,268)+rxt(k,274)+rxt(k,279))*y(k,47) - mat(k,357) = rxt(k,167)*y(k,27) - mat(k,461) = 2.000_r8*rxt(k,188)*y(k,26) - mat(k,479) = -(rxt(k,161)*y(k,20) + (4._r8*rxt(k,162) + 4._r8*rxt(k,163) & - + 4._r8*rxt(k,164) + 4._r8*rxt(k,188)) * y(k,26) + rxt(k,165) & - *y(k,86) + rxt(k,166)*y(k,59) + rxt(k,168)*y(k,60) + rxt(k,171) & - *y(k,66) + (rxt(k,172) + rxt(k,173)) * y(k,95) + (rxt(k,194) & - + rxt(k,195) + rxt(k,196)) * y(k,4) + rxt(k,251)*y(k,74)) - mat(k,324) = -rxt(k,161)*y(k,26) - mat(k,423) = -rxt(k,165)*y(k,26) - mat(k,523) = -rxt(k,166)*y(k,26) - mat(k,451) = -rxt(k,168)*y(k,26) - mat(k,699) = -rxt(k,171)*y(k,26) - mat(k,658) = -(rxt(k,172) + rxt(k,173)) * y(k,26) - mat(k,398) = -(rxt(k,194) + rxt(k,195) + rxt(k,196)) * y(k,26) - mat(k,266) = -rxt(k,251)*y(k,26) - mat(k,242) = rxt(k,169)*y(k,66) - mat(k,296) = rxt(k,187)*y(k,91) - mat(k,223) = rxt(k,177)*y(k,66) + rxt(k,176)*y(k,84) + rxt(k,178)*y(k,95) - mat(k,699) = mat(k,699) + rxt(k,169)*y(k,27) + rxt(k,177)*y(k,52) - mat(k,621) = rxt(k,160)*y(k,84) - mat(k,67) = rxt(k,256)*y(k,74) - mat(k,266) = mat(k,266) + rxt(k,256)*y(k,69) - mat(k,372) = rxt(k,176)*y(k,52) + rxt(k,160)*y(k,68) + rxt(k,159)*y(k,86) - mat(k,423) = mat(k,423) + rxt(k,159)*y(k,84) - mat(k,548) = rxt(k,187)*y(k,47) - mat(k,658) = mat(k,658) + rxt(k,178)*y(k,52) - mat(k,236) = -(rxt(k,167)*y(k,84) + rxt(k,169)*y(k,66) + rxt(k,170)*y(k,95) & - + (rxt(k,273) + rxt(k,278) + rxt(k,283)) * y(k,47)) - mat(k,361) = -rxt(k,167)*y(k,27) - mat(k,687) = -rxt(k,169)*y(k,27) - mat(k,646) = -rxt(k,170)*y(k,27) - mat(k,285) = -(rxt(k,273) + rxt(k,278) + rxt(k,283)) * y(k,27) - mat(k,467) = rxt(k,168)*y(k,60) - mat(k,439) = rxt(k,168)*y(k,26) - mat(k,102) = -((rxt(k,241) + rxt(k,245)) * y(k,95)) - mat(k,638) = -(rxt(k,241) + rxt(k,245)) * y(k,29) - mat(k,489) = rxt(k,234)*y(k,61) + rxt(k,235)*y(k,66) + rxt(k,190)*y(k,83) & - + rxt(k,154)*y(k,84) + rxt(k,236)*y(k,95) - mat(k,335) = rxt(k,234)*y(k,16) - mat(k,673) = rxt(k,235)*y(k,16) + rxt(k,246)*y(k,70) - mat(k,70) = rxt(k,246)*y(k,66) + rxt(k,247)*y(k,95) - mat(k,304) = rxt(k,190)*y(k,16) - mat(k,358) = rxt(k,154)*y(k,16) - mat(k,638) = mat(k,638) + rxt(k,236)*y(k,16) + rxt(k,247)*y(k,70) - mat(k,27) = -(rxt(k,215)*y(k,91)) - mat(k,533) = -rxt(k,215)*y(k,31) - mat(k,37) = -(rxt(k,216)*y(k,91)) - mat(k,535) = -rxt(k,216)*y(k,32) - mat(k,58) = -(rxt(k,260)*y(k,61) + (rxt(k,261) + rxt(k,262)) * y(k,95)) - mat(k,334) = -rxt(k,260)*y(k,33) - mat(k,634) = -(rxt(k,261) + rxt(k,262)) * y(k,33) - mat(k,159) = -(rxt(k,212)*y(k,39) + rxt(k,213)*y(k,97) + rxt(k,214)*y(k,49)) - mat(k,559) = -rxt(k,212)*y(k,37) - mat(k,712) = -rxt(k,213)*y(k,37) - mat(k,247) = -rxt(k,214)*y(k,37) - mat(k,28) = 2.000_r8*rxt(k,215)*y(k,91) - mat(k,38) = rxt(k,216)*y(k,91) - mat(k,536) = 2.000_r8*rxt(k,215)*y(k,31) + rxt(k,216)*y(k,32) - mat(k,273) = -((rxt(k,112) + rxt(k,113) + rxt(k,114)) * y(k,86) + rxt(k,115) & - *y(k,67) + rxt(k,118)*y(k,68)) - mat(k,414) = -(rxt(k,112) + rxt(k,113) + rxt(k,114)) * y(k,38) - mat(k,593) = -rxt(k,115)*y(k,38) - mat(k,614) = -rxt(k,118)*y(k,38) - mat(k,492) = rxt(k,236)*y(k,95) - mat(k,103) = rxt(k,245)*y(k,95) - mat(k,161) = rxt(k,212)*y(k,39) - mat(k,561) = rxt(k,212)*y(k,37) + rxt(k,110)*y(k,66) + rxt(k,156)*y(k,84) & - + rxt(k,93)*y(k,91) + rxt(k,119)*y(k,95) - mat(k,212) = rxt(k,210)*y(k,91) - mat(k,287) = rxt(k,187)*y(k,91) - mat(k,203) = rxt(k,142)*y(k,95) - mat(k,690) = rxt(k,110)*y(k,39) + rxt(k,122)*y(k,95) - mat(k,74) = rxt(k,247)*y(k,95) - mat(k,134) = rxt(k,252)*y(k,95) - mat(k,260) = rxt(k,257)*y(k,95) - mat(k,363) = rxt(k,156)*y(k,39) - mat(k,539) = rxt(k,93)*y(k,39) + rxt(k,210)*y(k,43) + rxt(k,187)*y(k,47) - mat(k,649) = rxt(k,236)*y(k,16) + rxt(k,245)*y(k,29) + rxt(k,119)*y(k,39) & - + rxt(k,142)*y(k,53) + rxt(k,122)*y(k,66) + rxt(k,247)*y(k,70) & - + rxt(k,252)*y(k,73) + rxt(k,257)*y(k,74) - mat(k,574) = -(rxt(k,93)*y(k,91) + rxt(k,110)*y(k,66) + rxt(k,119)*y(k,95) & - + rxt(k,156)*y(k,84) + rxt(k,212)*y(k,37)) - mat(k,552) = -rxt(k,93)*y(k,39) - mat(k,703) = -rxt(k,110)*y(k,39) - mat(k,662) = -rxt(k,119)*y(k,39) - mat(k,376) = -rxt(k,156)*y(k,39) - mat(k,164) = -rxt(k,212)*y(k,39) - mat(k,275) = rxt(k,112)*y(k,86) - mat(k,427) = rxt(k,112)*y(k,38) - mat(k,114) = -(rxt(k,111)*y(k,66) + rxt(k,120)*y(k,95) + rxt(k,157)*y(k,84)) - mat(k,675) = -rxt(k,111)*y(k,41) - mat(k,639) = -rxt(k,120)*y(k,41) - mat(k,359) = -rxt(k,157)*y(k,41) - mat(k,410) = 2.000_r8*rxt(k,126)*y(k,86) - mat(k,639) = mat(k,639) + 2.000_r8*rxt(k,125)*y(k,95) - mat(k,47) = rxt(k,259)*y(k,97) - mat(k,709) = rxt(k,259)*y(k,76) - mat(k,211) = -(rxt(k,203)*y(k,66) + rxt(k,204)*y(k,95) + (rxt(k,209) & - + rxt(k,210)) * y(k,91)) - mat(k,684) = -rxt(k,203)*y(k,43) - mat(k,643) = -rxt(k,204)*y(k,43) - mat(k,537) = -(rxt(k,209) + rxt(k,210)) * y(k,43) - mat(k,490) = rxt(k,190)*y(k,83) - mat(k,305) = rxt(k,190)*y(k,16) + rxt(k,191)*y(k,86) - mat(k,412) = rxt(k,191)*y(k,83) - mat(k,288) = -(rxt(k,174)*y(k,66) + rxt(k,175)*y(k,95) + (rxt(k,186) & - + rxt(k,187)) * y(k,91) + (rxt(k,268) + rxt(k,274) + rxt(k,279) & - ) * y(k,52) + (rxt(k,273) + rxt(k,278) + rxt(k,283)) * y(k,27) & - + (rxt(k,275) + rxt(k,280)) * y(k,51)) - mat(k,691) = -rxt(k,174)*y(k,47) - mat(k,650) = -rxt(k,175)*y(k,47) - mat(k,540) = -(rxt(k,186) + rxt(k,187)) * y(k,47) - mat(k,221) = -(rxt(k,268) + rxt(k,274) + rxt(k,279)) * y(k,47) - mat(k,238) = -(rxt(k,273) + rxt(k,278) + rxt(k,283)) * y(k,47) - mat(k,151) = -(rxt(k,275) + rxt(k,280)) * y(k,47) - mat(k,493) = rxt(k,154)*y(k,84) - mat(k,471) = rxt(k,173)*y(k,95) - mat(k,562) = rxt(k,156)*y(k,84) - mat(k,115) = rxt(k,157)*y(k,84) - mat(k,221) = mat(k,221) + rxt(k,176)*y(k,84) - mat(k,364) = rxt(k,154)*y(k,16) + rxt(k,156)*y(k,39) + rxt(k,157)*y(k,41) & - + rxt(k,176)*y(k,52) + rxt(k,158)*y(k,86) - mat(k,415) = rxt(k,158)*y(k,84) - mat(k,650) = mat(k,650) + rxt(k,173)*y(k,26) - mat(k,158) = rxt(k,212)*y(k,39) + rxt(k,214)*y(k,49) + rxt(k,213)*y(k,97) - mat(k,558) = rxt(k,212)*y(k,37) - mat(k,246) = rxt(k,214)*y(k,37) - mat(k,710) = rxt(k,213)*y(k,37) - mat(k,248) = -(rxt(k,151)*y(k,95) + rxt(k,214)*y(k,37)) - mat(k,647) = -rxt(k,151)*y(k,49) - mat(k,160) = -rxt(k,214)*y(k,49) - mat(k,491) = rxt(k,234)*y(k,61) - mat(k,237) = (rxt(k,273)+rxt(k,278)+rxt(k,283))*y(k,47) - mat(k,60) = rxt(k,260)*y(k,61) - mat(k,286) = (rxt(k,273)+rxt(k,278)+rxt(k,283))*y(k,27) - mat(k,440) = rxt(k,150)*y(k,95) - mat(k,337) = rxt(k,234)*y(k,16) + rxt(k,260)*y(k,33) - mat(k,647) = mat(k,647) + rxt(k,150)*y(k,60) - mat(k,83) = -(rxt(k,127)*y(k,95)) - mat(k,637) = -rxt(k,127)*y(k,50) - mat(k,434) = rxt(k,148)*y(k,86) - mat(k,409) = rxt(k,148)*y(k,60) - mat(k,150) = -(rxt(k,205)*y(k,66) + (rxt(k,275) + rxt(k,280)) * y(k,47)) - mat(k,679) = -rxt(k,205)*y(k,51) - mat(k,283) = -(rxt(k,275) + rxt(k,280)) * y(k,51) - mat(k,385) = rxt(k,197)*y(k,86) - mat(k,411) = rxt(k,197)*y(k,4) - mat(k,220) = -(rxt(k,176)*y(k,84) + rxt(k,177)*y(k,66) + rxt(k,178)*y(k,95) & - + (rxt(k,268) + rxt(k,274) + rxt(k,279)) * y(k,47)) - mat(k,360) = -rxt(k,176)*y(k,52) - mat(k,685) = -rxt(k,177)*y(k,52) - mat(k,644) = -rxt(k,178)*y(k,52) - mat(k,284) = -(rxt(k,268) + rxt(k,274) + rxt(k,279)) * y(k,52) - mat(k,465) = rxt(k,165)*y(k,86) - mat(k,235) = rxt(k,170)*y(k,95) - mat(k,413) = rxt(k,165)*y(k,26) - mat(k,644) = mat(k,644) + rxt(k,170)*y(k,27) + 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,654) = .700_r8*rxt(k,240)*y(k,22) + mat(k,77) = -(rxt(k,240)*y(k,96)) + 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,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,536) = -rxt(k,216)*y(k,33) + mat(k,37) = -(rxt(k,217)*y(k,92)) + 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,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,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,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,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,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,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,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,202) = -(rxt(k,130)*y(k,59) + (rxt(k,131) + rxt(k,132) + rxt(k,133) & - ) * y(k,60) + rxt(k,134)*y(k,67) + rxt(k,142)*y(k,95) + rxt(k,293) & - *y(k,94)) - mat(k,514) = -rxt(k,130)*y(k,53) - mat(k,437) = -(rxt(k,131) + rxt(k,132) + rxt(k,133)) * y(k,53) - mat(k,590) = -rxt(k,134)*y(k,53) - mat(k,642) = -rxt(k,142)*y(k,53) - mat(k,170) = -rxt(k,293)*y(k,53) - mat(k,683) = rxt(k,128)*y(k,87) + rxt(k,290)*y(k,90) - mat(k,590) = mat(k,590) + rxt(k,291)*y(k,90) - mat(k,189) = 1.100_r8*rxt(k,286)*y(k,88) + .200_r8*rxt(k,284)*y(k,89) - mat(k,98) = rxt(k,128)*y(k,66) - mat(k,127) = 1.100_r8*rxt(k,286)*y(k,85) - mat(k,178) = .200_r8*rxt(k,284)*y(k,85) - mat(k,94) = rxt(k,290)*y(k,66) + rxt(k,291)*y(k,67) - mat(k,433) = rxt(k,149)*y(k,61) - mat(k,333) = rxt(k,149)*y(k,60) - mat(k,525) = -(rxt(k,130)*y(k,53) + rxt(k,139)*y(k,61) + rxt(k,143)*y(k,86) & - + rxt(k,144)*y(k,68) + rxt(k,145)*y(k,66) + rxt(k,166)*y(k,26) & - + rxt(k,198)*y(k,4) + rxt(k,238)*y(k,20) + rxt(k,295)*y(k,94)) - mat(k,206) = -rxt(k,130)*y(k,59) - mat(k,349) = -rxt(k,139)*y(k,59) - mat(k,425) = -rxt(k,143)*y(k,59) - mat(k,623) = -rxt(k,144)*y(k,59) - mat(k,701) = -rxt(k,145)*y(k,59) - mat(k,481) = -rxt(k,166)*y(k,59) - mat(k,400) = -rxt(k,198)*y(k,59) - mat(k,326) = -rxt(k,238)*y(k,59) - mat(k,171) = -rxt(k,295)*y(k,59) - mat(k,206) = mat(k,206) + 2.000_r8*rxt(k,132)*y(k,60) + rxt(k,134)*y(k,67) & - + rxt(k,142)*y(k,95) - mat(k,453) = 2.000_r8*rxt(k,132)*y(k,53) + rxt(k,135)*y(k,66) + rxt(k,253) & - *y(k,74) - mat(k,701) = mat(k,701) + rxt(k,135)*y(k,60) - mat(k,601) = rxt(k,134)*y(k,53) + rxt(k,129)*y(k,87) - mat(k,267) = rxt(k,253)*y(k,60) - mat(k,99) = rxt(k,129)*y(k,67) - mat(k,660) = rxt(k,142)*y(k,53) - mat(k,450) = -((rxt(k,131) + rxt(k,132) + rxt(k,133)) * y(k,53) + (rxt(k,135) & - + rxt(k,137)) * y(k,66) + rxt(k,136)*y(k,68) + rxt(k,148) & - *y(k,86) + rxt(k,149)*y(k,61) + rxt(k,150)*y(k,95) + rxt(k,168) & - *y(k,26) + rxt(k,199)*y(k,4) + rxt(k,253)*y(k,74)) - mat(k,205) = -(rxt(k,131) + rxt(k,132) + rxt(k,133)) * y(k,60) - mat(k,698) = -(rxt(k,135) + rxt(k,137)) * y(k,60) - mat(k,620) = -rxt(k,136)*y(k,60) - mat(k,422) = -rxt(k,148)*y(k,60) - mat(k,346) = -rxt(k,149)*y(k,60) - mat(k,657) = -rxt(k,150)*y(k,60) - mat(k,478) = -rxt(k,168)*y(k,60) - mat(k,397) = -rxt(k,199)*y(k,60) - mat(k,265) = -rxt(k,253)*y(k,60) - mat(k,397) = mat(k,397) + rxt(k,198)*y(k,59) - mat(k,323) = rxt(k,238)*y(k,59) - mat(k,478) = mat(k,478) + rxt(k,166)*y(k,59) - mat(k,86) = rxt(k,127)*y(k,95) - mat(k,522) = rxt(k,198)*y(k,4) + rxt(k,238)*y(k,20) + rxt(k,166)*y(k,26) & - + 2.000_r8*rxt(k,139)*y(k,61) + rxt(k,145)*y(k,66) + rxt(k,144) & - *y(k,68) + rxt(k,143)*y(k,86) - mat(k,346) = mat(k,346) + 2.000_r8*rxt(k,139)*y(k,59) + rxt(k,140)*y(k,66) & - + rxt(k,138)*y(k,86) + rxt(k,141)*y(k,95) - mat(k,698) = mat(k,698) + rxt(k,145)*y(k,59) + rxt(k,140)*y(k,61) - mat(k,620) = mat(k,620) + rxt(k,144)*y(k,59) - mat(k,422) = mat(k,422) + rxt(k,143)*y(k,59) + rxt(k,138)*y(k,61) - mat(k,657) = mat(k,657) + rxt(k,127)*y(k,50) + rxt(k,141)*y(k,61) - mat(k,342) = -(rxt(k,138)*y(k,86) + rxt(k,139)*y(k,59) + rxt(k,140)*y(k,66) & - + rxt(k,141)*y(k,95) + rxt(k,149)*y(k,60) + rxt(k,234)*y(k,16) & - + rxt(k,260)*y(k,33)) - mat(k,418) = -rxt(k,138)*y(k,61) - mat(k,518) = -rxt(k,139)*y(k,61) - mat(k,694) = -rxt(k,140)*y(k,61) - mat(k,653) = -rxt(k,141)*y(k,61) - mat(k,446) = -rxt(k,149)*y(k,61) - mat(k,496) = -rxt(k,234)*y(k,61) - mat(k,61) = -rxt(k,260)*y(k,61) - mat(k,110) = rxt(k,200)*y(k,66) - mat(k,239) = rxt(k,169)*y(k,66) + rxt(k,167)*y(k,84) + rxt(k,170)*y(k,95) - mat(k,163) = rxt(k,214)*y(k,49) - mat(k,251) = rxt(k,214)*y(k,37) + rxt(k,151)*y(k,95) - mat(k,446) = mat(k,446) + rxt(k,137)*y(k,66) + rxt(k,136)*y(k,68) - mat(k,694) = mat(k,694) + rxt(k,200)*y(k,5) + rxt(k,169)*y(k,27) + rxt(k,137) & - *y(k,60) - mat(k,616) = rxt(k,136)*y(k,60) - mat(k,367) = rxt(k,167)*y(k,27) - mat(k,653) = mat(k,653) + rxt(k,170)*y(k,27) + rxt(k,151)*y(k,49) - mat(k,707) = -(rxt(k,107)*y(k,68) + 4._r8*rxt(k,108)*y(k,66) + rxt(k,109) & - *y(k,67) + rxt(k,110)*y(k,39) + rxt(k,111)*y(k,41) + rxt(k,116) & - *y(k,86) + rxt(k,122)*y(k,95) + (rxt(k,135) + rxt(k,137) & - ) * y(k,60) + rxt(k,140)*y(k,61) + rxt(k,145)*y(k,59) + rxt(k,169) & - *y(k,27) + rxt(k,171)*y(k,26) + rxt(k,174)*y(k,47) + rxt(k,177) & - *y(k,52) + rxt(k,200)*y(k,5) + rxt(k,201)*y(k,4) + rxt(k,203) & - *y(k,43) + rxt(k,205)*y(k,51) + rxt(k,235)*y(k,16) + rxt(k,246) & - *y(k,70) + (rxt(k,288) + rxt(k,289)) * y(k,88) + rxt(k,290) & - *y(k,90)) - mat(k,629) = -rxt(k,107)*y(k,66) - mat(k,607) = -rxt(k,109)*y(k,66) - mat(k,578) = -rxt(k,110)*y(k,66) - mat(k,119) = -rxt(k,111)*y(k,66) - mat(k,431) = -rxt(k,116)*y(k,66) - mat(k,666) = -rxt(k,122)*y(k,66) - mat(k,459) = -(rxt(k,135) + rxt(k,137)) * y(k,66) - mat(k,355) = -rxt(k,140)*y(k,66) - mat(k,531) = -rxt(k,145)*y(k,66) - mat(k,244) = -rxt(k,169)*y(k,66) - mat(k,487) = -rxt(k,171)*y(k,66) - mat(k,302) = -rxt(k,174)*y(k,66) - mat(k,225) = -rxt(k,177)*y(k,66) - mat(k,113) = -rxt(k,200)*y(k,66) - mat(k,406) = -rxt(k,201)*y(k,66) - mat(k,217) = -rxt(k,203)*y(k,66) - mat(k,156) = -rxt(k,205)*y(k,66) - mat(k,509) = -rxt(k,235)*y(k,66) - mat(k,76) = -rxt(k,246)*y(k,66) - mat(k,131) = -(rxt(k,288) + rxt(k,289)) * y(k,66) - mat(k,96) = -rxt(k,290)*y(k,66) - mat(k,279) = rxt(k,114)*y(k,86) - mat(k,210) = rxt(k,130)*y(k,59) + rxt(k,131)*y(k,60) + rxt(k,134)*y(k,67) & - + rxt(k,293)*y(k,94) - mat(k,531) = mat(k,531) + rxt(k,130)*y(k,53) - mat(k,459) = mat(k,459) + rxt(k,131)*y(k,53) - mat(k,607) = mat(k,607) + rxt(k,134)*y(k,53) + rxt(k,248)*y(k,73) & - + rxt(k,254)*y(k,74) + rxt(k,292)*y(k,90) + (rxt(k,96)+rxt(k,97)) & - *y(k,91) + rxt(k,298)*y(k,96) - mat(k,138) = rxt(k,248)*y(k,67) - mat(k,271) = rxt(k,254)*y(k,67) - mat(k,196) = rxt(k,284)*y(k,89) + 1.150_r8*rxt(k,285)*y(k,94) - mat(k,431) = mat(k,431) + rxt(k,114)*y(k,38) - mat(k,182) = rxt(k,284)*y(k,85) - mat(k,96) = mat(k,96) + rxt(k,292)*y(k,67) - mat(k,556) = (rxt(k,96)+rxt(k,97))*y(k,67) - mat(k,174) = rxt(k,293)*y(k,53) + 1.150_r8*rxt(k,285)*y(k,85) - mat(k,666) = mat(k,666) + 2.000_r8*rxt(k,124)*y(k,95) - mat(k,148) = rxt(k,298)*y(k,67) - mat(k,604) = -(rxt(k,96)*y(k,91) + rxt(k,101)*y(k,92) + rxt(k,109)*y(k,66) & - + rxt(k,115)*y(k,38) + rxt(k,129)*y(k,87) + rxt(k,134)*y(k,53) & - + rxt(k,248)*y(k,73) + rxt(k,254)*y(k,74) + rxt(k,287)*y(k,88) & - + (rxt(k,291) + rxt(k,292)) * y(k,90) + rxt(k,298)*y(k,96)) - mat(k,553) = -rxt(k,96)*y(k,67) - mat(k,31) = -rxt(k,101)*y(k,67) - mat(k,704) = -rxt(k,109)*y(k,67) - mat(k,276) = -rxt(k,115)*y(k,67) - mat(k,101) = -rxt(k,129)*y(k,67) - mat(k,208) = -rxt(k,134)*y(k,67) - mat(k,135) = -rxt(k,248)*y(k,67) - mat(k,268) = -rxt(k,254)*y(k,67) - mat(k,130) = -rxt(k,287)*y(k,67) - mat(k,95) = -(rxt(k,291) + rxt(k,292)) * y(k,67) - mat(k,146) = -rxt(k,298)*y(k,67) - mat(k,403) = 2.000_r8*rxt(k,193)*y(k,4) + (rxt(k,195)+rxt(k,196))*y(k,26) & - + rxt(k,201)*y(k,66) + rxt(k,197)*y(k,86) - mat(k,328) = rxt(k,237)*y(k,86) - mat(k,484) = (rxt(k,195)+rxt(k,196))*y(k,4) + (2.000_r8*rxt(k,162) & - +2.000_r8*rxt(k,163))*y(k,26) + rxt(k,171)*y(k,66) + rxt(k,165) & - *y(k,86) + rxt(k,173)*y(k,95) - mat(k,276) = mat(k,276) + rxt(k,118)*y(k,68) + rxt(k,112)*y(k,86) - mat(k,87) = rxt(k,127)*y(k,95) - mat(k,208) = mat(k,208) + rxt(k,133)*y(k,60) - mat(k,528) = rxt(k,144)*y(k,68) + rxt(k,295)*y(k,94) - mat(k,456) = rxt(k,133)*y(k,53) + rxt(k,135)*y(k,66) + rxt(k,136)*y(k,68) - mat(k,352) = rxt(k,140)*y(k,66) + rxt(k,138)*y(k,86) - mat(k,704) = mat(k,704) + rxt(k,201)*y(k,4) + rxt(k,171)*y(k,26) + rxt(k,135) & - *y(k,60) + rxt(k,140)*y(k,61) + 2.000_r8*rxt(k,108)*y(k,66) & - + 2.000_r8*rxt(k,107)*y(k,68) + rxt(k,116)*y(k,86) + rxt(k,100) & - *y(k,92) + rxt(k,122)*y(k,95) - mat(k,604) = mat(k,604) + 2.000_r8*rxt(k,101)*y(k,92) - mat(k,626) = rxt(k,118)*y(k,38) + rxt(k,144)*y(k,59) + rxt(k,136)*y(k,60) & - + 2.000_r8*rxt(k,107)*y(k,66) + rxt(k,249)*y(k,73) + rxt(k,255) & - *y(k,74) + rxt(k,192)*y(k,83) + rxt(k,160)*y(k,84) & - + 2.000_r8*rxt(k,117)*y(k,86) + 2.000_r8*rxt(k,98)*y(k,91) & - + rxt(k,123)*y(k,95) - mat(k,135) = mat(k,135) + rxt(k,249)*y(k,68) - mat(k,268) = mat(k,268) + rxt(k,255)*y(k,68) - mat(k,313) = rxt(k,192)*y(k,68) + rxt(k,191)*y(k,86) - mat(k,377) = rxt(k,160)*y(k,68) + rxt(k,158)*y(k,86) - mat(k,428) = rxt(k,197)*y(k,4) + rxt(k,237)*y(k,20) + rxt(k,165)*y(k,26) & - + rxt(k,112)*y(k,38) + rxt(k,138)*y(k,61) + rxt(k,116)*y(k,66) & - + 2.000_r8*rxt(k,117)*y(k,68) + rxt(k,191)*y(k,83) + rxt(k,158) & - *y(k,84) + 2.000_r8*rxt(k,126)*y(k,86) + rxt(k,121)*y(k,95) - mat(k,553) = mat(k,553) + 2.000_r8*rxt(k,98)*y(k,68) - mat(k,31) = mat(k,31) + rxt(k,100)*y(k,66) + 2.000_r8*rxt(k,101)*y(k,67) - mat(k,173) = rxt(k,295)*y(k,59) - mat(k,663) = rxt(k,173)*y(k,26) + rxt(k,127)*y(k,50) + rxt(k,122)*y(k,66) & - + rxt(k,123)*y(k,68) + rxt(k,121)*y(k,86) - mat(k,627) = -(rxt(k,98)*y(k,91) + rxt(k,107)*y(k,66) + rxt(k,117)*y(k,86) & - + rxt(k,118)*y(k,38) + rxt(k,123)*y(k,95) + rxt(k,136)*y(k,60) & - + rxt(k,144)*y(k,59) + rxt(k,160)*y(k,84) + rxt(k,192)*y(k,83) & - + rxt(k,249)*y(k,73) + rxt(k,255)*y(k,74)) - mat(k,554) = -rxt(k,98)*y(k,68) - mat(k,705) = -rxt(k,107)*y(k,68) - mat(k,429) = -rxt(k,117)*y(k,68) - mat(k,277) = -rxt(k,118)*y(k,68) - mat(k,664) = -rxt(k,123)*y(k,68) - mat(k,457) = -rxt(k,136)*y(k,68) - mat(k,529) = -rxt(k,144)*y(k,68) - mat(k,378) = -rxt(k,160)*y(k,68) - mat(k,314) = -rxt(k,192)*y(k,68) - mat(k,136) = -rxt(k,249)*y(k,68) - mat(k,269) = -rxt(k,255)*y(k,68) - mat(k,705) = mat(k,705) + rxt(k,109)*y(k,67) - mat(k,605) = rxt(k,109)*y(k,66) - mat(k,64) = -(rxt(k,256)*y(k,74)) - mat(k,256) = -rxt(k,256)*y(k,69) - mat(k,383) = rxt(k,194)*y(k,26) - mat(k,464) = rxt(k,194)*y(k,4) + 2.000_r8*rxt(k,164)*y(k,26) + 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,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,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,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,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,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,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,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,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,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,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,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,40) + mat(k,233) = rxt(k,302)*y(k,97) + mat(k,142) = rxt(k,288)*y(k,86) + 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,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,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,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,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,246 +494,236 @@ subroutine nlnmat03( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,69) = -(rxt(k,246)*y(k,66) + rxt(k,247)*y(k,95)) - mat(k,670) = -rxt(k,246)*y(k,70) - mat(k,635) = -rxt(k,247)*y(k,70) - mat(k,132) = -(rxt(k,248)*y(k,67) + rxt(k,249)*y(k,68) + rxt(k,252)*y(k,95)) - mat(k,585) = -rxt(k,248)*y(k,73) - mat(k,611) = -rxt(k,249)*y(k,73) - mat(k,640) = -rxt(k,252)*y(k,73) - mat(k,259) = -(rxt(k,250)*y(k,4) + rxt(k,251)*y(k,26) + rxt(k,253)*y(k,60) & - + rxt(k,254)*y(k,67) + rxt(k,255)*y(k,68) + rxt(k,256)*y(k,69) & - + rxt(k,257)*y(k,95)) - mat(k,388) = -rxt(k,250)*y(k,74) - mat(k,469) = -rxt(k,251)*y(k,74) - mat(k,441) = -rxt(k,253)*y(k,74) - mat(k,592) = -rxt(k,254)*y(k,74) - mat(k,613) = -rxt(k,255)*y(k,74) - mat(k,66) = -rxt(k,256)*y(k,74) - mat(k,648) = -rxt(k,257)*y(k,74) - mat(k,689) = rxt(k,246)*y(k,70) - mat(k,592) = mat(k,592) + rxt(k,248)*y(k,73) - mat(k,613) = mat(k,613) + rxt(k,249)*y(k,73) - mat(k,73) = rxt(k,246)*y(k,66) - mat(k,133) = rxt(k,248)*y(k,67) + rxt(k,249)*y(k,68) + rxt(k,252)*y(k,95) - mat(k,648) = mat(k,648) + rxt(k,252)*y(k,73) - mat(k,228) = -(rxt(k,258)*y(k,95)) - mat(k,645) = -rxt(k,258)*y(k,75) - mat(k,386) = rxt(k,250)*y(k,74) - mat(k,466) = rxt(k,251)*y(k,74) - mat(k,59) = rxt(k,260)*y(k,61) + (rxt(k,261)+.500_r8*rxt(k,262))*y(k,95) - mat(k,438) = rxt(k,253)*y(k,74) - mat(k,336) = rxt(k,260)*y(k,33) - mat(k,591) = rxt(k,254)*y(k,74) - mat(k,612) = rxt(k,255)*y(k,74) - mat(k,65) = rxt(k,256)*y(k,74) - mat(k,72) = rxt(k,247)*y(k,95) - mat(k,258) = rxt(k,250)*y(k,4) + rxt(k,251)*y(k,26) + rxt(k,253)*y(k,60) & - + rxt(k,254)*y(k,67) + rxt(k,255)*y(k,68) + rxt(k,256)*y(k,69) & - + rxt(k,257)*y(k,95) - mat(k,645) = mat(k,645) + (rxt(k,261)+.500_r8*rxt(k,262))*y(k,33) & - + rxt(k,247)*y(k,70) + rxt(k,257)*y(k,74) - mat(k,48) = -(rxt(k,259)*y(k,97)) - mat(k,711) = -rxt(k,259)*y(k,76) - mat(k,227) = rxt(k,258)*y(k,95) - mat(k,633) = rxt(k,258)*y(k,75) - mat(k,307) = -(rxt(k,190)*y(k,16) + rxt(k,191)*y(k,86) + rxt(k,192)*y(k,68)) - mat(k,494) = -rxt(k,190)*y(k,83) - mat(k,416) = -rxt(k,191)*y(k,83) - mat(k,615) = -rxt(k,192)*y(k,83) - mat(k,391) = 4.000_r8*rxt(k,193)*y(k,4) + (rxt(k,194)+rxt(k,195))*y(k,26) & - + rxt(k,198)*y(k,59) + rxt(k,201)*y(k,66) + rxt(k,250)*y(k,74) & - + rxt(k,202)*y(k,95) - mat(k,472) = (rxt(k,194)+rxt(k,195))*y(k,4) - mat(k,213) = rxt(k,203)*y(k,66) + rxt(k,209)*y(k,91) + rxt(k,204)*y(k,95) - mat(k,516) = rxt(k,198)*y(k,4) - mat(k,692) = rxt(k,201)*y(k,4) + rxt(k,203)*y(k,43) - mat(k,261) = rxt(k,250)*y(k,4) - mat(k,541) = rxt(k,209)*y(k,43) - mat(k,651) = rxt(k,202)*y(k,4) + rxt(k,204)*y(k,43) - mat(k,368) = -(rxt(k,154)*y(k,16) + rxt(k,156)*y(k,39) + rxt(k,157)*y(k,41) & - + (rxt(k,158) + rxt(k,159)) * y(k,86) + rxt(k,160)*y(k,68) & - + rxt(k,167)*y(k,27) + rxt(k,176)*y(k,52)) - mat(k,497) = -rxt(k,154)*y(k,84) - mat(k,566) = -rxt(k,156)*y(k,84) - mat(k,116) = -rxt(k,157)*y(k,84) - mat(k,419) = -(rxt(k,158) + rxt(k,159)) * y(k,84) - mat(k,617) = -rxt(k,160)*y(k,84) - mat(k,240) = -rxt(k,167)*y(k,84) - mat(k,222) = -rxt(k,176)*y(k,84) - mat(k,394) = rxt(k,195)*y(k,26) - mat(k,321) = rxt(k,161)*y(k,26) - mat(k,475) = rxt(k,195)*y(k,4) + rxt(k,161)*y(k,20) + (4.000_r8*rxt(k,162) & - +2.000_r8*rxt(k,164))*y(k,26) + rxt(k,166)*y(k,59) + rxt(k,171) & - *y(k,66) + rxt(k,251)*y(k,74) + rxt(k,172)*y(k,95) - mat(k,39) = rxt(k,216)*y(k,91) - mat(k,292) = rxt(k,174)*y(k,66) + rxt(k,186)*y(k,91) + rxt(k,175)*y(k,95) - mat(k,519) = rxt(k,166)*y(k,26) - mat(k,695) = rxt(k,171)*y(k,26) + rxt(k,174)*y(k,47) - mat(k,262) = rxt(k,251)*y(k,26) - mat(k,544) = rxt(k,216)*y(k,32) + rxt(k,186)*y(k,47) - mat(k,654) = rxt(k,172)*y(k,26) + rxt(k,175)*y(k,47) - mat(k,188) = -(rxt(k,284)*y(k,89) + rxt(k,285)*y(k,94) + rxt(k,286)*y(k,88)) - mat(k,177) = -rxt(k,284)*y(k,85) - mat(k,169) = -rxt(k,285)*y(k,85) - mat(k,126) = -rxt(k,286)*y(k,85) - mat(k,421) = -((rxt(k,112) + rxt(k,113) + rxt(k,114)) * y(k,38) + rxt(k,116) & - *y(k,66) + rxt(k,117)*y(k,68) + rxt(k,121)*y(k,95) & - + 4._r8*rxt(k,126)*y(k,86) + rxt(k,138)*y(k,61) + rxt(k,143) & - *y(k,59) + rxt(k,148)*y(k,60) + (rxt(k,158) + rxt(k,159) & - ) * y(k,84) + rxt(k,165)*y(k,26) + rxt(k,191)*y(k,83) + rxt(k,197) & - *y(k,4) + rxt(k,237)*y(k,20)) - mat(k,274) = -(rxt(k,112) + rxt(k,113) + rxt(k,114)) * y(k,86) - mat(k,697) = -rxt(k,116)*y(k,86) - mat(k,619) = -rxt(k,117)*y(k,86) - mat(k,656) = -rxt(k,121)*y(k,86) - mat(k,345) = -rxt(k,138)*y(k,86) - mat(k,521) = -rxt(k,143)*y(k,86) - mat(k,449) = -rxt(k,148)*y(k,86) - mat(k,370) = -(rxt(k,158) + rxt(k,159)) * y(k,86) - mat(k,477) = -rxt(k,165)*y(k,86) - mat(k,309) = -rxt(k,191)*y(k,86) - mat(k,396) = -rxt(k,197)*y(k,86) - mat(k,322) = -rxt(k,237)*y(k,86) - mat(k,396) = mat(k,396) + rxt(k,202)*y(k,95) - mat(k,499) = rxt(k,234)*y(k,61) + rxt(k,235)*y(k,66) + rxt(k,190)*y(k,83) & - + rxt(k,154)*y(k,84) - mat(k,322) = mat(k,322) + rxt(k,161)*y(k,26) + rxt(k,238)*y(k,59) - mat(k,477) = mat(k,477) + rxt(k,161)*y(k,20) + rxt(k,172)*y(k,95) - mat(k,104) = rxt(k,241)*y(k,95) - mat(k,62) = .500_r8*rxt(k,262)*y(k,95) - mat(k,274) = mat(k,274) + rxt(k,115)*y(k,67) - mat(k,117) = rxt(k,111)*y(k,66) + rxt(k,157)*y(k,84) + rxt(k,120)*y(k,95) - mat(k,521) = mat(k,521) + rxt(k,238)*y(k,20) - mat(k,345) = mat(k,345) + rxt(k,234)*y(k,16) + rxt(k,141)*y(k,95) - mat(k,697) = mat(k,697) + rxt(k,235)*y(k,16) + rxt(k,111)*y(k,41) - mat(k,597) = rxt(k,115)*y(k,38) - mat(k,619) = mat(k,619) + rxt(k,123)*y(k,95) - mat(k,230) = rxt(k,258)*y(k,95) - mat(k,309) = mat(k,309) + rxt(k,190)*y(k,16) - mat(k,370) = mat(k,370) + rxt(k,154)*y(k,16) + rxt(k,157)*y(k,41) - mat(k,656) = mat(k,656) + rxt(k,202)*y(k,4) + rxt(k,172)*y(k,26) + rxt(k,241) & - *y(k,29) + .500_r8*rxt(k,262)*y(k,33) + rxt(k,120)*y(k,41) & - + rxt(k,141)*y(k,61) + rxt(k,123)*y(k,68) + rxt(k,258)*y(k,75) - mat(k,97) = -(rxt(k,128)*y(k,66) + rxt(k,129)*y(k,67)) - mat(k,672) = -rxt(k,128)*y(k,87) - mat(k,583) = -rxt(k,129)*y(k,87) - mat(k,672) = mat(k,672) + rxt(k,288)*y(k,88) - mat(k,183) = .900_r8*rxt(k,286)*y(k,88) + .800_r8*rxt(k,284)*y(k,89) - mat(k,121) = rxt(k,288)*y(k,66) + .900_r8*rxt(k,286)*y(k,85) - mat(k,175) = .800_r8*rxt(k,284)*y(k,85) - mat(k,122) = -(rxt(k,286)*y(k,85) + rxt(k,287)*y(k,67) + (rxt(k,288) & - + rxt(k,289)) * y(k,66)) - mat(k,184) = -rxt(k,286)*y(k,88) - mat(k,584) = -rxt(k,287)*y(k,88) - mat(k,676) = -(rxt(k,288) + rxt(k,289)) * y(k,88) - mat(k,176) = -(rxt(k,284)*y(k,85)) - mat(k,187) = -rxt(k,284)*y(k,89) - mat(k,200) = rxt(k,293)*y(k,94) - mat(k,512) = rxt(k,295)*y(k,94) - mat(k,681) = rxt(k,288)*y(k,88) - mat(k,588) = rxt(k,292)*y(k,90) - mat(k,125) = rxt(k,288)*y(k,66) - mat(k,93) = rxt(k,292)*y(k,67) - mat(k,168) = rxt(k,293)*y(k,53) + rxt(k,295)*y(k,59) - mat(k,90) = -(rxt(k,290)*y(k,66) + (rxt(k,291) + rxt(k,292)) * y(k,67)) - mat(k,671) = -rxt(k,290)*y(k,90) - mat(k,582) = -(rxt(k,291) + rxt(k,292)) * y(k,90) - mat(k,551) = -(rxt(k,93)*y(k,39) + rxt(k,94)*y(k,97) + (rxt(k,96) + rxt(k,97) & - ) * y(k,67) + rxt(k,98)*y(k,68) + (rxt(k,186) + rxt(k,187) & - ) * y(k,47) + (rxt(k,209) + rxt(k,210)) * y(k,43) + rxt(k,215) & - *y(k,31) + rxt(k,216)*y(k,32)) - mat(k,573) = -rxt(k,93)*y(k,91) - mat(k,727) = -rxt(k,94)*y(k,91) - mat(k,602) = -(rxt(k,96) + rxt(k,97)) * y(k,91) - mat(k,624) = -rxt(k,98)*y(k,91) - mat(k,297) = -(rxt(k,186) + rxt(k,187)) * y(k,91) - mat(k,215) = -(rxt(k,209) + rxt(k,210)) * y(k,91) - mat(k,29) = -rxt(k,215)*y(k,91) - mat(k,40) = -rxt(k,216)*y(k,91) - mat(k,602) = mat(k,602) + rxt(k,129)*y(k,87) - mat(k,193) = .850_r8*rxt(k,285)*y(k,94) - mat(k,100) = rxt(k,129)*y(k,67) - mat(k,172) = .850_r8*rxt(k,285)*y(k,85) - mat(k,30) = -(rxt(k,100)*y(k,66) + rxt(k,101)*y(k,67)) - mat(k,668) = -rxt(k,100)*y(k,92) - mat(k,580) = -rxt(k,101)*y(k,92) - mat(k,668) = mat(k,668) + rxt(k,104)*y(k,93) - mat(k,580) = mat(k,580) + rxt(k,105)*y(k,93) - mat(k,609) = rxt(k,106)*y(k,93) - mat(k,32) = rxt(k,104)*y(k,66) + rxt(k,105)*y(k,67) + rxt(k,106)*y(k,68) - mat(k,33) = -(rxt(k,104)*y(k,66) + rxt(k,105)*y(k,67) + rxt(k,106)*y(k,68)) - mat(k,669) = -rxt(k,104)*y(k,93) - mat(k,581) = -rxt(k,105)*y(k,93) - mat(k,610) = -rxt(k,106)*y(k,93) - mat(k,581) = mat(k,581) + rxt(k,96)*y(k,91) - mat(k,534) = rxt(k,96)*y(k,67) - mat(k,167) = -(rxt(k,285)*y(k,85) + rxt(k,293)*y(k,53) + rxt(k,295)*y(k,59)) - mat(k,186) = -rxt(k,285)*y(k,94) - mat(k,199) = -rxt(k,293)*y(k,94) - mat(k,511) = -rxt(k,295)*y(k,94) - mat(k,587) = rxt(k,287)*y(k,88) + rxt(k,291)*y(k,90) + rxt(k,298)*y(k,96) - mat(k,124) = rxt(k,287)*y(k,67) - mat(k,92) = rxt(k,291)*y(k,67) - mat(k,141) = rxt(k,298)*y(k,67) - mat(k,665) = -(rxt(k,119)*y(k,39) + rxt(k,120)*y(k,41) + rxt(k,121)*y(k,86) & - + rxt(k,122)*y(k,66) + rxt(k,123)*y(k,68) + (4._r8*rxt(k,124) & - + 4._r8*rxt(k,125)) * y(k,95) + rxt(k,127)*y(k,50) + rxt(k,141) & - *y(k,61) + rxt(k,142)*y(k,53) + rxt(k,150)*y(k,60) + rxt(k,151) & - *y(k,49) + rxt(k,170)*y(k,27) + (rxt(k,172) + rxt(k,173) & - ) * y(k,26) + rxt(k,175)*y(k,47) + rxt(k,178)*y(k,52) + rxt(k,202) & - *y(k,4) + rxt(k,204)*y(k,43) + rxt(k,236)*y(k,16) + rxt(k,239) & - *y(k,21) + (rxt(k,241) + rxt(k,245)) * y(k,29) + rxt(k,247) & - *y(k,70) + rxt(k,252)*y(k,73) + rxt(k,257)*y(k,74) + rxt(k,258) & - *y(k,75) + (rxt(k,261) + rxt(k,262)) * y(k,33)) - mat(k,577) = -rxt(k,119)*y(k,95) - mat(k,118) = -rxt(k,120)*y(k,95) - mat(k,430) = -rxt(k,121)*y(k,95) - mat(k,706) = -rxt(k,122)*y(k,95) - mat(k,628) = -rxt(k,123)*y(k,95) - mat(k,88) = -rxt(k,127)*y(k,95) - mat(k,354) = -rxt(k,141)*y(k,95) - mat(k,209) = -rxt(k,142)*y(k,95) - mat(k,458) = -rxt(k,150)*y(k,95) - mat(k,254) = -rxt(k,151)*y(k,95) - mat(k,243) = -rxt(k,170)*y(k,95) - mat(k,486) = -(rxt(k,172) + rxt(k,173)) * y(k,95) - mat(k,301) = -rxt(k,175)*y(k,95) - mat(k,224) = -rxt(k,178)*y(k,95) - mat(k,405) = -rxt(k,202)*y(k,95) - mat(k,216) = -rxt(k,204)*y(k,95) - mat(k,508) = -rxt(k,236)*y(k,95) - mat(k,81) = -rxt(k,239)*y(k,95) - mat(k,105) = -(rxt(k,241) + rxt(k,245)) * y(k,95) - mat(k,75) = -rxt(k,247)*y(k,95) - mat(k,137) = -rxt(k,252)*y(k,95) - mat(k,270) = -rxt(k,257)*y(k,95) - mat(k,231) = -rxt(k,258)*y(k,95) - mat(k,63) = -(rxt(k,261) + rxt(k,262)) * y(k,95) - mat(k,508) = mat(k,508) + rxt(k,235)*y(k,66) - mat(k,81) = mat(k,81) + .300_r8*rxt(k,239)*y(k,95) - mat(k,165) = rxt(k,213)*y(k,97) - mat(k,278) = rxt(k,118)*y(k,68) + 2.000_r8*rxt(k,113)*y(k,86) - mat(k,577) = mat(k,577) + rxt(k,110)*y(k,66) + rxt(k,93)*y(k,91) - mat(k,118) = mat(k,118) + rxt(k,111)*y(k,66) - mat(k,216) = mat(k,216) + rxt(k,203)*y(k,66) + rxt(k,209)*y(k,91) - mat(k,301) = mat(k,301) + rxt(k,174)*y(k,66) + rxt(k,186)*y(k,91) - mat(k,155) = rxt(k,205)*y(k,66) - mat(k,224) = mat(k,224) + rxt(k,177)*y(k,66) - mat(k,530) = rxt(k,143)*y(k,86) - mat(k,354) = mat(k,354) + rxt(k,138)*y(k,86) - mat(k,706) = mat(k,706) + rxt(k,235)*y(k,16) + rxt(k,110)*y(k,39) & - + rxt(k,111)*y(k,41) + rxt(k,203)*y(k,43) + rxt(k,174)*y(k,47) & - + rxt(k,205)*y(k,51) + rxt(k,177)*y(k,52) + rxt(k,116)*y(k,86) - mat(k,628) = mat(k,628) + rxt(k,118)*y(k,38) + rxt(k,117)*y(k,86) - mat(k,379) = rxt(k,159)*y(k,86) - mat(k,430) = mat(k,430) + 2.000_r8*rxt(k,113)*y(k,38) + rxt(k,143)*y(k,59) & - + rxt(k,138)*y(k,61) + rxt(k,116)*y(k,66) + rxt(k,117)*y(k,68) & - + rxt(k,159)*y(k,84) - mat(k,555) = rxt(k,93)*y(k,39) + rxt(k,209)*y(k,43) + rxt(k,186)*y(k,47) & - + 2.000_r8*rxt(k,94)*y(k,97) - mat(k,665) = mat(k,665) + .300_r8*rxt(k,239)*y(k,21) - mat(k,731) = rxt(k,213)*y(k,37) + 2.000_r8*rxt(k,94)*y(k,91) + 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,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,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,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,619) = -rxt(k,166)*y(k,87) + mat(k,311) = -rxt(k,192)*y(k,87) + mat(k,704) = -rxt(k,198)*y(k,87) + mat(k,348) = -rxt(k,238)*y(k,87) + 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,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,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,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,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,582) = rxt(k,299)*y(k,95) + mat(k,472) = rxt(k,292)*y(k,89) + 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,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,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,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,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,505) = -rxt(k,102)*y(k,93) + mat(k,462) = mat(k,462) + rxt(k,105)*y(k,94) + 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,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,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,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,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,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,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,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,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,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 ) @@ -735,32 +744,46 @@ subroutine nlnmat04( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,140) = -(rxt(k,298)*y(k,67)) - mat(k,586) = -rxt(k,298)*y(k,96) - mat(k,678) = rxt(k,289)*y(k,88) + rxt(k,290)*y(k,90) - mat(k,123) = rxt(k,289)*y(k,66) - mat(k,91) = rxt(k,290)*y(k,66) - mat(k,733) = -(rxt(k,94)*y(k,91) + rxt(k,213)*y(k,37) + rxt(k,259)*y(k,76)) - mat(k,557) = -rxt(k,94)*y(k,97) - mat(k,166) = -rxt(k,213)*y(k,97) - mat(k,51) = -rxt(k,259)*y(k,97) - mat(k,510) = rxt(k,236)*y(k,95) - mat(k,82) = rxt(k,239)*y(k,95) - mat(k,280) = rxt(k,114)*y(k,86) - mat(k,579) = rxt(k,119)*y(k,95) - mat(k,120) = rxt(k,120)*y(k,95) - mat(k,218) = rxt(k,204)*y(k,95) - mat(k,303) = (rxt(k,275)+rxt(k,280))*y(k,51) + (rxt(k,268)+rxt(k,274) & - +rxt(k,279))*y(k,52) + rxt(k,175)*y(k,95) - mat(k,255) = rxt(k,151)*y(k,95) - mat(k,89) = rxt(k,127)*y(k,95) - mat(k,157) = (rxt(k,275)+rxt(k,280))*y(k,47) - mat(k,226) = (rxt(k,268)+rxt(k,274)+rxt(k,279))*y(k,47) + rxt(k,178)*y(k,95) - mat(k,432) = rxt(k,114)*y(k,38) + rxt(k,121)*y(k,95) - mat(k,667) = rxt(k,236)*y(k,16) + rxt(k,239)*y(k,21) + rxt(k,119)*y(k,39) & - + rxt(k,120)*y(k,41) + rxt(k,204)*y(k,43) + rxt(k,175)*y(k,47) & - + rxt(k,151)*y(k,49) + rxt(k,127)*y(k,50) + rxt(k,178)*y(k,52) & - + rxt(k,121)*y(k,86) + 2.000_r8*rxt(k,124)*y(k,95) + 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,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,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,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,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,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,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,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,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 subroutine nlnmat_finit( avec_len, mat, lmat, dti ) @@ -836,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) @@ -851,300 +874,321 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) 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) + mat(k, 92) = lmat(k, 92) + mat(k, 93) = lmat(k, 93) + mat(k, 94) = mat(k, 94) + lmat(k, 94) + mat(k, 95) = lmat(k, 95) + mat(k, 96) = lmat(k, 96) mat(k, 97) = mat(k, 97) + lmat(k, 97) - mat(k, 102) = mat(k, 102) + lmat(k, 102) - mat(k, 106) = mat(k, 106) + lmat(k, 106) - mat(k, 107) = lmat(k, 107) + mat(k, 98) = lmat(k, 98) + 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) = mat(k, 110) + lmat(k, 110) mat(k, 111) = mat(k, 111) + lmat(k, 111) - mat(k, 112) = lmat(k, 112) - mat(k, 114) = mat(k, 114) + lmat(k, 114) - mat(k, 118) = mat(k, 118) + lmat(k, 118) - mat(k, 122) = mat(k, 122) + lmat(k, 122) - mat(k, 132) = mat(k, 132) + lmat(k, 132) - mat(k, 139) = lmat(k, 139) - mat(k, 140) = mat(k, 140) + lmat(k, 140) - mat(k, 141) = mat(k, 141) + lmat(k, 141) - mat(k, 142) = lmat(k, 142) - mat(k, 143) = lmat(k, 143) - mat(k, 150) = mat(k, 150) + lmat(k, 150) - mat(k, 152) = lmat(k, 152) - mat(k, 155) = mat(k, 155) + lmat(k, 155) - mat(k, 158) = mat(k, 158) + lmat(k, 158) - mat(k, 159) = mat(k, 159) + lmat(k, 159) - mat(k, 162) = lmat(k, 162) + mat(k, 115) = mat(k, 115) + lmat(k, 115) + 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, 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, 168) = mat(k, 168) + lmat(k, 168) + 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, 176) = mat(k, 176) + lmat(k, 176) - mat(k, 188) = mat(k, 188) + lmat(k, 188) - mat(k, 197) = lmat(k, 197) - mat(k, 201) = lmat(k, 201) - mat(k, 202) = mat(k, 202) + lmat(k, 202) - mat(k, 211) = mat(k, 211) + lmat(k, 211) - mat(k, 212) = mat(k, 212) + lmat(k, 212) - mat(k, 213) = mat(k, 213) + lmat(k, 213) - mat(k, 220) = mat(k, 220) + lmat(k, 220) - mat(k, 222) = mat(k, 222) + lmat(k, 222) - mat(k, 224) = mat(k, 224) + lmat(k, 224) - mat(k, 228) = mat(k, 228) + lmat(k, 228) - mat(k, 229) = lmat(k, 229) - mat(k, 232) = lmat(k, 232) - mat(k, 235) = mat(k, 235) + lmat(k, 235) - mat(k, 236) = mat(k, 236) + lmat(k, 236) - mat(k, 237) = mat(k, 237) + lmat(k, 237) - mat(k, 239) = mat(k, 239) + lmat(k, 239) - mat(k, 240) = mat(k, 240) + lmat(k, 240) - mat(k, 241) = lmat(k, 241) - mat(k, 242) = mat(k, 242) + lmat(k, 242) - mat(k, 248) = mat(k, 248) + lmat(k, 248) - mat(k, 252) = lmat(k, 252) + mat(k, 178) = mat(k, 178) + lmat(k, 178) + mat(k, 186) = lmat(k, 186) + mat(k, 187) = lmat(k, 187) + mat(k, 189) = mat(k, 189) + lmat(k, 189) + mat(k, 190) = mat(k, 190) + lmat(k, 190) + mat(k, 193) = lmat(k, 193) + mat(k, 199) = mat(k, 199) + lmat(k, 199) + mat(k, 200) = mat(k, 200) + lmat(k, 200) + mat(k, 207) = mat(k, 207) + lmat(k, 207) + mat(k, 215) = mat(k, 215) + lmat(k, 215) + mat(k, 229) = mat(k, 229) + lmat(k, 229) + mat(k, 239) = lmat(k, 239) + mat(k, 242) = lmat(k, 242) + mat(k, 244) = mat(k, 244) + lmat(k, 244) mat(k, 254) = mat(k, 254) + lmat(k, 254) + mat(k, 255) = lmat(k, 255) mat(k, 257) = lmat(k, 257) - mat(k, 259) = mat(k, 259) + lmat(k, 259) - mat(k, 271) = mat(k, 271) + lmat(k, 271) - mat(k, 273) = mat(k, 273) + lmat(k, 273) - mat(k, 287) = mat(k, 287) + lmat(k, 287) - mat(k, 288) = mat(k, 288) + lmat(k, 288) - mat(k, 292) = mat(k, 292) + lmat(k, 292) - mat(k, 307) = mat(k, 307) + lmat(k, 307) - mat(k, 320) = mat(k, 320) + lmat(k, 320) - mat(k, 337) = mat(k, 337) + lmat(k, 337) - mat(k, 342) = mat(k, 342) + lmat(k, 342) - mat(k, 346) = mat(k, 346) + lmat(k, 346) - mat(k, 349) = mat(k, 349) + lmat(k, 349) - mat(k, 352) = mat(k, 352) + lmat(k, 352) - mat(k, 355) = mat(k, 355) + lmat(k, 355) - mat(k, 358) = mat(k, 358) + lmat(k, 358) + mat(k, 261) = mat(k, 261) + lmat(k, 261) + mat(k, 262) = mat(k, 262) + lmat(k, 262) + 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) = lmat(k, 267) + mat(k, 269) = mat(k, 269) + lmat(k, 269) + mat(k, 274) = mat(k, 274) + lmat(k, 274) + 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) + mat(k, 299) = mat(k, 299) + lmat(k, 299) + mat(k, 310) = mat(k, 310) + lmat(k, 310) + mat(k, 327) = mat(k, 327) + lmat(k, 327) + mat(k, 329) = mat(k, 329) + lmat(k, 329) + mat(k, 333) = mat(k, 333) + lmat(k, 333) + mat(k, 347) = mat(k, 347) + lmat(k, 347) mat(k, 364) = mat(k, 364) + lmat(k, 364) - mat(k, 365) = lmat(k, 365) - mat(k, 366) = lmat(k, 366) - mat(k, 368) = mat(k, 368) + lmat(k, 368) - mat(k, 370) = mat(k, 370) + lmat(k, 370) - mat(k, 391) = mat(k, 391) + lmat(k, 391) + 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, 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, 406) = mat(k, 406) + lmat(k, 406) mat(k, 410) = mat(k, 410) + lmat(k, 410) + mat(k, 416) = lmat(k, 416) + mat(k, 417) = mat(k, 417) + lmat(k, 417) + mat(k, 418) = lmat(k, 418) + mat(k, 420) = mat(k, 420) + lmat(k, 420) mat(k, 421) = mat(k, 421) + lmat(k, 421) - mat(k, 440) = mat(k, 440) + lmat(k, 440) + mat(k, 441) = mat(k, 441) + lmat(k, 441) mat(k, 450) = mat(k, 450) + lmat(k, 450) - mat(k, 453) = mat(k, 453) + lmat(k, 453) - mat(k, 458) = mat(k, 458) + lmat(k, 458) - mat(k, 459) = mat(k, 459) + lmat(k, 459) - mat(k, 475) = mat(k, 475) + lmat(k, 475) - mat(k, 479) = mat(k, 479) + lmat(k, 479) - mat(k, 487) = mat(k, 487) + lmat(k, 487) - mat(k, 489) = mat(k, 489) + lmat(k, 489) - mat(k, 492) = mat(k, 492) + lmat(k, 492) - mat(k, 502) = mat(k, 502) + lmat(k, 502) - mat(k, 505) = lmat(k, 505) - mat(k, 512) = mat(k, 512) + lmat(k, 512) - mat(k, 513) = lmat(k, 513) + 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, 507) = lmat(k, 507) + mat(k, 508) = mat(k, 508) + lmat(k, 508) + 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, 531) = mat(k, 531) + lmat(k, 531) - mat(k, 533) = mat(k, 533) + lmat(k, 533) - mat(k, 535) = mat(k, 535) + lmat(k, 535) + mat(k, 526) = mat(k, 526) + lmat(k, 526) + mat(k, 527) = mat(k, 527) + lmat(k, 527) 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, 544) = mat(k, 544) + lmat(k, 544) - mat(k, 546) = lmat(k, 546) - mat(k, 549) = lmat(k, 549) - mat(k, 550) = lmat(k, 550) + mat(k, 542) = mat(k, 542) + lmat(k, 542) + mat(k, 543) = mat(k, 543) + lmat(k, 543) + 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, 555) = mat(k, 555) + lmat(k, 555) + 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, 587) = mat(k, 587) + lmat(k, 587) - mat(k, 589) = lmat(k, 589) - mat(k, 602) = mat(k, 602) + lmat(k, 602) - mat(k, 604) = mat(k, 604) + lmat(k, 604) - mat(k, 607) = mat(k, 607) + lmat(k, 607) - mat(k, 609) = mat(k, 609) + lmat(k, 609) - mat(k, 624) = mat(k, 624) + lmat(k, 624) - mat(k, 626) = mat(k, 626) + lmat(k, 626) + 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, 629) = mat(k, 629) + lmat(k, 629) - mat(k, 631) = lmat(k, 631) - mat(k, 632) = lmat(k, 632) - mat(k, 651) = mat(k, 651) + lmat(k, 651) + 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, 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, 667) = mat(k, 667) + lmat(k, 667) - mat(k, 678) = mat(k, 678) + lmat(k, 678) - mat(k, 682) = lmat(k, 682) + 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, 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, 716) = lmat(k, 716) - mat(k, 727) = mat(k, 727) + lmat(k, 727) - mat(k, 728) = lmat(k, 728) - mat(k, 731) = mat(k, 731) + lmat(k, 731) + mat(k, 715) = mat(k, 715) + lmat(k, 715) + mat(k, 718) = mat(k, 718) + lmat(k, 718) + mat(k, 721) = mat(k, 721) + lmat(k, 721) mat(k, 732) = lmat(k, 732) - mat(k, 733) = mat(k, 733) + lmat(k, 733) - mat(k, 128) = 0._r8 - mat(k, 129) = 0._r8 - mat(k, 144) = 0._r8 - mat(k, 145) = 0._r8 + mat(k, 738) = mat(k, 738) + lmat(k, 738) + mat(k, 747) = lmat(k, 747) + mat(k, 754) = lmat(k, 754) + mat(k, 756) = mat(k, 756) + lmat(k, 756) + mat(k, 757) = lmat(k, 757) + 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, 153) = 0._r8 - mat(k, 179) = 0._r8 - mat(k, 180) = 0._r8 mat(k, 181) = 0._r8 - mat(k, 185) = 0._r8 - mat(k, 190) = 0._r8 + mat(k, 182) = 0._r8 mat(k, 191) = 0._r8 - mat(k, 192) = 0._r8 mat(k, 194) = 0._r8 mat(k, 195) = 0._r8 mat(k, 198) = 0._r8 - mat(k, 204) = 0._r8 - mat(k, 207) = 0._r8 - mat(k, 233) = 0._r8 - mat(k, 245) = 0._r8 - mat(k, 249) = 0._r8 + mat(k, 202) = 0._r8 + mat(k, 212) = 0._r8 + mat(k, 218) = 0._r8 + mat(k, 219) = 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, 237) = 0._r8 + mat(k, 240) = 0._r8 + mat(k, 243) = 0._r8 + mat(k, 246) = 0._r8 mat(k, 250) = 0._r8 - mat(k, 253) = 0._r8 - mat(k, 264) = 0._r8 - mat(k, 272) = 0._r8 - mat(k, 289) = 0._r8 - mat(k, 290) = 0._r8 - mat(k, 291) = 0._r8 - mat(k, 293) = 0._r8 - mat(k, 294) = 0._r8 - mat(k, 295) = 0._r8 + mat(k, 259) = 0._r8 + mat(k, 271) = 0._r8 + mat(k, 275) = 0._r8 + mat(k, 276) = 0._r8 + mat(k, 279) = 0._r8 + mat(k, 288) = 0._r8 mat(k, 298) = 0._r8 - mat(k, 299) = 0._r8 - mat(k, 300) = 0._r8 - mat(k, 306) = 0._r8 - mat(k, 311) = 0._r8 + mat(k, 309) = 0._r8 mat(k, 312) = 0._r8 + mat(k, 314) = 0._r8 mat(k, 315) = 0._r8 mat(k, 316) = 0._r8 - mat(k, 317) = 0._r8 - mat(k, 319) = 0._r8 - mat(k, 327) = 0._r8 - mat(k, 329) = 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, 344) = 0._r8 - mat(k, 347) = 0._r8 - mat(k, 350) = 0._r8 + mat(k, 346) = 0._r8 mat(k, 351) = 0._r8 mat(k, 353) = 0._r8 mat(k, 356) = 0._r8 - mat(k, 362) = 0._r8 - mat(k, 369) = 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, 374) = 0._r8 mat(k, 375) = 0._r8 + mat(k, 376) = 0._r8 + mat(k, 378) = 0._r8 mat(k, 380) = 0._r8 mat(k, 381) = 0._r8 - mat(k, 387) = 0._r8 - mat(k, 389) = 0._r8 - mat(k, 390) = 0._r8 - mat(k, 392) = 0._r8 - mat(k, 393) = 0._r8 - mat(k, 399) = 0._r8 - mat(k, 401) = 0._r8 - mat(k, 402) = 0._r8 - mat(k, 404) = 0._r8 + mat(k, 383) = 0._r8 + mat(k, 400) = 0._r8 mat(k, 407) = 0._r8 - mat(k, 424) = 0._r8 - mat(k, 426) = 0._r8 - mat(k, 436) = 0._r8 - mat(k, 442) = 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, 433) = 0._r8 + mat(k, 437) = 0._r8 mat(k, 443) = 0._r8 mat(k, 444) = 0._r8 mat(k, 445) = 0._r8 - mat(k, 447) = 0._r8 - mat(k, 452) = 0._r8 + mat(k, 446) = 0._r8 + mat(k, 449) = 0._r8 + mat(k, 453) = 0._r8 mat(k, 454) = 0._r8 - mat(k, 455) = 0._r8 mat(k, 460) = 0._r8 - mat(k, 468) = 0._r8 - mat(k, 470) = 0._r8 - mat(k, 474) = 0._r8 + mat(k, 461) = 0._r8 + mat(k, 471) = 0._r8 + mat(k, 478) = 0._r8 mat(k, 482) = 0._r8 - mat(k, 483) = 0._r8 - mat(k, 485) = 0._r8 - mat(k, 488) = 0._r8 - mat(k, 495) = 0._r8 - mat(k, 498) = 0._r8 - mat(k, 500) = 0._r8 - mat(k, 501) = 0._r8 - mat(k, 503) = 0._r8 + mat(k, 484) = 0._r8 + mat(k, 489) = 0._r8 + mat(k, 496) = 0._r8 mat(k, 504) = 0._r8 - mat(k, 506) = 0._r8 - mat(k, 507) = 0._r8 - mat(k, 515) = 0._r8 - mat(k, 526) = 0._r8 - mat(k, 527) = 0._r8 - mat(k, 532) = 0._r8 - mat(k, 538) = 0._r8 - mat(k, 543) = 0._r8 - mat(k, 547) = 0._r8 - mat(k, 560) = 0._r8 + mat(k, 521) = 0._r8 + mat(k, 523) = 0._r8 + mat(k, 524) = 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, 563) = 0._r8 - mat(k, 564) = 0._r8 - mat(k, 565) = 0._r8 + mat(k, 566) = 0._r8 mat(k, 567) = 0._r8 mat(k, 568) = 0._r8 - mat(k, 569) = 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, 594) = 0._r8 - mat(k, 595) = 0._r8 + mat(k, 578) = 0._r8 + mat(k, 579) = 0._r8 + mat(k, 580) = 0._r8 + mat(k, 585) = 0._r8 + mat(k, 587) = 0._r8 mat(k, 596) = 0._r8 - mat(k, 598) = 0._r8 - mat(k, 599) = 0._r8 - mat(k, 600) = 0._r8 - mat(k, 603) = 0._r8 - mat(k, 606) = 0._r8 - mat(k, 608) = 0._r8 - mat(k, 622) = 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, 624) = 0._r8 mat(k, 625) = 0._r8 - mat(k, 630) = 0._r8 - mat(k, 641) = 0._r8 + mat(k, 629) = 0._r8 + mat(k, 632) = 0._r8 + mat(k, 643) = 0._r8 mat(k, 661) = 0._r8 - mat(k, 677) = 0._r8 - mat(k, 680) = 0._r8 - mat(k, 686) = 0._r8 - mat(k, 688) = 0._r8 - mat(k, 693) = 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, 701) = 0._r8 mat(k, 702) = 0._r8 - mat(k, 708) = 0._r8 - mat(k, 713) = 0._r8 + mat(k, 703) = 0._r8 + mat(k, 709) = 0._r8 + mat(k, 710) = 0._r8 mat(k, 714) = 0._r8 - mat(k, 715) = 0._r8 + mat(k, 716) = 0._r8 mat(k, 717) = 0._r8 - mat(k, 718) = 0._r8 - mat(k, 719) = 0._r8 - mat(k, 720) = 0._r8 - mat(k, 721) = 0._r8 - mat(k, 722) = 0._r8 - mat(k, 723) = 0._r8 mat(k, 724) = 0._r8 - mat(k, 725) = 0._r8 - mat(k, 726) = 0._r8 - mat(k, 729) = 0._r8 + mat(k, 728) = 0._r8 mat(k, 730) = 0._r8 + mat(k, 731) = 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 + mat(k, 748) = 0._r8 + mat(k, 749) = 0._r8 + mat(k, 750) = 0._r8 + mat(k, 751) = 0._r8 + mat(k, 752) = 0._r8 + mat(k, 753) = 0._r8 + mat(k, 755) = 0._r8 + mat(k, 758) = 0._r8 + mat(k, 759) = 0._r8 + mat(k, 761) = 0._r8 + mat(k, 762) = 0._r8 + mat(k, 763) = 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) @@ -1183,43 +1227,45 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 83) = mat(k, 83) - dti(k) mat(k, 90) = mat(k, 90) - dti(k) mat(k, 97) = mat(k, 97) - dti(k) - mat(k, 102) = mat(k, 102) - dti(k) - mat(k, 106) = mat(k, 106) - dti(k) - mat(k, 114) = mat(k, 114) - dti(k) - mat(k, 122) = mat(k, 122) - dti(k) - mat(k, 132) = mat(k, 132) - dti(k) - mat(k, 140) = mat(k, 140) - dti(k) - mat(k, 150) = mat(k, 150) - dti(k) - mat(k, 159) = mat(k, 159) - dti(k) - mat(k, 167) = mat(k, 167) - dti(k) - mat(k, 176) = mat(k, 176) - dti(k) - mat(k, 188) = mat(k, 188) - dti(k) - mat(k, 202) = mat(k, 202) - dti(k) - mat(k, 211) = mat(k, 211) - dti(k) - mat(k, 220) = mat(k, 220) - dti(k) - mat(k, 228) = mat(k, 228) - dti(k) - mat(k, 236) = mat(k, 236) - dti(k) - mat(k, 248) = mat(k, 248) - dti(k) - mat(k, 259) = mat(k, 259) - dti(k) - mat(k, 273) = mat(k, 273) - dti(k) - mat(k, 288) = mat(k, 288) - dti(k) - mat(k, 307) = mat(k, 307) - dti(k) - mat(k, 320) = mat(k, 320) - dti(k) - mat(k, 342) = mat(k, 342) - dti(k) - mat(k, 368) = mat(k, 368) - dti(k) + mat(k, 103) = mat(k, 103) - dti(k) + mat(k, 111) = mat(k, 111) - dti(k) + mat(k, 115) = mat(k, 115) - 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, 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) + mat(k, 215) = mat(k, 215) - dti(k) + mat(k, 229) = mat(k, 229) - dti(k) + mat(k, 244) = mat(k, 244) - dti(k) + mat(k, 254) = mat(k, 254) - dti(k) + mat(k, 262) = mat(k, 262) - dti(k) + mat(k, 274) = mat(k, 274) - dti(k) + mat(k, 285) = mat(k, 285) - dti(k) + mat(k, 299) = mat(k, 299) - dti(k) + mat(k, 310) = mat(k, 310) - dti(k) + mat(k, 329) = mat(k, 329) - dti(k) + mat(k, 347) = mat(k, 347) - dti(k) + mat(k, 369) = mat(k, 369) - dti(k) mat(k, 395) = mat(k, 395) - dti(k) mat(k, 421) = mat(k, 421) - dti(k) mat(k, 450) = mat(k, 450) - dti(k) - mat(k, 479) = mat(k, 479) - dti(k) - mat(k, 502) = mat(k, 502) - dti(k) - mat(k, 525) = mat(k, 525) - dti(k) - mat(k, 551) = mat(k, 551) - dti(k) + mat(k, 494) = mat(k, 494) - 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, 604) = mat(k, 604) - 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, 707) = mat(k, 707) - dti(k) - mat(k, 733) = mat(k, 733) - 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 end subroutine nlnmat_finit subroutine nlnmat( avec_len, mat, y, rxt, lmat, dti ) diff --git a/src/chemistry/pp_waccm_ma_mam4/mo_phtadj.F90 b/src/chemistry/pp_waccm_ma_mam4/mo_phtadj.F90 index de31036d5e..f75938e173 100644 --- a/src/chemistry/pp_waccm_ma_mam4/mo_phtadj.F90 +++ b/src/chemistry/pp_waccm_ma_mam4/mo_phtadj.F90 @@ -20,7 +20,6 @@ subroutine phtadj( p_rate, inv, m, ncol, nlev ) real(r8) :: im(ncol,nlev) do k = 1,nlev im(:ncol,k) = 1._r8 / m(:ncol,k) - p_rate(:,k, 62) = p_rate(:,k, 62) * inv(:,k, 2) * im(:,k) p_rate(:,k, 63) = p_rate(:,k, 63) * inv(:,k, 2) * im(:,k) p_rate(:,k, 64) = p_rate(:,k, 64) * inv(:,k, 2) * im(:,k) p_rate(:,k, 65) = p_rate(:,k, 65) * inv(:,k, 2) * im(:,k) @@ -28,6 +27,7 @@ subroutine phtadj( p_rate, inv, m, ncol, nlev ) p_rate(:,k, 67) = p_rate(:,k, 67) * inv(:,k, 2) * im(:,k) p_rate(:,k, 68) = p_rate(:,k, 68) * inv(:,k, 2) * im(:,k) p_rate(:,k, 69) = p_rate(:,k, 69) * inv(:,k, 2) * im(:,k) + p_rate(:,k, 70) = p_rate(:,k, 70) * inv(:,k, 2) * im(:,k) end do end subroutine phtadj end module mo_phtadj 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 b63db150d3..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,61 +27,63 @@ 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,179)* y(k,91) + 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,180)* y(k,91) + 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,206)* y(k,91) + 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,181)* y(k,91) + 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,182)* y(k,91) + 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,183)* y(k,91) + 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,184)* y(k,91) + 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,185)* y(k,91) + 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,217)* y(k,84) +rxt(k,229)* y(k,91) +rxt(k,218)* y(k,95) & - + 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,219)* y(k,84) +rxt(k,230)* y(k,91) +rxt(k,220)* y(k,95) & - + 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,221)* y(k,95) + 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,222)* y(k,84) +rxt(k,223)* y(k,95) + 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,211)* y(k,37) +rxt(k,155)* y(k,84) + (rxt(k,242) + & - rxt(k,243) +rxt(k,244))* y(k,91) +rxt(k,240)* y(k,95) + rxt(k,23) & - + rxt(k,24) + het_rates(k,22))* y(k,22) + 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,23))* y(k,23) prod(k,14) = 0._r8 - loss(k,15) = (rxt(k,224)* y(k,84) +rxt(k,207)* y(k,91) +rxt(k,225)* y(k,95) & - + 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,296)* y(k,96) + rxt(k,25) + rxt(k,60) + het_rates(k,30)) & - * y(k,30) - prod(k,17) =.440_r8*rxt(k,24)*y(k,22) - loss(k,18) = (rxt(k,208)* y(k,91) + 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,231)* y(k,91) +rxt(k,226)* y(k,95) + rxt(k,52) & - + het_rates(k,44))* y(k,44) + loss(k,19) = (rxt(k,232)* y(k,92) +rxt(k,227)* y(k,96) + rxt(k,52) & + + het_rates(k,46))* y(k,46) prod(k,19) = 0._r8 - loss(k,20) = (rxt(k,232)* y(k,91) +rxt(k,227)* y(k,95) + rxt(k,53) & - + het_rates(k,45))* y(k,45) + loss(k,20) = (rxt(k,233)* y(k,92) +rxt(k,228)* y(k,96) + rxt(k,53) & + + het_rates(k,47))* y(k,47) prod(k,20) = 0._r8 - loss(k,21) = (rxt(k,233)* y(k,91) +rxt(k,228)* y(k,95) + rxt(k,54) & - + het_rates(k,46))* y(k,46) + loss(k,21) = (rxt(k,234)* y(k,92) +rxt(k,229)* y(k,96) + rxt(k,54) & + + het_rates(k,48))* y(k,48) prod(k,21) = 0._r8 - loss(k,22) = ((rxt(k,146) +rxt(k,147))* y(k,91) + rxt(k,12) & - + het_rates(k,54))* y(k,54) + loss(k,22) = ((rxt(k,147) +rxt(k,148))* y(k,92) + rxt(k,12) & + + het_rates(k,56))* y(k,56) prod(k,22) = 0._r8 + 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 subroutine imp_prod_loss( avec_len, prod, loss, y, & @@ -110,410 +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,275)*y(k,51) +rxt(k,280)*y(k,51))*y(k,47) & - +rxt(k,196)*y(k,26)*y(k,4) - loss(k,63) = (2._r8*rxt(k,193)* y(k,4) + (rxt(k,194) +rxt(k,195) +rxt(k,196)) & - * y(k,26) +rxt(k,198)* y(k,59) +rxt(k,199)* y(k,60) +rxt(k,201) & - * y(k,66) +rxt(k,250)* y(k,74) +rxt(k,197)* y(k,86) +rxt(k,202) & - * y(k,95) + rxt(k,27) + het_rates(k,4))* y(k,4) - prod(k,63) = (rxt(k,28) +rxt(k,200)*y(k,66))*y(k,5) +rxt(k,210)*y(k,91) & - *y(k,43) +rxt(k,205)*y(k,66)*y(k,51) +rxt(k,192)*y(k,83)*y(k,68) - loss(k,40) = (rxt(k,200)* y(k,66) + rxt(k,28) + rxt(k,29) + rxt(k,269) & - + rxt(k,272) + rxt(k,277) + het_rates(k,5))* y(k,5) - prod(k,40) =rxt(k,199)*y(k,60)*y(k,4) - loss(k,67) = (rxt(k,234)* y(k,61) +rxt(k,235)* y(k,66) +rxt(k,190)* y(k,83) & - +rxt(k,154)* y(k,84) +rxt(k,236)* y(k,95) + rxt(k,20) + rxt(k,21) & - + het_rates(k,16))* y(k,16) - prod(k,67) = (rxt(k,161)*y(k,26) +rxt(k,238)*y(k,59))*y(k,20) + (rxt(k,22) + & - .300_r8*rxt(k,239)*y(k,95))*y(k,21) + (rxt(k,243)*y(k,91) + & - rxt(k,244)*y(k,91))*y(k,22) - loss(k,60) = (rxt(k,161)* y(k,26) +rxt(k,238)* y(k,59) +rxt(k,237)* y(k,86) & - + het_rates(k,20))* y(k,20) - prod(k,60) = (rxt(k,155)*y(k,84) +rxt(k,211)*y(k,37) +rxt(k,240)*y(k,95) + & - rxt(k,242)*y(k,91))*y(k,22) +.700_r8*rxt(k,239)*y(k,95)*y(k,21) - loss(k,35) = (rxt(k,239)* y(k,95) + rxt(k,22) + het_rates(k,21))* y(k,21) - prod(k,35) =rxt(k,237)*y(k,86)*y(k,20) - loss(k,26) = ( + rxt(k,43) + het_rates(k,24))* y(k,24) - prod(k,26) = (rxt(k,268)*y(k,52) +rxt(k,273)*y(k,27) +rxt(k,274)*y(k,52) + & - rxt(k,278)*y(k,27) +rxt(k,279)*y(k,52) +rxt(k,283)*y(k,27))*y(k,47) & - +rxt(k,163)*y(k,26)*y(k,26) +rxt(k,167)*y(k,84)*y(k,27) - loss(k,21) = ( + rxt(k,44) + rxt(k,189) + het_rates(k,25))* y(k,25) - prod(k,21) =rxt(k,188)*y(k,26)*y(k,26) - loss(k,66) = ((rxt(k,194) +rxt(k,195) +rxt(k,196))* y(k,4) +rxt(k,161) & - * y(k,20) + 2._r8*(rxt(k,162) +rxt(k,163) +rxt(k,164) +rxt(k,188)) & - * y(k,26) +rxt(k,166)* y(k,59) +rxt(k,168)* y(k,60) +rxt(k,171) & - * y(k,66) +rxt(k,251)* y(k,74) +rxt(k,165)* y(k,86) + (rxt(k,172) + & - rxt(k,173))* y(k,95) + rxt(k,45) + het_rates(k,26))* y(k,26) - prod(k,66) = (rxt(k,176)*y(k,84) +rxt(k,177)*y(k,66) +rxt(k,178)*y(k,95)) & - *y(k,52) + (rxt(k,47) +rxt(k,169)*y(k,66))*y(k,27) + (rxt(k,59) + & - rxt(k,256)*y(k,74))*y(k,69) + (rxt(k,159)*y(k,86) + & - rxt(k,160)*y(k,68))*y(k,84) +2.000_r8*rxt(k,189)*y(k,25) & - +rxt(k,187)*y(k,91)*y(k,47) - loss(k,54) = ((rxt(k,273) +rxt(k,278) +rxt(k,283))* y(k,47) +rxt(k,169) & - * y(k,66) +rxt(k,167)* y(k,84) +rxt(k,170)* y(k,95) + rxt(k,46) & - + rxt(k,47) + rxt(k,271) + rxt(k,276) + rxt(k,282) & - + het_rates(k,27))* y(k,27) - prod(k,54) =rxt(k,168)*y(k,60)*y(k,26) - loss(k,39) = ((rxt(k,241) +rxt(k,245))* y(k,95) + het_rates(k,29))* y(k,29) - prod(k,39) = (rxt(k,20) +rxt(k,21) +rxt(k,154)*y(k,84) +rxt(k,190)*y(k,83) + & - rxt(k,234)*y(k,61) +rxt(k,235)*y(k,66) +rxt(k,236)*y(k,95))*y(k,16) & - + (rxt(k,87) +rxt(k,246)*y(k,66) +rxt(k,247)*y(k,95))*y(k,70) & - +rxt(k,222)*y(k,84)*y(k,19) +rxt(k,296)*y(k,96)*y(k,30) - loss(k,23) = (rxt(k,215)* y(k,91) + rxt(k,48) + het_rates(k,31))* y(k,31) - prod(k,23) = (rxt(k,180)*y(k,8) +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) +rxt(k,206)*y(k,9) +2.000_r8*rxt(k,208)*y(k,40) + & - rxt(k,232)*y(k,45) +rxt(k,233)*y(k,46))*y(k,91) & - + (rxt(k,227)*y(k,45) +rxt(k,228)*y(k,46))*y(k,95) - loss(k,27) = (rxt(k,216)* y(k,91) + rxt(k,49) + het_rates(k,32))* y(k,32) - prod(k,27) = (rxt(k,181)*y(k,10) +rxt(k,182)*y(k,11) +rxt(k,231)*y(k,44)) & - *y(k,91) +rxt(k,226)*y(k,95)*y(k,44) - loss(k,32) = (rxt(k,260)* y(k,61) + (rxt(k,261) +rxt(k,262))* y(k,95) & - + het_rates(k,33))* y(k,33) + 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,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,211)* y(k,22) +rxt(k,212)* y(k,39) +rxt(k,214)* y(k,49) & - +rxt(k,213)* y(k,97) + het_rates(k,37))* y(k,37) - prod(k,46) = (rxt(k,184)*y(k,13) +rxt(k,206)*y(k,9) + & - 2.000_r8*rxt(k,215)*y(k,31) +rxt(k,216)*y(k,32))*y(k,91) & - +2.000_r8*rxt(k,48)*y(k,31) +rxt(k,49)*y(k,32) +rxt(k,56)*y(k,48) - loss(k,57) = (rxt(k,115)* y(k,67) +rxt(k,118)* y(k,68) + (rxt(k,112) + & - rxt(k,113) +rxt(k,114))* y(k,86) + het_rates(k,38))* y(k,38) - prod(k,57) = (rxt(k,119)*y(k,39) +rxt(k,122)*y(k,66) +rxt(k,142)*y(k,53) + & - rxt(k,236)*y(k,16) +rxt(k,245)*y(k,29) +rxt(k,247)*y(k,70) + & - rxt(k,252)*y(k,73) +rxt(k,257)*y(k,74))*y(k,95) & - + (rxt(k,93)*y(k,91) +rxt(k,110)*y(k,66) +rxt(k,156)*y(k,84) + & - rxt(k,212)*y(k,37))*y(k,39) + (rxt(k,243)*y(k,22) + & - rxt(k,187)*y(k,47) +rxt(k,210)*y(k,43))*y(k,91) & - + (2.000_r8*rxt(k,2) +rxt(k,3))*y(k,97) +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,212)* y(k,37) +rxt(k,110)* y(k,66) +rxt(k,156)* y(k,84) & - +rxt(k,93)* y(k,91) +rxt(k,119)* y(k,95) + het_rates(k,39))* y(k,39) - prod(k,70) =rxt(k,21)*y(k,16) +rxt(k,244)*y(k,91)*y(k,22) +rxt(k,112)*y(k,86) & - *y(k,38) +rxt(k,1)*y(k,97) - loss(k,41) = (rxt(k,111)* y(k,66) +rxt(k,157)* y(k,84) +rxt(k,120)* y(k,95) & - + rxt(k,4) + het_rates(k,41))* y(k,41) - prod(k,41) = (.500_r8*rxt(k,263) +rxt(k,126)*y(k,86))*y(k,86) & - +rxt(k,125)*y(k,95)*y(k,95) - loss(k,22) = ( + rxt(k,86) + het_rates(k,42))* y(k,42) - prod(k,22) =rxt(k,259)*y(k,97)*y(k,76) - loss(k,51) = (rxt(k,203)* y(k,66) + (rxt(k,209) +rxt(k,210))* y(k,91) & - +rxt(k,204)* y(k,95) + rxt(k,51) + het_rates(k,43))* y(k,43) - prod(k,51) = (rxt(k,190)*y(k,16) +rxt(k,191)*y(k,86))*y(k,83) - loss(k,58) = ((rxt(k,273) +rxt(k,278) +rxt(k,283))* y(k,27) + (rxt(k,275) + & - rxt(k,280))* y(k,51) + (rxt(k,268) +rxt(k,274) +rxt(k,279))* y(k,52) & - +rxt(k,174)* y(k,66) + (rxt(k,186) +rxt(k,187))* y(k,91) +rxt(k,175) & - * y(k,95) + rxt(k,55) + het_rates(k,47))* y(k,47) - prod(k,58) = (rxt(k,155)*y(k,22) +rxt(k,217)*y(k,15) +rxt(k,219)*y(k,17) + & - 2.000_r8*rxt(k,222)*y(k,19) +rxt(k,224)*y(k,23) +rxt(k,154)*y(k,16) + & - rxt(k,156)*y(k,39) +rxt(k,157)*y(k,41) +rxt(k,158)*y(k,86) + & - rxt(k,176)*y(k,52))*y(k,84) +rxt(k,173)*y(k,95)*y(k,26) - loss(k,28) = ( + rxt(k,56) + het_rates(k,48))* y(k,48) - prod(k,28) = (rxt(k,211)*y(k,22) +rxt(k,212)*y(k,39) +rxt(k,213)*y(k,97) + & - rxt(k,214)*y(k,49))*y(k,37) - loss(k,55) = (rxt(k,214)* y(k,37) +rxt(k,151)* y(k,95) + rxt(k,9) & - + het_rates(k,49))* y(k,49) - prod(k,55) = (rxt(k,271) +rxt(k,276) +rxt(k,282) +rxt(k,273)*y(k,47) + & - rxt(k,278)*y(k,47) +rxt(k,283)*y(k,47))*y(k,27) & - + (2.000_r8*rxt(k,264) +2.000_r8*rxt(k,267) +2.000_r8*rxt(k,270) + & - 2.000_r8*rxt(k,281))*y(k,55) + (rxt(k,269) +rxt(k,272) +rxt(k,277)) & - *y(k,5) + (rxt(k,266) +rxt(k,234)*y(k,16) +rxt(k,260)*y(k,33)) & - *y(k,61) + (.500_r8*rxt(k,265) +rxt(k,150)*y(k,95))*y(k,60) - loss(k,36) = (rxt(k,127)* y(k,95) + rxt(k,10) + rxt(k,11) + rxt(k,152) & - + het_rates(k,50))* y(k,50) - prod(k,36) =rxt(k,148)*y(k,86)*y(k,60) - loss(k,45) = ((rxt(k,275) +rxt(k,280))* y(k,47) +rxt(k,205)* y(k,66) & - + rxt(k,57) + het_rates(k,51))* y(k,51) - prod(k,45) = (rxt(k,269) +rxt(k,272) +rxt(k,277))*y(k,5) +rxt(k,197)*y(k,86) & - *y(k,4) - loss(k,52) = ((rxt(k,268) +rxt(k,274) +rxt(k,279))* y(k,47) +rxt(k,177) & - * y(k,66) +rxt(k,176)* y(k,84) +rxt(k,178)* y(k,95) + rxt(k,58) & + 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,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,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,52))* y(k,52) - prod(k,52) = (rxt(k,271) +rxt(k,276) +rxt(k,282) +rxt(k,170)*y(k,95))*y(k,27) & - +rxt(k,165)*y(k,86)*y(k,26) - loss(k,50) = (rxt(k,130)* y(k,59) + (rxt(k,131) +rxt(k,132) +rxt(k,133)) & - * y(k,60) +rxt(k,134)* y(k,67) +rxt(k,293)* y(k,94) +rxt(k,142) & - * y(k,95) + rxt(k,61) + het_rates(k,53))* y(k,53) - prod(k,50) = (rxt(k,128)*y(k,87) +rxt(k,290)*y(k,90))*y(k,66) & - + (.200_r8*rxt(k,284)*y(k,89) +1.100_r8*rxt(k,286)*y(k,88))*y(k,85) & - +rxt(k,15)*y(k,59) +rxt(k,291)*y(k,90)*y(k,67) +rxt(k,297)*y(k,96) - loss(k,31) = ( + rxt(k,13) + rxt(k,14) + rxt(k,153) + rxt(k,264) + rxt(k,267) & - + rxt(k,270) + rxt(k,281) + het_rates(k,55))* y(k,55) - prod(k,31) =rxt(k,149)*y(k,61)*y(k,60) - loss(k,6) = ( + het_rates(k,56))* y(k,56) + 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,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,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,68) = (rxt(k,198)* y(k,4) +rxt(k,238)* y(k,20) +rxt(k,166)* y(k,26) & - +rxt(k,130)* y(k,53) +rxt(k,139)* y(k,61) +rxt(k,145)* y(k,66) & - +rxt(k,144)* y(k,68) +rxt(k,143)* y(k,86) +rxt(k,295)* y(k,94) & - + rxt(k,15) + rxt(k,16) + het_rates(k,59))* y(k,59) - prod(k,68) = (rxt(k,17) +.500_r8*rxt(k,265) +2.000_r8*rxt(k,132)*y(k,53) + & - rxt(k,135)*y(k,66) +rxt(k,253)*y(k,74))*y(k,60) & - + (rxt(k,134)*y(k,67) +rxt(k,142)*y(k,95))*y(k,53) & - +2.000_r8*rxt(k,146)*y(k,91)*y(k,54) +rxt(k,14)*y(k,55) +rxt(k,19) & - *y(k,61) +rxt(k,129)*y(k,87)*y(k,67) +rxt(k,294)*y(k,94) - loss(k,65) = (rxt(k,199)* y(k,4) +rxt(k,168)* y(k,26) + (rxt(k,131) + & - rxt(k,132) +rxt(k,133))* y(k,53) +rxt(k,149)* y(k,61) + (rxt(k,135) + & - rxt(k,137))* y(k,66) +rxt(k,136)* y(k,68) +rxt(k,253)* y(k,74) & - +rxt(k,148)* y(k,86) +rxt(k,150)* y(k,95) + rxt(k,17) + rxt(k,265) & - + het_rates(k,60))* y(k,60) - prod(k,65) = (2.000_r8*rxt(k,139)*y(k,61) +rxt(k,143)*y(k,86) + & - rxt(k,144)*y(k,68) +rxt(k,145)*y(k,66) +rxt(k,166)*y(k,26) + & - rxt(k,198)*y(k,4) +rxt(k,238)*y(k,20))*y(k,59) + (rxt(k,18) + & - rxt(k,138)*y(k,86) +rxt(k,140)*y(k,66) +rxt(k,141)*y(k,95))*y(k,61) & - + (rxt(k,11) +rxt(k,152) +rxt(k,127)*y(k,95))*y(k,50) + (rxt(k,13) + & - rxt(k,153))*y(k,55) +rxt(k,28)*y(k,5) +rxt(k,47)*y(k,27) +rxt(k,9) & - *y(k,49) - loss(k,61) = (rxt(k,234)* y(k,16) +rxt(k,260)* y(k,33) +rxt(k,139)* y(k,59) & - +rxt(k,149)* y(k,60) +rxt(k,140)* y(k,66) +rxt(k,138)* y(k,86) & - +rxt(k,141)* y(k,95) + rxt(k,18) + rxt(k,19) + rxt(k,266) & - + het_rates(k,61))* y(k,61) - prod(k,61) = (rxt(k,46) +rxt(k,167)*y(k,84) +rxt(k,169)*y(k,66) + & - rxt(k,170)*y(k,95))*y(k,27) + (rxt(k,13) +rxt(k,14) +rxt(k,153)) & - *y(k,55) + (rxt(k,29) +rxt(k,200)*y(k,66))*y(k,5) & - + (rxt(k,151)*y(k,95) +rxt(k,214)*y(k,37))*y(k,49) & - + (rxt(k,136)*y(k,68) +rxt(k,137)*y(k,66))*y(k,60) +rxt(k,10) & - *y(k,50) - loss(k,9) = ( + het_rates(k,62))* y(k,62) + 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,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,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,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,74) = (rxt(k,201)* y(k,4) +rxt(k,200)* y(k,5) +rxt(k,235)* y(k,16) & - +rxt(k,171)* y(k,26) +rxt(k,169)* y(k,27) +rxt(k,110)* y(k,39) & - +rxt(k,111)* y(k,41) +rxt(k,203)* y(k,43) +rxt(k,174)* y(k,47) & - +rxt(k,205)* y(k,51) +rxt(k,177)* y(k,52) +rxt(k,145)* y(k,59) & - + (rxt(k,135) +rxt(k,137))* y(k,60) +rxt(k,140)* y(k,61) & - + 2._r8*rxt(k,108)* y(k,66) +rxt(k,109)* y(k,67) +rxt(k,107) & - * y(k,68) +rxt(k,246)* y(k,70) +rxt(k,116)* y(k,86) + (rxt(k,288) + & - rxt(k,289))* y(k,88) +rxt(k,290)* y(k,90) +rxt(k,122)* y(k,95) & - + rxt(k,70) + rxt(k,71) + rxt(k,72) + rxt(k,73) + rxt(k,74) & - + rxt(k,75) + het_rates(k,66))* y(k,66) - prod(k,74) = (2.000_r8*rxt(k,5) +rxt(k,6) +rxt(k,76) +rxt(k,78) +rxt(k,80) + & - 2.000_r8*rxt(k,81) +2.000_r8*rxt(k,82) +rxt(k,83) +rxt(k,84) + & - rxt(k,85) +rxt(k,96)*y(k,91) +rxt(k,97)*y(k,91) +rxt(k,134)*y(k,53) + & - rxt(k,248)*y(k,73) +rxt(k,254)*y(k,74) +rxt(k,292)*y(k,90) + & - rxt(k,298)*y(k,96))*y(k,67) + (rxt(k,130)*y(k,59) + & - rxt(k,131)*y(k,60) +rxt(k,293)*y(k,94))*y(k,53) & - + (rxt(k,284)*y(k,89) +1.150_r8*rxt(k,285)*y(k,94))*y(k,85) & - +rxt(k,27)*y(k,4) +rxt(k,45)*y(k,26) +rxt(k,114)*y(k,86)*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,88)*y(k,74) & - +rxt(k,89)*y(k,75) +rxt(k,90)*y(k,76) +rxt(k,95)*y(k,91) & - +rxt(k,124)*y(k,95)*y(k,95) +rxt(k,2)*y(k,97) - loss(k,71) = (rxt(k,115)* y(k,38) +rxt(k,134)* y(k,53) +rxt(k,109)* y(k,66) & - +rxt(k,248)* y(k,73) +rxt(k,254)* y(k,74) +rxt(k,129)* y(k,87) & - +rxt(k,287)* y(k,88) + (rxt(k,291) +rxt(k,292))* y(k,90) +rxt(k,96) & - * y(k,91) +rxt(k,101)* y(k,92) +rxt(k,298)* y(k,96) + rxt(k,5) & - + rxt(k,6) + rxt(k,76) + rxt(k,77) + rxt(k,78) + rxt(k,79) & + 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,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,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,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) + het_rates(k,67))* y(k,67) - prod(k,71) = (rxt(k,8) +2.000_r8*rxt(k,98)*y(k,91) + & - 2.000_r8*rxt(k,107)*y(k,66) +2.000_r8*rxt(k,117)*y(k,86) + & - rxt(k,118)*y(k,38) +rxt(k,123)*y(k,95) +rxt(k,136)*y(k,60) + & - rxt(k,144)*y(k,59) +rxt(k,160)*y(k,84) +rxt(k,192)*y(k,83) + & - rxt(k,249)*y(k,73) +rxt(k,255)*y(k,74))*y(k,68) & - + (rxt(k,112)*y(k,38) +rxt(k,116)*y(k,66) +rxt(k,121)*y(k,95) + & - rxt(k,126)*y(k,86) +rxt(k,138)*y(k,61) +rxt(k,158)*y(k,84) + & - rxt(k,165)*y(k,26) +rxt(k,191)*y(k,83) +rxt(k,197)*y(k,4) + & - rxt(k,237)*y(k,20))*y(k,86) + (rxt(k,100)*y(k,92) + & - rxt(k,108)*y(k,66) +rxt(k,122)*y(k,95) +rxt(k,135)*y(k,60) + & - rxt(k,140)*y(k,61) +rxt(k,171)*y(k,26) +rxt(k,201)*y(k,4))*y(k,66) & - + (rxt(k,162)*y(k,26) +rxt(k,163)*y(k,26) +rxt(k,173)*y(k,95) + & - rxt(k,195)*y(k,4) +rxt(k,196)*y(k,4))*y(k,26) + (rxt(k,91) + & - rxt(k,99) +2.000_r8*rxt(k,101)*y(k,67))*y(k,92) +rxt(k,193)*y(k,4) & - *y(k,4) +rxt(k,127)*y(k,95)*y(k,50) +rxt(k,133)*y(k,60)*y(k,53) & - +rxt(k,147)*y(k,91)*y(k,54) +rxt(k,295)*y(k,94)*y(k,59) +rxt(k,19) & - *y(k,61) +rxt(k,92)*y(k,93) - loss(k,72) = (rxt(k,118)* y(k,38) +rxt(k,144)* y(k,59) +rxt(k,136)* y(k,60) & - +rxt(k,107)* y(k,66) +rxt(k,249)* y(k,73) +rxt(k,255)* y(k,74) & - +rxt(k,192)* y(k,83) +rxt(k,160)* y(k,84) +rxt(k,117)* y(k,86) & - +rxt(k,98)* y(k,91) +rxt(k,123)* y(k,95) + rxt(k,7) + rxt(k,8) & - + het_rates(k,68))* y(k,68) - prod(k,72) =rxt(k,109)*y(k,67)*y(k,66) - loss(k,33) = (rxt(k,256)* y(k,74) + rxt(k,59) + het_rates(k,69))* y(k,69) - prod(k,33) = (rxt(k,164)*y(k,26) +rxt(k,194)*y(k,4))*y(k,26) - loss(k,34) = (rxt(k,246)* y(k,66) +rxt(k,247)* y(k,95) + rxt(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,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,248)* y(k,67) +rxt(k,249)* y(k,68) +rxt(k,252)* y(k,95) & - + het_rates(k,73))* y(k,73) - prod(k,43) =rxt(k,87)*y(k,70) +rxt(k,88)*y(k,74) - loss(k,56) = (rxt(k,250)* y(k,4) +rxt(k,251)* y(k,26) +rxt(k,253)* y(k,60) & - +rxt(k,254)* y(k,67) +rxt(k,255)* y(k,68) +rxt(k,256)* y(k,69) & - +rxt(k,257)* y(k,95) + rxt(k,88) + het_rates(k,74))* y(k,74) - prod(k,56) = (rxt(k,248)*y(k,67) +rxt(k,249)*y(k,68) +rxt(k,252)*y(k,95)) & - *y(k,73) +rxt(k,246)*y(k,70)*y(k,66) +rxt(k,89)*y(k,75) - loss(k,53) = (rxt(k,258)* y(k,95) + rxt(k,89) + het_rates(k,75))* y(k,75) - prod(k,53) = (rxt(k,250)*y(k,4) +rxt(k,251)*y(k,26) +rxt(k,253)*y(k,60) + & - rxt(k,254)*y(k,67) +rxt(k,255)*y(k,68) +rxt(k,256)*y(k,69) + & - rxt(k,257)*y(k,95))*y(k,74) + (rxt(k,260)*y(k,61) + & - rxt(k,261)*y(k,95) +.500_r8*rxt(k,262)*y(k,95))*y(k,33) & - +rxt(k,247)*y(k,95)*y(k,70) +rxt(k,90)*y(k,76) - loss(k,30) = (rxt(k,259)* y(k,97) + rxt(k,90) + het_rates(k,76))* y(k,76) - prod(k,30) =rxt(k,86)*y(k,42) +rxt(k,258)*y(k,95)*y(k,75) - loss(k,15) = ( + het_rates(k,77))* y(k,77) + 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,78))* y(k,78) + loss(k,16) = ( + het_rates(k,81))* y(k,81) prod(k,16) = 0._r8 - loss(k,17) = ( + het_rates(k,79))* y(k,79) + loss(k,17) = ( + het_rates(k,82))* y(k,82) prod(k,17) = 0._r8 - loss(k,18) = ( + het_rates(k,80))* y(k,80) + loss(k,18) = ( + het_rates(k,83))* y(k,83) prod(k,18) = 0._r8 - loss(k,19) = ( + het_rates(k,81))* y(k,81) + loss(k,19) = ( + het_rates(k,84))* y(k,84) prod(k,19) = 0._r8 - loss(k,20) = ( + het_rates(k,82))* y(k,82) + loss(k,20) = ( + het_rates(k,85))* y(k,85) prod(k,20) = 0._r8 - loss(k,59) = (rxt(k,190)* y(k,16) +rxt(k,192)* y(k,68) +rxt(k,191)* y(k,86) & - + het_rates(k,83))* y(k,83) - prod(k,59) = (rxt(k,27) +2.000_r8*rxt(k,193)*y(k,4) +rxt(k,194)*y(k,26) + & - rxt(k,195)*y(k,26) +rxt(k,198)*y(k,59) +rxt(k,201)*y(k,66) + & - rxt(k,202)*y(k,95) +rxt(k,250)*y(k,74))*y(k,4) + (rxt(k,180)*y(k,8) + & - rxt(k,206)*y(k,9) +3.000_r8*rxt(k,207)*y(k,23) + & - 2.000_r8*rxt(k,208)*y(k,40) +2.000_r8*rxt(k,229)*y(k,15) + & - rxt(k,230)*y(k,17) +rxt(k,209)*y(k,43))*y(k,91) & - + (2.000_r8*rxt(k,218)*y(k,15) +rxt(k,220)*y(k,17) + & - 3.000_r8*rxt(k,225)*y(k,23) +rxt(k,204)*y(k,43))*y(k,95) & - + (2.000_r8*rxt(k,217)*y(k,15) +rxt(k,219)*y(k,17) + & - 3.000_r8*rxt(k,224)*y(k,23))*y(k,84) + (rxt(k,51) + & - rxt(k,203)*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,62) = (rxt(k,217)* y(k,15) +rxt(k,154)* y(k,16) +rxt(k,219)* y(k,17) & - +rxt(k,222)* y(k,19) +rxt(k,155)* y(k,22) +rxt(k,224)* y(k,23) & - +rxt(k,167)* y(k,27) +rxt(k,156)* y(k,39) +rxt(k,157)* y(k,41) & - +rxt(k,176)* y(k,52) +rxt(k,160)* y(k,68) + (rxt(k,158) +rxt(k,159)) & - * y(k,86) + het_rates(k,84))* y(k,84) - prod(k,62) = (4.000_r8*rxt(k,179)*y(k,7) +rxt(k,180)*y(k,8) + & - 2.000_r8*rxt(k,181)*y(k,10) +2.000_r8*rxt(k,182)*y(k,11) + & - 2.000_r8*rxt(k,183)*y(k,12) +rxt(k,184)*y(k,13) + & - 2.000_r8*rxt(k,185)*y(k,14) +rxt(k,231)*y(k,44) +rxt(k,232)*y(k,45) + & - rxt(k,233)*y(k,46) +rxt(k,186)*y(k,47) +rxt(k,216)*y(k,32))*y(k,91) & - + (rxt(k,45) +rxt(k,161)*y(k,20) +2.000_r8*rxt(k,162)*y(k,26) + & - rxt(k,164)*y(k,26) +rxt(k,166)*y(k,59) +rxt(k,171)*y(k,66) + & - rxt(k,172)*y(k,95) +rxt(k,195)*y(k,4) +rxt(k,251)*y(k,74))*y(k,26) & - + (3.000_r8*rxt(k,221)*y(k,18) +rxt(k,223)*y(k,19) + & - rxt(k,226)*y(k,44) +rxt(k,227)*y(k,45) +rxt(k,228)*y(k,46) + & - rxt(k,175)*y(k,47))*y(k,95) + (rxt(k,55) +rxt(k,174)*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,49) = (rxt(k,286)* y(k,88) +rxt(k,284)* y(k,89) +rxt(k,285)* y(k,94) & - + het_rates(k,85))* y(k,85) - prod(k,49) = (rxt(k,76) +rxt(k,77) +rxt(k,78) +rxt(k,79) +rxt(k,80) + & - rxt(k,83) +rxt(k,84) +rxt(k,85))*y(k,67) + (rxt(k,70) +rxt(k,71) + & - rxt(k,72) +rxt(k,73) +rxt(k,74) +rxt(k,75))*y(k,66) +rxt(k,61) & - *y(k,53) +rxt(k,16)*y(k,59) - loss(k,64) = (rxt(k,197)* y(k,4) +rxt(k,237)* y(k,20) +rxt(k,165)* y(k,26) & - + (rxt(k,112) +rxt(k,113) +rxt(k,114))* y(k,38) +rxt(k,143)* y(k,59) & - +rxt(k,148)* y(k,60) +rxt(k,138)* y(k,61) +rxt(k,116)* y(k,66) & - +rxt(k,117)* y(k,68) +rxt(k,191)* y(k,83) + (rxt(k,158) +rxt(k,159)) & - * y(k,84) + 2._r8*rxt(k,126)* y(k,86) +rxt(k,121)* y(k,95) & - + rxt(k,263) + het_rates(k,86))* y(k,86) - prod(k,64) = (rxt(k,220)*y(k,17) +rxt(k,223)*y(k,19) +rxt(k,120)*y(k,41) + & - rxt(k,123)*y(k,68) +rxt(k,141)*y(k,61) +rxt(k,172)*y(k,26) + & - rxt(k,202)*y(k,4) +rxt(k,241)*y(k,29) +rxt(k,258)*y(k,75) + & - .500_r8*rxt(k,262)*y(k,33))*y(k,95) + (rxt(k,154)*y(k,84) + & - rxt(k,190)*y(k,83) +rxt(k,234)*y(k,61) +rxt(k,235)*y(k,66))*y(k,16) & - + (rxt(k,219)*y(k,17) +rxt(k,222)*y(k,19) +rxt(k,157)*y(k,41)) & - *y(k,84) + (rxt(k,161)*y(k,26) +rxt(k,238)*y(k,59))*y(k,20) & - + (rxt(k,11) +rxt(k,152))*y(k,50) +rxt(k,243)*y(k,91)*y(k,22) & - +rxt(k,115)*y(k,67)*y(k,38) +rxt(k,111)*y(k,66)*y(k,41) - loss(k,38) = (rxt(k,128)* y(k,66) +rxt(k,129)* y(k,67) + het_rates(k,87)) & - * y(k,87) - prod(k,38) = (.800_r8*rxt(k,284)*y(k,89) +.900_r8*rxt(k,286)*y(k,88))*y(k,85) & - +rxt(k,288)*y(k,88)*y(k,66) - loss(k,42) = ((rxt(k,288) +rxt(k,289))* y(k,66) +rxt(k,287)* y(k,67) & - +rxt(k,286)* y(k,85) + het_rates(k,88))* y(k,88) - prod(k,42) = 0._r8 - loss(k,48) = (rxt(k,284)* y(k,85) + het_rates(k,89))* y(k,89) - prod(k,48) = (rxt(k,294) +rxt(k,293)*y(k,53) +rxt(k,295)*y(k,59))*y(k,94) & - +rxt(k,16)*y(k,59) +rxt(k,288)*y(k,88)*y(k,66) +rxt(k,292)*y(k,90) & - *y(k,67) +rxt(k,297)*y(k,96) - loss(k,37) = (rxt(k,290)* y(k,66) + (rxt(k,291) +rxt(k,292))* y(k,67) & - + het_rates(k,90))* y(k,90) - prod(k,37) =rxt(k,61)*y(k,53) - loss(k,69) = (rxt(k,179)* y(k,7) +rxt(k,180)* y(k,8) +rxt(k,206)* y(k,9) & - +rxt(k,181)* 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,229)* y(k,15) & - +rxt(k,230)* y(k,17) + (rxt(k,242) +rxt(k,243) +rxt(k,244))* y(k,22) & - +rxt(k,207)* y(k,23) +rxt(k,215)* y(k,31) +rxt(k,216)* y(k,32) & - +rxt(k,93)* y(k,39) +rxt(k,208)* y(k,40) + (rxt(k,209) +rxt(k,210)) & - * y(k,43) +rxt(k,231)* y(k,44) +rxt(k,232)* y(k,45) +rxt(k,233) & - * y(k,46) + (rxt(k,186) +rxt(k,187))* y(k,47) + (rxt(k,146) + & - rxt(k,147))* y(k,54) + (rxt(k,96) +rxt(k,97))* y(k,67) +rxt(k,98) & - * y(k,68) +rxt(k,94)* y(k,97) + rxt(k,95) + het_rates(k,91))* y(k,91) - prod(k,69) = (rxt(k,6) +rxt(k,129)*y(k,87))*y(k,67) +rxt(k,7)*y(k,68) & - +.850_r8*rxt(k,285)*y(k,94)*y(k,85) +rxt(k,1)*y(k,97) - loss(k,24) = (rxt(k,100)* y(k,66) +rxt(k,101)* y(k,67) + rxt(k,91) & - + rxt(k,99) + het_rates(k,92))* y(k,92) - prod(k,24) = (rxt(k,103) +rxt(k,102)*y(k,30) +rxt(k,104)*y(k,66) + & - rxt(k,105)*y(k,67) +rxt(k,106)*y(k,68))*y(k,93) +rxt(k,7)*y(k,68) - loss(k,25) = (rxt(k,102)* y(k,30) +rxt(k,104)* y(k,66) +rxt(k,105)* y(k,67) & - +rxt(k,106)* y(k,68) + rxt(k,92) + rxt(k,103) + het_rates(k,93)) & - * y(k,93) - prod(k,25) =rxt(k,96)*y(k,91)*y(k,67) - loss(k,47) = (rxt(k,293)* y(k,53) +rxt(k,295)* y(k,59) +rxt(k,285)* y(k,85) & - + rxt(k,294) + het_rates(k,94))* y(k,94) - prod(k,47) = (rxt(k,77) +rxt(k,79) +rxt(k,287)*y(k,88) +rxt(k,291)*y(k,90) + & - rxt(k,298)*y(k,96))*y(k,67) +rxt(k,296)*y(k,96)*y(k,30) - loss(k,73) = (rxt(k,202)* y(k,4) +rxt(k,218)* y(k,15) +rxt(k,236)* y(k,16) & - +rxt(k,220)* y(k,17) +rxt(k,221)* y(k,18) +rxt(k,223)* y(k,19) & - +rxt(k,239)* y(k,21) +rxt(k,240)* y(k,22) +rxt(k,225)* y(k,23) & - + (rxt(k,172) +rxt(k,173))* y(k,26) +rxt(k,170)* y(k,27) & - + (rxt(k,241) +rxt(k,245))* y(k,29) + (rxt(k,261) +rxt(k,262)) & - * y(k,33) +rxt(k,119)* y(k,39) +rxt(k,120)* y(k,41) +rxt(k,204) & - * y(k,43) +rxt(k,226)* y(k,44) +rxt(k,227)* y(k,45) +rxt(k,228) & - * y(k,46) +rxt(k,175)* y(k,47) +rxt(k,151)* y(k,49) +rxt(k,127) & - * y(k,50) +rxt(k,178)* y(k,52) +rxt(k,142)* y(k,53) +rxt(k,150) & - * y(k,60) +rxt(k,141)* y(k,61) +rxt(k,122)* y(k,66) +rxt(k,123) & - * y(k,68) +rxt(k,247)* y(k,70) +rxt(k,252)* y(k,73) +rxt(k,257) & - * y(k,74) +rxt(k,258)* y(k,75) +rxt(k,121)* y(k,86) & - + 2._r8*(rxt(k,124) +rxt(k,125))* y(k,95) + het_rates(k,95)) & - * y(k,95) - prod(k,73) = (rxt(k,110)*y(k,39) +rxt(k,111)*y(k,41) +rxt(k,116)*y(k,86) + & - rxt(k,174)*y(k,47) +rxt(k,177)*y(k,52) +rxt(k,203)*y(k,43) + & - rxt(k,205)*y(k,51) +rxt(k,235)*y(k,16))*y(k,66) & - + (2.000_r8*rxt(k,113)*y(k,38) +rxt(k,117)*y(k,68) + & - rxt(k,138)*y(k,61) +rxt(k,143)*y(k,59) +rxt(k,159)*y(k,84))*y(k,86) & - + (rxt(k,242)*y(k,22) +rxt(k,93)*y(k,39) + & - 2.000_r8*rxt(k,94)*y(k,97) +rxt(k,186)*y(k,47) +rxt(k,209)*y(k,43)) & - *y(k,91) + (rxt(k,22) +.300_r8*rxt(k,239)*y(k,95))*y(k,21) & - + (rxt(k,3) +rxt(k,213)*y(k,37))*y(k,97) +rxt(k,118)*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,265)*y(k,60) - loss(k,44) = (rxt(k,296)* y(k,30) +rxt(k,298)* y(k,67) + rxt(k,297) & - + het_rates(k,96))* y(k,96) - prod(k,44) = (rxt(k,70) +rxt(k,71) +rxt(k,72) +rxt(k,73) +rxt(k,74) + & - rxt(k,75) +rxt(k,289)*y(k,88) +rxt(k,290)*y(k,90))*y(k,66) & - + (rxt(k,76) +rxt(k,78) +rxt(k,80) +rxt(k,83) +rxt(k,84) +rxt(k,85)) & - *y(k,67) - loss(k,75) = (rxt(k,213)* y(k,37) +rxt(k,259)* y(k,76) +rxt(k,94)* y(k,91) & - + rxt(k,1) + rxt(k,2) + rxt(k,3) + het_rates(k,97))* y(k,97) - prod(k,75) = (rxt(k,218)*y(k,15) +rxt(k,220)*y(k,17) +rxt(k,221)*y(k,18) + & - rxt(k,223)*y(k,19) +rxt(k,228)*y(k,46) +rxt(k,240)*y(k,22) + & - rxt(k,119)*y(k,39) +rxt(k,120)*y(k,41) +rxt(k,121)*y(k,86) + & - rxt(k,124)*y(k,95) +rxt(k,127)*y(k,50) +rxt(k,151)*y(k,49) + & - rxt(k,175)*y(k,47) +rxt(k,178)*y(k,52) +rxt(k,204)*y(k,43) + & - rxt(k,236)*y(k,16) +rxt(k,239)*y(k,21))*y(k,95) & - + (rxt(k,268)*y(k,52) +rxt(k,274)*y(k,52) +rxt(k,275)*y(k,51) + & - rxt(k,279)*y(k,52) +rxt(k,280)*y(k,51))*y(k,47) +rxt(k,114)*y(k,86) & - *y(k,38) +rxt(k,86)*y(k,42) + 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,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,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,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,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,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,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,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,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,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,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,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,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,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,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,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,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,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 d4f1140691..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 @@ -8,67 +8,68 @@ subroutine set_rates( rxt_rates, sol, ncol ) real(r8), intent(inout) :: rxt_rates(:,:,:) real(r8), intent(in) :: sol(:,:,:) integer, intent(in) :: ncol - rxt_rates(:ncol,:, 1) = rxt_rates(:ncol,:, 1)*sol(:ncol,:, 97) ! rate_const*H2O - rxt_rates(:ncol,:, 2) = rxt_rates(:ncol,:, 2)*sol(:ncol,:, 97) ! rate_const*H2O - rxt_rates(:ncol,:, 3) = rxt_rates(:ncol,:, 3)*sol(:ncol,:, 97) ! 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,:, 30) ! rate_const*CO2 - rxt_rates(:ncol,:, 61) = rxt_rates(:ncol,:, 61)*sol(:ncol,:, 53) ! rate_const*N + 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,:, 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 @@ -77,234 +78,247 @@ subroutine set_rates( rxt_rates, sol, ncol ) ! rate_const*N2 ! rate_const*N2 ! rate_const*N2 - rxt_rates(:ncol,:, 70) = rxt_rates(:ncol,:, 70)*sol(:ncol,:, 66) ! rate_const*O - 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,:, 67) ! rate_const*O2 - 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,:, 42) ! rate_const*H2SO4 - rxt_rates(:ncol,:, 87) = rxt_rates(:ncol,:, 87)*sol(:ncol,:, 70) ! rate_const*OCS - rxt_rates(:ncol,:, 88) = rxt_rates(:ncol,:, 88)*sol(:ncol,:, 74) ! rate_const*SO - rxt_rates(:ncol,:, 89) = rxt_rates(:ncol,:, 89)*sol(:ncol,:, 75) ! rate_const*SO2 - rxt_rates(:ncol,:, 90) = rxt_rates(:ncol,:, 90)*sol(:ncol,:, 76) ! rate_const*SO3 - rxt_rates(:ncol,:, 91) = rxt_rates(:ncol,:, 91)*sol(:ncol,:, 92) ! rate_const*O2_1D - rxt_rates(:ncol,:, 92) = rxt_rates(:ncol,:, 92)*sol(:ncol,:, 93) ! rate_const*O2_1S - rxt_rates(:ncol,:, 93) = rxt_rates(:ncol,:, 93)*sol(:ncol,:, 91)*sol(:ncol,:, 39) ! rate_const*O1D*H2 - rxt_rates(:ncol,:, 94) = rxt_rates(:ncol,:, 94)*sol(:ncol,:, 91)*sol(:ncol,:, 97) ! rate_const*O1D*H2O - rxt_rates(:ncol,:, 95) = rxt_rates(:ncol,:, 95)*sol(:ncol,:, 91) ! rate_const*N2*O1D - rxt_rates(:ncol,:, 96) = rxt_rates(:ncol,:, 96)*sol(:ncol,:, 91)*sol(:ncol,:, 67) ! rate_const*O1D*O2 - rxt_rates(:ncol,:, 97) = rxt_rates(:ncol,:, 97)*sol(:ncol,:, 91)*sol(:ncol,:, 67) ! rate_const*O1D*O2 - rxt_rates(:ncol,:, 98) = rxt_rates(:ncol,:, 98)*sol(:ncol,:, 91)*sol(:ncol,:, 68) ! rate_const*O1D*O3 - rxt_rates(:ncol,:, 99) = rxt_rates(:ncol,:, 99)*sol(:ncol,:, 92) ! rate_const*N2*O2_1D - rxt_rates(:ncol,:, 100) = rxt_rates(:ncol,:, 100)*sol(:ncol,:, 92)*sol(:ncol,:, 66) ! rate_const*O2_1D*O - rxt_rates(:ncol,:, 101) = rxt_rates(:ncol,:, 101)*sol(:ncol,:, 92)*sol(:ncol,:, 67) ! rate_const*O2_1D*O2 - rxt_rates(:ncol,:, 102) = rxt_rates(:ncol,:, 102)*sol(:ncol,:, 93)*sol(:ncol,:, 30) ! rate_const*O2_1S*CO2 - rxt_rates(:ncol,:, 103) = rxt_rates(:ncol,:, 103)*sol(:ncol,:, 93) ! rate_const*N2*O2_1S - rxt_rates(:ncol,:, 104) = rxt_rates(:ncol,:, 104)*sol(:ncol,:, 93)*sol(:ncol,:, 66) ! rate_const*O2_1S*O - rxt_rates(:ncol,:, 105) = rxt_rates(:ncol,:, 105)*sol(:ncol,:, 93)*sol(:ncol,:, 67) ! rate_const*O2_1S*O2 - rxt_rates(:ncol,:, 106) = rxt_rates(:ncol,:, 106)*sol(:ncol,:, 93)*sol(:ncol,:, 68) ! rate_const*O2_1S*O3 - rxt_rates(:ncol,:, 107) = rxt_rates(:ncol,:, 107)*sol(:ncol,:, 66)*sol(:ncol,:, 68) ! rate_const*O*O3 - rxt_rates(:ncol,:, 108) = rxt_rates(:ncol,:, 108)*sol(:ncol,:, 66)*sol(:ncol,:, 66) ! rate_const*M*O*O - rxt_rates(:ncol,:, 109) = rxt_rates(:ncol,:, 109)*sol(:ncol,:, 66)*sol(:ncol,:, 67) ! rate_const*M*O*O2 - rxt_rates(:ncol,:, 110) = rxt_rates(:ncol,:, 110)*sol(:ncol,:, 39)*sol(:ncol,:, 66) ! rate_const*H2*O - rxt_rates(:ncol,:, 111) = rxt_rates(:ncol,:, 111)*sol(:ncol,:, 41)*sol(:ncol,:, 66) ! rate_const*H2O2*O - rxt_rates(:ncol,:, 112) = rxt_rates(:ncol,:, 112)*sol(:ncol,:, 38)*sol(:ncol,:, 86) ! rate_const*H*HO2 - rxt_rates(:ncol,:, 113) = rxt_rates(:ncol,:, 113)*sol(:ncol,:, 38)*sol(:ncol,:, 86) ! rate_const*H*HO2 - rxt_rates(:ncol,:, 114) = rxt_rates(:ncol,:, 114)*sol(:ncol,:, 38)*sol(:ncol,:, 86) ! rate_const*H*HO2 - rxt_rates(:ncol,:, 115) = rxt_rates(:ncol,:, 115)*sol(:ncol,:, 38)*sol(:ncol,:, 67) ! rate_const*M*H*O2 - rxt_rates(:ncol,:, 116) = rxt_rates(:ncol,:, 116)*sol(:ncol,:, 86)*sol(:ncol,:, 66) ! rate_const*HO2*O - rxt_rates(:ncol,:, 117) = rxt_rates(:ncol,:, 117)*sol(:ncol,:, 86)*sol(:ncol,:, 68) ! rate_const*HO2*O3 - rxt_rates(:ncol,:, 118) = rxt_rates(:ncol,:, 118)*sol(:ncol,:, 38)*sol(:ncol,:, 68) ! rate_const*H*O3 - rxt_rates(:ncol,:, 119) = rxt_rates(:ncol,:, 119)*sol(:ncol,:, 95)*sol(:ncol,:, 39) ! rate_const*OH*H2 - rxt_rates(:ncol,:, 120) = rxt_rates(:ncol,:, 120)*sol(:ncol,:, 95)*sol(:ncol,:, 41) ! rate_const*OH*H2O2 - rxt_rates(:ncol,:, 121) = rxt_rates(:ncol,:, 121)*sol(:ncol,:, 95)*sol(:ncol,:, 86) ! rate_const*OH*HO2 - rxt_rates(:ncol,:, 122) = rxt_rates(:ncol,:, 122)*sol(:ncol,:, 95)*sol(:ncol,:, 66) ! rate_const*OH*O - rxt_rates(:ncol,:, 123) = rxt_rates(:ncol,:, 123)*sol(:ncol,:, 95)*sol(:ncol,:, 68) ! rate_const*OH*O3 - rxt_rates(:ncol,:, 124) = rxt_rates(:ncol,:, 124)*sol(:ncol,:, 95)*sol(:ncol,:, 95) ! rate_const*OH*OH - rxt_rates(:ncol,:, 125) = rxt_rates(:ncol,:, 125)*sol(:ncol,:, 95)*sol(:ncol,:, 95) ! rate_const*M*OH*OH - rxt_rates(:ncol,:, 126) = rxt_rates(:ncol,:, 126)*sol(:ncol,:, 86)*sol(:ncol,:, 86) ! rate_const*HO2*HO2 - rxt_rates(:ncol,:, 127) = rxt_rates(:ncol,:, 127)*sol(:ncol,:, 50)*sol(:ncol,:, 95) ! rate_const*HO2NO2*OH - rxt_rates(:ncol,:, 128) = rxt_rates(:ncol,:, 128)*sol(:ncol,:, 87)*sol(:ncol,:, 66) ! rate_const*N2D*O - rxt_rates(:ncol,:, 129) = rxt_rates(:ncol,:, 129)*sol(:ncol,:, 87)*sol(:ncol,:, 67) ! rate_const*N2D*O2 - rxt_rates(:ncol,:, 130) = rxt_rates(:ncol,:, 130)*sol(:ncol,:, 53)*sol(:ncol,:, 59) ! rate_const*N*NO - rxt_rates(:ncol,:, 131) = rxt_rates(:ncol,:, 131)*sol(:ncol,:, 53)*sol(:ncol,:, 60) ! rate_const*N*NO2 - 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,:, 67) ! rate_const*N*O2 - rxt_rates(:ncol,:, 135) = rxt_rates(:ncol,:, 135)*sol(:ncol,:, 60)*sol(:ncol,:, 66) ! rate_const*NO2*O - rxt_rates(:ncol,:, 136) = rxt_rates(:ncol,:, 136)*sol(:ncol,:, 60)*sol(:ncol,:, 68) ! rate_const*NO2*O3 - rxt_rates(:ncol,:, 137) = rxt_rates(:ncol,:, 137)*sol(:ncol,:, 60)*sol(:ncol,:, 66) ! rate_const*M*NO2*O - rxt_rates(:ncol,:, 138) = rxt_rates(:ncol,:, 138)*sol(:ncol,:, 61)*sol(:ncol,:, 86) ! rate_const*NO3*HO2 - rxt_rates(:ncol,:, 139) = rxt_rates(:ncol,:, 139)*sol(:ncol,:, 61)*sol(:ncol,:, 59) ! rate_const*NO3*NO - rxt_rates(:ncol,:, 140) = rxt_rates(:ncol,:, 140)*sol(:ncol,:, 61)*sol(:ncol,:, 66) ! rate_const*NO3*O - rxt_rates(:ncol,:, 141) = rxt_rates(:ncol,:, 141)*sol(:ncol,:, 61)*sol(:ncol,:, 95) ! rate_const*NO3*OH - rxt_rates(:ncol,:, 142) = rxt_rates(:ncol,:, 142)*sol(:ncol,:, 53)*sol(:ncol,:, 95) ! rate_const*N*OH - rxt_rates(:ncol,:, 143) = rxt_rates(:ncol,:, 143)*sol(:ncol,:, 59)*sol(:ncol,:, 86) ! rate_const*NO*HO2 - rxt_rates(:ncol,:, 144) = rxt_rates(:ncol,:, 144)*sol(:ncol,:, 59)*sol(:ncol,:, 68) ! rate_const*NO*O3 - rxt_rates(:ncol,:, 145) = rxt_rates(:ncol,:, 145)*sol(:ncol,:, 59)*sol(:ncol,:, 66) ! rate_const*M*NO*O - rxt_rates(:ncol,:, 146) = rxt_rates(:ncol,:, 146)*sol(:ncol,:, 91)*sol(:ncol,:, 54) ! rate_const*O1D*N2O - rxt_rates(:ncol,:, 147) = rxt_rates(:ncol,:, 147)*sol(:ncol,:, 91)*sol(:ncol,:, 54) ! rate_const*O1D*N2O - rxt_rates(:ncol,:, 148) = rxt_rates(:ncol,:, 148)*sol(:ncol,:, 60)*sol(:ncol,:, 86) ! rate_const*M*NO2*HO2 - rxt_rates(:ncol,:, 149) = rxt_rates(:ncol,:, 149)*sol(:ncol,:, 60)*sol(:ncol,:, 61) ! rate_const*M*NO2*NO3 - rxt_rates(:ncol,:, 150) = rxt_rates(:ncol,:, 150)*sol(:ncol,:, 60)*sol(:ncol,:, 95) ! rate_const*M*NO2*OH - rxt_rates(:ncol,:, 151) = rxt_rates(:ncol,:, 151)*sol(:ncol,:, 49)*sol(:ncol,:, 95) ! rate_const*HNO3*OH - rxt_rates(:ncol,:, 152) = rxt_rates(:ncol,:, 152)*sol(:ncol,:, 50) ! rate_const*M*HO2NO2 - rxt_rates(:ncol,:, 153) = rxt_rates(:ncol,:, 153)*sol(:ncol,:, 55) ! rate_const*M*N2O5 - rxt_rates(:ncol,:, 154) = rxt_rates(:ncol,:, 154)*sol(:ncol,:, 84)*sol(:ncol,:, 16) ! rate_const*CL*CH2O - rxt_rates(:ncol,:, 155) = rxt_rates(:ncol,:, 155)*sol(:ncol,:, 84)*sol(:ncol,:, 22) ! rate_const*CL*CH4 - rxt_rates(:ncol,:, 156) = rxt_rates(:ncol,:, 156)*sol(:ncol,:, 84)*sol(:ncol,:, 39) ! rate_const*CL*H2 - rxt_rates(:ncol,:, 157) = rxt_rates(:ncol,:, 157)*sol(:ncol,:, 84)*sol(:ncol,:, 41) ! rate_const*CL*H2O2 - rxt_rates(:ncol,:, 158) = rxt_rates(:ncol,:, 158)*sol(:ncol,:, 84)*sol(:ncol,:, 86) ! rate_const*CL*HO2 - rxt_rates(:ncol,:, 159) = rxt_rates(:ncol,:, 159)*sol(:ncol,:, 84)*sol(:ncol,:, 86) ! rate_const*CL*HO2 - rxt_rates(:ncol,:, 160) = rxt_rates(:ncol,:, 160)*sol(:ncol,:, 84)*sol(:ncol,:, 68) ! rate_const*CL*O3 - rxt_rates(:ncol,:, 161) = rxt_rates(:ncol,:, 161)*sol(:ncol,:, 26)*sol(:ncol,:, 20) ! rate_const*CLO*CH3O2 - rxt_rates(:ncol,:, 162) = rxt_rates(:ncol,:, 162)*sol(:ncol,:, 26)*sol(:ncol,:, 26) ! rate_const*CLO*CLO - 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,:, 86) ! rate_const*CLO*HO2 - rxt_rates(:ncol,:, 166) = rxt_rates(:ncol,:, 166)*sol(:ncol,:, 26)*sol(:ncol,:, 59) ! rate_const*CLO*NO - rxt_rates(:ncol,:, 167) = rxt_rates(:ncol,:, 167)*sol(:ncol,:, 27)*sol(:ncol,:, 84) ! rate_const*CLONO2*CL - rxt_rates(:ncol,:, 168) = rxt_rates(:ncol,:, 168)*sol(:ncol,:, 26)*sol(:ncol,:, 60) ! rate_const*M*CLO*NO2 - rxt_rates(:ncol,:, 169) = rxt_rates(:ncol,:, 169)*sol(:ncol,:, 27)*sol(:ncol,:, 66) ! rate_const*CLONO2*O - rxt_rates(:ncol,:, 170) = rxt_rates(:ncol,:, 170)*sol(:ncol,:, 27)*sol(:ncol,:, 95) ! rate_const*CLONO2*OH - rxt_rates(:ncol,:, 171) = rxt_rates(:ncol,:, 171)*sol(:ncol,:, 26)*sol(:ncol,:, 66) ! rate_const*CLO*O - rxt_rates(:ncol,:, 172) = rxt_rates(:ncol,:, 172)*sol(:ncol,:, 26)*sol(:ncol,:, 95) ! rate_const*CLO*OH - rxt_rates(:ncol,:, 173) = rxt_rates(:ncol,:, 173)*sol(:ncol,:, 26)*sol(:ncol,:, 95) ! rate_const*CLO*OH - rxt_rates(:ncol,:, 174) = rxt_rates(:ncol,:, 174)*sol(:ncol,:, 47)*sol(:ncol,:, 66) ! rate_const*HCL*O - rxt_rates(:ncol,:, 175) = rxt_rates(:ncol,:, 175)*sol(:ncol,:, 47)*sol(:ncol,:, 95) ! rate_const*HCL*OH - rxt_rates(:ncol,:, 176) = rxt_rates(:ncol,:, 176)*sol(:ncol,:, 52)*sol(:ncol,:, 84) ! rate_const*HOCL*CL - rxt_rates(:ncol,:, 177) = rxt_rates(:ncol,:, 177)*sol(:ncol,:, 52)*sol(:ncol,:, 66) ! rate_const*HOCL*O - rxt_rates(:ncol,:, 178) = rxt_rates(:ncol,:, 178)*sol(:ncol,:, 52)*sol(:ncol,:, 95) ! rate_const*HOCL*OH - rxt_rates(:ncol,:, 179) = rxt_rates(:ncol,:, 179)*sol(:ncol,:, 91)*sol(:ncol,:, 7) ! rate_const*O1D*CCL4 - rxt_rates(:ncol,:, 180) = rxt_rates(:ncol,:, 180)*sol(:ncol,:, 91)*sol(:ncol,:, 8) ! rate_const*O1D*CF2CLBR - rxt_rates(:ncol,:, 181) = rxt_rates(:ncol,:, 181)*sol(:ncol,:, 91)*sol(:ncol,:, 10) ! rate_const*O1D*CFC11 - rxt_rates(:ncol,:, 182) = rxt_rates(:ncol,:, 182)*sol(:ncol,:, 91)*sol(:ncol,:, 11) ! rate_const*O1D*CFC113 - rxt_rates(:ncol,:, 183) = rxt_rates(:ncol,:, 183)*sol(:ncol,:, 91)*sol(:ncol,:, 12) ! rate_const*O1D*CFC114 - rxt_rates(:ncol,:, 184) = rxt_rates(:ncol,:, 184)*sol(:ncol,:, 91)*sol(:ncol,:, 13) ! rate_const*O1D*CFC115 - rxt_rates(:ncol,:, 185) = rxt_rates(:ncol,:, 185)*sol(:ncol,:, 91)*sol(:ncol,:, 14) ! rate_const*O1D*CFC12 - rxt_rates(:ncol,:, 186) = rxt_rates(:ncol,:, 186)*sol(:ncol,:, 91)*sol(:ncol,:, 47) ! rate_const*O1D*HCL - rxt_rates(:ncol,:, 187) = rxt_rates(:ncol,:, 187)*sol(:ncol,:, 91)*sol(:ncol,:, 47) ! rate_const*O1D*HCL - rxt_rates(:ncol,:, 188) = rxt_rates(:ncol,:, 188)*sol(:ncol,:, 26)*sol(:ncol,:, 26) ! rate_const*M*CLO*CLO - rxt_rates(:ncol,:, 189) = rxt_rates(:ncol,:, 189)*sol(:ncol,:, 25) ! rate_const*M*CL2O2 - rxt_rates(:ncol,:, 190) = rxt_rates(:ncol,:, 190)*sol(:ncol,:, 83)*sol(:ncol,:, 16) ! rate_const*BR*CH2O - rxt_rates(:ncol,:, 191) = rxt_rates(:ncol,:, 191)*sol(:ncol,:, 83)*sol(:ncol,:, 86) ! rate_const*BR*HO2 - rxt_rates(:ncol,:, 192) = rxt_rates(:ncol,:, 192)*sol(:ncol,:, 83)*sol(:ncol,:, 68) ! rate_const*BR*O3 - rxt_rates(:ncol,:, 193) = rxt_rates(:ncol,:, 193)*sol(:ncol,:, 4)*sol(:ncol,:, 4) ! rate_const*BRO*BRO - rxt_rates(:ncol,:, 194) = rxt_rates(:ncol,:, 194)*sol(:ncol,:, 4)*sol(:ncol,:, 26) ! rate_const*BRO*CLO - 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,:, 86) ! rate_const*BRO*HO2 - rxt_rates(:ncol,:, 198) = rxt_rates(:ncol,:, 198)*sol(:ncol,:, 4)*sol(:ncol,:, 59) ! rate_const*BRO*NO - rxt_rates(:ncol,:, 199) = rxt_rates(:ncol,:, 199)*sol(:ncol,:, 4)*sol(:ncol,:, 60) ! rate_const*M*BRO*NO2 - rxt_rates(:ncol,:, 200) = rxt_rates(:ncol,:, 200)*sol(:ncol,:, 5)*sol(:ncol,:, 66) ! rate_const*BRONO2*O - rxt_rates(:ncol,:, 201) = rxt_rates(:ncol,:, 201)*sol(:ncol,:, 4)*sol(:ncol,:, 66) ! rate_const*BRO*O - rxt_rates(:ncol,:, 202) = rxt_rates(:ncol,:, 202)*sol(:ncol,:, 4)*sol(:ncol,:, 95) ! rate_const*BRO*OH - rxt_rates(:ncol,:, 203) = rxt_rates(:ncol,:, 203)*sol(:ncol,:, 43)*sol(:ncol,:, 66) ! rate_const*HBR*O - rxt_rates(:ncol,:, 204) = rxt_rates(:ncol,:, 204)*sol(:ncol,:, 43)*sol(:ncol,:, 95) ! rate_const*HBR*OH - rxt_rates(:ncol,:, 205) = rxt_rates(:ncol,:, 205)*sol(:ncol,:, 51)*sol(:ncol,:, 66) ! rate_const*HOBR*O - rxt_rates(:ncol,:, 206) = rxt_rates(:ncol,:, 206)*sol(:ncol,:, 91)*sol(:ncol,:, 9) ! rate_const*O1D*CF3BR - rxt_rates(:ncol,:, 207) = rxt_rates(:ncol,:, 207)*sol(:ncol,:, 91)*sol(:ncol,:, 23) ! rate_const*O1D*CHBR3 - rxt_rates(:ncol,:, 208) = rxt_rates(:ncol,:, 208)*sol(:ncol,:, 91)*sol(:ncol,:, 40) ! rate_const*O1D*H2402 - rxt_rates(:ncol,:, 209) = rxt_rates(:ncol,:, 209)*sol(:ncol,:, 91)*sol(:ncol,:, 43) ! rate_const*O1D*HBR - rxt_rates(:ncol,:, 210) = rxt_rates(:ncol,:, 210)*sol(:ncol,:, 91)*sol(:ncol,:, 43) ! rate_const*O1D*HBR - rxt_rates(:ncol,:, 211) = rxt_rates(:ncol,:, 211)*sol(:ncol,:, 37)*sol(:ncol,:, 22) ! rate_const*F*CH4 - rxt_rates(:ncol,:, 212) = rxt_rates(:ncol,:, 212)*sol(:ncol,:, 37)*sol(:ncol,:, 39) ! rate_const*F*H2 - rxt_rates(:ncol,:, 213) = rxt_rates(:ncol,:, 213)*sol(:ncol,:, 37)*sol(:ncol,:, 97) ! rate_const*F*H2O - rxt_rates(:ncol,:, 214) = rxt_rates(:ncol,:, 214)*sol(:ncol,:, 37)*sol(:ncol,:, 49) ! rate_const*F*HNO3 - rxt_rates(:ncol,:, 215) = rxt_rates(:ncol,:, 215)*sol(:ncol,:, 91)*sol(:ncol,:, 31) ! rate_const*O1D*COF2 - rxt_rates(:ncol,:, 216) = rxt_rates(:ncol,:, 216)*sol(:ncol,:, 91)*sol(:ncol,:, 32) ! rate_const*O1D*COFCL - rxt_rates(:ncol,:, 217) = rxt_rates(:ncol,:, 217)*sol(:ncol,:, 15)*sol(:ncol,:, 84) ! rate_const*CH2BR2*CL - rxt_rates(:ncol,:, 218) = rxt_rates(:ncol,:, 218)*sol(:ncol,:, 15)*sol(:ncol,:, 95) ! rate_const*CH2BR2*OH - rxt_rates(:ncol,:, 219) = rxt_rates(:ncol,:, 219)*sol(:ncol,:, 17)*sol(:ncol,:, 84) ! rate_const*CH3BR*CL - rxt_rates(:ncol,:, 220) = rxt_rates(:ncol,:, 220)*sol(:ncol,:, 17)*sol(:ncol,:, 95) ! rate_const*CH3BR*OH - rxt_rates(:ncol,:, 221) = rxt_rates(:ncol,:, 221)*sol(:ncol,:, 18)*sol(:ncol,:, 95) ! rate_const*CH3CCL3*OH - rxt_rates(:ncol,:, 222) = rxt_rates(:ncol,:, 222)*sol(:ncol,:, 19)*sol(:ncol,:, 84) ! rate_const*CH3CL*CL - rxt_rates(:ncol,:, 223) = rxt_rates(:ncol,:, 223)*sol(:ncol,:, 19)*sol(:ncol,:, 95) ! rate_const*CH3CL*OH - rxt_rates(:ncol,:, 224) = rxt_rates(:ncol,:, 224)*sol(:ncol,:, 23)*sol(:ncol,:, 84) ! rate_const*CHBR3*CL - rxt_rates(:ncol,:, 225) = rxt_rates(:ncol,:, 225)*sol(:ncol,:, 23)*sol(:ncol,:, 95) ! rate_const*CHBR3*OH - rxt_rates(:ncol,:, 226) = rxt_rates(:ncol,:, 226)*sol(:ncol,:, 44)*sol(:ncol,:, 95) ! rate_const*HCFC141B*OH - rxt_rates(:ncol,:, 227) = rxt_rates(:ncol,:, 227)*sol(:ncol,:, 45)*sol(:ncol,:, 95) ! rate_const*HCFC142B*OH - rxt_rates(:ncol,:, 228) = rxt_rates(:ncol,:, 228)*sol(:ncol,:, 46)*sol(:ncol,:, 95) ! rate_const*HCFC22*OH - rxt_rates(:ncol,:, 229) = rxt_rates(:ncol,:, 229)*sol(:ncol,:, 91)*sol(:ncol,:, 15) ! rate_const*O1D*CH2BR2 - rxt_rates(:ncol,:, 230) = rxt_rates(:ncol,:, 230)*sol(:ncol,:, 91)*sol(:ncol,:, 17) ! rate_const*O1D*CH3BR - rxt_rates(:ncol,:, 231) = rxt_rates(:ncol,:, 231)*sol(:ncol,:, 91)*sol(:ncol,:, 44) ! rate_const*O1D*HCFC141B - rxt_rates(:ncol,:, 232) = rxt_rates(:ncol,:, 232)*sol(:ncol,:, 91)*sol(:ncol,:, 45) ! rate_const*O1D*HCFC142B - rxt_rates(:ncol,:, 233) = rxt_rates(:ncol,:, 233)*sol(:ncol,:, 91)*sol(:ncol,:, 46) ! rate_const*O1D*HCFC22 - rxt_rates(:ncol,:, 234) = rxt_rates(:ncol,:, 234)*sol(:ncol,:, 16)*sol(:ncol,:, 61) ! rate_const*CH2O*NO3 - rxt_rates(:ncol,:, 235) = rxt_rates(:ncol,:, 235)*sol(:ncol,:, 16)*sol(:ncol,:, 66) ! rate_const*CH2O*O - rxt_rates(:ncol,:, 236) = rxt_rates(:ncol,:, 236)*sol(:ncol,:, 16)*sol(:ncol,:, 95) ! rate_const*CH2O*OH - rxt_rates(:ncol,:, 237) = rxt_rates(:ncol,:, 237)*sol(:ncol,:, 20)*sol(:ncol,:, 86) ! rate_const*CH3O2*HO2 - rxt_rates(:ncol,:, 238) = rxt_rates(:ncol,:, 238)*sol(:ncol,:, 20)*sol(:ncol,:, 59) ! rate_const*CH3O2*NO - rxt_rates(:ncol,:, 239) = rxt_rates(:ncol,:, 239)*sol(:ncol,:, 21)*sol(:ncol,:, 95) ! rate_const*CH3OOH*OH - rxt_rates(:ncol,:, 240) = rxt_rates(:ncol,:, 240)*sol(:ncol,:, 22)*sol(:ncol,:, 95) ! rate_const*CH4*OH - rxt_rates(:ncol,:, 241) = rxt_rates(:ncol,:, 241)*sol(:ncol,:, 29)*sol(:ncol,:, 95) ! rate_const*M*CO*OH - rxt_rates(:ncol,:, 242) = rxt_rates(:ncol,:, 242)*sol(:ncol,:, 91)*sol(:ncol,:, 22) ! rate_const*O1D*CH4 - rxt_rates(:ncol,:, 243) = rxt_rates(:ncol,:, 243)*sol(:ncol,:, 91)*sol(:ncol,:, 22) ! rate_const*O1D*CH4 - rxt_rates(:ncol,:, 244) = rxt_rates(:ncol,:, 244)*sol(:ncol,:, 91)*sol(:ncol,:, 22) ! rate_const*O1D*CH4 - rxt_rates(:ncol,:, 245) = rxt_rates(:ncol,:, 245)*sol(:ncol,:, 29)*sol(:ncol,:, 95) ! rate_const*CO*OH - rxt_rates(:ncol,:, 246) = rxt_rates(:ncol,:, 246)*sol(:ncol,:, 70)*sol(:ncol,:, 66) ! rate_const*OCS*O - rxt_rates(:ncol,:, 247) = rxt_rates(:ncol,:, 247)*sol(:ncol,:, 70)*sol(:ncol,:, 95) ! rate_const*OCS*OH - rxt_rates(:ncol,:, 248) = rxt_rates(:ncol,:, 248)*sol(:ncol,:, 73)*sol(:ncol,:, 67) ! rate_const*S*O2 - rxt_rates(:ncol,:, 249) = rxt_rates(:ncol,:, 249)*sol(:ncol,:, 73)*sol(:ncol,:, 68) ! rate_const*S*O3 - rxt_rates(:ncol,:, 250) = rxt_rates(:ncol,:, 250)*sol(:ncol,:, 74)*sol(:ncol,:, 4) ! rate_const*SO*BRO - rxt_rates(:ncol,:, 251) = rxt_rates(:ncol,:, 251)*sol(:ncol,:, 74)*sol(:ncol,:, 26) ! rate_const*SO*CLO - rxt_rates(:ncol,:, 252) = rxt_rates(:ncol,:, 252)*sol(:ncol,:, 73)*sol(:ncol,:, 95) ! rate_const*S*OH - rxt_rates(:ncol,:, 253) = rxt_rates(:ncol,:, 253)*sol(:ncol,:, 74)*sol(:ncol,:, 60) ! rate_const*SO*NO2 - rxt_rates(:ncol,:, 254) = rxt_rates(:ncol,:, 254)*sol(:ncol,:, 74)*sol(:ncol,:, 67) ! rate_const*SO*O2 - rxt_rates(:ncol,:, 255) = rxt_rates(:ncol,:, 255)*sol(:ncol,:, 74)*sol(:ncol,:, 68) ! rate_const*SO*O3 - rxt_rates(:ncol,:, 256) = rxt_rates(:ncol,:, 256)*sol(:ncol,:, 74)*sol(:ncol,:, 69) ! rate_const*SO*OCLO - rxt_rates(:ncol,:, 257) = rxt_rates(:ncol,:, 257)*sol(:ncol,:, 74)*sol(:ncol,:, 95) ! rate_const*SO*OH - rxt_rates(:ncol,:, 258) = rxt_rates(:ncol,:, 258)*sol(:ncol,:, 75)*sol(:ncol,:, 95) ! rate_const*SO2*OH - rxt_rates(:ncol,:, 259) = rxt_rates(:ncol,:, 259)*sol(:ncol,:, 76)*sol(:ncol,:, 97) ! rate_const*SO3*H2O - rxt_rates(:ncol,:, 260) = rxt_rates(:ncol,:, 260)*sol(:ncol,:, 33)*sol(:ncol,:, 61) ! rate_const*DMS*NO3 - rxt_rates(:ncol,:, 261) = rxt_rates(:ncol,:, 261)*sol(:ncol,:, 33)*sol(:ncol,:, 95) ! rate_const*DMS*OH - rxt_rates(:ncol,:, 262) = rxt_rates(:ncol,:, 262)*sol(:ncol,:, 33)*sol(:ncol,:, 95) ! rate_const*DMS*OH - rxt_rates(:ncol,:, 263) = rxt_rates(:ncol,:, 263)*sol(:ncol,:, 86) ! rate_const*HO2 - rxt_rates(:ncol,:, 264) = rxt_rates(:ncol,:, 264)*sol(:ncol,:, 55) ! rate_const*N2O5 - rxt_rates(:ncol,:, 265) = rxt_rates(:ncol,:, 265)*sol(:ncol,:, 60) ! rate_const*NO2 - rxt_rates(:ncol,:, 266) = rxt_rates(:ncol,:, 266)*sol(:ncol,:, 61) ! rate_const*NO3 - rxt_rates(:ncol,:, 267) = rxt_rates(:ncol,:, 267)*sol(:ncol,:, 55) ! rate_const*N2O5 - rxt_rates(:ncol,:, 268) = rxt_rates(:ncol,:, 268)*sol(:ncol,:, 52)*sol(:ncol,:, 47) ! rate_const*HOCL*HCL - rxt_rates(:ncol,:, 269) = rxt_rates(:ncol,:, 269)*sol(:ncol,:, 5) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 270) = rxt_rates(:ncol,:, 270)*sol(:ncol,:, 55) ! rate_const*N2O5 - rxt_rates(:ncol,:, 271) = rxt_rates(:ncol,:, 271)*sol(:ncol,:, 27) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 272) = rxt_rates(:ncol,:, 272)*sol(:ncol,:, 5) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 273) = rxt_rates(:ncol,:, 273)*sol(:ncol,:, 27)*sol(:ncol,:, 47) ! rate_const*CLONO2*HCL - rxt_rates(:ncol,:, 274) = rxt_rates(:ncol,:, 274)*sol(:ncol,:, 52)*sol(:ncol,:, 47) ! rate_const*HOCL*HCL - rxt_rates(:ncol,:, 275) = rxt_rates(:ncol,:, 275)*sol(:ncol,:, 51)*sol(:ncol,:, 47) ! rate_const*HOBR*HCL - rxt_rates(:ncol,:, 276) = rxt_rates(:ncol,:, 276)*sol(:ncol,:, 27) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 277) = rxt_rates(:ncol,:, 277)*sol(:ncol,:, 5) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 278) = rxt_rates(:ncol,:, 278)*sol(:ncol,:, 27)*sol(:ncol,:, 47) ! rate_const*CLONO2*HCL - rxt_rates(:ncol,:, 279) = rxt_rates(:ncol,:, 279)*sol(:ncol,:, 52)*sol(:ncol,:, 47) ! rate_const*HOCL*HCL - rxt_rates(:ncol,:, 280) = rxt_rates(:ncol,:, 280)*sol(:ncol,:, 51)*sol(:ncol,:, 47) ! rate_const*HOBR*HCL - rxt_rates(:ncol,:, 281) = rxt_rates(:ncol,:, 281)*sol(:ncol,:, 55) ! rate_const*N2O5 - rxt_rates(:ncol,:, 282) = rxt_rates(:ncol,:, 282)*sol(:ncol,:, 27) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 283) = rxt_rates(:ncol,:, 283)*sol(:ncol,:, 27)*sol(:ncol,:, 47) ! rate_const*CLONO2*HCL - rxt_rates(:ncol,:, 284) = rxt_rates(:ncol,:, 284)*sol(:ncol,:, 89)*sol(:ncol,:, 85) ! rate_const*NOp*e - rxt_rates(:ncol,:, 285) = rxt_rates(:ncol,:, 285)*sol(:ncol,:, 94)*sol(:ncol,:, 85) ! rate_const*O2p*e - rxt_rates(:ncol,:, 286) = rxt_rates(:ncol,:, 286)*sol(:ncol,:, 88)*sol(:ncol,:, 85) ! rate_const*N2p*e - rxt_rates(:ncol,:, 287) = rxt_rates(:ncol,:, 287)*sol(:ncol,:, 88)*sol(:ncol,:, 67) ! rate_const*N2p*O2 - rxt_rates(:ncol,:, 288) = rxt_rates(:ncol,:, 288)*sol(:ncol,:, 88)*sol(:ncol,:, 66) ! rate_const*N2p*O - rxt_rates(:ncol,:, 289) = rxt_rates(:ncol,:, 289)*sol(:ncol,:, 88)*sol(:ncol,:, 66) ! rate_const*N2p*O - rxt_rates(:ncol,:, 290) = rxt_rates(:ncol,:, 290)*sol(:ncol,:, 90)*sol(:ncol,:, 66) ! rate_const*Np*O - rxt_rates(:ncol,:, 291) = rxt_rates(:ncol,:, 291)*sol(:ncol,:, 90)*sol(:ncol,:, 67) ! rate_const*Np*O2 - rxt_rates(:ncol,:, 292) = rxt_rates(:ncol,:, 292)*sol(:ncol,:, 90)*sol(:ncol,:, 67) ! rate_const*Np*O2 - rxt_rates(:ncol,:, 293) = rxt_rates(:ncol,:, 293)*sol(:ncol,:, 94)*sol(:ncol,:, 53) ! rate_const*O2p*N - rxt_rates(:ncol,:, 294) = rxt_rates(:ncol,:, 294)*sol(:ncol,:, 94) ! rate_const*N2*O2p - rxt_rates(:ncol,:, 295) = rxt_rates(:ncol,:, 295)*sol(:ncol,:, 94)*sol(:ncol,:, 59) ! rate_const*O2p*NO - rxt_rates(:ncol,:, 296) = rxt_rates(:ncol,:, 296)*sol(:ncol,:, 96)*sol(:ncol,:, 30) ! rate_const*Op*CO2 - rxt_rates(:ncol,:, 297) = rxt_rates(:ncol,:, 297)*sol(:ncol,:, 96) ! rate_const*N2*Op - rxt_rates(:ncol,:, 298) = rxt_rates(:ncol,:, 298)*sol(:ncol,:, 96)*sol(:ncol,:, 67) ! rate_const*Op*O2 + 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,:, 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,:, 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,:, 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,:, 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,:, 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,:, 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,:, 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,:, 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,:, 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,:, 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,:, 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,:, 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 a10f77b3f6..87de9d4b32 100644 --- a/src/chemistry/pp_waccm_ma_mam4/mo_setrxt.F90 +++ b/src/chemistry/pp_waccm_ma_mam4/mo_setrxt.F90 @@ -37,212 +37,232 @@ subroutine setrxt( rate, temp, m, ncol ) real(r8) :: ko(ncol*pver) real(r8) :: kinf(ncol*pver) - rate(:,91) = 0.000258_r8 - rate(:,92) = 0.085_r8 - rate(:,93) = 1.2e-10_r8 - rate(:,98) = 1.2e-10_r8 - rate(:,99) = 1e-20_r8 - rate(:,100) = 1.3e-16_r8 - rate(:,102) = 4.2e-13_r8 - rate(:,104) = 8e-14_r8 - rate(:,105) = 3.9e-17_r8 - rate(:,112) = 6.9e-12_r8 - rate(:,113) = 7.2e-11_r8 - rate(:,114) = 1.6e-12_r8 - rate(:,120) = 1.8e-12_r8 - rate(:,124) = 1.8e-12_r8 - rate(:,128) = 7e-13_r8 - rate(:,129) = 5e-12_r8 - rate(:,138) = 3.5e-12_r8 - rate(:,140) = 1e-11_r8 - rate(:,141) = 2.2e-11_r8 - rate(:,142) = 5e-11_r8 - rate(:,177) = 1.7e-13_r8 - rate(:,179) = 2.607e-10_r8 - rate(:,180) = 9.75e-11_r8 - rate(:,181) = 2.07e-10_r8 - rate(:,182) = 2.088e-10_r8 - rate(:,183) = 1.17e-10_r8 - rate(:,184) = 4.644e-11_r8 - rate(:,185) = 1.204e-10_r8 - rate(:,186) = 9.9e-11_r8 - rate(:,187) = 3.3e-12_r8 - rate(:,206) = 4.5e-11_r8 - rate(:,207) = 4.62e-10_r8 - rate(:,208) = 1.2e-10_r8 - rate(:,209) = 9e-11_r8 - rate(:,210) = 3e-11_r8 - rate(:,215) = 2.14e-11_r8 - rate(:,216) = 1.9e-10_r8 - rate(:,229) = 2.57e-10_r8 - rate(:,230) = 1.8e-10_r8 - rate(:,231) = 1.794e-10_r8 - rate(:,232) = 1.3e-10_r8 - rate(:,233) = 7.65e-11_r8 - rate(:,242) = 1.31e-10_r8 - rate(:,243) = 3.5e-11_r8 - rate(:,244) = 9e-12_r8 - rate(:,248) = 2.3e-12_r8 - rate(:,249) = 1.2e-11_r8 - rate(:,250) = 5.7e-11_r8 - rate(:,251) = 2.8e-11_r8 - rate(:,252) = 6.6e-11_r8 - rate(:,253) = 1.4e-11_r8 - rate(:,256) = 1.9e-12_r8 - rate(:,287) = 6e-11_r8 - rate(:,290) = 1e-12_r8 - rate(:,291) = 4e-10_r8 - rate(:,292) = 2e-10_r8 - rate(:,293) = 1e-10_r8 - rate(:,294) = 5e-16_r8 - rate(:,295) = 4.4e-10_r8 - rate(:,296) = 9e-10_r8 + rate(:,92) = 0.000258_r8 + rate(:,93) = 0.085_r8 + rate(:,94) = 1.2e-10_r8 + rate(:,99) = 1.2e-10_r8 + rate(:,100) = 1e-20_r8 + rate(:,101) = 1.3e-16_r8 + rate(:,103) = 4.2e-13_r8 + rate(:,105) = 8e-14_r8 + rate(:,106) = 3.9e-17_r8 + rate(:,113) = 6.9e-12_r8 + rate(:,114) = 7.2e-11_r8 + rate(:,115) = 1.6e-12_r8 + rate(:,121) = 1.8e-12_r8 + rate(:,125) = 1.8e-12_r8 + rate(:,129) = 7e-13_r8 + rate(:,130) = 5e-12_r8 + rate(:,139) = 3.5e-12_r8 + rate(:,141) = 1e-11_r8 + rate(:,142) = 2.2e-11_r8 + rate(:,143) = 5e-11_r8 + rate(:,178) = 1.7e-13_r8 + rate(:,180) = 2.607e-10_r8 + rate(:,181) = 9.75e-11_r8 + rate(:,182) = 2.07e-10_r8 + rate(:,183) = 2.088e-10_r8 + rate(:,184) = 1.17e-10_r8 + rate(:,185) = 4.644e-11_r8 + rate(:,186) = 1.204e-10_r8 + rate(:,187) = 9.9e-11_r8 + rate(:,188) = 3.3e-12_r8 + rate(:,207) = 4.5e-11_r8 + rate(:,208) = 4.62e-10_r8 + rate(:,209) = 1.2e-10_r8 + rate(:,210) = 9e-11_r8 + rate(:,211) = 3e-11_r8 + rate(:,216) = 2.14e-11_r8 + rate(:,217) = 1.9e-10_r8 + rate(:,230) = 2.57e-10_r8 + rate(:,231) = 1.8e-10_r8 + rate(:,232) = 1.794e-10_r8 + rate(:,233) = 1.3e-10_r8 + rate(:,234) = 7.65e-11_r8 + rate(:,243) = 1.31e-10_r8 + rate(:,244) = 3.5e-11_r8 + rate(:,245) = 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 + rate(:,291) = 6e-11_r8 + rate(:,294) = 1e-12_r8 + rate(:,295) = 4e-10_r8 + rate(:,296) = 2e-10_r8 + rate(:,297) = 1e-10_r8 + rate(:,298) = 5e-16_r8 + rate(:,299) = 4.4e-10_r8 + rate(:,300) = 9e-10_r8 + rate(:,302) = 1.3e-10_r8 + rate(:,305) = 8e-10_r8 + rate(:,306) = 5e-12_r8 + rate(:,307) = 7e-10_r8 + rate(:,310) = 4.8e-10_r8 + rate(:,311) = 1e-10_r8 + rate(:,312) = 4e-10_r8 do n = 1,pver offset = (n-1)*ncol itemp(offset+1:offset+ncol) = 1._r8 / temp(:ncol,n) end do - rate(:,94) = 1.63e-10_r8 * exp( 60._r8 * itemp(:) ) - rate(:,95) = 2.15e-11_r8 * exp( 110._r8 * itemp(:) ) + rate(:,95) = 1.63e-10_r8 * exp( 60._r8 * itemp(:) ) + rate(:,96) = 2.15e-11_r8 * exp( 110._r8 * itemp(:) ) exp_fac(:) = exp( 55._r8 * itemp(:) ) - rate(:,96) = 2.64e-11_r8 * exp_fac(:) - rate(:,97) = 6.6e-12_r8 * exp_fac(:) - rate(:,101) = 3.6e-18_r8 * exp( -220._r8 * itemp(:) ) - rate(:,103) = 1.8e-15_r8 * exp( 45._r8 * itemp(:) ) - rate(:,106) = 3.5e-11_r8 * exp( -135._r8 * itemp(:) ) - rate(:,107) = 8e-12_r8 * exp( -2060._r8 * itemp(:) ) - rate(:,110) = 1.6e-11_r8 * exp( -4570._r8 * itemp(:) ) - rate(:,111) = 1.4e-12_r8 * exp( -2000._r8 * itemp(:) ) + rate(:,97) = 2.64e-11_r8 * exp_fac(:) + rate(:,98) = 6.6e-12_r8 * exp_fac(:) + rate(:,102) = 3.6e-18_r8 * exp( -220._r8 * itemp(:) ) + rate(:,104) = 1.8e-15_r8 * exp( 45._r8 * itemp(:) ) + rate(:,107) = 3.5e-11_r8 * exp( -135._r8 * itemp(:) ) + rate(:,108) = 8e-12_r8 * exp( -2060._r8 * itemp(:) ) + rate(:,111) = 1.6e-11_r8 * exp( -4570._r8 * itemp(:) ) + rate(:,112) = 1.4e-12_r8 * exp( -2000._r8 * itemp(:) ) exp_fac(:) = exp( 200._r8 * itemp(:) ) - rate(:,116) = 3e-11_r8 * exp_fac(:) - rate(:,204) = 5.5e-12_r8 * exp_fac(:) - rate(:,239) = 3.8e-12_r8 * exp_fac(:) - rate(:,117) = 1e-14_r8 * exp( -490._r8 * itemp(:) ) - rate(:,118) = 1.4e-10_r8 * exp( -470._r8 * itemp(:) ) - rate(:,119) = 2.8e-12_r8 * exp( -1800._r8 * itemp(:) ) + rate(:,117) = 3e-11_r8 * exp_fac(:) + rate(:,205) = 5.5e-12_r8 * exp_fac(:) + rate(:,240) = 3.8e-12_r8 * exp_fac(:) + rate(:,118) = 1e-14_r8 * exp( -490._r8 * itemp(:) ) + rate(:,119) = 1.4e-10_r8 * exp( -470._r8 * itemp(:) ) + rate(:,120) = 2.8e-12_r8 * exp( -1800._r8 * itemp(:) ) exp_fac(:) = exp( 250._r8 * itemp(:) ) - rate(:,121) = 4.8e-11_r8 * exp_fac(:) - rate(:,202) = 1.7e-11_r8 * exp_fac(:) - rate(:,122) = 1.8e-11_r8 * exp( 180._r8 * itemp(:) ) - rate(:,123) = 1.7e-12_r8 * exp( -940._r8 * itemp(:) ) - rate(:,127) = 1.3e-12_r8 * exp( 380._r8 * itemp(:) ) - rate(:,130) = 2.1e-11_r8 * exp( 100._r8 * itemp(:) ) + rate(:,122) = 4.8e-11_r8 * exp_fac(:) + rate(:,203) = 1.7e-11_r8 * exp_fac(:) + rate(:,123) = 1.8e-11_r8 * exp( 180._r8 * itemp(:) ) + rate(:,124) = 1.7e-12_r8 * exp( -940._r8 * itemp(:) ) + rate(:,128) = 1.3e-12_r8 * exp( 380._r8 * itemp(:) ) + rate(:,131) = 2.1e-11_r8 * exp( 100._r8 * itemp(:) ) exp_fac(:) = exp( 220._r8 * itemp(:) ) - rate(:,131) = 2.9e-12_r8 * exp_fac(:) - rate(:,132) = 1.45e-12_r8 * exp_fac(:) + rate(:,132) = 2.9e-12_r8 * exp_fac(:) rate(:,133) = 1.45e-12_r8 * exp_fac(:) - rate(:,134) = 1.5e-11_r8 * exp( -3600._r8 * itemp(:) ) - rate(:,135) = 5.1e-12_r8 * exp( 210._r8 * itemp(:) ) + rate(:,134) = 1.45e-12_r8 * exp_fac(:) + rate(:,135) = 1.5e-11_r8 * exp( -3600._r8 * itemp(:) ) + rate(:,136) = 5.1e-12_r8 * exp( 210._r8 * itemp(:) ) exp_fac(:) = exp( -2450._r8 * itemp(:) ) - rate(:,136) = 1.2e-13_r8 * exp_fac(:) - rate(:,162) = 3e-11_r8 * exp_fac(:) - rate(:,139) = 1.5e-11_r8 * exp( 170._r8 * itemp(:) ) + rate(:,137) = 1.2e-13_r8 * exp_fac(:) + rate(:,163) = 3e-11_r8 * exp_fac(:) + rate(:,140) = 1.5e-11_r8 * exp( 170._r8 * itemp(:) ) exp_fac(:) = exp( 270._r8 * itemp(:) ) - rate(:,143) = 3.3e-12_r8 * exp_fac(:) - rate(:,158) = 1.4e-11_r8 * exp_fac(:) - rate(:,172) = 7.4e-12_r8 * exp_fac(:) + rate(:,144) = 3.3e-12_r8 * exp_fac(:) + rate(:,159) = 1.4e-11_r8 * exp_fac(:) + rate(:,173) = 7.4e-12_r8 * exp_fac(:) exp_fac(:) = exp( -1500._r8 * itemp(:) ) - rate(:,144) = 3e-12_r8 * exp_fac(:) - rate(:,203) = 5.8e-12_r8 * exp_fac(:) + rate(:,145) = 3e-12_r8 * exp_fac(:) + rate(:,204) = 5.8e-12_r8 * exp_fac(:) exp_fac(:) = exp( 20._r8 * itemp(:) ) - rate(:,146) = 7.26e-11_r8 * exp_fac(:) - rate(:,147) = 4.64e-11_r8 * exp_fac(:) - rate(:,154) = 8.1e-11_r8 * exp( -30._r8 * itemp(:) ) - rate(:,155) = 7.1e-12_r8 * exp( -1270._r8 * itemp(:) ) - rate(:,156) = 3.05e-11_r8 * exp( -2270._r8 * itemp(:) ) - rate(:,157) = 1.1e-11_r8 * exp( -980._r8 * itemp(:) ) - rate(:,159) = 3.6e-11_r8 * exp( -375._r8 * itemp(:) ) - rate(:,160) = 2.3e-11_r8 * exp( -200._r8 * itemp(:) ) - rate(:,161) = 3.3e-12_r8 * exp( -115._r8 * itemp(:) ) - rate(:,163) = 1e-12_r8 * exp( -1590._r8 * itemp(:) ) - rate(:,164) = 3.5e-13_r8 * exp( -1370._r8 * itemp(:) ) + rate(:,147) = 7.26e-11_r8 * exp_fac(:) + rate(:,148) = 4.64e-11_r8 * exp_fac(:) + rate(:,155) = 8.1e-11_r8 * exp( -30._r8 * itemp(:) ) + rate(:,156) = 7.1e-12_r8 * exp( -1270._r8 * itemp(:) ) + rate(:,157) = 3.05e-11_r8 * exp( -2270._r8 * itemp(:) ) + rate(:,158) = 1.1e-11_r8 * exp( -980._r8 * itemp(:) ) + rate(:,160) = 3.6e-11_r8 * exp( -375._r8 * itemp(:) ) + rate(:,161) = 2.3e-11_r8 * exp( -200._r8 * itemp(:) ) + rate(:,162) = 3.3e-12_r8 * exp( -115._r8 * itemp(:) ) + rate(:,164) = 1e-12_r8 * exp( -1590._r8 * itemp(:) ) + rate(:,165) = 3.5e-13_r8 * exp( -1370._r8 * itemp(:) ) exp_fac(:) = exp( 290._r8 * itemp(:) ) - rate(:,165) = 2.6e-12_r8 * exp_fac(:) - rate(:,166) = 6.4e-12_r8 * exp_fac(:) - rate(:,196) = 4.1e-13_r8 * exp_fac(:) - rate(:,167) = 6.5e-12_r8 * exp( 135._r8 * itemp(:) ) + rate(:,166) = 2.6e-12_r8 * exp_fac(:) + rate(:,167) = 6.4e-12_r8 * exp_fac(:) + rate(:,197) = 4.1e-13_r8 * exp_fac(:) + rate(:,168) = 6.5e-12_r8 * exp( 135._r8 * itemp(:) ) exp_fac(:) = exp( -840._r8 * itemp(:) ) - rate(:,169) = 3.6e-12_r8 * exp_fac(:) - rate(:,218) = 2e-12_r8 * exp_fac(:) - rate(:,170) = 1.2e-12_r8 * exp( -330._r8 * itemp(:) ) - rate(:,171) = 2.8e-11_r8 * exp( 85._r8 * itemp(:) ) + rate(:,170) = 3.6e-12_r8 * exp_fac(:) + rate(:,219) = 2e-12_r8 * exp_fac(:) + rate(:,171) = 1.2e-12_r8 * exp( -330._r8 * itemp(:) ) + rate(:,172) = 2.8e-11_r8 * exp( 85._r8 * itemp(:) ) exp_fac(:) = exp( 230._r8 * itemp(:) ) - rate(:,173) = 6e-13_r8 * exp_fac(:) - rate(:,193) = 1.5e-12_r8 * exp_fac(:) - rate(:,201) = 1.9e-11_r8 * exp_fac(:) - rate(:,174) = 1e-11_r8 * exp( -3300._r8 * itemp(:) ) - rate(:,175) = 1.8e-12_r8 * exp( -250._r8 * itemp(:) ) - rate(:,176) = 3.4e-12_r8 * exp( -130._r8 * itemp(:) ) + rate(:,174) = 6e-13_r8 * exp_fac(:) + rate(:,194) = 1.5e-12_r8 * exp_fac(:) + rate(:,202) = 1.9e-11_r8 * exp_fac(:) + rate(:,175) = 1e-11_r8 * exp( -3300._r8 * itemp(:) ) + rate(:,176) = 1.8e-12_r8 * exp( -250._r8 * itemp(:) ) + rate(:,177) = 3.4e-12_r8 * exp( -130._r8 * itemp(:) ) exp_fac(:) = exp( -500._r8 * itemp(:) ) - rate(:,178) = 3e-12_r8 * exp_fac(:) - rate(:,212) = 1.4e-10_r8 * exp_fac(:) + rate(:,179) = 3e-12_r8 * exp_fac(:) + rate(:,213) = 1.4e-10_r8 * exp_fac(:) exp_fac(:) = exp( -800._r8 * itemp(:) ) - rate(:,190) = 1.7e-11_r8 * exp_fac(:) - rate(:,217) = 6.3e-12_r8 * exp_fac(:) - rate(:,191) = 4.8e-12_r8 * exp( -310._r8 * itemp(:) ) - rate(:,192) = 1.6e-11_r8 * exp( -780._r8 * itemp(:) ) - rate(:,194) = 9.5e-13_r8 * exp( 550._r8 * itemp(:) ) + rate(:,191) = 1.7e-11_r8 * exp_fac(:) + rate(:,218) = 6.3e-12_r8 * exp_fac(:) + rate(:,192) = 4.8e-12_r8 * exp( -310._r8 * itemp(:) ) + rate(:,193) = 1.6e-11_r8 * exp( -780._r8 * itemp(:) ) + rate(:,195) = 9.5e-13_r8 * exp( 550._r8 * itemp(:) ) exp_fac(:) = exp( 260._r8 * itemp(:) ) - rate(:,195) = 2.3e-12_r8 * exp_fac(:) - rate(:,198) = 8.8e-12_r8 * exp_fac(:) - rate(:,197) = 4.5e-12_r8 * exp( 460._r8 * itemp(:) ) - rate(:,200) = 1.9e-11_r8 * exp( 215._r8 * itemp(:) ) - rate(:,205) = 1.2e-10_r8 * exp( -430._r8 * itemp(:) ) - rate(:,211) = 1.6e-10_r8 * exp( -260._r8 * itemp(:) ) + rate(:,196) = 2.3e-12_r8 * exp_fac(:) + rate(:,199) = 8.8e-12_r8 * exp_fac(:) + rate(:,198) = 4.5e-12_r8 * exp( 460._r8 * itemp(:) ) + rate(:,201) = 1.9e-11_r8 * exp( 215._r8 * itemp(:) ) + rate(:,206) = 1.2e-10_r8 * exp( -430._r8 * itemp(:) ) + rate(:,212) = 1.6e-10_r8 * exp( -260._r8 * itemp(:) ) exp_fac(:) = exp( 0._r8 * itemp(:) ) - rate(:,213) = 1.4e-11_r8 * exp_fac(:) - rate(:,215) = 2.14e-11_r8 * exp_fac(:) - rate(:,216) = 1.9e-10_r8 * exp_fac(:) - rate(:,229) = 2.57e-10_r8 * exp_fac(:) - rate(:,230) = 1.8e-10_r8 * exp_fac(:) - rate(:,231) = 1.794e-10_r8 * exp_fac(:) - rate(:,232) = 1.3e-10_r8 * exp_fac(:) - rate(:,233) = 7.65e-11_r8 * exp_fac(:) - rate(:,242) = 1.31e-10_r8 * exp_fac(:) - rate(:,243) = 3.5e-11_r8 * exp_fac(:) - rate(:,244) = 9e-12_r8 * exp_fac(:) - rate(:,248) = 2.3e-12_r8 * exp_fac(:) - rate(:,249) = 1.2e-11_r8 * exp_fac(:) - rate(:,250) = 5.7e-11_r8 * exp_fac(:) - rate(:,251) = 2.8e-11_r8 * exp_fac(:) - rate(:,252) = 6.6e-11_r8 * exp_fac(:) - rate(:,253) = 1.4e-11_r8 * exp_fac(:) - rate(:,256) = 1.9e-12_r8 * exp_fac(:) - rate(:,287) = 6e-11_r8 * exp_fac(:) - rate(:,290) = 1e-12_r8 * exp_fac(:) - rate(:,291) = 4e-10_r8 * exp_fac(:) - rate(:,292) = 2e-10_r8 * exp_fac(:) - rate(:,293) = 1e-10_r8 * exp_fac(:) - rate(:,294) = 5e-16_r8 * exp_fac(:) - rate(:,295) = 4.4e-10_r8 * exp_fac(:) - rate(:,296) = 9e-10_r8 * exp_fac(:) - rate(:,214) = 6e-12_r8 * exp( 400._r8 * itemp(:) ) - rate(:,219) = 1.46e-11_r8 * exp( -1040._r8 * itemp(:) ) - rate(:,220) = 1.42e-12_r8 * exp( -1150._r8 * itemp(:) ) - rate(:,221) = 1.64e-12_r8 * exp( -1520._r8 * itemp(:) ) + rate(:,214) = 1.4e-11_r8 * exp_fac(:) + rate(:,216) = 2.14e-11_r8 * exp_fac(:) + rate(:,217) = 1.9e-10_r8 * exp_fac(:) + rate(:,230) = 2.57e-10_r8 * exp_fac(:) + rate(:,231) = 1.8e-10_r8 * exp_fac(:) + rate(:,232) = 1.794e-10_r8 * exp_fac(:) + rate(:,233) = 1.3e-10_r8 * exp_fac(:) + rate(:,234) = 7.65e-11_r8 * exp_fac(:) + rate(:,243) = 1.31e-10_r8 * exp_fac(:) + rate(:,244) = 3.5e-11_r8 * exp_fac(:) + rate(:,245) = 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(:) + rate(:,291) = 6e-11_r8 * exp_fac(:) + rate(:,294) = 1e-12_r8 * exp_fac(:) + rate(:,295) = 4e-10_r8 * exp_fac(:) + rate(:,296) = 2e-10_r8 * exp_fac(:) + rate(:,297) = 1e-10_r8 * exp_fac(:) + rate(:,298) = 5e-16_r8 * exp_fac(:) + rate(:,299) = 4.4e-10_r8 * exp_fac(:) + rate(:,300) = 9e-10_r8 * exp_fac(:) + rate(:,302) = 1.3e-10_r8 * exp_fac(:) + rate(:,305) = 8e-10_r8 * exp_fac(:) + rate(:,306) = 5e-12_r8 * exp_fac(:) + rate(:,307) = 7e-10_r8 * exp_fac(:) + rate(:,310) = 4.8e-10_r8 * exp_fac(:) + rate(:,311) = 1e-10_r8 * exp_fac(:) + rate(:,312) = 4e-10_r8 * exp_fac(:) + rate(:,215) = 6e-12_r8 * exp( 400._r8 * itemp(:) ) + rate(:,220) = 1.46e-11_r8 * exp( -1040._r8 * itemp(:) ) + rate(:,221) = 1.42e-12_r8 * exp( -1150._r8 * itemp(:) ) + rate(:,222) = 1.64e-12_r8 * exp( -1520._r8 * itemp(:) ) exp_fac(:) = exp( -1100._r8 * itemp(:) ) - rate(:,222) = 2.03e-11_r8 * exp_fac(:) - rate(:,255) = 3.4e-12_r8 * exp_fac(:) - rate(:,223) = 1.96e-12_r8 * exp( -1200._r8 * itemp(:) ) - rate(:,224) = 4.85e-12_r8 * exp( -850._r8 * itemp(:) ) - rate(:,225) = 9e-13_r8 * exp( -360._r8 * itemp(:) ) + rate(:,223) = 2.03e-11_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(:) ) exp_fac(:) = exp( -1600._r8 * itemp(:) ) - rate(:,226) = 1.25e-12_r8 * exp_fac(:) - rate(:,235) = 3.4e-11_r8 * exp_fac(:) - rate(:,227) = 1.3e-12_r8 * exp( -1770._r8 * itemp(:) ) - rate(:,228) = 9.2e-13_r8 * exp( -1560._r8 * itemp(:) ) - rate(:,234) = 6e-13_r8 * exp( -2058._r8 * itemp(:) ) - rate(:,236) = 5.5e-12_r8 * exp( 125._r8 * itemp(:) ) - rate(:,237) = 4.1e-13_r8 * exp( 750._r8 * itemp(:) ) - rate(:,238) = 2.8e-12_r8 * exp( 300._r8 * itemp(:) ) - rate(:,240) = 2.45e-12_r8 * exp( -1775._r8 * itemp(:) ) - rate(:,246) = 2.1e-11_r8 * exp( -2200._r8 * itemp(:) ) - rate(:,247) = 7.2e-14_r8 * exp( -1070._r8 * itemp(:) ) - rate(:,254) = 1.6e-13_r8 * exp( -2280._r8 * itemp(:) ) - rate(:,257) = 2.7e-11_r8 * exp( 335._r8 * itemp(:) ) - rate(:,260) = 1.9e-13_r8 * exp( 520._r8 * itemp(:) ) - rate(:,261) = 9.6e-12_r8 * exp( -234._r8 * itemp(:) ) + rate(:,227) = 1.25e-12_r8 * exp_fac(:) + rate(:,236) = 3.4e-11_r8 * exp_fac(:) + rate(:,228) = 1.3e-12_r8 * exp( -1770._r8 * itemp(:) ) + rate(:,229) = 9.2e-13_r8 * exp( -1560._r8 * itemp(:) ) + rate(:,235) = 6e-13_r8 * exp( -2058._r8 * itemp(:) ) + rate(:,237) = 5.5e-12_r8 * exp( 125._r8 * itemp(:) ) + rate(:,238) = 4.1e-13_r8 * exp( 750._r8 * itemp(:) ) + rate(:,239) = 2.8e-12_r8 * exp( 300._r8 * itemp(:) ) + rate(:,241) = 2.45e-12_r8 * exp( -1775._r8 * itemp(:) ) + rate(:,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(:) @@ -250,47 +270,47 @@ subroutine setrxt( rate, temp, m, ncol ) ko(:) = 4.4e-32_r8 * itemp(:)**1.3_r8 kinf(:) = 7.5e-11_r8 * itemp(:)**(-0.2_r8) - call jpl( rate(:,115), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,116), m, 0.6_r8, ko, kinf, n ) ko(:) = 6.9e-31_r8 * itemp(:)**1._r8 kinf(:) = 2.6e-11_r8 - call jpl( rate(:,125), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,126), 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(:,137), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,138), m, 0.6_r8, ko, kinf, n ) ko(:) = 9e-32_r8 * itemp(:)**1.5_r8 kinf(:) = 3e-11_r8 - call jpl( rate(:,145), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,146), 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(:,148), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,149), 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(:,149), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,150), m, 0.6_r8, ko, kinf, n ) ko(:) = 1.8e-30_r8 * itemp(:)**3._r8 kinf(:) = 2.8e-11_r8 - call jpl( rate(:,150), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,151), 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(:,168), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,169), 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(:,188), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,189), 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(:,199), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,200), 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(:,241), m, 0.6_r8, ko, kinf, n ) + call jpl( rate(:,242), m, 0.6_r8, ko, kinf, n ) end subroutine setrxt @@ -328,51 +348,61 @@ subroutine setrxt_hrates( rate, temp, m, ncol, kbot ) n = ncol*kbot - rate(:n,99) = 1e-20_r8 - rate(:n,100) = 1.3e-16_r8 - rate(:n,104) = 8e-14_r8 - rate(:n,105) = 3.9e-17_r8 - rate(:n,112) = 6.9e-12_r8 - rate(:n,128) = 7e-13_r8 - rate(:n,129) = 5e-12_r8 - rate(:n,287) = 6e-11_r8 - rate(:n,290) = 1e-12_r8 - rate(:n,291) = 4e-10_r8 - rate(:n,292) = 2e-10_r8 - rate(:n,293) = 1e-10_r8 - rate(:n,295) = 4.4e-10_r8 + rate(:n,100) = 1e-20_r8 + rate(:n,101) = 1.3e-16_r8 + rate(:n,105) = 8e-14_r8 + rate(:n,106) = 3.9e-17_r8 + rate(:n,113) = 6.9e-12_r8 + rate(:n,129) = 7e-13_r8 + rate(:n,130) = 5e-12_r8 + rate(:n,285) = 0.047_r8 + rate(:n,286) = 7.7e-05_r8 + rate(:n,287) = 0.171_r8 + rate(:n,291) = 6e-11_r8 + rate(:n,294) = 1e-12_r8 + rate(:n,295) = 4e-10_r8 + rate(:n,296) = 2e-10_r8 + rate(:n,297) = 1e-10_r8 + rate(:n,299) = 4.4e-10_r8 + rate(:n,302) = 1.3e-10_r8 + rate(:n,305) = 8e-10_r8 + rate(:n,306) = 5e-12_r8 + rate(:n,307) = 7e-10_r8 + rate(:n,310) = 4.8e-10_r8 + rate(:n,311) = 1e-10_r8 + rate(:n,312) = 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,95) = 2.15e-11_r8 * exp( 110._r8 * itemp(:) ) + rate(:n,96) = 2.15e-11_r8 * exp( 110._r8 * itemp(:) ) exp_fac(:) = exp( 55._r8 * itemp(:) ) - rate(:n,96) = 2.64e-11_r8 * exp_fac(:) - rate(:n,97) = 6.6e-12_r8 * exp_fac(:) - rate(:n,101) = 3.6e-18_r8 * exp( -220._r8 * itemp(:) ) - rate(:n,103) = 1.8e-15_r8 * exp( 45._r8 * itemp(:) ) - rate(:n,106) = 3.5e-11_r8 * exp( -135._r8 * itemp(:) ) - rate(:n,107) = 8e-12_r8 * exp( -2060._r8 * itemp(:) ) - rate(:n,116) = 3e-11_r8 * exp( 200._r8 * itemp(:) ) - rate(:n,117) = 1e-14_r8 * exp( -490._r8 * itemp(:) ) - rate(:n,118) = 1.4e-10_r8 * exp( -470._r8 * itemp(:) ) - rate(:n,121) = 4.8e-11_r8 * exp( 250._r8 * itemp(:) ) - rate(:n,122) = 1.8e-11_r8 * exp( 180._r8 * itemp(:) ) - rate(:n,123) = 1.7e-12_r8 * exp( -940._r8 * itemp(:) ) - rate(:n,130) = 2.1e-11_r8 * exp( 100._r8 * itemp(:) ) - rate(:n,134) = 1.5e-11_r8 * exp( -3600._r8 * itemp(:) ) - rate(:n,135) = 5.1e-12_r8 * exp( 210._r8 * itemp(:) ) - rate(:n,143) = 3.3e-12_r8 * exp( 270._r8 * itemp(:) ) - rate(:n,144) = 3e-12_r8 * exp( -1500._r8 * itemp(:) ) + rate(:n,97) = 2.64e-11_r8 * exp_fac(:) + rate(:n,98) = 6.6e-12_r8 * exp_fac(:) + rate(:n,102) = 3.6e-18_r8 * exp( -220._r8 * itemp(:) ) + rate(:n,104) = 1.8e-15_r8 * exp( 45._r8 * itemp(:) ) + rate(:n,107) = 3.5e-11_r8 * exp( -135._r8 * itemp(:) ) + rate(:n,108) = 8e-12_r8 * exp( -2060._r8 * itemp(:) ) + rate(:n,117) = 3e-11_r8 * exp( 200._r8 * itemp(:) ) + rate(:n,118) = 1e-14_r8 * exp( -490._r8 * itemp(:) ) + rate(:n,119) = 1.4e-10_r8 * exp( -470._r8 * itemp(:) ) + rate(:n,122) = 4.8e-11_r8 * exp( 250._r8 * itemp(:) ) + rate(:n,123) = 1.8e-11_r8 * exp( 180._r8 * itemp(:) ) + rate(:n,124) = 1.7e-12_r8 * exp( -940._r8 * itemp(:) ) + rate(:n,131) = 2.1e-11_r8 * exp( 100._r8 * itemp(:) ) + rate(:n,135) = 1.5e-11_r8 * exp( -3600._r8 * itemp(:) ) + rate(:n,136) = 5.1e-12_r8 * exp( 210._r8 * itemp(:) ) + rate(:n,144) = 3.3e-12_r8 * exp( 270._r8 * itemp(:) ) + rate(:n,145) = 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,115) = wrk(:) + rate(:n,116) = wrk(:) 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 b36358a41f..d5c002a826 100644 --- a/src/chemistry/pp_waccm_ma_mam4/mo_sim_dat.F90 +++ b/src/chemistry/pp_waccm_ma_mam4/mo_sim_dat.F90 @@ -31,105 +31,105 @@ subroutine set_sim_dat is_scalar = .false. is_vector = .true. - clscnt(:) = (/ 22, 0, 0, 75, 0 /) + clscnt(:) = (/ 23, 0, 0, 77, 0 /) - cls_rxt_cnt(:,1) = (/ 3, 58, 0, 22 /) - cls_rxt_cnt(:,4) = (/ 30, 120, 148, 75 /) + cls_rxt_cnt(:,1) = (/ 3, 59, 0, 23 /) + cls_rxt_cnt(:,4) = (/ 30, 126, 155, 77 /) - solsym(: 97) = (/ '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 ','SO ','SO2 ', & - 'SO3 ','so4_a1 ','so4_a2 ','so4_a3 ','soa_a1 ', & - 'soa_a2 ','SOAG ','BR ','CL ','e ', & - 'HO2 ','N2D ','N2p ','NOp ','Np ', & - 'O1D ','O2_1D ','O2_1S ','O2p ','OH ', & - 'Op ','H2O ' /) + 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(: 97) = (/ 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, 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, 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, 18.014200_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(: 97) = (/ 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, & + crb_mass(:100) = (/ 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, & + 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, 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, 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, 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, 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(: 22,1) = (/ 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, & - 17, 18, 19, 22, 23, 28, 30, 40, 44, 45, & - 46, 54 /) - clsmap(: 75,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, 74, 75, 76, 77, 78, 79, 80, 81, 82, & - 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, & - 93, 94, 95, 96, 97 /) + 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(: 75,4) = (/ 1, 2, 29, 63, 40, 67, 60, 35, 26, 21, & - 66, 54, 39, 23, 27, 32, 3, 4, 5, 46, & - 57, 70, 41, 22, 51, 58, 28, 55, 36, 45, & - 52, 50, 31, 6, 7, 8, 68, 65, 61, 9, & - 10, 11, 12, 74, 71, 72, 33, 34, 13, 14, & - 43, 56, 53, 30, 15, 16, 17, 18, 19, 20, & - 59, 62, 49, 64, 38, 42, 48, 37, 69, 24, & - 25, 47, 73, 44, 75 /) + 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(: 75) = (/ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & + 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, 102, 106, & - 114, 122, 132, 140, 150, 159, 167, 176, 188, 202, & - 211, 220, 228, 236, 248, 259, 273, 288, 307, 320, & - 342, 368, 395, 421, 450, 479, 502, 525, 551, 574, & - 604, 627, 665, 707, 733 /) + 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, 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,9 +145,9 @@ subroutine set_sim_dat inv_lst(: 2) = (/ 'M ', 'N2 ' /) - slvd_lst(: 14) = (/ 'BR ', 'CL ', 'e ', 'HO2 ', 'N2D ', & - 'N2p ', 'NOp ', 'Np ', 'O1D ', 'O2_1D ', & - 'O2_1S ', 'O2p ', 'OH ', 'Op ' /) + 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 ) @@ -194,126 +194,133 @@ subroutine set_sim_dat 'jhcfc142b ', 'jhcfc22 ', & 'jhcl ', 'jhf ', & 'jhobr ', 'jhocl ', & - 'joclo ', 'jeuv_26 ', & - 'jeuv_4 ', 'jeuv_23 ', & - 'jeuv_25 ', 'jeuv_6 ', & - 'jeuv_22 ', 'jeuv_18 ', & - 'jeuv_13 ', 'jeuv_11 ', & - 'jeuv_10 ', 'jeuv_1 ', & - 'jeuv_14 ', 'jeuv_2 ', & - 'jeuv_3 ', 'jeuv_15 ', & - 'jeuv_16 ', 'jeuv_9 ', & - 'jeuv_17 ', 'jeuv_7 ', & - 'jeuv_5 ', 'jeuv_19 ', & - 'jeuv_24 ', 'jeuv_12 ', & - 'jeuv_20 ', 'jeuv_21 ', & - 'jeuv_8 ', 'jh2so4 ', & - 'jocs ', 'jso ', & - 'jso2 ', 'jso3 ', & - 'ag1 ', 'ag2 ', & - 'O1D_H2 ', 'O1D_H2O ', & - 'O1D_N2 ', 'O1D_O2 ', & - 'O1D_O2b ', 'O1D_O3 ', & - 'O2_1D_N2 ', 'O2_1D_O ', & - 'O2_1D_O2 ', 'O2_1S_CO2 ', & - 'O2_1S_N2 ', 'O2_1S_O ', & - 'O2_1S_O2 ', 'O2_1S_O3 ', & - 'O_O3 ', 'usr_O_O ', & - 'usr_O_O2 ', 'H2_O ', & - 'H2O2_O ', 'H_HO2 ', & - 'H_HO2a ', 'H_HO2b ', & - 'H_O2 ', 'HO2_O ', & - 'HO2_O3 ', 'H_O3 ', & - 'OH_H2 ', 'OH_H2O2 ', & - 'OH_HO2 ', 'OH_O ', & - 'OH_O3 ', 'OH_OH ', & - 'OH_OH_M ', 'usr_HO2_HO2 ', & - 'HO2NO2_OH ', 'N2D_O ', & - 'N2D_O2 ', 'N_NO ', & - 'N_NO2a ', 'N_NO2b ', & - 'N_NO2c ', 'N_O2 ', & - 'NO2_O ', 'NO2_O3 ', & - 'NO2_O_M ', 'NO3_HO2 ', & - 'NO3_NO ', 'NO3_O ', & - 'NO3_OH ', 'N_OH ', & - 'NO_HO2 ', 'NO_O3 ', & - 'NO_O_M ', 'O1D_N2Oa ', & - 'O1D_N2Ob ', 'tag_NO2_HO2 ', & - 'tag_NO2_NO3 ', 'tag_NO2_OH ', & - 'usr_HNO3_OH ', 'usr_HO2NO2_M ', & - 'usr_N2O5_M ', 'CL_CH2O ', & - 'CL_CH4 ', 'CL_H2 ', & - 'CL_H2O2 ', 'CL_HO2a ', & - 'CL_HO2b ', 'CL_O3 ', & - 'CLO_CH3O2 ', 'CLO_CLOa ', & - 'CLO_CLOb ', 'CLO_CLOc ', & - 'CLO_HO2 ', 'CLO_NO ', & - 'CLONO2_CL ', 'CLO_NO2_M ', & - 'CLONO2_O ', 'CLONO2_OH ', & - 'CLO_O ', 'CLO_OHa ', & - 'CLO_OHb ', 'HCL_O ', & - 'HCL_OH ', 'HOCL_CL ', & - 'HOCL_O ', 'HOCL_OH ', & - 'O1D_CCL4 ', 'O1D_CF2CLBR ', & - 'O1D_CFC11 ', 'O1D_CFC113 ', & - 'O1D_CFC114 ', 'O1D_CFC115 ', & - 'O1D_CFC12 ', 'O1D_HCLa ', & - 'O1D_HCLb ', 'tag_CLO_CLO_M ', & - 'usr_CL2O2_M ', 'BR_CH2O ', & - 'BR_HO2 ', 'BR_O3 ', & - 'BRO_BRO ', 'BRO_CLOa ', & - 'BRO_CLOb ', 'BRO_CLOc ', & - 'BRO_HO2 ', 'BRO_NO ', & - 'BRO_NO2_M ', 'BRONO2_O ' /) - rxt_tag_lst( 201: 298) = (/ 'BRO_O ', 'BRO_OH ', & - 'HBR_O ', 'HBR_OH ', & - 'HOBR_O ', 'O1D_CF3BR ', & - 'O1D_CHBR3 ', 'O1D_H2402 ', & - 'O1D_HBRa ', 'O1D_HBRb ', & - 'F_CH4 ', 'F_H2 ', & - 'F_H2O ', 'F_HNO3 ', & - 'O1D_COF2 ', 'O1D_COFCL ', & - 'CH2BR2_CL ', 'CH2BR2_OH ', & - 'CH3BR_CL ', 'CH3BR_OH ', & - 'CH3CCL3_OH ', 'CH3CL_CL ', & - 'CH3CL_OH ', 'CHBR3_CL ', & - 'CHBR3_OH ', 'HCFC141B_OH ', & - 'HCFC142B_OH ', 'HCFC22_OH ', & - 'O1D_CH2BR2 ', 'O1D_CH3BR ', & - 'O1D_HCFC141B ', 'O1D_HCFC142B ', & - 'O1D_HCFC22 ', 'CH2O_NO3 ', & - 'CH2O_O ', 'CH2O_OH ', & - 'CH3O2_HO2 ', 'CH3O2_NO ', & - 'CH3OOH_OH ', 'CH4_OH ', & - 'CO_OH_M ', 'O1D_CH4a ', & - 'O1D_CH4b ', 'O1D_CH4c ', & - 'usr_CO_OH_b ', '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_N2O5_aer ', & - 'usr_NO2_aer ', 'usr_NO3_aer ', & - 'het1 ', 'het10 ', & - 'het11 ', 'het12 ', & - 'het13 ', 'het14 ', & - 'het15 ', 'het16 ', & - 'het17 ', 'het2 ', & - 'het3 ', 'het4 ', & - 'het5 ', 'het6 ', & - 'het7 ', 'het8 ', & - 'het9 ', 'elec1 ', & + 'joclo ', 'jsf6 ', & + 'jeuv_26 ', 'jeuv_4 ', & + 'jeuv_6 ', 'jeuv_22 ', & + 'jeuv_23 ', 'jeuv_25 ', & + 'jeuv_18 ', 'jeuv_13 ', & + 'jeuv_11 ', 'jeuv_10 ', & + 'jeuv_3 ', 'jeuv_16 ', & + 'jeuv_1 ', 'jeuv_14 ', & + 'jeuv_2 ', 'jeuv_15 ', & + 'jeuv_21 ', 'jeuv_17 ', & + 'jeuv_7 ', 'jeuv_5 ', & + 'jeuv_19 ', 'jeuv_24 ', & + 'jeuv_12 ', 'jeuv_9 ', & + 'jeuv_8 ', 'jeuv_20 ', & + 'jh2so4 ', 'jocs ', & + 'jso ', 'jso2 ', & + 'jso3 ', 'ag1 ', & + 'ag2 ', 'O1D_H2 ', & + 'O1D_H2O ', 'O1D_N2 ', & + 'O1D_O2 ', 'O1D_O2b ', & + 'O1D_O3 ', 'O2_1D_N2 ', & + 'O2_1D_O ', 'O2_1D_O2 ', & + 'O2_1S_CO2 ', 'O2_1S_N2 ', & + 'O2_1S_O ', 'O2_1S_O2 ', & + 'O2_1S_O3 ', 'O_O3 ', & + 'usr_O_O ', 'usr_O_O2 ', & + 'H2_O ', 'H2O2_O ', & + 'H_HO2 ', 'H_HO2a ', & + 'H_HO2b ', 'H_O2 ', & + 'HO2_O ', 'HO2_O3 ', & + 'H_O3 ', 'OH_H2 ', & + 'OH_H2O2 ', 'OH_HO2 ', & + 'OH_O ', 'OH_O3 ', & + 'OH_OH ', 'OH_OH_M ', & + 'usr_HO2_HO2 ', 'HO2NO2_OH ', & + 'N2D_O ', 'N2D_O2 ', & + 'N_NO ', 'N_NO2a ', & + 'N_NO2b ', 'N_NO2c ', & + 'N_O2 ', 'NO2_O ', & + 'NO2_O3 ', 'NO2_O_M ', & + 'NO3_HO2 ', 'NO3_NO ', & + 'NO3_O ', 'NO3_OH ', & + 'N_OH ', 'NO_HO2 ', & + 'NO_O3 ', 'NO_O_M ', & + 'O1D_N2Oa ', 'O1D_N2Ob ', & + 'tag_NO2_HO2 ', 'tag_NO2_NO3 ', & + 'tag_NO2_OH ', 'usr_HNO3_OH ', & + 'usr_HO2NO2_M ', 'usr_N2O5_M ', & + 'CL_CH2O ', 'CL_CH4 ', & + 'CL_H2 ', 'CL_H2O2 ', & + 'CL_HO2a ', 'CL_HO2b ', & + 'CL_O3 ', 'CLO_CH3O2 ', & + 'CLO_CLOa ', 'CLO_CLOb ', & + 'CLO_CLOc ', 'CLO_HO2 ', & + 'CLO_NO ', 'CLONO2_CL ', & + 'CLO_NO2_M ', 'CLONO2_O ', & + 'CLONO2_OH ', 'CLO_O ', & + 'CLO_OHa ', 'CLO_OHb ', & + 'HCL_O ', 'HCL_OH ', & + 'HOCL_CL ', 'HOCL_O ', & + 'HOCL_OH ', 'O1D_CCL4 ', & + 'O1D_CF2CLBR ', 'O1D_CFC11 ', & + 'O1D_CFC113 ', 'O1D_CFC114 ', & + 'O1D_CFC115 ', 'O1D_CFC12 ', & + 'O1D_HCLa ', 'O1D_HCLb ', & + 'tag_CLO_CLO_M ', 'usr_CL2O2_M ', & + 'BR_CH2O ', 'BR_HO2 ', & + 'BR_O3 ', 'BRO_BRO ', & + 'BRO_CLOa ', 'BRO_CLOb ', & + 'BRO_CLOc ', 'BRO_HO2 ', & + 'BRO_NO ', 'BRO_NO2_M ' /) + rxt_tag_lst( 201: 312) = (/ 'BRONO2_O ', 'BRO_O ', & + 'BRO_OH ', 'HBR_O ', & + 'HBR_OH ', 'HOBR_O ', & + 'O1D_CF3BR ', 'O1D_CHBR3 ', & + 'O1D_H2402 ', 'O1D_HBRa ', & + 'O1D_HBRb ', 'F_CH4 ', & + 'F_H2 ', 'F_H2O ', & + 'F_HNO3 ', 'O1D_COF2 ', & + 'O1D_COFCL ', 'CH2BR2_CL ', & + 'CH2BR2_OH ', 'CH3BR_CL ', & + 'CH3BR_OH ', 'CH3CCL3_OH ', & + 'CH3CL_CL ', 'CH3CL_OH ', & + 'CHBR3_CL ', 'CHBR3_OH ', & + 'HCFC141B_OH ', 'HCFC142B_OH ', & + 'HCFC22_OH ', 'O1D_CH2BR2 ', & + 'O1D_CH3BR ', 'O1D_HCFC141B ', & + 'O1D_HCFC142B ', 'O1D_HCFC22 ', & + 'CH2O_NO3 ', 'CH2O_O ', & + 'CH2O_OH ', 'CH3O2_HO2 ', & + 'CH3O2_NO ', 'CH3OOH_OH ', & + 'CH4_OH ', '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_DMS_OH ', 'usr_SO2_OH ', & + 'usr_SO3_H2O ', 'usr_HO2_aer ', & + 'usr_N2O5_aer ', 'usr_NO2_aer ', & + 'usr_NO3_aer ', 'het1 ', & + 'het10 ', 'het11 ', & + 'het12 ', 'het13 ', & + 'het14 ', 'het15 ', & + 'het16 ', 'het17 ', & + 'het2 ', 'het3 ', & + 'het4 ', 'het5 ', & + 'het6 ', 'het7 ', & + 'het8 ', 'het9 ', & + 'ag247nm ', 'ag373nm ', & + 'ag732nm ', 'elec1 ', & 'elec2 ', 'elec3 ', & 'ion_N2p_O2 ', 'ion_N2p_Oa ', & 'ion_N2p_Ob ', 'ion_Np_O ', & 'ion_Np_O2a ', 'ion_Np_O2b ', & 'ion_O2p_N ', 'ion_O2p_N2 ', & 'ion_O2p_NO ', 'ion_Op_CO2 ', & - 'ion_Op_N2 ', 'ion_Op_O2 ' /) + 'ion_Op_N2 ', 'ion_Op_N2D ', & + 'ion_Op_O2 ', 'Op2D_e ', & + 'Op2D_N2 ', 'Op2D_O ', & + 'Op2D_O2 ', 'Op2P_ea ', & + 'Op2P_eb ', 'Op2P_N2a ', & + 'Op2P_N2b ', 'Op2P_O ' /) rxt_tag_map(:rxt_tag_cnt) = (/ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, & 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, & @@ -343,7 +350,9 @@ subroutine set_sim_dat 261, 262, 263, 264, 265, 266, 267, 268, 269, 270, & 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, & 281, 282, 283, 284, 285, 286, 287, 288, 289, 290, & - 291, 292, 293, 294, 295, 296, 297, 298 /) + 291, 292, 293, 294, 295, 296, 297, 298, 299, 300, & + 301, 302, 303, 304, 305, 306, 307, 308, 309, 310, & + 311, 312 /) if( allocated( pht_alias_lst ) ) then deallocate( pht_alias_lst ) end if @@ -374,15 +383,15 @@ subroutine set_sim_dat ' ', ' ', ' ', ' ', & ' ', ' ', ' ', ' ', & ' ', ' ', ' ', ' ', & - ' ', ' ', ' ', 'userdefined ', & + ' ', ' ', ' ', ' ', & 'userdefined ', 'userdefined ', 'userdefined ', 'userdefined ', & 'userdefined ', 'userdefined ', 'userdefined ', 'userdefined ', & 'userdefined ', 'userdefined ', 'userdefined ', 'userdefined ', & 'userdefined ', 'userdefined ', 'userdefined ', 'userdefined ', & 'userdefined ', 'userdefined ', 'userdefined ', 'userdefined ', & 'userdefined ', 'userdefined ', 'userdefined ', 'userdefined ', & - 'userdefined ', ' ', ' ', ' ', & - ' ', ' ' /) + 'userdefined ', 'userdefined ', ' ', ' ', & + ' ', ' ', ' ' /) pht_alias_lst(:,2) = (/ ' ', ' ', ' ', ' ', & ' ', ' ', ' ', ' ', & ' ', ' ', ' ', ' ', & @@ -397,15 +406,15 @@ subroutine set_sim_dat ' ', ' ', ' ', ' ', & ' ', ' ', ' ', ' ', & ' ', ' ', ' ', ' ', & - ' ', ' ', ' ', 'userdefined ', & + ' ', ' ', ' ', ' ', & 'userdefined ', 'userdefined ', 'userdefined ', 'userdefined ', & 'userdefined ', 'userdefined ', 'userdefined ', 'userdefined ', & 'userdefined ', 'userdefined ', 'userdefined ', 'userdefined ', & 'userdefined ', 'userdefined ', 'userdefined ', 'userdefined ', & 'userdefined ', 'userdefined ', 'userdefined ', 'userdefined ', & 'userdefined ', 'userdefined ', 'userdefined ', 'userdefined ', & - 'userdefined ', ' ', ' ', ' ', & - ' ', ' ' /) + 'userdefined ', 'userdefined ', ' ', ' ', & + ' ', ' ', ' ' /) pht_alias_mult(:,1) = (/ 1._r8, 1._r8, 1._r8, 1._r8, 1._r8, & 1._r8, 1._r8, 1._r8, 1._r8, 1._r8, & 1._r8, 1._r8, 1._r8, 1._r8, 1._r8, & @@ -423,7 +432,8 @@ subroutine set_sim_dat 1._r8, 1._r8, 1._r8, 1._r8, 1._r8, & 1._r8, 1._r8, 1._r8, 1._r8, 1._r8, & 1._r8, 1._r8, 1._r8, 1._r8, 1._r8, & - 1._r8, 1._r8, 1._r8, 1._r8, 1._r8 /) + 1._r8, 1._r8, 1._r8, 1._r8, 1._r8, & + 1._r8 /) pht_alias_mult(:,2) = (/ 1._r8, 1._r8, 1._r8, 1._r8, 1._r8, & 1._r8, 1._r8, 1._r8, 1._r8, 1._r8, & 1._r8, 1._r8, 1._r8, 1._r8, 1._r8, & @@ -441,7 +451,8 @@ subroutine set_sim_dat 1._r8, 1._r8, 1._r8, 1._r8, 1._r8, & 1._r8, 1._r8, 1._r8, 1._r8, 1._r8, & 1._r8, 1._r8, 1._r8, 1._r8, 1._r8, & - 1._r8, 1._r8, 1._r8, 1._r8, 1._r8 /) + 1._r8, 1._r8, 1._r8, 1._r8, 1._r8, & + 1._r8 /) allocate( cph_enthalpy(enthalpy_cnt),stat=ios ) if( ios /= 0 ) then write(iulog,*) 'set_sim_dat: failed to allocate cph_enthalpy; error = ',ios @@ -452,24 +463,28 @@ subroutine set_sim_dat write(iulog,*) 'set_sim_dat: failed to allocate cph_rid; error = ',ios call endrun end if - cph_rid(:) = (/ 95, 96, 97, 99, 100, & - 101, 103, 104, 105, 106, & - 107, 108, 109, 112, 115, & - 116, 117, 118, 121, 122, & - 123, 126, 128, 129, 130, & - 134, 135, 143, 144, 284, & - 285, 286, 287, 288, 290, & - 291, 292, 293, 295, 297, & - 298 /) + cph_rid(:) = (/ 96, 97, 98, 100, 101, & + 102, 104, 105, 106, 107, & + 108, 109, 110, 113, 116, & + 117, 118, 119, 122, 123, & + 124, 127, 129, 130, 131, & + 135, 136, 144, 145, 285, & + 286, 287, 288, 289, 290, & + 291, 292, 294, 295, 296, & + 297, 299, 301, 302, 303, & + 304, 305, 306, 307, 308, & + 309, 310, 311, 312 /) cph_enthalpy(:) = (/ 189.810000_r8, 32.910000_r8, 189.810000_r8, 94.300000_r8, 94.300000_r8, & 94.300000_r8, 62.600000_r8, 62.600000_r8, 62.600000_r8, 62.600000_r8, & 392.190000_r8, 493.580000_r8, 101.390000_r8, 232.590000_r8, 203.400000_r8, & 226.580000_r8, 120.100000_r8, 194.710000_r8, 293.620000_r8, 67.670000_r8, & 165.300000_r8, 165.510000_r8, 229.610000_r8, 177.510000_r8, 313.750000_r8, & - 133.750000_r8, 193.020000_r8, 34.470000_r8, 199.170000_r8, 82.389000_r8, & - 508.950000_r8, 354.830000_r8, 339.590000_r8, 67.530000_r8, 95.550000_r8, & - 239.840000_r8, 646.280000_r8, 406.160000_r8, 271.380000_r8, 105.040000_r8, & - 150.110000_r8 /) + 133.750000_r8, 193.020000_r8, 34.470000_r8, 199.170000_r8, 483.390000_r8, & + 321.300000_r8, 163.060000_r8, 82.389000_r8, 508.950000_r8, 354.830000_r8, & + 339.590000_r8, 67.530000_r8, 95.550000_r8, 239.840000_r8, 646.280000_r8, & + 406.160000_r8, 271.380000_r8, 105.040000_r8, 139.900000_r8, 150.110000_r8, & + 319.370000_r8, 128.320000_r8, 319.360000_r8, 469.400000_r8, 163.060000_r8, & + 482.430000_r8, 291.380000_r8, 67.540000_r8, 501.720000_r8 /) allocate( num_rnts(rxntot-phtcnt),stat=ios ) if( ios /= 0 ) then write(iulog,*) 'set_sim_dat: failed to allocate num_rnts; error = ',ios @@ -494,8 +509,10 @@ subroutine set_sim_dat 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 1, 1, 1, 1, 1, 2, 1, 1, & 1, 1, 2, 2, 2, 1, 1, 2, 2, 2, & - 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 2, 2, 2, 2, 2, 2, 2 /) + 1, 1, 2, 1, 1, 1, 2, 2, 2, 2, & + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & + 2 /) end subroutine set_sim_dat diff --git a/src/chemistry/pp_waccm_mad/chem_mech.doc b/src/chemistry/pp_waccm_mad/chem_mech.doc index 8171ae51bf..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) @@ -842,16 +842,17 @@ Class List ion_O2p_NO (473) O2p + NO -> NOp + O2 rate = 4.40E-10 (572) ion_Op_CO2 (474) Op + CO2 -> O2p + CO rate = 9.00E-10 (573) ion_Op_N2 (475) Op + N2 -> NOp + N rate = ** User defined ** (574) - ion_Op_O2 (476) Op + O2 -> O2p + O rate = ** User defined ** (575) - Op2D_e (477) Op2D + e -> Op + e rate = ** User defined ** (576) - Op2D_N2 (478) Op2D + N2 -> N2p + O rate = 8.00E-10 (577) - Op2D_O (479) Op2D + O -> Op + O rate = 5.00E-12 (578) - Op2D_O2 (480) Op2D + O2 -> O2p + O rate = 7.00E-10 (579) - Op2P_ea (481) Op2P + e -> Op2D + e rate = ** User defined ** (580) - Op2P_eb (482) Op2P + e -> Op + e rate = ** User defined ** (581) - Op2P_N2a (483) Op2P + N2 -> N2p + O rate = 4.80E-10 (582) - Op2P_N2b (484) Op2P + N2 -> Np + NO rate = 1.00E-10 (583) - Op2P_O (485) Op2P + O -> Op + O rate = 4.00E-10 (584) + ion_Op_N2D (476) Op + N2D -> Np + O rate = 1.30E-10 (575) + ion_Op_O2 (477) Op + O2 -> O2p + O rate = ** User defined ** (576) + Op2D_e (478) Op2D + e -> Op + e rate = ** User defined ** (577) + Op2D_N2 (479) Op2D + N2 -> N2p + O rate = 8.00E-10 (578) + Op2D_O (480) Op2D + O -> Op + O rate = 5.00E-12 (579) + Op2D_O2 (481) Op2D + O2 -> O2p + O rate = 7.00E-10 (580) + Op2P_ea (482) Op2P + e -> Op2D + e rate = ** User defined ** (581) + Op2P_eb (483) Op2P + e -> Op + e rate = ** User defined ** (582) + Op2P_N2a (484) Op2P + N2 -> N2p + O rate = 4.80E-10 (583) + Op2P_N2b (485) Op2P + N2 -> Np + NO rate = 1.00E-10 (584) + Op2P_O (486) Op2P + O -> Op + O rate = 4.00E-10 (585) Extraneous prod/loss species ( 1) NO2 (dataset) @@ -870,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 @@ -902,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 @@ -1002,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 @@ -1027,7 +1044,7 @@ Extraneous prod/loss species d(N2O5)/dt = r341*M*NO2*NO3 - j14*N2O5 - j15*N2O5 - r345*M*N2O5 - r439*N2O5 - r442*N2O5 - r445*N2O5 - r456*N2O5 - r38*Hp_4H2O*N2O5 - r41*Hp_5H2O*N2O5 - r189*NO3m2H2O*N2O5 - r193*NO3m_H2O*N2O5 - d(NO)/dt = j12*HONO + j15*N2O5 + j18*NO2 + j20*NO3 + .5*r440*NO2 + r472*N2*O2p + r484*N2*Op2P + d(NO)/dt = j12*HONO + j15*N2O5 + j18*NO2 + j20*NO3 + .5*r440*NO2 + r472*N2*O2p + r485*N2*Op2P + r98*NO3mHNO3*NOp_H2O + r100*CO3m*NOp_H2O + r101*CLm_HCL*NOp_H2O + r102*NO3m*NOp_H2O + r103*HCO3m*NOp_H2O + r104*NOp_H2O*O2m + r105*CO4m*NOp_H2O + r106*NO3m_H2O*NOp_H2O + r107*CO3m2H2O*NOp_H2O + r108*CLm*NOp_H2O + r109*CO3m_H2O*NOp_H2O + r111*NO2m_H2O*NOp_H2O @@ -1072,8 +1089,8 @@ Extraneous prod/loss species - r341*M*NO2*NO3 - r426*CH2O*NO3 d(O)/dt = j2*H2O + 2*j5*O2 + j6*O2 + j8*O3 + j15*N2O5 + j17*NO + j18*NO2 + j19*NO3 + .18*j25*CH4 + j26*CO2 + j28*BRO + j46*CLO + j60*OCLO + j62*CO2 + j83*O2 + 2*j84*O2 + j85*O2 + j87*O2 - + 2*j89*O2 + j90*O2 + j91*O2 + j92*O2 + j99*Om + r254*M*Om + r287*N2*O1D + r478*N2*Op2D - + r483*N2*Op2P + r10*CL*CO3m + r49*CO3m2H2O*O2p + r51*CO3m_H2O*O2p + r54*CO3m_H2O*Hp_4H2O + + 2*j89*O2 + j90*O2 + j91*O2 + j92*O2 + j99*Om + r254*M*Om + r287*N2*O1D + r479*N2*Op2D + + r484*N2*Op2P + r10*CL*CO3m + r49*CO3m2H2O*O2p + r51*CO3m_H2O*O2p + r54*CO3m_H2O*Hp_4H2O + r64*CO3m*Hp_5H2O + r66*CO3m*Hp_4H2O + r72*CO3m2H2O*Hp_5H2O + r74*CO3m_H2O*Hp_5H2O + r82*Hp_3H2O*CO3m + r90*CO3m2H2O*Hp_3H2O + r92*CO3m_H2O*Hp_3H2O + r100*CO3m*NOp_H2O + r107*CO3m2H2O*NOp_H2O + r109*CO3m_H2O*NOp_H2O + r117*CO3m*NOp_2H2O + r125*CO3m2H2O*NOp_2H2O @@ -1082,7 +1099,7 @@ Extraneous prod/loss species + 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 + r462*NOp*e + 1.15*r463*O2p*e + r470*Np*O2 - + r471*O2p*N + r476*Op*O2 + r480*Op2D*O2 + + r471*O2p*N + r476*Op*N2D + r477*Op*O2 + r481*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 @@ -1111,7 +1128,7 @@ Extraneous prod/loss species - 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 - r465*N2p*O2 - r469*Np*O2 - r470*Np*O2 - r476*Op*O2 - r480*Op2D*O2 + - r326*N*O2 - r465*N2p*O2 - r469*Np*O2 - r470*Np*O2 - r477*Op*O2 - r481*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 @@ -1119,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 @@ -1193,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 @@ -1225,8 +1226,8 @@ Extraneous prod/loss species d(Hp_H2O)/dt = r269*M*Hp_2H2O + r205*H*NOp_H2O + r206*NOp_H2O*HO2 + r207*NOp_H2O*OH + r224*O2p_H2O*H2O - r268*M*H2O*Hp_H2O - r277*e*Hp_H2O d(N2D)/dt = 1.2*j67*N2 + 1.2*j69*N2 + j70*N2 + j71*N2 + .8*r462*NOp*e + .9*r464*N2p*e + r466*N2p*O - - r320*O*N2D - r321*O2*N2D - d(N2p)/dt = j68*N2 + j72*N2 + r478*N2*Op2D + r483*N2*Op2P + - r320*O*N2D - r321*O2*N2D - r476*Op*N2D + d(N2p)/dt = j68*N2 + j72*N2 + r479*N2*Op2D + r484*N2*Op2P - r464*e*N2p - r465*O2*N2p - r466*O*N2p - r467*O*N2p d(NO2m)/dt = r169*M*NO2m_H2O + r6*CLm*NO2 + r7*CLOm*NO + r19*CO3m_H2O*NO + r174*NO2*O3m + r175*NO*O3m + r176*CO3m*NO + r197*NO3m*O + r198*O3*NO3m + r216*NO2*O2m + r242*NO2*OHm + r255*NO2*Om @@ -1284,7 +1285,7 @@ Extraneous prod/loss species - r204*e*NOp_H2O - r205*H*NOp_H2O - r206*HO2*NOp_H2O - r207*OH*NOp_H2O - r262*M*H2O*NOp_H2O d(NOp_N2)/dt = r266*N2*M*NOp - r267*M*NOp_N2 - r208*CO2*NOp_N2 - r209*H2O*NOp_N2 - r280*e*NOp_N2 - d(Np)/dt = j70*N2 + j71*N2 + j73*N2 + j74*N2 + j66*N + r484*N2*Op2P + d(Np)/dt = j70*N2 + j71*N2 + j73*N2 + j74*N2 + j66*N + r485*N2*Op2P + r476*Op*N2D - r468*O*Np - r469*O2*Np - r470*O2*Np d(O1D)/dt = j1*H2O + j6*O2 + j7*O3 + j13*N2O + r321*N2D*O2 + .85*r463*O2p*e - r287*N2*O1D - r285*H2*O1D - r286*H2O*O1D - r288*O2*O1D - r289*O2*O1D - r290*O3*O1D @@ -1304,7 +1305,7 @@ Extraneous prod/loss species - r212*M*CO2*O2m - r213*H*O2m - r214*HCL*O2m - r215*HNO3*O2m - r216*NO2*O2m - r217*O2_1D*O2m - r218*M*O2*O2m - r219*O3*O2m - r220*O*O2m - r221*O*O2m d(O2p)/dt = j86*O2 + j88*O2 + j94*O2p_H2O + 2*r46*O2m*O2p + r234*O4p*O + r235*O4p*O2_1D + r465*N2p*O2 - + r469*Np*O2 + r474*Op*CO2 + r476*Op*O2 + r480*Op2D*O2 + + r469*Np*O2 + r474*Op*CO2 + r477*Op*O2 + r481*Op2D*O2 - r472*N2*O2p - r44*NO3m*O2p - r45*HCO3m*O2p - r46*O2m*O2p - r47*CO4m*O2p - r48*NO3m_H2O*O2p - r49*CO3m2H2O*O2p - r50*CLm*O2p - r51*CO3m_H2O*O2p - r52*NO2m_H2O*O2p - r53*NO3m_HCL*O2p - r55*CLm_H2O*O2p - r56*NO3m2H2O*O2p - r57*NO2m*O2p - r151*NO3mHNO3*O2p - r152*CO3m*O2p @@ -1340,14 +1341,14 @@ Extraneous prod/loss species - j99*Om - r254*M*Om - r32*NO*Om - r246*CL*Om - r247*CLO*Om - r248*M*CO2*Om - r249*H2*Om - r250*H2*Om - r251*H2O*Om - r252*HCL*Om - r253*HNO3*Om - r255*NO2*Om - r256*O*Om - r257*O2_1D*Om - r258*M*O2*Om - r259*O3*Om - d(Op)/dt = j78*O + j79*O + j85*O2 + j87*O2 + r459*Op2P + r460*Op2D + r467*N2p*O + r468*Np*O + r477*Op2D*e - + r479*Op2D*O + r482*Op2P*e + r485*Op2P*O - - r475*N2*Op - r474*CO2*Op - r476*O2*Op - d(Op2D)/dt = j80*O + j81*O + j90*O2 + j91*O2 + r461*Op2P + r481*Op2P*e - - r460*Op2D - r478*N2*Op2D - r477*e*Op2D - r479*O*Op2D - r480*O2*Op2D + d(Op)/dt = j78*O + j79*O + j85*O2 + j87*O2 + r459*Op2P + r460*Op2D + r467*N2p*O + r468*Np*O + r478*Op2D*e + + r480*Op2D*O + r483*Op2P*e + r486*Op2P*O + - r475*N2*Op - r474*CO2*Op - r476*N2D*Op - r477*O2*Op + d(Op2D)/dt = j80*O + j81*O + j90*O2 + j91*O2 + r461*Op2P + r482*Op2P*e + - r460*Op2D - r479*N2*Op2D - r478*e*Op2D - r480*O*Op2D - r481*O2*Op2D d(Op2P)/dt = j77*O + j82*O + j83*O2 + j92*O2 - - r459*Op2P - r461*Op2P - r483*N2*Op2P - r484*N2*Op2P - r481*e*Op2P - r482*e*Op2P - - r485*O*Op2P + - r459*Op2P - r461*Op2P - r484*N2*Op2P - r485*N2*Op2P - r482*e*Op2P - r483*e*Op2P + - r486*O*Op2P d(H2O)/dt = .05*j25*CH4 + j64*CO3m_H2O + j94*O2p_H2O + r169*M*NO2m_H2O + r170*M*NO3m2H2O + r178*M*NO3m_H2O + r179*M*CO3m_H2O + r180*M*CO3m2H2O + r269*M*Hp_2H2O + r271*M*Hp_3H2O + r273*M*Hp_4H2O + r275*M*Hp_5H2O + r281*M*CLm_H2O + r2*CLm_H2O*HCL + r16*CO3m_H2O*NO2 + r19*CO3m_H2O*NO diff --git a/src/chemistry/pp_waccm_mad/chem_mech.in b/src/chemistry/pp_waccm_mad/chem_mech.in index 2466fb430f..30579fbf1f 100644 --- a/src/chemistry/pp_waccm_mad/chem_mech.in +++ b/src/chemistry/pp_waccm_mad/chem_mech.in @@ -1,19 +1,16 @@ * Comments -* User-given Tag Description: WACCMX_MAD_1 -* Tag database identifier : MZ234_WACCMX_MAD_20181001 -* Tag created by : ajc -* Tag created from branch : WACCMX-MAD -* Tag created on : 2018-10-01 13:27:10.614885-06 +* User-given Tag Description: WACCM_MAD +* Tag database identifier : MZ281_MAD_20210122 +* Tag created by : lke +* Tag created from branch : MAD +* Tag created on : 2021-01-22 15:25:08.160159-07 * Comments for this tag follow: -* ajc : 2018-10-01 : Update reaction rates to jpl15 -* Remove H1202 -* CO2 implicit solve -* O1D_N2 cph update -* Update Machine Specifications +* 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, @@ -35,6 +32,7 @@ CH3OOH, CH4, CHBR3 -> CHBr3, + CL -> Cl, CL2 -> Cl2, CL2O2 -> Cl2O2, CLO -> ClO, @@ -56,7 +54,6 @@ HCL -> HCl, HF, HNO3, - HO2, HO2NO2, HOBR -> HOBr, HOCL -> HOCl, @@ -72,8 +69,6 @@ O3, OCLO -> OClO, SF6, - BR -> Br, - CL -> Cl, CLm -> Cl, CLm_H2O -> ClH2O, CLm_HCL -> Cl2H, @@ -85,6 +80,7 @@ e -> E, H3Op_OH -> H4O2, HCO3m -> HCO3, + HO2, Hp_2H2O -> H5O2, Hp_3H2O -> H7O3, Hp_3N1 -> H8NO6, @@ -138,8 +134,6 @@ End Col-int Not-Transported - BR, - CL, CLm, CLm_H2O, CLm_HCL, @@ -151,6 +145,7 @@ e, H3Op_OH, HCO3m, + HO2, Hp_2H2O, Hp_3H2O, Hp_3N1, @@ -212,6 +207,7 @@ CH4 CHBR3 CLY + CO2 H2402 HCFC141B HCFC142B @@ -221,12 +217,14 @@ End Explicit Implicit + BR BRCL BRO BRONO2 CH2O CH3O2 CH3OOH + CL CL2 CL2O2 CLO @@ -234,7 +232,6 @@ CO COF2 COFCL - CO2 F H H2 @@ -243,7 +240,6 @@ HCL HF HNO3 - HO2 HO2NO2 HOBR HOCL @@ -257,8 +253,6 @@ O2 O3 OCLO - BR - CL CLm CLm_H2O CLm_HCL @@ -270,6 +264,7 @@ e H3Op_OH HCO3m + HO2 Hp_2H2O Hp_3H2O Hp_3N1 @@ -319,656 +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_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 @@ -976,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 3741a7ba42..c524ffab6b 100644 --- a/src/chemistry/pp_waccm_mad/chem_mods.F90 +++ b/src/chemistry/pp_waccm_mad/chem_mods.F90 @@ -6,26 +6,26 @@ module chem_mods implicit none save integer, parameter :: phtcnt = 99, & ! number of photolysis reactions - rxntot = 584, & ! number of total reactions - gascnt = 485, & ! number of gas phase reactions + rxntot = 585, & ! number of total reactions + gascnt = 486, & ! number of gas phase reactions nabscol = 2, & ! number of absorbing column densities gas_pcnst = 110, & ! number of "gas phase" species nfs = 2, & ! number of "fixed" species relcnt = 0, & ! number of relationship species grpcnt = 0, & ! number of group members - nzcnt = 1816, & ! 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 = 584, & - enthalpy_cnt = 53, & - nslvd = 51 + rxt_tag_cnt = 585, & + enthalpy_cnt = 54, & + 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_rxt_id.F90 b/src/chemistry/pp_waccm_mad/m_rxt_id.F90 index 62752be0d7..1e148d08bb 100644 --- a/src/chemistry/pp_waccm_mad/m_rxt_id.F90 +++ b/src/chemistry/pp_waccm_mad/m_rxt_id.F90 @@ -574,14 +574,15 @@ module m_rxt_id integer, parameter :: rid_ion_O2p_NO = 572 integer, parameter :: rid_ion_Op_CO2 = 573 integer, parameter :: rid_ion_Op_N2 = 574 - integer, parameter :: rid_ion_Op_O2 = 575 - integer, parameter :: rid_Op2D_e = 576 - integer, parameter :: rid_Op2D_N2 = 577 - integer, parameter :: rid_Op2D_O = 578 - integer, parameter :: rid_Op2D_O2 = 579 - integer, parameter :: rid_Op2P_ea = 580 - integer, parameter :: rid_Op2P_eb = 581 - integer, parameter :: rid_Op2P_N2a = 582 - integer, parameter :: rid_Op2P_N2b = 583 - integer, parameter :: rid_Op2P_O = 584 + integer, parameter :: rid_ion_Op_N2D = 575 + integer, parameter :: rid_ion_Op_O2 = 576 + integer, parameter :: rid_Op2D_e = 577 + integer, parameter :: rid_Op2D_N2 = 578 + integer, parameter :: rid_Op2D_O = 579 + integer, parameter :: rid_Op2D_O2 = 580 + integer, parameter :: rid_Op2P_ea = 581 + integer, parameter :: rid_Op2P_eb = 582 + integer, parameter :: rid_Op2P_N2a = 583 + integer, parameter :: rid_Op2P_N2b = 584 + integer, parameter :: rid_Op2P_O = 585 end module m_rxt_id 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 f5c1469dcd..0c441e36df 100644 --- a/src/chemistry/pp_waccm_mad/mo_adjrxt.F90 +++ b/src/chemistry/pp_waccm_mad/mo_adjrxt.F90 @@ -91,9 +91,9 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:,532) = rate(:,:,532) * inv(:,:, 1) rate(:,:,571) = rate(:,:,571) * inv(:,:, 2) rate(:,:,574) = rate(:,:,574) * inv(:,:, 2) - rate(:,:,577) = rate(:,:,577) * inv(:,:, 2) - rate(:,:,582) = rate(:,:,582) * 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(:,:) @@ -529,10 +529,11 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:,573) = rate(:,:,573) * m(:,:) rate(:,:,575) = rate(:,:,575) * m(:,:) rate(:,:,576) = rate(:,:,576) * m(:,:) - rate(:,:,578) = rate(:,:,578) * m(:,:) + rate(:,:,577) = rate(:,:,577) * m(:,:) rate(:,:,579) = rate(:,:,579) * m(:,:) rate(:,:,580) = rate(:,:,580) * m(:,:) rate(:,:,581) = rate(:,:,581) * m(:,:) - rate(:,:,584) = rate(:,:,584) * 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 24341ab45c..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(:,18) = 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(:,35) = 0._r8 - prod(:,27) =.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(:,71) =.440_r8*rxt(:,25)*y(:,20) - prod(:,31) =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(:,19) = 0._r8 - prod(:,32) = 0._r8 - prod(:,72) = 0._r8 - prod(:,7) = 0._r8 - prod(:,73) = 0._r8 - prod(:,61) = 0._r8 - prod(:,14) = 0._r8 - prod(:,30) = 0._r8 - prod(:,33) = 0._r8 - prod(:,26) = 0._r8 - prod(:,40) = (.800_r8*rxt(:,67) +.800_r8*rxt(:,69) +rxt(:,73) +rxt(:,74)) & - + extfrc(:,11) - prod(:,38) = 0._r8 - prod(:,69) = + extfrc(:,2) - prod(:,87) = + extfrc(:,1) - prod(:,79) = 0._r8 - prod(:,74) =.180_r8*rxt(:,25)*y(:,20) + extfrc(:,6) - prod(:,85) = 0._r8 - prod(:,75) = 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(:,78) =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(:,36) = 0._r8 - prod(:,64) = 0._r8 - prod(:,43) = 0._r8 - prod(:,54) = 0._r8 - prod(:,59) = 0._r8 - prod(:,68) = (rxt(:,68) +rxt(:,70) +rxt(:,71) +rxt(:,72) +rxt(:,73) + & - rxt(:,74)) + extfrc(:,10) - prod(:,11) = 0._r8 - prod(:,42) = 0._r8 - prod(:,22) = 0._r8 - prod(:,65) = 0._r8 - prod(:,8) = 0._r8 - prod(:,80) = 0._r8 - prod(:,9) = 0._r8 - prod(:,82) = 0._r8 - prod(:,28) = 0._r8 - prod(:,17) = (1.200_r8*rxt(:,67) +1.200_r8*rxt(:,69) +rxt(:,70) +rxt(:,71)) & - + extfrc(:,12) - prod(:,23) = (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(:,25) = 0._r8 - prod(:,70) = 0._r8 - prod(:,24) = 0._r8 - prod(:,20) = (rxt(:,70) +rxt(:,71) +rxt(:,73) +rxt(:,74)) + extfrc(:,5) - prod(:,57) =rxt(:,13)*y(:,49) - prod(:,37) = 0._r8 - prod(:,10) = 0._r8 - prod(:,76) = 0._r8 - prod(:,77) = + extfrc(:,7) - prod(:,29) = 0._r8 - prod(:,49) = 0._r8 - prod(:,21) = 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(:,34) = + 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 b4d606c4e2..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,451) = -( rxt(k,28) + het_rates(k,2) ) - mat(k,79) = rxt(k,29) - mat(k,76) = -( rxt(k,29) + rxt(k,30) + rxt(k,543) + rxt(k,546) + rxt(k,551) & - + het_rates(k,3) ) - mat(k,535) = -( rxt(k,21) + rxt(k,22) + het_rates(k,14) ) - mat(k,41) = rxt(k,23) - mat(k,566) = rxt(k,534)*y(k,20) + rxt(k,535)*y(k,20) - mat(k,252) = -( het_rates(k,18) ) - mat(k,1370) = rxt(k,446)*y(k,20) - mat(k,175) = rxt(k,502)*y(k,20) - mat(k,741) = rxt(k,531)*y(k,20) - mat(k,561) = 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,1520) = -( rxt(k,46) + het_rates(k,24) ) - mat(k,218) = rxt(k,48) - mat(k,9) = rxt(k,60) - mat(k,3) = 2.000_r8*rxt(k,480) - mat(k,211) = -( rxt(k,47) + rxt(k,48) + rxt(k,545) + rxt(k,550) + rxt(k,556) & - + het_rates(k,25) ) - mat(k,142) = -( het_rates(k,27) ) - mat(k,530) = rxt(k,21) + rxt(k,22) - mat(k,1067) = rxt(k,26) + rxt(k,62) - mat(k,1366) = rxt(k,513)*y(k,17) - mat(k,4) = -( rxt(k,49) + het_rates(k,29) ) - mat(k,555) = 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,729) = rxt(k,518)*y(k,38) + rxt(k,519)*y(k,39) - mat(k,12) = -( rxt(k,50) + het_rates(k,30) ) - mat(k,556) = rxt(k,472)*y(k,8) + rxt(k,473)*y(k,9) + rxt(k,522)*y(k,37) - mat(k,730) = rxt(k,517)*y(k,37) - mat(k,1086) = -( rxt(k,26) + rxt(k,62) + het_rates(k,28) ) - mat(k,786) = rxt(k,63) - mat(k,625) = rxt(k,65) - mat(k,135) = rxt(k,364) - mat(k,174) = -( 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,558) = rxt(k,475)*y(k,11) + rxt(k,497)*y(k,7) - mat(k,1716) = -( het_rates(k,32) ) - mat(k,1814) = 2.000_r8*rxt(k,2) + rxt(k,3) - mat(k,552) = 2.000_r8*rxt(k,21) - mat(k,43) = rxt(k,23) - mat(k,188) = rxt(k,52) - mat(k,1146) = rxt(k,56) - mat(k,21) = rxt(k,57) - mat(k,586) = rxt(k,534)*y(k,20) - mat(k,413) = -( het_rates(k,33) ) - mat(k,1781) = rxt(k,1) - mat(k,533) = rxt(k,22) - mat(k,564) = rxt(k,535)*y(k,20) - mat(k,84) = -( rxt(k,4) + het_rates(k,35) ) - mat(k,669) = .500_r8*rxt(k,537) - mat(k,182) = -( rxt(k,52) + het_rates(k,36) ) - mat(k,1132) = -( rxt(k,56) + het_rates(k,40) ) - mat(k,341) = rxt(k,381) - mat(k,1390) = 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,173) = rxt(k,502)*y(k,20) - mat(k,1173) = -( rxt(k,9) + het_rates(k,42) ) - mat(k,439) = rxt(k,270) - mat(k,244) = 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,1748) = .500_r8*rxt(k,539) - mat(k,1426) = rxt(k,540) - mat(k,80) = rxt(k,543) + rxt(k,546) + rxt(k,551) - mat(k,214) = rxt(k,545) + rxt(k,550) + rxt(k,556) - mat(k,680) = -( rxt(k,537) + het_rates(k,43) ) - mat(k,52) = rxt(k,11) + rxt(k,443) - mat(k,1379) = rxt(k,510)*y(k,15) + rxt(k,513)*y(k,17) - mat(k,748) = rxt(k,511)*y(k,15) + rxt(k,514)*y(k,17) - mat(k,568) = rxt(k,534)*y(k,20) - mat(k,51) = -( rxt(k,10) + rxt(k,11) + rxt(k,443) + het_rates(k,44) ) - mat(k,165) = -( rxt(k,58) + het_rates(k,45) ) - mat(k,77) = rxt(k,543) + rxt(k,546) + rxt(k,551) - mat(k,191) = -( rxt(k,59) + het_rates(k,46) ) - mat(k,210) = rxt(k,545) + rxt(k,550) + rxt(k,556) - mat(k,137) = -( rxt(k,12) + het_rates(k,47) ) - mat(k,265) = -( rxt(k,66) + het_rates(k,48) ) - mat(k,982) = rxt(k,17) - mat(k,200) = rxt(k,574) - mat(k,239) = -( 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,1001) = -( rxt(k,16) + rxt(k,17) + het_rates(k,51) ) - mat(k,139) = rxt(k,12) - mat(k,243) = rxt(k,15) - mat(k,1744) = rxt(k,18) + .500_r8*rxt(k,539) - mat(k,1422) = rxt(k,20) - mat(k,1344) = rxt(k,571) - mat(k,63) = rxt(k,583) - mat(k,572) = 2.000_r8*rxt(k,437)*y(k,49) - mat(k,1762) = -( rxt(k,18) + rxt(k,539) + het_rates(k,52) ) - mat(k,1187) = rxt(k,9) - mat(k,56) = rxt(k,11) + rxt(k,443) - mat(k,249) = rxt(k,14) + rxt(k,444) - mat(k,1440) = rxt(k,19) - mat(k,83) = rxt(k,29) - mat(k,219) = rxt(k,48) - mat(k,727) = rxt(k,75) - mat(k,1432) = -( rxt(k,19) + rxt(k,20) + rxt(k,540) + het_rates(k,53) ) - mat(k,54) = rxt(k,10) - mat(k,246) = rxt(k,14) + rxt(k,15) + rxt(k,444) - mat(k,82) = rxt(k,30) - mat(k,217) = rxt(k,47) - mat(k,660) = rxt(k,76) - mat(k,1230) = -( rxt(k,77) + rxt(k,78) + rxt(k,79) + rxt(k,80) + rxt(k,81) & - + rxt(k,82) + het_rates(k,54) ) - mat(k,1802) = rxt(k,2) - mat(k,1668) = 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,1268) = rxt(k,8) - mat(k,245) = rxt(k,15) - mat(k,1006) = rxt(k,17) - mat(k,1749) = rxt(k,18) - mat(k,1427) = rxt(k,19) - mat(k,1089) = rxt(k,26) + rxt(k,62) - mat(k,460) = rxt(k,28) - mat(k,1513) = rxt(k,46) - mat(k,8) = rxt(k,60) - mat(k,1625) = rxt(k,99) + rxt(k,353) - mat(k,576) = rxt(k,386) - mat(k,68) = rxt(k,577) - mat(k,64) = rxt(k,582) - mat(k,1679) = -( 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,1279) = rxt(k,8) - mat(k,1438) = rxt(k,20) - mat(k,1315) = rxt(k,93) + rxt(k,132) - mat(k,407) = rxt(k,95) - mat(k,104) = rxt(k,97) - mat(k,236) = rxt(k,382) + rxt(k,390) - mat(k,32) = rxt(k,383) - mat(k,585) = rxt(k,438)*y(k,49) - mat(k,1269) = -( rxt(k,7) + rxt(k,8) + het_rates(k,56) ) - mat(k,403) = rxt(k,96) - mat(k,7) = -( rxt(k,60) + het_rates(k,57) ) - mat(k,322) = -( het_rates(k,59) ) - mat(k,17) = rxt(k,27) - mat(k,450) = rxt(k,28) - mat(k,78) = rxt(k,30) - mat(k,183) = rxt(k,52) - mat(k,166) = rxt(k,58) - mat(k,563) = 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,1371) = 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,743) = 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,1396) = -( 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,2) = 2.000_r8*rxt(k,45) - mat(k,1517) = rxt(k,46) - mat(k,216) = rxt(k,47) - mat(k,15) = rxt(k,50) - mat(k,1138) = rxt(k,56) - mat(k,195) = rxt(k,59) - mat(k,580) = 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,762) = 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,591) = -( het_rates(k,61) ) - mat(k,351) = rxt(k,380) - mat(k,335) = rxt(k,381) - mat(k,350) = -( rxt(k,380) + het_rates(k,62) ) - mat(k,334) = -( rxt(k,381) + het_rates(k,63) ) - mat(k,221) = -( het_rates(k,64) ) - mat(k,779) = -( rxt(k,63) + het_rates(k,65) ) - mat(k,495) = rxt(k,64) + rxt(k,278) - mat(k,305) = -( rxt(k,279) + het_rates(k,66) ) - mat(k,491) = -( rxt(k,64) + rxt(k,278) + het_rates(k,67) ) - mat(k,306) = rxt(k,279) - mat(k,613) = -( rxt(k,65) + het_rates(k,68) ) - mat(k,958) = -( het_rates(k,69) ) - mat(k,1000) = rxt(k,16) - mat(k,269) = rxt(k,66) - mat(k,711) = rxt(k,75) - mat(k,651) = rxt(k,76) - mat(k,1224) = rxt(k,77) + rxt(k,78) + rxt(k,79) + rxt(k,80) + rxt(k,81) & - + rxt(k,82) - mat(k,1662) = 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,1298) = rxt(k,93) + rxt(k,132) - mat(k,399) = rxt(k,96) - mat(k,1583) = rxt(k,98) - mat(k,1619) = rxt(k,99) + rxt(k,353) - mat(k,33) = -( het_rates(k,70) ) - mat(k,291) = -( 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,105) = -( rxt(k,368) + het_rates(k,72) ) - mat(k,804) = rxt(k,370) - mat(k,823) = -( rxt(k,370) + het_rates(k,73) ) - mat(k,1461) = rxt(k,372) - mat(k,22) = -( het_rates(k,74) ) - mat(k,1476) = -( rxt(k,372) + het_rates(k,75) ) - mat(k,1562) = rxt(k,374) - mat(k,26) = -( het_rates(k,76) ) - mat(k,1564) = -( rxt(k,374) + het_rates(k,77) ) - mat(k,148) = -( het_rates(k,78) ) - mat(k,106) = rxt(k,368) - mat(k,71) = -( het_rates(k,79) ) - mat(k,112) = -( het_rates(k,80) ) - mat(k,66) = rxt(k,577) - mat(k,61) = rxt(k,582) - mat(k,706) = -( rxt(k,75) + het_rates(k,81) ) - mat(k,366) = rxt(k,268) - mat(k,365) = -( rxt(k,268) + het_rates(k,82) ) - mat(k,646) = -( rxt(k,76) + het_rates(k,83) ) - mat(k,433) = rxt(k,270) - mat(k,514) = rxt(k,277) - mat(k,471) = -( rxt(k,269) + het_rates(k,84) ) - mat(k,513) = -( rxt(k,277) + het_rates(k,85) ) - mat(k,472) = rxt(k,269) - mat(k,379) = -( het_rates(k,86) ) - mat(k,432) = -( rxt(k,270) + het_rates(k,87) ) - mat(k,870) = -( rxt(k,365) + het_rates(k,88) ) - mat(k,998) = rxt(k,16) - mat(k,131) = rxt(k,364) - mat(k,124) = rxt(k,366) - mat(k,1341) = rxt(k,571) - mat(k,203) = rxt(k,574) - mat(k,914) = -( het_rates(k,89) ) - mat(k,45) = -( het_rates(k,90) ) - mat(k,130) = -( rxt(k,364) + het_rates(k,91) ) - mat(k,1044) = -( het_rates(k,92) ) - mat(k,122) = -( rxt(k,366) + het_rates(k,93) ) - mat(k,848) = rxt(k,365) - mat(k,91) = -( het_rates(k,94) ) - mat(k,263) = rxt(k,66) - mat(k,60) = rxt(k,583) - mat(k,567) = -( 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,1786) = rxt(k,1) - mat(k,1652) = rxt(k,6) - mat(k,1252) = rxt(k,7) - mat(k,229) = -( rxt(k,382) + rxt(k,390) + het_rates(k,96) ) - mat(k,1246) = rxt(k,7) - mat(k,31) = rxt(k,394) - mat(k,30) = -( rxt(k,383) + rxt(k,394) + het_rates(k,97) ) - mat(k,1306) = -( rxt(k,93) + rxt(k,132) + het_rates(k,98) ) - mat(k,630) = rxt(k,65) - mat(k,103) = rxt(k,97) - mat(k,1352) = -( rxt(k,571) + het_rates(k,99) ) - mat(k,1671) = rxt(k,86) + rxt(k,88) - mat(k,160) = rxt(k,94) - mat(k,156) = -( rxt(k,94) + het_rates(k,100) ) - mat(k,395) = -( rxt(k,95) + rxt(k,96) + het_rates(k,101) ) - mat(k,98) = -( rxt(k,97) + het_rates(k,102) ) - mat(k,279) = -( het_rates(k,103) ) - mat(k,749) = -( 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,1791) = rxt(k,3) - mat(k,86) = 2.000_r8*rxt(k,4) - mat(k,1163) = rxt(k,9) - mat(k,53) = rxt(k,10) - mat(k,138) = rxt(k,12) - mat(k,42) = rxt(k,23) - mat(k,168) = rxt(k,58) - mat(k,192) = rxt(k,59) - mat(k,1578) = rxt(k,98) - mat(k,1738) = .500_r8*rxt(k,539) - mat(k,569) = rxt(k,533)*y(k,20) - mat(k,1598) = -( rxt(k,98) + het_rates(k,105) ) - mat(k,1635) = -( rxt(k,99) + rxt(k,353) + het_rates(k,106) ) - mat(k,799) = rxt(k,63) - mat(k,406) = rxt(k,95) - mat(k,199) = -( rxt(k,574) + het_rates(k,107) ) - mat(k,1202) = rxt(k,78) + rxt(k,79) - mat(k,1647) = 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,577) + het_rates(k,108) ) - mat(k,1191) = rxt(k,80) + rxt(k,81) - mat(k,1642) = rxt(k,90) + rxt(k,91) - mat(k,59) = rxt(k,560) - mat(k,58) = -( rxt(k,558) + rxt(k,560) + rxt(k,582) + rxt(k,583) & - + het_rates(k,109) ) - mat(k,1190) = rxt(k,77) + rxt(k,82) - mat(k,1641) = rxt(k,83) + rxt(k,92) - mat(k,1816) = -( rxt(k,1) + rxt(k,2) + rxt(k,3) + het_rates(k,110) ) - mat(k,509) = rxt(k,64) + rxt(k,278) - mat(k,163) = rxt(k,94) - mat(k,378) = rxt(k,268) - mat(k,488) = rxt(k,269) - mat(k,529) = rxt(k,277) - mat(k,319) = rxt(k,279) - mat(k,110) = rxt(k,368) - mat(k,846) = rxt(k,370) - mat(k,1484) = rxt(k,372) - mat(k,1570) = rxt(k,374) - mat(k,364) = rxt(k,380) - mat(k,770) = 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 b429ce6bd3..d8a5b66bb1 100644 --- a/src/chemistry/pp_waccm_mad/mo_lu_factor.F90 +++ b/src/chemistry/pp_waccm_mad/mo_lu_factor.F90 @@ -1,13347 +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,1517) = lu(k,1517) - lu(k,2) * lu(k,1485) - lu(k,1520) = lu(k,1520) - lu(k,3) * lu(k,1485) - 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,558) = lu(k,558) - lu(k,5) * lu(k,555) - lu(k,567) = lu(k,567) - lu(k,6) * lu(k,555) - lu(k,737) = - lu(k,5) * lu(k,729) - lu(k,747) = - lu(k,6) * lu(k,729) - 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,460) = lu(k,460) - lu(k,8) * lu(k,446) - lu(k,464) = lu(k,464) - lu(k,9) * lu(k,446) - lu(k,1513) = lu(k,1513) - lu(k,8) * lu(k,1486) - lu(k,1520) = lu(k,1520) - lu(k,9) * lu(k,1486) - lu(k,10) = 1._r8 / lu(k,10) - lu(k,11) = lu(k,11) * lu(k,10) - lu(k,195) = lu(k,195) - lu(k,11) * lu(k,190) - lu(k,216) = lu(k,216) - lu(k,11) * lu(k,209) - lu(k,1138) = lu(k,1138) - lu(k,11) * lu(k,1104) - lu(k,1396) = lu(k,1396) - lu(k,11) * lu(k,1364) - lu(k,1517) = lu(k,1517) - lu(k,11) * lu(k,1487) - 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,558) = lu(k,558) - lu(k,13) * lu(k,556) - lu(k,567) = lu(k,567) - lu(k,14) * lu(k,556) - lu(k,580) = lu(k,580) - lu(k,15) * lu(k,556) - lu(k,737) = lu(k,737) - lu(k,13) * lu(k,730) - lu(k,747) = lu(k,747) - lu(k,14) * lu(k,730) - lu(k,762) = lu(k,762) - lu(k,15) * lu(k,730) - 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,166) = lu(k,166) - lu(k,17) * lu(k,164) - lu(k,171) = - lu(k,18) * lu(k,164) - lu(k,450) = lu(k,450) - lu(k,17) * lu(k,447) - lu(k,462) = lu(k,462) - lu(k,18) * lu(k,447) - lu(k,1110) = - lu(k,17) * lu(k,1105) - lu(k,1138) = lu(k,1138) - lu(k,18) * lu(k,1105) - lu(k,1493) = lu(k,1493) - lu(k,17) * lu(k,1488) - lu(k,1517) = lu(k,1517) - lu(k,18) * lu(k,1488) - 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,174) = lu(k,174) - lu(k,20) * lu(k,173) - lu(k,180) = lu(k,180) - lu(k,21) * lu(k,173) - lu(k,411) = lu(k,411) - lu(k,20) * lu(k,410) - lu(k,429) = lu(k,429) - lu(k,21) * lu(k,410) - lu(k,1151) = lu(k,1151) - lu(k,20) * lu(k,1149) - lu(k,1186) = - lu(k,21) * lu(k,1149) - lu(k,1775) = lu(k,1775) - lu(k,20) * lu(k,1764) - lu(k,1814) = lu(k,1814) - lu(k,21) * lu(k,1764) - 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,244) = lu(k,244) - lu(k,23) * lu(k,237) - lu(k,247) = lu(k,247) - lu(k,24) * lu(k,237) - lu(k,250) = lu(k,250) - lu(k,25) * lu(k,237) - lu(k,1469) = lu(k,1469) - lu(k,23) * lu(k,1442) - lu(k,1476) = lu(k,1476) - lu(k,24) * lu(k,1442) - lu(k,1484) = lu(k,1484) - lu(k,25) * lu(k,1442) - lu(k,1801) = lu(k,1801) - lu(k,23) * lu(k,1765) - lu(k,1808) = lu(k,1808) - lu(k,24) * lu(k,1765) - lu(k,1816) = lu(k,1816) - lu(k,25) * lu(k,1765) - 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,244) = lu(k,244) - lu(k,27) * lu(k,238) - lu(k,248) = lu(k,248) - lu(k,28) * lu(k,238) - lu(k,250) = lu(k,250) - lu(k,29) * lu(k,238) - lu(k,1555) = lu(k,1555) - lu(k,27) * lu(k,1528) - lu(k,1564) = lu(k,1564) - lu(k,28) * lu(k,1528) - lu(k,1570) = lu(k,1570) - lu(k,29) * lu(k,1528) - lu(k,1801) = lu(k,1801) - lu(k,27) * lu(k,1766) - lu(k,1810) = lu(k,1810) - lu(k,28) * lu(k,1766) - lu(k,1816) = lu(k,1816) - lu(k,29) * lu(k,1766) - 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,560) = - lu(k,31) * lu(k,557) - lu(k,585) = lu(k,585) - lu(k,32) * lu(k,557) - lu(k,1069) = lu(k,1069) - lu(k,31) * lu(k,1063) - lu(k,1100) = lu(k,1100) - lu(k,32) * lu(k,1063) - lu(k,1205) = lu(k,1205) - lu(k,31) * lu(k,1189) - lu(k,1241) = lu(k,1241) - lu(k,32) * lu(k,1189) - lu(k,1246) = lu(k,1246) - lu(k,31) * lu(k,1245) - lu(k,1279) = lu(k,1279) - lu(k,32) * lu(k,1245) - lu(k,1648) = lu(k,1648) - lu(k,31) * lu(k,1640) - lu(k,1679) = lu(k,1679) - lu(k,32) * lu(k,1640) - 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,154) = - lu(k,34) * lu(k,153) - lu(k,157) = lu(k,157) - lu(k,35) * lu(k,153) - lu(k,159) = lu(k,159) - lu(k,36) * lu(k,153) - lu(k,162) = - lu(k,37) * lu(k,153) - lu(k,163) = lu(k,163) - lu(k,38) * lu(k,153) - lu(k,942) = lu(k,942) - lu(k,34) * lu(k,936) - lu(k,954) = lu(k,954) - lu(k,35) * lu(k,936) - lu(k,958) = lu(k,958) - lu(k,36) * lu(k,936) - lu(k,976) = lu(k,976) - lu(k,37) * lu(k,936) - lu(k,978) = lu(k,978) - lu(k,38) * lu(k,936) - lu(k,1769) = lu(k,1769) - lu(k,34) * lu(k,1767) - lu(k,1791) = lu(k,1791) - lu(k,35) * lu(k,1767) - lu(k,1796) = - lu(k,36) * lu(k,1767) - lu(k,1814) = lu(k,1814) - lu(k,37) * lu(k,1767) - lu(k,1816) = lu(k,1816) - lu(k,38) * lu(k,1767) - 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,252) = lu(k,252) - lu(k,40) * lu(k,251) - lu(k,253) = lu(k,253) - lu(k,41) * lu(k,251) - lu(k,255) = - lu(k,42) * lu(k,251) - lu(k,260) = - lu(k,43) * lu(k,251) - lu(k,262) = - lu(k,44) * lu(k,251) - lu(k,674) = lu(k,674) - lu(k,40) * lu(k,667) - lu(k,678) = - lu(k,41) * lu(k,667) - lu(k,681) = lu(k,681) - lu(k,42) * lu(k,667) - lu(k,699) = lu(k,699) - lu(k,43) * lu(k,667) - lu(k,701) = lu(k,701) - lu(k,44) * lu(k,667) - lu(k,741) = lu(k,741) - lu(k,40) * lu(k,731) - lu(k,746) = lu(k,746) - lu(k,41) * lu(k,731) - lu(k,749) = lu(k,749) - lu(k,42) * lu(k,731) - lu(k,768) = lu(k,768) - lu(k,43) * lu(k,731) - lu(k,770) = lu(k,770) - lu(k,44) * lu(k,731) - 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,894) = - lu(k,46) * lu(k,893) - lu(k,912) = - lu(k,47) * lu(k,893) - lu(k,915) = lu(k,915) - lu(k,48) * lu(k,893) - lu(k,916) = lu(k,916) - lu(k,49) * lu(k,893) - lu(k,935) = lu(k,935) - lu(k,50) * lu(k,893) - lu(k,946) = - lu(k,46) * lu(k,937) - lu(k,955) = lu(k,955) - lu(k,47) * lu(k,937) - lu(k,958) = lu(k,958) - lu(k,48) * lu(k,937) - lu(k,959) = lu(k,959) - lu(k,49) * lu(k,937) - lu(k,978) = lu(k,978) - lu(k,50) * lu(k,937) - lu(k,1772) = lu(k,1772) - lu(k,46) * lu(k,1768) - lu(k,1793) = lu(k,1793) - lu(k,47) * lu(k,1768) - lu(k,1796) = lu(k,1796) - lu(k,48) * lu(k,1768) - lu(k,1797) = - lu(k,49) * lu(k,1768) - lu(k,1816) = lu(k,1816) - lu(k,50) * lu(k,1768) - 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,680) = lu(k,680) - lu(k,52) * lu(k,668) - lu(k,681) = lu(k,681) - lu(k,53) * lu(k,668) - lu(k,694) = lu(k,694) - lu(k,54) * lu(k,668) - lu(k,698) = lu(k,698) - lu(k,55) * lu(k,668) - lu(k,700) = lu(k,700) - lu(k,56) * lu(k,668) - lu(k,701) = lu(k,701) - lu(k,57) * lu(k,668) - lu(k,748) = lu(k,748) - lu(k,52) * lu(k,732) - lu(k,749) = lu(k,749) - lu(k,53) * lu(k,732) - lu(k,763) = lu(k,763) - lu(k,54) * lu(k,732) - lu(k,767) = lu(k,767) - lu(k,55) * lu(k,732) - lu(k,769) = lu(k,769) - lu(k,56) * lu(k,732) - lu(k,770) = lu(k,770) - lu(k,57) * lu(k,732) - lu(k,1736) = lu(k,1736) - lu(k,52) * lu(k,1719) - lu(k,1738) = lu(k,1738) - lu(k,53) * lu(k,1719) - lu(k,1754) = lu(k,1754) - lu(k,54) * lu(k,1719) - lu(k,1760) = lu(k,1760) - lu(k,55) * lu(k,1719) - lu(k,1762) = lu(k,1762) - lu(k,56) * lu(k,1719) - lu(k,1763) = lu(k,1763) - lu(k,57) * lu(k,1719) - 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,939) = lu(k,939) - lu(k,59) * lu(k,938) - lu(k,941) = - lu(k,60) * lu(k,938) - lu(k,943) = lu(k,943) - lu(k,61) * lu(k,938) - lu(k,949) = lu(k,949) - lu(k,62) * lu(k,938) - lu(k,959) = lu(k,959) - lu(k,63) * lu(k,938) - lu(k,964) = lu(k,964) - lu(k,64) * lu(k,938) - lu(k,1191) = lu(k,1191) - lu(k,59) * lu(k,1190) - lu(k,1195) = lu(k,1195) - lu(k,60) * lu(k,1190) - lu(k,1197) = lu(k,1197) - lu(k,61) * lu(k,1190) - lu(k,1202) = lu(k,1202) - lu(k,62) * lu(k,1190) - lu(k,1225) = lu(k,1225) - lu(k,63) * lu(k,1190) - lu(k,1230) = lu(k,1230) - lu(k,64) * lu(k,1190) - lu(k,1642) = lu(k,1642) - lu(k,59) * lu(k,1641) - lu(k,1644) = lu(k,1644) - lu(k,60) * lu(k,1641) - lu(k,1646) = lu(k,1646) - lu(k,61) * lu(k,1641) - lu(k,1647) = lu(k,1647) - lu(k,62) * lu(k,1641) - lu(k,1663) = lu(k,1663) - lu(k,63) * lu(k,1641) - lu(k,1668) = lu(k,1668) - lu(k,64) * lu(k,1641) - 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,943) = lu(k,943) - lu(k,66) * lu(k,939) - lu(k,949) = lu(k,949) - lu(k,67) * lu(k,939) - lu(k,964) = lu(k,964) - lu(k,68) * lu(k,939) - lu(k,967) = lu(k,967) - lu(k,69) * lu(k,939) - lu(k,975) = lu(k,975) - lu(k,70) * lu(k,939) - lu(k,1197) = lu(k,1197) - lu(k,66) * lu(k,1191) - lu(k,1202) = lu(k,1202) - lu(k,67) * lu(k,1191) - lu(k,1230) = lu(k,1230) - lu(k,68) * lu(k,1191) - lu(k,1233) = lu(k,1233) - lu(k,69) * lu(k,1191) - lu(k,1241) = lu(k,1241) - lu(k,70) * lu(k,1191) - lu(k,1646) = lu(k,1646) - lu(k,66) * lu(k,1642) - lu(k,1647) = lu(k,1647) - lu(k,67) * lu(k,1642) - lu(k,1668) = lu(k,1668) - lu(k,68) * lu(k,1642) - lu(k,1671) = lu(k,1671) - lu(k,69) * lu(k,1642) - lu(k,1679) = lu(k,1679) - lu(k,70) * lu(k,1642) - 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,114) = lu(k,114) - lu(k,72) * lu(k,111) - lu(k,115) = - lu(k,73) * lu(k,111) - lu(k,118) = - lu(k,74) * lu(k,111) - lu(k,121) = lu(k,121) - lu(k,75) * lu(k,111) - lu(k,850) = lu(k,850) - lu(k,72) * lu(k,847) - lu(k,861) = - lu(k,73) * lu(k,847) - lu(k,873) = lu(k,873) - lu(k,74) * lu(k,847) - lu(k,889) = lu(k,889) - lu(k,75) * lu(k,847) - lu(k,950) = lu(k,950) - lu(k,72) * lu(k,940) - lu(k,952) = lu(k,952) - lu(k,73) * lu(k,940) - lu(k,959) = lu(k,959) - lu(k,74) * lu(k,940) - lu(k,975) = lu(k,975) - lu(k,75) * lu(k,940) - lu(k,1206) = lu(k,1206) - lu(k,72) * lu(k,1192) - lu(k,1213) = - lu(k,73) * lu(k,1192) - lu(k,1225) = lu(k,1225) - lu(k,74) * lu(k,1192) - lu(k,1241) = lu(k,1241) - lu(k,75) * lu(k,1192) - lu(k,1649) = lu(k,1649) - lu(k,72) * lu(k,1643) - lu(k,1652) = lu(k,1652) - lu(k,73) * lu(k,1643) - lu(k,1663) = lu(k,1663) - lu(k,74) * lu(k,1643) - lu(k,1679) = lu(k,1679) - lu(k,75) * lu(k,1643) - lu(k,76) = 1._r8 / lu(k,76) - lu(k,77) = lu(k,77) * lu(k,76) - lu(k,78) = lu(k,78) * lu(k,76) - lu(k,79) = lu(k,79) * lu(k,76) - lu(k,80) = lu(k,80) * lu(k,76) - lu(k,81) = lu(k,81) * lu(k,76) - lu(k,82) = lu(k,82) * lu(k,76) - lu(k,83) = lu(k,83) * lu(k,76) - lu(k,449) = lu(k,449) - lu(k,77) * lu(k,448) - lu(k,450) = lu(k,450) - lu(k,78) * lu(k,448) - lu(k,451) = lu(k,451) - lu(k,79) * lu(k,448) - lu(k,459) = - lu(k,80) * lu(k,448) - lu(k,460) = lu(k,460) - lu(k,81) * lu(k,448) - lu(k,463) = - lu(k,82) * lu(k,448) - lu(k,467) = lu(k,467) - lu(k,83) * lu(k,448) - lu(k,1199) = lu(k,1199) - lu(k,77) * lu(k,1193) - lu(k,1208) = lu(k,1208) - lu(k,78) * lu(k,1193) - lu(k,1211) = lu(k,1211) - lu(k,79) * lu(k,1193) - lu(k,1229) = - lu(k,80) * lu(k,1193) - lu(k,1230) = lu(k,1230) - lu(k,81) * lu(k,1193) - lu(k,1235) = lu(k,1235) - lu(k,82) * lu(k,1193) - lu(k,1243) = lu(k,1243) - lu(k,83) * lu(k,1193) - lu(k,1721) = - lu(k,77) * lu(k,1720) - lu(k,1725) = - lu(k,78) * lu(k,1720) - lu(k,1728) = lu(k,1728) - lu(k,79) * lu(k,1720) - lu(k,1748) = lu(k,1748) - lu(k,80) * lu(k,1720) - lu(k,1749) = lu(k,1749) - lu(k,81) * lu(k,1720) - lu(k,1754) = lu(k,1754) - lu(k,82) * lu(k,1720) - lu(k,1762) = lu(k,1762) - lu(k,83) * lu(k,1720) - 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,84) = 1._r8 / lu(k,84) - lu(k,85) = lu(k,85) * lu(k,84) - lu(k,86) = lu(k,86) * lu(k,84) - lu(k,87) = lu(k,87) * lu(k,84) - lu(k,88) = lu(k,88) * lu(k,84) - lu(k,89) = lu(k,89) * lu(k,84) - lu(k,90) = lu(k,90) * lu(k,84) - lu(k,680) = lu(k,680) - lu(k,85) * lu(k,669) - lu(k,681) = lu(k,681) - lu(k,86) * lu(k,669) - lu(k,687) = lu(k,687) - lu(k,87) * lu(k,669) - lu(k,689) = lu(k,689) - lu(k,88) * lu(k,669) - lu(k,693) = lu(k,693) - lu(k,89) * lu(k,669) - lu(k,701) = lu(k,701) - lu(k,90) * lu(k,669) - lu(k,748) = lu(k,748) - lu(k,85) * lu(k,733) - lu(k,749) = lu(k,749) - lu(k,86) * lu(k,733) - lu(k,756) = lu(k,756) - lu(k,87) * lu(k,733) - lu(k,758) = lu(k,758) - lu(k,88) * lu(k,733) - lu(k,762) = lu(k,762) - lu(k,89) * lu(k,733) - lu(k,770) = lu(k,770) - lu(k,90) * lu(k,733) - lu(k,1217) = lu(k,1217) - lu(k,85) * lu(k,1194) - lu(k,1219) = lu(k,1219) - lu(k,86) * lu(k,1194) - lu(k,1228) = lu(k,1228) - lu(k,87) * lu(k,1194) - lu(k,1230) = lu(k,1230) - lu(k,88) * lu(k,1194) - lu(k,1234) = lu(k,1234) - lu(k,89) * lu(k,1194) - lu(k,1244) = - lu(k,90) * lu(k,1194) - lu(k,1379) = lu(k,1379) - lu(k,85) * lu(k,1365) - lu(k,1381) = lu(k,1381) - lu(k,86) * lu(k,1365) - lu(k,1390) = lu(k,1390) - lu(k,87) * lu(k,1365) - lu(k,1392) = lu(k,1392) - lu(k,88) * lu(k,1365) - lu(k,1396) = lu(k,1396) - lu(k,89) * lu(k,1365) - lu(k,1406) = - lu(k,90) * lu(k,1365) - lu(k,91) = 1._r8 / lu(k,91) - lu(k,92) = lu(k,92) * lu(k,91) - lu(k,93) = lu(k,93) * lu(k,91) - lu(k,94) = lu(k,94) * lu(k,91) - lu(k,95) = lu(k,95) * lu(k,91) - lu(k,96) = lu(k,96) * lu(k,91) - lu(k,97) = lu(k,97) * lu(k,91) - lu(k,264) = - lu(k,92) * lu(k,263) - lu(k,265) = lu(k,265) - lu(k,93) * lu(k,263) - lu(k,268) = lu(k,268) - lu(k,94) * lu(k,263) - lu(k,272) = lu(k,272) - lu(k,95) * lu(k,263) - lu(k,273) = lu(k,273) - lu(k,96) * lu(k,263) - lu(k,274) = lu(k,274) - lu(k,97) * lu(k,263) - lu(k,949) = lu(k,949) - lu(k,92) * lu(k,941) - lu(k,950) = lu(k,950) - lu(k,93) * lu(k,941) - lu(k,956) = lu(k,956) - lu(k,94) * lu(k,941) - lu(k,964) = lu(k,964) - lu(k,95) * lu(k,941) - lu(k,967) = lu(k,967) - lu(k,96) * lu(k,941) - lu(k,975) = lu(k,975) - lu(k,97) * lu(k,941) - lu(k,1202) = lu(k,1202) - lu(k,92) * lu(k,1195) - lu(k,1206) = lu(k,1206) - lu(k,93) * lu(k,1195) - lu(k,1222) = lu(k,1222) - lu(k,94) * lu(k,1195) - lu(k,1230) = lu(k,1230) - lu(k,95) * lu(k,1195) - lu(k,1233) = lu(k,1233) - lu(k,96) * lu(k,1195) - lu(k,1241) = lu(k,1241) - lu(k,97) * lu(k,1195) - lu(k,1647) = lu(k,1647) - lu(k,92) * lu(k,1644) - lu(k,1649) = lu(k,1649) - lu(k,93) * lu(k,1644) - lu(k,1660) = lu(k,1660) - lu(k,94) * lu(k,1644) - lu(k,1668) = lu(k,1668) - lu(k,95) * lu(k,1644) - lu(k,1671) = lu(k,1671) - lu(k,96) * lu(k,1644) - lu(k,1679) = lu(k,1679) - lu(k,97) * lu(k,1644) - lu(k,98) = 1._r8 / lu(k,98) - lu(k,99) = lu(k,99) * lu(k,98) - lu(k,100) = lu(k,100) * lu(k,98) - lu(k,101) = lu(k,101) * lu(k,98) - lu(k,102) = lu(k,102) * lu(k,98) - lu(k,103) = lu(k,103) * lu(k,98) - lu(k,104) = lu(k,104) * lu(k,98) - lu(k,1073) = lu(k,1073) - lu(k,99) * lu(k,1064) - lu(k,1074) = lu(k,1074) - lu(k,100) * lu(k,1064) - lu(k,1086) = lu(k,1086) - lu(k,101) * lu(k,1064) - lu(k,1089) = lu(k,1089) - lu(k,102) * lu(k,1064) - lu(k,1091) = lu(k,1091) - lu(k,103) * lu(k,1064) - lu(k,1100) = lu(k,1100) - lu(k,104) * lu(k,1064) - lu(k,1209) = lu(k,1209) - lu(k,99) * lu(k,1196) - lu(k,1215) = lu(k,1215) - lu(k,100) * lu(k,1196) - lu(k,1227) = lu(k,1227) - lu(k,101) * lu(k,1196) - lu(k,1230) = lu(k,1230) - lu(k,102) * lu(k,1196) - lu(k,1232) = lu(k,1232) - lu(k,103) * lu(k,1196) - lu(k,1241) = lu(k,1241) - lu(k,104) * lu(k,1196) - lu(k,1287) = lu(k,1287) - lu(k,99) * lu(k,1283) - lu(k,1289) = lu(k,1289) - lu(k,100) * lu(k,1283) - lu(k,1301) = lu(k,1301) - lu(k,101) * lu(k,1283) - lu(k,1304) = lu(k,1304) - lu(k,102) * lu(k,1283) - lu(k,1306) = lu(k,1306) - lu(k,103) * lu(k,1283) - lu(k,1315) = lu(k,1315) - lu(k,104) * lu(k,1283) - lu(k,1651) = lu(k,1651) - lu(k,99) * lu(k,1645) - lu(k,1653) = - lu(k,100) * lu(k,1645) - lu(k,1665) = lu(k,1665) - lu(k,101) * lu(k,1645) - lu(k,1668) = lu(k,1668) - lu(k,102) * lu(k,1645) - lu(k,1670) = lu(k,1670) - lu(k,103) * lu(k,1645) - lu(k,1679) = lu(k,1679) - lu(k,104) * lu(k,1645) - lu(k,105) = 1._r8 / lu(k,105) - lu(k,106) = lu(k,106) * lu(k,105) - lu(k,107) = lu(k,107) * lu(k,105) - lu(k,108) = lu(k,108) * lu(k,105) - lu(k,109) = lu(k,109) * lu(k,105) - lu(k,110) = lu(k,110) * lu(k,105) - lu(k,148) = lu(k,148) - lu(k,106) * lu(k,147) - lu(k,149) = - lu(k,107) * lu(k,147) - lu(k,150) = lu(k,150) - lu(k,108) * lu(k,147) - lu(k,151) = lu(k,151) - lu(k,109) * lu(k,147) - lu(k,152) = lu(k,152) - lu(k,110) * lu(k,147) - lu(k,155) = lu(k,155) - lu(k,106) * lu(k,154) - lu(k,158) = - lu(k,107) * lu(k,154) - lu(k,159) = lu(k,159) - lu(k,108) * lu(k,154) - lu(k,162) = lu(k,162) - lu(k,109) * lu(k,154) - lu(k,163) = lu(k,163) - lu(k,110) * lu(k,154) - lu(k,805) = - lu(k,106) * lu(k,804) - lu(k,823) = lu(k,823) - lu(k,107) * lu(k,804) - lu(k,826) = lu(k,826) - lu(k,108) * lu(k,804) - lu(k,844) = lu(k,844) - lu(k,109) * lu(k,804) - lu(k,846) = lu(k,846) - lu(k,110) * lu(k,804) - lu(k,947) = lu(k,947) - lu(k,106) * lu(k,942) - lu(k,955) = lu(k,955) - lu(k,107) * lu(k,942) - lu(k,958) = lu(k,958) - lu(k,108) * lu(k,942) - lu(k,976) = lu(k,976) - lu(k,109) * lu(k,942) - lu(k,978) = lu(k,978) - lu(k,110) * lu(k,942) - lu(k,1773) = lu(k,1773) - lu(k,106) * lu(k,1769) - lu(k,1793) = lu(k,1793) - lu(k,107) * lu(k,1769) - lu(k,1796) = lu(k,1796) - lu(k,108) * lu(k,1769) - lu(k,1814) = lu(k,1814) - lu(k,109) * lu(k,1769) - lu(k,1816) = lu(k,1816) - lu(k,110) * lu(k,1769) - lu(k,112) = 1._r8 / lu(k,112) - lu(k,113) = lu(k,113) * lu(k,112) - lu(k,114) = lu(k,114) * lu(k,112) - lu(k,115) = lu(k,115) * lu(k,112) - lu(k,116) = lu(k,116) * lu(k,112) - lu(k,117) = lu(k,117) * lu(k,112) - lu(k,118) = lu(k,118) * lu(k,112) - lu(k,119) = lu(k,119) * lu(k,112) - lu(k,120) = lu(k,120) * lu(k,112) - lu(k,121) = lu(k,121) * lu(k,112) - lu(k,949) = lu(k,949) - lu(k,113) * lu(k,943) - lu(k,950) = lu(k,950) - lu(k,114) * lu(k,943) - lu(k,952) = lu(k,952) - lu(k,115) * lu(k,943) - lu(k,956) = lu(k,956) - lu(k,116) * lu(k,943) - lu(k,958) = lu(k,958) - lu(k,117) * lu(k,943) - lu(k,959) = lu(k,959) - lu(k,118) * lu(k,943) - lu(k,964) = lu(k,964) - lu(k,119) * lu(k,943) - lu(k,967) = lu(k,967) - lu(k,120) * lu(k,943) - lu(k,975) = lu(k,975) - lu(k,121) * lu(k,943) - lu(k,1202) = lu(k,1202) - lu(k,113) * lu(k,1197) - lu(k,1206) = lu(k,1206) - lu(k,114) * lu(k,1197) - lu(k,1213) = lu(k,1213) - lu(k,115) * lu(k,1197) - lu(k,1222) = lu(k,1222) - lu(k,116) * lu(k,1197) - lu(k,1224) = lu(k,1224) - lu(k,117) * lu(k,1197) - lu(k,1225) = lu(k,1225) - lu(k,118) * lu(k,1197) - lu(k,1230) = lu(k,1230) - lu(k,119) * lu(k,1197) - lu(k,1233) = lu(k,1233) - lu(k,120) * lu(k,1197) - lu(k,1241) = lu(k,1241) - lu(k,121) * lu(k,1197) - lu(k,1647) = lu(k,1647) - lu(k,113) * lu(k,1646) - lu(k,1649) = lu(k,1649) - lu(k,114) * lu(k,1646) - lu(k,1652) = lu(k,1652) - lu(k,115) * lu(k,1646) - lu(k,1660) = lu(k,1660) - lu(k,116) * lu(k,1646) - lu(k,1662) = lu(k,1662) - lu(k,117) * lu(k,1646) - lu(k,1663) = lu(k,1663) - lu(k,118) * lu(k,1646) - lu(k,1668) = lu(k,1668) - lu(k,119) * lu(k,1646) - lu(k,1671) = lu(k,1671) - lu(k,120) * lu(k,1646) - lu(k,1679) = lu(k,1679) - lu(k,121) * lu(k,1646) - 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,849) = lu(k,849) - lu(k,123) * lu(k,848) - lu(k,870) = lu(k,870) - lu(k,124) * lu(k,848) - lu(k,872) = lu(k,872) - lu(k,125) * lu(k,848) - lu(k,873) = lu(k,873) - lu(k,126) * lu(k,848) - lu(k,874) = lu(k,874) - lu(k,127) * lu(k,848) - lu(k,875) = lu(k,875) - lu(k,128) * lu(k,848) - lu(k,892) = lu(k,892) - lu(k,129) * lu(k,848) - lu(k,945) = lu(k,945) - lu(k,123) * lu(k,944) - lu(k,956) = lu(k,956) - lu(k,124) * lu(k,944) - lu(k,958) = lu(k,958) - lu(k,125) * lu(k,944) - lu(k,959) = lu(k,959) - lu(k,126) * lu(k,944) - lu(k,960) = lu(k,960) - lu(k,127) * lu(k,944) - lu(k,961) = lu(k,961) - lu(k,128) * lu(k,944) - lu(k,978) = lu(k,978) - lu(k,129) * lu(k,944) - lu(k,1066) = lu(k,1066) - lu(k,123) * lu(k,1065) - lu(k,1081) = lu(k,1081) - lu(k,124) * lu(k,1065) - lu(k,1083) = - lu(k,125) * lu(k,1065) - lu(k,1084) = - lu(k,126) * lu(k,1065) - lu(k,1085) = - lu(k,127) * lu(k,1065) - lu(k,1086) = lu(k,1086) - lu(k,128) * lu(k,1065) - lu(k,1103) = - lu(k,129) * lu(k,1065) - lu(k,1771) = lu(k,1771) - lu(k,123) * lu(k,1770) - lu(k,1794) = lu(k,1794) - lu(k,124) * lu(k,1770) - lu(k,1796) = lu(k,1796) - lu(k,125) * lu(k,1770) - lu(k,1797) = lu(k,1797) - lu(k,126) * lu(k,1770) - lu(k,1798) = lu(k,1798) - lu(k,127) * lu(k,1770) - lu(k,1799) = lu(k,1799) - lu(k,128) * lu(k,1770) - lu(k,1816) = lu(k,1816) - lu(k,129) * lu(k,1770) - 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,130) = 1._r8 / lu(k,130) - lu(k,131) = lu(k,131) * lu(k,130) - lu(k,132) = lu(k,132) * lu(k,130) - lu(k,133) = lu(k,133) * lu(k,130) - lu(k,134) = lu(k,134) * lu(k,130) - lu(k,135) = lu(k,135) * lu(k,130) - lu(k,136) = lu(k,136) * lu(k,130) - lu(k,870) = lu(k,870) - lu(k,131) * lu(k,849) - lu(k,872) = lu(k,872) - lu(k,132) * lu(k,849) - lu(k,873) = lu(k,873) - lu(k,133) * lu(k,849) - lu(k,874) = lu(k,874) - lu(k,134) * lu(k,849) - lu(k,875) = lu(k,875) - lu(k,135) * lu(k,849) - lu(k,892) = lu(k,892) - lu(k,136) * lu(k,849) - lu(k,956) = lu(k,956) - lu(k,131) * lu(k,945) - lu(k,958) = lu(k,958) - lu(k,132) * lu(k,945) - lu(k,959) = lu(k,959) - lu(k,133) * lu(k,945) - lu(k,960) = lu(k,960) - lu(k,134) * lu(k,945) - lu(k,961) = lu(k,961) - lu(k,135) * lu(k,945) - lu(k,978) = lu(k,978) - lu(k,136) * lu(k,945) - lu(k,1081) = lu(k,1081) - lu(k,131) * lu(k,1066) - lu(k,1083) = lu(k,1083) - lu(k,132) * lu(k,1066) - lu(k,1084) = lu(k,1084) - lu(k,133) * lu(k,1066) - lu(k,1085) = lu(k,1085) - lu(k,134) * lu(k,1066) - lu(k,1086) = lu(k,1086) - lu(k,135) * lu(k,1066) - lu(k,1103) = lu(k,1103) - lu(k,136) * lu(k,1066) - lu(k,1794) = lu(k,1794) - lu(k,131) * lu(k,1771) - lu(k,1796) = lu(k,1796) - lu(k,132) * lu(k,1771) - lu(k,1797) = lu(k,1797) - lu(k,133) * lu(k,1771) - lu(k,1798) = lu(k,1798) - lu(k,134) * lu(k,1771) - lu(k,1799) = lu(k,1799) - lu(k,135) * lu(k,1771) - lu(k,1816) = lu(k,1816) - lu(k,136) * lu(k,1771) - lu(k,137) = 1._r8 / lu(k,137) - lu(k,138) = lu(k,138) * lu(k,137) - lu(k,139) = lu(k,139) * lu(k,137) - lu(k,140) = lu(k,140) * lu(k,137) - lu(k,141) = lu(k,141) * lu(k,137) - lu(k,707) = - lu(k,138) * lu(k,702) - lu(k,712) = lu(k,712) - lu(k,139) * lu(k,702) - lu(k,727) = lu(k,727) - lu(k,140) * lu(k,702) - lu(k,728) = lu(k,728) - lu(k,141) * lu(k,702) - lu(k,749) = lu(k,749) - lu(k,138) * lu(k,734) - lu(k,753) = lu(k,753) - lu(k,139) * lu(k,734) - lu(k,769) = lu(k,769) - lu(k,140) * lu(k,734) - lu(k,770) = lu(k,770) - lu(k,141) * lu(k,734) - lu(k,910) = lu(k,910) - lu(k,138) * lu(k,894) - lu(k,916) = lu(k,916) - lu(k,139) * lu(k,894) - lu(k,934) = lu(k,934) - lu(k,140) * lu(k,894) - lu(k,935) = lu(k,935) - lu(k,141) * lu(k,894) - lu(k,954) = lu(k,954) - lu(k,138) * lu(k,946) - lu(k,959) = lu(k,959) - lu(k,139) * lu(k,946) - lu(k,977) = - lu(k,140) * lu(k,946) - lu(k,978) = lu(k,978) - lu(k,141) * lu(k,946) - lu(k,995) = lu(k,995) - lu(k,138) * lu(k,979) - lu(k,1001) = lu(k,1001) - lu(k,139) * lu(k,979) - lu(k,1019) = lu(k,1019) - lu(k,140) * lu(k,979) - lu(k,1020) = lu(k,1020) - lu(k,141) * lu(k,979) - lu(k,1123) = lu(k,1123) - lu(k,138) * lu(k,1106) - lu(k,1129) = - lu(k,139) * lu(k,1106) - lu(k,1147) = - lu(k,140) * lu(k,1106) - lu(k,1148) = lu(k,1148) - lu(k,141) * lu(k,1106) - lu(k,1163) = lu(k,1163) - lu(k,138) * lu(k,1150) - lu(k,1169) = - lu(k,139) * lu(k,1150) - lu(k,1187) = lu(k,1187) - lu(k,140) * lu(k,1150) - lu(k,1188) = lu(k,1188) - lu(k,141) * lu(k,1150) - lu(k,1791) = lu(k,1791) - lu(k,138) * lu(k,1772) - lu(k,1797) = lu(k,1797) - lu(k,139) * lu(k,1772) - lu(k,1815) = - lu(k,140) * lu(k,1772) - lu(k,1816) = lu(k,1816) - lu(k,141) * lu(k,1772) - 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,201) = - lu(k,143) * lu(k,198) - lu(k,202) = - lu(k,144) * lu(k,198) - lu(k,204) = lu(k,204) - lu(k,145) * lu(k,198) - lu(k,208) = - lu(k,146) * lu(k,198) - lu(k,326) = lu(k,326) - lu(k,143) * lu(k,320) - lu(k,327) = - lu(k,144) * lu(k,320) - lu(k,328) = - lu(k,145) * lu(k,320) - lu(k,332) = - lu(k,146) * lu(k,320) - lu(k,537) = lu(k,537) - lu(k,143) * lu(k,530) - lu(k,538) = lu(k,538) - lu(k,144) * lu(k,530) - lu(k,541) = - lu(k,145) * lu(k,530) - lu(k,552) = lu(k,552) - lu(k,146) * lu(k,530) - lu(k,748) = lu(k,748) - lu(k,143) * lu(k,735) - lu(k,749) = lu(k,749) - lu(k,144) * lu(k,735) - lu(k,755) = lu(k,755) - lu(k,145) * lu(k,735) - lu(k,768) = lu(k,768) - lu(k,146) * lu(k,735) - lu(k,1076) = - lu(k,143) * lu(k,1067) - lu(k,1078) = - lu(k,144) * lu(k,1067) - lu(k,1086) = lu(k,1086) - lu(k,145) * lu(k,1067) - lu(k,1101) = - lu(k,146) * lu(k,1067) - lu(k,1217) = lu(k,1217) - lu(k,143) * lu(k,1198) - lu(k,1219) = lu(k,1219) - lu(k,144) * lu(k,1198) - lu(k,1227) = lu(k,1227) - lu(k,145) * lu(k,1198) - lu(k,1242) = lu(k,1242) - lu(k,146) * lu(k,1198) - lu(k,1379) = lu(k,1379) - lu(k,143) * lu(k,1366) - lu(k,1381) = lu(k,1381) - lu(k,144) * lu(k,1366) - lu(k,1389) = lu(k,1389) - lu(k,145) * lu(k,1366) - lu(k,1404) = lu(k,1404) - lu(k,146) * lu(k,1366) - lu(k,1415) = lu(k,1415) - lu(k,143) * lu(k,1407) - lu(k,1417) = lu(k,1417) - lu(k,144) * lu(k,1407) - lu(k,1424) = - lu(k,145) * lu(k,1407) - lu(k,1439) = - lu(k,146) * lu(k,1407) - lu(k,148) = 1._r8 / lu(k,148) - lu(k,149) = lu(k,149) * lu(k,148) - lu(k,150) = lu(k,150) * lu(k,148) - lu(k,151) = lu(k,151) * lu(k,148) - lu(k,152) = lu(k,152) * lu(k,148) - lu(k,158) = lu(k,158) - lu(k,149) * lu(k,155) - lu(k,159) = lu(k,159) - lu(k,150) * lu(k,155) - lu(k,162) = lu(k,162) - lu(k,151) * lu(k,155) - lu(k,163) = lu(k,163) - lu(k,152) * lu(k,155) - lu(k,682) = - lu(k,149) * lu(k,670) - lu(k,683) = - lu(k,150) * lu(k,670) - lu(k,699) = lu(k,699) - lu(k,151) * lu(k,670) - lu(k,701) = lu(k,701) - lu(k,152) * lu(k,670) - lu(k,750) = - lu(k,149) * lu(k,736) - lu(k,752) = - lu(k,150) * lu(k,736) - lu(k,768) = lu(k,768) - lu(k,151) * lu(k,736) - lu(k,770) = lu(k,770) - lu(k,152) * lu(k,736) - lu(k,823) = lu(k,823) - lu(k,149) * lu(k,805) - lu(k,826) = lu(k,826) - lu(k,150) * lu(k,805) - lu(k,844) = lu(k,844) - lu(k,151) * lu(k,805) - lu(k,846) = lu(k,846) - lu(k,152) * lu(k,805) - lu(k,955) = lu(k,955) - lu(k,149) * lu(k,947) - lu(k,958) = lu(k,958) - lu(k,150) * lu(k,947) - lu(k,976) = lu(k,976) - lu(k,151) * lu(k,947) - lu(k,978) = lu(k,978) - lu(k,152) * lu(k,947) - lu(k,1039) = - lu(k,149) * lu(k,1021) - lu(k,1042) = lu(k,1042) - lu(k,150) * lu(k,1021) - lu(k,1060) = lu(k,1060) - lu(k,151) * lu(k,1021) - lu(k,1062) = lu(k,1062) - lu(k,152) * lu(k,1021) - lu(k,1695) = - lu(k,149) * lu(k,1683) - lu(k,1698) = lu(k,1698) - lu(k,150) * lu(k,1683) - lu(k,1716) = lu(k,1716) - lu(k,151) * lu(k,1683) - lu(k,1718) = lu(k,1718) - lu(k,152) * lu(k,1683) - lu(k,1793) = lu(k,1793) - lu(k,149) * lu(k,1773) - lu(k,1796) = lu(k,1796) - lu(k,150) * lu(k,1773) - lu(k,1814) = lu(k,1814) - lu(k,151) * lu(k,1773) - lu(k,1816) = lu(k,1816) - lu(k,152) * lu(k,1773) - lu(k,156) = 1._r8 / lu(k,156) - lu(k,157) = lu(k,157) * lu(k,156) - lu(k,158) = lu(k,158) * lu(k,156) - lu(k,159) = lu(k,159) * lu(k,156) - lu(k,160) = lu(k,160) * lu(k,156) - lu(k,161) = lu(k,161) * lu(k,156) - lu(k,162) = lu(k,162) * lu(k,156) - lu(k,163) = lu(k,163) * lu(k,156) - lu(k,280) = - lu(k,157) * lu(k,277) - lu(k,281) = - lu(k,158) * lu(k,277) - lu(k,282) = lu(k,282) - lu(k,159) * lu(k,277) - lu(k,286) = lu(k,286) - lu(k,160) * lu(k,277) - lu(k,288) = lu(k,288) - lu(k,161) * lu(k,277) - lu(k,289) = - lu(k,162) * lu(k,277) - lu(k,290) = lu(k,290) - lu(k,163) * lu(k,277) - lu(k,954) = lu(k,954) - lu(k,157) * lu(k,948) - lu(k,955) = lu(k,955) - lu(k,158) * lu(k,948) - lu(k,958) = lu(k,958) - lu(k,159) * lu(k,948) - lu(k,967) = lu(k,967) - lu(k,160) * lu(k,948) - lu(k,975) = lu(k,975) - lu(k,161) * lu(k,948) - lu(k,976) = lu(k,976) - lu(k,162) * lu(k,948) - lu(k,978) = lu(k,978) - lu(k,163) * lu(k,948) - lu(k,1338) = lu(k,1338) - lu(k,157) * lu(k,1319) - lu(k,1340) = - lu(k,158) * lu(k,1319) - lu(k,1343) = lu(k,1343) - lu(k,159) * lu(k,1319) - lu(k,1352) = lu(k,1352) - lu(k,160) * lu(k,1319) - lu(k,1360) = lu(k,1360) - lu(k,161) * lu(k,1319) - lu(k,1361) = - lu(k,162) * lu(k,1319) - lu(k,1363) = lu(k,1363) - lu(k,163) * lu(k,1319) - lu(k,1791) = lu(k,1791) - lu(k,157) * lu(k,1774) - lu(k,1793) = lu(k,1793) - lu(k,158) * lu(k,1774) - lu(k,1796) = lu(k,1796) - lu(k,159) * lu(k,1774) - lu(k,1805) = lu(k,1805) - lu(k,160) * lu(k,1774) - lu(k,1813) = lu(k,1813) - lu(k,161) * lu(k,1774) - lu(k,1814) = lu(k,1814) - lu(k,162) * lu(k,1774) - lu(k,1816) = lu(k,1816) - lu(k,163) * lu(k,1774) - 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,165) = 1._r8 / lu(k,165) - lu(k,166) = lu(k,166) * lu(k,165) - lu(k,167) = lu(k,167) * lu(k,165) - lu(k,168) = lu(k,168) * lu(k,165) - lu(k,169) = lu(k,169) * lu(k,165) - lu(k,170) = lu(k,170) * lu(k,165) - lu(k,171) = lu(k,171) * lu(k,165) - lu(k,172) = lu(k,172) * lu(k,165) - lu(k,450) = lu(k,450) - lu(k,166) * lu(k,449) - lu(k,451) = lu(k,451) - lu(k,167) * lu(k,449) - lu(k,455) = lu(k,455) - lu(k,168) * lu(k,449) - lu(k,458) = - lu(k,169) * lu(k,449) - lu(k,460) = lu(k,460) - lu(k,170) * lu(k,449) - lu(k,462) = lu(k,462) - lu(k,171) * lu(k,449) - lu(k,468) = - lu(k,172) * lu(k,449) - lu(k,675) = lu(k,675) - lu(k,166) * lu(k,671) - lu(k,677) = lu(k,677) - lu(k,167) * lu(k,671) - lu(k,681) = lu(k,681) - lu(k,168) * lu(k,671) - lu(k,687) = lu(k,687) - lu(k,169) * lu(k,671) - lu(k,689) = lu(k,689) - lu(k,170) * lu(k,671) - lu(k,693) = lu(k,693) - lu(k,171) * lu(k,671) - lu(k,701) = lu(k,701) - lu(k,172) * lu(k,671) - lu(k,1110) = lu(k,1110) - lu(k,166) * lu(k,1107) - lu(k,1115) = - lu(k,167) * lu(k,1107) - lu(k,1123) = lu(k,1123) - lu(k,168) * lu(k,1107) - lu(k,1132) = lu(k,1132) - lu(k,169) * lu(k,1107) - lu(k,1134) = lu(k,1134) - lu(k,170) * lu(k,1107) - lu(k,1138) = lu(k,1138) - lu(k,171) * lu(k,1107) - lu(k,1148) = lu(k,1148) - lu(k,172) * lu(k,1107) - lu(k,1208) = lu(k,1208) - lu(k,166) * lu(k,1199) - lu(k,1211) = lu(k,1211) - lu(k,167) * lu(k,1199) - lu(k,1219) = lu(k,1219) - lu(k,168) * lu(k,1199) - lu(k,1228) = lu(k,1228) - lu(k,169) * lu(k,1199) - lu(k,1230) = lu(k,1230) - lu(k,170) * lu(k,1199) - lu(k,1234) = lu(k,1234) - lu(k,171) * lu(k,1199) - lu(k,1244) = lu(k,1244) - lu(k,172) * lu(k,1199) - lu(k,1725) = lu(k,1725) - lu(k,166) * lu(k,1721) - lu(k,1728) = lu(k,1728) - lu(k,167) * lu(k,1721) - lu(k,1738) = lu(k,1738) - lu(k,168) * lu(k,1721) - lu(k,1747) = - lu(k,169) * lu(k,1721) - lu(k,1749) = lu(k,1749) - lu(k,170) * lu(k,1721) - lu(k,1753) = lu(k,1753) - lu(k,171) * lu(k,1721) - lu(k,1763) = lu(k,1763) - lu(k,172) * lu(k,1721) - lu(k,174) = 1._r8 / lu(k,174) - lu(k,175) = lu(k,175) * lu(k,174) - lu(k,176) = lu(k,176) * lu(k,174) - lu(k,177) = lu(k,177) * lu(k,174) - lu(k,178) = lu(k,178) * lu(k,174) - lu(k,179) = lu(k,179) * lu(k,174) - lu(k,180) = lu(k,180) * lu(k,174) - lu(k,181) = lu(k,181) * lu(k,174) - lu(k,412) = - lu(k,175) * lu(k,411) - lu(k,413) = lu(k,413) - lu(k,176) * lu(k,411) - lu(k,417) = lu(k,417) - lu(k,177) * lu(k,411) - lu(k,421) = - lu(k,178) * lu(k,411) - lu(k,424) = - lu(k,179) * lu(k,411) - lu(k,429) = lu(k,429) - lu(k,180) * lu(k,411) - lu(k,431) = lu(k,431) - lu(k,181) * lu(k,411) - lu(k,561) = lu(k,561) - lu(k,175) * lu(k,558) - lu(k,564) = lu(k,564) - lu(k,176) * lu(k,558) - lu(k,569) = lu(k,569) - lu(k,177) * lu(k,558) - lu(k,575) = - lu(k,178) * lu(k,558) - lu(k,581) = - lu(k,179) * lu(k,558) - lu(k,586) = lu(k,586) - lu(k,180) * lu(k,558) - lu(k,588) = lu(k,588) - lu(k,181) * lu(k,558) - lu(k,741) = lu(k,741) - lu(k,175) * lu(k,737) - lu(k,744) = lu(k,744) - lu(k,176) * lu(k,737) - lu(k,749) = lu(k,749) - lu(k,177) * lu(k,737) - lu(k,757) = lu(k,757) - lu(k,178) * lu(k,737) - lu(k,763) = lu(k,763) - lu(k,179) * lu(k,737) - lu(k,768) = lu(k,768) - lu(k,180) * lu(k,737) - lu(k,770) = lu(k,770) - lu(k,181) * lu(k,737) - lu(k,1152) = - lu(k,175) * lu(k,1151) - lu(k,1154) = - lu(k,176) * lu(k,1151) - lu(k,1163) = lu(k,1163) - lu(k,177) * lu(k,1151) - lu(k,1173) = lu(k,1173) - lu(k,178) * lu(k,1151) - lu(k,1179) = lu(k,1179) - lu(k,179) * lu(k,1151) - lu(k,1186) = lu(k,1186) - lu(k,180) * lu(k,1151) - lu(k,1188) = lu(k,1188) - lu(k,181) * lu(k,1151) - lu(k,1776) = - lu(k,175) * lu(k,1775) - lu(k,1781) = lu(k,1781) - lu(k,176) * lu(k,1775) - lu(k,1791) = lu(k,1791) - lu(k,177) * lu(k,1775) - lu(k,1801) = lu(k,1801) - lu(k,178) * lu(k,1775) - lu(k,1807) = - lu(k,179) * lu(k,1775) - lu(k,1814) = lu(k,1814) - lu(k,180) * lu(k,1775) - lu(k,1816) = lu(k,1816) - lu(k,181) * lu(k,1775) - lu(k,182) = 1._r8 / lu(k,182) - lu(k,183) = lu(k,183) * lu(k,182) - lu(k,184) = lu(k,184) * lu(k,182) - lu(k,185) = lu(k,185) * lu(k,182) - lu(k,186) = lu(k,186) * lu(k,182) - lu(k,187) = lu(k,187) * lu(k,182) - lu(k,188) = lu(k,188) * lu(k,182) - lu(k,189) = lu(k,189) * lu(k,182) - lu(k,322) = lu(k,322) - lu(k,183) * lu(k,321) - lu(k,323) = lu(k,323) - lu(k,184) * lu(k,321) - lu(k,325) = - lu(k,185) * lu(k,321) - lu(k,327) = lu(k,327) - lu(k,186) * lu(k,321) - lu(k,329) = - lu(k,187) * lu(k,321) - lu(k,332) = lu(k,332) - lu(k,188) * lu(k,321) - lu(k,333) = - lu(k,189) * lu(k,321) - lu(k,532) = lu(k,532) - lu(k,183) * lu(k,531) - lu(k,534) = - lu(k,184) * lu(k,531) - lu(k,536) = - lu(k,185) * lu(k,531) - lu(k,538) = lu(k,538) - lu(k,186) * lu(k,531) - lu(k,544) = lu(k,544) - lu(k,187) * lu(k,531) - lu(k,552) = lu(k,552) - lu(k,188) * lu(k,531) - lu(k,554) = lu(k,554) - lu(k,189) * lu(k,531) - lu(k,563) = lu(k,563) - lu(k,183) * lu(k,559) - lu(k,565) = lu(k,565) - lu(k,184) * lu(k,559) - lu(k,567) = lu(k,567) - lu(k,185) * lu(k,559) - lu(k,569) = lu(k,569) - lu(k,186) * lu(k,559) - lu(k,576) = lu(k,576) - lu(k,187) * lu(k,559) - lu(k,586) = lu(k,586) - lu(k,188) * lu(k,559) - lu(k,588) = lu(k,588) - lu(k,189) * lu(k,559) - lu(k,675) = lu(k,675) - lu(k,183) * lu(k,672) - lu(k,677) = lu(k,677) - lu(k,184) * lu(k,672) - lu(k,679) = - lu(k,185) * lu(k,672) - lu(k,681) = lu(k,681) - lu(k,186) * lu(k,672) - lu(k,689) = lu(k,689) - lu(k,187) * lu(k,672) - lu(k,699) = lu(k,699) - lu(k,188) * lu(k,672) - lu(k,701) = lu(k,701) - lu(k,189) * lu(k,672) - lu(k,743) = lu(k,743) - lu(k,183) * lu(k,738) - lu(k,745) = lu(k,745) - lu(k,184) * lu(k,738) - lu(k,747) = lu(k,747) - lu(k,185) * lu(k,738) - lu(k,749) = lu(k,749) - lu(k,186) * lu(k,738) - lu(k,758) = lu(k,758) - lu(k,187) * lu(k,738) - lu(k,768) = lu(k,768) - lu(k,188) * lu(k,738) - lu(k,770) = lu(k,770) - lu(k,189) * lu(k,738) - lu(k,1208) = lu(k,1208) - lu(k,183) * lu(k,1200) - lu(k,1211) = lu(k,1211) - lu(k,184) * lu(k,1200) - lu(k,1213) = lu(k,1213) - lu(k,185) * lu(k,1200) - lu(k,1219) = lu(k,1219) - lu(k,186) * lu(k,1200) - lu(k,1230) = lu(k,1230) - lu(k,187) * lu(k,1200) - lu(k,1242) = lu(k,1242) - lu(k,188) * lu(k,1200) - lu(k,1244) = lu(k,1244) - lu(k,189) * lu(k,1200) - 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,212) = lu(k,212) - lu(k,192) * lu(k,210) - lu(k,213) = lu(k,213) - lu(k,193) * lu(k,210) - lu(k,215) = lu(k,215) - lu(k,194) * lu(k,210) - lu(k,216) = lu(k,216) - lu(k,195) * lu(k,210) - lu(k,218) = lu(k,218) - lu(k,196) * lu(k,210) - lu(k,220) = - lu(k,197) * lu(k,210) - lu(k,681) = lu(k,681) - lu(k,192) * lu(k,673) - lu(k,687) = lu(k,687) - lu(k,193) * lu(k,673) - lu(k,689) = lu(k,689) - lu(k,194) * lu(k,673) - lu(k,693) = lu(k,693) - lu(k,195) * lu(k,673) - lu(k,695) = lu(k,695) - lu(k,196) * lu(k,673) - lu(k,701) = lu(k,701) - lu(k,197) * lu(k,673) - lu(k,749) = lu(k,749) - lu(k,192) * lu(k,739) - lu(k,756) = lu(k,756) - lu(k,193) * lu(k,739) - lu(k,758) = lu(k,758) - lu(k,194) * lu(k,739) - lu(k,762) = lu(k,762) - lu(k,195) * lu(k,739) - lu(k,764) = lu(k,764) - lu(k,196) * lu(k,739) - lu(k,770) = lu(k,770) - lu(k,197) * lu(k,739) - lu(k,1123) = lu(k,1123) - lu(k,192) * lu(k,1108) - lu(k,1132) = lu(k,1132) - lu(k,193) * lu(k,1108) - lu(k,1134) = lu(k,1134) - lu(k,194) * lu(k,1108) - lu(k,1138) = lu(k,1138) - lu(k,195) * lu(k,1108) - lu(k,1141) = lu(k,1141) - lu(k,196) * lu(k,1108) - lu(k,1148) = lu(k,1148) - lu(k,197) * lu(k,1108) - lu(k,1219) = lu(k,1219) - lu(k,192) * lu(k,1201) - lu(k,1228) = lu(k,1228) - lu(k,193) * lu(k,1201) - lu(k,1230) = lu(k,1230) - lu(k,194) * lu(k,1201) - lu(k,1234) = lu(k,1234) - lu(k,195) * lu(k,1201) - lu(k,1237) = lu(k,1237) - lu(k,196) * lu(k,1201) - lu(k,1244) = lu(k,1244) - lu(k,197) * lu(k,1201) - lu(k,1381) = lu(k,1381) - lu(k,192) * lu(k,1367) - lu(k,1390) = lu(k,1390) - lu(k,193) * lu(k,1367) - lu(k,1392) = lu(k,1392) - lu(k,194) * lu(k,1367) - lu(k,1396) = lu(k,1396) - lu(k,195) * lu(k,1367) - lu(k,1399) = lu(k,1399) - lu(k,196) * lu(k,1367) - lu(k,1406) = lu(k,1406) - lu(k,197) * lu(k,1367) - lu(k,1502) = lu(k,1502) - lu(k,192) * lu(k,1489) - lu(k,1511) = lu(k,1511) - lu(k,193) * lu(k,1489) - lu(k,1513) = lu(k,1513) - lu(k,194) * lu(k,1489) - lu(k,1517) = lu(k,1517) - lu(k,195) * lu(k,1489) - lu(k,1520) = lu(k,1520) - lu(k,196) * lu(k,1489) - lu(k,1527) = - lu(k,197) * lu(k,1489) - 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,199) = 1._r8 / lu(k,199) - lu(k,200) = lu(k,200) * lu(k,199) - lu(k,201) = lu(k,201) * lu(k,199) - lu(k,202) = lu(k,202) * lu(k,199) - lu(k,203) = lu(k,203) * lu(k,199) - lu(k,204) = lu(k,204) * lu(k,199) - lu(k,205) = lu(k,205) * lu(k,199) - lu(k,206) = lu(k,206) * lu(k,199) - lu(k,207) = lu(k,207) * lu(k,199) - lu(k,208) = lu(k,208) * lu(k,199) - lu(k,265) = lu(k,265) - lu(k,200) * lu(k,264) - lu(k,266) = - lu(k,201) * lu(k,264) - lu(k,267) = lu(k,267) - lu(k,202) * lu(k,264) - lu(k,268) = lu(k,268) - lu(k,203) * lu(k,264) - lu(k,271) = - lu(k,204) * lu(k,264) - lu(k,272) = lu(k,272) - lu(k,205) * lu(k,264) - lu(k,273) = lu(k,273) - lu(k,206) * lu(k,264) - lu(k,274) = lu(k,274) - lu(k,207) * lu(k,264) - lu(k,275) = lu(k,275) - lu(k,208) * lu(k,264) - lu(k,950) = lu(k,950) - lu(k,200) * lu(k,949) - lu(k,953) = - lu(k,201) * lu(k,949) - lu(k,954) = lu(k,954) - lu(k,202) * lu(k,949) - lu(k,956) = lu(k,956) - lu(k,203) * lu(k,949) - lu(k,961) = lu(k,961) - lu(k,204) * lu(k,949) - lu(k,964) = lu(k,964) - lu(k,205) * lu(k,949) - lu(k,967) = lu(k,967) - lu(k,206) * lu(k,949) - lu(k,975) = lu(k,975) - lu(k,207) * lu(k,949) - lu(k,976) = lu(k,976) - lu(k,208) * lu(k,949) - lu(k,1070) = - lu(k,200) * lu(k,1068) - lu(k,1076) = lu(k,1076) - lu(k,201) * lu(k,1068) - lu(k,1078) = lu(k,1078) - lu(k,202) * lu(k,1068) - lu(k,1081) = lu(k,1081) - lu(k,203) * lu(k,1068) - lu(k,1086) = lu(k,1086) - lu(k,204) * lu(k,1068) - lu(k,1089) = lu(k,1089) - lu(k,205) * lu(k,1068) - lu(k,1092) = lu(k,1092) - lu(k,206) * lu(k,1068) - lu(k,1100) = lu(k,1100) - lu(k,207) * lu(k,1068) - lu(k,1101) = lu(k,1101) - lu(k,208) * lu(k,1068) - lu(k,1206) = lu(k,1206) - lu(k,200) * lu(k,1202) - lu(k,1217) = lu(k,1217) - lu(k,201) * lu(k,1202) - lu(k,1219) = lu(k,1219) - lu(k,202) * lu(k,1202) - lu(k,1222) = lu(k,1222) - lu(k,203) * lu(k,1202) - lu(k,1227) = lu(k,1227) - lu(k,204) * lu(k,1202) - lu(k,1230) = lu(k,1230) - lu(k,205) * lu(k,1202) - lu(k,1233) = lu(k,1233) - lu(k,206) * lu(k,1202) - lu(k,1241) = lu(k,1241) - lu(k,207) * lu(k,1202) - lu(k,1242) = lu(k,1242) - lu(k,208) * lu(k,1202) - lu(k,1649) = lu(k,1649) - lu(k,200) * lu(k,1647) - lu(k,1655) = lu(k,1655) - lu(k,201) * lu(k,1647) - lu(k,1657) = - lu(k,202) * lu(k,1647) - lu(k,1660) = lu(k,1660) - lu(k,203) * lu(k,1647) - lu(k,1665) = lu(k,1665) - lu(k,204) * lu(k,1647) - lu(k,1668) = lu(k,1668) - lu(k,205) * lu(k,1647) - lu(k,1671) = lu(k,1671) - lu(k,206) * lu(k,1647) - lu(k,1679) = lu(k,1679) - lu(k,207) * lu(k,1647) - lu(k,1680) = lu(k,1680) - lu(k,208) * lu(k,1647) - 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,219) = lu(k,219) * lu(k,211) - lu(k,220) = lu(k,220) * lu(k,211) - lu(k,749) = lu(k,749) - lu(k,212) * lu(k,740) - lu(k,756) = lu(k,756) - lu(k,213) * lu(k,740) - lu(k,757) = lu(k,757) - lu(k,214) * lu(k,740) - lu(k,758) = lu(k,758) - lu(k,215) * lu(k,740) - lu(k,762) = lu(k,762) - lu(k,216) * lu(k,740) - lu(k,763) = lu(k,763) - lu(k,217) * lu(k,740) - lu(k,764) = lu(k,764) - lu(k,218) * lu(k,740) - lu(k,769) = lu(k,769) - lu(k,219) * lu(k,740) - lu(k,770) = lu(k,770) - lu(k,220) * lu(k,740) - lu(k,1123) = lu(k,1123) - lu(k,212) * lu(k,1109) - lu(k,1132) = lu(k,1132) - lu(k,213) * lu(k,1109) - lu(k,1133) = lu(k,1133) - lu(k,214) * lu(k,1109) - lu(k,1134) = lu(k,1134) - lu(k,215) * lu(k,1109) - lu(k,1138) = lu(k,1138) - lu(k,216) * lu(k,1109) - lu(k,1139) = - lu(k,217) * lu(k,1109) - lu(k,1141) = lu(k,1141) - lu(k,218) * lu(k,1109) - lu(k,1147) = lu(k,1147) - lu(k,219) * lu(k,1109) - lu(k,1148) = lu(k,1148) - lu(k,220) * lu(k,1109) - lu(k,1219) = lu(k,1219) - lu(k,212) * lu(k,1203) - lu(k,1228) = lu(k,1228) - lu(k,213) * lu(k,1203) - lu(k,1229) = lu(k,1229) - lu(k,214) * lu(k,1203) - lu(k,1230) = lu(k,1230) - lu(k,215) * lu(k,1203) - lu(k,1234) = lu(k,1234) - lu(k,216) * lu(k,1203) - lu(k,1235) = lu(k,1235) - lu(k,217) * lu(k,1203) - lu(k,1237) = lu(k,1237) - lu(k,218) * lu(k,1203) - lu(k,1243) = lu(k,1243) - lu(k,219) * lu(k,1203) - lu(k,1244) = lu(k,1244) - lu(k,220) * lu(k,1203) - lu(k,1381) = lu(k,1381) - lu(k,212) * lu(k,1368) - lu(k,1390) = lu(k,1390) - lu(k,213) * lu(k,1368) - lu(k,1391) = - lu(k,214) * lu(k,1368) - lu(k,1392) = lu(k,1392) - lu(k,215) * lu(k,1368) - lu(k,1396) = lu(k,1396) - lu(k,216) * lu(k,1368) - lu(k,1397) = lu(k,1397) - lu(k,217) * lu(k,1368) - lu(k,1399) = lu(k,1399) - lu(k,218) * lu(k,1368) - lu(k,1405) = lu(k,1405) - lu(k,219) * lu(k,1368) - lu(k,1406) = lu(k,1406) - lu(k,220) * lu(k,1368) - lu(k,1502) = lu(k,1502) - lu(k,212) * lu(k,1490) - lu(k,1511) = lu(k,1511) - lu(k,213) * lu(k,1490) - lu(k,1512) = - lu(k,214) * lu(k,1490) - lu(k,1513) = lu(k,1513) - lu(k,215) * lu(k,1490) - lu(k,1517) = lu(k,1517) - lu(k,216) * lu(k,1490) - lu(k,1518) = lu(k,1518) - lu(k,217) * lu(k,1490) - lu(k,1520) = lu(k,1520) - lu(k,218) * lu(k,1490) - lu(k,1526) = lu(k,1526) - lu(k,219) * lu(k,1490) - lu(k,1527) = lu(k,1527) - lu(k,220) * lu(k,1490) - lu(k,1738) = lu(k,1738) - lu(k,212) * lu(k,1722) - lu(k,1747) = lu(k,1747) - lu(k,213) * lu(k,1722) - lu(k,1748) = lu(k,1748) - lu(k,214) * lu(k,1722) - lu(k,1749) = lu(k,1749) - lu(k,215) * lu(k,1722) - lu(k,1753) = lu(k,1753) - lu(k,216) * lu(k,1722) - lu(k,1754) = lu(k,1754) - lu(k,217) * lu(k,1722) - lu(k,1756) = lu(k,1756) - lu(k,218) * lu(k,1722) - lu(k,1762) = lu(k,1762) - lu(k,219) * lu(k,1722) - lu(k,1763) = lu(k,1763) - lu(k,220) * lu(k,1722) - lu(k,221) = 1._r8 / lu(k,221) - lu(k,222) = lu(k,222) * lu(k,221) - lu(k,223) = lu(k,223) * lu(k,221) - lu(k,224) = lu(k,224) * lu(k,221) - lu(k,225) = lu(k,225) * lu(k,221) - lu(k,226) = lu(k,226) * lu(k,221) - lu(k,227) = lu(k,227) * lu(k,221) - lu(k,228) = lu(k,228) * lu(k,221) - lu(k,612) = lu(k,612) - lu(k,222) * lu(k,610) - lu(k,616) = - lu(k,223) * lu(k,610) - lu(k,623) = lu(k,623) - lu(k,224) * lu(k,610) - lu(k,628) = lu(k,628) - lu(k,225) * lu(k,610) - lu(k,632) = lu(k,632) - lu(k,226) * lu(k,610) - lu(k,638) = lu(k,638) - lu(k,227) * lu(k,610) - lu(k,640) = - lu(k,228) * lu(k,610) - lu(k,775) = lu(k,775) - lu(k,222) * lu(k,771) - lu(k,777) = lu(k,777) - lu(k,223) * lu(k,771) - lu(k,784) = lu(k,784) - lu(k,224) * lu(k,771) - lu(k,789) = lu(k,789) - lu(k,225) * lu(k,771) - lu(k,793) = lu(k,793) - lu(k,226) * lu(k,771) - lu(k,800) = lu(k,800) - lu(k,227) * lu(k,771) - lu(k,802) = lu(k,802) - lu(k,228) * lu(k,771) - lu(k,991) = lu(k,991) - lu(k,222) * lu(k,980) - lu(k,994) = lu(k,994) - lu(k,223) * lu(k,980) - lu(k,1001) = lu(k,1001) - lu(k,224) * lu(k,980) - lu(k,1006) = lu(k,1006) - lu(k,225) * lu(k,980) - lu(k,1010) = lu(k,1010) - lu(k,226) * lu(k,980) - lu(k,1017) = lu(k,1017) - lu(k,227) * lu(k,980) - lu(k,1019) = lu(k,1019) - lu(k,228) * lu(k,980) - lu(k,1214) = lu(k,1214) - lu(k,222) * lu(k,1204) - lu(k,1218) = lu(k,1218) - lu(k,223) * lu(k,1204) - lu(k,1225) = lu(k,1225) - lu(k,224) * lu(k,1204) - lu(k,1230) = lu(k,1230) - lu(k,225) * lu(k,1204) - lu(k,1234) = lu(k,1234) - lu(k,226) * lu(k,1204) - lu(k,1241) = lu(k,1241) - lu(k,227) * lu(k,1204) - lu(k,1243) = lu(k,1243) - lu(k,228) * lu(k,1204) - lu(k,1288) = lu(k,1288) - lu(k,222) * lu(k,1284) - lu(k,1292) = lu(k,1292) - lu(k,223) * lu(k,1284) - lu(k,1299) = lu(k,1299) - lu(k,224) * lu(k,1284) - lu(k,1304) = lu(k,1304) - lu(k,225) * lu(k,1284) - lu(k,1308) = lu(k,1308) - lu(k,226) * lu(k,1284) - lu(k,1315) = lu(k,1315) - lu(k,227) * lu(k,1284) - lu(k,1317) = lu(k,1317) - lu(k,228) * lu(k,1284) - lu(k,1376) = lu(k,1376) - lu(k,222) * lu(k,1369) - lu(k,1380) = lu(k,1380) - lu(k,223) * lu(k,1369) - lu(k,1387) = - lu(k,224) * lu(k,1369) - lu(k,1392) = lu(k,1392) - lu(k,225) * lu(k,1369) - lu(k,1396) = lu(k,1396) - lu(k,226) * lu(k,1369) - lu(k,1403) = lu(k,1403) - lu(k,227) * lu(k,1369) - lu(k,1405) = lu(k,1405) - lu(k,228) * lu(k,1369) - lu(k,1497) = lu(k,1497) - lu(k,222) * lu(k,1491) - lu(k,1501) = lu(k,1501) - lu(k,223) * lu(k,1491) - lu(k,1508) = lu(k,1508) - lu(k,224) * lu(k,1491) - lu(k,1513) = lu(k,1513) - lu(k,225) * lu(k,1491) - lu(k,1517) = lu(k,1517) - lu(k,226) * lu(k,1491) - lu(k,1524) = lu(k,1524) - lu(k,227) * lu(k,1491) - lu(k,1526) = lu(k,1526) - lu(k,228) * lu(k,1491) - lu(k,1574) = lu(k,1574) - lu(k,222) * lu(k,1571) - lu(k,1577) = lu(k,1577) - lu(k,223) * lu(k,1571) - lu(k,1584) = - lu(k,224) * lu(k,1571) - lu(k,1589) = lu(k,1589) - lu(k,225) * lu(k,1571) - lu(k,1593) = lu(k,1593) - lu(k,226) * lu(k,1571) - lu(k,1600) = - lu(k,227) * lu(k,1571) - lu(k,1602) = lu(k,1602) - lu(k,228) * lu(k,1571) - 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,279) = lu(k,279) - lu(k,230) * lu(k,278) - lu(k,282) = lu(k,282) - lu(k,231) * lu(k,278) - lu(k,284) = lu(k,284) - lu(k,232) * lu(k,278) - lu(k,285) = - lu(k,233) * lu(k,278) - lu(k,286) = lu(k,286) - lu(k,234) * lu(k,278) - lu(k,287) = - lu(k,235) * lu(k,278) - lu(k,288) = lu(k,288) - lu(k,236) * lu(k,278) - lu(k,562) = - lu(k,230) * lu(k,560) - lu(k,571) = - lu(k,231) * lu(k,560) - lu(k,577) = lu(k,577) - lu(k,232) * lu(k,560) - lu(k,578) = - lu(k,233) * lu(k,560) - lu(k,579) = - lu(k,234) * lu(k,560) - lu(k,584) = - lu(k,235) * lu(k,560) - lu(k,585) = lu(k,585) - lu(k,236) * lu(k,560) - lu(k,1071) = - lu(k,230) * lu(k,1069) - lu(k,1083) = lu(k,1083) - lu(k,231) * lu(k,1069) - lu(k,1090) = - lu(k,232) * lu(k,1069) - lu(k,1091) = lu(k,1091) - lu(k,233) * lu(k,1069) - lu(k,1092) = lu(k,1092) - lu(k,234) * lu(k,1069) - lu(k,1099) = lu(k,1099) - lu(k,235) * lu(k,1069) - lu(k,1100) = lu(k,1100) - lu(k,236) * lu(k,1069) - lu(k,1207) = lu(k,1207) - lu(k,230) * lu(k,1205) - lu(k,1224) = lu(k,1224) - lu(k,231) * lu(k,1205) - lu(k,1231) = lu(k,1231) - lu(k,232) * lu(k,1205) - lu(k,1232) = lu(k,1232) - lu(k,233) * lu(k,1205) - lu(k,1233) = lu(k,1233) - lu(k,234) * lu(k,1205) - lu(k,1240) = lu(k,1240) - lu(k,235) * lu(k,1205) - lu(k,1241) = lu(k,1241) - lu(k,236) * lu(k,1205) - lu(k,1247) = - lu(k,230) * lu(k,1246) - lu(k,1262) = lu(k,1262) - lu(k,231) * lu(k,1246) - lu(k,1269) = lu(k,1269) - lu(k,232) * lu(k,1246) - lu(k,1270) = lu(k,1270) - lu(k,233) * lu(k,1246) - lu(k,1271) = - lu(k,234) * lu(k,1246) - lu(k,1278) = lu(k,1278) - lu(k,235) * lu(k,1246) - lu(k,1279) = lu(k,1279) - lu(k,236) * lu(k,1246) - lu(k,1286) = - lu(k,230) * lu(k,1285) - lu(k,1298) = lu(k,1298) - lu(k,231) * lu(k,1285) - lu(k,1305) = lu(k,1305) - lu(k,232) * lu(k,1285) - lu(k,1306) = lu(k,1306) - lu(k,233) * lu(k,1285) - lu(k,1307) = lu(k,1307) - lu(k,234) * lu(k,1285) - lu(k,1314) = lu(k,1314) - lu(k,235) * lu(k,1285) - lu(k,1315) = lu(k,1315) - lu(k,236) * lu(k,1285) - lu(k,1605) = - lu(k,230) * lu(k,1604) - lu(k,1619) = lu(k,1619) - lu(k,231) * lu(k,1604) - lu(k,1626) = lu(k,1626) - lu(k,232) * lu(k,1604) - lu(k,1627) = - lu(k,233) * lu(k,1604) - lu(k,1628) = - lu(k,234) * lu(k,1604) - lu(k,1635) = lu(k,1635) - lu(k,235) * lu(k,1604) - lu(k,1636) = lu(k,1636) - lu(k,236) * lu(k,1604) - lu(k,1650) = lu(k,1650) - lu(k,230) * lu(k,1648) - lu(k,1662) = lu(k,1662) - lu(k,231) * lu(k,1648) - lu(k,1669) = lu(k,1669) - lu(k,232) * lu(k,1648) - lu(k,1670) = lu(k,1670) - lu(k,233) * lu(k,1648) - lu(k,1671) = lu(k,1671) - lu(k,234) * lu(k,1648) - lu(k,1678) = lu(k,1678) - lu(k,235) * lu(k,1648) - lu(k,1679) = lu(k,1679) - lu(k,236) * lu(k,1648) - 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,239) = 1._r8 / lu(k,239) - lu(k,240) = lu(k,240) * lu(k,239) - lu(k,241) = lu(k,241) * lu(k,239) - lu(k,242) = lu(k,242) * lu(k,239) - lu(k,243) = lu(k,243) * lu(k,239) - lu(k,244) = lu(k,244) * lu(k,239) - lu(k,245) = lu(k,245) * lu(k,239) - lu(k,246) = lu(k,246) * lu(k,239) - lu(k,247) = lu(k,247) * lu(k,239) - lu(k,248) = lu(k,248) * lu(k,239) - lu(k,249) = lu(k,249) * lu(k,239) - lu(k,250) = lu(k,250) * lu(k,239) - lu(k,470) = lu(k,470) - lu(k,240) * lu(k,469) - lu(k,471) = lu(k,471) - lu(k,241) * lu(k,469) - lu(k,472) = lu(k,472) - lu(k,242) * lu(k,469) - lu(k,477) = lu(k,477) - lu(k,243) * lu(k,469) - lu(k,479) = lu(k,479) - lu(k,244) * lu(k,469) - lu(k,480) = - lu(k,245) * lu(k,469) - lu(k,482) = lu(k,482) - lu(k,246) * lu(k,469) - lu(k,483) = lu(k,483) - lu(k,247) * lu(k,469) - lu(k,484) = lu(k,484) - lu(k,248) * lu(k,469) - lu(k,487) = - lu(k,249) * lu(k,469) - lu(k,488) = lu(k,488) - lu(k,250) * lu(k,469) - lu(k,511) = lu(k,511) - lu(k,240) * lu(k,510) - lu(k,512) = lu(k,512) - lu(k,241) * lu(k,510) - lu(k,513) = lu(k,513) - lu(k,242) * lu(k,510) - lu(k,518) = lu(k,518) - lu(k,243) * lu(k,510) - lu(k,520) = lu(k,520) - lu(k,244) * lu(k,510) - lu(k,521) = - lu(k,245) * lu(k,510) - lu(k,523) = lu(k,523) - lu(k,246) * lu(k,510) - lu(k,524) = lu(k,524) - lu(k,247) * lu(k,510) - lu(k,525) = lu(k,525) - lu(k,248) * lu(k,510) - lu(k,528) = - lu(k,249) * lu(k,510) - lu(k,529) = lu(k,529) - lu(k,250) * lu(k,510) - lu(k,1409) = - lu(k,240) * lu(k,1408) - lu(k,1410) = - lu(k,241) * lu(k,1408) - lu(k,1411) = - lu(k,242) * lu(k,1408) - lu(k,1422) = lu(k,1422) - lu(k,243) * lu(k,1408) - lu(k,1426) = lu(k,1426) - lu(k,244) * lu(k,1408) - lu(k,1427) = lu(k,1427) - lu(k,245) * lu(k,1408) - lu(k,1432) = lu(k,1432) - lu(k,246) * lu(k,1408) - lu(k,1433) = - lu(k,247) * lu(k,1408) - lu(k,1435) = - lu(k,248) * lu(k,1408) - lu(k,1440) = lu(k,1440) - lu(k,249) * lu(k,1408) - lu(k,1441) = - lu(k,250) * lu(k,1408) - lu(k,1450) = lu(k,1450) - lu(k,240) * lu(k,1443) - lu(k,1451) = lu(k,1451) - lu(k,241) * lu(k,1443) - lu(k,1453) = lu(k,1453) - lu(k,242) * lu(k,1443) - lu(k,1465) = - lu(k,243) * lu(k,1443) - lu(k,1469) = lu(k,1469) - lu(k,244) * lu(k,1443) - lu(k,1470) = lu(k,1470) - lu(k,245) * lu(k,1443) - lu(k,1475) = lu(k,1475) - lu(k,246) * lu(k,1443) - lu(k,1476) = lu(k,1476) - lu(k,247) * lu(k,1443) - lu(k,1478) = lu(k,1478) - lu(k,248) * lu(k,1443) - lu(k,1483) = lu(k,1483) - lu(k,249) * lu(k,1443) - lu(k,1484) = lu(k,1484) - lu(k,250) * lu(k,1443) - lu(k,1536) = lu(k,1536) - lu(k,240) * lu(k,1529) - lu(k,1537) = lu(k,1537) - lu(k,241) * lu(k,1529) - lu(k,1539) = lu(k,1539) - lu(k,242) * lu(k,1529) - lu(k,1551) = - lu(k,243) * lu(k,1529) - lu(k,1555) = lu(k,1555) - lu(k,244) * lu(k,1529) - lu(k,1556) = lu(k,1556) - lu(k,245) * lu(k,1529) - lu(k,1561) = lu(k,1561) - lu(k,246) * lu(k,1529) - lu(k,1562) = lu(k,1562) - lu(k,247) * lu(k,1529) - lu(k,1564) = lu(k,1564) - lu(k,248) * lu(k,1529) - lu(k,1569) = lu(k,1569) - lu(k,249) * lu(k,1529) - lu(k,1570) = lu(k,1570) - lu(k,250) * lu(k,1529) - lu(k,1727) = - lu(k,240) * lu(k,1723) - lu(k,1729) = - lu(k,241) * lu(k,1723) - lu(k,1731) = lu(k,1731) - lu(k,242) * lu(k,1723) - lu(k,1744) = lu(k,1744) - lu(k,243) * lu(k,1723) - lu(k,1748) = lu(k,1748) - lu(k,244) * lu(k,1723) - lu(k,1749) = lu(k,1749) - lu(k,245) * lu(k,1723) - lu(k,1754) = lu(k,1754) - lu(k,246) * lu(k,1723) - lu(k,1755) = - lu(k,247) * lu(k,1723) - lu(k,1757) = - lu(k,248) * lu(k,1723) - lu(k,1762) = lu(k,1762) - lu(k,249) * lu(k,1723) - lu(k,1763) = lu(k,1763) - lu(k,250) * lu(k,1723) - lu(k,252) = 1._r8 / lu(k,252) - lu(k,253) = lu(k,253) * lu(k,252) - lu(k,254) = lu(k,254) * lu(k,252) - lu(k,255) = lu(k,255) * lu(k,252) - lu(k,256) = lu(k,256) * lu(k,252) - lu(k,257) = lu(k,257) * lu(k,252) - lu(k,258) = lu(k,258) * lu(k,252) - lu(k,259) = lu(k,259) * lu(k,252) - lu(k,260) = lu(k,260) * lu(k,252) - lu(k,261) = lu(k,261) * lu(k,252) - lu(k,262) = lu(k,262) * lu(k,252) - lu(k,414) = - lu(k,253) * lu(k,412) - lu(k,416) = - lu(k,254) * lu(k,412) - lu(k,417) = lu(k,417) - lu(k,255) * lu(k,412) - lu(k,419) = - lu(k,256) * lu(k,412) - lu(k,423) = lu(k,423) - lu(k,257) * lu(k,412) - lu(k,425) = - lu(k,258) * lu(k,412) - lu(k,428) = - lu(k,259) * lu(k,412) - lu(k,429) = lu(k,429) - lu(k,260) * lu(k,412) - lu(k,430) = - lu(k,261) * lu(k,412) - lu(k,431) = lu(k,431) - lu(k,262) * lu(k,412) - lu(k,566) = lu(k,566) - lu(k,253) * lu(k,561) - lu(k,568) = lu(k,568) - lu(k,254) * lu(k,561) - lu(k,569) = lu(k,569) - lu(k,255) * lu(k,561) - lu(k,572) = lu(k,572) - lu(k,256) * lu(k,561) - lu(k,580) = lu(k,580) - lu(k,257) * lu(k,561) - lu(k,582) = lu(k,582) - lu(k,258) * lu(k,561) - lu(k,585) = lu(k,585) - lu(k,259) * lu(k,561) - lu(k,586) = lu(k,586) - lu(k,260) * lu(k,561) - lu(k,587) = - lu(k,261) * lu(k,561) - lu(k,588) = lu(k,588) - lu(k,262) * lu(k,561) - lu(k,678) = lu(k,678) - lu(k,253) * lu(k,674) - lu(k,680) = lu(k,680) - lu(k,254) * lu(k,674) - lu(k,681) = lu(k,681) - lu(k,255) * lu(k,674) - lu(k,684) = lu(k,684) - lu(k,256) * lu(k,674) - lu(k,693) = lu(k,693) - lu(k,257) * lu(k,674) - lu(k,695) = lu(k,695) - lu(k,258) * lu(k,674) - lu(k,698) = lu(k,698) - lu(k,259) * lu(k,674) - lu(k,699) = lu(k,699) - lu(k,260) * lu(k,674) - lu(k,700) = lu(k,700) - lu(k,261) * lu(k,674) - lu(k,701) = lu(k,701) - lu(k,262) * lu(k,674) - lu(k,746) = lu(k,746) - lu(k,253) * lu(k,741) - lu(k,748) = lu(k,748) - lu(k,254) * lu(k,741) - lu(k,749) = lu(k,749) - lu(k,255) * lu(k,741) - lu(k,753) = lu(k,753) - lu(k,256) * lu(k,741) - lu(k,762) = lu(k,762) - lu(k,257) * lu(k,741) - lu(k,764) = lu(k,764) - lu(k,258) * lu(k,741) - lu(k,767) = lu(k,767) - lu(k,259) * lu(k,741) - lu(k,768) = lu(k,768) - lu(k,260) * lu(k,741) - lu(k,769) = lu(k,769) - lu(k,261) * lu(k,741) - lu(k,770) = lu(k,770) - lu(k,262) * lu(k,741) - lu(k,989) = lu(k,989) - lu(k,253) * lu(k,981) - lu(k,993) = lu(k,993) - lu(k,254) * lu(k,981) - lu(k,995) = lu(k,995) - lu(k,255) * lu(k,981) - lu(k,1001) = lu(k,1001) - lu(k,256) * lu(k,981) - lu(k,1010) = lu(k,1010) - lu(k,257) * lu(k,981) - lu(k,1013) = lu(k,1013) - lu(k,258) * lu(k,981) - lu(k,1017) = lu(k,1017) - lu(k,259) * lu(k,981) - lu(k,1018) = - lu(k,260) * lu(k,981) - lu(k,1019) = lu(k,1019) - lu(k,261) * lu(k,981) - lu(k,1020) = lu(k,1020) - lu(k,262) * lu(k,981) - lu(k,1157) = - lu(k,253) * lu(k,1152) - lu(k,1161) = lu(k,1161) - lu(k,254) * lu(k,1152) - lu(k,1163) = lu(k,1163) - lu(k,255) * lu(k,1152) - lu(k,1169) = lu(k,1169) - lu(k,256) * lu(k,1152) - lu(k,1178) = - lu(k,257) * lu(k,1152) - lu(k,1181) = - lu(k,258) * lu(k,1152) - lu(k,1185) = - lu(k,259) * lu(k,1152) - lu(k,1186) = lu(k,1186) - lu(k,260) * lu(k,1152) - lu(k,1187) = lu(k,1187) - lu(k,261) * lu(k,1152) - lu(k,1188) = lu(k,1188) - lu(k,262) * lu(k,1152) - lu(k,1374) = lu(k,1374) - lu(k,253) * lu(k,1370) - lu(k,1379) = lu(k,1379) - lu(k,254) * lu(k,1370) - lu(k,1381) = lu(k,1381) - lu(k,255) * lu(k,1370) - lu(k,1387) = lu(k,1387) - lu(k,256) * lu(k,1370) - lu(k,1396) = lu(k,1396) - lu(k,257) * lu(k,1370) - lu(k,1399) = lu(k,1399) - lu(k,258) * lu(k,1370) - lu(k,1403) = lu(k,1403) - lu(k,259) * lu(k,1370) - lu(k,1404) = lu(k,1404) - lu(k,260) * lu(k,1370) - lu(k,1405) = lu(k,1405) - lu(k,261) * lu(k,1370) - lu(k,1406) = lu(k,1406) - lu(k,262) * lu(k,1370) - lu(k,1495) = lu(k,1495) - lu(k,253) * lu(k,1492) - lu(k,1500) = lu(k,1500) - lu(k,254) * lu(k,1492) - lu(k,1502) = lu(k,1502) - lu(k,255) * lu(k,1492) - lu(k,1508) = lu(k,1508) - lu(k,256) * lu(k,1492) - lu(k,1517) = lu(k,1517) - lu(k,257) * lu(k,1492) - lu(k,1520) = lu(k,1520) - lu(k,258) * lu(k,1492) - lu(k,1524) = lu(k,1524) - lu(k,259) * lu(k,1492) - lu(k,1525) = - lu(k,260) * lu(k,1492) - lu(k,1526) = lu(k,1526) - lu(k,261) * lu(k,1492) - lu(k,1527) = lu(k,1527) - lu(k,262) * lu(k,1492) - lu(k,1785) = - lu(k,253) * lu(k,1776) - lu(k,1789) = - lu(k,254) * lu(k,1776) - lu(k,1791) = lu(k,1791) - lu(k,255) * lu(k,1776) - lu(k,1797) = lu(k,1797) - lu(k,256) * lu(k,1776) - lu(k,1806) = - lu(k,257) * lu(k,1776) - lu(k,1809) = - lu(k,258) * lu(k,1776) - lu(k,1813) = lu(k,1813) - lu(k,259) * lu(k,1776) - lu(k,1814) = lu(k,1814) - lu(k,260) * lu(k,1776) - lu(k,1815) = lu(k,1815) - lu(k,261) * lu(k,1776) - lu(k,1816) = lu(k,1816) - lu(k,262) * lu(k,1776) - 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,265) = 1._r8 / lu(k,265) - lu(k,266) = lu(k,266) * lu(k,265) - lu(k,267) = lu(k,267) * lu(k,265) - lu(k,268) = lu(k,268) * lu(k,265) - lu(k,269) = lu(k,269) * lu(k,265) - lu(k,270) = lu(k,270) * lu(k,265) - lu(k,271) = lu(k,271) * lu(k,265) - lu(k,272) = lu(k,272) * lu(k,265) - lu(k,273) = lu(k,273) * lu(k,265) - lu(k,274) = lu(k,274) * lu(k,265) - lu(k,275) = lu(k,275) * lu(k,265) - lu(k,276) = lu(k,276) * lu(k,265) - lu(k,748) = lu(k,748) - lu(k,266) * lu(k,742) - lu(k,749) = lu(k,749) - lu(k,267) * lu(k,742) - lu(k,751) = - lu(k,268) * lu(k,742) - lu(k,752) = lu(k,752) - lu(k,269) * lu(k,742) - lu(k,753) = lu(k,753) - lu(k,270) * lu(k,742) - lu(k,755) = lu(k,755) - lu(k,271) * lu(k,742) - lu(k,758) = lu(k,758) - lu(k,272) * lu(k,742) - lu(k,761) = - lu(k,273) * lu(k,742) - lu(k,767) = lu(k,767) - lu(k,274) * lu(k,742) - lu(k,768) = lu(k,768) - lu(k,275) * lu(k,742) - lu(k,769) = lu(k,769) - lu(k,276) * lu(k,742) - lu(k,865) = - lu(k,266) * lu(k,850) - lu(k,867) = lu(k,867) - lu(k,267) * lu(k,850) - lu(k,870) = lu(k,870) - lu(k,268) * lu(k,850) - lu(k,872) = lu(k,872) - lu(k,269) * lu(k,850) - lu(k,873) = lu(k,873) - lu(k,270) * lu(k,850) - lu(k,875) = lu(k,875) - lu(k,271) * lu(k,850) - lu(k,878) = lu(k,878) - lu(k,272) * lu(k,850) - lu(k,881) = - lu(k,273) * lu(k,850) - lu(k,889) = lu(k,889) - lu(k,274) * lu(k,850) - lu(k,890) = - lu(k,275) * lu(k,850) - lu(k,891) = lu(k,891) - lu(k,276) * lu(k,850) - lu(k,953) = lu(k,953) - lu(k,266) * lu(k,950) - lu(k,954) = lu(k,954) - lu(k,267) * lu(k,950) - lu(k,956) = lu(k,956) - lu(k,268) * lu(k,950) - lu(k,958) = lu(k,958) - lu(k,269) * lu(k,950) - lu(k,959) = lu(k,959) - lu(k,270) * lu(k,950) - lu(k,961) = lu(k,961) - lu(k,271) * lu(k,950) - lu(k,964) = lu(k,964) - lu(k,272) * lu(k,950) - lu(k,967) = lu(k,967) - lu(k,273) * lu(k,950) - lu(k,975) = lu(k,975) - lu(k,274) * lu(k,950) - lu(k,976) = lu(k,976) - lu(k,275) * lu(k,950) - lu(k,977) = lu(k,977) - lu(k,276) * lu(k,950) - lu(k,993) = lu(k,993) - lu(k,266) * lu(k,982) - lu(k,995) = lu(k,995) - lu(k,267) * lu(k,982) - lu(k,998) = lu(k,998) - lu(k,268) * lu(k,982) - lu(k,1000) = lu(k,1000) - lu(k,269) * lu(k,982) - lu(k,1001) = lu(k,1001) - lu(k,270) * lu(k,982) - lu(k,1003) = lu(k,1003) - lu(k,271) * lu(k,982) - lu(k,1006) = lu(k,1006) - lu(k,272) * lu(k,982) - lu(k,1009) = lu(k,1009) - lu(k,273) * lu(k,982) - lu(k,1017) = lu(k,1017) - lu(k,274) * lu(k,982) - lu(k,1018) = lu(k,1018) - lu(k,275) * lu(k,982) - lu(k,1019) = lu(k,1019) - lu(k,276) * lu(k,982) - lu(k,1076) = lu(k,1076) - lu(k,266) * lu(k,1070) - lu(k,1078) = lu(k,1078) - lu(k,267) * lu(k,1070) - lu(k,1081) = lu(k,1081) - lu(k,268) * lu(k,1070) - lu(k,1083) = lu(k,1083) - lu(k,269) * lu(k,1070) - lu(k,1084) = lu(k,1084) - lu(k,270) * lu(k,1070) - lu(k,1086) = lu(k,1086) - lu(k,271) * lu(k,1070) - lu(k,1089) = lu(k,1089) - lu(k,272) * lu(k,1070) - lu(k,1092) = lu(k,1092) - lu(k,273) * lu(k,1070) - lu(k,1100) = lu(k,1100) - lu(k,274) * lu(k,1070) - lu(k,1101) = lu(k,1101) - lu(k,275) * lu(k,1070) - lu(k,1102) = - lu(k,276) * lu(k,1070) - lu(k,1217) = lu(k,1217) - lu(k,266) * lu(k,1206) - lu(k,1219) = lu(k,1219) - lu(k,267) * lu(k,1206) - lu(k,1222) = lu(k,1222) - lu(k,268) * lu(k,1206) - lu(k,1224) = lu(k,1224) - lu(k,269) * lu(k,1206) - lu(k,1225) = lu(k,1225) - lu(k,270) * lu(k,1206) - lu(k,1227) = lu(k,1227) - lu(k,271) * lu(k,1206) - lu(k,1230) = lu(k,1230) - lu(k,272) * lu(k,1206) - lu(k,1233) = lu(k,1233) - lu(k,273) * lu(k,1206) - lu(k,1241) = lu(k,1241) - lu(k,274) * lu(k,1206) - lu(k,1242) = lu(k,1242) - lu(k,275) * lu(k,1206) - lu(k,1243) = lu(k,1243) - lu(k,276) * lu(k,1206) - lu(k,1336) = - lu(k,266) * lu(k,1320) - lu(k,1338) = lu(k,1338) - lu(k,267) * lu(k,1320) - lu(k,1341) = lu(k,1341) - lu(k,268) * lu(k,1320) - lu(k,1343) = lu(k,1343) - lu(k,269) * lu(k,1320) - lu(k,1344) = lu(k,1344) - lu(k,270) * lu(k,1320) - lu(k,1346) = lu(k,1346) - lu(k,271) * lu(k,1320) - lu(k,1349) = lu(k,1349) - lu(k,272) * lu(k,1320) - lu(k,1352) = lu(k,1352) - lu(k,273) * lu(k,1320) - lu(k,1360) = lu(k,1360) - lu(k,274) * lu(k,1320) - lu(k,1361) = lu(k,1361) - lu(k,275) * lu(k,1320) - lu(k,1362) = lu(k,1362) - lu(k,276) * lu(k,1320) - lu(k,1655) = lu(k,1655) - lu(k,266) * lu(k,1649) - lu(k,1657) = lu(k,1657) - lu(k,267) * lu(k,1649) - lu(k,1660) = lu(k,1660) - lu(k,268) * lu(k,1649) - lu(k,1662) = lu(k,1662) - lu(k,269) * lu(k,1649) - lu(k,1663) = lu(k,1663) - lu(k,270) * lu(k,1649) - lu(k,1665) = lu(k,1665) - lu(k,271) * lu(k,1649) - lu(k,1668) = lu(k,1668) - lu(k,272) * lu(k,1649) - lu(k,1671) = lu(k,1671) - lu(k,273) * lu(k,1649) - lu(k,1679) = lu(k,1679) - lu(k,274) * lu(k,1649) - lu(k,1680) = lu(k,1680) - lu(k,275) * lu(k,1649) - lu(k,1681) = - lu(k,276) * lu(k,1649) - lu(k,1736) = lu(k,1736) - lu(k,266) * lu(k,1724) - lu(k,1738) = lu(k,1738) - lu(k,267) * lu(k,1724) - lu(k,1741) = - lu(k,268) * lu(k,1724) - lu(k,1743) = - lu(k,269) * lu(k,1724) - lu(k,1744) = lu(k,1744) - lu(k,270) * lu(k,1724) - lu(k,1746) = lu(k,1746) - lu(k,271) * lu(k,1724) - lu(k,1749) = lu(k,1749) - lu(k,272) * lu(k,1724) - lu(k,1752) = - lu(k,273) * lu(k,1724) - lu(k,1760) = lu(k,1760) - lu(k,274) * lu(k,1724) - lu(k,1761) = - lu(k,275) * lu(k,1724) - lu(k,1762) = lu(k,1762) - lu(k,276) * lu(k,1724) - lu(k,279) = 1._r8 / lu(k,279) - lu(k,280) = lu(k,280) * lu(k,279) - lu(k,281) = lu(k,281) * lu(k,279) - lu(k,282) = lu(k,282) * lu(k,279) - lu(k,283) = lu(k,283) * lu(k,279) - lu(k,284) = lu(k,284) * lu(k,279) - lu(k,285) = lu(k,285) * lu(k,279) - lu(k,286) = lu(k,286) * lu(k,279) - lu(k,287) = lu(k,287) * lu(k,279) - lu(k,288) = lu(k,288) * lu(k,279) - lu(k,289) = lu(k,289) * lu(k,279) - lu(k,290) = lu(k,290) * lu(k,279) - lu(k,569) = lu(k,569) - lu(k,280) * lu(k,562) - lu(k,570) = - lu(k,281) * lu(k,562) - lu(k,571) = lu(k,571) - lu(k,282) * lu(k,562) - lu(k,576) = lu(k,576) - lu(k,283) * lu(k,562) - lu(k,577) = lu(k,577) - lu(k,284) * lu(k,562) - lu(k,578) = lu(k,578) - lu(k,285) * lu(k,562) - lu(k,579) = lu(k,579) - lu(k,286) * lu(k,562) - lu(k,584) = lu(k,584) - lu(k,287) * lu(k,562) - lu(k,585) = lu(k,585) - lu(k,288) * lu(k,562) - lu(k,586) = lu(k,586) - lu(k,289) * lu(k,562) - lu(k,588) = lu(k,588) - lu(k,290) * lu(k,562) - lu(k,954) = lu(k,954) - lu(k,280) * lu(k,951) - lu(k,955) = lu(k,955) - lu(k,281) * lu(k,951) - lu(k,958) = lu(k,958) - lu(k,282) * lu(k,951) - lu(k,964) = lu(k,964) - lu(k,283) * lu(k,951) - lu(k,965) = lu(k,965) - lu(k,284) * lu(k,951) - lu(k,966) = lu(k,966) - lu(k,285) * lu(k,951) - lu(k,967) = lu(k,967) - lu(k,286) * lu(k,951) - lu(k,974) = lu(k,974) - lu(k,287) * lu(k,951) - lu(k,975) = lu(k,975) - lu(k,288) * lu(k,951) - lu(k,976) = lu(k,976) - lu(k,289) * lu(k,951) - lu(k,978) = lu(k,978) - lu(k,290) * lu(k,951) - lu(k,1078) = lu(k,1078) - lu(k,280) * lu(k,1071) - lu(k,1080) = - lu(k,281) * lu(k,1071) - lu(k,1083) = lu(k,1083) - lu(k,282) * lu(k,1071) - lu(k,1089) = lu(k,1089) - lu(k,283) * lu(k,1071) - lu(k,1090) = lu(k,1090) - lu(k,284) * lu(k,1071) - lu(k,1091) = lu(k,1091) - lu(k,285) * lu(k,1071) - lu(k,1092) = lu(k,1092) - lu(k,286) * lu(k,1071) - lu(k,1099) = lu(k,1099) - lu(k,287) * lu(k,1071) - lu(k,1100) = lu(k,1100) - lu(k,288) * lu(k,1071) - lu(k,1101) = lu(k,1101) - lu(k,289) * lu(k,1071) - lu(k,1103) = lu(k,1103) - lu(k,290) * lu(k,1071) - lu(k,1219) = lu(k,1219) - lu(k,280) * lu(k,1207) - lu(k,1221) = - lu(k,281) * lu(k,1207) - lu(k,1224) = lu(k,1224) - lu(k,282) * lu(k,1207) - lu(k,1230) = lu(k,1230) - lu(k,283) * lu(k,1207) - lu(k,1231) = lu(k,1231) - lu(k,284) * lu(k,1207) - lu(k,1232) = lu(k,1232) - lu(k,285) * lu(k,1207) - lu(k,1233) = lu(k,1233) - lu(k,286) * lu(k,1207) - lu(k,1240) = lu(k,1240) - lu(k,287) * lu(k,1207) - lu(k,1241) = lu(k,1241) - lu(k,288) * lu(k,1207) - lu(k,1242) = lu(k,1242) - lu(k,289) * lu(k,1207) - lu(k,1244) = lu(k,1244) - lu(k,290) * lu(k,1207) - lu(k,1257) = lu(k,1257) - lu(k,280) * lu(k,1247) - lu(k,1259) = - lu(k,281) * lu(k,1247) - lu(k,1262) = lu(k,1262) - lu(k,282) * lu(k,1247) - lu(k,1268) = lu(k,1268) - lu(k,283) * lu(k,1247) - lu(k,1269) = lu(k,1269) - lu(k,284) * lu(k,1247) - lu(k,1270) = lu(k,1270) - lu(k,285) * lu(k,1247) - lu(k,1271) = lu(k,1271) - lu(k,286) * lu(k,1247) - lu(k,1278) = lu(k,1278) - lu(k,287) * lu(k,1247) - lu(k,1279) = lu(k,1279) - lu(k,288) * lu(k,1247) - lu(k,1280) = lu(k,1280) - lu(k,289) * lu(k,1247) - lu(k,1282) = - lu(k,290) * lu(k,1247) - lu(k,1293) = - lu(k,280) * lu(k,1286) - lu(k,1295) = lu(k,1295) - lu(k,281) * lu(k,1286) - lu(k,1298) = lu(k,1298) - lu(k,282) * lu(k,1286) - lu(k,1304) = lu(k,1304) - lu(k,283) * lu(k,1286) - lu(k,1305) = lu(k,1305) - lu(k,284) * lu(k,1286) - lu(k,1306) = lu(k,1306) - lu(k,285) * lu(k,1286) - lu(k,1307) = lu(k,1307) - lu(k,286) * lu(k,1286) - lu(k,1314) = lu(k,1314) - lu(k,287) * lu(k,1286) - lu(k,1315) = lu(k,1315) - lu(k,288) * lu(k,1286) - lu(k,1316) = lu(k,1316) - lu(k,289) * lu(k,1286) - lu(k,1318) = lu(k,1318) - lu(k,290) * lu(k,1286) - lu(k,1338) = lu(k,1338) - lu(k,280) * lu(k,1321) - lu(k,1340) = lu(k,1340) - lu(k,281) * lu(k,1321) - lu(k,1343) = lu(k,1343) - lu(k,282) * lu(k,1321) - lu(k,1349) = lu(k,1349) - lu(k,283) * lu(k,1321) - lu(k,1350) = - lu(k,284) * lu(k,1321) - lu(k,1351) = lu(k,1351) - lu(k,285) * lu(k,1321) - lu(k,1352) = lu(k,1352) - lu(k,286) * lu(k,1321) - lu(k,1359) = - lu(k,287) * lu(k,1321) - lu(k,1360) = lu(k,1360) - lu(k,288) * lu(k,1321) - lu(k,1361) = lu(k,1361) - lu(k,289) * lu(k,1321) - lu(k,1363) = lu(k,1363) - lu(k,290) * lu(k,1321) - lu(k,1614) = lu(k,1614) - lu(k,280) * lu(k,1605) - lu(k,1616) = - lu(k,281) * lu(k,1605) - lu(k,1619) = lu(k,1619) - lu(k,282) * lu(k,1605) - lu(k,1625) = lu(k,1625) - lu(k,283) * lu(k,1605) - lu(k,1626) = lu(k,1626) - lu(k,284) * lu(k,1605) - lu(k,1627) = lu(k,1627) - lu(k,285) * lu(k,1605) - lu(k,1628) = lu(k,1628) - lu(k,286) * lu(k,1605) - lu(k,1635) = lu(k,1635) - lu(k,287) * lu(k,1605) - lu(k,1636) = lu(k,1636) - lu(k,288) * lu(k,1605) - lu(k,1637) = lu(k,1637) - lu(k,289) * lu(k,1605) - lu(k,1639) = lu(k,1639) - lu(k,290) * lu(k,1605) - lu(k,1657) = lu(k,1657) - lu(k,280) * lu(k,1650) - lu(k,1659) = - lu(k,281) * lu(k,1650) - lu(k,1662) = lu(k,1662) - lu(k,282) * lu(k,1650) - lu(k,1668) = lu(k,1668) - lu(k,283) * lu(k,1650) - lu(k,1669) = lu(k,1669) - lu(k,284) * lu(k,1650) - lu(k,1670) = lu(k,1670) - lu(k,285) * lu(k,1650) - lu(k,1671) = lu(k,1671) - lu(k,286) * lu(k,1650) - lu(k,1678) = lu(k,1678) - lu(k,287) * lu(k,1650) - lu(k,1679) = lu(k,1679) - lu(k,288) * lu(k,1650) - lu(k,1680) = lu(k,1680) - lu(k,289) * lu(k,1650) - lu(k,1682) = - lu(k,290) * lu(k,1650) - lu(k,1791) = lu(k,1791) - lu(k,280) * lu(k,1777) - lu(k,1793) = lu(k,1793) - lu(k,281) * lu(k,1777) - lu(k,1796) = lu(k,1796) - lu(k,282) * lu(k,1777) - lu(k,1802) = lu(k,1802) - lu(k,283) * lu(k,1777) - lu(k,1803) = - lu(k,284) * lu(k,1777) - lu(k,1804) = - lu(k,285) * lu(k,1777) - lu(k,1805) = lu(k,1805) - lu(k,286) * lu(k,1777) - lu(k,1812) = lu(k,1812) - lu(k,287) * lu(k,1777) - lu(k,1813) = lu(k,1813) - lu(k,288) * lu(k,1777) - lu(k,1814) = lu(k,1814) - lu(k,289) * lu(k,1777) - lu(k,1816) = lu(k,1816) - lu(k,290) * lu(k,1777) - lu(k,291) = 1._r8 / lu(k,291) - lu(k,292) = lu(k,292) * lu(k,291) - lu(k,293) = lu(k,293) * lu(k,291) - lu(k,294) = lu(k,294) * lu(k,291) - lu(k,295) = lu(k,295) * lu(k,291) - lu(k,296) = lu(k,296) * lu(k,291) - lu(k,297) = lu(k,297) * lu(k,291) - lu(k,298) = lu(k,298) * lu(k,291) - lu(k,299) = lu(k,299) * lu(k,291) - lu(k,300) = lu(k,300) * lu(k,291) - lu(k,301) = lu(k,301) * lu(k,291) - lu(k,302) = lu(k,302) * lu(k,291) - lu(k,303) = lu(k,303) * lu(k,291) - lu(k,304) = lu(k,304) * lu(k,291) - lu(k,821) = lu(k,821) - lu(k,292) * lu(k,806) - lu(k,823) = lu(k,823) - lu(k,293) * lu(k,806) - lu(k,824) = - lu(k,294) * lu(k,806) - lu(k,825) = - lu(k,295) * lu(k,806) - lu(k,827) = - lu(k,296) * lu(k,806) - lu(k,828) = - lu(k,297) * lu(k,806) - lu(k,829) = lu(k,829) - lu(k,298) * lu(k,806) - lu(k,835) = - lu(k,299) * lu(k,806) - lu(k,838) = lu(k,838) - lu(k,300) * lu(k,806) - lu(k,840) = - lu(k,301) * lu(k,806) - lu(k,843) = lu(k,843) - lu(k,302) * lu(k,806) - lu(k,844) = lu(k,844) - lu(k,303) * lu(k,806) - lu(k,846) = lu(k,846) - lu(k,304) * lu(k,806) - lu(k,867) = lu(k,867) - lu(k,292) * lu(k,851) - lu(k,869) = - lu(k,293) * lu(k,851) - lu(k,870) = lu(k,870) - lu(k,294) * lu(k,851) - lu(k,871) = - lu(k,295) * lu(k,851) - lu(k,873) = lu(k,873) - lu(k,296) * lu(k,851) - lu(k,874) = lu(k,874) - lu(k,297) * lu(k,851) - lu(k,875) = lu(k,875) - lu(k,298) * lu(k,851) - lu(k,881) = lu(k,881) - lu(k,299) * lu(k,851) - lu(k,884) = - lu(k,300) * lu(k,851) - lu(k,886) = - lu(k,301) * lu(k,851) - lu(k,889) = lu(k,889) - lu(k,302) * lu(k,851) - lu(k,890) = lu(k,890) - lu(k,303) * lu(k,851) - lu(k,892) = lu(k,892) - lu(k,304) * lu(k,851) - lu(k,910) = lu(k,910) - lu(k,292) * lu(k,895) - lu(k,912) = lu(k,912) - lu(k,293) * lu(k,895) - lu(k,913) = - lu(k,294) * lu(k,895) - lu(k,914) = lu(k,914) - lu(k,295) * lu(k,895) - lu(k,916) = lu(k,916) - lu(k,296) * lu(k,895) - lu(k,917) = - lu(k,297) * lu(k,895) - lu(k,918) = lu(k,918) - lu(k,298) * lu(k,895) - lu(k,924) = - lu(k,299) * lu(k,895) - lu(k,927) = - lu(k,300) * lu(k,895) - lu(k,929) = - lu(k,301) * lu(k,895) - lu(k,932) = lu(k,932) - lu(k,302) * lu(k,895) - lu(k,933) = - lu(k,303) * lu(k,895) - lu(k,935) = lu(k,935) - lu(k,304) * lu(k,895) - lu(k,1037) = lu(k,1037) - lu(k,292) * lu(k,1022) - lu(k,1039) = lu(k,1039) - lu(k,293) * lu(k,1022) - lu(k,1040) = - lu(k,294) * lu(k,1022) - lu(k,1041) = lu(k,1041) - lu(k,295) * lu(k,1022) - lu(k,1043) = lu(k,1043) - lu(k,296) * lu(k,1022) - lu(k,1044) = lu(k,1044) - lu(k,297) * lu(k,1022) - lu(k,1045) = lu(k,1045) - lu(k,298) * lu(k,1022) - lu(k,1051) = - lu(k,299) * lu(k,1022) - lu(k,1054) = - lu(k,300) * lu(k,1022) - lu(k,1056) = - lu(k,301) * lu(k,1022) - lu(k,1059) = lu(k,1059) - lu(k,302) * lu(k,1022) - lu(k,1060) = lu(k,1060) - lu(k,303) * lu(k,1022) - lu(k,1062) = lu(k,1062) - lu(k,304) * lu(k,1022) - lu(k,1078) = lu(k,1078) - lu(k,292) * lu(k,1072) - lu(k,1080) = lu(k,1080) - lu(k,293) * lu(k,1072) - lu(k,1081) = lu(k,1081) - lu(k,294) * lu(k,1072) - lu(k,1082) = - lu(k,295) * lu(k,1072) - lu(k,1084) = lu(k,1084) - lu(k,296) * lu(k,1072) - lu(k,1085) = lu(k,1085) - lu(k,297) * lu(k,1072) - lu(k,1086) = lu(k,1086) - lu(k,298) * lu(k,1072) - lu(k,1092) = lu(k,1092) - lu(k,299) * lu(k,1072) - lu(k,1095) = - lu(k,300) * lu(k,1072) - lu(k,1097) = - lu(k,301) * lu(k,1072) - lu(k,1100) = lu(k,1100) - lu(k,302) * lu(k,1072) - lu(k,1101) = lu(k,1101) - lu(k,303) * lu(k,1072) - lu(k,1103) = lu(k,1103) - lu(k,304) * lu(k,1072) - lu(k,1338) = lu(k,1338) - lu(k,292) * lu(k,1322) - lu(k,1340) = lu(k,1340) - lu(k,293) * lu(k,1322) - lu(k,1341) = lu(k,1341) - lu(k,294) * lu(k,1322) - lu(k,1342) = - lu(k,295) * lu(k,1322) - lu(k,1344) = lu(k,1344) - lu(k,296) * lu(k,1322) - lu(k,1345) = - lu(k,297) * lu(k,1322) - lu(k,1346) = lu(k,1346) - lu(k,298) * lu(k,1322) - lu(k,1352) = lu(k,1352) - lu(k,299) * lu(k,1322) - lu(k,1355) = - lu(k,300) * lu(k,1322) - lu(k,1357) = - lu(k,301) * lu(k,1322) - lu(k,1360) = lu(k,1360) - lu(k,302) * lu(k,1322) - lu(k,1361) = lu(k,1361) - lu(k,303) * lu(k,1322) - lu(k,1363) = lu(k,1363) - lu(k,304) * lu(k,1322) - lu(k,1459) = lu(k,1459) - lu(k,292) * lu(k,1444) - lu(k,1461) = lu(k,1461) - lu(k,293) * lu(k,1444) - lu(k,1462) = - lu(k,294) * lu(k,1444) - lu(k,1463) = - lu(k,295) * lu(k,1444) - lu(k,1465) = lu(k,1465) - lu(k,296) * lu(k,1444) - lu(k,1466) = - lu(k,297) * lu(k,1444) - lu(k,1467) = lu(k,1467) - lu(k,298) * lu(k,1444) - lu(k,1473) = - lu(k,299) * lu(k,1444) - lu(k,1476) = lu(k,1476) - lu(k,300) * lu(k,1444) - lu(k,1478) = lu(k,1478) - lu(k,301) * lu(k,1444) - lu(k,1481) = lu(k,1481) - lu(k,302) * lu(k,1444) - lu(k,1482) = lu(k,1482) - lu(k,303) * lu(k,1444) - lu(k,1484) = lu(k,1484) - lu(k,304) * lu(k,1444) - lu(k,1545) = lu(k,1545) - lu(k,292) * lu(k,1530) - lu(k,1547) = - lu(k,293) * lu(k,1530) - lu(k,1548) = - lu(k,294) * lu(k,1530) - lu(k,1549) = - lu(k,295) * lu(k,1530) - lu(k,1551) = lu(k,1551) - lu(k,296) * lu(k,1530) - lu(k,1552) = - lu(k,297) * lu(k,1530) - lu(k,1553) = lu(k,1553) - lu(k,298) * lu(k,1530) - lu(k,1559) = - lu(k,299) * lu(k,1530) - lu(k,1562) = lu(k,1562) - lu(k,300) * lu(k,1530) - lu(k,1564) = lu(k,1564) - lu(k,301) * lu(k,1530) - lu(k,1567) = lu(k,1567) - lu(k,302) * lu(k,1530) - lu(k,1568) = lu(k,1568) - lu(k,303) * lu(k,1530) - lu(k,1570) = lu(k,1570) - lu(k,304) * lu(k,1530) - lu(k,1578) = lu(k,1578) - lu(k,292) * lu(k,1572) - lu(k,1580) = - lu(k,293) * lu(k,1572) - lu(k,1581) = - lu(k,294) * lu(k,1572) - lu(k,1582) = - lu(k,295) * lu(k,1572) - lu(k,1584) = lu(k,1584) - lu(k,296) * lu(k,1572) - lu(k,1585) = - lu(k,297) * lu(k,1572) - lu(k,1586) = lu(k,1586) - lu(k,298) * lu(k,1572) - lu(k,1592) = - lu(k,299) * lu(k,1572) - lu(k,1595) = - lu(k,300) * lu(k,1572) - lu(k,1597) = - lu(k,301) * lu(k,1572) - lu(k,1600) = lu(k,1600) - lu(k,302) * lu(k,1572) - lu(k,1601) = lu(k,1601) - lu(k,303) * lu(k,1572) - lu(k,1603) = lu(k,1603) - lu(k,304) * lu(k,1572) - 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,305) = 1._r8 / lu(k,305) - lu(k,306) = lu(k,306) * lu(k,305) - lu(k,307) = lu(k,307) * lu(k,305) - lu(k,308) = lu(k,308) * lu(k,305) - lu(k,309) = lu(k,309) * lu(k,305) - lu(k,310) = lu(k,310) * lu(k,305) - lu(k,311) = lu(k,311) * lu(k,305) - lu(k,312) = lu(k,312) * lu(k,305) - lu(k,313) = lu(k,313) * lu(k,305) - lu(k,314) = lu(k,314) * lu(k,305) - lu(k,315) = lu(k,315) * lu(k,305) - lu(k,316) = lu(k,316) * lu(k,305) - lu(k,317) = lu(k,317) * lu(k,305) - lu(k,318) = lu(k,318) * lu(k,305) - lu(k,319) = lu(k,319) * lu(k,305) - lu(k,491) = lu(k,491) - lu(k,306) * lu(k,489) - lu(k,496) = lu(k,496) - lu(k,307) * lu(k,489) - lu(k,497) = lu(k,497) - lu(k,308) * lu(k,489) - lu(k,498) = lu(k,498) - lu(k,309) * lu(k,489) - lu(k,499) = lu(k,499) - lu(k,310) * lu(k,489) - lu(k,500) = lu(k,500) - lu(k,311) * lu(k,489) - lu(k,501) = lu(k,501) - lu(k,312) * lu(k,489) - lu(k,502) = lu(k,502) - lu(k,313) * lu(k,489) - lu(k,503) = lu(k,503) - lu(k,314) * lu(k,489) - lu(k,504) = lu(k,504) - lu(k,315) * lu(k,489) - lu(k,505) = lu(k,505) - lu(k,316) * lu(k,489) - lu(k,506) = lu(k,506) - lu(k,317) * lu(k,489) - lu(k,507) = lu(k,507) - lu(k,318) * lu(k,489) - lu(k,509) = lu(k,509) - lu(k,319) * lu(k,489) - lu(k,814) = lu(k,814) - lu(k,306) * lu(k,807) - lu(k,823) = lu(k,823) - lu(k,307) * lu(k,807) - lu(k,824) = lu(k,824) - lu(k,308) * lu(k,807) - lu(k,825) = lu(k,825) - lu(k,309) * lu(k,807) - lu(k,827) = lu(k,827) - lu(k,310) * lu(k,807) - lu(k,828) = lu(k,828) - lu(k,311) * lu(k,807) - lu(k,829) = lu(k,829) - lu(k,312) * lu(k,807) - lu(k,832) = lu(k,832) - lu(k,313) * lu(k,807) - lu(k,835) = lu(k,835) - lu(k,314) * lu(k,807) - lu(k,838) = lu(k,838) - lu(k,315) * lu(k,807) - lu(k,840) = lu(k,840) - lu(k,316) * lu(k,807) - lu(k,843) = lu(k,843) - lu(k,317) * lu(k,807) - lu(k,844) = lu(k,844) - lu(k,318) * lu(k,807) - lu(k,846) = lu(k,846) - lu(k,319) * lu(k,807) - lu(k,859) = lu(k,859) - lu(k,306) * lu(k,852) - lu(k,869) = lu(k,869) - lu(k,307) * lu(k,852) - lu(k,870) = lu(k,870) - lu(k,308) * lu(k,852) - lu(k,871) = lu(k,871) - lu(k,309) * lu(k,852) - lu(k,873) = lu(k,873) - lu(k,310) * lu(k,852) - lu(k,874) = lu(k,874) - lu(k,311) * lu(k,852) - lu(k,875) = lu(k,875) - lu(k,312) * lu(k,852) - lu(k,878) = lu(k,878) - lu(k,313) * lu(k,852) - lu(k,881) = lu(k,881) - lu(k,314) * lu(k,852) - lu(k,884) = lu(k,884) - lu(k,315) * lu(k,852) - lu(k,886) = lu(k,886) - lu(k,316) * lu(k,852) - lu(k,889) = lu(k,889) - lu(k,317) * lu(k,852) - lu(k,890) = lu(k,890) - lu(k,318) * lu(k,852) - lu(k,892) = lu(k,892) - lu(k,319) * lu(k,852) - lu(k,903) = lu(k,903) - lu(k,306) * lu(k,896) - lu(k,912) = lu(k,912) - lu(k,307) * lu(k,896) - lu(k,913) = lu(k,913) - lu(k,308) * lu(k,896) - lu(k,914) = lu(k,914) - lu(k,309) * lu(k,896) - lu(k,916) = lu(k,916) - lu(k,310) * lu(k,896) - lu(k,917) = lu(k,917) - lu(k,311) * lu(k,896) - lu(k,918) = lu(k,918) - lu(k,312) * lu(k,896) - lu(k,921) = lu(k,921) - lu(k,313) * lu(k,896) - lu(k,924) = lu(k,924) - lu(k,314) * lu(k,896) - lu(k,927) = lu(k,927) - lu(k,315) * lu(k,896) - lu(k,929) = lu(k,929) - lu(k,316) * lu(k,896) - lu(k,932) = lu(k,932) - lu(k,317) * lu(k,896) - lu(k,933) = lu(k,933) - lu(k,318) * lu(k,896) - lu(k,935) = lu(k,935) - lu(k,319) * lu(k,896) - lu(k,1030) = lu(k,1030) - lu(k,306) * lu(k,1023) - lu(k,1039) = lu(k,1039) - lu(k,307) * lu(k,1023) - lu(k,1040) = lu(k,1040) - lu(k,308) * lu(k,1023) - lu(k,1041) = lu(k,1041) - lu(k,309) * lu(k,1023) - lu(k,1043) = lu(k,1043) - lu(k,310) * lu(k,1023) - lu(k,1044) = lu(k,1044) - lu(k,311) * lu(k,1023) - lu(k,1045) = lu(k,1045) - lu(k,312) * lu(k,1023) - lu(k,1048) = lu(k,1048) - lu(k,313) * lu(k,1023) - lu(k,1051) = lu(k,1051) - lu(k,314) * lu(k,1023) - lu(k,1054) = lu(k,1054) - lu(k,315) * lu(k,1023) - lu(k,1056) = lu(k,1056) - lu(k,316) * lu(k,1023) - lu(k,1059) = lu(k,1059) - lu(k,317) * lu(k,1023) - lu(k,1060) = lu(k,1060) - lu(k,318) * lu(k,1023) - lu(k,1062) = lu(k,1062) - lu(k,319) * lu(k,1023) - lu(k,1330) = lu(k,1330) - lu(k,306) * lu(k,1323) - lu(k,1340) = lu(k,1340) - lu(k,307) * lu(k,1323) - lu(k,1341) = lu(k,1341) - lu(k,308) * lu(k,1323) - lu(k,1342) = lu(k,1342) - lu(k,309) * lu(k,1323) - lu(k,1344) = lu(k,1344) - lu(k,310) * lu(k,1323) - lu(k,1345) = lu(k,1345) - lu(k,311) * lu(k,1323) - lu(k,1346) = lu(k,1346) - lu(k,312) * lu(k,1323) - lu(k,1349) = lu(k,1349) - lu(k,313) * lu(k,1323) - lu(k,1352) = lu(k,1352) - lu(k,314) * lu(k,1323) - lu(k,1355) = lu(k,1355) - lu(k,315) * lu(k,1323) - lu(k,1357) = lu(k,1357) - lu(k,316) * lu(k,1323) - lu(k,1360) = lu(k,1360) - lu(k,317) * lu(k,1323) - lu(k,1361) = lu(k,1361) - lu(k,318) * lu(k,1323) - lu(k,1363) = lu(k,1363) - lu(k,319) * lu(k,1323) - lu(k,1452) = lu(k,1452) - lu(k,306) * lu(k,1445) - lu(k,1461) = lu(k,1461) - lu(k,307) * lu(k,1445) - lu(k,1462) = lu(k,1462) - lu(k,308) * lu(k,1445) - lu(k,1463) = lu(k,1463) - lu(k,309) * lu(k,1445) - lu(k,1465) = lu(k,1465) - lu(k,310) * lu(k,1445) - lu(k,1466) = lu(k,1466) - lu(k,311) * lu(k,1445) - lu(k,1467) = lu(k,1467) - lu(k,312) * lu(k,1445) - lu(k,1470) = lu(k,1470) - lu(k,313) * lu(k,1445) - lu(k,1473) = lu(k,1473) - lu(k,314) * lu(k,1445) - lu(k,1476) = lu(k,1476) - lu(k,315) * lu(k,1445) - lu(k,1478) = lu(k,1478) - lu(k,316) * lu(k,1445) - lu(k,1481) = lu(k,1481) - lu(k,317) * lu(k,1445) - lu(k,1482) = lu(k,1482) - lu(k,318) * lu(k,1445) - lu(k,1484) = lu(k,1484) - lu(k,319) * lu(k,1445) - lu(k,1538) = lu(k,1538) - lu(k,306) * lu(k,1531) - lu(k,1547) = lu(k,1547) - lu(k,307) * lu(k,1531) - lu(k,1548) = lu(k,1548) - lu(k,308) * lu(k,1531) - lu(k,1549) = lu(k,1549) - lu(k,309) * lu(k,1531) - lu(k,1551) = lu(k,1551) - lu(k,310) * lu(k,1531) - lu(k,1552) = lu(k,1552) - lu(k,311) * lu(k,1531) - lu(k,1553) = lu(k,1553) - lu(k,312) * lu(k,1531) - lu(k,1556) = lu(k,1556) - lu(k,313) * lu(k,1531) - lu(k,1559) = lu(k,1559) - lu(k,314) * lu(k,1531) - lu(k,1562) = lu(k,1562) - lu(k,315) * lu(k,1531) - lu(k,1564) = lu(k,1564) - lu(k,316) * lu(k,1531) - lu(k,1567) = lu(k,1567) - lu(k,317) * lu(k,1531) - lu(k,1568) = lu(k,1568) - lu(k,318) * lu(k,1531) - lu(k,1570) = lu(k,1570) - lu(k,319) * lu(k,1531) - lu(k,1783) = lu(k,1783) - lu(k,306) * lu(k,1778) - lu(k,1793) = lu(k,1793) - lu(k,307) * lu(k,1778) - lu(k,1794) = lu(k,1794) - lu(k,308) * lu(k,1778) - lu(k,1795) = lu(k,1795) - lu(k,309) * lu(k,1778) - lu(k,1797) = lu(k,1797) - lu(k,310) * lu(k,1778) - lu(k,1798) = lu(k,1798) - lu(k,311) * lu(k,1778) - lu(k,1799) = lu(k,1799) - lu(k,312) * lu(k,1778) - lu(k,1802) = lu(k,1802) - lu(k,313) * lu(k,1778) - lu(k,1805) = lu(k,1805) - lu(k,314) * lu(k,1778) - lu(k,1808) = lu(k,1808) - lu(k,315) * lu(k,1778) - lu(k,1810) = lu(k,1810) - lu(k,316) * lu(k,1778) - lu(k,1813) = lu(k,1813) - lu(k,317) * lu(k,1778) - lu(k,1814) = lu(k,1814) - lu(k,318) * lu(k,1778) - lu(k,1816) = lu(k,1816) - lu(k,319) * lu(k,1778) - lu(k,322) = 1._r8 / lu(k,322) - lu(k,323) = lu(k,323) * lu(k,322) - lu(k,324) = lu(k,324) * lu(k,322) - lu(k,325) = lu(k,325) * lu(k,322) - lu(k,326) = lu(k,326) * lu(k,322) - lu(k,327) = lu(k,327) * lu(k,322) - lu(k,328) = lu(k,328) * lu(k,322) - lu(k,329) = lu(k,329) * lu(k,322) - lu(k,330) = lu(k,330) * lu(k,322) - lu(k,331) = lu(k,331) * lu(k,322) - lu(k,332) = lu(k,332) * lu(k,322) - lu(k,333) = lu(k,333) * lu(k,322) - lu(k,451) = lu(k,451) - lu(k,323) * lu(k,450) - lu(k,452) = - lu(k,324) * lu(k,450) - lu(k,453) = - lu(k,325) * lu(k,450) - lu(k,454) = lu(k,454) - lu(k,326) * lu(k,450) - lu(k,455) = lu(k,455) - lu(k,327) * lu(k,450) - lu(k,457) = - lu(k,328) * lu(k,450) - lu(k,460) = lu(k,460) - lu(k,329) * lu(k,450) - lu(k,461) = - lu(k,330) * lu(k,450) - lu(k,465) = lu(k,465) - lu(k,331) * lu(k,450) - lu(k,466) = - lu(k,332) * lu(k,450) - lu(k,468) = lu(k,468) - lu(k,333) * lu(k,450) - lu(k,534) = lu(k,534) - lu(k,323) * lu(k,532) - lu(k,535) = lu(k,535) - lu(k,324) * lu(k,532) - lu(k,536) = lu(k,536) - lu(k,325) * lu(k,532) - lu(k,537) = lu(k,537) - lu(k,326) * lu(k,532) - lu(k,538) = lu(k,538) - lu(k,327) * lu(k,532) - lu(k,541) = lu(k,541) - lu(k,328) * lu(k,532) - lu(k,544) = lu(k,544) - lu(k,329) * lu(k,532) - lu(k,545) = - lu(k,330) * lu(k,532) - lu(k,551) = - lu(k,331) * lu(k,532) - lu(k,552) = lu(k,552) - lu(k,332) * lu(k,532) - lu(k,554) = lu(k,554) - lu(k,333) * lu(k,532) - lu(k,565) = lu(k,565) - lu(k,323) * lu(k,563) - lu(k,566) = lu(k,566) - lu(k,324) * lu(k,563) - lu(k,567) = lu(k,567) - lu(k,325) * lu(k,563) - lu(k,568) = lu(k,568) - lu(k,326) * lu(k,563) - lu(k,569) = lu(k,569) - lu(k,327) * lu(k,563) - lu(k,573) = - lu(k,328) * lu(k,563) - lu(k,576) = lu(k,576) - lu(k,329) * lu(k,563) - lu(k,577) = lu(k,577) - lu(k,330) * lu(k,563) - lu(k,585) = lu(k,585) - lu(k,331) * lu(k,563) - lu(k,586) = lu(k,586) - lu(k,332) * lu(k,563) - lu(k,588) = lu(k,588) - lu(k,333) * lu(k,563) - lu(k,677) = lu(k,677) - lu(k,323) * lu(k,675) - lu(k,678) = lu(k,678) - lu(k,324) * lu(k,675) - lu(k,679) = lu(k,679) - lu(k,325) * lu(k,675) - lu(k,680) = lu(k,680) - lu(k,326) * lu(k,675) - lu(k,681) = lu(k,681) - lu(k,327) * lu(k,675) - lu(k,686) = - lu(k,328) * lu(k,675) - lu(k,689) = lu(k,689) - lu(k,329) * lu(k,675) - lu(k,690) = lu(k,690) - lu(k,330) * lu(k,675) - lu(k,698) = lu(k,698) - lu(k,331) * lu(k,675) - lu(k,699) = lu(k,699) - lu(k,332) * lu(k,675) - lu(k,701) = lu(k,701) - lu(k,333) * lu(k,675) - lu(k,745) = lu(k,745) - lu(k,323) * lu(k,743) - lu(k,746) = lu(k,746) - lu(k,324) * lu(k,743) - lu(k,747) = lu(k,747) - lu(k,325) * lu(k,743) - lu(k,748) = lu(k,748) - lu(k,326) * lu(k,743) - lu(k,749) = lu(k,749) - lu(k,327) * lu(k,743) - lu(k,755) = lu(k,755) - lu(k,328) * lu(k,743) - lu(k,758) = lu(k,758) - lu(k,329) * lu(k,743) - lu(k,759) = lu(k,759) - lu(k,330) * lu(k,743) - lu(k,767) = lu(k,767) - lu(k,331) * lu(k,743) - lu(k,768) = lu(k,768) - lu(k,332) * lu(k,743) - lu(k,770) = lu(k,770) - lu(k,333) * lu(k,743) - lu(k,986) = lu(k,986) - lu(k,323) * lu(k,983) - lu(k,989) = lu(k,989) - lu(k,324) * lu(k,983) - lu(k,990) = - lu(k,325) * lu(k,983) - lu(k,993) = lu(k,993) - lu(k,326) * lu(k,983) - lu(k,995) = lu(k,995) - lu(k,327) * lu(k,983) - lu(k,1003) = lu(k,1003) - lu(k,328) * lu(k,983) - lu(k,1006) = lu(k,1006) - lu(k,329) * lu(k,983) - lu(k,1007) = lu(k,1007) - lu(k,330) * lu(k,983) - lu(k,1017) = lu(k,1017) - lu(k,331) * lu(k,983) - lu(k,1018) = lu(k,1018) - lu(k,332) * lu(k,983) - lu(k,1020) = lu(k,1020) - lu(k,333) * lu(k,983) - lu(k,1115) = lu(k,1115) - lu(k,323) * lu(k,1110) - lu(k,1116) = - lu(k,324) * lu(k,1110) - lu(k,1117) = lu(k,1117) - lu(k,325) * lu(k,1110) - lu(k,1121) = lu(k,1121) - lu(k,326) * lu(k,1110) - lu(k,1123) = lu(k,1123) - lu(k,327) * lu(k,1110) - lu(k,1131) = lu(k,1131) - lu(k,328) * lu(k,1110) - lu(k,1134) = lu(k,1134) - lu(k,329) * lu(k,1110) - lu(k,1135) = - lu(k,330) * lu(k,1110) - lu(k,1145) = - lu(k,331) * lu(k,1110) - lu(k,1146) = lu(k,1146) - lu(k,332) * lu(k,1110) - lu(k,1148) = lu(k,1148) - lu(k,333) * lu(k,1110) - lu(k,1211) = lu(k,1211) - lu(k,323) * lu(k,1208) - lu(k,1212) = lu(k,1212) - lu(k,324) * lu(k,1208) - lu(k,1213) = lu(k,1213) - lu(k,325) * lu(k,1208) - lu(k,1217) = lu(k,1217) - lu(k,326) * lu(k,1208) - lu(k,1219) = lu(k,1219) - lu(k,327) * lu(k,1208) - lu(k,1227) = lu(k,1227) - lu(k,328) * lu(k,1208) - lu(k,1230) = lu(k,1230) - lu(k,329) * lu(k,1208) - lu(k,1231) = lu(k,1231) - lu(k,330) * lu(k,1208) - lu(k,1241) = lu(k,1241) - lu(k,331) * lu(k,1208) - lu(k,1242) = lu(k,1242) - lu(k,332) * lu(k,1208) - lu(k,1244) = lu(k,1244) - lu(k,333) * lu(k,1208) - lu(k,1250) = lu(k,1250) - lu(k,323) * lu(k,1248) - lu(k,1251) = - lu(k,324) * lu(k,1248) - lu(k,1252) = lu(k,1252) - lu(k,325) * lu(k,1248) - lu(k,1255) = lu(k,1255) - lu(k,326) * lu(k,1248) - lu(k,1257) = lu(k,1257) - lu(k,327) * lu(k,1248) - lu(k,1265) = lu(k,1265) - lu(k,328) * lu(k,1248) - lu(k,1268) = lu(k,1268) - lu(k,329) * lu(k,1248) - lu(k,1269) = lu(k,1269) - lu(k,330) * lu(k,1248) - lu(k,1279) = lu(k,1279) - lu(k,331) * lu(k,1248) - lu(k,1280) = lu(k,1280) - lu(k,332) * lu(k,1248) - lu(k,1282) = lu(k,1282) - lu(k,333) * lu(k,1248) - lu(k,1373) = - lu(k,323) * lu(k,1371) - lu(k,1374) = lu(k,1374) - lu(k,324) * lu(k,1371) - lu(k,1375) = - lu(k,325) * lu(k,1371) - lu(k,1379) = lu(k,1379) - lu(k,326) * lu(k,1371) - lu(k,1381) = lu(k,1381) - lu(k,327) * lu(k,1371) - lu(k,1389) = lu(k,1389) - lu(k,328) * lu(k,1371) - lu(k,1392) = lu(k,1392) - lu(k,329) * lu(k,1371) - lu(k,1393) = lu(k,1393) - lu(k,330) * lu(k,1371) - lu(k,1403) = lu(k,1403) - lu(k,331) * lu(k,1371) - lu(k,1404) = lu(k,1404) - lu(k,332) * lu(k,1371) - lu(k,1406) = lu(k,1406) - lu(k,333) * lu(k,1371) - lu(k,1494) = lu(k,1494) - lu(k,323) * lu(k,1493) - lu(k,1495) = lu(k,1495) - lu(k,324) * lu(k,1493) - lu(k,1496) = - lu(k,325) * lu(k,1493) - lu(k,1500) = lu(k,1500) - lu(k,326) * lu(k,1493) - lu(k,1502) = lu(k,1502) - lu(k,327) * lu(k,1493) - lu(k,1510) = lu(k,1510) - lu(k,328) * lu(k,1493) - lu(k,1513) = lu(k,1513) - lu(k,329) * lu(k,1493) - lu(k,1514) = - lu(k,330) * lu(k,1493) - lu(k,1524) = lu(k,1524) - lu(k,331) * lu(k,1493) - lu(k,1525) = lu(k,1525) - lu(k,332) * lu(k,1493) - lu(k,1527) = lu(k,1527) - lu(k,333) * lu(k,1493) - lu(k,1728) = lu(k,1728) - lu(k,323) * lu(k,1725) - lu(k,1732) = - lu(k,324) * lu(k,1725) - lu(k,1733) = - lu(k,325) * lu(k,1725) - lu(k,1736) = lu(k,1736) - lu(k,326) * lu(k,1725) - lu(k,1738) = lu(k,1738) - lu(k,327) * lu(k,1725) - lu(k,1746) = lu(k,1746) - lu(k,328) * lu(k,1725) - lu(k,1749) = lu(k,1749) - lu(k,329) * lu(k,1725) - lu(k,1750) = lu(k,1750) - lu(k,330) * lu(k,1725) - lu(k,1760) = lu(k,1760) - lu(k,331) * lu(k,1725) - lu(k,1761) = lu(k,1761) - lu(k,332) * lu(k,1725) - lu(k,1763) = lu(k,1763) - lu(k,333) * lu(k,1725) - lu(k,334) = 1._r8 / lu(k,334) - lu(k,335) = lu(k,335) * lu(k,334) - lu(k,336) = lu(k,336) * lu(k,334) - lu(k,337) = lu(k,337) * lu(k,334) - lu(k,338) = lu(k,338) * lu(k,334) - lu(k,339) = lu(k,339) * lu(k,334) - lu(k,340) = lu(k,340) * lu(k,334) - lu(k,341) = lu(k,341) * lu(k,334) - lu(k,342) = lu(k,342) * lu(k,334) - lu(k,343) = lu(k,343) * lu(k,334) - lu(k,344) = lu(k,344) * lu(k,334) - lu(k,345) = lu(k,345) * lu(k,334) - lu(k,346) = lu(k,346) * lu(k,334) - lu(k,347) = lu(k,347) * lu(k,334) - lu(k,348) = lu(k,348) * lu(k,334) - lu(k,351) = lu(k,351) - lu(k,335) * lu(k,349) - lu(k,352) = lu(k,352) - lu(k,336) * lu(k,349) - lu(k,353) = lu(k,353) - lu(k,337) * lu(k,349) - lu(k,354) = lu(k,354) - lu(k,338) * lu(k,349) - lu(k,355) = lu(k,355) - lu(k,339) * lu(k,349) - lu(k,356) = lu(k,356) - lu(k,340) * lu(k,349) - lu(k,357) = lu(k,357) - lu(k,341) * lu(k,349) - lu(k,358) = lu(k,358) - lu(k,342) * lu(k,349) - lu(k,359) = lu(k,359) - lu(k,343) * lu(k,349) - lu(k,360) = lu(k,360) - lu(k,344) * lu(k,349) - lu(k,361) = lu(k,361) - lu(k,345) * lu(k,349) - lu(k,362) = lu(k,362) - lu(k,346) * lu(k,349) - lu(k,363) = lu(k,363) - lu(k,347) * lu(k,349) - lu(k,364) = lu(k,364) - lu(k,348) * lu(k,349) - lu(k,591) = lu(k,591) - lu(k,335) * lu(k,589) - lu(k,594) = lu(k,594) - lu(k,336) * lu(k,589) - lu(k,595) = lu(k,595) - lu(k,337) * lu(k,589) - lu(k,596) = lu(k,596) - lu(k,338) * lu(k,589) - lu(k,598) = lu(k,598) - lu(k,339) * lu(k,589) - lu(k,599) = lu(k,599) - lu(k,340) * lu(k,589) - lu(k,600) = lu(k,600) - lu(k,341) * lu(k,589) - lu(k,602) = lu(k,602) - lu(k,342) * lu(k,589) - lu(k,603) = lu(k,603) - lu(k,343) * lu(k,589) - lu(k,604) = lu(k,604) - lu(k,344) * lu(k,589) - lu(k,605) = lu(k,605) - lu(k,345) * lu(k,589) - lu(k,606) = lu(k,606) - lu(k,346) * lu(k,589) - lu(k,607) = lu(k,607) - lu(k,347) * lu(k,589) - lu(k,609) = lu(k,609) - lu(k,348) * lu(k,589) - lu(k,816) = lu(k,816) - lu(k,335) * lu(k,808) - lu(k,823) = lu(k,823) - lu(k,336) * lu(k,808) - lu(k,824) = lu(k,824) - lu(k,337) * lu(k,808) - lu(k,825) = lu(k,825) - lu(k,338) * lu(k,808) - lu(k,827) = lu(k,827) - lu(k,339) * lu(k,808) - lu(k,828) = lu(k,828) - lu(k,340) * lu(k,808) - lu(k,830) = lu(k,830) - lu(k,341) * lu(k,808) - lu(k,835) = lu(k,835) - lu(k,342) * lu(k,808) - lu(k,836) = lu(k,836) - lu(k,343) * lu(k,808) - lu(k,838) = lu(k,838) - lu(k,344) * lu(k,808) - lu(k,840) = lu(k,840) - lu(k,345) * lu(k,808) - lu(k,843) = lu(k,843) - lu(k,346) * lu(k,808) - lu(k,844) = lu(k,844) - lu(k,347) * lu(k,808) - lu(k,846) = lu(k,846) - lu(k,348) * lu(k,808) - lu(k,862) = lu(k,862) - lu(k,335) * lu(k,853) - lu(k,869) = lu(k,869) - lu(k,336) * lu(k,853) - lu(k,870) = lu(k,870) - lu(k,337) * lu(k,853) - lu(k,871) = lu(k,871) - lu(k,338) * lu(k,853) - lu(k,873) = lu(k,873) - lu(k,339) * lu(k,853) - lu(k,874) = lu(k,874) - lu(k,340) * lu(k,853) - lu(k,876) = lu(k,876) - lu(k,341) * lu(k,853) - lu(k,881) = lu(k,881) - lu(k,342) * lu(k,853) - lu(k,882) = lu(k,882) - lu(k,343) * lu(k,853) - lu(k,884) = lu(k,884) - lu(k,344) * lu(k,853) - lu(k,886) = lu(k,886) - lu(k,345) * lu(k,853) - lu(k,889) = lu(k,889) - lu(k,346) * lu(k,853) - lu(k,890) = lu(k,890) - lu(k,347) * lu(k,853) - lu(k,892) = lu(k,892) - lu(k,348) * lu(k,853) - lu(k,905) = lu(k,905) - lu(k,335) * lu(k,897) - lu(k,912) = lu(k,912) - lu(k,336) * lu(k,897) - lu(k,913) = lu(k,913) - lu(k,337) * lu(k,897) - lu(k,914) = lu(k,914) - lu(k,338) * lu(k,897) - lu(k,916) = lu(k,916) - lu(k,339) * lu(k,897) - lu(k,917) = lu(k,917) - lu(k,340) * lu(k,897) - lu(k,919) = lu(k,919) - lu(k,341) * lu(k,897) - lu(k,924) = lu(k,924) - lu(k,342) * lu(k,897) - lu(k,925) = lu(k,925) - lu(k,343) * lu(k,897) - lu(k,927) = lu(k,927) - lu(k,344) * lu(k,897) - lu(k,929) = lu(k,929) - lu(k,345) * lu(k,897) - lu(k,932) = lu(k,932) - lu(k,346) * lu(k,897) - lu(k,933) = lu(k,933) - lu(k,347) * lu(k,897) - lu(k,935) = lu(k,935) - lu(k,348) * lu(k,897) - lu(k,1032) = lu(k,1032) - lu(k,335) * lu(k,1024) - lu(k,1039) = lu(k,1039) - lu(k,336) * lu(k,1024) - lu(k,1040) = lu(k,1040) - lu(k,337) * lu(k,1024) - lu(k,1041) = lu(k,1041) - lu(k,338) * lu(k,1024) - lu(k,1043) = lu(k,1043) - lu(k,339) * lu(k,1024) - lu(k,1044) = lu(k,1044) - lu(k,340) * lu(k,1024) - lu(k,1046) = lu(k,1046) - lu(k,341) * lu(k,1024) - lu(k,1051) = lu(k,1051) - lu(k,342) * lu(k,1024) - lu(k,1052) = lu(k,1052) - lu(k,343) * lu(k,1024) - lu(k,1054) = lu(k,1054) - lu(k,344) * lu(k,1024) - lu(k,1056) = lu(k,1056) - lu(k,345) * lu(k,1024) - lu(k,1059) = lu(k,1059) - lu(k,346) * lu(k,1024) - lu(k,1060) = lu(k,1060) - lu(k,347) * lu(k,1024) - lu(k,1062) = lu(k,1062) - lu(k,348) * lu(k,1024) - lu(k,1118) = lu(k,1118) - lu(k,335) * lu(k,1111) - lu(k,1125) = - lu(k,336) * lu(k,1111) - lu(k,1126) = - lu(k,337) * lu(k,1111) - lu(k,1127) = - lu(k,338) * lu(k,1111) - lu(k,1129) = lu(k,1129) - lu(k,339) * lu(k,1111) - lu(k,1130) = - lu(k,340) * lu(k,1111) - lu(k,1132) = lu(k,1132) - lu(k,341) * lu(k,1111) - lu(k,1137) = - lu(k,342) * lu(k,1111) - lu(k,1138) = lu(k,1138) - lu(k,343) * lu(k,1111) - lu(k,1140) = - lu(k,344) * lu(k,1111) - lu(k,1142) = - lu(k,345) * lu(k,1111) - lu(k,1145) = lu(k,1145) - lu(k,346) * lu(k,1111) - lu(k,1146) = lu(k,1146) - lu(k,347) * lu(k,1111) - lu(k,1148) = lu(k,1148) - lu(k,348) * lu(k,1111) - lu(k,1333) = lu(k,1333) - lu(k,335) * lu(k,1324) - lu(k,1340) = lu(k,1340) - lu(k,336) * lu(k,1324) - lu(k,1341) = lu(k,1341) - lu(k,337) * lu(k,1324) - lu(k,1342) = lu(k,1342) - lu(k,338) * lu(k,1324) - lu(k,1344) = lu(k,1344) - lu(k,339) * lu(k,1324) - lu(k,1345) = lu(k,1345) - lu(k,340) * lu(k,1324) - lu(k,1347) = lu(k,1347) - lu(k,341) * lu(k,1324) - lu(k,1352) = lu(k,1352) - lu(k,342) * lu(k,1324) - lu(k,1353) = lu(k,1353) - lu(k,343) * lu(k,1324) - lu(k,1355) = lu(k,1355) - lu(k,344) * lu(k,1324) - lu(k,1357) = lu(k,1357) - lu(k,345) * lu(k,1324) - lu(k,1360) = lu(k,1360) - lu(k,346) * lu(k,1324) - lu(k,1361) = lu(k,1361) - lu(k,347) * lu(k,1324) - lu(k,1363) = lu(k,1363) - lu(k,348) * lu(k,1324) - lu(k,1454) = lu(k,1454) - lu(k,335) * lu(k,1446) - lu(k,1461) = lu(k,1461) - lu(k,336) * lu(k,1446) - lu(k,1462) = lu(k,1462) - lu(k,337) * lu(k,1446) - lu(k,1463) = lu(k,1463) - lu(k,338) * lu(k,1446) - lu(k,1465) = lu(k,1465) - lu(k,339) * lu(k,1446) - lu(k,1466) = lu(k,1466) - lu(k,340) * lu(k,1446) - lu(k,1468) = lu(k,1468) - lu(k,341) * lu(k,1446) - lu(k,1473) = lu(k,1473) - lu(k,342) * lu(k,1446) - lu(k,1474) = lu(k,1474) - lu(k,343) * lu(k,1446) - lu(k,1476) = lu(k,1476) - lu(k,344) * lu(k,1446) - lu(k,1478) = lu(k,1478) - lu(k,345) * lu(k,1446) - lu(k,1481) = lu(k,1481) - lu(k,346) * lu(k,1446) - lu(k,1482) = lu(k,1482) - lu(k,347) * lu(k,1446) - lu(k,1484) = lu(k,1484) - lu(k,348) * lu(k,1446) - lu(k,1540) = lu(k,1540) - lu(k,335) * lu(k,1532) - lu(k,1547) = lu(k,1547) - lu(k,336) * lu(k,1532) - lu(k,1548) = lu(k,1548) - lu(k,337) * lu(k,1532) - lu(k,1549) = lu(k,1549) - lu(k,338) * lu(k,1532) - lu(k,1551) = lu(k,1551) - lu(k,339) * lu(k,1532) - lu(k,1552) = lu(k,1552) - lu(k,340) * lu(k,1532) - lu(k,1554) = lu(k,1554) - lu(k,341) * lu(k,1532) - lu(k,1559) = lu(k,1559) - lu(k,342) * lu(k,1532) - lu(k,1560) = lu(k,1560) - lu(k,343) * lu(k,1532) - lu(k,1562) = lu(k,1562) - lu(k,344) * lu(k,1532) - lu(k,1564) = lu(k,1564) - lu(k,345) * lu(k,1532) - lu(k,1567) = lu(k,1567) - lu(k,346) * lu(k,1532) - lu(k,1568) = lu(k,1568) - lu(k,347) * lu(k,1532) - lu(k,1570) = lu(k,1570) - lu(k,348) * lu(k,1532) - 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,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,362) = lu(k,362) * lu(k,350) - lu(k,363) = lu(k,363) * lu(k,350) - lu(k,364) = lu(k,364) * lu(k,350) - lu(k,591) = lu(k,591) - lu(k,351) * lu(k,590) - lu(k,594) = lu(k,594) - lu(k,352) * lu(k,590) - lu(k,595) = lu(k,595) - lu(k,353) * lu(k,590) - lu(k,596) = lu(k,596) - lu(k,354) * lu(k,590) - lu(k,598) = lu(k,598) - lu(k,355) * lu(k,590) - lu(k,599) = lu(k,599) - lu(k,356) * lu(k,590) - lu(k,600) = lu(k,600) - lu(k,357) * lu(k,590) - lu(k,602) = lu(k,602) - lu(k,358) * lu(k,590) - lu(k,603) = lu(k,603) - lu(k,359) * lu(k,590) - lu(k,604) = lu(k,604) - lu(k,360) * lu(k,590) - lu(k,605) = lu(k,605) - lu(k,361) * lu(k,590) - lu(k,606) = lu(k,606) - lu(k,362) * lu(k,590) - lu(k,607) = lu(k,607) - lu(k,363) * lu(k,590) - lu(k,609) = lu(k,609) - lu(k,364) * lu(k,590) - lu(k,816) = lu(k,816) - lu(k,351) * lu(k,809) - lu(k,823) = lu(k,823) - lu(k,352) * lu(k,809) - lu(k,824) = lu(k,824) - lu(k,353) * lu(k,809) - lu(k,825) = lu(k,825) - lu(k,354) * lu(k,809) - lu(k,827) = lu(k,827) - lu(k,355) * lu(k,809) - lu(k,828) = lu(k,828) - lu(k,356) * lu(k,809) - lu(k,830) = lu(k,830) - lu(k,357) * lu(k,809) - lu(k,835) = lu(k,835) - lu(k,358) * lu(k,809) - lu(k,836) = lu(k,836) - lu(k,359) * lu(k,809) - lu(k,838) = lu(k,838) - lu(k,360) * lu(k,809) - lu(k,840) = lu(k,840) - lu(k,361) * lu(k,809) - lu(k,843) = lu(k,843) - lu(k,362) * lu(k,809) - lu(k,844) = lu(k,844) - lu(k,363) * lu(k,809) - lu(k,846) = lu(k,846) - lu(k,364) * lu(k,809) - lu(k,862) = lu(k,862) - lu(k,351) * lu(k,854) - lu(k,869) = lu(k,869) - lu(k,352) * lu(k,854) - lu(k,870) = lu(k,870) - lu(k,353) * lu(k,854) - lu(k,871) = lu(k,871) - lu(k,354) * lu(k,854) - lu(k,873) = lu(k,873) - lu(k,355) * lu(k,854) - lu(k,874) = lu(k,874) - lu(k,356) * lu(k,854) - lu(k,876) = lu(k,876) - lu(k,357) * lu(k,854) - lu(k,881) = lu(k,881) - lu(k,358) * lu(k,854) - lu(k,882) = lu(k,882) - lu(k,359) * lu(k,854) - lu(k,884) = lu(k,884) - lu(k,360) * lu(k,854) - lu(k,886) = lu(k,886) - lu(k,361) * lu(k,854) - lu(k,889) = lu(k,889) - lu(k,362) * lu(k,854) - lu(k,890) = lu(k,890) - lu(k,363) * lu(k,854) - lu(k,892) = lu(k,892) - lu(k,364) * lu(k,854) - lu(k,905) = lu(k,905) - lu(k,351) * lu(k,898) - lu(k,912) = lu(k,912) - lu(k,352) * lu(k,898) - lu(k,913) = lu(k,913) - lu(k,353) * lu(k,898) - lu(k,914) = lu(k,914) - lu(k,354) * lu(k,898) - lu(k,916) = lu(k,916) - lu(k,355) * lu(k,898) - lu(k,917) = lu(k,917) - lu(k,356) * lu(k,898) - lu(k,919) = lu(k,919) - lu(k,357) * lu(k,898) - lu(k,924) = lu(k,924) - lu(k,358) * lu(k,898) - lu(k,925) = lu(k,925) - lu(k,359) * lu(k,898) - lu(k,927) = lu(k,927) - lu(k,360) * lu(k,898) - lu(k,929) = lu(k,929) - lu(k,361) * lu(k,898) - lu(k,932) = lu(k,932) - lu(k,362) * lu(k,898) - lu(k,933) = lu(k,933) - lu(k,363) * lu(k,898) - lu(k,935) = lu(k,935) - lu(k,364) * lu(k,898) - lu(k,1032) = lu(k,1032) - lu(k,351) * lu(k,1025) - lu(k,1039) = lu(k,1039) - lu(k,352) * lu(k,1025) - lu(k,1040) = lu(k,1040) - lu(k,353) * lu(k,1025) - lu(k,1041) = lu(k,1041) - lu(k,354) * lu(k,1025) - lu(k,1043) = lu(k,1043) - lu(k,355) * lu(k,1025) - lu(k,1044) = lu(k,1044) - lu(k,356) * lu(k,1025) - lu(k,1046) = lu(k,1046) - lu(k,357) * lu(k,1025) - lu(k,1051) = lu(k,1051) - lu(k,358) * lu(k,1025) - lu(k,1052) = lu(k,1052) - lu(k,359) * lu(k,1025) - lu(k,1054) = lu(k,1054) - lu(k,360) * lu(k,1025) - lu(k,1056) = lu(k,1056) - lu(k,361) * lu(k,1025) - lu(k,1059) = lu(k,1059) - lu(k,362) * lu(k,1025) - lu(k,1060) = lu(k,1060) - lu(k,363) * lu(k,1025) - lu(k,1062) = lu(k,1062) - lu(k,364) * lu(k,1025) - lu(k,1118) = lu(k,1118) - lu(k,351) * lu(k,1112) - lu(k,1125) = lu(k,1125) - lu(k,352) * lu(k,1112) - lu(k,1126) = lu(k,1126) - lu(k,353) * lu(k,1112) - lu(k,1127) = lu(k,1127) - lu(k,354) * lu(k,1112) - lu(k,1129) = lu(k,1129) - lu(k,355) * lu(k,1112) - lu(k,1130) = lu(k,1130) - lu(k,356) * lu(k,1112) - lu(k,1132) = lu(k,1132) - lu(k,357) * lu(k,1112) - lu(k,1137) = lu(k,1137) - lu(k,358) * lu(k,1112) - lu(k,1138) = lu(k,1138) - lu(k,359) * lu(k,1112) - lu(k,1140) = lu(k,1140) - lu(k,360) * lu(k,1112) - lu(k,1142) = lu(k,1142) - lu(k,361) * lu(k,1112) - lu(k,1145) = lu(k,1145) - lu(k,362) * lu(k,1112) - lu(k,1146) = lu(k,1146) - lu(k,363) * lu(k,1112) - lu(k,1148) = lu(k,1148) - lu(k,364) * lu(k,1112) - lu(k,1333) = lu(k,1333) - lu(k,351) * lu(k,1325) - lu(k,1340) = lu(k,1340) - lu(k,352) * lu(k,1325) - lu(k,1341) = lu(k,1341) - lu(k,353) * lu(k,1325) - lu(k,1342) = lu(k,1342) - lu(k,354) * lu(k,1325) - lu(k,1344) = lu(k,1344) - lu(k,355) * lu(k,1325) - lu(k,1345) = lu(k,1345) - lu(k,356) * lu(k,1325) - lu(k,1347) = lu(k,1347) - lu(k,357) * lu(k,1325) - lu(k,1352) = lu(k,1352) - lu(k,358) * lu(k,1325) - lu(k,1353) = lu(k,1353) - lu(k,359) * lu(k,1325) - lu(k,1355) = lu(k,1355) - lu(k,360) * lu(k,1325) - lu(k,1357) = lu(k,1357) - lu(k,361) * lu(k,1325) - lu(k,1360) = lu(k,1360) - lu(k,362) * lu(k,1325) - lu(k,1361) = lu(k,1361) - lu(k,363) * lu(k,1325) - lu(k,1363) = lu(k,1363) - lu(k,364) * lu(k,1325) - lu(k,1454) = lu(k,1454) - lu(k,351) * lu(k,1447) - lu(k,1461) = lu(k,1461) - lu(k,352) * lu(k,1447) - lu(k,1462) = lu(k,1462) - lu(k,353) * lu(k,1447) - lu(k,1463) = lu(k,1463) - lu(k,354) * lu(k,1447) - lu(k,1465) = lu(k,1465) - lu(k,355) * lu(k,1447) - lu(k,1466) = lu(k,1466) - lu(k,356) * lu(k,1447) - lu(k,1468) = lu(k,1468) - lu(k,357) * lu(k,1447) - lu(k,1473) = lu(k,1473) - lu(k,358) * lu(k,1447) - lu(k,1474) = lu(k,1474) - lu(k,359) * lu(k,1447) - lu(k,1476) = lu(k,1476) - lu(k,360) * lu(k,1447) - lu(k,1478) = lu(k,1478) - lu(k,361) * lu(k,1447) - lu(k,1481) = lu(k,1481) - lu(k,362) * lu(k,1447) - lu(k,1482) = lu(k,1482) - lu(k,363) * lu(k,1447) - lu(k,1484) = lu(k,1484) - lu(k,364) * lu(k,1447) - lu(k,1540) = lu(k,1540) - lu(k,351) * lu(k,1533) - lu(k,1547) = lu(k,1547) - lu(k,352) * lu(k,1533) - lu(k,1548) = lu(k,1548) - lu(k,353) * lu(k,1533) - lu(k,1549) = lu(k,1549) - lu(k,354) * lu(k,1533) - lu(k,1551) = lu(k,1551) - lu(k,355) * lu(k,1533) - lu(k,1552) = lu(k,1552) - lu(k,356) * lu(k,1533) - lu(k,1554) = lu(k,1554) - lu(k,357) * lu(k,1533) - lu(k,1559) = lu(k,1559) - lu(k,358) * lu(k,1533) - lu(k,1560) = lu(k,1560) - lu(k,359) * lu(k,1533) - lu(k,1562) = lu(k,1562) - lu(k,360) * lu(k,1533) - lu(k,1564) = lu(k,1564) - lu(k,361) * lu(k,1533) - lu(k,1567) = lu(k,1567) - lu(k,362) * lu(k,1533) - lu(k,1568) = lu(k,1568) - lu(k,363) * lu(k,1533) - lu(k,1570) = lu(k,1570) - lu(k,364) * lu(k,1533) - lu(k,1787) = lu(k,1787) - lu(k,351) * lu(k,1779) - lu(k,1793) = lu(k,1793) - lu(k,352) * lu(k,1779) - lu(k,1794) = lu(k,1794) - lu(k,353) * lu(k,1779) - lu(k,1795) = lu(k,1795) - lu(k,354) * lu(k,1779) - lu(k,1797) = lu(k,1797) - lu(k,355) * lu(k,1779) - lu(k,1798) = lu(k,1798) - lu(k,356) * lu(k,1779) - lu(k,1800) = - lu(k,357) * lu(k,1779) - lu(k,1805) = lu(k,1805) - lu(k,358) * lu(k,1779) - lu(k,1806) = lu(k,1806) - lu(k,359) * lu(k,1779) - lu(k,1808) = lu(k,1808) - lu(k,360) * lu(k,1779) - lu(k,1810) = lu(k,1810) - lu(k,361) * lu(k,1779) - lu(k,1813) = lu(k,1813) - lu(k,362) * lu(k,1779) - lu(k,1814) = lu(k,1814) - lu(k,363) * lu(k,1779) - lu(k,1816) = lu(k,1816) - lu(k,364) * lu(k,1779) - lu(k,365) = 1._r8 / lu(k,365) - lu(k,366) = lu(k,366) * lu(k,365) - lu(k,367) = lu(k,367) * lu(k,365) - lu(k,368) = lu(k,368) * lu(k,365) - lu(k,369) = lu(k,369) * lu(k,365) - lu(k,370) = lu(k,370) * lu(k,365) - lu(k,371) = lu(k,371) * lu(k,365) - lu(k,372) = lu(k,372) * lu(k,365) - lu(k,373) = lu(k,373) * lu(k,365) - lu(k,374) = lu(k,374) * lu(k,365) - lu(k,375) = lu(k,375) * lu(k,365) - lu(k,376) = lu(k,376) * lu(k,365) - lu(k,377) = lu(k,377) * lu(k,365) - lu(k,378) = lu(k,378) * lu(k,365) - lu(k,494) = lu(k,494) - lu(k,366) * lu(k,490) - lu(k,496) = lu(k,496) - lu(k,367) * lu(k,490) - lu(k,497) = lu(k,497) - lu(k,368) * lu(k,490) - lu(k,498) = lu(k,498) - lu(k,369) * lu(k,490) - lu(k,499) = lu(k,499) - lu(k,370) * lu(k,490) - lu(k,500) = lu(k,500) - lu(k,371) * lu(k,490) - lu(k,503) = lu(k,503) - lu(k,372) * lu(k,490) - lu(k,504) = lu(k,504) - lu(k,373) * lu(k,490) - lu(k,505) = lu(k,505) - lu(k,374) * lu(k,490) - lu(k,506) = lu(k,506) - lu(k,375) * lu(k,490) - lu(k,507) = lu(k,507) - lu(k,376) * lu(k,490) - lu(k,508) = lu(k,508) - lu(k,377) * lu(k,490) - lu(k,509) = lu(k,509) - lu(k,378) * lu(k,490) - lu(k,706) = lu(k,706) - lu(k,366) * lu(k,703) - lu(k,708) = lu(k,708) - lu(k,367) * lu(k,703) - lu(k,709) = lu(k,709) - lu(k,368) * lu(k,703) - lu(k,710) = lu(k,710) - lu(k,369) * lu(k,703) - lu(k,712) = lu(k,712) - lu(k,370) * lu(k,703) - lu(k,713) = lu(k,713) - lu(k,371) * lu(k,703) - lu(k,718) = lu(k,718) - lu(k,372) * lu(k,703) - lu(k,721) = lu(k,721) - lu(k,373) * lu(k,703) - lu(k,723) = lu(k,723) - lu(k,374) * lu(k,703) - lu(k,725) = lu(k,725) - lu(k,375) * lu(k,703) - lu(k,726) = lu(k,726) - lu(k,376) * lu(k,703) - lu(k,727) = lu(k,727) - lu(k,377) * lu(k,703) - lu(k,728) = lu(k,728) - lu(k,378) * lu(k,703) - lu(k,820) = lu(k,820) - lu(k,366) * lu(k,810) - lu(k,823) = lu(k,823) - lu(k,367) * lu(k,810) - lu(k,824) = lu(k,824) - lu(k,368) * lu(k,810) - lu(k,825) = lu(k,825) - lu(k,369) * lu(k,810) - lu(k,827) = lu(k,827) - lu(k,370) * lu(k,810) - lu(k,828) = lu(k,828) - lu(k,371) * lu(k,810) - lu(k,835) = lu(k,835) - lu(k,372) * lu(k,810) - lu(k,838) = lu(k,838) - lu(k,373) * lu(k,810) - lu(k,840) = lu(k,840) - lu(k,374) * lu(k,810) - lu(k,843) = lu(k,843) - lu(k,375) * lu(k,810) - lu(k,844) = lu(k,844) - lu(k,376) * lu(k,810) - lu(k,845) = lu(k,845) - lu(k,377) * lu(k,810) - lu(k,846) = lu(k,846) - lu(k,378) * lu(k,810) - lu(k,866) = lu(k,866) - lu(k,366) * lu(k,855) - lu(k,869) = lu(k,869) - lu(k,367) * lu(k,855) - lu(k,870) = lu(k,870) - lu(k,368) * lu(k,855) - lu(k,871) = lu(k,871) - lu(k,369) * lu(k,855) - lu(k,873) = lu(k,873) - lu(k,370) * lu(k,855) - lu(k,874) = lu(k,874) - lu(k,371) * lu(k,855) - lu(k,881) = lu(k,881) - lu(k,372) * lu(k,855) - lu(k,884) = lu(k,884) - lu(k,373) * lu(k,855) - lu(k,886) = lu(k,886) - lu(k,374) * lu(k,855) - lu(k,889) = lu(k,889) - lu(k,375) * lu(k,855) - lu(k,890) = lu(k,890) - lu(k,376) * lu(k,855) - lu(k,891) = lu(k,891) - lu(k,377) * lu(k,855) - lu(k,892) = lu(k,892) - lu(k,378) * lu(k,855) - lu(k,909) = lu(k,909) - lu(k,366) * lu(k,899) - lu(k,912) = lu(k,912) - lu(k,367) * lu(k,899) - lu(k,913) = lu(k,913) - lu(k,368) * lu(k,899) - lu(k,914) = lu(k,914) - lu(k,369) * lu(k,899) - lu(k,916) = lu(k,916) - lu(k,370) * lu(k,899) - lu(k,917) = lu(k,917) - lu(k,371) * lu(k,899) - lu(k,924) = lu(k,924) - lu(k,372) * lu(k,899) - lu(k,927) = lu(k,927) - lu(k,373) * lu(k,899) - lu(k,929) = lu(k,929) - lu(k,374) * lu(k,899) - lu(k,932) = lu(k,932) - lu(k,375) * lu(k,899) - lu(k,933) = lu(k,933) - lu(k,376) * lu(k,899) - lu(k,934) = lu(k,934) - lu(k,377) * lu(k,899) - lu(k,935) = lu(k,935) - lu(k,378) * lu(k,899) - lu(k,994) = lu(k,994) - lu(k,366) * lu(k,984) - lu(k,997) = - lu(k,367) * lu(k,984) - lu(k,998) = lu(k,998) - lu(k,368) * lu(k,984) - lu(k,999) = - lu(k,369) * lu(k,984) - lu(k,1001) = lu(k,1001) - lu(k,370) * lu(k,984) - lu(k,1002) = - lu(k,371) * lu(k,984) - lu(k,1009) = lu(k,1009) - lu(k,372) * lu(k,984) - lu(k,1012) = - lu(k,373) * lu(k,984) - lu(k,1014) = - lu(k,374) * lu(k,984) - lu(k,1017) = lu(k,1017) - lu(k,375) * lu(k,984) - lu(k,1018) = lu(k,1018) - lu(k,376) * lu(k,984) - lu(k,1019) = lu(k,1019) - lu(k,377) * lu(k,984) - lu(k,1020) = lu(k,1020) - lu(k,378) * lu(k,984) - lu(k,1036) = lu(k,1036) - lu(k,366) * lu(k,1026) - lu(k,1039) = lu(k,1039) - lu(k,367) * lu(k,1026) - lu(k,1040) = lu(k,1040) - lu(k,368) * lu(k,1026) - lu(k,1041) = lu(k,1041) - lu(k,369) * lu(k,1026) - lu(k,1043) = lu(k,1043) - lu(k,370) * lu(k,1026) - lu(k,1044) = lu(k,1044) - lu(k,371) * lu(k,1026) - lu(k,1051) = lu(k,1051) - lu(k,372) * lu(k,1026) - lu(k,1054) = lu(k,1054) - lu(k,373) * lu(k,1026) - lu(k,1056) = lu(k,1056) - lu(k,374) * lu(k,1026) - lu(k,1059) = lu(k,1059) - lu(k,375) * lu(k,1026) - lu(k,1060) = lu(k,1060) - lu(k,376) * lu(k,1026) - lu(k,1061) = lu(k,1061) - lu(k,377) * lu(k,1026) - lu(k,1062) = lu(k,1062) - lu(k,378) * lu(k,1026) - lu(k,1337) = lu(k,1337) - lu(k,366) * lu(k,1326) - lu(k,1340) = lu(k,1340) - lu(k,367) * lu(k,1326) - lu(k,1341) = lu(k,1341) - lu(k,368) * lu(k,1326) - lu(k,1342) = lu(k,1342) - lu(k,369) * lu(k,1326) - lu(k,1344) = lu(k,1344) - lu(k,370) * lu(k,1326) - lu(k,1345) = lu(k,1345) - lu(k,371) * lu(k,1326) - lu(k,1352) = lu(k,1352) - lu(k,372) * lu(k,1326) - lu(k,1355) = lu(k,1355) - lu(k,373) * lu(k,1326) - lu(k,1357) = lu(k,1357) - lu(k,374) * lu(k,1326) - lu(k,1360) = lu(k,1360) - lu(k,375) * lu(k,1326) - lu(k,1361) = lu(k,1361) - lu(k,376) * lu(k,1326) - lu(k,1362) = lu(k,1362) - lu(k,377) * lu(k,1326) - lu(k,1363) = lu(k,1363) - lu(k,378) * lu(k,1326) - lu(k,1458) = lu(k,1458) - lu(k,366) * lu(k,1448) - lu(k,1461) = lu(k,1461) - lu(k,367) * lu(k,1448) - lu(k,1462) = lu(k,1462) - lu(k,368) * lu(k,1448) - lu(k,1463) = lu(k,1463) - lu(k,369) * lu(k,1448) - lu(k,1465) = lu(k,1465) - lu(k,370) * lu(k,1448) - lu(k,1466) = lu(k,1466) - lu(k,371) * lu(k,1448) - lu(k,1473) = lu(k,1473) - lu(k,372) * lu(k,1448) - lu(k,1476) = lu(k,1476) - lu(k,373) * lu(k,1448) - lu(k,1478) = lu(k,1478) - lu(k,374) * lu(k,1448) - lu(k,1481) = lu(k,1481) - lu(k,375) * lu(k,1448) - lu(k,1482) = lu(k,1482) - lu(k,376) * lu(k,1448) - lu(k,1483) = lu(k,1483) - lu(k,377) * lu(k,1448) - lu(k,1484) = lu(k,1484) - lu(k,378) * lu(k,1448) - lu(k,1544) = lu(k,1544) - lu(k,366) * lu(k,1534) - lu(k,1547) = lu(k,1547) - lu(k,367) * lu(k,1534) - lu(k,1548) = lu(k,1548) - lu(k,368) * lu(k,1534) - lu(k,1549) = lu(k,1549) - lu(k,369) * lu(k,1534) - lu(k,1551) = lu(k,1551) - lu(k,370) * lu(k,1534) - lu(k,1552) = lu(k,1552) - lu(k,371) * lu(k,1534) - lu(k,1559) = lu(k,1559) - lu(k,372) * lu(k,1534) - lu(k,1562) = lu(k,1562) - lu(k,373) * lu(k,1534) - lu(k,1564) = lu(k,1564) - lu(k,374) * lu(k,1534) - lu(k,1567) = lu(k,1567) - lu(k,375) * lu(k,1534) - lu(k,1568) = lu(k,1568) - lu(k,376) * lu(k,1534) - lu(k,1569) = lu(k,1569) - lu(k,377) * lu(k,1534) - lu(k,1570) = lu(k,1570) - lu(k,378) * lu(k,1534) - lu(k,1790) = lu(k,1790) - lu(k,366) * lu(k,1780) - lu(k,1793) = lu(k,1793) - lu(k,367) * lu(k,1780) - lu(k,1794) = lu(k,1794) - lu(k,368) * lu(k,1780) - lu(k,1795) = lu(k,1795) - lu(k,369) * lu(k,1780) - lu(k,1797) = lu(k,1797) - lu(k,370) * lu(k,1780) - lu(k,1798) = lu(k,1798) - lu(k,371) * lu(k,1780) - lu(k,1805) = lu(k,1805) - lu(k,372) * lu(k,1780) - lu(k,1808) = lu(k,1808) - lu(k,373) * lu(k,1780) - lu(k,1810) = lu(k,1810) - lu(k,374) * lu(k,1780) - lu(k,1813) = lu(k,1813) - lu(k,375) * lu(k,1780) - lu(k,1814) = lu(k,1814) - lu(k,376) * lu(k,1780) - lu(k,1815) = lu(k,1815) - lu(k,377) * lu(k,1780) - lu(k,1816) = lu(k,1816) - lu(k,378) * lu(k,1780) - 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,393) = lu(k,393) * lu(k,379) - lu(k,394) = lu(k,394) * lu(k,379) - lu(k,643) = lu(k,643) - lu(k,380) * lu(k,642) - lu(k,648) = lu(k,648) - lu(k,381) * lu(k,642) - lu(k,649) = lu(k,649) - lu(k,382) * lu(k,642) - lu(k,650) = lu(k,650) - lu(k,383) * lu(k,642) - lu(k,652) = lu(k,652) - lu(k,384) * lu(k,642) - lu(k,653) = lu(k,653) - lu(k,385) * lu(k,642) - lu(k,654) = lu(k,654) - lu(k,386) * lu(k,642) - lu(k,655) = lu(k,655) - lu(k,387) * lu(k,642) - lu(k,658) = lu(k,658) - lu(k,388) * lu(k,642) - lu(k,660) = lu(k,660) - lu(k,389) * lu(k,642) - lu(k,661) = lu(k,661) - lu(k,390) * lu(k,642) - lu(k,662) = lu(k,662) - lu(k,391) * lu(k,642) - lu(k,663) = lu(k,663) - lu(k,392) * lu(k,642) - lu(k,664) = - lu(k,393) * lu(k,642) - lu(k,666) = lu(k,666) - lu(k,394) * lu(k,642) - lu(k,812) = lu(k,812) - lu(k,380) * lu(k,811) - lu(k,823) = lu(k,823) - lu(k,381) * lu(k,811) - lu(k,824) = lu(k,824) - lu(k,382) * lu(k,811) - lu(k,825) = lu(k,825) - lu(k,383) * lu(k,811) - lu(k,827) = lu(k,827) - lu(k,384) * lu(k,811) - lu(k,828) = lu(k,828) - lu(k,385) * lu(k,811) - lu(k,830) = lu(k,830) - lu(k,386) * lu(k,811) - lu(k,831) = lu(k,831) - lu(k,387) * lu(k,811) - lu(k,835) = lu(k,835) - lu(k,388) * lu(k,811) - lu(k,837) = lu(k,837) - lu(k,389) * lu(k,811) - lu(k,838) = lu(k,838) - lu(k,390) * lu(k,811) - lu(k,840) = lu(k,840) - lu(k,391) * lu(k,811) - lu(k,843) = lu(k,843) - lu(k,392) * lu(k,811) - lu(k,844) = lu(k,844) - lu(k,393) * lu(k,811) - lu(k,846) = lu(k,846) - lu(k,394) * lu(k,811) - lu(k,857) = lu(k,857) - lu(k,380) * lu(k,856) - lu(k,869) = lu(k,869) - lu(k,381) * lu(k,856) - lu(k,870) = lu(k,870) - lu(k,382) * lu(k,856) - lu(k,871) = lu(k,871) - lu(k,383) * lu(k,856) - lu(k,873) = lu(k,873) - lu(k,384) * lu(k,856) - lu(k,874) = lu(k,874) - lu(k,385) * lu(k,856) - lu(k,876) = lu(k,876) - lu(k,386) * lu(k,856) - lu(k,877) = lu(k,877) - lu(k,387) * lu(k,856) - lu(k,881) = lu(k,881) - lu(k,388) * lu(k,856) - lu(k,883) = lu(k,883) - lu(k,389) * lu(k,856) - lu(k,884) = lu(k,884) - lu(k,390) * lu(k,856) - lu(k,886) = lu(k,886) - lu(k,391) * lu(k,856) - lu(k,889) = lu(k,889) - lu(k,392) * lu(k,856) - lu(k,890) = lu(k,890) - lu(k,393) * lu(k,856) - lu(k,892) = lu(k,892) - lu(k,394) * lu(k,856) - lu(k,901) = lu(k,901) - lu(k,380) * lu(k,900) - lu(k,912) = lu(k,912) - lu(k,381) * lu(k,900) - lu(k,913) = lu(k,913) - lu(k,382) * lu(k,900) - lu(k,914) = lu(k,914) - lu(k,383) * lu(k,900) - lu(k,916) = lu(k,916) - lu(k,384) * lu(k,900) - lu(k,917) = lu(k,917) - lu(k,385) * lu(k,900) - lu(k,919) = lu(k,919) - lu(k,386) * lu(k,900) - lu(k,920) = lu(k,920) - lu(k,387) * lu(k,900) - lu(k,924) = lu(k,924) - lu(k,388) * lu(k,900) - lu(k,926) = lu(k,926) - lu(k,389) * lu(k,900) - lu(k,927) = lu(k,927) - lu(k,390) * lu(k,900) - lu(k,929) = lu(k,929) - lu(k,391) * lu(k,900) - lu(k,932) = lu(k,932) - lu(k,392) * lu(k,900) - lu(k,933) = lu(k,933) - lu(k,393) * lu(k,900) - lu(k,935) = lu(k,935) - lu(k,394) * lu(k,900) - lu(k,1028) = lu(k,1028) - lu(k,380) * lu(k,1027) - lu(k,1039) = lu(k,1039) - lu(k,381) * lu(k,1027) - lu(k,1040) = lu(k,1040) - lu(k,382) * lu(k,1027) - lu(k,1041) = lu(k,1041) - lu(k,383) * lu(k,1027) - lu(k,1043) = lu(k,1043) - lu(k,384) * lu(k,1027) - lu(k,1044) = lu(k,1044) - lu(k,385) * lu(k,1027) - lu(k,1046) = lu(k,1046) - lu(k,386) * lu(k,1027) - lu(k,1047) = lu(k,1047) - lu(k,387) * lu(k,1027) - lu(k,1051) = lu(k,1051) - lu(k,388) * lu(k,1027) - lu(k,1053) = lu(k,1053) - lu(k,389) * lu(k,1027) - lu(k,1054) = lu(k,1054) - lu(k,390) * lu(k,1027) - lu(k,1056) = lu(k,1056) - lu(k,391) * lu(k,1027) - lu(k,1059) = lu(k,1059) - lu(k,392) * lu(k,1027) - lu(k,1060) = lu(k,1060) - lu(k,393) * lu(k,1027) - lu(k,1062) = lu(k,1062) - lu(k,394) * lu(k,1027) - lu(k,1114) = - lu(k,380) * lu(k,1113) - lu(k,1125) = lu(k,1125) - lu(k,381) * lu(k,1113) - lu(k,1126) = lu(k,1126) - lu(k,382) * lu(k,1113) - lu(k,1127) = lu(k,1127) - lu(k,383) * lu(k,1113) - lu(k,1129) = lu(k,1129) - lu(k,384) * lu(k,1113) - lu(k,1130) = lu(k,1130) - lu(k,385) * lu(k,1113) - lu(k,1132) = lu(k,1132) - lu(k,386) * lu(k,1113) - lu(k,1133) = lu(k,1133) - lu(k,387) * lu(k,1113) - lu(k,1137) = lu(k,1137) - lu(k,388) * lu(k,1113) - lu(k,1139) = lu(k,1139) - lu(k,389) * lu(k,1113) - lu(k,1140) = lu(k,1140) - lu(k,390) * lu(k,1113) - lu(k,1142) = lu(k,1142) - lu(k,391) * lu(k,1113) - lu(k,1145) = lu(k,1145) - lu(k,392) * lu(k,1113) - lu(k,1146) = lu(k,1146) - lu(k,393) * lu(k,1113) - lu(k,1148) = lu(k,1148) - lu(k,394) * lu(k,1113) - lu(k,1155) = lu(k,1155) - lu(k,380) * lu(k,1153) - lu(k,1165) = - lu(k,381) * lu(k,1153) - lu(k,1166) = - lu(k,382) * lu(k,1153) - lu(k,1167) = - lu(k,383) * lu(k,1153) - lu(k,1169) = lu(k,1169) - lu(k,384) * lu(k,1153) - lu(k,1170) = - lu(k,385) * lu(k,1153) - lu(k,1172) = lu(k,1172) - lu(k,386) * lu(k,1153) - lu(k,1173) = lu(k,1173) - lu(k,387) * lu(k,1153) - lu(k,1177) = - lu(k,388) * lu(k,1153) - lu(k,1179) = lu(k,1179) - lu(k,389) * lu(k,1153) - lu(k,1180) = - lu(k,390) * lu(k,1153) - lu(k,1182) = - lu(k,391) * lu(k,1153) - lu(k,1185) = lu(k,1185) - lu(k,392) * lu(k,1153) - lu(k,1186) = lu(k,1186) - lu(k,393) * lu(k,1153) - lu(k,1188) = lu(k,1188) - lu(k,394) * lu(k,1153) - lu(k,1328) = lu(k,1328) - lu(k,380) * lu(k,1327) - lu(k,1340) = lu(k,1340) - lu(k,381) * lu(k,1327) - lu(k,1341) = lu(k,1341) - lu(k,382) * lu(k,1327) - lu(k,1342) = lu(k,1342) - lu(k,383) * lu(k,1327) - lu(k,1344) = lu(k,1344) - lu(k,384) * lu(k,1327) - lu(k,1345) = lu(k,1345) - lu(k,385) * lu(k,1327) - lu(k,1347) = lu(k,1347) - lu(k,386) * lu(k,1327) - lu(k,1348) = lu(k,1348) - lu(k,387) * lu(k,1327) - lu(k,1352) = lu(k,1352) - lu(k,388) * lu(k,1327) - lu(k,1354) = lu(k,1354) - lu(k,389) * lu(k,1327) - lu(k,1355) = lu(k,1355) - lu(k,390) * lu(k,1327) - lu(k,1357) = lu(k,1357) - lu(k,391) * lu(k,1327) - lu(k,1360) = lu(k,1360) - lu(k,392) * lu(k,1327) - lu(k,1361) = lu(k,1361) - lu(k,393) * lu(k,1327) - lu(k,1363) = lu(k,1363) - lu(k,394) * lu(k,1327) - lu(k,1450) = lu(k,1450) - lu(k,380) * lu(k,1449) - lu(k,1461) = lu(k,1461) - lu(k,381) * lu(k,1449) - lu(k,1462) = lu(k,1462) - lu(k,382) * lu(k,1449) - lu(k,1463) = lu(k,1463) - lu(k,383) * lu(k,1449) - lu(k,1465) = lu(k,1465) - lu(k,384) * lu(k,1449) - lu(k,1466) = lu(k,1466) - lu(k,385) * lu(k,1449) - lu(k,1468) = lu(k,1468) - lu(k,386) * lu(k,1449) - lu(k,1469) = lu(k,1469) - lu(k,387) * lu(k,1449) - lu(k,1473) = lu(k,1473) - lu(k,388) * lu(k,1449) - lu(k,1475) = lu(k,1475) - lu(k,389) * lu(k,1449) - lu(k,1476) = lu(k,1476) - lu(k,390) * lu(k,1449) - lu(k,1478) = lu(k,1478) - lu(k,391) * lu(k,1449) - lu(k,1481) = lu(k,1481) - lu(k,392) * lu(k,1449) - lu(k,1482) = lu(k,1482) - lu(k,393) * lu(k,1449) - lu(k,1484) = lu(k,1484) - lu(k,394) * lu(k,1449) - lu(k,1536) = lu(k,1536) - lu(k,380) * lu(k,1535) - lu(k,1547) = lu(k,1547) - lu(k,381) * lu(k,1535) - lu(k,1548) = lu(k,1548) - lu(k,382) * lu(k,1535) - lu(k,1549) = lu(k,1549) - lu(k,383) * lu(k,1535) - lu(k,1551) = lu(k,1551) - lu(k,384) * lu(k,1535) - lu(k,1552) = lu(k,1552) - lu(k,385) * lu(k,1535) - lu(k,1554) = lu(k,1554) - lu(k,386) * lu(k,1535) - lu(k,1555) = lu(k,1555) - lu(k,387) * lu(k,1535) - lu(k,1559) = lu(k,1559) - lu(k,388) * lu(k,1535) - lu(k,1561) = lu(k,1561) - lu(k,389) * lu(k,1535) - lu(k,1562) = lu(k,1562) - lu(k,390) * lu(k,1535) - lu(k,1564) = lu(k,1564) - lu(k,391) * lu(k,1535) - lu(k,1567) = lu(k,1567) - lu(k,392) * lu(k,1535) - lu(k,1568) = lu(k,1568) - lu(k,393) * lu(k,1535) - lu(k,1570) = lu(k,1570) - lu(k,394) * lu(k,1535) - 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,395) = 1._r8 / lu(k,395) - lu(k,396) = lu(k,396) * lu(k,395) - lu(k,397) = lu(k,397) * lu(k,395) - lu(k,398) = lu(k,398) * lu(k,395) - lu(k,399) = lu(k,399) * lu(k,395) - lu(k,400) = lu(k,400) * lu(k,395) - lu(k,401) = lu(k,401) * lu(k,395) - lu(k,402) = lu(k,402) * lu(k,395) - lu(k,403) = lu(k,403) * lu(k,395) - lu(k,404) = lu(k,404) * lu(k,395) - lu(k,405) = lu(k,405) * lu(k,395) - lu(k,406) = lu(k,406) * lu(k,395) - lu(k,407) = lu(k,407) * lu(k,395) - lu(k,408) = lu(k,408) * lu(k,395) - lu(k,409) = lu(k,409) * lu(k,395) - lu(k,614) = - lu(k,396) * lu(k,611) - lu(k,616) = lu(k,616) - lu(k,397) * lu(k,611) - lu(k,618) = lu(k,618) - lu(k,398) * lu(k,611) - lu(k,622) = - lu(k,399) * lu(k,611) - lu(k,623) = lu(k,623) - lu(k,400) * lu(k,611) - lu(k,625) = lu(k,625) - lu(k,401) * lu(k,611) - lu(k,628) = lu(k,628) - lu(k,402) * lu(k,611) - lu(k,629) = lu(k,629) - lu(k,403) * lu(k,611) - lu(k,630) = lu(k,630) - lu(k,404) * lu(k,611) - lu(k,636) = - lu(k,405) * lu(k,611) - lu(k,637) = - lu(k,406) * lu(k,611) - lu(k,638) = lu(k,638) - lu(k,407) * lu(k,611) - lu(k,639) = lu(k,639) - lu(k,408) * lu(k,611) - lu(k,640) = lu(k,640) - lu(k,409) * lu(k,611) - lu(k,776) = lu(k,776) - lu(k,396) * lu(k,772) - lu(k,777) = lu(k,777) - lu(k,397) * lu(k,772) - lu(k,779) = lu(k,779) - lu(k,398) * lu(k,772) - lu(k,783) = - lu(k,399) * lu(k,772) - lu(k,784) = lu(k,784) - lu(k,400) * lu(k,772) - lu(k,786) = lu(k,786) - lu(k,401) * lu(k,772) - lu(k,789) = lu(k,789) - lu(k,402) * lu(k,772) - lu(k,790) = - lu(k,403) * lu(k,772) - lu(k,791) = lu(k,791) - lu(k,404) * lu(k,772) - lu(k,798) = lu(k,798) - lu(k,405) * lu(k,772) - lu(k,799) = lu(k,799) - lu(k,406) * lu(k,772) - lu(k,800) = lu(k,800) - lu(k,407) * lu(k,772) - lu(k,801) = lu(k,801) - lu(k,408) * lu(k,772) - lu(k,802) = lu(k,802) - lu(k,409) * lu(k,772) - lu(k,992) = lu(k,992) - lu(k,396) * lu(k,985) - lu(k,994) = lu(k,994) - lu(k,397) * lu(k,985) - lu(k,996) = lu(k,996) - lu(k,398) * lu(k,985) - lu(k,1000) = lu(k,1000) - lu(k,399) * lu(k,985) - lu(k,1001) = lu(k,1001) - lu(k,400) * lu(k,985) - lu(k,1003) = lu(k,1003) - lu(k,401) * lu(k,985) - lu(k,1006) = lu(k,1006) - lu(k,402) * lu(k,985) - lu(k,1007) = lu(k,1007) - lu(k,403) * lu(k,985) - lu(k,1008) = - lu(k,404) * lu(k,985) - lu(k,1015) = - lu(k,405) * lu(k,985) - lu(k,1016) = lu(k,1016) - lu(k,406) * lu(k,985) - lu(k,1017) = lu(k,1017) - lu(k,407) * lu(k,985) - lu(k,1018) = lu(k,1018) - lu(k,408) * lu(k,985) - lu(k,1019) = lu(k,1019) - lu(k,409) * lu(k,985) - lu(k,1075) = - lu(k,396) * lu(k,1073) - lu(k,1077) = - lu(k,397) * lu(k,1073) - lu(k,1079) = lu(k,1079) - lu(k,398) * lu(k,1073) - lu(k,1083) = lu(k,1083) - lu(k,399) * lu(k,1073) - lu(k,1084) = lu(k,1084) - lu(k,400) * lu(k,1073) - lu(k,1086) = lu(k,1086) - lu(k,401) * lu(k,1073) - lu(k,1089) = lu(k,1089) - lu(k,402) * lu(k,1073) - lu(k,1090) = lu(k,1090) - lu(k,403) * lu(k,1073) - lu(k,1091) = lu(k,1091) - lu(k,404) * lu(k,1073) - lu(k,1098) = lu(k,1098) - lu(k,405) * lu(k,1073) - lu(k,1099) = lu(k,1099) - lu(k,406) * lu(k,1073) - lu(k,1100) = lu(k,1100) - lu(k,407) * lu(k,1073) - lu(k,1101) = lu(k,1101) - lu(k,408) * lu(k,1073) - lu(k,1102) = lu(k,1102) - lu(k,409) * lu(k,1073) - lu(k,1216) = lu(k,1216) - lu(k,396) * lu(k,1209) - lu(k,1218) = lu(k,1218) - lu(k,397) * lu(k,1209) - lu(k,1220) = lu(k,1220) - lu(k,398) * lu(k,1209) - lu(k,1224) = lu(k,1224) - lu(k,399) * lu(k,1209) - lu(k,1225) = lu(k,1225) - lu(k,400) * lu(k,1209) - lu(k,1227) = lu(k,1227) - lu(k,401) * lu(k,1209) - lu(k,1230) = lu(k,1230) - lu(k,402) * lu(k,1209) - lu(k,1231) = lu(k,1231) - lu(k,403) * lu(k,1209) - lu(k,1232) = lu(k,1232) - lu(k,404) * lu(k,1209) - lu(k,1239) = lu(k,1239) - lu(k,405) * lu(k,1209) - lu(k,1240) = lu(k,1240) - lu(k,406) * lu(k,1209) - lu(k,1241) = lu(k,1241) - lu(k,407) * lu(k,1209) - lu(k,1242) = lu(k,1242) - lu(k,408) * lu(k,1209) - lu(k,1243) = lu(k,1243) - lu(k,409) * lu(k,1209) - lu(k,1254) = lu(k,1254) - lu(k,396) * lu(k,1249) - lu(k,1256) = lu(k,1256) - lu(k,397) * lu(k,1249) - lu(k,1258) = - lu(k,398) * lu(k,1249) - lu(k,1262) = lu(k,1262) - lu(k,399) * lu(k,1249) - lu(k,1263) = lu(k,1263) - lu(k,400) * lu(k,1249) - lu(k,1265) = lu(k,1265) - lu(k,401) * lu(k,1249) - lu(k,1268) = lu(k,1268) - lu(k,402) * lu(k,1249) - lu(k,1269) = lu(k,1269) - lu(k,403) * lu(k,1249) - lu(k,1270) = lu(k,1270) - lu(k,404) * lu(k,1249) - lu(k,1277) = lu(k,1277) - lu(k,405) * lu(k,1249) - lu(k,1278) = lu(k,1278) - lu(k,406) * lu(k,1249) - lu(k,1279) = lu(k,1279) - lu(k,407) * lu(k,1249) - lu(k,1280) = lu(k,1280) - lu(k,408) * lu(k,1249) - lu(k,1281) = lu(k,1281) - lu(k,409) * lu(k,1249) - lu(k,1290) = lu(k,1290) - lu(k,396) * lu(k,1287) - lu(k,1292) = lu(k,1292) - lu(k,397) * lu(k,1287) - lu(k,1294) = - lu(k,398) * lu(k,1287) - lu(k,1298) = lu(k,1298) - lu(k,399) * lu(k,1287) - lu(k,1299) = lu(k,1299) - lu(k,400) * lu(k,1287) - lu(k,1301) = lu(k,1301) - lu(k,401) * lu(k,1287) - lu(k,1304) = lu(k,1304) - lu(k,402) * lu(k,1287) - lu(k,1305) = lu(k,1305) - lu(k,403) * lu(k,1287) - lu(k,1306) = lu(k,1306) - lu(k,404) * lu(k,1287) - lu(k,1313) = - lu(k,405) * lu(k,1287) - lu(k,1314) = lu(k,1314) - lu(k,406) * lu(k,1287) - lu(k,1315) = lu(k,1315) - lu(k,407) * lu(k,1287) - lu(k,1316) = lu(k,1316) - lu(k,408) * lu(k,1287) - lu(k,1317) = lu(k,1317) - lu(k,409) * lu(k,1287) - lu(k,1575) = - lu(k,396) * lu(k,1573) - lu(k,1577) = lu(k,1577) - lu(k,397) * lu(k,1573) - lu(k,1579) = - lu(k,398) * lu(k,1573) - lu(k,1583) = lu(k,1583) - lu(k,399) * lu(k,1573) - lu(k,1584) = lu(k,1584) - lu(k,400) * lu(k,1573) - lu(k,1586) = lu(k,1586) - lu(k,401) * lu(k,1573) - lu(k,1589) = lu(k,1589) - lu(k,402) * lu(k,1573) - lu(k,1590) = lu(k,1590) - lu(k,403) * lu(k,1573) - lu(k,1591) = - lu(k,404) * lu(k,1573) - lu(k,1598) = lu(k,1598) - lu(k,405) * lu(k,1573) - lu(k,1599) = - lu(k,406) * lu(k,1573) - lu(k,1600) = lu(k,1600) - lu(k,407) * lu(k,1573) - lu(k,1601) = lu(k,1601) - lu(k,408) * lu(k,1573) - lu(k,1602) = lu(k,1602) - lu(k,409) * lu(k,1573) - lu(k,1611) = lu(k,1611) - lu(k,396) * lu(k,1606) - lu(k,1613) = lu(k,1613) - lu(k,397) * lu(k,1606) - lu(k,1615) = lu(k,1615) - lu(k,398) * lu(k,1606) - lu(k,1619) = lu(k,1619) - lu(k,399) * lu(k,1606) - lu(k,1620) = lu(k,1620) - lu(k,400) * lu(k,1606) - lu(k,1622) = lu(k,1622) - lu(k,401) * lu(k,1606) - lu(k,1625) = lu(k,1625) - lu(k,402) * lu(k,1606) - lu(k,1626) = lu(k,1626) - lu(k,403) * lu(k,1606) - lu(k,1627) = lu(k,1627) - lu(k,404) * lu(k,1606) - lu(k,1634) = lu(k,1634) - lu(k,405) * lu(k,1606) - lu(k,1635) = lu(k,1635) - lu(k,406) * lu(k,1606) - lu(k,1636) = lu(k,1636) - lu(k,407) * lu(k,1606) - lu(k,1637) = lu(k,1637) - lu(k,408) * lu(k,1606) - lu(k,1638) = lu(k,1638) - lu(k,409) * lu(k,1606) - lu(k,1654) = - lu(k,396) * lu(k,1651) - lu(k,1656) = - lu(k,397) * lu(k,1651) - lu(k,1658) = lu(k,1658) - lu(k,398) * lu(k,1651) - lu(k,1662) = lu(k,1662) - lu(k,399) * lu(k,1651) - lu(k,1663) = lu(k,1663) - lu(k,400) * lu(k,1651) - lu(k,1665) = lu(k,1665) - lu(k,401) * lu(k,1651) - lu(k,1668) = lu(k,1668) - lu(k,402) * lu(k,1651) - lu(k,1669) = lu(k,1669) - lu(k,403) * lu(k,1651) - lu(k,1670) = lu(k,1670) - lu(k,404) * lu(k,1651) - lu(k,1677) = - lu(k,405) * lu(k,1651) - lu(k,1678) = lu(k,1678) - lu(k,406) * lu(k,1651) - lu(k,1679) = lu(k,1679) - lu(k,407) * lu(k,1651) - lu(k,1680) = lu(k,1680) - lu(k,408) * lu(k,1651) - lu(k,1681) = lu(k,1681) - lu(k,409) * lu(k,1651) - lu(k,1690) = - lu(k,396) * lu(k,1684) - lu(k,1692) = lu(k,1692) - lu(k,397) * lu(k,1684) - lu(k,1694) = lu(k,1694) - lu(k,398) * lu(k,1684) - lu(k,1698) = lu(k,1698) - lu(k,399) * lu(k,1684) - lu(k,1699) = lu(k,1699) - lu(k,400) * lu(k,1684) - lu(k,1701) = lu(k,1701) - lu(k,401) * lu(k,1684) - lu(k,1704) = lu(k,1704) - lu(k,402) * lu(k,1684) - lu(k,1705) = lu(k,1705) - lu(k,403) * lu(k,1684) - lu(k,1706) = lu(k,1706) - lu(k,404) * lu(k,1684) - lu(k,1713) = lu(k,1713) - lu(k,405) * lu(k,1684) - lu(k,1714) = - lu(k,406) * lu(k,1684) - lu(k,1715) = lu(k,1715) - lu(k,407) * lu(k,1684) - lu(k,1716) = lu(k,1716) - lu(k,408) * lu(k,1684) - lu(k,1717) = - lu(k,409) * lu(k,1684) - lu(k,1735) = lu(k,1735) - lu(k,396) * lu(k,1726) - lu(k,1737) = lu(k,1737) - lu(k,397) * lu(k,1726) - lu(k,1739) = lu(k,1739) - lu(k,398) * lu(k,1726) - lu(k,1743) = lu(k,1743) - lu(k,399) * lu(k,1726) - lu(k,1744) = lu(k,1744) - lu(k,400) * lu(k,1726) - lu(k,1746) = lu(k,1746) - lu(k,401) * lu(k,1726) - lu(k,1749) = lu(k,1749) - lu(k,402) * lu(k,1726) - lu(k,1750) = lu(k,1750) - lu(k,403) * lu(k,1726) - lu(k,1751) = lu(k,1751) - lu(k,404) * lu(k,1726) - lu(k,1758) = lu(k,1758) - lu(k,405) * lu(k,1726) - lu(k,1759) = lu(k,1759) - lu(k,406) * lu(k,1726) - lu(k,1760) = lu(k,1760) - lu(k,407) * lu(k,1726) - lu(k,1761) = lu(k,1761) - lu(k,408) * lu(k,1726) - lu(k,1762) = lu(k,1762) - lu(k,409) * lu(k,1726) - lu(k,413) = 1._r8 / lu(k,413) - lu(k,414) = lu(k,414) * lu(k,413) - lu(k,415) = lu(k,415) * lu(k,413) - lu(k,416) = lu(k,416) * lu(k,413) - lu(k,417) = lu(k,417) * lu(k,413) - lu(k,418) = lu(k,418) * lu(k,413) - lu(k,419) = lu(k,419) * lu(k,413) - lu(k,420) = lu(k,420) * lu(k,413) - lu(k,421) = lu(k,421) * lu(k,413) - lu(k,422) = lu(k,422) * lu(k,413) - lu(k,423) = lu(k,423) * lu(k,413) - lu(k,424) = lu(k,424) * lu(k,413) - lu(k,425) = lu(k,425) * lu(k,413) - lu(k,426) = lu(k,426) * lu(k,413) - lu(k,427) = lu(k,427) * lu(k,413) - lu(k,428) = lu(k,428) * lu(k,413) - lu(k,429) = lu(k,429) * lu(k,413) - lu(k,430) = lu(k,430) * lu(k,413) - lu(k,431) = lu(k,431) * lu(k,413) - lu(k,535) = lu(k,535) - lu(k,414) * lu(k,533) - lu(k,536) = lu(k,536) - lu(k,415) * lu(k,533) - lu(k,537) = lu(k,537) - lu(k,416) * lu(k,533) - lu(k,538) = lu(k,538) - lu(k,417) * lu(k,533) - lu(k,539) = - lu(k,418) * lu(k,533) - lu(k,540) = - lu(k,419) * lu(k,533) - lu(k,542) = lu(k,542) - lu(k,420) * lu(k,533) - lu(k,543) = lu(k,543) - lu(k,421) * lu(k,533) - lu(k,544) = lu(k,544) - lu(k,422) * lu(k,533) - lu(k,546) = lu(k,546) - lu(k,423) * lu(k,533) - lu(k,547) = lu(k,547) - lu(k,424) * lu(k,533) - lu(k,548) = - lu(k,425) * lu(k,533) - lu(k,549) = - lu(k,426) * lu(k,533) - lu(k,550) = - lu(k,427) * lu(k,533) - lu(k,551) = lu(k,551) - lu(k,428) * lu(k,533) - lu(k,552) = lu(k,552) - lu(k,429) * lu(k,533) - lu(k,553) = - lu(k,430) * lu(k,533) - lu(k,554) = lu(k,554) - lu(k,431) * lu(k,533) - lu(k,566) = lu(k,566) - lu(k,414) * lu(k,564) - lu(k,567) = lu(k,567) - lu(k,415) * lu(k,564) - lu(k,568) = lu(k,568) - lu(k,416) * lu(k,564) - lu(k,569) = lu(k,569) - lu(k,417) * lu(k,564) - lu(k,571) = lu(k,571) - lu(k,418) * lu(k,564) - lu(k,572) = lu(k,572) - lu(k,419) * lu(k,564) - lu(k,574) = lu(k,574) - lu(k,420) * lu(k,564) - lu(k,575) = lu(k,575) - lu(k,421) * lu(k,564) - lu(k,576) = lu(k,576) - lu(k,422) * lu(k,564) - lu(k,580) = lu(k,580) - lu(k,423) * lu(k,564) - lu(k,581) = lu(k,581) - lu(k,424) * lu(k,564) - lu(k,582) = lu(k,582) - lu(k,425) * lu(k,564) - lu(k,583) = - lu(k,426) * lu(k,564) - lu(k,584) = lu(k,584) - lu(k,427) * lu(k,564) - lu(k,585) = lu(k,585) - lu(k,428) * lu(k,564) - lu(k,586) = lu(k,586) - lu(k,429) * lu(k,564) - lu(k,587) = lu(k,587) - lu(k,430) * lu(k,564) - lu(k,588) = lu(k,588) - lu(k,431) * lu(k,564) - lu(k,678) = lu(k,678) - lu(k,414) * lu(k,676) - lu(k,679) = lu(k,679) - lu(k,415) * lu(k,676) - lu(k,680) = lu(k,680) - lu(k,416) * lu(k,676) - lu(k,681) = lu(k,681) - lu(k,417) * lu(k,676) - lu(k,683) = lu(k,683) - lu(k,418) * lu(k,676) - lu(k,684) = lu(k,684) - lu(k,419) * lu(k,676) - lu(k,687) = lu(k,687) - lu(k,420) * lu(k,676) - lu(k,688) = - lu(k,421) * lu(k,676) - lu(k,689) = lu(k,689) - lu(k,422) * lu(k,676) - lu(k,693) = lu(k,693) - lu(k,423) * lu(k,676) - lu(k,694) = lu(k,694) - lu(k,424) * lu(k,676) - lu(k,695) = lu(k,695) - lu(k,425) * lu(k,676) - lu(k,696) = - lu(k,426) * lu(k,676) - lu(k,697) = - lu(k,427) * lu(k,676) - lu(k,698) = lu(k,698) - lu(k,428) * lu(k,676) - lu(k,699) = lu(k,699) - lu(k,429) * lu(k,676) - lu(k,700) = lu(k,700) - lu(k,430) * lu(k,676) - lu(k,701) = lu(k,701) - lu(k,431) * lu(k,676) - lu(k,746) = lu(k,746) - lu(k,414) * lu(k,744) - lu(k,747) = lu(k,747) - lu(k,415) * lu(k,744) - lu(k,748) = lu(k,748) - lu(k,416) * lu(k,744) - lu(k,749) = lu(k,749) - lu(k,417) * lu(k,744) - lu(k,752) = lu(k,752) - lu(k,418) * lu(k,744) - lu(k,753) = lu(k,753) - lu(k,419) * lu(k,744) - lu(k,756) = lu(k,756) - lu(k,420) * lu(k,744) - lu(k,757) = lu(k,757) - lu(k,421) * lu(k,744) - lu(k,758) = lu(k,758) - lu(k,422) * lu(k,744) - lu(k,762) = lu(k,762) - lu(k,423) * lu(k,744) - lu(k,763) = lu(k,763) - lu(k,424) * lu(k,744) - lu(k,764) = lu(k,764) - lu(k,425) * lu(k,744) - lu(k,765) = - lu(k,426) * lu(k,744) - lu(k,766) = - lu(k,427) * lu(k,744) - lu(k,767) = lu(k,767) - lu(k,428) * lu(k,744) - lu(k,768) = lu(k,768) - lu(k,429) * lu(k,744) - lu(k,769) = lu(k,769) - lu(k,430) * lu(k,744) - lu(k,770) = lu(k,770) - lu(k,431) * lu(k,744) - lu(k,1157) = lu(k,1157) - lu(k,414) * lu(k,1154) - lu(k,1158) = - lu(k,415) * lu(k,1154) - lu(k,1161) = lu(k,1161) - lu(k,416) * lu(k,1154) - lu(k,1163) = lu(k,1163) - lu(k,417) * lu(k,1154) - lu(k,1168) = - lu(k,418) * lu(k,1154) - lu(k,1169) = lu(k,1169) - lu(k,419) * lu(k,1154) - lu(k,1172) = lu(k,1172) - lu(k,420) * lu(k,1154) - lu(k,1173) = lu(k,1173) - lu(k,421) * lu(k,1154) - lu(k,1174) = - lu(k,422) * lu(k,1154) - lu(k,1178) = lu(k,1178) - lu(k,423) * lu(k,1154) - lu(k,1179) = lu(k,1179) - lu(k,424) * lu(k,1154) - lu(k,1181) = lu(k,1181) - lu(k,425) * lu(k,1154) - lu(k,1183) = - lu(k,426) * lu(k,1154) - lu(k,1184) = lu(k,1184) - lu(k,427) * lu(k,1154) - lu(k,1185) = lu(k,1185) - lu(k,428) * lu(k,1154) - lu(k,1186) = lu(k,1186) - lu(k,429) * lu(k,1154) - lu(k,1187) = lu(k,1187) - lu(k,430) * lu(k,1154) - lu(k,1188) = lu(k,1188) - lu(k,431) * lu(k,1154) - lu(k,1212) = lu(k,1212) - lu(k,414) * lu(k,1210) - lu(k,1213) = lu(k,1213) - lu(k,415) * lu(k,1210) - lu(k,1217) = lu(k,1217) - lu(k,416) * lu(k,1210) - lu(k,1219) = lu(k,1219) - lu(k,417) * lu(k,1210) - lu(k,1224) = lu(k,1224) - lu(k,418) * lu(k,1210) - lu(k,1225) = lu(k,1225) - lu(k,419) * lu(k,1210) - lu(k,1228) = lu(k,1228) - lu(k,420) * lu(k,1210) - lu(k,1229) = lu(k,1229) - lu(k,421) * lu(k,1210) - lu(k,1230) = lu(k,1230) - lu(k,422) * lu(k,1210) - lu(k,1234) = lu(k,1234) - lu(k,423) * lu(k,1210) - lu(k,1235) = lu(k,1235) - lu(k,424) * lu(k,1210) - lu(k,1237) = lu(k,1237) - lu(k,425) * lu(k,1210) - lu(k,1239) = lu(k,1239) - lu(k,426) * lu(k,1210) - lu(k,1240) = lu(k,1240) - lu(k,427) * lu(k,1210) - lu(k,1241) = lu(k,1241) - lu(k,428) * lu(k,1210) - lu(k,1242) = lu(k,1242) - lu(k,429) * lu(k,1210) - lu(k,1243) = lu(k,1243) - lu(k,430) * lu(k,1210) - lu(k,1244) = lu(k,1244) - lu(k,431) * lu(k,1210) - lu(k,1374) = lu(k,1374) - lu(k,414) * lu(k,1372) - lu(k,1375) = lu(k,1375) - lu(k,415) * lu(k,1372) - lu(k,1379) = lu(k,1379) - lu(k,416) * lu(k,1372) - lu(k,1381) = lu(k,1381) - lu(k,417) * lu(k,1372) - lu(k,1386) = - lu(k,418) * lu(k,1372) - lu(k,1387) = lu(k,1387) - lu(k,419) * lu(k,1372) - lu(k,1390) = lu(k,1390) - lu(k,420) * lu(k,1372) - lu(k,1391) = lu(k,1391) - lu(k,421) * lu(k,1372) - lu(k,1392) = lu(k,1392) - lu(k,422) * lu(k,1372) - lu(k,1396) = lu(k,1396) - lu(k,423) * lu(k,1372) - lu(k,1397) = lu(k,1397) - lu(k,424) * lu(k,1372) - lu(k,1399) = lu(k,1399) - lu(k,425) * lu(k,1372) - lu(k,1401) = lu(k,1401) - lu(k,426) * lu(k,1372) - lu(k,1402) = lu(k,1402) - lu(k,427) * lu(k,1372) - lu(k,1403) = lu(k,1403) - lu(k,428) * lu(k,1372) - lu(k,1404) = lu(k,1404) - lu(k,429) * lu(k,1372) - lu(k,1405) = lu(k,1405) - lu(k,430) * lu(k,1372) - lu(k,1406) = lu(k,1406) - lu(k,431) * lu(k,1372) - lu(k,1608) = - lu(k,414) * lu(k,1607) - lu(k,1609) = - lu(k,415) * lu(k,1607) - lu(k,1612) = - lu(k,416) * lu(k,1607) - lu(k,1614) = lu(k,1614) - lu(k,417) * lu(k,1607) - lu(k,1619) = lu(k,1619) - lu(k,418) * lu(k,1607) - lu(k,1620) = lu(k,1620) - lu(k,419) * lu(k,1607) - lu(k,1623) = lu(k,1623) - lu(k,420) * lu(k,1607) - lu(k,1624) = lu(k,1624) - lu(k,421) * lu(k,1607) - lu(k,1625) = lu(k,1625) - lu(k,422) * lu(k,1607) - lu(k,1629) = lu(k,1629) - lu(k,423) * lu(k,1607) - lu(k,1630) = - lu(k,424) * lu(k,1607) - lu(k,1632) = lu(k,1632) - lu(k,425) * lu(k,1607) - lu(k,1634) = lu(k,1634) - lu(k,426) * lu(k,1607) - lu(k,1635) = lu(k,1635) - lu(k,427) * lu(k,1607) - lu(k,1636) = lu(k,1636) - lu(k,428) * lu(k,1607) - lu(k,1637) = lu(k,1637) - lu(k,429) * lu(k,1607) - lu(k,1638) = lu(k,1638) - lu(k,430) * lu(k,1607) - lu(k,1639) = lu(k,1639) - lu(k,431) * lu(k,1607) - lu(k,1686) = - lu(k,414) * lu(k,1685) - lu(k,1687) = - lu(k,415) * lu(k,1685) - lu(k,1691) = lu(k,1691) - lu(k,416) * lu(k,1685) - lu(k,1693) = lu(k,1693) - lu(k,417) * lu(k,1685) - lu(k,1698) = lu(k,1698) - lu(k,418) * lu(k,1685) - lu(k,1699) = lu(k,1699) - lu(k,419) * lu(k,1685) - lu(k,1702) = lu(k,1702) - lu(k,420) * lu(k,1685) - lu(k,1703) = - lu(k,421) * lu(k,1685) - lu(k,1704) = lu(k,1704) - lu(k,422) * lu(k,1685) - lu(k,1708) = - lu(k,423) * lu(k,1685) - lu(k,1709) = - lu(k,424) * lu(k,1685) - lu(k,1711) = - lu(k,425) * lu(k,1685) - lu(k,1713) = lu(k,1713) - lu(k,426) * lu(k,1685) - lu(k,1714) = lu(k,1714) - lu(k,427) * lu(k,1685) - lu(k,1715) = lu(k,1715) - lu(k,428) * lu(k,1685) - lu(k,1716) = lu(k,1716) - lu(k,429) * lu(k,1685) - lu(k,1717) = lu(k,1717) - lu(k,430) * lu(k,1685) - lu(k,1718) = lu(k,1718) - lu(k,431) * lu(k,1685) - lu(k,1785) = lu(k,1785) - lu(k,414) * lu(k,1781) - lu(k,1786) = lu(k,1786) - lu(k,415) * lu(k,1781) - lu(k,1789) = lu(k,1789) - lu(k,416) * lu(k,1781) - lu(k,1791) = lu(k,1791) - lu(k,417) * lu(k,1781) - lu(k,1796) = lu(k,1796) - lu(k,418) * lu(k,1781) - lu(k,1797) = lu(k,1797) - lu(k,419) * lu(k,1781) - lu(k,1800) = lu(k,1800) - lu(k,420) * lu(k,1781) - lu(k,1801) = lu(k,1801) - lu(k,421) * lu(k,1781) - lu(k,1802) = lu(k,1802) - lu(k,422) * lu(k,1781) - lu(k,1806) = lu(k,1806) - lu(k,423) * lu(k,1781) - lu(k,1807) = lu(k,1807) - lu(k,424) * lu(k,1781) - lu(k,1809) = lu(k,1809) - lu(k,425) * lu(k,1781) - lu(k,1811) = lu(k,1811) - lu(k,426) * lu(k,1781) - lu(k,1812) = lu(k,1812) - lu(k,427) * lu(k,1781) - lu(k,1813) = lu(k,1813) - lu(k,428) * lu(k,1781) - lu(k,1814) = lu(k,1814) - lu(k,429) * lu(k,1781) - lu(k,1815) = lu(k,1815) - lu(k,430) * lu(k,1781) - lu(k,1816) = lu(k,1816) - lu(k,431) * lu(k,1781) - 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,432) = 1._r8 / lu(k,432) - lu(k,433) = lu(k,433) * lu(k,432) - lu(k,434) = lu(k,434) * lu(k,432) - lu(k,435) = lu(k,435) * lu(k,432) - lu(k,436) = lu(k,436) * lu(k,432) - lu(k,437) = lu(k,437) * lu(k,432) - lu(k,438) = lu(k,438) * lu(k,432) - lu(k,439) = lu(k,439) * lu(k,432) - lu(k,440) = lu(k,440) * lu(k,432) - lu(k,441) = lu(k,441) * lu(k,432) - lu(k,442) = lu(k,442) * lu(k,432) - lu(k,443) = lu(k,443) * lu(k,432) - lu(k,444) = lu(k,444) * lu(k,432) - lu(k,445) = lu(k,445) * lu(k,432) - lu(k,473) = - lu(k,433) * lu(k,470) - lu(k,474) = lu(k,474) - lu(k,434) * lu(k,470) - lu(k,475) = lu(k,475) - lu(k,435) * lu(k,470) - lu(k,476) = lu(k,476) - lu(k,436) * lu(k,470) - lu(k,477) = lu(k,477) - lu(k,437) * lu(k,470) - lu(k,478) = lu(k,478) - lu(k,438) * lu(k,470) - lu(k,479) = lu(k,479) - lu(k,439) * lu(k,470) - lu(k,481) = lu(k,481) - lu(k,440) * lu(k,470) - lu(k,482) = lu(k,482) - lu(k,441) * lu(k,470) - lu(k,483) = lu(k,483) - lu(k,442) * lu(k,470) - lu(k,484) = lu(k,484) - lu(k,443) * lu(k,470) - lu(k,485) = lu(k,485) - lu(k,444) * lu(k,470) - lu(k,488) = lu(k,488) - lu(k,445) * lu(k,470) - lu(k,514) = lu(k,514) - lu(k,433) * lu(k,511) - lu(k,515) = lu(k,515) - lu(k,434) * lu(k,511) - lu(k,516) = lu(k,516) - lu(k,435) * lu(k,511) - lu(k,517) = lu(k,517) - lu(k,436) * lu(k,511) - lu(k,518) = lu(k,518) - lu(k,437) * lu(k,511) - lu(k,519) = lu(k,519) - lu(k,438) * lu(k,511) - lu(k,520) = lu(k,520) - lu(k,439) * lu(k,511) - lu(k,522) = lu(k,522) - lu(k,440) * lu(k,511) - lu(k,523) = lu(k,523) - lu(k,441) * lu(k,511) - lu(k,524) = lu(k,524) - lu(k,442) * lu(k,511) - lu(k,525) = lu(k,525) - lu(k,443) * lu(k,511) - lu(k,526) = lu(k,526) - lu(k,444) * lu(k,511) - lu(k,529) = lu(k,529) - lu(k,445) * lu(k,511) - lu(k,646) = lu(k,646) - lu(k,433) * lu(k,643) - lu(k,648) = lu(k,648) - lu(k,434) * lu(k,643) - lu(k,649) = lu(k,649) - lu(k,435) * lu(k,643) - lu(k,650) = lu(k,650) - lu(k,436) * lu(k,643) - lu(k,652) = lu(k,652) - lu(k,437) * lu(k,643) - lu(k,653) = lu(k,653) - lu(k,438) * lu(k,643) - lu(k,655) = lu(k,655) - lu(k,439) * lu(k,643) - lu(k,658) = lu(k,658) - lu(k,440) * lu(k,643) - lu(k,660) = lu(k,660) - lu(k,441) * lu(k,643) - lu(k,661) = lu(k,661) - lu(k,442) * lu(k,643) - lu(k,662) = lu(k,662) - lu(k,443) * lu(k,643) - lu(k,663) = lu(k,663) - lu(k,444) * lu(k,643) - lu(k,666) = lu(k,666) - lu(k,445) * lu(k,643) - lu(k,818) = lu(k,818) - lu(k,433) * lu(k,812) - lu(k,823) = lu(k,823) - lu(k,434) * lu(k,812) - lu(k,824) = lu(k,824) - lu(k,435) * lu(k,812) - lu(k,825) = lu(k,825) - lu(k,436) * lu(k,812) - lu(k,827) = lu(k,827) - lu(k,437) * lu(k,812) - lu(k,828) = lu(k,828) - lu(k,438) * lu(k,812) - lu(k,831) = lu(k,831) - lu(k,439) * lu(k,812) - lu(k,835) = lu(k,835) - lu(k,440) * lu(k,812) - lu(k,837) = lu(k,837) - lu(k,441) * lu(k,812) - lu(k,838) = lu(k,838) - lu(k,442) * lu(k,812) - lu(k,840) = lu(k,840) - lu(k,443) * lu(k,812) - lu(k,843) = lu(k,843) - lu(k,444) * lu(k,812) - lu(k,846) = lu(k,846) - lu(k,445) * lu(k,812) - lu(k,864) = lu(k,864) - lu(k,433) * lu(k,857) - lu(k,869) = lu(k,869) - lu(k,434) * lu(k,857) - lu(k,870) = lu(k,870) - lu(k,435) * lu(k,857) - lu(k,871) = lu(k,871) - lu(k,436) * lu(k,857) - lu(k,873) = lu(k,873) - lu(k,437) * lu(k,857) - lu(k,874) = lu(k,874) - lu(k,438) * lu(k,857) - lu(k,877) = lu(k,877) - lu(k,439) * lu(k,857) - lu(k,881) = lu(k,881) - lu(k,440) * lu(k,857) - lu(k,883) = lu(k,883) - lu(k,441) * lu(k,857) - lu(k,884) = lu(k,884) - lu(k,442) * lu(k,857) - lu(k,886) = lu(k,886) - lu(k,443) * lu(k,857) - lu(k,889) = lu(k,889) - lu(k,444) * lu(k,857) - lu(k,892) = lu(k,892) - lu(k,445) * lu(k,857) - lu(k,907) = lu(k,907) - lu(k,433) * lu(k,901) - lu(k,912) = lu(k,912) - lu(k,434) * lu(k,901) - lu(k,913) = lu(k,913) - lu(k,435) * lu(k,901) - lu(k,914) = lu(k,914) - lu(k,436) * lu(k,901) - lu(k,916) = lu(k,916) - lu(k,437) * lu(k,901) - lu(k,917) = lu(k,917) - lu(k,438) * lu(k,901) - lu(k,920) = lu(k,920) - lu(k,439) * lu(k,901) - lu(k,924) = lu(k,924) - lu(k,440) * lu(k,901) - lu(k,926) = lu(k,926) - lu(k,441) * lu(k,901) - lu(k,927) = lu(k,927) - lu(k,442) * lu(k,901) - lu(k,929) = lu(k,929) - lu(k,443) * lu(k,901) - lu(k,932) = lu(k,932) - lu(k,444) * lu(k,901) - lu(k,935) = lu(k,935) - lu(k,445) * lu(k,901) - lu(k,1034) = lu(k,1034) - lu(k,433) * lu(k,1028) - lu(k,1039) = lu(k,1039) - lu(k,434) * lu(k,1028) - lu(k,1040) = lu(k,1040) - lu(k,435) * lu(k,1028) - lu(k,1041) = lu(k,1041) - lu(k,436) * lu(k,1028) - lu(k,1043) = lu(k,1043) - lu(k,437) * lu(k,1028) - lu(k,1044) = lu(k,1044) - lu(k,438) * lu(k,1028) - lu(k,1047) = lu(k,1047) - lu(k,439) * lu(k,1028) - lu(k,1051) = lu(k,1051) - lu(k,440) * lu(k,1028) - lu(k,1053) = lu(k,1053) - lu(k,441) * lu(k,1028) - lu(k,1054) = lu(k,1054) - lu(k,442) * lu(k,1028) - lu(k,1056) = lu(k,1056) - lu(k,443) * lu(k,1028) - lu(k,1059) = lu(k,1059) - lu(k,444) * lu(k,1028) - lu(k,1062) = lu(k,1062) - lu(k,445) * lu(k,1028) - lu(k,1120) = lu(k,1120) - lu(k,433) * lu(k,1114) - lu(k,1125) = lu(k,1125) - lu(k,434) * lu(k,1114) - lu(k,1126) = lu(k,1126) - lu(k,435) * lu(k,1114) - lu(k,1127) = lu(k,1127) - lu(k,436) * lu(k,1114) - lu(k,1129) = lu(k,1129) - lu(k,437) * lu(k,1114) - lu(k,1130) = lu(k,1130) - lu(k,438) * lu(k,1114) - lu(k,1133) = lu(k,1133) - lu(k,439) * lu(k,1114) - lu(k,1137) = lu(k,1137) - lu(k,440) * lu(k,1114) - lu(k,1139) = lu(k,1139) - lu(k,441) * lu(k,1114) - lu(k,1140) = lu(k,1140) - lu(k,442) * lu(k,1114) - lu(k,1142) = lu(k,1142) - lu(k,443) * lu(k,1114) - lu(k,1145) = lu(k,1145) - lu(k,444) * lu(k,1114) - lu(k,1148) = lu(k,1148) - lu(k,445) * lu(k,1114) - lu(k,1160) = lu(k,1160) - lu(k,433) * lu(k,1155) - lu(k,1165) = lu(k,1165) - lu(k,434) * lu(k,1155) - lu(k,1166) = lu(k,1166) - lu(k,435) * lu(k,1155) - lu(k,1167) = lu(k,1167) - lu(k,436) * lu(k,1155) - lu(k,1169) = lu(k,1169) - lu(k,437) * lu(k,1155) - lu(k,1170) = lu(k,1170) - lu(k,438) * lu(k,1155) - lu(k,1173) = lu(k,1173) - lu(k,439) * lu(k,1155) - lu(k,1177) = lu(k,1177) - lu(k,440) * lu(k,1155) - lu(k,1179) = lu(k,1179) - lu(k,441) * lu(k,1155) - lu(k,1180) = lu(k,1180) - lu(k,442) * lu(k,1155) - lu(k,1182) = lu(k,1182) - lu(k,443) * lu(k,1155) - lu(k,1185) = lu(k,1185) - lu(k,444) * lu(k,1155) - lu(k,1188) = lu(k,1188) - lu(k,445) * lu(k,1155) - lu(k,1335) = lu(k,1335) - lu(k,433) * lu(k,1328) - lu(k,1340) = lu(k,1340) - lu(k,434) * lu(k,1328) - lu(k,1341) = lu(k,1341) - lu(k,435) * lu(k,1328) - lu(k,1342) = lu(k,1342) - lu(k,436) * lu(k,1328) - lu(k,1344) = lu(k,1344) - lu(k,437) * lu(k,1328) - lu(k,1345) = lu(k,1345) - lu(k,438) * lu(k,1328) - lu(k,1348) = lu(k,1348) - lu(k,439) * lu(k,1328) - lu(k,1352) = lu(k,1352) - lu(k,440) * lu(k,1328) - lu(k,1354) = lu(k,1354) - lu(k,441) * lu(k,1328) - lu(k,1355) = lu(k,1355) - lu(k,442) * lu(k,1328) - lu(k,1357) = lu(k,1357) - lu(k,443) * lu(k,1328) - lu(k,1360) = lu(k,1360) - lu(k,444) * lu(k,1328) - lu(k,1363) = lu(k,1363) - lu(k,445) * lu(k,1328) - lu(k,1414) = - lu(k,433) * lu(k,1409) - lu(k,1418) = - lu(k,434) * lu(k,1409) - lu(k,1419) = - lu(k,435) * lu(k,1409) - lu(k,1420) = - lu(k,436) * lu(k,1409) - lu(k,1422) = lu(k,1422) - lu(k,437) * lu(k,1409) - lu(k,1423) = - lu(k,438) * lu(k,1409) - lu(k,1426) = lu(k,1426) - lu(k,439) * lu(k,1409) - lu(k,1430) = - lu(k,440) * lu(k,1409) - lu(k,1432) = lu(k,1432) - lu(k,441) * lu(k,1409) - lu(k,1433) = lu(k,1433) - lu(k,442) * lu(k,1409) - lu(k,1435) = lu(k,1435) - lu(k,443) * lu(k,1409) - lu(k,1438) = lu(k,1438) - lu(k,444) * lu(k,1409) - lu(k,1441) = lu(k,1441) - lu(k,445) * lu(k,1409) - lu(k,1456) = lu(k,1456) - lu(k,433) * lu(k,1450) - lu(k,1461) = lu(k,1461) - lu(k,434) * lu(k,1450) - lu(k,1462) = lu(k,1462) - lu(k,435) * lu(k,1450) - lu(k,1463) = lu(k,1463) - lu(k,436) * lu(k,1450) - lu(k,1465) = lu(k,1465) - lu(k,437) * lu(k,1450) - lu(k,1466) = lu(k,1466) - lu(k,438) * lu(k,1450) - lu(k,1469) = lu(k,1469) - lu(k,439) * lu(k,1450) - lu(k,1473) = lu(k,1473) - lu(k,440) * lu(k,1450) - lu(k,1475) = lu(k,1475) - lu(k,441) * lu(k,1450) - lu(k,1476) = lu(k,1476) - lu(k,442) * lu(k,1450) - lu(k,1478) = lu(k,1478) - lu(k,443) * lu(k,1450) - lu(k,1481) = lu(k,1481) - lu(k,444) * lu(k,1450) - lu(k,1484) = lu(k,1484) - lu(k,445) * lu(k,1450) - lu(k,1542) = lu(k,1542) - lu(k,433) * lu(k,1536) - lu(k,1547) = lu(k,1547) - lu(k,434) * lu(k,1536) - lu(k,1548) = lu(k,1548) - lu(k,435) * lu(k,1536) - lu(k,1549) = lu(k,1549) - lu(k,436) * lu(k,1536) - lu(k,1551) = lu(k,1551) - lu(k,437) * lu(k,1536) - lu(k,1552) = lu(k,1552) - lu(k,438) * lu(k,1536) - lu(k,1555) = lu(k,1555) - lu(k,439) * lu(k,1536) - lu(k,1559) = lu(k,1559) - lu(k,440) * lu(k,1536) - lu(k,1561) = lu(k,1561) - lu(k,441) * lu(k,1536) - lu(k,1562) = lu(k,1562) - lu(k,442) * lu(k,1536) - lu(k,1564) = lu(k,1564) - lu(k,443) * lu(k,1536) - lu(k,1567) = lu(k,1567) - lu(k,444) * lu(k,1536) - lu(k,1570) = lu(k,1570) - lu(k,445) * lu(k,1536) - lu(k,1735) = lu(k,1735) - lu(k,433) * lu(k,1727) - lu(k,1740) = - lu(k,434) * lu(k,1727) - lu(k,1741) = lu(k,1741) - lu(k,435) * lu(k,1727) - lu(k,1742) = - lu(k,436) * lu(k,1727) - lu(k,1744) = lu(k,1744) - lu(k,437) * lu(k,1727) - lu(k,1745) = - lu(k,438) * lu(k,1727) - lu(k,1748) = lu(k,1748) - lu(k,439) * lu(k,1727) - lu(k,1752) = lu(k,1752) - lu(k,440) * lu(k,1727) - lu(k,1754) = lu(k,1754) - lu(k,441) * lu(k,1727) - lu(k,1755) = lu(k,1755) - lu(k,442) * lu(k,1727) - lu(k,1757) = lu(k,1757) - lu(k,443) * lu(k,1727) - lu(k,1760) = lu(k,1760) - lu(k,444) * lu(k,1727) - lu(k,1763) = lu(k,1763) - lu(k,445) * lu(k,1727) - lu(k,451) = 1._r8 / lu(k,451) - lu(k,452) = lu(k,452) * lu(k,451) - lu(k,453) = lu(k,453) * lu(k,451) - lu(k,454) = lu(k,454) * lu(k,451) - lu(k,455) = lu(k,455) * lu(k,451) - lu(k,456) = lu(k,456) * lu(k,451) - lu(k,457) = lu(k,457) * lu(k,451) - lu(k,458) = lu(k,458) * lu(k,451) - lu(k,459) = lu(k,459) * lu(k,451) - lu(k,460) = lu(k,460) * lu(k,451) - lu(k,461) = lu(k,461) * lu(k,451) - lu(k,462) = lu(k,462) * lu(k,451) - lu(k,463) = lu(k,463) * lu(k,451) - lu(k,464) = lu(k,464) * lu(k,451) - lu(k,465) = lu(k,465) * lu(k,451) - lu(k,466) = lu(k,466) * lu(k,451) - lu(k,467) = lu(k,467) * lu(k,451) - lu(k,468) = lu(k,468) * lu(k,451) - lu(k,535) = lu(k,535) - lu(k,452) * lu(k,534) - lu(k,536) = lu(k,536) - lu(k,453) * lu(k,534) - lu(k,537) = lu(k,537) - lu(k,454) * lu(k,534) - lu(k,538) = lu(k,538) - lu(k,455) * lu(k,534) - lu(k,540) = lu(k,540) - lu(k,456) * lu(k,534) - lu(k,541) = lu(k,541) - lu(k,457) * lu(k,534) - lu(k,542) = lu(k,542) - lu(k,458) * lu(k,534) - lu(k,543) = lu(k,543) - lu(k,459) * lu(k,534) - lu(k,544) = lu(k,544) - lu(k,460) * lu(k,534) - lu(k,545) = lu(k,545) - lu(k,461) * lu(k,534) - lu(k,546) = lu(k,546) - lu(k,462) * lu(k,534) - lu(k,547) = lu(k,547) - lu(k,463) * lu(k,534) - lu(k,548) = lu(k,548) - lu(k,464) * lu(k,534) - lu(k,551) = lu(k,551) - lu(k,465) * lu(k,534) - lu(k,552) = lu(k,552) - lu(k,466) * lu(k,534) - lu(k,553) = lu(k,553) - lu(k,467) * lu(k,534) - lu(k,554) = lu(k,554) - lu(k,468) * lu(k,534) - lu(k,566) = lu(k,566) - lu(k,452) * lu(k,565) - lu(k,567) = lu(k,567) - lu(k,453) * lu(k,565) - lu(k,568) = lu(k,568) - lu(k,454) * lu(k,565) - lu(k,569) = lu(k,569) - lu(k,455) * lu(k,565) - lu(k,572) = lu(k,572) - lu(k,456) * lu(k,565) - lu(k,573) = lu(k,573) - lu(k,457) * lu(k,565) - lu(k,574) = lu(k,574) - lu(k,458) * lu(k,565) - lu(k,575) = lu(k,575) - lu(k,459) * lu(k,565) - lu(k,576) = lu(k,576) - lu(k,460) * lu(k,565) - lu(k,577) = lu(k,577) - lu(k,461) * lu(k,565) - lu(k,580) = lu(k,580) - lu(k,462) * lu(k,565) - lu(k,581) = lu(k,581) - lu(k,463) * lu(k,565) - lu(k,582) = lu(k,582) - lu(k,464) * lu(k,565) - lu(k,585) = lu(k,585) - lu(k,465) * lu(k,565) - lu(k,586) = lu(k,586) - lu(k,466) * lu(k,565) - lu(k,587) = lu(k,587) - lu(k,467) * lu(k,565) - lu(k,588) = lu(k,588) - lu(k,468) * lu(k,565) - lu(k,678) = lu(k,678) - lu(k,452) * lu(k,677) - lu(k,679) = lu(k,679) - lu(k,453) * lu(k,677) - lu(k,680) = lu(k,680) - lu(k,454) * lu(k,677) - lu(k,681) = lu(k,681) - lu(k,455) * lu(k,677) - lu(k,684) = lu(k,684) - lu(k,456) * lu(k,677) - lu(k,686) = lu(k,686) - lu(k,457) * lu(k,677) - lu(k,687) = lu(k,687) - lu(k,458) * lu(k,677) - lu(k,688) = lu(k,688) - lu(k,459) * lu(k,677) - lu(k,689) = lu(k,689) - lu(k,460) * lu(k,677) - lu(k,690) = lu(k,690) - lu(k,461) * lu(k,677) - lu(k,693) = lu(k,693) - lu(k,462) * lu(k,677) - lu(k,694) = lu(k,694) - lu(k,463) * lu(k,677) - lu(k,695) = lu(k,695) - lu(k,464) * lu(k,677) - lu(k,698) = lu(k,698) - lu(k,465) * lu(k,677) - lu(k,699) = lu(k,699) - lu(k,466) * lu(k,677) - lu(k,700) = lu(k,700) - lu(k,467) * lu(k,677) - lu(k,701) = lu(k,701) - lu(k,468) * lu(k,677) - lu(k,746) = lu(k,746) - lu(k,452) * lu(k,745) - lu(k,747) = lu(k,747) - lu(k,453) * lu(k,745) - lu(k,748) = lu(k,748) - lu(k,454) * lu(k,745) - lu(k,749) = lu(k,749) - lu(k,455) * lu(k,745) - lu(k,753) = lu(k,753) - lu(k,456) * lu(k,745) - lu(k,755) = lu(k,755) - lu(k,457) * lu(k,745) - lu(k,756) = lu(k,756) - lu(k,458) * lu(k,745) - lu(k,757) = lu(k,757) - lu(k,459) * lu(k,745) - lu(k,758) = lu(k,758) - lu(k,460) * lu(k,745) - lu(k,759) = lu(k,759) - lu(k,461) * lu(k,745) - lu(k,762) = lu(k,762) - lu(k,462) * lu(k,745) - lu(k,763) = lu(k,763) - lu(k,463) * lu(k,745) - lu(k,764) = lu(k,764) - lu(k,464) * lu(k,745) - lu(k,767) = lu(k,767) - lu(k,465) * lu(k,745) - lu(k,768) = lu(k,768) - lu(k,466) * lu(k,745) - lu(k,769) = lu(k,769) - lu(k,467) * lu(k,745) - lu(k,770) = lu(k,770) - lu(k,468) * lu(k,745) - lu(k,989) = lu(k,989) - lu(k,452) * lu(k,986) - lu(k,990) = lu(k,990) - lu(k,453) * lu(k,986) - lu(k,993) = lu(k,993) - lu(k,454) * lu(k,986) - lu(k,995) = lu(k,995) - lu(k,455) * lu(k,986) - lu(k,1001) = lu(k,1001) - lu(k,456) * lu(k,986) - lu(k,1003) = lu(k,1003) - lu(k,457) * lu(k,986) - lu(k,1004) = - lu(k,458) * lu(k,986) - lu(k,1005) = - lu(k,459) * lu(k,986) - lu(k,1006) = lu(k,1006) - lu(k,460) * lu(k,986) - lu(k,1007) = lu(k,1007) - lu(k,461) * lu(k,986) - lu(k,1010) = lu(k,1010) - lu(k,462) * lu(k,986) - lu(k,1011) = lu(k,1011) - lu(k,463) * lu(k,986) - lu(k,1013) = lu(k,1013) - lu(k,464) * lu(k,986) - lu(k,1017) = lu(k,1017) - lu(k,465) * lu(k,986) - lu(k,1018) = lu(k,1018) - lu(k,466) * lu(k,986) - lu(k,1019) = lu(k,1019) - lu(k,467) * lu(k,986) - lu(k,1020) = lu(k,1020) - lu(k,468) * lu(k,986) - lu(k,1116) = lu(k,1116) - lu(k,452) * lu(k,1115) - lu(k,1117) = lu(k,1117) - lu(k,453) * lu(k,1115) - lu(k,1121) = lu(k,1121) - lu(k,454) * lu(k,1115) - lu(k,1123) = lu(k,1123) - lu(k,455) * lu(k,1115) - lu(k,1129) = lu(k,1129) - lu(k,456) * lu(k,1115) - lu(k,1131) = lu(k,1131) - lu(k,457) * lu(k,1115) - lu(k,1132) = lu(k,1132) - lu(k,458) * lu(k,1115) - lu(k,1133) = lu(k,1133) - lu(k,459) * lu(k,1115) - lu(k,1134) = lu(k,1134) - lu(k,460) * lu(k,1115) - lu(k,1135) = lu(k,1135) - lu(k,461) * lu(k,1115) - lu(k,1138) = lu(k,1138) - lu(k,462) * lu(k,1115) - lu(k,1139) = lu(k,1139) - lu(k,463) * lu(k,1115) - lu(k,1141) = lu(k,1141) - lu(k,464) * lu(k,1115) - lu(k,1145) = lu(k,1145) - lu(k,465) * lu(k,1115) - lu(k,1146) = lu(k,1146) - lu(k,466) * lu(k,1115) - lu(k,1147) = lu(k,1147) - lu(k,467) * lu(k,1115) - lu(k,1148) = lu(k,1148) - lu(k,468) * lu(k,1115) - lu(k,1212) = lu(k,1212) - lu(k,452) * lu(k,1211) - lu(k,1213) = lu(k,1213) - lu(k,453) * lu(k,1211) - lu(k,1217) = lu(k,1217) - lu(k,454) * lu(k,1211) - lu(k,1219) = lu(k,1219) - lu(k,455) * lu(k,1211) - lu(k,1225) = lu(k,1225) - lu(k,456) * lu(k,1211) - lu(k,1227) = lu(k,1227) - lu(k,457) * lu(k,1211) - lu(k,1228) = lu(k,1228) - lu(k,458) * lu(k,1211) - lu(k,1229) = lu(k,1229) - lu(k,459) * lu(k,1211) - lu(k,1230) = lu(k,1230) - lu(k,460) * lu(k,1211) - lu(k,1231) = lu(k,1231) - lu(k,461) * lu(k,1211) - lu(k,1234) = lu(k,1234) - lu(k,462) * lu(k,1211) - lu(k,1235) = lu(k,1235) - lu(k,463) * lu(k,1211) - lu(k,1237) = lu(k,1237) - lu(k,464) * lu(k,1211) - lu(k,1241) = lu(k,1241) - lu(k,465) * lu(k,1211) - lu(k,1242) = lu(k,1242) - lu(k,466) * lu(k,1211) - lu(k,1243) = lu(k,1243) - lu(k,467) * lu(k,1211) - lu(k,1244) = lu(k,1244) - lu(k,468) * lu(k,1211) - lu(k,1251) = lu(k,1251) - lu(k,452) * lu(k,1250) - lu(k,1252) = lu(k,1252) - lu(k,453) * lu(k,1250) - lu(k,1255) = lu(k,1255) - lu(k,454) * lu(k,1250) - lu(k,1257) = lu(k,1257) - lu(k,455) * lu(k,1250) - lu(k,1263) = lu(k,1263) - lu(k,456) * lu(k,1250) - lu(k,1265) = lu(k,1265) - lu(k,457) * lu(k,1250) - lu(k,1266) = - lu(k,458) * lu(k,1250) - lu(k,1267) = - lu(k,459) * lu(k,1250) - lu(k,1268) = lu(k,1268) - lu(k,460) * lu(k,1250) - lu(k,1269) = lu(k,1269) - lu(k,461) * lu(k,1250) - lu(k,1272) = lu(k,1272) - lu(k,462) * lu(k,1250) - lu(k,1273) = lu(k,1273) - lu(k,463) * lu(k,1250) - lu(k,1275) = lu(k,1275) - lu(k,464) * lu(k,1250) - lu(k,1279) = lu(k,1279) - lu(k,465) * lu(k,1250) - lu(k,1280) = lu(k,1280) - lu(k,466) * lu(k,1250) - lu(k,1281) = lu(k,1281) - lu(k,467) * lu(k,1250) - lu(k,1282) = lu(k,1282) - lu(k,468) * lu(k,1250) - lu(k,1374) = lu(k,1374) - lu(k,452) * lu(k,1373) - lu(k,1375) = lu(k,1375) - lu(k,453) * lu(k,1373) - lu(k,1379) = lu(k,1379) - lu(k,454) * lu(k,1373) - lu(k,1381) = lu(k,1381) - lu(k,455) * lu(k,1373) - lu(k,1387) = lu(k,1387) - lu(k,456) * lu(k,1373) - lu(k,1389) = lu(k,1389) - lu(k,457) * lu(k,1373) - lu(k,1390) = lu(k,1390) - lu(k,458) * lu(k,1373) - lu(k,1391) = lu(k,1391) - lu(k,459) * lu(k,1373) - lu(k,1392) = lu(k,1392) - lu(k,460) * lu(k,1373) - lu(k,1393) = lu(k,1393) - lu(k,461) * lu(k,1373) - lu(k,1396) = lu(k,1396) - lu(k,462) * lu(k,1373) - lu(k,1397) = lu(k,1397) - lu(k,463) * lu(k,1373) - lu(k,1399) = lu(k,1399) - lu(k,464) * lu(k,1373) - lu(k,1403) = lu(k,1403) - lu(k,465) * lu(k,1373) - lu(k,1404) = lu(k,1404) - lu(k,466) * lu(k,1373) - lu(k,1405) = lu(k,1405) - lu(k,467) * lu(k,1373) - lu(k,1406) = lu(k,1406) - lu(k,468) * lu(k,1373) - lu(k,1495) = lu(k,1495) - lu(k,452) * lu(k,1494) - lu(k,1496) = lu(k,1496) - lu(k,453) * lu(k,1494) - lu(k,1500) = lu(k,1500) - lu(k,454) * lu(k,1494) - lu(k,1502) = lu(k,1502) - lu(k,455) * lu(k,1494) - lu(k,1508) = lu(k,1508) - lu(k,456) * lu(k,1494) - lu(k,1510) = lu(k,1510) - lu(k,457) * lu(k,1494) - lu(k,1511) = lu(k,1511) - lu(k,458) * lu(k,1494) - lu(k,1512) = lu(k,1512) - lu(k,459) * lu(k,1494) - lu(k,1513) = lu(k,1513) - lu(k,460) * lu(k,1494) - lu(k,1514) = lu(k,1514) - lu(k,461) * lu(k,1494) - lu(k,1517) = lu(k,1517) - lu(k,462) * lu(k,1494) - lu(k,1518) = lu(k,1518) - lu(k,463) * lu(k,1494) - lu(k,1520) = lu(k,1520) - lu(k,464) * lu(k,1494) - lu(k,1524) = lu(k,1524) - lu(k,465) * lu(k,1494) - lu(k,1525) = lu(k,1525) - lu(k,466) * lu(k,1494) - lu(k,1526) = lu(k,1526) - lu(k,467) * lu(k,1494) - lu(k,1527) = lu(k,1527) - lu(k,468) * lu(k,1494) - lu(k,1732) = lu(k,1732) - lu(k,452) * lu(k,1728) - lu(k,1733) = lu(k,1733) - lu(k,453) * lu(k,1728) - lu(k,1736) = lu(k,1736) - lu(k,454) * lu(k,1728) - lu(k,1738) = lu(k,1738) - lu(k,455) * lu(k,1728) - lu(k,1744) = lu(k,1744) - lu(k,456) * lu(k,1728) - lu(k,1746) = lu(k,1746) - lu(k,457) * lu(k,1728) - lu(k,1747) = lu(k,1747) - lu(k,458) * lu(k,1728) - lu(k,1748) = lu(k,1748) - lu(k,459) * lu(k,1728) - lu(k,1749) = lu(k,1749) - lu(k,460) * lu(k,1728) - lu(k,1750) = lu(k,1750) - lu(k,461) * lu(k,1728) - lu(k,1753) = lu(k,1753) - lu(k,462) * lu(k,1728) - lu(k,1754) = lu(k,1754) - lu(k,463) * lu(k,1728) - lu(k,1756) = lu(k,1756) - lu(k,464) * lu(k,1728) - lu(k,1760) = lu(k,1760) - lu(k,465) * lu(k,1728) - lu(k,1761) = lu(k,1761) - lu(k,466) * lu(k,1728) - lu(k,1762) = lu(k,1762) - lu(k,467) * lu(k,1728) - lu(k,1763) = lu(k,1763) - lu(k,468) * lu(k,1728) - lu(k,471) = 1._r8 / lu(k,471) - lu(k,472) = lu(k,472) * lu(k,471) - lu(k,473) = lu(k,473) * lu(k,471) - lu(k,474) = lu(k,474) * lu(k,471) - lu(k,475) = lu(k,475) * lu(k,471) - lu(k,476) = lu(k,476) * lu(k,471) - lu(k,477) = lu(k,477) * lu(k,471) - lu(k,478) = lu(k,478) * lu(k,471) - lu(k,479) = lu(k,479) * lu(k,471) - lu(k,480) = lu(k,480) * lu(k,471) - lu(k,481) = lu(k,481) * lu(k,471) - lu(k,482) = lu(k,482) * lu(k,471) - lu(k,483) = lu(k,483) * lu(k,471) - lu(k,484) = lu(k,484) * lu(k,471) - lu(k,485) = lu(k,485) * lu(k,471) - lu(k,486) = lu(k,486) * lu(k,471) - lu(k,487) = lu(k,487) * lu(k,471) - lu(k,488) = lu(k,488) * lu(k,471) - lu(k,513) = lu(k,513) - lu(k,472) * lu(k,512) - lu(k,514) = lu(k,514) - lu(k,473) * lu(k,512) - lu(k,515) = lu(k,515) - lu(k,474) * lu(k,512) - lu(k,516) = lu(k,516) - lu(k,475) * lu(k,512) - lu(k,517) = lu(k,517) - lu(k,476) * lu(k,512) - lu(k,518) = lu(k,518) - lu(k,477) * lu(k,512) - lu(k,519) = lu(k,519) - lu(k,478) * lu(k,512) - lu(k,520) = lu(k,520) - lu(k,479) * lu(k,512) - lu(k,521) = lu(k,521) - lu(k,480) * lu(k,512) - lu(k,522) = lu(k,522) - lu(k,481) * lu(k,512) - lu(k,523) = lu(k,523) - lu(k,482) * lu(k,512) - lu(k,524) = lu(k,524) - lu(k,483) * lu(k,512) - lu(k,525) = lu(k,525) - lu(k,484) * lu(k,512) - lu(k,526) = lu(k,526) - lu(k,485) * lu(k,512) - lu(k,527) = lu(k,527) - lu(k,486) * lu(k,512) - lu(k,528) = lu(k,528) - lu(k,487) * lu(k,512) - lu(k,529) = lu(k,529) - lu(k,488) * lu(k,512) - lu(k,815) = lu(k,815) - lu(k,472) * lu(k,813) - lu(k,818) = lu(k,818) - lu(k,473) * lu(k,813) - lu(k,823) = lu(k,823) - lu(k,474) * lu(k,813) - lu(k,824) = lu(k,824) - lu(k,475) * lu(k,813) - lu(k,825) = lu(k,825) - lu(k,476) * lu(k,813) - lu(k,827) = lu(k,827) - lu(k,477) * lu(k,813) - lu(k,828) = lu(k,828) - lu(k,478) * lu(k,813) - lu(k,831) = lu(k,831) - lu(k,479) * lu(k,813) - lu(k,832) = lu(k,832) - lu(k,480) * lu(k,813) - lu(k,835) = lu(k,835) - lu(k,481) * lu(k,813) - lu(k,837) = lu(k,837) - lu(k,482) * lu(k,813) - lu(k,838) = lu(k,838) - lu(k,483) * lu(k,813) - lu(k,840) = lu(k,840) - lu(k,484) * lu(k,813) - lu(k,843) = lu(k,843) - lu(k,485) * lu(k,813) - lu(k,844) = lu(k,844) - lu(k,486) * lu(k,813) - lu(k,845) = lu(k,845) - lu(k,487) * lu(k,813) - lu(k,846) = lu(k,846) - lu(k,488) * lu(k,813) - lu(k,860) = lu(k,860) - lu(k,472) * lu(k,858) - lu(k,864) = lu(k,864) - lu(k,473) * lu(k,858) - lu(k,869) = lu(k,869) - lu(k,474) * lu(k,858) - lu(k,870) = lu(k,870) - lu(k,475) * lu(k,858) - lu(k,871) = lu(k,871) - lu(k,476) * lu(k,858) - lu(k,873) = lu(k,873) - lu(k,477) * lu(k,858) - lu(k,874) = lu(k,874) - lu(k,478) * lu(k,858) - lu(k,877) = lu(k,877) - lu(k,479) * lu(k,858) - lu(k,878) = lu(k,878) - lu(k,480) * lu(k,858) - lu(k,881) = lu(k,881) - lu(k,481) * lu(k,858) - lu(k,883) = lu(k,883) - lu(k,482) * lu(k,858) - lu(k,884) = lu(k,884) - lu(k,483) * lu(k,858) - lu(k,886) = lu(k,886) - lu(k,484) * lu(k,858) - lu(k,889) = lu(k,889) - lu(k,485) * lu(k,858) - lu(k,890) = lu(k,890) - lu(k,486) * lu(k,858) - lu(k,891) = lu(k,891) - lu(k,487) * lu(k,858) - lu(k,892) = lu(k,892) - lu(k,488) * lu(k,858) - lu(k,904) = lu(k,904) - lu(k,472) * lu(k,902) - lu(k,907) = lu(k,907) - lu(k,473) * lu(k,902) - lu(k,912) = lu(k,912) - lu(k,474) * lu(k,902) - lu(k,913) = lu(k,913) - lu(k,475) * lu(k,902) - lu(k,914) = lu(k,914) - lu(k,476) * lu(k,902) - lu(k,916) = lu(k,916) - lu(k,477) * lu(k,902) - lu(k,917) = lu(k,917) - lu(k,478) * lu(k,902) - lu(k,920) = lu(k,920) - lu(k,479) * lu(k,902) - lu(k,921) = lu(k,921) - lu(k,480) * lu(k,902) - lu(k,924) = lu(k,924) - lu(k,481) * lu(k,902) - lu(k,926) = lu(k,926) - lu(k,482) * lu(k,902) - lu(k,927) = lu(k,927) - lu(k,483) * lu(k,902) - lu(k,929) = lu(k,929) - lu(k,484) * lu(k,902) - lu(k,932) = lu(k,932) - lu(k,485) * lu(k,902) - lu(k,933) = lu(k,933) - lu(k,486) * lu(k,902) - lu(k,934) = lu(k,934) - lu(k,487) * lu(k,902) - lu(k,935) = lu(k,935) - lu(k,488) * lu(k,902) - lu(k,1031) = lu(k,1031) - lu(k,472) * lu(k,1029) - lu(k,1034) = lu(k,1034) - lu(k,473) * lu(k,1029) - lu(k,1039) = lu(k,1039) - lu(k,474) * lu(k,1029) - lu(k,1040) = lu(k,1040) - lu(k,475) * lu(k,1029) - lu(k,1041) = lu(k,1041) - lu(k,476) * lu(k,1029) - lu(k,1043) = lu(k,1043) - lu(k,477) * lu(k,1029) - lu(k,1044) = lu(k,1044) - lu(k,478) * lu(k,1029) - lu(k,1047) = lu(k,1047) - lu(k,479) * lu(k,1029) - lu(k,1048) = lu(k,1048) - lu(k,480) * lu(k,1029) - lu(k,1051) = lu(k,1051) - lu(k,481) * lu(k,1029) - lu(k,1053) = lu(k,1053) - lu(k,482) * lu(k,1029) - lu(k,1054) = lu(k,1054) - lu(k,483) * lu(k,1029) - lu(k,1056) = lu(k,1056) - lu(k,484) * lu(k,1029) - lu(k,1059) = lu(k,1059) - lu(k,485) * lu(k,1029) - lu(k,1060) = lu(k,1060) - lu(k,486) * lu(k,1029) - lu(k,1061) = lu(k,1061) - lu(k,487) * lu(k,1029) - lu(k,1062) = lu(k,1062) - lu(k,488) * lu(k,1029) - lu(k,1331) = lu(k,1331) - lu(k,472) * lu(k,1329) - lu(k,1335) = lu(k,1335) - lu(k,473) * lu(k,1329) - lu(k,1340) = lu(k,1340) - lu(k,474) * lu(k,1329) - lu(k,1341) = lu(k,1341) - lu(k,475) * lu(k,1329) - lu(k,1342) = lu(k,1342) - lu(k,476) * lu(k,1329) - lu(k,1344) = lu(k,1344) - lu(k,477) * lu(k,1329) - lu(k,1345) = lu(k,1345) - lu(k,478) * lu(k,1329) - lu(k,1348) = lu(k,1348) - lu(k,479) * lu(k,1329) - lu(k,1349) = lu(k,1349) - lu(k,480) * lu(k,1329) - lu(k,1352) = lu(k,1352) - lu(k,481) * lu(k,1329) - lu(k,1354) = lu(k,1354) - lu(k,482) * lu(k,1329) - lu(k,1355) = lu(k,1355) - lu(k,483) * lu(k,1329) - lu(k,1357) = lu(k,1357) - lu(k,484) * lu(k,1329) - lu(k,1360) = lu(k,1360) - lu(k,485) * lu(k,1329) - lu(k,1361) = lu(k,1361) - lu(k,486) * lu(k,1329) - lu(k,1362) = lu(k,1362) - lu(k,487) * lu(k,1329) - lu(k,1363) = lu(k,1363) - lu(k,488) * lu(k,1329) - lu(k,1411) = lu(k,1411) - lu(k,472) * lu(k,1410) - lu(k,1414) = lu(k,1414) - lu(k,473) * lu(k,1410) - lu(k,1418) = lu(k,1418) - lu(k,474) * lu(k,1410) - lu(k,1419) = lu(k,1419) - lu(k,475) * lu(k,1410) - lu(k,1420) = lu(k,1420) - lu(k,476) * lu(k,1410) - lu(k,1422) = lu(k,1422) - lu(k,477) * lu(k,1410) - lu(k,1423) = lu(k,1423) - lu(k,478) * lu(k,1410) - lu(k,1426) = lu(k,1426) - lu(k,479) * lu(k,1410) - lu(k,1427) = lu(k,1427) - lu(k,480) * lu(k,1410) - lu(k,1430) = lu(k,1430) - lu(k,481) * lu(k,1410) - lu(k,1432) = lu(k,1432) - lu(k,482) * lu(k,1410) - lu(k,1433) = lu(k,1433) - lu(k,483) * lu(k,1410) - lu(k,1435) = lu(k,1435) - lu(k,484) * lu(k,1410) - lu(k,1438) = lu(k,1438) - lu(k,485) * lu(k,1410) - lu(k,1439) = lu(k,1439) - lu(k,486) * lu(k,1410) - lu(k,1440) = lu(k,1440) - lu(k,487) * lu(k,1410) - lu(k,1441) = lu(k,1441) - lu(k,488) * lu(k,1410) - lu(k,1453) = lu(k,1453) - lu(k,472) * lu(k,1451) - lu(k,1456) = lu(k,1456) - lu(k,473) * lu(k,1451) - lu(k,1461) = lu(k,1461) - lu(k,474) * lu(k,1451) - lu(k,1462) = lu(k,1462) - lu(k,475) * lu(k,1451) - lu(k,1463) = lu(k,1463) - lu(k,476) * lu(k,1451) - lu(k,1465) = lu(k,1465) - lu(k,477) * lu(k,1451) - lu(k,1466) = lu(k,1466) - lu(k,478) * lu(k,1451) - lu(k,1469) = lu(k,1469) - lu(k,479) * lu(k,1451) - lu(k,1470) = lu(k,1470) - lu(k,480) * lu(k,1451) - lu(k,1473) = lu(k,1473) - lu(k,481) * lu(k,1451) - lu(k,1475) = lu(k,1475) - lu(k,482) * lu(k,1451) - lu(k,1476) = lu(k,1476) - lu(k,483) * lu(k,1451) - lu(k,1478) = lu(k,1478) - lu(k,484) * lu(k,1451) - lu(k,1481) = lu(k,1481) - lu(k,485) * lu(k,1451) - lu(k,1482) = lu(k,1482) - lu(k,486) * lu(k,1451) - lu(k,1483) = lu(k,1483) - lu(k,487) * lu(k,1451) - lu(k,1484) = lu(k,1484) - lu(k,488) * lu(k,1451) - lu(k,1539) = lu(k,1539) - lu(k,472) * lu(k,1537) - lu(k,1542) = lu(k,1542) - lu(k,473) * lu(k,1537) - lu(k,1547) = lu(k,1547) - lu(k,474) * lu(k,1537) - lu(k,1548) = lu(k,1548) - lu(k,475) * lu(k,1537) - lu(k,1549) = lu(k,1549) - lu(k,476) * lu(k,1537) - lu(k,1551) = lu(k,1551) - lu(k,477) * lu(k,1537) - lu(k,1552) = lu(k,1552) - lu(k,478) * lu(k,1537) - lu(k,1555) = lu(k,1555) - lu(k,479) * lu(k,1537) - lu(k,1556) = lu(k,1556) - lu(k,480) * lu(k,1537) - lu(k,1559) = lu(k,1559) - lu(k,481) * lu(k,1537) - lu(k,1561) = lu(k,1561) - lu(k,482) * lu(k,1537) - lu(k,1562) = lu(k,1562) - lu(k,483) * lu(k,1537) - lu(k,1564) = lu(k,1564) - lu(k,484) * lu(k,1537) - lu(k,1567) = lu(k,1567) - lu(k,485) * lu(k,1537) - lu(k,1568) = lu(k,1568) - lu(k,486) * lu(k,1537) - lu(k,1569) = lu(k,1569) - lu(k,487) * lu(k,1537) - lu(k,1570) = lu(k,1570) - lu(k,488) * lu(k,1537) - lu(k,1731) = lu(k,1731) - lu(k,472) * lu(k,1729) - lu(k,1735) = lu(k,1735) - lu(k,473) * lu(k,1729) - lu(k,1740) = lu(k,1740) - lu(k,474) * lu(k,1729) - lu(k,1741) = lu(k,1741) - lu(k,475) * lu(k,1729) - lu(k,1742) = lu(k,1742) - lu(k,476) * lu(k,1729) - lu(k,1744) = lu(k,1744) - lu(k,477) * lu(k,1729) - lu(k,1745) = lu(k,1745) - lu(k,478) * lu(k,1729) - lu(k,1748) = lu(k,1748) - lu(k,479) * lu(k,1729) - lu(k,1749) = lu(k,1749) - lu(k,480) * lu(k,1729) - lu(k,1752) = lu(k,1752) - lu(k,481) * lu(k,1729) - lu(k,1754) = lu(k,1754) - lu(k,482) * lu(k,1729) - lu(k,1755) = lu(k,1755) - lu(k,483) * lu(k,1729) - lu(k,1757) = lu(k,1757) - lu(k,484) * lu(k,1729) - lu(k,1760) = lu(k,1760) - lu(k,485) * lu(k,1729) - lu(k,1761) = lu(k,1761) - lu(k,486) * lu(k,1729) - lu(k,1762) = lu(k,1762) - lu(k,487) * lu(k,1729) - lu(k,1763) = lu(k,1763) - lu(k,488) * lu(k,1729) - lu(k,1784) = lu(k,1784) - lu(k,472) * lu(k,1782) - lu(k,1788) = lu(k,1788) - lu(k,473) * lu(k,1782) - lu(k,1793) = lu(k,1793) - lu(k,474) * lu(k,1782) - lu(k,1794) = lu(k,1794) - lu(k,475) * lu(k,1782) - lu(k,1795) = lu(k,1795) - lu(k,476) * lu(k,1782) - lu(k,1797) = lu(k,1797) - lu(k,477) * lu(k,1782) - lu(k,1798) = lu(k,1798) - lu(k,478) * lu(k,1782) - lu(k,1801) = lu(k,1801) - lu(k,479) * lu(k,1782) - lu(k,1802) = lu(k,1802) - lu(k,480) * lu(k,1782) - lu(k,1805) = lu(k,1805) - lu(k,481) * lu(k,1782) - lu(k,1807) = lu(k,1807) - lu(k,482) * lu(k,1782) - lu(k,1808) = lu(k,1808) - lu(k,483) * lu(k,1782) - lu(k,1810) = lu(k,1810) - lu(k,484) * lu(k,1782) - lu(k,1813) = lu(k,1813) - lu(k,485) * lu(k,1782) - lu(k,1814) = lu(k,1814) - lu(k,486) * lu(k,1782) - lu(k,1815) = lu(k,1815) - lu(k,487) * lu(k,1782) - lu(k,1816) = lu(k,1816) - lu(k,488) * lu(k,1782) - 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,491) = 1._r8 / lu(k,491) - lu(k,492) = lu(k,492) * lu(k,491) - lu(k,493) = lu(k,493) * lu(k,491) - lu(k,494) = lu(k,494) * lu(k,491) - lu(k,495) = lu(k,495) * lu(k,491) - lu(k,496) = lu(k,496) * lu(k,491) - lu(k,497) = lu(k,497) * lu(k,491) - lu(k,498) = lu(k,498) * lu(k,491) - lu(k,499) = lu(k,499) * lu(k,491) - lu(k,500) = lu(k,500) * lu(k,491) - lu(k,501) = lu(k,501) * lu(k,491) - lu(k,502) = lu(k,502) * lu(k,491) - lu(k,503) = lu(k,503) * lu(k,491) - lu(k,504) = lu(k,504) * lu(k,491) - lu(k,505) = lu(k,505) * lu(k,491) - lu(k,506) = lu(k,506) * lu(k,491) - lu(k,507) = lu(k,507) * lu(k,491) - lu(k,508) = lu(k,508) * lu(k,491) - lu(k,509) = lu(k,509) * lu(k,491) - lu(k,774) = - lu(k,492) * lu(k,773) - lu(k,776) = lu(k,776) - lu(k,493) * lu(k,773) - lu(k,777) = lu(k,777) - lu(k,494) * lu(k,773) - lu(k,779) = lu(k,779) - lu(k,495) * lu(k,773) - lu(k,780) = lu(k,780) - lu(k,496) * lu(k,773) - lu(k,781) = lu(k,781) - lu(k,497) * lu(k,773) - lu(k,782) = lu(k,782) - lu(k,498) * lu(k,773) - lu(k,784) = lu(k,784) - lu(k,499) * lu(k,773) - lu(k,785) = lu(k,785) - lu(k,500) * lu(k,773) - lu(k,786) = lu(k,786) - lu(k,501) * lu(k,773) - lu(k,789) = lu(k,789) - lu(k,502) * lu(k,773) - lu(k,792) = lu(k,792) - lu(k,503) * lu(k,773) - lu(k,795) = lu(k,795) - lu(k,504) * lu(k,773) - lu(k,797) = lu(k,797) - lu(k,505) * lu(k,773) - lu(k,800) = lu(k,800) - lu(k,506) * lu(k,773) - lu(k,801) = lu(k,801) - lu(k,507) * lu(k,773) - lu(k,802) = lu(k,802) - lu(k,508) * lu(k,773) - lu(k,803) = lu(k,803) - lu(k,509) * lu(k,773) - lu(k,815) = lu(k,815) - lu(k,492) * lu(k,814) - lu(k,818) = lu(k,818) - lu(k,493) * lu(k,814) - lu(k,820) = lu(k,820) - lu(k,494) * lu(k,814) - lu(k,822) = lu(k,822) - lu(k,495) * lu(k,814) - lu(k,823) = lu(k,823) - lu(k,496) * lu(k,814) - lu(k,824) = lu(k,824) - lu(k,497) * lu(k,814) - lu(k,825) = lu(k,825) - lu(k,498) * lu(k,814) - lu(k,827) = lu(k,827) - lu(k,499) * lu(k,814) - lu(k,828) = lu(k,828) - lu(k,500) * lu(k,814) - lu(k,829) = lu(k,829) - lu(k,501) * lu(k,814) - lu(k,832) = lu(k,832) - lu(k,502) * lu(k,814) - lu(k,835) = lu(k,835) - lu(k,503) * lu(k,814) - lu(k,838) = lu(k,838) - lu(k,504) * lu(k,814) - lu(k,840) = lu(k,840) - lu(k,505) * lu(k,814) - lu(k,843) = lu(k,843) - lu(k,506) * lu(k,814) - lu(k,844) = lu(k,844) - lu(k,507) * lu(k,814) - lu(k,845) = lu(k,845) - lu(k,508) * lu(k,814) - lu(k,846) = lu(k,846) - lu(k,509) * lu(k,814) - lu(k,860) = lu(k,860) - lu(k,492) * lu(k,859) - lu(k,864) = lu(k,864) - lu(k,493) * lu(k,859) - lu(k,866) = lu(k,866) - lu(k,494) * lu(k,859) - lu(k,868) = lu(k,868) - lu(k,495) * lu(k,859) - lu(k,869) = lu(k,869) - lu(k,496) * lu(k,859) - lu(k,870) = lu(k,870) - lu(k,497) * lu(k,859) - lu(k,871) = lu(k,871) - lu(k,498) * lu(k,859) - lu(k,873) = lu(k,873) - lu(k,499) * lu(k,859) - lu(k,874) = lu(k,874) - lu(k,500) * lu(k,859) - lu(k,875) = lu(k,875) - lu(k,501) * lu(k,859) - lu(k,878) = lu(k,878) - lu(k,502) * lu(k,859) - lu(k,881) = lu(k,881) - lu(k,503) * lu(k,859) - lu(k,884) = lu(k,884) - lu(k,504) * lu(k,859) - lu(k,886) = lu(k,886) - lu(k,505) * lu(k,859) - lu(k,889) = lu(k,889) - lu(k,506) * lu(k,859) - lu(k,890) = lu(k,890) - lu(k,507) * lu(k,859) - lu(k,891) = lu(k,891) - lu(k,508) * lu(k,859) - lu(k,892) = lu(k,892) - lu(k,509) * lu(k,859) - lu(k,904) = lu(k,904) - lu(k,492) * lu(k,903) - lu(k,907) = lu(k,907) - lu(k,493) * lu(k,903) - lu(k,909) = lu(k,909) - lu(k,494) * lu(k,903) - lu(k,911) = lu(k,911) - lu(k,495) * lu(k,903) - lu(k,912) = lu(k,912) - lu(k,496) * lu(k,903) - lu(k,913) = lu(k,913) - lu(k,497) * lu(k,903) - lu(k,914) = lu(k,914) - lu(k,498) * lu(k,903) - lu(k,916) = lu(k,916) - lu(k,499) * lu(k,903) - lu(k,917) = lu(k,917) - lu(k,500) * lu(k,903) - lu(k,918) = lu(k,918) - lu(k,501) * lu(k,903) - lu(k,921) = lu(k,921) - lu(k,502) * lu(k,903) - lu(k,924) = lu(k,924) - lu(k,503) * lu(k,903) - lu(k,927) = lu(k,927) - lu(k,504) * lu(k,903) - lu(k,929) = lu(k,929) - lu(k,505) * lu(k,903) - lu(k,932) = lu(k,932) - lu(k,506) * lu(k,903) - lu(k,933) = lu(k,933) - lu(k,507) * lu(k,903) - lu(k,934) = lu(k,934) - lu(k,508) * lu(k,903) - lu(k,935) = lu(k,935) - lu(k,509) * lu(k,903) - lu(k,988) = - lu(k,492) * lu(k,987) - lu(k,992) = lu(k,992) - lu(k,493) * lu(k,987) - lu(k,994) = lu(k,994) - lu(k,494) * lu(k,987) - lu(k,996) = lu(k,996) - lu(k,495) * lu(k,987) - lu(k,997) = lu(k,997) - lu(k,496) * lu(k,987) - lu(k,998) = lu(k,998) - lu(k,497) * lu(k,987) - lu(k,999) = lu(k,999) - lu(k,498) * lu(k,987) - lu(k,1001) = lu(k,1001) - lu(k,499) * lu(k,987) - lu(k,1002) = lu(k,1002) - lu(k,500) * lu(k,987) - lu(k,1003) = lu(k,1003) - lu(k,501) * lu(k,987) - lu(k,1006) = lu(k,1006) - lu(k,502) * lu(k,987) - lu(k,1009) = lu(k,1009) - lu(k,503) * lu(k,987) - lu(k,1012) = lu(k,1012) - lu(k,504) * lu(k,987) - lu(k,1014) = lu(k,1014) - lu(k,505) * lu(k,987) - lu(k,1017) = lu(k,1017) - lu(k,506) * lu(k,987) - lu(k,1018) = lu(k,1018) - lu(k,507) * lu(k,987) - lu(k,1019) = lu(k,1019) - lu(k,508) * lu(k,987) - lu(k,1020) = lu(k,1020) - lu(k,509) * lu(k,987) - lu(k,1031) = lu(k,1031) - lu(k,492) * lu(k,1030) - lu(k,1034) = lu(k,1034) - lu(k,493) * lu(k,1030) - lu(k,1036) = lu(k,1036) - lu(k,494) * lu(k,1030) - lu(k,1038) = lu(k,1038) - lu(k,495) * lu(k,1030) - lu(k,1039) = lu(k,1039) - lu(k,496) * lu(k,1030) - lu(k,1040) = lu(k,1040) - lu(k,497) * lu(k,1030) - lu(k,1041) = lu(k,1041) - lu(k,498) * lu(k,1030) - lu(k,1043) = lu(k,1043) - lu(k,499) * lu(k,1030) - lu(k,1044) = lu(k,1044) - lu(k,500) * lu(k,1030) - lu(k,1045) = lu(k,1045) - lu(k,501) * lu(k,1030) - lu(k,1048) = lu(k,1048) - lu(k,502) * lu(k,1030) - lu(k,1051) = lu(k,1051) - lu(k,503) * lu(k,1030) - lu(k,1054) = lu(k,1054) - lu(k,504) * lu(k,1030) - lu(k,1056) = lu(k,1056) - lu(k,505) * lu(k,1030) - lu(k,1059) = lu(k,1059) - lu(k,506) * lu(k,1030) - lu(k,1060) = lu(k,1060) - lu(k,507) * lu(k,1030) - lu(k,1061) = lu(k,1061) - lu(k,508) * lu(k,1030) - lu(k,1062) = lu(k,1062) - lu(k,509) * lu(k,1030) - lu(k,1331) = lu(k,1331) - lu(k,492) * lu(k,1330) - lu(k,1335) = lu(k,1335) - lu(k,493) * lu(k,1330) - lu(k,1337) = lu(k,1337) - lu(k,494) * lu(k,1330) - lu(k,1339) = lu(k,1339) - lu(k,495) * lu(k,1330) - lu(k,1340) = lu(k,1340) - lu(k,496) * lu(k,1330) - lu(k,1341) = lu(k,1341) - lu(k,497) * lu(k,1330) - lu(k,1342) = lu(k,1342) - lu(k,498) * lu(k,1330) - lu(k,1344) = lu(k,1344) - lu(k,499) * lu(k,1330) - lu(k,1345) = lu(k,1345) - lu(k,500) * lu(k,1330) - lu(k,1346) = lu(k,1346) - lu(k,501) * lu(k,1330) - lu(k,1349) = lu(k,1349) - lu(k,502) * lu(k,1330) - lu(k,1352) = lu(k,1352) - lu(k,503) * lu(k,1330) - lu(k,1355) = lu(k,1355) - lu(k,504) * lu(k,1330) - lu(k,1357) = lu(k,1357) - lu(k,505) * lu(k,1330) - lu(k,1360) = lu(k,1360) - lu(k,506) * lu(k,1330) - lu(k,1361) = lu(k,1361) - lu(k,507) * lu(k,1330) - lu(k,1362) = lu(k,1362) - lu(k,508) * lu(k,1330) - lu(k,1363) = lu(k,1363) - lu(k,509) * lu(k,1330) - lu(k,1453) = lu(k,1453) - lu(k,492) * lu(k,1452) - lu(k,1456) = lu(k,1456) - lu(k,493) * lu(k,1452) - lu(k,1458) = lu(k,1458) - lu(k,494) * lu(k,1452) - lu(k,1460) = lu(k,1460) - lu(k,495) * lu(k,1452) - lu(k,1461) = lu(k,1461) - lu(k,496) * lu(k,1452) - lu(k,1462) = lu(k,1462) - lu(k,497) * lu(k,1452) - lu(k,1463) = lu(k,1463) - lu(k,498) * lu(k,1452) - lu(k,1465) = lu(k,1465) - lu(k,499) * lu(k,1452) - lu(k,1466) = lu(k,1466) - lu(k,500) * lu(k,1452) - lu(k,1467) = lu(k,1467) - lu(k,501) * lu(k,1452) - lu(k,1470) = lu(k,1470) - lu(k,502) * lu(k,1452) - lu(k,1473) = lu(k,1473) - lu(k,503) * lu(k,1452) - lu(k,1476) = lu(k,1476) - lu(k,504) * lu(k,1452) - lu(k,1478) = lu(k,1478) - lu(k,505) * lu(k,1452) - lu(k,1481) = lu(k,1481) - lu(k,506) * lu(k,1452) - lu(k,1482) = lu(k,1482) - lu(k,507) * lu(k,1452) - lu(k,1483) = lu(k,1483) - lu(k,508) * lu(k,1452) - lu(k,1484) = lu(k,1484) - lu(k,509) * lu(k,1452) - lu(k,1539) = lu(k,1539) - lu(k,492) * lu(k,1538) - lu(k,1542) = lu(k,1542) - lu(k,493) * lu(k,1538) - lu(k,1544) = lu(k,1544) - lu(k,494) * lu(k,1538) - lu(k,1546) = lu(k,1546) - lu(k,495) * lu(k,1538) - lu(k,1547) = lu(k,1547) - lu(k,496) * lu(k,1538) - lu(k,1548) = lu(k,1548) - lu(k,497) * lu(k,1538) - lu(k,1549) = lu(k,1549) - lu(k,498) * lu(k,1538) - lu(k,1551) = lu(k,1551) - lu(k,499) * lu(k,1538) - lu(k,1552) = lu(k,1552) - lu(k,500) * lu(k,1538) - lu(k,1553) = lu(k,1553) - lu(k,501) * lu(k,1538) - lu(k,1556) = lu(k,1556) - lu(k,502) * lu(k,1538) - lu(k,1559) = lu(k,1559) - lu(k,503) * lu(k,1538) - lu(k,1562) = lu(k,1562) - lu(k,504) * lu(k,1538) - lu(k,1564) = lu(k,1564) - lu(k,505) * lu(k,1538) - lu(k,1567) = lu(k,1567) - lu(k,506) * lu(k,1538) - lu(k,1568) = lu(k,1568) - lu(k,507) * lu(k,1538) - lu(k,1569) = lu(k,1569) - lu(k,508) * lu(k,1538) - lu(k,1570) = lu(k,1570) - lu(k,509) * lu(k,1538) - lu(k,1731) = lu(k,1731) - lu(k,492) * lu(k,1730) - lu(k,1735) = lu(k,1735) - lu(k,493) * lu(k,1730) - lu(k,1737) = lu(k,1737) - lu(k,494) * lu(k,1730) - lu(k,1739) = lu(k,1739) - lu(k,495) * lu(k,1730) - lu(k,1740) = lu(k,1740) - lu(k,496) * lu(k,1730) - lu(k,1741) = lu(k,1741) - lu(k,497) * lu(k,1730) - lu(k,1742) = lu(k,1742) - lu(k,498) * lu(k,1730) - lu(k,1744) = lu(k,1744) - lu(k,499) * lu(k,1730) - lu(k,1745) = lu(k,1745) - lu(k,500) * lu(k,1730) - lu(k,1746) = lu(k,1746) - lu(k,501) * lu(k,1730) - lu(k,1749) = lu(k,1749) - lu(k,502) * lu(k,1730) - lu(k,1752) = lu(k,1752) - lu(k,503) * lu(k,1730) - lu(k,1755) = lu(k,1755) - lu(k,504) * lu(k,1730) - lu(k,1757) = lu(k,1757) - lu(k,505) * lu(k,1730) - lu(k,1760) = lu(k,1760) - lu(k,506) * lu(k,1730) - lu(k,1761) = lu(k,1761) - lu(k,507) * lu(k,1730) - lu(k,1762) = lu(k,1762) - lu(k,508) * lu(k,1730) - lu(k,1763) = lu(k,1763) - lu(k,509) * lu(k,1730) - lu(k,1784) = lu(k,1784) - lu(k,492) * lu(k,1783) - lu(k,1788) = lu(k,1788) - lu(k,493) * lu(k,1783) - lu(k,1790) = lu(k,1790) - lu(k,494) * lu(k,1783) - lu(k,1792) = lu(k,1792) - lu(k,495) * lu(k,1783) - lu(k,1793) = lu(k,1793) - lu(k,496) * lu(k,1783) - lu(k,1794) = lu(k,1794) - lu(k,497) * lu(k,1783) - lu(k,1795) = lu(k,1795) - lu(k,498) * lu(k,1783) - lu(k,1797) = lu(k,1797) - lu(k,499) * lu(k,1783) - lu(k,1798) = lu(k,1798) - lu(k,500) * lu(k,1783) - lu(k,1799) = lu(k,1799) - lu(k,501) * lu(k,1783) - lu(k,1802) = lu(k,1802) - lu(k,502) * lu(k,1783) - lu(k,1805) = lu(k,1805) - lu(k,503) * lu(k,1783) - lu(k,1808) = lu(k,1808) - lu(k,504) * lu(k,1783) - lu(k,1810) = lu(k,1810) - lu(k,505) * lu(k,1783) - lu(k,1813) = lu(k,1813) - lu(k,506) * lu(k,1783) - lu(k,1814) = lu(k,1814) - lu(k,507) * lu(k,1783) - lu(k,1815) = lu(k,1815) - lu(k,508) * lu(k,1783) - lu(k,1816) = lu(k,1816) - lu(k,509) * lu(k,1783) - lu(k,513) = 1._r8 / lu(k,513) - lu(k,514) = lu(k,514) * lu(k,513) - lu(k,515) = lu(k,515) * lu(k,513) - lu(k,516) = lu(k,516) * lu(k,513) - lu(k,517) = lu(k,517) * lu(k,513) - lu(k,518) = lu(k,518) * lu(k,513) - lu(k,519) = lu(k,519) * lu(k,513) - lu(k,520) = lu(k,520) * lu(k,513) - lu(k,521) = lu(k,521) * lu(k,513) - lu(k,522) = lu(k,522) * lu(k,513) - lu(k,523) = lu(k,523) * lu(k,513) - lu(k,524) = lu(k,524) * lu(k,513) - lu(k,525) = lu(k,525) * lu(k,513) - lu(k,526) = lu(k,526) * lu(k,513) - lu(k,527) = lu(k,527) * lu(k,513) - lu(k,528) = lu(k,528) * lu(k,513) - lu(k,529) = lu(k,529) * lu(k,513) - lu(k,646) = lu(k,646) - lu(k,514) * lu(k,644) - lu(k,648) = lu(k,648) - lu(k,515) * lu(k,644) - lu(k,649) = lu(k,649) - lu(k,516) * lu(k,644) - lu(k,650) = lu(k,650) - lu(k,517) * lu(k,644) - lu(k,652) = lu(k,652) - lu(k,518) * lu(k,644) - lu(k,653) = lu(k,653) - lu(k,519) * lu(k,644) - lu(k,655) = lu(k,655) - lu(k,520) * lu(k,644) - lu(k,656) = lu(k,656) - lu(k,521) * lu(k,644) - lu(k,658) = lu(k,658) - lu(k,522) * lu(k,644) - lu(k,660) = lu(k,660) - lu(k,523) * lu(k,644) - lu(k,661) = lu(k,661) - lu(k,524) * lu(k,644) - lu(k,662) = lu(k,662) - lu(k,525) * lu(k,644) - lu(k,663) = lu(k,663) - lu(k,526) * lu(k,644) - lu(k,664) = lu(k,664) - lu(k,527) * lu(k,644) - lu(k,665) = - lu(k,528) * lu(k,644) - lu(k,666) = lu(k,666) - lu(k,529) * lu(k,644) - lu(k,776) = lu(k,776) - lu(k,514) * lu(k,774) - lu(k,780) = lu(k,780) - lu(k,515) * lu(k,774) - lu(k,781) = lu(k,781) - lu(k,516) * lu(k,774) - lu(k,782) = lu(k,782) - lu(k,517) * lu(k,774) - lu(k,784) = lu(k,784) - lu(k,518) * lu(k,774) - lu(k,785) = lu(k,785) - lu(k,519) * lu(k,774) - lu(k,788) = lu(k,788) - lu(k,520) * lu(k,774) - lu(k,789) = lu(k,789) - lu(k,521) * lu(k,774) - lu(k,792) = lu(k,792) - lu(k,522) * lu(k,774) - lu(k,794) = - lu(k,523) * lu(k,774) - lu(k,795) = lu(k,795) - lu(k,524) * lu(k,774) - lu(k,797) = lu(k,797) - lu(k,525) * lu(k,774) - lu(k,800) = lu(k,800) - lu(k,526) * lu(k,774) - lu(k,801) = lu(k,801) - lu(k,527) * lu(k,774) - lu(k,802) = lu(k,802) - lu(k,528) * lu(k,774) - lu(k,803) = lu(k,803) - lu(k,529) * lu(k,774) - lu(k,818) = lu(k,818) - lu(k,514) * lu(k,815) - lu(k,823) = lu(k,823) - lu(k,515) * lu(k,815) - lu(k,824) = lu(k,824) - lu(k,516) * lu(k,815) - lu(k,825) = lu(k,825) - lu(k,517) * lu(k,815) - lu(k,827) = lu(k,827) - lu(k,518) * lu(k,815) - lu(k,828) = lu(k,828) - lu(k,519) * lu(k,815) - lu(k,831) = lu(k,831) - lu(k,520) * lu(k,815) - lu(k,832) = lu(k,832) - lu(k,521) * lu(k,815) - lu(k,835) = lu(k,835) - lu(k,522) * lu(k,815) - lu(k,837) = lu(k,837) - lu(k,523) * lu(k,815) - lu(k,838) = lu(k,838) - lu(k,524) * lu(k,815) - lu(k,840) = lu(k,840) - lu(k,525) * lu(k,815) - lu(k,843) = lu(k,843) - lu(k,526) * lu(k,815) - lu(k,844) = lu(k,844) - lu(k,527) * lu(k,815) - lu(k,845) = lu(k,845) - lu(k,528) * lu(k,815) - lu(k,846) = lu(k,846) - lu(k,529) * lu(k,815) - lu(k,864) = lu(k,864) - lu(k,514) * lu(k,860) - lu(k,869) = lu(k,869) - lu(k,515) * lu(k,860) - lu(k,870) = lu(k,870) - lu(k,516) * lu(k,860) - lu(k,871) = lu(k,871) - lu(k,517) * lu(k,860) - lu(k,873) = lu(k,873) - lu(k,518) * lu(k,860) - lu(k,874) = lu(k,874) - lu(k,519) * lu(k,860) - lu(k,877) = lu(k,877) - lu(k,520) * lu(k,860) - lu(k,878) = lu(k,878) - lu(k,521) * lu(k,860) - lu(k,881) = lu(k,881) - lu(k,522) * lu(k,860) - lu(k,883) = lu(k,883) - lu(k,523) * lu(k,860) - lu(k,884) = lu(k,884) - lu(k,524) * lu(k,860) - lu(k,886) = lu(k,886) - lu(k,525) * lu(k,860) - lu(k,889) = lu(k,889) - lu(k,526) * lu(k,860) - lu(k,890) = lu(k,890) - lu(k,527) * lu(k,860) - lu(k,891) = lu(k,891) - lu(k,528) * lu(k,860) - lu(k,892) = lu(k,892) - lu(k,529) * lu(k,860) - lu(k,907) = lu(k,907) - lu(k,514) * lu(k,904) - lu(k,912) = lu(k,912) - lu(k,515) * lu(k,904) - lu(k,913) = lu(k,913) - lu(k,516) * lu(k,904) - lu(k,914) = lu(k,914) - lu(k,517) * lu(k,904) - lu(k,916) = lu(k,916) - lu(k,518) * lu(k,904) - lu(k,917) = lu(k,917) - lu(k,519) * lu(k,904) - lu(k,920) = lu(k,920) - lu(k,520) * lu(k,904) - lu(k,921) = lu(k,921) - lu(k,521) * lu(k,904) - lu(k,924) = lu(k,924) - lu(k,522) * lu(k,904) - lu(k,926) = lu(k,926) - lu(k,523) * lu(k,904) - lu(k,927) = lu(k,927) - lu(k,524) * lu(k,904) - lu(k,929) = lu(k,929) - lu(k,525) * lu(k,904) - lu(k,932) = lu(k,932) - lu(k,526) * lu(k,904) - lu(k,933) = lu(k,933) - lu(k,527) * lu(k,904) - lu(k,934) = lu(k,934) - lu(k,528) * lu(k,904) - lu(k,935) = lu(k,935) - lu(k,529) * lu(k,904) - lu(k,992) = lu(k,992) - lu(k,514) * lu(k,988) - lu(k,997) = lu(k,997) - lu(k,515) * lu(k,988) - lu(k,998) = lu(k,998) - lu(k,516) * lu(k,988) - lu(k,999) = lu(k,999) - lu(k,517) * lu(k,988) - lu(k,1001) = lu(k,1001) - lu(k,518) * lu(k,988) - lu(k,1002) = lu(k,1002) - lu(k,519) * lu(k,988) - lu(k,1005) = lu(k,1005) - lu(k,520) * lu(k,988) - lu(k,1006) = lu(k,1006) - lu(k,521) * lu(k,988) - lu(k,1009) = lu(k,1009) - lu(k,522) * lu(k,988) - lu(k,1011) = lu(k,1011) - lu(k,523) * lu(k,988) - lu(k,1012) = lu(k,1012) - lu(k,524) * lu(k,988) - lu(k,1014) = lu(k,1014) - lu(k,525) * lu(k,988) - lu(k,1017) = lu(k,1017) - lu(k,526) * lu(k,988) - lu(k,1018) = lu(k,1018) - lu(k,527) * lu(k,988) - lu(k,1019) = lu(k,1019) - lu(k,528) * lu(k,988) - lu(k,1020) = lu(k,1020) - lu(k,529) * lu(k,988) - lu(k,1034) = lu(k,1034) - lu(k,514) * lu(k,1031) - lu(k,1039) = lu(k,1039) - lu(k,515) * lu(k,1031) - lu(k,1040) = lu(k,1040) - lu(k,516) * lu(k,1031) - lu(k,1041) = lu(k,1041) - lu(k,517) * lu(k,1031) - lu(k,1043) = lu(k,1043) - lu(k,518) * lu(k,1031) - lu(k,1044) = lu(k,1044) - lu(k,519) * lu(k,1031) - lu(k,1047) = lu(k,1047) - lu(k,520) * lu(k,1031) - lu(k,1048) = lu(k,1048) - lu(k,521) * lu(k,1031) - lu(k,1051) = lu(k,1051) - lu(k,522) * lu(k,1031) - lu(k,1053) = lu(k,1053) - lu(k,523) * lu(k,1031) - lu(k,1054) = lu(k,1054) - lu(k,524) * lu(k,1031) - lu(k,1056) = lu(k,1056) - lu(k,525) * lu(k,1031) - lu(k,1059) = lu(k,1059) - lu(k,526) * lu(k,1031) - lu(k,1060) = lu(k,1060) - lu(k,527) * lu(k,1031) - lu(k,1061) = lu(k,1061) - lu(k,528) * lu(k,1031) - lu(k,1062) = lu(k,1062) - lu(k,529) * lu(k,1031) - lu(k,1160) = lu(k,1160) - lu(k,514) * lu(k,1156) - lu(k,1165) = lu(k,1165) - lu(k,515) * lu(k,1156) - lu(k,1166) = lu(k,1166) - lu(k,516) * lu(k,1156) - lu(k,1167) = lu(k,1167) - lu(k,517) * lu(k,1156) - lu(k,1169) = lu(k,1169) - lu(k,518) * lu(k,1156) - lu(k,1170) = lu(k,1170) - lu(k,519) * lu(k,1156) - lu(k,1173) = lu(k,1173) - lu(k,520) * lu(k,1156) - lu(k,1174) = lu(k,1174) - lu(k,521) * lu(k,1156) - lu(k,1177) = lu(k,1177) - lu(k,522) * lu(k,1156) - lu(k,1179) = lu(k,1179) - lu(k,523) * lu(k,1156) - lu(k,1180) = lu(k,1180) - lu(k,524) * lu(k,1156) - lu(k,1182) = lu(k,1182) - lu(k,525) * lu(k,1156) - lu(k,1185) = lu(k,1185) - lu(k,526) * lu(k,1156) - lu(k,1186) = lu(k,1186) - lu(k,527) * lu(k,1156) - lu(k,1187) = lu(k,1187) - lu(k,528) * lu(k,1156) - lu(k,1188) = lu(k,1188) - lu(k,529) * lu(k,1156) - lu(k,1335) = lu(k,1335) - lu(k,514) * lu(k,1331) - lu(k,1340) = lu(k,1340) - lu(k,515) * lu(k,1331) - lu(k,1341) = lu(k,1341) - lu(k,516) * lu(k,1331) - lu(k,1342) = lu(k,1342) - lu(k,517) * lu(k,1331) - lu(k,1344) = lu(k,1344) - lu(k,518) * lu(k,1331) - lu(k,1345) = lu(k,1345) - lu(k,519) * lu(k,1331) - lu(k,1348) = lu(k,1348) - lu(k,520) * lu(k,1331) - lu(k,1349) = lu(k,1349) - lu(k,521) * lu(k,1331) - lu(k,1352) = lu(k,1352) - lu(k,522) * lu(k,1331) - lu(k,1354) = lu(k,1354) - lu(k,523) * lu(k,1331) - lu(k,1355) = lu(k,1355) - lu(k,524) * lu(k,1331) - lu(k,1357) = lu(k,1357) - lu(k,525) * lu(k,1331) - lu(k,1360) = lu(k,1360) - lu(k,526) * lu(k,1331) - lu(k,1361) = lu(k,1361) - lu(k,527) * lu(k,1331) - lu(k,1362) = lu(k,1362) - lu(k,528) * lu(k,1331) - lu(k,1363) = lu(k,1363) - lu(k,529) * lu(k,1331) - lu(k,1414) = lu(k,1414) - lu(k,514) * lu(k,1411) - lu(k,1418) = lu(k,1418) - lu(k,515) * lu(k,1411) - lu(k,1419) = lu(k,1419) - lu(k,516) * lu(k,1411) - lu(k,1420) = lu(k,1420) - lu(k,517) * lu(k,1411) - lu(k,1422) = lu(k,1422) - lu(k,518) * lu(k,1411) - lu(k,1423) = lu(k,1423) - lu(k,519) * lu(k,1411) - lu(k,1426) = lu(k,1426) - lu(k,520) * lu(k,1411) - lu(k,1427) = lu(k,1427) - lu(k,521) * lu(k,1411) - lu(k,1430) = lu(k,1430) - lu(k,522) * lu(k,1411) - lu(k,1432) = lu(k,1432) - lu(k,523) * lu(k,1411) - lu(k,1433) = lu(k,1433) - lu(k,524) * lu(k,1411) - lu(k,1435) = lu(k,1435) - lu(k,525) * lu(k,1411) - lu(k,1438) = lu(k,1438) - lu(k,526) * lu(k,1411) - lu(k,1439) = lu(k,1439) - lu(k,527) * lu(k,1411) - lu(k,1440) = lu(k,1440) - lu(k,528) * lu(k,1411) - lu(k,1441) = lu(k,1441) - lu(k,529) * lu(k,1411) - lu(k,1456) = lu(k,1456) - lu(k,514) * lu(k,1453) - lu(k,1461) = lu(k,1461) - lu(k,515) * lu(k,1453) - lu(k,1462) = lu(k,1462) - lu(k,516) * lu(k,1453) - lu(k,1463) = lu(k,1463) - lu(k,517) * lu(k,1453) - lu(k,1465) = lu(k,1465) - lu(k,518) * lu(k,1453) - lu(k,1466) = lu(k,1466) - lu(k,519) * lu(k,1453) - lu(k,1469) = lu(k,1469) - lu(k,520) * lu(k,1453) - lu(k,1470) = lu(k,1470) - lu(k,521) * lu(k,1453) - lu(k,1473) = lu(k,1473) - lu(k,522) * lu(k,1453) - lu(k,1475) = lu(k,1475) - lu(k,523) * lu(k,1453) - lu(k,1476) = lu(k,1476) - lu(k,524) * lu(k,1453) - lu(k,1478) = lu(k,1478) - lu(k,525) * lu(k,1453) - lu(k,1481) = lu(k,1481) - lu(k,526) * lu(k,1453) - lu(k,1482) = lu(k,1482) - lu(k,527) * lu(k,1453) - lu(k,1483) = lu(k,1483) - lu(k,528) * lu(k,1453) - lu(k,1484) = lu(k,1484) - lu(k,529) * lu(k,1453) - lu(k,1542) = lu(k,1542) - lu(k,514) * lu(k,1539) - lu(k,1547) = lu(k,1547) - lu(k,515) * lu(k,1539) - lu(k,1548) = lu(k,1548) - lu(k,516) * lu(k,1539) - lu(k,1549) = lu(k,1549) - lu(k,517) * lu(k,1539) - lu(k,1551) = lu(k,1551) - lu(k,518) * lu(k,1539) - lu(k,1552) = lu(k,1552) - lu(k,519) * lu(k,1539) - lu(k,1555) = lu(k,1555) - lu(k,520) * lu(k,1539) - lu(k,1556) = lu(k,1556) - lu(k,521) * lu(k,1539) - lu(k,1559) = lu(k,1559) - lu(k,522) * lu(k,1539) - lu(k,1561) = lu(k,1561) - lu(k,523) * lu(k,1539) - lu(k,1562) = lu(k,1562) - lu(k,524) * lu(k,1539) - lu(k,1564) = lu(k,1564) - lu(k,525) * lu(k,1539) - lu(k,1567) = lu(k,1567) - lu(k,526) * lu(k,1539) - lu(k,1568) = lu(k,1568) - lu(k,527) * lu(k,1539) - lu(k,1569) = lu(k,1569) - lu(k,528) * lu(k,1539) - lu(k,1570) = lu(k,1570) - lu(k,529) * lu(k,1539) - lu(k,1735) = lu(k,1735) - lu(k,514) * lu(k,1731) - lu(k,1740) = lu(k,1740) - lu(k,515) * lu(k,1731) - lu(k,1741) = lu(k,1741) - lu(k,516) * lu(k,1731) - lu(k,1742) = lu(k,1742) - lu(k,517) * lu(k,1731) - lu(k,1744) = lu(k,1744) - lu(k,518) * lu(k,1731) - lu(k,1745) = lu(k,1745) - lu(k,519) * lu(k,1731) - lu(k,1748) = lu(k,1748) - lu(k,520) * lu(k,1731) - lu(k,1749) = lu(k,1749) - lu(k,521) * lu(k,1731) - lu(k,1752) = lu(k,1752) - lu(k,522) * lu(k,1731) - lu(k,1754) = lu(k,1754) - lu(k,523) * lu(k,1731) - lu(k,1755) = lu(k,1755) - lu(k,524) * lu(k,1731) - lu(k,1757) = lu(k,1757) - lu(k,525) * lu(k,1731) - lu(k,1760) = lu(k,1760) - lu(k,526) * lu(k,1731) - lu(k,1761) = lu(k,1761) - lu(k,527) * lu(k,1731) - lu(k,1762) = lu(k,1762) - lu(k,528) * lu(k,1731) - lu(k,1763) = lu(k,1763) - lu(k,529) * lu(k,1731) - lu(k,1788) = lu(k,1788) - lu(k,514) * lu(k,1784) - lu(k,1793) = lu(k,1793) - lu(k,515) * lu(k,1784) - lu(k,1794) = lu(k,1794) - lu(k,516) * lu(k,1784) - lu(k,1795) = lu(k,1795) - lu(k,517) * lu(k,1784) - lu(k,1797) = lu(k,1797) - lu(k,518) * lu(k,1784) - lu(k,1798) = lu(k,1798) - lu(k,519) * lu(k,1784) - lu(k,1801) = lu(k,1801) - lu(k,520) * lu(k,1784) - lu(k,1802) = lu(k,1802) - lu(k,521) * lu(k,1784) - lu(k,1805) = lu(k,1805) - lu(k,522) * lu(k,1784) - lu(k,1807) = lu(k,1807) - lu(k,523) * lu(k,1784) - lu(k,1808) = lu(k,1808) - lu(k,524) * lu(k,1784) - lu(k,1810) = lu(k,1810) - lu(k,525) * lu(k,1784) - lu(k,1813) = lu(k,1813) - lu(k,526) * lu(k,1784) - lu(k,1814) = lu(k,1814) - lu(k,527) * lu(k,1784) - lu(k,1815) = lu(k,1815) - lu(k,528) * lu(k,1784) - lu(k,1816) = lu(k,1816) - lu(k,529) * lu(k,1784) - lu(k,535) = 1._r8 / lu(k,535) - lu(k,536) = lu(k,536) * lu(k,535) - lu(k,537) = lu(k,537) * lu(k,535) - lu(k,538) = lu(k,538) * lu(k,535) - lu(k,539) = lu(k,539) * lu(k,535) - lu(k,540) = lu(k,540) * lu(k,535) - lu(k,541) = lu(k,541) * lu(k,535) - lu(k,542) = lu(k,542) * lu(k,535) - lu(k,543) = lu(k,543) * lu(k,535) - lu(k,544) = lu(k,544) * lu(k,535) - lu(k,545) = lu(k,545) * lu(k,535) - lu(k,546) = lu(k,546) * lu(k,535) - lu(k,547) = lu(k,547) * lu(k,535) - lu(k,548) = lu(k,548) * lu(k,535) - lu(k,549) = lu(k,549) * lu(k,535) - lu(k,550) = lu(k,550) * lu(k,535) - lu(k,551) = lu(k,551) * lu(k,535) - lu(k,552) = lu(k,552) * lu(k,535) - lu(k,553) = lu(k,553) * lu(k,535) - lu(k,554) = lu(k,554) * lu(k,535) - lu(k,567) = lu(k,567) - lu(k,536) * lu(k,566) - lu(k,568) = lu(k,568) - lu(k,537) * lu(k,566) - lu(k,569) = lu(k,569) - lu(k,538) * lu(k,566) - lu(k,571) = lu(k,571) - lu(k,539) * lu(k,566) - lu(k,572) = lu(k,572) - lu(k,540) * lu(k,566) - lu(k,573) = lu(k,573) - lu(k,541) * lu(k,566) - lu(k,574) = lu(k,574) - lu(k,542) * lu(k,566) - lu(k,575) = lu(k,575) - lu(k,543) * lu(k,566) - lu(k,576) = lu(k,576) - lu(k,544) * lu(k,566) - lu(k,577) = lu(k,577) - lu(k,545) * lu(k,566) - lu(k,580) = lu(k,580) - lu(k,546) * lu(k,566) - lu(k,581) = lu(k,581) - lu(k,547) * lu(k,566) - lu(k,582) = lu(k,582) - lu(k,548) * lu(k,566) - lu(k,583) = lu(k,583) - lu(k,549) * lu(k,566) - lu(k,584) = lu(k,584) - lu(k,550) * lu(k,566) - lu(k,585) = lu(k,585) - lu(k,551) * lu(k,566) - lu(k,586) = lu(k,586) - lu(k,552) * lu(k,566) - lu(k,587) = lu(k,587) - lu(k,553) * lu(k,566) - lu(k,588) = lu(k,588) - lu(k,554) * lu(k,566) - lu(k,679) = lu(k,679) - lu(k,536) * lu(k,678) - lu(k,680) = lu(k,680) - lu(k,537) * lu(k,678) - lu(k,681) = lu(k,681) - lu(k,538) * lu(k,678) - lu(k,683) = lu(k,683) - lu(k,539) * lu(k,678) - lu(k,684) = lu(k,684) - lu(k,540) * lu(k,678) - lu(k,686) = lu(k,686) - lu(k,541) * lu(k,678) - lu(k,687) = lu(k,687) - lu(k,542) * lu(k,678) - lu(k,688) = lu(k,688) - lu(k,543) * lu(k,678) - lu(k,689) = lu(k,689) - lu(k,544) * lu(k,678) - lu(k,690) = lu(k,690) - lu(k,545) * lu(k,678) - lu(k,693) = lu(k,693) - lu(k,546) * lu(k,678) - lu(k,694) = lu(k,694) - lu(k,547) * lu(k,678) - lu(k,695) = lu(k,695) - lu(k,548) * lu(k,678) - lu(k,696) = lu(k,696) - lu(k,549) * lu(k,678) - lu(k,697) = lu(k,697) - lu(k,550) * lu(k,678) - lu(k,698) = lu(k,698) - lu(k,551) * lu(k,678) - lu(k,699) = lu(k,699) - lu(k,552) * lu(k,678) - lu(k,700) = lu(k,700) - lu(k,553) * lu(k,678) - lu(k,701) = lu(k,701) - lu(k,554) * lu(k,678) - lu(k,747) = lu(k,747) - lu(k,536) * lu(k,746) - lu(k,748) = lu(k,748) - lu(k,537) * lu(k,746) - lu(k,749) = lu(k,749) - lu(k,538) * lu(k,746) - lu(k,752) = lu(k,752) - lu(k,539) * lu(k,746) - lu(k,753) = lu(k,753) - lu(k,540) * lu(k,746) - lu(k,755) = lu(k,755) - lu(k,541) * lu(k,746) - lu(k,756) = lu(k,756) - lu(k,542) * lu(k,746) - lu(k,757) = lu(k,757) - lu(k,543) * lu(k,746) - lu(k,758) = lu(k,758) - lu(k,544) * lu(k,746) - lu(k,759) = lu(k,759) - lu(k,545) * lu(k,746) - lu(k,762) = lu(k,762) - lu(k,546) * lu(k,746) - lu(k,763) = lu(k,763) - lu(k,547) * lu(k,746) - lu(k,764) = lu(k,764) - lu(k,548) * lu(k,746) - lu(k,765) = lu(k,765) - lu(k,549) * lu(k,746) - lu(k,766) = lu(k,766) - lu(k,550) * lu(k,746) - lu(k,767) = lu(k,767) - lu(k,551) * lu(k,746) - lu(k,768) = lu(k,768) - lu(k,552) * lu(k,746) - lu(k,769) = lu(k,769) - lu(k,553) * lu(k,746) - lu(k,770) = lu(k,770) - lu(k,554) * lu(k,746) - lu(k,990) = lu(k,990) - lu(k,536) * lu(k,989) - lu(k,993) = lu(k,993) - lu(k,537) * lu(k,989) - lu(k,995) = lu(k,995) - lu(k,538) * lu(k,989) - lu(k,1000) = lu(k,1000) - lu(k,539) * lu(k,989) - lu(k,1001) = lu(k,1001) - lu(k,540) * lu(k,989) - lu(k,1003) = lu(k,1003) - lu(k,541) * lu(k,989) - lu(k,1004) = lu(k,1004) - lu(k,542) * lu(k,989) - lu(k,1005) = lu(k,1005) - lu(k,543) * lu(k,989) - lu(k,1006) = lu(k,1006) - lu(k,544) * lu(k,989) - lu(k,1007) = lu(k,1007) - lu(k,545) * lu(k,989) - lu(k,1010) = lu(k,1010) - lu(k,546) * lu(k,989) - lu(k,1011) = lu(k,1011) - lu(k,547) * lu(k,989) - lu(k,1013) = lu(k,1013) - lu(k,548) * lu(k,989) - lu(k,1015) = lu(k,1015) - lu(k,549) * lu(k,989) - lu(k,1016) = lu(k,1016) - lu(k,550) * lu(k,989) - lu(k,1017) = lu(k,1017) - lu(k,551) * lu(k,989) - lu(k,1018) = lu(k,1018) - lu(k,552) * lu(k,989) - lu(k,1019) = lu(k,1019) - lu(k,553) * lu(k,989) - lu(k,1020) = lu(k,1020) - lu(k,554) * lu(k,989) - lu(k,1117) = lu(k,1117) - lu(k,536) * lu(k,1116) - lu(k,1121) = lu(k,1121) - lu(k,537) * lu(k,1116) - lu(k,1123) = lu(k,1123) - lu(k,538) * lu(k,1116) - lu(k,1128) = - lu(k,539) * lu(k,1116) - lu(k,1129) = lu(k,1129) - lu(k,540) * lu(k,1116) - lu(k,1131) = lu(k,1131) - lu(k,541) * lu(k,1116) - lu(k,1132) = lu(k,1132) - lu(k,542) * lu(k,1116) - lu(k,1133) = lu(k,1133) - lu(k,543) * lu(k,1116) - lu(k,1134) = lu(k,1134) - lu(k,544) * lu(k,1116) - lu(k,1135) = lu(k,1135) - lu(k,545) * lu(k,1116) - lu(k,1138) = lu(k,1138) - lu(k,546) * lu(k,1116) - lu(k,1139) = lu(k,1139) - lu(k,547) * lu(k,1116) - lu(k,1141) = lu(k,1141) - lu(k,548) * lu(k,1116) - lu(k,1143) = lu(k,1143) - lu(k,549) * lu(k,1116) - lu(k,1144) = lu(k,1144) - lu(k,550) * lu(k,1116) - lu(k,1145) = lu(k,1145) - lu(k,551) * lu(k,1116) - lu(k,1146) = lu(k,1146) - lu(k,552) * lu(k,1116) - lu(k,1147) = lu(k,1147) - lu(k,553) * lu(k,1116) - lu(k,1148) = lu(k,1148) - lu(k,554) * lu(k,1116) - lu(k,1158) = lu(k,1158) - lu(k,536) * lu(k,1157) - lu(k,1161) = lu(k,1161) - lu(k,537) * lu(k,1157) - lu(k,1163) = lu(k,1163) - lu(k,538) * lu(k,1157) - lu(k,1168) = lu(k,1168) - lu(k,539) * lu(k,1157) - lu(k,1169) = lu(k,1169) - lu(k,540) * lu(k,1157) - lu(k,1171) = lu(k,1171) - lu(k,541) * lu(k,1157) - lu(k,1172) = lu(k,1172) - lu(k,542) * lu(k,1157) - lu(k,1173) = lu(k,1173) - lu(k,543) * lu(k,1157) - lu(k,1174) = lu(k,1174) - lu(k,544) * lu(k,1157) - lu(k,1175) = - lu(k,545) * lu(k,1157) - lu(k,1178) = lu(k,1178) - lu(k,546) * lu(k,1157) - lu(k,1179) = lu(k,1179) - lu(k,547) * lu(k,1157) - lu(k,1181) = lu(k,1181) - lu(k,548) * lu(k,1157) - lu(k,1183) = lu(k,1183) - lu(k,549) * lu(k,1157) - lu(k,1184) = lu(k,1184) - lu(k,550) * lu(k,1157) - lu(k,1185) = lu(k,1185) - lu(k,551) * lu(k,1157) - lu(k,1186) = lu(k,1186) - lu(k,552) * lu(k,1157) - lu(k,1187) = lu(k,1187) - lu(k,553) * lu(k,1157) - lu(k,1188) = lu(k,1188) - lu(k,554) * lu(k,1157) - lu(k,1213) = lu(k,1213) - lu(k,536) * lu(k,1212) - lu(k,1217) = lu(k,1217) - lu(k,537) * lu(k,1212) - lu(k,1219) = lu(k,1219) - lu(k,538) * lu(k,1212) - lu(k,1224) = lu(k,1224) - lu(k,539) * lu(k,1212) - lu(k,1225) = lu(k,1225) - lu(k,540) * lu(k,1212) - lu(k,1227) = lu(k,1227) - lu(k,541) * lu(k,1212) - lu(k,1228) = lu(k,1228) - lu(k,542) * lu(k,1212) - lu(k,1229) = lu(k,1229) - lu(k,543) * lu(k,1212) - lu(k,1230) = lu(k,1230) - lu(k,544) * lu(k,1212) - lu(k,1231) = lu(k,1231) - lu(k,545) * lu(k,1212) - lu(k,1234) = lu(k,1234) - lu(k,546) * lu(k,1212) - lu(k,1235) = lu(k,1235) - lu(k,547) * lu(k,1212) - lu(k,1237) = lu(k,1237) - lu(k,548) * lu(k,1212) - lu(k,1239) = lu(k,1239) - lu(k,549) * lu(k,1212) - lu(k,1240) = lu(k,1240) - lu(k,550) * lu(k,1212) - lu(k,1241) = lu(k,1241) - lu(k,551) * lu(k,1212) - lu(k,1242) = lu(k,1242) - lu(k,552) * lu(k,1212) - lu(k,1243) = lu(k,1243) - lu(k,553) * lu(k,1212) - lu(k,1244) = lu(k,1244) - lu(k,554) * lu(k,1212) - lu(k,1252) = lu(k,1252) - lu(k,536) * lu(k,1251) - lu(k,1255) = lu(k,1255) - lu(k,537) * lu(k,1251) - lu(k,1257) = lu(k,1257) - lu(k,538) * lu(k,1251) - lu(k,1262) = lu(k,1262) - lu(k,539) * lu(k,1251) - lu(k,1263) = lu(k,1263) - lu(k,540) * lu(k,1251) - lu(k,1265) = lu(k,1265) - lu(k,541) * lu(k,1251) - lu(k,1266) = lu(k,1266) - lu(k,542) * lu(k,1251) - lu(k,1267) = lu(k,1267) - lu(k,543) * lu(k,1251) - lu(k,1268) = lu(k,1268) - lu(k,544) * lu(k,1251) - lu(k,1269) = lu(k,1269) - lu(k,545) * lu(k,1251) - lu(k,1272) = lu(k,1272) - lu(k,546) * lu(k,1251) - lu(k,1273) = lu(k,1273) - lu(k,547) * lu(k,1251) - lu(k,1275) = lu(k,1275) - lu(k,548) * lu(k,1251) - lu(k,1277) = lu(k,1277) - lu(k,549) * lu(k,1251) - lu(k,1278) = lu(k,1278) - lu(k,550) * lu(k,1251) - lu(k,1279) = lu(k,1279) - lu(k,551) * lu(k,1251) - lu(k,1280) = lu(k,1280) - lu(k,552) * lu(k,1251) - lu(k,1281) = lu(k,1281) - lu(k,553) * lu(k,1251) - lu(k,1282) = lu(k,1282) - lu(k,554) * lu(k,1251) - lu(k,1375) = lu(k,1375) - lu(k,536) * lu(k,1374) - lu(k,1379) = lu(k,1379) - lu(k,537) * lu(k,1374) - lu(k,1381) = lu(k,1381) - lu(k,538) * lu(k,1374) - lu(k,1386) = lu(k,1386) - lu(k,539) * lu(k,1374) - lu(k,1387) = lu(k,1387) - lu(k,540) * lu(k,1374) - lu(k,1389) = lu(k,1389) - lu(k,541) * lu(k,1374) - lu(k,1390) = lu(k,1390) - lu(k,542) * lu(k,1374) - lu(k,1391) = lu(k,1391) - lu(k,543) * lu(k,1374) - lu(k,1392) = lu(k,1392) - lu(k,544) * lu(k,1374) - lu(k,1393) = lu(k,1393) - lu(k,545) * lu(k,1374) - lu(k,1396) = lu(k,1396) - lu(k,546) * lu(k,1374) - lu(k,1397) = lu(k,1397) - lu(k,547) * lu(k,1374) - lu(k,1399) = lu(k,1399) - lu(k,548) * lu(k,1374) - lu(k,1401) = lu(k,1401) - lu(k,549) * lu(k,1374) - lu(k,1402) = lu(k,1402) - lu(k,550) * lu(k,1374) - lu(k,1403) = lu(k,1403) - lu(k,551) * lu(k,1374) - lu(k,1404) = lu(k,1404) - lu(k,552) * lu(k,1374) - lu(k,1405) = lu(k,1405) - lu(k,553) * lu(k,1374) - lu(k,1406) = lu(k,1406) - lu(k,554) * lu(k,1374) - lu(k,1413) = - lu(k,536) * lu(k,1412) - lu(k,1415) = lu(k,1415) - lu(k,537) * lu(k,1412) - lu(k,1417) = lu(k,1417) - lu(k,538) * lu(k,1412) - lu(k,1421) = - lu(k,539) * lu(k,1412) - lu(k,1422) = lu(k,1422) - lu(k,540) * lu(k,1412) - lu(k,1424) = lu(k,1424) - lu(k,541) * lu(k,1412) - lu(k,1425) = - lu(k,542) * lu(k,1412) - lu(k,1426) = lu(k,1426) - lu(k,543) * lu(k,1412) - lu(k,1427) = lu(k,1427) - lu(k,544) * lu(k,1412) - lu(k,1428) = - lu(k,545) * lu(k,1412) - lu(k,1431) = - lu(k,546) * lu(k,1412) - lu(k,1432) = lu(k,1432) - lu(k,547) * lu(k,1412) - lu(k,1434) = - lu(k,548) * lu(k,1412) - lu(k,1436) = - lu(k,549) * lu(k,1412) - lu(k,1437) = - lu(k,550) * lu(k,1412) - lu(k,1438) = lu(k,1438) - lu(k,551) * lu(k,1412) - lu(k,1439) = lu(k,1439) - lu(k,552) * lu(k,1412) - lu(k,1440) = lu(k,1440) - lu(k,553) * lu(k,1412) - lu(k,1441) = lu(k,1441) - lu(k,554) * lu(k,1412) - lu(k,1496) = lu(k,1496) - lu(k,536) * lu(k,1495) - lu(k,1500) = lu(k,1500) - lu(k,537) * lu(k,1495) - lu(k,1502) = lu(k,1502) - lu(k,538) * lu(k,1495) - lu(k,1507) = - lu(k,539) * lu(k,1495) - lu(k,1508) = lu(k,1508) - lu(k,540) * lu(k,1495) - lu(k,1510) = lu(k,1510) - lu(k,541) * lu(k,1495) - lu(k,1511) = lu(k,1511) - lu(k,542) * lu(k,1495) - lu(k,1512) = lu(k,1512) - lu(k,543) * lu(k,1495) - lu(k,1513) = lu(k,1513) - lu(k,544) * lu(k,1495) - lu(k,1514) = lu(k,1514) - lu(k,545) * lu(k,1495) - lu(k,1517) = lu(k,1517) - lu(k,546) * lu(k,1495) - lu(k,1518) = lu(k,1518) - lu(k,547) * lu(k,1495) - lu(k,1520) = lu(k,1520) - lu(k,548) * lu(k,1495) - lu(k,1522) = lu(k,1522) - lu(k,549) * lu(k,1495) - lu(k,1523) = lu(k,1523) - lu(k,550) * lu(k,1495) - lu(k,1524) = lu(k,1524) - lu(k,551) * lu(k,1495) - lu(k,1525) = lu(k,1525) - lu(k,552) * lu(k,1495) - lu(k,1526) = lu(k,1526) - lu(k,553) * lu(k,1495) - lu(k,1527) = lu(k,1527) - lu(k,554) * lu(k,1495) - lu(k,1609) = lu(k,1609) - lu(k,536) * lu(k,1608) - lu(k,1612) = lu(k,1612) - lu(k,537) * lu(k,1608) - lu(k,1614) = lu(k,1614) - lu(k,538) * lu(k,1608) - lu(k,1619) = lu(k,1619) - lu(k,539) * lu(k,1608) - lu(k,1620) = lu(k,1620) - lu(k,540) * lu(k,1608) - lu(k,1622) = lu(k,1622) - lu(k,541) * lu(k,1608) - lu(k,1623) = lu(k,1623) - lu(k,542) * lu(k,1608) - lu(k,1624) = lu(k,1624) - lu(k,543) * lu(k,1608) - lu(k,1625) = lu(k,1625) - lu(k,544) * lu(k,1608) - lu(k,1626) = lu(k,1626) - lu(k,545) * lu(k,1608) - lu(k,1629) = lu(k,1629) - lu(k,546) * lu(k,1608) - lu(k,1630) = lu(k,1630) - lu(k,547) * lu(k,1608) - lu(k,1632) = lu(k,1632) - lu(k,548) * lu(k,1608) - lu(k,1634) = lu(k,1634) - lu(k,549) * lu(k,1608) - lu(k,1635) = lu(k,1635) - lu(k,550) * lu(k,1608) - lu(k,1636) = lu(k,1636) - lu(k,551) * lu(k,1608) - lu(k,1637) = lu(k,1637) - lu(k,552) * lu(k,1608) - lu(k,1638) = lu(k,1638) - lu(k,553) * lu(k,1608) - lu(k,1639) = lu(k,1639) - lu(k,554) * lu(k,1608) - lu(k,1687) = lu(k,1687) - lu(k,536) * lu(k,1686) - lu(k,1691) = lu(k,1691) - lu(k,537) * lu(k,1686) - lu(k,1693) = lu(k,1693) - lu(k,538) * lu(k,1686) - lu(k,1698) = lu(k,1698) - lu(k,539) * lu(k,1686) - lu(k,1699) = lu(k,1699) - lu(k,540) * lu(k,1686) - lu(k,1701) = lu(k,1701) - lu(k,541) * lu(k,1686) - lu(k,1702) = lu(k,1702) - lu(k,542) * lu(k,1686) - lu(k,1703) = lu(k,1703) - lu(k,543) * lu(k,1686) - lu(k,1704) = lu(k,1704) - lu(k,544) * lu(k,1686) - lu(k,1705) = lu(k,1705) - lu(k,545) * lu(k,1686) - lu(k,1708) = lu(k,1708) - lu(k,546) * lu(k,1686) - lu(k,1709) = lu(k,1709) - lu(k,547) * lu(k,1686) - lu(k,1711) = lu(k,1711) - lu(k,548) * lu(k,1686) - lu(k,1713) = lu(k,1713) - lu(k,549) * lu(k,1686) - lu(k,1714) = lu(k,1714) - lu(k,550) * lu(k,1686) - lu(k,1715) = lu(k,1715) - lu(k,551) * lu(k,1686) - lu(k,1716) = lu(k,1716) - lu(k,552) * lu(k,1686) - lu(k,1717) = lu(k,1717) - lu(k,553) * lu(k,1686) - lu(k,1718) = lu(k,1718) - lu(k,554) * lu(k,1686) - lu(k,1733) = lu(k,1733) - lu(k,536) * lu(k,1732) - lu(k,1736) = lu(k,1736) - lu(k,537) * lu(k,1732) - lu(k,1738) = lu(k,1738) - lu(k,538) * lu(k,1732) - lu(k,1743) = lu(k,1743) - lu(k,539) * lu(k,1732) - lu(k,1744) = lu(k,1744) - lu(k,540) * lu(k,1732) - lu(k,1746) = lu(k,1746) - lu(k,541) * lu(k,1732) - lu(k,1747) = lu(k,1747) - lu(k,542) * lu(k,1732) - lu(k,1748) = lu(k,1748) - lu(k,543) * lu(k,1732) - lu(k,1749) = lu(k,1749) - lu(k,544) * lu(k,1732) - lu(k,1750) = lu(k,1750) - lu(k,545) * lu(k,1732) - lu(k,1753) = lu(k,1753) - lu(k,546) * lu(k,1732) - lu(k,1754) = lu(k,1754) - lu(k,547) * lu(k,1732) - lu(k,1756) = lu(k,1756) - lu(k,548) * lu(k,1732) - lu(k,1758) = lu(k,1758) - lu(k,549) * lu(k,1732) - lu(k,1759) = lu(k,1759) - lu(k,550) * lu(k,1732) - lu(k,1760) = lu(k,1760) - lu(k,551) * lu(k,1732) - lu(k,1761) = lu(k,1761) - lu(k,552) * lu(k,1732) - lu(k,1762) = lu(k,1762) - lu(k,553) * lu(k,1732) - lu(k,1763) = lu(k,1763) - lu(k,554) * lu(k,1732) - lu(k,1786) = lu(k,1786) - lu(k,536) * lu(k,1785) - lu(k,1789) = lu(k,1789) - lu(k,537) * lu(k,1785) - lu(k,1791) = lu(k,1791) - lu(k,538) * lu(k,1785) - lu(k,1796) = lu(k,1796) - lu(k,539) * lu(k,1785) - lu(k,1797) = lu(k,1797) - lu(k,540) * lu(k,1785) - lu(k,1799) = lu(k,1799) - lu(k,541) * lu(k,1785) - lu(k,1800) = lu(k,1800) - lu(k,542) * lu(k,1785) - lu(k,1801) = lu(k,1801) - lu(k,543) * lu(k,1785) - lu(k,1802) = lu(k,1802) - lu(k,544) * lu(k,1785) - lu(k,1803) = lu(k,1803) - lu(k,545) * lu(k,1785) - lu(k,1806) = lu(k,1806) - lu(k,546) * lu(k,1785) - lu(k,1807) = lu(k,1807) - lu(k,547) * lu(k,1785) - lu(k,1809) = lu(k,1809) - lu(k,548) * lu(k,1785) - lu(k,1811) = lu(k,1811) - lu(k,549) * lu(k,1785) - lu(k,1812) = lu(k,1812) - lu(k,550) * lu(k,1785) - lu(k,1813) = lu(k,1813) - lu(k,551) * lu(k,1785) - lu(k,1814) = lu(k,1814) - lu(k,552) * lu(k,1785) - lu(k,1815) = lu(k,1815) - lu(k,553) * lu(k,1785) - lu(k,1816) = lu(k,1816) - lu(k,554) * lu(k,1785) - 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,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,571) = lu(k,571) * lu(k,567) - lu(k,572) = lu(k,572) * lu(k,567) - lu(k,573) = lu(k,573) * lu(k,567) - lu(k,574) = lu(k,574) * lu(k,567) - lu(k,575) = lu(k,575) * lu(k,567) - lu(k,576) = lu(k,576) * lu(k,567) - lu(k,577) = lu(k,577) * lu(k,567) - lu(k,578) = lu(k,578) * lu(k,567) - lu(k,579) = lu(k,579) * lu(k,567) - lu(k,580) = lu(k,580) * lu(k,567) - lu(k,581) = lu(k,581) * lu(k,567) - lu(k,582) = lu(k,582) * lu(k,567) - lu(k,583) = lu(k,583) * lu(k,567) - lu(k,584) = lu(k,584) * lu(k,567) - lu(k,585) = lu(k,585) * lu(k,567) - lu(k,586) = lu(k,586) * lu(k,567) - lu(k,587) = lu(k,587) * lu(k,567) - lu(k,588) = lu(k,588) * lu(k,567) - lu(k,680) = lu(k,680) - lu(k,568) * lu(k,679) - lu(k,681) = lu(k,681) - lu(k,569) * lu(k,679) - lu(k,682) = lu(k,682) - lu(k,570) * lu(k,679) - lu(k,683) = lu(k,683) - lu(k,571) * lu(k,679) - lu(k,684) = lu(k,684) - lu(k,572) * lu(k,679) - lu(k,686) = lu(k,686) - lu(k,573) * lu(k,679) - lu(k,687) = lu(k,687) - lu(k,574) * lu(k,679) - lu(k,688) = lu(k,688) - lu(k,575) * lu(k,679) - lu(k,689) = lu(k,689) - lu(k,576) * lu(k,679) - lu(k,690) = lu(k,690) - lu(k,577) * lu(k,679) - lu(k,691) = - lu(k,578) * lu(k,679) - lu(k,692) = - lu(k,579) * lu(k,679) - lu(k,693) = lu(k,693) - lu(k,580) * lu(k,679) - lu(k,694) = lu(k,694) - lu(k,581) * lu(k,679) - lu(k,695) = lu(k,695) - lu(k,582) * lu(k,679) - lu(k,696) = lu(k,696) - lu(k,583) * lu(k,679) - lu(k,697) = lu(k,697) - lu(k,584) * lu(k,679) - lu(k,698) = lu(k,698) - lu(k,585) * lu(k,679) - lu(k,699) = lu(k,699) - lu(k,586) * lu(k,679) - lu(k,700) = lu(k,700) - lu(k,587) * lu(k,679) - lu(k,701) = lu(k,701) - lu(k,588) * lu(k,679) - lu(k,748) = lu(k,748) - lu(k,568) * lu(k,747) - lu(k,749) = lu(k,749) - lu(k,569) * lu(k,747) - lu(k,750) = lu(k,750) - lu(k,570) * lu(k,747) - lu(k,752) = lu(k,752) - lu(k,571) * lu(k,747) - lu(k,753) = lu(k,753) - lu(k,572) * lu(k,747) - lu(k,755) = lu(k,755) - lu(k,573) * lu(k,747) - lu(k,756) = lu(k,756) - lu(k,574) * lu(k,747) - lu(k,757) = lu(k,757) - lu(k,575) * lu(k,747) - lu(k,758) = lu(k,758) - lu(k,576) * lu(k,747) - lu(k,759) = lu(k,759) - lu(k,577) * lu(k,747) - lu(k,760) = - lu(k,578) * lu(k,747) - lu(k,761) = lu(k,761) - lu(k,579) * lu(k,747) - lu(k,762) = lu(k,762) - lu(k,580) * lu(k,747) - lu(k,763) = lu(k,763) - lu(k,581) * lu(k,747) - lu(k,764) = lu(k,764) - lu(k,582) * lu(k,747) - lu(k,765) = lu(k,765) - lu(k,583) * lu(k,747) - lu(k,766) = lu(k,766) - lu(k,584) * lu(k,747) - lu(k,767) = lu(k,767) - lu(k,585) * lu(k,747) - lu(k,768) = lu(k,768) - lu(k,586) * lu(k,747) - lu(k,769) = lu(k,769) - lu(k,587) * lu(k,747) - lu(k,770) = lu(k,770) - lu(k,588) * lu(k,747) - lu(k,865) = lu(k,865) - lu(k,568) * lu(k,861) - lu(k,867) = lu(k,867) - lu(k,569) * lu(k,861) - lu(k,869) = lu(k,869) - lu(k,570) * lu(k,861) - lu(k,872) = lu(k,872) - lu(k,571) * lu(k,861) - lu(k,873) = lu(k,873) - lu(k,572) * lu(k,861) - lu(k,875) = lu(k,875) - lu(k,573) * lu(k,861) - lu(k,876) = lu(k,876) - lu(k,574) * lu(k,861) - lu(k,877) = lu(k,877) - lu(k,575) * lu(k,861) - lu(k,878) = lu(k,878) - lu(k,576) * lu(k,861) - lu(k,879) = - lu(k,577) * lu(k,861) - lu(k,880) = lu(k,880) - lu(k,578) * lu(k,861) - lu(k,881) = lu(k,881) - lu(k,579) * lu(k,861) - lu(k,882) = lu(k,882) - lu(k,580) * lu(k,861) - lu(k,883) = lu(k,883) - lu(k,581) * lu(k,861) - lu(k,885) = - lu(k,582) * lu(k,861) - lu(k,887) = - lu(k,583) * lu(k,861) - lu(k,888) = - lu(k,584) * lu(k,861) - lu(k,889) = lu(k,889) - lu(k,585) * lu(k,861) - lu(k,890) = lu(k,890) - lu(k,586) * lu(k,861) - lu(k,891) = lu(k,891) - lu(k,587) * lu(k,861) - lu(k,892) = lu(k,892) - lu(k,588) * lu(k,861) - lu(k,953) = lu(k,953) - lu(k,568) * lu(k,952) - lu(k,954) = lu(k,954) - lu(k,569) * lu(k,952) - lu(k,955) = lu(k,955) - lu(k,570) * lu(k,952) - lu(k,958) = lu(k,958) - lu(k,571) * lu(k,952) - lu(k,959) = lu(k,959) - lu(k,572) * lu(k,952) - lu(k,961) = lu(k,961) - lu(k,573) * lu(k,952) - lu(k,962) = - lu(k,574) * lu(k,952) - lu(k,963) = - lu(k,575) * lu(k,952) - lu(k,964) = lu(k,964) - lu(k,576) * lu(k,952) - lu(k,965) = lu(k,965) - lu(k,577) * lu(k,952) - lu(k,966) = lu(k,966) - lu(k,578) * lu(k,952) - lu(k,967) = lu(k,967) - lu(k,579) * lu(k,952) - lu(k,968) = - lu(k,580) * lu(k,952) - lu(k,969) = - lu(k,581) * lu(k,952) - lu(k,971) = - lu(k,582) * lu(k,952) - lu(k,973) = - lu(k,583) * lu(k,952) - lu(k,974) = lu(k,974) - lu(k,584) * lu(k,952) - lu(k,975) = lu(k,975) - lu(k,585) * lu(k,952) - lu(k,976) = lu(k,976) - lu(k,586) * lu(k,952) - lu(k,977) = lu(k,977) - lu(k,587) * lu(k,952) - lu(k,978) = lu(k,978) - lu(k,588) * lu(k,952) - lu(k,993) = lu(k,993) - lu(k,568) * lu(k,990) - lu(k,995) = lu(k,995) - lu(k,569) * lu(k,990) - lu(k,997) = lu(k,997) - lu(k,570) * lu(k,990) - lu(k,1000) = lu(k,1000) - lu(k,571) * lu(k,990) - lu(k,1001) = lu(k,1001) - lu(k,572) * lu(k,990) - lu(k,1003) = lu(k,1003) - lu(k,573) * lu(k,990) - lu(k,1004) = lu(k,1004) - lu(k,574) * lu(k,990) - lu(k,1005) = lu(k,1005) - lu(k,575) * lu(k,990) - lu(k,1006) = lu(k,1006) - lu(k,576) * lu(k,990) - lu(k,1007) = lu(k,1007) - lu(k,577) * lu(k,990) - lu(k,1008) = lu(k,1008) - lu(k,578) * lu(k,990) - lu(k,1009) = lu(k,1009) - lu(k,579) * lu(k,990) - lu(k,1010) = lu(k,1010) - lu(k,580) * lu(k,990) - lu(k,1011) = lu(k,1011) - lu(k,581) * lu(k,990) - lu(k,1013) = lu(k,1013) - lu(k,582) * lu(k,990) - lu(k,1015) = lu(k,1015) - lu(k,583) * lu(k,990) - lu(k,1016) = lu(k,1016) - lu(k,584) * lu(k,990) - lu(k,1017) = lu(k,1017) - lu(k,585) * lu(k,990) - lu(k,1018) = lu(k,1018) - lu(k,586) * lu(k,990) - lu(k,1019) = lu(k,1019) - lu(k,587) * lu(k,990) - lu(k,1020) = lu(k,1020) - lu(k,588) * lu(k,990) - lu(k,1121) = lu(k,1121) - lu(k,568) * lu(k,1117) - lu(k,1123) = lu(k,1123) - lu(k,569) * lu(k,1117) - lu(k,1125) = lu(k,1125) - lu(k,570) * lu(k,1117) - lu(k,1128) = lu(k,1128) - lu(k,571) * lu(k,1117) - lu(k,1129) = lu(k,1129) - lu(k,572) * lu(k,1117) - lu(k,1131) = lu(k,1131) - lu(k,573) * lu(k,1117) - lu(k,1132) = lu(k,1132) - lu(k,574) * lu(k,1117) - lu(k,1133) = lu(k,1133) - lu(k,575) * lu(k,1117) - lu(k,1134) = lu(k,1134) - lu(k,576) * lu(k,1117) - lu(k,1135) = lu(k,1135) - lu(k,577) * lu(k,1117) - lu(k,1136) = lu(k,1136) - lu(k,578) * lu(k,1117) - lu(k,1137) = lu(k,1137) - lu(k,579) * lu(k,1117) - lu(k,1138) = lu(k,1138) - lu(k,580) * lu(k,1117) - lu(k,1139) = lu(k,1139) - lu(k,581) * lu(k,1117) - lu(k,1141) = lu(k,1141) - lu(k,582) * lu(k,1117) - lu(k,1143) = lu(k,1143) - lu(k,583) * lu(k,1117) - lu(k,1144) = lu(k,1144) - lu(k,584) * lu(k,1117) - lu(k,1145) = lu(k,1145) - lu(k,585) * lu(k,1117) - lu(k,1146) = lu(k,1146) - lu(k,586) * lu(k,1117) - lu(k,1147) = lu(k,1147) - lu(k,587) * lu(k,1117) - lu(k,1148) = lu(k,1148) - lu(k,588) * lu(k,1117) - lu(k,1161) = lu(k,1161) - lu(k,568) * lu(k,1158) - lu(k,1163) = lu(k,1163) - lu(k,569) * lu(k,1158) - lu(k,1165) = lu(k,1165) - lu(k,570) * lu(k,1158) - lu(k,1168) = lu(k,1168) - lu(k,571) * lu(k,1158) - lu(k,1169) = lu(k,1169) - lu(k,572) * lu(k,1158) - lu(k,1171) = lu(k,1171) - lu(k,573) * lu(k,1158) - lu(k,1172) = lu(k,1172) - lu(k,574) * lu(k,1158) - lu(k,1173) = lu(k,1173) - lu(k,575) * lu(k,1158) - lu(k,1174) = lu(k,1174) - lu(k,576) * lu(k,1158) - lu(k,1175) = lu(k,1175) - lu(k,577) * lu(k,1158) - lu(k,1176) = lu(k,1176) - lu(k,578) * lu(k,1158) - lu(k,1177) = lu(k,1177) - lu(k,579) * lu(k,1158) - lu(k,1178) = lu(k,1178) - lu(k,580) * lu(k,1158) - lu(k,1179) = lu(k,1179) - lu(k,581) * lu(k,1158) - lu(k,1181) = lu(k,1181) - lu(k,582) * lu(k,1158) - lu(k,1183) = lu(k,1183) - lu(k,583) * lu(k,1158) - lu(k,1184) = lu(k,1184) - lu(k,584) * lu(k,1158) - lu(k,1185) = lu(k,1185) - lu(k,585) * lu(k,1158) - lu(k,1186) = lu(k,1186) - lu(k,586) * lu(k,1158) - lu(k,1187) = lu(k,1187) - lu(k,587) * lu(k,1158) - lu(k,1188) = lu(k,1188) - lu(k,588) * lu(k,1158) - lu(k,1217) = lu(k,1217) - lu(k,568) * lu(k,1213) - lu(k,1219) = lu(k,1219) - lu(k,569) * lu(k,1213) - lu(k,1221) = lu(k,1221) - lu(k,570) * lu(k,1213) - lu(k,1224) = lu(k,1224) - lu(k,571) * lu(k,1213) - lu(k,1225) = lu(k,1225) - lu(k,572) * lu(k,1213) - lu(k,1227) = lu(k,1227) - lu(k,573) * lu(k,1213) - lu(k,1228) = lu(k,1228) - lu(k,574) * lu(k,1213) - lu(k,1229) = lu(k,1229) - lu(k,575) * lu(k,1213) - lu(k,1230) = lu(k,1230) - lu(k,576) * lu(k,1213) - lu(k,1231) = lu(k,1231) - lu(k,577) * lu(k,1213) - lu(k,1232) = lu(k,1232) - lu(k,578) * lu(k,1213) - lu(k,1233) = lu(k,1233) - lu(k,579) * lu(k,1213) - lu(k,1234) = lu(k,1234) - lu(k,580) * lu(k,1213) - lu(k,1235) = lu(k,1235) - lu(k,581) * lu(k,1213) - lu(k,1237) = lu(k,1237) - lu(k,582) * lu(k,1213) - lu(k,1239) = lu(k,1239) - lu(k,583) * lu(k,1213) - lu(k,1240) = lu(k,1240) - lu(k,584) * lu(k,1213) - lu(k,1241) = lu(k,1241) - lu(k,585) * lu(k,1213) - lu(k,1242) = lu(k,1242) - lu(k,586) * lu(k,1213) - lu(k,1243) = lu(k,1243) - lu(k,587) * lu(k,1213) - lu(k,1244) = lu(k,1244) - lu(k,588) * lu(k,1213) - lu(k,1255) = lu(k,1255) - lu(k,568) * lu(k,1252) - lu(k,1257) = lu(k,1257) - lu(k,569) * lu(k,1252) - lu(k,1259) = lu(k,1259) - lu(k,570) * lu(k,1252) - lu(k,1262) = lu(k,1262) - lu(k,571) * lu(k,1252) - lu(k,1263) = lu(k,1263) - lu(k,572) * lu(k,1252) - lu(k,1265) = lu(k,1265) - lu(k,573) * lu(k,1252) - lu(k,1266) = lu(k,1266) - lu(k,574) * lu(k,1252) - lu(k,1267) = lu(k,1267) - lu(k,575) * lu(k,1252) - lu(k,1268) = lu(k,1268) - lu(k,576) * lu(k,1252) - lu(k,1269) = lu(k,1269) - lu(k,577) * lu(k,1252) - lu(k,1270) = lu(k,1270) - lu(k,578) * lu(k,1252) - lu(k,1271) = lu(k,1271) - lu(k,579) * lu(k,1252) - lu(k,1272) = lu(k,1272) - lu(k,580) * lu(k,1252) - lu(k,1273) = lu(k,1273) - lu(k,581) * lu(k,1252) - lu(k,1275) = lu(k,1275) - lu(k,582) * lu(k,1252) - lu(k,1277) = lu(k,1277) - lu(k,583) * lu(k,1252) - lu(k,1278) = lu(k,1278) - lu(k,584) * lu(k,1252) - lu(k,1279) = lu(k,1279) - lu(k,585) * lu(k,1252) - lu(k,1280) = lu(k,1280) - lu(k,586) * lu(k,1252) - lu(k,1281) = lu(k,1281) - lu(k,587) * lu(k,1252) - lu(k,1282) = lu(k,1282) - lu(k,588) * lu(k,1252) - lu(k,1336) = lu(k,1336) - lu(k,568) * lu(k,1332) - lu(k,1338) = lu(k,1338) - lu(k,569) * lu(k,1332) - lu(k,1340) = lu(k,1340) - lu(k,570) * lu(k,1332) - lu(k,1343) = lu(k,1343) - lu(k,571) * lu(k,1332) - lu(k,1344) = lu(k,1344) - lu(k,572) * lu(k,1332) - lu(k,1346) = lu(k,1346) - lu(k,573) * lu(k,1332) - lu(k,1347) = lu(k,1347) - lu(k,574) * lu(k,1332) - lu(k,1348) = lu(k,1348) - lu(k,575) * lu(k,1332) - lu(k,1349) = lu(k,1349) - lu(k,576) * lu(k,1332) - lu(k,1350) = lu(k,1350) - lu(k,577) * lu(k,1332) - lu(k,1351) = lu(k,1351) - lu(k,578) * lu(k,1332) - lu(k,1352) = lu(k,1352) - lu(k,579) * lu(k,1332) - lu(k,1353) = lu(k,1353) - lu(k,580) * lu(k,1332) - lu(k,1354) = lu(k,1354) - lu(k,581) * lu(k,1332) - lu(k,1356) = - lu(k,582) * lu(k,1332) - lu(k,1358) = - lu(k,583) * lu(k,1332) - lu(k,1359) = lu(k,1359) - lu(k,584) * lu(k,1332) - lu(k,1360) = lu(k,1360) - lu(k,585) * lu(k,1332) - lu(k,1361) = lu(k,1361) - lu(k,586) * lu(k,1332) - lu(k,1362) = lu(k,1362) - lu(k,587) * lu(k,1332) - lu(k,1363) = lu(k,1363) - lu(k,588) * lu(k,1332) - lu(k,1379) = lu(k,1379) - lu(k,568) * lu(k,1375) - lu(k,1381) = lu(k,1381) - lu(k,569) * lu(k,1375) - lu(k,1383) = - lu(k,570) * lu(k,1375) - lu(k,1386) = lu(k,1386) - lu(k,571) * lu(k,1375) - lu(k,1387) = lu(k,1387) - lu(k,572) * lu(k,1375) - lu(k,1389) = lu(k,1389) - lu(k,573) * lu(k,1375) - lu(k,1390) = lu(k,1390) - lu(k,574) * lu(k,1375) - lu(k,1391) = lu(k,1391) - lu(k,575) * lu(k,1375) - lu(k,1392) = lu(k,1392) - lu(k,576) * lu(k,1375) - lu(k,1393) = lu(k,1393) - lu(k,577) * lu(k,1375) - lu(k,1394) = lu(k,1394) - lu(k,578) * lu(k,1375) - lu(k,1395) = - lu(k,579) * lu(k,1375) - lu(k,1396) = lu(k,1396) - lu(k,580) * lu(k,1375) - lu(k,1397) = lu(k,1397) - lu(k,581) * lu(k,1375) - lu(k,1399) = lu(k,1399) - lu(k,582) * lu(k,1375) - lu(k,1401) = lu(k,1401) - lu(k,583) * lu(k,1375) - lu(k,1402) = lu(k,1402) - lu(k,584) * lu(k,1375) - lu(k,1403) = lu(k,1403) - lu(k,585) * lu(k,1375) - lu(k,1404) = lu(k,1404) - lu(k,586) * lu(k,1375) - lu(k,1405) = lu(k,1405) - lu(k,587) * lu(k,1375) - lu(k,1406) = lu(k,1406) - lu(k,588) * lu(k,1375) - lu(k,1415) = lu(k,1415) - lu(k,568) * lu(k,1413) - lu(k,1417) = lu(k,1417) - lu(k,569) * lu(k,1413) - lu(k,1418) = lu(k,1418) - lu(k,570) * lu(k,1413) - lu(k,1421) = lu(k,1421) - lu(k,571) * lu(k,1413) - lu(k,1422) = lu(k,1422) - lu(k,572) * lu(k,1413) - lu(k,1424) = lu(k,1424) - lu(k,573) * lu(k,1413) - lu(k,1425) = lu(k,1425) - lu(k,574) * lu(k,1413) - lu(k,1426) = lu(k,1426) - lu(k,575) * lu(k,1413) - lu(k,1427) = lu(k,1427) - lu(k,576) * lu(k,1413) - lu(k,1428) = lu(k,1428) - lu(k,577) * lu(k,1413) - lu(k,1429) = - lu(k,578) * lu(k,1413) - lu(k,1430) = lu(k,1430) - lu(k,579) * lu(k,1413) - lu(k,1431) = lu(k,1431) - lu(k,580) * lu(k,1413) - lu(k,1432) = lu(k,1432) - lu(k,581) * lu(k,1413) - lu(k,1434) = lu(k,1434) - lu(k,582) * lu(k,1413) - lu(k,1436) = lu(k,1436) - lu(k,583) * lu(k,1413) - lu(k,1437) = lu(k,1437) - lu(k,584) * lu(k,1413) - lu(k,1438) = lu(k,1438) - lu(k,585) * lu(k,1413) - lu(k,1439) = lu(k,1439) - lu(k,586) * lu(k,1413) - lu(k,1440) = lu(k,1440) - lu(k,587) * lu(k,1413) - lu(k,1441) = lu(k,1441) - lu(k,588) * lu(k,1413) - lu(k,1500) = lu(k,1500) - lu(k,568) * lu(k,1496) - lu(k,1502) = lu(k,1502) - lu(k,569) * lu(k,1496) - lu(k,1504) = - lu(k,570) * lu(k,1496) - lu(k,1507) = lu(k,1507) - lu(k,571) * lu(k,1496) - lu(k,1508) = lu(k,1508) - lu(k,572) * lu(k,1496) - lu(k,1510) = lu(k,1510) - lu(k,573) * lu(k,1496) - lu(k,1511) = lu(k,1511) - lu(k,574) * lu(k,1496) - lu(k,1512) = lu(k,1512) - lu(k,575) * lu(k,1496) - lu(k,1513) = lu(k,1513) - lu(k,576) * lu(k,1496) - lu(k,1514) = lu(k,1514) - lu(k,577) * lu(k,1496) - lu(k,1515) = lu(k,1515) - lu(k,578) * lu(k,1496) - lu(k,1516) = - lu(k,579) * lu(k,1496) - lu(k,1517) = lu(k,1517) - lu(k,580) * lu(k,1496) - lu(k,1518) = lu(k,1518) - lu(k,581) * lu(k,1496) - lu(k,1520) = lu(k,1520) - lu(k,582) * lu(k,1496) - lu(k,1522) = lu(k,1522) - lu(k,583) * lu(k,1496) - lu(k,1523) = lu(k,1523) - lu(k,584) * lu(k,1496) - lu(k,1524) = lu(k,1524) - lu(k,585) * lu(k,1496) - lu(k,1525) = lu(k,1525) - lu(k,586) * lu(k,1496) - lu(k,1526) = lu(k,1526) - lu(k,587) * lu(k,1496) - lu(k,1527) = lu(k,1527) - lu(k,588) * lu(k,1496) - lu(k,1612) = lu(k,1612) - lu(k,568) * lu(k,1609) - lu(k,1614) = lu(k,1614) - lu(k,569) * lu(k,1609) - lu(k,1616) = lu(k,1616) - lu(k,570) * lu(k,1609) - lu(k,1619) = lu(k,1619) - lu(k,571) * lu(k,1609) - lu(k,1620) = lu(k,1620) - lu(k,572) * lu(k,1609) - lu(k,1622) = lu(k,1622) - lu(k,573) * lu(k,1609) - lu(k,1623) = lu(k,1623) - lu(k,574) * lu(k,1609) - lu(k,1624) = lu(k,1624) - lu(k,575) * lu(k,1609) - lu(k,1625) = lu(k,1625) - lu(k,576) * lu(k,1609) - lu(k,1626) = lu(k,1626) - lu(k,577) * lu(k,1609) - lu(k,1627) = lu(k,1627) - lu(k,578) * lu(k,1609) - lu(k,1628) = lu(k,1628) - lu(k,579) * lu(k,1609) - lu(k,1629) = lu(k,1629) - lu(k,580) * lu(k,1609) - lu(k,1630) = lu(k,1630) - lu(k,581) * lu(k,1609) - lu(k,1632) = lu(k,1632) - lu(k,582) * lu(k,1609) - lu(k,1634) = lu(k,1634) - lu(k,583) * lu(k,1609) - lu(k,1635) = lu(k,1635) - lu(k,584) * lu(k,1609) - lu(k,1636) = lu(k,1636) - lu(k,585) * lu(k,1609) - lu(k,1637) = lu(k,1637) - lu(k,586) * lu(k,1609) - lu(k,1638) = lu(k,1638) - lu(k,587) * lu(k,1609) - lu(k,1639) = lu(k,1639) - lu(k,588) * lu(k,1609) - lu(k,1655) = lu(k,1655) - lu(k,568) * lu(k,1652) - lu(k,1657) = lu(k,1657) - lu(k,569) * lu(k,1652) - lu(k,1659) = lu(k,1659) - lu(k,570) * lu(k,1652) - lu(k,1662) = lu(k,1662) - lu(k,571) * lu(k,1652) - lu(k,1663) = lu(k,1663) - lu(k,572) * lu(k,1652) - lu(k,1665) = lu(k,1665) - lu(k,573) * lu(k,1652) - lu(k,1666) = - lu(k,574) * lu(k,1652) - lu(k,1667) = - lu(k,575) * lu(k,1652) - lu(k,1668) = lu(k,1668) - lu(k,576) * lu(k,1652) - lu(k,1669) = lu(k,1669) - lu(k,577) * lu(k,1652) - lu(k,1670) = lu(k,1670) - lu(k,578) * lu(k,1652) - lu(k,1671) = lu(k,1671) - lu(k,579) * lu(k,1652) - lu(k,1672) = - lu(k,580) * lu(k,1652) - lu(k,1673) = - lu(k,581) * lu(k,1652) - lu(k,1675) = - lu(k,582) * lu(k,1652) - lu(k,1677) = lu(k,1677) - lu(k,583) * lu(k,1652) - lu(k,1678) = lu(k,1678) - lu(k,584) * lu(k,1652) - lu(k,1679) = lu(k,1679) - lu(k,585) * lu(k,1652) - lu(k,1680) = lu(k,1680) - lu(k,586) * lu(k,1652) - lu(k,1681) = lu(k,1681) - lu(k,587) * lu(k,1652) - lu(k,1682) = lu(k,1682) - lu(k,588) * lu(k,1652) - lu(k,1691) = lu(k,1691) - lu(k,568) * lu(k,1687) - lu(k,1693) = lu(k,1693) - lu(k,569) * lu(k,1687) - lu(k,1695) = lu(k,1695) - lu(k,570) * lu(k,1687) - lu(k,1698) = lu(k,1698) - lu(k,571) * lu(k,1687) - lu(k,1699) = lu(k,1699) - lu(k,572) * lu(k,1687) - lu(k,1701) = lu(k,1701) - lu(k,573) * lu(k,1687) - lu(k,1702) = lu(k,1702) - lu(k,574) * lu(k,1687) - lu(k,1703) = lu(k,1703) - lu(k,575) * lu(k,1687) - lu(k,1704) = lu(k,1704) - lu(k,576) * lu(k,1687) - lu(k,1705) = lu(k,1705) - lu(k,577) * lu(k,1687) - lu(k,1706) = lu(k,1706) - lu(k,578) * lu(k,1687) - lu(k,1707) = - lu(k,579) * lu(k,1687) - lu(k,1708) = lu(k,1708) - lu(k,580) * lu(k,1687) - lu(k,1709) = lu(k,1709) - lu(k,581) * lu(k,1687) - lu(k,1711) = lu(k,1711) - lu(k,582) * lu(k,1687) - lu(k,1713) = lu(k,1713) - lu(k,583) * lu(k,1687) - lu(k,1714) = lu(k,1714) - lu(k,584) * lu(k,1687) - lu(k,1715) = lu(k,1715) - lu(k,585) * lu(k,1687) - lu(k,1716) = lu(k,1716) - lu(k,586) * lu(k,1687) - lu(k,1717) = lu(k,1717) - lu(k,587) * lu(k,1687) - lu(k,1718) = lu(k,1718) - lu(k,588) * lu(k,1687) - lu(k,1736) = lu(k,1736) - lu(k,568) * lu(k,1733) - lu(k,1738) = lu(k,1738) - lu(k,569) * lu(k,1733) - lu(k,1740) = lu(k,1740) - lu(k,570) * lu(k,1733) - lu(k,1743) = lu(k,1743) - lu(k,571) * lu(k,1733) - lu(k,1744) = lu(k,1744) - lu(k,572) * lu(k,1733) - lu(k,1746) = lu(k,1746) - lu(k,573) * lu(k,1733) - lu(k,1747) = lu(k,1747) - lu(k,574) * lu(k,1733) - lu(k,1748) = lu(k,1748) - lu(k,575) * lu(k,1733) - lu(k,1749) = lu(k,1749) - lu(k,576) * lu(k,1733) - lu(k,1750) = lu(k,1750) - lu(k,577) * lu(k,1733) - lu(k,1751) = lu(k,1751) - lu(k,578) * lu(k,1733) - lu(k,1752) = lu(k,1752) - lu(k,579) * lu(k,1733) - lu(k,1753) = lu(k,1753) - lu(k,580) * lu(k,1733) - lu(k,1754) = lu(k,1754) - lu(k,581) * lu(k,1733) - lu(k,1756) = lu(k,1756) - lu(k,582) * lu(k,1733) - lu(k,1758) = lu(k,1758) - lu(k,583) * lu(k,1733) - lu(k,1759) = lu(k,1759) - lu(k,584) * lu(k,1733) - lu(k,1760) = lu(k,1760) - lu(k,585) * lu(k,1733) - lu(k,1761) = lu(k,1761) - lu(k,586) * lu(k,1733) - lu(k,1762) = lu(k,1762) - lu(k,587) * lu(k,1733) - lu(k,1763) = lu(k,1763) - lu(k,588) * lu(k,1733) - lu(k,1789) = lu(k,1789) - lu(k,568) * lu(k,1786) - lu(k,1791) = lu(k,1791) - lu(k,569) * lu(k,1786) - lu(k,1793) = lu(k,1793) - lu(k,570) * lu(k,1786) - lu(k,1796) = lu(k,1796) - lu(k,571) * lu(k,1786) - lu(k,1797) = lu(k,1797) - lu(k,572) * lu(k,1786) - lu(k,1799) = lu(k,1799) - lu(k,573) * lu(k,1786) - lu(k,1800) = lu(k,1800) - lu(k,574) * lu(k,1786) - lu(k,1801) = lu(k,1801) - lu(k,575) * lu(k,1786) - lu(k,1802) = lu(k,1802) - lu(k,576) * lu(k,1786) - lu(k,1803) = lu(k,1803) - lu(k,577) * lu(k,1786) - lu(k,1804) = lu(k,1804) - lu(k,578) * lu(k,1786) - lu(k,1805) = lu(k,1805) - lu(k,579) * lu(k,1786) - lu(k,1806) = lu(k,1806) - lu(k,580) * lu(k,1786) - lu(k,1807) = lu(k,1807) - lu(k,581) * lu(k,1786) - lu(k,1809) = lu(k,1809) - lu(k,582) * lu(k,1786) - lu(k,1811) = lu(k,1811) - lu(k,583) * lu(k,1786) - lu(k,1812) = lu(k,1812) - lu(k,584) * lu(k,1786) - lu(k,1813) = lu(k,1813) - lu(k,585) * lu(k,1786) - lu(k,1814) = lu(k,1814) - lu(k,586) * lu(k,1786) - lu(k,1815) = lu(k,1815) - lu(k,587) * lu(k,1786) - lu(k,1816) = lu(k,1816) - lu(k,588) * lu(k,1786) - lu(k,591) = 1._r8 / lu(k,591) - lu(k,592) = lu(k,592) * lu(k,591) - lu(k,593) = lu(k,593) * lu(k,591) - lu(k,594) = lu(k,594) * lu(k,591) - lu(k,595) = lu(k,595) * lu(k,591) - lu(k,596) = lu(k,596) * lu(k,591) - lu(k,597) = lu(k,597) * lu(k,591) - lu(k,598) = lu(k,598) * lu(k,591) - lu(k,599) = lu(k,599) * lu(k,591) - lu(k,600) = lu(k,600) * lu(k,591) - lu(k,601) = lu(k,601) * lu(k,591) - lu(k,602) = lu(k,602) * lu(k,591) - lu(k,603) = lu(k,603) * lu(k,591) - lu(k,604) = lu(k,604) * lu(k,591) - lu(k,605) = lu(k,605) * lu(k,591) - lu(k,606) = lu(k,606) * lu(k,591) - lu(k,607) = lu(k,607) * lu(k,591) - lu(k,608) = lu(k,608) * lu(k,591) - lu(k,609) = lu(k,609) * lu(k,591) - lu(k,614) = lu(k,614) - lu(k,592) * lu(k,612) - lu(k,616) = lu(k,616) - lu(k,593) * lu(k,612) - lu(k,619) = lu(k,619) - lu(k,594) * lu(k,612) - lu(k,620) = lu(k,620) - lu(k,595) * lu(k,612) - lu(k,621) = lu(k,621) - lu(k,596) * lu(k,612) - lu(k,622) = lu(k,622) - lu(k,597) * lu(k,612) - lu(k,623) = lu(k,623) - lu(k,598) * lu(k,612) - lu(k,624) = lu(k,624) - lu(k,599) * lu(k,612) - lu(k,626) = lu(k,626) - lu(k,600) * lu(k,612) - lu(k,627) = - lu(k,601) * lu(k,612) - lu(k,631) = lu(k,631) - lu(k,602) * lu(k,612) - lu(k,632) = lu(k,632) - lu(k,603) * lu(k,612) - lu(k,633) = lu(k,633) - lu(k,604) * lu(k,612) - lu(k,635) = lu(k,635) - lu(k,605) * lu(k,612) - lu(k,638) = lu(k,638) - lu(k,606) * lu(k,612) - lu(k,639) = lu(k,639) - lu(k,607) * lu(k,612) - lu(k,640) = lu(k,640) - lu(k,608) * lu(k,612) - lu(k,641) = lu(k,641) - lu(k,609) * lu(k,612) - lu(k,646) = lu(k,646) - lu(k,592) * lu(k,645) - lu(k,647) = lu(k,647) - lu(k,593) * lu(k,645) - lu(k,648) = lu(k,648) - lu(k,594) * lu(k,645) - lu(k,649) = lu(k,649) - lu(k,595) * lu(k,645) - lu(k,650) = lu(k,650) - lu(k,596) * lu(k,645) - lu(k,651) = lu(k,651) - lu(k,597) * lu(k,645) - lu(k,652) = lu(k,652) - lu(k,598) * lu(k,645) - lu(k,653) = lu(k,653) - lu(k,599) * lu(k,645) - lu(k,654) = lu(k,654) - lu(k,600) * lu(k,645) - lu(k,655) = lu(k,655) - lu(k,601) * lu(k,645) - lu(k,658) = lu(k,658) - lu(k,602) * lu(k,645) - lu(k,659) = - lu(k,603) * lu(k,645) - lu(k,661) = lu(k,661) - lu(k,604) * lu(k,645) - lu(k,662) = lu(k,662) - lu(k,605) * lu(k,645) - lu(k,663) = lu(k,663) - lu(k,606) * lu(k,645) - lu(k,664) = lu(k,664) - lu(k,607) * lu(k,645) - lu(k,665) = lu(k,665) - lu(k,608) * lu(k,645) - lu(k,666) = lu(k,666) - lu(k,609) * lu(k,645) - lu(k,705) = lu(k,705) - lu(k,592) * lu(k,704) - lu(k,706) = lu(k,706) - lu(k,593) * lu(k,704) - lu(k,708) = lu(k,708) - lu(k,594) * lu(k,704) - lu(k,709) = lu(k,709) - lu(k,595) * lu(k,704) - lu(k,710) = lu(k,710) - lu(k,596) * lu(k,704) - lu(k,711) = lu(k,711) - lu(k,597) * lu(k,704) - lu(k,712) = lu(k,712) - lu(k,598) * lu(k,704) - lu(k,713) = lu(k,713) - lu(k,599) * lu(k,704) - lu(k,714) = lu(k,714) - lu(k,600) * lu(k,704) - lu(k,715) = lu(k,715) - lu(k,601) * lu(k,704) - lu(k,718) = lu(k,718) - lu(k,602) * lu(k,704) - lu(k,719) = lu(k,719) - lu(k,603) * lu(k,704) - lu(k,721) = lu(k,721) - lu(k,604) * lu(k,704) - lu(k,723) = lu(k,723) - lu(k,605) * lu(k,704) - lu(k,725) = lu(k,725) - lu(k,606) * lu(k,704) - lu(k,726) = lu(k,726) - lu(k,607) * lu(k,704) - lu(k,727) = lu(k,727) - lu(k,608) * lu(k,704) - lu(k,728) = lu(k,728) - lu(k,609) * lu(k,704) - lu(k,776) = lu(k,776) - lu(k,592) * lu(k,775) - lu(k,777) = lu(k,777) - lu(k,593) * lu(k,775) - lu(k,780) = lu(k,780) - lu(k,594) * lu(k,775) - lu(k,781) = lu(k,781) - lu(k,595) * lu(k,775) - lu(k,782) = lu(k,782) - lu(k,596) * lu(k,775) - lu(k,783) = lu(k,783) - lu(k,597) * lu(k,775) - lu(k,784) = lu(k,784) - lu(k,598) * lu(k,775) - lu(k,785) = lu(k,785) - lu(k,599) * lu(k,775) - lu(k,787) = - lu(k,600) * lu(k,775) - lu(k,788) = lu(k,788) - lu(k,601) * lu(k,775) - lu(k,792) = lu(k,792) - lu(k,602) * lu(k,775) - lu(k,793) = lu(k,793) - lu(k,603) * lu(k,775) - lu(k,795) = lu(k,795) - lu(k,604) * lu(k,775) - lu(k,797) = lu(k,797) - lu(k,605) * lu(k,775) - lu(k,800) = lu(k,800) - lu(k,606) * lu(k,775) - lu(k,801) = lu(k,801) - lu(k,607) * lu(k,775) - lu(k,802) = lu(k,802) - lu(k,608) * lu(k,775) - lu(k,803) = lu(k,803) - lu(k,609) * lu(k,775) - lu(k,818) = lu(k,818) - lu(k,592) * lu(k,816) - lu(k,820) = lu(k,820) - lu(k,593) * lu(k,816) - lu(k,823) = lu(k,823) - lu(k,594) * lu(k,816) - lu(k,824) = lu(k,824) - lu(k,595) * lu(k,816) - lu(k,825) = lu(k,825) - lu(k,596) * lu(k,816) - lu(k,826) = lu(k,826) - lu(k,597) * lu(k,816) - lu(k,827) = lu(k,827) - lu(k,598) * lu(k,816) - lu(k,828) = lu(k,828) - lu(k,599) * lu(k,816) - lu(k,830) = lu(k,830) - lu(k,600) * lu(k,816) - lu(k,831) = lu(k,831) - lu(k,601) * lu(k,816) - lu(k,835) = lu(k,835) - lu(k,602) * lu(k,816) - lu(k,836) = lu(k,836) - lu(k,603) * lu(k,816) - lu(k,838) = lu(k,838) - lu(k,604) * lu(k,816) - lu(k,840) = lu(k,840) - lu(k,605) * lu(k,816) - lu(k,843) = lu(k,843) - lu(k,606) * lu(k,816) - lu(k,844) = lu(k,844) - lu(k,607) * lu(k,816) - lu(k,845) = lu(k,845) - lu(k,608) * lu(k,816) - lu(k,846) = lu(k,846) - lu(k,609) * lu(k,816) - lu(k,864) = lu(k,864) - lu(k,592) * lu(k,862) - lu(k,866) = lu(k,866) - lu(k,593) * lu(k,862) - lu(k,869) = lu(k,869) - lu(k,594) * lu(k,862) - lu(k,870) = lu(k,870) - lu(k,595) * lu(k,862) - lu(k,871) = lu(k,871) - lu(k,596) * lu(k,862) - lu(k,872) = lu(k,872) - lu(k,597) * lu(k,862) - lu(k,873) = lu(k,873) - lu(k,598) * lu(k,862) - lu(k,874) = lu(k,874) - lu(k,599) * lu(k,862) - lu(k,876) = lu(k,876) - lu(k,600) * lu(k,862) - lu(k,877) = lu(k,877) - lu(k,601) * lu(k,862) - lu(k,881) = lu(k,881) - lu(k,602) * lu(k,862) - lu(k,882) = lu(k,882) - lu(k,603) * lu(k,862) - lu(k,884) = lu(k,884) - lu(k,604) * lu(k,862) - lu(k,886) = lu(k,886) - lu(k,605) * lu(k,862) - lu(k,889) = lu(k,889) - lu(k,606) * lu(k,862) - lu(k,890) = lu(k,890) - lu(k,607) * lu(k,862) - lu(k,891) = lu(k,891) - lu(k,608) * lu(k,862) - lu(k,892) = lu(k,892) - lu(k,609) * lu(k,862) - lu(k,907) = lu(k,907) - lu(k,592) * lu(k,905) - lu(k,909) = lu(k,909) - lu(k,593) * lu(k,905) - lu(k,912) = lu(k,912) - lu(k,594) * lu(k,905) - lu(k,913) = lu(k,913) - lu(k,595) * lu(k,905) - lu(k,914) = lu(k,914) - lu(k,596) * lu(k,905) - lu(k,915) = lu(k,915) - lu(k,597) * lu(k,905) - lu(k,916) = lu(k,916) - lu(k,598) * lu(k,905) - lu(k,917) = lu(k,917) - lu(k,599) * lu(k,905) - lu(k,919) = lu(k,919) - lu(k,600) * lu(k,905) - lu(k,920) = lu(k,920) - lu(k,601) * lu(k,905) - lu(k,924) = lu(k,924) - lu(k,602) * lu(k,905) - lu(k,925) = lu(k,925) - lu(k,603) * lu(k,905) - lu(k,927) = lu(k,927) - lu(k,604) * lu(k,905) - lu(k,929) = lu(k,929) - lu(k,605) * lu(k,905) - lu(k,932) = lu(k,932) - lu(k,606) * lu(k,905) - lu(k,933) = lu(k,933) - lu(k,607) * lu(k,905) - lu(k,934) = lu(k,934) - lu(k,608) * lu(k,905) - lu(k,935) = lu(k,935) - lu(k,609) * lu(k,905) - lu(k,992) = lu(k,992) - lu(k,592) * lu(k,991) - lu(k,994) = lu(k,994) - lu(k,593) * lu(k,991) - lu(k,997) = lu(k,997) - lu(k,594) * lu(k,991) - lu(k,998) = lu(k,998) - lu(k,595) * lu(k,991) - lu(k,999) = lu(k,999) - lu(k,596) * lu(k,991) - lu(k,1000) = lu(k,1000) - lu(k,597) * lu(k,991) - lu(k,1001) = lu(k,1001) - lu(k,598) * lu(k,991) - lu(k,1002) = lu(k,1002) - lu(k,599) * lu(k,991) - lu(k,1004) = lu(k,1004) - lu(k,600) * lu(k,991) - lu(k,1005) = lu(k,1005) - lu(k,601) * lu(k,991) - lu(k,1009) = lu(k,1009) - lu(k,602) * lu(k,991) - lu(k,1010) = lu(k,1010) - lu(k,603) * lu(k,991) - lu(k,1012) = lu(k,1012) - lu(k,604) * lu(k,991) - lu(k,1014) = lu(k,1014) - lu(k,605) * lu(k,991) - lu(k,1017) = lu(k,1017) - lu(k,606) * lu(k,991) - lu(k,1018) = lu(k,1018) - lu(k,607) * lu(k,991) - lu(k,1019) = lu(k,1019) - lu(k,608) * lu(k,991) - lu(k,1020) = lu(k,1020) - lu(k,609) * lu(k,991) - lu(k,1034) = lu(k,1034) - lu(k,592) * lu(k,1032) - lu(k,1036) = lu(k,1036) - lu(k,593) * lu(k,1032) - lu(k,1039) = lu(k,1039) - lu(k,594) * lu(k,1032) - lu(k,1040) = lu(k,1040) - lu(k,595) * lu(k,1032) - lu(k,1041) = lu(k,1041) - lu(k,596) * lu(k,1032) - lu(k,1042) = lu(k,1042) - lu(k,597) * lu(k,1032) - lu(k,1043) = lu(k,1043) - lu(k,598) * lu(k,1032) - lu(k,1044) = lu(k,1044) - lu(k,599) * lu(k,1032) - lu(k,1046) = lu(k,1046) - lu(k,600) * lu(k,1032) - lu(k,1047) = lu(k,1047) - lu(k,601) * lu(k,1032) - lu(k,1051) = lu(k,1051) - lu(k,602) * lu(k,1032) - lu(k,1052) = lu(k,1052) - lu(k,603) * lu(k,1032) - lu(k,1054) = lu(k,1054) - lu(k,604) * lu(k,1032) - lu(k,1056) = lu(k,1056) - lu(k,605) * lu(k,1032) - lu(k,1059) = lu(k,1059) - lu(k,606) * lu(k,1032) - lu(k,1060) = lu(k,1060) - lu(k,607) * lu(k,1032) - lu(k,1061) = lu(k,1061) - lu(k,608) * lu(k,1032) - lu(k,1062) = lu(k,1062) - lu(k,609) * lu(k,1032) - lu(k,1120) = lu(k,1120) - lu(k,592) * lu(k,1118) - lu(k,1122) = lu(k,1122) - lu(k,593) * lu(k,1118) - lu(k,1125) = lu(k,1125) - lu(k,594) * lu(k,1118) - lu(k,1126) = lu(k,1126) - lu(k,595) * lu(k,1118) - lu(k,1127) = lu(k,1127) - lu(k,596) * lu(k,1118) - lu(k,1128) = lu(k,1128) - lu(k,597) * lu(k,1118) - lu(k,1129) = lu(k,1129) - lu(k,598) * lu(k,1118) - lu(k,1130) = lu(k,1130) - lu(k,599) * lu(k,1118) - lu(k,1132) = lu(k,1132) - lu(k,600) * lu(k,1118) - lu(k,1133) = lu(k,1133) - lu(k,601) * lu(k,1118) - lu(k,1137) = lu(k,1137) - lu(k,602) * lu(k,1118) - lu(k,1138) = lu(k,1138) - lu(k,603) * lu(k,1118) - lu(k,1140) = lu(k,1140) - lu(k,604) * lu(k,1118) - lu(k,1142) = lu(k,1142) - lu(k,605) * lu(k,1118) - lu(k,1145) = lu(k,1145) - lu(k,606) * lu(k,1118) - lu(k,1146) = lu(k,1146) - lu(k,607) * lu(k,1118) - lu(k,1147) = lu(k,1147) - lu(k,608) * lu(k,1118) - lu(k,1148) = lu(k,1148) - lu(k,609) * lu(k,1118) - lu(k,1160) = lu(k,1160) - lu(k,592) * lu(k,1159) - lu(k,1162) = lu(k,1162) - lu(k,593) * lu(k,1159) - lu(k,1165) = lu(k,1165) - lu(k,594) * lu(k,1159) - lu(k,1166) = lu(k,1166) - lu(k,595) * lu(k,1159) - lu(k,1167) = lu(k,1167) - lu(k,596) * lu(k,1159) - lu(k,1168) = lu(k,1168) - lu(k,597) * lu(k,1159) - lu(k,1169) = lu(k,1169) - lu(k,598) * lu(k,1159) - lu(k,1170) = lu(k,1170) - lu(k,599) * lu(k,1159) - lu(k,1172) = lu(k,1172) - lu(k,600) * lu(k,1159) - lu(k,1173) = lu(k,1173) - lu(k,601) * lu(k,1159) - lu(k,1177) = lu(k,1177) - lu(k,602) * lu(k,1159) - lu(k,1178) = lu(k,1178) - lu(k,603) * lu(k,1159) - lu(k,1180) = lu(k,1180) - lu(k,604) * lu(k,1159) - lu(k,1182) = lu(k,1182) - lu(k,605) * lu(k,1159) - lu(k,1185) = lu(k,1185) - lu(k,606) * lu(k,1159) - lu(k,1186) = lu(k,1186) - lu(k,607) * lu(k,1159) - lu(k,1187) = lu(k,1187) - lu(k,608) * lu(k,1159) - lu(k,1188) = lu(k,1188) - lu(k,609) * lu(k,1159) - lu(k,1216) = lu(k,1216) - lu(k,592) * lu(k,1214) - lu(k,1218) = lu(k,1218) - lu(k,593) * lu(k,1214) - lu(k,1221) = lu(k,1221) - lu(k,594) * lu(k,1214) - lu(k,1222) = lu(k,1222) - lu(k,595) * lu(k,1214) - lu(k,1223) = - lu(k,596) * lu(k,1214) - lu(k,1224) = lu(k,1224) - lu(k,597) * lu(k,1214) - lu(k,1225) = lu(k,1225) - lu(k,598) * lu(k,1214) - lu(k,1226) = - lu(k,599) * lu(k,1214) - lu(k,1228) = lu(k,1228) - lu(k,600) * lu(k,1214) - lu(k,1229) = lu(k,1229) - lu(k,601) * lu(k,1214) - lu(k,1233) = lu(k,1233) - lu(k,602) * lu(k,1214) - lu(k,1234) = lu(k,1234) - lu(k,603) * lu(k,1214) - lu(k,1236) = - lu(k,604) * lu(k,1214) - lu(k,1238) = - lu(k,605) * lu(k,1214) - lu(k,1241) = lu(k,1241) - lu(k,606) * lu(k,1214) - lu(k,1242) = lu(k,1242) - lu(k,607) * lu(k,1214) - lu(k,1243) = lu(k,1243) - lu(k,608) * lu(k,1214) - lu(k,1244) = lu(k,1244) - lu(k,609) * lu(k,1214) - lu(k,1290) = lu(k,1290) - lu(k,592) * lu(k,1288) - lu(k,1292) = lu(k,1292) - lu(k,593) * lu(k,1288) - lu(k,1295) = lu(k,1295) - lu(k,594) * lu(k,1288) - lu(k,1296) = lu(k,1296) - lu(k,595) * lu(k,1288) - lu(k,1297) = lu(k,1297) - lu(k,596) * lu(k,1288) - lu(k,1298) = lu(k,1298) - lu(k,597) * lu(k,1288) - lu(k,1299) = lu(k,1299) - lu(k,598) * lu(k,1288) - lu(k,1300) = lu(k,1300) - lu(k,599) * lu(k,1288) - lu(k,1302) = lu(k,1302) - lu(k,600) * lu(k,1288) - lu(k,1303) = lu(k,1303) - lu(k,601) * lu(k,1288) - lu(k,1307) = lu(k,1307) - lu(k,602) * lu(k,1288) - lu(k,1308) = lu(k,1308) - lu(k,603) * lu(k,1288) - lu(k,1310) = lu(k,1310) - lu(k,604) * lu(k,1288) - lu(k,1312) = lu(k,1312) - lu(k,605) * lu(k,1288) - lu(k,1315) = lu(k,1315) - lu(k,606) * lu(k,1288) - lu(k,1316) = lu(k,1316) - lu(k,607) * lu(k,1288) - lu(k,1317) = lu(k,1317) - lu(k,608) * lu(k,1288) - lu(k,1318) = lu(k,1318) - lu(k,609) * lu(k,1288) - lu(k,1335) = lu(k,1335) - lu(k,592) * lu(k,1333) - lu(k,1337) = lu(k,1337) - lu(k,593) * lu(k,1333) - lu(k,1340) = lu(k,1340) - lu(k,594) * lu(k,1333) - lu(k,1341) = lu(k,1341) - lu(k,595) * lu(k,1333) - lu(k,1342) = lu(k,1342) - lu(k,596) * lu(k,1333) - lu(k,1343) = lu(k,1343) - lu(k,597) * lu(k,1333) - lu(k,1344) = lu(k,1344) - lu(k,598) * lu(k,1333) - lu(k,1345) = lu(k,1345) - lu(k,599) * lu(k,1333) - lu(k,1347) = lu(k,1347) - lu(k,600) * lu(k,1333) - lu(k,1348) = lu(k,1348) - lu(k,601) * lu(k,1333) - lu(k,1352) = lu(k,1352) - lu(k,602) * lu(k,1333) - lu(k,1353) = lu(k,1353) - lu(k,603) * lu(k,1333) - lu(k,1355) = lu(k,1355) - lu(k,604) * lu(k,1333) - lu(k,1357) = lu(k,1357) - lu(k,605) * lu(k,1333) - lu(k,1360) = lu(k,1360) - lu(k,606) * lu(k,1333) - lu(k,1361) = lu(k,1361) - lu(k,607) * lu(k,1333) - lu(k,1362) = lu(k,1362) - lu(k,608) * lu(k,1333) - lu(k,1363) = lu(k,1363) - lu(k,609) * lu(k,1333) - lu(k,1378) = - lu(k,592) * lu(k,1376) - lu(k,1380) = lu(k,1380) - lu(k,593) * lu(k,1376) - lu(k,1383) = lu(k,1383) - lu(k,594) * lu(k,1376) - lu(k,1384) = - lu(k,595) * lu(k,1376) - lu(k,1385) = - lu(k,596) * lu(k,1376) - lu(k,1386) = lu(k,1386) - lu(k,597) * lu(k,1376) - lu(k,1387) = lu(k,1387) - lu(k,598) * lu(k,1376) - lu(k,1388) = - lu(k,599) * lu(k,1376) - lu(k,1390) = lu(k,1390) - lu(k,600) * lu(k,1376) - lu(k,1391) = lu(k,1391) - lu(k,601) * lu(k,1376) - lu(k,1395) = lu(k,1395) - lu(k,602) * lu(k,1376) - lu(k,1396) = lu(k,1396) - lu(k,603) * lu(k,1376) - lu(k,1398) = - lu(k,604) * lu(k,1376) - lu(k,1400) = - lu(k,605) * lu(k,1376) - lu(k,1403) = lu(k,1403) - lu(k,606) * lu(k,1376) - lu(k,1404) = lu(k,1404) - lu(k,607) * lu(k,1376) - lu(k,1405) = lu(k,1405) - lu(k,608) * lu(k,1376) - lu(k,1406) = lu(k,1406) - lu(k,609) * lu(k,1376) - lu(k,1456) = lu(k,1456) - lu(k,592) * lu(k,1454) - lu(k,1458) = lu(k,1458) - lu(k,593) * lu(k,1454) - lu(k,1461) = lu(k,1461) - lu(k,594) * lu(k,1454) - lu(k,1462) = lu(k,1462) - lu(k,595) * lu(k,1454) - lu(k,1463) = lu(k,1463) - lu(k,596) * lu(k,1454) - lu(k,1464) = lu(k,1464) - lu(k,597) * lu(k,1454) - lu(k,1465) = lu(k,1465) - lu(k,598) * lu(k,1454) - lu(k,1466) = lu(k,1466) - lu(k,599) * lu(k,1454) - lu(k,1468) = lu(k,1468) - lu(k,600) * lu(k,1454) - lu(k,1469) = lu(k,1469) - lu(k,601) * lu(k,1454) - lu(k,1473) = lu(k,1473) - lu(k,602) * lu(k,1454) - lu(k,1474) = lu(k,1474) - lu(k,603) * lu(k,1454) - lu(k,1476) = lu(k,1476) - lu(k,604) * lu(k,1454) - lu(k,1478) = lu(k,1478) - lu(k,605) * lu(k,1454) - lu(k,1481) = lu(k,1481) - lu(k,606) * lu(k,1454) - lu(k,1482) = lu(k,1482) - lu(k,607) * lu(k,1454) - lu(k,1483) = lu(k,1483) - lu(k,608) * lu(k,1454) - lu(k,1484) = lu(k,1484) - lu(k,609) * lu(k,1454) - lu(k,1499) = - lu(k,592) * lu(k,1497) - lu(k,1501) = lu(k,1501) - lu(k,593) * lu(k,1497) - lu(k,1504) = lu(k,1504) - lu(k,594) * lu(k,1497) - lu(k,1505) = - lu(k,595) * lu(k,1497) - lu(k,1506) = - lu(k,596) * lu(k,1497) - lu(k,1507) = lu(k,1507) - lu(k,597) * lu(k,1497) - lu(k,1508) = lu(k,1508) - lu(k,598) * lu(k,1497) - lu(k,1509) = - lu(k,599) * lu(k,1497) - lu(k,1511) = lu(k,1511) - lu(k,600) * lu(k,1497) - lu(k,1512) = lu(k,1512) - lu(k,601) * lu(k,1497) - lu(k,1516) = lu(k,1516) - lu(k,602) * lu(k,1497) - lu(k,1517) = lu(k,1517) - lu(k,603) * lu(k,1497) - lu(k,1519) = - lu(k,604) * lu(k,1497) - lu(k,1521) = - lu(k,605) * lu(k,1497) - lu(k,1524) = lu(k,1524) - lu(k,606) * lu(k,1497) - lu(k,1525) = lu(k,1525) - lu(k,607) * lu(k,1497) - lu(k,1526) = lu(k,1526) - lu(k,608) * lu(k,1497) - lu(k,1527) = lu(k,1527) - lu(k,609) * lu(k,1497) - lu(k,1542) = lu(k,1542) - lu(k,592) * lu(k,1540) - lu(k,1544) = lu(k,1544) - lu(k,593) * lu(k,1540) - lu(k,1547) = lu(k,1547) - lu(k,594) * lu(k,1540) - lu(k,1548) = lu(k,1548) - lu(k,595) * lu(k,1540) - lu(k,1549) = lu(k,1549) - lu(k,596) * lu(k,1540) - lu(k,1550) = lu(k,1550) - lu(k,597) * lu(k,1540) - lu(k,1551) = lu(k,1551) - lu(k,598) * lu(k,1540) - lu(k,1552) = lu(k,1552) - lu(k,599) * lu(k,1540) - lu(k,1554) = lu(k,1554) - lu(k,600) * lu(k,1540) - lu(k,1555) = lu(k,1555) - lu(k,601) * lu(k,1540) - lu(k,1559) = lu(k,1559) - lu(k,602) * lu(k,1540) - lu(k,1560) = lu(k,1560) - lu(k,603) * lu(k,1540) - lu(k,1562) = lu(k,1562) - lu(k,604) * lu(k,1540) - lu(k,1564) = lu(k,1564) - lu(k,605) * lu(k,1540) - lu(k,1567) = lu(k,1567) - lu(k,606) * lu(k,1540) - lu(k,1568) = lu(k,1568) - lu(k,607) * lu(k,1540) - lu(k,1569) = lu(k,1569) - lu(k,608) * lu(k,1540) - lu(k,1570) = lu(k,1570) - lu(k,609) * lu(k,1540) - lu(k,1575) = lu(k,1575) - lu(k,592) * lu(k,1574) - lu(k,1577) = lu(k,1577) - lu(k,593) * lu(k,1574) - lu(k,1580) = lu(k,1580) - lu(k,594) * lu(k,1574) - lu(k,1581) = lu(k,1581) - lu(k,595) * lu(k,1574) - lu(k,1582) = lu(k,1582) - lu(k,596) * lu(k,1574) - lu(k,1583) = lu(k,1583) - lu(k,597) * lu(k,1574) - lu(k,1584) = lu(k,1584) - lu(k,598) * lu(k,1574) - lu(k,1585) = lu(k,1585) - lu(k,599) * lu(k,1574) - lu(k,1587) = lu(k,1587) - lu(k,600) * lu(k,1574) - lu(k,1588) = - lu(k,601) * lu(k,1574) - lu(k,1592) = lu(k,1592) - lu(k,602) * lu(k,1574) - lu(k,1593) = lu(k,1593) - lu(k,603) * lu(k,1574) - lu(k,1595) = lu(k,1595) - lu(k,604) * lu(k,1574) - lu(k,1597) = lu(k,1597) - lu(k,605) * lu(k,1574) - lu(k,1600) = lu(k,1600) - lu(k,606) * lu(k,1574) - lu(k,1601) = lu(k,1601) - lu(k,607) * lu(k,1574) - lu(k,1602) = lu(k,1602) - lu(k,608) * lu(k,1574) - lu(k,1603) = lu(k,1603) - lu(k,609) * lu(k,1574) - lu(k,1611) = lu(k,1611) - lu(k,592) * lu(k,1610) - lu(k,1613) = lu(k,1613) - lu(k,593) * lu(k,1610) - lu(k,1616) = lu(k,1616) - lu(k,594) * lu(k,1610) - lu(k,1617) = - lu(k,595) * lu(k,1610) - lu(k,1618) = - lu(k,596) * lu(k,1610) - lu(k,1619) = lu(k,1619) - lu(k,597) * lu(k,1610) - lu(k,1620) = lu(k,1620) - lu(k,598) * lu(k,1610) - lu(k,1621) = - lu(k,599) * lu(k,1610) - lu(k,1623) = lu(k,1623) - lu(k,600) * lu(k,1610) - lu(k,1624) = lu(k,1624) - lu(k,601) * lu(k,1610) - lu(k,1628) = lu(k,1628) - lu(k,602) * lu(k,1610) - lu(k,1629) = lu(k,1629) - lu(k,603) * lu(k,1610) - lu(k,1631) = - lu(k,604) * lu(k,1610) - lu(k,1633) = - lu(k,605) * lu(k,1610) - lu(k,1636) = lu(k,1636) - lu(k,606) * lu(k,1610) - lu(k,1637) = lu(k,1637) - lu(k,607) * lu(k,1610) - lu(k,1638) = lu(k,1638) - lu(k,608) * lu(k,1610) - lu(k,1639) = lu(k,1639) - lu(k,609) * lu(k,1610) - lu(k,1690) = lu(k,1690) - lu(k,592) * lu(k,1688) - lu(k,1692) = lu(k,1692) - lu(k,593) * lu(k,1688) - lu(k,1695) = lu(k,1695) - lu(k,594) * lu(k,1688) - lu(k,1696) = - lu(k,595) * lu(k,1688) - lu(k,1697) = - lu(k,596) * lu(k,1688) - lu(k,1698) = lu(k,1698) - lu(k,597) * lu(k,1688) - lu(k,1699) = lu(k,1699) - lu(k,598) * lu(k,1688) - lu(k,1700) = lu(k,1700) - lu(k,599) * lu(k,1688) - lu(k,1702) = lu(k,1702) - lu(k,600) * lu(k,1688) - lu(k,1703) = lu(k,1703) - lu(k,601) * lu(k,1688) - lu(k,1707) = lu(k,1707) - lu(k,602) * lu(k,1688) - lu(k,1708) = lu(k,1708) - lu(k,603) * lu(k,1688) - lu(k,1710) = - lu(k,604) * lu(k,1688) - lu(k,1712) = - lu(k,605) * lu(k,1688) - lu(k,1715) = lu(k,1715) - lu(k,606) * lu(k,1688) - lu(k,1716) = lu(k,1716) - lu(k,607) * lu(k,1688) - lu(k,1717) = lu(k,1717) - lu(k,608) * lu(k,1688) - lu(k,1718) = lu(k,1718) - lu(k,609) * lu(k,1688) - lu(k,1735) = lu(k,1735) - lu(k,592) * lu(k,1734) - lu(k,1737) = lu(k,1737) - lu(k,593) * lu(k,1734) - lu(k,1740) = lu(k,1740) - lu(k,594) * lu(k,1734) - lu(k,1741) = lu(k,1741) - lu(k,595) * lu(k,1734) - lu(k,1742) = lu(k,1742) - lu(k,596) * lu(k,1734) - lu(k,1743) = lu(k,1743) - lu(k,597) * lu(k,1734) - lu(k,1744) = lu(k,1744) - lu(k,598) * lu(k,1734) - lu(k,1745) = lu(k,1745) - lu(k,599) * lu(k,1734) - lu(k,1747) = lu(k,1747) - lu(k,600) * lu(k,1734) - lu(k,1748) = lu(k,1748) - lu(k,601) * lu(k,1734) - lu(k,1752) = lu(k,1752) - lu(k,602) * lu(k,1734) - lu(k,1753) = lu(k,1753) - lu(k,603) * lu(k,1734) - lu(k,1755) = lu(k,1755) - lu(k,604) * lu(k,1734) - lu(k,1757) = lu(k,1757) - lu(k,605) * lu(k,1734) - lu(k,1760) = lu(k,1760) - lu(k,606) * lu(k,1734) - lu(k,1761) = lu(k,1761) - lu(k,607) * lu(k,1734) - lu(k,1762) = lu(k,1762) - lu(k,608) * lu(k,1734) - lu(k,1763) = lu(k,1763) - lu(k,609) * lu(k,1734) - lu(k,1788) = lu(k,1788) - lu(k,592) * lu(k,1787) - lu(k,1790) = lu(k,1790) - lu(k,593) * lu(k,1787) - lu(k,1793) = lu(k,1793) - lu(k,594) * lu(k,1787) - lu(k,1794) = lu(k,1794) - lu(k,595) * lu(k,1787) - lu(k,1795) = lu(k,1795) - lu(k,596) * lu(k,1787) - lu(k,1796) = lu(k,1796) - lu(k,597) * lu(k,1787) - lu(k,1797) = lu(k,1797) - lu(k,598) * lu(k,1787) - lu(k,1798) = lu(k,1798) - lu(k,599) * lu(k,1787) - lu(k,1800) = lu(k,1800) - lu(k,600) * lu(k,1787) - lu(k,1801) = lu(k,1801) - lu(k,601) * lu(k,1787) - lu(k,1805) = lu(k,1805) - lu(k,602) * lu(k,1787) - lu(k,1806) = lu(k,1806) - lu(k,603) * lu(k,1787) - lu(k,1808) = lu(k,1808) - lu(k,604) * lu(k,1787) - lu(k,1810) = lu(k,1810) - lu(k,605) * lu(k,1787) - lu(k,1813) = lu(k,1813) - lu(k,606) * lu(k,1787) - lu(k,1814) = lu(k,1814) - lu(k,607) * lu(k,1787) - lu(k,1815) = lu(k,1815) - lu(k,608) * lu(k,1787) - lu(k,1816) = lu(k,1816) - lu(k,609) * lu(k,1787) - 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,613) = 1._r8 / lu(k,613) - lu(k,614) = lu(k,614) * lu(k,613) - lu(k,615) = lu(k,615) * lu(k,613) - lu(k,616) = lu(k,616) * lu(k,613) - lu(k,617) = lu(k,617) * lu(k,613) - lu(k,618) = lu(k,618) * lu(k,613) - lu(k,619) = lu(k,619) * lu(k,613) - lu(k,620) = lu(k,620) * lu(k,613) - lu(k,621) = lu(k,621) * lu(k,613) - lu(k,622) = lu(k,622) * lu(k,613) - lu(k,623) = lu(k,623) * lu(k,613) - lu(k,624) = lu(k,624) * lu(k,613) - lu(k,625) = lu(k,625) * lu(k,613) - lu(k,626) = lu(k,626) * lu(k,613) - lu(k,627) = lu(k,627) * lu(k,613) - lu(k,628) = lu(k,628) * lu(k,613) - lu(k,629) = lu(k,629) * lu(k,613) - lu(k,630) = lu(k,630) * lu(k,613) - lu(k,631) = lu(k,631) * lu(k,613) - lu(k,632) = lu(k,632) * lu(k,613) - lu(k,633) = lu(k,633) * lu(k,613) - lu(k,634) = lu(k,634) * lu(k,613) - lu(k,635) = lu(k,635) * lu(k,613) - lu(k,636) = lu(k,636) * lu(k,613) - lu(k,637) = lu(k,637) * lu(k,613) - lu(k,638) = lu(k,638) * lu(k,613) - lu(k,639) = lu(k,639) * lu(k,613) - lu(k,640) = lu(k,640) * lu(k,613) - lu(k,641) = lu(k,641) * lu(k,613) - lu(k,818) = lu(k,818) - lu(k,614) * lu(k,817) - lu(k,819) = - lu(k,615) * lu(k,817) - lu(k,820) = lu(k,820) - lu(k,616) * lu(k,817) - lu(k,821) = lu(k,821) - lu(k,617) * lu(k,817) - lu(k,822) = lu(k,822) - lu(k,618) * lu(k,817) - lu(k,823) = lu(k,823) - lu(k,619) * lu(k,817) - lu(k,824) = lu(k,824) - lu(k,620) * lu(k,817) - lu(k,825) = lu(k,825) - lu(k,621) * lu(k,817) - lu(k,826) = lu(k,826) - lu(k,622) * lu(k,817) - lu(k,827) = lu(k,827) - lu(k,623) * lu(k,817) - lu(k,828) = lu(k,828) - lu(k,624) * lu(k,817) - lu(k,829) = lu(k,829) - lu(k,625) * lu(k,817) - lu(k,830) = lu(k,830) - lu(k,626) * lu(k,817) - lu(k,831) = lu(k,831) - lu(k,627) * lu(k,817) - lu(k,832) = lu(k,832) - lu(k,628) * lu(k,817) - lu(k,833) = - lu(k,629) * lu(k,817) - lu(k,834) = lu(k,834) - lu(k,630) * lu(k,817) - lu(k,835) = lu(k,835) - lu(k,631) * lu(k,817) - lu(k,836) = lu(k,836) - lu(k,632) * lu(k,817) - lu(k,838) = lu(k,838) - lu(k,633) * lu(k,817) - lu(k,839) = - lu(k,634) * lu(k,817) - lu(k,840) = lu(k,840) - lu(k,635) * lu(k,817) - lu(k,841) = - lu(k,636) * lu(k,817) - lu(k,842) = - lu(k,637) * lu(k,817) - lu(k,843) = lu(k,843) - lu(k,638) * lu(k,817) - lu(k,844) = lu(k,844) - lu(k,639) * lu(k,817) - lu(k,845) = lu(k,845) - lu(k,640) * lu(k,817) - lu(k,846) = lu(k,846) - lu(k,641) * lu(k,817) - lu(k,864) = lu(k,864) - lu(k,614) * lu(k,863) - lu(k,865) = lu(k,865) - lu(k,615) * lu(k,863) - lu(k,866) = lu(k,866) - lu(k,616) * lu(k,863) - lu(k,867) = lu(k,867) - lu(k,617) * lu(k,863) - lu(k,868) = lu(k,868) - lu(k,618) * lu(k,863) - lu(k,869) = lu(k,869) - lu(k,619) * lu(k,863) - lu(k,870) = lu(k,870) - lu(k,620) * lu(k,863) - lu(k,871) = lu(k,871) - lu(k,621) * lu(k,863) - lu(k,872) = lu(k,872) - lu(k,622) * lu(k,863) - lu(k,873) = lu(k,873) - lu(k,623) * lu(k,863) - lu(k,874) = lu(k,874) - lu(k,624) * lu(k,863) - lu(k,875) = lu(k,875) - lu(k,625) * lu(k,863) - lu(k,876) = lu(k,876) - lu(k,626) * lu(k,863) - lu(k,877) = lu(k,877) - lu(k,627) * lu(k,863) - lu(k,878) = lu(k,878) - lu(k,628) * lu(k,863) - lu(k,879) = lu(k,879) - lu(k,629) * lu(k,863) - lu(k,880) = lu(k,880) - lu(k,630) * lu(k,863) - lu(k,881) = lu(k,881) - lu(k,631) * lu(k,863) - lu(k,882) = lu(k,882) - lu(k,632) * lu(k,863) - lu(k,884) = lu(k,884) - lu(k,633) * lu(k,863) - lu(k,885) = lu(k,885) - lu(k,634) * lu(k,863) - lu(k,886) = lu(k,886) - lu(k,635) * lu(k,863) - lu(k,887) = lu(k,887) - lu(k,636) * lu(k,863) - lu(k,888) = lu(k,888) - lu(k,637) * lu(k,863) - lu(k,889) = lu(k,889) - lu(k,638) * lu(k,863) - lu(k,890) = lu(k,890) - lu(k,639) * lu(k,863) - lu(k,891) = lu(k,891) - lu(k,640) * lu(k,863) - lu(k,892) = lu(k,892) - lu(k,641) * lu(k,863) - lu(k,907) = lu(k,907) - lu(k,614) * lu(k,906) - lu(k,908) = - lu(k,615) * lu(k,906) - lu(k,909) = lu(k,909) - lu(k,616) * lu(k,906) - lu(k,910) = lu(k,910) - lu(k,617) * lu(k,906) - lu(k,911) = lu(k,911) - lu(k,618) * lu(k,906) - lu(k,912) = lu(k,912) - lu(k,619) * lu(k,906) - lu(k,913) = lu(k,913) - lu(k,620) * lu(k,906) - lu(k,914) = lu(k,914) - lu(k,621) * lu(k,906) - lu(k,915) = lu(k,915) - lu(k,622) * lu(k,906) - lu(k,916) = lu(k,916) - lu(k,623) * lu(k,906) - lu(k,917) = lu(k,917) - lu(k,624) * lu(k,906) - lu(k,918) = lu(k,918) - lu(k,625) * lu(k,906) - lu(k,919) = lu(k,919) - lu(k,626) * lu(k,906) - lu(k,920) = lu(k,920) - lu(k,627) * lu(k,906) - lu(k,921) = lu(k,921) - lu(k,628) * lu(k,906) - lu(k,922) = - lu(k,629) * lu(k,906) - lu(k,923) = lu(k,923) - lu(k,630) * lu(k,906) - lu(k,924) = lu(k,924) - lu(k,631) * lu(k,906) - lu(k,925) = lu(k,925) - lu(k,632) * lu(k,906) - lu(k,927) = lu(k,927) - lu(k,633) * lu(k,906) - lu(k,928) = - lu(k,634) * lu(k,906) - lu(k,929) = lu(k,929) - lu(k,635) * lu(k,906) - lu(k,930) = - lu(k,636) * lu(k,906) - lu(k,931) = - lu(k,637) * lu(k,906) - lu(k,932) = lu(k,932) - lu(k,638) * lu(k,906) - lu(k,933) = lu(k,933) - lu(k,639) * lu(k,906) - lu(k,934) = lu(k,934) - lu(k,640) * lu(k,906) - lu(k,935) = lu(k,935) - lu(k,641) * lu(k,906) - lu(k,1034) = lu(k,1034) - lu(k,614) * lu(k,1033) - lu(k,1035) = lu(k,1035) - lu(k,615) * lu(k,1033) - lu(k,1036) = lu(k,1036) - lu(k,616) * lu(k,1033) - lu(k,1037) = lu(k,1037) - lu(k,617) * lu(k,1033) - lu(k,1038) = lu(k,1038) - lu(k,618) * lu(k,1033) - lu(k,1039) = lu(k,1039) - lu(k,619) * lu(k,1033) - lu(k,1040) = lu(k,1040) - lu(k,620) * lu(k,1033) - lu(k,1041) = lu(k,1041) - lu(k,621) * lu(k,1033) - lu(k,1042) = lu(k,1042) - lu(k,622) * lu(k,1033) - lu(k,1043) = lu(k,1043) - lu(k,623) * lu(k,1033) - lu(k,1044) = lu(k,1044) - lu(k,624) * lu(k,1033) - lu(k,1045) = lu(k,1045) - lu(k,625) * lu(k,1033) - lu(k,1046) = lu(k,1046) - lu(k,626) * lu(k,1033) - lu(k,1047) = lu(k,1047) - lu(k,627) * lu(k,1033) - lu(k,1048) = lu(k,1048) - lu(k,628) * lu(k,1033) - lu(k,1049) = - lu(k,629) * lu(k,1033) - lu(k,1050) = lu(k,1050) - lu(k,630) * lu(k,1033) - lu(k,1051) = lu(k,1051) - lu(k,631) * lu(k,1033) - lu(k,1052) = lu(k,1052) - lu(k,632) * lu(k,1033) - lu(k,1054) = lu(k,1054) - lu(k,633) * lu(k,1033) - lu(k,1055) = - lu(k,634) * lu(k,1033) - lu(k,1056) = lu(k,1056) - lu(k,635) * lu(k,1033) - lu(k,1057) = - lu(k,636) * lu(k,1033) - lu(k,1058) = - lu(k,637) * lu(k,1033) - lu(k,1059) = lu(k,1059) - lu(k,638) * lu(k,1033) - lu(k,1060) = lu(k,1060) - lu(k,639) * lu(k,1033) - lu(k,1061) = lu(k,1061) - lu(k,640) * lu(k,1033) - lu(k,1062) = lu(k,1062) - lu(k,641) * lu(k,1033) - lu(k,1075) = lu(k,1075) - lu(k,614) * lu(k,1074) - lu(k,1076) = lu(k,1076) - lu(k,615) * lu(k,1074) - lu(k,1077) = lu(k,1077) - lu(k,616) * lu(k,1074) - lu(k,1078) = lu(k,1078) - lu(k,617) * lu(k,1074) - lu(k,1079) = lu(k,1079) - lu(k,618) * lu(k,1074) - lu(k,1080) = lu(k,1080) - lu(k,619) * lu(k,1074) - lu(k,1081) = lu(k,1081) - lu(k,620) * lu(k,1074) - lu(k,1082) = lu(k,1082) - lu(k,621) * lu(k,1074) - lu(k,1083) = lu(k,1083) - lu(k,622) * lu(k,1074) - lu(k,1084) = lu(k,1084) - lu(k,623) * lu(k,1074) - lu(k,1085) = lu(k,1085) - lu(k,624) * lu(k,1074) - lu(k,1086) = lu(k,1086) - lu(k,625) * lu(k,1074) - lu(k,1087) = - lu(k,626) * lu(k,1074) - lu(k,1088) = - lu(k,627) * lu(k,1074) - lu(k,1089) = lu(k,1089) - lu(k,628) * lu(k,1074) - lu(k,1090) = lu(k,1090) - lu(k,629) * lu(k,1074) - lu(k,1091) = lu(k,1091) - lu(k,630) * lu(k,1074) - lu(k,1092) = lu(k,1092) - lu(k,631) * lu(k,1074) - lu(k,1093) = - lu(k,632) * lu(k,1074) - lu(k,1095) = lu(k,1095) - lu(k,633) * lu(k,1074) - lu(k,1096) = - lu(k,634) * lu(k,1074) - lu(k,1097) = lu(k,1097) - lu(k,635) * lu(k,1074) - lu(k,1098) = lu(k,1098) - lu(k,636) * lu(k,1074) - lu(k,1099) = lu(k,1099) - lu(k,637) * lu(k,1074) - lu(k,1100) = lu(k,1100) - lu(k,638) * lu(k,1074) - lu(k,1101) = lu(k,1101) - lu(k,639) * lu(k,1074) - lu(k,1102) = lu(k,1102) - lu(k,640) * lu(k,1074) - lu(k,1103) = lu(k,1103) - lu(k,641) * lu(k,1074) - lu(k,1120) = lu(k,1120) - lu(k,614) * lu(k,1119) - lu(k,1121) = lu(k,1121) - lu(k,615) * lu(k,1119) - lu(k,1122) = lu(k,1122) - lu(k,616) * lu(k,1119) - lu(k,1123) = lu(k,1123) - lu(k,617) * lu(k,1119) - lu(k,1124) = - lu(k,618) * lu(k,1119) - lu(k,1125) = lu(k,1125) - lu(k,619) * lu(k,1119) - lu(k,1126) = lu(k,1126) - lu(k,620) * lu(k,1119) - lu(k,1127) = lu(k,1127) - lu(k,621) * lu(k,1119) - lu(k,1128) = lu(k,1128) - lu(k,622) * lu(k,1119) - lu(k,1129) = lu(k,1129) - lu(k,623) * lu(k,1119) - lu(k,1130) = lu(k,1130) - lu(k,624) * lu(k,1119) - lu(k,1131) = lu(k,1131) - lu(k,625) * lu(k,1119) - lu(k,1132) = lu(k,1132) - lu(k,626) * lu(k,1119) - lu(k,1133) = lu(k,1133) - lu(k,627) * lu(k,1119) - lu(k,1134) = lu(k,1134) - lu(k,628) * lu(k,1119) - lu(k,1135) = lu(k,1135) - lu(k,629) * lu(k,1119) - lu(k,1136) = lu(k,1136) - lu(k,630) * lu(k,1119) - lu(k,1137) = lu(k,1137) - lu(k,631) * lu(k,1119) - lu(k,1138) = lu(k,1138) - lu(k,632) * lu(k,1119) - lu(k,1140) = lu(k,1140) - lu(k,633) * lu(k,1119) - lu(k,1141) = lu(k,1141) - lu(k,634) * lu(k,1119) - lu(k,1142) = lu(k,1142) - lu(k,635) * lu(k,1119) - lu(k,1143) = lu(k,1143) - lu(k,636) * lu(k,1119) - lu(k,1144) = lu(k,1144) - lu(k,637) * lu(k,1119) - lu(k,1145) = lu(k,1145) - lu(k,638) * lu(k,1119) - lu(k,1146) = lu(k,1146) - lu(k,639) * lu(k,1119) - lu(k,1147) = lu(k,1147) - lu(k,640) * lu(k,1119) - lu(k,1148) = lu(k,1148) - lu(k,641) * lu(k,1119) - lu(k,1216) = lu(k,1216) - lu(k,614) * lu(k,1215) - lu(k,1217) = lu(k,1217) - lu(k,615) * lu(k,1215) - lu(k,1218) = lu(k,1218) - lu(k,616) * lu(k,1215) - lu(k,1219) = lu(k,1219) - lu(k,617) * lu(k,1215) - lu(k,1220) = lu(k,1220) - lu(k,618) * lu(k,1215) - lu(k,1221) = lu(k,1221) - lu(k,619) * lu(k,1215) - lu(k,1222) = lu(k,1222) - lu(k,620) * lu(k,1215) - lu(k,1223) = lu(k,1223) - lu(k,621) * lu(k,1215) - lu(k,1224) = lu(k,1224) - lu(k,622) * lu(k,1215) - lu(k,1225) = lu(k,1225) - lu(k,623) * lu(k,1215) - lu(k,1226) = lu(k,1226) - lu(k,624) * lu(k,1215) - lu(k,1227) = lu(k,1227) - lu(k,625) * lu(k,1215) - lu(k,1228) = lu(k,1228) - lu(k,626) * lu(k,1215) - lu(k,1229) = lu(k,1229) - lu(k,627) * lu(k,1215) - lu(k,1230) = lu(k,1230) - lu(k,628) * lu(k,1215) - lu(k,1231) = lu(k,1231) - lu(k,629) * lu(k,1215) - lu(k,1232) = lu(k,1232) - lu(k,630) * lu(k,1215) - lu(k,1233) = lu(k,1233) - lu(k,631) * lu(k,1215) - lu(k,1234) = lu(k,1234) - lu(k,632) * lu(k,1215) - lu(k,1236) = lu(k,1236) - lu(k,633) * lu(k,1215) - lu(k,1237) = lu(k,1237) - lu(k,634) * lu(k,1215) - lu(k,1238) = lu(k,1238) - lu(k,635) * lu(k,1215) - lu(k,1239) = lu(k,1239) - lu(k,636) * lu(k,1215) - lu(k,1240) = lu(k,1240) - lu(k,637) * lu(k,1215) - lu(k,1241) = lu(k,1241) - lu(k,638) * lu(k,1215) - lu(k,1242) = lu(k,1242) - lu(k,639) * lu(k,1215) - lu(k,1243) = lu(k,1243) - lu(k,640) * lu(k,1215) - lu(k,1244) = lu(k,1244) - lu(k,641) * lu(k,1215) - lu(k,1254) = lu(k,1254) - lu(k,614) * lu(k,1253) - lu(k,1255) = lu(k,1255) - lu(k,615) * lu(k,1253) - lu(k,1256) = lu(k,1256) - lu(k,616) * lu(k,1253) - lu(k,1257) = lu(k,1257) - lu(k,617) * lu(k,1253) - lu(k,1258) = lu(k,1258) - lu(k,618) * lu(k,1253) - lu(k,1259) = lu(k,1259) - lu(k,619) * lu(k,1253) - lu(k,1260) = - lu(k,620) * lu(k,1253) - lu(k,1261) = - lu(k,621) * lu(k,1253) - lu(k,1262) = lu(k,1262) - lu(k,622) * lu(k,1253) - lu(k,1263) = lu(k,1263) - lu(k,623) * lu(k,1253) - lu(k,1264) = - lu(k,624) * lu(k,1253) - lu(k,1265) = lu(k,1265) - lu(k,625) * lu(k,1253) - lu(k,1266) = lu(k,1266) - lu(k,626) * lu(k,1253) - lu(k,1267) = lu(k,1267) - lu(k,627) * lu(k,1253) - lu(k,1268) = lu(k,1268) - lu(k,628) * lu(k,1253) - lu(k,1269) = lu(k,1269) - lu(k,629) * lu(k,1253) - lu(k,1270) = lu(k,1270) - lu(k,630) * lu(k,1253) - lu(k,1271) = lu(k,1271) - lu(k,631) * lu(k,1253) - lu(k,1272) = lu(k,1272) - lu(k,632) * lu(k,1253) - lu(k,1274) = - lu(k,633) * lu(k,1253) - lu(k,1275) = lu(k,1275) - lu(k,634) * lu(k,1253) - lu(k,1276) = - lu(k,635) * lu(k,1253) - lu(k,1277) = lu(k,1277) - lu(k,636) * lu(k,1253) - lu(k,1278) = lu(k,1278) - lu(k,637) * lu(k,1253) - lu(k,1279) = lu(k,1279) - lu(k,638) * lu(k,1253) - lu(k,1280) = lu(k,1280) - lu(k,639) * lu(k,1253) - lu(k,1281) = lu(k,1281) - lu(k,640) * lu(k,1253) - lu(k,1282) = lu(k,1282) - lu(k,641) * lu(k,1253) - lu(k,1290) = lu(k,1290) - lu(k,614) * lu(k,1289) - lu(k,1291) = lu(k,1291) - lu(k,615) * lu(k,1289) - lu(k,1292) = lu(k,1292) - lu(k,616) * lu(k,1289) - lu(k,1293) = lu(k,1293) - lu(k,617) * lu(k,1289) - lu(k,1294) = lu(k,1294) - lu(k,618) * lu(k,1289) - lu(k,1295) = lu(k,1295) - lu(k,619) * lu(k,1289) - lu(k,1296) = lu(k,1296) - lu(k,620) * lu(k,1289) - lu(k,1297) = lu(k,1297) - lu(k,621) * lu(k,1289) - lu(k,1298) = lu(k,1298) - lu(k,622) * lu(k,1289) - lu(k,1299) = lu(k,1299) - lu(k,623) * lu(k,1289) - lu(k,1300) = lu(k,1300) - lu(k,624) * lu(k,1289) - lu(k,1301) = lu(k,1301) - lu(k,625) * lu(k,1289) - lu(k,1302) = lu(k,1302) - lu(k,626) * lu(k,1289) - lu(k,1303) = lu(k,1303) - lu(k,627) * lu(k,1289) - lu(k,1304) = lu(k,1304) - lu(k,628) * lu(k,1289) - lu(k,1305) = lu(k,1305) - lu(k,629) * lu(k,1289) - lu(k,1306) = lu(k,1306) - lu(k,630) * lu(k,1289) - lu(k,1307) = lu(k,1307) - lu(k,631) * lu(k,1289) - lu(k,1308) = lu(k,1308) - lu(k,632) * lu(k,1289) - lu(k,1310) = lu(k,1310) - lu(k,633) * lu(k,1289) - lu(k,1311) = lu(k,1311) - lu(k,634) * lu(k,1289) - lu(k,1312) = lu(k,1312) - lu(k,635) * lu(k,1289) - lu(k,1313) = lu(k,1313) - lu(k,636) * lu(k,1289) - lu(k,1314) = lu(k,1314) - lu(k,637) * lu(k,1289) - lu(k,1315) = lu(k,1315) - lu(k,638) * lu(k,1289) - lu(k,1316) = lu(k,1316) - lu(k,639) * lu(k,1289) - lu(k,1317) = lu(k,1317) - lu(k,640) * lu(k,1289) - lu(k,1318) = lu(k,1318) - lu(k,641) * lu(k,1289) - lu(k,1335) = lu(k,1335) - lu(k,614) * lu(k,1334) - lu(k,1336) = lu(k,1336) - lu(k,615) * lu(k,1334) - lu(k,1337) = lu(k,1337) - lu(k,616) * lu(k,1334) - lu(k,1338) = lu(k,1338) - lu(k,617) * lu(k,1334) - lu(k,1339) = lu(k,1339) - lu(k,618) * lu(k,1334) - lu(k,1340) = lu(k,1340) - lu(k,619) * lu(k,1334) - lu(k,1341) = lu(k,1341) - lu(k,620) * lu(k,1334) - lu(k,1342) = lu(k,1342) - lu(k,621) * lu(k,1334) - lu(k,1343) = lu(k,1343) - lu(k,622) * lu(k,1334) - lu(k,1344) = lu(k,1344) - lu(k,623) * lu(k,1334) - lu(k,1345) = lu(k,1345) - lu(k,624) * lu(k,1334) - lu(k,1346) = lu(k,1346) - lu(k,625) * lu(k,1334) - lu(k,1347) = lu(k,1347) - lu(k,626) * lu(k,1334) - lu(k,1348) = lu(k,1348) - lu(k,627) * lu(k,1334) - lu(k,1349) = lu(k,1349) - lu(k,628) * lu(k,1334) - lu(k,1350) = lu(k,1350) - lu(k,629) * lu(k,1334) - lu(k,1351) = lu(k,1351) - lu(k,630) * lu(k,1334) - lu(k,1352) = lu(k,1352) - lu(k,631) * lu(k,1334) - lu(k,1353) = lu(k,1353) - lu(k,632) * lu(k,1334) - lu(k,1355) = lu(k,1355) - lu(k,633) * lu(k,1334) - lu(k,1356) = lu(k,1356) - lu(k,634) * lu(k,1334) - lu(k,1357) = lu(k,1357) - lu(k,635) * lu(k,1334) - lu(k,1358) = lu(k,1358) - lu(k,636) * lu(k,1334) - lu(k,1359) = lu(k,1359) - lu(k,637) * lu(k,1334) - lu(k,1360) = lu(k,1360) - lu(k,638) * lu(k,1334) - lu(k,1361) = lu(k,1361) - lu(k,639) * lu(k,1334) - lu(k,1362) = lu(k,1362) - lu(k,640) * lu(k,1334) - lu(k,1363) = lu(k,1363) - lu(k,641) * lu(k,1334) - lu(k,1378) = lu(k,1378) - lu(k,614) * lu(k,1377) - lu(k,1379) = lu(k,1379) - lu(k,615) * lu(k,1377) - lu(k,1380) = lu(k,1380) - lu(k,616) * lu(k,1377) - lu(k,1381) = lu(k,1381) - lu(k,617) * lu(k,1377) - lu(k,1382) = lu(k,1382) - lu(k,618) * lu(k,1377) - lu(k,1383) = lu(k,1383) - lu(k,619) * lu(k,1377) - lu(k,1384) = lu(k,1384) - lu(k,620) * lu(k,1377) - lu(k,1385) = lu(k,1385) - lu(k,621) * lu(k,1377) - lu(k,1386) = lu(k,1386) - lu(k,622) * lu(k,1377) - lu(k,1387) = lu(k,1387) - lu(k,623) * lu(k,1377) - lu(k,1388) = lu(k,1388) - lu(k,624) * lu(k,1377) - lu(k,1389) = lu(k,1389) - lu(k,625) * lu(k,1377) - lu(k,1390) = lu(k,1390) - lu(k,626) * lu(k,1377) - lu(k,1391) = lu(k,1391) - lu(k,627) * lu(k,1377) - lu(k,1392) = lu(k,1392) - lu(k,628) * lu(k,1377) - lu(k,1393) = lu(k,1393) - lu(k,629) * lu(k,1377) - lu(k,1394) = lu(k,1394) - lu(k,630) * lu(k,1377) - lu(k,1395) = lu(k,1395) - lu(k,631) * lu(k,1377) - lu(k,1396) = lu(k,1396) - lu(k,632) * lu(k,1377) - lu(k,1398) = lu(k,1398) - lu(k,633) * lu(k,1377) - lu(k,1399) = lu(k,1399) - lu(k,634) * lu(k,1377) - lu(k,1400) = lu(k,1400) - lu(k,635) * lu(k,1377) - lu(k,1401) = lu(k,1401) - lu(k,636) * lu(k,1377) - lu(k,1402) = lu(k,1402) - lu(k,637) * lu(k,1377) - lu(k,1403) = lu(k,1403) - lu(k,638) * lu(k,1377) - lu(k,1404) = lu(k,1404) - lu(k,639) * lu(k,1377) - lu(k,1405) = lu(k,1405) - lu(k,640) * lu(k,1377) - lu(k,1406) = lu(k,1406) - lu(k,641) * lu(k,1377) - lu(k,1456) = lu(k,1456) - lu(k,614) * lu(k,1455) - lu(k,1457) = - lu(k,615) * lu(k,1455) - lu(k,1458) = lu(k,1458) - lu(k,616) * lu(k,1455) - lu(k,1459) = lu(k,1459) - lu(k,617) * lu(k,1455) - lu(k,1460) = lu(k,1460) - lu(k,618) * lu(k,1455) - lu(k,1461) = lu(k,1461) - lu(k,619) * lu(k,1455) - lu(k,1462) = lu(k,1462) - lu(k,620) * lu(k,1455) - lu(k,1463) = lu(k,1463) - lu(k,621) * lu(k,1455) - lu(k,1464) = lu(k,1464) - lu(k,622) * lu(k,1455) - lu(k,1465) = lu(k,1465) - lu(k,623) * lu(k,1455) - lu(k,1466) = lu(k,1466) - lu(k,624) * lu(k,1455) - lu(k,1467) = lu(k,1467) - lu(k,625) * lu(k,1455) - lu(k,1468) = lu(k,1468) - lu(k,626) * lu(k,1455) - lu(k,1469) = lu(k,1469) - lu(k,627) * lu(k,1455) - lu(k,1470) = lu(k,1470) - lu(k,628) * lu(k,1455) - lu(k,1471) = - lu(k,629) * lu(k,1455) - lu(k,1472) = lu(k,1472) - lu(k,630) * lu(k,1455) - lu(k,1473) = lu(k,1473) - lu(k,631) * lu(k,1455) - lu(k,1474) = lu(k,1474) - lu(k,632) * lu(k,1455) - lu(k,1476) = lu(k,1476) - lu(k,633) * lu(k,1455) - lu(k,1477) = - lu(k,634) * lu(k,1455) - lu(k,1478) = lu(k,1478) - lu(k,635) * lu(k,1455) - lu(k,1479) = - lu(k,636) * lu(k,1455) - lu(k,1480) = - lu(k,637) * lu(k,1455) - lu(k,1481) = lu(k,1481) - lu(k,638) * lu(k,1455) - lu(k,1482) = lu(k,1482) - lu(k,639) * lu(k,1455) - lu(k,1483) = lu(k,1483) - lu(k,640) * lu(k,1455) - lu(k,1484) = lu(k,1484) - lu(k,641) * lu(k,1455) - lu(k,1499) = lu(k,1499) - lu(k,614) * lu(k,1498) - lu(k,1500) = lu(k,1500) - lu(k,615) * lu(k,1498) - lu(k,1501) = lu(k,1501) - lu(k,616) * lu(k,1498) - lu(k,1502) = lu(k,1502) - lu(k,617) * lu(k,1498) - lu(k,1503) = lu(k,1503) - lu(k,618) * lu(k,1498) - lu(k,1504) = lu(k,1504) - lu(k,619) * lu(k,1498) - lu(k,1505) = lu(k,1505) - lu(k,620) * lu(k,1498) - lu(k,1506) = lu(k,1506) - lu(k,621) * lu(k,1498) - lu(k,1507) = lu(k,1507) - lu(k,622) * lu(k,1498) - lu(k,1508) = lu(k,1508) - lu(k,623) * lu(k,1498) - lu(k,1509) = lu(k,1509) - lu(k,624) * lu(k,1498) - lu(k,1510) = lu(k,1510) - lu(k,625) * lu(k,1498) - lu(k,1511) = lu(k,1511) - lu(k,626) * lu(k,1498) - lu(k,1512) = lu(k,1512) - lu(k,627) * lu(k,1498) - lu(k,1513) = lu(k,1513) - lu(k,628) * lu(k,1498) - lu(k,1514) = lu(k,1514) - lu(k,629) * lu(k,1498) - lu(k,1515) = lu(k,1515) - lu(k,630) * lu(k,1498) - lu(k,1516) = lu(k,1516) - lu(k,631) * lu(k,1498) - lu(k,1517) = lu(k,1517) - lu(k,632) * lu(k,1498) - lu(k,1519) = lu(k,1519) - lu(k,633) * lu(k,1498) - lu(k,1520) = lu(k,1520) - lu(k,634) * lu(k,1498) - lu(k,1521) = lu(k,1521) - lu(k,635) * lu(k,1498) - lu(k,1522) = lu(k,1522) - lu(k,636) * lu(k,1498) - lu(k,1523) = lu(k,1523) - lu(k,637) * lu(k,1498) - lu(k,1524) = lu(k,1524) - lu(k,638) * lu(k,1498) - lu(k,1525) = lu(k,1525) - lu(k,639) * lu(k,1498) - lu(k,1526) = lu(k,1526) - lu(k,640) * lu(k,1498) - lu(k,1527) = lu(k,1527) - lu(k,641) * lu(k,1498) - lu(k,1542) = lu(k,1542) - lu(k,614) * lu(k,1541) - lu(k,1543) = - lu(k,615) * lu(k,1541) - lu(k,1544) = lu(k,1544) - lu(k,616) * lu(k,1541) - lu(k,1545) = lu(k,1545) - lu(k,617) * lu(k,1541) - lu(k,1546) = lu(k,1546) - lu(k,618) * lu(k,1541) - lu(k,1547) = lu(k,1547) - lu(k,619) * lu(k,1541) - lu(k,1548) = lu(k,1548) - lu(k,620) * lu(k,1541) - lu(k,1549) = lu(k,1549) - lu(k,621) * lu(k,1541) - lu(k,1550) = lu(k,1550) - lu(k,622) * lu(k,1541) - lu(k,1551) = lu(k,1551) - lu(k,623) * lu(k,1541) - lu(k,1552) = lu(k,1552) - lu(k,624) * lu(k,1541) - lu(k,1553) = lu(k,1553) - lu(k,625) * lu(k,1541) - lu(k,1554) = lu(k,1554) - lu(k,626) * lu(k,1541) - lu(k,1555) = lu(k,1555) - lu(k,627) * lu(k,1541) - lu(k,1556) = lu(k,1556) - lu(k,628) * lu(k,1541) - lu(k,1557) = - lu(k,629) * lu(k,1541) - lu(k,1558) = lu(k,1558) - lu(k,630) * lu(k,1541) - lu(k,1559) = lu(k,1559) - lu(k,631) * lu(k,1541) - lu(k,1560) = lu(k,1560) - lu(k,632) * lu(k,1541) - lu(k,1562) = lu(k,1562) - lu(k,633) * lu(k,1541) - lu(k,1563) = - lu(k,634) * lu(k,1541) - lu(k,1564) = lu(k,1564) - lu(k,635) * lu(k,1541) - lu(k,1565) = - lu(k,636) * lu(k,1541) - lu(k,1566) = - lu(k,637) * lu(k,1541) - lu(k,1567) = lu(k,1567) - lu(k,638) * lu(k,1541) - lu(k,1568) = lu(k,1568) - lu(k,639) * lu(k,1541) - lu(k,1569) = lu(k,1569) - lu(k,640) * lu(k,1541) - lu(k,1570) = lu(k,1570) - lu(k,641) * lu(k,1541) - lu(k,1654) = lu(k,1654) - lu(k,614) * lu(k,1653) - lu(k,1655) = lu(k,1655) - lu(k,615) * lu(k,1653) - lu(k,1656) = lu(k,1656) - lu(k,616) * lu(k,1653) - lu(k,1657) = lu(k,1657) - lu(k,617) * lu(k,1653) - lu(k,1658) = lu(k,1658) - lu(k,618) * lu(k,1653) - lu(k,1659) = lu(k,1659) - lu(k,619) * lu(k,1653) - lu(k,1660) = lu(k,1660) - lu(k,620) * lu(k,1653) - lu(k,1661) = - lu(k,621) * lu(k,1653) - lu(k,1662) = lu(k,1662) - lu(k,622) * lu(k,1653) - lu(k,1663) = lu(k,1663) - lu(k,623) * lu(k,1653) - lu(k,1664) = - lu(k,624) * lu(k,1653) - lu(k,1665) = lu(k,1665) - lu(k,625) * lu(k,1653) - lu(k,1666) = lu(k,1666) - lu(k,626) * lu(k,1653) - lu(k,1667) = lu(k,1667) - lu(k,627) * lu(k,1653) - lu(k,1668) = lu(k,1668) - lu(k,628) * lu(k,1653) - lu(k,1669) = lu(k,1669) - lu(k,629) * lu(k,1653) - lu(k,1670) = lu(k,1670) - lu(k,630) * lu(k,1653) - lu(k,1671) = lu(k,1671) - lu(k,631) * lu(k,1653) - lu(k,1672) = lu(k,1672) - lu(k,632) * lu(k,1653) - lu(k,1674) = - lu(k,633) * lu(k,1653) - lu(k,1675) = lu(k,1675) - lu(k,634) * lu(k,1653) - lu(k,1676) = - lu(k,635) * lu(k,1653) - lu(k,1677) = lu(k,1677) - lu(k,636) * lu(k,1653) - lu(k,1678) = lu(k,1678) - lu(k,637) * lu(k,1653) - lu(k,1679) = lu(k,1679) - lu(k,638) * lu(k,1653) - lu(k,1680) = lu(k,1680) - lu(k,639) * lu(k,1653) - lu(k,1681) = lu(k,1681) - lu(k,640) * lu(k,1653) - lu(k,1682) = lu(k,1682) - lu(k,641) * lu(k,1653) - lu(k,1690) = lu(k,1690) - lu(k,614) * lu(k,1689) - lu(k,1691) = lu(k,1691) - lu(k,615) * lu(k,1689) - lu(k,1692) = lu(k,1692) - lu(k,616) * lu(k,1689) - lu(k,1693) = lu(k,1693) - lu(k,617) * lu(k,1689) - lu(k,1694) = lu(k,1694) - lu(k,618) * lu(k,1689) - lu(k,1695) = lu(k,1695) - lu(k,619) * lu(k,1689) - lu(k,1696) = lu(k,1696) - lu(k,620) * lu(k,1689) - lu(k,1697) = lu(k,1697) - lu(k,621) * lu(k,1689) - lu(k,1698) = lu(k,1698) - lu(k,622) * lu(k,1689) - lu(k,1699) = lu(k,1699) - lu(k,623) * lu(k,1689) - lu(k,1700) = lu(k,1700) - lu(k,624) * lu(k,1689) - lu(k,1701) = lu(k,1701) - lu(k,625) * lu(k,1689) - lu(k,1702) = lu(k,1702) - lu(k,626) * lu(k,1689) - lu(k,1703) = lu(k,1703) - lu(k,627) * lu(k,1689) - lu(k,1704) = lu(k,1704) - lu(k,628) * lu(k,1689) - lu(k,1705) = lu(k,1705) - lu(k,629) * lu(k,1689) - lu(k,1706) = lu(k,1706) - lu(k,630) * lu(k,1689) - lu(k,1707) = lu(k,1707) - lu(k,631) * lu(k,1689) - lu(k,1708) = lu(k,1708) - lu(k,632) * lu(k,1689) - lu(k,1710) = lu(k,1710) - lu(k,633) * lu(k,1689) - lu(k,1711) = lu(k,1711) - lu(k,634) * lu(k,1689) - lu(k,1712) = lu(k,1712) - lu(k,635) * lu(k,1689) - lu(k,1713) = lu(k,1713) - lu(k,636) * lu(k,1689) - lu(k,1714) = lu(k,1714) - lu(k,637) * lu(k,1689) - lu(k,1715) = lu(k,1715) - lu(k,638) * lu(k,1689) - lu(k,1716) = lu(k,1716) - lu(k,639) * lu(k,1689) - lu(k,1717) = lu(k,1717) - lu(k,640) * lu(k,1689) - lu(k,1718) = lu(k,1718) - lu(k,641) * lu(k,1689) - 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,646) = 1._r8 / lu(k,646) - lu(k,647) = lu(k,647) * lu(k,646) - lu(k,648) = lu(k,648) * lu(k,646) - lu(k,649) = lu(k,649) * lu(k,646) - lu(k,650) = lu(k,650) * lu(k,646) - lu(k,651) = lu(k,651) * lu(k,646) - lu(k,652) = lu(k,652) * lu(k,646) - lu(k,653) = lu(k,653) * lu(k,646) - lu(k,654) = lu(k,654) * lu(k,646) - lu(k,655) = lu(k,655) * lu(k,646) - lu(k,656) = lu(k,656) * lu(k,646) - lu(k,657) = lu(k,657) * lu(k,646) - lu(k,658) = lu(k,658) * lu(k,646) - lu(k,659) = lu(k,659) * lu(k,646) - lu(k,660) = lu(k,660) * lu(k,646) - lu(k,661) = lu(k,661) * lu(k,646) - lu(k,662) = lu(k,662) * lu(k,646) - lu(k,663) = lu(k,663) * lu(k,646) - lu(k,664) = lu(k,664) * lu(k,646) - lu(k,665) = lu(k,665) * lu(k,646) - lu(k,666) = lu(k,666) * lu(k,646) - lu(k,706) = lu(k,706) - lu(k,647) * lu(k,705) - lu(k,708) = lu(k,708) - lu(k,648) * lu(k,705) - lu(k,709) = lu(k,709) - lu(k,649) * lu(k,705) - lu(k,710) = lu(k,710) - lu(k,650) * lu(k,705) - lu(k,711) = lu(k,711) - lu(k,651) * lu(k,705) - lu(k,712) = lu(k,712) - lu(k,652) * lu(k,705) - lu(k,713) = lu(k,713) - lu(k,653) * lu(k,705) - lu(k,714) = lu(k,714) - lu(k,654) * lu(k,705) - lu(k,715) = lu(k,715) - lu(k,655) * lu(k,705) - lu(k,716) = - lu(k,656) * lu(k,705) - lu(k,717) = lu(k,717) - lu(k,657) * lu(k,705) - lu(k,718) = lu(k,718) - lu(k,658) * lu(k,705) - lu(k,719) = lu(k,719) - lu(k,659) * lu(k,705) - lu(k,720) = lu(k,720) - lu(k,660) * lu(k,705) - lu(k,721) = lu(k,721) - lu(k,661) * lu(k,705) - lu(k,723) = lu(k,723) - lu(k,662) * lu(k,705) - lu(k,725) = lu(k,725) - lu(k,663) * lu(k,705) - lu(k,726) = lu(k,726) - lu(k,664) * lu(k,705) - lu(k,727) = lu(k,727) - lu(k,665) * lu(k,705) - lu(k,728) = lu(k,728) - lu(k,666) * lu(k,705) - lu(k,777) = lu(k,777) - lu(k,647) * lu(k,776) - lu(k,780) = lu(k,780) - lu(k,648) * lu(k,776) - lu(k,781) = lu(k,781) - lu(k,649) * lu(k,776) - lu(k,782) = lu(k,782) - lu(k,650) * lu(k,776) - lu(k,783) = lu(k,783) - lu(k,651) * lu(k,776) - lu(k,784) = lu(k,784) - lu(k,652) * lu(k,776) - lu(k,785) = lu(k,785) - lu(k,653) * lu(k,776) - lu(k,787) = lu(k,787) - lu(k,654) * lu(k,776) - lu(k,788) = lu(k,788) - lu(k,655) * lu(k,776) - lu(k,789) = lu(k,789) - lu(k,656) * lu(k,776) - lu(k,790) = lu(k,790) - lu(k,657) * lu(k,776) - lu(k,792) = lu(k,792) - lu(k,658) * lu(k,776) - lu(k,793) = lu(k,793) - lu(k,659) * lu(k,776) - lu(k,794) = lu(k,794) - lu(k,660) * lu(k,776) - lu(k,795) = lu(k,795) - lu(k,661) * lu(k,776) - lu(k,797) = lu(k,797) - lu(k,662) * lu(k,776) - lu(k,800) = lu(k,800) - lu(k,663) * lu(k,776) - lu(k,801) = lu(k,801) - lu(k,664) * lu(k,776) - lu(k,802) = lu(k,802) - lu(k,665) * lu(k,776) - lu(k,803) = lu(k,803) - lu(k,666) * lu(k,776) - lu(k,820) = lu(k,820) - lu(k,647) * lu(k,818) - lu(k,823) = lu(k,823) - lu(k,648) * lu(k,818) - lu(k,824) = lu(k,824) - lu(k,649) * lu(k,818) - lu(k,825) = lu(k,825) - lu(k,650) * lu(k,818) - lu(k,826) = lu(k,826) - lu(k,651) * lu(k,818) - lu(k,827) = lu(k,827) - lu(k,652) * lu(k,818) - lu(k,828) = lu(k,828) - lu(k,653) * lu(k,818) - lu(k,830) = lu(k,830) - lu(k,654) * lu(k,818) - lu(k,831) = lu(k,831) - lu(k,655) * lu(k,818) - lu(k,832) = lu(k,832) - lu(k,656) * lu(k,818) - lu(k,833) = lu(k,833) - lu(k,657) * lu(k,818) - lu(k,835) = lu(k,835) - lu(k,658) * lu(k,818) - lu(k,836) = lu(k,836) - lu(k,659) * lu(k,818) - lu(k,837) = lu(k,837) - lu(k,660) * lu(k,818) - lu(k,838) = lu(k,838) - lu(k,661) * lu(k,818) - lu(k,840) = lu(k,840) - lu(k,662) * lu(k,818) - lu(k,843) = lu(k,843) - lu(k,663) * lu(k,818) - lu(k,844) = lu(k,844) - lu(k,664) * lu(k,818) - lu(k,845) = lu(k,845) - lu(k,665) * lu(k,818) - lu(k,846) = lu(k,846) - lu(k,666) * lu(k,818) - lu(k,866) = lu(k,866) - lu(k,647) * lu(k,864) - lu(k,869) = lu(k,869) - lu(k,648) * lu(k,864) - lu(k,870) = lu(k,870) - lu(k,649) * lu(k,864) - lu(k,871) = lu(k,871) - lu(k,650) * lu(k,864) - lu(k,872) = lu(k,872) - lu(k,651) * lu(k,864) - lu(k,873) = lu(k,873) - lu(k,652) * lu(k,864) - lu(k,874) = lu(k,874) - lu(k,653) * lu(k,864) - lu(k,876) = lu(k,876) - lu(k,654) * lu(k,864) - lu(k,877) = lu(k,877) - lu(k,655) * lu(k,864) - lu(k,878) = lu(k,878) - lu(k,656) * lu(k,864) - lu(k,879) = lu(k,879) - lu(k,657) * lu(k,864) - lu(k,881) = lu(k,881) - lu(k,658) * lu(k,864) - lu(k,882) = lu(k,882) - lu(k,659) * lu(k,864) - lu(k,883) = lu(k,883) - lu(k,660) * lu(k,864) - lu(k,884) = lu(k,884) - lu(k,661) * lu(k,864) - lu(k,886) = lu(k,886) - lu(k,662) * lu(k,864) - lu(k,889) = lu(k,889) - lu(k,663) * lu(k,864) - lu(k,890) = lu(k,890) - lu(k,664) * lu(k,864) - lu(k,891) = lu(k,891) - lu(k,665) * lu(k,864) - lu(k,892) = lu(k,892) - lu(k,666) * lu(k,864) - lu(k,909) = lu(k,909) - lu(k,647) * lu(k,907) - lu(k,912) = lu(k,912) - lu(k,648) * lu(k,907) - lu(k,913) = lu(k,913) - lu(k,649) * lu(k,907) - lu(k,914) = lu(k,914) - lu(k,650) * lu(k,907) - lu(k,915) = lu(k,915) - lu(k,651) * lu(k,907) - lu(k,916) = lu(k,916) - lu(k,652) * lu(k,907) - lu(k,917) = lu(k,917) - lu(k,653) * lu(k,907) - lu(k,919) = lu(k,919) - lu(k,654) * lu(k,907) - lu(k,920) = lu(k,920) - lu(k,655) * lu(k,907) - lu(k,921) = lu(k,921) - lu(k,656) * lu(k,907) - lu(k,922) = lu(k,922) - lu(k,657) * lu(k,907) - lu(k,924) = lu(k,924) - lu(k,658) * lu(k,907) - lu(k,925) = lu(k,925) - lu(k,659) * lu(k,907) - lu(k,926) = lu(k,926) - lu(k,660) * lu(k,907) - lu(k,927) = lu(k,927) - lu(k,661) * lu(k,907) - lu(k,929) = lu(k,929) - lu(k,662) * lu(k,907) - lu(k,932) = lu(k,932) - lu(k,663) * lu(k,907) - lu(k,933) = lu(k,933) - lu(k,664) * lu(k,907) - lu(k,934) = lu(k,934) - lu(k,665) * lu(k,907) - lu(k,935) = lu(k,935) - lu(k,666) * lu(k,907) - lu(k,994) = lu(k,994) - lu(k,647) * lu(k,992) - lu(k,997) = lu(k,997) - lu(k,648) * lu(k,992) - lu(k,998) = lu(k,998) - lu(k,649) * lu(k,992) - lu(k,999) = lu(k,999) - lu(k,650) * lu(k,992) - lu(k,1000) = lu(k,1000) - lu(k,651) * lu(k,992) - lu(k,1001) = lu(k,1001) - lu(k,652) * lu(k,992) - lu(k,1002) = lu(k,1002) - lu(k,653) * lu(k,992) - lu(k,1004) = lu(k,1004) - lu(k,654) * lu(k,992) - lu(k,1005) = lu(k,1005) - lu(k,655) * lu(k,992) - lu(k,1006) = lu(k,1006) - lu(k,656) * lu(k,992) - lu(k,1007) = lu(k,1007) - lu(k,657) * lu(k,992) - lu(k,1009) = lu(k,1009) - lu(k,658) * lu(k,992) - lu(k,1010) = lu(k,1010) - lu(k,659) * lu(k,992) - lu(k,1011) = lu(k,1011) - lu(k,660) * lu(k,992) - lu(k,1012) = lu(k,1012) - lu(k,661) * lu(k,992) - lu(k,1014) = lu(k,1014) - lu(k,662) * lu(k,992) - lu(k,1017) = lu(k,1017) - lu(k,663) * lu(k,992) - lu(k,1018) = lu(k,1018) - lu(k,664) * lu(k,992) - lu(k,1019) = lu(k,1019) - lu(k,665) * lu(k,992) - lu(k,1020) = lu(k,1020) - lu(k,666) * lu(k,992) - lu(k,1036) = lu(k,1036) - lu(k,647) * lu(k,1034) - lu(k,1039) = lu(k,1039) - lu(k,648) * lu(k,1034) - lu(k,1040) = lu(k,1040) - lu(k,649) * lu(k,1034) - lu(k,1041) = lu(k,1041) - lu(k,650) * lu(k,1034) - lu(k,1042) = lu(k,1042) - lu(k,651) * lu(k,1034) - lu(k,1043) = lu(k,1043) - lu(k,652) * lu(k,1034) - lu(k,1044) = lu(k,1044) - lu(k,653) * lu(k,1034) - lu(k,1046) = lu(k,1046) - lu(k,654) * lu(k,1034) - lu(k,1047) = lu(k,1047) - lu(k,655) * lu(k,1034) - lu(k,1048) = lu(k,1048) - lu(k,656) * lu(k,1034) - lu(k,1049) = lu(k,1049) - lu(k,657) * lu(k,1034) - lu(k,1051) = lu(k,1051) - lu(k,658) * lu(k,1034) - lu(k,1052) = lu(k,1052) - lu(k,659) * lu(k,1034) - lu(k,1053) = lu(k,1053) - lu(k,660) * lu(k,1034) - lu(k,1054) = lu(k,1054) - lu(k,661) * lu(k,1034) - lu(k,1056) = lu(k,1056) - lu(k,662) * lu(k,1034) - lu(k,1059) = lu(k,1059) - lu(k,663) * lu(k,1034) - lu(k,1060) = lu(k,1060) - lu(k,664) * lu(k,1034) - lu(k,1061) = lu(k,1061) - lu(k,665) * lu(k,1034) - lu(k,1062) = lu(k,1062) - lu(k,666) * lu(k,1034) - lu(k,1077) = lu(k,1077) - lu(k,647) * lu(k,1075) - lu(k,1080) = lu(k,1080) - lu(k,648) * lu(k,1075) - lu(k,1081) = lu(k,1081) - lu(k,649) * lu(k,1075) - lu(k,1082) = lu(k,1082) - lu(k,650) * lu(k,1075) - lu(k,1083) = lu(k,1083) - lu(k,651) * lu(k,1075) - lu(k,1084) = lu(k,1084) - lu(k,652) * lu(k,1075) - lu(k,1085) = lu(k,1085) - lu(k,653) * lu(k,1075) - lu(k,1087) = lu(k,1087) - lu(k,654) * lu(k,1075) - lu(k,1088) = lu(k,1088) - lu(k,655) * lu(k,1075) - lu(k,1089) = lu(k,1089) - lu(k,656) * lu(k,1075) - lu(k,1090) = lu(k,1090) - lu(k,657) * lu(k,1075) - lu(k,1092) = lu(k,1092) - lu(k,658) * lu(k,1075) - lu(k,1093) = lu(k,1093) - lu(k,659) * lu(k,1075) - lu(k,1094) = - lu(k,660) * lu(k,1075) - lu(k,1095) = lu(k,1095) - lu(k,661) * lu(k,1075) - lu(k,1097) = lu(k,1097) - lu(k,662) * lu(k,1075) - lu(k,1100) = lu(k,1100) - lu(k,663) * lu(k,1075) - lu(k,1101) = lu(k,1101) - lu(k,664) * lu(k,1075) - lu(k,1102) = lu(k,1102) - lu(k,665) * lu(k,1075) - lu(k,1103) = lu(k,1103) - lu(k,666) * lu(k,1075) - lu(k,1122) = lu(k,1122) - lu(k,647) * lu(k,1120) - lu(k,1125) = lu(k,1125) - lu(k,648) * lu(k,1120) - lu(k,1126) = lu(k,1126) - lu(k,649) * lu(k,1120) - lu(k,1127) = lu(k,1127) - lu(k,650) * lu(k,1120) - lu(k,1128) = lu(k,1128) - lu(k,651) * lu(k,1120) - lu(k,1129) = lu(k,1129) - lu(k,652) * lu(k,1120) - lu(k,1130) = lu(k,1130) - lu(k,653) * lu(k,1120) - lu(k,1132) = lu(k,1132) - lu(k,654) * lu(k,1120) - lu(k,1133) = lu(k,1133) - lu(k,655) * lu(k,1120) - lu(k,1134) = lu(k,1134) - lu(k,656) * lu(k,1120) - lu(k,1135) = lu(k,1135) - lu(k,657) * lu(k,1120) - lu(k,1137) = lu(k,1137) - lu(k,658) * lu(k,1120) - lu(k,1138) = lu(k,1138) - lu(k,659) * lu(k,1120) - lu(k,1139) = lu(k,1139) - lu(k,660) * lu(k,1120) - lu(k,1140) = lu(k,1140) - lu(k,661) * lu(k,1120) - lu(k,1142) = lu(k,1142) - lu(k,662) * lu(k,1120) - lu(k,1145) = lu(k,1145) - lu(k,663) * lu(k,1120) - lu(k,1146) = lu(k,1146) - lu(k,664) * lu(k,1120) - lu(k,1147) = lu(k,1147) - lu(k,665) * lu(k,1120) - lu(k,1148) = lu(k,1148) - lu(k,666) * lu(k,1120) - lu(k,1162) = lu(k,1162) - lu(k,647) * lu(k,1160) - lu(k,1165) = lu(k,1165) - lu(k,648) * lu(k,1160) - lu(k,1166) = lu(k,1166) - lu(k,649) * lu(k,1160) - lu(k,1167) = lu(k,1167) - lu(k,650) * lu(k,1160) - lu(k,1168) = lu(k,1168) - lu(k,651) * lu(k,1160) - lu(k,1169) = lu(k,1169) - lu(k,652) * lu(k,1160) - lu(k,1170) = lu(k,1170) - lu(k,653) * lu(k,1160) - lu(k,1172) = lu(k,1172) - lu(k,654) * lu(k,1160) - lu(k,1173) = lu(k,1173) - lu(k,655) * lu(k,1160) - lu(k,1174) = lu(k,1174) - lu(k,656) * lu(k,1160) - lu(k,1175) = lu(k,1175) - lu(k,657) * lu(k,1160) - lu(k,1177) = lu(k,1177) - lu(k,658) * lu(k,1160) - lu(k,1178) = lu(k,1178) - lu(k,659) * lu(k,1160) - lu(k,1179) = lu(k,1179) - lu(k,660) * lu(k,1160) - lu(k,1180) = lu(k,1180) - lu(k,661) * lu(k,1160) - lu(k,1182) = lu(k,1182) - lu(k,662) * lu(k,1160) - lu(k,1185) = lu(k,1185) - lu(k,663) * lu(k,1160) - lu(k,1186) = lu(k,1186) - lu(k,664) * lu(k,1160) - lu(k,1187) = lu(k,1187) - lu(k,665) * lu(k,1160) - lu(k,1188) = lu(k,1188) - lu(k,666) * lu(k,1160) - lu(k,1218) = lu(k,1218) - lu(k,647) * lu(k,1216) - lu(k,1221) = lu(k,1221) - lu(k,648) * lu(k,1216) - lu(k,1222) = lu(k,1222) - lu(k,649) * lu(k,1216) - lu(k,1223) = lu(k,1223) - lu(k,650) * lu(k,1216) - lu(k,1224) = lu(k,1224) - lu(k,651) * lu(k,1216) - lu(k,1225) = lu(k,1225) - lu(k,652) * lu(k,1216) - lu(k,1226) = lu(k,1226) - lu(k,653) * lu(k,1216) - lu(k,1228) = lu(k,1228) - lu(k,654) * lu(k,1216) - lu(k,1229) = lu(k,1229) - lu(k,655) * lu(k,1216) - lu(k,1230) = lu(k,1230) - lu(k,656) * lu(k,1216) - lu(k,1231) = lu(k,1231) - lu(k,657) * lu(k,1216) - lu(k,1233) = lu(k,1233) - lu(k,658) * lu(k,1216) - lu(k,1234) = lu(k,1234) - lu(k,659) * lu(k,1216) - lu(k,1235) = lu(k,1235) - lu(k,660) * lu(k,1216) - lu(k,1236) = lu(k,1236) - lu(k,661) * lu(k,1216) - lu(k,1238) = lu(k,1238) - lu(k,662) * lu(k,1216) - lu(k,1241) = lu(k,1241) - lu(k,663) * lu(k,1216) - lu(k,1242) = lu(k,1242) - lu(k,664) * lu(k,1216) - lu(k,1243) = lu(k,1243) - lu(k,665) * lu(k,1216) - lu(k,1244) = lu(k,1244) - lu(k,666) * lu(k,1216) - lu(k,1256) = lu(k,1256) - lu(k,647) * lu(k,1254) - lu(k,1259) = lu(k,1259) - lu(k,648) * lu(k,1254) - lu(k,1260) = lu(k,1260) - lu(k,649) * lu(k,1254) - lu(k,1261) = lu(k,1261) - lu(k,650) * lu(k,1254) - lu(k,1262) = lu(k,1262) - lu(k,651) * lu(k,1254) - lu(k,1263) = lu(k,1263) - lu(k,652) * lu(k,1254) - lu(k,1264) = lu(k,1264) - lu(k,653) * lu(k,1254) - lu(k,1266) = lu(k,1266) - lu(k,654) * lu(k,1254) - lu(k,1267) = lu(k,1267) - lu(k,655) * lu(k,1254) - lu(k,1268) = lu(k,1268) - lu(k,656) * lu(k,1254) - lu(k,1269) = lu(k,1269) - lu(k,657) * lu(k,1254) - lu(k,1271) = lu(k,1271) - lu(k,658) * lu(k,1254) - lu(k,1272) = lu(k,1272) - lu(k,659) * lu(k,1254) - lu(k,1273) = lu(k,1273) - lu(k,660) * lu(k,1254) - lu(k,1274) = lu(k,1274) - lu(k,661) * lu(k,1254) - lu(k,1276) = lu(k,1276) - lu(k,662) * lu(k,1254) - lu(k,1279) = lu(k,1279) - lu(k,663) * lu(k,1254) - lu(k,1280) = lu(k,1280) - lu(k,664) * lu(k,1254) - lu(k,1281) = lu(k,1281) - lu(k,665) * lu(k,1254) - lu(k,1282) = lu(k,1282) - lu(k,666) * lu(k,1254) - lu(k,1292) = lu(k,1292) - lu(k,647) * lu(k,1290) - lu(k,1295) = lu(k,1295) - lu(k,648) * lu(k,1290) - lu(k,1296) = lu(k,1296) - lu(k,649) * lu(k,1290) - lu(k,1297) = lu(k,1297) - lu(k,650) * lu(k,1290) - lu(k,1298) = lu(k,1298) - lu(k,651) * lu(k,1290) - lu(k,1299) = lu(k,1299) - lu(k,652) * lu(k,1290) - lu(k,1300) = lu(k,1300) - lu(k,653) * lu(k,1290) - lu(k,1302) = lu(k,1302) - lu(k,654) * lu(k,1290) - lu(k,1303) = lu(k,1303) - lu(k,655) * lu(k,1290) - lu(k,1304) = lu(k,1304) - lu(k,656) * lu(k,1290) - lu(k,1305) = lu(k,1305) - lu(k,657) * lu(k,1290) - lu(k,1307) = lu(k,1307) - lu(k,658) * lu(k,1290) - lu(k,1308) = lu(k,1308) - lu(k,659) * lu(k,1290) - lu(k,1309) = - lu(k,660) * lu(k,1290) - lu(k,1310) = lu(k,1310) - lu(k,661) * lu(k,1290) - lu(k,1312) = lu(k,1312) - lu(k,662) * lu(k,1290) - lu(k,1315) = lu(k,1315) - lu(k,663) * lu(k,1290) - lu(k,1316) = lu(k,1316) - lu(k,664) * lu(k,1290) - lu(k,1317) = lu(k,1317) - lu(k,665) * lu(k,1290) - lu(k,1318) = lu(k,1318) - lu(k,666) * lu(k,1290) - lu(k,1337) = lu(k,1337) - lu(k,647) * lu(k,1335) - lu(k,1340) = lu(k,1340) - lu(k,648) * lu(k,1335) - lu(k,1341) = lu(k,1341) - lu(k,649) * lu(k,1335) - lu(k,1342) = lu(k,1342) - lu(k,650) * lu(k,1335) - lu(k,1343) = lu(k,1343) - lu(k,651) * lu(k,1335) - lu(k,1344) = lu(k,1344) - lu(k,652) * lu(k,1335) - lu(k,1345) = lu(k,1345) - lu(k,653) * lu(k,1335) - lu(k,1347) = lu(k,1347) - lu(k,654) * lu(k,1335) - lu(k,1348) = lu(k,1348) - lu(k,655) * lu(k,1335) - lu(k,1349) = lu(k,1349) - lu(k,656) * lu(k,1335) - lu(k,1350) = lu(k,1350) - lu(k,657) * lu(k,1335) - lu(k,1352) = lu(k,1352) - lu(k,658) * lu(k,1335) - lu(k,1353) = lu(k,1353) - lu(k,659) * lu(k,1335) - lu(k,1354) = lu(k,1354) - lu(k,660) * lu(k,1335) - lu(k,1355) = lu(k,1355) - lu(k,661) * lu(k,1335) - lu(k,1357) = lu(k,1357) - lu(k,662) * lu(k,1335) - lu(k,1360) = lu(k,1360) - lu(k,663) * lu(k,1335) - lu(k,1361) = lu(k,1361) - lu(k,664) * lu(k,1335) - lu(k,1362) = lu(k,1362) - lu(k,665) * lu(k,1335) - lu(k,1363) = lu(k,1363) - lu(k,666) * lu(k,1335) - lu(k,1380) = lu(k,1380) - lu(k,647) * lu(k,1378) - lu(k,1383) = lu(k,1383) - lu(k,648) * lu(k,1378) - lu(k,1384) = lu(k,1384) - lu(k,649) * lu(k,1378) - lu(k,1385) = lu(k,1385) - lu(k,650) * lu(k,1378) - lu(k,1386) = lu(k,1386) - lu(k,651) * lu(k,1378) - lu(k,1387) = lu(k,1387) - lu(k,652) * lu(k,1378) - lu(k,1388) = lu(k,1388) - lu(k,653) * lu(k,1378) - lu(k,1390) = lu(k,1390) - lu(k,654) * lu(k,1378) - lu(k,1391) = lu(k,1391) - lu(k,655) * lu(k,1378) - lu(k,1392) = lu(k,1392) - lu(k,656) * lu(k,1378) - lu(k,1393) = lu(k,1393) - lu(k,657) * lu(k,1378) - lu(k,1395) = lu(k,1395) - lu(k,658) * lu(k,1378) - lu(k,1396) = lu(k,1396) - lu(k,659) * lu(k,1378) - lu(k,1397) = lu(k,1397) - lu(k,660) * lu(k,1378) - lu(k,1398) = lu(k,1398) - lu(k,661) * lu(k,1378) - lu(k,1400) = lu(k,1400) - lu(k,662) * lu(k,1378) - lu(k,1403) = lu(k,1403) - lu(k,663) * lu(k,1378) - lu(k,1404) = lu(k,1404) - lu(k,664) * lu(k,1378) - lu(k,1405) = lu(k,1405) - lu(k,665) * lu(k,1378) - lu(k,1406) = lu(k,1406) - lu(k,666) * lu(k,1378) - lu(k,1416) = - lu(k,647) * lu(k,1414) - lu(k,1418) = lu(k,1418) - lu(k,648) * lu(k,1414) - lu(k,1419) = lu(k,1419) - lu(k,649) * lu(k,1414) - lu(k,1420) = lu(k,1420) - lu(k,650) * lu(k,1414) - lu(k,1421) = lu(k,1421) - lu(k,651) * lu(k,1414) - lu(k,1422) = lu(k,1422) - lu(k,652) * lu(k,1414) - lu(k,1423) = lu(k,1423) - lu(k,653) * lu(k,1414) - lu(k,1425) = lu(k,1425) - lu(k,654) * lu(k,1414) - lu(k,1426) = lu(k,1426) - lu(k,655) * lu(k,1414) - lu(k,1427) = lu(k,1427) - lu(k,656) * lu(k,1414) - lu(k,1428) = lu(k,1428) - lu(k,657) * lu(k,1414) - lu(k,1430) = lu(k,1430) - lu(k,658) * lu(k,1414) - lu(k,1431) = lu(k,1431) - lu(k,659) * lu(k,1414) - lu(k,1432) = lu(k,1432) - lu(k,660) * lu(k,1414) - lu(k,1433) = lu(k,1433) - lu(k,661) * lu(k,1414) - lu(k,1435) = lu(k,1435) - lu(k,662) * lu(k,1414) - lu(k,1438) = lu(k,1438) - lu(k,663) * lu(k,1414) - lu(k,1439) = lu(k,1439) - lu(k,664) * lu(k,1414) - lu(k,1440) = lu(k,1440) - lu(k,665) * lu(k,1414) - lu(k,1441) = lu(k,1441) - lu(k,666) * lu(k,1414) - lu(k,1458) = lu(k,1458) - lu(k,647) * lu(k,1456) - lu(k,1461) = lu(k,1461) - lu(k,648) * lu(k,1456) - lu(k,1462) = lu(k,1462) - lu(k,649) * lu(k,1456) - lu(k,1463) = lu(k,1463) - lu(k,650) * lu(k,1456) - lu(k,1464) = lu(k,1464) - lu(k,651) * lu(k,1456) - lu(k,1465) = lu(k,1465) - lu(k,652) * lu(k,1456) - lu(k,1466) = lu(k,1466) - lu(k,653) * lu(k,1456) - lu(k,1468) = lu(k,1468) - lu(k,654) * lu(k,1456) - lu(k,1469) = lu(k,1469) - lu(k,655) * lu(k,1456) - lu(k,1470) = lu(k,1470) - lu(k,656) * lu(k,1456) - lu(k,1471) = lu(k,1471) - lu(k,657) * lu(k,1456) - lu(k,1473) = lu(k,1473) - lu(k,658) * lu(k,1456) - lu(k,1474) = lu(k,1474) - lu(k,659) * lu(k,1456) - lu(k,1475) = lu(k,1475) - lu(k,660) * lu(k,1456) - lu(k,1476) = lu(k,1476) - lu(k,661) * lu(k,1456) - lu(k,1478) = lu(k,1478) - lu(k,662) * lu(k,1456) - lu(k,1481) = lu(k,1481) - lu(k,663) * lu(k,1456) - lu(k,1482) = lu(k,1482) - lu(k,664) * lu(k,1456) - lu(k,1483) = lu(k,1483) - lu(k,665) * lu(k,1456) - lu(k,1484) = lu(k,1484) - lu(k,666) * lu(k,1456) - lu(k,1501) = lu(k,1501) - lu(k,647) * lu(k,1499) - lu(k,1504) = lu(k,1504) - lu(k,648) * lu(k,1499) - lu(k,1505) = lu(k,1505) - lu(k,649) * lu(k,1499) - lu(k,1506) = lu(k,1506) - lu(k,650) * lu(k,1499) - lu(k,1507) = lu(k,1507) - lu(k,651) * lu(k,1499) - lu(k,1508) = lu(k,1508) - lu(k,652) * lu(k,1499) - lu(k,1509) = lu(k,1509) - lu(k,653) * lu(k,1499) - lu(k,1511) = lu(k,1511) - lu(k,654) * lu(k,1499) - lu(k,1512) = lu(k,1512) - lu(k,655) * lu(k,1499) - lu(k,1513) = lu(k,1513) - lu(k,656) * lu(k,1499) - lu(k,1514) = lu(k,1514) - lu(k,657) * lu(k,1499) - lu(k,1516) = lu(k,1516) - lu(k,658) * lu(k,1499) - lu(k,1517) = lu(k,1517) - lu(k,659) * lu(k,1499) - lu(k,1518) = lu(k,1518) - lu(k,660) * lu(k,1499) - lu(k,1519) = lu(k,1519) - lu(k,661) * lu(k,1499) - lu(k,1521) = lu(k,1521) - lu(k,662) * lu(k,1499) - lu(k,1524) = lu(k,1524) - lu(k,663) * lu(k,1499) - lu(k,1525) = lu(k,1525) - lu(k,664) * lu(k,1499) - lu(k,1526) = lu(k,1526) - lu(k,665) * lu(k,1499) - lu(k,1527) = lu(k,1527) - lu(k,666) * lu(k,1499) - lu(k,1544) = lu(k,1544) - lu(k,647) * lu(k,1542) - lu(k,1547) = lu(k,1547) - lu(k,648) * lu(k,1542) - lu(k,1548) = lu(k,1548) - lu(k,649) * lu(k,1542) - lu(k,1549) = lu(k,1549) - lu(k,650) * lu(k,1542) - lu(k,1550) = lu(k,1550) - lu(k,651) * lu(k,1542) - lu(k,1551) = lu(k,1551) - lu(k,652) * lu(k,1542) - lu(k,1552) = lu(k,1552) - lu(k,653) * lu(k,1542) - lu(k,1554) = lu(k,1554) - lu(k,654) * lu(k,1542) - lu(k,1555) = lu(k,1555) - lu(k,655) * lu(k,1542) - lu(k,1556) = lu(k,1556) - lu(k,656) * lu(k,1542) - lu(k,1557) = lu(k,1557) - lu(k,657) * lu(k,1542) - lu(k,1559) = lu(k,1559) - lu(k,658) * lu(k,1542) - lu(k,1560) = lu(k,1560) - lu(k,659) * lu(k,1542) - lu(k,1561) = lu(k,1561) - lu(k,660) * lu(k,1542) - lu(k,1562) = lu(k,1562) - lu(k,661) * lu(k,1542) - lu(k,1564) = lu(k,1564) - lu(k,662) * lu(k,1542) - lu(k,1567) = lu(k,1567) - lu(k,663) * lu(k,1542) - lu(k,1568) = lu(k,1568) - lu(k,664) * lu(k,1542) - lu(k,1569) = lu(k,1569) - lu(k,665) * lu(k,1542) - lu(k,1570) = lu(k,1570) - lu(k,666) * lu(k,1542) - lu(k,1577) = lu(k,1577) - lu(k,647) * lu(k,1575) - lu(k,1580) = lu(k,1580) - lu(k,648) * lu(k,1575) - lu(k,1581) = lu(k,1581) - lu(k,649) * lu(k,1575) - lu(k,1582) = lu(k,1582) - lu(k,650) * lu(k,1575) - lu(k,1583) = lu(k,1583) - lu(k,651) * lu(k,1575) - lu(k,1584) = lu(k,1584) - lu(k,652) * lu(k,1575) - lu(k,1585) = lu(k,1585) - lu(k,653) * lu(k,1575) - lu(k,1587) = lu(k,1587) - lu(k,654) * lu(k,1575) - lu(k,1588) = lu(k,1588) - lu(k,655) * lu(k,1575) - lu(k,1589) = lu(k,1589) - lu(k,656) * lu(k,1575) - lu(k,1590) = lu(k,1590) - lu(k,657) * lu(k,1575) - lu(k,1592) = lu(k,1592) - lu(k,658) * lu(k,1575) - lu(k,1593) = lu(k,1593) - lu(k,659) * lu(k,1575) - lu(k,1594) = - lu(k,660) * lu(k,1575) - lu(k,1595) = lu(k,1595) - lu(k,661) * lu(k,1575) - lu(k,1597) = lu(k,1597) - lu(k,662) * lu(k,1575) - lu(k,1600) = lu(k,1600) - lu(k,663) * lu(k,1575) - lu(k,1601) = lu(k,1601) - lu(k,664) * lu(k,1575) - lu(k,1602) = lu(k,1602) - lu(k,665) * lu(k,1575) - lu(k,1603) = lu(k,1603) - lu(k,666) * lu(k,1575) - lu(k,1613) = lu(k,1613) - lu(k,647) * lu(k,1611) - lu(k,1616) = lu(k,1616) - lu(k,648) * lu(k,1611) - lu(k,1617) = lu(k,1617) - lu(k,649) * lu(k,1611) - lu(k,1618) = lu(k,1618) - lu(k,650) * lu(k,1611) - lu(k,1619) = lu(k,1619) - lu(k,651) * lu(k,1611) - lu(k,1620) = lu(k,1620) - lu(k,652) * lu(k,1611) - lu(k,1621) = lu(k,1621) - lu(k,653) * lu(k,1611) - lu(k,1623) = lu(k,1623) - lu(k,654) * lu(k,1611) - lu(k,1624) = lu(k,1624) - lu(k,655) * lu(k,1611) - lu(k,1625) = lu(k,1625) - lu(k,656) * lu(k,1611) - lu(k,1626) = lu(k,1626) - lu(k,657) * lu(k,1611) - lu(k,1628) = lu(k,1628) - lu(k,658) * lu(k,1611) - lu(k,1629) = lu(k,1629) - lu(k,659) * lu(k,1611) - lu(k,1630) = lu(k,1630) - lu(k,660) * lu(k,1611) - lu(k,1631) = lu(k,1631) - lu(k,661) * lu(k,1611) - lu(k,1633) = lu(k,1633) - lu(k,662) * lu(k,1611) - lu(k,1636) = lu(k,1636) - lu(k,663) * lu(k,1611) - lu(k,1637) = lu(k,1637) - lu(k,664) * lu(k,1611) - lu(k,1638) = lu(k,1638) - lu(k,665) * lu(k,1611) - lu(k,1639) = lu(k,1639) - lu(k,666) * lu(k,1611) - lu(k,1656) = lu(k,1656) - lu(k,647) * lu(k,1654) - lu(k,1659) = lu(k,1659) - lu(k,648) * lu(k,1654) - lu(k,1660) = lu(k,1660) - lu(k,649) * lu(k,1654) - lu(k,1661) = lu(k,1661) - lu(k,650) * lu(k,1654) - lu(k,1662) = lu(k,1662) - lu(k,651) * lu(k,1654) - lu(k,1663) = lu(k,1663) - lu(k,652) * lu(k,1654) - lu(k,1664) = lu(k,1664) - lu(k,653) * lu(k,1654) - lu(k,1666) = lu(k,1666) - lu(k,654) * lu(k,1654) - lu(k,1667) = lu(k,1667) - lu(k,655) * lu(k,1654) - lu(k,1668) = lu(k,1668) - lu(k,656) * lu(k,1654) - lu(k,1669) = lu(k,1669) - lu(k,657) * lu(k,1654) - lu(k,1671) = lu(k,1671) - lu(k,658) * lu(k,1654) - lu(k,1672) = lu(k,1672) - lu(k,659) * lu(k,1654) - lu(k,1673) = lu(k,1673) - lu(k,660) * lu(k,1654) - lu(k,1674) = lu(k,1674) - lu(k,661) * lu(k,1654) - lu(k,1676) = lu(k,1676) - lu(k,662) * lu(k,1654) - lu(k,1679) = lu(k,1679) - lu(k,663) * lu(k,1654) - lu(k,1680) = lu(k,1680) - lu(k,664) * lu(k,1654) - lu(k,1681) = lu(k,1681) - lu(k,665) * lu(k,1654) - lu(k,1682) = lu(k,1682) - lu(k,666) * lu(k,1654) - lu(k,1692) = lu(k,1692) - lu(k,647) * lu(k,1690) - lu(k,1695) = lu(k,1695) - lu(k,648) * lu(k,1690) - lu(k,1696) = lu(k,1696) - lu(k,649) * lu(k,1690) - lu(k,1697) = lu(k,1697) - lu(k,650) * lu(k,1690) - lu(k,1698) = lu(k,1698) - lu(k,651) * lu(k,1690) - lu(k,1699) = lu(k,1699) - lu(k,652) * lu(k,1690) - lu(k,1700) = lu(k,1700) - lu(k,653) * lu(k,1690) - lu(k,1702) = lu(k,1702) - lu(k,654) * lu(k,1690) - lu(k,1703) = lu(k,1703) - lu(k,655) * lu(k,1690) - lu(k,1704) = lu(k,1704) - lu(k,656) * lu(k,1690) - lu(k,1705) = lu(k,1705) - lu(k,657) * lu(k,1690) - lu(k,1707) = lu(k,1707) - lu(k,658) * lu(k,1690) - lu(k,1708) = lu(k,1708) - lu(k,659) * lu(k,1690) - lu(k,1709) = lu(k,1709) - lu(k,660) * lu(k,1690) - lu(k,1710) = lu(k,1710) - lu(k,661) * lu(k,1690) - lu(k,1712) = lu(k,1712) - lu(k,662) * lu(k,1690) - lu(k,1715) = lu(k,1715) - lu(k,663) * lu(k,1690) - lu(k,1716) = lu(k,1716) - lu(k,664) * lu(k,1690) - lu(k,1717) = lu(k,1717) - lu(k,665) * lu(k,1690) - lu(k,1718) = lu(k,1718) - lu(k,666) * lu(k,1690) - lu(k,1737) = lu(k,1737) - lu(k,647) * lu(k,1735) - lu(k,1740) = lu(k,1740) - lu(k,648) * lu(k,1735) - lu(k,1741) = lu(k,1741) - lu(k,649) * lu(k,1735) - lu(k,1742) = lu(k,1742) - lu(k,650) * lu(k,1735) - lu(k,1743) = lu(k,1743) - lu(k,651) * lu(k,1735) - lu(k,1744) = lu(k,1744) - lu(k,652) * lu(k,1735) - lu(k,1745) = lu(k,1745) - lu(k,653) * lu(k,1735) - lu(k,1747) = lu(k,1747) - lu(k,654) * lu(k,1735) - lu(k,1748) = lu(k,1748) - lu(k,655) * lu(k,1735) - lu(k,1749) = lu(k,1749) - lu(k,656) * lu(k,1735) - lu(k,1750) = lu(k,1750) - lu(k,657) * lu(k,1735) - lu(k,1752) = lu(k,1752) - lu(k,658) * lu(k,1735) - lu(k,1753) = lu(k,1753) - lu(k,659) * lu(k,1735) - lu(k,1754) = lu(k,1754) - lu(k,660) * lu(k,1735) - lu(k,1755) = lu(k,1755) - lu(k,661) * lu(k,1735) - lu(k,1757) = lu(k,1757) - lu(k,662) * lu(k,1735) - lu(k,1760) = lu(k,1760) - lu(k,663) * lu(k,1735) - lu(k,1761) = lu(k,1761) - lu(k,664) * lu(k,1735) - lu(k,1762) = lu(k,1762) - lu(k,665) * lu(k,1735) - lu(k,1763) = lu(k,1763) - lu(k,666) * lu(k,1735) - lu(k,1790) = lu(k,1790) - lu(k,647) * lu(k,1788) - lu(k,1793) = lu(k,1793) - lu(k,648) * lu(k,1788) - lu(k,1794) = lu(k,1794) - lu(k,649) * lu(k,1788) - lu(k,1795) = lu(k,1795) - lu(k,650) * lu(k,1788) - lu(k,1796) = lu(k,1796) - lu(k,651) * lu(k,1788) - lu(k,1797) = lu(k,1797) - lu(k,652) * lu(k,1788) - lu(k,1798) = lu(k,1798) - lu(k,653) * lu(k,1788) - lu(k,1800) = lu(k,1800) - lu(k,654) * lu(k,1788) - lu(k,1801) = lu(k,1801) - lu(k,655) * lu(k,1788) - lu(k,1802) = lu(k,1802) - lu(k,656) * lu(k,1788) - lu(k,1803) = lu(k,1803) - lu(k,657) * lu(k,1788) - lu(k,1805) = lu(k,1805) - lu(k,658) * lu(k,1788) - lu(k,1806) = lu(k,1806) - lu(k,659) * lu(k,1788) - lu(k,1807) = lu(k,1807) - lu(k,660) * lu(k,1788) - lu(k,1808) = lu(k,1808) - lu(k,661) * lu(k,1788) - lu(k,1810) = lu(k,1810) - lu(k,662) * lu(k,1788) - lu(k,1813) = lu(k,1813) - lu(k,663) * lu(k,1788) - lu(k,1814) = lu(k,1814) - lu(k,664) * lu(k,1788) - lu(k,1815) = lu(k,1815) - lu(k,665) * lu(k,1788) - lu(k,1816) = lu(k,1816) - lu(k,666) * lu(k,1788) - lu(k,680) = 1._r8 / lu(k,680) - lu(k,681) = lu(k,681) * lu(k,680) - lu(k,682) = lu(k,682) * lu(k,680) - lu(k,683) = lu(k,683) * lu(k,680) - lu(k,684) = lu(k,684) * lu(k,680) - lu(k,685) = lu(k,685) * lu(k,680) - lu(k,686) = lu(k,686) * lu(k,680) - lu(k,687) = lu(k,687) * lu(k,680) - lu(k,688) = lu(k,688) * lu(k,680) - lu(k,689) = lu(k,689) * lu(k,680) - lu(k,690) = lu(k,690) * lu(k,680) - lu(k,691) = lu(k,691) * lu(k,680) - lu(k,692) = lu(k,692) * lu(k,680) - lu(k,693) = lu(k,693) * lu(k,680) - lu(k,694) = lu(k,694) * lu(k,680) - lu(k,695) = lu(k,695) * lu(k,680) - lu(k,696) = lu(k,696) * lu(k,680) - lu(k,697) = lu(k,697) * lu(k,680) - lu(k,698) = lu(k,698) * lu(k,680) - lu(k,699) = lu(k,699) * lu(k,680) - lu(k,700) = lu(k,700) * lu(k,680) - lu(k,701) = lu(k,701) * lu(k,680) - lu(k,749) = lu(k,749) - lu(k,681) * lu(k,748) - lu(k,750) = lu(k,750) - lu(k,682) * lu(k,748) - lu(k,752) = lu(k,752) - lu(k,683) * lu(k,748) - lu(k,753) = lu(k,753) - lu(k,684) * lu(k,748) - lu(k,754) = lu(k,754) - lu(k,685) * lu(k,748) - lu(k,755) = lu(k,755) - lu(k,686) * lu(k,748) - lu(k,756) = lu(k,756) - lu(k,687) * lu(k,748) - lu(k,757) = lu(k,757) - lu(k,688) * lu(k,748) - lu(k,758) = lu(k,758) - lu(k,689) * lu(k,748) - lu(k,759) = lu(k,759) - lu(k,690) * lu(k,748) - lu(k,760) = lu(k,760) - lu(k,691) * lu(k,748) - lu(k,761) = lu(k,761) - lu(k,692) * lu(k,748) - lu(k,762) = lu(k,762) - lu(k,693) * lu(k,748) - lu(k,763) = lu(k,763) - lu(k,694) * lu(k,748) - lu(k,764) = lu(k,764) - lu(k,695) * lu(k,748) - lu(k,765) = lu(k,765) - lu(k,696) * lu(k,748) - lu(k,766) = lu(k,766) - lu(k,697) * lu(k,748) - lu(k,767) = lu(k,767) - lu(k,698) * lu(k,748) - lu(k,768) = lu(k,768) - lu(k,699) * lu(k,748) - lu(k,769) = lu(k,769) - lu(k,700) * lu(k,748) - lu(k,770) = lu(k,770) - lu(k,701) * lu(k,748) - lu(k,821) = lu(k,821) - lu(k,681) * lu(k,819) - lu(k,823) = lu(k,823) - lu(k,682) * lu(k,819) - lu(k,826) = lu(k,826) - lu(k,683) * lu(k,819) - lu(k,827) = lu(k,827) - lu(k,684) * lu(k,819) - lu(k,828) = lu(k,828) - lu(k,685) * lu(k,819) - lu(k,829) = lu(k,829) - lu(k,686) * lu(k,819) - lu(k,830) = lu(k,830) - lu(k,687) * lu(k,819) - lu(k,831) = lu(k,831) - lu(k,688) * lu(k,819) - lu(k,832) = lu(k,832) - lu(k,689) * lu(k,819) - lu(k,833) = lu(k,833) - lu(k,690) * lu(k,819) - lu(k,834) = lu(k,834) - lu(k,691) * lu(k,819) - lu(k,835) = lu(k,835) - lu(k,692) * lu(k,819) - lu(k,836) = lu(k,836) - lu(k,693) * lu(k,819) - lu(k,837) = lu(k,837) - lu(k,694) * lu(k,819) - lu(k,839) = lu(k,839) - lu(k,695) * lu(k,819) - lu(k,841) = lu(k,841) - lu(k,696) * lu(k,819) - lu(k,842) = lu(k,842) - lu(k,697) * lu(k,819) - lu(k,843) = lu(k,843) - lu(k,698) * lu(k,819) - lu(k,844) = lu(k,844) - lu(k,699) * lu(k,819) - lu(k,845) = lu(k,845) - lu(k,700) * lu(k,819) - lu(k,846) = lu(k,846) - lu(k,701) * lu(k,819) - lu(k,867) = lu(k,867) - lu(k,681) * lu(k,865) - lu(k,869) = lu(k,869) - lu(k,682) * lu(k,865) - lu(k,872) = lu(k,872) - lu(k,683) * lu(k,865) - lu(k,873) = lu(k,873) - lu(k,684) * lu(k,865) - lu(k,874) = lu(k,874) - lu(k,685) * lu(k,865) - lu(k,875) = lu(k,875) - lu(k,686) * lu(k,865) - lu(k,876) = lu(k,876) - lu(k,687) * lu(k,865) - lu(k,877) = lu(k,877) - lu(k,688) * lu(k,865) - lu(k,878) = lu(k,878) - lu(k,689) * lu(k,865) - lu(k,879) = lu(k,879) - lu(k,690) * lu(k,865) - lu(k,880) = lu(k,880) - lu(k,691) * lu(k,865) - lu(k,881) = lu(k,881) - lu(k,692) * lu(k,865) - lu(k,882) = lu(k,882) - lu(k,693) * lu(k,865) - lu(k,883) = lu(k,883) - lu(k,694) * lu(k,865) - lu(k,885) = lu(k,885) - lu(k,695) * lu(k,865) - lu(k,887) = lu(k,887) - lu(k,696) * lu(k,865) - lu(k,888) = lu(k,888) - lu(k,697) * lu(k,865) - lu(k,889) = lu(k,889) - lu(k,698) * lu(k,865) - lu(k,890) = lu(k,890) - lu(k,699) * lu(k,865) - lu(k,891) = lu(k,891) - lu(k,700) * lu(k,865) - lu(k,892) = lu(k,892) - lu(k,701) * lu(k,865) - lu(k,910) = lu(k,910) - lu(k,681) * lu(k,908) - lu(k,912) = lu(k,912) - lu(k,682) * lu(k,908) - lu(k,915) = lu(k,915) - lu(k,683) * lu(k,908) - lu(k,916) = lu(k,916) - lu(k,684) * lu(k,908) - lu(k,917) = lu(k,917) - lu(k,685) * lu(k,908) - lu(k,918) = lu(k,918) - lu(k,686) * lu(k,908) - lu(k,919) = lu(k,919) - lu(k,687) * lu(k,908) - lu(k,920) = lu(k,920) - lu(k,688) * lu(k,908) - lu(k,921) = lu(k,921) - lu(k,689) * lu(k,908) - lu(k,922) = lu(k,922) - lu(k,690) * lu(k,908) - lu(k,923) = lu(k,923) - lu(k,691) * lu(k,908) - lu(k,924) = lu(k,924) - lu(k,692) * lu(k,908) - lu(k,925) = lu(k,925) - lu(k,693) * lu(k,908) - lu(k,926) = lu(k,926) - lu(k,694) * lu(k,908) - lu(k,928) = lu(k,928) - lu(k,695) * lu(k,908) - lu(k,930) = lu(k,930) - lu(k,696) * lu(k,908) - lu(k,931) = lu(k,931) - lu(k,697) * lu(k,908) - lu(k,932) = lu(k,932) - lu(k,698) * lu(k,908) - lu(k,933) = lu(k,933) - lu(k,699) * lu(k,908) - lu(k,934) = lu(k,934) - lu(k,700) * lu(k,908) - lu(k,935) = lu(k,935) - lu(k,701) * lu(k,908) - lu(k,954) = lu(k,954) - lu(k,681) * lu(k,953) - lu(k,955) = lu(k,955) - lu(k,682) * lu(k,953) - lu(k,958) = lu(k,958) - lu(k,683) * lu(k,953) - lu(k,959) = lu(k,959) - lu(k,684) * lu(k,953) - lu(k,960) = lu(k,960) - lu(k,685) * lu(k,953) - lu(k,961) = lu(k,961) - lu(k,686) * lu(k,953) - lu(k,962) = lu(k,962) - lu(k,687) * lu(k,953) - lu(k,963) = lu(k,963) - lu(k,688) * lu(k,953) - lu(k,964) = lu(k,964) - lu(k,689) * lu(k,953) - lu(k,965) = lu(k,965) - lu(k,690) * lu(k,953) - lu(k,966) = lu(k,966) - lu(k,691) * lu(k,953) - lu(k,967) = lu(k,967) - lu(k,692) * lu(k,953) - lu(k,968) = lu(k,968) - lu(k,693) * lu(k,953) - lu(k,969) = lu(k,969) - lu(k,694) * lu(k,953) - lu(k,971) = lu(k,971) - lu(k,695) * lu(k,953) - lu(k,973) = lu(k,973) - lu(k,696) * lu(k,953) - lu(k,974) = lu(k,974) - lu(k,697) * lu(k,953) - lu(k,975) = lu(k,975) - lu(k,698) * lu(k,953) - lu(k,976) = lu(k,976) - lu(k,699) * lu(k,953) - lu(k,977) = lu(k,977) - lu(k,700) * lu(k,953) - lu(k,978) = lu(k,978) - lu(k,701) * lu(k,953) - lu(k,995) = lu(k,995) - lu(k,681) * lu(k,993) - lu(k,997) = lu(k,997) - lu(k,682) * lu(k,993) - lu(k,1000) = lu(k,1000) - lu(k,683) * lu(k,993) - lu(k,1001) = lu(k,1001) - lu(k,684) * lu(k,993) - lu(k,1002) = lu(k,1002) - lu(k,685) * lu(k,993) - lu(k,1003) = lu(k,1003) - lu(k,686) * lu(k,993) - lu(k,1004) = lu(k,1004) - lu(k,687) * lu(k,993) - lu(k,1005) = lu(k,1005) - lu(k,688) * lu(k,993) - lu(k,1006) = lu(k,1006) - lu(k,689) * lu(k,993) - lu(k,1007) = lu(k,1007) - lu(k,690) * lu(k,993) - lu(k,1008) = lu(k,1008) - lu(k,691) * lu(k,993) - lu(k,1009) = lu(k,1009) - lu(k,692) * lu(k,993) - lu(k,1010) = lu(k,1010) - lu(k,693) * lu(k,993) - lu(k,1011) = lu(k,1011) - lu(k,694) * lu(k,993) - lu(k,1013) = lu(k,1013) - lu(k,695) * lu(k,993) - lu(k,1015) = lu(k,1015) - lu(k,696) * lu(k,993) - lu(k,1016) = lu(k,1016) - lu(k,697) * lu(k,993) - lu(k,1017) = lu(k,1017) - lu(k,698) * lu(k,993) - lu(k,1018) = lu(k,1018) - lu(k,699) * lu(k,993) - lu(k,1019) = lu(k,1019) - lu(k,700) * lu(k,993) - lu(k,1020) = lu(k,1020) - lu(k,701) * lu(k,993) - lu(k,1037) = lu(k,1037) - lu(k,681) * lu(k,1035) - lu(k,1039) = lu(k,1039) - lu(k,682) * lu(k,1035) - lu(k,1042) = lu(k,1042) - lu(k,683) * lu(k,1035) - lu(k,1043) = lu(k,1043) - lu(k,684) * lu(k,1035) - lu(k,1044) = lu(k,1044) - lu(k,685) * lu(k,1035) - lu(k,1045) = lu(k,1045) - lu(k,686) * lu(k,1035) - lu(k,1046) = lu(k,1046) - lu(k,687) * lu(k,1035) - lu(k,1047) = lu(k,1047) - lu(k,688) * lu(k,1035) - lu(k,1048) = lu(k,1048) - lu(k,689) * lu(k,1035) - lu(k,1049) = lu(k,1049) - lu(k,690) * lu(k,1035) - lu(k,1050) = lu(k,1050) - lu(k,691) * lu(k,1035) - lu(k,1051) = lu(k,1051) - lu(k,692) * lu(k,1035) - lu(k,1052) = lu(k,1052) - lu(k,693) * lu(k,1035) - lu(k,1053) = lu(k,1053) - lu(k,694) * lu(k,1035) - lu(k,1055) = lu(k,1055) - lu(k,695) * lu(k,1035) - lu(k,1057) = lu(k,1057) - lu(k,696) * lu(k,1035) - lu(k,1058) = lu(k,1058) - lu(k,697) * lu(k,1035) - lu(k,1059) = lu(k,1059) - lu(k,698) * lu(k,1035) - lu(k,1060) = lu(k,1060) - lu(k,699) * lu(k,1035) - lu(k,1061) = lu(k,1061) - lu(k,700) * lu(k,1035) - lu(k,1062) = lu(k,1062) - lu(k,701) * lu(k,1035) - lu(k,1078) = lu(k,1078) - lu(k,681) * lu(k,1076) - lu(k,1080) = lu(k,1080) - lu(k,682) * lu(k,1076) - lu(k,1083) = lu(k,1083) - lu(k,683) * lu(k,1076) - lu(k,1084) = lu(k,1084) - lu(k,684) * lu(k,1076) - lu(k,1085) = lu(k,1085) - lu(k,685) * lu(k,1076) - lu(k,1086) = lu(k,1086) - lu(k,686) * lu(k,1076) - lu(k,1087) = lu(k,1087) - lu(k,687) * lu(k,1076) - lu(k,1088) = lu(k,1088) - lu(k,688) * lu(k,1076) - lu(k,1089) = lu(k,1089) - lu(k,689) * lu(k,1076) - lu(k,1090) = lu(k,1090) - lu(k,690) * lu(k,1076) - lu(k,1091) = lu(k,1091) - lu(k,691) * lu(k,1076) - lu(k,1092) = lu(k,1092) - lu(k,692) * lu(k,1076) - lu(k,1093) = lu(k,1093) - lu(k,693) * lu(k,1076) - lu(k,1094) = lu(k,1094) - lu(k,694) * lu(k,1076) - lu(k,1096) = lu(k,1096) - lu(k,695) * lu(k,1076) - lu(k,1098) = lu(k,1098) - lu(k,696) * lu(k,1076) - lu(k,1099) = lu(k,1099) - lu(k,697) * lu(k,1076) - lu(k,1100) = lu(k,1100) - lu(k,698) * lu(k,1076) - lu(k,1101) = lu(k,1101) - lu(k,699) * lu(k,1076) - lu(k,1102) = lu(k,1102) - lu(k,700) * lu(k,1076) - lu(k,1103) = lu(k,1103) - lu(k,701) * lu(k,1076) - lu(k,1123) = lu(k,1123) - lu(k,681) * lu(k,1121) - lu(k,1125) = lu(k,1125) - lu(k,682) * lu(k,1121) - lu(k,1128) = lu(k,1128) - lu(k,683) * lu(k,1121) - lu(k,1129) = lu(k,1129) - lu(k,684) * lu(k,1121) - lu(k,1130) = lu(k,1130) - lu(k,685) * lu(k,1121) - lu(k,1131) = lu(k,1131) - lu(k,686) * lu(k,1121) - lu(k,1132) = lu(k,1132) - lu(k,687) * lu(k,1121) - lu(k,1133) = lu(k,1133) - lu(k,688) * lu(k,1121) - lu(k,1134) = lu(k,1134) - lu(k,689) * lu(k,1121) - lu(k,1135) = lu(k,1135) - lu(k,690) * lu(k,1121) - lu(k,1136) = lu(k,1136) - lu(k,691) * lu(k,1121) - lu(k,1137) = lu(k,1137) - lu(k,692) * lu(k,1121) - lu(k,1138) = lu(k,1138) - lu(k,693) * lu(k,1121) - lu(k,1139) = lu(k,1139) - lu(k,694) * lu(k,1121) - lu(k,1141) = lu(k,1141) - lu(k,695) * lu(k,1121) - lu(k,1143) = lu(k,1143) - lu(k,696) * lu(k,1121) - lu(k,1144) = lu(k,1144) - lu(k,697) * lu(k,1121) - lu(k,1145) = lu(k,1145) - lu(k,698) * lu(k,1121) - lu(k,1146) = lu(k,1146) - lu(k,699) * lu(k,1121) - lu(k,1147) = lu(k,1147) - lu(k,700) * lu(k,1121) - lu(k,1148) = lu(k,1148) - lu(k,701) * lu(k,1121) - lu(k,1163) = lu(k,1163) - lu(k,681) * lu(k,1161) - lu(k,1165) = lu(k,1165) - lu(k,682) * lu(k,1161) - lu(k,1168) = lu(k,1168) - lu(k,683) * lu(k,1161) - lu(k,1169) = lu(k,1169) - lu(k,684) * lu(k,1161) - lu(k,1170) = lu(k,1170) - lu(k,685) * lu(k,1161) - lu(k,1171) = lu(k,1171) - lu(k,686) * lu(k,1161) - lu(k,1172) = lu(k,1172) - lu(k,687) * lu(k,1161) - lu(k,1173) = lu(k,1173) - lu(k,688) * lu(k,1161) - lu(k,1174) = lu(k,1174) - lu(k,689) * lu(k,1161) - lu(k,1175) = lu(k,1175) - lu(k,690) * lu(k,1161) - lu(k,1176) = lu(k,1176) - lu(k,691) * lu(k,1161) - lu(k,1177) = lu(k,1177) - lu(k,692) * lu(k,1161) - lu(k,1178) = lu(k,1178) - lu(k,693) * lu(k,1161) - lu(k,1179) = lu(k,1179) - lu(k,694) * lu(k,1161) - lu(k,1181) = lu(k,1181) - lu(k,695) * lu(k,1161) - lu(k,1183) = lu(k,1183) - lu(k,696) * lu(k,1161) - lu(k,1184) = lu(k,1184) - lu(k,697) * lu(k,1161) - lu(k,1185) = lu(k,1185) - lu(k,698) * lu(k,1161) - lu(k,1186) = lu(k,1186) - lu(k,699) * lu(k,1161) - lu(k,1187) = lu(k,1187) - lu(k,700) * lu(k,1161) - lu(k,1188) = lu(k,1188) - lu(k,701) * lu(k,1161) - lu(k,1219) = lu(k,1219) - lu(k,681) * lu(k,1217) - lu(k,1221) = lu(k,1221) - lu(k,682) * lu(k,1217) - lu(k,1224) = lu(k,1224) - lu(k,683) * lu(k,1217) - lu(k,1225) = lu(k,1225) - lu(k,684) * lu(k,1217) - lu(k,1226) = lu(k,1226) - lu(k,685) * lu(k,1217) - lu(k,1227) = lu(k,1227) - lu(k,686) * lu(k,1217) - lu(k,1228) = lu(k,1228) - lu(k,687) * lu(k,1217) - lu(k,1229) = lu(k,1229) - lu(k,688) * lu(k,1217) - lu(k,1230) = lu(k,1230) - lu(k,689) * lu(k,1217) - lu(k,1231) = lu(k,1231) - lu(k,690) * lu(k,1217) - lu(k,1232) = lu(k,1232) - lu(k,691) * lu(k,1217) - lu(k,1233) = lu(k,1233) - lu(k,692) * lu(k,1217) - lu(k,1234) = lu(k,1234) - lu(k,693) * lu(k,1217) - lu(k,1235) = lu(k,1235) - lu(k,694) * lu(k,1217) - lu(k,1237) = lu(k,1237) - lu(k,695) * lu(k,1217) - lu(k,1239) = lu(k,1239) - lu(k,696) * lu(k,1217) - lu(k,1240) = lu(k,1240) - lu(k,697) * lu(k,1217) - lu(k,1241) = lu(k,1241) - lu(k,698) * lu(k,1217) - lu(k,1242) = lu(k,1242) - lu(k,699) * lu(k,1217) - lu(k,1243) = lu(k,1243) - lu(k,700) * lu(k,1217) - lu(k,1244) = lu(k,1244) - lu(k,701) * lu(k,1217) - lu(k,1257) = lu(k,1257) - lu(k,681) * lu(k,1255) - lu(k,1259) = lu(k,1259) - lu(k,682) * lu(k,1255) - lu(k,1262) = lu(k,1262) - lu(k,683) * lu(k,1255) - lu(k,1263) = lu(k,1263) - lu(k,684) * lu(k,1255) - lu(k,1264) = lu(k,1264) - lu(k,685) * lu(k,1255) - lu(k,1265) = lu(k,1265) - lu(k,686) * lu(k,1255) - lu(k,1266) = lu(k,1266) - lu(k,687) * lu(k,1255) - lu(k,1267) = lu(k,1267) - lu(k,688) * lu(k,1255) - lu(k,1268) = lu(k,1268) - lu(k,689) * lu(k,1255) - lu(k,1269) = lu(k,1269) - lu(k,690) * lu(k,1255) - lu(k,1270) = lu(k,1270) - lu(k,691) * lu(k,1255) - lu(k,1271) = lu(k,1271) - lu(k,692) * lu(k,1255) - lu(k,1272) = lu(k,1272) - lu(k,693) * lu(k,1255) - lu(k,1273) = lu(k,1273) - lu(k,694) * lu(k,1255) - lu(k,1275) = lu(k,1275) - lu(k,695) * lu(k,1255) - lu(k,1277) = lu(k,1277) - lu(k,696) * lu(k,1255) - lu(k,1278) = lu(k,1278) - lu(k,697) * lu(k,1255) - lu(k,1279) = lu(k,1279) - lu(k,698) * lu(k,1255) - lu(k,1280) = lu(k,1280) - lu(k,699) * lu(k,1255) - lu(k,1281) = lu(k,1281) - lu(k,700) * lu(k,1255) - lu(k,1282) = lu(k,1282) - lu(k,701) * lu(k,1255) - lu(k,1293) = lu(k,1293) - lu(k,681) * lu(k,1291) - lu(k,1295) = lu(k,1295) - lu(k,682) * lu(k,1291) - lu(k,1298) = lu(k,1298) - lu(k,683) * lu(k,1291) - lu(k,1299) = lu(k,1299) - lu(k,684) * lu(k,1291) - lu(k,1300) = lu(k,1300) - lu(k,685) * lu(k,1291) - lu(k,1301) = lu(k,1301) - lu(k,686) * lu(k,1291) - lu(k,1302) = lu(k,1302) - lu(k,687) * lu(k,1291) - lu(k,1303) = lu(k,1303) - lu(k,688) * lu(k,1291) - lu(k,1304) = lu(k,1304) - lu(k,689) * lu(k,1291) - lu(k,1305) = lu(k,1305) - lu(k,690) * lu(k,1291) - lu(k,1306) = lu(k,1306) - lu(k,691) * lu(k,1291) - lu(k,1307) = lu(k,1307) - lu(k,692) * lu(k,1291) - lu(k,1308) = lu(k,1308) - lu(k,693) * lu(k,1291) - lu(k,1309) = lu(k,1309) - lu(k,694) * lu(k,1291) - lu(k,1311) = lu(k,1311) - lu(k,695) * lu(k,1291) - lu(k,1313) = lu(k,1313) - lu(k,696) * lu(k,1291) - lu(k,1314) = lu(k,1314) - lu(k,697) * lu(k,1291) - lu(k,1315) = lu(k,1315) - lu(k,698) * lu(k,1291) - lu(k,1316) = lu(k,1316) - lu(k,699) * lu(k,1291) - lu(k,1317) = lu(k,1317) - lu(k,700) * lu(k,1291) - lu(k,1318) = lu(k,1318) - lu(k,701) * lu(k,1291) - lu(k,1338) = lu(k,1338) - lu(k,681) * lu(k,1336) - lu(k,1340) = lu(k,1340) - lu(k,682) * lu(k,1336) - lu(k,1343) = lu(k,1343) - lu(k,683) * lu(k,1336) - lu(k,1344) = lu(k,1344) - lu(k,684) * lu(k,1336) - lu(k,1345) = lu(k,1345) - lu(k,685) * lu(k,1336) - lu(k,1346) = lu(k,1346) - lu(k,686) * lu(k,1336) - lu(k,1347) = lu(k,1347) - lu(k,687) * lu(k,1336) - lu(k,1348) = lu(k,1348) - lu(k,688) * lu(k,1336) - lu(k,1349) = lu(k,1349) - lu(k,689) * lu(k,1336) - lu(k,1350) = lu(k,1350) - lu(k,690) * lu(k,1336) - lu(k,1351) = lu(k,1351) - lu(k,691) * lu(k,1336) - lu(k,1352) = lu(k,1352) - lu(k,692) * lu(k,1336) - lu(k,1353) = lu(k,1353) - lu(k,693) * lu(k,1336) - lu(k,1354) = lu(k,1354) - lu(k,694) * lu(k,1336) - lu(k,1356) = lu(k,1356) - lu(k,695) * lu(k,1336) - lu(k,1358) = lu(k,1358) - lu(k,696) * lu(k,1336) - lu(k,1359) = lu(k,1359) - lu(k,697) * lu(k,1336) - lu(k,1360) = lu(k,1360) - lu(k,698) * lu(k,1336) - lu(k,1361) = lu(k,1361) - lu(k,699) * lu(k,1336) - lu(k,1362) = lu(k,1362) - lu(k,700) * lu(k,1336) - lu(k,1363) = lu(k,1363) - lu(k,701) * lu(k,1336) - lu(k,1381) = lu(k,1381) - lu(k,681) * lu(k,1379) - lu(k,1383) = lu(k,1383) - lu(k,682) * lu(k,1379) - lu(k,1386) = lu(k,1386) - lu(k,683) * lu(k,1379) - lu(k,1387) = lu(k,1387) - lu(k,684) * lu(k,1379) - lu(k,1388) = lu(k,1388) - lu(k,685) * lu(k,1379) - lu(k,1389) = lu(k,1389) - lu(k,686) * lu(k,1379) - lu(k,1390) = lu(k,1390) - lu(k,687) * lu(k,1379) - lu(k,1391) = lu(k,1391) - lu(k,688) * lu(k,1379) - lu(k,1392) = lu(k,1392) - lu(k,689) * lu(k,1379) - lu(k,1393) = lu(k,1393) - lu(k,690) * lu(k,1379) - lu(k,1394) = lu(k,1394) - lu(k,691) * lu(k,1379) - lu(k,1395) = lu(k,1395) - lu(k,692) * lu(k,1379) - lu(k,1396) = lu(k,1396) - lu(k,693) * lu(k,1379) - lu(k,1397) = lu(k,1397) - lu(k,694) * lu(k,1379) - lu(k,1399) = lu(k,1399) - lu(k,695) * lu(k,1379) - lu(k,1401) = lu(k,1401) - lu(k,696) * lu(k,1379) - lu(k,1402) = lu(k,1402) - lu(k,697) * lu(k,1379) - lu(k,1403) = lu(k,1403) - lu(k,698) * lu(k,1379) - lu(k,1404) = lu(k,1404) - lu(k,699) * lu(k,1379) - lu(k,1405) = lu(k,1405) - lu(k,700) * lu(k,1379) - lu(k,1406) = lu(k,1406) - lu(k,701) * lu(k,1379) - lu(k,1417) = lu(k,1417) - lu(k,681) * lu(k,1415) - lu(k,1418) = lu(k,1418) - lu(k,682) * lu(k,1415) - lu(k,1421) = lu(k,1421) - lu(k,683) * lu(k,1415) - lu(k,1422) = lu(k,1422) - lu(k,684) * lu(k,1415) - lu(k,1423) = lu(k,1423) - lu(k,685) * lu(k,1415) - lu(k,1424) = lu(k,1424) - lu(k,686) * lu(k,1415) - lu(k,1425) = lu(k,1425) - lu(k,687) * lu(k,1415) - lu(k,1426) = lu(k,1426) - lu(k,688) * lu(k,1415) - lu(k,1427) = lu(k,1427) - lu(k,689) * lu(k,1415) - lu(k,1428) = lu(k,1428) - lu(k,690) * lu(k,1415) - lu(k,1429) = lu(k,1429) - lu(k,691) * lu(k,1415) - lu(k,1430) = lu(k,1430) - lu(k,692) * lu(k,1415) - lu(k,1431) = lu(k,1431) - lu(k,693) * lu(k,1415) - lu(k,1432) = lu(k,1432) - lu(k,694) * lu(k,1415) - lu(k,1434) = lu(k,1434) - lu(k,695) * lu(k,1415) - lu(k,1436) = lu(k,1436) - lu(k,696) * lu(k,1415) - lu(k,1437) = lu(k,1437) - lu(k,697) * lu(k,1415) - lu(k,1438) = lu(k,1438) - lu(k,698) * lu(k,1415) - lu(k,1439) = lu(k,1439) - lu(k,699) * lu(k,1415) - lu(k,1440) = lu(k,1440) - lu(k,700) * lu(k,1415) - lu(k,1441) = lu(k,1441) - lu(k,701) * lu(k,1415) - lu(k,1459) = lu(k,1459) - lu(k,681) * lu(k,1457) - lu(k,1461) = lu(k,1461) - lu(k,682) * lu(k,1457) - lu(k,1464) = lu(k,1464) - lu(k,683) * lu(k,1457) - lu(k,1465) = lu(k,1465) - lu(k,684) * lu(k,1457) - lu(k,1466) = lu(k,1466) - lu(k,685) * lu(k,1457) - lu(k,1467) = lu(k,1467) - lu(k,686) * lu(k,1457) - lu(k,1468) = lu(k,1468) - lu(k,687) * lu(k,1457) - lu(k,1469) = lu(k,1469) - lu(k,688) * lu(k,1457) - lu(k,1470) = lu(k,1470) - lu(k,689) * lu(k,1457) - lu(k,1471) = lu(k,1471) - lu(k,690) * lu(k,1457) - lu(k,1472) = lu(k,1472) - lu(k,691) * lu(k,1457) - lu(k,1473) = lu(k,1473) - lu(k,692) * lu(k,1457) - lu(k,1474) = lu(k,1474) - lu(k,693) * lu(k,1457) - lu(k,1475) = lu(k,1475) - lu(k,694) * lu(k,1457) - lu(k,1477) = lu(k,1477) - lu(k,695) * lu(k,1457) - lu(k,1479) = lu(k,1479) - lu(k,696) * lu(k,1457) - lu(k,1480) = lu(k,1480) - lu(k,697) * lu(k,1457) - lu(k,1481) = lu(k,1481) - lu(k,698) * lu(k,1457) - lu(k,1482) = lu(k,1482) - lu(k,699) * lu(k,1457) - lu(k,1483) = lu(k,1483) - lu(k,700) * lu(k,1457) - lu(k,1484) = lu(k,1484) - lu(k,701) * lu(k,1457) - lu(k,1502) = lu(k,1502) - lu(k,681) * lu(k,1500) - lu(k,1504) = lu(k,1504) - lu(k,682) * lu(k,1500) - lu(k,1507) = lu(k,1507) - lu(k,683) * lu(k,1500) - lu(k,1508) = lu(k,1508) - lu(k,684) * lu(k,1500) - lu(k,1509) = lu(k,1509) - lu(k,685) * lu(k,1500) - lu(k,1510) = lu(k,1510) - lu(k,686) * lu(k,1500) - lu(k,1511) = lu(k,1511) - lu(k,687) * lu(k,1500) - lu(k,1512) = lu(k,1512) - lu(k,688) * lu(k,1500) - lu(k,1513) = lu(k,1513) - lu(k,689) * lu(k,1500) - lu(k,1514) = lu(k,1514) - lu(k,690) * lu(k,1500) - lu(k,1515) = lu(k,1515) - lu(k,691) * lu(k,1500) - lu(k,1516) = lu(k,1516) - lu(k,692) * lu(k,1500) - lu(k,1517) = lu(k,1517) - lu(k,693) * lu(k,1500) - lu(k,1518) = lu(k,1518) - lu(k,694) * lu(k,1500) - lu(k,1520) = lu(k,1520) - lu(k,695) * lu(k,1500) - lu(k,1522) = lu(k,1522) - lu(k,696) * lu(k,1500) - lu(k,1523) = lu(k,1523) - lu(k,697) * lu(k,1500) - lu(k,1524) = lu(k,1524) - lu(k,698) * lu(k,1500) - lu(k,1525) = lu(k,1525) - lu(k,699) * lu(k,1500) - lu(k,1526) = lu(k,1526) - lu(k,700) * lu(k,1500) - lu(k,1527) = lu(k,1527) - lu(k,701) * lu(k,1500) - lu(k,1545) = lu(k,1545) - lu(k,681) * lu(k,1543) - lu(k,1547) = lu(k,1547) - lu(k,682) * lu(k,1543) - lu(k,1550) = lu(k,1550) - lu(k,683) * lu(k,1543) - lu(k,1551) = lu(k,1551) - lu(k,684) * lu(k,1543) - lu(k,1552) = lu(k,1552) - lu(k,685) * lu(k,1543) - lu(k,1553) = lu(k,1553) - lu(k,686) * lu(k,1543) - lu(k,1554) = lu(k,1554) - lu(k,687) * lu(k,1543) - lu(k,1555) = lu(k,1555) - lu(k,688) * lu(k,1543) - lu(k,1556) = lu(k,1556) - lu(k,689) * lu(k,1543) - lu(k,1557) = lu(k,1557) - lu(k,690) * lu(k,1543) - lu(k,1558) = lu(k,1558) - lu(k,691) * lu(k,1543) - lu(k,1559) = lu(k,1559) - lu(k,692) * lu(k,1543) - lu(k,1560) = lu(k,1560) - lu(k,693) * lu(k,1543) - lu(k,1561) = lu(k,1561) - lu(k,694) * lu(k,1543) - lu(k,1563) = lu(k,1563) - lu(k,695) * lu(k,1543) - lu(k,1565) = lu(k,1565) - lu(k,696) * lu(k,1543) - lu(k,1566) = lu(k,1566) - lu(k,697) * lu(k,1543) - lu(k,1567) = lu(k,1567) - lu(k,698) * lu(k,1543) - lu(k,1568) = lu(k,1568) - lu(k,699) * lu(k,1543) - lu(k,1569) = lu(k,1569) - lu(k,700) * lu(k,1543) - lu(k,1570) = lu(k,1570) - lu(k,701) * lu(k,1543) - lu(k,1578) = lu(k,1578) - lu(k,681) * lu(k,1576) - lu(k,1580) = lu(k,1580) - lu(k,682) * lu(k,1576) - lu(k,1583) = lu(k,1583) - lu(k,683) * lu(k,1576) - lu(k,1584) = lu(k,1584) - lu(k,684) * lu(k,1576) - lu(k,1585) = lu(k,1585) - lu(k,685) * lu(k,1576) - lu(k,1586) = lu(k,1586) - lu(k,686) * lu(k,1576) - lu(k,1587) = lu(k,1587) - lu(k,687) * lu(k,1576) - lu(k,1588) = lu(k,1588) - lu(k,688) * lu(k,1576) - lu(k,1589) = lu(k,1589) - lu(k,689) * lu(k,1576) - lu(k,1590) = lu(k,1590) - lu(k,690) * lu(k,1576) - lu(k,1591) = lu(k,1591) - lu(k,691) * lu(k,1576) - lu(k,1592) = lu(k,1592) - lu(k,692) * lu(k,1576) - lu(k,1593) = lu(k,1593) - lu(k,693) * lu(k,1576) - lu(k,1594) = lu(k,1594) - lu(k,694) * lu(k,1576) - lu(k,1596) = lu(k,1596) - lu(k,695) * lu(k,1576) - lu(k,1598) = lu(k,1598) - lu(k,696) * lu(k,1576) - lu(k,1599) = lu(k,1599) - lu(k,697) * lu(k,1576) - lu(k,1600) = lu(k,1600) - lu(k,698) * lu(k,1576) - lu(k,1601) = lu(k,1601) - lu(k,699) * lu(k,1576) - lu(k,1602) = lu(k,1602) - lu(k,700) * lu(k,1576) - lu(k,1603) = lu(k,1603) - lu(k,701) * lu(k,1576) - lu(k,1614) = lu(k,1614) - lu(k,681) * lu(k,1612) - lu(k,1616) = lu(k,1616) - lu(k,682) * lu(k,1612) - lu(k,1619) = lu(k,1619) - lu(k,683) * lu(k,1612) - lu(k,1620) = lu(k,1620) - lu(k,684) * lu(k,1612) - lu(k,1621) = lu(k,1621) - lu(k,685) * lu(k,1612) - lu(k,1622) = lu(k,1622) - lu(k,686) * lu(k,1612) - lu(k,1623) = lu(k,1623) - lu(k,687) * lu(k,1612) - lu(k,1624) = lu(k,1624) - lu(k,688) * lu(k,1612) - lu(k,1625) = lu(k,1625) - lu(k,689) * lu(k,1612) - lu(k,1626) = lu(k,1626) - lu(k,690) * lu(k,1612) - lu(k,1627) = lu(k,1627) - lu(k,691) * lu(k,1612) - lu(k,1628) = lu(k,1628) - lu(k,692) * lu(k,1612) - lu(k,1629) = lu(k,1629) - lu(k,693) * lu(k,1612) - lu(k,1630) = lu(k,1630) - lu(k,694) * lu(k,1612) - lu(k,1632) = lu(k,1632) - lu(k,695) * lu(k,1612) - lu(k,1634) = lu(k,1634) - lu(k,696) * lu(k,1612) - lu(k,1635) = lu(k,1635) - lu(k,697) * lu(k,1612) - lu(k,1636) = lu(k,1636) - lu(k,698) * lu(k,1612) - lu(k,1637) = lu(k,1637) - lu(k,699) * lu(k,1612) - lu(k,1638) = lu(k,1638) - lu(k,700) * lu(k,1612) - lu(k,1639) = lu(k,1639) - lu(k,701) * lu(k,1612) - lu(k,1657) = lu(k,1657) - lu(k,681) * lu(k,1655) - lu(k,1659) = lu(k,1659) - lu(k,682) * lu(k,1655) - lu(k,1662) = lu(k,1662) - lu(k,683) * lu(k,1655) - lu(k,1663) = lu(k,1663) - lu(k,684) * lu(k,1655) - lu(k,1664) = lu(k,1664) - lu(k,685) * lu(k,1655) - lu(k,1665) = lu(k,1665) - lu(k,686) * lu(k,1655) - lu(k,1666) = lu(k,1666) - lu(k,687) * lu(k,1655) - lu(k,1667) = lu(k,1667) - lu(k,688) * lu(k,1655) - lu(k,1668) = lu(k,1668) - lu(k,689) * lu(k,1655) - lu(k,1669) = lu(k,1669) - lu(k,690) * lu(k,1655) - lu(k,1670) = lu(k,1670) - lu(k,691) * lu(k,1655) - lu(k,1671) = lu(k,1671) - lu(k,692) * lu(k,1655) - lu(k,1672) = lu(k,1672) - lu(k,693) * lu(k,1655) - lu(k,1673) = lu(k,1673) - lu(k,694) * lu(k,1655) - lu(k,1675) = lu(k,1675) - lu(k,695) * lu(k,1655) - lu(k,1677) = lu(k,1677) - lu(k,696) * lu(k,1655) - lu(k,1678) = lu(k,1678) - lu(k,697) * lu(k,1655) - lu(k,1679) = lu(k,1679) - lu(k,698) * lu(k,1655) - lu(k,1680) = lu(k,1680) - lu(k,699) * lu(k,1655) - lu(k,1681) = lu(k,1681) - lu(k,700) * lu(k,1655) - lu(k,1682) = lu(k,1682) - lu(k,701) * lu(k,1655) - lu(k,1693) = lu(k,1693) - lu(k,681) * lu(k,1691) - lu(k,1695) = lu(k,1695) - lu(k,682) * lu(k,1691) - lu(k,1698) = lu(k,1698) - lu(k,683) * lu(k,1691) - lu(k,1699) = lu(k,1699) - lu(k,684) * lu(k,1691) - lu(k,1700) = lu(k,1700) - lu(k,685) * lu(k,1691) - lu(k,1701) = lu(k,1701) - lu(k,686) * lu(k,1691) - lu(k,1702) = lu(k,1702) - lu(k,687) * lu(k,1691) - lu(k,1703) = lu(k,1703) - lu(k,688) * lu(k,1691) - lu(k,1704) = lu(k,1704) - lu(k,689) * lu(k,1691) - lu(k,1705) = lu(k,1705) - lu(k,690) * lu(k,1691) - lu(k,1706) = lu(k,1706) - lu(k,691) * lu(k,1691) - lu(k,1707) = lu(k,1707) - lu(k,692) * lu(k,1691) - lu(k,1708) = lu(k,1708) - lu(k,693) * lu(k,1691) - lu(k,1709) = lu(k,1709) - lu(k,694) * lu(k,1691) - lu(k,1711) = lu(k,1711) - lu(k,695) * lu(k,1691) - lu(k,1713) = lu(k,1713) - lu(k,696) * lu(k,1691) - lu(k,1714) = lu(k,1714) - lu(k,697) * lu(k,1691) - lu(k,1715) = lu(k,1715) - lu(k,698) * lu(k,1691) - lu(k,1716) = lu(k,1716) - lu(k,699) * lu(k,1691) - lu(k,1717) = lu(k,1717) - lu(k,700) * lu(k,1691) - lu(k,1718) = lu(k,1718) - lu(k,701) * lu(k,1691) - lu(k,1738) = lu(k,1738) - lu(k,681) * lu(k,1736) - lu(k,1740) = lu(k,1740) - lu(k,682) * lu(k,1736) - lu(k,1743) = lu(k,1743) - lu(k,683) * lu(k,1736) - lu(k,1744) = lu(k,1744) - lu(k,684) * lu(k,1736) - lu(k,1745) = lu(k,1745) - lu(k,685) * lu(k,1736) - lu(k,1746) = lu(k,1746) - lu(k,686) * lu(k,1736) - lu(k,1747) = lu(k,1747) - lu(k,687) * lu(k,1736) - lu(k,1748) = lu(k,1748) - lu(k,688) * lu(k,1736) - lu(k,1749) = lu(k,1749) - lu(k,689) * lu(k,1736) - lu(k,1750) = lu(k,1750) - lu(k,690) * lu(k,1736) - lu(k,1751) = lu(k,1751) - lu(k,691) * lu(k,1736) - lu(k,1752) = lu(k,1752) - lu(k,692) * lu(k,1736) - lu(k,1753) = lu(k,1753) - lu(k,693) * lu(k,1736) - lu(k,1754) = lu(k,1754) - lu(k,694) * lu(k,1736) - lu(k,1756) = lu(k,1756) - lu(k,695) * lu(k,1736) - lu(k,1758) = lu(k,1758) - lu(k,696) * lu(k,1736) - lu(k,1759) = lu(k,1759) - lu(k,697) * lu(k,1736) - lu(k,1760) = lu(k,1760) - lu(k,698) * lu(k,1736) - lu(k,1761) = lu(k,1761) - lu(k,699) * lu(k,1736) - lu(k,1762) = lu(k,1762) - lu(k,700) * lu(k,1736) - lu(k,1763) = lu(k,1763) - lu(k,701) * lu(k,1736) - lu(k,1791) = lu(k,1791) - lu(k,681) * lu(k,1789) - lu(k,1793) = lu(k,1793) - lu(k,682) * lu(k,1789) - lu(k,1796) = lu(k,1796) - lu(k,683) * lu(k,1789) - lu(k,1797) = lu(k,1797) - lu(k,684) * lu(k,1789) - lu(k,1798) = lu(k,1798) - lu(k,685) * lu(k,1789) - lu(k,1799) = lu(k,1799) - lu(k,686) * lu(k,1789) - lu(k,1800) = lu(k,1800) - lu(k,687) * lu(k,1789) - lu(k,1801) = lu(k,1801) - lu(k,688) * lu(k,1789) - lu(k,1802) = lu(k,1802) - lu(k,689) * lu(k,1789) - lu(k,1803) = lu(k,1803) - lu(k,690) * lu(k,1789) - lu(k,1804) = lu(k,1804) - lu(k,691) * lu(k,1789) - lu(k,1805) = lu(k,1805) - lu(k,692) * lu(k,1789) - lu(k,1806) = lu(k,1806) - lu(k,693) * lu(k,1789) - lu(k,1807) = lu(k,1807) - lu(k,694) * lu(k,1789) - lu(k,1809) = lu(k,1809) - lu(k,695) * lu(k,1789) - lu(k,1811) = lu(k,1811) - lu(k,696) * lu(k,1789) - lu(k,1812) = lu(k,1812) - lu(k,697) * lu(k,1789) - lu(k,1813) = lu(k,1813) - lu(k,698) * lu(k,1789) - lu(k,1814) = lu(k,1814) - lu(k,699) * lu(k,1789) - lu(k,1815) = lu(k,1815) - lu(k,700) * lu(k,1789) - lu(k,1816) = lu(k,1816) - lu(k,701) * lu(k,1789) - lu(k,706) = 1._r8 / lu(k,706) - lu(k,707) = lu(k,707) * lu(k,706) - lu(k,708) = lu(k,708) * lu(k,706) - lu(k,709) = lu(k,709) * lu(k,706) - lu(k,710) = lu(k,710) * lu(k,706) - lu(k,711) = lu(k,711) * lu(k,706) - lu(k,712) = lu(k,712) * lu(k,706) - lu(k,713) = lu(k,713) * lu(k,706) - lu(k,714) = lu(k,714) * lu(k,706) - lu(k,715) = lu(k,715) * lu(k,706) - lu(k,716) = lu(k,716) * lu(k,706) - lu(k,717) = lu(k,717) * lu(k,706) - lu(k,718) = lu(k,718) * lu(k,706) - lu(k,719) = lu(k,719) * lu(k,706) - lu(k,720) = lu(k,720) * lu(k,706) - lu(k,721) = lu(k,721) * lu(k,706) - lu(k,722) = lu(k,722) * lu(k,706) - lu(k,723) = lu(k,723) * lu(k,706) - lu(k,724) = lu(k,724) * lu(k,706) - lu(k,725) = lu(k,725) * lu(k,706) - lu(k,726) = lu(k,726) * lu(k,706) - lu(k,727) = lu(k,727) * lu(k,706) - lu(k,728) = lu(k,728) * lu(k,706) - lu(k,778) = lu(k,778) - lu(k,707) * lu(k,777) - lu(k,780) = lu(k,780) - lu(k,708) * lu(k,777) - lu(k,781) = lu(k,781) - lu(k,709) * lu(k,777) - lu(k,782) = lu(k,782) - lu(k,710) * lu(k,777) - lu(k,783) = lu(k,783) - lu(k,711) * lu(k,777) - lu(k,784) = lu(k,784) - lu(k,712) * lu(k,777) - lu(k,785) = lu(k,785) - lu(k,713) * lu(k,777) - lu(k,787) = lu(k,787) - lu(k,714) * lu(k,777) - lu(k,788) = lu(k,788) - lu(k,715) * lu(k,777) - lu(k,789) = lu(k,789) - lu(k,716) * lu(k,777) - lu(k,790) = lu(k,790) - lu(k,717) * lu(k,777) - lu(k,792) = lu(k,792) - lu(k,718) * lu(k,777) - lu(k,793) = lu(k,793) - lu(k,719) * lu(k,777) - lu(k,794) = lu(k,794) - lu(k,720) * lu(k,777) - lu(k,795) = lu(k,795) - lu(k,721) * lu(k,777) - lu(k,796) = lu(k,796) - lu(k,722) * lu(k,777) - lu(k,797) = lu(k,797) - lu(k,723) * lu(k,777) - lu(k,798) = lu(k,798) - lu(k,724) * lu(k,777) - lu(k,800) = lu(k,800) - lu(k,725) * lu(k,777) - lu(k,801) = lu(k,801) - lu(k,726) * lu(k,777) - lu(k,802) = lu(k,802) - lu(k,727) * lu(k,777) - lu(k,803) = lu(k,803) - lu(k,728) * lu(k,777) - lu(k,821) = lu(k,821) - lu(k,707) * lu(k,820) - lu(k,823) = lu(k,823) - lu(k,708) * lu(k,820) - lu(k,824) = lu(k,824) - lu(k,709) * lu(k,820) - lu(k,825) = lu(k,825) - lu(k,710) * lu(k,820) - lu(k,826) = lu(k,826) - lu(k,711) * lu(k,820) - lu(k,827) = lu(k,827) - lu(k,712) * lu(k,820) - lu(k,828) = lu(k,828) - lu(k,713) * lu(k,820) - lu(k,830) = lu(k,830) - lu(k,714) * lu(k,820) - lu(k,831) = lu(k,831) - lu(k,715) * lu(k,820) - lu(k,832) = lu(k,832) - lu(k,716) * lu(k,820) - lu(k,833) = lu(k,833) - lu(k,717) * lu(k,820) - lu(k,835) = lu(k,835) - lu(k,718) * lu(k,820) - lu(k,836) = lu(k,836) - lu(k,719) * lu(k,820) - lu(k,837) = lu(k,837) - lu(k,720) * lu(k,820) - lu(k,838) = lu(k,838) - lu(k,721) * lu(k,820) - lu(k,839) = lu(k,839) - lu(k,722) * lu(k,820) - lu(k,840) = lu(k,840) - lu(k,723) * lu(k,820) - lu(k,841) = lu(k,841) - lu(k,724) * lu(k,820) - lu(k,843) = lu(k,843) - lu(k,725) * lu(k,820) - lu(k,844) = lu(k,844) - lu(k,726) * lu(k,820) - lu(k,845) = lu(k,845) - lu(k,727) * lu(k,820) - lu(k,846) = lu(k,846) - lu(k,728) * lu(k,820) - lu(k,867) = lu(k,867) - lu(k,707) * lu(k,866) - lu(k,869) = lu(k,869) - lu(k,708) * lu(k,866) - lu(k,870) = lu(k,870) - lu(k,709) * lu(k,866) - lu(k,871) = lu(k,871) - lu(k,710) * lu(k,866) - lu(k,872) = lu(k,872) - lu(k,711) * lu(k,866) - lu(k,873) = lu(k,873) - lu(k,712) * lu(k,866) - lu(k,874) = lu(k,874) - lu(k,713) * lu(k,866) - lu(k,876) = lu(k,876) - lu(k,714) * lu(k,866) - lu(k,877) = lu(k,877) - lu(k,715) * lu(k,866) - lu(k,878) = lu(k,878) - lu(k,716) * lu(k,866) - lu(k,879) = lu(k,879) - lu(k,717) * lu(k,866) - lu(k,881) = lu(k,881) - lu(k,718) * lu(k,866) - lu(k,882) = lu(k,882) - lu(k,719) * lu(k,866) - lu(k,883) = lu(k,883) - lu(k,720) * lu(k,866) - lu(k,884) = lu(k,884) - lu(k,721) * lu(k,866) - lu(k,885) = lu(k,885) - lu(k,722) * lu(k,866) - lu(k,886) = lu(k,886) - lu(k,723) * lu(k,866) - lu(k,887) = lu(k,887) - lu(k,724) * lu(k,866) - lu(k,889) = lu(k,889) - lu(k,725) * lu(k,866) - lu(k,890) = lu(k,890) - lu(k,726) * lu(k,866) - lu(k,891) = lu(k,891) - lu(k,727) * lu(k,866) - lu(k,892) = lu(k,892) - lu(k,728) * lu(k,866) - lu(k,910) = lu(k,910) - lu(k,707) * lu(k,909) - lu(k,912) = lu(k,912) - lu(k,708) * lu(k,909) - lu(k,913) = lu(k,913) - lu(k,709) * lu(k,909) - lu(k,914) = lu(k,914) - lu(k,710) * lu(k,909) - lu(k,915) = lu(k,915) - lu(k,711) * lu(k,909) - lu(k,916) = lu(k,916) - lu(k,712) * lu(k,909) - lu(k,917) = lu(k,917) - lu(k,713) * lu(k,909) - lu(k,919) = lu(k,919) - lu(k,714) * lu(k,909) - lu(k,920) = lu(k,920) - lu(k,715) * lu(k,909) - lu(k,921) = lu(k,921) - lu(k,716) * lu(k,909) - lu(k,922) = lu(k,922) - lu(k,717) * lu(k,909) - lu(k,924) = lu(k,924) - lu(k,718) * lu(k,909) - lu(k,925) = lu(k,925) - lu(k,719) * lu(k,909) - lu(k,926) = lu(k,926) - lu(k,720) * lu(k,909) - lu(k,927) = lu(k,927) - lu(k,721) * lu(k,909) - lu(k,928) = lu(k,928) - lu(k,722) * lu(k,909) - lu(k,929) = lu(k,929) - lu(k,723) * lu(k,909) - lu(k,930) = lu(k,930) - lu(k,724) * lu(k,909) - lu(k,932) = lu(k,932) - lu(k,725) * lu(k,909) - lu(k,933) = lu(k,933) - lu(k,726) * lu(k,909) - lu(k,934) = lu(k,934) - lu(k,727) * lu(k,909) - lu(k,935) = lu(k,935) - lu(k,728) * lu(k,909) - lu(k,995) = lu(k,995) - lu(k,707) * lu(k,994) - lu(k,997) = lu(k,997) - lu(k,708) * lu(k,994) - lu(k,998) = lu(k,998) - lu(k,709) * lu(k,994) - lu(k,999) = lu(k,999) - lu(k,710) * lu(k,994) - lu(k,1000) = lu(k,1000) - lu(k,711) * lu(k,994) - lu(k,1001) = lu(k,1001) - lu(k,712) * lu(k,994) - lu(k,1002) = lu(k,1002) - lu(k,713) * lu(k,994) - lu(k,1004) = lu(k,1004) - lu(k,714) * lu(k,994) - lu(k,1005) = lu(k,1005) - lu(k,715) * lu(k,994) - lu(k,1006) = lu(k,1006) - lu(k,716) * lu(k,994) - lu(k,1007) = lu(k,1007) - lu(k,717) * lu(k,994) - lu(k,1009) = lu(k,1009) - lu(k,718) * lu(k,994) - lu(k,1010) = lu(k,1010) - lu(k,719) * lu(k,994) - lu(k,1011) = lu(k,1011) - lu(k,720) * lu(k,994) - lu(k,1012) = lu(k,1012) - lu(k,721) * lu(k,994) - lu(k,1013) = lu(k,1013) - lu(k,722) * lu(k,994) - lu(k,1014) = lu(k,1014) - lu(k,723) * lu(k,994) - lu(k,1015) = lu(k,1015) - lu(k,724) * lu(k,994) - lu(k,1017) = lu(k,1017) - lu(k,725) * lu(k,994) - lu(k,1018) = lu(k,1018) - lu(k,726) * lu(k,994) - lu(k,1019) = lu(k,1019) - lu(k,727) * lu(k,994) - lu(k,1020) = lu(k,1020) - lu(k,728) * lu(k,994) - lu(k,1037) = lu(k,1037) - lu(k,707) * lu(k,1036) - lu(k,1039) = lu(k,1039) - lu(k,708) * lu(k,1036) - lu(k,1040) = lu(k,1040) - lu(k,709) * lu(k,1036) - lu(k,1041) = lu(k,1041) - lu(k,710) * lu(k,1036) - lu(k,1042) = lu(k,1042) - lu(k,711) * lu(k,1036) - lu(k,1043) = lu(k,1043) - lu(k,712) * lu(k,1036) - lu(k,1044) = lu(k,1044) - lu(k,713) * lu(k,1036) - lu(k,1046) = lu(k,1046) - lu(k,714) * lu(k,1036) - lu(k,1047) = lu(k,1047) - lu(k,715) * lu(k,1036) - lu(k,1048) = lu(k,1048) - lu(k,716) * lu(k,1036) - lu(k,1049) = lu(k,1049) - lu(k,717) * lu(k,1036) - lu(k,1051) = lu(k,1051) - lu(k,718) * lu(k,1036) - lu(k,1052) = lu(k,1052) - lu(k,719) * lu(k,1036) - lu(k,1053) = lu(k,1053) - lu(k,720) * lu(k,1036) - lu(k,1054) = lu(k,1054) - lu(k,721) * lu(k,1036) - lu(k,1055) = lu(k,1055) - lu(k,722) * lu(k,1036) - lu(k,1056) = lu(k,1056) - lu(k,723) * lu(k,1036) - lu(k,1057) = lu(k,1057) - lu(k,724) * lu(k,1036) - lu(k,1059) = lu(k,1059) - lu(k,725) * lu(k,1036) - lu(k,1060) = lu(k,1060) - lu(k,726) * lu(k,1036) - lu(k,1061) = lu(k,1061) - lu(k,727) * lu(k,1036) - lu(k,1062) = lu(k,1062) - lu(k,728) * lu(k,1036) - lu(k,1078) = lu(k,1078) - lu(k,707) * lu(k,1077) - lu(k,1080) = lu(k,1080) - lu(k,708) * lu(k,1077) - lu(k,1081) = lu(k,1081) - lu(k,709) * lu(k,1077) - lu(k,1082) = lu(k,1082) - lu(k,710) * lu(k,1077) - lu(k,1083) = lu(k,1083) - lu(k,711) * lu(k,1077) - lu(k,1084) = lu(k,1084) - lu(k,712) * lu(k,1077) - lu(k,1085) = lu(k,1085) - lu(k,713) * lu(k,1077) - lu(k,1087) = lu(k,1087) - lu(k,714) * lu(k,1077) - lu(k,1088) = lu(k,1088) - lu(k,715) * lu(k,1077) - lu(k,1089) = lu(k,1089) - lu(k,716) * lu(k,1077) - lu(k,1090) = lu(k,1090) - lu(k,717) * lu(k,1077) - lu(k,1092) = lu(k,1092) - lu(k,718) * lu(k,1077) - lu(k,1093) = lu(k,1093) - lu(k,719) * lu(k,1077) - lu(k,1094) = lu(k,1094) - lu(k,720) * lu(k,1077) - lu(k,1095) = lu(k,1095) - lu(k,721) * lu(k,1077) - lu(k,1096) = lu(k,1096) - lu(k,722) * lu(k,1077) - lu(k,1097) = lu(k,1097) - lu(k,723) * lu(k,1077) - lu(k,1098) = lu(k,1098) - lu(k,724) * lu(k,1077) - lu(k,1100) = lu(k,1100) - lu(k,725) * lu(k,1077) - lu(k,1101) = lu(k,1101) - lu(k,726) * lu(k,1077) - lu(k,1102) = lu(k,1102) - lu(k,727) * lu(k,1077) - lu(k,1103) = lu(k,1103) - lu(k,728) * lu(k,1077) - lu(k,1123) = lu(k,1123) - lu(k,707) * lu(k,1122) - lu(k,1125) = lu(k,1125) - lu(k,708) * lu(k,1122) - lu(k,1126) = lu(k,1126) - lu(k,709) * lu(k,1122) - lu(k,1127) = lu(k,1127) - lu(k,710) * lu(k,1122) - lu(k,1128) = lu(k,1128) - lu(k,711) * lu(k,1122) - lu(k,1129) = lu(k,1129) - lu(k,712) * lu(k,1122) - lu(k,1130) = lu(k,1130) - lu(k,713) * lu(k,1122) - lu(k,1132) = lu(k,1132) - lu(k,714) * lu(k,1122) - lu(k,1133) = lu(k,1133) - lu(k,715) * lu(k,1122) - lu(k,1134) = lu(k,1134) - lu(k,716) * lu(k,1122) - lu(k,1135) = lu(k,1135) - lu(k,717) * lu(k,1122) - lu(k,1137) = lu(k,1137) - lu(k,718) * lu(k,1122) - lu(k,1138) = lu(k,1138) - lu(k,719) * lu(k,1122) - lu(k,1139) = lu(k,1139) - lu(k,720) * lu(k,1122) - lu(k,1140) = lu(k,1140) - lu(k,721) * lu(k,1122) - lu(k,1141) = lu(k,1141) - lu(k,722) * lu(k,1122) - lu(k,1142) = lu(k,1142) - lu(k,723) * lu(k,1122) - lu(k,1143) = lu(k,1143) - lu(k,724) * lu(k,1122) - lu(k,1145) = lu(k,1145) - lu(k,725) * lu(k,1122) - lu(k,1146) = lu(k,1146) - lu(k,726) * lu(k,1122) - lu(k,1147) = lu(k,1147) - lu(k,727) * lu(k,1122) - lu(k,1148) = lu(k,1148) - lu(k,728) * lu(k,1122) - lu(k,1163) = lu(k,1163) - lu(k,707) * lu(k,1162) - lu(k,1165) = lu(k,1165) - lu(k,708) * lu(k,1162) - lu(k,1166) = lu(k,1166) - lu(k,709) * lu(k,1162) - lu(k,1167) = lu(k,1167) - lu(k,710) * lu(k,1162) - lu(k,1168) = lu(k,1168) - lu(k,711) * lu(k,1162) - lu(k,1169) = lu(k,1169) - lu(k,712) * lu(k,1162) - lu(k,1170) = lu(k,1170) - lu(k,713) * lu(k,1162) - lu(k,1172) = lu(k,1172) - lu(k,714) * lu(k,1162) - lu(k,1173) = lu(k,1173) - lu(k,715) * lu(k,1162) - lu(k,1174) = lu(k,1174) - lu(k,716) * lu(k,1162) - lu(k,1175) = lu(k,1175) - lu(k,717) * lu(k,1162) - lu(k,1177) = lu(k,1177) - lu(k,718) * lu(k,1162) - lu(k,1178) = lu(k,1178) - lu(k,719) * lu(k,1162) - lu(k,1179) = lu(k,1179) - lu(k,720) * lu(k,1162) - lu(k,1180) = lu(k,1180) - lu(k,721) * lu(k,1162) - lu(k,1181) = lu(k,1181) - lu(k,722) * lu(k,1162) - lu(k,1182) = lu(k,1182) - lu(k,723) * lu(k,1162) - lu(k,1183) = lu(k,1183) - lu(k,724) * lu(k,1162) - lu(k,1185) = lu(k,1185) - lu(k,725) * lu(k,1162) - lu(k,1186) = lu(k,1186) - lu(k,726) * lu(k,1162) - lu(k,1187) = lu(k,1187) - lu(k,727) * lu(k,1162) - lu(k,1188) = lu(k,1188) - lu(k,728) * lu(k,1162) - lu(k,1219) = lu(k,1219) - lu(k,707) * lu(k,1218) - lu(k,1221) = lu(k,1221) - lu(k,708) * lu(k,1218) - lu(k,1222) = lu(k,1222) - lu(k,709) * lu(k,1218) - lu(k,1223) = lu(k,1223) - lu(k,710) * lu(k,1218) - lu(k,1224) = lu(k,1224) - lu(k,711) * lu(k,1218) - lu(k,1225) = lu(k,1225) - lu(k,712) * lu(k,1218) - lu(k,1226) = lu(k,1226) - lu(k,713) * lu(k,1218) - lu(k,1228) = lu(k,1228) - lu(k,714) * lu(k,1218) - lu(k,1229) = lu(k,1229) - lu(k,715) * lu(k,1218) - lu(k,1230) = lu(k,1230) - lu(k,716) * lu(k,1218) - lu(k,1231) = lu(k,1231) - lu(k,717) * lu(k,1218) - lu(k,1233) = lu(k,1233) - lu(k,718) * lu(k,1218) - lu(k,1234) = lu(k,1234) - lu(k,719) * lu(k,1218) - lu(k,1235) = lu(k,1235) - lu(k,720) * lu(k,1218) - lu(k,1236) = lu(k,1236) - lu(k,721) * lu(k,1218) - lu(k,1237) = lu(k,1237) - lu(k,722) * lu(k,1218) - lu(k,1238) = lu(k,1238) - lu(k,723) * lu(k,1218) - lu(k,1239) = lu(k,1239) - lu(k,724) * lu(k,1218) - lu(k,1241) = lu(k,1241) - lu(k,725) * lu(k,1218) - lu(k,1242) = lu(k,1242) - lu(k,726) * lu(k,1218) - lu(k,1243) = lu(k,1243) - lu(k,727) * lu(k,1218) - lu(k,1244) = lu(k,1244) - lu(k,728) * lu(k,1218) - lu(k,1257) = lu(k,1257) - lu(k,707) * lu(k,1256) - lu(k,1259) = lu(k,1259) - lu(k,708) * lu(k,1256) - lu(k,1260) = lu(k,1260) - lu(k,709) * lu(k,1256) - lu(k,1261) = lu(k,1261) - lu(k,710) * lu(k,1256) - lu(k,1262) = lu(k,1262) - lu(k,711) * lu(k,1256) - lu(k,1263) = lu(k,1263) - lu(k,712) * lu(k,1256) - lu(k,1264) = lu(k,1264) - lu(k,713) * lu(k,1256) - lu(k,1266) = lu(k,1266) - lu(k,714) * lu(k,1256) - lu(k,1267) = lu(k,1267) - lu(k,715) * lu(k,1256) - lu(k,1268) = lu(k,1268) - lu(k,716) * lu(k,1256) - lu(k,1269) = lu(k,1269) - lu(k,717) * lu(k,1256) - lu(k,1271) = lu(k,1271) - lu(k,718) * lu(k,1256) - lu(k,1272) = lu(k,1272) - lu(k,719) * lu(k,1256) - lu(k,1273) = lu(k,1273) - lu(k,720) * lu(k,1256) - lu(k,1274) = lu(k,1274) - lu(k,721) * lu(k,1256) - lu(k,1275) = lu(k,1275) - lu(k,722) * lu(k,1256) - lu(k,1276) = lu(k,1276) - lu(k,723) * lu(k,1256) - lu(k,1277) = lu(k,1277) - lu(k,724) * lu(k,1256) - lu(k,1279) = lu(k,1279) - lu(k,725) * lu(k,1256) - lu(k,1280) = lu(k,1280) - lu(k,726) * lu(k,1256) - lu(k,1281) = lu(k,1281) - lu(k,727) * lu(k,1256) - lu(k,1282) = lu(k,1282) - lu(k,728) * lu(k,1256) - lu(k,1293) = lu(k,1293) - lu(k,707) * lu(k,1292) - lu(k,1295) = lu(k,1295) - lu(k,708) * lu(k,1292) - lu(k,1296) = lu(k,1296) - lu(k,709) * lu(k,1292) - lu(k,1297) = lu(k,1297) - lu(k,710) * lu(k,1292) - lu(k,1298) = lu(k,1298) - lu(k,711) * lu(k,1292) - lu(k,1299) = lu(k,1299) - lu(k,712) * lu(k,1292) - lu(k,1300) = lu(k,1300) - lu(k,713) * lu(k,1292) - lu(k,1302) = lu(k,1302) - lu(k,714) * lu(k,1292) - lu(k,1303) = lu(k,1303) - lu(k,715) * lu(k,1292) - lu(k,1304) = lu(k,1304) - lu(k,716) * lu(k,1292) - lu(k,1305) = lu(k,1305) - lu(k,717) * lu(k,1292) - lu(k,1307) = lu(k,1307) - lu(k,718) * lu(k,1292) - lu(k,1308) = lu(k,1308) - lu(k,719) * lu(k,1292) - lu(k,1309) = lu(k,1309) - lu(k,720) * lu(k,1292) - lu(k,1310) = lu(k,1310) - lu(k,721) * lu(k,1292) - lu(k,1311) = lu(k,1311) - lu(k,722) * lu(k,1292) - lu(k,1312) = lu(k,1312) - lu(k,723) * lu(k,1292) - lu(k,1313) = lu(k,1313) - lu(k,724) * lu(k,1292) - lu(k,1315) = lu(k,1315) - lu(k,725) * lu(k,1292) - lu(k,1316) = lu(k,1316) - lu(k,726) * lu(k,1292) - lu(k,1317) = lu(k,1317) - lu(k,727) * lu(k,1292) - lu(k,1318) = lu(k,1318) - lu(k,728) * lu(k,1292) - lu(k,1338) = lu(k,1338) - lu(k,707) * lu(k,1337) - lu(k,1340) = lu(k,1340) - lu(k,708) * lu(k,1337) - lu(k,1341) = lu(k,1341) - lu(k,709) * lu(k,1337) - lu(k,1342) = lu(k,1342) - lu(k,710) * lu(k,1337) - lu(k,1343) = lu(k,1343) - lu(k,711) * lu(k,1337) - lu(k,1344) = lu(k,1344) - lu(k,712) * lu(k,1337) - lu(k,1345) = lu(k,1345) - lu(k,713) * lu(k,1337) - lu(k,1347) = lu(k,1347) - lu(k,714) * lu(k,1337) - lu(k,1348) = lu(k,1348) - lu(k,715) * lu(k,1337) - lu(k,1349) = lu(k,1349) - lu(k,716) * lu(k,1337) - lu(k,1350) = lu(k,1350) - lu(k,717) * lu(k,1337) - lu(k,1352) = lu(k,1352) - lu(k,718) * lu(k,1337) - lu(k,1353) = lu(k,1353) - lu(k,719) * lu(k,1337) - lu(k,1354) = lu(k,1354) - lu(k,720) * lu(k,1337) - lu(k,1355) = lu(k,1355) - lu(k,721) * lu(k,1337) - lu(k,1356) = lu(k,1356) - lu(k,722) * lu(k,1337) - lu(k,1357) = lu(k,1357) - lu(k,723) * lu(k,1337) - lu(k,1358) = lu(k,1358) - lu(k,724) * lu(k,1337) - lu(k,1360) = lu(k,1360) - lu(k,725) * lu(k,1337) - lu(k,1361) = lu(k,1361) - lu(k,726) * lu(k,1337) - lu(k,1362) = lu(k,1362) - lu(k,727) * lu(k,1337) - lu(k,1363) = lu(k,1363) - lu(k,728) * lu(k,1337) - lu(k,1381) = lu(k,1381) - lu(k,707) * lu(k,1380) - lu(k,1383) = lu(k,1383) - lu(k,708) * lu(k,1380) - lu(k,1384) = lu(k,1384) - lu(k,709) * lu(k,1380) - lu(k,1385) = lu(k,1385) - lu(k,710) * lu(k,1380) - lu(k,1386) = lu(k,1386) - lu(k,711) * lu(k,1380) - lu(k,1387) = lu(k,1387) - lu(k,712) * lu(k,1380) - lu(k,1388) = lu(k,1388) - lu(k,713) * lu(k,1380) - lu(k,1390) = lu(k,1390) - lu(k,714) * lu(k,1380) - lu(k,1391) = lu(k,1391) - lu(k,715) * lu(k,1380) - lu(k,1392) = lu(k,1392) - lu(k,716) * lu(k,1380) - lu(k,1393) = lu(k,1393) - lu(k,717) * lu(k,1380) - lu(k,1395) = lu(k,1395) - lu(k,718) * lu(k,1380) - lu(k,1396) = lu(k,1396) - lu(k,719) * lu(k,1380) - lu(k,1397) = lu(k,1397) - lu(k,720) * lu(k,1380) - lu(k,1398) = lu(k,1398) - lu(k,721) * lu(k,1380) - lu(k,1399) = lu(k,1399) - lu(k,722) * lu(k,1380) - lu(k,1400) = lu(k,1400) - lu(k,723) * lu(k,1380) - lu(k,1401) = lu(k,1401) - lu(k,724) * lu(k,1380) - lu(k,1403) = lu(k,1403) - lu(k,725) * lu(k,1380) - lu(k,1404) = lu(k,1404) - lu(k,726) * lu(k,1380) - lu(k,1405) = lu(k,1405) - lu(k,727) * lu(k,1380) - lu(k,1406) = lu(k,1406) - lu(k,728) * lu(k,1380) - lu(k,1417) = lu(k,1417) - lu(k,707) * lu(k,1416) - lu(k,1418) = lu(k,1418) - lu(k,708) * lu(k,1416) - lu(k,1419) = lu(k,1419) - lu(k,709) * lu(k,1416) - lu(k,1420) = lu(k,1420) - lu(k,710) * lu(k,1416) - lu(k,1421) = lu(k,1421) - lu(k,711) * lu(k,1416) - lu(k,1422) = lu(k,1422) - lu(k,712) * lu(k,1416) - lu(k,1423) = lu(k,1423) - lu(k,713) * lu(k,1416) - lu(k,1425) = lu(k,1425) - lu(k,714) * lu(k,1416) - lu(k,1426) = lu(k,1426) - lu(k,715) * lu(k,1416) - lu(k,1427) = lu(k,1427) - lu(k,716) * lu(k,1416) - lu(k,1428) = lu(k,1428) - lu(k,717) * lu(k,1416) - lu(k,1430) = lu(k,1430) - lu(k,718) * lu(k,1416) - lu(k,1431) = lu(k,1431) - lu(k,719) * lu(k,1416) - lu(k,1432) = lu(k,1432) - lu(k,720) * lu(k,1416) - lu(k,1433) = lu(k,1433) - lu(k,721) * lu(k,1416) - lu(k,1434) = lu(k,1434) - lu(k,722) * lu(k,1416) - lu(k,1435) = lu(k,1435) - lu(k,723) * lu(k,1416) - lu(k,1436) = lu(k,1436) - lu(k,724) * lu(k,1416) - lu(k,1438) = lu(k,1438) - lu(k,725) * lu(k,1416) - lu(k,1439) = lu(k,1439) - lu(k,726) * lu(k,1416) - lu(k,1440) = lu(k,1440) - lu(k,727) * lu(k,1416) - lu(k,1441) = lu(k,1441) - lu(k,728) * lu(k,1416) - lu(k,1459) = lu(k,1459) - lu(k,707) * lu(k,1458) - lu(k,1461) = lu(k,1461) - lu(k,708) * lu(k,1458) - lu(k,1462) = lu(k,1462) - lu(k,709) * lu(k,1458) - lu(k,1463) = lu(k,1463) - lu(k,710) * lu(k,1458) - lu(k,1464) = lu(k,1464) - lu(k,711) * lu(k,1458) - lu(k,1465) = lu(k,1465) - lu(k,712) * lu(k,1458) - lu(k,1466) = lu(k,1466) - lu(k,713) * lu(k,1458) - lu(k,1468) = lu(k,1468) - lu(k,714) * lu(k,1458) - lu(k,1469) = lu(k,1469) - lu(k,715) * lu(k,1458) - lu(k,1470) = lu(k,1470) - lu(k,716) * lu(k,1458) - lu(k,1471) = lu(k,1471) - lu(k,717) * lu(k,1458) - lu(k,1473) = lu(k,1473) - lu(k,718) * lu(k,1458) - lu(k,1474) = lu(k,1474) - lu(k,719) * lu(k,1458) - lu(k,1475) = lu(k,1475) - lu(k,720) * lu(k,1458) - lu(k,1476) = lu(k,1476) - lu(k,721) * lu(k,1458) - lu(k,1477) = lu(k,1477) - lu(k,722) * lu(k,1458) - lu(k,1478) = lu(k,1478) - lu(k,723) * lu(k,1458) - lu(k,1479) = lu(k,1479) - lu(k,724) * lu(k,1458) - lu(k,1481) = lu(k,1481) - lu(k,725) * lu(k,1458) - lu(k,1482) = lu(k,1482) - lu(k,726) * lu(k,1458) - lu(k,1483) = lu(k,1483) - lu(k,727) * lu(k,1458) - lu(k,1484) = lu(k,1484) - lu(k,728) * lu(k,1458) - lu(k,1502) = lu(k,1502) - lu(k,707) * lu(k,1501) - lu(k,1504) = lu(k,1504) - lu(k,708) * lu(k,1501) - lu(k,1505) = lu(k,1505) - lu(k,709) * lu(k,1501) - lu(k,1506) = lu(k,1506) - lu(k,710) * lu(k,1501) - lu(k,1507) = lu(k,1507) - lu(k,711) * lu(k,1501) - lu(k,1508) = lu(k,1508) - lu(k,712) * lu(k,1501) - lu(k,1509) = lu(k,1509) - lu(k,713) * lu(k,1501) - lu(k,1511) = lu(k,1511) - lu(k,714) * lu(k,1501) - lu(k,1512) = lu(k,1512) - lu(k,715) * lu(k,1501) - lu(k,1513) = lu(k,1513) - lu(k,716) * lu(k,1501) - lu(k,1514) = lu(k,1514) - lu(k,717) * lu(k,1501) - lu(k,1516) = lu(k,1516) - lu(k,718) * lu(k,1501) - lu(k,1517) = lu(k,1517) - lu(k,719) * lu(k,1501) - lu(k,1518) = lu(k,1518) - lu(k,720) * lu(k,1501) - lu(k,1519) = lu(k,1519) - lu(k,721) * lu(k,1501) - lu(k,1520) = lu(k,1520) - lu(k,722) * lu(k,1501) - lu(k,1521) = lu(k,1521) - lu(k,723) * lu(k,1501) - lu(k,1522) = lu(k,1522) - lu(k,724) * lu(k,1501) - lu(k,1524) = lu(k,1524) - lu(k,725) * lu(k,1501) - lu(k,1525) = lu(k,1525) - lu(k,726) * lu(k,1501) - lu(k,1526) = lu(k,1526) - lu(k,727) * lu(k,1501) - lu(k,1527) = lu(k,1527) - lu(k,728) * lu(k,1501) - lu(k,1545) = lu(k,1545) - lu(k,707) * lu(k,1544) - lu(k,1547) = lu(k,1547) - lu(k,708) * lu(k,1544) - lu(k,1548) = lu(k,1548) - lu(k,709) * lu(k,1544) - lu(k,1549) = lu(k,1549) - lu(k,710) * lu(k,1544) - lu(k,1550) = lu(k,1550) - lu(k,711) * lu(k,1544) - lu(k,1551) = lu(k,1551) - lu(k,712) * lu(k,1544) - lu(k,1552) = lu(k,1552) - lu(k,713) * lu(k,1544) - lu(k,1554) = lu(k,1554) - lu(k,714) * lu(k,1544) - lu(k,1555) = lu(k,1555) - lu(k,715) * lu(k,1544) - lu(k,1556) = lu(k,1556) - lu(k,716) * lu(k,1544) - lu(k,1557) = lu(k,1557) - lu(k,717) * lu(k,1544) - lu(k,1559) = lu(k,1559) - lu(k,718) * lu(k,1544) - lu(k,1560) = lu(k,1560) - lu(k,719) * lu(k,1544) - lu(k,1561) = lu(k,1561) - lu(k,720) * lu(k,1544) - lu(k,1562) = lu(k,1562) - lu(k,721) * lu(k,1544) - lu(k,1563) = lu(k,1563) - lu(k,722) * lu(k,1544) - lu(k,1564) = lu(k,1564) - lu(k,723) * lu(k,1544) - lu(k,1565) = lu(k,1565) - lu(k,724) * lu(k,1544) - lu(k,1567) = lu(k,1567) - lu(k,725) * lu(k,1544) - lu(k,1568) = lu(k,1568) - lu(k,726) * lu(k,1544) - lu(k,1569) = lu(k,1569) - lu(k,727) * lu(k,1544) - lu(k,1570) = lu(k,1570) - lu(k,728) * lu(k,1544) - lu(k,1578) = lu(k,1578) - lu(k,707) * lu(k,1577) - lu(k,1580) = lu(k,1580) - lu(k,708) * lu(k,1577) - lu(k,1581) = lu(k,1581) - lu(k,709) * lu(k,1577) - lu(k,1582) = lu(k,1582) - lu(k,710) * lu(k,1577) - lu(k,1583) = lu(k,1583) - lu(k,711) * lu(k,1577) - lu(k,1584) = lu(k,1584) - lu(k,712) * lu(k,1577) - lu(k,1585) = lu(k,1585) - lu(k,713) * lu(k,1577) - lu(k,1587) = lu(k,1587) - lu(k,714) * lu(k,1577) - lu(k,1588) = lu(k,1588) - lu(k,715) * lu(k,1577) - lu(k,1589) = lu(k,1589) - lu(k,716) * lu(k,1577) - lu(k,1590) = lu(k,1590) - lu(k,717) * lu(k,1577) - lu(k,1592) = lu(k,1592) - lu(k,718) * lu(k,1577) - lu(k,1593) = lu(k,1593) - lu(k,719) * lu(k,1577) - lu(k,1594) = lu(k,1594) - lu(k,720) * lu(k,1577) - lu(k,1595) = lu(k,1595) - lu(k,721) * lu(k,1577) - lu(k,1596) = lu(k,1596) - lu(k,722) * lu(k,1577) - lu(k,1597) = lu(k,1597) - lu(k,723) * lu(k,1577) - lu(k,1598) = lu(k,1598) - lu(k,724) * lu(k,1577) - lu(k,1600) = lu(k,1600) - lu(k,725) * lu(k,1577) - lu(k,1601) = lu(k,1601) - lu(k,726) * lu(k,1577) - lu(k,1602) = lu(k,1602) - lu(k,727) * lu(k,1577) - lu(k,1603) = lu(k,1603) - lu(k,728) * lu(k,1577) - lu(k,1614) = lu(k,1614) - lu(k,707) * lu(k,1613) - lu(k,1616) = lu(k,1616) - lu(k,708) * lu(k,1613) - lu(k,1617) = lu(k,1617) - lu(k,709) * lu(k,1613) - lu(k,1618) = lu(k,1618) - lu(k,710) * lu(k,1613) - lu(k,1619) = lu(k,1619) - lu(k,711) * lu(k,1613) - lu(k,1620) = lu(k,1620) - lu(k,712) * lu(k,1613) - lu(k,1621) = lu(k,1621) - lu(k,713) * lu(k,1613) - lu(k,1623) = lu(k,1623) - lu(k,714) * lu(k,1613) - lu(k,1624) = lu(k,1624) - lu(k,715) * lu(k,1613) - lu(k,1625) = lu(k,1625) - lu(k,716) * lu(k,1613) - lu(k,1626) = lu(k,1626) - lu(k,717) * lu(k,1613) - lu(k,1628) = lu(k,1628) - lu(k,718) * lu(k,1613) - lu(k,1629) = lu(k,1629) - lu(k,719) * lu(k,1613) - lu(k,1630) = lu(k,1630) - lu(k,720) * lu(k,1613) - lu(k,1631) = lu(k,1631) - lu(k,721) * lu(k,1613) - lu(k,1632) = lu(k,1632) - lu(k,722) * lu(k,1613) - lu(k,1633) = lu(k,1633) - lu(k,723) * lu(k,1613) - lu(k,1634) = lu(k,1634) - lu(k,724) * lu(k,1613) - lu(k,1636) = lu(k,1636) - lu(k,725) * lu(k,1613) - lu(k,1637) = lu(k,1637) - lu(k,726) * lu(k,1613) - lu(k,1638) = lu(k,1638) - lu(k,727) * lu(k,1613) - lu(k,1639) = lu(k,1639) - lu(k,728) * lu(k,1613) - lu(k,1657) = lu(k,1657) - lu(k,707) * lu(k,1656) - lu(k,1659) = lu(k,1659) - lu(k,708) * lu(k,1656) - lu(k,1660) = lu(k,1660) - lu(k,709) * lu(k,1656) - lu(k,1661) = lu(k,1661) - lu(k,710) * lu(k,1656) - lu(k,1662) = lu(k,1662) - lu(k,711) * lu(k,1656) - lu(k,1663) = lu(k,1663) - lu(k,712) * lu(k,1656) - lu(k,1664) = lu(k,1664) - lu(k,713) * lu(k,1656) - lu(k,1666) = lu(k,1666) - lu(k,714) * lu(k,1656) - lu(k,1667) = lu(k,1667) - lu(k,715) * lu(k,1656) - lu(k,1668) = lu(k,1668) - lu(k,716) * lu(k,1656) - lu(k,1669) = lu(k,1669) - lu(k,717) * lu(k,1656) - lu(k,1671) = lu(k,1671) - lu(k,718) * lu(k,1656) - lu(k,1672) = lu(k,1672) - lu(k,719) * lu(k,1656) - lu(k,1673) = lu(k,1673) - lu(k,720) * lu(k,1656) - lu(k,1674) = lu(k,1674) - lu(k,721) * lu(k,1656) - lu(k,1675) = lu(k,1675) - lu(k,722) * lu(k,1656) - lu(k,1676) = lu(k,1676) - lu(k,723) * lu(k,1656) - lu(k,1677) = lu(k,1677) - lu(k,724) * lu(k,1656) - lu(k,1679) = lu(k,1679) - lu(k,725) * lu(k,1656) - lu(k,1680) = lu(k,1680) - lu(k,726) * lu(k,1656) - lu(k,1681) = lu(k,1681) - lu(k,727) * lu(k,1656) - lu(k,1682) = lu(k,1682) - lu(k,728) * lu(k,1656) - lu(k,1693) = lu(k,1693) - lu(k,707) * lu(k,1692) - lu(k,1695) = lu(k,1695) - lu(k,708) * lu(k,1692) - lu(k,1696) = lu(k,1696) - lu(k,709) * lu(k,1692) - lu(k,1697) = lu(k,1697) - lu(k,710) * lu(k,1692) - lu(k,1698) = lu(k,1698) - lu(k,711) * lu(k,1692) - lu(k,1699) = lu(k,1699) - lu(k,712) * lu(k,1692) - lu(k,1700) = lu(k,1700) - lu(k,713) * lu(k,1692) - lu(k,1702) = lu(k,1702) - lu(k,714) * lu(k,1692) - lu(k,1703) = lu(k,1703) - lu(k,715) * lu(k,1692) - lu(k,1704) = lu(k,1704) - lu(k,716) * lu(k,1692) - lu(k,1705) = lu(k,1705) - lu(k,717) * lu(k,1692) - lu(k,1707) = lu(k,1707) - lu(k,718) * lu(k,1692) - lu(k,1708) = lu(k,1708) - lu(k,719) * lu(k,1692) - lu(k,1709) = lu(k,1709) - lu(k,720) * lu(k,1692) - lu(k,1710) = lu(k,1710) - lu(k,721) * lu(k,1692) - lu(k,1711) = lu(k,1711) - lu(k,722) * lu(k,1692) - lu(k,1712) = lu(k,1712) - lu(k,723) * lu(k,1692) - lu(k,1713) = lu(k,1713) - lu(k,724) * lu(k,1692) - lu(k,1715) = lu(k,1715) - lu(k,725) * lu(k,1692) - lu(k,1716) = lu(k,1716) - lu(k,726) * lu(k,1692) - lu(k,1717) = lu(k,1717) - lu(k,727) * lu(k,1692) - lu(k,1718) = lu(k,1718) - lu(k,728) * lu(k,1692) - lu(k,1738) = lu(k,1738) - lu(k,707) * lu(k,1737) - lu(k,1740) = lu(k,1740) - lu(k,708) * lu(k,1737) - lu(k,1741) = lu(k,1741) - lu(k,709) * lu(k,1737) - lu(k,1742) = lu(k,1742) - lu(k,710) * lu(k,1737) - lu(k,1743) = lu(k,1743) - lu(k,711) * lu(k,1737) - lu(k,1744) = lu(k,1744) - lu(k,712) * lu(k,1737) - lu(k,1745) = lu(k,1745) - lu(k,713) * lu(k,1737) - lu(k,1747) = lu(k,1747) - lu(k,714) * lu(k,1737) - lu(k,1748) = lu(k,1748) - lu(k,715) * lu(k,1737) - lu(k,1749) = lu(k,1749) - lu(k,716) * lu(k,1737) - lu(k,1750) = lu(k,1750) - lu(k,717) * lu(k,1737) - lu(k,1752) = lu(k,1752) - lu(k,718) * lu(k,1737) - lu(k,1753) = lu(k,1753) - lu(k,719) * lu(k,1737) - lu(k,1754) = lu(k,1754) - lu(k,720) * lu(k,1737) - lu(k,1755) = lu(k,1755) - lu(k,721) * lu(k,1737) - lu(k,1756) = lu(k,1756) - lu(k,722) * lu(k,1737) - lu(k,1757) = lu(k,1757) - lu(k,723) * lu(k,1737) - lu(k,1758) = lu(k,1758) - lu(k,724) * lu(k,1737) - lu(k,1760) = lu(k,1760) - lu(k,725) * lu(k,1737) - lu(k,1761) = lu(k,1761) - lu(k,726) * lu(k,1737) - lu(k,1762) = lu(k,1762) - lu(k,727) * lu(k,1737) - lu(k,1763) = lu(k,1763) - lu(k,728) * lu(k,1737) - lu(k,1791) = lu(k,1791) - lu(k,707) * lu(k,1790) - lu(k,1793) = lu(k,1793) - lu(k,708) * lu(k,1790) - lu(k,1794) = lu(k,1794) - lu(k,709) * lu(k,1790) - lu(k,1795) = lu(k,1795) - lu(k,710) * lu(k,1790) - lu(k,1796) = lu(k,1796) - lu(k,711) * lu(k,1790) - lu(k,1797) = lu(k,1797) - lu(k,712) * lu(k,1790) - lu(k,1798) = lu(k,1798) - lu(k,713) * lu(k,1790) - lu(k,1800) = lu(k,1800) - lu(k,714) * lu(k,1790) - lu(k,1801) = lu(k,1801) - lu(k,715) * lu(k,1790) - lu(k,1802) = lu(k,1802) - lu(k,716) * lu(k,1790) - lu(k,1803) = lu(k,1803) - lu(k,717) * lu(k,1790) - lu(k,1805) = lu(k,1805) - lu(k,718) * lu(k,1790) - lu(k,1806) = lu(k,1806) - lu(k,719) * lu(k,1790) - lu(k,1807) = lu(k,1807) - lu(k,720) * lu(k,1790) - lu(k,1808) = lu(k,1808) - lu(k,721) * lu(k,1790) - lu(k,1809) = lu(k,1809) - lu(k,722) * lu(k,1790) - lu(k,1810) = lu(k,1810) - lu(k,723) * lu(k,1790) - lu(k,1811) = lu(k,1811) - lu(k,724) * lu(k,1790) - lu(k,1813) = lu(k,1813) - lu(k,725) * lu(k,1790) - lu(k,1814) = lu(k,1814) - lu(k,726) * lu(k,1790) - lu(k,1815) = lu(k,1815) - lu(k,727) * lu(k,1790) - lu(k,1816) = lu(k,1816) - lu(k,728) * lu(k,1790) - 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,749) = 1._r8 / lu(k,749) - lu(k,750) = lu(k,750) * lu(k,749) - lu(k,751) = lu(k,751) * lu(k,749) - lu(k,752) = lu(k,752) * lu(k,749) - lu(k,753) = lu(k,753) * lu(k,749) - lu(k,754) = lu(k,754) * lu(k,749) - lu(k,755) = lu(k,755) * lu(k,749) - lu(k,756) = lu(k,756) * lu(k,749) - lu(k,757) = lu(k,757) * lu(k,749) - lu(k,758) = lu(k,758) * lu(k,749) - lu(k,759) = lu(k,759) * lu(k,749) - lu(k,760) = lu(k,760) * lu(k,749) - lu(k,761) = lu(k,761) * lu(k,749) - lu(k,762) = lu(k,762) * lu(k,749) - lu(k,763) = lu(k,763) * lu(k,749) - lu(k,764) = lu(k,764) * lu(k,749) - lu(k,765) = lu(k,765) * lu(k,749) - lu(k,766) = lu(k,766) * lu(k,749) - lu(k,767) = lu(k,767) * lu(k,749) - lu(k,768) = lu(k,768) * lu(k,749) - lu(k,769) = lu(k,769) * lu(k,749) - lu(k,770) = lu(k,770) * lu(k,749) - lu(k,780) = lu(k,780) - lu(k,750) * lu(k,778) - lu(k,781) = lu(k,781) - lu(k,751) * lu(k,778) - lu(k,783) = lu(k,783) - lu(k,752) * lu(k,778) - lu(k,784) = lu(k,784) - lu(k,753) * lu(k,778) - lu(k,785) = lu(k,785) - lu(k,754) * lu(k,778) - lu(k,786) = lu(k,786) - lu(k,755) * lu(k,778) - lu(k,787) = lu(k,787) - lu(k,756) * lu(k,778) - lu(k,788) = lu(k,788) - lu(k,757) * lu(k,778) - lu(k,789) = lu(k,789) - lu(k,758) * lu(k,778) - lu(k,790) = lu(k,790) - lu(k,759) * lu(k,778) - lu(k,791) = lu(k,791) - lu(k,760) * lu(k,778) - lu(k,792) = lu(k,792) - lu(k,761) * lu(k,778) - lu(k,793) = lu(k,793) - lu(k,762) * lu(k,778) - lu(k,794) = lu(k,794) - lu(k,763) * lu(k,778) - lu(k,796) = lu(k,796) - lu(k,764) * lu(k,778) - lu(k,798) = lu(k,798) - lu(k,765) * lu(k,778) - lu(k,799) = lu(k,799) - lu(k,766) * lu(k,778) - lu(k,800) = lu(k,800) - lu(k,767) * lu(k,778) - lu(k,801) = lu(k,801) - lu(k,768) * lu(k,778) - lu(k,802) = lu(k,802) - lu(k,769) * lu(k,778) - lu(k,803) = lu(k,803) - lu(k,770) * lu(k,778) - lu(k,823) = lu(k,823) - lu(k,750) * lu(k,821) - lu(k,824) = lu(k,824) - lu(k,751) * lu(k,821) - lu(k,826) = lu(k,826) - lu(k,752) * lu(k,821) - lu(k,827) = lu(k,827) - lu(k,753) * lu(k,821) - lu(k,828) = lu(k,828) - lu(k,754) * lu(k,821) - lu(k,829) = lu(k,829) - lu(k,755) * lu(k,821) - lu(k,830) = lu(k,830) - lu(k,756) * lu(k,821) - lu(k,831) = lu(k,831) - lu(k,757) * lu(k,821) - lu(k,832) = lu(k,832) - lu(k,758) * lu(k,821) - lu(k,833) = lu(k,833) - lu(k,759) * lu(k,821) - lu(k,834) = lu(k,834) - lu(k,760) * lu(k,821) - lu(k,835) = lu(k,835) - lu(k,761) * lu(k,821) - lu(k,836) = lu(k,836) - lu(k,762) * lu(k,821) - lu(k,837) = lu(k,837) - lu(k,763) * lu(k,821) - lu(k,839) = lu(k,839) - lu(k,764) * lu(k,821) - lu(k,841) = lu(k,841) - lu(k,765) * lu(k,821) - lu(k,842) = lu(k,842) - lu(k,766) * lu(k,821) - lu(k,843) = lu(k,843) - lu(k,767) * lu(k,821) - lu(k,844) = lu(k,844) - lu(k,768) * lu(k,821) - lu(k,845) = lu(k,845) - lu(k,769) * lu(k,821) - lu(k,846) = lu(k,846) - lu(k,770) * lu(k,821) - lu(k,869) = lu(k,869) - lu(k,750) * lu(k,867) - lu(k,870) = lu(k,870) - lu(k,751) * lu(k,867) - lu(k,872) = lu(k,872) - lu(k,752) * lu(k,867) - lu(k,873) = lu(k,873) - lu(k,753) * lu(k,867) - lu(k,874) = lu(k,874) - lu(k,754) * lu(k,867) - lu(k,875) = lu(k,875) - lu(k,755) * lu(k,867) - lu(k,876) = lu(k,876) - lu(k,756) * lu(k,867) - lu(k,877) = lu(k,877) - lu(k,757) * lu(k,867) - lu(k,878) = lu(k,878) - lu(k,758) * lu(k,867) - lu(k,879) = lu(k,879) - lu(k,759) * lu(k,867) - lu(k,880) = lu(k,880) - lu(k,760) * lu(k,867) - lu(k,881) = lu(k,881) - lu(k,761) * lu(k,867) - lu(k,882) = lu(k,882) - lu(k,762) * lu(k,867) - lu(k,883) = lu(k,883) - lu(k,763) * lu(k,867) - lu(k,885) = lu(k,885) - lu(k,764) * lu(k,867) - lu(k,887) = lu(k,887) - lu(k,765) * lu(k,867) - lu(k,888) = lu(k,888) - lu(k,766) * lu(k,867) - lu(k,889) = lu(k,889) - lu(k,767) * lu(k,867) - lu(k,890) = lu(k,890) - lu(k,768) * lu(k,867) - lu(k,891) = lu(k,891) - lu(k,769) * lu(k,867) - lu(k,892) = lu(k,892) - lu(k,770) * lu(k,867) - lu(k,912) = lu(k,912) - lu(k,750) * lu(k,910) - lu(k,913) = lu(k,913) - lu(k,751) * lu(k,910) - lu(k,915) = lu(k,915) - lu(k,752) * lu(k,910) - lu(k,916) = lu(k,916) - lu(k,753) * lu(k,910) - lu(k,917) = lu(k,917) - lu(k,754) * lu(k,910) - lu(k,918) = lu(k,918) - lu(k,755) * lu(k,910) - lu(k,919) = lu(k,919) - lu(k,756) * lu(k,910) - lu(k,920) = lu(k,920) - lu(k,757) * lu(k,910) - lu(k,921) = lu(k,921) - lu(k,758) * lu(k,910) - lu(k,922) = lu(k,922) - lu(k,759) * lu(k,910) - lu(k,923) = lu(k,923) - lu(k,760) * lu(k,910) - lu(k,924) = lu(k,924) - lu(k,761) * lu(k,910) - lu(k,925) = lu(k,925) - lu(k,762) * lu(k,910) - lu(k,926) = lu(k,926) - lu(k,763) * lu(k,910) - lu(k,928) = lu(k,928) - lu(k,764) * lu(k,910) - lu(k,930) = lu(k,930) - lu(k,765) * lu(k,910) - lu(k,931) = lu(k,931) - lu(k,766) * lu(k,910) - lu(k,932) = lu(k,932) - lu(k,767) * lu(k,910) - lu(k,933) = lu(k,933) - lu(k,768) * lu(k,910) - lu(k,934) = lu(k,934) - lu(k,769) * lu(k,910) - lu(k,935) = lu(k,935) - lu(k,770) * lu(k,910) - lu(k,955) = lu(k,955) - lu(k,750) * lu(k,954) - lu(k,956) = lu(k,956) - lu(k,751) * lu(k,954) - lu(k,958) = lu(k,958) - lu(k,752) * lu(k,954) - lu(k,959) = lu(k,959) - lu(k,753) * lu(k,954) - lu(k,960) = lu(k,960) - lu(k,754) * lu(k,954) - lu(k,961) = lu(k,961) - lu(k,755) * lu(k,954) - lu(k,962) = lu(k,962) - lu(k,756) * lu(k,954) - lu(k,963) = lu(k,963) - lu(k,757) * lu(k,954) - lu(k,964) = lu(k,964) - lu(k,758) * lu(k,954) - lu(k,965) = lu(k,965) - lu(k,759) * lu(k,954) - lu(k,966) = lu(k,966) - lu(k,760) * lu(k,954) - lu(k,967) = lu(k,967) - lu(k,761) * lu(k,954) - lu(k,968) = lu(k,968) - lu(k,762) * lu(k,954) - lu(k,969) = lu(k,969) - lu(k,763) * lu(k,954) - lu(k,971) = lu(k,971) - lu(k,764) * lu(k,954) - lu(k,973) = lu(k,973) - lu(k,765) * lu(k,954) - lu(k,974) = lu(k,974) - lu(k,766) * lu(k,954) - lu(k,975) = lu(k,975) - lu(k,767) * lu(k,954) - lu(k,976) = lu(k,976) - lu(k,768) * lu(k,954) - lu(k,977) = lu(k,977) - lu(k,769) * lu(k,954) - lu(k,978) = lu(k,978) - lu(k,770) * lu(k,954) - lu(k,997) = lu(k,997) - lu(k,750) * lu(k,995) - lu(k,998) = lu(k,998) - lu(k,751) * lu(k,995) - lu(k,1000) = lu(k,1000) - lu(k,752) * lu(k,995) - lu(k,1001) = lu(k,1001) - lu(k,753) * lu(k,995) - lu(k,1002) = lu(k,1002) - lu(k,754) * lu(k,995) - lu(k,1003) = lu(k,1003) - lu(k,755) * lu(k,995) - lu(k,1004) = lu(k,1004) - lu(k,756) * lu(k,995) - lu(k,1005) = lu(k,1005) - lu(k,757) * lu(k,995) - lu(k,1006) = lu(k,1006) - lu(k,758) * lu(k,995) - lu(k,1007) = lu(k,1007) - lu(k,759) * lu(k,995) - lu(k,1008) = lu(k,1008) - lu(k,760) * lu(k,995) - lu(k,1009) = lu(k,1009) - lu(k,761) * lu(k,995) - lu(k,1010) = lu(k,1010) - lu(k,762) * lu(k,995) - lu(k,1011) = lu(k,1011) - lu(k,763) * lu(k,995) - lu(k,1013) = lu(k,1013) - lu(k,764) * lu(k,995) - lu(k,1015) = lu(k,1015) - lu(k,765) * lu(k,995) - lu(k,1016) = lu(k,1016) - lu(k,766) * lu(k,995) - lu(k,1017) = lu(k,1017) - lu(k,767) * lu(k,995) - lu(k,1018) = lu(k,1018) - lu(k,768) * lu(k,995) - lu(k,1019) = lu(k,1019) - lu(k,769) * lu(k,995) - lu(k,1020) = lu(k,1020) - lu(k,770) * lu(k,995) - lu(k,1039) = lu(k,1039) - lu(k,750) * lu(k,1037) - lu(k,1040) = lu(k,1040) - lu(k,751) * lu(k,1037) - lu(k,1042) = lu(k,1042) - lu(k,752) * lu(k,1037) - lu(k,1043) = lu(k,1043) - lu(k,753) * lu(k,1037) - lu(k,1044) = lu(k,1044) - lu(k,754) * lu(k,1037) - lu(k,1045) = lu(k,1045) - lu(k,755) * lu(k,1037) - lu(k,1046) = lu(k,1046) - lu(k,756) * lu(k,1037) - lu(k,1047) = lu(k,1047) - lu(k,757) * lu(k,1037) - lu(k,1048) = lu(k,1048) - lu(k,758) * lu(k,1037) - lu(k,1049) = lu(k,1049) - lu(k,759) * lu(k,1037) - lu(k,1050) = lu(k,1050) - lu(k,760) * lu(k,1037) - lu(k,1051) = lu(k,1051) - lu(k,761) * lu(k,1037) - lu(k,1052) = lu(k,1052) - lu(k,762) * lu(k,1037) - lu(k,1053) = lu(k,1053) - lu(k,763) * lu(k,1037) - lu(k,1055) = lu(k,1055) - lu(k,764) * lu(k,1037) - lu(k,1057) = lu(k,1057) - lu(k,765) * lu(k,1037) - lu(k,1058) = lu(k,1058) - lu(k,766) * lu(k,1037) - lu(k,1059) = lu(k,1059) - lu(k,767) * lu(k,1037) - lu(k,1060) = lu(k,1060) - lu(k,768) * lu(k,1037) - lu(k,1061) = lu(k,1061) - lu(k,769) * lu(k,1037) - lu(k,1062) = lu(k,1062) - lu(k,770) * lu(k,1037) - lu(k,1080) = lu(k,1080) - lu(k,750) * lu(k,1078) - lu(k,1081) = lu(k,1081) - lu(k,751) * lu(k,1078) - lu(k,1083) = lu(k,1083) - lu(k,752) * lu(k,1078) - lu(k,1084) = lu(k,1084) - lu(k,753) * lu(k,1078) - lu(k,1085) = lu(k,1085) - lu(k,754) * lu(k,1078) - lu(k,1086) = lu(k,1086) - lu(k,755) * lu(k,1078) - lu(k,1087) = lu(k,1087) - lu(k,756) * lu(k,1078) - lu(k,1088) = lu(k,1088) - lu(k,757) * lu(k,1078) - lu(k,1089) = lu(k,1089) - lu(k,758) * lu(k,1078) - lu(k,1090) = lu(k,1090) - lu(k,759) * lu(k,1078) - lu(k,1091) = lu(k,1091) - lu(k,760) * lu(k,1078) - lu(k,1092) = lu(k,1092) - lu(k,761) * lu(k,1078) - lu(k,1093) = lu(k,1093) - lu(k,762) * lu(k,1078) - lu(k,1094) = lu(k,1094) - lu(k,763) * lu(k,1078) - lu(k,1096) = lu(k,1096) - lu(k,764) * lu(k,1078) - lu(k,1098) = lu(k,1098) - lu(k,765) * lu(k,1078) - lu(k,1099) = lu(k,1099) - lu(k,766) * lu(k,1078) - lu(k,1100) = lu(k,1100) - lu(k,767) * lu(k,1078) - lu(k,1101) = lu(k,1101) - lu(k,768) * lu(k,1078) - lu(k,1102) = lu(k,1102) - lu(k,769) * lu(k,1078) - lu(k,1103) = lu(k,1103) - lu(k,770) * lu(k,1078) - lu(k,1125) = lu(k,1125) - lu(k,750) * lu(k,1123) - lu(k,1126) = lu(k,1126) - lu(k,751) * lu(k,1123) - lu(k,1128) = lu(k,1128) - lu(k,752) * lu(k,1123) - lu(k,1129) = lu(k,1129) - lu(k,753) * lu(k,1123) - lu(k,1130) = lu(k,1130) - lu(k,754) * lu(k,1123) - lu(k,1131) = lu(k,1131) - lu(k,755) * lu(k,1123) - lu(k,1132) = lu(k,1132) - lu(k,756) * lu(k,1123) - lu(k,1133) = lu(k,1133) - lu(k,757) * lu(k,1123) - lu(k,1134) = lu(k,1134) - lu(k,758) * lu(k,1123) - lu(k,1135) = lu(k,1135) - lu(k,759) * lu(k,1123) - lu(k,1136) = lu(k,1136) - lu(k,760) * lu(k,1123) - lu(k,1137) = lu(k,1137) - lu(k,761) * lu(k,1123) - lu(k,1138) = lu(k,1138) - lu(k,762) * lu(k,1123) - lu(k,1139) = lu(k,1139) - lu(k,763) * lu(k,1123) - lu(k,1141) = lu(k,1141) - lu(k,764) * lu(k,1123) - lu(k,1143) = lu(k,1143) - lu(k,765) * lu(k,1123) - lu(k,1144) = lu(k,1144) - lu(k,766) * lu(k,1123) - lu(k,1145) = lu(k,1145) - lu(k,767) * lu(k,1123) - lu(k,1146) = lu(k,1146) - lu(k,768) * lu(k,1123) - lu(k,1147) = lu(k,1147) - lu(k,769) * lu(k,1123) - lu(k,1148) = lu(k,1148) - lu(k,770) * lu(k,1123) - lu(k,1165) = lu(k,1165) - lu(k,750) * lu(k,1163) - lu(k,1166) = lu(k,1166) - lu(k,751) * lu(k,1163) - lu(k,1168) = lu(k,1168) - lu(k,752) * lu(k,1163) - lu(k,1169) = lu(k,1169) - lu(k,753) * lu(k,1163) - lu(k,1170) = lu(k,1170) - lu(k,754) * lu(k,1163) - lu(k,1171) = lu(k,1171) - lu(k,755) * lu(k,1163) - lu(k,1172) = lu(k,1172) - lu(k,756) * lu(k,1163) - lu(k,1173) = lu(k,1173) - lu(k,757) * lu(k,1163) - lu(k,1174) = lu(k,1174) - lu(k,758) * lu(k,1163) - lu(k,1175) = lu(k,1175) - lu(k,759) * lu(k,1163) - lu(k,1176) = lu(k,1176) - lu(k,760) * lu(k,1163) - lu(k,1177) = lu(k,1177) - lu(k,761) * lu(k,1163) - lu(k,1178) = lu(k,1178) - lu(k,762) * lu(k,1163) - lu(k,1179) = lu(k,1179) - lu(k,763) * lu(k,1163) - lu(k,1181) = lu(k,1181) - lu(k,764) * lu(k,1163) - lu(k,1183) = lu(k,1183) - lu(k,765) * lu(k,1163) - lu(k,1184) = lu(k,1184) - lu(k,766) * lu(k,1163) - lu(k,1185) = lu(k,1185) - lu(k,767) * lu(k,1163) - lu(k,1186) = lu(k,1186) - lu(k,768) * lu(k,1163) - lu(k,1187) = lu(k,1187) - lu(k,769) * lu(k,1163) - lu(k,1188) = lu(k,1188) - lu(k,770) * lu(k,1163) - lu(k,1221) = lu(k,1221) - lu(k,750) * lu(k,1219) - lu(k,1222) = lu(k,1222) - lu(k,751) * lu(k,1219) - lu(k,1224) = lu(k,1224) - lu(k,752) * lu(k,1219) - lu(k,1225) = lu(k,1225) - lu(k,753) * lu(k,1219) - lu(k,1226) = lu(k,1226) - lu(k,754) * lu(k,1219) - lu(k,1227) = lu(k,1227) - lu(k,755) * lu(k,1219) - lu(k,1228) = lu(k,1228) - lu(k,756) * lu(k,1219) - lu(k,1229) = lu(k,1229) - lu(k,757) * lu(k,1219) - lu(k,1230) = lu(k,1230) - lu(k,758) * lu(k,1219) - lu(k,1231) = lu(k,1231) - lu(k,759) * lu(k,1219) - lu(k,1232) = lu(k,1232) - lu(k,760) * lu(k,1219) - lu(k,1233) = lu(k,1233) - lu(k,761) * lu(k,1219) - lu(k,1234) = lu(k,1234) - lu(k,762) * lu(k,1219) - lu(k,1235) = lu(k,1235) - lu(k,763) * lu(k,1219) - lu(k,1237) = lu(k,1237) - lu(k,764) * lu(k,1219) - lu(k,1239) = lu(k,1239) - lu(k,765) * lu(k,1219) - lu(k,1240) = lu(k,1240) - lu(k,766) * lu(k,1219) - lu(k,1241) = lu(k,1241) - lu(k,767) * lu(k,1219) - lu(k,1242) = lu(k,1242) - lu(k,768) * lu(k,1219) - lu(k,1243) = lu(k,1243) - lu(k,769) * lu(k,1219) - lu(k,1244) = lu(k,1244) - lu(k,770) * lu(k,1219) - lu(k,1259) = lu(k,1259) - lu(k,750) * lu(k,1257) - lu(k,1260) = lu(k,1260) - lu(k,751) * lu(k,1257) - lu(k,1262) = lu(k,1262) - lu(k,752) * lu(k,1257) - lu(k,1263) = lu(k,1263) - lu(k,753) * lu(k,1257) - lu(k,1264) = lu(k,1264) - lu(k,754) * lu(k,1257) - lu(k,1265) = lu(k,1265) - lu(k,755) * lu(k,1257) - lu(k,1266) = lu(k,1266) - lu(k,756) * lu(k,1257) - lu(k,1267) = lu(k,1267) - lu(k,757) * lu(k,1257) - lu(k,1268) = lu(k,1268) - lu(k,758) * lu(k,1257) - lu(k,1269) = lu(k,1269) - lu(k,759) * lu(k,1257) - lu(k,1270) = lu(k,1270) - lu(k,760) * lu(k,1257) - lu(k,1271) = lu(k,1271) - lu(k,761) * lu(k,1257) - lu(k,1272) = lu(k,1272) - lu(k,762) * lu(k,1257) - lu(k,1273) = lu(k,1273) - lu(k,763) * lu(k,1257) - lu(k,1275) = lu(k,1275) - lu(k,764) * lu(k,1257) - lu(k,1277) = lu(k,1277) - lu(k,765) * lu(k,1257) - lu(k,1278) = lu(k,1278) - lu(k,766) * lu(k,1257) - lu(k,1279) = lu(k,1279) - lu(k,767) * lu(k,1257) - lu(k,1280) = lu(k,1280) - lu(k,768) * lu(k,1257) - lu(k,1281) = lu(k,1281) - lu(k,769) * lu(k,1257) - lu(k,1282) = lu(k,1282) - lu(k,770) * lu(k,1257) - lu(k,1295) = lu(k,1295) - lu(k,750) * lu(k,1293) - lu(k,1296) = lu(k,1296) - lu(k,751) * lu(k,1293) - lu(k,1298) = lu(k,1298) - lu(k,752) * lu(k,1293) - lu(k,1299) = lu(k,1299) - lu(k,753) * lu(k,1293) - lu(k,1300) = lu(k,1300) - lu(k,754) * lu(k,1293) - lu(k,1301) = lu(k,1301) - lu(k,755) * lu(k,1293) - lu(k,1302) = lu(k,1302) - lu(k,756) * lu(k,1293) - lu(k,1303) = lu(k,1303) - lu(k,757) * lu(k,1293) - lu(k,1304) = lu(k,1304) - lu(k,758) * lu(k,1293) - lu(k,1305) = lu(k,1305) - lu(k,759) * lu(k,1293) - lu(k,1306) = lu(k,1306) - lu(k,760) * lu(k,1293) - lu(k,1307) = lu(k,1307) - lu(k,761) * lu(k,1293) - lu(k,1308) = lu(k,1308) - lu(k,762) * lu(k,1293) - lu(k,1309) = lu(k,1309) - lu(k,763) * lu(k,1293) - lu(k,1311) = lu(k,1311) - lu(k,764) * lu(k,1293) - lu(k,1313) = lu(k,1313) - lu(k,765) * lu(k,1293) - lu(k,1314) = lu(k,1314) - lu(k,766) * lu(k,1293) - lu(k,1315) = lu(k,1315) - lu(k,767) * lu(k,1293) - lu(k,1316) = lu(k,1316) - lu(k,768) * lu(k,1293) - lu(k,1317) = lu(k,1317) - lu(k,769) * lu(k,1293) - lu(k,1318) = lu(k,1318) - lu(k,770) * lu(k,1293) - lu(k,1340) = lu(k,1340) - lu(k,750) * lu(k,1338) - lu(k,1341) = lu(k,1341) - lu(k,751) * lu(k,1338) - lu(k,1343) = lu(k,1343) - lu(k,752) * lu(k,1338) - lu(k,1344) = lu(k,1344) - lu(k,753) * lu(k,1338) - lu(k,1345) = lu(k,1345) - lu(k,754) * lu(k,1338) - lu(k,1346) = lu(k,1346) - lu(k,755) * lu(k,1338) - lu(k,1347) = lu(k,1347) - lu(k,756) * lu(k,1338) - lu(k,1348) = lu(k,1348) - lu(k,757) * lu(k,1338) - lu(k,1349) = lu(k,1349) - lu(k,758) * lu(k,1338) - lu(k,1350) = lu(k,1350) - lu(k,759) * lu(k,1338) - lu(k,1351) = lu(k,1351) - lu(k,760) * lu(k,1338) - lu(k,1352) = lu(k,1352) - lu(k,761) * lu(k,1338) - lu(k,1353) = lu(k,1353) - lu(k,762) * lu(k,1338) - lu(k,1354) = lu(k,1354) - lu(k,763) * lu(k,1338) - lu(k,1356) = lu(k,1356) - lu(k,764) * lu(k,1338) - lu(k,1358) = lu(k,1358) - lu(k,765) * lu(k,1338) - lu(k,1359) = lu(k,1359) - lu(k,766) * lu(k,1338) - lu(k,1360) = lu(k,1360) - lu(k,767) * lu(k,1338) - lu(k,1361) = lu(k,1361) - lu(k,768) * lu(k,1338) - lu(k,1362) = lu(k,1362) - lu(k,769) * lu(k,1338) - lu(k,1363) = lu(k,1363) - lu(k,770) * lu(k,1338) - lu(k,1383) = lu(k,1383) - lu(k,750) * lu(k,1381) - lu(k,1384) = lu(k,1384) - lu(k,751) * lu(k,1381) - lu(k,1386) = lu(k,1386) - lu(k,752) * lu(k,1381) - lu(k,1387) = lu(k,1387) - lu(k,753) * lu(k,1381) - lu(k,1388) = lu(k,1388) - lu(k,754) * lu(k,1381) - lu(k,1389) = lu(k,1389) - lu(k,755) * lu(k,1381) - lu(k,1390) = lu(k,1390) - lu(k,756) * lu(k,1381) - lu(k,1391) = lu(k,1391) - lu(k,757) * lu(k,1381) - lu(k,1392) = lu(k,1392) - lu(k,758) * lu(k,1381) - lu(k,1393) = lu(k,1393) - lu(k,759) * lu(k,1381) - lu(k,1394) = lu(k,1394) - lu(k,760) * lu(k,1381) - lu(k,1395) = lu(k,1395) - lu(k,761) * lu(k,1381) - lu(k,1396) = lu(k,1396) - lu(k,762) * lu(k,1381) - lu(k,1397) = lu(k,1397) - lu(k,763) * lu(k,1381) - lu(k,1399) = lu(k,1399) - lu(k,764) * lu(k,1381) - lu(k,1401) = lu(k,1401) - lu(k,765) * lu(k,1381) - lu(k,1402) = lu(k,1402) - lu(k,766) * lu(k,1381) - lu(k,1403) = lu(k,1403) - lu(k,767) * lu(k,1381) - lu(k,1404) = lu(k,1404) - lu(k,768) * lu(k,1381) - lu(k,1405) = lu(k,1405) - lu(k,769) * lu(k,1381) - lu(k,1406) = lu(k,1406) - lu(k,770) * lu(k,1381) - lu(k,1418) = lu(k,1418) - lu(k,750) * lu(k,1417) - lu(k,1419) = lu(k,1419) - lu(k,751) * lu(k,1417) - lu(k,1421) = lu(k,1421) - lu(k,752) * lu(k,1417) - lu(k,1422) = lu(k,1422) - lu(k,753) * lu(k,1417) - lu(k,1423) = lu(k,1423) - lu(k,754) * lu(k,1417) - lu(k,1424) = lu(k,1424) - lu(k,755) * lu(k,1417) - lu(k,1425) = lu(k,1425) - lu(k,756) * lu(k,1417) - lu(k,1426) = lu(k,1426) - lu(k,757) * lu(k,1417) - lu(k,1427) = lu(k,1427) - lu(k,758) * lu(k,1417) - lu(k,1428) = lu(k,1428) - lu(k,759) * lu(k,1417) - lu(k,1429) = lu(k,1429) - lu(k,760) * lu(k,1417) - lu(k,1430) = lu(k,1430) - lu(k,761) * lu(k,1417) - lu(k,1431) = lu(k,1431) - lu(k,762) * lu(k,1417) - lu(k,1432) = lu(k,1432) - lu(k,763) * lu(k,1417) - lu(k,1434) = lu(k,1434) - lu(k,764) * lu(k,1417) - lu(k,1436) = lu(k,1436) - lu(k,765) * lu(k,1417) - lu(k,1437) = lu(k,1437) - lu(k,766) * lu(k,1417) - lu(k,1438) = lu(k,1438) - lu(k,767) * lu(k,1417) - lu(k,1439) = lu(k,1439) - lu(k,768) * lu(k,1417) - lu(k,1440) = lu(k,1440) - lu(k,769) * lu(k,1417) - lu(k,1441) = lu(k,1441) - lu(k,770) * lu(k,1417) - lu(k,1461) = lu(k,1461) - lu(k,750) * lu(k,1459) - lu(k,1462) = lu(k,1462) - lu(k,751) * lu(k,1459) - lu(k,1464) = lu(k,1464) - lu(k,752) * lu(k,1459) - lu(k,1465) = lu(k,1465) - lu(k,753) * lu(k,1459) - lu(k,1466) = lu(k,1466) - lu(k,754) * lu(k,1459) - lu(k,1467) = lu(k,1467) - lu(k,755) * lu(k,1459) - lu(k,1468) = lu(k,1468) - lu(k,756) * lu(k,1459) - lu(k,1469) = lu(k,1469) - lu(k,757) * lu(k,1459) - lu(k,1470) = lu(k,1470) - lu(k,758) * lu(k,1459) - lu(k,1471) = lu(k,1471) - lu(k,759) * lu(k,1459) - lu(k,1472) = lu(k,1472) - lu(k,760) * lu(k,1459) - lu(k,1473) = lu(k,1473) - lu(k,761) * lu(k,1459) - lu(k,1474) = lu(k,1474) - lu(k,762) * lu(k,1459) - lu(k,1475) = lu(k,1475) - lu(k,763) * lu(k,1459) - lu(k,1477) = lu(k,1477) - lu(k,764) * lu(k,1459) - lu(k,1479) = lu(k,1479) - lu(k,765) * lu(k,1459) - lu(k,1480) = lu(k,1480) - lu(k,766) * lu(k,1459) - lu(k,1481) = lu(k,1481) - lu(k,767) * lu(k,1459) - lu(k,1482) = lu(k,1482) - lu(k,768) * lu(k,1459) - lu(k,1483) = lu(k,1483) - lu(k,769) * lu(k,1459) - lu(k,1484) = lu(k,1484) - lu(k,770) * lu(k,1459) - lu(k,1504) = lu(k,1504) - lu(k,750) * lu(k,1502) - lu(k,1505) = lu(k,1505) - lu(k,751) * lu(k,1502) - lu(k,1507) = lu(k,1507) - lu(k,752) * lu(k,1502) - lu(k,1508) = lu(k,1508) - lu(k,753) * lu(k,1502) - lu(k,1509) = lu(k,1509) - lu(k,754) * lu(k,1502) - lu(k,1510) = lu(k,1510) - lu(k,755) * lu(k,1502) - lu(k,1511) = lu(k,1511) - lu(k,756) * lu(k,1502) - lu(k,1512) = lu(k,1512) - lu(k,757) * lu(k,1502) - lu(k,1513) = lu(k,1513) - lu(k,758) * lu(k,1502) - lu(k,1514) = lu(k,1514) - lu(k,759) * lu(k,1502) - lu(k,1515) = lu(k,1515) - lu(k,760) * lu(k,1502) - lu(k,1516) = lu(k,1516) - lu(k,761) * lu(k,1502) - lu(k,1517) = lu(k,1517) - lu(k,762) * lu(k,1502) - lu(k,1518) = lu(k,1518) - lu(k,763) * lu(k,1502) - lu(k,1520) = lu(k,1520) - lu(k,764) * lu(k,1502) - lu(k,1522) = lu(k,1522) - lu(k,765) * lu(k,1502) - lu(k,1523) = lu(k,1523) - lu(k,766) * lu(k,1502) - lu(k,1524) = lu(k,1524) - lu(k,767) * lu(k,1502) - lu(k,1525) = lu(k,1525) - lu(k,768) * lu(k,1502) - lu(k,1526) = lu(k,1526) - lu(k,769) * lu(k,1502) - lu(k,1527) = lu(k,1527) - lu(k,770) * lu(k,1502) - lu(k,1547) = lu(k,1547) - lu(k,750) * lu(k,1545) - lu(k,1548) = lu(k,1548) - lu(k,751) * lu(k,1545) - lu(k,1550) = lu(k,1550) - lu(k,752) * lu(k,1545) - lu(k,1551) = lu(k,1551) - lu(k,753) * lu(k,1545) - lu(k,1552) = lu(k,1552) - lu(k,754) * lu(k,1545) - lu(k,1553) = lu(k,1553) - lu(k,755) * lu(k,1545) - lu(k,1554) = lu(k,1554) - lu(k,756) * lu(k,1545) - lu(k,1555) = lu(k,1555) - lu(k,757) * lu(k,1545) - lu(k,1556) = lu(k,1556) - lu(k,758) * lu(k,1545) - lu(k,1557) = lu(k,1557) - lu(k,759) * lu(k,1545) - lu(k,1558) = lu(k,1558) - lu(k,760) * lu(k,1545) - lu(k,1559) = lu(k,1559) - lu(k,761) * lu(k,1545) - lu(k,1560) = lu(k,1560) - lu(k,762) * lu(k,1545) - lu(k,1561) = lu(k,1561) - lu(k,763) * lu(k,1545) - lu(k,1563) = lu(k,1563) - lu(k,764) * lu(k,1545) - lu(k,1565) = lu(k,1565) - lu(k,765) * lu(k,1545) - lu(k,1566) = lu(k,1566) - lu(k,766) * lu(k,1545) - lu(k,1567) = lu(k,1567) - lu(k,767) * lu(k,1545) - lu(k,1568) = lu(k,1568) - lu(k,768) * lu(k,1545) - lu(k,1569) = lu(k,1569) - lu(k,769) * lu(k,1545) - lu(k,1570) = lu(k,1570) - lu(k,770) * lu(k,1545) - lu(k,1580) = lu(k,1580) - lu(k,750) * lu(k,1578) - lu(k,1581) = lu(k,1581) - lu(k,751) * lu(k,1578) - lu(k,1583) = lu(k,1583) - lu(k,752) * lu(k,1578) - lu(k,1584) = lu(k,1584) - lu(k,753) * lu(k,1578) - lu(k,1585) = lu(k,1585) - lu(k,754) * lu(k,1578) - lu(k,1586) = lu(k,1586) - lu(k,755) * lu(k,1578) - lu(k,1587) = lu(k,1587) - lu(k,756) * lu(k,1578) - lu(k,1588) = lu(k,1588) - lu(k,757) * lu(k,1578) - lu(k,1589) = lu(k,1589) - lu(k,758) * lu(k,1578) - lu(k,1590) = lu(k,1590) - lu(k,759) * lu(k,1578) - lu(k,1591) = lu(k,1591) - lu(k,760) * lu(k,1578) - lu(k,1592) = lu(k,1592) - lu(k,761) * lu(k,1578) - lu(k,1593) = lu(k,1593) - lu(k,762) * lu(k,1578) - lu(k,1594) = lu(k,1594) - lu(k,763) * lu(k,1578) - lu(k,1596) = lu(k,1596) - lu(k,764) * lu(k,1578) - lu(k,1598) = lu(k,1598) - lu(k,765) * lu(k,1578) - lu(k,1599) = lu(k,1599) - lu(k,766) * lu(k,1578) - lu(k,1600) = lu(k,1600) - lu(k,767) * lu(k,1578) - lu(k,1601) = lu(k,1601) - lu(k,768) * lu(k,1578) - lu(k,1602) = lu(k,1602) - lu(k,769) * lu(k,1578) - lu(k,1603) = lu(k,1603) - lu(k,770) * lu(k,1578) - lu(k,1616) = lu(k,1616) - lu(k,750) * lu(k,1614) - lu(k,1617) = lu(k,1617) - lu(k,751) * lu(k,1614) - lu(k,1619) = lu(k,1619) - lu(k,752) * lu(k,1614) - lu(k,1620) = lu(k,1620) - lu(k,753) * lu(k,1614) - lu(k,1621) = lu(k,1621) - lu(k,754) * lu(k,1614) - lu(k,1622) = lu(k,1622) - lu(k,755) * lu(k,1614) - lu(k,1623) = lu(k,1623) - lu(k,756) * lu(k,1614) - lu(k,1624) = lu(k,1624) - lu(k,757) * lu(k,1614) - lu(k,1625) = lu(k,1625) - lu(k,758) * lu(k,1614) - lu(k,1626) = lu(k,1626) - lu(k,759) * lu(k,1614) - lu(k,1627) = lu(k,1627) - lu(k,760) * lu(k,1614) - lu(k,1628) = lu(k,1628) - lu(k,761) * lu(k,1614) - lu(k,1629) = lu(k,1629) - lu(k,762) * lu(k,1614) - lu(k,1630) = lu(k,1630) - lu(k,763) * lu(k,1614) - lu(k,1632) = lu(k,1632) - lu(k,764) * lu(k,1614) - lu(k,1634) = lu(k,1634) - lu(k,765) * lu(k,1614) - lu(k,1635) = lu(k,1635) - lu(k,766) * lu(k,1614) - lu(k,1636) = lu(k,1636) - lu(k,767) * lu(k,1614) - lu(k,1637) = lu(k,1637) - lu(k,768) * lu(k,1614) - lu(k,1638) = lu(k,1638) - lu(k,769) * lu(k,1614) - lu(k,1639) = lu(k,1639) - lu(k,770) * lu(k,1614) - lu(k,1659) = lu(k,1659) - lu(k,750) * lu(k,1657) - lu(k,1660) = lu(k,1660) - lu(k,751) * lu(k,1657) - lu(k,1662) = lu(k,1662) - lu(k,752) * lu(k,1657) - lu(k,1663) = lu(k,1663) - lu(k,753) * lu(k,1657) - lu(k,1664) = lu(k,1664) - lu(k,754) * lu(k,1657) - lu(k,1665) = lu(k,1665) - lu(k,755) * lu(k,1657) - lu(k,1666) = lu(k,1666) - lu(k,756) * lu(k,1657) - lu(k,1667) = lu(k,1667) - lu(k,757) * lu(k,1657) - lu(k,1668) = lu(k,1668) - lu(k,758) * lu(k,1657) - lu(k,1669) = lu(k,1669) - lu(k,759) * lu(k,1657) - lu(k,1670) = lu(k,1670) - lu(k,760) * lu(k,1657) - lu(k,1671) = lu(k,1671) - lu(k,761) * lu(k,1657) - lu(k,1672) = lu(k,1672) - lu(k,762) * lu(k,1657) - lu(k,1673) = lu(k,1673) - lu(k,763) * lu(k,1657) - lu(k,1675) = lu(k,1675) - lu(k,764) * lu(k,1657) - lu(k,1677) = lu(k,1677) - lu(k,765) * lu(k,1657) - lu(k,1678) = lu(k,1678) - lu(k,766) * lu(k,1657) - lu(k,1679) = lu(k,1679) - lu(k,767) * lu(k,1657) - lu(k,1680) = lu(k,1680) - lu(k,768) * lu(k,1657) - lu(k,1681) = lu(k,1681) - lu(k,769) * lu(k,1657) - lu(k,1682) = lu(k,1682) - lu(k,770) * lu(k,1657) - lu(k,1695) = lu(k,1695) - lu(k,750) * lu(k,1693) - lu(k,1696) = lu(k,1696) - lu(k,751) * lu(k,1693) - lu(k,1698) = lu(k,1698) - lu(k,752) * lu(k,1693) - lu(k,1699) = lu(k,1699) - lu(k,753) * lu(k,1693) - lu(k,1700) = lu(k,1700) - lu(k,754) * lu(k,1693) - lu(k,1701) = lu(k,1701) - lu(k,755) * lu(k,1693) - lu(k,1702) = lu(k,1702) - lu(k,756) * lu(k,1693) - lu(k,1703) = lu(k,1703) - lu(k,757) * lu(k,1693) - lu(k,1704) = lu(k,1704) - lu(k,758) * lu(k,1693) - lu(k,1705) = lu(k,1705) - lu(k,759) * lu(k,1693) - lu(k,1706) = lu(k,1706) - lu(k,760) * lu(k,1693) - lu(k,1707) = lu(k,1707) - lu(k,761) * lu(k,1693) - lu(k,1708) = lu(k,1708) - lu(k,762) * lu(k,1693) - lu(k,1709) = lu(k,1709) - lu(k,763) * lu(k,1693) - lu(k,1711) = lu(k,1711) - lu(k,764) * lu(k,1693) - lu(k,1713) = lu(k,1713) - lu(k,765) * lu(k,1693) - lu(k,1714) = lu(k,1714) - lu(k,766) * lu(k,1693) - lu(k,1715) = lu(k,1715) - lu(k,767) * lu(k,1693) - lu(k,1716) = lu(k,1716) - lu(k,768) * lu(k,1693) - lu(k,1717) = lu(k,1717) - lu(k,769) * lu(k,1693) - lu(k,1718) = lu(k,1718) - lu(k,770) * lu(k,1693) - lu(k,1740) = lu(k,1740) - lu(k,750) * lu(k,1738) - lu(k,1741) = lu(k,1741) - lu(k,751) * lu(k,1738) - lu(k,1743) = lu(k,1743) - lu(k,752) * lu(k,1738) - lu(k,1744) = lu(k,1744) - lu(k,753) * lu(k,1738) - lu(k,1745) = lu(k,1745) - lu(k,754) * lu(k,1738) - lu(k,1746) = lu(k,1746) - lu(k,755) * lu(k,1738) - lu(k,1747) = lu(k,1747) - lu(k,756) * lu(k,1738) - lu(k,1748) = lu(k,1748) - lu(k,757) * lu(k,1738) - lu(k,1749) = lu(k,1749) - lu(k,758) * lu(k,1738) - lu(k,1750) = lu(k,1750) - lu(k,759) * lu(k,1738) - lu(k,1751) = lu(k,1751) - lu(k,760) * lu(k,1738) - lu(k,1752) = lu(k,1752) - lu(k,761) * lu(k,1738) - lu(k,1753) = lu(k,1753) - lu(k,762) * lu(k,1738) - lu(k,1754) = lu(k,1754) - lu(k,763) * lu(k,1738) - lu(k,1756) = lu(k,1756) - lu(k,764) * lu(k,1738) - lu(k,1758) = lu(k,1758) - lu(k,765) * lu(k,1738) - lu(k,1759) = lu(k,1759) - lu(k,766) * lu(k,1738) - lu(k,1760) = lu(k,1760) - lu(k,767) * lu(k,1738) - lu(k,1761) = lu(k,1761) - lu(k,768) * lu(k,1738) - lu(k,1762) = lu(k,1762) - lu(k,769) * lu(k,1738) - lu(k,1763) = lu(k,1763) - lu(k,770) * lu(k,1738) - lu(k,1793) = lu(k,1793) - lu(k,750) * lu(k,1791) - lu(k,1794) = lu(k,1794) - lu(k,751) * lu(k,1791) - lu(k,1796) = lu(k,1796) - lu(k,752) * lu(k,1791) - lu(k,1797) = lu(k,1797) - lu(k,753) * lu(k,1791) - lu(k,1798) = lu(k,1798) - lu(k,754) * lu(k,1791) - lu(k,1799) = lu(k,1799) - lu(k,755) * lu(k,1791) - lu(k,1800) = lu(k,1800) - lu(k,756) * lu(k,1791) - lu(k,1801) = lu(k,1801) - lu(k,757) * lu(k,1791) - lu(k,1802) = lu(k,1802) - lu(k,758) * lu(k,1791) - lu(k,1803) = lu(k,1803) - lu(k,759) * lu(k,1791) - lu(k,1804) = lu(k,1804) - lu(k,760) * lu(k,1791) - lu(k,1805) = lu(k,1805) - lu(k,761) * lu(k,1791) - lu(k,1806) = lu(k,1806) - lu(k,762) * lu(k,1791) - lu(k,1807) = lu(k,1807) - lu(k,763) * lu(k,1791) - lu(k,1809) = lu(k,1809) - lu(k,764) * lu(k,1791) - lu(k,1811) = lu(k,1811) - lu(k,765) * lu(k,1791) - lu(k,1812) = lu(k,1812) - lu(k,766) * lu(k,1791) - lu(k,1813) = lu(k,1813) - lu(k,767) * lu(k,1791) - lu(k,1814) = lu(k,1814) - lu(k,768) * lu(k,1791) - lu(k,1815) = lu(k,1815) - lu(k,769) * lu(k,1791) - lu(k,1816) = lu(k,1816) - lu(k,770) * lu(k,1791) - lu(k,779) = 1._r8 / lu(k,779) - lu(k,780) = lu(k,780) * lu(k,779) - lu(k,781) = lu(k,781) * lu(k,779) - lu(k,782) = lu(k,782) * lu(k,779) - lu(k,783) = lu(k,783) * lu(k,779) - lu(k,784) = lu(k,784) * lu(k,779) - lu(k,785) = lu(k,785) * lu(k,779) - lu(k,786) = lu(k,786) * lu(k,779) - lu(k,787) = lu(k,787) * lu(k,779) - lu(k,788) = lu(k,788) * lu(k,779) - lu(k,789) = lu(k,789) * lu(k,779) - lu(k,790) = lu(k,790) * lu(k,779) - lu(k,791) = lu(k,791) * lu(k,779) - lu(k,792) = lu(k,792) * lu(k,779) - lu(k,793) = lu(k,793) * lu(k,779) - lu(k,794) = lu(k,794) * lu(k,779) - lu(k,795) = lu(k,795) * lu(k,779) - lu(k,796) = lu(k,796) * lu(k,779) - lu(k,797) = lu(k,797) * lu(k,779) - lu(k,798) = lu(k,798) * lu(k,779) - lu(k,799) = lu(k,799) * lu(k,779) - lu(k,800) = lu(k,800) * lu(k,779) - lu(k,801) = lu(k,801) * lu(k,779) - lu(k,802) = lu(k,802) * lu(k,779) - lu(k,803) = lu(k,803) * lu(k,779) - lu(k,823) = lu(k,823) - lu(k,780) * lu(k,822) - lu(k,824) = lu(k,824) - lu(k,781) * lu(k,822) - lu(k,825) = lu(k,825) - lu(k,782) * lu(k,822) - lu(k,826) = lu(k,826) - lu(k,783) * lu(k,822) - lu(k,827) = lu(k,827) - lu(k,784) * lu(k,822) - lu(k,828) = lu(k,828) - lu(k,785) * lu(k,822) - lu(k,829) = lu(k,829) - lu(k,786) * lu(k,822) - lu(k,830) = lu(k,830) - lu(k,787) * lu(k,822) - lu(k,831) = lu(k,831) - lu(k,788) * lu(k,822) - lu(k,832) = lu(k,832) - lu(k,789) * lu(k,822) - lu(k,833) = lu(k,833) - lu(k,790) * lu(k,822) - lu(k,834) = lu(k,834) - lu(k,791) * lu(k,822) - lu(k,835) = lu(k,835) - lu(k,792) * lu(k,822) - lu(k,836) = lu(k,836) - lu(k,793) * lu(k,822) - lu(k,837) = lu(k,837) - lu(k,794) * lu(k,822) - lu(k,838) = lu(k,838) - lu(k,795) * lu(k,822) - lu(k,839) = lu(k,839) - lu(k,796) * lu(k,822) - lu(k,840) = lu(k,840) - lu(k,797) * lu(k,822) - lu(k,841) = lu(k,841) - lu(k,798) * lu(k,822) - lu(k,842) = lu(k,842) - lu(k,799) * lu(k,822) - lu(k,843) = lu(k,843) - lu(k,800) * lu(k,822) - lu(k,844) = lu(k,844) - lu(k,801) * lu(k,822) - lu(k,845) = lu(k,845) - lu(k,802) * lu(k,822) - lu(k,846) = lu(k,846) - lu(k,803) * lu(k,822) - lu(k,869) = lu(k,869) - lu(k,780) * lu(k,868) - lu(k,870) = lu(k,870) - lu(k,781) * lu(k,868) - lu(k,871) = lu(k,871) - lu(k,782) * lu(k,868) - lu(k,872) = lu(k,872) - lu(k,783) * lu(k,868) - lu(k,873) = lu(k,873) - lu(k,784) * lu(k,868) - lu(k,874) = lu(k,874) - lu(k,785) * lu(k,868) - lu(k,875) = lu(k,875) - lu(k,786) * lu(k,868) - lu(k,876) = lu(k,876) - lu(k,787) * lu(k,868) - lu(k,877) = lu(k,877) - lu(k,788) * lu(k,868) - lu(k,878) = lu(k,878) - lu(k,789) * lu(k,868) - lu(k,879) = lu(k,879) - lu(k,790) * lu(k,868) - lu(k,880) = lu(k,880) - lu(k,791) * lu(k,868) - lu(k,881) = lu(k,881) - lu(k,792) * lu(k,868) - lu(k,882) = lu(k,882) - lu(k,793) * lu(k,868) - lu(k,883) = lu(k,883) - lu(k,794) * lu(k,868) - lu(k,884) = lu(k,884) - lu(k,795) * lu(k,868) - lu(k,885) = lu(k,885) - lu(k,796) * lu(k,868) - lu(k,886) = lu(k,886) - lu(k,797) * lu(k,868) - lu(k,887) = lu(k,887) - lu(k,798) * lu(k,868) - lu(k,888) = lu(k,888) - lu(k,799) * lu(k,868) - lu(k,889) = lu(k,889) - lu(k,800) * lu(k,868) - lu(k,890) = lu(k,890) - lu(k,801) * lu(k,868) - lu(k,891) = lu(k,891) - lu(k,802) * lu(k,868) - lu(k,892) = lu(k,892) - lu(k,803) * lu(k,868) - lu(k,912) = lu(k,912) - lu(k,780) * lu(k,911) - lu(k,913) = lu(k,913) - lu(k,781) * lu(k,911) - lu(k,914) = lu(k,914) - lu(k,782) * lu(k,911) - lu(k,915) = lu(k,915) - lu(k,783) * lu(k,911) - lu(k,916) = lu(k,916) - lu(k,784) * lu(k,911) - lu(k,917) = lu(k,917) - lu(k,785) * lu(k,911) - lu(k,918) = lu(k,918) - lu(k,786) * lu(k,911) - lu(k,919) = lu(k,919) - lu(k,787) * lu(k,911) - lu(k,920) = lu(k,920) - lu(k,788) * lu(k,911) - lu(k,921) = lu(k,921) - lu(k,789) * lu(k,911) - lu(k,922) = lu(k,922) - lu(k,790) * lu(k,911) - lu(k,923) = lu(k,923) - lu(k,791) * lu(k,911) - lu(k,924) = lu(k,924) - lu(k,792) * lu(k,911) - lu(k,925) = lu(k,925) - lu(k,793) * lu(k,911) - lu(k,926) = lu(k,926) - lu(k,794) * lu(k,911) - lu(k,927) = lu(k,927) - lu(k,795) * lu(k,911) - lu(k,928) = lu(k,928) - lu(k,796) * lu(k,911) - lu(k,929) = lu(k,929) - lu(k,797) * lu(k,911) - lu(k,930) = lu(k,930) - lu(k,798) * lu(k,911) - lu(k,931) = lu(k,931) - lu(k,799) * lu(k,911) - lu(k,932) = lu(k,932) - lu(k,800) * lu(k,911) - lu(k,933) = lu(k,933) - lu(k,801) * lu(k,911) - lu(k,934) = lu(k,934) - lu(k,802) * lu(k,911) - lu(k,935) = lu(k,935) - lu(k,803) * lu(k,911) - lu(k,997) = lu(k,997) - lu(k,780) * lu(k,996) - lu(k,998) = lu(k,998) - lu(k,781) * lu(k,996) - lu(k,999) = lu(k,999) - lu(k,782) * lu(k,996) - lu(k,1000) = lu(k,1000) - lu(k,783) * lu(k,996) - lu(k,1001) = lu(k,1001) - lu(k,784) * lu(k,996) - lu(k,1002) = lu(k,1002) - lu(k,785) * lu(k,996) - lu(k,1003) = lu(k,1003) - lu(k,786) * lu(k,996) - lu(k,1004) = lu(k,1004) - lu(k,787) * lu(k,996) - lu(k,1005) = lu(k,1005) - lu(k,788) * lu(k,996) - lu(k,1006) = lu(k,1006) - lu(k,789) * lu(k,996) - lu(k,1007) = lu(k,1007) - lu(k,790) * lu(k,996) - lu(k,1008) = lu(k,1008) - lu(k,791) * lu(k,996) - lu(k,1009) = lu(k,1009) - lu(k,792) * lu(k,996) - lu(k,1010) = lu(k,1010) - lu(k,793) * lu(k,996) - lu(k,1011) = lu(k,1011) - lu(k,794) * lu(k,996) - lu(k,1012) = lu(k,1012) - lu(k,795) * lu(k,996) - lu(k,1013) = lu(k,1013) - lu(k,796) * lu(k,996) - lu(k,1014) = lu(k,1014) - lu(k,797) * lu(k,996) - lu(k,1015) = lu(k,1015) - lu(k,798) * lu(k,996) - lu(k,1016) = lu(k,1016) - lu(k,799) * lu(k,996) - lu(k,1017) = lu(k,1017) - lu(k,800) * lu(k,996) - lu(k,1018) = lu(k,1018) - lu(k,801) * lu(k,996) - lu(k,1019) = lu(k,1019) - lu(k,802) * lu(k,996) - lu(k,1020) = lu(k,1020) - lu(k,803) * lu(k,996) - lu(k,1039) = lu(k,1039) - lu(k,780) * lu(k,1038) - lu(k,1040) = lu(k,1040) - lu(k,781) * lu(k,1038) - lu(k,1041) = lu(k,1041) - lu(k,782) * lu(k,1038) - lu(k,1042) = lu(k,1042) - lu(k,783) * lu(k,1038) - lu(k,1043) = lu(k,1043) - lu(k,784) * lu(k,1038) - lu(k,1044) = lu(k,1044) - lu(k,785) * lu(k,1038) - lu(k,1045) = lu(k,1045) - lu(k,786) * lu(k,1038) - lu(k,1046) = lu(k,1046) - lu(k,787) * lu(k,1038) - lu(k,1047) = lu(k,1047) - lu(k,788) * lu(k,1038) - lu(k,1048) = lu(k,1048) - lu(k,789) * lu(k,1038) - lu(k,1049) = lu(k,1049) - lu(k,790) * lu(k,1038) - lu(k,1050) = lu(k,1050) - lu(k,791) * lu(k,1038) - lu(k,1051) = lu(k,1051) - lu(k,792) * lu(k,1038) - lu(k,1052) = lu(k,1052) - lu(k,793) * lu(k,1038) - lu(k,1053) = lu(k,1053) - lu(k,794) * lu(k,1038) - lu(k,1054) = lu(k,1054) - lu(k,795) * lu(k,1038) - lu(k,1055) = lu(k,1055) - lu(k,796) * lu(k,1038) - lu(k,1056) = lu(k,1056) - lu(k,797) * lu(k,1038) - lu(k,1057) = lu(k,1057) - lu(k,798) * lu(k,1038) - lu(k,1058) = lu(k,1058) - lu(k,799) * lu(k,1038) - lu(k,1059) = lu(k,1059) - lu(k,800) * lu(k,1038) - lu(k,1060) = lu(k,1060) - lu(k,801) * lu(k,1038) - lu(k,1061) = lu(k,1061) - lu(k,802) * lu(k,1038) - lu(k,1062) = lu(k,1062) - lu(k,803) * lu(k,1038) - lu(k,1080) = lu(k,1080) - lu(k,780) * lu(k,1079) - lu(k,1081) = lu(k,1081) - lu(k,781) * lu(k,1079) - lu(k,1082) = lu(k,1082) - lu(k,782) * lu(k,1079) - lu(k,1083) = lu(k,1083) - lu(k,783) * lu(k,1079) - lu(k,1084) = lu(k,1084) - lu(k,784) * lu(k,1079) - lu(k,1085) = lu(k,1085) - lu(k,785) * lu(k,1079) - lu(k,1086) = lu(k,1086) - lu(k,786) * lu(k,1079) - lu(k,1087) = lu(k,1087) - lu(k,787) * lu(k,1079) - lu(k,1088) = lu(k,1088) - lu(k,788) * lu(k,1079) - lu(k,1089) = lu(k,1089) - lu(k,789) * lu(k,1079) - lu(k,1090) = lu(k,1090) - lu(k,790) * lu(k,1079) - lu(k,1091) = lu(k,1091) - lu(k,791) * lu(k,1079) - lu(k,1092) = lu(k,1092) - lu(k,792) * lu(k,1079) - lu(k,1093) = lu(k,1093) - lu(k,793) * lu(k,1079) - lu(k,1094) = lu(k,1094) - lu(k,794) * lu(k,1079) - lu(k,1095) = lu(k,1095) - lu(k,795) * lu(k,1079) - lu(k,1096) = lu(k,1096) - lu(k,796) * lu(k,1079) - lu(k,1097) = lu(k,1097) - lu(k,797) * lu(k,1079) - lu(k,1098) = lu(k,1098) - lu(k,798) * lu(k,1079) - lu(k,1099) = lu(k,1099) - lu(k,799) * lu(k,1079) - lu(k,1100) = lu(k,1100) - lu(k,800) * lu(k,1079) - lu(k,1101) = lu(k,1101) - lu(k,801) * lu(k,1079) - lu(k,1102) = lu(k,1102) - lu(k,802) * lu(k,1079) - lu(k,1103) = lu(k,1103) - lu(k,803) * lu(k,1079) - lu(k,1125) = lu(k,1125) - lu(k,780) * lu(k,1124) - lu(k,1126) = lu(k,1126) - lu(k,781) * lu(k,1124) - lu(k,1127) = lu(k,1127) - lu(k,782) * lu(k,1124) - lu(k,1128) = lu(k,1128) - lu(k,783) * lu(k,1124) - lu(k,1129) = lu(k,1129) - lu(k,784) * lu(k,1124) - lu(k,1130) = lu(k,1130) - lu(k,785) * lu(k,1124) - lu(k,1131) = lu(k,1131) - lu(k,786) * lu(k,1124) - lu(k,1132) = lu(k,1132) - lu(k,787) * lu(k,1124) - lu(k,1133) = lu(k,1133) - lu(k,788) * lu(k,1124) - lu(k,1134) = lu(k,1134) - lu(k,789) * lu(k,1124) - lu(k,1135) = lu(k,1135) - lu(k,790) * lu(k,1124) - lu(k,1136) = lu(k,1136) - lu(k,791) * lu(k,1124) - lu(k,1137) = lu(k,1137) - lu(k,792) * lu(k,1124) - lu(k,1138) = lu(k,1138) - lu(k,793) * lu(k,1124) - lu(k,1139) = lu(k,1139) - lu(k,794) * lu(k,1124) - lu(k,1140) = lu(k,1140) - lu(k,795) * lu(k,1124) - lu(k,1141) = lu(k,1141) - lu(k,796) * lu(k,1124) - lu(k,1142) = lu(k,1142) - lu(k,797) * lu(k,1124) - lu(k,1143) = lu(k,1143) - lu(k,798) * lu(k,1124) - lu(k,1144) = lu(k,1144) - lu(k,799) * lu(k,1124) - lu(k,1145) = lu(k,1145) - lu(k,800) * lu(k,1124) - lu(k,1146) = lu(k,1146) - lu(k,801) * lu(k,1124) - lu(k,1147) = lu(k,1147) - lu(k,802) * lu(k,1124) - lu(k,1148) = lu(k,1148) - lu(k,803) * lu(k,1124) - lu(k,1165) = lu(k,1165) - lu(k,780) * lu(k,1164) - lu(k,1166) = lu(k,1166) - lu(k,781) * lu(k,1164) - lu(k,1167) = lu(k,1167) - lu(k,782) * lu(k,1164) - lu(k,1168) = lu(k,1168) - lu(k,783) * lu(k,1164) - lu(k,1169) = lu(k,1169) - lu(k,784) * lu(k,1164) - lu(k,1170) = lu(k,1170) - lu(k,785) * lu(k,1164) - lu(k,1171) = lu(k,1171) - lu(k,786) * lu(k,1164) - lu(k,1172) = lu(k,1172) - lu(k,787) * lu(k,1164) - lu(k,1173) = lu(k,1173) - lu(k,788) * lu(k,1164) - lu(k,1174) = lu(k,1174) - lu(k,789) * lu(k,1164) - lu(k,1175) = lu(k,1175) - lu(k,790) * lu(k,1164) - lu(k,1176) = lu(k,1176) - lu(k,791) * lu(k,1164) - lu(k,1177) = lu(k,1177) - lu(k,792) * lu(k,1164) - lu(k,1178) = lu(k,1178) - lu(k,793) * lu(k,1164) - lu(k,1179) = lu(k,1179) - lu(k,794) * lu(k,1164) - lu(k,1180) = lu(k,1180) - lu(k,795) * lu(k,1164) - lu(k,1181) = lu(k,1181) - lu(k,796) * lu(k,1164) - lu(k,1182) = lu(k,1182) - lu(k,797) * lu(k,1164) - lu(k,1183) = lu(k,1183) - lu(k,798) * lu(k,1164) - lu(k,1184) = lu(k,1184) - lu(k,799) * lu(k,1164) - lu(k,1185) = lu(k,1185) - lu(k,800) * lu(k,1164) - lu(k,1186) = lu(k,1186) - lu(k,801) * lu(k,1164) - lu(k,1187) = lu(k,1187) - lu(k,802) * lu(k,1164) - lu(k,1188) = lu(k,1188) - lu(k,803) * lu(k,1164) - lu(k,1221) = lu(k,1221) - lu(k,780) * lu(k,1220) - lu(k,1222) = lu(k,1222) - lu(k,781) * lu(k,1220) - lu(k,1223) = lu(k,1223) - lu(k,782) * lu(k,1220) - lu(k,1224) = lu(k,1224) - lu(k,783) * lu(k,1220) - lu(k,1225) = lu(k,1225) - lu(k,784) * lu(k,1220) - lu(k,1226) = lu(k,1226) - lu(k,785) * lu(k,1220) - lu(k,1227) = lu(k,1227) - lu(k,786) * lu(k,1220) - lu(k,1228) = lu(k,1228) - lu(k,787) * lu(k,1220) - lu(k,1229) = lu(k,1229) - lu(k,788) * lu(k,1220) - lu(k,1230) = lu(k,1230) - lu(k,789) * lu(k,1220) - lu(k,1231) = lu(k,1231) - lu(k,790) * lu(k,1220) - lu(k,1232) = lu(k,1232) - lu(k,791) * lu(k,1220) - lu(k,1233) = lu(k,1233) - lu(k,792) * lu(k,1220) - lu(k,1234) = lu(k,1234) - lu(k,793) * lu(k,1220) - lu(k,1235) = lu(k,1235) - lu(k,794) * lu(k,1220) - lu(k,1236) = lu(k,1236) - lu(k,795) * lu(k,1220) - lu(k,1237) = lu(k,1237) - lu(k,796) * lu(k,1220) - lu(k,1238) = lu(k,1238) - lu(k,797) * lu(k,1220) - lu(k,1239) = lu(k,1239) - lu(k,798) * lu(k,1220) - lu(k,1240) = lu(k,1240) - lu(k,799) * lu(k,1220) - lu(k,1241) = lu(k,1241) - lu(k,800) * lu(k,1220) - lu(k,1242) = lu(k,1242) - lu(k,801) * lu(k,1220) - lu(k,1243) = lu(k,1243) - lu(k,802) * lu(k,1220) - lu(k,1244) = lu(k,1244) - lu(k,803) * lu(k,1220) - lu(k,1259) = lu(k,1259) - lu(k,780) * lu(k,1258) - lu(k,1260) = lu(k,1260) - lu(k,781) * lu(k,1258) - lu(k,1261) = lu(k,1261) - lu(k,782) * lu(k,1258) - lu(k,1262) = lu(k,1262) - lu(k,783) * lu(k,1258) - lu(k,1263) = lu(k,1263) - lu(k,784) * lu(k,1258) - lu(k,1264) = lu(k,1264) - lu(k,785) * lu(k,1258) - lu(k,1265) = lu(k,1265) - lu(k,786) * lu(k,1258) - lu(k,1266) = lu(k,1266) - lu(k,787) * lu(k,1258) - lu(k,1267) = lu(k,1267) - lu(k,788) * lu(k,1258) - lu(k,1268) = lu(k,1268) - lu(k,789) * lu(k,1258) - lu(k,1269) = lu(k,1269) - lu(k,790) * lu(k,1258) - lu(k,1270) = lu(k,1270) - lu(k,791) * lu(k,1258) - lu(k,1271) = lu(k,1271) - lu(k,792) * lu(k,1258) - lu(k,1272) = lu(k,1272) - lu(k,793) * lu(k,1258) - lu(k,1273) = lu(k,1273) - lu(k,794) * lu(k,1258) - lu(k,1274) = lu(k,1274) - lu(k,795) * lu(k,1258) - lu(k,1275) = lu(k,1275) - lu(k,796) * lu(k,1258) - lu(k,1276) = lu(k,1276) - lu(k,797) * lu(k,1258) - lu(k,1277) = lu(k,1277) - lu(k,798) * lu(k,1258) - lu(k,1278) = lu(k,1278) - lu(k,799) * lu(k,1258) - lu(k,1279) = lu(k,1279) - lu(k,800) * lu(k,1258) - lu(k,1280) = lu(k,1280) - lu(k,801) * lu(k,1258) - lu(k,1281) = lu(k,1281) - lu(k,802) * lu(k,1258) - lu(k,1282) = lu(k,1282) - lu(k,803) * lu(k,1258) - lu(k,1295) = lu(k,1295) - lu(k,780) * lu(k,1294) - lu(k,1296) = lu(k,1296) - lu(k,781) * lu(k,1294) - lu(k,1297) = lu(k,1297) - lu(k,782) * lu(k,1294) - lu(k,1298) = lu(k,1298) - lu(k,783) * lu(k,1294) - lu(k,1299) = lu(k,1299) - lu(k,784) * lu(k,1294) - lu(k,1300) = lu(k,1300) - lu(k,785) * lu(k,1294) - lu(k,1301) = lu(k,1301) - lu(k,786) * lu(k,1294) - lu(k,1302) = lu(k,1302) - lu(k,787) * lu(k,1294) - lu(k,1303) = lu(k,1303) - lu(k,788) * lu(k,1294) - lu(k,1304) = lu(k,1304) - lu(k,789) * lu(k,1294) - lu(k,1305) = lu(k,1305) - lu(k,790) * lu(k,1294) - lu(k,1306) = lu(k,1306) - lu(k,791) * lu(k,1294) - lu(k,1307) = lu(k,1307) - lu(k,792) * lu(k,1294) - lu(k,1308) = lu(k,1308) - lu(k,793) * lu(k,1294) - lu(k,1309) = lu(k,1309) - lu(k,794) * lu(k,1294) - lu(k,1310) = lu(k,1310) - lu(k,795) * lu(k,1294) - lu(k,1311) = lu(k,1311) - lu(k,796) * lu(k,1294) - lu(k,1312) = lu(k,1312) - lu(k,797) * lu(k,1294) - lu(k,1313) = lu(k,1313) - lu(k,798) * lu(k,1294) - lu(k,1314) = lu(k,1314) - lu(k,799) * lu(k,1294) - lu(k,1315) = lu(k,1315) - lu(k,800) * lu(k,1294) - lu(k,1316) = lu(k,1316) - lu(k,801) * lu(k,1294) - lu(k,1317) = lu(k,1317) - lu(k,802) * lu(k,1294) - lu(k,1318) = lu(k,1318) - lu(k,803) * lu(k,1294) - lu(k,1340) = lu(k,1340) - lu(k,780) * lu(k,1339) - lu(k,1341) = lu(k,1341) - lu(k,781) * lu(k,1339) - lu(k,1342) = lu(k,1342) - lu(k,782) * lu(k,1339) - lu(k,1343) = lu(k,1343) - lu(k,783) * lu(k,1339) - lu(k,1344) = lu(k,1344) - lu(k,784) * lu(k,1339) - lu(k,1345) = lu(k,1345) - lu(k,785) * lu(k,1339) - lu(k,1346) = lu(k,1346) - lu(k,786) * lu(k,1339) - lu(k,1347) = lu(k,1347) - lu(k,787) * lu(k,1339) - lu(k,1348) = lu(k,1348) - lu(k,788) * lu(k,1339) - lu(k,1349) = lu(k,1349) - lu(k,789) * lu(k,1339) - lu(k,1350) = lu(k,1350) - lu(k,790) * lu(k,1339) - lu(k,1351) = lu(k,1351) - lu(k,791) * lu(k,1339) - lu(k,1352) = lu(k,1352) - lu(k,792) * lu(k,1339) - lu(k,1353) = lu(k,1353) - lu(k,793) * lu(k,1339) - lu(k,1354) = lu(k,1354) - lu(k,794) * lu(k,1339) - lu(k,1355) = lu(k,1355) - lu(k,795) * lu(k,1339) - lu(k,1356) = lu(k,1356) - lu(k,796) * lu(k,1339) - lu(k,1357) = lu(k,1357) - lu(k,797) * lu(k,1339) - lu(k,1358) = lu(k,1358) - lu(k,798) * lu(k,1339) - lu(k,1359) = lu(k,1359) - lu(k,799) * lu(k,1339) - lu(k,1360) = lu(k,1360) - lu(k,800) * lu(k,1339) - lu(k,1361) = lu(k,1361) - lu(k,801) * lu(k,1339) - lu(k,1362) = lu(k,1362) - lu(k,802) * lu(k,1339) - lu(k,1363) = lu(k,1363) - lu(k,803) * lu(k,1339) - lu(k,1383) = lu(k,1383) - lu(k,780) * lu(k,1382) - lu(k,1384) = lu(k,1384) - lu(k,781) * lu(k,1382) - lu(k,1385) = lu(k,1385) - lu(k,782) * lu(k,1382) - lu(k,1386) = lu(k,1386) - lu(k,783) * lu(k,1382) - lu(k,1387) = lu(k,1387) - lu(k,784) * lu(k,1382) - lu(k,1388) = lu(k,1388) - lu(k,785) * lu(k,1382) - lu(k,1389) = lu(k,1389) - lu(k,786) * lu(k,1382) - lu(k,1390) = lu(k,1390) - lu(k,787) * lu(k,1382) - lu(k,1391) = lu(k,1391) - lu(k,788) * lu(k,1382) - lu(k,1392) = lu(k,1392) - lu(k,789) * lu(k,1382) - lu(k,1393) = lu(k,1393) - lu(k,790) * lu(k,1382) - lu(k,1394) = lu(k,1394) - lu(k,791) * lu(k,1382) - lu(k,1395) = lu(k,1395) - lu(k,792) * lu(k,1382) - lu(k,1396) = lu(k,1396) - lu(k,793) * lu(k,1382) - lu(k,1397) = lu(k,1397) - lu(k,794) * lu(k,1382) - lu(k,1398) = lu(k,1398) - lu(k,795) * lu(k,1382) - lu(k,1399) = lu(k,1399) - lu(k,796) * lu(k,1382) - lu(k,1400) = lu(k,1400) - lu(k,797) * lu(k,1382) - lu(k,1401) = lu(k,1401) - lu(k,798) * lu(k,1382) - lu(k,1402) = lu(k,1402) - lu(k,799) * lu(k,1382) - lu(k,1403) = lu(k,1403) - lu(k,800) * lu(k,1382) - lu(k,1404) = lu(k,1404) - lu(k,801) * lu(k,1382) - lu(k,1405) = lu(k,1405) - lu(k,802) * lu(k,1382) - lu(k,1406) = lu(k,1406) - lu(k,803) * lu(k,1382) - lu(k,1461) = lu(k,1461) - lu(k,780) * lu(k,1460) - lu(k,1462) = lu(k,1462) - lu(k,781) * lu(k,1460) - lu(k,1463) = lu(k,1463) - lu(k,782) * lu(k,1460) - lu(k,1464) = lu(k,1464) - lu(k,783) * lu(k,1460) - lu(k,1465) = lu(k,1465) - lu(k,784) * lu(k,1460) - lu(k,1466) = lu(k,1466) - lu(k,785) * lu(k,1460) - lu(k,1467) = lu(k,1467) - lu(k,786) * lu(k,1460) - lu(k,1468) = lu(k,1468) - lu(k,787) * lu(k,1460) - lu(k,1469) = lu(k,1469) - lu(k,788) * lu(k,1460) - lu(k,1470) = lu(k,1470) - lu(k,789) * lu(k,1460) - lu(k,1471) = lu(k,1471) - lu(k,790) * lu(k,1460) - lu(k,1472) = lu(k,1472) - lu(k,791) * lu(k,1460) - lu(k,1473) = lu(k,1473) - lu(k,792) * lu(k,1460) - lu(k,1474) = lu(k,1474) - lu(k,793) * lu(k,1460) - lu(k,1475) = lu(k,1475) - lu(k,794) * lu(k,1460) - lu(k,1476) = lu(k,1476) - lu(k,795) * lu(k,1460) - lu(k,1477) = lu(k,1477) - lu(k,796) * lu(k,1460) - lu(k,1478) = lu(k,1478) - lu(k,797) * lu(k,1460) - lu(k,1479) = lu(k,1479) - lu(k,798) * lu(k,1460) - lu(k,1480) = lu(k,1480) - lu(k,799) * lu(k,1460) - lu(k,1481) = lu(k,1481) - lu(k,800) * lu(k,1460) - lu(k,1482) = lu(k,1482) - lu(k,801) * lu(k,1460) - lu(k,1483) = lu(k,1483) - lu(k,802) * lu(k,1460) - lu(k,1484) = lu(k,1484) - lu(k,803) * lu(k,1460) - lu(k,1504) = lu(k,1504) - lu(k,780) * lu(k,1503) - lu(k,1505) = lu(k,1505) - lu(k,781) * lu(k,1503) - lu(k,1506) = lu(k,1506) - lu(k,782) * lu(k,1503) - lu(k,1507) = lu(k,1507) - lu(k,783) * lu(k,1503) - lu(k,1508) = lu(k,1508) - lu(k,784) * lu(k,1503) - lu(k,1509) = lu(k,1509) - lu(k,785) * lu(k,1503) - lu(k,1510) = lu(k,1510) - lu(k,786) * lu(k,1503) - lu(k,1511) = lu(k,1511) - lu(k,787) * lu(k,1503) - lu(k,1512) = lu(k,1512) - lu(k,788) * lu(k,1503) - lu(k,1513) = lu(k,1513) - lu(k,789) * lu(k,1503) - lu(k,1514) = lu(k,1514) - lu(k,790) * lu(k,1503) - lu(k,1515) = lu(k,1515) - lu(k,791) * lu(k,1503) - lu(k,1516) = lu(k,1516) - lu(k,792) * lu(k,1503) - lu(k,1517) = lu(k,1517) - lu(k,793) * lu(k,1503) - lu(k,1518) = lu(k,1518) - lu(k,794) * lu(k,1503) - lu(k,1519) = lu(k,1519) - lu(k,795) * lu(k,1503) - lu(k,1520) = lu(k,1520) - lu(k,796) * lu(k,1503) - lu(k,1521) = lu(k,1521) - lu(k,797) * lu(k,1503) - lu(k,1522) = lu(k,1522) - lu(k,798) * lu(k,1503) - lu(k,1523) = lu(k,1523) - lu(k,799) * lu(k,1503) - lu(k,1524) = lu(k,1524) - lu(k,800) * lu(k,1503) - lu(k,1525) = lu(k,1525) - lu(k,801) * lu(k,1503) - lu(k,1526) = lu(k,1526) - lu(k,802) * lu(k,1503) - lu(k,1527) = lu(k,1527) - lu(k,803) * lu(k,1503) - lu(k,1547) = lu(k,1547) - lu(k,780) * lu(k,1546) - lu(k,1548) = lu(k,1548) - lu(k,781) * lu(k,1546) - lu(k,1549) = lu(k,1549) - lu(k,782) * lu(k,1546) - lu(k,1550) = lu(k,1550) - lu(k,783) * lu(k,1546) - lu(k,1551) = lu(k,1551) - lu(k,784) * lu(k,1546) - lu(k,1552) = lu(k,1552) - lu(k,785) * lu(k,1546) - lu(k,1553) = lu(k,1553) - lu(k,786) * lu(k,1546) - lu(k,1554) = lu(k,1554) - lu(k,787) * lu(k,1546) - lu(k,1555) = lu(k,1555) - lu(k,788) * lu(k,1546) - lu(k,1556) = lu(k,1556) - lu(k,789) * lu(k,1546) - lu(k,1557) = lu(k,1557) - lu(k,790) * lu(k,1546) - lu(k,1558) = lu(k,1558) - lu(k,791) * lu(k,1546) - lu(k,1559) = lu(k,1559) - lu(k,792) * lu(k,1546) - lu(k,1560) = lu(k,1560) - lu(k,793) * lu(k,1546) - lu(k,1561) = lu(k,1561) - lu(k,794) * lu(k,1546) - lu(k,1562) = lu(k,1562) - lu(k,795) * lu(k,1546) - lu(k,1563) = lu(k,1563) - lu(k,796) * lu(k,1546) - lu(k,1564) = lu(k,1564) - lu(k,797) * lu(k,1546) - lu(k,1565) = lu(k,1565) - lu(k,798) * lu(k,1546) - lu(k,1566) = lu(k,1566) - lu(k,799) * lu(k,1546) - lu(k,1567) = lu(k,1567) - lu(k,800) * lu(k,1546) - lu(k,1568) = lu(k,1568) - lu(k,801) * lu(k,1546) - lu(k,1569) = lu(k,1569) - lu(k,802) * lu(k,1546) - lu(k,1570) = lu(k,1570) - lu(k,803) * lu(k,1546) - lu(k,1580) = lu(k,1580) - lu(k,780) * lu(k,1579) - lu(k,1581) = lu(k,1581) - lu(k,781) * lu(k,1579) - lu(k,1582) = lu(k,1582) - lu(k,782) * lu(k,1579) - lu(k,1583) = lu(k,1583) - lu(k,783) * lu(k,1579) - lu(k,1584) = lu(k,1584) - lu(k,784) * lu(k,1579) - lu(k,1585) = lu(k,1585) - lu(k,785) * lu(k,1579) - lu(k,1586) = lu(k,1586) - lu(k,786) * lu(k,1579) - lu(k,1587) = lu(k,1587) - lu(k,787) * lu(k,1579) - lu(k,1588) = lu(k,1588) - lu(k,788) * lu(k,1579) - lu(k,1589) = lu(k,1589) - lu(k,789) * lu(k,1579) - lu(k,1590) = lu(k,1590) - lu(k,790) * lu(k,1579) - lu(k,1591) = lu(k,1591) - lu(k,791) * lu(k,1579) - lu(k,1592) = lu(k,1592) - lu(k,792) * lu(k,1579) - lu(k,1593) = lu(k,1593) - lu(k,793) * lu(k,1579) - lu(k,1594) = lu(k,1594) - lu(k,794) * lu(k,1579) - lu(k,1595) = lu(k,1595) - lu(k,795) * lu(k,1579) - lu(k,1596) = lu(k,1596) - lu(k,796) * lu(k,1579) - lu(k,1597) = lu(k,1597) - lu(k,797) * lu(k,1579) - lu(k,1598) = lu(k,1598) - lu(k,798) * lu(k,1579) - lu(k,1599) = lu(k,1599) - lu(k,799) * lu(k,1579) - lu(k,1600) = lu(k,1600) - lu(k,800) * lu(k,1579) - lu(k,1601) = lu(k,1601) - lu(k,801) * lu(k,1579) - lu(k,1602) = lu(k,1602) - lu(k,802) * lu(k,1579) - lu(k,1603) = lu(k,1603) - lu(k,803) * lu(k,1579) - lu(k,1616) = lu(k,1616) - lu(k,780) * lu(k,1615) - lu(k,1617) = lu(k,1617) - lu(k,781) * lu(k,1615) - lu(k,1618) = lu(k,1618) - lu(k,782) * lu(k,1615) - lu(k,1619) = lu(k,1619) - lu(k,783) * lu(k,1615) - lu(k,1620) = lu(k,1620) - lu(k,784) * lu(k,1615) - lu(k,1621) = lu(k,1621) - lu(k,785) * lu(k,1615) - lu(k,1622) = lu(k,1622) - lu(k,786) * lu(k,1615) - lu(k,1623) = lu(k,1623) - lu(k,787) * lu(k,1615) - lu(k,1624) = lu(k,1624) - lu(k,788) * lu(k,1615) - lu(k,1625) = lu(k,1625) - lu(k,789) * lu(k,1615) - lu(k,1626) = lu(k,1626) - lu(k,790) * lu(k,1615) - lu(k,1627) = lu(k,1627) - lu(k,791) * lu(k,1615) - lu(k,1628) = lu(k,1628) - lu(k,792) * lu(k,1615) - lu(k,1629) = lu(k,1629) - lu(k,793) * lu(k,1615) - lu(k,1630) = lu(k,1630) - lu(k,794) * lu(k,1615) - lu(k,1631) = lu(k,1631) - lu(k,795) * lu(k,1615) - lu(k,1632) = lu(k,1632) - lu(k,796) * lu(k,1615) - lu(k,1633) = lu(k,1633) - lu(k,797) * lu(k,1615) - lu(k,1634) = lu(k,1634) - lu(k,798) * lu(k,1615) - lu(k,1635) = lu(k,1635) - lu(k,799) * lu(k,1615) - lu(k,1636) = lu(k,1636) - lu(k,800) * lu(k,1615) - lu(k,1637) = lu(k,1637) - lu(k,801) * lu(k,1615) - lu(k,1638) = lu(k,1638) - lu(k,802) * lu(k,1615) - lu(k,1639) = lu(k,1639) - lu(k,803) * lu(k,1615) - lu(k,1659) = lu(k,1659) - lu(k,780) * lu(k,1658) - lu(k,1660) = lu(k,1660) - lu(k,781) * lu(k,1658) - lu(k,1661) = lu(k,1661) - lu(k,782) * lu(k,1658) - lu(k,1662) = lu(k,1662) - lu(k,783) * lu(k,1658) - lu(k,1663) = lu(k,1663) - lu(k,784) * lu(k,1658) - lu(k,1664) = lu(k,1664) - lu(k,785) * lu(k,1658) - lu(k,1665) = lu(k,1665) - lu(k,786) * lu(k,1658) - lu(k,1666) = lu(k,1666) - lu(k,787) * lu(k,1658) - lu(k,1667) = lu(k,1667) - lu(k,788) * lu(k,1658) - lu(k,1668) = lu(k,1668) - lu(k,789) * lu(k,1658) - lu(k,1669) = lu(k,1669) - lu(k,790) * lu(k,1658) - lu(k,1670) = lu(k,1670) - lu(k,791) * lu(k,1658) - lu(k,1671) = lu(k,1671) - lu(k,792) * lu(k,1658) - lu(k,1672) = lu(k,1672) - lu(k,793) * lu(k,1658) - lu(k,1673) = lu(k,1673) - lu(k,794) * lu(k,1658) - lu(k,1674) = lu(k,1674) - lu(k,795) * lu(k,1658) - lu(k,1675) = lu(k,1675) - lu(k,796) * lu(k,1658) - lu(k,1676) = lu(k,1676) - lu(k,797) * lu(k,1658) - lu(k,1677) = lu(k,1677) - lu(k,798) * lu(k,1658) - lu(k,1678) = lu(k,1678) - lu(k,799) * lu(k,1658) - lu(k,1679) = lu(k,1679) - lu(k,800) * lu(k,1658) - lu(k,1680) = lu(k,1680) - lu(k,801) * lu(k,1658) - lu(k,1681) = lu(k,1681) - lu(k,802) * lu(k,1658) - lu(k,1682) = lu(k,1682) - lu(k,803) * lu(k,1658) - lu(k,1695) = lu(k,1695) - lu(k,780) * lu(k,1694) - lu(k,1696) = lu(k,1696) - lu(k,781) * lu(k,1694) - lu(k,1697) = lu(k,1697) - lu(k,782) * lu(k,1694) - lu(k,1698) = lu(k,1698) - lu(k,783) * lu(k,1694) - lu(k,1699) = lu(k,1699) - lu(k,784) * lu(k,1694) - lu(k,1700) = lu(k,1700) - lu(k,785) * lu(k,1694) - lu(k,1701) = lu(k,1701) - lu(k,786) * lu(k,1694) - lu(k,1702) = lu(k,1702) - lu(k,787) * lu(k,1694) - lu(k,1703) = lu(k,1703) - lu(k,788) * lu(k,1694) - lu(k,1704) = lu(k,1704) - lu(k,789) * lu(k,1694) - lu(k,1705) = lu(k,1705) - lu(k,790) * lu(k,1694) - lu(k,1706) = lu(k,1706) - lu(k,791) * lu(k,1694) - lu(k,1707) = lu(k,1707) - lu(k,792) * lu(k,1694) - lu(k,1708) = lu(k,1708) - lu(k,793) * lu(k,1694) - lu(k,1709) = lu(k,1709) - lu(k,794) * lu(k,1694) - lu(k,1710) = lu(k,1710) - lu(k,795) * lu(k,1694) - lu(k,1711) = lu(k,1711) - lu(k,796) * lu(k,1694) - lu(k,1712) = lu(k,1712) - lu(k,797) * lu(k,1694) - lu(k,1713) = lu(k,1713) - lu(k,798) * lu(k,1694) - lu(k,1714) = lu(k,1714) - lu(k,799) * lu(k,1694) - lu(k,1715) = lu(k,1715) - lu(k,800) * lu(k,1694) - lu(k,1716) = lu(k,1716) - lu(k,801) * lu(k,1694) - lu(k,1717) = lu(k,1717) - lu(k,802) * lu(k,1694) - lu(k,1718) = lu(k,1718) - lu(k,803) * lu(k,1694) - lu(k,1740) = lu(k,1740) - lu(k,780) * lu(k,1739) - lu(k,1741) = lu(k,1741) - lu(k,781) * lu(k,1739) - lu(k,1742) = lu(k,1742) - lu(k,782) * lu(k,1739) - lu(k,1743) = lu(k,1743) - lu(k,783) * lu(k,1739) - lu(k,1744) = lu(k,1744) - lu(k,784) * lu(k,1739) - lu(k,1745) = lu(k,1745) - lu(k,785) * lu(k,1739) - lu(k,1746) = lu(k,1746) - lu(k,786) * lu(k,1739) - lu(k,1747) = lu(k,1747) - lu(k,787) * lu(k,1739) - lu(k,1748) = lu(k,1748) - lu(k,788) * lu(k,1739) - lu(k,1749) = lu(k,1749) - lu(k,789) * lu(k,1739) - lu(k,1750) = lu(k,1750) - lu(k,790) * lu(k,1739) - lu(k,1751) = lu(k,1751) - lu(k,791) * lu(k,1739) - lu(k,1752) = lu(k,1752) - lu(k,792) * lu(k,1739) - lu(k,1753) = lu(k,1753) - lu(k,793) * lu(k,1739) - lu(k,1754) = lu(k,1754) - lu(k,794) * lu(k,1739) - lu(k,1755) = lu(k,1755) - lu(k,795) * lu(k,1739) - lu(k,1756) = lu(k,1756) - lu(k,796) * lu(k,1739) - lu(k,1757) = lu(k,1757) - lu(k,797) * lu(k,1739) - lu(k,1758) = lu(k,1758) - lu(k,798) * lu(k,1739) - lu(k,1759) = lu(k,1759) - lu(k,799) * lu(k,1739) - lu(k,1760) = lu(k,1760) - lu(k,800) * lu(k,1739) - lu(k,1761) = lu(k,1761) - lu(k,801) * lu(k,1739) - lu(k,1762) = lu(k,1762) - lu(k,802) * lu(k,1739) - lu(k,1763) = lu(k,1763) - lu(k,803) * lu(k,1739) - lu(k,1793) = lu(k,1793) - lu(k,780) * lu(k,1792) - lu(k,1794) = lu(k,1794) - lu(k,781) * lu(k,1792) - lu(k,1795) = lu(k,1795) - lu(k,782) * lu(k,1792) - lu(k,1796) = lu(k,1796) - lu(k,783) * lu(k,1792) - lu(k,1797) = lu(k,1797) - lu(k,784) * lu(k,1792) - lu(k,1798) = lu(k,1798) - lu(k,785) * lu(k,1792) - lu(k,1799) = lu(k,1799) - lu(k,786) * lu(k,1792) - lu(k,1800) = lu(k,1800) - lu(k,787) * lu(k,1792) - lu(k,1801) = lu(k,1801) - lu(k,788) * lu(k,1792) - lu(k,1802) = lu(k,1802) - lu(k,789) * lu(k,1792) - lu(k,1803) = lu(k,1803) - lu(k,790) * lu(k,1792) - lu(k,1804) = lu(k,1804) - lu(k,791) * lu(k,1792) - lu(k,1805) = lu(k,1805) - lu(k,792) * lu(k,1792) - lu(k,1806) = lu(k,1806) - lu(k,793) * lu(k,1792) - lu(k,1807) = lu(k,1807) - lu(k,794) * lu(k,1792) - lu(k,1808) = lu(k,1808) - lu(k,795) * lu(k,1792) - lu(k,1809) = lu(k,1809) - lu(k,796) * lu(k,1792) - lu(k,1810) = lu(k,1810) - lu(k,797) * lu(k,1792) - lu(k,1811) = lu(k,1811) - lu(k,798) * lu(k,1792) - lu(k,1812) = lu(k,1812) - lu(k,799) * lu(k,1792) - lu(k,1813) = lu(k,1813) - lu(k,800) * lu(k,1792) - lu(k,1814) = lu(k,1814) - lu(k,801) * lu(k,1792) - lu(k,1815) = lu(k,1815) - lu(k,802) * lu(k,1792) - lu(k,1816) = lu(k,1816) - lu(k,803) * lu(k,1792) - lu(k,823) = 1._r8 / lu(k,823) - lu(k,824) = lu(k,824) * lu(k,823) - lu(k,825) = lu(k,825) * lu(k,823) - lu(k,826) = lu(k,826) * lu(k,823) - lu(k,827) = lu(k,827) * lu(k,823) - lu(k,828) = lu(k,828) * lu(k,823) - lu(k,829) = lu(k,829) * lu(k,823) - lu(k,830) = lu(k,830) * lu(k,823) - lu(k,831) = lu(k,831) * lu(k,823) - lu(k,832) = lu(k,832) * lu(k,823) - lu(k,833) = lu(k,833) * lu(k,823) - lu(k,834) = lu(k,834) * lu(k,823) - lu(k,835) = lu(k,835) * lu(k,823) - lu(k,836) = lu(k,836) * lu(k,823) - lu(k,837) = lu(k,837) * lu(k,823) - lu(k,838) = lu(k,838) * lu(k,823) - lu(k,839) = lu(k,839) * lu(k,823) - lu(k,840) = lu(k,840) * lu(k,823) - lu(k,841) = lu(k,841) * lu(k,823) - lu(k,842) = lu(k,842) * lu(k,823) - lu(k,843) = lu(k,843) * lu(k,823) - lu(k,844) = lu(k,844) * lu(k,823) - lu(k,845) = lu(k,845) * lu(k,823) - lu(k,846) = lu(k,846) * lu(k,823) - lu(k,870) = lu(k,870) - lu(k,824) * lu(k,869) - lu(k,871) = lu(k,871) - lu(k,825) * lu(k,869) - lu(k,872) = lu(k,872) - lu(k,826) * lu(k,869) - lu(k,873) = lu(k,873) - lu(k,827) * lu(k,869) - lu(k,874) = lu(k,874) - lu(k,828) * lu(k,869) - lu(k,875) = lu(k,875) - lu(k,829) * lu(k,869) - lu(k,876) = lu(k,876) - lu(k,830) * lu(k,869) - lu(k,877) = lu(k,877) - lu(k,831) * lu(k,869) - lu(k,878) = lu(k,878) - lu(k,832) * lu(k,869) - lu(k,879) = lu(k,879) - lu(k,833) * lu(k,869) - lu(k,880) = lu(k,880) - lu(k,834) * lu(k,869) - lu(k,881) = lu(k,881) - lu(k,835) * lu(k,869) - lu(k,882) = lu(k,882) - lu(k,836) * lu(k,869) - lu(k,883) = lu(k,883) - lu(k,837) * lu(k,869) - lu(k,884) = lu(k,884) - lu(k,838) * lu(k,869) - lu(k,885) = lu(k,885) - lu(k,839) * lu(k,869) - lu(k,886) = lu(k,886) - lu(k,840) * lu(k,869) - lu(k,887) = lu(k,887) - lu(k,841) * lu(k,869) - lu(k,888) = lu(k,888) - lu(k,842) * lu(k,869) - lu(k,889) = lu(k,889) - lu(k,843) * lu(k,869) - lu(k,890) = lu(k,890) - lu(k,844) * lu(k,869) - lu(k,891) = lu(k,891) - lu(k,845) * lu(k,869) - lu(k,892) = lu(k,892) - lu(k,846) * lu(k,869) - lu(k,913) = lu(k,913) - lu(k,824) * lu(k,912) - lu(k,914) = lu(k,914) - lu(k,825) * lu(k,912) - lu(k,915) = lu(k,915) - lu(k,826) * lu(k,912) - lu(k,916) = lu(k,916) - lu(k,827) * lu(k,912) - lu(k,917) = lu(k,917) - lu(k,828) * lu(k,912) - lu(k,918) = lu(k,918) - lu(k,829) * lu(k,912) - lu(k,919) = lu(k,919) - lu(k,830) * lu(k,912) - lu(k,920) = lu(k,920) - lu(k,831) * lu(k,912) - lu(k,921) = lu(k,921) - lu(k,832) * lu(k,912) - lu(k,922) = lu(k,922) - lu(k,833) * lu(k,912) - lu(k,923) = lu(k,923) - lu(k,834) * lu(k,912) - lu(k,924) = lu(k,924) - lu(k,835) * lu(k,912) - lu(k,925) = lu(k,925) - lu(k,836) * lu(k,912) - lu(k,926) = lu(k,926) - lu(k,837) * lu(k,912) - lu(k,927) = lu(k,927) - lu(k,838) * lu(k,912) - lu(k,928) = lu(k,928) - lu(k,839) * lu(k,912) - lu(k,929) = lu(k,929) - lu(k,840) * lu(k,912) - lu(k,930) = lu(k,930) - lu(k,841) * lu(k,912) - lu(k,931) = lu(k,931) - lu(k,842) * lu(k,912) - lu(k,932) = lu(k,932) - lu(k,843) * lu(k,912) - lu(k,933) = lu(k,933) - lu(k,844) * lu(k,912) - lu(k,934) = lu(k,934) - lu(k,845) * lu(k,912) - lu(k,935) = lu(k,935) - lu(k,846) * lu(k,912) - lu(k,956) = lu(k,956) - lu(k,824) * lu(k,955) - lu(k,957) = lu(k,957) - lu(k,825) * lu(k,955) - lu(k,958) = lu(k,958) - lu(k,826) * lu(k,955) - lu(k,959) = lu(k,959) - lu(k,827) * lu(k,955) - lu(k,960) = lu(k,960) - lu(k,828) * lu(k,955) - lu(k,961) = lu(k,961) - lu(k,829) * lu(k,955) - lu(k,962) = lu(k,962) - lu(k,830) * lu(k,955) - lu(k,963) = lu(k,963) - lu(k,831) * lu(k,955) - lu(k,964) = lu(k,964) - lu(k,832) * lu(k,955) - lu(k,965) = lu(k,965) - lu(k,833) * lu(k,955) - lu(k,966) = lu(k,966) - lu(k,834) * lu(k,955) - lu(k,967) = lu(k,967) - lu(k,835) * lu(k,955) - lu(k,968) = lu(k,968) - lu(k,836) * lu(k,955) - lu(k,969) = lu(k,969) - lu(k,837) * lu(k,955) - lu(k,970) = lu(k,970) - lu(k,838) * lu(k,955) - lu(k,971) = lu(k,971) - lu(k,839) * lu(k,955) - lu(k,972) = lu(k,972) - lu(k,840) * lu(k,955) - lu(k,973) = lu(k,973) - lu(k,841) * lu(k,955) - lu(k,974) = lu(k,974) - lu(k,842) * lu(k,955) - lu(k,975) = lu(k,975) - lu(k,843) * lu(k,955) - lu(k,976) = lu(k,976) - lu(k,844) * lu(k,955) - lu(k,977) = lu(k,977) - lu(k,845) * lu(k,955) - lu(k,978) = lu(k,978) - lu(k,846) * lu(k,955) - lu(k,998) = lu(k,998) - lu(k,824) * lu(k,997) - lu(k,999) = lu(k,999) - lu(k,825) * lu(k,997) - lu(k,1000) = lu(k,1000) - lu(k,826) * lu(k,997) - lu(k,1001) = lu(k,1001) - lu(k,827) * lu(k,997) - lu(k,1002) = lu(k,1002) - lu(k,828) * lu(k,997) - lu(k,1003) = lu(k,1003) - lu(k,829) * lu(k,997) - lu(k,1004) = lu(k,1004) - lu(k,830) * lu(k,997) - lu(k,1005) = lu(k,1005) - lu(k,831) * lu(k,997) - lu(k,1006) = lu(k,1006) - lu(k,832) * lu(k,997) - lu(k,1007) = lu(k,1007) - lu(k,833) * lu(k,997) - lu(k,1008) = lu(k,1008) - lu(k,834) * lu(k,997) - lu(k,1009) = lu(k,1009) - lu(k,835) * lu(k,997) - lu(k,1010) = lu(k,1010) - lu(k,836) * lu(k,997) - lu(k,1011) = lu(k,1011) - lu(k,837) * lu(k,997) - lu(k,1012) = lu(k,1012) - lu(k,838) * lu(k,997) - lu(k,1013) = lu(k,1013) - lu(k,839) * lu(k,997) - lu(k,1014) = lu(k,1014) - lu(k,840) * lu(k,997) - lu(k,1015) = lu(k,1015) - lu(k,841) * lu(k,997) - lu(k,1016) = lu(k,1016) - lu(k,842) * lu(k,997) - lu(k,1017) = lu(k,1017) - lu(k,843) * lu(k,997) - lu(k,1018) = lu(k,1018) - lu(k,844) * lu(k,997) - lu(k,1019) = lu(k,1019) - lu(k,845) * lu(k,997) - lu(k,1020) = lu(k,1020) - lu(k,846) * lu(k,997) - lu(k,1040) = lu(k,1040) - lu(k,824) * lu(k,1039) - lu(k,1041) = lu(k,1041) - lu(k,825) * lu(k,1039) - lu(k,1042) = lu(k,1042) - lu(k,826) * lu(k,1039) - lu(k,1043) = lu(k,1043) - lu(k,827) * lu(k,1039) - lu(k,1044) = lu(k,1044) - lu(k,828) * lu(k,1039) - lu(k,1045) = lu(k,1045) - lu(k,829) * lu(k,1039) - lu(k,1046) = lu(k,1046) - lu(k,830) * lu(k,1039) - lu(k,1047) = lu(k,1047) - lu(k,831) * lu(k,1039) - lu(k,1048) = lu(k,1048) - lu(k,832) * lu(k,1039) - lu(k,1049) = lu(k,1049) - lu(k,833) * lu(k,1039) - lu(k,1050) = lu(k,1050) - lu(k,834) * lu(k,1039) - lu(k,1051) = lu(k,1051) - lu(k,835) * lu(k,1039) - lu(k,1052) = lu(k,1052) - lu(k,836) * lu(k,1039) - lu(k,1053) = lu(k,1053) - lu(k,837) * lu(k,1039) - lu(k,1054) = lu(k,1054) - lu(k,838) * lu(k,1039) - lu(k,1055) = lu(k,1055) - lu(k,839) * lu(k,1039) - lu(k,1056) = lu(k,1056) - lu(k,840) * lu(k,1039) - lu(k,1057) = lu(k,1057) - lu(k,841) * lu(k,1039) - lu(k,1058) = lu(k,1058) - lu(k,842) * lu(k,1039) - lu(k,1059) = lu(k,1059) - lu(k,843) * lu(k,1039) - lu(k,1060) = lu(k,1060) - lu(k,844) * lu(k,1039) - lu(k,1061) = lu(k,1061) - lu(k,845) * lu(k,1039) - lu(k,1062) = lu(k,1062) - lu(k,846) * lu(k,1039) - lu(k,1081) = lu(k,1081) - lu(k,824) * lu(k,1080) - lu(k,1082) = lu(k,1082) - lu(k,825) * lu(k,1080) - lu(k,1083) = lu(k,1083) - lu(k,826) * lu(k,1080) - lu(k,1084) = lu(k,1084) - lu(k,827) * lu(k,1080) - lu(k,1085) = lu(k,1085) - lu(k,828) * lu(k,1080) - lu(k,1086) = lu(k,1086) - lu(k,829) * lu(k,1080) - lu(k,1087) = lu(k,1087) - lu(k,830) * lu(k,1080) - lu(k,1088) = lu(k,1088) - lu(k,831) * lu(k,1080) - lu(k,1089) = lu(k,1089) - lu(k,832) * lu(k,1080) - lu(k,1090) = lu(k,1090) - lu(k,833) * lu(k,1080) - lu(k,1091) = lu(k,1091) - lu(k,834) * lu(k,1080) - lu(k,1092) = lu(k,1092) - lu(k,835) * lu(k,1080) - lu(k,1093) = lu(k,1093) - lu(k,836) * lu(k,1080) - lu(k,1094) = lu(k,1094) - lu(k,837) * lu(k,1080) - lu(k,1095) = lu(k,1095) - lu(k,838) * lu(k,1080) - lu(k,1096) = lu(k,1096) - lu(k,839) * lu(k,1080) - lu(k,1097) = lu(k,1097) - lu(k,840) * lu(k,1080) - lu(k,1098) = lu(k,1098) - lu(k,841) * lu(k,1080) - lu(k,1099) = lu(k,1099) - lu(k,842) * lu(k,1080) - lu(k,1100) = lu(k,1100) - lu(k,843) * lu(k,1080) - lu(k,1101) = lu(k,1101) - lu(k,844) * lu(k,1080) - lu(k,1102) = lu(k,1102) - lu(k,845) * lu(k,1080) - lu(k,1103) = lu(k,1103) - lu(k,846) * lu(k,1080) - lu(k,1126) = lu(k,1126) - lu(k,824) * lu(k,1125) - lu(k,1127) = lu(k,1127) - lu(k,825) * lu(k,1125) - lu(k,1128) = lu(k,1128) - lu(k,826) * lu(k,1125) - lu(k,1129) = lu(k,1129) - lu(k,827) * lu(k,1125) - lu(k,1130) = lu(k,1130) - lu(k,828) * lu(k,1125) - lu(k,1131) = lu(k,1131) - lu(k,829) * lu(k,1125) - lu(k,1132) = lu(k,1132) - lu(k,830) * lu(k,1125) - lu(k,1133) = lu(k,1133) - lu(k,831) * lu(k,1125) - lu(k,1134) = lu(k,1134) - lu(k,832) * lu(k,1125) - lu(k,1135) = lu(k,1135) - lu(k,833) * lu(k,1125) - lu(k,1136) = lu(k,1136) - lu(k,834) * lu(k,1125) - lu(k,1137) = lu(k,1137) - lu(k,835) * lu(k,1125) - lu(k,1138) = lu(k,1138) - lu(k,836) * lu(k,1125) - lu(k,1139) = lu(k,1139) - lu(k,837) * lu(k,1125) - lu(k,1140) = lu(k,1140) - lu(k,838) * lu(k,1125) - lu(k,1141) = lu(k,1141) - lu(k,839) * lu(k,1125) - lu(k,1142) = lu(k,1142) - lu(k,840) * lu(k,1125) - lu(k,1143) = lu(k,1143) - lu(k,841) * lu(k,1125) - lu(k,1144) = lu(k,1144) - lu(k,842) * lu(k,1125) - lu(k,1145) = lu(k,1145) - lu(k,843) * lu(k,1125) - lu(k,1146) = lu(k,1146) - lu(k,844) * lu(k,1125) - lu(k,1147) = lu(k,1147) - lu(k,845) * lu(k,1125) - lu(k,1148) = lu(k,1148) - lu(k,846) * lu(k,1125) - lu(k,1166) = lu(k,1166) - lu(k,824) * lu(k,1165) - lu(k,1167) = lu(k,1167) - lu(k,825) * lu(k,1165) - lu(k,1168) = lu(k,1168) - lu(k,826) * lu(k,1165) - lu(k,1169) = lu(k,1169) - lu(k,827) * lu(k,1165) - lu(k,1170) = lu(k,1170) - lu(k,828) * lu(k,1165) - lu(k,1171) = lu(k,1171) - lu(k,829) * lu(k,1165) - lu(k,1172) = lu(k,1172) - lu(k,830) * lu(k,1165) - lu(k,1173) = lu(k,1173) - lu(k,831) * lu(k,1165) - lu(k,1174) = lu(k,1174) - lu(k,832) * lu(k,1165) - lu(k,1175) = lu(k,1175) - lu(k,833) * lu(k,1165) - lu(k,1176) = lu(k,1176) - lu(k,834) * lu(k,1165) - lu(k,1177) = lu(k,1177) - lu(k,835) * lu(k,1165) - lu(k,1178) = lu(k,1178) - lu(k,836) * lu(k,1165) - lu(k,1179) = lu(k,1179) - lu(k,837) * lu(k,1165) - lu(k,1180) = lu(k,1180) - lu(k,838) * lu(k,1165) - lu(k,1181) = lu(k,1181) - lu(k,839) * lu(k,1165) - lu(k,1182) = lu(k,1182) - lu(k,840) * lu(k,1165) - lu(k,1183) = lu(k,1183) - lu(k,841) * lu(k,1165) - lu(k,1184) = lu(k,1184) - lu(k,842) * lu(k,1165) - lu(k,1185) = lu(k,1185) - lu(k,843) * lu(k,1165) - lu(k,1186) = lu(k,1186) - lu(k,844) * lu(k,1165) - lu(k,1187) = lu(k,1187) - lu(k,845) * lu(k,1165) - lu(k,1188) = lu(k,1188) - lu(k,846) * lu(k,1165) - lu(k,1222) = lu(k,1222) - lu(k,824) * lu(k,1221) - lu(k,1223) = lu(k,1223) - lu(k,825) * lu(k,1221) - lu(k,1224) = lu(k,1224) - lu(k,826) * lu(k,1221) - lu(k,1225) = lu(k,1225) - lu(k,827) * lu(k,1221) - lu(k,1226) = lu(k,1226) - lu(k,828) * lu(k,1221) - lu(k,1227) = lu(k,1227) - lu(k,829) * lu(k,1221) - lu(k,1228) = lu(k,1228) - lu(k,830) * lu(k,1221) - lu(k,1229) = lu(k,1229) - lu(k,831) * lu(k,1221) - lu(k,1230) = lu(k,1230) - lu(k,832) * lu(k,1221) - lu(k,1231) = lu(k,1231) - lu(k,833) * lu(k,1221) - lu(k,1232) = lu(k,1232) - lu(k,834) * lu(k,1221) - lu(k,1233) = lu(k,1233) - lu(k,835) * lu(k,1221) - lu(k,1234) = lu(k,1234) - lu(k,836) * lu(k,1221) - lu(k,1235) = lu(k,1235) - lu(k,837) * lu(k,1221) - lu(k,1236) = lu(k,1236) - lu(k,838) * lu(k,1221) - lu(k,1237) = lu(k,1237) - lu(k,839) * lu(k,1221) - lu(k,1238) = lu(k,1238) - lu(k,840) * lu(k,1221) - lu(k,1239) = lu(k,1239) - lu(k,841) * lu(k,1221) - lu(k,1240) = lu(k,1240) - lu(k,842) * lu(k,1221) - lu(k,1241) = lu(k,1241) - lu(k,843) * lu(k,1221) - lu(k,1242) = lu(k,1242) - lu(k,844) * lu(k,1221) - lu(k,1243) = lu(k,1243) - lu(k,845) * lu(k,1221) - lu(k,1244) = lu(k,1244) - lu(k,846) * lu(k,1221) - lu(k,1260) = lu(k,1260) - lu(k,824) * lu(k,1259) - lu(k,1261) = lu(k,1261) - lu(k,825) * lu(k,1259) - lu(k,1262) = lu(k,1262) - lu(k,826) * lu(k,1259) - lu(k,1263) = lu(k,1263) - lu(k,827) * lu(k,1259) - lu(k,1264) = lu(k,1264) - lu(k,828) * lu(k,1259) - lu(k,1265) = lu(k,1265) - lu(k,829) * lu(k,1259) - lu(k,1266) = lu(k,1266) - lu(k,830) * lu(k,1259) - lu(k,1267) = lu(k,1267) - lu(k,831) * lu(k,1259) - lu(k,1268) = lu(k,1268) - lu(k,832) * lu(k,1259) - lu(k,1269) = lu(k,1269) - lu(k,833) * lu(k,1259) - lu(k,1270) = lu(k,1270) - lu(k,834) * lu(k,1259) - lu(k,1271) = lu(k,1271) - lu(k,835) * lu(k,1259) - lu(k,1272) = lu(k,1272) - lu(k,836) * lu(k,1259) - lu(k,1273) = lu(k,1273) - lu(k,837) * lu(k,1259) - lu(k,1274) = lu(k,1274) - lu(k,838) * lu(k,1259) - lu(k,1275) = lu(k,1275) - lu(k,839) * lu(k,1259) - lu(k,1276) = lu(k,1276) - lu(k,840) * lu(k,1259) - lu(k,1277) = lu(k,1277) - lu(k,841) * lu(k,1259) - lu(k,1278) = lu(k,1278) - lu(k,842) * lu(k,1259) - lu(k,1279) = lu(k,1279) - lu(k,843) * lu(k,1259) - lu(k,1280) = lu(k,1280) - lu(k,844) * lu(k,1259) - lu(k,1281) = lu(k,1281) - lu(k,845) * lu(k,1259) - lu(k,1282) = lu(k,1282) - lu(k,846) * lu(k,1259) - lu(k,1296) = lu(k,1296) - lu(k,824) * lu(k,1295) - lu(k,1297) = lu(k,1297) - lu(k,825) * lu(k,1295) - lu(k,1298) = lu(k,1298) - lu(k,826) * lu(k,1295) - lu(k,1299) = lu(k,1299) - lu(k,827) * lu(k,1295) - lu(k,1300) = lu(k,1300) - lu(k,828) * lu(k,1295) - lu(k,1301) = lu(k,1301) - lu(k,829) * lu(k,1295) - lu(k,1302) = lu(k,1302) - lu(k,830) * lu(k,1295) - lu(k,1303) = lu(k,1303) - lu(k,831) * lu(k,1295) - lu(k,1304) = lu(k,1304) - lu(k,832) * lu(k,1295) - lu(k,1305) = lu(k,1305) - lu(k,833) * lu(k,1295) - lu(k,1306) = lu(k,1306) - lu(k,834) * lu(k,1295) - lu(k,1307) = lu(k,1307) - lu(k,835) * lu(k,1295) - lu(k,1308) = lu(k,1308) - lu(k,836) * lu(k,1295) - lu(k,1309) = lu(k,1309) - lu(k,837) * lu(k,1295) - lu(k,1310) = lu(k,1310) - lu(k,838) * lu(k,1295) - lu(k,1311) = lu(k,1311) - lu(k,839) * lu(k,1295) - lu(k,1312) = lu(k,1312) - lu(k,840) * lu(k,1295) - lu(k,1313) = lu(k,1313) - lu(k,841) * lu(k,1295) - lu(k,1314) = lu(k,1314) - lu(k,842) * lu(k,1295) - lu(k,1315) = lu(k,1315) - lu(k,843) * lu(k,1295) - lu(k,1316) = lu(k,1316) - lu(k,844) * lu(k,1295) - lu(k,1317) = lu(k,1317) - lu(k,845) * lu(k,1295) - lu(k,1318) = lu(k,1318) - lu(k,846) * lu(k,1295) - lu(k,1341) = lu(k,1341) - lu(k,824) * lu(k,1340) - lu(k,1342) = lu(k,1342) - lu(k,825) * lu(k,1340) - lu(k,1343) = lu(k,1343) - lu(k,826) * lu(k,1340) - lu(k,1344) = lu(k,1344) - lu(k,827) * lu(k,1340) - lu(k,1345) = lu(k,1345) - lu(k,828) * lu(k,1340) - lu(k,1346) = lu(k,1346) - lu(k,829) * lu(k,1340) - lu(k,1347) = lu(k,1347) - lu(k,830) * lu(k,1340) - lu(k,1348) = lu(k,1348) - lu(k,831) * lu(k,1340) - lu(k,1349) = lu(k,1349) - lu(k,832) * lu(k,1340) - lu(k,1350) = lu(k,1350) - lu(k,833) * lu(k,1340) - lu(k,1351) = lu(k,1351) - lu(k,834) * lu(k,1340) - lu(k,1352) = lu(k,1352) - lu(k,835) * lu(k,1340) - lu(k,1353) = lu(k,1353) - lu(k,836) * lu(k,1340) - lu(k,1354) = lu(k,1354) - lu(k,837) * lu(k,1340) - lu(k,1355) = lu(k,1355) - lu(k,838) * lu(k,1340) - lu(k,1356) = lu(k,1356) - lu(k,839) * lu(k,1340) - lu(k,1357) = lu(k,1357) - lu(k,840) * lu(k,1340) - lu(k,1358) = lu(k,1358) - lu(k,841) * lu(k,1340) - lu(k,1359) = lu(k,1359) - lu(k,842) * lu(k,1340) - lu(k,1360) = lu(k,1360) - lu(k,843) * lu(k,1340) - lu(k,1361) = lu(k,1361) - lu(k,844) * lu(k,1340) - lu(k,1362) = lu(k,1362) - lu(k,845) * lu(k,1340) - lu(k,1363) = lu(k,1363) - lu(k,846) * lu(k,1340) - lu(k,1384) = lu(k,1384) - lu(k,824) * lu(k,1383) - lu(k,1385) = lu(k,1385) - lu(k,825) * lu(k,1383) - lu(k,1386) = lu(k,1386) - lu(k,826) * lu(k,1383) - lu(k,1387) = lu(k,1387) - lu(k,827) * lu(k,1383) - lu(k,1388) = lu(k,1388) - lu(k,828) * lu(k,1383) - lu(k,1389) = lu(k,1389) - lu(k,829) * lu(k,1383) - lu(k,1390) = lu(k,1390) - lu(k,830) * lu(k,1383) - lu(k,1391) = lu(k,1391) - lu(k,831) * lu(k,1383) - lu(k,1392) = lu(k,1392) - lu(k,832) * lu(k,1383) - lu(k,1393) = lu(k,1393) - lu(k,833) * lu(k,1383) - lu(k,1394) = lu(k,1394) - lu(k,834) * lu(k,1383) - lu(k,1395) = lu(k,1395) - lu(k,835) * lu(k,1383) - lu(k,1396) = lu(k,1396) - lu(k,836) * lu(k,1383) - lu(k,1397) = lu(k,1397) - lu(k,837) * lu(k,1383) - lu(k,1398) = lu(k,1398) - lu(k,838) * lu(k,1383) - lu(k,1399) = lu(k,1399) - lu(k,839) * lu(k,1383) - lu(k,1400) = lu(k,1400) - lu(k,840) * lu(k,1383) - lu(k,1401) = lu(k,1401) - lu(k,841) * lu(k,1383) - lu(k,1402) = lu(k,1402) - lu(k,842) * lu(k,1383) - lu(k,1403) = lu(k,1403) - lu(k,843) * lu(k,1383) - lu(k,1404) = lu(k,1404) - lu(k,844) * lu(k,1383) - lu(k,1405) = lu(k,1405) - lu(k,845) * lu(k,1383) - lu(k,1406) = lu(k,1406) - lu(k,846) * lu(k,1383) - lu(k,1419) = lu(k,1419) - lu(k,824) * lu(k,1418) - lu(k,1420) = lu(k,1420) - lu(k,825) * lu(k,1418) - lu(k,1421) = lu(k,1421) - lu(k,826) * lu(k,1418) - lu(k,1422) = lu(k,1422) - lu(k,827) * lu(k,1418) - lu(k,1423) = lu(k,1423) - lu(k,828) * lu(k,1418) - lu(k,1424) = lu(k,1424) - lu(k,829) * lu(k,1418) - lu(k,1425) = lu(k,1425) - lu(k,830) * lu(k,1418) - lu(k,1426) = lu(k,1426) - lu(k,831) * lu(k,1418) - lu(k,1427) = lu(k,1427) - lu(k,832) * lu(k,1418) - lu(k,1428) = lu(k,1428) - lu(k,833) * lu(k,1418) - lu(k,1429) = lu(k,1429) - lu(k,834) * lu(k,1418) - lu(k,1430) = lu(k,1430) - lu(k,835) * lu(k,1418) - lu(k,1431) = lu(k,1431) - lu(k,836) * lu(k,1418) - lu(k,1432) = lu(k,1432) - lu(k,837) * lu(k,1418) - lu(k,1433) = lu(k,1433) - lu(k,838) * lu(k,1418) - lu(k,1434) = lu(k,1434) - lu(k,839) * lu(k,1418) - lu(k,1435) = lu(k,1435) - lu(k,840) * lu(k,1418) - lu(k,1436) = lu(k,1436) - lu(k,841) * lu(k,1418) - lu(k,1437) = lu(k,1437) - lu(k,842) * lu(k,1418) - lu(k,1438) = lu(k,1438) - lu(k,843) * lu(k,1418) - lu(k,1439) = lu(k,1439) - lu(k,844) * lu(k,1418) - lu(k,1440) = lu(k,1440) - lu(k,845) * lu(k,1418) - lu(k,1441) = lu(k,1441) - lu(k,846) * lu(k,1418) - lu(k,1462) = lu(k,1462) - lu(k,824) * lu(k,1461) - lu(k,1463) = lu(k,1463) - lu(k,825) * lu(k,1461) - lu(k,1464) = lu(k,1464) - lu(k,826) * lu(k,1461) - lu(k,1465) = lu(k,1465) - lu(k,827) * lu(k,1461) - lu(k,1466) = lu(k,1466) - lu(k,828) * lu(k,1461) - lu(k,1467) = lu(k,1467) - lu(k,829) * lu(k,1461) - lu(k,1468) = lu(k,1468) - lu(k,830) * lu(k,1461) - lu(k,1469) = lu(k,1469) - lu(k,831) * lu(k,1461) - lu(k,1470) = lu(k,1470) - lu(k,832) * lu(k,1461) - lu(k,1471) = lu(k,1471) - lu(k,833) * lu(k,1461) - lu(k,1472) = lu(k,1472) - lu(k,834) * lu(k,1461) - lu(k,1473) = lu(k,1473) - lu(k,835) * lu(k,1461) - lu(k,1474) = lu(k,1474) - lu(k,836) * lu(k,1461) - lu(k,1475) = lu(k,1475) - lu(k,837) * lu(k,1461) - lu(k,1476) = lu(k,1476) - lu(k,838) * lu(k,1461) - lu(k,1477) = lu(k,1477) - lu(k,839) * lu(k,1461) - lu(k,1478) = lu(k,1478) - lu(k,840) * lu(k,1461) - lu(k,1479) = lu(k,1479) - lu(k,841) * lu(k,1461) - lu(k,1480) = lu(k,1480) - lu(k,842) * lu(k,1461) - lu(k,1481) = lu(k,1481) - lu(k,843) * lu(k,1461) - lu(k,1482) = lu(k,1482) - lu(k,844) * lu(k,1461) - lu(k,1483) = lu(k,1483) - lu(k,845) * lu(k,1461) - lu(k,1484) = lu(k,1484) - lu(k,846) * lu(k,1461) - lu(k,1505) = lu(k,1505) - lu(k,824) * lu(k,1504) - lu(k,1506) = lu(k,1506) - lu(k,825) * lu(k,1504) - lu(k,1507) = lu(k,1507) - lu(k,826) * lu(k,1504) - lu(k,1508) = lu(k,1508) - lu(k,827) * lu(k,1504) - lu(k,1509) = lu(k,1509) - lu(k,828) * lu(k,1504) - lu(k,1510) = lu(k,1510) - lu(k,829) * lu(k,1504) - lu(k,1511) = lu(k,1511) - lu(k,830) * lu(k,1504) - lu(k,1512) = lu(k,1512) - lu(k,831) * lu(k,1504) - lu(k,1513) = lu(k,1513) - lu(k,832) * lu(k,1504) - lu(k,1514) = lu(k,1514) - lu(k,833) * lu(k,1504) - lu(k,1515) = lu(k,1515) - lu(k,834) * lu(k,1504) - lu(k,1516) = lu(k,1516) - lu(k,835) * lu(k,1504) - lu(k,1517) = lu(k,1517) - lu(k,836) * lu(k,1504) - lu(k,1518) = lu(k,1518) - lu(k,837) * lu(k,1504) - lu(k,1519) = lu(k,1519) - lu(k,838) * lu(k,1504) - lu(k,1520) = lu(k,1520) - lu(k,839) * lu(k,1504) - lu(k,1521) = lu(k,1521) - lu(k,840) * lu(k,1504) - lu(k,1522) = lu(k,1522) - lu(k,841) * lu(k,1504) - lu(k,1523) = lu(k,1523) - lu(k,842) * lu(k,1504) - lu(k,1524) = lu(k,1524) - lu(k,843) * lu(k,1504) - lu(k,1525) = lu(k,1525) - lu(k,844) * lu(k,1504) - lu(k,1526) = lu(k,1526) - lu(k,845) * lu(k,1504) - lu(k,1527) = lu(k,1527) - lu(k,846) * lu(k,1504) - lu(k,1548) = lu(k,1548) - lu(k,824) * lu(k,1547) - lu(k,1549) = lu(k,1549) - lu(k,825) * lu(k,1547) - lu(k,1550) = lu(k,1550) - lu(k,826) * lu(k,1547) - lu(k,1551) = lu(k,1551) - lu(k,827) * lu(k,1547) - lu(k,1552) = lu(k,1552) - lu(k,828) * lu(k,1547) - lu(k,1553) = lu(k,1553) - lu(k,829) * lu(k,1547) - lu(k,1554) = lu(k,1554) - lu(k,830) * lu(k,1547) - lu(k,1555) = lu(k,1555) - lu(k,831) * lu(k,1547) - lu(k,1556) = lu(k,1556) - lu(k,832) * lu(k,1547) - lu(k,1557) = lu(k,1557) - lu(k,833) * lu(k,1547) - lu(k,1558) = lu(k,1558) - lu(k,834) * lu(k,1547) - lu(k,1559) = lu(k,1559) - lu(k,835) * lu(k,1547) - lu(k,1560) = lu(k,1560) - lu(k,836) * lu(k,1547) - lu(k,1561) = lu(k,1561) - lu(k,837) * lu(k,1547) - lu(k,1562) = lu(k,1562) - lu(k,838) * lu(k,1547) - lu(k,1563) = lu(k,1563) - lu(k,839) * lu(k,1547) - lu(k,1564) = lu(k,1564) - lu(k,840) * lu(k,1547) - lu(k,1565) = lu(k,1565) - lu(k,841) * lu(k,1547) - lu(k,1566) = lu(k,1566) - lu(k,842) * lu(k,1547) - lu(k,1567) = lu(k,1567) - lu(k,843) * lu(k,1547) - lu(k,1568) = lu(k,1568) - lu(k,844) * lu(k,1547) - lu(k,1569) = lu(k,1569) - lu(k,845) * lu(k,1547) - lu(k,1570) = lu(k,1570) - lu(k,846) * lu(k,1547) - lu(k,1581) = lu(k,1581) - lu(k,824) * lu(k,1580) - lu(k,1582) = lu(k,1582) - lu(k,825) * lu(k,1580) - lu(k,1583) = lu(k,1583) - lu(k,826) * lu(k,1580) - lu(k,1584) = lu(k,1584) - lu(k,827) * lu(k,1580) - lu(k,1585) = lu(k,1585) - lu(k,828) * lu(k,1580) - lu(k,1586) = lu(k,1586) - lu(k,829) * lu(k,1580) - lu(k,1587) = lu(k,1587) - lu(k,830) * lu(k,1580) - lu(k,1588) = lu(k,1588) - lu(k,831) * lu(k,1580) - lu(k,1589) = lu(k,1589) - lu(k,832) * lu(k,1580) - lu(k,1590) = lu(k,1590) - lu(k,833) * lu(k,1580) - lu(k,1591) = lu(k,1591) - lu(k,834) * lu(k,1580) - lu(k,1592) = lu(k,1592) - lu(k,835) * lu(k,1580) - lu(k,1593) = lu(k,1593) - lu(k,836) * lu(k,1580) - lu(k,1594) = lu(k,1594) - lu(k,837) * lu(k,1580) - lu(k,1595) = lu(k,1595) - lu(k,838) * lu(k,1580) - lu(k,1596) = lu(k,1596) - lu(k,839) * lu(k,1580) - lu(k,1597) = lu(k,1597) - lu(k,840) * lu(k,1580) - lu(k,1598) = lu(k,1598) - lu(k,841) * lu(k,1580) - lu(k,1599) = lu(k,1599) - lu(k,842) * lu(k,1580) - lu(k,1600) = lu(k,1600) - lu(k,843) * lu(k,1580) - lu(k,1601) = lu(k,1601) - lu(k,844) * lu(k,1580) - lu(k,1602) = lu(k,1602) - lu(k,845) * lu(k,1580) - lu(k,1603) = lu(k,1603) - lu(k,846) * lu(k,1580) - lu(k,1617) = lu(k,1617) - lu(k,824) * lu(k,1616) - lu(k,1618) = lu(k,1618) - lu(k,825) * lu(k,1616) - lu(k,1619) = lu(k,1619) - lu(k,826) * lu(k,1616) - lu(k,1620) = lu(k,1620) - lu(k,827) * lu(k,1616) - lu(k,1621) = lu(k,1621) - lu(k,828) * lu(k,1616) - lu(k,1622) = lu(k,1622) - lu(k,829) * lu(k,1616) - lu(k,1623) = lu(k,1623) - lu(k,830) * lu(k,1616) - lu(k,1624) = lu(k,1624) - lu(k,831) * lu(k,1616) - lu(k,1625) = lu(k,1625) - lu(k,832) * lu(k,1616) - lu(k,1626) = lu(k,1626) - lu(k,833) * lu(k,1616) - lu(k,1627) = lu(k,1627) - lu(k,834) * lu(k,1616) - lu(k,1628) = lu(k,1628) - lu(k,835) * lu(k,1616) - lu(k,1629) = lu(k,1629) - lu(k,836) * lu(k,1616) - lu(k,1630) = lu(k,1630) - lu(k,837) * lu(k,1616) - lu(k,1631) = lu(k,1631) - lu(k,838) * lu(k,1616) - lu(k,1632) = lu(k,1632) - lu(k,839) * lu(k,1616) - lu(k,1633) = lu(k,1633) - lu(k,840) * lu(k,1616) - lu(k,1634) = lu(k,1634) - lu(k,841) * lu(k,1616) - lu(k,1635) = lu(k,1635) - lu(k,842) * lu(k,1616) - lu(k,1636) = lu(k,1636) - lu(k,843) * lu(k,1616) - lu(k,1637) = lu(k,1637) - lu(k,844) * lu(k,1616) - lu(k,1638) = lu(k,1638) - lu(k,845) * lu(k,1616) - lu(k,1639) = lu(k,1639) - lu(k,846) * lu(k,1616) - lu(k,1660) = lu(k,1660) - lu(k,824) * lu(k,1659) - lu(k,1661) = lu(k,1661) - lu(k,825) * lu(k,1659) - lu(k,1662) = lu(k,1662) - lu(k,826) * lu(k,1659) - lu(k,1663) = lu(k,1663) - lu(k,827) * lu(k,1659) - lu(k,1664) = lu(k,1664) - lu(k,828) * lu(k,1659) - lu(k,1665) = lu(k,1665) - lu(k,829) * lu(k,1659) - lu(k,1666) = lu(k,1666) - lu(k,830) * lu(k,1659) - lu(k,1667) = lu(k,1667) - lu(k,831) * lu(k,1659) - lu(k,1668) = lu(k,1668) - lu(k,832) * lu(k,1659) - lu(k,1669) = lu(k,1669) - lu(k,833) * lu(k,1659) - lu(k,1670) = lu(k,1670) - lu(k,834) * lu(k,1659) - lu(k,1671) = lu(k,1671) - lu(k,835) * lu(k,1659) - lu(k,1672) = lu(k,1672) - lu(k,836) * lu(k,1659) - lu(k,1673) = lu(k,1673) - lu(k,837) * lu(k,1659) - lu(k,1674) = lu(k,1674) - lu(k,838) * lu(k,1659) - lu(k,1675) = lu(k,1675) - lu(k,839) * lu(k,1659) - lu(k,1676) = lu(k,1676) - lu(k,840) * lu(k,1659) - lu(k,1677) = lu(k,1677) - lu(k,841) * lu(k,1659) - lu(k,1678) = lu(k,1678) - lu(k,842) * lu(k,1659) - lu(k,1679) = lu(k,1679) - lu(k,843) * lu(k,1659) - lu(k,1680) = lu(k,1680) - lu(k,844) * lu(k,1659) - lu(k,1681) = lu(k,1681) - lu(k,845) * lu(k,1659) - lu(k,1682) = lu(k,1682) - lu(k,846) * lu(k,1659) - lu(k,1696) = lu(k,1696) - lu(k,824) * lu(k,1695) - lu(k,1697) = lu(k,1697) - lu(k,825) * lu(k,1695) - lu(k,1698) = lu(k,1698) - lu(k,826) * lu(k,1695) - lu(k,1699) = lu(k,1699) - lu(k,827) * lu(k,1695) - lu(k,1700) = lu(k,1700) - lu(k,828) * lu(k,1695) - lu(k,1701) = lu(k,1701) - lu(k,829) * lu(k,1695) - lu(k,1702) = lu(k,1702) - lu(k,830) * lu(k,1695) - lu(k,1703) = lu(k,1703) - lu(k,831) * lu(k,1695) - lu(k,1704) = lu(k,1704) - lu(k,832) * lu(k,1695) - lu(k,1705) = lu(k,1705) - lu(k,833) * lu(k,1695) - lu(k,1706) = lu(k,1706) - lu(k,834) * lu(k,1695) - lu(k,1707) = lu(k,1707) - lu(k,835) * lu(k,1695) - lu(k,1708) = lu(k,1708) - lu(k,836) * lu(k,1695) - lu(k,1709) = lu(k,1709) - lu(k,837) * lu(k,1695) - lu(k,1710) = lu(k,1710) - lu(k,838) * lu(k,1695) - lu(k,1711) = lu(k,1711) - lu(k,839) * lu(k,1695) - lu(k,1712) = lu(k,1712) - lu(k,840) * lu(k,1695) - lu(k,1713) = lu(k,1713) - lu(k,841) * lu(k,1695) - lu(k,1714) = lu(k,1714) - lu(k,842) * lu(k,1695) - lu(k,1715) = lu(k,1715) - lu(k,843) * lu(k,1695) - lu(k,1716) = lu(k,1716) - lu(k,844) * lu(k,1695) - lu(k,1717) = lu(k,1717) - lu(k,845) * lu(k,1695) - lu(k,1718) = lu(k,1718) - lu(k,846) * lu(k,1695) - lu(k,1741) = lu(k,1741) - lu(k,824) * lu(k,1740) - lu(k,1742) = lu(k,1742) - lu(k,825) * lu(k,1740) - lu(k,1743) = lu(k,1743) - lu(k,826) * lu(k,1740) - lu(k,1744) = lu(k,1744) - lu(k,827) * lu(k,1740) - lu(k,1745) = lu(k,1745) - lu(k,828) * lu(k,1740) - lu(k,1746) = lu(k,1746) - lu(k,829) * lu(k,1740) - lu(k,1747) = lu(k,1747) - lu(k,830) * lu(k,1740) - lu(k,1748) = lu(k,1748) - lu(k,831) * lu(k,1740) - lu(k,1749) = lu(k,1749) - lu(k,832) * lu(k,1740) - lu(k,1750) = lu(k,1750) - lu(k,833) * lu(k,1740) - lu(k,1751) = lu(k,1751) - lu(k,834) * lu(k,1740) - lu(k,1752) = lu(k,1752) - lu(k,835) * lu(k,1740) - lu(k,1753) = lu(k,1753) - lu(k,836) * lu(k,1740) - lu(k,1754) = lu(k,1754) - lu(k,837) * lu(k,1740) - lu(k,1755) = lu(k,1755) - lu(k,838) * lu(k,1740) - lu(k,1756) = lu(k,1756) - lu(k,839) * lu(k,1740) - lu(k,1757) = lu(k,1757) - lu(k,840) * lu(k,1740) - lu(k,1758) = lu(k,1758) - lu(k,841) * lu(k,1740) - lu(k,1759) = lu(k,1759) - lu(k,842) * lu(k,1740) - lu(k,1760) = lu(k,1760) - lu(k,843) * lu(k,1740) - lu(k,1761) = lu(k,1761) - lu(k,844) * lu(k,1740) - lu(k,1762) = lu(k,1762) - lu(k,845) * lu(k,1740) - lu(k,1763) = lu(k,1763) - lu(k,846) * lu(k,1740) - lu(k,1794) = lu(k,1794) - lu(k,824) * lu(k,1793) - lu(k,1795) = lu(k,1795) - lu(k,825) * lu(k,1793) - lu(k,1796) = lu(k,1796) - lu(k,826) * lu(k,1793) - lu(k,1797) = lu(k,1797) - lu(k,827) * lu(k,1793) - lu(k,1798) = lu(k,1798) - lu(k,828) * lu(k,1793) - lu(k,1799) = lu(k,1799) - lu(k,829) * lu(k,1793) - lu(k,1800) = lu(k,1800) - lu(k,830) * lu(k,1793) - lu(k,1801) = lu(k,1801) - lu(k,831) * lu(k,1793) - lu(k,1802) = lu(k,1802) - lu(k,832) * lu(k,1793) - lu(k,1803) = lu(k,1803) - lu(k,833) * lu(k,1793) - lu(k,1804) = lu(k,1804) - lu(k,834) * lu(k,1793) - lu(k,1805) = lu(k,1805) - lu(k,835) * lu(k,1793) - lu(k,1806) = lu(k,1806) - lu(k,836) * lu(k,1793) - lu(k,1807) = lu(k,1807) - lu(k,837) * lu(k,1793) - lu(k,1808) = lu(k,1808) - lu(k,838) * lu(k,1793) - lu(k,1809) = lu(k,1809) - lu(k,839) * lu(k,1793) - lu(k,1810) = lu(k,1810) - lu(k,840) * lu(k,1793) - lu(k,1811) = lu(k,1811) - lu(k,841) * lu(k,1793) - lu(k,1812) = lu(k,1812) - lu(k,842) * lu(k,1793) - lu(k,1813) = lu(k,1813) - lu(k,843) * lu(k,1793) - lu(k,1814) = lu(k,1814) - lu(k,844) * lu(k,1793) - lu(k,1815) = lu(k,1815) - lu(k,845) * lu(k,1793) - lu(k,1816) = lu(k,1816) - lu(k,846) * lu(k,1793) - 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,870) = 1._r8 / lu(k,870) - lu(k,871) = lu(k,871) * lu(k,870) - lu(k,872) = lu(k,872) * lu(k,870) - lu(k,873) = lu(k,873) * lu(k,870) - lu(k,874) = lu(k,874) * lu(k,870) - lu(k,875) = lu(k,875) * lu(k,870) - lu(k,876) = lu(k,876) * lu(k,870) - lu(k,877) = lu(k,877) * lu(k,870) - lu(k,878) = lu(k,878) * lu(k,870) - lu(k,879) = lu(k,879) * lu(k,870) - lu(k,880) = lu(k,880) * lu(k,870) - lu(k,881) = lu(k,881) * lu(k,870) - lu(k,882) = lu(k,882) * lu(k,870) - lu(k,883) = lu(k,883) * lu(k,870) - lu(k,884) = lu(k,884) * lu(k,870) - lu(k,885) = lu(k,885) * lu(k,870) - lu(k,886) = lu(k,886) * lu(k,870) - lu(k,887) = lu(k,887) * lu(k,870) - lu(k,888) = lu(k,888) * lu(k,870) - lu(k,889) = lu(k,889) * lu(k,870) - lu(k,890) = lu(k,890) * lu(k,870) - lu(k,891) = lu(k,891) * lu(k,870) - lu(k,892) = lu(k,892) * lu(k,870) - lu(k,914) = lu(k,914) - lu(k,871) * lu(k,913) - lu(k,915) = lu(k,915) - lu(k,872) * lu(k,913) - lu(k,916) = lu(k,916) - lu(k,873) * lu(k,913) - lu(k,917) = lu(k,917) - lu(k,874) * lu(k,913) - lu(k,918) = lu(k,918) - lu(k,875) * lu(k,913) - lu(k,919) = lu(k,919) - lu(k,876) * lu(k,913) - lu(k,920) = lu(k,920) - lu(k,877) * lu(k,913) - lu(k,921) = lu(k,921) - lu(k,878) * lu(k,913) - lu(k,922) = lu(k,922) - lu(k,879) * lu(k,913) - lu(k,923) = lu(k,923) - lu(k,880) * lu(k,913) - lu(k,924) = lu(k,924) - lu(k,881) * lu(k,913) - lu(k,925) = lu(k,925) - lu(k,882) * lu(k,913) - lu(k,926) = lu(k,926) - lu(k,883) * lu(k,913) - lu(k,927) = lu(k,927) - lu(k,884) * lu(k,913) - lu(k,928) = lu(k,928) - lu(k,885) * lu(k,913) - lu(k,929) = lu(k,929) - lu(k,886) * lu(k,913) - lu(k,930) = lu(k,930) - lu(k,887) * lu(k,913) - lu(k,931) = lu(k,931) - lu(k,888) * lu(k,913) - lu(k,932) = lu(k,932) - lu(k,889) * lu(k,913) - lu(k,933) = lu(k,933) - lu(k,890) * lu(k,913) - lu(k,934) = lu(k,934) - lu(k,891) * lu(k,913) - lu(k,935) = lu(k,935) - lu(k,892) * lu(k,913) - lu(k,957) = lu(k,957) - lu(k,871) * lu(k,956) - lu(k,958) = lu(k,958) - lu(k,872) * lu(k,956) - lu(k,959) = lu(k,959) - lu(k,873) * lu(k,956) - lu(k,960) = lu(k,960) - lu(k,874) * lu(k,956) - lu(k,961) = lu(k,961) - lu(k,875) * lu(k,956) - lu(k,962) = lu(k,962) - lu(k,876) * lu(k,956) - lu(k,963) = lu(k,963) - lu(k,877) * lu(k,956) - lu(k,964) = lu(k,964) - lu(k,878) * lu(k,956) - lu(k,965) = lu(k,965) - lu(k,879) * lu(k,956) - lu(k,966) = lu(k,966) - lu(k,880) * lu(k,956) - lu(k,967) = lu(k,967) - lu(k,881) * lu(k,956) - lu(k,968) = lu(k,968) - lu(k,882) * lu(k,956) - lu(k,969) = lu(k,969) - lu(k,883) * lu(k,956) - lu(k,970) = lu(k,970) - lu(k,884) * lu(k,956) - lu(k,971) = lu(k,971) - lu(k,885) * lu(k,956) - lu(k,972) = lu(k,972) - lu(k,886) * lu(k,956) - lu(k,973) = lu(k,973) - lu(k,887) * lu(k,956) - lu(k,974) = lu(k,974) - lu(k,888) * lu(k,956) - lu(k,975) = lu(k,975) - lu(k,889) * lu(k,956) - lu(k,976) = lu(k,976) - lu(k,890) * lu(k,956) - lu(k,977) = lu(k,977) - lu(k,891) * lu(k,956) - lu(k,978) = lu(k,978) - lu(k,892) * lu(k,956) - lu(k,999) = lu(k,999) - lu(k,871) * lu(k,998) - lu(k,1000) = lu(k,1000) - lu(k,872) * lu(k,998) - lu(k,1001) = lu(k,1001) - lu(k,873) * lu(k,998) - lu(k,1002) = lu(k,1002) - lu(k,874) * lu(k,998) - lu(k,1003) = lu(k,1003) - lu(k,875) * lu(k,998) - lu(k,1004) = lu(k,1004) - lu(k,876) * lu(k,998) - lu(k,1005) = lu(k,1005) - lu(k,877) * lu(k,998) - lu(k,1006) = lu(k,1006) - lu(k,878) * lu(k,998) - lu(k,1007) = lu(k,1007) - lu(k,879) * lu(k,998) - lu(k,1008) = lu(k,1008) - lu(k,880) * lu(k,998) - lu(k,1009) = lu(k,1009) - lu(k,881) * lu(k,998) - lu(k,1010) = lu(k,1010) - lu(k,882) * lu(k,998) - lu(k,1011) = lu(k,1011) - lu(k,883) * lu(k,998) - lu(k,1012) = lu(k,1012) - lu(k,884) * lu(k,998) - lu(k,1013) = lu(k,1013) - lu(k,885) * lu(k,998) - lu(k,1014) = lu(k,1014) - lu(k,886) * lu(k,998) - lu(k,1015) = lu(k,1015) - lu(k,887) * lu(k,998) - lu(k,1016) = lu(k,1016) - lu(k,888) * lu(k,998) - lu(k,1017) = lu(k,1017) - lu(k,889) * lu(k,998) - lu(k,1018) = lu(k,1018) - lu(k,890) * lu(k,998) - lu(k,1019) = lu(k,1019) - lu(k,891) * lu(k,998) - lu(k,1020) = lu(k,1020) - lu(k,892) * lu(k,998) - lu(k,1041) = lu(k,1041) - lu(k,871) * lu(k,1040) - lu(k,1042) = lu(k,1042) - lu(k,872) * lu(k,1040) - lu(k,1043) = lu(k,1043) - lu(k,873) * lu(k,1040) - lu(k,1044) = lu(k,1044) - lu(k,874) * lu(k,1040) - lu(k,1045) = lu(k,1045) - lu(k,875) * lu(k,1040) - lu(k,1046) = lu(k,1046) - lu(k,876) * lu(k,1040) - lu(k,1047) = lu(k,1047) - lu(k,877) * lu(k,1040) - lu(k,1048) = lu(k,1048) - lu(k,878) * lu(k,1040) - lu(k,1049) = lu(k,1049) - lu(k,879) * lu(k,1040) - lu(k,1050) = lu(k,1050) - lu(k,880) * lu(k,1040) - lu(k,1051) = lu(k,1051) - lu(k,881) * lu(k,1040) - lu(k,1052) = lu(k,1052) - lu(k,882) * lu(k,1040) - lu(k,1053) = lu(k,1053) - lu(k,883) * lu(k,1040) - lu(k,1054) = lu(k,1054) - lu(k,884) * lu(k,1040) - lu(k,1055) = lu(k,1055) - lu(k,885) * lu(k,1040) - lu(k,1056) = lu(k,1056) - lu(k,886) * lu(k,1040) - lu(k,1057) = lu(k,1057) - lu(k,887) * lu(k,1040) - lu(k,1058) = lu(k,1058) - lu(k,888) * lu(k,1040) - lu(k,1059) = lu(k,1059) - lu(k,889) * lu(k,1040) - lu(k,1060) = lu(k,1060) - lu(k,890) * lu(k,1040) - lu(k,1061) = lu(k,1061) - lu(k,891) * lu(k,1040) - lu(k,1062) = lu(k,1062) - lu(k,892) * lu(k,1040) - lu(k,1082) = lu(k,1082) - lu(k,871) * lu(k,1081) - lu(k,1083) = lu(k,1083) - lu(k,872) * lu(k,1081) - lu(k,1084) = lu(k,1084) - lu(k,873) * lu(k,1081) - lu(k,1085) = lu(k,1085) - lu(k,874) * lu(k,1081) - lu(k,1086) = lu(k,1086) - lu(k,875) * lu(k,1081) - lu(k,1087) = lu(k,1087) - lu(k,876) * lu(k,1081) - lu(k,1088) = lu(k,1088) - lu(k,877) * lu(k,1081) - lu(k,1089) = lu(k,1089) - lu(k,878) * lu(k,1081) - lu(k,1090) = lu(k,1090) - lu(k,879) * lu(k,1081) - lu(k,1091) = lu(k,1091) - lu(k,880) * lu(k,1081) - lu(k,1092) = lu(k,1092) - lu(k,881) * lu(k,1081) - lu(k,1093) = lu(k,1093) - lu(k,882) * lu(k,1081) - lu(k,1094) = lu(k,1094) - lu(k,883) * lu(k,1081) - lu(k,1095) = lu(k,1095) - lu(k,884) * lu(k,1081) - lu(k,1096) = lu(k,1096) - lu(k,885) * lu(k,1081) - lu(k,1097) = lu(k,1097) - lu(k,886) * lu(k,1081) - lu(k,1098) = lu(k,1098) - lu(k,887) * lu(k,1081) - lu(k,1099) = lu(k,1099) - lu(k,888) * lu(k,1081) - lu(k,1100) = lu(k,1100) - lu(k,889) * lu(k,1081) - lu(k,1101) = lu(k,1101) - lu(k,890) * lu(k,1081) - lu(k,1102) = lu(k,1102) - lu(k,891) * lu(k,1081) - lu(k,1103) = lu(k,1103) - lu(k,892) * lu(k,1081) - lu(k,1127) = lu(k,1127) - lu(k,871) * lu(k,1126) - lu(k,1128) = lu(k,1128) - lu(k,872) * lu(k,1126) - lu(k,1129) = lu(k,1129) - lu(k,873) * lu(k,1126) - lu(k,1130) = lu(k,1130) - lu(k,874) * lu(k,1126) - lu(k,1131) = lu(k,1131) - lu(k,875) * lu(k,1126) - lu(k,1132) = lu(k,1132) - lu(k,876) * lu(k,1126) - lu(k,1133) = lu(k,1133) - lu(k,877) * lu(k,1126) - lu(k,1134) = lu(k,1134) - lu(k,878) * lu(k,1126) - lu(k,1135) = lu(k,1135) - lu(k,879) * lu(k,1126) - lu(k,1136) = lu(k,1136) - lu(k,880) * lu(k,1126) - lu(k,1137) = lu(k,1137) - lu(k,881) * lu(k,1126) - lu(k,1138) = lu(k,1138) - lu(k,882) * lu(k,1126) - lu(k,1139) = lu(k,1139) - lu(k,883) * lu(k,1126) - lu(k,1140) = lu(k,1140) - lu(k,884) * lu(k,1126) - lu(k,1141) = lu(k,1141) - lu(k,885) * lu(k,1126) - lu(k,1142) = lu(k,1142) - lu(k,886) * lu(k,1126) - lu(k,1143) = lu(k,1143) - lu(k,887) * lu(k,1126) - lu(k,1144) = lu(k,1144) - lu(k,888) * lu(k,1126) - lu(k,1145) = lu(k,1145) - lu(k,889) * lu(k,1126) - lu(k,1146) = lu(k,1146) - lu(k,890) * lu(k,1126) - lu(k,1147) = lu(k,1147) - lu(k,891) * lu(k,1126) - lu(k,1148) = lu(k,1148) - lu(k,892) * lu(k,1126) - lu(k,1167) = lu(k,1167) - lu(k,871) * lu(k,1166) - lu(k,1168) = lu(k,1168) - lu(k,872) * lu(k,1166) - lu(k,1169) = lu(k,1169) - lu(k,873) * lu(k,1166) - lu(k,1170) = lu(k,1170) - lu(k,874) * lu(k,1166) - lu(k,1171) = lu(k,1171) - lu(k,875) * lu(k,1166) - lu(k,1172) = lu(k,1172) - lu(k,876) * lu(k,1166) - lu(k,1173) = lu(k,1173) - lu(k,877) * lu(k,1166) - lu(k,1174) = lu(k,1174) - lu(k,878) * lu(k,1166) - lu(k,1175) = lu(k,1175) - lu(k,879) * lu(k,1166) - lu(k,1176) = lu(k,1176) - lu(k,880) * lu(k,1166) - lu(k,1177) = lu(k,1177) - lu(k,881) * lu(k,1166) - lu(k,1178) = lu(k,1178) - lu(k,882) * lu(k,1166) - lu(k,1179) = lu(k,1179) - lu(k,883) * lu(k,1166) - lu(k,1180) = lu(k,1180) - lu(k,884) * lu(k,1166) - lu(k,1181) = lu(k,1181) - lu(k,885) * lu(k,1166) - lu(k,1182) = lu(k,1182) - lu(k,886) * lu(k,1166) - lu(k,1183) = lu(k,1183) - lu(k,887) * lu(k,1166) - lu(k,1184) = lu(k,1184) - lu(k,888) * lu(k,1166) - lu(k,1185) = lu(k,1185) - lu(k,889) * lu(k,1166) - lu(k,1186) = lu(k,1186) - lu(k,890) * lu(k,1166) - lu(k,1187) = lu(k,1187) - lu(k,891) * lu(k,1166) - lu(k,1188) = lu(k,1188) - lu(k,892) * lu(k,1166) - lu(k,1223) = lu(k,1223) - lu(k,871) * lu(k,1222) - lu(k,1224) = lu(k,1224) - lu(k,872) * lu(k,1222) - lu(k,1225) = lu(k,1225) - lu(k,873) * lu(k,1222) - lu(k,1226) = lu(k,1226) - lu(k,874) * lu(k,1222) - lu(k,1227) = lu(k,1227) - lu(k,875) * lu(k,1222) - lu(k,1228) = lu(k,1228) - lu(k,876) * lu(k,1222) - lu(k,1229) = lu(k,1229) - lu(k,877) * lu(k,1222) - lu(k,1230) = lu(k,1230) - lu(k,878) * lu(k,1222) - lu(k,1231) = lu(k,1231) - lu(k,879) * lu(k,1222) - lu(k,1232) = lu(k,1232) - lu(k,880) * lu(k,1222) - lu(k,1233) = lu(k,1233) - lu(k,881) * lu(k,1222) - lu(k,1234) = lu(k,1234) - lu(k,882) * lu(k,1222) - lu(k,1235) = lu(k,1235) - lu(k,883) * lu(k,1222) - lu(k,1236) = lu(k,1236) - lu(k,884) * lu(k,1222) - lu(k,1237) = lu(k,1237) - lu(k,885) * lu(k,1222) - lu(k,1238) = lu(k,1238) - lu(k,886) * lu(k,1222) - lu(k,1239) = lu(k,1239) - lu(k,887) * lu(k,1222) - lu(k,1240) = lu(k,1240) - lu(k,888) * lu(k,1222) - lu(k,1241) = lu(k,1241) - lu(k,889) * lu(k,1222) - lu(k,1242) = lu(k,1242) - lu(k,890) * lu(k,1222) - lu(k,1243) = lu(k,1243) - lu(k,891) * lu(k,1222) - lu(k,1244) = lu(k,1244) - lu(k,892) * lu(k,1222) - lu(k,1261) = lu(k,1261) - lu(k,871) * lu(k,1260) - lu(k,1262) = lu(k,1262) - lu(k,872) * lu(k,1260) - lu(k,1263) = lu(k,1263) - lu(k,873) * lu(k,1260) - lu(k,1264) = lu(k,1264) - lu(k,874) * lu(k,1260) - lu(k,1265) = lu(k,1265) - lu(k,875) * lu(k,1260) - lu(k,1266) = lu(k,1266) - lu(k,876) * lu(k,1260) - lu(k,1267) = lu(k,1267) - lu(k,877) * lu(k,1260) - lu(k,1268) = lu(k,1268) - lu(k,878) * lu(k,1260) - lu(k,1269) = lu(k,1269) - lu(k,879) * lu(k,1260) - lu(k,1270) = lu(k,1270) - lu(k,880) * lu(k,1260) - lu(k,1271) = lu(k,1271) - lu(k,881) * lu(k,1260) - lu(k,1272) = lu(k,1272) - lu(k,882) * lu(k,1260) - lu(k,1273) = lu(k,1273) - lu(k,883) * lu(k,1260) - lu(k,1274) = lu(k,1274) - lu(k,884) * lu(k,1260) - lu(k,1275) = lu(k,1275) - lu(k,885) * lu(k,1260) - lu(k,1276) = lu(k,1276) - lu(k,886) * lu(k,1260) - lu(k,1277) = lu(k,1277) - lu(k,887) * lu(k,1260) - lu(k,1278) = lu(k,1278) - lu(k,888) * lu(k,1260) - lu(k,1279) = lu(k,1279) - lu(k,889) * lu(k,1260) - lu(k,1280) = lu(k,1280) - lu(k,890) * lu(k,1260) - lu(k,1281) = lu(k,1281) - lu(k,891) * lu(k,1260) - lu(k,1282) = lu(k,1282) - lu(k,892) * lu(k,1260) - lu(k,1297) = lu(k,1297) - lu(k,871) * lu(k,1296) - lu(k,1298) = lu(k,1298) - lu(k,872) * lu(k,1296) - lu(k,1299) = lu(k,1299) - lu(k,873) * lu(k,1296) - lu(k,1300) = lu(k,1300) - lu(k,874) * lu(k,1296) - lu(k,1301) = lu(k,1301) - lu(k,875) * lu(k,1296) - lu(k,1302) = lu(k,1302) - lu(k,876) * lu(k,1296) - lu(k,1303) = lu(k,1303) - lu(k,877) * lu(k,1296) - lu(k,1304) = lu(k,1304) - lu(k,878) * lu(k,1296) - lu(k,1305) = lu(k,1305) - lu(k,879) * lu(k,1296) - lu(k,1306) = lu(k,1306) - lu(k,880) * lu(k,1296) - lu(k,1307) = lu(k,1307) - lu(k,881) * lu(k,1296) - lu(k,1308) = lu(k,1308) - lu(k,882) * lu(k,1296) - lu(k,1309) = lu(k,1309) - lu(k,883) * lu(k,1296) - lu(k,1310) = lu(k,1310) - lu(k,884) * lu(k,1296) - lu(k,1311) = lu(k,1311) - lu(k,885) * lu(k,1296) - lu(k,1312) = lu(k,1312) - lu(k,886) * lu(k,1296) - lu(k,1313) = lu(k,1313) - lu(k,887) * lu(k,1296) - lu(k,1314) = lu(k,1314) - lu(k,888) * lu(k,1296) - lu(k,1315) = lu(k,1315) - lu(k,889) * lu(k,1296) - lu(k,1316) = lu(k,1316) - lu(k,890) * lu(k,1296) - lu(k,1317) = lu(k,1317) - lu(k,891) * lu(k,1296) - lu(k,1318) = lu(k,1318) - lu(k,892) * lu(k,1296) - lu(k,1342) = lu(k,1342) - lu(k,871) * lu(k,1341) - lu(k,1343) = lu(k,1343) - lu(k,872) * lu(k,1341) - lu(k,1344) = lu(k,1344) - lu(k,873) * lu(k,1341) - lu(k,1345) = lu(k,1345) - lu(k,874) * lu(k,1341) - lu(k,1346) = lu(k,1346) - lu(k,875) * lu(k,1341) - lu(k,1347) = lu(k,1347) - lu(k,876) * lu(k,1341) - lu(k,1348) = lu(k,1348) - lu(k,877) * lu(k,1341) - lu(k,1349) = lu(k,1349) - lu(k,878) * lu(k,1341) - lu(k,1350) = lu(k,1350) - lu(k,879) * lu(k,1341) - lu(k,1351) = lu(k,1351) - lu(k,880) * lu(k,1341) - lu(k,1352) = lu(k,1352) - lu(k,881) * lu(k,1341) - lu(k,1353) = lu(k,1353) - lu(k,882) * lu(k,1341) - lu(k,1354) = lu(k,1354) - lu(k,883) * lu(k,1341) - lu(k,1355) = lu(k,1355) - lu(k,884) * lu(k,1341) - lu(k,1356) = lu(k,1356) - lu(k,885) * lu(k,1341) - lu(k,1357) = lu(k,1357) - lu(k,886) * lu(k,1341) - lu(k,1358) = lu(k,1358) - lu(k,887) * lu(k,1341) - lu(k,1359) = lu(k,1359) - lu(k,888) * lu(k,1341) - lu(k,1360) = lu(k,1360) - lu(k,889) * lu(k,1341) - lu(k,1361) = lu(k,1361) - lu(k,890) * lu(k,1341) - lu(k,1362) = lu(k,1362) - lu(k,891) * lu(k,1341) - lu(k,1363) = lu(k,1363) - lu(k,892) * lu(k,1341) - lu(k,1385) = lu(k,1385) - lu(k,871) * lu(k,1384) - lu(k,1386) = lu(k,1386) - lu(k,872) * lu(k,1384) - lu(k,1387) = lu(k,1387) - lu(k,873) * lu(k,1384) - lu(k,1388) = lu(k,1388) - lu(k,874) * lu(k,1384) - lu(k,1389) = lu(k,1389) - lu(k,875) * lu(k,1384) - lu(k,1390) = lu(k,1390) - lu(k,876) * lu(k,1384) - lu(k,1391) = lu(k,1391) - lu(k,877) * lu(k,1384) - lu(k,1392) = lu(k,1392) - lu(k,878) * lu(k,1384) - lu(k,1393) = lu(k,1393) - lu(k,879) * lu(k,1384) - lu(k,1394) = lu(k,1394) - lu(k,880) * lu(k,1384) - lu(k,1395) = lu(k,1395) - lu(k,881) * lu(k,1384) - lu(k,1396) = lu(k,1396) - lu(k,882) * lu(k,1384) - lu(k,1397) = lu(k,1397) - lu(k,883) * lu(k,1384) - lu(k,1398) = lu(k,1398) - lu(k,884) * lu(k,1384) - lu(k,1399) = lu(k,1399) - lu(k,885) * lu(k,1384) - lu(k,1400) = lu(k,1400) - lu(k,886) * lu(k,1384) - lu(k,1401) = lu(k,1401) - lu(k,887) * lu(k,1384) - lu(k,1402) = lu(k,1402) - lu(k,888) * lu(k,1384) - lu(k,1403) = lu(k,1403) - lu(k,889) * lu(k,1384) - lu(k,1404) = lu(k,1404) - lu(k,890) * lu(k,1384) - lu(k,1405) = lu(k,1405) - lu(k,891) * lu(k,1384) - lu(k,1406) = lu(k,1406) - lu(k,892) * lu(k,1384) - lu(k,1420) = lu(k,1420) - lu(k,871) * lu(k,1419) - lu(k,1421) = lu(k,1421) - lu(k,872) * lu(k,1419) - lu(k,1422) = lu(k,1422) - lu(k,873) * lu(k,1419) - lu(k,1423) = lu(k,1423) - lu(k,874) * lu(k,1419) - lu(k,1424) = lu(k,1424) - lu(k,875) * lu(k,1419) - lu(k,1425) = lu(k,1425) - lu(k,876) * lu(k,1419) - lu(k,1426) = lu(k,1426) - lu(k,877) * lu(k,1419) - lu(k,1427) = lu(k,1427) - lu(k,878) * lu(k,1419) - lu(k,1428) = lu(k,1428) - lu(k,879) * lu(k,1419) - lu(k,1429) = lu(k,1429) - lu(k,880) * lu(k,1419) - lu(k,1430) = lu(k,1430) - lu(k,881) * lu(k,1419) - lu(k,1431) = lu(k,1431) - lu(k,882) * lu(k,1419) - lu(k,1432) = lu(k,1432) - lu(k,883) * lu(k,1419) - lu(k,1433) = lu(k,1433) - lu(k,884) * lu(k,1419) - lu(k,1434) = lu(k,1434) - lu(k,885) * lu(k,1419) - lu(k,1435) = lu(k,1435) - lu(k,886) * lu(k,1419) - lu(k,1436) = lu(k,1436) - lu(k,887) * lu(k,1419) - lu(k,1437) = lu(k,1437) - lu(k,888) * lu(k,1419) - lu(k,1438) = lu(k,1438) - lu(k,889) * lu(k,1419) - lu(k,1439) = lu(k,1439) - lu(k,890) * lu(k,1419) - lu(k,1440) = lu(k,1440) - lu(k,891) * lu(k,1419) - lu(k,1441) = lu(k,1441) - lu(k,892) * lu(k,1419) - lu(k,1463) = lu(k,1463) - lu(k,871) * lu(k,1462) - lu(k,1464) = lu(k,1464) - lu(k,872) * lu(k,1462) - lu(k,1465) = lu(k,1465) - lu(k,873) * lu(k,1462) - lu(k,1466) = lu(k,1466) - lu(k,874) * lu(k,1462) - lu(k,1467) = lu(k,1467) - lu(k,875) * lu(k,1462) - lu(k,1468) = lu(k,1468) - lu(k,876) * lu(k,1462) - lu(k,1469) = lu(k,1469) - lu(k,877) * lu(k,1462) - lu(k,1470) = lu(k,1470) - lu(k,878) * lu(k,1462) - lu(k,1471) = lu(k,1471) - lu(k,879) * lu(k,1462) - lu(k,1472) = lu(k,1472) - lu(k,880) * lu(k,1462) - lu(k,1473) = lu(k,1473) - lu(k,881) * lu(k,1462) - lu(k,1474) = lu(k,1474) - lu(k,882) * lu(k,1462) - lu(k,1475) = lu(k,1475) - lu(k,883) * lu(k,1462) - lu(k,1476) = lu(k,1476) - lu(k,884) * lu(k,1462) - lu(k,1477) = lu(k,1477) - lu(k,885) * lu(k,1462) - lu(k,1478) = lu(k,1478) - lu(k,886) * lu(k,1462) - lu(k,1479) = lu(k,1479) - lu(k,887) * lu(k,1462) - lu(k,1480) = lu(k,1480) - lu(k,888) * lu(k,1462) - lu(k,1481) = lu(k,1481) - lu(k,889) * lu(k,1462) - lu(k,1482) = lu(k,1482) - lu(k,890) * lu(k,1462) - lu(k,1483) = lu(k,1483) - lu(k,891) * lu(k,1462) - lu(k,1484) = lu(k,1484) - lu(k,892) * lu(k,1462) - lu(k,1506) = lu(k,1506) - lu(k,871) * lu(k,1505) - lu(k,1507) = lu(k,1507) - lu(k,872) * lu(k,1505) - lu(k,1508) = lu(k,1508) - lu(k,873) * lu(k,1505) - lu(k,1509) = lu(k,1509) - lu(k,874) * lu(k,1505) - lu(k,1510) = lu(k,1510) - lu(k,875) * lu(k,1505) - lu(k,1511) = lu(k,1511) - lu(k,876) * lu(k,1505) - lu(k,1512) = lu(k,1512) - lu(k,877) * lu(k,1505) - lu(k,1513) = lu(k,1513) - lu(k,878) * lu(k,1505) - lu(k,1514) = lu(k,1514) - lu(k,879) * lu(k,1505) - lu(k,1515) = lu(k,1515) - lu(k,880) * lu(k,1505) - lu(k,1516) = lu(k,1516) - lu(k,881) * lu(k,1505) - lu(k,1517) = lu(k,1517) - lu(k,882) * lu(k,1505) - lu(k,1518) = lu(k,1518) - lu(k,883) * lu(k,1505) - lu(k,1519) = lu(k,1519) - lu(k,884) * lu(k,1505) - lu(k,1520) = lu(k,1520) - lu(k,885) * lu(k,1505) - lu(k,1521) = lu(k,1521) - lu(k,886) * lu(k,1505) - lu(k,1522) = lu(k,1522) - lu(k,887) * lu(k,1505) - lu(k,1523) = lu(k,1523) - lu(k,888) * lu(k,1505) - lu(k,1524) = lu(k,1524) - lu(k,889) * lu(k,1505) - lu(k,1525) = lu(k,1525) - lu(k,890) * lu(k,1505) - lu(k,1526) = lu(k,1526) - lu(k,891) * lu(k,1505) - lu(k,1527) = lu(k,1527) - lu(k,892) * lu(k,1505) - lu(k,1549) = lu(k,1549) - lu(k,871) * lu(k,1548) - lu(k,1550) = lu(k,1550) - lu(k,872) * lu(k,1548) - lu(k,1551) = lu(k,1551) - lu(k,873) * lu(k,1548) - lu(k,1552) = lu(k,1552) - lu(k,874) * lu(k,1548) - lu(k,1553) = lu(k,1553) - lu(k,875) * lu(k,1548) - lu(k,1554) = lu(k,1554) - lu(k,876) * lu(k,1548) - lu(k,1555) = lu(k,1555) - lu(k,877) * lu(k,1548) - lu(k,1556) = lu(k,1556) - lu(k,878) * lu(k,1548) - lu(k,1557) = lu(k,1557) - lu(k,879) * lu(k,1548) - lu(k,1558) = lu(k,1558) - lu(k,880) * lu(k,1548) - lu(k,1559) = lu(k,1559) - lu(k,881) * lu(k,1548) - lu(k,1560) = lu(k,1560) - lu(k,882) * lu(k,1548) - lu(k,1561) = lu(k,1561) - lu(k,883) * lu(k,1548) - lu(k,1562) = lu(k,1562) - lu(k,884) * lu(k,1548) - lu(k,1563) = lu(k,1563) - lu(k,885) * lu(k,1548) - lu(k,1564) = lu(k,1564) - lu(k,886) * lu(k,1548) - lu(k,1565) = lu(k,1565) - lu(k,887) * lu(k,1548) - lu(k,1566) = lu(k,1566) - lu(k,888) * lu(k,1548) - lu(k,1567) = lu(k,1567) - lu(k,889) * lu(k,1548) - lu(k,1568) = lu(k,1568) - lu(k,890) * lu(k,1548) - lu(k,1569) = lu(k,1569) - lu(k,891) * lu(k,1548) - lu(k,1570) = lu(k,1570) - lu(k,892) * lu(k,1548) - lu(k,1582) = lu(k,1582) - lu(k,871) * lu(k,1581) - lu(k,1583) = lu(k,1583) - lu(k,872) * lu(k,1581) - lu(k,1584) = lu(k,1584) - lu(k,873) * lu(k,1581) - lu(k,1585) = lu(k,1585) - lu(k,874) * lu(k,1581) - lu(k,1586) = lu(k,1586) - lu(k,875) * lu(k,1581) - lu(k,1587) = lu(k,1587) - lu(k,876) * lu(k,1581) - lu(k,1588) = lu(k,1588) - lu(k,877) * lu(k,1581) - lu(k,1589) = lu(k,1589) - lu(k,878) * lu(k,1581) - lu(k,1590) = lu(k,1590) - lu(k,879) * lu(k,1581) - lu(k,1591) = lu(k,1591) - lu(k,880) * lu(k,1581) - lu(k,1592) = lu(k,1592) - lu(k,881) * lu(k,1581) - lu(k,1593) = lu(k,1593) - lu(k,882) * lu(k,1581) - lu(k,1594) = lu(k,1594) - lu(k,883) * lu(k,1581) - lu(k,1595) = lu(k,1595) - lu(k,884) * lu(k,1581) - lu(k,1596) = lu(k,1596) - lu(k,885) * lu(k,1581) - lu(k,1597) = lu(k,1597) - lu(k,886) * lu(k,1581) - lu(k,1598) = lu(k,1598) - lu(k,887) * lu(k,1581) - lu(k,1599) = lu(k,1599) - lu(k,888) * lu(k,1581) - lu(k,1600) = lu(k,1600) - lu(k,889) * lu(k,1581) - lu(k,1601) = lu(k,1601) - lu(k,890) * lu(k,1581) - lu(k,1602) = lu(k,1602) - lu(k,891) * lu(k,1581) - lu(k,1603) = lu(k,1603) - lu(k,892) * lu(k,1581) - lu(k,1618) = lu(k,1618) - lu(k,871) * lu(k,1617) - lu(k,1619) = lu(k,1619) - lu(k,872) * lu(k,1617) - lu(k,1620) = lu(k,1620) - lu(k,873) * lu(k,1617) - lu(k,1621) = lu(k,1621) - lu(k,874) * lu(k,1617) - lu(k,1622) = lu(k,1622) - lu(k,875) * lu(k,1617) - lu(k,1623) = lu(k,1623) - lu(k,876) * lu(k,1617) - lu(k,1624) = lu(k,1624) - lu(k,877) * lu(k,1617) - lu(k,1625) = lu(k,1625) - lu(k,878) * lu(k,1617) - lu(k,1626) = lu(k,1626) - lu(k,879) * lu(k,1617) - lu(k,1627) = lu(k,1627) - lu(k,880) * lu(k,1617) - lu(k,1628) = lu(k,1628) - lu(k,881) * lu(k,1617) - lu(k,1629) = lu(k,1629) - lu(k,882) * lu(k,1617) - lu(k,1630) = lu(k,1630) - lu(k,883) * lu(k,1617) - lu(k,1631) = lu(k,1631) - lu(k,884) * lu(k,1617) - lu(k,1632) = lu(k,1632) - lu(k,885) * lu(k,1617) - lu(k,1633) = lu(k,1633) - lu(k,886) * lu(k,1617) - lu(k,1634) = lu(k,1634) - lu(k,887) * lu(k,1617) - lu(k,1635) = lu(k,1635) - lu(k,888) * lu(k,1617) - lu(k,1636) = lu(k,1636) - lu(k,889) * lu(k,1617) - lu(k,1637) = lu(k,1637) - lu(k,890) * lu(k,1617) - lu(k,1638) = lu(k,1638) - lu(k,891) * lu(k,1617) - lu(k,1639) = lu(k,1639) - lu(k,892) * lu(k,1617) - lu(k,1661) = lu(k,1661) - lu(k,871) * lu(k,1660) - lu(k,1662) = lu(k,1662) - lu(k,872) * lu(k,1660) - lu(k,1663) = lu(k,1663) - lu(k,873) * lu(k,1660) - lu(k,1664) = lu(k,1664) - lu(k,874) * lu(k,1660) - lu(k,1665) = lu(k,1665) - lu(k,875) * lu(k,1660) - lu(k,1666) = lu(k,1666) - lu(k,876) * lu(k,1660) - lu(k,1667) = lu(k,1667) - lu(k,877) * lu(k,1660) - lu(k,1668) = lu(k,1668) - lu(k,878) * lu(k,1660) - lu(k,1669) = lu(k,1669) - lu(k,879) * lu(k,1660) - lu(k,1670) = lu(k,1670) - lu(k,880) * lu(k,1660) - lu(k,1671) = lu(k,1671) - lu(k,881) * lu(k,1660) - lu(k,1672) = lu(k,1672) - lu(k,882) * lu(k,1660) - lu(k,1673) = lu(k,1673) - lu(k,883) * lu(k,1660) - lu(k,1674) = lu(k,1674) - lu(k,884) * lu(k,1660) - lu(k,1675) = lu(k,1675) - lu(k,885) * lu(k,1660) - lu(k,1676) = lu(k,1676) - lu(k,886) * lu(k,1660) - lu(k,1677) = lu(k,1677) - lu(k,887) * lu(k,1660) - lu(k,1678) = lu(k,1678) - lu(k,888) * lu(k,1660) - lu(k,1679) = lu(k,1679) - lu(k,889) * lu(k,1660) - lu(k,1680) = lu(k,1680) - lu(k,890) * lu(k,1660) - lu(k,1681) = lu(k,1681) - lu(k,891) * lu(k,1660) - lu(k,1682) = lu(k,1682) - lu(k,892) * lu(k,1660) - lu(k,1697) = lu(k,1697) - lu(k,871) * lu(k,1696) - lu(k,1698) = lu(k,1698) - lu(k,872) * lu(k,1696) - lu(k,1699) = lu(k,1699) - lu(k,873) * lu(k,1696) - lu(k,1700) = lu(k,1700) - lu(k,874) * lu(k,1696) - lu(k,1701) = lu(k,1701) - lu(k,875) * lu(k,1696) - lu(k,1702) = lu(k,1702) - lu(k,876) * lu(k,1696) - lu(k,1703) = lu(k,1703) - lu(k,877) * lu(k,1696) - lu(k,1704) = lu(k,1704) - lu(k,878) * lu(k,1696) - lu(k,1705) = lu(k,1705) - lu(k,879) * lu(k,1696) - lu(k,1706) = lu(k,1706) - lu(k,880) * lu(k,1696) - lu(k,1707) = lu(k,1707) - lu(k,881) * lu(k,1696) - lu(k,1708) = lu(k,1708) - lu(k,882) * lu(k,1696) - lu(k,1709) = lu(k,1709) - lu(k,883) * lu(k,1696) - lu(k,1710) = lu(k,1710) - lu(k,884) * lu(k,1696) - lu(k,1711) = lu(k,1711) - lu(k,885) * lu(k,1696) - lu(k,1712) = lu(k,1712) - lu(k,886) * lu(k,1696) - lu(k,1713) = lu(k,1713) - lu(k,887) * lu(k,1696) - lu(k,1714) = lu(k,1714) - lu(k,888) * lu(k,1696) - lu(k,1715) = lu(k,1715) - lu(k,889) * lu(k,1696) - lu(k,1716) = lu(k,1716) - lu(k,890) * lu(k,1696) - lu(k,1717) = lu(k,1717) - lu(k,891) * lu(k,1696) - lu(k,1718) = lu(k,1718) - lu(k,892) * lu(k,1696) - lu(k,1742) = lu(k,1742) - lu(k,871) * lu(k,1741) - lu(k,1743) = lu(k,1743) - lu(k,872) * lu(k,1741) - lu(k,1744) = lu(k,1744) - lu(k,873) * lu(k,1741) - lu(k,1745) = lu(k,1745) - lu(k,874) * lu(k,1741) - lu(k,1746) = lu(k,1746) - lu(k,875) * lu(k,1741) - lu(k,1747) = lu(k,1747) - lu(k,876) * lu(k,1741) - lu(k,1748) = lu(k,1748) - lu(k,877) * lu(k,1741) - lu(k,1749) = lu(k,1749) - lu(k,878) * lu(k,1741) - lu(k,1750) = lu(k,1750) - lu(k,879) * lu(k,1741) - lu(k,1751) = lu(k,1751) - lu(k,880) * lu(k,1741) - lu(k,1752) = lu(k,1752) - lu(k,881) * lu(k,1741) - lu(k,1753) = lu(k,1753) - lu(k,882) * lu(k,1741) - lu(k,1754) = lu(k,1754) - lu(k,883) * lu(k,1741) - lu(k,1755) = lu(k,1755) - lu(k,884) * lu(k,1741) - lu(k,1756) = lu(k,1756) - lu(k,885) * lu(k,1741) - lu(k,1757) = lu(k,1757) - lu(k,886) * lu(k,1741) - lu(k,1758) = lu(k,1758) - lu(k,887) * lu(k,1741) - lu(k,1759) = lu(k,1759) - lu(k,888) * lu(k,1741) - lu(k,1760) = lu(k,1760) - lu(k,889) * lu(k,1741) - lu(k,1761) = lu(k,1761) - lu(k,890) * lu(k,1741) - lu(k,1762) = lu(k,1762) - lu(k,891) * lu(k,1741) - lu(k,1763) = lu(k,1763) - lu(k,892) * lu(k,1741) - lu(k,1795) = lu(k,1795) - lu(k,871) * lu(k,1794) - lu(k,1796) = lu(k,1796) - lu(k,872) * lu(k,1794) - lu(k,1797) = lu(k,1797) - lu(k,873) * lu(k,1794) - lu(k,1798) = lu(k,1798) - lu(k,874) * lu(k,1794) - lu(k,1799) = lu(k,1799) - lu(k,875) * lu(k,1794) - lu(k,1800) = lu(k,1800) - lu(k,876) * lu(k,1794) - lu(k,1801) = lu(k,1801) - lu(k,877) * lu(k,1794) - lu(k,1802) = lu(k,1802) - lu(k,878) * lu(k,1794) - lu(k,1803) = lu(k,1803) - lu(k,879) * lu(k,1794) - lu(k,1804) = lu(k,1804) - lu(k,880) * lu(k,1794) - lu(k,1805) = lu(k,1805) - lu(k,881) * lu(k,1794) - lu(k,1806) = lu(k,1806) - lu(k,882) * lu(k,1794) - lu(k,1807) = lu(k,1807) - lu(k,883) * lu(k,1794) - lu(k,1808) = lu(k,1808) - lu(k,884) * lu(k,1794) - lu(k,1809) = lu(k,1809) - lu(k,885) * lu(k,1794) - lu(k,1810) = lu(k,1810) - lu(k,886) * lu(k,1794) - lu(k,1811) = lu(k,1811) - lu(k,887) * lu(k,1794) - lu(k,1812) = lu(k,1812) - lu(k,888) * lu(k,1794) - lu(k,1813) = lu(k,1813) - lu(k,889) * lu(k,1794) - lu(k,1814) = lu(k,1814) - lu(k,890) * lu(k,1794) - lu(k,1815) = lu(k,1815) - lu(k,891) * lu(k,1794) - lu(k,1816) = lu(k,1816) - lu(k,892) * lu(k,1794) - lu(k,914) = 1._r8 / lu(k,914) - lu(k,915) = lu(k,915) * lu(k,914) - lu(k,916) = lu(k,916) * lu(k,914) - lu(k,917) = lu(k,917) * lu(k,914) - lu(k,918) = lu(k,918) * lu(k,914) - lu(k,919) = lu(k,919) * lu(k,914) - lu(k,920) = lu(k,920) * lu(k,914) - lu(k,921) = lu(k,921) * lu(k,914) - lu(k,922) = lu(k,922) * lu(k,914) - lu(k,923) = lu(k,923) * lu(k,914) - lu(k,924) = lu(k,924) * lu(k,914) - lu(k,925) = lu(k,925) * lu(k,914) - lu(k,926) = lu(k,926) * lu(k,914) - lu(k,927) = lu(k,927) * lu(k,914) - lu(k,928) = lu(k,928) * lu(k,914) - lu(k,929) = lu(k,929) * lu(k,914) - lu(k,930) = lu(k,930) * lu(k,914) - lu(k,931) = lu(k,931) * lu(k,914) - lu(k,932) = lu(k,932) * lu(k,914) - lu(k,933) = lu(k,933) * lu(k,914) - lu(k,934) = lu(k,934) * lu(k,914) - lu(k,935) = lu(k,935) * lu(k,914) - lu(k,958) = lu(k,958) - lu(k,915) * lu(k,957) - lu(k,959) = lu(k,959) - lu(k,916) * lu(k,957) - lu(k,960) = lu(k,960) - lu(k,917) * lu(k,957) - lu(k,961) = lu(k,961) - lu(k,918) * lu(k,957) - lu(k,962) = lu(k,962) - lu(k,919) * lu(k,957) - lu(k,963) = lu(k,963) - lu(k,920) * lu(k,957) - lu(k,964) = lu(k,964) - lu(k,921) * lu(k,957) - lu(k,965) = lu(k,965) - lu(k,922) * lu(k,957) - lu(k,966) = lu(k,966) - lu(k,923) * lu(k,957) - lu(k,967) = lu(k,967) - lu(k,924) * lu(k,957) - lu(k,968) = lu(k,968) - lu(k,925) * lu(k,957) - lu(k,969) = lu(k,969) - lu(k,926) * lu(k,957) - lu(k,970) = lu(k,970) - lu(k,927) * lu(k,957) - lu(k,971) = lu(k,971) - lu(k,928) * lu(k,957) - lu(k,972) = lu(k,972) - lu(k,929) * lu(k,957) - lu(k,973) = lu(k,973) - lu(k,930) * lu(k,957) - lu(k,974) = lu(k,974) - lu(k,931) * lu(k,957) - lu(k,975) = lu(k,975) - lu(k,932) * lu(k,957) - lu(k,976) = lu(k,976) - lu(k,933) * lu(k,957) - lu(k,977) = lu(k,977) - lu(k,934) * lu(k,957) - lu(k,978) = lu(k,978) - lu(k,935) * lu(k,957) - lu(k,1000) = lu(k,1000) - lu(k,915) * lu(k,999) - lu(k,1001) = lu(k,1001) - lu(k,916) * lu(k,999) - lu(k,1002) = lu(k,1002) - lu(k,917) * lu(k,999) - lu(k,1003) = lu(k,1003) - lu(k,918) * lu(k,999) - lu(k,1004) = lu(k,1004) - lu(k,919) * lu(k,999) - lu(k,1005) = lu(k,1005) - lu(k,920) * lu(k,999) - lu(k,1006) = lu(k,1006) - lu(k,921) * lu(k,999) - lu(k,1007) = lu(k,1007) - lu(k,922) * lu(k,999) - lu(k,1008) = lu(k,1008) - lu(k,923) * lu(k,999) - lu(k,1009) = lu(k,1009) - lu(k,924) * lu(k,999) - lu(k,1010) = lu(k,1010) - lu(k,925) * lu(k,999) - lu(k,1011) = lu(k,1011) - lu(k,926) * lu(k,999) - lu(k,1012) = lu(k,1012) - lu(k,927) * lu(k,999) - lu(k,1013) = lu(k,1013) - lu(k,928) * lu(k,999) - lu(k,1014) = lu(k,1014) - lu(k,929) * lu(k,999) - lu(k,1015) = lu(k,1015) - lu(k,930) * lu(k,999) - lu(k,1016) = lu(k,1016) - lu(k,931) * lu(k,999) - lu(k,1017) = lu(k,1017) - lu(k,932) * lu(k,999) - lu(k,1018) = lu(k,1018) - lu(k,933) * lu(k,999) - lu(k,1019) = lu(k,1019) - lu(k,934) * lu(k,999) - lu(k,1020) = lu(k,1020) - lu(k,935) * lu(k,999) - lu(k,1042) = lu(k,1042) - lu(k,915) * lu(k,1041) - lu(k,1043) = lu(k,1043) - lu(k,916) * lu(k,1041) - lu(k,1044) = lu(k,1044) - lu(k,917) * lu(k,1041) - lu(k,1045) = lu(k,1045) - lu(k,918) * lu(k,1041) - lu(k,1046) = lu(k,1046) - lu(k,919) * lu(k,1041) - lu(k,1047) = lu(k,1047) - lu(k,920) * lu(k,1041) - lu(k,1048) = lu(k,1048) - lu(k,921) * lu(k,1041) - lu(k,1049) = lu(k,1049) - lu(k,922) * lu(k,1041) - lu(k,1050) = lu(k,1050) - lu(k,923) * lu(k,1041) - lu(k,1051) = lu(k,1051) - lu(k,924) * lu(k,1041) - lu(k,1052) = lu(k,1052) - lu(k,925) * lu(k,1041) - lu(k,1053) = lu(k,1053) - lu(k,926) * lu(k,1041) - lu(k,1054) = lu(k,1054) - lu(k,927) * lu(k,1041) - lu(k,1055) = lu(k,1055) - lu(k,928) * lu(k,1041) - lu(k,1056) = lu(k,1056) - lu(k,929) * lu(k,1041) - lu(k,1057) = lu(k,1057) - lu(k,930) * lu(k,1041) - lu(k,1058) = lu(k,1058) - lu(k,931) * lu(k,1041) - lu(k,1059) = lu(k,1059) - lu(k,932) * lu(k,1041) - lu(k,1060) = lu(k,1060) - lu(k,933) * lu(k,1041) - lu(k,1061) = lu(k,1061) - lu(k,934) * lu(k,1041) - lu(k,1062) = lu(k,1062) - lu(k,935) * lu(k,1041) - lu(k,1083) = lu(k,1083) - lu(k,915) * lu(k,1082) - lu(k,1084) = lu(k,1084) - lu(k,916) * lu(k,1082) - lu(k,1085) = lu(k,1085) - lu(k,917) * lu(k,1082) - lu(k,1086) = lu(k,1086) - lu(k,918) * lu(k,1082) - lu(k,1087) = lu(k,1087) - lu(k,919) * lu(k,1082) - lu(k,1088) = lu(k,1088) - lu(k,920) * lu(k,1082) - lu(k,1089) = lu(k,1089) - lu(k,921) * lu(k,1082) - lu(k,1090) = lu(k,1090) - lu(k,922) * lu(k,1082) - lu(k,1091) = lu(k,1091) - lu(k,923) * lu(k,1082) - lu(k,1092) = lu(k,1092) - lu(k,924) * lu(k,1082) - lu(k,1093) = lu(k,1093) - lu(k,925) * lu(k,1082) - lu(k,1094) = lu(k,1094) - lu(k,926) * lu(k,1082) - lu(k,1095) = lu(k,1095) - lu(k,927) * lu(k,1082) - lu(k,1096) = lu(k,1096) - lu(k,928) * lu(k,1082) - lu(k,1097) = lu(k,1097) - lu(k,929) * lu(k,1082) - lu(k,1098) = lu(k,1098) - lu(k,930) * lu(k,1082) - lu(k,1099) = lu(k,1099) - lu(k,931) * lu(k,1082) - lu(k,1100) = lu(k,1100) - lu(k,932) * lu(k,1082) - lu(k,1101) = lu(k,1101) - lu(k,933) * lu(k,1082) - lu(k,1102) = lu(k,1102) - lu(k,934) * lu(k,1082) - lu(k,1103) = lu(k,1103) - lu(k,935) * lu(k,1082) - lu(k,1128) = lu(k,1128) - lu(k,915) * lu(k,1127) - lu(k,1129) = lu(k,1129) - lu(k,916) * lu(k,1127) - lu(k,1130) = lu(k,1130) - lu(k,917) * lu(k,1127) - lu(k,1131) = lu(k,1131) - lu(k,918) * lu(k,1127) - lu(k,1132) = lu(k,1132) - lu(k,919) * lu(k,1127) - lu(k,1133) = lu(k,1133) - lu(k,920) * lu(k,1127) - lu(k,1134) = lu(k,1134) - lu(k,921) * lu(k,1127) - lu(k,1135) = lu(k,1135) - lu(k,922) * lu(k,1127) - lu(k,1136) = lu(k,1136) - lu(k,923) * lu(k,1127) - lu(k,1137) = lu(k,1137) - lu(k,924) * lu(k,1127) - lu(k,1138) = lu(k,1138) - lu(k,925) * lu(k,1127) - lu(k,1139) = lu(k,1139) - lu(k,926) * lu(k,1127) - lu(k,1140) = lu(k,1140) - lu(k,927) * lu(k,1127) - lu(k,1141) = lu(k,1141) - lu(k,928) * lu(k,1127) - lu(k,1142) = lu(k,1142) - lu(k,929) * lu(k,1127) - lu(k,1143) = lu(k,1143) - lu(k,930) * lu(k,1127) - lu(k,1144) = lu(k,1144) - lu(k,931) * lu(k,1127) - lu(k,1145) = lu(k,1145) - lu(k,932) * lu(k,1127) - lu(k,1146) = lu(k,1146) - lu(k,933) * lu(k,1127) - lu(k,1147) = lu(k,1147) - lu(k,934) * lu(k,1127) - lu(k,1148) = lu(k,1148) - lu(k,935) * lu(k,1127) - lu(k,1168) = lu(k,1168) - lu(k,915) * lu(k,1167) - lu(k,1169) = lu(k,1169) - lu(k,916) * lu(k,1167) - lu(k,1170) = lu(k,1170) - lu(k,917) * lu(k,1167) - lu(k,1171) = lu(k,1171) - lu(k,918) * lu(k,1167) - lu(k,1172) = lu(k,1172) - lu(k,919) * lu(k,1167) - lu(k,1173) = lu(k,1173) - lu(k,920) * lu(k,1167) - lu(k,1174) = lu(k,1174) - lu(k,921) * lu(k,1167) - lu(k,1175) = lu(k,1175) - lu(k,922) * lu(k,1167) - lu(k,1176) = lu(k,1176) - lu(k,923) * lu(k,1167) - lu(k,1177) = lu(k,1177) - lu(k,924) * lu(k,1167) - lu(k,1178) = lu(k,1178) - lu(k,925) * lu(k,1167) - lu(k,1179) = lu(k,1179) - lu(k,926) * lu(k,1167) - lu(k,1180) = lu(k,1180) - lu(k,927) * lu(k,1167) - lu(k,1181) = lu(k,1181) - lu(k,928) * lu(k,1167) - lu(k,1182) = lu(k,1182) - lu(k,929) * lu(k,1167) - lu(k,1183) = lu(k,1183) - lu(k,930) * lu(k,1167) - lu(k,1184) = lu(k,1184) - lu(k,931) * lu(k,1167) - lu(k,1185) = lu(k,1185) - lu(k,932) * lu(k,1167) - lu(k,1186) = lu(k,1186) - lu(k,933) * lu(k,1167) - lu(k,1187) = lu(k,1187) - lu(k,934) * lu(k,1167) - lu(k,1188) = lu(k,1188) - lu(k,935) * lu(k,1167) - lu(k,1224) = lu(k,1224) - lu(k,915) * lu(k,1223) - lu(k,1225) = lu(k,1225) - lu(k,916) * lu(k,1223) - lu(k,1226) = lu(k,1226) - lu(k,917) * lu(k,1223) - lu(k,1227) = lu(k,1227) - lu(k,918) * lu(k,1223) - lu(k,1228) = lu(k,1228) - lu(k,919) * lu(k,1223) - lu(k,1229) = lu(k,1229) - lu(k,920) * lu(k,1223) - lu(k,1230) = lu(k,1230) - lu(k,921) * lu(k,1223) - lu(k,1231) = lu(k,1231) - lu(k,922) * lu(k,1223) - lu(k,1232) = lu(k,1232) - lu(k,923) * lu(k,1223) - lu(k,1233) = lu(k,1233) - lu(k,924) * lu(k,1223) - lu(k,1234) = lu(k,1234) - lu(k,925) * lu(k,1223) - lu(k,1235) = lu(k,1235) - lu(k,926) * lu(k,1223) - lu(k,1236) = lu(k,1236) - lu(k,927) * lu(k,1223) - lu(k,1237) = lu(k,1237) - lu(k,928) * lu(k,1223) - lu(k,1238) = lu(k,1238) - lu(k,929) * lu(k,1223) - lu(k,1239) = lu(k,1239) - lu(k,930) * lu(k,1223) - lu(k,1240) = lu(k,1240) - lu(k,931) * lu(k,1223) - lu(k,1241) = lu(k,1241) - lu(k,932) * lu(k,1223) - lu(k,1242) = lu(k,1242) - lu(k,933) * lu(k,1223) - lu(k,1243) = lu(k,1243) - lu(k,934) * lu(k,1223) - lu(k,1244) = lu(k,1244) - lu(k,935) * lu(k,1223) - lu(k,1262) = lu(k,1262) - lu(k,915) * lu(k,1261) - lu(k,1263) = lu(k,1263) - lu(k,916) * lu(k,1261) - lu(k,1264) = lu(k,1264) - lu(k,917) * lu(k,1261) - lu(k,1265) = lu(k,1265) - lu(k,918) * lu(k,1261) - lu(k,1266) = lu(k,1266) - lu(k,919) * lu(k,1261) - lu(k,1267) = lu(k,1267) - lu(k,920) * lu(k,1261) - lu(k,1268) = lu(k,1268) - lu(k,921) * lu(k,1261) - lu(k,1269) = lu(k,1269) - lu(k,922) * lu(k,1261) - lu(k,1270) = lu(k,1270) - lu(k,923) * lu(k,1261) - lu(k,1271) = lu(k,1271) - lu(k,924) * lu(k,1261) - lu(k,1272) = lu(k,1272) - lu(k,925) * lu(k,1261) - lu(k,1273) = lu(k,1273) - lu(k,926) * lu(k,1261) - lu(k,1274) = lu(k,1274) - lu(k,927) * lu(k,1261) - lu(k,1275) = lu(k,1275) - lu(k,928) * lu(k,1261) - lu(k,1276) = lu(k,1276) - lu(k,929) * lu(k,1261) - lu(k,1277) = lu(k,1277) - lu(k,930) * lu(k,1261) - lu(k,1278) = lu(k,1278) - lu(k,931) * lu(k,1261) - lu(k,1279) = lu(k,1279) - lu(k,932) * lu(k,1261) - lu(k,1280) = lu(k,1280) - lu(k,933) * lu(k,1261) - lu(k,1281) = lu(k,1281) - lu(k,934) * lu(k,1261) - lu(k,1282) = lu(k,1282) - lu(k,935) * lu(k,1261) - lu(k,1298) = lu(k,1298) - lu(k,915) * lu(k,1297) - lu(k,1299) = lu(k,1299) - lu(k,916) * lu(k,1297) - lu(k,1300) = lu(k,1300) - lu(k,917) * lu(k,1297) - lu(k,1301) = lu(k,1301) - lu(k,918) * lu(k,1297) - lu(k,1302) = lu(k,1302) - lu(k,919) * lu(k,1297) - lu(k,1303) = lu(k,1303) - lu(k,920) * lu(k,1297) - lu(k,1304) = lu(k,1304) - lu(k,921) * lu(k,1297) - lu(k,1305) = lu(k,1305) - lu(k,922) * lu(k,1297) - lu(k,1306) = lu(k,1306) - lu(k,923) * lu(k,1297) - lu(k,1307) = lu(k,1307) - lu(k,924) * lu(k,1297) - lu(k,1308) = lu(k,1308) - lu(k,925) * lu(k,1297) - lu(k,1309) = lu(k,1309) - lu(k,926) * lu(k,1297) - lu(k,1310) = lu(k,1310) - lu(k,927) * lu(k,1297) - lu(k,1311) = lu(k,1311) - lu(k,928) * lu(k,1297) - lu(k,1312) = lu(k,1312) - lu(k,929) * lu(k,1297) - lu(k,1313) = lu(k,1313) - lu(k,930) * lu(k,1297) - lu(k,1314) = lu(k,1314) - lu(k,931) * lu(k,1297) - lu(k,1315) = lu(k,1315) - lu(k,932) * lu(k,1297) - lu(k,1316) = lu(k,1316) - lu(k,933) * lu(k,1297) - lu(k,1317) = lu(k,1317) - lu(k,934) * lu(k,1297) - lu(k,1318) = lu(k,1318) - lu(k,935) * lu(k,1297) - lu(k,1343) = lu(k,1343) - lu(k,915) * lu(k,1342) - lu(k,1344) = lu(k,1344) - lu(k,916) * lu(k,1342) - lu(k,1345) = lu(k,1345) - lu(k,917) * lu(k,1342) - lu(k,1346) = lu(k,1346) - lu(k,918) * lu(k,1342) - lu(k,1347) = lu(k,1347) - lu(k,919) * lu(k,1342) - lu(k,1348) = lu(k,1348) - lu(k,920) * lu(k,1342) - lu(k,1349) = lu(k,1349) - lu(k,921) * lu(k,1342) - lu(k,1350) = lu(k,1350) - lu(k,922) * lu(k,1342) - lu(k,1351) = lu(k,1351) - lu(k,923) * lu(k,1342) - lu(k,1352) = lu(k,1352) - lu(k,924) * lu(k,1342) - lu(k,1353) = lu(k,1353) - lu(k,925) * lu(k,1342) - lu(k,1354) = lu(k,1354) - lu(k,926) * lu(k,1342) - lu(k,1355) = lu(k,1355) - lu(k,927) * lu(k,1342) - lu(k,1356) = lu(k,1356) - lu(k,928) * lu(k,1342) - lu(k,1357) = lu(k,1357) - lu(k,929) * lu(k,1342) - lu(k,1358) = lu(k,1358) - lu(k,930) * lu(k,1342) - lu(k,1359) = lu(k,1359) - lu(k,931) * lu(k,1342) - lu(k,1360) = lu(k,1360) - lu(k,932) * lu(k,1342) - lu(k,1361) = lu(k,1361) - lu(k,933) * lu(k,1342) - lu(k,1362) = lu(k,1362) - lu(k,934) * lu(k,1342) - lu(k,1363) = lu(k,1363) - lu(k,935) * lu(k,1342) - lu(k,1386) = lu(k,1386) - lu(k,915) * lu(k,1385) - lu(k,1387) = lu(k,1387) - lu(k,916) * lu(k,1385) - lu(k,1388) = lu(k,1388) - lu(k,917) * lu(k,1385) - lu(k,1389) = lu(k,1389) - lu(k,918) * lu(k,1385) - lu(k,1390) = lu(k,1390) - lu(k,919) * lu(k,1385) - lu(k,1391) = lu(k,1391) - lu(k,920) * lu(k,1385) - lu(k,1392) = lu(k,1392) - lu(k,921) * lu(k,1385) - lu(k,1393) = lu(k,1393) - lu(k,922) * lu(k,1385) - lu(k,1394) = lu(k,1394) - lu(k,923) * lu(k,1385) - lu(k,1395) = lu(k,1395) - lu(k,924) * lu(k,1385) - lu(k,1396) = lu(k,1396) - lu(k,925) * lu(k,1385) - lu(k,1397) = lu(k,1397) - lu(k,926) * lu(k,1385) - lu(k,1398) = lu(k,1398) - lu(k,927) * lu(k,1385) - lu(k,1399) = lu(k,1399) - lu(k,928) * lu(k,1385) - lu(k,1400) = lu(k,1400) - lu(k,929) * lu(k,1385) - lu(k,1401) = lu(k,1401) - lu(k,930) * lu(k,1385) - lu(k,1402) = lu(k,1402) - lu(k,931) * lu(k,1385) - lu(k,1403) = lu(k,1403) - lu(k,932) * lu(k,1385) - lu(k,1404) = lu(k,1404) - lu(k,933) * lu(k,1385) - lu(k,1405) = lu(k,1405) - lu(k,934) * lu(k,1385) - lu(k,1406) = lu(k,1406) - lu(k,935) * lu(k,1385) - lu(k,1421) = lu(k,1421) - lu(k,915) * lu(k,1420) - lu(k,1422) = lu(k,1422) - lu(k,916) * lu(k,1420) - lu(k,1423) = lu(k,1423) - lu(k,917) * lu(k,1420) - lu(k,1424) = lu(k,1424) - lu(k,918) * lu(k,1420) - lu(k,1425) = lu(k,1425) - lu(k,919) * lu(k,1420) - lu(k,1426) = lu(k,1426) - lu(k,920) * lu(k,1420) - lu(k,1427) = lu(k,1427) - lu(k,921) * lu(k,1420) - lu(k,1428) = lu(k,1428) - lu(k,922) * lu(k,1420) - lu(k,1429) = lu(k,1429) - lu(k,923) * lu(k,1420) - lu(k,1430) = lu(k,1430) - lu(k,924) * lu(k,1420) - lu(k,1431) = lu(k,1431) - lu(k,925) * lu(k,1420) - lu(k,1432) = lu(k,1432) - lu(k,926) * lu(k,1420) - lu(k,1433) = lu(k,1433) - lu(k,927) * lu(k,1420) - lu(k,1434) = lu(k,1434) - lu(k,928) * lu(k,1420) - lu(k,1435) = lu(k,1435) - lu(k,929) * lu(k,1420) - lu(k,1436) = lu(k,1436) - lu(k,930) * lu(k,1420) - lu(k,1437) = lu(k,1437) - lu(k,931) * lu(k,1420) - lu(k,1438) = lu(k,1438) - lu(k,932) * lu(k,1420) - lu(k,1439) = lu(k,1439) - lu(k,933) * lu(k,1420) - lu(k,1440) = lu(k,1440) - lu(k,934) * lu(k,1420) - lu(k,1441) = lu(k,1441) - lu(k,935) * lu(k,1420) - lu(k,1464) = lu(k,1464) - lu(k,915) * lu(k,1463) - lu(k,1465) = lu(k,1465) - lu(k,916) * lu(k,1463) - lu(k,1466) = lu(k,1466) - lu(k,917) * lu(k,1463) - lu(k,1467) = lu(k,1467) - lu(k,918) * lu(k,1463) - lu(k,1468) = lu(k,1468) - lu(k,919) * lu(k,1463) - lu(k,1469) = lu(k,1469) - lu(k,920) * lu(k,1463) - lu(k,1470) = lu(k,1470) - lu(k,921) * lu(k,1463) - lu(k,1471) = lu(k,1471) - lu(k,922) * lu(k,1463) - lu(k,1472) = lu(k,1472) - lu(k,923) * lu(k,1463) - lu(k,1473) = lu(k,1473) - lu(k,924) * lu(k,1463) - lu(k,1474) = lu(k,1474) - lu(k,925) * lu(k,1463) - lu(k,1475) = lu(k,1475) - lu(k,926) * lu(k,1463) - lu(k,1476) = lu(k,1476) - lu(k,927) * lu(k,1463) - lu(k,1477) = lu(k,1477) - lu(k,928) * lu(k,1463) - lu(k,1478) = lu(k,1478) - lu(k,929) * lu(k,1463) - lu(k,1479) = lu(k,1479) - lu(k,930) * lu(k,1463) - lu(k,1480) = lu(k,1480) - lu(k,931) * lu(k,1463) - lu(k,1481) = lu(k,1481) - lu(k,932) * lu(k,1463) - lu(k,1482) = lu(k,1482) - lu(k,933) * lu(k,1463) - lu(k,1483) = lu(k,1483) - lu(k,934) * lu(k,1463) - lu(k,1484) = lu(k,1484) - lu(k,935) * lu(k,1463) - lu(k,1507) = lu(k,1507) - lu(k,915) * lu(k,1506) - lu(k,1508) = lu(k,1508) - lu(k,916) * lu(k,1506) - lu(k,1509) = lu(k,1509) - lu(k,917) * lu(k,1506) - lu(k,1510) = lu(k,1510) - lu(k,918) * lu(k,1506) - lu(k,1511) = lu(k,1511) - lu(k,919) * lu(k,1506) - lu(k,1512) = lu(k,1512) - lu(k,920) * lu(k,1506) - lu(k,1513) = lu(k,1513) - lu(k,921) * lu(k,1506) - lu(k,1514) = lu(k,1514) - lu(k,922) * lu(k,1506) - lu(k,1515) = lu(k,1515) - lu(k,923) * lu(k,1506) - lu(k,1516) = lu(k,1516) - lu(k,924) * lu(k,1506) - lu(k,1517) = lu(k,1517) - lu(k,925) * lu(k,1506) - lu(k,1518) = lu(k,1518) - lu(k,926) * lu(k,1506) - lu(k,1519) = lu(k,1519) - lu(k,927) * lu(k,1506) - lu(k,1520) = lu(k,1520) - lu(k,928) * lu(k,1506) - lu(k,1521) = lu(k,1521) - lu(k,929) * lu(k,1506) - lu(k,1522) = lu(k,1522) - lu(k,930) * lu(k,1506) - lu(k,1523) = lu(k,1523) - lu(k,931) * lu(k,1506) - lu(k,1524) = lu(k,1524) - lu(k,932) * lu(k,1506) - lu(k,1525) = lu(k,1525) - lu(k,933) * lu(k,1506) - lu(k,1526) = lu(k,1526) - lu(k,934) * lu(k,1506) - lu(k,1527) = lu(k,1527) - lu(k,935) * lu(k,1506) - lu(k,1550) = lu(k,1550) - lu(k,915) * lu(k,1549) - lu(k,1551) = lu(k,1551) - lu(k,916) * lu(k,1549) - lu(k,1552) = lu(k,1552) - lu(k,917) * lu(k,1549) - lu(k,1553) = lu(k,1553) - lu(k,918) * lu(k,1549) - lu(k,1554) = lu(k,1554) - lu(k,919) * lu(k,1549) - lu(k,1555) = lu(k,1555) - lu(k,920) * lu(k,1549) - lu(k,1556) = lu(k,1556) - lu(k,921) * lu(k,1549) - lu(k,1557) = lu(k,1557) - lu(k,922) * lu(k,1549) - lu(k,1558) = lu(k,1558) - lu(k,923) * lu(k,1549) - lu(k,1559) = lu(k,1559) - lu(k,924) * lu(k,1549) - lu(k,1560) = lu(k,1560) - lu(k,925) * lu(k,1549) - lu(k,1561) = lu(k,1561) - lu(k,926) * lu(k,1549) - lu(k,1562) = lu(k,1562) - lu(k,927) * lu(k,1549) - lu(k,1563) = lu(k,1563) - lu(k,928) * lu(k,1549) - lu(k,1564) = lu(k,1564) - lu(k,929) * lu(k,1549) - lu(k,1565) = lu(k,1565) - lu(k,930) * lu(k,1549) - lu(k,1566) = lu(k,1566) - lu(k,931) * lu(k,1549) - lu(k,1567) = lu(k,1567) - lu(k,932) * lu(k,1549) - lu(k,1568) = lu(k,1568) - lu(k,933) * lu(k,1549) - lu(k,1569) = lu(k,1569) - lu(k,934) * lu(k,1549) - lu(k,1570) = lu(k,1570) - lu(k,935) * lu(k,1549) - lu(k,1583) = lu(k,1583) - lu(k,915) * lu(k,1582) - lu(k,1584) = lu(k,1584) - lu(k,916) * lu(k,1582) - lu(k,1585) = lu(k,1585) - lu(k,917) * lu(k,1582) - lu(k,1586) = lu(k,1586) - lu(k,918) * lu(k,1582) - lu(k,1587) = lu(k,1587) - lu(k,919) * lu(k,1582) - lu(k,1588) = lu(k,1588) - lu(k,920) * lu(k,1582) - lu(k,1589) = lu(k,1589) - lu(k,921) * lu(k,1582) - lu(k,1590) = lu(k,1590) - lu(k,922) * lu(k,1582) - lu(k,1591) = lu(k,1591) - lu(k,923) * lu(k,1582) - lu(k,1592) = lu(k,1592) - lu(k,924) * lu(k,1582) - lu(k,1593) = lu(k,1593) - lu(k,925) * lu(k,1582) - lu(k,1594) = lu(k,1594) - lu(k,926) * lu(k,1582) - lu(k,1595) = lu(k,1595) - lu(k,927) * lu(k,1582) - lu(k,1596) = lu(k,1596) - lu(k,928) * lu(k,1582) - lu(k,1597) = lu(k,1597) - lu(k,929) * lu(k,1582) - lu(k,1598) = lu(k,1598) - lu(k,930) * lu(k,1582) - lu(k,1599) = lu(k,1599) - lu(k,931) * lu(k,1582) - lu(k,1600) = lu(k,1600) - lu(k,932) * lu(k,1582) - lu(k,1601) = lu(k,1601) - lu(k,933) * lu(k,1582) - lu(k,1602) = lu(k,1602) - lu(k,934) * lu(k,1582) - lu(k,1603) = lu(k,1603) - lu(k,935) * lu(k,1582) - lu(k,1619) = lu(k,1619) - lu(k,915) * lu(k,1618) - lu(k,1620) = lu(k,1620) - lu(k,916) * lu(k,1618) - lu(k,1621) = lu(k,1621) - lu(k,917) * lu(k,1618) - lu(k,1622) = lu(k,1622) - lu(k,918) * lu(k,1618) - lu(k,1623) = lu(k,1623) - lu(k,919) * lu(k,1618) - lu(k,1624) = lu(k,1624) - lu(k,920) * lu(k,1618) - lu(k,1625) = lu(k,1625) - lu(k,921) * lu(k,1618) - lu(k,1626) = lu(k,1626) - lu(k,922) * lu(k,1618) - lu(k,1627) = lu(k,1627) - lu(k,923) * lu(k,1618) - lu(k,1628) = lu(k,1628) - lu(k,924) * lu(k,1618) - lu(k,1629) = lu(k,1629) - lu(k,925) * lu(k,1618) - lu(k,1630) = lu(k,1630) - lu(k,926) * lu(k,1618) - lu(k,1631) = lu(k,1631) - lu(k,927) * lu(k,1618) - lu(k,1632) = lu(k,1632) - lu(k,928) * lu(k,1618) - lu(k,1633) = lu(k,1633) - lu(k,929) * lu(k,1618) - lu(k,1634) = lu(k,1634) - lu(k,930) * lu(k,1618) - lu(k,1635) = lu(k,1635) - lu(k,931) * lu(k,1618) - lu(k,1636) = lu(k,1636) - lu(k,932) * lu(k,1618) - lu(k,1637) = lu(k,1637) - lu(k,933) * lu(k,1618) - lu(k,1638) = lu(k,1638) - lu(k,934) * lu(k,1618) - lu(k,1639) = lu(k,1639) - lu(k,935) * lu(k,1618) - lu(k,1662) = lu(k,1662) - lu(k,915) * lu(k,1661) - lu(k,1663) = lu(k,1663) - lu(k,916) * lu(k,1661) - lu(k,1664) = lu(k,1664) - lu(k,917) * lu(k,1661) - lu(k,1665) = lu(k,1665) - lu(k,918) * lu(k,1661) - lu(k,1666) = lu(k,1666) - lu(k,919) * lu(k,1661) - lu(k,1667) = lu(k,1667) - lu(k,920) * lu(k,1661) - lu(k,1668) = lu(k,1668) - lu(k,921) * lu(k,1661) - lu(k,1669) = lu(k,1669) - lu(k,922) * lu(k,1661) - lu(k,1670) = lu(k,1670) - lu(k,923) * lu(k,1661) - lu(k,1671) = lu(k,1671) - lu(k,924) * lu(k,1661) - lu(k,1672) = lu(k,1672) - lu(k,925) * lu(k,1661) - lu(k,1673) = lu(k,1673) - lu(k,926) * lu(k,1661) - lu(k,1674) = lu(k,1674) - lu(k,927) * lu(k,1661) - lu(k,1675) = lu(k,1675) - lu(k,928) * lu(k,1661) - lu(k,1676) = lu(k,1676) - lu(k,929) * lu(k,1661) - lu(k,1677) = lu(k,1677) - lu(k,930) * lu(k,1661) - lu(k,1678) = lu(k,1678) - lu(k,931) * lu(k,1661) - lu(k,1679) = lu(k,1679) - lu(k,932) * lu(k,1661) - lu(k,1680) = lu(k,1680) - lu(k,933) * lu(k,1661) - lu(k,1681) = lu(k,1681) - lu(k,934) * lu(k,1661) - lu(k,1682) = lu(k,1682) - lu(k,935) * lu(k,1661) - lu(k,1698) = lu(k,1698) - lu(k,915) * lu(k,1697) - lu(k,1699) = lu(k,1699) - lu(k,916) * lu(k,1697) - lu(k,1700) = lu(k,1700) - lu(k,917) * lu(k,1697) - lu(k,1701) = lu(k,1701) - lu(k,918) * lu(k,1697) - lu(k,1702) = lu(k,1702) - lu(k,919) * lu(k,1697) - lu(k,1703) = lu(k,1703) - lu(k,920) * lu(k,1697) - lu(k,1704) = lu(k,1704) - lu(k,921) * lu(k,1697) - lu(k,1705) = lu(k,1705) - lu(k,922) * lu(k,1697) - lu(k,1706) = lu(k,1706) - lu(k,923) * lu(k,1697) - lu(k,1707) = lu(k,1707) - lu(k,924) * lu(k,1697) - lu(k,1708) = lu(k,1708) - lu(k,925) * lu(k,1697) - lu(k,1709) = lu(k,1709) - lu(k,926) * lu(k,1697) - lu(k,1710) = lu(k,1710) - lu(k,927) * lu(k,1697) - lu(k,1711) = lu(k,1711) - lu(k,928) * lu(k,1697) - lu(k,1712) = lu(k,1712) - lu(k,929) * lu(k,1697) - lu(k,1713) = lu(k,1713) - lu(k,930) * lu(k,1697) - lu(k,1714) = lu(k,1714) - lu(k,931) * lu(k,1697) - lu(k,1715) = lu(k,1715) - lu(k,932) * lu(k,1697) - lu(k,1716) = lu(k,1716) - lu(k,933) * lu(k,1697) - lu(k,1717) = lu(k,1717) - lu(k,934) * lu(k,1697) - lu(k,1718) = lu(k,1718) - lu(k,935) * lu(k,1697) - lu(k,1743) = lu(k,1743) - lu(k,915) * lu(k,1742) - lu(k,1744) = lu(k,1744) - lu(k,916) * lu(k,1742) - lu(k,1745) = lu(k,1745) - lu(k,917) * lu(k,1742) - lu(k,1746) = lu(k,1746) - lu(k,918) * lu(k,1742) - lu(k,1747) = lu(k,1747) - lu(k,919) * lu(k,1742) - lu(k,1748) = lu(k,1748) - lu(k,920) * lu(k,1742) - lu(k,1749) = lu(k,1749) - lu(k,921) * lu(k,1742) - lu(k,1750) = lu(k,1750) - lu(k,922) * lu(k,1742) - lu(k,1751) = lu(k,1751) - lu(k,923) * lu(k,1742) - lu(k,1752) = lu(k,1752) - lu(k,924) * lu(k,1742) - lu(k,1753) = lu(k,1753) - lu(k,925) * lu(k,1742) - lu(k,1754) = lu(k,1754) - lu(k,926) * lu(k,1742) - lu(k,1755) = lu(k,1755) - lu(k,927) * lu(k,1742) - lu(k,1756) = lu(k,1756) - lu(k,928) * lu(k,1742) - lu(k,1757) = lu(k,1757) - lu(k,929) * lu(k,1742) - lu(k,1758) = lu(k,1758) - lu(k,930) * lu(k,1742) - lu(k,1759) = lu(k,1759) - lu(k,931) * lu(k,1742) - lu(k,1760) = lu(k,1760) - lu(k,932) * lu(k,1742) - lu(k,1761) = lu(k,1761) - lu(k,933) * lu(k,1742) - lu(k,1762) = lu(k,1762) - lu(k,934) * lu(k,1742) - lu(k,1763) = lu(k,1763) - lu(k,935) * lu(k,1742) - lu(k,1796) = lu(k,1796) - lu(k,915) * lu(k,1795) - lu(k,1797) = lu(k,1797) - lu(k,916) * lu(k,1795) - lu(k,1798) = lu(k,1798) - lu(k,917) * lu(k,1795) - lu(k,1799) = lu(k,1799) - lu(k,918) * lu(k,1795) - lu(k,1800) = lu(k,1800) - lu(k,919) * lu(k,1795) - lu(k,1801) = lu(k,1801) - lu(k,920) * lu(k,1795) - lu(k,1802) = lu(k,1802) - lu(k,921) * lu(k,1795) - lu(k,1803) = lu(k,1803) - lu(k,922) * lu(k,1795) - lu(k,1804) = lu(k,1804) - lu(k,923) * lu(k,1795) - lu(k,1805) = lu(k,1805) - lu(k,924) * lu(k,1795) - lu(k,1806) = lu(k,1806) - lu(k,925) * lu(k,1795) - lu(k,1807) = lu(k,1807) - lu(k,926) * lu(k,1795) - lu(k,1808) = lu(k,1808) - lu(k,927) * lu(k,1795) - lu(k,1809) = lu(k,1809) - lu(k,928) * lu(k,1795) - lu(k,1810) = lu(k,1810) - lu(k,929) * lu(k,1795) - lu(k,1811) = lu(k,1811) - lu(k,930) * lu(k,1795) - lu(k,1812) = lu(k,1812) - lu(k,931) * lu(k,1795) - lu(k,1813) = lu(k,1813) - lu(k,932) * lu(k,1795) - lu(k,1814) = lu(k,1814) - lu(k,933) * lu(k,1795) - lu(k,1815) = lu(k,1815) - lu(k,934) * lu(k,1795) - lu(k,1816) = lu(k,1816) - lu(k,935) * lu(k,1795) - lu(k,958) = 1._r8 / lu(k,958) - lu(k,959) = lu(k,959) * lu(k,958) - lu(k,960) = lu(k,960) * lu(k,958) - lu(k,961) = lu(k,961) * lu(k,958) - lu(k,962) = lu(k,962) * lu(k,958) - lu(k,963) = lu(k,963) * lu(k,958) - lu(k,964) = lu(k,964) * lu(k,958) - lu(k,965) = lu(k,965) * lu(k,958) - lu(k,966) = lu(k,966) * lu(k,958) - lu(k,967) = lu(k,967) * lu(k,958) - lu(k,968) = lu(k,968) * lu(k,958) - lu(k,969) = lu(k,969) * lu(k,958) - lu(k,970) = lu(k,970) * lu(k,958) - lu(k,971) = lu(k,971) * lu(k,958) - lu(k,972) = lu(k,972) * lu(k,958) - lu(k,973) = lu(k,973) * lu(k,958) - lu(k,974) = lu(k,974) * lu(k,958) - lu(k,975) = lu(k,975) * lu(k,958) - lu(k,976) = lu(k,976) * lu(k,958) - lu(k,977) = lu(k,977) * lu(k,958) - lu(k,978) = lu(k,978) * lu(k,958) - lu(k,1001) = lu(k,1001) - lu(k,959) * lu(k,1000) - lu(k,1002) = lu(k,1002) - lu(k,960) * lu(k,1000) - lu(k,1003) = lu(k,1003) - lu(k,961) * lu(k,1000) - lu(k,1004) = lu(k,1004) - lu(k,962) * lu(k,1000) - lu(k,1005) = lu(k,1005) - lu(k,963) * lu(k,1000) - lu(k,1006) = lu(k,1006) - lu(k,964) * lu(k,1000) - lu(k,1007) = lu(k,1007) - lu(k,965) * lu(k,1000) - lu(k,1008) = lu(k,1008) - lu(k,966) * lu(k,1000) - lu(k,1009) = lu(k,1009) - lu(k,967) * lu(k,1000) - lu(k,1010) = lu(k,1010) - lu(k,968) * lu(k,1000) - lu(k,1011) = lu(k,1011) - lu(k,969) * lu(k,1000) - lu(k,1012) = lu(k,1012) - lu(k,970) * lu(k,1000) - lu(k,1013) = lu(k,1013) - lu(k,971) * lu(k,1000) - lu(k,1014) = lu(k,1014) - lu(k,972) * lu(k,1000) - lu(k,1015) = lu(k,1015) - lu(k,973) * lu(k,1000) - lu(k,1016) = lu(k,1016) - lu(k,974) * lu(k,1000) - lu(k,1017) = lu(k,1017) - lu(k,975) * lu(k,1000) - lu(k,1018) = lu(k,1018) - lu(k,976) * lu(k,1000) - lu(k,1019) = lu(k,1019) - lu(k,977) * lu(k,1000) - lu(k,1020) = lu(k,1020) - lu(k,978) * lu(k,1000) - lu(k,1043) = lu(k,1043) - lu(k,959) * lu(k,1042) - lu(k,1044) = lu(k,1044) - lu(k,960) * lu(k,1042) - lu(k,1045) = lu(k,1045) - lu(k,961) * lu(k,1042) - lu(k,1046) = lu(k,1046) - lu(k,962) * lu(k,1042) - lu(k,1047) = lu(k,1047) - lu(k,963) * lu(k,1042) - lu(k,1048) = lu(k,1048) - lu(k,964) * lu(k,1042) - lu(k,1049) = lu(k,1049) - lu(k,965) * lu(k,1042) - lu(k,1050) = lu(k,1050) - lu(k,966) * lu(k,1042) - lu(k,1051) = lu(k,1051) - lu(k,967) * lu(k,1042) - lu(k,1052) = lu(k,1052) - lu(k,968) * lu(k,1042) - lu(k,1053) = lu(k,1053) - lu(k,969) * lu(k,1042) - lu(k,1054) = lu(k,1054) - lu(k,970) * lu(k,1042) - lu(k,1055) = lu(k,1055) - lu(k,971) * lu(k,1042) - lu(k,1056) = lu(k,1056) - lu(k,972) * lu(k,1042) - lu(k,1057) = lu(k,1057) - lu(k,973) * lu(k,1042) - lu(k,1058) = lu(k,1058) - lu(k,974) * lu(k,1042) - lu(k,1059) = lu(k,1059) - lu(k,975) * lu(k,1042) - lu(k,1060) = lu(k,1060) - lu(k,976) * lu(k,1042) - lu(k,1061) = lu(k,1061) - lu(k,977) * lu(k,1042) - lu(k,1062) = lu(k,1062) - lu(k,978) * lu(k,1042) - lu(k,1084) = lu(k,1084) - lu(k,959) * lu(k,1083) - lu(k,1085) = lu(k,1085) - lu(k,960) * lu(k,1083) - lu(k,1086) = lu(k,1086) - lu(k,961) * lu(k,1083) - lu(k,1087) = lu(k,1087) - lu(k,962) * lu(k,1083) - lu(k,1088) = lu(k,1088) - lu(k,963) * lu(k,1083) - lu(k,1089) = lu(k,1089) - lu(k,964) * lu(k,1083) - lu(k,1090) = lu(k,1090) - lu(k,965) * lu(k,1083) - lu(k,1091) = lu(k,1091) - lu(k,966) * lu(k,1083) - lu(k,1092) = lu(k,1092) - lu(k,967) * lu(k,1083) - lu(k,1093) = lu(k,1093) - lu(k,968) * lu(k,1083) - lu(k,1094) = lu(k,1094) - lu(k,969) * lu(k,1083) - lu(k,1095) = lu(k,1095) - lu(k,970) * lu(k,1083) - lu(k,1096) = lu(k,1096) - lu(k,971) * lu(k,1083) - lu(k,1097) = lu(k,1097) - lu(k,972) * lu(k,1083) - lu(k,1098) = lu(k,1098) - lu(k,973) * lu(k,1083) - lu(k,1099) = lu(k,1099) - lu(k,974) * lu(k,1083) - lu(k,1100) = lu(k,1100) - lu(k,975) * lu(k,1083) - lu(k,1101) = lu(k,1101) - lu(k,976) * lu(k,1083) - lu(k,1102) = lu(k,1102) - lu(k,977) * lu(k,1083) - lu(k,1103) = lu(k,1103) - lu(k,978) * lu(k,1083) - lu(k,1129) = lu(k,1129) - lu(k,959) * lu(k,1128) - lu(k,1130) = lu(k,1130) - lu(k,960) * lu(k,1128) - lu(k,1131) = lu(k,1131) - lu(k,961) * lu(k,1128) - lu(k,1132) = lu(k,1132) - lu(k,962) * lu(k,1128) - lu(k,1133) = lu(k,1133) - lu(k,963) * lu(k,1128) - lu(k,1134) = lu(k,1134) - lu(k,964) * lu(k,1128) - lu(k,1135) = lu(k,1135) - lu(k,965) * lu(k,1128) - lu(k,1136) = lu(k,1136) - lu(k,966) * lu(k,1128) - lu(k,1137) = lu(k,1137) - lu(k,967) * lu(k,1128) - lu(k,1138) = lu(k,1138) - lu(k,968) * lu(k,1128) - lu(k,1139) = lu(k,1139) - lu(k,969) * lu(k,1128) - lu(k,1140) = lu(k,1140) - lu(k,970) * lu(k,1128) - lu(k,1141) = lu(k,1141) - lu(k,971) * lu(k,1128) - lu(k,1142) = lu(k,1142) - lu(k,972) * lu(k,1128) - lu(k,1143) = lu(k,1143) - lu(k,973) * lu(k,1128) - lu(k,1144) = lu(k,1144) - lu(k,974) * lu(k,1128) - lu(k,1145) = lu(k,1145) - lu(k,975) * lu(k,1128) - lu(k,1146) = lu(k,1146) - lu(k,976) * lu(k,1128) - lu(k,1147) = lu(k,1147) - lu(k,977) * lu(k,1128) - lu(k,1148) = lu(k,1148) - lu(k,978) * lu(k,1128) - lu(k,1169) = lu(k,1169) - lu(k,959) * lu(k,1168) - lu(k,1170) = lu(k,1170) - lu(k,960) * lu(k,1168) - lu(k,1171) = lu(k,1171) - lu(k,961) * lu(k,1168) - lu(k,1172) = lu(k,1172) - lu(k,962) * lu(k,1168) - lu(k,1173) = lu(k,1173) - lu(k,963) * lu(k,1168) - lu(k,1174) = lu(k,1174) - lu(k,964) * lu(k,1168) - lu(k,1175) = lu(k,1175) - lu(k,965) * lu(k,1168) - lu(k,1176) = lu(k,1176) - lu(k,966) * lu(k,1168) - lu(k,1177) = lu(k,1177) - lu(k,967) * lu(k,1168) - lu(k,1178) = lu(k,1178) - lu(k,968) * lu(k,1168) - lu(k,1179) = lu(k,1179) - lu(k,969) * lu(k,1168) - lu(k,1180) = lu(k,1180) - lu(k,970) * lu(k,1168) - lu(k,1181) = lu(k,1181) - lu(k,971) * lu(k,1168) - lu(k,1182) = lu(k,1182) - lu(k,972) * lu(k,1168) - lu(k,1183) = lu(k,1183) - lu(k,973) * lu(k,1168) - lu(k,1184) = lu(k,1184) - lu(k,974) * lu(k,1168) - lu(k,1185) = lu(k,1185) - lu(k,975) * lu(k,1168) - lu(k,1186) = lu(k,1186) - lu(k,976) * lu(k,1168) - lu(k,1187) = lu(k,1187) - lu(k,977) * lu(k,1168) - lu(k,1188) = lu(k,1188) - lu(k,978) * lu(k,1168) - lu(k,1225) = lu(k,1225) - lu(k,959) * lu(k,1224) - lu(k,1226) = lu(k,1226) - lu(k,960) * lu(k,1224) - lu(k,1227) = lu(k,1227) - lu(k,961) * lu(k,1224) - lu(k,1228) = lu(k,1228) - lu(k,962) * lu(k,1224) - lu(k,1229) = lu(k,1229) - lu(k,963) * lu(k,1224) - lu(k,1230) = lu(k,1230) - lu(k,964) * lu(k,1224) - lu(k,1231) = lu(k,1231) - lu(k,965) * lu(k,1224) - lu(k,1232) = lu(k,1232) - lu(k,966) * lu(k,1224) - lu(k,1233) = lu(k,1233) - lu(k,967) * lu(k,1224) - lu(k,1234) = lu(k,1234) - lu(k,968) * lu(k,1224) - lu(k,1235) = lu(k,1235) - lu(k,969) * lu(k,1224) - lu(k,1236) = lu(k,1236) - lu(k,970) * lu(k,1224) - lu(k,1237) = lu(k,1237) - lu(k,971) * lu(k,1224) - lu(k,1238) = lu(k,1238) - lu(k,972) * lu(k,1224) - lu(k,1239) = lu(k,1239) - lu(k,973) * lu(k,1224) - lu(k,1240) = lu(k,1240) - lu(k,974) * lu(k,1224) - lu(k,1241) = lu(k,1241) - lu(k,975) * lu(k,1224) - lu(k,1242) = lu(k,1242) - lu(k,976) * lu(k,1224) - lu(k,1243) = lu(k,1243) - lu(k,977) * lu(k,1224) - lu(k,1244) = lu(k,1244) - lu(k,978) * lu(k,1224) - lu(k,1263) = lu(k,1263) - lu(k,959) * lu(k,1262) - lu(k,1264) = lu(k,1264) - lu(k,960) * lu(k,1262) - lu(k,1265) = lu(k,1265) - lu(k,961) * lu(k,1262) - lu(k,1266) = lu(k,1266) - lu(k,962) * lu(k,1262) - lu(k,1267) = lu(k,1267) - lu(k,963) * lu(k,1262) - lu(k,1268) = lu(k,1268) - lu(k,964) * lu(k,1262) - lu(k,1269) = lu(k,1269) - lu(k,965) * lu(k,1262) - lu(k,1270) = lu(k,1270) - lu(k,966) * lu(k,1262) - lu(k,1271) = lu(k,1271) - lu(k,967) * lu(k,1262) - lu(k,1272) = lu(k,1272) - lu(k,968) * lu(k,1262) - lu(k,1273) = lu(k,1273) - lu(k,969) * lu(k,1262) - lu(k,1274) = lu(k,1274) - lu(k,970) * lu(k,1262) - lu(k,1275) = lu(k,1275) - lu(k,971) * lu(k,1262) - lu(k,1276) = lu(k,1276) - lu(k,972) * lu(k,1262) - lu(k,1277) = lu(k,1277) - lu(k,973) * lu(k,1262) - lu(k,1278) = lu(k,1278) - lu(k,974) * lu(k,1262) - lu(k,1279) = lu(k,1279) - lu(k,975) * lu(k,1262) - lu(k,1280) = lu(k,1280) - lu(k,976) * lu(k,1262) - lu(k,1281) = lu(k,1281) - lu(k,977) * lu(k,1262) - lu(k,1282) = lu(k,1282) - lu(k,978) * lu(k,1262) - lu(k,1299) = lu(k,1299) - lu(k,959) * lu(k,1298) - lu(k,1300) = lu(k,1300) - lu(k,960) * lu(k,1298) - lu(k,1301) = lu(k,1301) - lu(k,961) * lu(k,1298) - lu(k,1302) = lu(k,1302) - lu(k,962) * lu(k,1298) - lu(k,1303) = lu(k,1303) - lu(k,963) * lu(k,1298) - lu(k,1304) = lu(k,1304) - lu(k,964) * lu(k,1298) - lu(k,1305) = lu(k,1305) - lu(k,965) * lu(k,1298) - lu(k,1306) = lu(k,1306) - lu(k,966) * lu(k,1298) - lu(k,1307) = lu(k,1307) - lu(k,967) * lu(k,1298) - lu(k,1308) = lu(k,1308) - lu(k,968) * lu(k,1298) - lu(k,1309) = lu(k,1309) - lu(k,969) * lu(k,1298) - lu(k,1310) = lu(k,1310) - lu(k,970) * lu(k,1298) - lu(k,1311) = lu(k,1311) - lu(k,971) * lu(k,1298) - lu(k,1312) = lu(k,1312) - lu(k,972) * lu(k,1298) - lu(k,1313) = lu(k,1313) - lu(k,973) * lu(k,1298) - lu(k,1314) = lu(k,1314) - lu(k,974) * lu(k,1298) - lu(k,1315) = lu(k,1315) - lu(k,975) * lu(k,1298) - lu(k,1316) = lu(k,1316) - lu(k,976) * lu(k,1298) - lu(k,1317) = lu(k,1317) - lu(k,977) * lu(k,1298) - lu(k,1318) = lu(k,1318) - lu(k,978) * lu(k,1298) - lu(k,1344) = lu(k,1344) - lu(k,959) * lu(k,1343) - lu(k,1345) = lu(k,1345) - lu(k,960) * lu(k,1343) - lu(k,1346) = lu(k,1346) - lu(k,961) * lu(k,1343) - lu(k,1347) = lu(k,1347) - lu(k,962) * lu(k,1343) - lu(k,1348) = lu(k,1348) - lu(k,963) * lu(k,1343) - lu(k,1349) = lu(k,1349) - lu(k,964) * lu(k,1343) - lu(k,1350) = lu(k,1350) - lu(k,965) * lu(k,1343) - lu(k,1351) = lu(k,1351) - lu(k,966) * lu(k,1343) - lu(k,1352) = lu(k,1352) - lu(k,967) * lu(k,1343) - lu(k,1353) = lu(k,1353) - lu(k,968) * lu(k,1343) - lu(k,1354) = lu(k,1354) - lu(k,969) * lu(k,1343) - lu(k,1355) = lu(k,1355) - lu(k,970) * lu(k,1343) - lu(k,1356) = lu(k,1356) - lu(k,971) * lu(k,1343) - lu(k,1357) = lu(k,1357) - lu(k,972) * lu(k,1343) - lu(k,1358) = lu(k,1358) - lu(k,973) * lu(k,1343) - lu(k,1359) = lu(k,1359) - lu(k,974) * lu(k,1343) - lu(k,1360) = lu(k,1360) - lu(k,975) * lu(k,1343) - lu(k,1361) = lu(k,1361) - lu(k,976) * lu(k,1343) - lu(k,1362) = lu(k,1362) - lu(k,977) * lu(k,1343) - lu(k,1363) = lu(k,1363) - lu(k,978) * lu(k,1343) - lu(k,1387) = lu(k,1387) - lu(k,959) * lu(k,1386) - lu(k,1388) = lu(k,1388) - lu(k,960) * lu(k,1386) - lu(k,1389) = lu(k,1389) - lu(k,961) * lu(k,1386) - lu(k,1390) = lu(k,1390) - lu(k,962) * lu(k,1386) - lu(k,1391) = lu(k,1391) - lu(k,963) * lu(k,1386) - lu(k,1392) = lu(k,1392) - lu(k,964) * lu(k,1386) - lu(k,1393) = lu(k,1393) - lu(k,965) * lu(k,1386) - lu(k,1394) = lu(k,1394) - lu(k,966) * lu(k,1386) - lu(k,1395) = lu(k,1395) - lu(k,967) * lu(k,1386) - lu(k,1396) = lu(k,1396) - lu(k,968) * lu(k,1386) - lu(k,1397) = lu(k,1397) - lu(k,969) * lu(k,1386) - lu(k,1398) = lu(k,1398) - lu(k,970) * lu(k,1386) - lu(k,1399) = lu(k,1399) - lu(k,971) * lu(k,1386) - lu(k,1400) = lu(k,1400) - lu(k,972) * lu(k,1386) - lu(k,1401) = lu(k,1401) - lu(k,973) * lu(k,1386) - lu(k,1402) = lu(k,1402) - lu(k,974) * lu(k,1386) - lu(k,1403) = lu(k,1403) - lu(k,975) * lu(k,1386) - lu(k,1404) = lu(k,1404) - lu(k,976) * lu(k,1386) - lu(k,1405) = lu(k,1405) - lu(k,977) * lu(k,1386) - lu(k,1406) = lu(k,1406) - lu(k,978) * lu(k,1386) - lu(k,1422) = lu(k,1422) - lu(k,959) * lu(k,1421) - lu(k,1423) = lu(k,1423) - lu(k,960) * lu(k,1421) - lu(k,1424) = lu(k,1424) - lu(k,961) * lu(k,1421) - lu(k,1425) = lu(k,1425) - lu(k,962) * lu(k,1421) - lu(k,1426) = lu(k,1426) - lu(k,963) * lu(k,1421) - lu(k,1427) = lu(k,1427) - lu(k,964) * lu(k,1421) - lu(k,1428) = lu(k,1428) - lu(k,965) * lu(k,1421) - lu(k,1429) = lu(k,1429) - lu(k,966) * lu(k,1421) - lu(k,1430) = lu(k,1430) - lu(k,967) * lu(k,1421) - lu(k,1431) = lu(k,1431) - lu(k,968) * lu(k,1421) - lu(k,1432) = lu(k,1432) - lu(k,969) * lu(k,1421) - lu(k,1433) = lu(k,1433) - lu(k,970) * lu(k,1421) - lu(k,1434) = lu(k,1434) - lu(k,971) * lu(k,1421) - lu(k,1435) = lu(k,1435) - lu(k,972) * lu(k,1421) - lu(k,1436) = lu(k,1436) - lu(k,973) * lu(k,1421) - lu(k,1437) = lu(k,1437) - lu(k,974) * lu(k,1421) - lu(k,1438) = lu(k,1438) - lu(k,975) * lu(k,1421) - lu(k,1439) = lu(k,1439) - lu(k,976) * lu(k,1421) - lu(k,1440) = lu(k,1440) - lu(k,977) * lu(k,1421) - lu(k,1441) = lu(k,1441) - lu(k,978) * lu(k,1421) - lu(k,1465) = lu(k,1465) - lu(k,959) * lu(k,1464) - lu(k,1466) = lu(k,1466) - lu(k,960) * lu(k,1464) - lu(k,1467) = lu(k,1467) - lu(k,961) * lu(k,1464) - lu(k,1468) = lu(k,1468) - lu(k,962) * lu(k,1464) - lu(k,1469) = lu(k,1469) - lu(k,963) * lu(k,1464) - lu(k,1470) = lu(k,1470) - lu(k,964) * lu(k,1464) - lu(k,1471) = lu(k,1471) - lu(k,965) * lu(k,1464) - lu(k,1472) = lu(k,1472) - lu(k,966) * lu(k,1464) - lu(k,1473) = lu(k,1473) - lu(k,967) * lu(k,1464) - lu(k,1474) = lu(k,1474) - lu(k,968) * lu(k,1464) - lu(k,1475) = lu(k,1475) - lu(k,969) * lu(k,1464) - lu(k,1476) = lu(k,1476) - lu(k,970) * lu(k,1464) - lu(k,1477) = lu(k,1477) - lu(k,971) * lu(k,1464) - lu(k,1478) = lu(k,1478) - lu(k,972) * lu(k,1464) - lu(k,1479) = lu(k,1479) - lu(k,973) * lu(k,1464) - lu(k,1480) = lu(k,1480) - lu(k,974) * lu(k,1464) - lu(k,1481) = lu(k,1481) - lu(k,975) * lu(k,1464) - lu(k,1482) = lu(k,1482) - lu(k,976) * lu(k,1464) - lu(k,1483) = lu(k,1483) - lu(k,977) * lu(k,1464) - lu(k,1484) = lu(k,1484) - lu(k,978) * lu(k,1464) - lu(k,1508) = lu(k,1508) - lu(k,959) * lu(k,1507) - lu(k,1509) = lu(k,1509) - lu(k,960) * lu(k,1507) - lu(k,1510) = lu(k,1510) - lu(k,961) * lu(k,1507) - lu(k,1511) = lu(k,1511) - lu(k,962) * lu(k,1507) - lu(k,1512) = lu(k,1512) - lu(k,963) * lu(k,1507) - lu(k,1513) = lu(k,1513) - lu(k,964) * lu(k,1507) - lu(k,1514) = lu(k,1514) - lu(k,965) * lu(k,1507) - lu(k,1515) = lu(k,1515) - lu(k,966) * lu(k,1507) - lu(k,1516) = lu(k,1516) - lu(k,967) * lu(k,1507) - lu(k,1517) = lu(k,1517) - lu(k,968) * lu(k,1507) - lu(k,1518) = lu(k,1518) - lu(k,969) * lu(k,1507) - lu(k,1519) = lu(k,1519) - lu(k,970) * lu(k,1507) - lu(k,1520) = lu(k,1520) - lu(k,971) * lu(k,1507) - lu(k,1521) = lu(k,1521) - lu(k,972) * lu(k,1507) - lu(k,1522) = lu(k,1522) - lu(k,973) * lu(k,1507) - lu(k,1523) = lu(k,1523) - lu(k,974) * lu(k,1507) - lu(k,1524) = lu(k,1524) - lu(k,975) * lu(k,1507) - lu(k,1525) = lu(k,1525) - lu(k,976) * lu(k,1507) - lu(k,1526) = lu(k,1526) - lu(k,977) * lu(k,1507) - lu(k,1527) = lu(k,1527) - lu(k,978) * lu(k,1507) - lu(k,1551) = lu(k,1551) - lu(k,959) * lu(k,1550) - lu(k,1552) = lu(k,1552) - lu(k,960) * lu(k,1550) - lu(k,1553) = lu(k,1553) - lu(k,961) * lu(k,1550) - lu(k,1554) = lu(k,1554) - lu(k,962) * lu(k,1550) - lu(k,1555) = lu(k,1555) - lu(k,963) * lu(k,1550) - lu(k,1556) = lu(k,1556) - lu(k,964) * lu(k,1550) - lu(k,1557) = lu(k,1557) - lu(k,965) * lu(k,1550) - lu(k,1558) = lu(k,1558) - lu(k,966) * lu(k,1550) - lu(k,1559) = lu(k,1559) - lu(k,967) * lu(k,1550) - lu(k,1560) = lu(k,1560) - lu(k,968) * lu(k,1550) - lu(k,1561) = lu(k,1561) - lu(k,969) * lu(k,1550) - lu(k,1562) = lu(k,1562) - lu(k,970) * lu(k,1550) - lu(k,1563) = lu(k,1563) - lu(k,971) * lu(k,1550) - lu(k,1564) = lu(k,1564) - lu(k,972) * lu(k,1550) - lu(k,1565) = lu(k,1565) - lu(k,973) * lu(k,1550) - lu(k,1566) = lu(k,1566) - lu(k,974) * lu(k,1550) - lu(k,1567) = lu(k,1567) - lu(k,975) * lu(k,1550) - lu(k,1568) = lu(k,1568) - lu(k,976) * lu(k,1550) - lu(k,1569) = lu(k,1569) - lu(k,977) * lu(k,1550) - lu(k,1570) = lu(k,1570) - lu(k,978) * lu(k,1550) - lu(k,1584) = lu(k,1584) - lu(k,959) * lu(k,1583) - lu(k,1585) = lu(k,1585) - lu(k,960) * lu(k,1583) - lu(k,1586) = lu(k,1586) - lu(k,961) * lu(k,1583) - lu(k,1587) = lu(k,1587) - lu(k,962) * lu(k,1583) - lu(k,1588) = lu(k,1588) - lu(k,963) * lu(k,1583) - lu(k,1589) = lu(k,1589) - lu(k,964) * lu(k,1583) - lu(k,1590) = lu(k,1590) - lu(k,965) * lu(k,1583) - lu(k,1591) = lu(k,1591) - lu(k,966) * lu(k,1583) - lu(k,1592) = lu(k,1592) - lu(k,967) * lu(k,1583) - lu(k,1593) = lu(k,1593) - lu(k,968) * lu(k,1583) - lu(k,1594) = lu(k,1594) - lu(k,969) * lu(k,1583) - lu(k,1595) = lu(k,1595) - lu(k,970) * lu(k,1583) - lu(k,1596) = lu(k,1596) - lu(k,971) * lu(k,1583) - lu(k,1597) = lu(k,1597) - lu(k,972) * lu(k,1583) - lu(k,1598) = lu(k,1598) - lu(k,973) * lu(k,1583) - lu(k,1599) = lu(k,1599) - lu(k,974) * lu(k,1583) - lu(k,1600) = lu(k,1600) - lu(k,975) * lu(k,1583) - lu(k,1601) = lu(k,1601) - lu(k,976) * lu(k,1583) - lu(k,1602) = lu(k,1602) - lu(k,977) * lu(k,1583) - lu(k,1603) = lu(k,1603) - lu(k,978) * lu(k,1583) - lu(k,1620) = lu(k,1620) - lu(k,959) * lu(k,1619) - lu(k,1621) = lu(k,1621) - lu(k,960) * lu(k,1619) - lu(k,1622) = lu(k,1622) - lu(k,961) * lu(k,1619) - lu(k,1623) = lu(k,1623) - lu(k,962) * lu(k,1619) - lu(k,1624) = lu(k,1624) - lu(k,963) * lu(k,1619) - lu(k,1625) = lu(k,1625) - lu(k,964) * lu(k,1619) - lu(k,1626) = lu(k,1626) - lu(k,965) * lu(k,1619) - lu(k,1627) = lu(k,1627) - lu(k,966) * lu(k,1619) - lu(k,1628) = lu(k,1628) - lu(k,967) * lu(k,1619) - lu(k,1629) = lu(k,1629) - lu(k,968) * lu(k,1619) - lu(k,1630) = lu(k,1630) - lu(k,969) * lu(k,1619) - lu(k,1631) = lu(k,1631) - lu(k,970) * lu(k,1619) - lu(k,1632) = lu(k,1632) - lu(k,971) * lu(k,1619) - lu(k,1633) = lu(k,1633) - lu(k,972) * lu(k,1619) - lu(k,1634) = lu(k,1634) - lu(k,973) * lu(k,1619) - lu(k,1635) = lu(k,1635) - lu(k,974) * lu(k,1619) - lu(k,1636) = lu(k,1636) - lu(k,975) * lu(k,1619) - lu(k,1637) = lu(k,1637) - lu(k,976) * lu(k,1619) - lu(k,1638) = lu(k,1638) - lu(k,977) * lu(k,1619) - lu(k,1639) = lu(k,1639) - lu(k,978) * lu(k,1619) - lu(k,1663) = lu(k,1663) - lu(k,959) * lu(k,1662) - lu(k,1664) = lu(k,1664) - lu(k,960) * lu(k,1662) - lu(k,1665) = lu(k,1665) - lu(k,961) * lu(k,1662) - lu(k,1666) = lu(k,1666) - lu(k,962) * lu(k,1662) - lu(k,1667) = lu(k,1667) - lu(k,963) * lu(k,1662) - lu(k,1668) = lu(k,1668) - lu(k,964) * lu(k,1662) - lu(k,1669) = lu(k,1669) - lu(k,965) * lu(k,1662) - lu(k,1670) = lu(k,1670) - lu(k,966) * lu(k,1662) - lu(k,1671) = lu(k,1671) - lu(k,967) * lu(k,1662) - lu(k,1672) = lu(k,1672) - lu(k,968) * lu(k,1662) - lu(k,1673) = lu(k,1673) - lu(k,969) * lu(k,1662) - lu(k,1674) = lu(k,1674) - lu(k,970) * lu(k,1662) - lu(k,1675) = lu(k,1675) - lu(k,971) * lu(k,1662) - lu(k,1676) = lu(k,1676) - lu(k,972) * lu(k,1662) - lu(k,1677) = lu(k,1677) - lu(k,973) * lu(k,1662) - lu(k,1678) = lu(k,1678) - lu(k,974) * lu(k,1662) - lu(k,1679) = lu(k,1679) - lu(k,975) * lu(k,1662) - lu(k,1680) = lu(k,1680) - lu(k,976) * lu(k,1662) - lu(k,1681) = lu(k,1681) - lu(k,977) * lu(k,1662) - lu(k,1682) = lu(k,1682) - lu(k,978) * lu(k,1662) - lu(k,1699) = lu(k,1699) - lu(k,959) * lu(k,1698) - lu(k,1700) = lu(k,1700) - lu(k,960) * lu(k,1698) - lu(k,1701) = lu(k,1701) - lu(k,961) * lu(k,1698) - lu(k,1702) = lu(k,1702) - lu(k,962) * lu(k,1698) - lu(k,1703) = lu(k,1703) - lu(k,963) * lu(k,1698) - lu(k,1704) = lu(k,1704) - lu(k,964) * lu(k,1698) - lu(k,1705) = lu(k,1705) - lu(k,965) * lu(k,1698) - lu(k,1706) = lu(k,1706) - lu(k,966) * lu(k,1698) - lu(k,1707) = lu(k,1707) - lu(k,967) * lu(k,1698) - lu(k,1708) = lu(k,1708) - lu(k,968) * lu(k,1698) - lu(k,1709) = lu(k,1709) - lu(k,969) * lu(k,1698) - lu(k,1710) = lu(k,1710) - lu(k,970) * lu(k,1698) - lu(k,1711) = lu(k,1711) - lu(k,971) * lu(k,1698) - lu(k,1712) = lu(k,1712) - lu(k,972) * lu(k,1698) - lu(k,1713) = lu(k,1713) - lu(k,973) * lu(k,1698) - lu(k,1714) = lu(k,1714) - lu(k,974) * lu(k,1698) - lu(k,1715) = lu(k,1715) - lu(k,975) * lu(k,1698) - lu(k,1716) = lu(k,1716) - lu(k,976) * lu(k,1698) - lu(k,1717) = lu(k,1717) - lu(k,977) * lu(k,1698) - lu(k,1718) = lu(k,1718) - lu(k,978) * lu(k,1698) - lu(k,1744) = lu(k,1744) - lu(k,959) * lu(k,1743) - lu(k,1745) = lu(k,1745) - lu(k,960) * lu(k,1743) - lu(k,1746) = lu(k,1746) - lu(k,961) * lu(k,1743) - lu(k,1747) = lu(k,1747) - lu(k,962) * lu(k,1743) - lu(k,1748) = lu(k,1748) - lu(k,963) * lu(k,1743) - lu(k,1749) = lu(k,1749) - lu(k,964) * lu(k,1743) - lu(k,1750) = lu(k,1750) - lu(k,965) * lu(k,1743) - lu(k,1751) = lu(k,1751) - lu(k,966) * lu(k,1743) - lu(k,1752) = lu(k,1752) - lu(k,967) * lu(k,1743) - lu(k,1753) = lu(k,1753) - lu(k,968) * lu(k,1743) - lu(k,1754) = lu(k,1754) - lu(k,969) * lu(k,1743) - lu(k,1755) = lu(k,1755) - lu(k,970) * lu(k,1743) - lu(k,1756) = lu(k,1756) - lu(k,971) * lu(k,1743) - lu(k,1757) = lu(k,1757) - lu(k,972) * lu(k,1743) - lu(k,1758) = lu(k,1758) - lu(k,973) * lu(k,1743) - lu(k,1759) = lu(k,1759) - lu(k,974) * lu(k,1743) - lu(k,1760) = lu(k,1760) - lu(k,975) * lu(k,1743) - lu(k,1761) = lu(k,1761) - lu(k,976) * lu(k,1743) - lu(k,1762) = lu(k,1762) - lu(k,977) * lu(k,1743) - lu(k,1763) = lu(k,1763) - lu(k,978) * lu(k,1743) - lu(k,1797) = lu(k,1797) - lu(k,959) * lu(k,1796) - lu(k,1798) = lu(k,1798) - lu(k,960) * lu(k,1796) - lu(k,1799) = lu(k,1799) - lu(k,961) * lu(k,1796) - lu(k,1800) = lu(k,1800) - lu(k,962) * lu(k,1796) - lu(k,1801) = lu(k,1801) - lu(k,963) * lu(k,1796) - lu(k,1802) = lu(k,1802) - lu(k,964) * lu(k,1796) - lu(k,1803) = lu(k,1803) - lu(k,965) * lu(k,1796) - lu(k,1804) = lu(k,1804) - lu(k,966) * lu(k,1796) - lu(k,1805) = lu(k,1805) - lu(k,967) * lu(k,1796) - lu(k,1806) = lu(k,1806) - lu(k,968) * lu(k,1796) - lu(k,1807) = lu(k,1807) - lu(k,969) * lu(k,1796) - lu(k,1808) = lu(k,1808) - lu(k,970) * lu(k,1796) - lu(k,1809) = lu(k,1809) - lu(k,971) * lu(k,1796) - lu(k,1810) = lu(k,1810) - lu(k,972) * lu(k,1796) - lu(k,1811) = lu(k,1811) - lu(k,973) * lu(k,1796) - lu(k,1812) = lu(k,1812) - lu(k,974) * lu(k,1796) - lu(k,1813) = lu(k,1813) - lu(k,975) * lu(k,1796) - lu(k,1814) = lu(k,1814) - lu(k,976) * lu(k,1796) - lu(k,1815) = lu(k,1815) - lu(k,977) * lu(k,1796) - lu(k,1816) = lu(k,1816) - lu(k,978) * lu(k,1796) - 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,1001) = 1._r8 / lu(k,1001) - lu(k,1002) = lu(k,1002) * lu(k,1001) - lu(k,1003) = lu(k,1003) * lu(k,1001) - lu(k,1004) = lu(k,1004) * lu(k,1001) - lu(k,1005) = lu(k,1005) * lu(k,1001) - lu(k,1006) = lu(k,1006) * lu(k,1001) - lu(k,1007) = lu(k,1007) * lu(k,1001) - lu(k,1008) = lu(k,1008) * lu(k,1001) - lu(k,1009) = lu(k,1009) * lu(k,1001) - lu(k,1010) = lu(k,1010) * lu(k,1001) - lu(k,1011) = lu(k,1011) * lu(k,1001) - lu(k,1012) = lu(k,1012) * lu(k,1001) - lu(k,1013) = lu(k,1013) * lu(k,1001) - lu(k,1014) = lu(k,1014) * lu(k,1001) - lu(k,1015) = lu(k,1015) * lu(k,1001) - lu(k,1016) = lu(k,1016) * lu(k,1001) - lu(k,1017) = lu(k,1017) * lu(k,1001) - lu(k,1018) = lu(k,1018) * lu(k,1001) - lu(k,1019) = lu(k,1019) * lu(k,1001) - lu(k,1020) = lu(k,1020) * lu(k,1001) - lu(k,1044) = lu(k,1044) - lu(k,1002) * lu(k,1043) - lu(k,1045) = lu(k,1045) - lu(k,1003) * lu(k,1043) - lu(k,1046) = lu(k,1046) - lu(k,1004) * lu(k,1043) - lu(k,1047) = lu(k,1047) - lu(k,1005) * lu(k,1043) - lu(k,1048) = lu(k,1048) - lu(k,1006) * lu(k,1043) - lu(k,1049) = lu(k,1049) - lu(k,1007) * lu(k,1043) - lu(k,1050) = lu(k,1050) - lu(k,1008) * lu(k,1043) - lu(k,1051) = lu(k,1051) - lu(k,1009) * lu(k,1043) - lu(k,1052) = lu(k,1052) - lu(k,1010) * lu(k,1043) - lu(k,1053) = lu(k,1053) - lu(k,1011) * lu(k,1043) - lu(k,1054) = lu(k,1054) - lu(k,1012) * lu(k,1043) - lu(k,1055) = lu(k,1055) - lu(k,1013) * lu(k,1043) - lu(k,1056) = lu(k,1056) - lu(k,1014) * lu(k,1043) - lu(k,1057) = lu(k,1057) - lu(k,1015) * lu(k,1043) - lu(k,1058) = lu(k,1058) - lu(k,1016) * lu(k,1043) - lu(k,1059) = lu(k,1059) - lu(k,1017) * lu(k,1043) - lu(k,1060) = lu(k,1060) - lu(k,1018) * lu(k,1043) - lu(k,1061) = lu(k,1061) - lu(k,1019) * lu(k,1043) - lu(k,1062) = lu(k,1062) - lu(k,1020) * lu(k,1043) - lu(k,1085) = lu(k,1085) - lu(k,1002) * lu(k,1084) - lu(k,1086) = lu(k,1086) - lu(k,1003) * lu(k,1084) - lu(k,1087) = lu(k,1087) - lu(k,1004) * lu(k,1084) - lu(k,1088) = lu(k,1088) - lu(k,1005) * lu(k,1084) - lu(k,1089) = lu(k,1089) - lu(k,1006) * lu(k,1084) - lu(k,1090) = lu(k,1090) - lu(k,1007) * lu(k,1084) - lu(k,1091) = lu(k,1091) - lu(k,1008) * lu(k,1084) - lu(k,1092) = lu(k,1092) - lu(k,1009) * lu(k,1084) - lu(k,1093) = lu(k,1093) - lu(k,1010) * lu(k,1084) - lu(k,1094) = lu(k,1094) - lu(k,1011) * lu(k,1084) - lu(k,1095) = lu(k,1095) - lu(k,1012) * lu(k,1084) - lu(k,1096) = lu(k,1096) - lu(k,1013) * lu(k,1084) - lu(k,1097) = lu(k,1097) - lu(k,1014) * lu(k,1084) - lu(k,1098) = lu(k,1098) - lu(k,1015) * lu(k,1084) - lu(k,1099) = lu(k,1099) - lu(k,1016) * lu(k,1084) - lu(k,1100) = lu(k,1100) - lu(k,1017) * lu(k,1084) - lu(k,1101) = lu(k,1101) - lu(k,1018) * lu(k,1084) - lu(k,1102) = lu(k,1102) - lu(k,1019) * lu(k,1084) - lu(k,1103) = lu(k,1103) - lu(k,1020) * lu(k,1084) - lu(k,1130) = lu(k,1130) - lu(k,1002) * lu(k,1129) - lu(k,1131) = lu(k,1131) - lu(k,1003) * lu(k,1129) - lu(k,1132) = lu(k,1132) - lu(k,1004) * lu(k,1129) - lu(k,1133) = lu(k,1133) - lu(k,1005) * lu(k,1129) - lu(k,1134) = lu(k,1134) - lu(k,1006) * lu(k,1129) - lu(k,1135) = lu(k,1135) - lu(k,1007) * lu(k,1129) - lu(k,1136) = lu(k,1136) - lu(k,1008) * lu(k,1129) - lu(k,1137) = lu(k,1137) - lu(k,1009) * lu(k,1129) - lu(k,1138) = lu(k,1138) - lu(k,1010) * lu(k,1129) - lu(k,1139) = lu(k,1139) - lu(k,1011) * lu(k,1129) - lu(k,1140) = lu(k,1140) - lu(k,1012) * lu(k,1129) - lu(k,1141) = lu(k,1141) - lu(k,1013) * lu(k,1129) - lu(k,1142) = lu(k,1142) - lu(k,1014) * lu(k,1129) - lu(k,1143) = lu(k,1143) - lu(k,1015) * lu(k,1129) - lu(k,1144) = lu(k,1144) - lu(k,1016) * lu(k,1129) - lu(k,1145) = lu(k,1145) - lu(k,1017) * lu(k,1129) - lu(k,1146) = lu(k,1146) - lu(k,1018) * lu(k,1129) - lu(k,1147) = lu(k,1147) - lu(k,1019) * lu(k,1129) - lu(k,1148) = lu(k,1148) - lu(k,1020) * lu(k,1129) - lu(k,1170) = lu(k,1170) - lu(k,1002) * lu(k,1169) - lu(k,1171) = lu(k,1171) - lu(k,1003) * lu(k,1169) - lu(k,1172) = lu(k,1172) - lu(k,1004) * lu(k,1169) - lu(k,1173) = lu(k,1173) - lu(k,1005) * lu(k,1169) - lu(k,1174) = lu(k,1174) - lu(k,1006) * lu(k,1169) - lu(k,1175) = lu(k,1175) - lu(k,1007) * lu(k,1169) - lu(k,1176) = lu(k,1176) - lu(k,1008) * lu(k,1169) - lu(k,1177) = lu(k,1177) - lu(k,1009) * lu(k,1169) - lu(k,1178) = lu(k,1178) - lu(k,1010) * lu(k,1169) - lu(k,1179) = lu(k,1179) - lu(k,1011) * lu(k,1169) - lu(k,1180) = lu(k,1180) - lu(k,1012) * lu(k,1169) - lu(k,1181) = lu(k,1181) - lu(k,1013) * lu(k,1169) - lu(k,1182) = lu(k,1182) - lu(k,1014) * lu(k,1169) - lu(k,1183) = lu(k,1183) - lu(k,1015) * lu(k,1169) - lu(k,1184) = lu(k,1184) - lu(k,1016) * lu(k,1169) - lu(k,1185) = lu(k,1185) - lu(k,1017) * lu(k,1169) - lu(k,1186) = lu(k,1186) - lu(k,1018) * lu(k,1169) - lu(k,1187) = lu(k,1187) - lu(k,1019) * lu(k,1169) - lu(k,1188) = lu(k,1188) - lu(k,1020) * lu(k,1169) - lu(k,1226) = lu(k,1226) - lu(k,1002) * lu(k,1225) - lu(k,1227) = lu(k,1227) - lu(k,1003) * lu(k,1225) - lu(k,1228) = lu(k,1228) - lu(k,1004) * lu(k,1225) - lu(k,1229) = lu(k,1229) - lu(k,1005) * lu(k,1225) - lu(k,1230) = lu(k,1230) - lu(k,1006) * lu(k,1225) - lu(k,1231) = lu(k,1231) - lu(k,1007) * lu(k,1225) - lu(k,1232) = lu(k,1232) - lu(k,1008) * lu(k,1225) - lu(k,1233) = lu(k,1233) - lu(k,1009) * lu(k,1225) - lu(k,1234) = lu(k,1234) - lu(k,1010) * lu(k,1225) - lu(k,1235) = lu(k,1235) - lu(k,1011) * lu(k,1225) - lu(k,1236) = lu(k,1236) - lu(k,1012) * lu(k,1225) - lu(k,1237) = lu(k,1237) - lu(k,1013) * lu(k,1225) - lu(k,1238) = lu(k,1238) - lu(k,1014) * lu(k,1225) - lu(k,1239) = lu(k,1239) - lu(k,1015) * lu(k,1225) - lu(k,1240) = lu(k,1240) - lu(k,1016) * lu(k,1225) - lu(k,1241) = lu(k,1241) - lu(k,1017) * lu(k,1225) - lu(k,1242) = lu(k,1242) - lu(k,1018) * lu(k,1225) - lu(k,1243) = lu(k,1243) - lu(k,1019) * lu(k,1225) - lu(k,1244) = lu(k,1244) - lu(k,1020) * lu(k,1225) - lu(k,1264) = lu(k,1264) - lu(k,1002) * lu(k,1263) - lu(k,1265) = lu(k,1265) - lu(k,1003) * lu(k,1263) - lu(k,1266) = lu(k,1266) - lu(k,1004) * lu(k,1263) - lu(k,1267) = lu(k,1267) - lu(k,1005) * lu(k,1263) - lu(k,1268) = lu(k,1268) - lu(k,1006) * lu(k,1263) - lu(k,1269) = lu(k,1269) - lu(k,1007) * lu(k,1263) - lu(k,1270) = lu(k,1270) - lu(k,1008) * lu(k,1263) - lu(k,1271) = lu(k,1271) - lu(k,1009) * lu(k,1263) - lu(k,1272) = lu(k,1272) - lu(k,1010) * lu(k,1263) - lu(k,1273) = lu(k,1273) - lu(k,1011) * lu(k,1263) - lu(k,1274) = lu(k,1274) - lu(k,1012) * lu(k,1263) - lu(k,1275) = lu(k,1275) - lu(k,1013) * lu(k,1263) - lu(k,1276) = lu(k,1276) - lu(k,1014) * lu(k,1263) - lu(k,1277) = lu(k,1277) - lu(k,1015) * lu(k,1263) - lu(k,1278) = lu(k,1278) - lu(k,1016) * lu(k,1263) - lu(k,1279) = lu(k,1279) - lu(k,1017) * lu(k,1263) - lu(k,1280) = lu(k,1280) - lu(k,1018) * lu(k,1263) - lu(k,1281) = lu(k,1281) - lu(k,1019) * lu(k,1263) - lu(k,1282) = lu(k,1282) - lu(k,1020) * lu(k,1263) - lu(k,1300) = lu(k,1300) - lu(k,1002) * lu(k,1299) - lu(k,1301) = lu(k,1301) - lu(k,1003) * lu(k,1299) - lu(k,1302) = lu(k,1302) - lu(k,1004) * lu(k,1299) - lu(k,1303) = lu(k,1303) - lu(k,1005) * lu(k,1299) - lu(k,1304) = lu(k,1304) - lu(k,1006) * lu(k,1299) - lu(k,1305) = lu(k,1305) - lu(k,1007) * lu(k,1299) - lu(k,1306) = lu(k,1306) - lu(k,1008) * lu(k,1299) - lu(k,1307) = lu(k,1307) - lu(k,1009) * lu(k,1299) - lu(k,1308) = lu(k,1308) - lu(k,1010) * lu(k,1299) - lu(k,1309) = lu(k,1309) - lu(k,1011) * lu(k,1299) - lu(k,1310) = lu(k,1310) - lu(k,1012) * lu(k,1299) - lu(k,1311) = lu(k,1311) - lu(k,1013) * lu(k,1299) - lu(k,1312) = lu(k,1312) - lu(k,1014) * lu(k,1299) - lu(k,1313) = lu(k,1313) - lu(k,1015) * lu(k,1299) - lu(k,1314) = lu(k,1314) - lu(k,1016) * lu(k,1299) - lu(k,1315) = lu(k,1315) - lu(k,1017) * lu(k,1299) - lu(k,1316) = lu(k,1316) - lu(k,1018) * lu(k,1299) - lu(k,1317) = lu(k,1317) - lu(k,1019) * lu(k,1299) - lu(k,1318) = lu(k,1318) - lu(k,1020) * lu(k,1299) - lu(k,1345) = lu(k,1345) - lu(k,1002) * lu(k,1344) - lu(k,1346) = lu(k,1346) - lu(k,1003) * lu(k,1344) - lu(k,1347) = lu(k,1347) - lu(k,1004) * lu(k,1344) - lu(k,1348) = lu(k,1348) - lu(k,1005) * lu(k,1344) - lu(k,1349) = lu(k,1349) - lu(k,1006) * lu(k,1344) - lu(k,1350) = lu(k,1350) - lu(k,1007) * lu(k,1344) - lu(k,1351) = lu(k,1351) - lu(k,1008) * lu(k,1344) - lu(k,1352) = lu(k,1352) - lu(k,1009) * lu(k,1344) - lu(k,1353) = lu(k,1353) - lu(k,1010) * lu(k,1344) - lu(k,1354) = lu(k,1354) - lu(k,1011) * lu(k,1344) - lu(k,1355) = lu(k,1355) - lu(k,1012) * lu(k,1344) - lu(k,1356) = lu(k,1356) - lu(k,1013) * lu(k,1344) - lu(k,1357) = lu(k,1357) - lu(k,1014) * lu(k,1344) - lu(k,1358) = lu(k,1358) - lu(k,1015) * lu(k,1344) - lu(k,1359) = lu(k,1359) - lu(k,1016) * lu(k,1344) - lu(k,1360) = lu(k,1360) - lu(k,1017) * lu(k,1344) - lu(k,1361) = lu(k,1361) - lu(k,1018) * lu(k,1344) - lu(k,1362) = lu(k,1362) - lu(k,1019) * lu(k,1344) - lu(k,1363) = lu(k,1363) - lu(k,1020) * lu(k,1344) - lu(k,1388) = lu(k,1388) - lu(k,1002) * lu(k,1387) - lu(k,1389) = lu(k,1389) - lu(k,1003) * lu(k,1387) - lu(k,1390) = lu(k,1390) - lu(k,1004) * lu(k,1387) - lu(k,1391) = lu(k,1391) - lu(k,1005) * lu(k,1387) - lu(k,1392) = lu(k,1392) - lu(k,1006) * lu(k,1387) - lu(k,1393) = lu(k,1393) - lu(k,1007) * lu(k,1387) - lu(k,1394) = lu(k,1394) - lu(k,1008) * lu(k,1387) - lu(k,1395) = lu(k,1395) - lu(k,1009) * lu(k,1387) - lu(k,1396) = lu(k,1396) - lu(k,1010) * lu(k,1387) - lu(k,1397) = lu(k,1397) - lu(k,1011) * lu(k,1387) - lu(k,1398) = lu(k,1398) - lu(k,1012) * lu(k,1387) - lu(k,1399) = lu(k,1399) - lu(k,1013) * lu(k,1387) - lu(k,1400) = lu(k,1400) - lu(k,1014) * lu(k,1387) - lu(k,1401) = lu(k,1401) - lu(k,1015) * lu(k,1387) - lu(k,1402) = lu(k,1402) - lu(k,1016) * lu(k,1387) - lu(k,1403) = lu(k,1403) - lu(k,1017) * lu(k,1387) - lu(k,1404) = lu(k,1404) - lu(k,1018) * lu(k,1387) - lu(k,1405) = lu(k,1405) - lu(k,1019) * lu(k,1387) - lu(k,1406) = lu(k,1406) - lu(k,1020) * lu(k,1387) - lu(k,1423) = lu(k,1423) - lu(k,1002) * lu(k,1422) - lu(k,1424) = lu(k,1424) - lu(k,1003) * lu(k,1422) - lu(k,1425) = lu(k,1425) - lu(k,1004) * lu(k,1422) - lu(k,1426) = lu(k,1426) - lu(k,1005) * lu(k,1422) - lu(k,1427) = lu(k,1427) - lu(k,1006) * lu(k,1422) - lu(k,1428) = lu(k,1428) - lu(k,1007) * lu(k,1422) - lu(k,1429) = lu(k,1429) - lu(k,1008) * lu(k,1422) - lu(k,1430) = lu(k,1430) - lu(k,1009) * lu(k,1422) - lu(k,1431) = lu(k,1431) - lu(k,1010) * lu(k,1422) - lu(k,1432) = lu(k,1432) - lu(k,1011) * lu(k,1422) - lu(k,1433) = lu(k,1433) - lu(k,1012) * lu(k,1422) - lu(k,1434) = lu(k,1434) - lu(k,1013) * lu(k,1422) - lu(k,1435) = lu(k,1435) - lu(k,1014) * lu(k,1422) - lu(k,1436) = lu(k,1436) - lu(k,1015) * lu(k,1422) - lu(k,1437) = lu(k,1437) - lu(k,1016) * lu(k,1422) - lu(k,1438) = lu(k,1438) - lu(k,1017) * lu(k,1422) - lu(k,1439) = lu(k,1439) - lu(k,1018) * lu(k,1422) - lu(k,1440) = lu(k,1440) - lu(k,1019) * lu(k,1422) - lu(k,1441) = lu(k,1441) - lu(k,1020) * lu(k,1422) - lu(k,1466) = lu(k,1466) - lu(k,1002) * lu(k,1465) - lu(k,1467) = lu(k,1467) - lu(k,1003) * lu(k,1465) - lu(k,1468) = lu(k,1468) - lu(k,1004) * lu(k,1465) - lu(k,1469) = lu(k,1469) - lu(k,1005) * lu(k,1465) - lu(k,1470) = lu(k,1470) - lu(k,1006) * lu(k,1465) - lu(k,1471) = lu(k,1471) - lu(k,1007) * lu(k,1465) - lu(k,1472) = lu(k,1472) - lu(k,1008) * lu(k,1465) - lu(k,1473) = lu(k,1473) - lu(k,1009) * lu(k,1465) - lu(k,1474) = lu(k,1474) - lu(k,1010) * lu(k,1465) - lu(k,1475) = lu(k,1475) - lu(k,1011) * lu(k,1465) - lu(k,1476) = lu(k,1476) - lu(k,1012) * lu(k,1465) - lu(k,1477) = lu(k,1477) - lu(k,1013) * lu(k,1465) - lu(k,1478) = lu(k,1478) - lu(k,1014) * lu(k,1465) - lu(k,1479) = lu(k,1479) - lu(k,1015) * lu(k,1465) - lu(k,1480) = lu(k,1480) - lu(k,1016) * lu(k,1465) - lu(k,1481) = lu(k,1481) - lu(k,1017) * lu(k,1465) - lu(k,1482) = lu(k,1482) - lu(k,1018) * lu(k,1465) - lu(k,1483) = lu(k,1483) - lu(k,1019) * lu(k,1465) - lu(k,1484) = lu(k,1484) - lu(k,1020) * lu(k,1465) - lu(k,1509) = lu(k,1509) - lu(k,1002) * lu(k,1508) - lu(k,1510) = lu(k,1510) - lu(k,1003) * lu(k,1508) - lu(k,1511) = lu(k,1511) - lu(k,1004) * lu(k,1508) - lu(k,1512) = lu(k,1512) - lu(k,1005) * lu(k,1508) - lu(k,1513) = lu(k,1513) - lu(k,1006) * lu(k,1508) - lu(k,1514) = lu(k,1514) - lu(k,1007) * lu(k,1508) - lu(k,1515) = lu(k,1515) - lu(k,1008) * lu(k,1508) - lu(k,1516) = lu(k,1516) - lu(k,1009) * lu(k,1508) - lu(k,1517) = lu(k,1517) - lu(k,1010) * lu(k,1508) - lu(k,1518) = lu(k,1518) - lu(k,1011) * lu(k,1508) - lu(k,1519) = lu(k,1519) - lu(k,1012) * lu(k,1508) - lu(k,1520) = lu(k,1520) - lu(k,1013) * lu(k,1508) - lu(k,1521) = lu(k,1521) - lu(k,1014) * lu(k,1508) - lu(k,1522) = lu(k,1522) - lu(k,1015) * lu(k,1508) - lu(k,1523) = lu(k,1523) - lu(k,1016) * lu(k,1508) - lu(k,1524) = lu(k,1524) - lu(k,1017) * lu(k,1508) - lu(k,1525) = lu(k,1525) - lu(k,1018) * lu(k,1508) - lu(k,1526) = lu(k,1526) - lu(k,1019) * lu(k,1508) - lu(k,1527) = lu(k,1527) - lu(k,1020) * lu(k,1508) - lu(k,1552) = lu(k,1552) - lu(k,1002) * lu(k,1551) - lu(k,1553) = lu(k,1553) - lu(k,1003) * lu(k,1551) - lu(k,1554) = lu(k,1554) - lu(k,1004) * lu(k,1551) - lu(k,1555) = lu(k,1555) - lu(k,1005) * lu(k,1551) - lu(k,1556) = lu(k,1556) - lu(k,1006) * lu(k,1551) - lu(k,1557) = lu(k,1557) - lu(k,1007) * lu(k,1551) - lu(k,1558) = lu(k,1558) - lu(k,1008) * lu(k,1551) - lu(k,1559) = lu(k,1559) - lu(k,1009) * lu(k,1551) - lu(k,1560) = lu(k,1560) - lu(k,1010) * lu(k,1551) - lu(k,1561) = lu(k,1561) - lu(k,1011) * lu(k,1551) - lu(k,1562) = lu(k,1562) - lu(k,1012) * lu(k,1551) - lu(k,1563) = lu(k,1563) - lu(k,1013) * lu(k,1551) - lu(k,1564) = lu(k,1564) - lu(k,1014) * lu(k,1551) - lu(k,1565) = lu(k,1565) - lu(k,1015) * lu(k,1551) - lu(k,1566) = lu(k,1566) - lu(k,1016) * lu(k,1551) - lu(k,1567) = lu(k,1567) - lu(k,1017) * lu(k,1551) - lu(k,1568) = lu(k,1568) - lu(k,1018) * lu(k,1551) - lu(k,1569) = lu(k,1569) - lu(k,1019) * lu(k,1551) - lu(k,1570) = lu(k,1570) - lu(k,1020) * lu(k,1551) - lu(k,1585) = lu(k,1585) - lu(k,1002) * lu(k,1584) - lu(k,1586) = lu(k,1586) - lu(k,1003) * lu(k,1584) - lu(k,1587) = lu(k,1587) - lu(k,1004) * lu(k,1584) - lu(k,1588) = lu(k,1588) - lu(k,1005) * lu(k,1584) - lu(k,1589) = lu(k,1589) - lu(k,1006) * lu(k,1584) - lu(k,1590) = lu(k,1590) - lu(k,1007) * lu(k,1584) - lu(k,1591) = lu(k,1591) - lu(k,1008) * lu(k,1584) - lu(k,1592) = lu(k,1592) - lu(k,1009) * lu(k,1584) - lu(k,1593) = lu(k,1593) - lu(k,1010) * lu(k,1584) - lu(k,1594) = lu(k,1594) - lu(k,1011) * lu(k,1584) - lu(k,1595) = lu(k,1595) - lu(k,1012) * lu(k,1584) - lu(k,1596) = lu(k,1596) - lu(k,1013) * lu(k,1584) - lu(k,1597) = lu(k,1597) - lu(k,1014) * lu(k,1584) - lu(k,1598) = lu(k,1598) - lu(k,1015) * lu(k,1584) - lu(k,1599) = lu(k,1599) - lu(k,1016) * lu(k,1584) - lu(k,1600) = lu(k,1600) - lu(k,1017) * lu(k,1584) - lu(k,1601) = lu(k,1601) - lu(k,1018) * lu(k,1584) - lu(k,1602) = lu(k,1602) - lu(k,1019) * lu(k,1584) - lu(k,1603) = lu(k,1603) - lu(k,1020) * lu(k,1584) - lu(k,1621) = lu(k,1621) - lu(k,1002) * lu(k,1620) - lu(k,1622) = lu(k,1622) - lu(k,1003) * lu(k,1620) - lu(k,1623) = lu(k,1623) - lu(k,1004) * lu(k,1620) - lu(k,1624) = lu(k,1624) - lu(k,1005) * lu(k,1620) - lu(k,1625) = lu(k,1625) - lu(k,1006) * lu(k,1620) - lu(k,1626) = lu(k,1626) - lu(k,1007) * lu(k,1620) - lu(k,1627) = lu(k,1627) - lu(k,1008) * lu(k,1620) - lu(k,1628) = lu(k,1628) - lu(k,1009) * lu(k,1620) - lu(k,1629) = lu(k,1629) - lu(k,1010) * lu(k,1620) - lu(k,1630) = lu(k,1630) - lu(k,1011) * lu(k,1620) - lu(k,1631) = lu(k,1631) - lu(k,1012) * lu(k,1620) - lu(k,1632) = lu(k,1632) - lu(k,1013) * lu(k,1620) - lu(k,1633) = lu(k,1633) - lu(k,1014) * lu(k,1620) - lu(k,1634) = lu(k,1634) - lu(k,1015) * lu(k,1620) - lu(k,1635) = lu(k,1635) - lu(k,1016) * lu(k,1620) - lu(k,1636) = lu(k,1636) - lu(k,1017) * lu(k,1620) - lu(k,1637) = lu(k,1637) - lu(k,1018) * lu(k,1620) - lu(k,1638) = lu(k,1638) - lu(k,1019) * lu(k,1620) - lu(k,1639) = lu(k,1639) - lu(k,1020) * lu(k,1620) - lu(k,1664) = lu(k,1664) - lu(k,1002) * lu(k,1663) - lu(k,1665) = lu(k,1665) - lu(k,1003) * lu(k,1663) - lu(k,1666) = lu(k,1666) - lu(k,1004) * lu(k,1663) - lu(k,1667) = lu(k,1667) - lu(k,1005) * lu(k,1663) - lu(k,1668) = lu(k,1668) - lu(k,1006) * lu(k,1663) - lu(k,1669) = lu(k,1669) - lu(k,1007) * lu(k,1663) - lu(k,1670) = lu(k,1670) - lu(k,1008) * lu(k,1663) - lu(k,1671) = lu(k,1671) - lu(k,1009) * lu(k,1663) - lu(k,1672) = lu(k,1672) - lu(k,1010) * lu(k,1663) - lu(k,1673) = lu(k,1673) - lu(k,1011) * lu(k,1663) - lu(k,1674) = lu(k,1674) - lu(k,1012) * lu(k,1663) - lu(k,1675) = lu(k,1675) - lu(k,1013) * lu(k,1663) - lu(k,1676) = lu(k,1676) - lu(k,1014) * lu(k,1663) - lu(k,1677) = lu(k,1677) - lu(k,1015) * lu(k,1663) - lu(k,1678) = lu(k,1678) - lu(k,1016) * lu(k,1663) - lu(k,1679) = lu(k,1679) - lu(k,1017) * lu(k,1663) - lu(k,1680) = lu(k,1680) - lu(k,1018) * lu(k,1663) - lu(k,1681) = lu(k,1681) - lu(k,1019) * lu(k,1663) - lu(k,1682) = lu(k,1682) - lu(k,1020) * lu(k,1663) - lu(k,1700) = lu(k,1700) - lu(k,1002) * lu(k,1699) - lu(k,1701) = lu(k,1701) - lu(k,1003) * lu(k,1699) - lu(k,1702) = lu(k,1702) - lu(k,1004) * lu(k,1699) - lu(k,1703) = lu(k,1703) - lu(k,1005) * lu(k,1699) - lu(k,1704) = lu(k,1704) - lu(k,1006) * lu(k,1699) - lu(k,1705) = lu(k,1705) - lu(k,1007) * lu(k,1699) - lu(k,1706) = lu(k,1706) - lu(k,1008) * lu(k,1699) - lu(k,1707) = lu(k,1707) - lu(k,1009) * lu(k,1699) - lu(k,1708) = lu(k,1708) - lu(k,1010) * lu(k,1699) - lu(k,1709) = lu(k,1709) - lu(k,1011) * lu(k,1699) - lu(k,1710) = lu(k,1710) - lu(k,1012) * lu(k,1699) - lu(k,1711) = lu(k,1711) - lu(k,1013) * lu(k,1699) - lu(k,1712) = lu(k,1712) - lu(k,1014) * lu(k,1699) - lu(k,1713) = lu(k,1713) - lu(k,1015) * lu(k,1699) - lu(k,1714) = lu(k,1714) - lu(k,1016) * lu(k,1699) - lu(k,1715) = lu(k,1715) - lu(k,1017) * lu(k,1699) - lu(k,1716) = lu(k,1716) - lu(k,1018) * lu(k,1699) - lu(k,1717) = lu(k,1717) - lu(k,1019) * lu(k,1699) - lu(k,1718) = lu(k,1718) - lu(k,1020) * lu(k,1699) - lu(k,1745) = lu(k,1745) - lu(k,1002) * lu(k,1744) - lu(k,1746) = lu(k,1746) - lu(k,1003) * lu(k,1744) - lu(k,1747) = lu(k,1747) - lu(k,1004) * lu(k,1744) - lu(k,1748) = lu(k,1748) - lu(k,1005) * lu(k,1744) - lu(k,1749) = lu(k,1749) - lu(k,1006) * lu(k,1744) - lu(k,1750) = lu(k,1750) - lu(k,1007) * lu(k,1744) - lu(k,1751) = lu(k,1751) - lu(k,1008) * lu(k,1744) - lu(k,1752) = lu(k,1752) - lu(k,1009) * lu(k,1744) - lu(k,1753) = lu(k,1753) - lu(k,1010) * lu(k,1744) - lu(k,1754) = lu(k,1754) - lu(k,1011) * lu(k,1744) - lu(k,1755) = lu(k,1755) - lu(k,1012) * lu(k,1744) - lu(k,1756) = lu(k,1756) - lu(k,1013) * lu(k,1744) - lu(k,1757) = lu(k,1757) - lu(k,1014) * lu(k,1744) - lu(k,1758) = lu(k,1758) - lu(k,1015) * lu(k,1744) - lu(k,1759) = lu(k,1759) - lu(k,1016) * lu(k,1744) - lu(k,1760) = lu(k,1760) - lu(k,1017) * lu(k,1744) - lu(k,1761) = lu(k,1761) - lu(k,1018) * lu(k,1744) - lu(k,1762) = lu(k,1762) - lu(k,1019) * lu(k,1744) - lu(k,1763) = lu(k,1763) - lu(k,1020) * lu(k,1744) - lu(k,1798) = lu(k,1798) - lu(k,1002) * lu(k,1797) - lu(k,1799) = lu(k,1799) - lu(k,1003) * lu(k,1797) - lu(k,1800) = lu(k,1800) - lu(k,1004) * lu(k,1797) - lu(k,1801) = lu(k,1801) - lu(k,1005) * lu(k,1797) - lu(k,1802) = lu(k,1802) - lu(k,1006) * lu(k,1797) - lu(k,1803) = lu(k,1803) - lu(k,1007) * lu(k,1797) - lu(k,1804) = lu(k,1804) - lu(k,1008) * lu(k,1797) - lu(k,1805) = lu(k,1805) - lu(k,1009) * lu(k,1797) - lu(k,1806) = lu(k,1806) - lu(k,1010) * lu(k,1797) - lu(k,1807) = lu(k,1807) - lu(k,1011) * lu(k,1797) - lu(k,1808) = lu(k,1808) - lu(k,1012) * lu(k,1797) - lu(k,1809) = lu(k,1809) - lu(k,1013) * lu(k,1797) - lu(k,1810) = lu(k,1810) - lu(k,1014) * lu(k,1797) - lu(k,1811) = lu(k,1811) - lu(k,1015) * lu(k,1797) - lu(k,1812) = lu(k,1812) - lu(k,1016) * lu(k,1797) - lu(k,1813) = lu(k,1813) - lu(k,1017) * lu(k,1797) - lu(k,1814) = lu(k,1814) - lu(k,1018) * lu(k,1797) - lu(k,1815) = lu(k,1815) - lu(k,1019) * lu(k,1797) - lu(k,1816) = lu(k,1816) - lu(k,1020) * lu(k,1797) - lu(k,1044) = 1._r8 / lu(k,1044) - lu(k,1045) = lu(k,1045) * lu(k,1044) - lu(k,1046) = lu(k,1046) * lu(k,1044) - lu(k,1047) = lu(k,1047) * lu(k,1044) - lu(k,1048) = lu(k,1048) * lu(k,1044) - lu(k,1049) = lu(k,1049) * lu(k,1044) - lu(k,1050) = lu(k,1050) * lu(k,1044) - lu(k,1051) = lu(k,1051) * lu(k,1044) - lu(k,1052) = lu(k,1052) * lu(k,1044) - lu(k,1053) = lu(k,1053) * lu(k,1044) - lu(k,1054) = lu(k,1054) * lu(k,1044) - lu(k,1055) = lu(k,1055) * lu(k,1044) - lu(k,1056) = lu(k,1056) * lu(k,1044) - lu(k,1057) = lu(k,1057) * lu(k,1044) - lu(k,1058) = lu(k,1058) * lu(k,1044) - lu(k,1059) = lu(k,1059) * lu(k,1044) - lu(k,1060) = lu(k,1060) * lu(k,1044) - lu(k,1061) = lu(k,1061) * lu(k,1044) - lu(k,1062) = lu(k,1062) * lu(k,1044) - lu(k,1086) = lu(k,1086) - lu(k,1045) * lu(k,1085) - lu(k,1087) = lu(k,1087) - lu(k,1046) * lu(k,1085) - lu(k,1088) = lu(k,1088) - lu(k,1047) * lu(k,1085) - lu(k,1089) = lu(k,1089) - lu(k,1048) * lu(k,1085) - lu(k,1090) = lu(k,1090) - lu(k,1049) * lu(k,1085) - lu(k,1091) = lu(k,1091) - lu(k,1050) * lu(k,1085) - lu(k,1092) = lu(k,1092) - lu(k,1051) * lu(k,1085) - lu(k,1093) = lu(k,1093) - lu(k,1052) * lu(k,1085) - lu(k,1094) = lu(k,1094) - lu(k,1053) * lu(k,1085) - lu(k,1095) = lu(k,1095) - lu(k,1054) * lu(k,1085) - lu(k,1096) = lu(k,1096) - lu(k,1055) * lu(k,1085) - lu(k,1097) = lu(k,1097) - lu(k,1056) * lu(k,1085) - lu(k,1098) = lu(k,1098) - lu(k,1057) * lu(k,1085) - lu(k,1099) = lu(k,1099) - lu(k,1058) * lu(k,1085) - lu(k,1100) = lu(k,1100) - lu(k,1059) * lu(k,1085) - lu(k,1101) = lu(k,1101) - lu(k,1060) * lu(k,1085) - lu(k,1102) = lu(k,1102) - lu(k,1061) * lu(k,1085) - lu(k,1103) = lu(k,1103) - lu(k,1062) * lu(k,1085) - lu(k,1131) = lu(k,1131) - lu(k,1045) * lu(k,1130) - lu(k,1132) = lu(k,1132) - lu(k,1046) * lu(k,1130) - lu(k,1133) = lu(k,1133) - lu(k,1047) * lu(k,1130) - lu(k,1134) = lu(k,1134) - lu(k,1048) * lu(k,1130) - lu(k,1135) = lu(k,1135) - lu(k,1049) * lu(k,1130) - lu(k,1136) = lu(k,1136) - lu(k,1050) * lu(k,1130) - lu(k,1137) = lu(k,1137) - lu(k,1051) * lu(k,1130) - lu(k,1138) = lu(k,1138) - lu(k,1052) * lu(k,1130) - lu(k,1139) = lu(k,1139) - lu(k,1053) * lu(k,1130) - lu(k,1140) = lu(k,1140) - lu(k,1054) * lu(k,1130) - lu(k,1141) = lu(k,1141) - lu(k,1055) * lu(k,1130) - lu(k,1142) = lu(k,1142) - lu(k,1056) * lu(k,1130) - lu(k,1143) = lu(k,1143) - lu(k,1057) * lu(k,1130) - lu(k,1144) = lu(k,1144) - lu(k,1058) * lu(k,1130) - lu(k,1145) = lu(k,1145) - lu(k,1059) * lu(k,1130) - lu(k,1146) = lu(k,1146) - lu(k,1060) * lu(k,1130) - lu(k,1147) = lu(k,1147) - lu(k,1061) * lu(k,1130) - lu(k,1148) = lu(k,1148) - lu(k,1062) * lu(k,1130) - lu(k,1171) = lu(k,1171) - lu(k,1045) * lu(k,1170) - lu(k,1172) = lu(k,1172) - lu(k,1046) * lu(k,1170) - lu(k,1173) = lu(k,1173) - lu(k,1047) * lu(k,1170) - lu(k,1174) = lu(k,1174) - lu(k,1048) * lu(k,1170) - lu(k,1175) = lu(k,1175) - lu(k,1049) * lu(k,1170) - lu(k,1176) = lu(k,1176) - lu(k,1050) * lu(k,1170) - lu(k,1177) = lu(k,1177) - lu(k,1051) * lu(k,1170) - lu(k,1178) = lu(k,1178) - lu(k,1052) * lu(k,1170) - lu(k,1179) = lu(k,1179) - lu(k,1053) * lu(k,1170) - lu(k,1180) = lu(k,1180) - lu(k,1054) * lu(k,1170) - lu(k,1181) = lu(k,1181) - lu(k,1055) * lu(k,1170) - lu(k,1182) = lu(k,1182) - lu(k,1056) * lu(k,1170) - lu(k,1183) = lu(k,1183) - lu(k,1057) * lu(k,1170) - lu(k,1184) = lu(k,1184) - lu(k,1058) * lu(k,1170) - lu(k,1185) = lu(k,1185) - lu(k,1059) * lu(k,1170) - lu(k,1186) = lu(k,1186) - lu(k,1060) * lu(k,1170) - lu(k,1187) = lu(k,1187) - lu(k,1061) * lu(k,1170) - lu(k,1188) = lu(k,1188) - lu(k,1062) * lu(k,1170) - lu(k,1227) = lu(k,1227) - lu(k,1045) * lu(k,1226) - lu(k,1228) = lu(k,1228) - lu(k,1046) * lu(k,1226) - lu(k,1229) = lu(k,1229) - lu(k,1047) * lu(k,1226) - lu(k,1230) = lu(k,1230) - lu(k,1048) * lu(k,1226) - lu(k,1231) = lu(k,1231) - lu(k,1049) * lu(k,1226) - lu(k,1232) = lu(k,1232) - lu(k,1050) * lu(k,1226) - lu(k,1233) = lu(k,1233) - lu(k,1051) * lu(k,1226) - lu(k,1234) = lu(k,1234) - lu(k,1052) * lu(k,1226) - lu(k,1235) = lu(k,1235) - lu(k,1053) * lu(k,1226) - lu(k,1236) = lu(k,1236) - lu(k,1054) * lu(k,1226) - lu(k,1237) = lu(k,1237) - lu(k,1055) * lu(k,1226) - lu(k,1238) = lu(k,1238) - lu(k,1056) * lu(k,1226) - lu(k,1239) = lu(k,1239) - lu(k,1057) * lu(k,1226) - lu(k,1240) = lu(k,1240) - lu(k,1058) * lu(k,1226) - lu(k,1241) = lu(k,1241) - lu(k,1059) * lu(k,1226) - lu(k,1242) = lu(k,1242) - lu(k,1060) * lu(k,1226) - lu(k,1243) = lu(k,1243) - lu(k,1061) * lu(k,1226) - lu(k,1244) = lu(k,1244) - lu(k,1062) * lu(k,1226) - lu(k,1265) = lu(k,1265) - lu(k,1045) * lu(k,1264) - lu(k,1266) = lu(k,1266) - lu(k,1046) * lu(k,1264) - lu(k,1267) = lu(k,1267) - lu(k,1047) * lu(k,1264) - lu(k,1268) = lu(k,1268) - lu(k,1048) * lu(k,1264) - lu(k,1269) = lu(k,1269) - lu(k,1049) * lu(k,1264) - lu(k,1270) = lu(k,1270) - lu(k,1050) * lu(k,1264) - lu(k,1271) = lu(k,1271) - lu(k,1051) * lu(k,1264) - lu(k,1272) = lu(k,1272) - lu(k,1052) * lu(k,1264) - lu(k,1273) = lu(k,1273) - lu(k,1053) * lu(k,1264) - lu(k,1274) = lu(k,1274) - lu(k,1054) * lu(k,1264) - lu(k,1275) = lu(k,1275) - lu(k,1055) * lu(k,1264) - lu(k,1276) = lu(k,1276) - lu(k,1056) * lu(k,1264) - lu(k,1277) = lu(k,1277) - lu(k,1057) * lu(k,1264) - lu(k,1278) = lu(k,1278) - lu(k,1058) * lu(k,1264) - lu(k,1279) = lu(k,1279) - lu(k,1059) * lu(k,1264) - lu(k,1280) = lu(k,1280) - lu(k,1060) * lu(k,1264) - lu(k,1281) = lu(k,1281) - lu(k,1061) * lu(k,1264) - lu(k,1282) = lu(k,1282) - lu(k,1062) * lu(k,1264) - lu(k,1301) = lu(k,1301) - lu(k,1045) * lu(k,1300) - lu(k,1302) = lu(k,1302) - lu(k,1046) * lu(k,1300) - lu(k,1303) = lu(k,1303) - lu(k,1047) * lu(k,1300) - lu(k,1304) = lu(k,1304) - lu(k,1048) * lu(k,1300) - lu(k,1305) = lu(k,1305) - lu(k,1049) * lu(k,1300) - lu(k,1306) = lu(k,1306) - lu(k,1050) * lu(k,1300) - lu(k,1307) = lu(k,1307) - lu(k,1051) * lu(k,1300) - lu(k,1308) = lu(k,1308) - lu(k,1052) * lu(k,1300) - lu(k,1309) = lu(k,1309) - lu(k,1053) * lu(k,1300) - lu(k,1310) = lu(k,1310) - lu(k,1054) * lu(k,1300) - lu(k,1311) = lu(k,1311) - lu(k,1055) * lu(k,1300) - lu(k,1312) = lu(k,1312) - lu(k,1056) * lu(k,1300) - lu(k,1313) = lu(k,1313) - lu(k,1057) * lu(k,1300) - lu(k,1314) = lu(k,1314) - lu(k,1058) * lu(k,1300) - lu(k,1315) = lu(k,1315) - lu(k,1059) * lu(k,1300) - lu(k,1316) = lu(k,1316) - lu(k,1060) * lu(k,1300) - lu(k,1317) = lu(k,1317) - lu(k,1061) * lu(k,1300) - lu(k,1318) = lu(k,1318) - lu(k,1062) * lu(k,1300) - lu(k,1346) = lu(k,1346) - lu(k,1045) * lu(k,1345) - lu(k,1347) = lu(k,1347) - lu(k,1046) * lu(k,1345) - lu(k,1348) = lu(k,1348) - lu(k,1047) * lu(k,1345) - lu(k,1349) = lu(k,1349) - lu(k,1048) * lu(k,1345) - lu(k,1350) = lu(k,1350) - lu(k,1049) * lu(k,1345) - lu(k,1351) = lu(k,1351) - lu(k,1050) * lu(k,1345) - lu(k,1352) = lu(k,1352) - lu(k,1051) * lu(k,1345) - lu(k,1353) = lu(k,1353) - lu(k,1052) * lu(k,1345) - lu(k,1354) = lu(k,1354) - lu(k,1053) * lu(k,1345) - lu(k,1355) = lu(k,1355) - lu(k,1054) * lu(k,1345) - lu(k,1356) = lu(k,1356) - lu(k,1055) * lu(k,1345) - lu(k,1357) = lu(k,1357) - lu(k,1056) * lu(k,1345) - lu(k,1358) = lu(k,1358) - lu(k,1057) * lu(k,1345) - lu(k,1359) = lu(k,1359) - lu(k,1058) * lu(k,1345) - lu(k,1360) = lu(k,1360) - lu(k,1059) * lu(k,1345) - lu(k,1361) = lu(k,1361) - lu(k,1060) * lu(k,1345) - lu(k,1362) = lu(k,1362) - lu(k,1061) * lu(k,1345) - lu(k,1363) = lu(k,1363) - lu(k,1062) * lu(k,1345) - lu(k,1389) = lu(k,1389) - lu(k,1045) * lu(k,1388) - lu(k,1390) = lu(k,1390) - lu(k,1046) * lu(k,1388) - lu(k,1391) = lu(k,1391) - lu(k,1047) * lu(k,1388) - lu(k,1392) = lu(k,1392) - lu(k,1048) * lu(k,1388) - lu(k,1393) = lu(k,1393) - lu(k,1049) * lu(k,1388) - lu(k,1394) = lu(k,1394) - lu(k,1050) * lu(k,1388) - lu(k,1395) = lu(k,1395) - lu(k,1051) * lu(k,1388) - lu(k,1396) = lu(k,1396) - lu(k,1052) * lu(k,1388) - lu(k,1397) = lu(k,1397) - lu(k,1053) * lu(k,1388) - lu(k,1398) = lu(k,1398) - lu(k,1054) * lu(k,1388) - lu(k,1399) = lu(k,1399) - lu(k,1055) * lu(k,1388) - lu(k,1400) = lu(k,1400) - lu(k,1056) * lu(k,1388) - lu(k,1401) = lu(k,1401) - lu(k,1057) * lu(k,1388) - lu(k,1402) = lu(k,1402) - lu(k,1058) * lu(k,1388) - lu(k,1403) = lu(k,1403) - lu(k,1059) * lu(k,1388) - lu(k,1404) = lu(k,1404) - lu(k,1060) * lu(k,1388) - lu(k,1405) = lu(k,1405) - lu(k,1061) * lu(k,1388) - lu(k,1406) = lu(k,1406) - lu(k,1062) * lu(k,1388) - lu(k,1424) = lu(k,1424) - lu(k,1045) * lu(k,1423) - lu(k,1425) = lu(k,1425) - lu(k,1046) * lu(k,1423) - lu(k,1426) = lu(k,1426) - lu(k,1047) * lu(k,1423) - lu(k,1427) = lu(k,1427) - lu(k,1048) * lu(k,1423) - lu(k,1428) = lu(k,1428) - lu(k,1049) * lu(k,1423) - lu(k,1429) = lu(k,1429) - lu(k,1050) * lu(k,1423) - lu(k,1430) = lu(k,1430) - lu(k,1051) * lu(k,1423) - lu(k,1431) = lu(k,1431) - lu(k,1052) * lu(k,1423) - lu(k,1432) = lu(k,1432) - lu(k,1053) * lu(k,1423) - lu(k,1433) = lu(k,1433) - lu(k,1054) * lu(k,1423) - lu(k,1434) = lu(k,1434) - lu(k,1055) * lu(k,1423) - lu(k,1435) = lu(k,1435) - lu(k,1056) * lu(k,1423) - lu(k,1436) = lu(k,1436) - lu(k,1057) * lu(k,1423) - lu(k,1437) = lu(k,1437) - lu(k,1058) * lu(k,1423) - lu(k,1438) = lu(k,1438) - lu(k,1059) * lu(k,1423) - lu(k,1439) = lu(k,1439) - lu(k,1060) * lu(k,1423) - lu(k,1440) = lu(k,1440) - lu(k,1061) * lu(k,1423) - lu(k,1441) = lu(k,1441) - lu(k,1062) * lu(k,1423) - lu(k,1467) = lu(k,1467) - lu(k,1045) * lu(k,1466) - lu(k,1468) = lu(k,1468) - lu(k,1046) * lu(k,1466) - lu(k,1469) = lu(k,1469) - lu(k,1047) * lu(k,1466) - lu(k,1470) = lu(k,1470) - lu(k,1048) * lu(k,1466) - lu(k,1471) = lu(k,1471) - lu(k,1049) * lu(k,1466) - lu(k,1472) = lu(k,1472) - lu(k,1050) * lu(k,1466) - lu(k,1473) = lu(k,1473) - lu(k,1051) * lu(k,1466) - lu(k,1474) = lu(k,1474) - lu(k,1052) * lu(k,1466) - lu(k,1475) = lu(k,1475) - lu(k,1053) * lu(k,1466) - lu(k,1476) = lu(k,1476) - lu(k,1054) * lu(k,1466) - lu(k,1477) = lu(k,1477) - lu(k,1055) * lu(k,1466) - lu(k,1478) = lu(k,1478) - lu(k,1056) * lu(k,1466) - lu(k,1479) = lu(k,1479) - lu(k,1057) * lu(k,1466) - lu(k,1480) = lu(k,1480) - lu(k,1058) * lu(k,1466) - lu(k,1481) = lu(k,1481) - lu(k,1059) * lu(k,1466) - lu(k,1482) = lu(k,1482) - lu(k,1060) * lu(k,1466) - lu(k,1483) = lu(k,1483) - lu(k,1061) * lu(k,1466) - lu(k,1484) = lu(k,1484) - lu(k,1062) * lu(k,1466) - lu(k,1510) = lu(k,1510) - lu(k,1045) * lu(k,1509) - lu(k,1511) = lu(k,1511) - lu(k,1046) * lu(k,1509) - lu(k,1512) = lu(k,1512) - lu(k,1047) * lu(k,1509) - lu(k,1513) = lu(k,1513) - lu(k,1048) * lu(k,1509) - lu(k,1514) = lu(k,1514) - lu(k,1049) * lu(k,1509) - lu(k,1515) = lu(k,1515) - lu(k,1050) * lu(k,1509) - lu(k,1516) = lu(k,1516) - lu(k,1051) * lu(k,1509) - lu(k,1517) = lu(k,1517) - lu(k,1052) * lu(k,1509) - lu(k,1518) = lu(k,1518) - lu(k,1053) * lu(k,1509) - lu(k,1519) = lu(k,1519) - lu(k,1054) * lu(k,1509) - lu(k,1520) = lu(k,1520) - lu(k,1055) * lu(k,1509) - lu(k,1521) = lu(k,1521) - lu(k,1056) * lu(k,1509) - lu(k,1522) = lu(k,1522) - lu(k,1057) * lu(k,1509) - lu(k,1523) = lu(k,1523) - lu(k,1058) * lu(k,1509) - lu(k,1524) = lu(k,1524) - lu(k,1059) * lu(k,1509) - lu(k,1525) = lu(k,1525) - lu(k,1060) * lu(k,1509) - lu(k,1526) = lu(k,1526) - lu(k,1061) * lu(k,1509) - lu(k,1527) = lu(k,1527) - lu(k,1062) * lu(k,1509) - lu(k,1553) = lu(k,1553) - lu(k,1045) * lu(k,1552) - lu(k,1554) = lu(k,1554) - lu(k,1046) * lu(k,1552) - lu(k,1555) = lu(k,1555) - lu(k,1047) * lu(k,1552) - lu(k,1556) = lu(k,1556) - lu(k,1048) * lu(k,1552) - lu(k,1557) = lu(k,1557) - lu(k,1049) * lu(k,1552) - lu(k,1558) = lu(k,1558) - lu(k,1050) * lu(k,1552) - lu(k,1559) = lu(k,1559) - lu(k,1051) * lu(k,1552) - lu(k,1560) = lu(k,1560) - lu(k,1052) * lu(k,1552) - lu(k,1561) = lu(k,1561) - lu(k,1053) * lu(k,1552) - lu(k,1562) = lu(k,1562) - lu(k,1054) * lu(k,1552) - lu(k,1563) = lu(k,1563) - lu(k,1055) * lu(k,1552) - lu(k,1564) = lu(k,1564) - lu(k,1056) * lu(k,1552) - lu(k,1565) = lu(k,1565) - lu(k,1057) * lu(k,1552) - lu(k,1566) = lu(k,1566) - lu(k,1058) * lu(k,1552) - lu(k,1567) = lu(k,1567) - lu(k,1059) * lu(k,1552) - lu(k,1568) = lu(k,1568) - lu(k,1060) * lu(k,1552) - lu(k,1569) = lu(k,1569) - lu(k,1061) * lu(k,1552) - lu(k,1570) = lu(k,1570) - lu(k,1062) * lu(k,1552) - lu(k,1586) = lu(k,1586) - lu(k,1045) * lu(k,1585) - lu(k,1587) = lu(k,1587) - lu(k,1046) * lu(k,1585) - lu(k,1588) = lu(k,1588) - lu(k,1047) * lu(k,1585) - lu(k,1589) = lu(k,1589) - lu(k,1048) * lu(k,1585) - lu(k,1590) = lu(k,1590) - lu(k,1049) * lu(k,1585) - lu(k,1591) = lu(k,1591) - lu(k,1050) * lu(k,1585) - lu(k,1592) = lu(k,1592) - lu(k,1051) * lu(k,1585) - lu(k,1593) = lu(k,1593) - lu(k,1052) * lu(k,1585) - lu(k,1594) = lu(k,1594) - lu(k,1053) * lu(k,1585) - lu(k,1595) = lu(k,1595) - lu(k,1054) * lu(k,1585) - lu(k,1596) = lu(k,1596) - lu(k,1055) * lu(k,1585) - lu(k,1597) = lu(k,1597) - lu(k,1056) * lu(k,1585) - lu(k,1598) = lu(k,1598) - lu(k,1057) * lu(k,1585) - lu(k,1599) = lu(k,1599) - lu(k,1058) * lu(k,1585) - lu(k,1600) = lu(k,1600) - lu(k,1059) * lu(k,1585) - lu(k,1601) = lu(k,1601) - lu(k,1060) * lu(k,1585) - lu(k,1602) = lu(k,1602) - lu(k,1061) * lu(k,1585) - lu(k,1603) = lu(k,1603) - lu(k,1062) * lu(k,1585) - lu(k,1622) = lu(k,1622) - lu(k,1045) * lu(k,1621) - lu(k,1623) = lu(k,1623) - lu(k,1046) * lu(k,1621) - lu(k,1624) = lu(k,1624) - lu(k,1047) * lu(k,1621) - lu(k,1625) = lu(k,1625) - lu(k,1048) * lu(k,1621) - lu(k,1626) = lu(k,1626) - lu(k,1049) * lu(k,1621) - lu(k,1627) = lu(k,1627) - lu(k,1050) * lu(k,1621) - lu(k,1628) = lu(k,1628) - lu(k,1051) * lu(k,1621) - lu(k,1629) = lu(k,1629) - lu(k,1052) * lu(k,1621) - lu(k,1630) = lu(k,1630) - lu(k,1053) * lu(k,1621) - lu(k,1631) = lu(k,1631) - lu(k,1054) * lu(k,1621) - lu(k,1632) = lu(k,1632) - lu(k,1055) * lu(k,1621) - lu(k,1633) = lu(k,1633) - lu(k,1056) * lu(k,1621) - lu(k,1634) = lu(k,1634) - lu(k,1057) * lu(k,1621) - lu(k,1635) = lu(k,1635) - lu(k,1058) * lu(k,1621) - lu(k,1636) = lu(k,1636) - lu(k,1059) * lu(k,1621) - lu(k,1637) = lu(k,1637) - lu(k,1060) * lu(k,1621) - lu(k,1638) = lu(k,1638) - lu(k,1061) * lu(k,1621) - lu(k,1639) = lu(k,1639) - lu(k,1062) * lu(k,1621) - lu(k,1665) = lu(k,1665) - lu(k,1045) * lu(k,1664) - lu(k,1666) = lu(k,1666) - lu(k,1046) * lu(k,1664) - lu(k,1667) = lu(k,1667) - lu(k,1047) * lu(k,1664) - lu(k,1668) = lu(k,1668) - lu(k,1048) * lu(k,1664) - lu(k,1669) = lu(k,1669) - lu(k,1049) * lu(k,1664) - lu(k,1670) = lu(k,1670) - lu(k,1050) * lu(k,1664) - lu(k,1671) = lu(k,1671) - lu(k,1051) * lu(k,1664) - lu(k,1672) = lu(k,1672) - lu(k,1052) * lu(k,1664) - lu(k,1673) = lu(k,1673) - lu(k,1053) * lu(k,1664) - lu(k,1674) = lu(k,1674) - lu(k,1054) * lu(k,1664) - lu(k,1675) = lu(k,1675) - lu(k,1055) * lu(k,1664) - lu(k,1676) = lu(k,1676) - lu(k,1056) * lu(k,1664) - lu(k,1677) = lu(k,1677) - lu(k,1057) * lu(k,1664) - lu(k,1678) = lu(k,1678) - lu(k,1058) * lu(k,1664) - lu(k,1679) = lu(k,1679) - lu(k,1059) * lu(k,1664) - lu(k,1680) = lu(k,1680) - lu(k,1060) * lu(k,1664) - lu(k,1681) = lu(k,1681) - lu(k,1061) * lu(k,1664) - lu(k,1682) = lu(k,1682) - lu(k,1062) * lu(k,1664) - lu(k,1701) = lu(k,1701) - lu(k,1045) * lu(k,1700) - lu(k,1702) = lu(k,1702) - lu(k,1046) * lu(k,1700) - lu(k,1703) = lu(k,1703) - lu(k,1047) * lu(k,1700) - lu(k,1704) = lu(k,1704) - lu(k,1048) * lu(k,1700) - lu(k,1705) = lu(k,1705) - lu(k,1049) * lu(k,1700) - lu(k,1706) = lu(k,1706) - lu(k,1050) * lu(k,1700) - lu(k,1707) = lu(k,1707) - lu(k,1051) * lu(k,1700) - lu(k,1708) = lu(k,1708) - lu(k,1052) * lu(k,1700) - lu(k,1709) = lu(k,1709) - lu(k,1053) * lu(k,1700) - lu(k,1710) = lu(k,1710) - lu(k,1054) * lu(k,1700) - lu(k,1711) = lu(k,1711) - lu(k,1055) * lu(k,1700) - lu(k,1712) = lu(k,1712) - lu(k,1056) * lu(k,1700) - lu(k,1713) = lu(k,1713) - lu(k,1057) * lu(k,1700) - lu(k,1714) = lu(k,1714) - lu(k,1058) * lu(k,1700) - lu(k,1715) = lu(k,1715) - lu(k,1059) * lu(k,1700) - lu(k,1716) = lu(k,1716) - lu(k,1060) * lu(k,1700) - lu(k,1717) = lu(k,1717) - lu(k,1061) * lu(k,1700) - lu(k,1718) = lu(k,1718) - lu(k,1062) * lu(k,1700) - lu(k,1746) = lu(k,1746) - lu(k,1045) * lu(k,1745) - lu(k,1747) = lu(k,1747) - lu(k,1046) * lu(k,1745) - lu(k,1748) = lu(k,1748) - lu(k,1047) * lu(k,1745) - lu(k,1749) = lu(k,1749) - lu(k,1048) * lu(k,1745) - lu(k,1750) = lu(k,1750) - lu(k,1049) * lu(k,1745) - lu(k,1751) = lu(k,1751) - lu(k,1050) * lu(k,1745) - lu(k,1752) = lu(k,1752) - lu(k,1051) * lu(k,1745) - lu(k,1753) = lu(k,1753) - lu(k,1052) * lu(k,1745) - lu(k,1754) = lu(k,1754) - lu(k,1053) * lu(k,1745) - lu(k,1755) = lu(k,1755) - lu(k,1054) * lu(k,1745) - lu(k,1756) = lu(k,1756) - lu(k,1055) * lu(k,1745) - lu(k,1757) = lu(k,1757) - lu(k,1056) * lu(k,1745) - lu(k,1758) = lu(k,1758) - lu(k,1057) * lu(k,1745) - lu(k,1759) = lu(k,1759) - lu(k,1058) * lu(k,1745) - lu(k,1760) = lu(k,1760) - lu(k,1059) * lu(k,1745) - lu(k,1761) = lu(k,1761) - lu(k,1060) * lu(k,1745) - lu(k,1762) = lu(k,1762) - lu(k,1061) * lu(k,1745) - lu(k,1763) = lu(k,1763) - lu(k,1062) * lu(k,1745) - lu(k,1799) = lu(k,1799) - lu(k,1045) * lu(k,1798) - lu(k,1800) = lu(k,1800) - lu(k,1046) * lu(k,1798) - lu(k,1801) = lu(k,1801) - lu(k,1047) * lu(k,1798) - lu(k,1802) = lu(k,1802) - lu(k,1048) * lu(k,1798) - lu(k,1803) = lu(k,1803) - lu(k,1049) * lu(k,1798) - lu(k,1804) = lu(k,1804) - lu(k,1050) * lu(k,1798) - lu(k,1805) = lu(k,1805) - lu(k,1051) * lu(k,1798) - lu(k,1806) = lu(k,1806) - lu(k,1052) * lu(k,1798) - lu(k,1807) = lu(k,1807) - lu(k,1053) * lu(k,1798) - lu(k,1808) = lu(k,1808) - lu(k,1054) * lu(k,1798) - lu(k,1809) = lu(k,1809) - lu(k,1055) * lu(k,1798) - lu(k,1810) = lu(k,1810) - lu(k,1056) * lu(k,1798) - lu(k,1811) = lu(k,1811) - lu(k,1057) * lu(k,1798) - lu(k,1812) = lu(k,1812) - lu(k,1058) * lu(k,1798) - lu(k,1813) = lu(k,1813) - lu(k,1059) * lu(k,1798) - lu(k,1814) = lu(k,1814) - lu(k,1060) * lu(k,1798) - lu(k,1815) = lu(k,1815) - lu(k,1061) * lu(k,1798) - lu(k,1816) = lu(k,1816) - lu(k,1062) * lu(k,1798) - lu(k,1086) = 1._r8 / lu(k,1086) - lu(k,1087) = lu(k,1087) * lu(k,1086) - lu(k,1088) = lu(k,1088) * lu(k,1086) - lu(k,1089) = lu(k,1089) * lu(k,1086) - lu(k,1090) = lu(k,1090) * lu(k,1086) - lu(k,1091) = lu(k,1091) * lu(k,1086) - lu(k,1092) = lu(k,1092) * lu(k,1086) - lu(k,1093) = lu(k,1093) * lu(k,1086) - lu(k,1094) = lu(k,1094) * lu(k,1086) - lu(k,1095) = lu(k,1095) * lu(k,1086) - lu(k,1096) = lu(k,1096) * lu(k,1086) - lu(k,1097) = lu(k,1097) * lu(k,1086) - lu(k,1098) = lu(k,1098) * lu(k,1086) - lu(k,1099) = lu(k,1099) * lu(k,1086) - lu(k,1100) = lu(k,1100) * lu(k,1086) - lu(k,1101) = lu(k,1101) * lu(k,1086) - lu(k,1102) = lu(k,1102) * lu(k,1086) - lu(k,1103) = lu(k,1103) * lu(k,1086) - lu(k,1132) = lu(k,1132) - lu(k,1087) * lu(k,1131) - lu(k,1133) = lu(k,1133) - lu(k,1088) * lu(k,1131) - lu(k,1134) = lu(k,1134) - lu(k,1089) * lu(k,1131) - lu(k,1135) = lu(k,1135) - lu(k,1090) * lu(k,1131) - lu(k,1136) = lu(k,1136) - lu(k,1091) * lu(k,1131) - lu(k,1137) = lu(k,1137) - lu(k,1092) * lu(k,1131) - lu(k,1138) = lu(k,1138) - lu(k,1093) * lu(k,1131) - lu(k,1139) = lu(k,1139) - lu(k,1094) * lu(k,1131) - lu(k,1140) = lu(k,1140) - lu(k,1095) * lu(k,1131) - lu(k,1141) = lu(k,1141) - lu(k,1096) * lu(k,1131) - lu(k,1142) = lu(k,1142) - lu(k,1097) * lu(k,1131) - lu(k,1143) = lu(k,1143) - lu(k,1098) * lu(k,1131) - lu(k,1144) = lu(k,1144) - lu(k,1099) * lu(k,1131) - lu(k,1145) = lu(k,1145) - lu(k,1100) * lu(k,1131) - lu(k,1146) = lu(k,1146) - lu(k,1101) * lu(k,1131) - lu(k,1147) = lu(k,1147) - lu(k,1102) * lu(k,1131) - lu(k,1148) = lu(k,1148) - lu(k,1103) * lu(k,1131) - lu(k,1172) = lu(k,1172) - lu(k,1087) * lu(k,1171) - lu(k,1173) = lu(k,1173) - lu(k,1088) * lu(k,1171) - lu(k,1174) = lu(k,1174) - lu(k,1089) * lu(k,1171) - lu(k,1175) = lu(k,1175) - lu(k,1090) * lu(k,1171) - lu(k,1176) = lu(k,1176) - lu(k,1091) * lu(k,1171) - lu(k,1177) = lu(k,1177) - lu(k,1092) * lu(k,1171) - lu(k,1178) = lu(k,1178) - lu(k,1093) * lu(k,1171) - lu(k,1179) = lu(k,1179) - lu(k,1094) * lu(k,1171) - lu(k,1180) = lu(k,1180) - lu(k,1095) * lu(k,1171) - lu(k,1181) = lu(k,1181) - lu(k,1096) * lu(k,1171) - lu(k,1182) = lu(k,1182) - lu(k,1097) * lu(k,1171) - lu(k,1183) = lu(k,1183) - lu(k,1098) * lu(k,1171) - lu(k,1184) = lu(k,1184) - lu(k,1099) * lu(k,1171) - lu(k,1185) = lu(k,1185) - lu(k,1100) * lu(k,1171) - lu(k,1186) = lu(k,1186) - lu(k,1101) * lu(k,1171) - lu(k,1187) = lu(k,1187) - lu(k,1102) * lu(k,1171) - lu(k,1188) = lu(k,1188) - lu(k,1103) * lu(k,1171) - lu(k,1228) = lu(k,1228) - lu(k,1087) * lu(k,1227) - lu(k,1229) = lu(k,1229) - lu(k,1088) * lu(k,1227) - lu(k,1230) = lu(k,1230) - lu(k,1089) * lu(k,1227) - lu(k,1231) = lu(k,1231) - lu(k,1090) * lu(k,1227) - lu(k,1232) = lu(k,1232) - lu(k,1091) * lu(k,1227) - lu(k,1233) = lu(k,1233) - lu(k,1092) * lu(k,1227) - lu(k,1234) = lu(k,1234) - lu(k,1093) * lu(k,1227) - lu(k,1235) = lu(k,1235) - lu(k,1094) * lu(k,1227) - lu(k,1236) = lu(k,1236) - lu(k,1095) * lu(k,1227) - lu(k,1237) = lu(k,1237) - lu(k,1096) * lu(k,1227) - lu(k,1238) = lu(k,1238) - lu(k,1097) * lu(k,1227) - lu(k,1239) = lu(k,1239) - lu(k,1098) * lu(k,1227) - lu(k,1240) = lu(k,1240) - lu(k,1099) * lu(k,1227) - lu(k,1241) = lu(k,1241) - lu(k,1100) * lu(k,1227) - lu(k,1242) = lu(k,1242) - lu(k,1101) * lu(k,1227) - lu(k,1243) = lu(k,1243) - lu(k,1102) * lu(k,1227) - lu(k,1244) = lu(k,1244) - lu(k,1103) * lu(k,1227) - lu(k,1266) = lu(k,1266) - lu(k,1087) * lu(k,1265) - lu(k,1267) = lu(k,1267) - lu(k,1088) * lu(k,1265) - lu(k,1268) = lu(k,1268) - lu(k,1089) * lu(k,1265) - lu(k,1269) = lu(k,1269) - lu(k,1090) * lu(k,1265) - lu(k,1270) = lu(k,1270) - lu(k,1091) * lu(k,1265) - lu(k,1271) = lu(k,1271) - lu(k,1092) * lu(k,1265) - lu(k,1272) = lu(k,1272) - lu(k,1093) * lu(k,1265) - lu(k,1273) = lu(k,1273) - lu(k,1094) * lu(k,1265) - lu(k,1274) = lu(k,1274) - lu(k,1095) * lu(k,1265) - lu(k,1275) = lu(k,1275) - lu(k,1096) * lu(k,1265) - lu(k,1276) = lu(k,1276) - lu(k,1097) * lu(k,1265) - lu(k,1277) = lu(k,1277) - lu(k,1098) * lu(k,1265) - lu(k,1278) = lu(k,1278) - lu(k,1099) * lu(k,1265) - lu(k,1279) = lu(k,1279) - lu(k,1100) * lu(k,1265) - lu(k,1280) = lu(k,1280) - lu(k,1101) * lu(k,1265) - lu(k,1281) = lu(k,1281) - lu(k,1102) * lu(k,1265) - lu(k,1282) = lu(k,1282) - lu(k,1103) * lu(k,1265) - lu(k,1302) = lu(k,1302) - lu(k,1087) * lu(k,1301) - lu(k,1303) = lu(k,1303) - lu(k,1088) * lu(k,1301) - lu(k,1304) = lu(k,1304) - lu(k,1089) * lu(k,1301) - lu(k,1305) = lu(k,1305) - lu(k,1090) * lu(k,1301) - lu(k,1306) = lu(k,1306) - lu(k,1091) * lu(k,1301) - lu(k,1307) = lu(k,1307) - lu(k,1092) * lu(k,1301) - lu(k,1308) = lu(k,1308) - lu(k,1093) * lu(k,1301) - lu(k,1309) = lu(k,1309) - lu(k,1094) * lu(k,1301) - lu(k,1310) = lu(k,1310) - lu(k,1095) * lu(k,1301) - lu(k,1311) = lu(k,1311) - lu(k,1096) * lu(k,1301) - lu(k,1312) = lu(k,1312) - lu(k,1097) * lu(k,1301) - lu(k,1313) = lu(k,1313) - lu(k,1098) * lu(k,1301) - lu(k,1314) = lu(k,1314) - lu(k,1099) * lu(k,1301) - lu(k,1315) = lu(k,1315) - lu(k,1100) * lu(k,1301) - lu(k,1316) = lu(k,1316) - lu(k,1101) * lu(k,1301) - lu(k,1317) = lu(k,1317) - lu(k,1102) * lu(k,1301) - lu(k,1318) = lu(k,1318) - lu(k,1103) * lu(k,1301) - lu(k,1347) = lu(k,1347) - lu(k,1087) * lu(k,1346) - lu(k,1348) = lu(k,1348) - lu(k,1088) * lu(k,1346) - lu(k,1349) = lu(k,1349) - lu(k,1089) * lu(k,1346) - lu(k,1350) = lu(k,1350) - lu(k,1090) * lu(k,1346) - lu(k,1351) = lu(k,1351) - lu(k,1091) * lu(k,1346) - lu(k,1352) = lu(k,1352) - lu(k,1092) * lu(k,1346) - lu(k,1353) = lu(k,1353) - lu(k,1093) * lu(k,1346) - lu(k,1354) = lu(k,1354) - lu(k,1094) * lu(k,1346) - lu(k,1355) = lu(k,1355) - lu(k,1095) * lu(k,1346) - lu(k,1356) = lu(k,1356) - lu(k,1096) * lu(k,1346) - lu(k,1357) = lu(k,1357) - lu(k,1097) * lu(k,1346) - lu(k,1358) = lu(k,1358) - lu(k,1098) * lu(k,1346) - lu(k,1359) = lu(k,1359) - lu(k,1099) * lu(k,1346) - lu(k,1360) = lu(k,1360) - lu(k,1100) * lu(k,1346) - lu(k,1361) = lu(k,1361) - lu(k,1101) * lu(k,1346) - lu(k,1362) = lu(k,1362) - lu(k,1102) * lu(k,1346) - lu(k,1363) = lu(k,1363) - lu(k,1103) * lu(k,1346) - lu(k,1390) = lu(k,1390) - lu(k,1087) * lu(k,1389) - lu(k,1391) = lu(k,1391) - lu(k,1088) * lu(k,1389) - lu(k,1392) = lu(k,1392) - lu(k,1089) * lu(k,1389) - lu(k,1393) = lu(k,1393) - lu(k,1090) * lu(k,1389) - lu(k,1394) = lu(k,1394) - lu(k,1091) * lu(k,1389) - lu(k,1395) = lu(k,1395) - lu(k,1092) * lu(k,1389) - lu(k,1396) = lu(k,1396) - lu(k,1093) * lu(k,1389) - lu(k,1397) = lu(k,1397) - lu(k,1094) * lu(k,1389) - lu(k,1398) = lu(k,1398) - lu(k,1095) * lu(k,1389) - lu(k,1399) = lu(k,1399) - lu(k,1096) * lu(k,1389) - lu(k,1400) = lu(k,1400) - lu(k,1097) * lu(k,1389) - lu(k,1401) = lu(k,1401) - lu(k,1098) * lu(k,1389) - lu(k,1402) = lu(k,1402) - lu(k,1099) * lu(k,1389) - lu(k,1403) = lu(k,1403) - lu(k,1100) * lu(k,1389) - lu(k,1404) = lu(k,1404) - lu(k,1101) * lu(k,1389) - lu(k,1405) = lu(k,1405) - lu(k,1102) * lu(k,1389) - lu(k,1406) = lu(k,1406) - lu(k,1103) * lu(k,1389) - lu(k,1425) = lu(k,1425) - lu(k,1087) * lu(k,1424) - lu(k,1426) = lu(k,1426) - lu(k,1088) * lu(k,1424) - lu(k,1427) = lu(k,1427) - lu(k,1089) * lu(k,1424) - lu(k,1428) = lu(k,1428) - lu(k,1090) * lu(k,1424) - lu(k,1429) = lu(k,1429) - lu(k,1091) * lu(k,1424) - lu(k,1430) = lu(k,1430) - lu(k,1092) * lu(k,1424) - lu(k,1431) = lu(k,1431) - lu(k,1093) * lu(k,1424) - lu(k,1432) = lu(k,1432) - lu(k,1094) * lu(k,1424) - lu(k,1433) = lu(k,1433) - lu(k,1095) * lu(k,1424) - lu(k,1434) = lu(k,1434) - lu(k,1096) * lu(k,1424) - lu(k,1435) = lu(k,1435) - lu(k,1097) * lu(k,1424) - lu(k,1436) = lu(k,1436) - lu(k,1098) * lu(k,1424) - lu(k,1437) = lu(k,1437) - lu(k,1099) * lu(k,1424) - lu(k,1438) = lu(k,1438) - lu(k,1100) * lu(k,1424) - lu(k,1439) = lu(k,1439) - lu(k,1101) * lu(k,1424) - lu(k,1440) = lu(k,1440) - lu(k,1102) * lu(k,1424) - lu(k,1441) = lu(k,1441) - lu(k,1103) * lu(k,1424) - lu(k,1468) = lu(k,1468) - lu(k,1087) * lu(k,1467) - lu(k,1469) = lu(k,1469) - lu(k,1088) * lu(k,1467) - lu(k,1470) = lu(k,1470) - lu(k,1089) * lu(k,1467) - lu(k,1471) = lu(k,1471) - lu(k,1090) * lu(k,1467) - lu(k,1472) = lu(k,1472) - lu(k,1091) * lu(k,1467) - lu(k,1473) = lu(k,1473) - lu(k,1092) * lu(k,1467) - lu(k,1474) = lu(k,1474) - lu(k,1093) * lu(k,1467) - lu(k,1475) = lu(k,1475) - lu(k,1094) * lu(k,1467) - lu(k,1476) = lu(k,1476) - lu(k,1095) * lu(k,1467) - lu(k,1477) = lu(k,1477) - lu(k,1096) * lu(k,1467) - lu(k,1478) = lu(k,1478) - lu(k,1097) * lu(k,1467) - lu(k,1479) = lu(k,1479) - lu(k,1098) * lu(k,1467) - lu(k,1480) = lu(k,1480) - lu(k,1099) * lu(k,1467) - lu(k,1481) = lu(k,1481) - lu(k,1100) * lu(k,1467) - lu(k,1482) = lu(k,1482) - lu(k,1101) * lu(k,1467) - lu(k,1483) = lu(k,1483) - lu(k,1102) * lu(k,1467) - lu(k,1484) = lu(k,1484) - lu(k,1103) * lu(k,1467) - lu(k,1511) = lu(k,1511) - lu(k,1087) * lu(k,1510) - lu(k,1512) = lu(k,1512) - lu(k,1088) * lu(k,1510) - lu(k,1513) = lu(k,1513) - lu(k,1089) * lu(k,1510) - lu(k,1514) = lu(k,1514) - lu(k,1090) * lu(k,1510) - lu(k,1515) = lu(k,1515) - lu(k,1091) * lu(k,1510) - lu(k,1516) = lu(k,1516) - lu(k,1092) * lu(k,1510) - lu(k,1517) = lu(k,1517) - lu(k,1093) * lu(k,1510) - lu(k,1518) = lu(k,1518) - lu(k,1094) * lu(k,1510) - lu(k,1519) = lu(k,1519) - lu(k,1095) * lu(k,1510) - lu(k,1520) = lu(k,1520) - lu(k,1096) * lu(k,1510) - lu(k,1521) = lu(k,1521) - lu(k,1097) * lu(k,1510) - lu(k,1522) = lu(k,1522) - lu(k,1098) * lu(k,1510) - lu(k,1523) = lu(k,1523) - lu(k,1099) * lu(k,1510) - lu(k,1524) = lu(k,1524) - lu(k,1100) * lu(k,1510) - lu(k,1525) = lu(k,1525) - lu(k,1101) * lu(k,1510) - lu(k,1526) = lu(k,1526) - lu(k,1102) * lu(k,1510) - lu(k,1527) = lu(k,1527) - lu(k,1103) * lu(k,1510) - lu(k,1554) = lu(k,1554) - lu(k,1087) * lu(k,1553) - lu(k,1555) = lu(k,1555) - lu(k,1088) * lu(k,1553) - lu(k,1556) = lu(k,1556) - lu(k,1089) * lu(k,1553) - lu(k,1557) = lu(k,1557) - lu(k,1090) * lu(k,1553) - lu(k,1558) = lu(k,1558) - lu(k,1091) * lu(k,1553) - lu(k,1559) = lu(k,1559) - lu(k,1092) * lu(k,1553) - lu(k,1560) = lu(k,1560) - lu(k,1093) * lu(k,1553) - lu(k,1561) = lu(k,1561) - lu(k,1094) * lu(k,1553) - lu(k,1562) = lu(k,1562) - lu(k,1095) * lu(k,1553) - lu(k,1563) = lu(k,1563) - lu(k,1096) * lu(k,1553) - lu(k,1564) = lu(k,1564) - lu(k,1097) * lu(k,1553) - lu(k,1565) = lu(k,1565) - lu(k,1098) * lu(k,1553) - lu(k,1566) = lu(k,1566) - lu(k,1099) * lu(k,1553) - lu(k,1567) = lu(k,1567) - lu(k,1100) * lu(k,1553) - lu(k,1568) = lu(k,1568) - lu(k,1101) * lu(k,1553) - lu(k,1569) = lu(k,1569) - lu(k,1102) * lu(k,1553) - lu(k,1570) = lu(k,1570) - lu(k,1103) * lu(k,1553) - lu(k,1587) = lu(k,1587) - lu(k,1087) * lu(k,1586) - lu(k,1588) = lu(k,1588) - lu(k,1088) * lu(k,1586) - lu(k,1589) = lu(k,1589) - lu(k,1089) * lu(k,1586) - lu(k,1590) = lu(k,1590) - lu(k,1090) * lu(k,1586) - lu(k,1591) = lu(k,1591) - lu(k,1091) * lu(k,1586) - lu(k,1592) = lu(k,1592) - lu(k,1092) * lu(k,1586) - lu(k,1593) = lu(k,1593) - lu(k,1093) * lu(k,1586) - lu(k,1594) = lu(k,1594) - lu(k,1094) * lu(k,1586) - lu(k,1595) = lu(k,1595) - lu(k,1095) * lu(k,1586) - lu(k,1596) = lu(k,1596) - lu(k,1096) * lu(k,1586) - lu(k,1597) = lu(k,1597) - lu(k,1097) * lu(k,1586) - lu(k,1598) = lu(k,1598) - lu(k,1098) * lu(k,1586) - lu(k,1599) = lu(k,1599) - lu(k,1099) * lu(k,1586) - lu(k,1600) = lu(k,1600) - lu(k,1100) * lu(k,1586) - lu(k,1601) = lu(k,1601) - lu(k,1101) * lu(k,1586) - lu(k,1602) = lu(k,1602) - lu(k,1102) * lu(k,1586) - lu(k,1603) = lu(k,1603) - lu(k,1103) * lu(k,1586) - lu(k,1623) = lu(k,1623) - lu(k,1087) * lu(k,1622) - lu(k,1624) = lu(k,1624) - lu(k,1088) * lu(k,1622) - lu(k,1625) = lu(k,1625) - lu(k,1089) * lu(k,1622) - lu(k,1626) = lu(k,1626) - lu(k,1090) * lu(k,1622) - lu(k,1627) = lu(k,1627) - lu(k,1091) * lu(k,1622) - lu(k,1628) = lu(k,1628) - lu(k,1092) * lu(k,1622) - lu(k,1629) = lu(k,1629) - lu(k,1093) * lu(k,1622) - lu(k,1630) = lu(k,1630) - lu(k,1094) * lu(k,1622) - lu(k,1631) = lu(k,1631) - lu(k,1095) * lu(k,1622) - lu(k,1632) = lu(k,1632) - lu(k,1096) * lu(k,1622) - lu(k,1633) = lu(k,1633) - lu(k,1097) * lu(k,1622) - lu(k,1634) = lu(k,1634) - lu(k,1098) * lu(k,1622) - lu(k,1635) = lu(k,1635) - lu(k,1099) * lu(k,1622) - lu(k,1636) = lu(k,1636) - lu(k,1100) * lu(k,1622) - lu(k,1637) = lu(k,1637) - lu(k,1101) * lu(k,1622) - lu(k,1638) = lu(k,1638) - lu(k,1102) * lu(k,1622) - lu(k,1639) = lu(k,1639) - lu(k,1103) * lu(k,1622) - lu(k,1666) = lu(k,1666) - lu(k,1087) * lu(k,1665) - lu(k,1667) = lu(k,1667) - lu(k,1088) * lu(k,1665) - lu(k,1668) = lu(k,1668) - lu(k,1089) * lu(k,1665) - lu(k,1669) = lu(k,1669) - lu(k,1090) * lu(k,1665) - lu(k,1670) = lu(k,1670) - lu(k,1091) * lu(k,1665) - lu(k,1671) = lu(k,1671) - lu(k,1092) * lu(k,1665) - lu(k,1672) = lu(k,1672) - lu(k,1093) * lu(k,1665) - lu(k,1673) = lu(k,1673) - lu(k,1094) * lu(k,1665) - lu(k,1674) = lu(k,1674) - lu(k,1095) * lu(k,1665) - lu(k,1675) = lu(k,1675) - lu(k,1096) * lu(k,1665) - lu(k,1676) = lu(k,1676) - lu(k,1097) * lu(k,1665) - lu(k,1677) = lu(k,1677) - lu(k,1098) * lu(k,1665) - lu(k,1678) = lu(k,1678) - lu(k,1099) * lu(k,1665) - lu(k,1679) = lu(k,1679) - lu(k,1100) * lu(k,1665) - lu(k,1680) = lu(k,1680) - lu(k,1101) * lu(k,1665) - lu(k,1681) = lu(k,1681) - lu(k,1102) * lu(k,1665) - lu(k,1682) = lu(k,1682) - lu(k,1103) * lu(k,1665) - lu(k,1702) = lu(k,1702) - lu(k,1087) * lu(k,1701) - lu(k,1703) = lu(k,1703) - lu(k,1088) * lu(k,1701) - lu(k,1704) = lu(k,1704) - lu(k,1089) * lu(k,1701) - lu(k,1705) = lu(k,1705) - lu(k,1090) * lu(k,1701) - lu(k,1706) = lu(k,1706) - lu(k,1091) * lu(k,1701) - lu(k,1707) = lu(k,1707) - lu(k,1092) * lu(k,1701) - lu(k,1708) = lu(k,1708) - lu(k,1093) * lu(k,1701) - lu(k,1709) = lu(k,1709) - lu(k,1094) * lu(k,1701) - lu(k,1710) = lu(k,1710) - lu(k,1095) * lu(k,1701) - lu(k,1711) = lu(k,1711) - lu(k,1096) * lu(k,1701) - lu(k,1712) = lu(k,1712) - lu(k,1097) * lu(k,1701) - lu(k,1713) = lu(k,1713) - lu(k,1098) * lu(k,1701) - lu(k,1714) = lu(k,1714) - lu(k,1099) * lu(k,1701) - lu(k,1715) = lu(k,1715) - lu(k,1100) * lu(k,1701) - lu(k,1716) = lu(k,1716) - lu(k,1101) * lu(k,1701) - lu(k,1717) = lu(k,1717) - lu(k,1102) * lu(k,1701) - lu(k,1718) = lu(k,1718) - lu(k,1103) * lu(k,1701) - lu(k,1747) = lu(k,1747) - lu(k,1087) * lu(k,1746) - lu(k,1748) = lu(k,1748) - lu(k,1088) * lu(k,1746) - lu(k,1749) = lu(k,1749) - lu(k,1089) * lu(k,1746) - lu(k,1750) = lu(k,1750) - lu(k,1090) * lu(k,1746) - lu(k,1751) = lu(k,1751) - lu(k,1091) * lu(k,1746) - lu(k,1752) = lu(k,1752) - lu(k,1092) * lu(k,1746) - lu(k,1753) = lu(k,1753) - lu(k,1093) * lu(k,1746) - lu(k,1754) = lu(k,1754) - lu(k,1094) * lu(k,1746) - lu(k,1755) = lu(k,1755) - lu(k,1095) * lu(k,1746) - lu(k,1756) = lu(k,1756) - lu(k,1096) * lu(k,1746) - lu(k,1757) = lu(k,1757) - lu(k,1097) * lu(k,1746) - lu(k,1758) = lu(k,1758) - lu(k,1098) * lu(k,1746) - lu(k,1759) = lu(k,1759) - lu(k,1099) * lu(k,1746) - lu(k,1760) = lu(k,1760) - lu(k,1100) * lu(k,1746) - lu(k,1761) = lu(k,1761) - lu(k,1101) * lu(k,1746) - lu(k,1762) = lu(k,1762) - lu(k,1102) * lu(k,1746) - lu(k,1763) = lu(k,1763) - lu(k,1103) * lu(k,1746) - lu(k,1800) = lu(k,1800) - lu(k,1087) * lu(k,1799) - lu(k,1801) = lu(k,1801) - lu(k,1088) * lu(k,1799) - lu(k,1802) = lu(k,1802) - lu(k,1089) * lu(k,1799) - lu(k,1803) = lu(k,1803) - lu(k,1090) * lu(k,1799) - lu(k,1804) = lu(k,1804) - lu(k,1091) * lu(k,1799) - lu(k,1805) = lu(k,1805) - lu(k,1092) * lu(k,1799) - lu(k,1806) = lu(k,1806) - lu(k,1093) * lu(k,1799) - lu(k,1807) = lu(k,1807) - lu(k,1094) * lu(k,1799) - lu(k,1808) = lu(k,1808) - lu(k,1095) * lu(k,1799) - lu(k,1809) = lu(k,1809) - lu(k,1096) * lu(k,1799) - lu(k,1810) = lu(k,1810) - lu(k,1097) * lu(k,1799) - lu(k,1811) = lu(k,1811) - lu(k,1098) * lu(k,1799) - lu(k,1812) = lu(k,1812) - lu(k,1099) * lu(k,1799) - lu(k,1813) = lu(k,1813) - lu(k,1100) * lu(k,1799) - lu(k,1814) = lu(k,1814) - lu(k,1101) * lu(k,1799) - lu(k,1815) = lu(k,1815) - lu(k,1102) * lu(k,1799) - lu(k,1816) = lu(k,1816) - lu(k,1103) * lu(k,1799) - 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,1132) = 1._r8 / lu(k,1132) - lu(k,1133) = lu(k,1133) * lu(k,1132) - lu(k,1134) = lu(k,1134) * lu(k,1132) - lu(k,1135) = lu(k,1135) * lu(k,1132) - lu(k,1136) = lu(k,1136) * lu(k,1132) - lu(k,1137) = lu(k,1137) * lu(k,1132) - lu(k,1138) = lu(k,1138) * lu(k,1132) - lu(k,1139) = lu(k,1139) * lu(k,1132) - lu(k,1140) = lu(k,1140) * lu(k,1132) - lu(k,1141) = lu(k,1141) * lu(k,1132) - lu(k,1142) = lu(k,1142) * lu(k,1132) - lu(k,1143) = lu(k,1143) * lu(k,1132) - lu(k,1144) = lu(k,1144) * lu(k,1132) - lu(k,1145) = lu(k,1145) * lu(k,1132) - lu(k,1146) = lu(k,1146) * lu(k,1132) - lu(k,1147) = lu(k,1147) * lu(k,1132) - lu(k,1148) = lu(k,1148) * lu(k,1132) - lu(k,1173) = lu(k,1173) - lu(k,1133) * lu(k,1172) - lu(k,1174) = lu(k,1174) - lu(k,1134) * lu(k,1172) - lu(k,1175) = lu(k,1175) - lu(k,1135) * lu(k,1172) - lu(k,1176) = lu(k,1176) - lu(k,1136) * lu(k,1172) - lu(k,1177) = lu(k,1177) - lu(k,1137) * lu(k,1172) - lu(k,1178) = lu(k,1178) - lu(k,1138) * lu(k,1172) - lu(k,1179) = lu(k,1179) - lu(k,1139) * lu(k,1172) - lu(k,1180) = lu(k,1180) - lu(k,1140) * lu(k,1172) - lu(k,1181) = lu(k,1181) - lu(k,1141) * lu(k,1172) - lu(k,1182) = lu(k,1182) - lu(k,1142) * lu(k,1172) - lu(k,1183) = lu(k,1183) - lu(k,1143) * lu(k,1172) - lu(k,1184) = lu(k,1184) - lu(k,1144) * lu(k,1172) - lu(k,1185) = lu(k,1185) - lu(k,1145) * lu(k,1172) - lu(k,1186) = lu(k,1186) - lu(k,1146) * lu(k,1172) - lu(k,1187) = lu(k,1187) - lu(k,1147) * lu(k,1172) - lu(k,1188) = lu(k,1188) - lu(k,1148) * lu(k,1172) - lu(k,1229) = lu(k,1229) - lu(k,1133) * lu(k,1228) - lu(k,1230) = lu(k,1230) - lu(k,1134) * lu(k,1228) - lu(k,1231) = lu(k,1231) - lu(k,1135) * lu(k,1228) - lu(k,1232) = lu(k,1232) - lu(k,1136) * lu(k,1228) - lu(k,1233) = lu(k,1233) - lu(k,1137) * lu(k,1228) - lu(k,1234) = lu(k,1234) - lu(k,1138) * lu(k,1228) - lu(k,1235) = lu(k,1235) - lu(k,1139) * lu(k,1228) - lu(k,1236) = lu(k,1236) - lu(k,1140) * lu(k,1228) - lu(k,1237) = lu(k,1237) - lu(k,1141) * lu(k,1228) - lu(k,1238) = lu(k,1238) - lu(k,1142) * lu(k,1228) - lu(k,1239) = lu(k,1239) - lu(k,1143) * lu(k,1228) - lu(k,1240) = lu(k,1240) - lu(k,1144) * lu(k,1228) - lu(k,1241) = lu(k,1241) - lu(k,1145) * lu(k,1228) - lu(k,1242) = lu(k,1242) - lu(k,1146) * lu(k,1228) - lu(k,1243) = lu(k,1243) - lu(k,1147) * lu(k,1228) - lu(k,1244) = lu(k,1244) - lu(k,1148) * lu(k,1228) - lu(k,1267) = lu(k,1267) - lu(k,1133) * lu(k,1266) - lu(k,1268) = lu(k,1268) - lu(k,1134) * lu(k,1266) - lu(k,1269) = lu(k,1269) - lu(k,1135) * lu(k,1266) - lu(k,1270) = lu(k,1270) - lu(k,1136) * lu(k,1266) - lu(k,1271) = lu(k,1271) - lu(k,1137) * lu(k,1266) - lu(k,1272) = lu(k,1272) - lu(k,1138) * lu(k,1266) - lu(k,1273) = lu(k,1273) - lu(k,1139) * lu(k,1266) - lu(k,1274) = lu(k,1274) - lu(k,1140) * lu(k,1266) - lu(k,1275) = lu(k,1275) - lu(k,1141) * lu(k,1266) - lu(k,1276) = lu(k,1276) - lu(k,1142) * lu(k,1266) - lu(k,1277) = lu(k,1277) - lu(k,1143) * lu(k,1266) - lu(k,1278) = lu(k,1278) - lu(k,1144) * lu(k,1266) - lu(k,1279) = lu(k,1279) - lu(k,1145) * lu(k,1266) - lu(k,1280) = lu(k,1280) - lu(k,1146) * lu(k,1266) - lu(k,1281) = lu(k,1281) - lu(k,1147) * lu(k,1266) - lu(k,1282) = lu(k,1282) - lu(k,1148) * lu(k,1266) - lu(k,1303) = lu(k,1303) - lu(k,1133) * lu(k,1302) - lu(k,1304) = lu(k,1304) - lu(k,1134) * lu(k,1302) - lu(k,1305) = lu(k,1305) - lu(k,1135) * lu(k,1302) - lu(k,1306) = lu(k,1306) - lu(k,1136) * lu(k,1302) - lu(k,1307) = lu(k,1307) - lu(k,1137) * lu(k,1302) - lu(k,1308) = lu(k,1308) - lu(k,1138) * lu(k,1302) - lu(k,1309) = lu(k,1309) - lu(k,1139) * lu(k,1302) - lu(k,1310) = lu(k,1310) - lu(k,1140) * lu(k,1302) - lu(k,1311) = lu(k,1311) - lu(k,1141) * lu(k,1302) - lu(k,1312) = lu(k,1312) - lu(k,1142) * lu(k,1302) - lu(k,1313) = lu(k,1313) - lu(k,1143) * lu(k,1302) - lu(k,1314) = lu(k,1314) - lu(k,1144) * lu(k,1302) - lu(k,1315) = lu(k,1315) - lu(k,1145) * lu(k,1302) - lu(k,1316) = lu(k,1316) - lu(k,1146) * lu(k,1302) - lu(k,1317) = lu(k,1317) - lu(k,1147) * lu(k,1302) - lu(k,1318) = lu(k,1318) - lu(k,1148) * lu(k,1302) - lu(k,1348) = lu(k,1348) - lu(k,1133) * lu(k,1347) - lu(k,1349) = lu(k,1349) - lu(k,1134) * lu(k,1347) - lu(k,1350) = lu(k,1350) - lu(k,1135) * lu(k,1347) - lu(k,1351) = lu(k,1351) - lu(k,1136) * lu(k,1347) - lu(k,1352) = lu(k,1352) - lu(k,1137) * lu(k,1347) - lu(k,1353) = lu(k,1353) - lu(k,1138) * lu(k,1347) - lu(k,1354) = lu(k,1354) - lu(k,1139) * lu(k,1347) - lu(k,1355) = lu(k,1355) - lu(k,1140) * lu(k,1347) - lu(k,1356) = lu(k,1356) - lu(k,1141) * lu(k,1347) - lu(k,1357) = lu(k,1357) - lu(k,1142) * lu(k,1347) - lu(k,1358) = lu(k,1358) - lu(k,1143) * lu(k,1347) - lu(k,1359) = lu(k,1359) - lu(k,1144) * lu(k,1347) - lu(k,1360) = lu(k,1360) - lu(k,1145) * lu(k,1347) - lu(k,1361) = lu(k,1361) - lu(k,1146) * lu(k,1347) - lu(k,1362) = lu(k,1362) - lu(k,1147) * lu(k,1347) - lu(k,1363) = lu(k,1363) - lu(k,1148) * lu(k,1347) - lu(k,1391) = lu(k,1391) - lu(k,1133) * lu(k,1390) - lu(k,1392) = lu(k,1392) - lu(k,1134) * lu(k,1390) - lu(k,1393) = lu(k,1393) - lu(k,1135) * lu(k,1390) - lu(k,1394) = lu(k,1394) - lu(k,1136) * lu(k,1390) - lu(k,1395) = lu(k,1395) - lu(k,1137) * lu(k,1390) - lu(k,1396) = lu(k,1396) - lu(k,1138) * lu(k,1390) - lu(k,1397) = lu(k,1397) - lu(k,1139) * lu(k,1390) - lu(k,1398) = lu(k,1398) - lu(k,1140) * lu(k,1390) - lu(k,1399) = lu(k,1399) - lu(k,1141) * lu(k,1390) - lu(k,1400) = lu(k,1400) - lu(k,1142) * lu(k,1390) - lu(k,1401) = lu(k,1401) - lu(k,1143) * lu(k,1390) - lu(k,1402) = lu(k,1402) - lu(k,1144) * lu(k,1390) - lu(k,1403) = lu(k,1403) - lu(k,1145) * lu(k,1390) - lu(k,1404) = lu(k,1404) - lu(k,1146) * lu(k,1390) - lu(k,1405) = lu(k,1405) - lu(k,1147) * lu(k,1390) - lu(k,1406) = lu(k,1406) - lu(k,1148) * lu(k,1390) - lu(k,1426) = lu(k,1426) - lu(k,1133) * lu(k,1425) - lu(k,1427) = lu(k,1427) - lu(k,1134) * lu(k,1425) - lu(k,1428) = lu(k,1428) - lu(k,1135) * lu(k,1425) - lu(k,1429) = lu(k,1429) - lu(k,1136) * lu(k,1425) - lu(k,1430) = lu(k,1430) - lu(k,1137) * lu(k,1425) - lu(k,1431) = lu(k,1431) - lu(k,1138) * lu(k,1425) - lu(k,1432) = lu(k,1432) - lu(k,1139) * lu(k,1425) - lu(k,1433) = lu(k,1433) - lu(k,1140) * lu(k,1425) - lu(k,1434) = lu(k,1434) - lu(k,1141) * lu(k,1425) - lu(k,1435) = lu(k,1435) - lu(k,1142) * lu(k,1425) - lu(k,1436) = lu(k,1436) - lu(k,1143) * lu(k,1425) - lu(k,1437) = lu(k,1437) - lu(k,1144) * lu(k,1425) - lu(k,1438) = lu(k,1438) - lu(k,1145) * lu(k,1425) - lu(k,1439) = lu(k,1439) - lu(k,1146) * lu(k,1425) - lu(k,1440) = lu(k,1440) - lu(k,1147) * lu(k,1425) - lu(k,1441) = lu(k,1441) - lu(k,1148) * lu(k,1425) - lu(k,1469) = lu(k,1469) - lu(k,1133) * lu(k,1468) - lu(k,1470) = lu(k,1470) - lu(k,1134) * lu(k,1468) - lu(k,1471) = lu(k,1471) - lu(k,1135) * lu(k,1468) - lu(k,1472) = lu(k,1472) - lu(k,1136) * lu(k,1468) - lu(k,1473) = lu(k,1473) - lu(k,1137) * lu(k,1468) - lu(k,1474) = lu(k,1474) - lu(k,1138) * lu(k,1468) - lu(k,1475) = lu(k,1475) - lu(k,1139) * lu(k,1468) - lu(k,1476) = lu(k,1476) - lu(k,1140) * lu(k,1468) - lu(k,1477) = lu(k,1477) - lu(k,1141) * lu(k,1468) - lu(k,1478) = lu(k,1478) - lu(k,1142) * lu(k,1468) - lu(k,1479) = lu(k,1479) - lu(k,1143) * lu(k,1468) - lu(k,1480) = lu(k,1480) - lu(k,1144) * lu(k,1468) - lu(k,1481) = lu(k,1481) - lu(k,1145) * lu(k,1468) - lu(k,1482) = lu(k,1482) - lu(k,1146) * lu(k,1468) - lu(k,1483) = lu(k,1483) - lu(k,1147) * lu(k,1468) - lu(k,1484) = lu(k,1484) - lu(k,1148) * lu(k,1468) - lu(k,1512) = lu(k,1512) - lu(k,1133) * lu(k,1511) - lu(k,1513) = lu(k,1513) - lu(k,1134) * lu(k,1511) - lu(k,1514) = lu(k,1514) - lu(k,1135) * lu(k,1511) - lu(k,1515) = lu(k,1515) - lu(k,1136) * lu(k,1511) - lu(k,1516) = lu(k,1516) - lu(k,1137) * lu(k,1511) - lu(k,1517) = lu(k,1517) - lu(k,1138) * lu(k,1511) - lu(k,1518) = lu(k,1518) - lu(k,1139) * lu(k,1511) - lu(k,1519) = lu(k,1519) - lu(k,1140) * lu(k,1511) - lu(k,1520) = lu(k,1520) - lu(k,1141) * lu(k,1511) - lu(k,1521) = lu(k,1521) - lu(k,1142) * lu(k,1511) - lu(k,1522) = lu(k,1522) - lu(k,1143) * lu(k,1511) - lu(k,1523) = lu(k,1523) - lu(k,1144) * lu(k,1511) - lu(k,1524) = lu(k,1524) - lu(k,1145) * lu(k,1511) - lu(k,1525) = lu(k,1525) - lu(k,1146) * lu(k,1511) - lu(k,1526) = lu(k,1526) - lu(k,1147) * lu(k,1511) - lu(k,1527) = lu(k,1527) - lu(k,1148) * lu(k,1511) - lu(k,1555) = lu(k,1555) - lu(k,1133) * lu(k,1554) - lu(k,1556) = lu(k,1556) - lu(k,1134) * lu(k,1554) - lu(k,1557) = lu(k,1557) - lu(k,1135) * lu(k,1554) - lu(k,1558) = lu(k,1558) - lu(k,1136) * lu(k,1554) - lu(k,1559) = lu(k,1559) - lu(k,1137) * lu(k,1554) - lu(k,1560) = lu(k,1560) - lu(k,1138) * lu(k,1554) - lu(k,1561) = lu(k,1561) - lu(k,1139) * lu(k,1554) - lu(k,1562) = lu(k,1562) - lu(k,1140) * lu(k,1554) - lu(k,1563) = lu(k,1563) - lu(k,1141) * lu(k,1554) - lu(k,1564) = lu(k,1564) - lu(k,1142) * lu(k,1554) - lu(k,1565) = lu(k,1565) - lu(k,1143) * lu(k,1554) - lu(k,1566) = lu(k,1566) - lu(k,1144) * lu(k,1554) - lu(k,1567) = lu(k,1567) - lu(k,1145) * lu(k,1554) - lu(k,1568) = lu(k,1568) - lu(k,1146) * lu(k,1554) - lu(k,1569) = lu(k,1569) - lu(k,1147) * lu(k,1554) - lu(k,1570) = lu(k,1570) - lu(k,1148) * lu(k,1554) - lu(k,1588) = lu(k,1588) - lu(k,1133) * lu(k,1587) - lu(k,1589) = lu(k,1589) - lu(k,1134) * lu(k,1587) - lu(k,1590) = lu(k,1590) - lu(k,1135) * lu(k,1587) - lu(k,1591) = lu(k,1591) - lu(k,1136) * lu(k,1587) - lu(k,1592) = lu(k,1592) - lu(k,1137) * lu(k,1587) - lu(k,1593) = lu(k,1593) - lu(k,1138) * lu(k,1587) - lu(k,1594) = lu(k,1594) - lu(k,1139) * lu(k,1587) - lu(k,1595) = lu(k,1595) - lu(k,1140) * lu(k,1587) - lu(k,1596) = lu(k,1596) - lu(k,1141) * lu(k,1587) - lu(k,1597) = lu(k,1597) - lu(k,1142) * lu(k,1587) - lu(k,1598) = lu(k,1598) - lu(k,1143) * lu(k,1587) - lu(k,1599) = lu(k,1599) - lu(k,1144) * lu(k,1587) - lu(k,1600) = lu(k,1600) - lu(k,1145) * lu(k,1587) - lu(k,1601) = lu(k,1601) - lu(k,1146) * lu(k,1587) - lu(k,1602) = lu(k,1602) - lu(k,1147) * lu(k,1587) - lu(k,1603) = lu(k,1603) - lu(k,1148) * lu(k,1587) - lu(k,1624) = lu(k,1624) - lu(k,1133) * lu(k,1623) - lu(k,1625) = lu(k,1625) - lu(k,1134) * lu(k,1623) - lu(k,1626) = lu(k,1626) - lu(k,1135) * lu(k,1623) - lu(k,1627) = lu(k,1627) - lu(k,1136) * lu(k,1623) - lu(k,1628) = lu(k,1628) - lu(k,1137) * lu(k,1623) - lu(k,1629) = lu(k,1629) - lu(k,1138) * lu(k,1623) - lu(k,1630) = lu(k,1630) - lu(k,1139) * lu(k,1623) - lu(k,1631) = lu(k,1631) - lu(k,1140) * lu(k,1623) - lu(k,1632) = lu(k,1632) - lu(k,1141) * lu(k,1623) - lu(k,1633) = lu(k,1633) - lu(k,1142) * lu(k,1623) - lu(k,1634) = lu(k,1634) - lu(k,1143) * lu(k,1623) - lu(k,1635) = lu(k,1635) - lu(k,1144) * lu(k,1623) - lu(k,1636) = lu(k,1636) - lu(k,1145) * lu(k,1623) - lu(k,1637) = lu(k,1637) - lu(k,1146) * lu(k,1623) - lu(k,1638) = lu(k,1638) - lu(k,1147) * lu(k,1623) - lu(k,1639) = lu(k,1639) - lu(k,1148) * lu(k,1623) - lu(k,1667) = lu(k,1667) - lu(k,1133) * lu(k,1666) - lu(k,1668) = lu(k,1668) - lu(k,1134) * lu(k,1666) - lu(k,1669) = lu(k,1669) - lu(k,1135) * lu(k,1666) - lu(k,1670) = lu(k,1670) - lu(k,1136) * lu(k,1666) - lu(k,1671) = lu(k,1671) - lu(k,1137) * lu(k,1666) - lu(k,1672) = lu(k,1672) - lu(k,1138) * lu(k,1666) - lu(k,1673) = lu(k,1673) - lu(k,1139) * lu(k,1666) - lu(k,1674) = lu(k,1674) - lu(k,1140) * lu(k,1666) - lu(k,1675) = lu(k,1675) - lu(k,1141) * lu(k,1666) - lu(k,1676) = lu(k,1676) - lu(k,1142) * lu(k,1666) - lu(k,1677) = lu(k,1677) - lu(k,1143) * lu(k,1666) - lu(k,1678) = lu(k,1678) - lu(k,1144) * lu(k,1666) - lu(k,1679) = lu(k,1679) - lu(k,1145) * lu(k,1666) - lu(k,1680) = lu(k,1680) - lu(k,1146) * lu(k,1666) - lu(k,1681) = lu(k,1681) - lu(k,1147) * lu(k,1666) - lu(k,1682) = lu(k,1682) - lu(k,1148) * lu(k,1666) - lu(k,1703) = lu(k,1703) - lu(k,1133) * lu(k,1702) - lu(k,1704) = lu(k,1704) - lu(k,1134) * lu(k,1702) - lu(k,1705) = lu(k,1705) - lu(k,1135) * lu(k,1702) - lu(k,1706) = lu(k,1706) - lu(k,1136) * lu(k,1702) - lu(k,1707) = lu(k,1707) - lu(k,1137) * lu(k,1702) - lu(k,1708) = lu(k,1708) - lu(k,1138) * lu(k,1702) - lu(k,1709) = lu(k,1709) - lu(k,1139) * lu(k,1702) - lu(k,1710) = lu(k,1710) - lu(k,1140) * lu(k,1702) - lu(k,1711) = lu(k,1711) - lu(k,1141) * lu(k,1702) - lu(k,1712) = lu(k,1712) - lu(k,1142) * lu(k,1702) - lu(k,1713) = lu(k,1713) - lu(k,1143) * lu(k,1702) - lu(k,1714) = lu(k,1714) - lu(k,1144) * lu(k,1702) - lu(k,1715) = lu(k,1715) - lu(k,1145) * lu(k,1702) - lu(k,1716) = lu(k,1716) - lu(k,1146) * lu(k,1702) - lu(k,1717) = lu(k,1717) - lu(k,1147) * lu(k,1702) - lu(k,1718) = lu(k,1718) - lu(k,1148) * lu(k,1702) - lu(k,1748) = lu(k,1748) - lu(k,1133) * lu(k,1747) - lu(k,1749) = lu(k,1749) - lu(k,1134) * lu(k,1747) - lu(k,1750) = lu(k,1750) - lu(k,1135) * lu(k,1747) - lu(k,1751) = lu(k,1751) - lu(k,1136) * lu(k,1747) - lu(k,1752) = lu(k,1752) - lu(k,1137) * lu(k,1747) - lu(k,1753) = lu(k,1753) - lu(k,1138) * lu(k,1747) - lu(k,1754) = lu(k,1754) - lu(k,1139) * lu(k,1747) - lu(k,1755) = lu(k,1755) - lu(k,1140) * lu(k,1747) - lu(k,1756) = lu(k,1756) - lu(k,1141) * lu(k,1747) - lu(k,1757) = lu(k,1757) - lu(k,1142) * lu(k,1747) - lu(k,1758) = lu(k,1758) - lu(k,1143) * lu(k,1747) - lu(k,1759) = lu(k,1759) - lu(k,1144) * lu(k,1747) - lu(k,1760) = lu(k,1760) - lu(k,1145) * lu(k,1747) - lu(k,1761) = lu(k,1761) - lu(k,1146) * lu(k,1747) - lu(k,1762) = lu(k,1762) - lu(k,1147) * lu(k,1747) - lu(k,1763) = lu(k,1763) - lu(k,1148) * lu(k,1747) - lu(k,1801) = lu(k,1801) - lu(k,1133) * lu(k,1800) - lu(k,1802) = lu(k,1802) - lu(k,1134) * lu(k,1800) - lu(k,1803) = lu(k,1803) - lu(k,1135) * lu(k,1800) - lu(k,1804) = lu(k,1804) - lu(k,1136) * lu(k,1800) - lu(k,1805) = lu(k,1805) - lu(k,1137) * lu(k,1800) - lu(k,1806) = lu(k,1806) - lu(k,1138) * lu(k,1800) - lu(k,1807) = lu(k,1807) - lu(k,1139) * lu(k,1800) - lu(k,1808) = lu(k,1808) - lu(k,1140) * lu(k,1800) - lu(k,1809) = lu(k,1809) - lu(k,1141) * lu(k,1800) - lu(k,1810) = lu(k,1810) - lu(k,1142) * lu(k,1800) - lu(k,1811) = lu(k,1811) - lu(k,1143) * lu(k,1800) - lu(k,1812) = lu(k,1812) - lu(k,1144) * lu(k,1800) - lu(k,1813) = lu(k,1813) - lu(k,1145) * lu(k,1800) - lu(k,1814) = lu(k,1814) - lu(k,1146) * lu(k,1800) - lu(k,1815) = lu(k,1815) - lu(k,1147) * lu(k,1800) - lu(k,1816) = lu(k,1816) - lu(k,1148) * lu(k,1800) - lu(k,1173) = 1._r8 / lu(k,1173) - lu(k,1174) = lu(k,1174) * lu(k,1173) - lu(k,1175) = lu(k,1175) * lu(k,1173) - lu(k,1176) = lu(k,1176) * lu(k,1173) - lu(k,1177) = lu(k,1177) * lu(k,1173) - lu(k,1178) = lu(k,1178) * lu(k,1173) - lu(k,1179) = lu(k,1179) * lu(k,1173) - lu(k,1180) = lu(k,1180) * lu(k,1173) - lu(k,1181) = lu(k,1181) * lu(k,1173) - lu(k,1182) = lu(k,1182) * lu(k,1173) - lu(k,1183) = lu(k,1183) * lu(k,1173) - lu(k,1184) = lu(k,1184) * lu(k,1173) - lu(k,1185) = lu(k,1185) * lu(k,1173) - lu(k,1186) = lu(k,1186) * lu(k,1173) - lu(k,1187) = lu(k,1187) * lu(k,1173) - lu(k,1188) = lu(k,1188) * lu(k,1173) - lu(k,1230) = lu(k,1230) - lu(k,1174) * lu(k,1229) - lu(k,1231) = lu(k,1231) - lu(k,1175) * lu(k,1229) - lu(k,1232) = lu(k,1232) - lu(k,1176) * lu(k,1229) - lu(k,1233) = lu(k,1233) - lu(k,1177) * lu(k,1229) - lu(k,1234) = lu(k,1234) - lu(k,1178) * lu(k,1229) - lu(k,1235) = lu(k,1235) - lu(k,1179) * lu(k,1229) - lu(k,1236) = lu(k,1236) - lu(k,1180) * lu(k,1229) - lu(k,1237) = lu(k,1237) - lu(k,1181) * lu(k,1229) - lu(k,1238) = lu(k,1238) - lu(k,1182) * lu(k,1229) - lu(k,1239) = lu(k,1239) - lu(k,1183) * lu(k,1229) - lu(k,1240) = lu(k,1240) - lu(k,1184) * lu(k,1229) - lu(k,1241) = lu(k,1241) - lu(k,1185) * lu(k,1229) - lu(k,1242) = lu(k,1242) - lu(k,1186) * lu(k,1229) - lu(k,1243) = lu(k,1243) - lu(k,1187) * lu(k,1229) - lu(k,1244) = lu(k,1244) - lu(k,1188) * lu(k,1229) - lu(k,1268) = lu(k,1268) - lu(k,1174) * lu(k,1267) - lu(k,1269) = lu(k,1269) - lu(k,1175) * lu(k,1267) - lu(k,1270) = lu(k,1270) - lu(k,1176) * lu(k,1267) - lu(k,1271) = lu(k,1271) - lu(k,1177) * lu(k,1267) - lu(k,1272) = lu(k,1272) - lu(k,1178) * lu(k,1267) - lu(k,1273) = lu(k,1273) - lu(k,1179) * lu(k,1267) - lu(k,1274) = lu(k,1274) - lu(k,1180) * lu(k,1267) - lu(k,1275) = lu(k,1275) - lu(k,1181) * lu(k,1267) - lu(k,1276) = lu(k,1276) - lu(k,1182) * lu(k,1267) - lu(k,1277) = lu(k,1277) - lu(k,1183) * lu(k,1267) - lu(k,1278) = lu(k,1278) - lu(k,1184) * lu(k,1267) - lu(k,1279) = lu(k,1279) - lu(k,1185) * lu(k,1267) - lu(k,1280) = lu(k,1280) - lu(k,1186) * lu(k,1267) - lu(k,1281) = lu(k,1281) - lu(k,1187) * lu(k,1267) - lu(k,1282) = lu(k,1282) - lu(k,1188) * lu(k,1267) - lu(k,1304) = lu(k,1304) - lu(k,1174) * lu(k,1303) - lu(k,1305) = lu(k,1305) - lu(k,1175) * lu(k,1303) - lu(k,1306) = lu(k,1306) - lu(k,1176) * lu(k,1303) - lu(k,1307) = lu(k,1307) - lu(k,1177) * lu(k,1303) - lu(k,1308) = lu(k,1308) - lu(k,1178) * lu(k,1303) - lu(k,1309) = lu(k,1309) - lu(k,1179) * lu(k,1303) - lu(k,1310) = lu(k,1310) - lu(k,1180) * lu(k,1303) - lu(k,1311) = lu(k,1311) - lu(k,1181) * lu(k,1303) - lu(k,1312) = lu(k,1312) - lu(k,1182) * lu(k,1303) - lu(k,1313) = lu(k,1313) - lu(k,1183) * lu(k,1303) - lu(k,1314) = lu(k,1314) - lu(k,1184) * lu(k,1303) - lu(k,1315) = lu(k,1315) - lu(k,1185) * lu(k,1303) - lu(k,1316) = lu(k,1316) - lu(k,1186) * lu(k,1303) - lu(k,1317) = lu(k,1317) - lu(k,1187) * lu(k,1303) - lu(k,1318) = lu(k,1318) - lu(k,1188) * lu(k,1303) - lu(k,1349) = lu(k,1349) - lu(k,1174) * lu(k,1348) - lu(k,1350) = lu(k,1350) - lu(k,1175) * lu(k,1348) - lu(k,1351) = lu(k,1351) - lu(k,1176) * lu(k,1348) - lu(k,1352) = lu(k,1352) - lu(k,1177) * lu(k,1348) - lu(k,1353) = lu(k,1353) - lu(k,1178) * lu(k,1348) - lu(k,1354) = lu(k,1354) - lu(k,1179) * lu(k,1348) - lu(k,1355) = lu(k,1355) - lu(k,1180) * lu(k,1348) - lu(k,1356) = lu(k,1356) - lu(k,1181) * lu(k,1348) - lu(k,1357) = lu(k,1357) - lu(k,1182) * lu(k,1348) - lu(k,1358) = lu(k,1358) - lu(k,1183) * lu(k,1348) - lu(k,1359) = lu(k,1359) - lu(k,1184) * lu(k,1348) - lu(k,1360) = lu(k,1360) - lu(k,1185) * lu(k,1348) - lu(k,1361) = lu(k,1361) - lu(k,1186) * lu(k,1348) - lu(k,1362) = lu(k,1362) - lu(k,1187) * lu(k,1348) - lu(k,1363) = lu(k,1363) - lu(k,1188) * lu(k,1348) - lu(k,1392) = lu(k,1392) - lu(k,1174) * lu(k,1391) - lu(k,1393) = lu(k,1393) - lu(k,1175) * lu(k,1391) - lu(k,1394) = lu(k,1394) - lu(k,1176) * lu(k,1391) - lu(k,1395) = lu(k,1395) - lu(k,1177) * lu(k,1391) - lu(k,1396) = lu(k,1396) - lu(k,1178) * lu(k,1391) - lu(k,1397) = lu(k,1397) - lu(k,1179) * lu(k,1391) - lu(k,1398) = lu(k,1398) - lu(k,1180) * lu(k,1391) - lu(k,1399) = lu(k,1399) - lu(k,1181) * lu(k,1391) - lu(k,1400) = lu(k,1400) - lu(k,1182) * lu(k,1391) - lu(k,1401) = lu(k,1401) - lu(k,1183) * lu(k,1391) - lu(k,1402) = lu(k,1402) - lu(k,1184) * lu(k,1391) - lu(k,1403) = lu(k,1403) - lu(k,1185) * lu(k,1391) - lu(k,1404) = lu(k,1404) - lu(k,1186) * lu(k,1391) - lu(k,1405) = lu(k,1405) - lu(k,1187) * lu(k,1391) - lu(k,1406) = lu(k,1406) - lu(k,1188) * lu(k,1391) - lu(k,1427) = lu(k,1427) - lu(k,1174) * lu(k,1426) - lu(k,1428) = lu(k,1428) - lu(k,1175) * lu(k,1426) - lu(k,1429) = lu(k,1429) - lu(k,1176) * lu(k,1426) - lu(k,1430) = lu(k,1430) - lu(k,1177) * lu(k,1426) - lu(k,1431) = lu(k,1431) - lu(k,1178) * lu(k,1426) - lu(k,1432) = lu(k,1432) - lu(k,1179) * lu(k,1426) - lu(k,1433) = lu(k,1433) - lu(k,1180) * lu(k,1426) - lu(k,1434) = lu(k,1434) - lu(k,1181) * lu(k,1426) - lu(k,1435) = lu(k,1435) - lu(k,1182) * lu(k,1426) - lu(k,1436) = lu(k,1436) - lu(k,1183) * lu(k,1426) - lu(k,1437) = lu(k,1437) - lu(k,1184) * lu(k,1426) - lu(k,1438) = lu(k,1438) - lu(k,1185) * lu(k,1426) - lu(k,1439) = lu(k,1439) - lu(k,1186) * lu(k,1426) - lu(k,1440) = lu(k,1440) - lu(k,1187) * lu(k,1426) - lu(k,1441) = lu(k,1441) - lu(k,1188) * lu(k,1426) - lu(k,1470) = lu(k,1470) - lu(k,1174) * lu(k,1469) - lu(k,1471) = lu(k,1471) - lu(k,1175) * lu(k,1469) - lu(k,1472) = lu(k,1472) - lu(k,1176) * lu(k,1469) - lu(k,1473) = lu(k,1473) - lu(k,1177) * lu(k,1469) - lu(k,1474) = lu(k,1474) - lu(k,1178) * lu(k,1469) - lu(k,1475) = lu(k,1475) - lu(k,1179) * lu(k,1469) - lu(k,1476) = lu(k,1476) - lu(k,1180) * lu(k,1469) - lu(k,1477) = lu(k,1477) - lu(k,1181) * lu(k,1469) - lu(k,1478) = lu(k,1478) - lu(k,1182) * lu(k,1469) - lu(k,1479) = lu(k,1479) - lu(k,1183) * lu(k,1469) - lu(k,1480) = lu(k,1480) - lu(k,1184) * lu(k,1469) - lu(k,1481) = lu(k,1481) - lu(k,1185) * lu(k,1469) - lu(k,1482) = lu(k,1482) - lu(k,1186) * lu(k,1469) - lu(k,1483) = lu(k,1483) - lu(k,1187) * lu(k,1469) - lu(k,1484) = lu(k,1484) - lu(k,1188) * lu(k,1469) - lu(k,1513) = lu(k,1513) - lu(k,1174) * lu(k,1512) - lu(k,1514) = lu(k,1514) - lu(k,1175) * lu(k,1512) - lu(k,1515) = lu(k,1515) - lu(k,1176) * lu(k,1512) - lu(k,1516) = lu(k,1516) - lu(k,1177) * lu(k,1512) - lu(k,1517) = lu(k,1517) - lu(k,1178) * lu(k,1512) - lu(k,1518) = lu(k,1518) - lu(k,1179) * lu(k,1512) - lu(k,1519) = lu(k,1519) - lu(k,1180) * lu(k,1512) - lu(k,1520) = lu(k,1520) - lu(k,1181) * lu(k,1512) - lu(k,1521) = lu(k,1521) - lu(k,1182) * lu(k,1512) - lu(k,1522) = lu(k,1522) - lu(k,1183) * lu(k,1512) - lu(k,1523) = lu(k,1523) - lu(k,1184) * lu(k,1512) - lu(k,1524) = lu(k,1524) - lu(k,1185) * lu(k,1512) - lu(k,1525) = lu(k,1525) - lu(k,1186) * lu(k,1512) - lu(k,1526) = lu(k,1526) - lu(k,1187) * lu(k,1512) - lu(k,1527) = lu(k,1527) - lu(k,1188) * lu(k,1512) - lu(k,1556) = lu(k,1556) - lu(k,1174) * lu(k,1555) - lu(k,1557) = lu(k,1557) - lu(k,1175) * lu(k,1555) - lu(k,1558) = lu(k,1558) - lu(k,1176) * lu(k,1555) - lu(k,1559) = lu(k,1559) - lu(k,1177) * lu(k,1555) - lu(k,1560) = lu(k,1560) - lu(k,1178) * lu(k,1555) - lu(k,1561) = lu(k,1561) - lu(k,1179) * lu(k,1555) - lu(k,1562) = lu(k,1562) - lu(k,1180) * lu(k,1555) - lu(k,1563) = lu(k,1563) - lu(k,1181) * lu(k,1555) - lu(k,1564) = lu(k,1564) - lu(k,1182) * lu(k,1555) - lu(k,1565) = lu(k,1565) - lu(k,1183) * lu(k,1555) - lu(k,1566) = lu(k,1566) - lu(k,1184) * lu(k,1555) - lu(k,1567) = lu(k,1567) - lu(k,1185) * lu(k,1555) - lu(k,1568) = lu(k,1568) - lu(k,1186) * lu(k,1555) - lu(k,1569) = lu(k,1569) - lu(k,1187) * lu(k,1555) - lu(k,1570) = lu(k,1570) - lu(k,1188) * lu(k,1555) - lu(k,1589) = lu(k,1589) - lu(k,1174) * lu(k,1588) - lu(k,1590) = lu(k,1590) - lu(k,1175) * lu(k,1588) - lu(k,1591) = lu(k,1591) - lu(k,1176) * lu(k,1588) - lu(k,1592) = lu(k,1592) - lu(k,1177) * lu(k,1588) - lu(k,1593) = lu(k,1593) - lu(k,1178) * lu(k,1588) - lu(k,1594) = lu(k,1594) - lu(k,1179) * lu(k,1588) - lu(k,1595) = lu(k,1595) - lu(k,1180) * lu(k,1588) - lu(k,1596) = lu(k,1596) - lu(k,1181) * lu(k,1588) - lu(k,1597) = lu(k,1597) - lu(k,1182) * lu(k,1588) - lu(k,1598) = lu(k,1598) - lu(k,1183) * lu(k,1588) - lu(k,1599) = lu(k,1599) - lu(k,1184) * lu(k,1588) - lu(k,1600) = lu(k,1600) - lu(k,1185) * lu(k,1588) - lu(k,1601) = lu(k,1601) - lu(k,1186) * lu(k,1588) - lu(k,1602) = lu(k,1602) - lu(k,1187) * lu(k,1588) - lu(k,1603) = lu(k,1603) - lu(k,1188) * lu(k,1588) - lu(k,1625) = lu(k,1625) - lu(k,1174) * lu(k,1624) - lu(k,1626) = lu(k,1626) - lu(k,1175) * lu(k,1624) - lu(k,1627) = lu(k,1627) - lu(k,1176) * lu(k,1624) - lu(k,1628) = lu(k,1628) - lu(k,1177) * lu(k,1624) - lu(k,1629) = lu(k,1629) - lu(k,1178) * lu(k,1624) - lu(k,1630) = lu(k,1630) - lu(k,1179) * lu(k,1624) - lu(k,1631) = lu(k,1631) - lu(k,1180) * lu(k,1624) - lu(k,1632) = lu(k,1632) - lu(k,1181) * lu(k,1624) - lu(k,1633) = lu(k,1633) - lu(k,1182) * lu(k,1624) - lu(k,1634) = lu(k,1634) - lu(k,1183) * lu(k,1624) - lu(k,1635) = lu(k,1635) - lu(k,1184) * lu(k,1624) - lu(k,1636) = lu(k,1636) - lu(k,1185) * lu(k,1624) - lu(k,1637) = lu(k,1637) - lu(k,1186) * lu(k,1624) - lu(k,1638) = lu(k,1638) - lu(k,1187) * lu(k,1624) - lu(k,1639) = lu(k,1639) - lu(k,1188) * lu(k,1624) - lu(k,1668) = lu(k,1668) - lu(k,1174) * lu(k,1667) - lu(k,1669) = lu(k,1669) - lu(k,1175) * lu(k,1667) - lu(k,1670) = lu(k,1670) - lu(k,1176) * lu(k,1667) - lu(k,1671) = lu(k,1671) - lu(k,1177) * lu(k,1667) - lu(k,1672) = lu(k,1672) - lu(k,1178) * lu(k,1667) - lu(k,1673) = lu(k,1673) - lu(k,1179) * lu(k,1667) - lu(k,1674) = lu(k,1674) - lu(k,1180) * lu(k,1667) - lu(k,1675) = lu(k,1675) - lu(k,1181) * lu(k,1667) - lu(k,1676) = lu(k,1676) - lu(k,1182) * lu(k,1667) - lu(k,1677) = lu(k,1677) - lu(k,1183) * lu(k,1667) - lu(k,1678) = lu(k,1678) - lu(k,1184) * lu(k,1667) - lu(k,1679) = lu(k,1679) - lu(k,1185) * lu(k,1667) - lu(k,1680) = lu(k,1680) - lu(k,1186) * lu(k,1667) - lu(k,1681) = lu(k,1681) - lu(k,1187) * lu(k,1667) - lu(k,1682) = lu(k,1682) - lu(k,1188) * lu(k,1667) - lu(k,1704) = lu(k,1704) - lu(k,1174) * lu(k,1703) - lu(k,1705) = lu(k,1705) - lu(k,1175) * lu(k,1703) - lu(k,1706) = lu(k,1706) - lu(k,1176) * lu(k,1703) - lu(k,1707) = lu(k,1707) - lu(k,1177) * lu(k,1703) - lu(k,1708) = lu(k,1708) - lu(k,1178) * lu(k,1703) - lu(k,1709) = lu(k,1709) - lu(k,1179) * lu(k,1703) - lu(k,1710) = lu(k,1710) - lu(k,1180) * lu(k,1703) - lu(k,1711) = lu(k,1711) - lu(k,1181) * lu(k,1703) - lu(k,1712) = lu(k,1712) - lu(k,1182) * lu(k,1703) - lu(k,1713) = lu(k,1713) - lu(k,1183) * lu(k,1703) - lu(k,1714) = lu(k,1714) - lu(k,1184) * lu(k,1703) - lu(k,1715) = lu(k,1715) - lu(k,1185) * lu(k,1703) - lu(k,1716) = lu(k,1716) - lu(k,1186) * lu(k,1703) - lu(k,1717) = lu(k,1717) - lu(k,1187) * lu(k,1703) - lu(k,1718) = lu(k,1718) - lu(k,1188) * lu(k,1703) - lu(k,1749) = lu(k,1749) - lu(k,1174) * lu(k,1748) - lu(k,1750) = lu(k,1750) - lu(k,1175) * lu(k,1748) - lu(k,1751) = lu(k,1751) - lu(k,1176) * lu(k,1748) - lu(k,1752) = lu(k,1752) - lu(k,1177) * lu(k,1748) - lu(k,1753) = lu(k,1753) - lu(k,1178) * lu(k,1748) - lu(k,1754) = lu(k,1754) - lu(k,1179) * lu(k,1748) - lu(k,1755) = lu(k,1755) - lu(k,1180) * lu(k,1748) - lu(k,1756) = lu(k,1756) - lu(k,1181) * lu(k,1748) - lu(k,1757) = lu(k,1757) - lu(k,1182) * lu(k,1748) - lu(k,1758) = lu(k,1758) - lu(k,1183) * lu(k,1748) - lu(k,1759) = lu(k,1759) - lu(k,1184) * lu(k,1748) - lu(k,1760) = lu(k,1760) - lu(k,1185) * lu(k,1748) - lu(k,1761) = lu(k,1761) - lu(k,1186) * lu(k,1748) - lu(k,1762) = lu(k,1762) - lu(k,1187) * lu(k,1748) - lu(k,1763) = lu(k,1763) - lu(k,1188) * lu(k,1748) - lu(k,1802) = lu(k,1802) - lu(k,1174) * lu(k,1801) - lu(k,1803) = lu(k,1803) - lu(k,1175) * lu(k,1801) - lu(k,1804) = lu(k,1804) - lu(k,1176) * lu(k,1801) - lu(k,1805) = lu(k,1805) - lu(k,1177) * lu(k,1801) - lu(k,1806) = lu(k,1806) - lu(k,1178) * lu(k,1801) - lu(k,1807) = lu(k,1807) - lu(k,1179) * lu(k,1801) - lu(k,1808) = lu(k,1808) - lu(k,1180) * lu(k,1801) - lu(k,1809) = lu(k,1809) - lu(k,1181) * lu(k,1801) - lu(k,1810) = lu(k,1810) - lu(k,1182) * lu(k,1801) - lu(k,1811) = lu(k,1811) - lu(k,1183) * lu(k,1801) - lu(k,1812) = lu(k,1812) - lu(k,1184) * lu(k,1801) - lu(k,1813) = lu(k,1813) - lu(k,1185) * lu(k,1801) - lu(k,1814) = lu(k,1814) - lu(k,1186) * lu(k,1801) - lu(k,1815) = lu(k,1815) - lu(k,1187) * lu(k,1801) - lu(k,1816) = lu(k,1816) - lu(k,1188) * lu(k,1801) - lu(k,1230) = 1._r8 / lu(k,1230) - lu(k,1231) = lu(k,1231) * lu(k,1230) - lu(k,1232) = lu(k,1232) * lu(k,1230) - lu(k,1233) = lu(k,1233) * lu(k,1230) - lu(k,1234) = lu(k,1234) * lu(k,1230) - lu(k,1235) = lu(k,1235) * lu(k,1230) - lu(k,1236) = lu(k,1236) * lu(k,1230) - lu(k,1237) = lu(k,1237) * lu(k,1230) - lu(k,1238) = lu(k,1238) * lu(k,1230) - lu(k,1239) = lu(k,1239) * lu(k,1230) - lu(k,1240) = lu(k,1240) * lu(k,1230) - lu(k,1241) = lu(k,1241) * lu(k,1230) - lu(k,1242) = lu(k,1242) * lu(k,1230) - lu(k,1243) = lu(k,1243) * lu(k,1230) - lu(k,1244) = lu(k,1244) * lu(k,1230) - lu(k,1269) = lu(k,1269) - lu(k,1231) * lu(k,1268) - lu(k,1270) = lu(k,1270) - lu(k,1232) * lu(k,1268) - lu(k,1271) = lu(k,1271) - lu(k,1233) * lu(k,1268) - lu(k,1272) = lu(k,1272) - lu(k,1234) * lu(k,1268) - lu(k,1273) = lu(k,1273) - lu(k,1235) * lu(k,1268) - lu(k,1274) = lu(k,1274) - lu(k,1236) * lu(k,1268) - lu(k,1275) = lu(k,1275) - lu(k,1237) * lu(k,1268) - lu(k,1276) = lu(k,1276) - lu(k,1238) * lu(k,1268) - lu(k,1277) = lu(k,1277) - lu(k,1239) * lu(k,1268) - lu(k,1278) = lu(k,1278) - lu(k,1240) * lu(k,1268) - lu(k,1279) = lu(k,1279) - lu(k,1241) * lu(k,1268) - lu(k,1280) = lu(k,1280) - lu(k,1242) * lu(k,1268) - lu(k,1281) = lu(k,1281) - lu(k,1243) * lu(k,1268) - lu(k,1282) = lu(k,1282) - lu(k,1244) * lu(k,1268) - lu(k,1305) = lu(k,1305) - lu(k,1231) * lu(k,1304) - lu(k,1306) = lu(k,1306) - lu(k,1232) * lu(k,1304) - lu(k,1307) = lu(k,1307) - lu(k,1233) * lu(k,1304) - lu(k,1308) = lu(k,1308) - lu(k,1234) * lu(k,1304) - lu(k,1309) = lu(k,1309) - lu(k,1235) * lu(k,1304) - lu(k,1310) = lu(k,1310) - lu(k,1236) * lu(k,1304) - lu(k,1311) = lu(k,1311) - lu(k,1237) * lu(k,1304) - lu(k,1312) = lu(k,1312) - lu(k,1238) * lu(k,1304) - lu(k,1313) = lu(k,1313) - lu(k,1239) * lu(k,1304) - lu(k,1314) = lu(k,1314) - lu(k,1240) * lu(k,1304) - lu(k,1315) = lu(k,1315) - lu(k,1241) * lu(k,1304) - lu(k,1316) = lu(k,1316) - lu(k,1242) * lu(k,1304) - lu(k,1317) = lu(k,1317) - lu(k,1243) * lu(k,1304) - lu(k,1318) = lu(k,1318) - lu(k,1244) * lu(k,1304) - lu(k,1350) = lu(k,1350) - lu(k,1231) * lu(k,1349) - lu(k,1351) = lu(k,1351) - lu(k,1232) * lu(k,1349) - lu(k,1352) = lu(k,1352) - lu(k,1233) * lu(k,1349) - lu(k,1353) = lu(k,1353) - lu(k,1234) * lu(k,1349) - lu(k,1354) = lu(k,1354) - lu(k,1235) * lu(k,1349) - lu(k,1355) = lu(k,1355) - lu(k,1236) * lu(k,1349) - lu(k,1356) = lu(k,1356) - lu(k,1237) * lu(k,1349) - lu(k,1357) = lu(k,1357) - lu(k,1238) * lu(k,1349) - lu(k,1358) = lu(k,1358) - lu(k,1239) * lu(k,1349) - lu(k,1359) = lu(k,1359) - lu(k,1240) * lu(k,1349) - lu(k,1360) = lu(k,1360) - lu(k,1241) * lu(k,1349) - lu(k,1361) = lu(k,1361) - lu(k,1242) * lu(k,1349) - lu(k,1362) = lu(k,1362) - lu(k,1243) * lu(k,1349) - lu(k,1363) = lu(k,1363) - lu(k,1244) * lu(k,1349) - lu(k,1393) = lu(k,1393) - lu(k,1231) * lu(k,1392) - lu(k,1394) = lu(k,1394) - lu(k,1232) * lu(k,1392) - lu(k,1395) = lu(k,1395) - lu(k,1233) * lu(k,1392) - lu(k,1396) = lu(k,1396) - lu(k,1234) * lu(k,1392) - lu(k,1397) = lu(k,1397) - lu(k,1235) * lu(k,1392) - lu(k,1398) = lu(k,1398) - lu(k,1236) * lu(k,1392) - lu(k,1399) = lu(k,1399) - lu(k,1237) * lu(k,1392) - lu(k,1400) = lu(k,1400) - lu(k,1238) * lu(k,1392) - lu(k,1401) = lu(k,1401) - lu(k,1239) * lu(k,1392) - lu(k,1402) = lu(k,1402) - lu(k,1240) * lu(k,1392) - lu(k,1403) = lu(k,1403) - lu(k,1241) * lu(k,1392) - lu(k,1404) = lu(k,1404) - lu(k,1242) * lu(k,1392) - lu(k,1405) = lu(k,1405) - lu(k,1243) * lu(k,1392) - lu(k,1406) = lu(k,1406) - lu(k,1244) * lu(k,1392) - lu(k,1428) = lu(k,1428) - lu(k,1231) * lu(k,1427) - lu(k,1429) = lu(k,1429) - lu(k,1232) * lu(k,1427) - lu(k,1430) = lu(k,1430) - lu(k,1233) * lu(k,1427) - lu(k,1431) = lu(k,1431) - lu(k,1234) * lu(k,1427) - lu(k,1432) = lu(k,1432) - lu(k,1235) * lu(k,1427) - lu(k,1433) = lu(k,1433) - lu(k,1236) * lu(k,1427) - lu(k,1434) = lu(k,1434) - lu(k,1237) * lu(k,1427) - lu(k,1435) = lu(k,1435) - lu(k,1238) * lu(k,1427) - lu(k,1436) = lu(k,1436) - lu(k,1239) * lu(k,1427) - lu(k,1437) = lu(k,1437) - lu(k,1240) * lu(k,1427) - lu(k,1438) = lu(k,1438) - lu(k,1241) * lu(k,1427) - lu(k,1439) = lu(k,1439) - lu(k,1242) * lu(k,1427) - lu(k,1440) = lu(k,1440) - lu(k,1243) * lu(k,1427) - lu(k,1441) = lu(k,1441) - lu(k,1244) * lu(k,1427) - lu(k,1471) = lu(k,1471) - lu(k,1231) * lu(k,1470) - lu(k,1472) = lu(k,1472) - lu(k,1232) * lu(k,1470) - lu(k,1473) = lu(k,1473) - lu(k,1233) * lu(k,1470) - lu(k,1474) = lu(k,1474) - lu(k,1234) * lu(k,1470) - lu(k,1475) = lu(k,1475) - lu(k,1235) * lu(k,1470) - lu(k,1476) = lu(k,1476) - lu(k,1236) * lu(k,1470) - lu(k,1477) = lu(k,1477) - lu(k,1237) * lu(k,1470) - lu(k,1478) = lu(k,1478) - lu(k,1238) * lu(k,1470) - lu(k,1479) = lu(k,1479) - lu(k,1239) * lu(k,1470) - lu(k,1480) = lu(k,1480) - lu(k,1240) * lu(k,1470) - lu(k,1481) = lu(k,1481) - lu(k,1241) * lu(k,1470) - lu(k,1482) = lu(k,1482) - lu(k,1242) * lu(k,1470) - lu(k,1483) = lu(k,1483) - lu(k,1243) * lu(k,1470) - lu(k,1484) = lu(k,1484) - lu(k,1244) * lu(k,1470) - lu(k,1514) = lu(k,1514) - lu(k,1231) * lu(k,1513) - lu(k,1515) = lu(k,1515) - lu(k,1232) * lu(k,1513) - lu(k,1516) = lu(k,1516) - lu(k,1233) * lu(k,1513) - lu(k,1517) = lu(k,1517) - lu(k,1234) * lu(k,1513) - lu(k,1518) = lu(k,1518) - lu(k,1235) * lu(k,1513) - lu(k,1519) = lu(k,1519) - lu(k,1236) * lu(k,1513) - lu(k,1520) = lu(k,1520) - lu(k,1237) * lu(k,1513) - lu(k,1521) = lu(k,1521) - lu(k,1238) * lu(k,1513) - lu(k,1522) = lu(k,1522) - lu(k,1239) * lu(k,1513) - lu(k,1523) = lu(k,1523) - lu(k,1240) * lu(k,1513) - lu(k,1524) = lu(k,1524) - lu(k,1241) * lu(k,1513) - lu(k,1525) = lu(k,1525) - lu(k,1242) * lu(k,1513) - lu(k,1526) = lu(k,1526) - lu(k,1243) * lu(k,1513) - lu(k,1527) = lu(k,1527) - lu(k,1244) * lu(k,1513) - lu(k,1557) = lu(k,1557) - lu(k,1231) * lu(k,1556) - lu(k,1558) = lu(k,1558) - lu(k,1232) * lu(k,1556) - lu(k,1559) = lu(k,1559) - lu(k,1233) * lu(k,1556) - lu(k,1560) = lu(k,1560) - lu(k,1234) * lu(k,1556) - lu(k,1561) = lu(k,1561) - lu(k,1235) * lu(k,1556) - lu(k,1562) = lu(k,1562) - lu(k,1236) * lu(k,1556) - lu(k,1563) = lu(k,1563) - lu(k,1237) * lu(k,1556) - lu(k,1564) = lu(k,1564) - lu(k,1238) * lu(k,1556) - lu(k,1565) = lu(k,1565) - lu(k,1239) * lu(k,1556) - lu(k,1566) = lu(k,1566) - lu(k,1240) * lu(k,1556) - lu(k,1567) = lu(k,1567) - lu(k,1241) * lu(k,1556) - lu(k,1568) = lu(k,1568) - lu(k,1242) * lu(k,1556) - lu(k,1569) = lu(k,1569) - lu(k,1243) * lu(k,1556) - lu(k,1570) = lu(k,1570) - lu(k,1244) * lu(k,1556) - lu(k,1590) = lu(k,1590) - lu(k,1231) * lu(k,1589) - lu(k,1591) = lu(k,1591) - lu(k,1232) * lu(k,1589) - lu(k,1592) = lu(k,1592) - lu(k,1233) * lu(k,1589) - lu(k,1593) = lu(k,1593) - lu(k,1234) * lu(k,1589) - lu(k,1594) = lu(k,1594) - lu(k,1235) * lu(k,1589) - lu(k,1595) = lu(k,1595) - lu(k,1236) * lu(k,1589) - lu(k,1596) = lu(k,1596) - lu(k,1237) * lu(k,1589) - lu(k,1597) = lu(k,1597) - lu(k,1238) * lu(k,1589) - lu(k,1598) = lu(k,1598) - lu(k,1239) * lu(k,1589) - lu(k,1599) = lu(k,1599) - lu(k,1240) * lu(k,1589) - lu(k,1600) = lu(k,1600) - lu(k,1241) * lu(k,1589) - lu(k,1601) = lu(k,1601) - lu(k,1242) * lu(k,1589) - lu(k,1602) = lu(k,1602) - lu(k,1243) * lu(k,1589) - lu(k,1603) = lu(k,1603) - lu(k,1244) * lu(k,1589) - lu(k,1626) = lu(k,1626) - lu(k,1231) * lu(k,1625) - lu(k,1627) = lu(k,1627) - lu(k,1232) * lu(k,1625) - lu(k,1628) = lu(k,1628) - lu(k,1233) * lu(k,1625) - lu(k,1629) = lu(k,1629) - lu(k,1234) * lu(k,1625) - lu(k,1630) = lu(k,1630) - lu(k,1235) * lu(k,1625) - lu(k,1631) = lu(k,1631) - lu(k,1236) * lu(k,1625) - lu(k,1632) = lu(k,1632) - lu(k,1237) * lu(k,1625) - lu(k,1633) = lu(k,1633) - lu(k,1238) * lu(k,1625) - lu(k,1634) = lu(k,1634) - lu(k,1239) * lu(k,1625) - lu(k,1635) = lu(k,1635) - lu(k,1240) * lu(k,1625) - lu(k,1636) = lu(k,1636) - lu(k,1241) * lu(k,1625) - lu(k,1637) = lu(k,1637) - lu(k,1242) * lu(k,1625) - lu(k,1638) = lu(k,1638) - lu(k,1243) * lu(k,1625) - lu(k,1639) = lu(k,1639) - lu(k,1244) * lu(k,1625) - lu(k,1669) = lu(k,1669) - lu(k,1231) * lu(k,1668) - lu(k,1670) = lu(k,1670) - lu(k,1232) * lu(k,1668) - lu(k,1671) = lu(k,1671) - lu(k,1233) * lu(k,1668) - lu(k,1672) = lu(k,1672) - lu(k,1234) * lu(k,1668) - lu(k,1673) = lu(k,1673) - lu(k,1235) * lu(k,1668) - lu(k,1674) = lu(k,1674) - lu(k,1236) * lu(k,1668) - lu(k,1675) = lu(k,1675) - lu(k,1237) * lu(k,1668) - lu(k,1676) = lu(k,1676) - lu(k,1238) * lu(k,1668) - lu(k,1677) = lu(k,1677) - lu(k,1239) * lu(k,1668) - lu(k,1678) = lu(k,1678) - lu(k,1240) * lu(k,1668) - lu(k,1679) = lu(k,1679) - lu(k,1241) * lu(k,1668) - lu(k,1680) = lu(k,1680) - lu(k,1242) * lu(k,1668) - lu(k,1681) = lu(k,1681) - lu(k,1243) * lu(k,1668) - lu(k,1682) = lu(k,1682) - lu(k,1244) * lu(k,1668) - lu(k,1705) = lu(k,1705) - lu(k,1231) * lu(k,1704) - lu(k,1706) = lu(k,1706) - lu(k,1232) * lu(k,1704) - lu(k,1707) = lu(k,1707) - lu(k,1233) * lu(k,1704) - lu(k,1708) = lu(k,1708) - lu(k,1234) * lu(k,1704) - lu(k,1709) = lu(k,1709) - lu(k,1235) * lu(k,1704) - lu(k,1710) = lu(k,1710) - lu(k,1236) * lu(k,1704) - lu(k,1711) = lu(k,1711) - lu(k,1237) * lu(k,1704) - lu(k,1712) = lu(k,1712) - lu(k,1238) * lu(k,1704) - lu(k,1713) = lu(k,1713) - lu(k,1239) * lu(k,1704) - lu(k,1714) = lu(k,1714) - lu(k,1240) * lu(k,1704) - lu(k,1715) = lu(k,1715) - lu(k,1241) * lu(k,1704) - lu(k,1716) = lu(k,1716) - lu(k,1242) * lu(k,1704) - lu(k,1717) = lu(k,1717) - lu(k,1243) * lu(k,1704) - lu(k,1718) = lu(k,1718) - lu(k,1244) * lu(k,1704) - lu(k,1750) = lu(k,1750) - lu(k,1231) * lu(k,1749) - lu(k,1751) = lu(k,1751) - lu(k,1232) * lu(k,1749) - lu(k,1752) = lu(k,1752) - lu(k,1233) * lu(k,1749) - lu(k,1753) = lu(k,1753) - lu(k,1234) * lu(k,1749) - lu(k,1754) = lu(k,1754) - lu(k,1235) * lu(k,1749) - lu(k,1755) = lu(k,1755) - lu(k,1236) * lu(k,1749) - lu(k,1756) = lu(k,1756) - lu(k,1237) * lu(k,1749) - lu(k,1757) = lu(k,1757) - lu(k,1238) * lu(k,1749) - lu(k,1758) = lu(k,1758) - lu(k,1239) * lu(k,1749) - lu(k,1759) = lu(k,1759) - lu(k,1240) * lu(k,1749) - lu(k,1760) = lu(k,1760) - lu(k,1241) * lu(k,1749) - lu(k,1761) = lu(k,1761) - lu(k,1242) * lu(k,1749) - lu(k,1762) = lu(k,1762) - lu(k,1243) * lu(k,1749) - lu(k,1763) = lu(k,1763) - lu(k,1244) * lu(k,1749) - lu(k,1803) = lu(k,1803) - lu(k,1231) * lu(k,1802) - lu(k,1804) = lu(k,1804) - lu(k,1232) * lu(k,1802) - lu(k,1805) = lu(k,1805) - lu(k,1233) * lu(k,1802) - lu(k,1806) = lu(k,1806) - lu(k,1234) * lu(k,1802) - lu(k,1807) = lu(k,1807) - lu(k,1235) * lu(k,1802) - lu(k,1808) = lu(k,1808) - lu(k,1236) * lu(k,1802) - lu(k,1809) = lu(k,1809) - lu(k,1237) * lu(k,1802) - lu(k,1810) = lu(k,1810) - lu(k,1238) * lu(k,1802) - lu(k,1811) = lu(k,1811) - lu(k,1239) * lu(k,1802) - lu(k,1812) = lu(k,1812) - lu(k,1240) * lu(k,1802) - lu(k,1813) = lu(k,1813) - lu(k,1241) * lu(k,1802) - lu(k,1814) = lu(k,1814) - lu(k,1242) * lu(k,1802) - lu(k,1815) = lu(k,1815) - lu(k,1243) * lu(k,1802) - lu(k,1816) = lu(k,1816) - lu(k,1244) * lu(k,1802) - lu(k,1269) = 1._r8 / lu(k,1269) - lu(k,1270) = lu(k,1270) * lu(k,1269) - lu(k,1271) = lu(k,1271) * lu(k,1269) - lu(k,1272) = lu(k,1272) * lu(k,1269) - lu(k,1273) = lu(k,1273) * lu(k,1269) - lu(k,1274) = lu(k,1274) * lu(k,1269) - lu(k,1275) = lu(k,1275) * lu(k,1269) - lu(k,1276) = lu(k,1276) * lu(k,1269) - lu(k,1277) = lu(k,1277) * lu(k,1269) - lu(k,1278) = lu(k,1278) * lu(k,1269) - lu(k,1279) = lu(k,1279) * lu(k,1269) - lu(k,1280) = lu(k,1280) * lu(k,1269) - lu(k,1281) = lu(k,1281) * lu(k,1269) - lu(k,1282) = lu(k,1282) * lu(k,1269) - lu(k,1306) = lu(k,1306) - lu(k,1270) * lu(k,1305) - lu(k,1307) = lu(k,1307) - lu(k,1271) * lu(k,1305) - lu(k,1308) = lu(k,1308) - lu(k,1272) * lu(k,1305) - lu(k,1309) = lu(k,1309) - lu(k,1273) * lu(k,1305) - lu(k,1310) = lu(k,1310) - lu(k,1274) * lu(k,1305) - lu(k,1311) = lu(k,1311) - lu(k,1275) * lu(k,1305) - lu(k,1312) = lu(k,1312) - lu(k,1276) * lu(k,1305) - lu(k,1313) = lu(k,1313) - lu(k,1277) * lu(k,1305) - lu(k,1314) = lu(k,1314) - lu(k,1278) * lu(k,1305) - lu(k,1315) = lu(k,1315) - lu(k,1279) * lu(k,1305) - lu(k,1316) = lu(k,1316) - lu(k,1280) * lu(k,1305) - lu(k,1317) = lu(k,1317) - lu(k,1281) * lu(k,1305) - lu(k,1318) = lu(k,1318) - lu(k,1282) * lu(k,1305) - lu(k,1351) = lu(k,1351) - lu(k,1270) * lu(k,1350) - lu(k,1352) = lu(k,1352) - lu(k,1271) * lu(k,1350) - lu(k,1353) = lu(k,1353) - lu(k,1272) * lu(k,1350) - lu(k,1354) = lu(k,1354) - lu(k,1273) * lu(k,1350) - lu(k,1355) = lu(k,1355) - lu(k,1274) * lu(k,1350) - lu(k,1356) = lu(k,1356) - lu(k,1275) * lu(k,1350) - lu(k,1357) = lu(k,1357) - lu(k,1276) * lu(k,1350) - lu(k,1358) = lu(k,1358) - lu(k,1277) * lu(k,1350) - lu(k,1359) = lu(k,1359) - lu(k,1278) * lu(k,1350) - lu(k,1360) = lu(k,1360) - lu(k,1279) * lu(k,1350) - lu(k,1361) = lu(k,1361) - lu(k,1280) * lu(k,1350) - lu(k,1362) = lu(k,1362) - lu(k,1281) * lu(k,1350) - lu(k,1363) = lu(k,1363) - lu(k,1282) * lu(k,1350) - lu(k,1394) = lu(k,1394) - lu(k,1270) * lu(k,1393) - lu(k,1395) = lu(k,1395) - lu(k,1271) * lu(k,1393) - lu(k,1396) = lu(k,1396) - lu(k,1272) * lu(k,1393) - lu(k,1397) = lu(k,1397) - lu(k,1273) * lu(k,1393) - lu(k,1398) = lu(k,1398) - lu(k,1274) * lu(k,1393) - lu(k,1399) = lu(k,1399) - lu(k,1275) * lu(k,1393) - lu(k,1400) = lu(k,1400) - lu(k,1276) * lu(k,1393) - lu(k,1401) = lu(k,1401) - lu(k,1277) * lu(k,1393) - lu(k,1402) = lu(k,1402) - lu(k,1278) * lu(k,1393) - lu(k,1403) = lu(k,1403) - lu(k,1279) * lu(k,1393) - lu(k,1404) = lu(k,1404) - lu(k,1280) * lu(k,1393) - lu(k,1405) = lu(k,1405) - lu(k,1281) * lu(k,1393) - lu(k,1406) = lu(k,1406) - lu(k,1282) * lu(k,1393) - lu(k,1429) = lu(k,1429) - lu(k,1270) * lu(k,1428) - lu(k,1430) = lu(k,1430) - lu(k,1271) * lu(k,1428) - lu(k,1431) = lu(k,1431) - lu(k,1272) * lu(k,1428) - lu(k,1432) = lu(k,1432) - lu(k,1273) * lu(k,1428) - lu(k,1433) = lu(k,1433) - lu(k,1274) * lu(k,1428) - lu(k,1434) = lu(k,1434) - lu(k,1275) * lu(k,1428) - lu(k,1435) = lu(k,1435) - lu(k,1276) * lu(k,1428) - lu(k,1436) = lu(k,1436) - lu(k,1277) * lu(k,1428) - lu(k,1437) = lu(k,1437) - lu(k,1278) * lu(k,1428) - lu(k,1438) = lu(k,1438) - lu(k,1279) * lu(k,1428) - lu(k,1439) = lu(k,1439) - lu(k,1280) * lu(k,1428) - lu(k,1440) = lu(k,1440) - lu(k,1281) * lu(k,1428) - lu(k,1441) = lu(k,1441) - lu(k,1282) * lu(k,1428) - lu(k,1472) = lu(k,1472) - lu(k,1270) * lu(k,1471) - lu(k,1473) = lu(k,1473) - lu(k,1271) * lu(k,1471) - lu(k,1474) = lu(k,1474) - lu(k,1272) * lu(k,1471) - lu(k,1475) = lu(k,1475) - lu(k,1273) * lu(k,1471) - lu(k,1476) = lu(k,1476) - lu(k,1274) * lu(k,1471) - lu(k,1477) = lu(k,1477) - lu(k,1275) * lu(k,1471) - lu(k,1478) = lu(k,1478) - lu(k,1276) * lu(k,1471) - lu(k,1479) = lu(k,1479) - lu(k,1277) * lu(k,1471) - lu(k,1480) = lu(k,1480) - lu(k,1278) * lu(k,1471) - lu(k,1481) = lu(k,1481) - lu(k,1279) * lu(k,1471) - lu(k,1482) = lu(k,1482) - lu(k,1280) * lu(k,1471) - lu(k,1483) = lu(k,1483) - lu(k,1281) * lu(k,1471) - lu(k,1484) = lu(k,1484) - lu(k,1282) * lu(k,1471) - lu(k,1515) = lu(k,1515) - lu(k,1270) * lu(k,1514) - lu(k,1516) = lu(k,1516) - lu(k,1271) * lu(k,1514) - lu(k,1517) = lu(k,1517) - lu(k,1272) * lu(k,1514) - lu(k,1518) = lu(k,1518) - lu(k,1273) * lu(k,1514) - lu(k,1519) = lu(k,1519) - lu(k,1274) * lu(k,1514) - lu(k,1520) = lu(k,1520) - lu(k,1275) * lu(k,1514) - lu(k,1521) = lu(k,1521) - lu(k,1276) * lu(k,1514) - lu(k,1522) = lu(k,1522) - lu(k,1277) * lu(k,1514) - lu(k,1523) = lu(k,1523) - lu(k,1278) * lu(k,1514) - lu(k,1524) = lu(k,1524) - lu(k,1279) * lu(k,1514) - lu(k,1525) = lu(k,1525) - lu(k,1280) * lu(k,1514) - lu(k,1526) = lu(k,1526) - lu(k,1281) * lu(k,1514) - lu(k,1527) = lu(k,1527) - lu(k,1282) * lu(k,1514) - lu(k,1558) = lu(k,1558) - lu(k,1270) * lu(k,1557) - lu(k,1559) = lu(k,1559) - lu(k,1271) * lu(k,1557) - lu(k,1560) = lu(k,1560) - lu(k,1272) * lu(k,1557) - lu(k,1561) = lu(k,1561) - lu(k,1273) * lu(k,1557) - lu(k,1562) = lu(k,1562) - lu(k,1274) * lu(k,1557) - lu(k,1563) = lu(k,1563) - lu(k,1275) * lu(k,1557) - lu(k,1564) = lu(k,1564) - lu(k,1276) * lu(k,1557) - lu(k,1565) = lu(k,1565) - lu(k,1277) * lu(k,1557) - lu(k,1566) = lu(k,1566) - lu(k,1278) * lu(k,1557) - lu(k,1567) = lu(k,1567) - lu(k,1279) * lu(k,1557) - lu(k,1568) = lu(k,1568) - lu(k,1280) * lu(k,1557) - lu(k,1569) = lu(k,1569) - lu(k,1281) * lu(k,1557) - lu(k,1570) = lu(k,1570) - lu(k,1282) * lu(k,1557) - lu(k,1591) = lu(k,1591) - lu(k,1270) * lu(k,1590) - lu(k,1592) = lu(k,1592) - lu(k,1271) * lu(k,1590) - lu(k,1593) = lu(k,1593) - lu(k,1272) * lu(k,1590) - lu(k,1594) = lu(k,1594) - lu(k,1273) * lu(k,1590) - lu(k,1595) = lu(k,1595) - lu(k,1274) * lu(k,1590) - lu(k,1596) = lu(k,1596) - lu(k,1275) * lu(k,1590) - lu(k,1597) = lu(k,1597) - lu(k,1276) * lu(k,1590) - lu(k,1598) = lu(k,1598) - lu(k,1277) * lu(k,1590) - lu(k,1599) = lu(k,1599) - lu(k,1278) * lu(k,1590) - lu(k,1600) = lu(k,1600) - lu(k,1279) * lu(k,1590) - lu(k,1601) = lu(k,1601) - lu(k,1280) * lu(k,1590) - lu(k,1602) = lu(k,1602) - lu(k,1281) * lu(k,1590) - lu(k,1603) = lu(k,1603) - lu(k,1282) * lu(k,1590) - lu(k,1627) = lu(k,1627) - lu(k,1270) * lu(k,1626) - lu(k,1628) = lu(k,1628) - lu(k,1271) * lu(k,1626) - lu(k,1629) = lu(k,1629) - lu(k,1272) * lu(k,1626) - lu(k,1630) = lu(k,1630) - lu(k,1273) * lu(k,1626) - lu(k,1631) = lu(k,1631) - lu(k,1274) * lu(k,1626) - lu(k,1632) = lu(k,1632) - lu(k,1275) * lu(k,1626) - lu(k,1633) = lu(k,1633) - lu(k,1276) * lu(k,1626) - lu(k,1634) = lu(k,1634) - lu(k,1277) * lu(k,1626) - lu(k,1635) = lu(k,1635) - lu(k,1278) * lu(k,1626) - lu(k,1636) = lu(k,1636) - lu(k,1279) * lu(k,1626) - lu(k,1637) = lu(k,1637) - lu(k,1280) * lu(k,1626) - lu(k,1638) = lu(k,1638) - lu(k,1281) * lu(k,1626) - lu(k,1639) = lu(k,1639) - lu(k,1282) * lu(k,1626) - lu(k,1670) = lu(k,1670) - lu(k,1270) * lu(k,1669) - lu(k,1671) = lu(k,1671) - lu(k,1271) * lu(k,1669) - lu(k,1672) = lu(k,1672) - lu(k,1272) * lu(k,1669) - lu(k,1673) = lu(k,1673) - lu(k,1273) * lu(k,1669) - lu(k,1674) = lu(k,1674) - lu(k,1274) * lu(k,1669) - lu(k,1675) = lu(k,1675) - lu(k,1275) * lu(k,1669) - lu(k,1676) = lu(k,1676) - lu(k,1276) * lu(k,1669) - lu(k,1677) = lu(k,1677) - lu(k,1277) * lu(k,1669) - lu(k,1678) = lu(k,1678) - lu(k,1278) * lu(k,1669) - lu(k,1679) = lu(k,1679) - lu(k,1279) * lu(k,1669) - lu(k,1680) = lu(k,1680) - lu(k,1280) * lu(k,1669) - lu(k,1681) = lu(k,1681) - lu(k,1281) * lu(k,1669) - lu(k,1682) = lu(k,1682) - lu(k,1282) * lu(k,1669) - lu(k,1706) = lu(k,1706) - lu(k,1270) * lu(k,1705) - lu(k,1707) = lu(k,1707) - lu(k,1271) * lu(k,1705) - lu(k,1708) = lu(k,1708) - lu(k,1272) * lu(k,1705) - lu(k,1709) = lu(k,1709) - lu(k,1273) * lu(k,1705) - lu(k,1710) = lu(k,1710) - lu(k,1274) * lu(k,1705) - lu(k,1711) = lu(k,1711) - lu(k,1275) * lu(k,1705) - lu(k,1712) = lu(k,1712) - lu(k,1276) * lu(k,1705) - lu(k,1713) = lu(k,1713) - lu(k,1277) * lu(k,1705) - lu(k,1714) = lu(k,1714) - lu(k,1278) * lu(k,1705) - lu(k,1715) = lu(k,1715) - lu(k,1279) * lu(k,1705) - lu(k,1716) = lu(k,1716) - lu(k,1280) * lu(k,1705) - lu(k,1717) = lu(k,1717) - lu(k,1281) * lu(k,1705) - lu(k,1718) = lu(k,1718) - lu(k,1282) * lu(k,1705) - lu(k,1751) = lu(k,1751) - lu(k,1270) * lu(k,1750) - lu(k,1752) = lu(k,1752) - lu(k,1271) * lu(k,1750) - lu(k,1753) = lu(k,1753) - lu(k,1272) * lu(k,1750) - lu(k,1754) = lu(k,1754) - lu(k,1273) * lu(k,1750) - lu(k,1755) = lu(k,1755) - lu(k,1274) * lu(k,1750) - lu(k,1756) = lu(k,1756) - lu(k,1275) * lu(k,1750) - lu(k,1757) = lu(k,1757) - lu(k,1276) * lu(k,1750) - lu(k,1758) = lu(k,1758) - lu(k,1277) * lu(k,1750) - lu(k,1759) = lu(k,1759) - lu(k,1278) * lu(k,1750) - lu(k,1760) = lu(k,1760) - lu(k,1279) * lu(k,1750) - lu(k,1761) = lu(k,1761) - lu(k,1280) * lu(k,1750) - lu(k,1762) = lu(k,1762) - lu(k,1281) * lu(k,1750) - lu(k,1763) = lu(k,1763) - lu(k,1282) * lu(k,1750) - lu(k,1804) = lu(k,1804) - lu(k,1270) * lu(k,1803) - lu(k,1805) = lu(k,1805) - lu(k,1271) * lu(k,1803) - lu(k,1806) = lu(k,1806) - lu(k,1272) * lu(k,1803) - lu(k,1807) = lu(k,1807) - lu(k,1273) * lu(k,1803) - lu(k,1808) = lu(k,1808) - lu(k,1274) * lu(k,1803) - lu(k,1809) = lu(k,1809) - lu(k,1275) * lu(k,1803) - lu(k,1810) = lu(k,1810) - lu(k,1276) * lu(k,1803) - lu(k,1811) = lu(k,1811) - lu(k,1277) * lu(k,1803) - lu(k,1812) = lu(k,1812) - lu(k,1278) * lu(k,1803) - lu(k,1813) = lu(k,1813) - lu(k,1279) * lu(k,1803) - lu(k,1814) = lu(k,1814) - lu(k,1280) * lu(k,1803) - lu(k,1815) = lu(k,1815) - lu(k,1281) * lu(k,1803) - lu(k,1816) = lu(k,1816) - lu(k,1282) * lu(k,1803) - 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,1306) = 1._r8 / lu(k,1306) - lu(k,1307) = lu(k,1307) * lu(k,1306) - lu(k,1308) = lu(k,1308) * lu(k,1306) - lu(k,1309) = lu(k,1309) * lu(k,1306) - lu(k,1310) = lu(k,1310) * lu(k,1306) - lu(k,1311) = lu(k,1311) * lu(k,1306) - lu(k,1312) = lu(k,1312) * lu(k,1306) - lu(k,1313) = lu(k,1313) * lu(k,1306) - lu(k,1314) = lu(k,1314) * lu(k,1306) - lu(k,1315) = lu(k,1315) * lu(k,1306) - lu(k,1316) = lu(k,1316) * lu(k,1306) - lu(k,1317) = lu(k,1317) * lu(k,1306) - lu(k,1318) = lu(k,1318) * lu(k,1306) - lu(k,1352) = lu(k,1352) - lu(k,1307) * lu(k,1351) - lu(k,1353) = lu(k,1353) - lu(k,1308) * lu(k,1351) - lu(k,1354) = lu(k,1354) - lu(k,1309) * lu(k,1351) - lu(k,1355) = lu(k,1355) - lu(k,1310) * lu(k,1351) - lu(k,1356) = lu(k,1356) - lu(k,1311) * lu(k,1351) - lu(k,1357) = lu(k,1357) - lu(k,1312) * lu(k,1351) - lu(k,1358) = lu(k,1358) - lu(k,1313) * lu(k,1351) - lu(k,1359) = lu(k,1359) - lu(k,1314) * lu(k,1351) - lu(k,1360) = lu(k,1360) - lu(k,1315) * lu(k,1351) - lu(k,1361) = lu(k,1361) - lu(k,1316) * lu(k,1351) - lu(k,1362) = lu(k,1362) - lu(k,1317) * lu(k,1351) - lu(k,1363) = lu(k,1363) - lu(k,1318) * lu(k,1351) - lu(k,1395) = lu(k,1395) - lu(k,1307) * lu(k,1394) - lu(k,1396) = lu(k,1396) - lu(k,1308) * lu(k,1394) - lu(k,1397) = lu(k,1397) - lu(k,1309) * lu(k,1394) - lu(k,1398) = lu(k,1398) - lu(k,1310) * lu(k,1394) - lu(k,1399) = lu(k,1399) - lu(k,1311) * lu(k,1394) - lu(k,1400) = lu(k,1400) - lu(k,1312) * lu(k,1394) - lu(k,1401) = lu(k,1401) - lu(k,1313) * lu(k,1394) - lu(k,1402) = lu(k,1402) - lu(k,1314) * lu(k,1394) - lu(k,1403) = lu(k,1403) - lu(k,1315) * lu(k,1394) - lu(k,1404) = lu(k,1404) - lu(k,1316) * lu(k,1394) - lu(k,1405) = lu(k,1405) - lu(k,1317) * lu(k,1394) - lu(k,1406) = lu(k,1406) - lu(k,1318) * lu(k,1394) - lu(k,1430) = lu(k,1430) - lu(k,1307) * lu(k,1429) - lu(k,1431) = lu(k,1431) - lu(k,1308) * lu(k,1429) - lu(k,1432) = lu(k,1432) - lu(k,1309) * lu(k,1429) - lu(k,1433) = lu(k,1433) - lu(k,1310) * lu(k,1429) - lu(k,1434) = lu(k,1434) - lu(k,1311) * lu(k,1429) - lu(k,1435) = lu(k,1435) - lu(k,1312) * lu(k,1429) - lu(k,1436) = lu(k,1436) - lu(k,1313) * lu(k,1429) - lu(k,1437) = lu(k,1437) - lu(k,1314) * lu(k,1429) - lu(k,1438) = lu(k,1438) - lu(k,1315) * lu(k,1429) - lu(k,1439) = lu(k,1439) - lu(k,1316) * lu(k,1429) - lu(k,1440) = lu(k,1440) - lu(k,1317) * lu(k,1429) - lu(k,1441) = lu(k,1441) - lu(k,1318) * lu(k,1429) - lu(k,1473) = lu(k,1473) - lu(k,1307) * lu(k,1472) - lu(k,1474) = lu(k,1474) - lu(k,1308) * lu(k,1472) - lu(k,1475) = lu(k,1475) - lu(k,1309) * lu(k,1472) - lu(k,1476) = lu(k,1476) - lu(k,1310) * lu(k,1472) - lu(k,1477) = lu(k,1477) - lu(k,1311) * lu(k,1472) - lu(k,1478) = lu(k,1478) - lu(k,1312) * lu(k,1472) - lu(k,1479) = lu(k,1479) - lu(k,1313) * lu(k,1472) - lu(k,1480) = lu(k,1480) - lu(k,1314) * lu(k,1472) - lu(k,1481) = lu(k,1481) - lu(k,1315) * lu(k,1472) - lu(k,1482) = lu(k,1482) - lu(k,1316) * lu(k,1472) - lu(k,1483) = lu(k,1483) - lu(k,1317) * lu(k,1472) - lu(k,1484) = lu(k,1484) - lu(k,1318) * lu(k,1472) - lu(k,1516) = lu(k,1516) - lu(k,1307) * lu(k,1515) - lu(k,1517) = lu(k,1517) - lu(k,1308) * lu(k,1515) - lu(k,1518) = lu(k,1518) - lu(k,1309) * lu(k,1515) - lu(k,1519) = lu(k,1519) - lu(k,1310) * lu(k,1515) - lu(k,1520) = lu(k,1520) - lu(k,1311) * lu(k,1515) - lu(k,1521) = lu(k,1521) - lu(k,1312) * lu(k,1515) - lu(k,1522) = lu(k,1522) - lu(k,1313) * lu(k,1515) - lu(k,1523) = lu(k,1523) - lu(k,1314) * lu(k,1515) - lu(k,1524) = lu(k,1524) - lu(k,1315) * lu(k,1515) - lu(k,1525) = lu(k,1525) - lu(k,1316) * lu(k,1515) - lu(k,1526) = lu(k,1526) - lu(k,1317) * lu(k,1515) - lu(k,1527) = lu(k,1527) - lu(k,1318) * lu(k,1515) - lu(k,1559) = lu(k,1559) - lu(k,1307) * lu(k,1558) - lu(k,1560) = lu(k,1560) - lu(k,1308) * lu(k,1558) - lu(k,1561) = lu(k,1561) - lu(k,1309) * lu(k,1558) - lu(k,1562) = lu(k,1562) - lu(k,1310) * lu(k,1558) - lu(k,1563) = lu(k,1563) - lu(k,1311) * lu(k,1558) - lu(k,1564) = lu(k,1564) - lu(k,1312) * lu(k,1558) - lu(k,1565) = lu(k,1565) - lu(k,1313) * lu(k,1558) - lu(k,1566) = lu(k,1566) - lu(k,1314) * lu(k,1558) - lu(k,1567) = lu(k,1567) - lu(k,1315) * lu(k,1558) - lu(k,1568) = lu(k,1568) - lu(k,1316) * lu(k,1558) - lu(k,1569) = lu(k,1569) - lu(k,1317) * lu(k,1558) - lu(k,1570) = lu(k,1570) - lu(k,1318) * lu(k,1558) - lu(k,1592) = lu(k,1592) - lu(k,1307) * lu(k,1591) - lu(k,1593) = lu(k,1593) - lu(k,1308) * lu(k,1591) - lu(k,1594) = lu(k,1594) - lu(k,1309) * lu(k,1591) - lu(k,1595) = lu(k,1595) - lu(k,1310) * lu(k,1591) - lu(k,1596) = lu(k,1596) - lu(k,1311) * lu(k,1591) - lu(k,1597) = lu(k,1597) - lu(k,1312) * lu(k,1591) - lu(k,1598) = lu(k,1598) - lu(k,1313) * lu(k,1591) - lu(k,1599) = lu(k,1599) - lu(k,1314) * lu(k,1591) - lu(k,1600) = lu(k,1600) - lu(k,1315) * lu(k,1591) - lu(k,1601) = lu(k,1601) - lu(k,1316) * lu(k,1591) - lu(k,1602) = lu(k,1602) - lu(k,1317) * lu(k,1591) - lu(k,1603) = lu(k,1603) - lu(k,1318) * lu(k,1591) - lu(k,1628) = lu(k,1628) - lu(k,1307) * lu(k,1627) - lu(k,1629) = lu(k,1629) - lu(k,1308) * lu(k,1627) - lu(k,1630) = lu(k,1630) - lu(k,1309) * lu(k,1627) - lu(k,1631) = lu(k,1631) - lu(k,1310) * lu(k,1627) - lu(k,1632) = lu(k,1632) - lu(k,1311) * lu(k,1627) - lu(k,1633) = lu(k,1633) - lu(k,1312) * lu(k,1627) - lu(k,1634) = lu(k,1634) - lu(k,1313) * lu(k,1627) - lu(k,1635) = lu(k,1635) - lu(k,1314) * lu(k,1627) - lu(k,1636) = lu(k,1636) - lu(k,1315) * lu(k,1627) - lu(k,1637) = lu(k,1637) - lu(k,1316) * lu(k,1627) - lu(k,1638) = lu(k,1638) - lu(k,1317) * lu(k,1627) - lu(k,1639) = lu(k,1639) - lu(k,1318) * lu(k,1627) - lu(k,1671) = lu(k,1671) - lu(k,1307) * lu(k,1670) - lu(k,1672) = lu(k,1672) - lu(k,1308) * lu(k,1670) - lu(k,1673) = lu(k,1673) - lu(k,1309) * lu(k,1670) - lu(k,1674) = lu(k,1674) - lu(k,1310) * lu(k,1670) - lu(k,1675) = lu(k,1675) - lu(k,1311) * lu(k,1670) - lu(k,1676) = lu(k,1676) - lu(k,1312) * lu(k,1670) - lu(k,1677) = lu(k,1677) - lu(k,1313) * lu(k,1670) - lu(k,1678) = lu(k,1678) - lu(k,1314) * lu(k,1670) - lu(k,1679) = lu(k,1679) - lu(k,1315) * lu(k,1670) - lu(k,1680) = lu(k,1680) - lu(k,1316) * lu(k,1670) - lu(k,1681) = lu(k,1681) - lu(k,1317) * lu(k,1670) - lu(k,1682) = lu(k,1682) - lu(k,1318) * lu(k,1670) - lu(k,1707) = lu(k,1707) - lu(k,1307) * lu(k,1706) - lu(k,1708) = lu(k,1708) - lu(k,1308) * lu(k,1706) - lu(k,1709) = lu(k,1709) - lu(k,1309) * lu(k,1706) - lu(k,1710) = lu(k,1710) - lu(k,1310) * lu(k,1706) - lu(k,1711) = lu(k,1711) - lu(k,1311) * lu(k,1706) - lu(k,1712) = lu(k,1712) - lu(k,1312) * lu(k,1706) - lu(k,1713) = lu(k,1713) - lu(k,1313) * lu(k,1706) - lu(k,1714) = lu(k,1714) - lu(k,1314) * lu(k,1706) - lu(k,1715) = lu(k,1715) - lu(k,1315) * lu(k,1706) - lu(k,1716) = lu(k,1716) - lu(k,1316) * lu(k,1706) - lu(k,1717) = lu(k,1717) - lu(k,1317) * lu(k,1706) - lu(k,1718) = lu(k,1718) - lu(k,1318) * lu(k,1706) - lu(k,1752) = lu(k,1752) - lu(k,1307) * lu(k,1751) - lu(k,1753) = lu(k,1753) - lu(k,1308) * lu(k,1751) - lu(k,1754) = lu(k,1754) - lu(k,1309) * lu(k,1751) - lu(k,1755) = lu(k,1755) - lu(k,1310) * lu(k,1751) - lu(k,1756) = lu(k,1756) - lu(k,1311) * lu(k,1751) - lu(k,1757) = lu(k,1757) - lu(k,1312) * lu(k,1751) - lu(k,1758) = lu(k,1758) - lu(k,1313) * lu(k,1751) - lu(k,1759) = lu(k,1759) - lu(k,1314) * lu(k,1751) - lu(k,1760) = lu(k,1760) - lu(k,1315) * lu(k,1751) - lu(k,1761) = lu(k,1761) - lu(k,1316) * lu(k,1751) - lu(k,1762) = lu(k,1762) - lu(k,1317) * lu(k,1751) - lu(k,1763) = lu(k,1763) - lu(k,1318) * lu(k,1751) - lu(k,1805) = lu(k,1805) - lu(k,1307) * lu(k,1804) - lu(k,1806) = lu(k,1806) - lu(k,1308) * lu(k,1804) - lu(k,1807) = lu(k,1807) - lu(k,1309) * lu(k,1804) - lu(k,1808) = lu(k,1808) - lu(k,1310) * lu(k,1804) - lu(k,1809) = lu(k,1809) - lu(k,1311) * lu(k,1804) - lu(k,1810) = lu(k,1810) - lu(k,1312) * lu(k,1804) - lu(k,1811) = lu(k,1811) - lu(k,1313) * lu(k,1804) - lu(k,1812) = lu(k,1812) - lu(k,1314) * lu(k,1804) - lu(k,1813) = lu(k,1813) - lu(k,1315) * lu(k,1804) - lu(k,1814) = lu(k,1814) - lu(k,1316) * lu(k,1804) - lu(k,1815) = lu(k,1815) - lu(k,1317) * lu(k,1804) - lu(k,1816) = lu(k,1816) - lu(k,1318) * lu(k,1804) - lu(k,1352) = 1._r8 / lu(k,1352) - lu(k,1353) = lu(k,1353) * lu(k,1352) - lu(k,1354) = lu(k,1354) * lu(k,1352) - lu(k,1355) = lu(k,1355) * lu(k,1352) - lu(k,1356) = lu(k,1356) * lu(k,1352) - lu(k,1357) = lu(k,1357) * lu(k,1352) - lu(k,1358) = lu(k,1358) * lu(k,1352) - lu(k,1359) = lu(k,1359) * lu(k,1352) - lu(k,1360) = lu(k,1360) * lu(k,1352) - lu(k,1361) = lu(k,1361) * lu(k,1352) - lu(k,1362) = lu(k,1362) * lu(k,1352) - lu(k,1363) = lu(k,1363) * lu(k,1352) - lu(k,1396) = lu(k,1396) - lu(k,1353) * lu(k,1395) - lu(k,1397) = lu(k,1397) - lu(k,1354) * lu(k,1395) - lu(k,1398) = lu(k,1398) - lu(k,1355) * lu(k,1395) - lu(k,1399) = lu(k,1399) - lu(k,1356) * lu(k,1395) - lu(k,1400) = lu(k,1400) - lu(k,1357) * lu(k,1395) - lu(k,1401) = lu(k,1401) - lu(k,1358) * lu(k,1395) - lu(k,1402) = lu(k,1402) - lu(k,1359) * lu(k,1395) - lu(k,1403) = lu(k,1403) - lu(k,1360) * lu(k,1395) - lu(k,1404) = lu(k,1404) - lu(k,1361) * lu(k,1395) - lu(k,1405) = lu(k,1405) - lu(k,1362) * lu(k,1395) - lu(k,1406) = lu(k,1406) - lu(k,1363) * lu(k,1395) - lu(k,1431) = lu(k,1431) - lu(k,1353) * lu(k,1430) - lu(k,1432) = lu(k,1432) - lu(k,1354) * lu(k,1430) - lu(k,1433) = lu(k,1433) - lu(k,1355) * lu(k,1430) - lu(k,1434) = lu(k,1434) - lu(k,1356) * lu(k,1430) - lu(k,1435) = lu(k,1435) - lu(k,1357) * lu(k,1430) - lu(k,1436) = lu(k,1436) - lu(k,1358) * lu(k,1430) - lu(k,1437) = lu(k,1437) - lu(k,1359) * lu(k,1430) - lu(k,1438) = lu(k,1438) - lu(k,1360) * lu(k,1430) - lu(k,1439) = lu(k,1439) - lu(k,1361) * lu(k,1430) - lu(k,1440) = lu(k,1440) - lu(k,1362) * lu(k,1430) - lu(k,1441) = lu(k,1441) - lu(k,1363) * lu(k,1430) - lu(k,1474) = lu(k,1474) - lu(k,1353) * lu(k,1473) - lu(k,1475) = lu(k,1475) - lu(k,1354) * lu(k,1473) - lu(k,1476) = lu(k,1476) - lu(k,1355) * lu(k,1473) - lu(k,1477) = lu(k,1477) - lu(k,1356) * lu(k,1473) - lu(k,1478) = lu(k,1478) - lu(k,1357) * lu(k,1473) - lu(k,1479) = lu(k,1479) - lu(k,1358) * lu(k,1473) - lu(k,1480) = lu(k,1480) - lu(k,1359) * lu(k,1473) - lu(k,1481) = lu(k,1481) - lu(k,1360) * lu(k,1473) - lu(k,1482) = lu(k,1482) - lu(k,1361) * lu(k,1473) - lu(k,1483) = lu(k,1483) - lu(k,1362) * lu(k,1473) - lu(k,1484) = lu(k,1484) - lu(k,1363) * lu(k,1473) - lu(k,1517) = lu(k,1517) - lu(k,1353) * lu(k,1516) - lu(k,1518) = lu(k,1518) - lu(k,1354) * lu(k,1516) - lu(k,1519) = lu(k,1519) - lu(k,1355) * lu(k,1516) - lu(k,1520) = lu(k,1520) - lu(k,1356) * lu(k,1516) - lu(k,1521) = lu(k,1521) - lu(k,1357) * lu(k,1516) - lu(k,1522) = lu(k,1522) - lu(k,1358) * lu(k,1516) - lu(k,1523) = lu(k,1523) - lu(k,1359) * lu(k,1516) - lu(k,1524) = lu(k,1524) - lu(k,1360) * lu(k,1516) - lu(k,1525) = lu(k,1525) - lu(k,1361) * lu(k,1516) - lu(k,1526) = lu(k,1526) - lu(k,1362) * lu(k,1516) - lu(k,1527) = lu(k,1527) - lu(k,1363) * lu(k,1516) - lu(k,1560) = lu(k,1560) - lu(k,1353) * lu(k,1559) - lu(k,1561) = lu(k,1561) - lu(k,1354) * lu(k,1559) - lu(k,1562) = lu(k,1562) - lu(k,1355) * lu(k,1559) - lu(k,1563) = lu(k,1563) - lu(k,1356) * lu(k,1559) - lu(k,1564) = lu(k,1564) - lu(k,1357) * lu(k,1559) - lu(k,1565) = lu(k,1565) - lu(k,1358) * lu(k,1559) - lu(k,1566) = lu(k,1566) - lu(k,1359) * lu(k,1559) - lu(k,1567) = lu(k,1567) - lu(k,1360) * lu(k,1559) - lu(k,1568) = lu(k,1568) - lu(k,1361) * lu(k,1559) - lu(k,1569) = lu(k,1569) - lu(k,1362) * lu(k,1559) - lu(k,1570) = lu(k,1570) - lu(k,1363) * lu(k,1559) - lu(k,1593) = lu(k,1593) - lu(k,1353) * lu(k,1592) - lu(k,1594) = lu(k,1594) - lu(k,1354) * lu(k,1592) - lu(k,1595) = lu(k,1595) - lu(k,1355) * lu(k,1592) - lu(k,1596) = lu(k,1596) - lu(k,1356) * lu(k,1592) - lu(k,1597) = lu(k,1597) - lu(k,1357) * lu(k,1592) - lu(k,1598) = lu(k,1598) - lu(k,1358) * lu(k,1592) - lu(k,1599) = lu(k,1599) - lu(k,1359) * lu(k,1592) - lu(k,1600) = lu(k,1600) - lu(k,1360) * lu(k,1592) - lu(k,1601) = lu(k,1601) - lu(k,1361) * lu(k,1592) - lu(k,1602) = lu(k,1602) - lu(k,1362) * lu(k,1592) - lu(k,1603) = lu(k,1603) - lu(k,1363) * lu(k,1592) - lu(k,1629) = lu(k,1629) - lu(k,1353) * lu(k,1628) - lu(k,1630) = lu(k,1630) - lu(k,1354) * lu(k,1628) - lu(k,1631) = lu(k,1631) - lu(k,1355) * lu(k,1628) - lu(k,1632) = lu(k,1632) - lu(k,1356) * lu(k,1628) - lu(k,1633) = lu(k,1633) - lu(k,1357) * lu(k,1628) - lu(k,1634) = lu(k,1634) - lu(k,1358) * lu(k,1628) - lu(k,1635) = lu(k,1635) - lu(k,1359) * lu(k,1628) - lu(k,1636) = lu(k,1636) - lu(k,1360) * lu(k,1628) - lu(k,1637) = lu(k,1637) - lu(k,1361) * lu(k,1628) - lu(k,1638) = lu(k,1638) - lu(k,1362) * lu(k,1628) - lu(k,1639) = lu(k,1639) - lu(k,1363) * lu(k,1628) - lu(k,1672) = lu(k,1672) - lu(k,1353) * lu(k,1671) - lu(k,1673) = lu(k,1673) - lu(k,1354) * lu(k,1671) - lu(k,1674) = lu(k,1674) - lu(k,1355) * lu(k,1671) - lu(k,1675) = lu(k,1675) - lu(k,1356) * lu(k,1671) - lu(k,1676) = lu(k,1676) - lu(k,1357) * lu(k,1671) - lu(k,1677) = lu(k,1677) - lu(k,1358) * lu(k,1671) - lu(k,1678) = lu(k,1678) - lu(k,1359) * lu(k,1671) - lu(k,1679) = lu(k,1679) - lu(k,1360) * lu(k,1671) - lu(k,1680) = lu(k,1680) - lu(k,1361) * lu(k,1671) - lu(k,1681) = lu(k,1681) - lu(k,1362) * lu(k,1671) - lu(k,1682) = lu(k,1682) - lu(k,1363) * lu(k,1671) - lu(k,1708) = lu(k,1708) - lu(k,1353) * lu(k,1707) - lu(k,1709) = lu(k,1709) - lu(k,1354) * lu(k,1707) - lu(k,1710) = lu(k,1710) - lu(k,1355) * lu(k,1707) - lu(k,1711) = lu(k,1711) - lu(k,1356) * lu(k,1707) - lu(k,1712) = lu(k,1712) - lu(k,1357) * lu(k,1707) - lu(k,1713) = lu(k,1713) - lu(k,1358) * lu(k,1707) - lu(k,1714) = lu(k,1714) - lu(k,1359) * lu(k,1707) - lu(k,1715) = lu(k,1715) - lu(k,1360) * lu(k,1707) - lu(k,1716) = lu(k,1716) - lu(k,1361) * lu(k,1707) - lu(k,1717) = lu(k,1717) - lu(k,1362) * lu(k,1707) - lu(k,1718) = lu(k,1718) - lu(k,1363) * lu(k,1707) - lu(k,1753) = lu(k,1753) - lu(k,1353) * lu(k,1752) - lu(k,1754) = lu(k,1754) - lu(k,1354) * lu(k,1752) - lu(k,1755) = lu(k,1755) - lu(k,1355) * lu(k,1752) - lu(k,1756) = lu(k,1756) - lu(k,1356) * lu(k,1752) - lu(k,1757) = lu(k,1757) - lu(k,1357) * lu(k,1752) - lu(k,1758) = lu(k,1758) - lu(k,1358) * lu(k,1752) - lu(k,1759) = lu(k,1759) - lu(k,1359) * lu(k,1752) - lu(k,1760) = lu(k,1760) - lu(k,1360) * lu(k,1752) - lu(k,1761) = lu(k,1761) - lu(k,1361) * lu(k,1752) - lu(k,1762) = lu(k,1762) - lu(k,1362) * lu(k,1752) - lu(k,1763) = lu(k,1763) - lu(k,1363) * lu(k,1752) - lu(k,1806) = lu(k,1806) - lu(k,1353) * lu(k,1805) - lu(k,1807) = lu(k,1807) - lu(k,1354) * lu(k,1805) - lu(k,1808) = lu(k,1808) - lu(k,1355) * lu(k,1805) - lu(k,1809) = lu(k,1809) - lu(k,1356) * lu(k,1805) - lu(k,1810) = lu(k,1810) - lu(k,1357) * lu(k,1805) - lu(k,1811) = lu(k,1811) - lu(k,1358) * lu(k,1805) - lu(k,1812) = lu(k,1812) - lu(k,1359) * lu(k,1805) - lu(k,1813) = lu(k,1813) - lu(k,1360) * lu(k,1805) - lu(k,1814) = lu(k,1814) - lu(k,1361) * lu(k,1805) - lu(k,1815) = lu(k,1815) - lu(k,1362) * lu(k,1805) - lu(k,1816) = lu(k,1816) - lu(k,1363) * lu(k,1805) - lu(k,1396) = 1._r8 / lu(k,1396) - lu(k,1397) = lu(k,1397) * lu(k,1396) - lu(k,1398) = lu(k,1398) * lu(k,1396) - lu(k,1399) = lu(k,1399) * lu(k,1396) - lu(k,1400) = lu(k,1400) * lu(k,1396) - lu(k,1401) = lu(k,1401) * lu(k,1396) - lu(k,1402) = lu(k,1402) * lu(k,1396) - lu(k,1403) = lu(k,1403) * lu(k,1396) - lu(k,1404) = lu(k,1404) * lu(k,1396) - lu(k,1405) = lu(k,1405) * lu(k,1396) - lu(k,1406) = lu(k,1406) * lu(k,1396) - lu(k,1432) = lu(k,1432) - lu(k,1397) * lu(k,1431) - lu(k,1433) = lu(k,1433) - lu(k,1398) * lu(k,1431) - lu(k,1434) = lu(k,1434) - lu(k,1399) * lu(k,1431) - lu(k,1435) = lu(k,1435) - lu(k,1400) * lu(k,1431) - lu(k,1436) = lu(k,1436) - lu(k,1401) * lu(k,1431) - lu(k,1437) = lu(k,1437) - lu(k,1402) * lu(k,1431) - lu(k,1438) = lu(k,1438) - lu(k,1403) * lu(k,1431) - lu(k,1439) = lu(k,1439) - lu(k,1404) * lu(k,1431) - lu(k,1440) = lu(k,1440) - lu(k,1405) * lu(k,1431) - lu(k,1441) = lu(k,1441) - lu(k,1406) * lu(k,1431) - lu(k,1475) = lu(k,1475) - lu(k,1397) * lu(k,1474) - lu(k,1476) = lu(k,1476) - lu(k,1398) * lu(k,1474) - lu(k,1477) = lu(k,1477) - lu(k,1399) * lu(k,1474) - lu(k,1478) = lu(k,1478) - lu(k,1400) * lu(k,1474) - lu(k,1479) = lu(k,1479) - lu(k,1401) * lu(k,1474) - lu(k,1480) = lu(k,1480) - lu(k,1402) * lu(k,1474) - lu(k,1481) = lu(k,1481) - lu(k,1403) * lu(k,1474) - lu(k,1482) = lu(k,1482) - lu(k,1404) * lu(k,1474) - lu(k,1483) = lu(k,1483) - lu(k,1405) * lu(k,1474) - lu(k,1484) = lu(k,1484) - lu(k,1406) * lu(k,1474) - lu(k,1518) = lu(k,1518) - lu(k,1397) * lu(k,1517) - lu(k,1519) = lu(k,1519) - lu(k,1398) * lu(k,1517) - lu(k,1520) = lu(k,1520) - lu(k,1399) * lu(k,1517) - lu(k,1521) = lu(k,1521) - lu(k,1400) * lu(k,1517) - lu(k,1522) = lu(k,1522) - lu(k,1401) * lu(k,1517) - lu(k,1523) = lu(k,1523) - lu(k,1402) * lu(k,1517) - lu(k,1524) = lu(k,1524) - lu(k,1403) * lu(k,1517) - lu(k,1525) = lu(k,1525) - lu(k,1404) * lu(k,1517) - lu(k,1526) = lu(k,1526) - lu(k,1405) * lu(k,1517) - lu(k,1527) = lu(k,1527) - lu(k,1406) * lu(k,1517) - lu(k,1561) = lu(k,1561) - lu(k,1397) * lu(k,1560) - lu(k,1562) = lu(k,1562) - lu(k,1398) * lu(k,1560) - lu(k,1563) = lu(k,1563) - lu(k,1399) * lu(k,1560) - lu(k,1564) = lu(k,1564) - lu(k,1400) * lu(k,1560) - lu(k,1565) = lu(k,1565) - lu(k,1401) * lu(k,1560) - lu(k,1566) = lu(k,1566) - lu(k,1402) * lu(k,1560) - lu(k,1567) = lu(k,1567) - lu(k,1403) * lu(k,1560) - lu(k,1568) = lu(k,1568) - lu(k,1404) * lu(k,1560) - lu(k,1569) = lu(k,1569) - lu(k,1405) * lu(k,1560) - lu(k,1570) = lu(k,1570) - lu(k,1406) * lu(k,1560) - lu(k,1594) = lu(k,1594) - lu(k,1397) * lu(k,1593) - lu(k,1595) = lu(k,1595) - lu(k,1398) * lu(k,1593) - lu(k,1596) = lu(k,1596) - lu(k,1399) * lu(k,1593) - lu(k,1597) = lu(k,1597) - lu(k,1400) * lu(k,1593) - lu(k,1598) = lu(k,1598) - lu(k,1401) * lu(k,1593) - lu(k,1599) = lu(k,1599) - lu(k,1402) * lu(k,1593) - lu(k,1600) = lu(k,1600) - lu(k,1403) * lu(k,1593) - lu(k,1601) = lu(k,1601) - lu(k,1404) * lu(k,1593) - lu(k,1602) = lu(k,1602) - lu(k,1405) * lu(k,1593) - lu(k,1603) = lu(k,1603) - lu(k,1406) * lu(k,1593) - lu(k,1630) = lu(k,1630) - lu(k,1397) * lu(k,1629) - lu(k,1631) = lu(k,1631) - lu(k,1398) * lu(k,1629) - lu(k,1632) = lu(k,1632) - lu(k,1399) * lu(k,1629) - lu(k,1633) = lu(k,1633) - lu(k,1400) * lu(k,1629) - lu(k,1634) = lu(k,1634) - lu(k,1401) * lu(k,1629) - lu(k,1635) = lu(k,1635) - lu(k,1402) * lu(k,1629) - lu(k,1636) = lu(k,1636) - lu(k,1403) * lu(k,1629) - lu(k,1637) = lu(k,1637) - lu(k,1404) * lu(k,1629) - lu(k,1638) = lu(k,1638) - lu(k,1405) * lu(k,1629) - lu(k,1639) = lu(k,1639) - lu(k,1406) * lu(k,1629) - lu(k,1673) = lu(k,1673) - lu(k,1397) * lu(k,1672) - lu(k,1674) = lu(k,1674) - lu(k,1398) * lu(k,1672) - lu(k,1675) = lu(k,1675) - lu(k,1399) * lu(k,1672) - lu(k,1676) = lu(k,1676) - lu(k,1400) * lu(k,1672) - lu(k,1677) = lu(k,1677) - lu(k,1401) * lu(k,1672) - lu(k,1678) = lu(k,1678) - lu(k,1402) * lu(k,1672) - lu(k,1679) = lu(k,1679) - lu(k,1403) * lu(k,1672) - lu(k,1680) = lu(k,1680) - lu(k,1404) * lu(k,1672) - lu(k,1681) = lu(k,1681) - lu(k,1405) * lu(k,1672) - lu(k,1682) = lu(k,1682) - lu(k,1406) * lu(k,1672) - lu(k,1709) = lu(k,1709) - lu(k,1397) * lu(k,1708) - lu(k,1710) = lu(k,1710) - lu(k,1398) * lu(k,1708) - lu(k,1711) = lu(k,1711) - lu(k,1399) * lu(k,1708) - lu(k,1712) = lu(k,1712) - lu(k,1400) * lu(k,1708) - lu(k,1713) = lu(k,1713) - lu(k,1401) * lu(k,1708) - lu(k,1714) = lu(k,1714) - lu(k,1402) * lu(k,1708) - lu(k,1715) = lu(k,1715) - lu(k,1403) * lu(k,1708) - lu(k,1716) = lu(k,1716) - lu(k,1404) * lu(k,1708) - lu(k,1717) = lu(k,1717) - lu(k,1405) * lu(k,1708) - lu(k,1718) = lu(k,1718) - lu(k,1406) * lu(k,1708) - lu(k,1754) = lu(k,1754) - lu(k,1397) * lu(k,1753) - lu(k,1755) = lu(k,1755) - lu(k,1398) * lu(k,1753) - lu(k,1756) = lu(k,1756) - lu(k,1399) * lu(k,1753) - lu(k,1757) = lu(k,1757) - lu(k,1400) * lu(k,1753) - lu(k,1758) = lu(k,1758) - lu(k,1401) * lu(k,1753) - lu(k,1759) = lu(k,1759) - lu(k,1402) * lu(k,1753) - lu(k,1760) = lu(k,1760) - lu(k,1403) * lu(k,1753) - lu(k,1761) = lu(k,1761) - lu(k,1404) * lu(k,1753) - lu(k,1762) = lu(k,1762) - lu(k,1405) * lu(k,1753) - lu(k,1763) = lu(k,1763) - lu(k,1406) * lu(k,1753) - lu(k,1807) = lu(k,1807) - lu(k,1397) * lu(k,1806) - lu(k,1808) = lu(k,1808) - lu(k,1398) * lu(k,1806) - lu(k,1809) = lu(k,1809) - lu(k,1399) * lu(k,1806) - lu(k,1810) = lu(k,1810) - lu(k,1400) * lu(k,1806) - lu(k,1811) = lu(k,1811) - lu(k,1401) * lu(k,1806) - lu(k,1812) = lu(k,1812) - lu(k,1402) * lu(k,1806) - lu(k,1813) = lu(k,1813) - lu(k,1403) * lu(k,1806) - lu(k,1814) = lu(k,1814) - lu(k,1404) * lu(k,1806) - lu(k,1815) = lu(k,1815) - lu(k,1405) * lu(k,1806) - lu(k,1816) = lu(k,1816) - lu(k,1406) * lu(k,1806) - lu(k,1432) = 1._r8 / lu(k,1432) - lu(k,1433) = lu(k,1433) * lu(k,1432) - lu(k,1434) = lu(k,1434) * lu(k,1432) - lu(k,1435) = lu(k,1435) * lu(k,1432) - lu(k,1436) = lu(k,1436) * lu(k,1432) - lu(k,1437) = lu(k,1437) * lu(k,1432) - lu(k,1438) = lu(k,1438) * lu(k,1432) - lu(k,1439) = lu(k,1439) * lu(k,1432) - lu(k,1440) = lu(k,1440) * lu(k,1432) - lu(k,1441) = lu(k,1441) * lu(k,1432) - lu(k,1476) = lu(k,1476) - lu(k,1433) * lu(k,1475) - lu(k,1477) = lu(k,1477) - lu(k,1434) * lu(k,1475) - lu(k,1478) = lu(k,1478) - lu(k,1435) * lu(k,1475) - lu(k,1479) = lu(k,1479) - lu(k,1436) * lu(k,1475) - lu(k,1480) = lu(k,1480) - lu(k,1437) * lu(k,1475) - lu(k,1481) = lu(k,1481) - lu(k,1438) * lu(k,1475) - lu(k,1482) = lu(k,1482) - lu(k,1439) * lu(k,1475) - lu(k,1483) = lu(k,1483) - lu(k,1440) * lu(k,1475) - lu(k,1484) = lu(k,1484) - lu(k,1441) * lu(k,1475) - lu(k,1519) = lu(k,1519) - lu(k,1433) * lu(k,1518) - lu(k,1520) = lu(k,1520) - lu(k,1434) * lu(k,1518) - lu(k,1521) = lu(k,1521) - lu(k,1435) * lu(k,1518) - lu(k,1522) = lu(k,1522) - lu(k,1436) * lu(k,1518) - lu(k,1523) = lu(k,1523) - lu(k,1437) * lu(k,1518) - lu(k,1524) = lu(k,1524) - lu(k,1438) * lu(k,1518) - lu(k,1525) = lu(k,1525) - lu(k,1439) * lu(k,1518) - lu(k,1526) = lu(k,1526) - lu(k,1440) * lu(k,1518) - lu(k,1527) = lu(k,1527) - lu(k,1441) * lu(k,1518) - lu(k,1562) = lu(k,1562) - lu(k,1433) * lu(k,1561) - lu(k,1563) = lu(k,1563) - lu(k,1434) * lu(k,1561) - lu(k,1564) = lu(k,1564) - lu(k,1435) * lu(k,1561) - lu(k,1565) = lu(k,1565) - lu(k,1436) * lu(k,1561) - lu(k,1566) = lu(k,1566) - lu(k,1437) * lu(k,1561) - lu(k,1567) = lu(k,1567) - lu(k,1438) * lu(k,1561) - lu(k,1568) = lu(k,1568) - lu(k,1439) * lu(k,1561) - lu(k,1569) = lu(k,1569) - lu(k,1440) * lu(k,1561) - lu(k,1570) = lu(k,1570) - lu(k,1441) * lu(k,1561) - lu(k,1595) = lu(k,1595) - lu(k,1433) * lu(k,1594) - lu(k,1596) = lu(k,1596) - lu(k,1434) * lu(k,1594) - lu(k,1597) = lu(k,1597) - lu(k,1435) * lu(k,1594) - lu(k,1598) = lu(k,1598) - lu(k,1436) * lu(k,1594) - lu(k,1599) = lu(k,1599) - lu(k,1437) * lu(k,1594) - lu(k,1600) = lu(k,1600) - lu(k,1438) * lu(k,1594) - lu(k,1601) = lu(k,1601) - lu(k,1439) * lu(k,1594) - lu(k,1602) = lu(k,1602) - lu(k,1440) * lu(k,1594) - lu(k,1603) = lu(k,1603) - lu(k,1441) * lu(k,1594) - lu(k,1631) = lu(k,1631) - lu(k,1433) * lu(k,1630) - lu(k,1632) = lu(k,1632) - lu(k,1434) * lu(k,1630) - lu(k,1633) = lu(k,1633) - lu(k,1435) * lu(k,1630) - lu(k,1634) = lu(k,1634) - lu(k,1436) * lu(k,1630) - lu(k,1635) = lu(k,1635) - lu(k,1437) * lu(k,1630) - lu(k,1636) = lu(k,1636) - lu(k,1438) * lu(k,1630) - lu(k,1637) = lu(k,1637) - lu(k,1439) * lu(k,1630) - lu(k,1638) = lu(k,1638) - lu(k,1440) * lu(k,1630) - lu(k,1639) = lu(k,1639) - lu(k,1441) * lu(k,1630) - lu(k,1674) = lu(k,1674) - lu(k,1433) * lu(k,1673) - lu(k,1675) = lu(k,1675) - lu(k,1434) * lu(k,1673) - lu(k,1676) = lu(k,1676) - lu(k,1435) * lu(k,1673) - lu(k,1677) = lu(k,1677) - lu(k,1436) * lu(k,1673) - lu(k,1678) = lu(k,1678) - lu(k,1437) * lu(k,1673) - lu(k,1679) = lu(k,1679) - lu(k,1438) * lu(k,1673) - lu(k,1680) = lu(k,1680) - lu(k,1439) * lu(k,1673) - lu(k,1681) = lu(k,1681) - lu(k,1440) * lu(k,1673) - lu(k,1682) = lu(k,1682) - lu(k,1441) * lu(k,1673) - lu(k,1710) = lu(k,1710) - lu(k,1433) * lu(k,1709) - lu(k,1711) = lu(k,1711) - lu(k,1434) * lu(k,1709) - lu(k,1712) = lu(k,1712) - lu(k,1435) * lu(k,1709) - lu(k,1713) = lu(k,1713) - lu(k,1436) * lu(k,1709) - lu(k,1714) = lu(k,1714) - lu(k,1437) * lu(k,1709) - lu(k,1715) = lu(k,1715) - lu(k,1438) * lu(k,1709) - lu(k,1716) = lu(k,1716) - lu(k,1439) * lu(k,1709) - lu(k,1717) = lu(k,1717) - lu(k,1440) * lu(k,1709) - lu(k,1718) = lu(k,1718) - lu(k,1441) * lu(k,1709) - lu(k,1755) = lu(k,1755) - lu(k,1433) * lu(k,1754) - lu(k,1756) = lu(k,1756) - lu(k,1434) * lu(k,1754) - lu(k,1757) = lu(k,1757) - lu(k,1435) * lu(k,1754) - lu(k,1758) = lu(k,1758) - lu(k,1436) * lu(k,1754) - lu(k,1759) = lu(k,1759) - lu(k,1437) * lu(k,1754) - lu(k,1760) = lu(k,1760) - lu(k,1438) * lu(k,1754) - lu(k,1761) = lu(k,1761) - lu(k,1439) * lu(k,1754) - lu(k,1762) = lu(k,1762) - lu(k,1440) * lu(k,1754) - lu(k,1763) = lu(k,1763) - lu(k,1441) * lu(k,1754) - lu(k,1808) = lu(k,1808) - lu(k,1433) * lu(k,1807) - lu(k,1809) = lu(k,1809) - lu(k,1434) * lu(k,1807) - lu(k,1810) = lu(k,1810) - lu(k,1435) * lu(k,1807) - lu(k,1811) = lu(k,1811) - lu(k,1436) * lu(k,1807) - lu(k,1812) = lu(k,1812) - lu(k,1437) * lu(k,1807) - lu(k,1813) = lu(k,1813) - lu(k,1438) * lu(k,1807) - lu(k,1814) = lu(k,1814) - lu(k,1439) * lu(k,1807) - lu(k,1815) = lu(k,1815) - lu(k,1440) * lu(k,1807) - lu(k,1816) = lu(k,1816) - lu(k,1441) * lu(k,1807) - 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,1520) = lu(k,1520) - lu(k,1477) * lu(k,1519) - lu(k,1521) = lu(k,1521) - lu(k,1478) * lu(k,1519) - lu(k,1522) = lu(k,1522) - lu(k,1479) * lu(k,1519) - lu(k,1523) = lu(k,1523) - lu(k,1480) * lu(k,1519) - lu(k,1524) = lu(k,1524) - lu(k,1481) * lu(k,1519) - lu(k,1525) = lu(k,1525) - lu(k,1482) * lu(k,1519) - lu(k,1526) = lu(k,1526) - lu(k,1483) * lu(k,1519) - lu(k,1527) = lu(k,1527) - lu(k,1484) * lu(k,1519) - lu(k,1563) = lu(k,1563) - lu(k,1477) * lu(k,1562) - lu(k,1564) = lu(k,1564) - lu(k,1478) * lu(k,1562) - lu(k,1565) = lu(k,1565) - lu(k,1479) * lu(k,1562) - lu(k,1566) = lu(k,1566) - lu(k,1480) * lu(k,1562) - lu(k,1567) = lu(k,1567) - lu(k,1481) * lu(k,1562) - lu(k,1568) = lu(k,1568) - lu(k,1482) * lu(k,1562) - lu(k,1569) = lu(k,1569) - lu(k,1483) * lu(k,1562) - lu(k,1570) = lu(k,1570) - lu(k,1484) * lu(k,1562) - lu(k,1596) = lu(k,1596) - lu(k,1477) * lu(k,1595) - lu(k,1597) = lu(k,1597) - lu(k,1478) * lu(k,1595) - lu(k,1598) = lu(k,1598) - lu(k,1479) * lu(k,1595) - lu(k,1599) = lu(k,1599) - lu(k,1480) * lu(k,1595) - lu(k,1600) = lu(k,1600) - lu(k,1481) * lu(k,1595) - lu(k,1601) = lu(k,1601) - lu(k,1482) * lu(k,1595) - lu(k,1602) = lu(k,1602) - lu(k,1483) * lu(k,1595) - lu(k,1603) = lu(k,1603) - lu(k,1484) * lu(k,1595) - lu(k,1632) = lu(k,1632) - lu(k,1477) * lu(k,1631) - lu(k,1633) = lu(k,1633) - lu(k,1478) * lu(k,1631) - lu(k,1634) = lu(k,1634) - lu(k,1479) * lu(k,1631) - lu(k,1635) = lu(k,1635) - lu(k,1480) * lu(k,1631) - lu(k,1636) = lu(k,1636) - lu(k,1481) * lu(k,1631) - lu(k,1637) = lu(k,1637) - lu(k,1482) * lu(k,1631) - lu(k,1638) = lu(k,1638) - lu(k,1483) * lu(k,1631) - lu(k,1639) = lu(k,1639) - lu(k,1484) * lu(k,1631) - lu(k,1675) = lu(k,1675) - lu(k,1477) * lu(k,1674) - lu(k,1676) = lu(k,1676) - lu(k,1478) * lu(k,1674) - lu(k,1677) = lu(k,1677) - lu(k,1479) * lu(k,1674) - lu(k,1678) = lu(k,1678) - lu(k,1480) * lu(k,1674) - lu(k,1679) = lu(k,1679) - lu(k,1481) * lu(k,1674) - lu(k,1680) = lu(k,1680) - lu(k,1482) * lu(k,1674) - lu(k,1681) = lu(k,1681) - lu(k,1483) * lu(k,1674) - lu(k,1682) = lu(k,1682) - lu(k,1484) * lu(k,1674) - 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,1756) = lu(k,1756) - lu(k,1477) * lu(k,1755) - lu(k,1757) = lu(k,1757) - lu(k,1478) * lu(k,1755) - lu(k,1758) = lu(k,1758) - lu(k,1479) * lu(k,1755) - lu(k,1759) = lu(k,1759) - lu(k,1480) * lu(k,1755) - lu(k,1760) = lu(k,1760) - lu(k,1481) * lu(k,1755) - lu(k,1761) = lu(k,1761) - lu(k,1482) * lu(k,1755) - lu(k,1762) = lu(k,1762) - lu(k,1483) * lu(k,1755) - lu(k,1763) = lu(k,1763) - lu(k,1484) * lu(k,1755) - lu(k,1809) = lu(k,1809) - lu(k,1477) * lu(k,1808) - lu(k,1810) = lu(k,1810) - lu(k,1478) * lu(k,1808) - lu(k,1811) = lu(k,1811) - lu(k,1479) * lu(k,1808) - lu(k,1812) = lu(k,1812) - lu(k,1480) * lu(k,1808) - lu(k,1813) = lu(k,1813) - lu(k,1481) * lu(k,1808) - lu(k,1814) = lu(k,1814) - lu(k,1482) * lu(k,1808) - lu(k,1815) = lu(k,1815) - lu(k,1483) * lu(k,1808) - lu(k,1816) = lu(k,1816) - lu(k,1484) * lu(k,1808) - 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,1520) = 1._r8 / lu(k,1520) - lu(k,1521) = lu(k,1521) * lu(k,1520) - lu(k,1522) = lu(k,1522) * lu(k,1520) - lu(k,1523) = lu(k,1523) * lu(k,1520) - lu(k,1524) = lu(k,1524) * lu(k,1520) - lu(k,1525) = lu(k,1525) * lu(k,1520) - lu(k,1526) = lu(k,1526) * lu(k,1520) - lu(k,1527) = lu(k,1527) * lu(k,1520) - lu(k,1564) = lu(k,1564) - lu(k,1521) * lu(k,1563) - lu(k,1565) = lu(k,1565) - lu(k,1522) * lu(k,1563) - lu(k,1566) = lu(k,1566) - lu(k,1523) * lu(k,1563) - lu(k,1567) = lu(k,1567) - lu(k,1524) * lu(k,1563) - lu(k,1568) = lu(k,1568) - lu(k,1525) * lu(k,1563) - lu(k,1569) = lu(k,1569) - lu(k,1526) * lu(k,1563) - lu(k,1570) = lu(k,1570) - lu(k,1527) * lu(k,1563) - lu(k,1597) = lu(k,1597) - lu(k,1521) * lu(k,1596) - lu(k,1598) = lu(k,1598) - lu(k,1522) * lu(k,1596) - lu(k,1599) = lu(k,1599) - lu(k,1523) * lu(k,1596) - lu(k,1600) = lu(k,1600) - lu(k,1524) * lu(k,1596) - lu(k,1601) = lu(k,1601) - lu(k,1525) * lu(k,1596) - lu(k,1602) = lu(k,1602) - lu(k,1526) * lu(k,1596) - lu(k,1603) = lu(k,1603) - lu(k,1527) * lu(k,1596) - lu(k,1633) = lu(k,1633) - lu(k,1521) * lu(k,1632) - lu(k,1634) = lu(k,1634) - lu(k,1522) * lu(k,1632) - lu(k,1635) = lu(k,1635) - lu(k,1523) * lu(k,1632) - lu(k,1636) = lu(k,1636) - lu(k,1524) * lu(k,1632) - lu(k,1637) = lu(k,1637) - lu(k,1525) * lu(k,1632) - lu(k,1638) = lu(k,1638) - lu(k,1526) * lu(k,1632) - lu(k,1639) = lu(k,1639) - lu(k,1527) * lu(k,1632) - lu(k,1676) = lu(k,1676) - lu(k,1521) * lu(k,1675) - lu(k,1677) = lu(k,1677) - lu(k,1522) * lu(k,1675) - lu(k,1678) = lu(k,1678) - lu(k,1523) * lu(k,1675) - lu(k,1679) = lu(k,1679) - lu(k,1524) * lu(k,1675) - lu(k,1680) = lu(k,1680) - lu(k,1525) * lu(k,1675) - lu(k,1681) = lu(k,1681) - lu(k,1526) * lu(k,1675) - lu(k,1682) = lu(k,1682) - lu(k,1527) * lu(k,1675) - lu(k,1712) = lu(k,1712) - lu(k,1521) * lu(k,1711) - lu(k,1713) = lu(k,1713) - lu(k,1522) * lu(k,1711) - lu(k,1714) = lu(k,1714) - lu(k,1523) * lu(k,1711) - lu(k,1715) = lu(k,1715) - lu(k,1524) * lu(k,1711) - lu(k,1716) = lu(k,1716) - lu(k,1525) * lu(k,1711) - lu(k,1717) = lu(k,1717) - lu(k,1526) * lu(k,1711) - lu(k,1718) = lu(k,1718) - lu(k,1527) * lu(k,1711) - lu(k,1757) = lu(k,1757) - lu(k,1521) * lu(k,1756) - lu(k,1758) = lu(k,1758) - lu(k,1522) * lu(k,1756) - lu(k,1759) = lu(k,1759) - lu(k,1523) * lu(k,1756) - lu(k,1760) = lu(k,1760) - lu(k,1524) * lu(k,1756) - lu(k,1761) = lu(k,1761) - lu(k,1525) * lu(k,1756) - lu(k,1762) = lu(k,1762) - lu(k,1526) * lu(k,1756) - lu(k,1763) = lu(k,1763) - lu(k,1527) * lu(k,1756) - lu(k,1810) = lu(k,1810) - lu(k,1521) * lu(k,1809) - lu(k,1811) = lu(k,1811) - lu(k,1522) * lu(k,1809) - lu(k,1812) = lu(k,1812) - lu(k,1523) * lu(k,1809) - lu(k,1813) = lu(k,1813) - lu(k,1524) * lu(k,1809) - lu(k,1814) = lu(k,1814) - lu(k,1525) * lu(k,1809) - lu(k,1815) = lu(k,1815) - lu(k,1526) * lu(k,1809) - lu(k,1816) = lu(k,1816) - lu(k,1527) * lu(k,1809) - lu(k,1564) = 1._r8 / lu(k,1564) - lu(k,1565) = lu(k,1565) * lu(k,1564) - lu(k,1566) = lu(k,1566) * lu(k,1564) - lu(k,1567) = lu(k,1567) * lu(k,1564) - lu(k,1568) = lu(k,1568) * lu(k,1564) - lu(k,1569) = lu(k,1569) * lu(k,1564) - lu(k,1570) = lu(k,1570) * lu(k,1564) - lu(k,1598) = lu(k,1598) - lu(k,1565) * lu(k,1597) - lu(k,1599) = lu(k,1599) - lu(k,1566) * lu(k,1597) - lu(k,1600) = lu(k,1600) - lu(k,1567) * lu(k,1597) - lu(k,1601) = lu(k,1601) - lu(k,1568) * lu(k,1597) - lu(k,1602) = lu(k,1602) - lu(k,1569) * lu(k,1597) - lu(k,1603) = lu(k,1603) - lu(k,1570) * lu(k,1597) - lu(k,1634) = lu(k,1634) - lu(k,1565) * lu(k,1633) - lu(k,1635) = lu(k,1635) - lu(k,1566) * lu(k,1633) - lu(k,1636) = lu(k,1636) - lu(k,1567) * lu(k,1633) - lu(k,1637) = lu(k,1637) - lu(k,1568) * lu(k,1633) - lu(k,1638) = lu(k,1638) - lu(k,1569) * lu(k,1633) - lu(k,1639) = lu(k,1639) - lu(k,1570) * lu(k,1633) - lu(k,1677) = lu(k,1677) - lu(k,1565) * lu(k,1676) - lu(k,1678) = lu(k,1678) - lu(k,1566) * lu(k,1676) - lu(k,1679) = lu(k,1679) - lu(k,1567) * lu(k,1676) - lu(k,1680) = lu(k,1680) - lu(k,1568) * lu(k,1676) - lu(k,1681) = lu(k,1681) - lu(k,1569) * lu(k,1676) - lu(k,1682) = lu(k,1682) - lu(k,1570) * lu(k,1676) - lu(k,1713) = lu(k,1713) - lu(k,1565) * lu(k,1712) - lu(k,1714) = lu(k,1714) - lu(k,1566) * lu(k,1712) - lu(k,1715) = lu(k,1715) - lu(k,1567) * lu(k,1712) - lu(k,1716) = lu(k,1716) - lu(k,1568) * lu(k,1712) - lu(k,1717) = lu(k,1717) - lu(k,1569) * lu(k,1712) - lu(k,1718) = lu(k,1718) - lu(k,1570) * lu(k,1712) - lu(k,1758) = lu(k,1758) - lu(k,1565) * lu(k,1757) - lu(k,1759) = lu(k,1759) - lu(k,1566) * lu(k,1757) - lu(k,1760) = lu(k,1760) - lu(k,1567) * lu(k,1757) - lu(k,1761) = lu(k,1761) - lu(k,1568) * lu(k,1757) - lu(k,1762) = lu(k,1762) - lu(k,1569) * lu(k,1757) - lu(k,1763) = lu(k,1763) - lu(k,1570) * lu(k,1757) - lu(k,1811) = lu(k,1811) - lu(k,1565) * lu(k,1810) - lu(k,1812) = lu(k,1812) - lu(k,1566) * lu(k,1810) - lu(k,1813) = lu(k,1813) - lu(k,1567) * lu(k,1810) - lu(k,1814) = lu(k,1814) - lu(k,1568) * lu(k,1810) - lu(k,1815) = lu(k,1815) - lu(k,1569) * lu(k,1810) - lu(k,1816) = lu(k,1816) - lu(k,1570) * lu(k,1810) - lu(k,1598) = 1._r8 / lu(k,1598) - lu(k,1599) = lu(k,1599) * lu(k,1598) - lu(k,1600) = lu(k,1600) * lu(k,1598) - lu(k,1601) = lu(k,1601) * lu(k,1598) - lu(k,1602) = lu(k,1602) * lu(k,1598) - lu(k,1603) = lu(k,1603) * lu(k,1598) - lu(k,1635) = lu(k,1635) - lu(k,1599) * lu(k,1634) - lu(k,1636) = lu(k,1636) - lu(k,1600) * lu(k,1634) - lu(k,1637) = lu(k,1637) - lu(k,1601) * lu(k,1634) - lu(k,1638) = lu(k,1638) - lu(k,1602) * lu(k,1634) - lu(k,1639) = lu(k,1639) - lu(k,1603) * lu(k,1634) - lu(k,1678) = lu(k,1678) - lu(k,1599) * lu(k,1677) - lu(k,1679) = lu(k,1679) - lu(k,1600) * lu(k,1677) - lu(k,1680) = lu(k,1680) - lu(k,1601) * lu(k,1677) - lu(k,1681) = lu(k,1681) - lu(k,1602) * lu(k,1677) - lu(k,1682) = lu(k,1682) - lu(k,1603) * lu(k,1677) - lu(k,1714) = lu(k,1714) - lu(k,1599) * lu(k,1713) - lu(k,1715) = lu(k,1715) - lu(k,1600) * lu(k,1713) - lu(k,1716) = lu(k,1716) - lu(k,1601) * lu(k,1713) - lu(k,1717) = lu(k,1717) - lu(k,1602) * lu(k,1713) - lu(k,1718) = lu(k,1718) - lu(k,1603) * lu(k,1713) - lu(k,1759) = lu(k,1759) - lu(k,1599) * lu(k,1758) - lu(k,1760) = lu(k,1760) - lu(k,1600) * lu(k,1758) - lu(k,1761) = lu(k,1761) - lu(k,1601) * lu(k,1758) - lu(k,1762) = lu(k,1762) - lu(k,1602) * lu(k,1758) - lu(k,1763) = lu(k,1763) - lu(k,1603) * lu(k,1758) - lu(k,1812) = lu(k,1812) - lu(k,1599) * lu(k,1811) - lu(k,1813) = lu(k,1813) - lu(k,1600) * lu(k,1811) - lu(k,1814) = lu(k,1814) - lu(k,1601) * lu(k,1811) - lu(k,1815) = lu(k,1815) - lu(k,1602) * lu(k,1811) - lu(k,1816) = lu(k,1816) - lu(k,1603) * lu(k,1811) - lu(k,1635) = 1._r8 / lu(k,1635) - lu(k,1636) = lu(k,1636) * lu(k,1635) - lu(k,1637) = lu(k,1637) * lu(k,1635) - lu(k,1638) = lu(k,1638) * lu(k,1635) - lu(k,1639) = lu(k,1639) * lu(k,1635) - lu(k,1679) = lu(k,1679) - lu(k,1636) * lu(k,1678) - lu(k,1680) = lu(k,1680) - lu(k,1637) * lu(k,1678) - lu(k,1681) = lu(k,1681) - lu(k,1638) * lu(k,1678) - lu(k,1682) = lu(k,1682) - lu(k,1639) * lu(k,1678) - lu(k,1715) = lu(k,1715) - lu(k,1636) * lu(k,1714) - lu(k,1716) = lu(k,1716) - lu(k,1637) * lu(k,1714) - lu(k,1717) = lu(k,1717) - lu(k,1638) * lu(k,1714) - lu(k,1718) = lu(k,1718) - lu(k,1639) * lu(k,1714) - lu(k,1760) = lu(k,1760) - lu(k,1636) * lu(k,1759) - lu(k,1761) = lu(k,1761) - lu(k,1637) * lu(k,1759) - lu(k,1762) = lu(k,1762) - lu(k,1638) * lu(k,1759) - lu(k,1763) = lu(k,1763) - lu(k,1639) * lu(k,1759) - lu(k,1813) = lu(k,1813) - lu(k,1636) * lu(k,1812) - lu(k,1814) = lu(k,1814) - lu(k,1637) * lu(k,1812) - lu(k,1815) = lu(k,1815) - lu(k,1638) * lu(k,1812) - lu(k,1816) = lu(k,1816) - lu(k,1639) * lu(k,1812) - lu(k,1679) = 1._r8 / lu(k,1679) - lu(k,1680) = lu(k,1680) * lu(k,1679) - lu(k,1681) = lu(k,1681) * lu(k,1679) - lu(k,1682) = lu(k,1682) * lu(k,1679) - lu(k,1716) = lu(k,1716) - lu(k,1680) * lu(k,1715) - lu(k,1717) = lu(k,1717) - lu(k,1681) * lu(k,1715) - lu(k,1718) = lu(k,1718) - lu(k,1682) * lu(k,1715) - lu(k,1761) = lu(k,1761) - lu(k,1680) * lu(k,1760) - lu(k,1762) = lu(k,1762) - lu(k,1681) * lu(k,1760) - lu(k,1763) = lu(k,1763) - lu(k,1682) * lu(k,1760) - lu(k,1814) = lu(k,1814) - lu(k,1680) * lu(k,1813) - lu(k,1815) = lu(k,1815) - lu(k,1681) * lu(k,1813) - lu(k,1816) = lu(k,1816) - lu(k,1682) * lu(k,1813) - 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,1762) = lu(k,1762) - lu(k,1717) * lu(k,1761) - lu(k,1763) = lu(k,1763) - lu(k,1718) * lu(k,1761) - lu(k,1815) = lu(k,1815) - lu(k,1717) * lu(k,1814) - lu(k,1816) = lu(k,1816) - lu(k,1718) * lu(k,1814) - lu(k,1762) = 1._r8 / lu(k,1762) - lu(k,1763) = lu(k,1763) * lu(k,1762) - lu(k,1816) = lu(k,1816) - lu(k,1763) * lu(k,1815) - lu(k,1816) = 1._r8 / lu(k,1816) - 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 cc135adcd4..8a583fcd40 100644 --- a/src/chemistry/pp_waccm_mad/mo_lu_solve.F90 +++ b/src/chemistry/pp_waccm_mad/mo_lu_solve.F90 @@ -1,2046 +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,78) = b(k,78) - lu(k,2) * b(k,1) - b(k,81) = b(k,81) - lu(k,3) * b(k,1) - b(k,31) = b(k,31) - lu(k,5) * b(k,2) - b(k,57) = b(k,57) - lu(k,6) * b(k,2) - b(k,74) = b(k,74) - lu(k,8) * b(k,3) - b(k,81) = b(k,81) - lu(k,9) * b(k,3) - b(k,78) = b(k,78) - lu(k,11) * b(k,4) - b(k,31) = b(k,31) - lu(k,13) * b(k,5) - b(k,57) = b(k,57) - lu(k,14) * b(k,5) - b(k,78) = b(k,78) - lu(k,15) * b(k,5) - b(k,44) = b(k,44) - lu(k,17) * b(k,6) - b(k,78) = b(k,78) - lu(k,18) * b(k,6) - b(k,31) = b(k,31) - lu(k,20) * b(k,7) - b(k,86) = b(k,86) - lu(k,21) * b(k,7) - b(k,73) = b(k,73) - lu(k,23) * b(k,8) - b(k,80) = b(k,80) - lu(k,24) * b(k,8) - b(k,88) = b(k,88) - lu(k,25) * b(k,8) - b(k,73) = b(k,73) - 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,37) = b(k,37) - lu(k,31) * b(k,10) - b(k,85) = b(k,85) - lu(k,32) * b(k,10) - b(k,22) = b(k,22) - lu(k,34) * b(k,11) - b(k,63) = b(k,63) - lu(k,35) * b(k,11) - b(k,68) = b(k,68) - 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,26) = b(k,26) - lu(k,46) * b(k,13) - b(k,65) = b(k,65) - lu(k,47) * b(k,13) - b(k,68) = b(k,68) - lu(k,48) * b(k,13) - b(k,69) = b(k,69) - 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,79) = b(k,79) - lu(k,54) * b(k,14) - b(k,85) = b(k,85) - lu(k,55) * b(k,14) - b(k,87) = b(k,87) - 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,20) = b(k,20) - lu(k,60) * b(k,15) - b(k,23) = b(k,23) - lu(k,61) * b(k,15) - b(k,34) = b(k,34) - lu(k,62) * b(k,15) - b(k,69) = b(k,69) - lu(k,63) * b(k,15) - b(k,74) = b(k,74) - lu(k,64) * b(k,15) - b(k,23) = b(k,23) - lu(k,66) * b(k,16) - b(k,34) = b(k,34) - lu(k,67) * b(k,16) - b(k,74) = b(k,74) - lu(k,68) * b(k,16) - b(k,77) = b(k,77) - lu(k,69) * b(k,16) - b(k,85) = b(k,85) - lu(k,70) * b(k,16) - b(k,40) = b(k,40) - lu(k,72) * b(k,17) - b(k,57) = b(k,57) - lu(k,73) * b(k,17) - b(k,69) = b(k,69) - lu(k,74) * b(k,17) - b(k,85) = b(k,85) - lu(k,75) * b(k,17) - b(k,30) = b(k,30) - lu(k,77) * b(k,18) - b(k,44) = b(k,44) - lu(k,78) * b(k,18) - b(k,52) = b(k,52) - lu(k,79) * b(k,18) - b(k,73) = b(k,73) - lu(k,80) * b(k,18) - b(k,74) = b(k,74) - lu(k,81) * b(k,18) - b(k,79) = b(k,79) - lu(k,82) * b(k,18) - b(k,87) = b(k,87) - lu(k,83) * b(k,18) - b(k,61) = b(k,61) - lu(k,85) * b(k,19) - b(k,63) = b(k,63) - lu(k,86) * b(k,19) - b(k,72) = b(k,72) - lu(k,87) * b(k,19) - b(k,74) = b(k,74) - lu(k,88) * b(k,19) - b(k,78) = b(k,78) - lu(k,89) * b(k,19) - b(k,88) = b(k,88) - lu(k,90) * b(k,19) - b(k,34) = b(k,34) - lu(k,92) * b(k,20) - b(k,40) = b(k,40) - lu(k,93) * b(k,20) - b(k,66) = b(k,66) - lu(k,94) * b(k,20) - b(k,74) = b(k,74) - lu(k,95) * b(k,20) - b(k,77) = b(k,77) - lu(k,96) * b(k,20) - b(k,85) = b(k,85) - lu(k,97) * b(k,20) - b(k,49) = b(k,49) - lu(k,99) * b(k,21) - b(k,59) = b(k,59) - lu(k,100) * b(k,21) - b(k,71) = b(k,71) - lu(k,101) * b(k,21) - b(k,74) = b(k,74) - lu(k,102) * b(k,21) - b(k,76) = b(k,76) - lu(k,103) * b(k,21) - b(k,85) = b(k,85) - lu(k,104) * b(k,21) - b(k,28) = b(k,28) - lu(k,106) * b(k,22) - b(k,65) = b(k,65) - lu(k,107) * b(k,22) - b(k,68) = b(k,68) - lu(k,108) * b(k,22) - b(k,86) = b(k,86) - lu(k,109) * b(k,22) - b(k,88) = b(k,88) - lu(k,110) * b(k,22) - b(k,34) = b(k,34) - lu(k,113) * b(k,23) - b(k,40) = b(k,40) - lu(k,114) * b(k,23) - b(k,57) = b(k,57) - lu(k,115) * b(k,23) - b(k,66) = b(k,66) - lu(k,116) * b(k,23) - b(k,68) = b(k,68) - lu(k,117) * b(k,23) - b(k,69) = b(k,69) - lu(k,118) * b(k,23) - b(k,74) = b(k,74) - lu(k,119) * b(k,23) - b(k,77) = b(k,77) - lu(k,120) * b(k,23) - b(k,85) = b(k,85) - lu(k,121) * b(k,23) - b(k,25) = b(k,25) - lu(k,123) * b(k,24) - b(k,66) = b(k,66) - lu(k,124) * b(k,24) - b(k,68) = b(k,68) - lu(k,125) * b(k,24) - b(k,69) = b(k,69) - lu(k,126) * b(k,24) - b(k,70) = b(k,70) - lu(k,127) * b(k,24) - b(k,71) = b(k,71) - lu(k,128) * b(k,24) - b(k,88) = b(k,88) - lu(k,129) * b(k,24) - b(k,66) = b(k,66) - lu(k,131) * b(k,25) - b(k,68) = b(k,68) - lu(k,132) * b(k,25) - b(k,69) = b(k,69) - lu(k,133) * b(k,25) - b(k,70) = b(k,70) - lu(k,134) * b(k,25) - b(k,71) = b(k,71) - lu(k,135) * b(k,25) - b(k,88) = b(k,88) - lu(k,136) * b(k,25) - b(k,63) = b(k,63) - lu(k,138) * b(k,26) - b(k,69) = b(k,69) - lu(k,139) * b(k,26) - b(k,87) = b(k,87) - lu(k,140) * b(k,26) - b(k,88) = b(k,88) - lu(k,141) * b(k,26) - b(k,61) = b(k,61) - lu(k,143) * b(k,27) - b(k,63) = b(k,63) - lu(k,144) * b(k,27) - b(k,71) = b(k,71) - lu(k,145) * b(k,27) - b(k,86) = b(k,86) - lu(k,146) * b(k,27) - b(k,65) = b(k,65) - lu(k,149) * b(k,28) - b(k,68) = b(k,68) - lu(k,150) * b(k,28) - b(k,86) = b(k,86) - lu(k,151) * b(k,28) - b(k,88) = b(k,88) - lu(k,152) * b(k,28) - b(k,63) = b(k,63) - lu(k,157) * b(k,29) - b(k,65) = b(k,65) - lu(k,158) * b(k,29) - b(k,68) = b(k,68) - lu(k,159) * b(k,29) - b(k,77) = b(k,77) - lu(k,160) * b(k,29) - b(k,85) = b(k,85) - lu(k,161) * b(k,29) - b(k,86) = b(k,86) - lu(k,162) * b(k,29) - b(k,88) = b(k,88) - lu(k,163) * b(k,29) - b(k,44) = b(k,44) - lu(k,166) * b(k,30) - b(k,52) = b(k,52) - lu(k,167) * b(k,30) - b(k,63) = b(k,63) - lu(k,168) * b(k,30) - b(k,72) = b(k,72) - lu(k,169) * b(k,30) - b(k,74) = b(k,74) - lu(k,170) * b(k,30) - b(k,78) = b(k,78) - lu(k,171) * b(k,30) - b(k,88) = b(k,88) - lu(k,172) * b(k,30) - b(k,39) = b(k,39) - lu(k,175) * b(k,31) - b(k,50) = b(k,50) - lu(k,176) * b(k,31) - b(k,63) = b(k,63) - lu(k,177) * b(k,31) - b(k,73) = b(k,73) - lu(k,178) * b(k,31) - b(k,79) = b(k,79) - lu(k,179) * b(k,31) - b(k,86) = b(k,86) - lu(k,180) * b(k,31) - b(k,88) = b(k,88) - lu(k,181) * b(k,31) - b(k,44) = b(k,44) - lu(k,183) * b(k,32) - b(k,52) = b(k,52) - lu(k,184) * b(k,32) - b(k,57) = b(k,57) - lu(k,185) * b(k,32) - b(k,63) = b(k,63) - lu(k,186) * b(k,32) - b(k,74) = b(k,74) - lu(k,187) * b(k,32) - b(k,86) = b(k,86) - lu(k,188) * b(k,32) - b(k,88) = b(k,88) - lu(k,189) * b(k,32) - b(k,63) = b(k,63) - lu(k,192) * b(k,33) - b(k,72) = b(k,72) - lu(k,193) * b(k,33) - b(k,74) = b(k,74) - lu(k,194) * b(k,33) - b(k,78) = b(k,78) - lu(k,195) * b(k,33) - b(k,81) = b(k,81) - lu(k,196) * b(k,33) - b(k,88) = b(k,88) - lu(k,197) * b(k,33) - b(k,40) = b(k,40) - lu(k,200) * b(k,34) - b(k,61) = b(k,61) - lu(k,201) * b(k,34) - b(k,63) = b(k,63) - lu(k,202) * b(k,34) - b(k,66) = b(k,66) - lu(k,203) * b(k,34) - b(k,71) = b(k,71) - lu(k,204) * b(k,34) - b(k,74) = b(k,74) - lu(k,205) * b(k,34) - b(k,77) = b(k,77) - lu(k,206) * b(k,34) - b(k,85) = b(k,85) - lu(k,207) * b(k,34) - b(k,86) = b(k,86) - lu(k,208) * b(k,34) - b(k,63) = b(k,63) - lu(k,212) * b(k,35) - b(k,72) = b(k,72) - lu(k,213) * b(k,35) - b(k,73) = b(k,73) - lu(k,214) * b(k,35) - b(k,74) = b(k,74) - lu(k,215) * b(k,35) - b(k,78) = b(k,78) - lu(k,216) * b(k,35) - b(k,79) = b(k,79) - lu(k,217) * b(k,35) - b(k,81) = b(k,81) - lu(k,218) * b(k,35) - b(k,87) = b(k,87) - lu(k,219) * b(k,35) - b(k,88) = b(k,88) - lu(k,220) * b(k,35) - b(k,58) = b(k,58) - lu(k,222) * b(k,36) - b(k,62) = b(k,62) - lu(k,223) * b(k,36) - b(k,69) = b(k,69) - lu(k,224) * b(k,36) - b(k,74) = b(k,74) - lu(k,225) * b(k,36) - b(k,78) = b(k,78) - lu(k,226) * b(k,36) - b(k,85) = b(k,85) - lu(k,227) * b(k,36) - b(k,87) = b(k,87) - lu(k,228) * b(k,36) - b(k,41) = b(k,41) - lu(k,230) * b(k,37) - b(k,68) = b(k,68) - lu(k,231) * b(k,37) - b(k,75) = b(k,75) - lu(k,232) * b(k,37) - b(k,76) = b(k,76) - lu(k,233) * b(k,37) - b(k,77) = b(k,77) - lu(k,234) * b(k,37) - b(k,84) = b(k,84) - lu(k,235) * b(k,37) - b(k,85) = b(k,85) - lu(k,236) * b(k,37) - b(k,51) = b(k,51) - lu(k,240) * b(k,38) - b(k,53) = b(k,53) - lu(k,241) * b(k,38) - b(k,55) = b(k,55) - lu(k,242) * b(k,38) - b(k,69) = b(k,69) - lu(k,243) * b(k,38) - b(k,73) = b(k,73) - lu(k,244) * b(k,38) - b(k,74) = b(k,74) - lu(k,245) * b(k,38) - b(k,79) = b(k,79) - lu(k,246) * b(k,38) - b(k,80) = b(k,80) - lu(k,247) * b(k,38) - b(k,82) = b(k,82) - lu(k,248) * b(k,38) - b(k,87) = b(k,87) - lu(k,249) * b(k,38) - b(k,88) = b(k,88) - lu(k,250) * b(k,38) - b(k,56) = b(k,56) - lu(k,253) * b(k,39) - b(k,61) = b(k,61) - lu(k,254) * b(k,39) - b(k,63) = b(k,63) - lu(k,255) * b(k,39) - b(k,69) = b(k,69) - lu(k,256) * b(k,39) - b(k,78) = b(k,78) - lu(k,257) * b(k,39) - b(k,81) = b(k,81) - lu(k,258) * b(k,39) - b(k,85) = b(k,85) - lu(k,259) * b(k,39) - b(k,86) = b(k,86) - lu(k,260) * b(k,39) - b(k,87) = b(k,87) - lu(k,261) * b(k,39) - b(k,88) = b(k,88) - lu(k,262) * b(k,39) - 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,61) = b(k,61) - lu(k,266) * b(k,40) - b(k,63) = b(k,63) - lu(k,267) * b(k,40) - b(k,66) = b(k,66) - lu(k,268) * b(k,40) - b(k,68) = b(k,68) - lu(k,269) * b(k,40) - b(k,69) = b(k,69) - lu(k,270) * b(k,40) - b(k,71) = b(k,71) - lu(k,271) * b(k,40) - b(k,74) = b(k,74) - lu(k,272) * b(k,40) - b(k,77) = b(k,77) - lu(k,273) * b(k,40) - b(k,85) = b(k,85) - lu(k,274) * b(k,40) - b(k,86) = b(k,86) - lu(k,275) * b(k,40) - b(k,87) = b(k,87) - lu(k,276) * b(k,40) - b(k,63) = b(k,63) - lu(k,280) * b(k,41) - b(k,65) = b(k,65) - lu(k,281) * b(k,41) - b(k,68) = b(k,68) - lu(k,282) * b(k,41) - b(k,74) = b(k,74) - lu(k,283) * b(k,41) - b(k,75) = b(k,75) - lu(k,284) * b(k,41) - b(k,76) = b(k,76) - lu(k,285) * b(k,41) - b(k,77) = b(k,77) - lu(k,286) * b(k,41) - b(k,84) = b(k,84) - lu(k,287) * b(k,41) - b(k,85) = b(k,85) - lu(k,288) * b(k,41) - b(k,86) = b(k,86) - lu(k,289) * b(k,41) - b(k,88) = b(k,88) - lu(k,290) * b(k,41) - b(k,63) = b(k,63) - lu(k,292) * b(k,42) - b(k,65) = b(k,65) - lu(k,293) * b(k,42) - b(k,66) = b(k,66) - lu(k,294) * b(k,42) - b(k,67) = b(k,67) - lu(k,295) * b(k,42) - b(k,69) = b(k,69) - lu(k,296) * b(k,42) - b(k,70) = b(k,70) - lu(k,297) * b(k,42) - b(k,71) = b(k,71) - lu(k,298) * b(k,42) - b(k,77) = b(k,77) - lu(k,299) * b(k,42) - b(k,80) = b(k,80) - lu(k,300) * b(k,42) - b(k,82) = b(k,82) - lu(k,301) * b(k,42) - b(k,85) = b(k,85) - lu(k,302) * b(k,42) - b(k,86) = b(k,86) - lu(k,303) * b(k,42) - b(k,88) = b(k,88) - lu(k,304) * b(k,42) - b(k,54) = b(k,54) - lu(k,306) * b(k,43) - b(k,65) = b(k,65) - lu(k,307) * b(k,43) - b(k,66) = b(k,66) - lu(k,308) * b(k,43) - b(k,67) = b(k,67) - lu(k,309) * b(k,43) - b(k,69) = b(k,69) - lu(k,310) * b(k,43) - b(k,70) = b(k,70) - lu(k,311) * b(k,43) - b(k,71) = b(k,71) - lu(k,312) * b(k,43) - b(k,74) = b(k,74) - lu(k,313) * b(k,43) - b(k,77) = b(k,77) - lu(k,314) * b(k,43) - b(k,80) = b(k,80) - lu(k,315) * b(k,43) - b(k,82) = b(k,82) - lu(k,316) * b(k,43) - b(k,85) = b(k,85) - lu(k,317) * b(k,43) - b(k,86) = b(k,86) - lu(k,318) * b(k,43) - b(k,88) = b(k,88) - lu(k,319) * b(k,43) - b(k,52) = b(k,52) - lu(k,323) * b(k,44) - b(k,56) = b(k,56) - lu(k,324) * b(k,44) - b(k,57) = b(k,57) - lu(k,325) * b(k,44) - b(k,61) = b(k,61) - lu(k,326) * b(k,44) - b(k,63) = b(k,63) - lu(k,327) * b(k,44) - b(k,71) = b(k,71) - lu(k,328) * b(k,44) - b(k,74) = b(k,74) - lu(k,329) * b(k,44) - b(k,75) = b(k,75) - lu(k,330) * b(k,44) - b(k,85) = b(k,85) - lu(k,331) * b(k,44) - b(k,86) = b(k,86) - lu(k,332) * b(k,44) - b(k,88) = b(k,88) - lu(k,333) * b(k,44) - b(k,58) = b(k,58) - lu(k,335) * b(k,45) - b(k,65) = b(k,65) - lu(k,336) * b(k,45) - b(k,66) = b(k,66) - lu(k,337) * b(k,45) - b(k,67) = b(k,67) - lu(k,338) * b(k,45) - b(k,69) = b(k,69) - lu(k,339) * b(k,45) - b(k,70) = b(k,70) - lu(k,340) * b(k,45) - b(k,72) = b(k,72) - lu(k,341) * b(k,45) - b(k,77) = b(k,77) - lu(k,342) * b(k,45) - b(k,78) = b(k,78) - lu(k,343) * b(k,45) - b(k,80) = b(k,80) - lu(k,344) * b(k,45) - b(k,82) = b(k,82) - lu(k,345) * b(k,45) - b(k,85) = b(k,85) - lu(k,346) * b(k,45) - b(k,86) = b(k,86) - lu(k,347) * b(k,45) - b(k,88) = b(k,88) - lu(k,348) * b(k,45) - b(k,58) = b(k,58) - lu(k,351) * b(k,46) - b(k,65) = b(k,65) - lu(k,352) * b(k,46) - b(k,66) = b(k,66) - lu(k,353) * b(k,46) - b(k,67) = b(k,67) - lu(k,354) * b(k,46) - b(k,69) = b(k,69) - lu(k,355) * b(k,46) - b(k,70) = b(k,70) - lu(k,356) * b(k,46) - b(k,72) = b(k,72) - lu(k,357) * b(k,46) - b(k,77) = b(k,77) - lu(k,358) * b(k,46) - b(k,78) = b(k,78) - lu(k,359) * b(k,46) - b(k,80) = b(k,80) - lu(k,360) * b(k,46) - b(k,82) = b(k,82) - lu(k,361) * b(k,46) - b(k,85) = b(k,85) - lu(k,362) * b(k,46) - b(k,86) = b(k,86) - lu(k,363) * b(k,46) - b(k,88) = b(k,88) - lu(k,364) * b(k,46) - b(k,62) = b(k,62) - lu(k,366) * b(k,47) - b(k,65) = b(k,65) - lu(k,367) * b(k,47) - b(k,66) = b(k,66) - lu(k,368) * b(k,47) - b(k,67) = b(k,67) - lu(k,369) * b(k,47) - b(k,69) = b(k,69) - lu(k,370) * b(k,47) - b(k,70) = b(k,70) - lu(k,371) * b(k,47) - b(k,77) = b(k,77) - lu(k,372) * b(k,47) - b(k,80) = b(k,80) - lu(k,373) * b(k,47) - b(k,82) = b(k,82) - lu(k,374) * b(k,47) - b(k,85) = b(k,85) - lu(k,375) * b(k,47) - b(k,86) = b(k,86) - lu(k,376) * b(k,47) - b(k,87) = b(k,87) - lu(k,377) * b(k,47) - b(k,88) = b(k,88) - lu(k,378) * b(k,47) - b(k,51) = b(k,51) - lu(k,380) * b(k,48) - b(k,65) = b(k,65) - lu(k,381) * b(k,48) - b(k,66) = b(k,66) - lu(k,382) * b(k,48) - b(k,67) = b(k,67) - lu(k,383) * b(k,48) - b(k,69) = b(k,69) - lu(k,384) * b(k,48) - b(k,70) = b(k,70) - lu(k,385) * b(k,48) - b(k,72) = b(k,72) - lu(k,386) * b(k,48) - b(k,73) = b(k,73) - lu(k,387) * b(k,48) - b(k,77) = b(k,77) - lu(k,388) * b(k,48) - b(k,79) = b(k,79) - lu(k,389) * b(k,48) - b(k,80) = b(k,80) - lu(k,390) * b(k,48) - b(k,82) = b(k,82) - lu(k,391) * b(k,48) - b(k,85) = b(k,85) - lu(k,392) * b(k,48) - b(k,86) = b(k,86) - lu(k,393) * b(k,48) - b(k,88) = b(k,88) - lu(k,394) * b(k,48) - b(k,60) = b(k,60) - lu(k,396) * b(k,49) - b(k,62) = b(k,62) - lu(k,397) * b(k,49) - b(k,64) = b(k,64) - lu(k,398) * b(k,49) - b(k,68) = b(k,68) - lu(k,399) * b(k,49) - b(k,69) = b(k,69) - lu(k,400) * b(k,49) - b(k,71) = b(k,71) - lu(k,401) * b(k,49) - b(k,74) = b(k,74) - lu(k,402) * b(k,49) - b(k,75) = b(k,75) - lu(k,403) * b(k,49) - b(k,76) = b(k,76) - lu(k,404) * b(k,49) - b(k,83) = b(k,83) - lu(k,405) * b(k,49) - b(k,84) = b(k,84) - lu(k,406) * b(k,49) - b(k,85) = b(k,85) - lu(k,407) * b(k,49) - b(k,86) = b(k,86) - lu(k,408) * b(k,49) - b(k,87) = b(k,87) - lu(k,409) * b(k,49) - b(k,56) = b(k,56) - lu(k,414) * b(k,50) - b(k,57) = b(k,57) - lu(k,415) * b(k,50) - b(k,61) = b(k,61) - lu(k,416) * b(k,50) - b(k,63) = b(k,63) - lu(k,417) * b(k,50) - b(k,68) = b(k,68) - lu(k,418) * b(k,50) - b(k,69) = b(k,69) - lu(k,419) * b(k,50) - b(k,72) = b(k,72) - lu(k,420) * b(k,50) - b(k,73) = b(k,73) - lu(k,421) * b(k,50) - b(k,74) = b(k,74) - lu(k,422) * b(k,50) - b(k,78) = b(k,78) - lu(k,423) * b(k,50) - b(k,79) = b(k,79) - lu(k,424) * b(k,50) - b(k,81) = b(k,81) - lu(k,425) * b(k,50) - b(k,83) = b(k,83) - lu(k,426) * b(k,50) - b(k,84) = b(k,84) - lu(k,427) * b(k,50) - b(k,85) = b(k,85) - lu(k,428) * b(k,50) - b(k,86) = b(k,86) - lu(k,429) * b(k,50) - b(k,87) = b(k,87) - lu(k,430) * b(k,50) - b(k,88) = b(k,88) - lu(k,431) * b(k,50) - b(k,60) = b(k,60) - lu(k,433) * b(k,51) - b(k,65) = b(k,65) - lu(k,434) * b(k,51) - b(k,66) = b(k,66) - lu(k,435) * b(k,51) - b(k,67) = b(k,67) - lu(k,436) * b(k,51) - b(k,69) = b(k,69) - lu(k,437) * b(k,51) - b(k,70) = b(k,70) - lu(k,438) * b(k,51) - b(k,73) = b(k,73) - lu(k,439) * b(k,51) - b(k,77) = b(k,77) - lu(k,440) * b(k,51) - b(k,79) = b(k,79) - lu(k,441) * b(k,51) - b(k,80) = b(k,80) - lu(k,442) * b(k,51) - b(k,82) = b(k,82) - lu(k,443) * b(k,51) - b(k,85) = b(k,85) - lu(k,444) * b(k,51) - b(k,88) = b(k,88) - lu(k,445) * b(k,51) - b(k,56) = b(k,56) - lu(k,452) * b(k,52) - b(k,57) = b(k,57) - lu(k,453) * b(k,52) - b(k,61) = b(k,61) - lu(k,454) * b(k,52) - b(k,63) = b(k,63) - lu(k,455) * b(k,52) - b(k,69) = b(k,69) - lu(k,456) * b(k,52) - b(k,71) = b(k,71) - lu(k,457) * b(k,52) - b(k,72) = b(k,72) - lu(k,458) * b(k,52) - b(k,73) = b(k,73) - lu(k,459) * b(k,52) - b(k,74) = b(k,74) - lu(k,460) * b(k,52) - b(k,75) = b(k,75) - lu(k,461) * b(k,52) - b(k,78) = b(k,78) - lu(k,462) * b(k,52) - b(k,79) = b(k,79) - lu(k,463) * b(k,52) - b(k,81) = b(k,81) - lu(k,464) * b(k,52) - b(k,85) = b(k,85) - lu(k,465) * b(k,52) - b(k,86) = b(k,86) - lu(k,466) * b(k,52) - b(k,87) = b(k,87) - lu(k,467) * b(k,52) - b(k,88) = b(k,88) - lu(k,468) * b(k,52) - b(k,55) = b(k,55) - lu(k,472) * b(k,53) - b(k,60) = b(k,60) - lu(k,473) * b(k,53) - b(k,65) = b(k,65) - lu(k,474) * b(k,53) - b(k,66) = b(k,66) - lu(k,475) * b(k,53) - b(k,67) = b(k,67) - lu(k,476) * b(k,53) - b(k,69) = b(k,69) - lu(k,477) * b(k,53) - b(k,70) = b(k,70) - lu(k,478) * b(k,53) - b(k,73) = b(k,73) - lu(k,479) * b(k,53) - b(k,74) = b(k,74) - lu(k,480) * b(k,53) - b(k,77) = b(k,77) - lu(k,481) * b(k,53) - b(k,79) = b(k,79) - lu(k,482) * b(k,53) - b(k,80) = b(k,80) - lu(k,483) * b(k,53) - b(k,82) = b(k,82) - lu(k,484) * b(k,53) - b(k,85) = b(k,85) - lu(k,485) * b(k,53) - b(k,86) = b(k,86) - lu(k,486) * b(k,53) - b(k,87) = b(k,87) - lu(k,487) * b(k,53) - b(k,88) = b(k,88) - lu(k,488) * b(k,53) - b(k,55) = b(k,55) - lu(k,492) * b(k,54) - b(k,60) = b(k,60) - lu(k,493) * b(k,54) - b(k,62) = b(k,62) - lu(k,494) * b(k,54) - b(k,64) = b(k,64) - lu(k,495) * b(k,54) - b(k,65) = b(k,65) - lu(k,496) * b(k,54) - b(k,66) = b(k,66) - lu(k,497) * b(k,54) - b(k,67) = b(k,67) - lu(k,498) * b(k,54) - b(k,69) = b(k,69) - lu(k,499) * b(k,54) - b(k,70) = b(k,70) - lu(k,500) * b(k,54) - b(k,71) = b(k,71) - lu(k,501) * b(k,54) - b(k,74) = b(k,74) - lu(k,502) * b(k,54) - b(k,77) = b(k,77) - lu(k,503) * b(k,54) - b(k,80) = b(k,80) - lu(k,504) * b(k,54) - b(k,82) = b(k,82) - lu(k,505) * b(k,54) - b(k,85) = b(k,85) - lu(k,506) * b(k,54) - b(k,86) = b(k,86) - lu(k,507) * b(k,54) - b(k,87) = b(k,87) - lu(k,508) * b(k,54) - b(k,88) = b(k,88) - lu(k,509) * b(k,54) - 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,60) = b(k,60) - lu(k,514) * b(k,55) - b(k,65) = b(k,65) - lu(k,515) * b(k,55) - b(k,66) = b(k,66) - lu(k,516) * b(k,55) - b(k,67) = b(k,67) - lu(k,517) * b(k,55) - b(k,69) = b(k,69) - lu(k,518) * b(k,55) - b(k,70) = b(k,70) - lu(k,519) * b(k,55) - b(k,73) = b(k,73) - lu(k,520) * b(k,55) - b(k,74) = b(k,74) - lu(k,521) * b(k,55) - b(k,77) = b(k,77) - lu(k,522) * b(k,55) - b(k,79) = b(k,79) - lu(k,523) * b(k,55) - b(k,80) = b(k,80) - lu(k,524) * b(k,55) - b(k,82) = b(k,82) - lu(k,525) * b(k,55) - b(k,85) = b(k,85) - lu(k,526) * b(k,55) - b(k,86) = b(k,86) - lu(k,527) * b(k,55) - b(k,87) = b(k,87) - lu(k,528) * b(k,55) - b(k,88) = b(k,88) - lu(k,529) * b(k,55) - b(k,57) = b(k,57) - lu(k,536) * b(k,56) - b(k,61) = b(k,61) - lu(k,537) * b(k,56) - b(k,63) = b(k,63) - lu(k,538) * b(k,56) - b(k,68) = b(k,68) - lu(k,539) * b(k,56) - b(k,69) = b(k,69) - lu(k,540) * b(k,56) - b(k,71) = b(k,71) - lu(k,541) * b(k,56) - b(k,72) = b(k,72) - lu(k,542) * b(k,56) - b(k,73) = b(k,73) - lu(k,543) * b(k,56) - b(k,74) = b(k,74) - lu(k,544) * b(k,56) - b(k,75) = b(k,75) - lu(k,545) * b(k,56) - b(k,78) = b(k,78) - lu(k,546) * b(k,56) - b(k,79) = b(k,79) - lu(k,547) * b(k,56) - b(k,81) = b(k,81) - lu(k,548) * b(k,56) - b(k,83) = b(k,83) - lu(k,549) * b(k,56) - b(k,84) = b(k,84) - lu(k,550) * b(k,56) - b(k,85) = b(k,85) - lu(k,551) * b(k,56) - b(k,86) = b(k,86) - lu(k,552) * b(k,56) - b(k,87) = b(k,87) - lu(k,553) * b(k,56) - b(k,88) = b(k,88) - lu(k,554) * b(k,56) - b(k,61) = b(k,61) - lu(k,568) * b(k,57) - b(k,63) = b(k,63) - lu(k,569) * b(k,57) - b(k,65) = b(k,65) - lu(k,570) * b(k,57) - b(k,68) = b(k,68) - lu(k,571) * b(k,57) - b(k,69) = b(k,69) - lu(k,572) * b(k,57) - b(k,71) = b(k,71) - lu(k,573) * b(k,57) - b(k,72) = b(k,72) - lu(k,574) * b(k,57) - b(k,73) = b(k,73) - lu(k,575) * b(k,57) - b(k,74) = b(k,74) - lu(k,576) * b(k,57) - b(k,75) = b(k,75) - lu(k,577) * b(k,57) - b(k,76) = b(k,76) - lu(k,578) * b(k,57) - b(k,77) = b(k,77) - lu(k,579) * b(k,57) - b(k,78) = b(k,78) - lu(k,580) * b(k,57) - b(k,79) = b(k,79) - lu(k,581) * b(k,57) - b(k,81) = b(k,81) - lu(k,582) * b(k,57) - b(k,83) = b(k,83) - lu(k,583) * b(k,57) - b(k,84) = b(k,84) - lu(k,584) * b(k,57) - b(k,85) = b(k,85) - lu(k,585) * b(k,57) - b(k,86) = b(k,86) - lu(k,586) * b(k,57) - b(k,87) = b(k,87) - lu(k,587) * b(k,57) - b(k,88) = b(k,88) - lu(k,588) * b(k,57) - b(k,60) = b(k,60) - lu(k,592) * b(k,58) - b(k,62) = b(k,62) - lu(k,593) * b(k,58) - b(k,65) = b(k,65) - lu(k,594) * b(k,58) - b(k,66) = b(k,66) - lu(k,595) * b(k,58) - b(k,67) = b(k,67) - lu(k,596) * b(k,58) - b(k,68) = b(k,68) - lu(k,597) * b(k,58) - b(k,69) = b(k,69) - lu(k,598) * b(k,58) - b(k,70) = b(k,70) - lu(k,599) * b(k,58) - b(k,72) = b(k,72) - lu(k,600) * b(k,58) - b(k,73) = b(k,73) - lu(k,601) * b(k,58) - b(k,77) = b(k,77) - lu(k,602) * b(k,58) - b(k,78) = b(k,78) - lu(k,603) * b(k,58) - b(k,80) = b(k,80) - lu(k,604) * b(k,58) - b(k,82) = b(k,82) - lu(k,605) * b(k,58) - b(k,85) = b(k,85) - lu(k,606) * b(k,58) - b(k,86) = b(k,86) - lu(k,607) * b(k,58) - b(k,87) = b(k,87) - lu(k,608) * b(k,58) - b(k,88) = b(k,88) - lu(k,609) * b(k,58) - b(k,60) = b(k,60) - lu(k,614) * b(k,59) - b(k,61) = b(k,61) - lu(k,615) * b(k,59) - b(k,62) = b(k,62) - lu(k,616) * b(k,59) - b(k,63) = b(k,63) - lu(k,617) * b(k,59) - b(k,64) = b(k,64) - lu(k,618) * b(k,59) - b(k,65) = b(k,65) - lu(k,619) * b(k,59) - b(k,66) = b(k,66) - lu(k,620) * b(k,59) - b(k,67) = b(k,67) - lu(k,621) * b(k,59) - b(k,68) = b(k,68) - lu(k,622) * b(k,59) - b(k,69) = b(k,69) - lu(k,623) * b(k,59) - b(k,70) = b(k,70) - lu(k,624) * b(k,59) - b(k,71) = b(k,71) - lu(k,625) * b(k,59) - b(k,72) = b(k,72) - lu(k,626) * b(k,59) - b(k,73) = b(k,73) - lu(k,627) * b(k,59) - b(k,74) = b(k,74) - lu(k,628) * b(k,59) - b(k,75) = b(k,75) - lu(k,629) * b(k,59) - b(k,76) = b(k,76) - lu(k,630) * b(k,59) - b(k,77) = b(k,77) - lu(k,631) * b(k,59) - b(k,78) = b(k,78) - lu(k,632) * b(k,59) - b(k,80) = b(k,80) - lu(k,633) * b(k,59) - b(k,81) = b(k,81) - lu(k,634) * b(k,59) - b(k,82) = b(k,82) - lu(k,635) * b(k,59) - b(k,83) = b(k,83) - lu(k,636) * b(k,59) - b(k,84) = b(k,84) - lu(k,637) * b(k,59) - b(k,85) = b(k,85) - lu(k,638) * b(k,59) - b(k,86) = b(k,86) - lu(k,639) * b(k,59) - b(k,87) = b(k,87) - lu(k,640) * b(k,59) - b(k,88) = b(k,88) - lu(k,641) * b(k,59) - b(k,62) = b(k,62) - lu(k,647) * b(k,60) - b(k,65) = b(k,65) - lu(k,648) * b(k,60) - b(k,66) = b(k,66) - lu(k,649) * b(k,60) - b(k,67) = b(k,67) - lu(k,650) * b(k,60) - b(k,68) = b(k,68) - lu(k,651) * b(k,60) - b(k,69) = b(k,69) - lu(k,652) * b(k,60) - b(k,70) = b(k,70) - lu(k,653) * b(k,60) - b(k,72) = b(k,72) - lu(k,654) * b(k,60) - b(k,73) = b(k,73) - lu(k,655) * b(k,60) - b(k,74) = b(k,74) - lu(k,656) * b(k,60) - b(k,75) = b(k,75) - lu(k,657) * b(k,60) - b(k,77) = b(k,77) - lu(k,658) * b(k,60) - b(k,78) = b(k,78) - lu(k,659) * b(k,60) - b(k,79) = b(k,79) - lu(k,660) * b(k,60) - b(k,80) = b(k,80) - lu(k,661) * b(k,60) - b(k,82) = b(k,82) - lu(k,662) * b(k,60) - b(k,85) = b(k,85) - lu(k,663) * b(k,60) - b(k,86) = b(k,86) - lu(k,664) * b(k,60) - b(k,87) = b(k,87) - lu(k,665) * b(k,60) - b(k,88) = b(k,88) - lu(k,666) * b(k,60) - b(k,63) = b(k,63) - lu(k,681) * b(k,61) - b(k,65) = b(k,65) - lu(k,682) * b(k,61) - b(k,68) = b(k,68) - lu(k,683) * b(k,61) - b(k,69) = b(k,69) - lu(k,684) * b(k,61) - b(k,70) = b(k,70) - lu(k,685) * b(k,61) - b(k,71) = b(k,71) - lu(k,686) * b(k,61) - b(k,72) = b(k,72) - lu(k,687) * b(k,61) - b(k,73) = b(k,73) - lu(k,688) * b(k,61) - b(k,74) = b(k,74) - lu(k,689) * b(k,61) - b(k,75) = b(k,75) - lu(k,690) * b(k,61) - b(k,76) = b(k,76) - lu(k,691) * b(k,61) - b(k,77) = b(k,77) - lu(k,692) * b(k,61) - b(k,78) = b(k,78) - lu(k,693) * b(k,61) - b(k,79) = b(k,79) - lu(k,694) * b(k,61) - b(k,81) = b(k,81) - lu(k,695) * b(k,61) - b(k,83) = b(k,83) - lu(k,696) * b(k,61) - b(k,84) = b(k,84) - lu(k,697) * b(k,61) - b(k,85) = b(k,85) - lu(k,698) * b(k,61) - b(k,86) = b(k,86) - lu(k,699) * b(k,61) - b(k,87) = b(k,87) - lu(k,700) * b(k,61) - b(k,88) = b(k,88) - lu(k,701) * b(k,61) - b(k,63) = b(k,63) - lu(k,707) * b(k,62) - b(k,65) = b(k,65) - lu(k,708) * b(k,62) - b(k,66) = b(k,66) - lu(k,709) * b(k,62) - b(k,67) = b(k,67) - lu(k,710) * b(k,62) - b(k,68) = b(k,68) - lu(k,711) * b(k,62) - b(k,69) = b(k,69) - lu(k,712) * b(k,62) - b(k,70) = b(k,70) - lu(k,713) * b(k,62) - b(k,72) = b(k,72) - lu(k,714) * b(k,62) - b(k,73) = b(k,73) - lu(k,715) * b(k,62) - b(k,74) = b(k,74) - lu(k,716) * b(k,62) - b(k,75) = b(k,75) - lu(k,717) * b(k,62) - b(k,77) = b(k,77) - lu(k,718) * b(k,62) - b(k,78) = b(k,78) - lu(k,719) * b(k,62) - b(k,79) = b(k,79) - lu(k,720) * b(k,62) - b(k,80) = b(k,80) - lu(k,721) * b(k,62) - b(k,81) = b(k,81) - lu(k,722) * b(k,62) - b(k,82) = b(k,82) - lu(k,723) * b(k,62) - b(k,83) = b(k,83) - lu(k,724) * b(k,62) - b(k,85) = b(k,85) - lu(k,725) * b(k,62) - b(k,86) = b(k,86) - lu(k,726) * b(k,62) - b(k,87) = b(k,87) - lu(k,727) * b(k,62) - b(k,88) = b(k,88) - lu(k,728) * b(k,62) - b(k,65) = b(k,65) - lu(k,750) * b(k,63) - b(k,66) = b(k,66) - lu(k,751) * b(k,63) - b(k,68) = b(k,68) - lu(k,752) * b(k,63) - b(k,69) = b(k,69) - lu(k,753) * b(k,63) - b(k,70) = b(k,70) - lu(k,754) * b(k,63) - b(k,71) = b(k,71) - lu(k,755) * b(k,63) - b(k,72) = b(k,72) - lu(k,756) * b(k,63) - b(k,73) = b(k,73) - lu(k,757) * b(k,63) - b(k,74) = b(k,74) - lu(k,758) * b(k,63) - b(k,75) = b(k,75) - lu(k,759) * b(k,63) - b(k,76) = b(k,76) - lu(k,760) * b(k,63) - b(k,77) = b(k,77) - lu(k,761) * b(k,63) - b(k,78) = b(k,78) - lu(k,762) * b(k,63) - b(k,79) = b(k,79) - lu(k,763) * b(k,63) - b(k,81) = b(k,81) - lu(k,764) * b(k,63) - b(k,83) = b(k,83) - lu(k,765) * b(k,63) - b(k,84) = b(k,84) - lu(k,766) * b(k,63) - b(k,85) = b(k,85) - lu(k,767) * b(k,63) - b(k,86) = b(k,86) - lu(k,768) * b(k,63) - b(k,87) = b(k,87) - lu(k,769) * b(k,63) - b(k,88) = b(k,88) - lu(k,770) * b(k,63) - b(k,65) = b(k,65) - lu(k,780) * b(k,64) - b(k,66) = b(k,66) - lu(k,781) * b(k,64) - b(k,67) = b(k,67) - lu(k,782) * b(k,64) - b(k,68) = b(k,68) - lu(k,783) * b(k,64) - b(k,69) = b(k,69) - lu(k,784) * b(k,64) - b(k,70) = b(k,70) - lu(k,785) * b(k,64) - b(k,71) = b(k,71) - lu(k,786) * b(k,64) - b(k,72) = b(k,72) - lu(k,787) * b(k,64) - b(k,73) = b(k,73) - lu(k,788) * b(k,64) - b(k,74) = b(k,74) - lu(k,789) * b(k,64) - b(k,75) = b(k,75) - lu(k,790) * b(k,64) - b(k,76) = b(k,76) - lu(k,791) * b(k,64) - b(k,77) = b(k,77) - lu(k,792) * b(k,64) - b(k,78) = b(k,78) - lu(k,793) * b(k,64) - b(k,79) = b(k,79) - lu(k,794) * b(k,64) - b(k,80) = b(k,80) - lu(k,795) * b(k,64) - b(k,81) = b(k,81) - lu(k,796) * b(k,64) - b(k,82) = b(k,82) - lu(k,797) * b(k,64) - b(k,83) = b(k,83) - lu(k,798) * b(k,64) - b(k,84) = b(k,84) - lu(k,799) * b(k,64) - b(k,85) = b(k,85) - lu(k,800) * b(k,64) - b(k,86) = b(k,86) - lu(k,801) * b(k,64) - b(k,87) = b(k,87) - lu(k,802) * b(k,64) - b(k,88) = b(k,88) - lu(k,803) * b(k,64) - 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,66) = b(k,66) - lu(k,824) * b(k,65) - b(k,67) = b(k,67) - lu(k,825) * b(k,65) - b(k,68) = b(k,68) - lu(k,826) * b(k,65) - b(k,69) = b(k,69) - lu(k,827) * b(k,65) - b(k,70) = b(k,70) - lu(k,828) * b(k,65) - b(k,71) = b(k,71) - lu(k,829) * b(k,65) - b(k,72) = b(k,72) - lu(k,830) * b(k,65) - b(k,73) = b(k,73) - lu(k,831) * b(k,65) - b(k,74) = b(k,74) - lu(k,832) * b(k,65) - b(k,75) = b(k,75) - lu(k,833) * b(k,65) - b(k,76) = b(k,76) - lu(k,834) * b(k,65) - b(k,77) = b(k,77) - lu(k,835) * b(k,65) - b(k,78) = b(k,78) - lu(k,836) * b(k,65) - b(k,79) = b(k,79) - lu(k,837) * b(k,65) - b(k,80) = b(k,80) - lu(k,838) * b(k,65) - b(k,81) = b(k,81) - lu(k,839) * b(k,65) - b(k,82) = b(k,82) - lu(k,840) * b(k,65) - b(k,83) = b(k,83) - lu(k,841) * b(k,65) - b(k,84) = b(k,84) - lu(k,842) * b(k,65) - b(k,85) = b(k,85) - lu(k,843) * b(k,65) - b(k,86) = b(k,86) - lu(k,844) * b(k,65) - b(k,87) = b(k,87) - lu(k,845) * b(k,65) - b(k,88) = b(k,88) - lu(k,846) * b(k,65) - b(k,67) = b(k,67) - lu(k,871) * b(k,66) - b(k,68) = b(k,68) - lu(k,872) * b(k,66) - b(k,69) = b(k,69) - lu(k,873) * b(k,66) - b(k,70) = b(k,70) - lu(k,874) * b(k,66) - b(k,71) = b(k,71) - lu(k,875) * b(k,66) - b(k,72) = b(k,72) - lu(k,876) * b(k,66) - b(k,73) = b(k,73) - lu(k,877) * b(k,66) - b(k,74) = b(k,74) - lu(k,878) * b(k,66) - b(k,75) = b(k,75) - lu(k,879) * b(k,66) - b(k,76) = b(k,76) - lu(k,880) * b(k,66) - b(k,77) = b(k,77) - lu(k,881) * b(k,66) - b(k,78) = b(k,78) - lu(k,882) * b(k,66) - b(k,79) = b(k,79) - lu(k,883) * b(k,66) - b(k,80) = b(k,80) - lu(k,884) * b(k,66) - b(k,81) = b(k,81) - lu(k,885) * b(k,66) - b(k,82) = b(k,82) - lu(k,886) * b(k,66) - b(k,83) = b(k,83) - lu(k,887) * b(k,66) - b(k,84) = b(k,84) - lu(k,888) * b(k,66) - b(k,85) = b(k,85) - lu(k,889) * b(k,66) - b(k,86) = b(k,86) - lu(k,890) * b(k,66) - b(k,87) = b(k,87) - lu(k,891) * b(k,66) - b(k,88) = b(k,88) - lu(k,892) * b(k,66) - b(k,68) = b(k,68) - lu(k,915) * b(k,67) - b(k,69) = b(k,69) - lu(k,916) * b(k,67) - b(k,70) = b(k,70) - lu(k,917) * b(k,67) - b(k,71) = b(k,71) - lu(k,918) * b(k,67) - b(k,72) = b(k,72) - lu(k,919) * b(k,67) - b(k,73) = b(k,73) - lu(k,920) * b(k,67) - b(k,74) = b(k,74) - lu(k,921) * b(k,67) - b(k,75) = b(k,75) - lu(k,922) * b(k,67) - b(k,76) = b(k,76) - lu(k,923) * b(k,67) - b(k,77) = b(k,77) - lu(k,924) * b(k,67) - b(k,78) = b(k,78) - lu(k,925) * b(k,67) - b(k,79) = b(k,79) - lu(k,926) * b(k,67) - b(k,80) = b(k,80) - lu(k,927) * b(k,67) - b(k,81) = b(k,81) - lu(k,928) * b(k,67) - b(k,82) = b(k,82) - lu(k,929) * b(k,67) - b(k,83) = b(k,83) - lu(k,930) * b(k,67) - b(k,84) = b(k,84) - lu(k,931) * b(k,67) - b(k,85) = b(k,85) - lu(k,932) * b(k,67) - b(k,86) = b(k,86) - lu(k,933) * b(k,67) - b(k,87) = b(k,87) - lu(k,934) * b(k,67) - b(k,88) = b(k,88) - lu(k,935) * b(k,67) - b(k,69) = b(k,69) - lu(k,959) * b(k,68) - b(k,70) = b(k,70) - lu(k,960) * b(k,68) - b(k,71) = b(k,71) - lu(k,961) * b(k,68) - b(k,72) = b(k,72) - lu(k,962) * b(k,68) - b(k,73) = b(k,73) - lu(k,963) * b(k,68) - b(k,74) = b(k,74) - lu(k,964) * b(k,68) - b(k,75) = b(k,75) - lu(k,965) * b(k,68) - b(k,76) = b(k,76) - lu(k,966) * b(k,68) - b(k,77) = b(k,77) - lu(k,967) * b(k,68) - b(k,78) = b(k,78) - lu(k,968) * b(k,68) - b(k,79) = b(k,79) - lu(k,969) * b(k,68) - b(k,80) = b(k,80) - lu(k,970) * b(k,68) - b(k,81) = b(k,81) - lu(k,971) * b(k,68) - b(k,82) = b(k,82) - lu(k,972) * b(k,68) - b(k,83) = b(k,83) - lu(k,973) * b(k,68) - b(k,84) = b(k,84) - lu(k,974) * b(k,68) - b(k,85) = b(k,85) - lu(k,975) * b(k,68) - b(k,86) = b(k,86) - lu(k,976) * b(k,68) - b(k,87) = b(k,87) - lu(k,977) * b(k,68) - b(k,88) = b(k,88) - lu(k,978) * b(k,68) - b(k,70) = b(k,70) - lu(k,1002) * b(k,69) - b(k,71) = b(k,71) - lu(k,1003) * b(k,69) - b(k,72) = b(k,72) - lu(k,1004) * b(k,69) - b(k,73) = b(k,73) - lu(k,1005) * b(k,69) - b(k,74) = b(k,74) - lu(k,1006) * b(k,69) - b(k,75) = b(k,75) - lu(k,1007) * b(k,69) - b(k,76) = b(k,76) - lu(k,1008) * b(k,69) - b(k,77) = b(k,77) - lu(k,1009) * b(k,69) - b(k,78) = b(k,78) - lu(k,1010) * b(k,69) - b(k,79) = b(k,79) - lu(k,1011) * b(k,69) - b(k,80) = b(k,80) - lu(k,1012) * b(k,69) - b(k,81) = b(k,81) - lu(k,1013) * b(k,69) - b(k,82) = b(k,82) - lu(k,1014) * b(k,69) - b(k,83) = b(k,83) - lu(k,1015) * b(k,69) - b(k,84) = b(k,84) - lu(k,1016) * b(k,69) - b(k,85) = b(k,85) - lu(k,1017) * b(k,69) - b(k,86) = b(k,86) - lu(k,1018) * b(k,69) - b(k,87) = b(k,87) - lu(k,1019) * b(k,69) - b(k,88) = b(k,88) - lu(k,1020) * b(k,69) - b(k,71) = b(k,71) - lu(k,1045) * b(k,70) - b(k,72) = b(k,72) - lu(k,1046) * b(k,70) - b(k,73) = b(k,73) - lu(k,1047) * b(k,70) - b(k,74) = b(k,74) - lu(k,1048) * b(k,70) - b(k,75) = b(k,75) - lu(k,1049) * b(k,70) - b(k,76) = b(k,76) - lu(k,1050) * b(k,70) - b(k,77) = b(k,77) - lu(k,1051) * b(k,70) - b(k,78) = b(k,78) - lu(k,1052) * b(k,70) - b(k,79) = b(k,79) - lu(k,1053) * b(k,70) - b(k,80) = b(k,80) - lu(k,1054) * b(k,70) - b(k,81) = b(k,81) - lu(k,1055) * b(k,70) - b(k,82) = b(k,82) - lu(k,1056) * b(k,70) - b(k,83) = b(k,83) - lu(k,1057) * b(k,70) - b(k,84) = b(k,84) - lu(k,1058) * b(k,70) - b(k,85) = b(k,85) - lu(k,1059) * b(k,70) - b(k,86) = b(k,86) - lu(k,1060) * b(k,70) - b(k,87) = b(k,87) - lu(k,1061) * b(k,70) - b(k,88) = b(k,88) - lu(k,1062) * b(k,70) - b(k,72) = b(k,72) - lu(k,1087) * b(k,71) - b(k,73) = b(k,73) - lu(k,1088) * b(k,71) - b(k,74) = b(k,74) - lu(k,1089) * b(k,71) - b(k,75) = b(k,75) - lu(k,1090) * b(k,71) - b(k,76) = b(k,76) - lu(k,1091) * b(k,71) - b(k,77) = b(k,77) - lu(k,1092) * b(k,71) - b(k,78) = b(k,78) - lu(k,1093) * b(k,71) - b(k,79) = b(k,79) - lu(k,1094) * b(k,71) - b(k,80) = b(k,80) - lu(k,1095) * b(k,71) - b(k,81) = b(k,81) - lu(k,1096) * b(k,71) - b(k,82) = b(k,82) - lu(k,1097) * b(k,71) - b(k,83) = b(k,83) - lu(k,1098) * b(k,71) - b(k,84) = b(k,84) - lu(k,1099) * b(k,71) - b(k,85) = b(k,85) - lu(k,1100) * b(k,71) - b(k,86) = b(k,86) - lu(k,1101) * b(k,71) - b(k,87) = b(k,87) - lu(k,1102) * b(k,71) - b(k,88) = b(k,88) - lu(k,1103) * b(k,71) - b(k,73) = b(k,73) - lu(k,1133) * b(k,72) - b(k,74) = b(k,74) - lu(k,1134) * b(k,72) - b(k,75) = b(k,75) - lu(k,1135) * b(k,72) - b(k,76) = b(k,76) - lu(k,1136) * b(k,72) - b(k,77) = b(k,77) - lu(k,1137) * b(k,72) - b(k,78) = b(k,78) - lu(k,1138) * b(k,72) - b(k,79) = b(k,79) - lu(k,1139) * b(k,72) - b(k,80) = b(k,80) - lu(k,1140) * b(k,72) - b(k,81) = b(k,81) - lu(k,1141) * b(k,72) - b(k,82) = b(k,82) - lu(k,1142) * b(k,72) - b(k,83) = b(k,83) - lu(k,1143) * b(k,72) - b(k,84) = b(k,84) - lu(k,1144) * b(k,72) - b(k,85) = b(k,85) - lu(k,1145) * b(k,72) - b(k,86) = b(k,86) - lu(k,1146) * b(k,72) - b(k,87) = b(k,87) - lu(k,1147) * b(k,72) - b(k,88) = b(k,88) - lu(k,1148) * b(k,72) - b(k,74) = b(k,74) - lu(k,1174) * b(k,73) - b(k,75) = b(k,75) - lu(k,1175) * b(k,73) - b(k,76) = b(k,76) - lu(k,1176) * b(k,73) - b(k,77) = b(k,77) - lu(k,1177) * b(k,73) - b(k,78) = b(k,78) - lu(k,1178) * b(k,73) - b(k,79) = b(k,79) - lu(k,1179) * b(k,73) - b(k,80) = b(k,80) - lu(k,1180) * b(k,73) - b(k,81) = b(k,81) - lu(k,1181) * b(k,73) - b(k,82) = b(k,82) - lu(k,1182) * b(k,73) - b(k,83) = b(k,83) - lu(k,1183) * b(k,73) - b(k,84) = b(k,84) - lu(k,1184) * b(k,73) - b(k,85) = b(k,85) - lu(k,1185) * b(k,73) - b(k,86) = b(k,86) - lu(k,1186) * b(k,73) - b(k,87) = b(k,87) - lu(k,1187) * b(k,73) - b(k,88) = b(k,88) - lu(k,1188) * b(k,73) - b(k,75) = b(k,75) - lu(k,1231) * b(k,74) - b(k,76) = b(k,76) - lu(k,1232) * b(k,74) - b(k,77) = b(k,77) - lu(k,1233) * b(k,74) - b(k,78) = b(k,78) - lu(k,1234) * b(k,74) - b(k,79) = b(k,79) - lu(k,1235) * b(k,74) - b(k,80) = b(k,80) - lu(k,1236) * b(k,74) - b(k,81) = b(k,81) - lu(k,1237) * b(k,74) - b(k,82) = b(k,82) - lu(k,1238) * b(k,74) - b(k,83) = b(k,83) - lu(k,1239) * b(k,74) - b(k,84) = b(k,84) - lu(k,1240) * b(k,74) - b(k,85) = b(k,85) - lu(k,1241) * b(k,74) - b(k,86) = b(k,86) - lu(k,1242) * b(k,74) - b(k,87) = b(k,87) - lu(k,1243) * b(k,74) - b(k,88) = b(k,88) - lu(k,1244) * b(k,74) - b(k,76) = b(k,76) - lu(k,1270) * b(k,75) - b(k,77) = b(k,77) - lu(k,1271) * b(k,75) - b(k,78) = b(k,78) - lu(k,1272) * b(k,75) - b(k,79) = b(k,79) - lu(k,1273) * b(k,75) - b(k,80) = b(k,80) - lu(k,1274) * b(k,75) - b(k,81) = b(k,81) - lu(k,1275) * b(k,75) - b(k,82) = b(k,82) - lu(k,1276) * b(k,75) - b(k,83) = b(k,83) - lu(k,1277) * b(k,75) - b(k,84) = b(k,84) - lu(k,1278) * b(k,75) - b(k,85) = b(k,85) - lu(k,1279) * b(k,75) - b(k,86) = b(k,86) - lu(k,1280) * b(k,75) - b(k,87) = b(k,87) - lu(k,1281) * b(k,75) - b(k,88) = b(k,88) - lu(k,1282) * b(k,75) - b(k,77) = b(k,77) - lu(k,1307) * b(k,76) - b(k,78) = b(k,78) - lu(k,1308) * b(k,76) - b(k,79) = b(k,79) - lu(k,1309) * b(k,76) - b(k,80) = b(k,80) - lu(k,1310) * b(k,76) - b(k,81) = b(k,81) - lu(k,1311) * b(k,76) - b(k,82) = b(k,82) - lu(k,1312) * b(k,76) - b(k,83) = b(k,83) - lu(k,1313) * b(k,76) - b(k,84) = b(k,84) - lu(k,1314) * b(k,76) - b(k,85) = b(k,85) - lu(k,1315) * b(k,76) - b(k,86) = b(k,86) - lu(k,1316) * b(k,76) - b(k,87) = b(k,87) - lu(k,1317) * b(k,76) - b(k,88) = b(k,88) - lu(k,1318) * b(k,76) - 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,78) = b(k,78) - lu(k,1353) * b(k,77) - b(k,79) = b(k,79) - lu(k,1354) * b(k,77) - b(k,80) = b(k,80) - lu(k,1355) * b(k,77) - b(k,81) = b(k,81) - lu(k,1356) * b(k,77) - b(k,82) = b(k,82) - lu(k,1357) * b(k,77) - b(k,83) = b(k,83) - lu(k,1358) * b(k,77) - b(k,84) = b(k,84) - lu(k,1359) * b(k,77) - b(k,85) = b(k,85) - lu(k,1360) * b(k,77) - b(k,86) = b(k,86) - lu(k,1361) * b(k,77) - b(k,87) = b(k,87) - lu(k,1362) * b(k,77) - b(k,88) = b(k,88) - lu(k,1363) * b(k,77) - b(k,79) = b(k,79) - lu(k,1397) * b(k,78) - b(k,80) = b(k,80) - lu(k,1398) * b(k,78) - b(k,81) = b(k,81) - lu(k,1399) * b(k,78) - b(k,82) = b(k,82) - lu(k,1400) * b(k,78) - b(k,83) = b(k,83) - lu(k,1401) * b(k,78) - b(k,84) = b(k,84) - lu(k,1402) * b(k,78) - b(k,85) = b(k,85) - lu(k,1403) * b(k,78) - b(k,86) = b(k,86) - lu(k,1404) * b(k,78) - b(k,87) = b(k,87) - lu(k,1405) * b(k,78) - b(k,88) = b(k,88) - lu(k,1406) * b(k,78) - b(k,80) = b(k,80) - lu(k,1433) * b(k,79) - b(k,81) = b(k,81) - lu(k,1434) * b(k,79) - b(k,82) = b(k,82) - lu(k,1435) * b(k,79) - b(k,83) = b(k,83) - lu(k,1436) * b(k,79) - b(k,84) = b(k,84) - lu(k,1437) * b(k,79) - b(k,85) = b(k,85) - lu(k,1438) * b(k,79) - b(k,86) = b(k,86) - lu(k,1439) * b(k,79) - b(k,87) = b(k,87) - lu(k,1440) * b(k,79) - b(k,88) = b(k,88) - lu(k,1441) * b(k,79) - b(k,81) = b(k,81) - lu(k,1477) * b(k,80) - b(k,82) = b(k,82) - lu(k,1478) * b(k,80) - b(k,83) = b(k,83) - lu(k,1479) * b(k,80) - b(k,84) = b(k,84) - lu(k,1480) * b(k,80) - b(k,85) = b(k,85) - lu(k,1481) * b(k,80) - b(k,86) = b(k,86) - lu(k,1482) * b(k,80) - b(k,87) = b(k,87) - lu(k,1483) * b(k,80) - b(k,88) = b(k,88) - lu(k,1484) * b(k,80) - b(k,82) = b(k,82) - lu(k,1521) * b(k,81) - b(k,83) = b(k,83) - lu(k,1522) * b(k,81) - b(k,84) = b(k,84) - lu(k,1523) * b(k,81) - b(k,85) = b(k,85) - lu(k,1524) * b(k,81) - b(k,86) = b(k,86) - lu(k,1525) * b(k,81) - b(k,87) = b(k,87) - lu(k,1526) * b(k,81) - b(k,88) = b(k,88) - lu(k,1527) * b(k,81) - b(k,83) = b(k,83) - lu(k,1565) * b(k,82) - b(k,84) = b(k,84) - lu(k,1566) * b(k,82) - b(k,85) = b(k,85) - lu(k,1567) * b(k,82) - b(k,86) = b(k,86) - lu(k,1568) * b(k,82) - b(k,87) = b(k,87) - lu(k,1569) * b(k,82) - b(k,88) = b(k,88) - lu(k,1570) * b(k,82) - b(k,84) = b(k,84) - lu(k,1599) * b(k,83) - b(k,85) = b(k,85) - lu(k,1600) * b(k,83) - b(k,86) = b(k,86) - lu(k,1601) * b(k,83) - b(k,87) = b(k,87) - lu(k,1602) * b(k,83) - b(k,88) = b(k,88) - lu(k,1603) * b(k,83) - b(k,85) = b(k,85) - lu(k,1636) * b(k,84) - b(k,86) = b(k,86) - lu(k,1637) * b(k,84) - b(k,87) = b(k,87) - lu(k,1638) * b(k,84) - b(k,88) = b(k,88) - lu(k,1639) * b(k,84) - b(k,86) = b(k,86) - lu(k,1680) * b(k,85) - b(k,87) = b(k,87) - lu(k,1681) * b(k,85) - b(k,88) = b(k,88) - lu(k,1682) * b(k,85) - b(k,87) = b(k,87) - lu(k,1717) * b(k,86) - b(k,88) = b(k,88) - lu(k,1718) * b(k,86) - b(k,88) = b(k,88) - lu(k,1763) * 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,1816) - b(k,87) = b(k,87) - lu(k,1815) * b(k,88) - b(k,86) = b(k,86) - lu(k,1814) * b(k,88) - b(k,85) = b(k,85) - lu(k,1813) * b(k,88) - b(k,84) = b(k,84) - lu(k,1812) * b(k,88) - b(k,83) = b(k,83) - lu(k,1811) * b(k,88) - b(k,82) = b(k,82) - lu(k,1810) * b(k,88) - b(k,81) = b(k,81) - lu(k,1809) * b(k,88) - b(k,80) = b(k,80) - lu(k,1808) * b(k,88) - b(k,79) = b(k,79) - lu(k,1807) * b(k,88) - b(k,78) = b(k,78) - lu(k,1806) * b(k,88) - b(k,77) = b(k,77) - lu(k,1805) * b(k,88) - b(k,76) = b(k,76) - lu(k,1804) * b(k,88) - b(k,75) = b(k,75) - lu(k,1803) * b(k,88) - b(k,74) = b(k,74) - lu(k,1802) * b(k,88) - b(k,73) = b(k,73) - lu(k,1801) * b(k,88) - b(k,72) = b(k,72) - lu(k,1800) * b(k,88) - b(k,71) = b(k,71) - lu(k,1799) * b(k,88) - b(k,70) = b(k,70) - lu(k,1798) * b(k,88) - b(k,69) = b(k,69) - lu(k,1797) * b(k,88) - b(k,68) = b(k,68) - lu(k,1796) * b(k,88) - b(k,67) = b(k,67) - lu(k,1795) * b(k,88) - b(k,66) = b(k,66) - lu(k,1794) * b(k,88) - b(k,65) = b(k,65) - lu(k,1793) * b(k,88) - b(k,64) = b(k,64) - lu(k,1792) * b(k,88) - b(k,63) = b(k,63) - lu(k,1791) * b(k,88) - b(k,62) = b(k,62) - lu(k,1790) * b(k,88) - b(k,61) = b(k,61) - lu(k,1789) * b(k,88) - b(k,60) = b(k,60) - lu(k,1788) * b(k,88) - b(k,58) = b(k,58) - lu(k,1787) * b(k,88) - b(k,57) = b(k,57) - lu(k,1786) * b(k,88) - b(k,56) = b(k,56) - lu(k,1785) * b(k,88) - b(k,55) = b(k,55) - lu(k,1784) * b(k,88) - b(k,54) = b(k,54) - lu(k,1783) * b(k,88) - b(k,53) = b(k,53) - lu(k,1782) * b(k,88) - b(k,50) = b(k,50) - lu(k,1781) * b(k,88) - b(k,47) = b(k,47) - lu(k,1780) * b(k,88) - b(k,46) = b(k,46) - lu(k,1779) * b(k,88) - b(k,43) = b(k,43) - lu(k,1778) * b(k,88) - b(k,41) = b(k,41) - lu(k,1777) * b(k,88) - b(k,39) = b(k,39) - lu(k,1776) * b(k,88) - b(k,31) = b(k,31) - lu(k,1775) * b(k,88) - b(k,29) = b(k,29) - lu(k,1774) * b(k,88) - b(k,28) = b(k,28) - lu(k,1773) * b(k,88) - b(k,26) = b(k,26) - lu(k,1772) * b(k,88) - b(k,25) = b(k,25) - lu(k,1771) * b(k,88) - b(k,24) = b(k,24) - lu(k,1770) * b(k,88) - b(k,22) = b(k,22) - lu(k,1769) * b(k,88) - b(k,13) = b(k,13) - lu(k,1768) * b(k,88) - b(k,11) = b(k,11) - lu(k,1767) * b(k,88) - b(k,9) = b(k,9) - lu(k,1766) * b(k,88) - b(k,8) = b(k,8) - lu(k,1765) * b(k,88) - b(k,7) = b(k,7) - lu(k,1764) * b(k,88) - b(k,87) = b(k,87) * lu(k,1762) - b(k,86) = b(k,86) - lu(k,1761) * b(k,87) - b(k,85) = b(k,85) - lu(k,1760) * b(k,87) - b(k,84) = b(k,84) - lu(k,1759) * b(k,87) - b(k,83) = b(k,83) - lu(k,1758) * b(k,87) - b(k,82) = b(k,82) - lu(k,1757) * b(k,87) - b(k,81) = b(k,81) - lu(k,1756) * b(k,87) - b(k,80) = b(k,80) - lu(k,1755) * b(k,87) - b(k,79) = b(k,79) - lu(k,1754) * b(k,87) - b(k,78) = b(k,78) - lu(k,1753) * b(k,87) - b(k,77) = b(k,77) - lu(k,1752) * b(k,87) - b(k,76) = b(k,76) - lu(k,1751) * b(k,87) - b(k,75) = b(k,75) - lu(k,1750) * b(k,87) - b(k,74) = b(k,74) - lu(k,1749) * b(k,87) - b(k,73) = b(k,73) - lu(k,1748) * b(k,87) - b(k,72) = b(k,72) - lu(k,1747) * b(k,87) - b(k,71) = b(k,71) - lu(k,1746) * b(k,87) - b(k,70) = b(k,70) - lu(k,1745) * b(k,87) - b(k,69) = b(k,69) - lu(k,1744) * b(k,87) - b(k,68) = b(k,68) - lu(k,1743) * b(k,87) - b(k,67) = b(k,67) - lu(k,1742) * b(k,87) - b(k,66) = b(k,66) - lu(k,1741) * b(k,87) - b(k,65) = b(k,65) - lu(k,1740) * b(k,87) - b(k,64) = b(k,64) - lu(k,1739) * b(k,87) - b(k,63) = b(k,63) - lu(k,1738) * b(k,87) - b(k,62) = b(k,62) - lu(k,1737) * b(k,87) - b(k,61) = b(k,61) - lu(k,1736) * b(k,87) - b(k,60) = b(k,60) - lu(k,1735) * b(k,87) - b(k,58) = b(k,58) - lu(k,1734) * b(k,87) - b(k,57) = b(k,57) - lu(k,1733) * b(k,87) - b(k,56) = b(k,56) - lu(k,1732) * b(k,87) - b(k,55) = b(k,55) - lu(k,1731) * b(k,87) - b(k,54) = b(k,54) - lu(k,1730) * b(k,87) - b(k,53) = b(k,53) - lu(k,1729) * b(k,87) - b(k,52) = b(k,52) - lu(k,1728) * b(k,87) - b(k,51) = b(k,51) - lu(k,1727) * b(k,87) - b(k,49) = b(k,49) - lu(k,1726) * b(k,87) - b(k,44) = b(k,44) - lu(k,1725) * b(k,87) - b(k,40) = b(k,40) - lu(k,1724) * b(k,87) - b(k,38) = b(k,38) - lu(k,1723) * b(k,87) - b(k,35) = b(k,35) - lu(k,1722) * b(k,87) - b(k,30) = b(k,30) - lu(k,1721) * b(k,87) - b(k,18) = b(k,18) - lu(k,1720) * b(k,87) - b(k,14) = b(k,14) - lu(k,1719) * b(k,87) - b(k,86) = b(k,86) * lu(k,1716) - b(k,85) = b(k,85) - lu(k,1715) * b(k,86) - b(k,84) = b(k,84) - lu(k,1714) * b(k,86) - b(k,83) = b(k,83) - lu(k,1713) * b(k,86) - b(k,82) = b(k,82) - lu(k,1712) * b(k,86) - b(k,81) = b(k,81) - lu(k,1711) * b(k,86) - b(k,80) = b(k,80) - lu(k,1710) * b(k,86) - b(k,79) = b(k,79) - lu(k,1709) * b(k,86) - b(k,78) = b(k,78) - lu(k,1708) * b(k,86) - b(k,77) = b(k,77) - lu(k,1707) * b(k,86) - b(k,76) = b(k,76) - lu(k,1706) * b(k,86) - b(k,75) = b(k,75) - lu(k,1705) * b(k,86) - b(k,74) = b(k,74) - lu(k,1704) * b(k,86) - b(k,73) = b(k,73) - lu(k,1703) * b(k,86) - b(k,72) = b(k,72) - lu(k,1702) * b(k,86) - b(k,71) = b(k,71) - lu(k,1701) * b(k,86) - b(k,70) = b(k,70) - lu(k,1700) * b(k,86) - b(k,69) = b(k,69) - lu(k,1699) * b(k,86) - b(k,68) = b(k,68) - lu(k,1698) * b(k,86) - b(k,67) = b(k,67) - lu(k,1697) * b(k,86) - b(k,66) = b(k,66) - lu(k,1696) * b(k,86) - b(k,65) = b(k,65) - lu(k,1695) * b(k,86) - b(k,64) = b(k,64) - lu(k,1694) * b(k,86) - b(k,63) = b(k,63) - lu(k,1693) * b(k,86) - b(k,62) = b(k,62) - lu(k,1692) * b(k,86) - b(k,61) = b(k,61) - lu(k,1691) * b(k,86) - b(k,60) = b(k,60) - lu(k,1690) * b(k,86) - b(k,59) = b(k,59) - lu(k,1689) * b(k,86) - b(k,58) = b(k,58) - lu(k,1688) * b(k,86) - b(k,57) = b(k,57) - lu(k,1687) * b(k,86) - b(k,56) = b(k,56) - lu(k,1686) * b(k,86) - b(k,50) = b(k,50) - lu(k,1685) * b(k,86) - b(k,49) = b(k,49) - lu(k,1684) * b(k,86) - b(k,28) = b(k,28) - lu(k,1683) * b(k,86) - b(k,85) = b(k,85) * lu(k,1679) - b(k,84) = b(k,84) - lu(k,1678) * b(k,85) - b(k,83) = b(k,83) - lu(k,1677) * b(k,85) - b(k,82) = b(k,82) - lu(k,1676) * b(k,85) - b(k,81) = b(k,81) - lu(k,1675) * b(k,85) - b(k,80) = b(k,80) - lu(k,1674) * b(k,85) - b(k,79) = b(k,79) - lu(k,1673) * b(k,85) - b(k,78) = b(k,78) - lu(k,1672) * b(k,85) - b(k,77) = b(k,77) - lu(k,1671) * b(k,85) - b(k,76) = b(k,76) - lu(k,1670) * b(k,85) - b(k,75) = b(k,75) - lu(k,1669) * b(k,85) - b(k,74) = b(k,74) - lu(k,1668) * b(k,85) - b(k,73) = b(k,73) - lu(k,1667) * b(k,85) - b(k,72) = b(k,72) - lu(k,1666) * b(k,85) - b(k,71) = b(k,71) - lu(k,1665) * b(k,85) - b(k,70) = b(k,70) - lu(k,1664) * b(k,85) - b(k,69) = b(k,69) - lu(k,1663) * b(k,85) - b(k,68) = b(k,68) - lu(k,1662) * b(k,85) - b(k,67) = b(k,67) - lu(k,1661) * b(k,85) - b(k,66) = b(k,66) - lu(k,1660) * b(k,85) - b(k,65) = b(k,65) - lu(k,1659) * b(k,85) - b(k,64) = b(k,64) - lu(k,1658) * b(k,85) - b(k,63) = b(k,63) - lu(k,1657) * b(k,85) - b(k,62) = b(k,62) - lu(k,1656) * b(k,85) - b(k,61) = b(k,61) - lu(k,1655) * b(k,85) - b(k,60) = b(k,60) - lu(k,1654) * b(k,85) - b(k,59) = b(k,59) - lu(k,1653) * b(k,85) - b(k,57) = b(k,57) - lu(k,1652) * b(k,85) - b(k,49) = b(k,49) - lu(k,1651) * b(k,85) - b(k,41) = b(k,41) - lu(k,1650) * b(k,85) - b(k,40) = b(k,40) - lu(k,1649) * b(k,85) - b(k,37) = b(k,37) - lu(k,1648) * b(k,85) - b(k,34) = b(k,34) - lu(k,1647) * b(k,85) - b(k,23) = b(k,23) - lu(k,1646) * b(k,85) - b(k,21) = b(k,21) - lu(k,1645) * b(k,85) - b(k,20) = b(k,20) - lu(k,1644) * b(k,85) - b(k,17) = b(k,17) - lu(k,1643) * b(k,85) - b(k,16) = b(k,16) - lu(k,1642) * b(k,85) - b(k,15) = b(k,15) - lu(k,1641) * b(k,85) - b(k,10) = b(k,10) - lu(k,1640) * b(k,85) - b(k,84) = b(k,84) * lu(k,1635) - b(k,83) = b(k,83) - lu(k,1634) * b(k,84) - b(k,82) = b(k,82) - lu(k,1633) * b(k,84) - b(k,81) = b(k,81) - lu(k,1632) * b(k,84) - b(k,80) = b(k,80) - lu(k,1631) * b(k,84) - b(k,79) = b(k,79) - lu(k,1630) * b(k,84) - b(k,78) = b(k,78) - lu(k,1629) * b(k,84) - b(k,77) = b(k,77) - lu(k,1628) * b(k,84) - b(k,76) = b(k,76) - lu(k,1627) * b(k,84) - b(k,75) = b(k,75) - lu(k,1626) * b(k,84) - b(k,74) = b(k,74) - lu(k,1625) * b(k,84) - b(k,73) = b(k,73) - lu(k,1624) * b(k,84) - b(k,72) = b(k,72) - lu(k,1623) * b(k,84) - b(k,71) = b(k,71) - lu(k,1622) * b(k,84) - b(k,70) = b(k,70) - lu(k,1621) * b(k,84) - b(k,69) = b(k,69) - lu(k,1620) * b(k,84) - b(k,68) = b(k,68) - lu(k,1619) * b(k,84) - b(k,67) = b(k,67) - lu(k,1618) * b(k,84) - b(k,66) = b(k,66) - lu(k,1617) * b(k,84) - b(k,65) = b(k,65) - lu(k,1616) * b(k,84) - b(k,64) = b(k,64) - lu(k,1615) * b(k,84) - b(k,63) = b(k,63) - lu(k,1614) * b(k,84) - b(k,62) = b(k,62) - lu(k,1613) * b(k,84) - b(k,61) = b(k,61) - lu(k,1612) * b(k,84) - b(k,60) = b(k,60) - lu(k,1611) * b(k,84) - b(k,58) = b(k,58) - lu(k,1610) * b(k,84) - b(k,57) = b(k,57) - lu(k,1609) * b(k,84) - b(k,56) = b(k,56) - lu(k,1608) * b(k,84) - b(k,50) = b(k,50) - lu(k,1607) * b(k,84) - b(k,49) = b(k,49) - lu(k,1606) * b(k,84) - b(k,41) = b(k,41) - lu(k,1605) * b(k,84) - b(k,37) = b(k,37) - lu(k,1604) * b(k,84) - 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,83) = b(k,83) * lu(k,1598) - b(k,82) = b(k,82) - lu(k,1597) * b(k,83) - b(k,81) = b(k,81) - lu(k,1596) * b(k,83) - b(k,80) = b(k,80) - lu(k,1595) * b(k,83) - b(k,79) = b(k,79) - lu(k,1594) * b(k,83) - b(k,78) = b(k,78) - lu(k,1593) * b(k,83) - b(k,77) = b(k,77) - lu(k,1592) * b(k,83) - b(k,76) = b(k,76) - lu(k,1591) * b(k,83) - b(k,75) = b(k,75) - lu(k,1590) * b(k,83) - b(k,74) = b(k,74) - lu(k,1589) * b(k,83) - b(k,73) = b(k,73) - lu(k,1588) * b(k,83) - b(k,72) = b(k,72) - lu(k,1587) * b(k,83) - b(k,71) = b(k,71) - lu(k,1586) * b(k,83) - b(k,70) = b(k,70) - lu(k,1585) * b(k,83) - b(k,69) = b(k,69) - lu(k,1584) * b(k,83) - b(k,68) = b(k,68) - lu(k,1583) * b(k,83) - b(k,67) = b(k,67) - lu(k,1582) * b(k,83) - b(k,66) = b(k,66) - lu(k,1581) * b(k,83) - b(k,65) = b(k,65) - lu(k,1580) * b(k,83) - b(k,64) = b(k,64) - lu(k,1579) * b(k,83) - b(k,63) = b(k,63) - lu(k,1578) * b(k,83) - b(k,62) = b(k,62) - lu(k,1577) * b(k,83) - b(k,61) = b(k,61) - lu(k,1576) * b(k,83) - b(k,60) = b(k,60) - lu(k,1575) * b(k,83) - b(k,58) = b(k,58) - lu(k,1574) * b(k,83) - b(k,49) = b(k,49) - lu(k,1573) * b(k,83) - b(k,42) = b(k,42) - lu(k,1572) * b(k,83) - b(k,36) = b(k,36) - lu(k,1571) * b(k,83) - b(k,82) = b(k,82) * lu(k,1564) - b(k,81) = b(k,81) - lu(k,1563) * b(k,82) - b(k,80) = b(k,80) - lu(k,1562) * b(k,82) - b(k,79) = b(k,79) - lu(k,1561) * b(k,82) - b(k,78) = b(k,78) - lu(k,1560) * b(k,82) - b(k,77) = b(k,77) - lu(k,1559) * b(k,82) - b(k,76) = b(k,76) - lu(k,1558) * b(k,82) - b(k,75) = b(k,75) - lu(k,1557) * b(k,82) - b(k,74) = b(k,74) - lu(k,1556) * b(k,82) - b(k,73) = b(k,73) - lu(k,1555) * b(k,82) - b(k,72) = b(k,72) - lu(k,1554) * b(k,82) - b(k,71) = b(k,71) - lu(k,1553) * b(k,82) - b(k,70) = b(k,70) - lu(k,1552) * b(k,82) - b(k,69) = b(k,69) - lu(k,1551) * b(k,82) - b(k,68) = b(k,68) - lu(k,1550) * b(k,82) - b(k,67) = b(k,67) - lu(k,1549) * b(k,82) - b(k,66) = b(k,66) - lu(k,1548) * b(k,82) - b(k,65) = b(k,65) - lu(k,1547) * b(k,82) - b(k,64) = b(k,64) - lu(k,1546) * b(k,82) - b(k,63) = b(k,63) - lu(k,1545) * b(k,82) - b(k,62) = b(k,62) - lu(k,1544) * b(k,82) - b(k,61) = b(k,61) - lu(k,1543) * b(k,82) - b(k,60) = b(k,60) - lu(k,1542) * b(k,82) - b(k,59) = b(k,59) - lu(k,1541) * b(k,82) - b(k,58) = b(k,58) - lu(k,1540) * b(k,82) - b(k,55) = b(k,55) - lu(k,1539) * b(k,82) - b(k,54) = b(k,54) - lu(k,1538) * b(k,82) - b(k,53) = b(k,53) - lu(k,1537) * b(k,82) - b(k,51) = b(k,51) - lu(k,1536) * b(k,82) - b(k,48) = b(k,48) - lu(k,1535) * b(k,82) - b(k,47) = b(k,47) - lu(k,1534) * b(k,82) - b(k,46) = b(k,46) - lu(k,1533) * b(k,82) - b(k,45) = b(k,45) - lu(k,1532) * b(k,82) - b(k,43) = b(k,43) - lu(k,1531) * b(k,82) - b(k,42) = b(k,42) - lu(k,1530) * b(k,82) - b(k,38) = b(k,38) - lu(k,1529) * b(k,82) - b(k,9) = b(k,9) - lu(k,1528) * b(k,82) - b(k,81) = b(k,81) * lu(k,1520) - b(k,80) = b(k,80) - lu(k,1519) * b(k,81) - b(k,79) = b(k,79) - lu(k,1518) * b(k,81) - b(k,78) = b(k,78) - lu(k,1517) * b(k,81) - b(k,77) = b(k,77) - lu(k,1516) * b(k,81) - b(k,76) = b(k,76) - lu(k,1515) * b(k,81) - b(k,75) = b(k,75) - lu(k,1514) * b(k,81) - b(k,74) = b(k,74) - lu(k,1513) * b(k,81) - b(k,73) = b(k,73) - lu(k,1512) * b(k,81) - b(k,72) = b(k,72) - lu(k,1511) * b(k,81) - b(k,71) = b(k,71) - lu(k,1510) * b(k,81) - b(k,70) = b(k,70) - lu(k,1509) * b(k,81) - b(k,69) = b(k,69) - lu(k,1508) * b(k,81) - b(k,68) = b(k,68) - lu(k,1507) * b(k,81) - b(k,67) = b(k,67) - lu(k,1506) * b(k,81) - b(k,66) = b(k,66) - lu(k,1505) * b(k,81) - b(k,65) = b(k,65) - lu(k,1504) * b(k,81) - b(k,64) = b(k,64) - lu(k,1503) * b(k,81) - b(k,63) = b(k,63) - lu(k,1502) * b(k,81) - b(k,62) = b(k,62) - lu(k,1501) * b(k,81) - b(k,61) = b(k,61) - lu(k,1500) * b(k,81) - b(k,60) = b(k,60) - lu(k,1499) * b(k,81) - b(k,59) = b(k,59) - lu(k,1498) * b(k,81) - b(k,58) = b(k,58) - lu(k,1497) * b(k,81) - b(k,57) = b(k,57) - lu(k,1496) * b(k,81) - b(k,56) = b(k,56) - lu(k,1495) * b(k,81) - b(k,52) = b(k,52) - lu(k,1494) * b(k,81) - b(k,44) = b(k,44) - lu(k,1493) * b(k,81) - b(k,39) = b(k,39) - lu(k,1492) * b(k,81) - b(k,36) = b(k,36) - lu(k,1491) * b(k,81) - b(k,35) = b(k,35) - lu(k,1490) * b(k,81) - b(k,33) = b(k,33) - lu(k,1489) * b(k,81) - b(k,6) = b(k,6) - lu(k,1488) * b(k,81) - b(k,4) = b(k,4) - lu(k,1487) * b(k,81) - b(k,3) = b(k,3) - lu(k,1486) * b(k,81) - b(k,1) = b(k,1) - lu(k,1485) * b(k,81) - b(k,80) = b(k,80) * lu(k,1476) - b(k,79) = b(k,79) - lu(k,1475) * b(k,80) - b(k,78) = b(k,78) - lu(k,1474) * b(k,80) - b(k,77) = b(k,77) - lu(k,1473) * b(k,80) - b(k,76) = b(k,76) - lu(k,1472) * b(k,80) - b(k,75) = b(k,75) - lu(k,1471) * b(k,80) - b(k,74) = b(k,74) - lu(k,1470) * b(k,80) - b(k,73) = b(k,73) - lu(k,1469) * b(k,80) - b(k,72) = b(k,72) - lu(k,1468) * b(k,80) - b(k,71) = b(k,71) - lu(k,1467) * b(k,80) - b(k,70) = b(k,70) - lu(k,1466) * b(k,80) - b(k,69) = b(k,69) - lu(k,1465) * b(k,80) - b(k,68) = b(k,68) - lu(k,1464) * b(k,80) - b(k,67) = b(k,67) - lu(k,1463) * b(k,80) - b(k,66) = b(k,66) - lu(k,1462) * b(k,80) - b(k,65) = b(k,65) - lu(k,1461) * b(k,80) - b(k,64) = b(k,64) - lu(k,1460) * b(k,80) - b(k,63) = b(k,63) - lu(k,1459) * b(k,80) - b(k,62) = b(k,62) - lu(k,1458) * b(k,80) - b(k,61) = b(k,61) - lu(k,1457) * b(k,80) - b(k,60) = b(k,60) - lu(k,1456) * b(k,80) - b(k,59) = b(k,59) - lu(k,1455) * b(k,80) - b(k,58) = b(k,58) - lu(k,1454) * b(k,80) - b(k,55) = b(k,55) - lu(k,1453) * b(k,80) - b(k,54) = b(k,54) - lu(k,1452) * b(k,80) - b(k,53) = b(k,53) - lu(k,1451) * b(k,80) - b(k,51) = b(k,51) - lu(k,1450) * b(k,80) - b(k,48) = b(k,48) - lu(k,1449) * b(k,80) - b(k,47) = b(k,47) - lu(k,1448) * b(k,80) - b(k,46) = b(k,46) - lu(k,1447) * b(k,80) - b(k,45) = b(k,45) - lu(k,1446) * b(k,80) - b(k,43) = b(k,43) - lu(k,1445) * b(k,80) - b(k,42) = b(k,42) - lu(k,1444) * b(k,80) - b(k,38) = b(k,38) - lu(k,1443) * b(k,80) - b(k,8) = b(k,8) - lu(k,1442) * b(k,80) - b(k,79) = b(k,79) * lu(k,1432) - b(k,78) = b(k,78) - lu(k,1431) * b(k,79) - b(k,77) = b(k,77) - lu(k,1430) * b(k,79) - b(k,76) = b(k,76) - lu(k,1429) * b(k,79) - b(k,75) = b(k,75) - lu(k,1428) * b(k,79) - b(k,74) = b(k,74) - lu(k,1427) * b(k,79) - b(k,73) = b(k,73) - lu(k,1426) * b(k,79) - b(k,72) = b(k,72) - lu(k,1425) * b(k,79) - b(k,71) = b(k,71) - lu(k,1424) * b(k,79) - b(k,70) = b(k,70) - lu(k,1423) * b(k,79) - b(k,69) = b(k,69) - lu(k,1422) * b(k,79) - b(k,68) = b(k,68) - lu(k,1421) * b(k,79) - b(k,67) = b(k,67) - lu(k,1420) * b(k,79) - b(k,66) = b(k,66) - lu(k,1419) * b(k,79) - b(k,65) = b(k,65) - lu(k,1418) * b(k,79) - b(k,63) = b(k,63) - lu(k,1417) * b(k,79) - b(k,62) = b(k,62) - lu(k,1416) * b(k,79) - b(k,61) = b(k,61) - lu(k,1415) * b(k,79) - b(k,60) = b(k,60) - lu(k,1414) * b(k,79) - b(k,57) = b(k,57) - lu(k,1413) * b(k,79) - b(k,56) = b(k,56) - lu(k,1412) * b(k,79) - b(k,55) = b(k,55) - lu(k,1411) * b(k,79) - b(k,53) = b(k,53) - lu(k,1410) * b(k,79) - b(k,51) = b(k,51) - lu(k,1409) * b(k,79) - b(k,38) = b(k,38) - lu(k,1408) * b(k,79) - b(k,27) = b(k,27) - lu(k,1407) * b(k,79) - b(k,78) = b(k,78) * lu(k,1396) - b(k,77) = b(k,77) - lu(k,1395) * b(k,78) - b(k,76) = b(k,76) - lu(k,1394) * b(k,78) - b(k,75) = b(k,75) - lu(k,1393) * b(k,78) - b(k,74) = b(k,74) - lu(k,1392) * b(k,78) - b(k,73) = b(k,73) - lu(k,1391) * b(k,78) - b(k,72) = b(k,72) - lu(k,1390) * b(k,78) - b(k,71) = b(k,71) - lu(k,1389) * b(k,78) - b(k,70) = b(k,70) - lu(k,1388) * b(k,78) - b(k,69) = b(k,69) - lu(k,1387) * b(k,78) - b(k,68) = b(k,68) - lu(k,1386) * b(k,78) - b(k,67) = b(k,67) - lu(k,1385) * b(k,78) - b(k,66) = b(k,66) - lu(k,1384) * b(k,78) - b(k,65) = b(k,65) - lu(k,1383) * b(k,78) - b(k,64) = b(k,64) - lu(k,1382) * b(k,78) - b(k,63) = b(k,63) - lu(k,1381) * b(k,78) - b(k,62) = b(k,62) - lu(k,1380) * b(k,78) - b(k,61) = b(k,61) - lu(k,1379) * b(k,78) - b(k,60) = b(k,60) - lu(k,1378) * b(k,78) - b(k,59) = b(k,59) - lu(k,1377) * b(k,78) - b(k,58) = b(k,58) - lu(k,1376) * b(k,78) - b(k,57) = b(k,57) - lu(k,1375) * b(k,78) - b(k,56) = b(k,56) - lu(k,1374) * b(k,78) - b(k,52) = b(k,52) - lu(k,1373) * b(k,78) - b(k,50) = b(k,50) - lu(k,1372) * b(k,78) - b(k,44) = b(k,44) - lu(k,1371) * b(k,78) - b(k,39) = b(k,39) - lu(k,1370) * b(k,78) - b(k,36) = b(k,36) - lu(k,1369) * b(k,78) - b(k,35) = b(k,35) - lu(k,1368) * b(k,78) - b(k,33) = b(k,33) - lu(k,1367) * b(k,78) - b(k,27) = b(k,27) - lu(k,1366) * b(k,78) - b(k,19) = b(k,19) - lu(k,1365) * b(k,78) - b(k,4) = b(k,4) - lu(k,1364) * b(k,78) - b(k,77) = b(k,77) * lu(k,1352) - b(k,76) = b(k,76) - lu(k,1351) * b(k,77) - b(k,75) = b(k,75) - lu(k,1350) * b(k,77) - b(k,74) = b(k,74) - lu(k,1349) * b(k,77) - b(k,73) = b(k,73) - lu(k,1348) * b(k,77) - b(k,72) = b(k,72) - lu(k,1347) * b(k,77) - b(k,71) = b(k,71) - lu(k,1346) * b(k,77) - b(k,70) = b(k,70) - lu(k,1345) * b(k,77) - b(k,69) = b(k,69) - lu(k,1344) * b(k,77) - b(k,68) = b(k,68) - lu(k,1343) * b(k,77) - b(k,67) = b(k,67) - lu(k,1342) * b(k,77) - b(k,66) = b(k,66) - lu(k,1341) * b(k,77) - b(k,65) = b(k,65) - lu(k,1340) * b(k,77) - b(k,64) = b(k,64) - lu(k,1339) * b(k,77) - b(k,63) = b(k,63) - lu(k,1338) * b(k,77) - b(k,62) = b(k,62) - lu(k,1337) * b(k,77) - b(k,61) = b(k,61) - lu(k,1336) * b(k,77) - b(k,60) = b(k,60) - lu(k,1335) * b(k,77) - b(k,59) = b(k,59) - lu(k,1334) * b(k,77) - b(k,58) = b(k,58) - lu(k,1333) * b(k,77) - b(k,57) = b(k,57) - lu(k,1332) * b(k,77) - b(k,55) = b(k,55) - lu(k,1331) * b(k,77) - b(k,54) = b(k,54) - lu(k,1330) * b(k,77) - b(k,53) = b(k,53) - lu(k,1329) * b(k,77) - b(k,51) = b(k,51) - lu(k,1328) * b(k,77) - b(k,48) = b(k,48) - lu(k,1327) * b(k,77) - b(k,47) = b(k,47) - lu(k,1326) * b(k,77) - b(k,46) = b(k,46) - lu(k,1325) * b(k,77) - b(k,45) = b(k,45) - lu(k,1324) * b(k,77) - b(k,43) = b(k,43) - lu(k,1323) * b(k,77) - b(k,42) = b(k,42) - lu(k,1322) * b(k,77) - b(k,41) = b(k,41) - lu(k,1321) * b(k,77) - b(k,40) = b(k,40) - lu(k,1320) * b(k,77) - b(k,29) = b(k,29) - lu(k,1319) * 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,1306) - b(k,75) = b(k,75) - lu(k,1305) * b(k,76) - b(k,74) = b(k,74) - lu(k,1304) * b(k,76) - b(k,73) = b(k,73) - lu(k,1303) * b(k,76) - b(k,72) = b(k,72) - lu(k,1302) * b(k,76) - b(k,71) = b(k,71) - lu(k,1301) * b(k,76) - b(k,70) = b(k,70) - lu(k,1300) * b(k,76) - b(k,69) = b(k,69) - lu(k,1299) * b(k,76) - b(k,68) = b(k,68) - lu(k,1298) * b(k,76) - b(k,67) = b(k,67) - lu(k,1297) * b(k,76) - b(k,66) = b(k,66) - lu(k,1296) * b(k,76) - b(k,65) = b(k,65) - lu(k,1295) * b(k,76) - b(k,64) = b(k,64) - lu(k,1294) * b(k,76) - b(k,63) = b(k,63) - lu(k,1293) * b(k,76) - b(k,62) = b(k,62) - lu(k,1292) * b(k,76) - b(k,61) = b(k,61) - lu(k,1291) * b(k,76) - b(k,60) = b(k,60) - lu(k,1290) * b(k,76) - b(k,59) = b(k,59) - lu(k,1289) * b(k,76) - b(k,58) = b(k,58) - lu(k,1288) * b(k,76) - b(k,49) = b(k,49) - lu(k,1287) * b(k,76) - b(k,41) = b(k,41) - lu(k,1286) * b(k,76) - b(k,37) = b(k,37) - lu(k,1285) * b(k,76) - b(k,36) = b(k,36) - lu(k,1284) * b(k,76) - b(k,21) = b(k,21) - lu(k,1283) * b(k,76) - b(k,75) = b(k,75) * lu(k,1269) - b(k,74) = b(k,74) - lu(k,1268) * b(k,75) - b(k,73) = b(k,73) - lu(k,1267) * b(k,75) - b(k,72) = b(k,72) - lu(k,1266) * b(k,75) - b(k,71) = b(k,71) - lu(k,1265) * b(k,75) - b(k,70) = b(k,70) - lu(k,1264) * b(k,75) - b(k,69) = b(k,69) - lu(k,1263) * b(k,75) - b(k,68) = b(k,68) - lu(k,1262) * b(k,75) - b(k,67) = b(k,67) - lu(k,1261) * b(k,75) - b(k,66) = b(k,66) - lu(k,1260) * b(k,75) - b(k,65) = b(k,65) - lu(k,1259) * b(k,75) - b(k,64) = b(k,64) - lu(k,1258) * b(k,75) - b(k,63) = b(k,63) - lu(k,1257) * b(k,75) - b(k,62) = b(k,62) - lu(k,1256) * b(k,75) - b(k,61) = b(k,61) - lu(k,1255) * b(k,75) - b(k,60) = b(k,60) - lu(k,1254) * b(k,75) - b(k,59) = b(k,59) - lu(k,1253) * b(k,75) - b(k,57) = b(k,57) - lu(k,1252) * b(k,75) - b(k,56) = b(k,56) - lu(k,1251) * b(k,75) - b(k,52) = b(k,52) - lu(k,1250) * b(k,75) - b(k,49) = b(k,49) - lu(k,1249) * b(k,75) - b(k,44) = b(k,44) - lu(k,1248) * b(k,75) - b(k,41) = b(k,41) - lu(k,1247) * b(k,75) - b(k,37) = b(k,37) - lu(k,1246) * b(k,75) - b(k,10) = b(k,10) - lu(k,1245) * b(k,75) - b(k,74) = b(k,74) * lu(k,1230) - b(k,73) = b(k,73) - lu(k,1229) * b(k,74) - b(k,72) = b(k,72) - lu(k,1228) * b(k,74) - b(k,71) = b(k,71) - lu(k,1227) * b(k,74) - b(k,70) = b(k,70) - lu(k,1226) * b(k,74) - b(k,69) = b(k,69) - lu(k,1225) * b(k,74) - b(k,68) = b(k,68) - lu(k,1224) * b(k,74) - b(k,67) = b(k,67) - lu(k,1223) * b(k,74) - b(k,66) = b(k,66) - lu(k,1222) * b(k,74) - b(k,65) = b(k,65) - lu(k,1221) * b(k,74) - b(k,64) = b(k,64) - lu(k,1220) * b(k,74) - b(k,63) = b(k,63) - lu(k,1219) * b(k,74) - b(k,62) = b(k,62) - lu(k,1218) * b(k,74) - b(k,61) = b(k,61) - lu(k,1217) * b(k,74) - b(k,60) = b(k,60) - lu(k,1216) * b(k,74) - b(k,59) = b(k,59) - lu(k,1215) * b(k,74) - b(k,58) = b(k,58) - lu(k,1214) * b(k,74) - b(k,57) = b(k,57) - lu(k,1213) * b(k,74) - b(k,56) = b(k,56) - lu(k,1212) * b(k,74) - b(k,52) = b(k,52) - lu(k,1211) * b(k,74) - b(k,50) = b(k,50) - lu(k,1210) * b(k,74) - b(k,49) = b(k,49) - lu(k,1209) * b(k,74) - b(k,44) = b(k,44) - lu(k,1208) * b(k,74) - b(k,41) = b(k,41) - lu(k,1207) * b(k,74) - b(k,40) = b(k,40) - lu(k,1206) * b(k,74) - b(k,37) = b(k,37) - lu(k,1205) * b(k,74) - b(k,36) = b(k,36) - lu(k,1204) * b(k,74) - b(k,35) = b(k,35) - lu(k,1203) * b(k,74) - b(k,34) = b(k,34) - lu(k,1202) * b(k,74) - b(k,33) = b(k,33) - lu(k,1201) * b(k,74) - b(k,32) = b(k,32) - lu(k,1200) * b(k,74) - b(k,30) = b(k,30) - lu(k,1199) * b(k,74) - b(k,27) = b(k,27) - lu(k,1198) * b(k,74) - b(k,23) = b(k,23) - lu(k,1197) * b(k,74) - b(k,21) = b(k,21) - lu(k,1196) * b(k,74) - b(k,20) = b(k,20) - lu(k,1195) * b(k,74) - b(k,19) = b(k,19) - lu(k,1194) * b(k,74) - b(k,18) = b(k,18) - lu(k,1193) * b(k,74) - b(k,17) = b(k,17) - lu(k,1192) * b(k,74) - b(k,16) = b(k,16) - lu(k,1191) * b(k,74) - b(k,15) = b(k,15) - lu(k,1190) * b(k,74) - b(k,10) = b(k,10) - lu(k,1189) * b(k,74) - b(k,73) = b(k,73) * lu(k,1173) - b(k,72) = b(k,72) - lu(k,1172) * b(k,73) - b(k,71) = b(k,71) - lu(k,1171) * b(k,73) - b(k,70) = b(k,70) - lu(k,1170) * b(k,73) - b(k,69) = b(k,69) - lu(k,1169) * b(k,73) - b(k,68) = b(k,68) - lu(k,1168) * b(k,73) - b(k,67) = b(k,67) - lu(k,1167) * b(k,73) - b(k,66) = b(k,66) - lu(k,1166) * b(k,73) - b(k,65) = b(k,65) - lu(k,1165) * b(k,73) - b(k,64) = b(k,64) - lu(k,1164) * b(k,73) - b(k,63) = b(k,63) - lu(k,1163) * b(k,73) - b(k,62) = b(k,62) - lu(k,1162) * b(k,73) - b(k,61) = b(k,61) - lu(k,1161) * b(k,73) - b(k,60) = b(k,60) - lu(k,1160) * b(k,73) - b(k,58) = b(k,58) - lu(k,1159) * b(k,73) - b(k,57) = b(k,57) - lu(k,1158) * b(k,73) - b(k,56) = b(k,56) - lu(k,1157) * b(k,73) - b(k,55) = b(k,55) - lu(k,1156) * b(k,73) - b(k,51) = b(k,51) - lu(k,1155) * b(k,73) - b(k,50) = b(k,50) - lu(k,1154) * b(k,73) - b(k,48) = b(k,48) - lu(k,1153) * b(k,73) - b(k,39) = b(k,39) - lu(k,1152) * b(k,73) - b(k,31) = b(k,31) - lu(k,1151) * b(k,73) - b(k,26) = b(k,26) - lu(k,1150) * b(k,73) - b(k,7) = b(k,7) - lu(k,1149) * b(k,73) - b(k,72) = b(k,72) * lu(k,1132) - b(k,71) = b(k,71) - lu(k,1131) * b(k,72) - b(k,70) = b(k,70) - lu(k,1130) * b(k,72) - b(k,69) = b(k,69) - lu(k,1129) * b(k,72) - b(k,68) = b(k,68) - lu(k,1128) * b(k,72) - b(k,67) = b(k,67) - lu(k,1127) * b(k,72) - b(k,66) = b(k,66) - lu(k,1126) * b(k,72) - b(k,65) = b(k,65) - lu(k,1125) * b(k,72) - b(k,64) = b(k,64) - lu(k,1124) * b(k,72) - b(k,63) = b(k,63) - lu(k,1123) * b(k,72) - b(k,62) = b(k,62) - lu(k,1122) * b(k,72) - b(k,61) = b(k,61) - lu(k,1121) * b(k,72) - b(k,60) = b(k,60) - lu(k,1120) * b(k,72) - b(k,59) = b(k,59) - lu(k,1119) * b(k,72) - b(k,58) = b(k,58) - lu(k,1118) * b(k,72) - b(k,57) = b(k,57) - lu(k,1117) * b(k,72) - b(k,56) = b(k,56) - lu(k,1116) * b(k,72) - b(k,52) = b(k,52) - lu(k,1115) * b(k,72) - b(k,51) = b(k,51) - lu(k,1114) * b(k,72) - b(k,48) = b(k,48) - lu(k,1113) * b(k,72) - b(k,46) = b(k,46) - lu(k,1112) * b(k,72) - b(k,45) = b(k,45) - lu(k,1111) * b(k,72) - b(k,44) = b(k,44) - lu(k,1110) * b(k,72) - b(k,35) = b(k,35) - lu(k,1109) * b(k,72) - b(k,33) = b(k,33) - lu(k,1108) * b(k,72) - b(k,30) = b(k,30) - lu(k,1107) * b(k,72) - b(k,26) = b(k,26) - lu(k,1106) * b(k,72) - b(k,6) = b(k,6) - lu(k,1105) * b(k,72) - b(k,4) = b(k,4) - lu(k,1104) * b(k,72) - b(k,71) = b(k,71) * lu(k,1086) - b(k,70) = b(k,70) - lu(k,1085) * b(k,71) - b(k,69) = b(k,69) - lu(k,1084) * b(k,71) - b(k,68) = b(k,68) - lu(k,1083) * b(k,71) - b(k,67) = b(k,67) - lu(k,1082) * b(k,71) - b(k,66) = b(k,66) - lu(k,1081) * b(k,71) - b(k,65) = b(k,65) - lu(k,1080) * b(k,71) - b(k,64) = b(k,64) - lu(k,1079) * b(k,71) - b(k,63) = b(k,63) - lu(k,1078) * b(k,71) - b(k,62) = b(k,62) - lu(k,1077) * b(k,71) - b(k,61) = b(k,61) - lu(k,1076) * b(k,71) - b(k,60) = b(k,60) - lu(k,1075) * b(k,71) - b(k,59) = b(k,59) - lu(k,1074) * b(k,71) - b(k,49) = b(k,49) - lu(k,1073) * b(k,71) - b(k,42) = b(k,42) - lu(k,1072) * b(k,71) - b(k,41) = b(k,41) - lu(k,1071) * b(k,71) - b(k,40) = b(k,40) - lu(k,1070) * b(k,71) - b(k,37) = b(k,37) - lu(k,1069) * b(k,71) - b(k,34) = b(k,34) - lu(k,1068) * b(k,71) - b(k,27) = b(k,27) - lu(k,1067) * b(k,71) - b(k,25) = b(k,25) - lu(k,1066) * b(k,71) - b(k,24) = b(k,24) - lu(k,1065) * b(k,71) - b(k,21) = b(k,21) - lu(k,1064) * b(k,71) - b(k,10) = b(k,10) - lu(k,1063) * b(k,71) - b(k,70) = b(k,70) * lu(k,1044) - b(k,69) = b(k,69) - lu(k,1043) * b(k,70) - b(k,68) = b(k,68) - lu(k,1042) * b(k,70) - b(k,67) = b(k,67) - lu(k,1041) * b(k,70) - b(k,66) = b(k,66) - lu(k,1040) * b(k,70) - b(k,65) = b(k,65) - lu(k,1039) * b(k,70) - b(k,64) = b(k,64) - lu(k,1038) * b(k,70) - b(k,63) = b(k,63) - lu(k,1037) * b(k,70) - b(k,62) = b(k,62) - lu(k,1036) * b(k,70) - b(k,61) = b(k,61) - lu(k,1035) * b(k,70) - b(k,60) = b(k,60) - lu(k,1034) * b(k,70) - b(k,59) = b(k,59) - lu(k,1033) * b(k,70) - b(k,58) = b(k,58) - lu(k,1032) * b(k,70) - b(k,55) = b(k,55) - lu(k,1031) * b(k,70) - b(k,54) = b(k,54) - lu(k,1030) * b(k,70) - b(k,53) = b(k,53) - lu(k,1029) * b(k,70) - b(k,51) = b(k,51) - lu(k,1028) * b(k,70) - b(k,48) = b(k,48) - lu(k,1027) * b(k,70) - b(k,47) = b(k,47) - lu(k,1026) * b(k,70) - b(k,46) = b(k,46) - lu(k,1025) * b(k,70) - b(k,45) = b(k,45) - lu(k,1024) * b(k,70) - b(k,43) = b(k,43) - lu(k,1023) * b(k,70) - b(k,42) = b(k,42) - lu(k,1022) * b(k,70) - b(k,28) = b(k,28) - lu(k,1021) * b(k,70) - b(k,69) = b(k,69) * lu(k,1001) - b(k,68) = b(k,68) - lu(k,1000) * b(k,69) - b(k,67) = b(k,67) - lu(k,999) * b(k,69) - b(k,66) = b(k,66) - lu(k,998) * b(k,69) - b(k,65) = b(k,65) - lu(k,997) * b(k,69) - b(k,64) = b(k,64) - lu(k,996) * b(k,69) - b(k,63) = b(k,63) - lu(k,995) * b(k,69) - b(k,62) = b(k,62) - lu(k,994) * b(k,69) - b(k,61) = b(k,61) - lu(k,993) * b(k,69) - b(k,60) = b(k,60) - lu(k,992) * b(k,69) - b(k,58) = b(k,58) - lu(k,991) * b(k,69) - b(k,57) = b(k,57) - lu(k,990) * b(k,69) - b(k,56) = b(k,56) - lu(k,989) * b(k,69) - b(k,55) = b(k,55) - lu(k,988) * b(k,69) - b(k,54) = b(k,54) - lu(k,987) * b(k,69) - b(k,52) = b(k,52) - lu(k,986) * b(k,69) - b(k,49) = b(k,49) - lu(k,985) * b(k,69) - b(k,47) = b(k,47) - lu(k,984) * b(k,69) - b(k,44) = b(k,44) - lu(k,983) * b(k,69) - b(k,40) = b(k,40) - lu(k,982) * b(k,69) - b(k,39) = b(k,39) - lu(k,981) * b(k,69) - b(k,36) = b(k,36) - lu(k,980) * b(k,69) - b(k,26) = b(k,26) - lu(k,979) * 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,958) - b(k,67) = b(k,67) - lu(k,957) * b(k,68) - b(k,66) = b(k,66) - lu(k,956) * b(k,68) - b(k,65) = b(k,65) - lu(k,955) * b(k,68) - b(k,63) = b(k,63) - lu(k,954) * b(k,68) - b(k,61) = b(k,61) - lu(k,953) * b(k,68) - b(k,57) = b(k,57) - lu(k,952) * b(k,68) - b(k,41) = b(k,41) - lu(k,951) * b(k,68) - b(k,40) = b(k,40) - lu(k,950) * b(k,68) - b(k,34) = b(k,34) - lu(k,949) * b(k,68) - b(k,29) = b(k,29) - lu(k,948) * b(k,68) - b(k,28) = b(k,28) - lu(k,947) * b(k,68) - b(k,26) = b(k,26) - lu(k,946) * b(k,68) - b(k,25) = b(k,25) - lu(k,945) * b(k,68) - b(k,24) = b(k,24) - lu(k,944) * b(k,68) - b(k,23) = b(k,23) - lu(k,943) * b(k,68) - b(k,22) = b(k,22) - lu(k,942) * b(k,68) - b(k,20) = b(k,20) - lu(k,941) * b(k,68) - b(k,17) = b(k,17) - lu(k,940) * b(k,68) - b(k,16) = b(k,16) - lu(k,939) * b(k,68) - b(k,15) = b(k,15) - lu(k,938) * b(k,68) - b(k,13) = b(k,13) - lu(k,937) * b(k,68) - b(k,11) = b(k,11) - lu(k,936) * b(k,68) - b(k,67) = b(k,67) * lu(k,914) - b(k,66) = b(k,66) - lu(k,913) * b(k,67) - b(k,65) = b(k,65) - lu(k,912) * b(k,67) - b(k,64) = b(k,64) - lu(k,911) * b(k,67) - b(k,63) = b(k,63) - lu(k,910) * b(k,67) - b(k,62) = b(k,62) - lu(k,909) * b(k,67) - b(k,61) = b(k,61) - lu(k,908) * b(k,67) - b(k,60) = b(k,60) - lu(k,907) * b(k,67) - b(k,59) = b(k,59) - lu(k,906) * b(k,67) - b(k,58) = b(k,58) - lu(k,905) * b(k,67) - b(k,55) = b(k,55) - lu(k,904) * b(k,67) - b(k,54) = b(k,54) - lu(k,903) * b(k,67) - b(k,53) = b(k,53) - lu(k,902) * b(k,67) - b(k,51) = b(k,51) - lu(k,901) * b(k,67) - b(k,48) = b(k,48) - lu(k,900) * b(k,67) - b(k,47) = b(k,47) - lu(k,899) * b(k,67) - b(k,46) = b(k,46) - lu(k,898) * b(k,67) - b(k,45) = b(k,45) - lu(k,897) * b(k,67) - b(k,43) = b(k,43) - lu(k,896) * b(k,67) - b(k,42) = b(k,42) - lu(k,895) * b(k,67) - b(k,26) = b(k,26) - lu(k,894) * b(k,67) - b(k,13) = b(k,13) - lu(k,893) * b(k,67) - b(k,66) = b(k,66) * lu(k,870) - b(k,65) = b(k,65) - lu(k,869) * b(k,66) - b(k,64) = b(k,64) - lu(k,868) * b(k,66) - b(k,63) = b(k,63) - lu(k,867) * b(k,66) - b(k,62) = b(k,62) - lu(k,866) * b(k,66) - b(k,61) = b(k,61) - lu(k,865) * b(k,66) - b(k,60) = b(k,60) - lu(k,864) * b(k,66) - b(k,59) = b(k,59) - lu(k,863) * b(k,66) - b(k,58) = b(k,58) - lu(k,862) * b(k,66) - b(k,57) = b(k,57) - lu(k,861) * b(k,66) - b(k,55) = b(k,55) - lu(k,860) * b(k,66) - b(k,54) = b(k,54) - lu(k,859) * b(k,66) - b(k,53) = b(k,53) - lu(k,858) * b(k,66) - b(k,51) = b(k,51) - lu(k,857) * b(k,66) - b(k,48) = b(k,48) - lu(k,856) * b(k,66) - b(k,47) = b(k,47) - lu(k,855) * b(k,66) - b(k,46) = b(k,46) - lu(k,854) * b(k,66) - b(k,45) = b(k,45) - lu(k,853) * b(k,66) - b(k,43) = b(k,43) - lu(k,852) * b(k,66) - b(k,42) = b(k,42) - lu(k,851) * b(k,66) - b(k,40) = b(k,40) - lu(k,850) * b(k,66) - b(k,25) = b(k,25) - lu(k,849) * b(k,66) - b(k,24) = b(k,24) - lu(k,848) * b(k,66) - b(k,17) = b(k,17) - lu(k,847) * b(k,66) - b(k,65) = b(k,65) * lu(k,823) - b(k,64) = b(k,64) - lu(k,822) * b(k,65) - b(k,63) = b(k,63) - lu(k,821) * b(k,65) - b(k,62) = b(k,62) - lu(k,820) * b(k,65) - b(k,61) = b(k,61) - lu(k,819) * b(k,65) - b(k,60) = b(k,60) - lu(k,818) * b(k,65) - b(k,59) = b(k,59) - lu(k,817) * b(k,65) - b(k,58) = b(k,58) - lu(k,816) * b(k,65) - b(k,55) = b(k,55) - lu(k,815) * b(k,65) - b(k,54) = b(k,54) - lu(k,814) * b(k,65) - b(k,53) = b(k,53) - lu(k,813) * b(k,65) - b(k,51) = b(k,51) - lu(k,812) * b(k,65) - b(k,48) = b(k,48) - lu(k,811) * b(k,65) - b(k,47) = b(k,47) - lu(k,810) * b(k,65) - b(k,46) = b(k,46) - lu(k,809) * b(k,65) - b(k,45) = b(k,45) - lu(k,808) * b(k,65) - b(k,43) = b(k,43) - lu(k,807) * b(k,65) - b(k,42) = b(k,42) - lu(k,806) * b(k,65) - b(k,28) = b(k,28) - lu(k,805) * b(k,65) - b(k,22) = b(k,22) - lu(k,804) * b(k,65) - b(k,64) = b(k,64) * lu(k,779) - b(k,63) = b(k,63) - lu(k,778) * b(k,64) - b(k,62) = b(k,62) - lu(k,777) * b(k,64) - b(k,60) = b(k,60) - lu(k,776) * b(k,64) - b(k,58) = b(k,58) - lu(k,775) * b(k,64) - b(k,55) = b(k,55) - lu(k,774) * b(k,64) - b(k,54) = b(k,54) - lu(k,773) * b(k,64) - b(k,49) = b(k,49) - lu(k,772) * b(k,64) - b(k,36) = b(k,36) - lu(k,771) * b(k,64) - b(k,63) = b(k,63) * lu(k,749) - b(k,61) = b(k,61) - lu(k,748) * b(k,63) - b(k,57) = b(k,57) - lu(k,747) * b(k,63) - b(k,56) = b(k,56) - lu(k,746) * b(k,63) - b(k,52) = b(k,52) - lu(k,745) * b(k,63) - b(k,50) = b(k,50) - lu(k,744) * b(k,63) - b(k,44) = b(k,44) - lu(k,743) * b(k,63) - b(k,40) = b(k,40) - lu(k,742) * b(k,63) - b(k,39) = b(k,39) - lu(k,741) * b(k,63) - b(k,35) = b(k,35) - lu(k,740) * b(k,63) - b(k,33) = b(k,33) - lu(k,739) * b(k,63) - b(k,32) = b(k,32) - lu(k,738) * b(k,63) - b(k,31) = b(k,31) - lu(k,737) * b(k,63) - b(k,28) = b(k,28) - lu(k,736) * b(k,63) - b(k,27) = b(k,27) - lu(k,735) * b(k,63) - b(k,26) = b(k,26) - lu(k,734) * b(k,63) - b(k,19) = b(k,19) - lu(k,733) * b(k,63) - b(k,14) = b(k,14) - lu(k,732) * b(k,63) - b(k,12) = b(k,12) - lu(k,731) * b(k,63) - b(k,5) = b(k,5) - lu(k,730) * b(k,63) - b(k,2) = b(k,2) - lu(k,729) * b(k,63) - b(k,62) = b(k,62) * lu(k,706) - b(k,60) = b(k,60) - lu(k,705) * b(k,62) - b(k,58) = b(k,58) - lu(k,704) * b(k,62) - b(k,47) = b(k,47) - lu(k,703) * b(k,62) - b(k,26) = b(k,26) - lu(k,702) * b(k,62) - b(k,61) = b(k,61) * lu(k,680) - b(k,57) = b(k,57) - lu(k,679) * b(k,61) - b(k,56) = b(k,56) - lu(k,678) * b(k,61) - b(k,52) = b(k,52) - lu(k,677) * b(k,61) - b(k,50) = b(k,50) - lu(k,676) * b(k,61) - b(k,44) = b(k,44) - lu(k,675) * b(k,61) - b(k,39) = b(k,39) - lu(k,674) * b(k,61) - b(k,33) = b(k,33) - lu(k,673) * b(k,61) - b(k,32) = b(k,32) - lu(k,672) * b(k,61) - b(k,30) = b(k,30) - lu(k,671) * b(k,61) - b(k,28) = b(k,28) - lu(k,670) * b(k,61) - b(k,19) = b(k,19) - lu(k,669) * b(k,61) - b(k,14) = b(k,14) - lu(k,668) * b(k,61) - b(k,12) = b(k,12) - lu(k,667) * b(k,61) - b(k,60) = b(k,60) * lu(k,646) - b(k,58) = b(k,58) - lu(k,645) * b(k,60) - b(k,55) = b(k,55) - lu(k,644) * b(k,60) - b(k,51) = b(k,51) - lu(k,643) * b(k,60) - b(k,48) = b(k,48) - lu(k,642) * b(k,60) - b(k,59) = b(k,59) * lu(k,613) - b(k,58) = b(k,58) - lu(k,612) * b(k,59) - b(k,49) = b(k,49) - lu(k,611) * b(k,59) - b(k,36) = b(k,36) - lu(k,610) * b(k,59) - b(k,58) = b(k,58) * lu(k,591) - b(k,46) = b(k,46) - lu(k,590) * b(k,58) - b(k,45) = b(k,45) - lu(k,589) * b(k,58) - b(k,57) = b(k,57) * lu(k,567) - b(k,56) = b(k,56) - lu(k,566) * b(k,57) - b(k,52) = b(k,52) - lu(k,565) * b(k,57) - b(k,50) = b(k,50) - lu(k,564) * b(k,57) - b(k,44) = b(k,44) - lu(k,563) * b(k,57) - b(k,41) = b(k,41) - lu(k,562) * b(k,57) - b(k,39) = b(k,39) - lu(k,561) * b(k,57) - b(k,37) = b(k,37) - lu(k,560) * b(k,57) - b(k,32) = b(k,32) - lu(k,559) * b(k,57) - b(k,31) = b(k,31) - lu(k,558) * b(k,57) - b(k,10) = b(k,10) - lu(k,557) * b(k,57) - b(k,5) = b(k,5) - lu(k,556) * b(k,57) - b(k,2) = b(k,2) - lu(k,555) * b(k,57) - b(k,56) = b(k,56) * lu(k,535) - b(k,52) = b(k,52) - lu(k,534) * b(k,56) - b(k,50) = b(k,50) - lu(k,533) * b(k,56) - b(k,44) = b(k,44) - lu(k,532) * b(k,56) - b(k,32) = b(k,32) - lu(k,531) * b(k,56) - b(k,27) = b(k,27) - lu(k,530) * b(k,56) - b(k,55) = b(k,55) * lu(k,513) - b(k,53) = b(k,53) - lu(k,512) * b(k,55) - b(k,51) = b(k,51) - lu(k,511) * b(k,55) - b(k,38) = b(k,38) - lu(k,510) * b(k,55) - b(k,54) = b(k,54) * lu(k,491) - b(k,47) = b(k,47) - lu(k,490) * b(k,54) - b(k,43) = b(k,43) - lu(k,489) * b(k,54) - b(k,53) = b(k,53) * lu(k,471) - b(k,51) = b(k,51) - lu(k,470) * b(k,53) - b(k,38) = b(k,38) - lu(k,469) * b(k,53) - b(k,52) = b(k,52) * lu(k,451) - b(k,44) = b(k,44) - lu(k,450) * b(k,52) - b(k,30) = b(k,30) - lu(k,449) * b(k,52) - b(k,18) = b(k,18) - lu(k,448) * b(k,52) - b(k,6) = b(k,6) - lu(k,447) * b(k,52) - b(k,3) = b(k,3) - lu(k,446) * b(k,52) - b(k,51) = b(k,51) * lu(k,432) - b(k,50) = b(k,50) * lu(k,413) - b(k,39) = b(k,39) - lu(k,412) * b(k,50) - b(k,31) = b(k,31) - lu(k,411) * b(k,50) - b(k,7) = b(k,7) - lu(k,410) * b(k,50) - b(k,49) = b(k,49) * lu(k,395) - b(k,48) = b(k,48) * lu(k,379) - b(k,47) = b(k,47) * lu(k,365) - b(k,46) = b(k,46) * lu(k,350) - b(k,45) = b(k,45) - lu(k,349) * b(k,46) - b(k,45) = b(k,45) * lu(k,334) - b(k,44) = b(k,44) * lu(k,322) - b(k,32) = b(k,32) - lu(k,321) * b(k,44) - b(k,27) = b(k,27) - lu(k,320) * b(k,44) - b(k,43) = b(k,43) * lu(k,305) - b(k,42) = b(k,42) * lu(k,291) - 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,41) = b(k,41) * lu(k,279) - b(k,37) = b(k,37) - lu(k,278) * b(k,41) - b(k,29) = b(k,29) - lu(k,277) * b(k,41) - b(k,40) = b(k,40) * lu(k,265) - b(k,34) = b(k,34) - lu(k,264) * b(k,40) - b(k,20) = b(k,20) - lu(k,263) * b(k,40) - b(k,39) = b(k,39) * lu(k,252) - b(k,12) = b(k,12) - lu(k,251) * b(k,39) - b(k,38) = b(k,38) * lu(k,239) - b(k,9) = b(k,9) - lu(k,238) * b(k,38) - b(k,8) = b(k,8) - lu(k,237) * b(k,38) - b(k,37) = b(k,37) * lu(k,229) - b(k,36) = b(k,36) * lu(k,221) - b(k,35) = b(k,35) * lu(k,211) - b(k,33) = b(k,33) - lu(k,210) * b(k,35) - b(k,4) = b(k,4) - lu(k,209) * b(k,35) - b(k,34) = b(k,34) * lu(k,199) - b(k,27) = b(k,27) - lu(k,198) * b(k,34) - b(k,33) = b(k,33) * lu(k,191) - b(k,4) = b(k,4) - lu(k,190) * b(k,33) - b(k,32) = b(k,32) * lu(k,182) - b(k,31) = b(k,31) * lu(k,174) - b(k,7) = b(k,7) - lu(k,173) * b(k,31) - b(k,30) = b(k,30) * lu(k,165) - b(k,6) = b(k,6) - lu(k,164) * b(k,30) - b(k,29) = b(k,29) * lu(k,156) - b(k,28) = b(k,28) - lu(k,155) * b(k,29) - b(k,22) = b(k,22) - lu(k,154) * b(k,29) - b(k,11) = b(k,11) - lu(k,153) * b(k,29) - b(k,28) = b(k,28) * lu(k,148) - b(k,22) = b(k,22) - lu(k,147) * b(k,28) - b(k,27) = b(k,27) * lu(k,142) - b(k,26) = b(k,26) * lu(k,137) - b(k,25) = b(k,25) * lu(k,130) - b(k,24) = b(k,24) * lu(k,122) - b(k,23) = b(k,23) * lu(k,112) - b(k,17) = b(k,17) - lu(k,111) * b(k,23) - b(k,22) = b(k,22) * lu(k,105) - b(k,21) = b(k,21) * lu(k,98) - b(k,20) = b(k,20) * lu(k,91) - b(k,19) = b(k,19) * lu(k,84) - b(k,18) = b(k,18) * lu(k,76) - 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 a982a92d76..e099d488d2 100644 --- a/src/chemistry/pp_waccm_mad/mo_nln_matrix.F90 +++ b/src/chemistry/pp_waccm_mad/mo_nln_matrix.F90 @@ -1,2997 +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,447) = rxt(k,487)*y(k,24) - mat(k,1488) = rxt(k,487)*y(k,2) - mat(k,1105) = (rxt(k,549)+rxt(k,554))*y(k,45) - mat(k,164) = (rxt(k,549)+rxt(k,554))*y(k,40) - mat(k,451) = -(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,1494) = -(rxt(k,485) + rxt(k,486) + rxt(k,487)) * y(k,2) - mat(k,677) = -rxt(k,488)*y(k,2) - mat(k,986) = -rxt(k,489)*y(k,2) - mat(k,1728) = -rxt(k,490)*y(k,2) - mat(k,1211) = -rxt(k,492)*y(k,2) - mat(k,745) = -rxt(k,493)*y(k,2) - mat(k,79) = rxt(k,491)*y(k,54) - mat(k,184) = rxt(k,501)*y(k,95) - mat(k,167) = rxt(k,496)*y(k,54) - mat(k,1211) = mat(k,1211) + rxt(k,491)*y(k,3) + rxt(k,496)*y(k,45) - mat(k,1250) = rxt(k,483)*y(k,59) - mat(k,323) = rxt(k,483)*y(k,56) - mat(k,565) = rxt(k,501)*y(k,36) - mat(k,76) = -(rxt(k,491)*y(k,54)) - mat(k,1193) = -rxt(k,491)*y(k,3) - mat(k,448) = rxt(k,490)*y(k,52) - mat(k,1720) = rxt(k,490)*y(k,2) - mat(k,535) = -(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,1374) = -rxt(k,445)*y(k,14) - mat(k,324) = -rxt(k,481)*y(k,14) - mat(k,1412) = -rxt(k,525)*y(k,14) - mat(k,1212) = -rxt(k,526)*y(k,14) - mat(k,746) = -rxt(k,527)*y(k,14) - mat(k,253) = 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,1495) = rxt(k,452)*y(k,18) - mat(k,989) = rxt(k,529)*y(k,18) - mat(k,746) = mat(k,746) + .300_r8*rxt(k,530)*y(k,19) - mat(k,252) = -(rxt(k,452)*y(k,24) + rxt(k,528)*y(k,43) + rxt(k,529)*y(k,51)) - mat(k,1492) = -rxt(k,452)*y(k,18) - mat(k,674) = -rxt(k,528)*y(k,18) - mat(k,981) = -rxt(k,529)*y(k,18) - mat(k,40) = .700_r8*rxt(k,530)*y(k,104) - mat(k,741) = .700_r8*rxt(k,530)*y(k,19) - mat(k,39) = -(rxt(k,530)*y(k,104)) - mat(k,731) = -rxt(k,530)*y(k,19) - mat(k,251) = rxt(k,528)*y(k,43) - mat(k,667) = rxt(k,528)*y(k,18) - mat(k,1487) = 2.000_r8*rxt(k,454)*y(k,24) - mat(k,209) = (rxt(k,547)+rxt(k,552)+rxt(k,557))*y(k,40) + rxt(k,458)*y(k,60) - mat(k,1104) = (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,190) = (rxt(k,542)+rxt(k,548)+rxt(k,553))*y(k,40) - mat(k,1364) = rxt(k,458)*y(k,25) - mat(k,1485) = 2.000_r8*rxt(k,479)*y(k,24) - mat(k,1520) = -(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,796) = -rxt(k,111)*y(k,24) - mat(k,634) = -rxt(k,123)*y(k,24) - mat(k,722) = -rxt(k,281)*y(k,24) - mat(k,1311) = -rxt(k,310)*y(k,24) - mat(k,1596) = -rxt(k,337)*y(k,24) - mat(k,1632) = -rxt(k,346)*y(k,24) - mat(k,258) = -rxt(k,452)*y(k,24) - mat(k,695) = -rxt(k,456)*y(k,24) - mat(k,1013) = -rxt(k,457)*y(k,24) - mat(k,1756) = -rxt(k,459)*y(k,24) - mat(k,1237) = -rxt(k,462)*y(k,24) - mat(k,764) = -(rxt(k,463) + rxt(k,464)) * y(k,24) - mat(k,464) = -(rxt(k,485) + rxt(k,486) + rxt(k,487)) * y(k,24) - mat(k,218) = rxt(k,460)*y(k,54) - mat(k,1141) = rxt(k,478)*y(k,95) - mat(k,695) = mat(k,695) + rxt(k,450)*y(k,60) - mat(k,196) = rxt(k,468)*y(k,54) + rxt(k,467)*y(k,60) + rxt(k,469)*y(k,104) - mat(k,1237) = mat(k,1237) + rxt(k,460)*y(k,25) + rxt(k,468)*y(k,46) - mat(k,1275) = rxt(k,451)*y(k,60) - mat(k,1399) = rxt(k,450)*y(k,43) + rxt(k,467)*y(k,46) + rxt(k,451)*y(k,56) - mat(k,582) = rxt(k,478)*y(k,40) - mat(k,764) = mat(k,764) + rxt(k,469)*y(k,46) - mat(k,211) = -(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,1368) = -rxt(k,458)*y(k,25) - mat(k,1203) = -rxt(k,460)*y(k,25) - mat(k,740) = -rxt(k,461)*y(k,25) - mat(k,1109) = -(rxt(k,547) + rxt(k,552) + rxt(k,557)) * y(k,25) - mat(k,1490) = rxt(k,459)*y(k,52) - mat(k,1722) = rxt(k,459)*y(k,24) - mat(k,142) = -((rxt(k,532) + rxt(k,536)) * y(k,104)) - mat(k,735) = -(rxt(k,532) + rxt(k,536)) * y(k,27) - mat(k,530) = 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,1067) = rxt(k,573)*y(k,107) - mat(k,1407) = rxt(k,525)*y(k,14) - mat(k,1198) = rxt(k,526)*y(k,14) - mat(k,320) = rxt(k,481)*y(k,14) - mat(k,1366) = rxt(k,445)*y(k,14) - mat(k,735) = mat(k,735) + rxt(k,527)*y(k,14) - mat(k,198) = rxt(k,573)*y(k,28) - mat(k,4) = -(rxt(k,506)*y(k,95)) - mat(k,555) = -rxt(k,506)*y(k,29) - mat(k,12) = -(rxt(k,507)*y(k,95)) - mat(k,556) = -rxt(k,507)*y(k,30) - mat(k,1086) = -(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,128) = -rxt(k,307)*y(k,28) - mat(k,1301) = -rxt(k,311)*y(k,28) - mat(k,401) = -rxt(k,325)*y(k,28) - mat(k,101) = -rxt(k,330)*y(k,28) - mat(k,1586) = -rxt(k,338)*y(k,28) - mat(k,1622) = -rxt(k,347)*y(k,28) - mat(k,875) = -rxt(k,363)*y(k,28) - mat(k,204) = -rxt(k,573)*y(k,28) - mat(k,1510) = rxt(k,111)*y(k,65) + rxt(k,123)*y(k,68) - mat(k,145) = (rxt(k,532)+rxt(k,536))*y(k,104) - mat(k,1701) = rxt(k,112)*y(k,65) - mat(k,1131) = rxt(k,125)*y(k,68) - mat(k,1171) = rxt(k,119)*y(k,65) - mat(k,1003) = rxt(k,275)*y(k,65) + (rxt(k,117)+rxt(k,118))*y(k,67) - mat(k,1746) = rxt(k,276)*y(k,65) + (rxt(k,115)+rxt(k,116))*y(k,67) - mat(k,1227) = rxt(k,120)*y(k,65) - mat(k,1665) = rxt(k,121)*y(k,65) - mat(k,1265) = rxt(k,127)*y(k,68) - mat(k,1389) = (rxt(k,109)+rxt(k,110))*y(k,65) + rxt(k,122)*y(k,68) - mat(k,786) = 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,312) = 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,501) = (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,625) = 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,961) = rxt(k,301)*y(k,91) - 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,829) = 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,1467) = (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,1553) = (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,875) = mat(k,875) + 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,918) = 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,135) = rxt(k,301)*y(k,69) + rxt(k,302)*y(k,110) - mat(k,1045) = 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,1346) = 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,755) = (rxt(k,532)+rxt(k,536))*y(k,27) - mat(k,1799) = rxt(k,302)*y(k,91) - mat(k,174) = -(rxt(k,503)*y(k,33) + rxt(k,504)*y(k,110) + rxt(k,505)*y(k,42)) - mat(k,411) = -rxt(k,503)*y(k,31) - mat(k,1775) = -rxt(k,504)*y(k,31) - mat(k,1151) = -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,558) = 2.000_r8*rxt(k,506)*y(k,29) + rxt(k,507)*y(k,30) - mat(k,1716) = -(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,607) = -rxt(k,100)*y(k,32) - mat(k,801) = -rxt(k,112)*y(k,32) - mat(k,639) = -rxt(k,124)*y(k,32) - mat(k,726) = -rxt(k,282)*y(k,32) - mat(k,1060) = -rxt(k,304)*y(k,32) - mat(k,1316) = -rxt(k,312)*y(k,32) - mat(k,408) = -rxt(k,326)*y(k,32) - mat(k,1601) = -rxt(k,339)*y(k,32) - mat(k,699) = -(rxt(k,403) + rxt(k,404) + rxt(k,405)) * y(k,32) - mat(k,1680) = -rxt(k,406)*y(k,32) - mat(k,1280) = -rxt(k,409)*y(k,32) - mat(k,552) = rxt(k,527)*y(k,104) - mat(k,146) = rxt(k,536)*y(k,104) - mat(k,180) = rxt(k,503)*y(k,33) - mat(k,429) = 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,188) = rxt(k,501)*y(k,95) - mat(k,1146) = rxt(k,478)*y(k,95) - mat(k,275) = rxt(k,433)*y(k,104) - mat(k,1242) = rxt(k,401)*y(k,33) + rxt(k,413)*y(k,104) - mat(k,1404) = rxt(k,447)*y(k,33) - mat(k,607) = mat(k,607) + rxt(k,190)*y(k,73) + rxt(k,142)*y(k,75) & - + rxt(k,172)*y(k,77) - mat(k,363) = rxt(k,194)*y(k,73) + rxt(k,159)*y(k,75) + rxt(k,177)*y(k,77) - mat(k,347) = rxt(k,182)*y(k,73) + rxt(k,176)*y(k,75) + rxt(k,164)*y(k,77) - mat(k,801) = mat(k,801) + 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,318) = 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,507) = 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,639) = mat(k,639) + rxt(k,186)*y(k,73) + rxt(k,220)*y(k,75) & - + rxt(k,169)*y(k,77) - mat(k,976) = 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,303) = rxt(k,184)*y(k,73) + rxt(k,198)*y(k,75) + rxt(k,167)*y(k,77) - mat(k,109) = rxt(k,377)*y(k,69) - mat(k,844) = 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,1482) = 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,1568) = 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,151) = rxt(k,376)*y(k,69) - mat(k,726) = mat(k,726) + rxt(k,196)*y(k,73) + rxt(k,161)*y(k,75) & - + rxt(k,179)*y(k,77) - mat(k,376) = rxt(k,192)*y(k,73) + rxt(k,157)*y(k,75) + rxt(k,174)*y(k,77) - mat(k,486) = rxt(k,195)*y(k,73) + rxt(k,160)*y(k,75) + rxt(k,178)*y(k,77) - mat(k,527) = 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,393) = rxt(k,193)*y(k,73) + rxt(k,158)*y(k,75) + rxt(k,175)*y(k,77) - mat(k,586) = rxt(k,384)*y(k,33) + rxt(k,501)*y(k,36) + rxt(k,478)*y(k,40) - mat(k,1316) = mat(k,1316) + rxt(k,185)*y(k,73) + rxt(k,209)*y(k,75) & - + rxt(k,168)*y(k,77) - mat(k,768) = 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,1637) = 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,413) = -((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,1607) = -(rxt(k,348) + rxt(k,349)) * y(k,33) - mat(k,564) = -rxt(k,384)*y(k,33) - mat(k,1210) = -rxt(k,401)*y(k,33) - mat(k,744) = -rxt(k,410)*y(k,33) - mat(k,1372) = -rxt(k,447)*y(k,33) - mat(k,176) = -rxt(k,503)*y(k,33) - mat(k,1685) = rxt(k,403)*y(k,43) - mat(k,676) = rxt(k,403)*y(k,32) - mat(k,84) = -(rxt(k,402)*y(k,54) + rxt(k,411)*y(k,104) + rxt(k,448)*y(k,60)) - mat(k,1194) = -rxt(k,402)*y(k,35) - mat(k,733) = -rxt(k,411)*y(k,35) - mat(k,1365) = -rxt(k,448)*y(k,35) - mat(k,669) = 2.000_r8*rxt(k,417)*y(k,43) - mat(k,733) = mat(k,733) + 2.000_r8*rxt(k,416)*y(k,104) - mat(k,182) = -(rxt(k,494)*y(k,54) + rxt(k,495)*y(k,104) + (rxt(k,500) & - + rxt(k,501)) * y(k,95)) - mat(k,1200) = -rxt(k,494)*y(k,36) - mat(k,738) = -rxt(k,495)*y(k,36) - mat(k,559) = -(rxt(k,500) + rxt(k,501)) * y(k,36) - mat(k,531) = rxt(k,481)*y(k,59) - mat(k,672) = rxt(k,482)*y(k,59) - mat(k,321) = rxt(k,481)*y(k,14) + rxt(k,482)*y(k,43) - mat(k,1132) = -(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,357) = -rxt(k,101)*y(k,40) - mat(k,600) = -rxt(k,103)*y(k,40) - mat(k,626) = -rxt(k,125)*y(k,40) - mat(k,654) = -(rxt(k,271) + rxt(k,293)) * y(k,40) - mat(k,714) = -rxt(k,284)*y(k,40) - mat(k,1302) = -rxt(k,313)*y(k,40) - mat(k,1587) = -rxt(k,340)*y(k,40) - mat(k,1623) = -rxt(k,351)*y(k,40) - mat(k,1228) = -rxt(k,465)*y(k,40) - mat(k,756) = -rxt(k,466)*y(k,40) - mat(k,574) = -(rxt(k,477) + rxt(k,478)) * y(k,40) - mat(k,193) = -(rxt(k,542) + rxt(k,548) + rxt(k,553)) * y(k,40) - mat(k,213) = -(rxt(k,547) + rxt(k,552) + rxt(k,557)) * y(k,40) - mat(k,169) = -(rxt(k,549) + rxt(k,554)) * y(k,40) - mat(k,542) = rxt(k,445)*y(k,60) - mat(k,1511) = rxt(k,464)*y(k,104) - mat(k,1702) = rxt(k,100)*y(k,61) - mat(k,420) = rxt(k,447)*y(k,60) - mat(k,87) = rxt(k,448)*y(k,60) - mat(k,1172) = rxt(k,104)*y(k,61) + rxt(k,294)*y(k,86) - mat(k,687) = rxt(k,449)*y(k,60) - mat(k,193) = mat(k,193) + rxt(k,467)*y(k,60) - mat(k,1390) = 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,600) = mat(k,600) + rxt(k,100)*y(k,32) + rxt(k,104)*y(k,42) - mat(k,341) = 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,830) = rxt(k,182)*y(k,63) + rxt(k,193)*y(k,86) - mat(k,1468) = (rxt(k,176)+2.000_r8*rxt(k,262))*y(k,63) + rxt(k,158)*y(k,86) - mat(k,1554) = (rxt(k,164)+2.000_r8*rxt(k,263))*y(k,63) + rxt(k,175)*y(k,86) - mat(k,386) = 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,876) = rxt(k,235)*y(k,63) + rxt(k,246)*y(k,86) - mat(k,919) = rxt(k,217)*y(k,63) + rxt(k,228)*y(k,86) - mat(k,1046) = rxt(k,200)*y(k,63) + rxt(k,211)*y(k,86) - mat(k,1347) = rxt(k,252)*y(k,63) + rxt(k,152)*y(k,86) - mat(k,756) = mat(k,756) + rxt(k,464)*y(k,24) - mat(k,173) = rxt(k,503)*y(k,33) + rxt(k,505)*y(k,42) + rxt(k,504)*y(k,110) - mat(k,410) = rxt(k,503)*y(k,31) - mat(k,1149) = rxt(k,505)*y(k,31) - mat(k,1764) = rxt(k,504)*y(k,31) - mat(k,1173) = -(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,601) = -rxt(k,104)*y(k,42) - mat(k,788) = -rxt(k,119)*y(k,42) - mat(k,715) = -rxt(k,285)*y(k,42) - mat(k,520) = -rxt(k,290)*y(k,42) - mat(k,387) = -rxt(k,294)*y(k,42) - mat(k,655) = -rxt(k,295)*y(k,42) - mat(k,1303) = -rxt(k,314)*y(k,42) - mat(k,1624) = -rxt(k,352)*y(k,42) - mat(k,757) = -rxt(k,442)*y(k,42) - mat(k,178) = -rxt(k,505)*y(k,42) - mat(k,543) = rxt(k,525)*y(k,53) - mat(k,214) = (rxt(k,547)+rxt(k,552)+rxt(k,557))*y(k,40) - mat(k,1133) = (rxt(k,547)+rxt(k,552)+rxt(k,557))*y(k,25) + rxt(k,293)*y(k,83) - mat(k,244) = 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,1748) = rxt(k,441)*y(k,104) - mat(k,1426) = rxt(k,525)*y(k,14) - mat(k,831) = 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,1469) = 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,1555) = 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,655) = mat(k,655) + 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,479) = rxt(k,288)*y(k,50) - mat(k,520) = mat(k,520) + rxt(k,292)*y(k,50) - mat(k,439) = 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,877) = rxt(k,233)*y(k,87) - mat(k,920) = rxt(k,215)*y(k,87) - mat(k,1047) = rxt(k,197)*y(k,87) - mat(k,1348) = rxt(k,250)*y(k,87) - mat(k,757) = mat(k,757) + rxt(k,441)*y(k,52) - mat(k,1801) = rxt(k,135)*y(k,74) + rxt(k,138)*y(k,76) - mat(k,680) = -(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,1035) = -rxt(k,305)*y(k,43) - mat(k,1691) = -(rxt(k,403) + rxt(k,404) + rxt(k,405)) * y(k,43) - mat(k,1217) = -rxt(k,407)*y(k,43) - mat(k,1255) = -rxt(k,408)*y(k,43) - mat(k,748) = -rxt(k,412)*y(k,43) - mat(k,1415) = -rxt(k,429)*y(k,43) - mat(k,993) = -rxt(k,434)*y(k,43) - mat(k,1736) = -rxt(k,439)*y(k,43) - mat(k,1379) = -(rxt(k,449) + rxt(k,450)) * y(k,43) - mat(k,1500) = -rxt(k,456)*y(k,43) - mat(k,326) = -rxt(k,482)*y(k,43) - mat(k,454) = -rxt(k,488)*y(k,43) - mat(k,254) = -rxt(k,528)*y(k,43) - mat(k,454) = mat(k,454) + rxt(k,493)*y(k,104) - mat(k,537) = 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,254) = mat(k,254) + rxt(k,452)*y(k,24) + rxt(k,529)*y(k,51) - mat(k,1500) = mat(k,1500) + rxt(k,452)*y(k,18) + rxt(k,463)*y(k,104) - mat(k,143) = rxt(k,532)*y(k,104) - mat(k,1691) = mat(k,1691) + rxt(k,406)*y(k,55) + rxt(k,312)*y(k,98) - mat(k,85) = rxt(k,402)*y(k,54) + rxt(k,448)*y(k,60) + rxt(k,411)*y(k,104) - mat(k,1121) = rxt(k,125)*y(k,68) + rxt(k,313)*y(k,98) - mat(k,1161) = rxt(k,314)*y(k,98) - mat(k,993) = mat(k,993) + rxt(k,529)*y(k,18) - mat(k,1415) = mat(k,1415) + rxt(k,525)*y(k,14) + rxt(k,432)*y(k,104) - mat(k,1217) = mat(k,1217) + rxt(k,526)*y(k,14) + rxt(k,402)*y(k,35) & - + rxt(k,342)*y(k,105) - mat(k,1655) = rxt(k,406)*y(k,32) - mat(k,1255) = mat(k,1255) + rxt(k,414)*y(k,104) - mat(k,326) = mat(k,326) + rxt(k,481)*y(k,14) - mat(k,1379) = mat(k,1379) + rxt(k,445)*y(k,14) + rxt(k,448)*y(k,35) - mat(k,615) = rxt(k,125)*y(k,40) - mat(k,1291) = rxt(k,312)*y(k,32) + rxt(k,313)*y(k,40) + rxt(k,314)*y(k,42) - mat(k,748) = mat(k,748) + 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,1576) = rxt(k,342)*y(k,54) - mat(k,51) = -(rxt(k,418)*y(k,104)) - mat(k,732) = -rxt(k,418)*y(k,44) - mat(k,668) = rxt(k,439)*y(k,52) - mat(k,1719) = rxt(k,439)*y(k,43) - mat(k,165) = -(rxt(k,496)*y(k,54) + (rxt(k,549) + rxt(k,554)) * y(k,40)) - mat(k,1199) = -rxt(k,496)*y(k,45) - mat(k,1107) = -(rxt(k,549) + rxt(k,554)) * y(k,45) - mat(k,449) = rxt(k,488)*y(k,43) - mat(k,671) = rxt(k,488)*y(k,2) - mat(k,191) = -(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,1367) = -rxt(k,467)*y(k,46) - mat(k,1201) = -rxt(k,468)*y(k,46) - mat(k,739) = -rxt(k,469)*y(k,46) - mat(k,1108) = -(rxt(k,542) + rxt(k,548) + rxt(k,553)) * y(k,46) - mat(k,1489) = rxt(k,456)*y(k,43) - mat(k,210) = rxt(k,461)*y(k,104) - mat(k,673) = rxt(k,456)*y(k,24) - mat(k,739) = mat(k,739) + rxt(k,461)*y(k,25) - mat(k,137) = -(rxt(k,335)*y(k,104)) - mat(k,734) = -rxt(k,335)*y(k,47) - mat(k,1106) = rxt(k,284)*y(k,81) - mat(k,1150) = rxt(k,285)*y(k,81) - mat(k,979) = rxt(k,344)*y(k,104) - mat(k,702) = rxt(k,284)*y(k,40) + rxt(k,285)*y(k,42) - mat(k,46) = rxt(k,300)*y(k,110) - mat(k,734) = mat(k,734) + rxt(k,344)*y(k,51) - mat(k,1772) = rxt(k,300)*y(k,90) - mat(k,265) = -(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,982) = -rxt(k,421)*y(k,48) - mat(k,1724) = -(rxt(k,422) + rxt(k,423) + rxt(k,424)) * y(k,48) - mat(k,1649) = -rxt(k,425)*y(k,48) - mat(k,742) = -rxt(k,433)*y(k,48) - mat(k,1320) = -rxt(k,570)*y(k,48) - mat(k,1206) = rxt(k,419)*y(k,79) + rxt(k,567)*y(k,94) - mat(k,1649) = mat(k,1649) + rxt(k,568)*y(k,94) - mat(k,950) = 1.100_r8*rxt(k,563)*y(k,80) + .200_r8*rxt(k,561)*y(k,88) - mat(k,72) = rxt(k,419)*y(k,54) - mat(k,114) = 1.100_r8*rxt(k,563)*y(k,69) - mat(k,850) = .200_r8*rxt(k,561)*y(k,69) - mat(k,93) = 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,239) = -(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,1443) = -rxt(k,137)*y(k,50) - mat(k,1529) = -rxt(k,140)*y(k,50) - mat(k,469) = -rxt(k,288)*y(k,50) - mat(k,510) = -rxt(k,292)*y(k,50) - mat(k,1723) = rxt(k,440)*y(k,53) - mat(k,1408) = rxt(k,440)*y(k,52) - mat(k,1001) = -((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,224) = -(rxt(k,106) + rxt(k,107)) * y(k,51) - mat(k,499) = -(rxt(k,117) + rxt(k,118)) * y(k,51) - mat(k,1620) = -rxt(k,131)*y(k,51) - mat(k,400) = -(rxt(k,267) + rxt(k,274)) * y(k,51) - mat(k,784) = -rxt(k,275)*y(k,51) - mat(k,753) = -rxt(k,344)*y(k,51) - mat(k,270) = -rxt(k,421)*y(k,51) - mat(k,1422) = -rxt(k,430)*y(k,51) - mat(k,684) = -rxt(k,434)*y(k,51) - mat(k,1263) = -rxt(k,435)*y(k,51) - mat(k,1225) = -rxt(k,436)*y(k,51) - mat(k,1508) = -rxt(k,457)*y(k,51) - mat(k,456) = -rxt(k,489)*y(k,51) - mat(k,256) = -rxt(k,529)*y(k,51) - mat(k,1344) = -rxt(k,572)*y(k,51) - mat(k,1699) = rxt(k,282)*y(k,81) + rxt(k,304)*y(k,92) - mat(k,270) = mat(k,270) + 2.000_r8*rxt(k,423)*y(k,52) + rxt(k,425)*y(k,55) & - + rxt(k,433)*y(k,104) - mat(k,1744) = 2.000_r8*rxt(k,423)*y(k,48) + rxt(k,426)*y(k,54) + rxt(k,286) & - *y(k,81) - mat(k,1225) = mat(k,1225) + rxt(k,426)*y(k,52) - mat(k,1663) = rxt(k,425)*y(k,48) + rxt(k,420)*y(k,79) - mat(k,598) = rxt(k,243)*y(k,88) + rxt(k,225)*y(k,89) + rxt(k,207)*y(k,92) - mat(k,355) = rxt(k,247)*y(k,88) + rxt(k,229)*y(k,89) + rxt(k,212)*y(k,92) - mat(k,339) = rxt(k,235)*y(k,88) + rxt(k,217)*y(k,89) + rxt(k,200)*y(k,92) - mat(k,784) = mat(k,784) + rxt(k,234)*y(k,88) + rxt(k,216)*y(k,89) & - + rxt(k,199)*y(k,92) - mat(k,310) = rxt(k,241)*y(k,88) + rxt(k,224)*y(k,89) + rxt(k,206)*y(k,92) - mat(k,499) = mat(k,499) + rxt(k,244)*y(k,88) + rxt(k,226)*y(k,89) & - + rxt(k,208)*y(k,92) - mat(k,623) = rxt(k,239)*y(k,88) + rxt(k,222)*y(k,89) + rxt(k,204)*y(k,92) - mat(k,959) = 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,296) = rxt(k,237)*y(k,88) + rxt(k,219)*y(k,89) + rxt(k,202)*y(k,92) - mat(k,74) = rxt(k,420)*y(k,55) - mat(k,712) = 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,370) = rxt(k,245)*y(k,88) + rxt(k,227)*y(k,89) + rxt(k,210)*y(k,92) - mat(k,652) = rxt(k,236)*y(k,88) + rxt(k,218)*y(k,89) + rxt(k,201)*y(k,92) - mat(k,477) = rxt(k,248)*y(k,88) + rxt(k,230)*y(k,89) + rxt(k,213)*y(k,92) - mat(k,518) = rxt(k,240)*y(k,88) + rxt(k,223)*y(k,89) + rxt(k,205)*y(k,92) - mat(k,384) = rxt(k,246)*y(k,88) + rxt(k,228)*y(k,89) + rxt(k,211)*y(k,92) - mat(k,437) = rxt(k,233)*y(k,88) + rxt(k,215)*y(k,89) + rxt(k,197)*y(k,92) - mat(k,873) = 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,916) = 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,133) = rxt(k,301)*y(k,69) - mat(k,1043) = 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,126) = rxt(k,379)*y(k,69) - mat(k,1299) = rxt(k,238)*y(k,88) + rxt(k,221)*y(k,89) + rxt(k,203)*y(k,92) - mat(k,753) = mat(k,753) + rxt(k,433)*y(k,48) - mat(k,1762) = -(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,608) = -rxt(k,105)*y(k,52) - mat(k,508) = -(rxt(k,115) + rxt(k,116)) * y(k,52) - mat(k,409) = -(rxt(k,272) + rxt(k,273)) * y(k,52) - mat(k,802) = -rxt(k,276)*y(k,52) - mat(k,727) = -rxt(k,286)*y(k,52) - mat(k,1317) = -rxt(k,315)*y(k,52) - mat(k,1602) = -rxt(k,341)*y(k,52) - mat(k,1638) = -rxt(k,354)*y(k,52) - mat(k,276) = -(rxt(k,422) + rxt(k,423) + rxt(k,424)) * y(k,52) - mat(k,1243) = -(rxt(k,426) + rxt(k,428)) * y(k,52) - mat(k,1281) = -rxt(k,427)*y(k,52) - mat(k,700) = -rxt(k,439)*y(k,52) - mat(k,1440) = -rxt(k,440)*y(k,52) - mat(k,769) = -rxt(k,441)*y(k,52) - mat(k,1526) = -rxt(k,459)*y(k,52) - mat(k,467) = -rxt(k,490)*y(k,52) - mat(k,467) = mat(k,467) + rxt(k,489)*y(k,51) - mat(k,261) = rxt(k,529)*y(k,51) - mat(k,1526) = mat(k,1526) + rxt(k,457)*y(k,51) - mat(k,700) = mat(k,700) + rxt(k,434)*y(k,51) + rxt(k,429)*y(k,53) - mat(k,56) = rxt(k,418)*y(k,104) - mat(k,140) = rxt(k,335)*y(k,104) - mat(k,1019) = 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,1440) = mat(k,1440) + 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,1243) = mat(k,1243) + rxt(k,436)*y(k,51) + rxt(k,431)*y(k,53) - mat(k,1281) = mat(k,1281) + rxt(k,435)*y(k,51) - mat(k,1405) = rxt(k,280)*y(k,81) - mat(k,228) = rxt(k,107)*y(k,51) - mat(k,845) = rxt(k,196)*y(k,81) + rxt(k,192)*y(k,82) - mat(k,1483) = rxt(k,161)*y(k,81) + rxt(k,157)*y(k,82) - mat(k,1569) = rxt(k,179)*y(k,81) + rxt(k,174)*y(k,82) - mat(k,727) = mat(k,727) + 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,891) = rxt(k,249)*y(k,81) + rxt(k,245)*y(k,82) - mat(k,934) = rxt(k,232)*y(k,81) + rxt(k,227)*y(k,82) - mat(k,1061) = rxt(k,214)*y(k,81) + rxt(k,210)*y(k,82) + rxt(k,306)*y(k,104) - mat(k,1362) = rxt(k,156)*y(k,81) + rxt(k,151)*y(k,82) - mat(k,769) = mat(k,769) + 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,1638) = mat(k,1638) + rxt(k,131)*y(k,51) - mat(k,1432) = -(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,1011) = -rxt(k,430)*y(k,53) - mat(k,1235) = -rxt(k,431)*y(k,53) - mat(k,763) = -rxt(k,432)*y(k,53) - mat(k,1754) = -rxt(k,440)*y(k,53) - mat(k,547) = -rxt(k,525)*y(k,53) - mat(k,82) = rxt(k,491)*y(k,54) - mat(k,1518) = rxt(k,281)*y(k,81) - mat(k,217) = rxt(k,460)*y(k,54) + rxt(k,458)*y(k,60) + rxt(k,461)*y(k,104) - mat(k,179) = rxt(k,505)*y(k,42) - mat(k,1179) = 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,1754) = mat(k,1754) + rxt(k,428)*y(k,54) + rxt(k,427)*y(k,56) - mat(k,1235) = mat(k,1235) + rxt(k,491)*y(k,3) + rxt(k,460)*y(k,25) & - + rxt(k,428)*y(k,52) - mat(k,1273) = rxt(k,427)*y(k,52) - mat(k,1397) = rxt(k,458)*y(k,25) - mat(k,837) = rxt(k,195)*y(k,84) + rxt(k,188)*y(k,85) + rxt(k,193)*y(k,86) - mat(k,1475) = rxt(k,160)*y(k,84) + (rxt(k,231)+rxt(k,257))*y(k,85) & - + rxt(k,158)*y(k,86) - mat(k,1561) = rxt(k,178)*y(k,84) + (rxt(k,170)+rxt(k,258))*y(k,85) & - + rxt(k,175)*y(k,86) - mat(k,720) = rxt(k,281)*y(k,24) - mat(k,660) = 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,482) = 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,523) = 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,389) = 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,441) = 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,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,926) = 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,1053) = 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,1354) = 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,1230) = -(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,225) = -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,656) = -rxt(k,296)*y(k,54) - mat(k,1304) = -(rxt(k,319) + rxt(k,320)) * y(k,54) - mat(k,402) = -(rxt(k,328) + rxt(k,329)) * y(k,54) - mat(k,102) = -rxt(k,331)*y(k,54) - mat(k,283) = -rxt(k,333)*y(k,54) - mat(k,1589) = -rxt(k,342)*y(k,54) - mat(k,1625) = -rxt(k,355)*y(k,54) - mat(k,1268) = -rxt(k,398)*y(k,54) - mat(k,1668) = -rxt(k,400)*y(k,54) - mat(k,422) = -rxt(k,401)*y(k,54) - mat(k,88) = -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,1749) = -(rxt(k,426) + rxt(k,428)) * y(k,54) - mat(k,1427) = -rxt(k,431)*y(k,54) - mat(k,1006) = -rxt(k,436)*y(k,54) - mat(k,215) = -rxt(k,460)*y(k,54) - mat(k,1513) = -rxt(k,462)*y(k,54) - mat(k,1134) = -rxt(k,465)*y(k,54) - mat(k,194) = -rxt(k,468)*y(k,54) - mat(k,81) = -rxt(k,491)*y(k,54) - mat(k,460) = -rxt(k,492)*y(k,54) - mat(k,187) = -rxt(k,494)*y(k,54) - mat(k,170) = -rxt(k,496)*y(k,54) - mat(k,544) = -rxt(k,526)*y(k,54) - mat(k,119) = -(rxt(k,565) + rxt(k,566)) * y(k,54) - mat(k,95) = -rxt(k,567)*y(k,54) - mat(k,1704) = rxt(k,405)*y(k,43) - mat(k,689) = mat(k,689) + rxt(k,405)*y(k,32) - mat(k,272) = 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,1006) = mat(k,1006) + rxt(k,421)*y(k,48) + rxt(k,267)*y(k,101) - mat(k,1749) = mat(k,1749) + rxt(k,422)*y(k,48) + rxt(k,354)*y(k,106) - mat(k,1668) = mat(k,1668) + rxt(k,425)*y(k,48) + rxt(k,569)*y(k,94) + ( & - + rxt(k,387)+rxt(k,388))*y(k,95) + rxt(k,575)*y(k,107) & - + rxt(k,579)*y(k,108) - mat(k,1268) = mat(k,1268) + rxt(k,358)*y(k,106) - mat(k,1392) = 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,313) = 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,502) = 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,964) = 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,1470) = (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,1556) = (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,878) = 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,921) = rxt(k,216)*y(k,65) + rxt(k,224)*y(k,66) + rxt(k,226)*y(k,67) - mat(k,1048) = rxt(k,199)*y(k,65) + rxt(k,206)*y(k,66) + rxt(k,208)*y(k,67) - mat(k,95) = mat(k,95) + rxt(k,569)*y(k,55) - mat(k,576) = (rxt(k,387)+rxt(k,388))*y(k,55) - mat(k,1349) = 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,402) = mat(k,402) + rxt(k,267)*y(k,51) - mat(k,758) = mat(k,758) + 2.000_r8*rxt(k,415)*y(k,104) - mat(k,1625) = mat(k,1625) + rxt(k,354)*y(k,52) + rxt(k,358)*y(k,56) & - + rxt(k,345)*y(k,60) - mat(k,205) = rxt(k,575)*y(k,55) - mat(k,68) = rxt(k,579)*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,1679) = -(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,575)*y(k,107) + rxt(k,579)*y(k,108)) - mat(k,800) = -rxt(k,121)*y(k,55) - mat(k,975) = -(rxt(k,128) + rxt(k,130)) * y(k,55) - mat(k,1315) = -rxt(k,317)*y(k,55) - mat(k,1636) = -rxt(k,357)*y(k,55) - mat(k,1360) = -rxt(k,359)*y(k,55) - mat(k,585) = -rxt(k,387)*y(k,55) - mat(k,236) = -rxt(k,392)*y(k,55) - mat(k,1241) = -rxt(k,400)*y(k,55) - mat(k,1715) = -rxt(k,406)*y(k,55) - mat(k,75) = -rxt(k,420)*y(k,55) - mat(k,274) = -rxt(k,425)*y(k,55) - mat(k,121) = -rxt(k,564)*y(k,55) - mat(k,97) = -(rxt(k,568) + rxt(k,569)) * y(k,55) - mat(k,207) = -rxt(k,575)*y(k,55) - mat(k,70) = -rxt(k,579)*y(k,55) - mat(k,465) = 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,259) = rxt(k,528)*y(k,43) - mat(k,1524) = (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,1100) = rxt(k,325)*y(k,101) + rxt(k,330)*y(k,102) - mat(k,1715) = mat(k,1715) + rxt(k,403)*y(k,43) + rxt(k,409)*y(k,56) & - + rxt(k,326)*y(k,101) - mat(k,698) = 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,55) = rxt(k,418)*y(k,104) - mat(k,274) = mat(k,274) + rxt(k,424)*y(k,52) - mat(k,1017) = rxt(k,435)*y(k,56) + rxt(k,572)*y(k,99) + rxt(k,274)*y(k,101) - mat(k,1760) = 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,1438) = rxt(k,429)*y(k,43) + rxt(k,431)*y(k,54) - mat(k,1241) = mat(k,1241) + 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,1679) = mat(k,1679) + 2.000_r8*rxt(k,392)*y(k,96) - mat(k,1279) = 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,331) = rxt(k,482)*y(k,43) + rxt(k,483)*y(k,56) - mat(k,1403) = 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,606) = rxt(k,149)*y(k,99) - mat(k,362) = rxt(k,154)*y(k,99) - mat(k,346) = rxt(k,252)*y(k,99) - mat(k,227) = rxt(k,108)*y(k,54) - mat(k,800) = mat(k,800) + rxt(k,111)*y(k,24) + rxt(k,251)*y(k,99) - mat(k,317) = rxt(k,148)*y(k,99) - mat(k,506) = rxt(k,150)*y(k,99) - mat(k,638) = 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,975) = mat(k,975) + rxt(k,129)*y(k,56) + rxt(k,321)*y(k,100) & - + 2.000_r8*rxt(k,375)*y(k,103) - mat(k,302) = rxt(k,144)*y(k,99) - mat(k,843) = rxt(k,186)*y(k,68) + rxt(k,185)*y(k,98) - mat(k,1481) = rxt(k,220)*y(k,68) + rxt(k,209)*y(k,98) - mat(k,1567) = rxt(k,169)*y(k,68) + rxt(k,168)*y(k,98) - mat(k,725) = rxt(k,287)*y(k,56) + rxt(k,156)*y(k,99) - mat(k,375) = rxt(k,151)*y(k,99) - mat(k,663) = rxt(k,296)*y(k,54) + 2.000_r8*rxt(k,297)*y(k,56) + rxt(k,143) & - *y(k,99) - mat(k,485) = rxt(k,155)*y(k,99) - mat(k,526) = rxt(k,147)*y(k,99) - mat(k,392) = rxt(k,152)*y(k,99) - mat(k,444) = rxt(k,250)*y(k,99) - mat(k,889) = rxt(k,239)*y(k,68) + rxt(k,238)*y(k,98) - mat(k,932) = rxt(k,222)*y(k,68) + rxt(k,221)*y(k,98) - mat(k,1059) = rxt(k,204)*y(k,68) + rxt(k,203)*y(k,98) - mat(k,585) = mat(k,585) + 2.000_r8*rxt(k,389)*y(k,56) - mat(k,236) = mat(k,236) + 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,1315) = mat(k,1315) + 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,1360) = mat(k,1360) + 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,161) = rxt(k,321)*y(k,69) + (rxt(k,322)+rxt(k,323))*y(k,110) - mat(k,407) = 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,104) = rxt(k,330)*y(k,28) + rxt(k,331)*y(k,54) - mat(k,288) = 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,767) = 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,1636) = mat(k,1636) + rxt(k,346)*y(k,24) + rxt(k,355)*y(k,54) - mat(k,1813) = (rxt(k,322)+rxt(k,323))*y(k,100) + rxt(k,332)*y(k,103) - mat(k,1269) = -(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,629) = -rxt(k,127)*y(k,56) - mat(k,965) = -rxt(k,129)*y(k,56) - mat(k,717) = -rxt(k,287)*y(k,56) - mat(k,657) = -rxt(k,297)*y(k,56) - mat(k,1305) = -rxt(k,318)*y(k,56) - mat(k,403) = -rxt(k,327)*y(k,56) - mat(k,1590) = -rxt(k,343)*y(k,56) - mat(k,1626) = -rxt(k,358)*y(k,56) - mat(k,577) = -rxt(k,389)*y(k,56) - mat(k,1231) = -rxt(k,398)*y(k,56) - mat(k,690) = -rxt(k,408)*y(k,56) - mat(k,1705) = -rxt(k,409)*y(k,56) - mat(k,759) = -rxt(k,414)*y(k,56) - mat(k,1750) = -rxt(k,427)*y(k,56) - mat(k,1007) = -rxt(k,435)*y(k,56) - mat(k,1393) = -rxt(k,451)*y(k,56) - mat(k,330) = -rxt(k,483)*y(k,56) - mat(k,1750) = mat(k,1750) + rxt(k,273)*y(k,101) - mat(k,1231) = mat(k,1231) + rxt(k,400)*y(k,55) + rxt(k,319)*y(k,98) & - + rxt(k,333)*y(k,103) - mat(k,1669) = rxt(k,400)*y(k,54) - mat(k,232) = rxt(k,356)*y(k,106) - mat(k,1305) = mat(k,1305) + rxt(k,319)*y(k,54) - mat(k,403) = mat(k,403) + rxt(k,273)*y(k,52) - mat(k,284) = rxt(k,333)*y(k,54) - mat(k,1626) = mat(k,1626) + rxt(k,356)*y(k,96) - mat(k,446) = rxt(k,485)*y(k,24) - mat(k,1486) = rxt(k,485)*y(k,2) + 2.000_r8*rxt(k,455)*y(k,24) - mat(k,322) = -(rxt(k,481)*y(k,14) + rxt(k,482)*y(k,43) + rxt(k,483)*y(k,56)) - mat(k,532) = -rxt(k,481)*y(k,59) - mat(k,675) = -rxt(k,482)*y(k,59) - mat(k,1248) = -rxt(k,483)*y(k,59) - mat(k,450) = 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,1493) = (rxt(k,485)+rxt(k,486))*y(k,2) - mat(k,183) = rxt(k,494)*y(k,54) + rxt(k,500)*y(k,95) + rxt(k,495)*y(k,104) - mat(k,983) = rxt(k,489)*y(k,2) - mat(k,1208) = rxt(k,492)*y(k,2) + rxt(k,494)*y(k,36) - mat(k,563) = rxt(k,500)*y(k,36) - mat(k,743) = rxt(k,493)*y(k,2) + rxt(k,495)*y(k,36) - mat(k,1396) = -((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,793) = -(rxt(k,109) + rxt(k,110)) * y(k,60) - mat(k,632) = -rxt(k,122)*y(k,60) - mat(k,719) = -rxt(k,280)*y(k,60) - mat(k,1308) = -rxt(k,309)*y(k,60) - mat(k,1593) = -rxt(k,336)*y(k,60) - mat(k,1629) = -rxt(k,345)*y(k,60) - mat(k,546) = -rxt(k,445)*y(k,60) - mat(k,423) = -rxt(k,447)*y(k,60) - mat(k,89) = -rxt(k,448)*y(k,60) - mat(k,693) = -(rxt(k,449) + rxt(k,450)) * y(k,60) - mat(k,1272) = -rxt(k,451)*y(k,60) - mat(k,216) = -rxt(k,458)*y(k,60) - mat(k,195) = -rxt(k,467)*y(k,60) - mat(k,462) = rxt(k,486)*y(k,24) - mat(k,257) = rxt(k,452)*y(k,24) - mat(k,1517) = 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,1138) = rxt(k,465)*y(k,54) + rxt(k,477)*y(k,95) + rxt(k,466)*y(k,104) - mat(k,1010) = rxt(k,457)*y(k,24) + rxt(k,106)*y(k,64) - mat(k,1753) = rxt(k,105)*y(k,61) - mat(k,1234) = rxt(k,462)*y(k,24) + rxt(k,465)*y(k,40) - mat(k,603) = 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,359) = 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,343) = 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,226) = rxt(k,106)*y(k,51) - mat(k,836) = rxt(k,190)*y(k,61) + rxt(k,194)*y(k,62) + rxt(k,182)*y(k,63) - mat(k,1474) = rxt(k,142)*y(k,61) + rxt(k,159)*y(k,62) + rxt(k,176)*y(k,63) - mat(k,1560) = rxt(k,172)*y(k,61) + rxt(k,177)*y(k,62) + rxt(k,164)*y(k,63) - mat(k,882) = rxt(k,243)*y(k,61) + rxt(k,247)*y(k,62) + rxt(k,235)*y(k,63) - mat(k,925) = rxt(k,225)*y(k,61) + rxt(k,229)*y(k,62) + rxt(k,217)*y(k,63) - mat(k,1052) = rxt(k,207)*y(k,61) + rxt(k,212)*y(k,62) + rxt(k,200)*y(k,63) - mat(k,580) = rxt(k,507)*y(k,30) + rxt(k,477)*y(k,40) - mat(k,1353) = rxt(k,149)*y(k,61) + rxt(k,154)*y(k,62) + rxt(k,252)*y(k,63) - mat(k,762) = 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,591) = -(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,1688) = -rxt(k,100)*y(k,61) - mat(k,1787) = -rxt(k,102)*y(k,61) - mat(k,1118) = -rxt(k,103)*y(k,61) - mat(k,1159) = -rxt(k,104)*y(k,61) - mat(k,1734) = -rxt(k,105)*y(k,61) - mat(k,1454) = -rxt(k,142)*y(k,61) - mat(k,1333) = -rxt(k,149)*y(k,61) - mat(k,1540) = -rxt(k,172)*y(k,61) - mat(k,816) = -rxt(k,190)*y(k,61) - mat(k,1032) = -rxt(k,207)*y(k,61) - mat(k,905) = -rxt(k,225)*y(k,61) - mat(k,862) = -rxt(k,243)*y(k,61) - mat(k,1497) = rxt(k,111)*y(k,65) + rxt(k,281)*y(k,81) + rxt(k,346)*y(k,106) - mat(k,1118) = mat(k,1118) + 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,991) = rxt(k,107)*y(k,64) - mat(k,1214) = rxt(k,108)*y(k,64) - mat(k,1376) = 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,222) = rxt(k,107)*y(k,51) + rxt(k,108)*y(k,54) - mat(k,775) = rxt(k,111)*y(k,24) + rxt(k,109)*y(k,60) - mat(k,612) = rxt(k,125)*y(k,40) + rxt(k,122)*y(k,60) - mat(k,704) = rxt(k,281)*y(k,24) + rxt(k,284)*y(k,40) + rxt(k,280)*y(k,60) - mat(k,645) = rxt(k,293)*y(k,40) - mat(k,1288) = rxt(k,313)*y(k,40) + rxt(k,309)*y(k,60) - mat(k,1574) = rxt(k,340)*y(k,40) + rxt(k,336)*y(k,60) - mat(k,1610) = rxt(k,346)*y(k,24) + rxt(k,351)*y(k,40) + rxt(k,345)*y(k,60) - mat(k,350) = -(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,1112) = -rxt(k,101)*y(k,62) - mat(k,1325) = -rxt(k,154)*y(k,62) - mat(k,1447) = -rxt(k,159)*y(k,62) - mat(k,1533) = -rxt(k,177)*y(k,62) - mat(k,809) = -rxt(k,194)*y(k,62) - mat(k,1025) = -rxt(k,212)*y(k,62) - mat(k,898) = -rxt(k,229)*y(k,62) - mat(k,854) = -rxt(k,247)*y(k,62) - mat(k,590) = rxt(k,102)*y(k,110) - mat(k,1779) = rxt(k,102)*y(k,61) - mat(k,334) = -((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,1532) = -(rxt(k,164) + rxt(k,263)) * y(k,63) - mat(k,1446) = -(rxt(k,176) + rxt(k,262)) * y(k,63) - mat(k,808) = -rxt(k,182)*y(k,63) - mat(k,1024) = -rxt(k,200)*y(k,63) - mat(k,897) = -rxt(k,217)*y(k,63) - mat(k,853) = -rxt(k,235)*y(k,63) - mat(k,1324) = -rxt(k,252)*y(k,63) - mat(k,1111) = rxt(k,103)*y(k,61) + rxt(k,101)*y(k,62) - mat(k,589) = rxt(k,103)*y(k,40) - mat(k,349) = rxt(k,101)*y(k,40) - mat(k,221) = -((rxt(k,106) + rxt(k,107)) * y(k,51) + rxt(k,108)*y(k,54)) - mat(k,980) = -(rxt(k,106) + rxt(k,107)) * y(k,64) - mat(k,1204) = -rxt(k,108)*y(k,64) - mat(k,1491) = rxt(k,123)*y(k,68) + rxt(k,310)*y(k,98) + rxt(k,337)*y(k,105) - mat(k,1369) = rxt(k,110)*y(k,65) - mat(k,771) = rxt(k,110)*y(k,60) - mat(k,610) = rxt(k,123)*y(k,24) - mat(k,1284) = rxt(k,310)*y(k,24) - mat(k,1571) = rxt(k,337)*y(k,24) - mat(k,779) = -((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,1382) = -(rxt(k,109) + rxt(k,110)) * y(k,65) - mat(k,1503) = -rxt(k,111)*y(k,65) - mat(k,1694) = -rxt(k,112)*y(k,65) - mat(k,1792) = -rxt(k,114)*y(k,65) - mat(k,1164) = -rxt(k,119)*y(k,65) - mat(k,1220) = -rxt(k,120)*y(k,65) - mat(k,1658) = -rxt(k,121)*y(k,65) - mat(k,1546) = -(rxt(k,163) + rxt(k,260)) * y(k,65) - mat(k,1460) = -(rxt(k,165) + rxt(k,253)) * y(k,65) - mat(k,822) = -rxt(k,181)*y(k,65) - mat(k,1038) = -rxt(k,199)*y(k,65) - mat(k,911) = -rxt(k,216)*y(k,65) - mat(k,868) = -rxt(k,234)*y(k,65) - mat(k,1339) = -rxt(k,251)*y(k,65) - mat(k,996) = -rxt(k,275)*y(k,65) - mat(k,1739) = -rxt(k,276)*y(k,65) - mat(k,1079) = rxt(k,325)*y(k,101) + rxt(k,347)*y(k,106) - mat(k,1694) = mat(k,1694) + rxt(k,124)*y(k,68) - mat(k,1220) = mat(k,1220) + rxt(k,126)*y(k,68) - mat(k,618) = rxt(k,124)*y(k,32) + rxt(k,126)*y(k,54) - mat(k,398) = rxt(k,325)*y(k,28) - mat(k,1615) = rxt(k,347)*y(k,28) - mat(k,305) = -(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,1323) = -rxt(k,148)*y(k,66) - mat(k,1531) = -(rxt(k,171) + rxt(k,254)) * y(k,66) - mat(k,807) = -rxt(k,189)*y(k,66) - mat(k,1023) = -rxt(k,206)*y(k,66) - mat(k,896) = -rxt(k,224)*y(k,66) - mat(k,852) = -rxt(k,241)*y(k,66) - mat(k,1445) = -(rxt(k,242) + rxt(k,266)) * y(k,66) - mat(k,489) = rxt(k,113)*y(k,110) - mat(k,1778) = rxt(k,113)*y(k,67) - mat(k,491) = -(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,1783) = -rxt(k,113)*y(k,67) - mat(k,1730) = -(rxt(k,115) + rxt(k,116)) * y(k,67) - mat(k,987) = -(rxt(k,117) + rxt(k,118)) * y(k,67) - mat(k,1330) = -rxt(k,150)*y(k,67) - mat(k,1452) = -(rxt(k,153) + rxt(k,255)) * y(k,67) - mat(k,1538) = -(rxt(k,173) + rxt(k,256)) * y(k,67) - mat(k,814) = -rxt(k,191)*y(k,67) - mat(k,1030) = -rxt(k,208)*y(k,67) - mat(k,903) = -rxt(k,226)*y(k,67) - mat(k,859) = -rxt(k,244)*y(k,67) - mat(k,773) = rxt(k,114)*y(k,110) - mat(k,1783) = mat(k,1783) + rxt(k,114)*y(k,65) - mat(k,613) = -(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,1377) = -rxt(k,122)*y(k,68) - mat(k,1498) = -rxt(k,123)*y(k,68) - mat(k,1689) = -rxt(k,124)*y(k,68) - mat(k,1119) = -rxt(k,125)*y(k,68) - mat(k,1215) = -rxt(k,126)*y(k,68) - mat(k,1253) = -rxt(k,127)*y(k,68) - mat(k,1334) = -rxt(k,146)*y(k,68) - mat(k,1541) = -rxt(k,169)*y(k,68) - mat(k,817) = -rxt(k,186)*y(k,68) - mat(k,1033) = -rxt(k,204)*y(k,68) - mat(k,1455) = -rxt(k,220)*y(k,68) - mat(k,906) = -rxt(k,222)*y(k,68) - mat(k,863) = -rxt(k,239)*y(k,68) - mat(k,1074) = rxt(k,311)*y(k,98) + rxt(k,330)*y(k,102) - mat(k,1289) = rxt(k,311)*y(k,28) - mat(k,100) = rxt(k,330)*y(k,28) - mat(k,958) = -((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,1662) = -(rxt(k,128) + rxt(k,130)) * y(k,69) - mat(k,1262) = -rxt(k,129)*y(k,69) - mat(k,36) = -rxt(k,133)*y(k,69) - mat(k,1464) = -rxt(k,136)*y(k,69) - mat(k,1550) = -rxt(k,139)*y(k,69) - mat(k,915) = -rxt(k,298)*y(k,69) - mat(k,48) = -rxt(k,299)*y(k,69) - mat(k,132) = -rxt(k,301)*y(k,69) - mat(k,1042) = -rxt(k,303)*y(k,69) - mat(k,159) = -rxt(k,321)*y(k,69) - mat(k,282) = -rxt(k,375)*y(k,69) - mat(k,150) = -rxt(k,376)*y(k,69) - mat(k,108) = -rxt(k,377)*y(k,69) - mat(k,826) = -rxt(k,378)*y(k,69) - mat(k,125) = -rxt(k,379)*y(k,69) - mat(k,872) = -rxt(k,561)*y(k,69) - mat(k,1343) = -rxt(k,562)*y(k,69) - mat(k,117) = -rxt(k,563)*y(k,69) - mat(k,1698) = rxt(k,100)*y(k,61) + rxt(k,312)*y(k,98) + rxt(k,339)*y(k,105) - mat(k,418) = rxt(k,348)*y(k,106) - mat(k,1000) = rxt(k,131)*y(k,106) - mat(k,1224) = 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,1262) = mat(k,1262) + rxt(k,327)*y(k,101) - mat(k,597) = rxt(k,100)*y(k,32) - mat(k,231) = rxt(k,316)*y(k,98) + rxt(k,356)*y(k,106) - mat(k,1298) = rxt(k,312)*y(k,32) + rxt(k,319)*y(k,54) + rxt(k,316)*y(k,96) - mat(k,399) = rxt(k,328)*y(k,54) + rxt(k,327)*y(k,56) - mat(k,1583) = rxt(k,339)*y(k,32) + rxt(k,342)*y(k,54) - mat(k,1619) = 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,936) = -rxt(k,133)*y(k,70) - mat(k,1767) = -rxt(k,134)*y(k,70) - mat(k,153) = rxt(k,322)*y(k,110) - mat(k,1767) = mat(k,1767) + rxt(k,322)*y(k,100) - mat(k,291) = -(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,1322) = -rxt(k,144)*y(k,71) - mat(k,1530) = -rxt(k,167)*y(k,71) - mat(k,806) = -rxt(k,184)*y(k,71) - mat(k,1444) = -rxt(k,198)*y(k,71) - mat(k,1022) = -rxt(k,202)*y(k,71) - mat(k,895) = -rxt(k,219)*y(k,71) - mat(k,851) = -rxt(k,237)*y(k,71) - mat(k,1072) = rxt(k,338)*y(k,105) - mat(k,1572) = 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,105) = -(rxt(k,369)*y(k,110) + rxt(k,377)*y(k,69)) - mat(k,1769) = -rxt(k,369)*y(k,72) - mat(k,942) = -rxt(k,377)*y(k,72) - mat(k,34) = rxt(k,134)*y(k,110) - mat(k,147) = rxt(k,367)*y(k,110) - mat(k,1769) = mat(k,1769) + rxt(k,134)*y(k,70) + rxt(k,367)*y(k,78) - mat(k,823) = -(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,434) = -rxt(k,180)*y(k,73) - mat(k,780) = -rxt(k,181)*y(k,73) - mat(k,336) = -rxt(k,182)*y(k,73) - mat(k,648) = -rxt(k,183)*y(k,73) - mat(k,293) = -rxt(k,184)*y(k,73) - mat(k,1295) = -rxt(k,185)*y(k,73) - mat(k,619) = -rxt(k,186)*y(k,73) - mat(k,515) = -rxt(k,188)*y(k,73) - mat(k,307) = -rxt(k,189)*y(k,73) - mat(k,594) = -rxt(k,190)*y(k,73) - mat(k,496) = -rxt(k,191)*y(k,73) - mat(k,367) = -rxt(k,192)*y(k,73) - mat(k,381) = -rxt(k,193)*y(k,73) - mat(k,352) = -rxt(k,194)*y(k,73) - mat(k,474) = -rxt(k,195)*y(k,73) - mat(k,708) = -rxt(k,196)*y(k,73) - mat(k,1793) = -rxt(k,371)*y(k,73) - mat(k,955) = -rxt(k,378)*y(k,73) - mat(k,107) = rxt(k,369)*y(k,110) - mat(k,47) = rxt(k,300)*y(k,110) - mat(k,1793) = mat(k,1793) + rxt(k,369)*y(k,72) + rxt(k,300)*y(k,90) - mat(k,22) = -(rxt(k,135)*y(k,110)) - mat(k,1765) = -rxt(k,135)*y(k,74) - mat(k,237) = rxt(k,137)*y(k,75) - mat(k,1442) = rxt(k,137)*y(k,50) - mat(k,1476) = -(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,970) = -rxt(k,136)*y(k,75) - mat(k,247) = -rxt(k,137)*y(k,75) - mat(k,442) = -(rxt(k,141) + rxt(k,264)) * y(k,75) - mat(k,604) = -rxt(k,142)*y(k,75) - mat(k,504) = -(rxt(k,153) + rxt(k,255)) * y(k,75) - mat(k,373) = -rxt(k,157)*y(k,75) - mat(k,390) = -rxt(k,158)*y(k,75) - mat(k,360) = -rxt(k,159)*y(k,75) - mat(k,483) = -rxt(k,160)*y(k,75) - mat(k,721) = -rxt(k,161)*y(k,75) - mat(k,795) = -(rxt(k,165) + rxt(k,253)) * y(k,75) - mat(k,344) = -(rxt(k,176) + rxt(k,262)) * y(k,75) - mat(k,661) = -(rxt(k,187) + rxt(k,259)) * y(k,75) - mat(k,300) = -rxt(k,198)*y(k,75) - mat(k,1310) = -rxt(k,209)*y(k,75) - mat(k,633) = -rxt(k,220)*y(k,75) - mat(k,524) = -(rxt(k,231) + rxt(k,257)) * y(k,75) - mat(k,315) = -(rxt(k,242) + rxt(k,266)) * y(k,75) - mat(k,1808) = -rxt(k,373)*y(k,75) - mat(k,838) = rxt(k,371)*y(k,110) - mat(k,24) = rxt(k,135)*y(k,110) - mat(k,1808) = mat(k,1808) + rxt(k,371)*y(k,73) + rxt(k,135)*y(k,74) - mat(k,26) = -(rxt(k,138)*y(k,110)) - mat(k,1766) = -rxt(k,138)*y(k,76) - mat(k,238) = rxt(k,140)*y(k,77) - mat(k,1528) = rxt(k,140)*y(k,50) - mat(k,1564) = -(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,972) = -rxt(k,139)*y(k,77) - mat(k,248) = -rxt(k,140)*y(k,77) - mat(k,443) = -(rxt(k,162) + rxt(k,265)) * y(k,77) - mat(k,797) = -(rxt(k,163) + rxt(k,260)) * y(k,77) - mat(k,345) = -(rxt(k,164) + rxt(k,263)) * y(k,77) - mat(k,662) = -(rxt(k,166) + rxt(k,261)) * y(k,77) - mat(k,301) = -rxt(k,167)*y(k,77) - mat(k,1312) = -rxt(k,168)*y(k,77) - mat(k,635) = -rxt(k,169)*y(k,77) - mat(k,525) = -(rxt(k,170) + rxt(k,258)) * y(k,77) - mat(k,316) = -(rxt(k,171) + rxt(k,254)) * y(k,77) - mat(k,605) = -rxt(k,172)*y(k,77) - mat(k,505) = -(rxt(k,173) + rxt(k,256)) * y(k,77) - mat(k,374) = -rxt(k,174)*y(k,77) - mat(k,391) = -rxt(k,175)*y(k,77) - mat(k,361) = -rxt(k,177)*y(k,77) - mat(k,484) = -rxt(k,178)*y(k,77) - mat(k,723) = -rxt(k,179)*y(k,77) - mat(k,1478) = rxt(k,373)*y(k,110) - mat(k,28) = rxt(k,138)*y(k,110) - mat(k,1810) = rxt(k,373)*y(k,75) + rxt(k,138)*y(k,76) - mat(k,148) = -(rxt(k,367)*y(k,110) + rxt(k,376)*y(k,69)) - mat(k,1773) = -rxt(k,367)*y(k,78) - mat(k,947) = -rxt(k,376)*y(k,78) - mat(k,1683) = rxt(k,304)*y(k,92) - mat(k,670) = rxt(k,305)*y(k,92) - mat(k,1021) = rxt(k,304)*y(k,32) + rxt(k,305)*y(k,43) + rxt(k,306)*y(k,104) - mat(k,155) = rxt(k,323)*y(k,110) - mat(k,736) = rxt(k,306)*y(k,92) - mat(k,1773) = mat(k,1773) + rxt(k,323)*y(k,100) - mat(k,71) = -(rxt(k,419)*y(k,54) + rxt(k,420)*y(k,55)) - mat(k,1192) = -rxt(k,419)*y(k,79) - mat(k,1643) = -rxt(k,420)*y(k,79) - mat(k,1192) = mat(k,1192) + rxt(k,565)*y(k,80) - mat(k,940) = .900_r8*rxt(k,563)*y(k,80) + .800_r8*rxt(k,561)*y(k,88) - mat(k,111) = rxt(k,565)*y(k,54) + .900_r8*rxt(k,563)*y(k,69) - mat(k,847) = .800_r8*rxt(k,561)*y(k,69) - mat(k,112) = -(rxt(k,563)*y(k,69) + rxt(k,564)*y(k,55) + (rxt(k,565) & - + rxt(k,566)) * y(k,54)) - mat(k,943) = -rxt(k,563)*y(k,80) - mat(k,1646) = -rxt(k,564)*y(k,80) - mat(k,1197) = -(rxt(k,565) + rxt(k,566)) * y(k,80) - mat(k,706) = -(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,1337) = -rxt(k,156)*y(k,81) - mat(k,1458) = -rxt(k,161)*y(k,81) - mat(k,1544) = -rxt(k,179)*y(k,81) - mat(k,820) = -rxt(k,196)*y(k,81) - mat(k,1036) = -rxt(k,214)*y(k,81) - mat(k,909) = -rxt(k,232)*y(k,81) - mat(k,866) = -rxt(k,249)*y(k,81) - mat(k,1380) = -rxt(k,280)*y(k,81) - mat(k,1501) = -rxt(k,281)*y(k,81) - mat(k,1692) = -rxt(k,282)*y(k,81) - mat(k,1790) = -rxt(k,283)*y(k,81) - mat(k,1122) = -rxt(k,284)*y(k,81) - mat(k,1162) = -rxt(k,285)*y(k,81) - mat(k,1737) = -rxt(k,286)*y(k,81) - mat(k,1256) = -rxt(k,287)*y(k,81) - mat(k,994) = 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,1737) = mat(k,1737) + 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,1218) = rxt(k,296)*y(k,83) - mat(k,1256) = mat(k,1256) + rxt(k,297)*y(k,83) - mat(k,593) = rxt(k,105)*y(k,52) - mat(k,223) = rxt(k,106)*y(k,51) - mat(k,777) = rxt(k,275)*y(k,51) - mat(k,494) = rxt(k,118)*y(k,51) - mat(k,647) = rxt(k,296)*y(k,54) + rxt(k,297)*y(k,56) - mat(k,1292) = rxt(k,315)*y(k,52) - mat(k,397) = rxt(k,274)*y(k,51) + rxt(k,273)*y(k,52) - mat(k,1577) = rxt(k,341)*y(k,52) - mat(k,1613) = rxt(k,354)*y(k,52) - mat(k,365) = -(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,1326) = -rxt(k,151)*y(k,82) - mat(k,1448) = -rxt(k,157)*y(k,82) - mat(k,1534) = -rxt(k,174)*y(k,82) - mat(k,810) = -rxt(k,192)*y(k,82) - mat(k,1026) = -rxt(k,210)*y(k,82) - mat(k,899) = -rxt(k,227)*y(k,82) - mat(k,855) = -rxt(k,245)*y(k,82) - mat(k,984) = rxt(k,117)*y(k,67) - mat(k,490) = rxt(k,117)*y(k,51) - mat(k,703) = rxt(k,283)*y(k,110) - mat(k,1780) = rxt(k,283)*y(k,81) - mat(k,646) = -(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,1335) = -rxt(k,143)*y(k,83) - mat(k,1542) = -(rxt(k,166) + rxt(k,261)) * y(k,83) - mat(k,818) = -rxt(k,183)*y(k,83) - mat(k,1456) = -(rxt(k,187) + rxt(k,259)) * y(k,83) - mat(k,1034) = -rxt(k,201)*y(k,83) - mat(k,907) = -rxt(k,218)*y(k,83) - mat(k,864) = -rxt(k,236)*y(k,83) - mat(k,1120) = -(rxt(k,271) + rxt(k,293)) * y(k,83) - mat(k,1788) = -rxt(k,291)*y(k,83) - mat(k,1160) = -rxt(k,295)*y(k,83) - mat(k,1216) = -rxt(k,296)*y(k,83) - mat(k,1254) = -rxt(k,297)*y(k,83) - mat(k,1160) = mat(k,1160) + 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,992) = rxt(k,267)*y(k,101) - mat(k,1735) = 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,1254) = mat(k,1254) + rxt(k,287)*y(k,81) - mat(k,592) = rxt(k,104)*y(k,42) - mat(k,776) = rxt(k,119)*y(k,42) + rxt(k,276)*y(k,52) - mat(k,493) = rxt(k,115)*y(k,52) - mat(k,705) = rxt(k,285)*y(k,42) + rxt(k,286)*y(k,52) + rxt(k,287)*y(k,56) - mat(k,1290) = rxt(k,314)*y(k,42) - mat(k,396) = rxt(k,267)*y(k,51) + rxt(k,272)*y(k,52) - mat(k,1611) = 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,471) = -(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,1329) = -rxt(k,155)*y(k,84) - mat(k,1451) = -rxt(k,160)*y(k,84) - mat(k,1537) = -rxt(k,178)*y(k,84) - mat(k,813) = -rxt(k,195)*y(k,84) - mat(k,1029) = -rxt(k,213)*y(k,84) - mat(k,902) = -rxt(k,230)*y(k,84) - mat(k,858) = -rxt(k,248)*y(k,84) - mat(k,241) = -rxt(k,288)*y(k,84) - mat(k,512) = rxt(k,289)*y(k,110) - mat(k,1782) = rxt(k,289)*y(k,85) - mat(k,513) = -(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,1331) = -rxt(k,147)*y(k,85) - mat(k,1539) = -(rxt(k,170) + rxt(k,258)) * y(k,85) - mat(k,815) = -rxt(k,188)*y(k,85) - mat(k,1031) = -rxt(k,205)*y(k,85) - mat(k,904) = -rxt(k,223)*y(k,85) - mat(k,1453) = -(rxt(k,231) + rxt(k,257)) * y(k,85) - mat(k,860) = -rxt(k,240)*y(k,85) - mat(k,1784) = -rxt(k,289)*y(k,85) - mat(k,1156) = -rxt(k,290)*y(k,85) - mat(k,242) = -rxt(k,292)*y(k,85) - mat(k,1731) = rxt(k,116)*y(k,67) - mat(k,492) = rxt(k,116)*y(k,52) - mat(k,644) = rxt(k,291)*y(k,110) - mat(k,1784) = mat(k,1784) + rxt(k,291)*y(k,83) - mat(k,379) = -(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,1327) = -rxt(k,152)*y(k,86) - mat(k,1449) = -rxt(k,158)*y(k,86) - mat(k,1535) = -rxt(k,175)*y(k,86) - mat(k,811) = -rxt(k,193)*y(k,86) - mat(k,1027) = -rxt(k,211)*y(k,86) - mat(k,900) = -rxt(k,228)*y(k,86) - mat(k,856) = -rxt(k,246)*y(k,86) - mat(k,1153) = -rxt(k,294)*y(k,86) - mat(k,1113) = rxt(k,271)*y(k,83) - mat(k,642) = rxt(k,271)*y(k,40) - mat(k,432) = -((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,1450) = -(rxt(k,141) + rxt(k,264)) * y(k,87) - mat(k,1536) = -(rxt(k,162) + rxt(k,265)) * y(k,87) - mat(k,812) = -rxt(k,180)*y(k,87) - mat(k,1028) = -rxt(k,197)*y(k,87) - mat(k,901) = -rxt(k,215)*y(k,87) - mat(k,857) = -rxt(k,233)*y(k,87) - mat(k,1328) = -rxt(k,250)*y(k,87) - mat(k,1155) = rxt(k,295)*y(k,83) + rxt(k,290)*y(k,85) + rxt(k,294)*y(k,86) - mat(k,240) = rxt(k,288)*y(k,84) + rxt(k,292)*y(k,85) - mat(k,643) = rxt(k,295)*y(k,42) - mat(k,470) = rxt(k,288)*y(k,50) - mat(k,511) = rxt(k,290)*y(k,42) + rxt(k,292)*y(k,50) - mat(k,380) = rxt(k,294)*y(k,42) - mat(k,870) = -(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,435) = -rxt(k,233)*y(k,88) - mat(k,781) = -rxt(k,234)*y(k,88) - mat(k,337) = -rxt(k,235)*y(k,88) - mat(k,649) = -rxt(k,236)*y(k,88) - mat(k,294) = -rxt(k,237)*y(k,88) - mat(k,1296) = -rxt(k,238)*y(k,88) - mat(k,620) = -rxt(k,239)*y(k,88) - mat(k,516) = -rxt(k,240)*y(k,88) - mat(k,308) = -rxt(k,241)*y(k,88) - mat(k,595) = -rxt(k,243)*y(k,88) - mat(k,497) = -rxt(k,244)*y(k,88) - mat(k,368) = -rxt(k,245)*y(k,88) - mat(k,382) = -rxt(k,246)*y(k,88) - mat(k,353) = -rxt(k,247)*y(k,88) - mat(k,475) = -rxt(k,248)*y(k,88) - mat(k,709) = -rxt(k,249)*y(k,88) - mat(k,1794) = -rxt(k,360)*y(k,88) - mat(k,1081) = -rxt(k,363)*y(k,88) - mat(k,956) = -rxt(k,561)*y(k,88) - mat(k,268) = rxt(k,570)*y(k,99) - mat(k,998) = rxt(k,572)*y(k,99) - mat(k,1222) = rxt(k,565)*y(k,80) - mat(k,1660) = rxt(k,569)*y(k,94) - mat(k,116) = rxt(k,565)*y(k,54) - mat(k,94) = rxt(k,569)*y(k,55) - mat(k,1341) = rxt(k,570)*y(k,48) + rxt(k,572)*y(k,51) - mat(k,914) = -(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,436) = -rxt(k,215)*y(k,89) - mat(k,782) = -rxt(k,216)*y(k,89) - mat(k,338) = -rxt(k,217)*y(k,89) - mat(k,650) = -rxt(k,218)*y(k,89) - mat(k,295) = -rxt(k,219)*y(k,89) - mat(k,1297) = -rxt(k,221)*y(k,89) - mat(k,621) = -rxt(k,222)*y(k,89) - mat(k,517) = -rxt(k,223)*y(k,89) - mat(k,309) = -rxt(k,224)*y(k,89) - mat(k,596) = -rxt(k,225)*y(k,89) - mat(k,498) = -rxt(k,226)*y(k,89) - mat(k,369) = -rxt(k,227)*y(k,89) - mat(k,383) = -rxt(k,228)*y(k,89) - mat(k,354) = -rxt(k,229)*y(k,89) - mat(k,476) = -rxt(k,230)*y(k,89) - mat(k,710) = -rxt(k,232)*y(k,89) - mat(k,957) = -rxt(k,298)*y(k,89) - mat(k,1795) = -rxt(k,362)*y(k,89) - mat(k,1041) = rxt(k,361)*y(k,110) - mat(k,1795) = mat(k,1795) + rxt(k,361)*y(k,92) - mat(k,45) = -(rxt(k,299)*y(k,69) + rxt(k,300)*y(k,110)) - mat(k,937) = -rxt(k,299)*y(k,90) - mat(k,1768) = -rxt(k,300)*y(k,90) - mat(k,893) = rxt(k,362)*y(k,110) - mat(k,1768) = mat(k,1768) + rxt(k,362)*y(k,89) - mat(k,130) = -(rxt(k,301)*y(k,69) + rxt(k,302)*y(k,110)) - mat(k,945) = -rxt(k,301)*y(k,91) - mat(k,1771) = -rxt(k,302)*y(k,91) - mat(k,1066) = rxt(k,363)*y(k,88) + rxt(k,307)*y(k,93) - mat(k,849) = rxt(k,363)*y(k,28) - mat(k,123) = rxt(k,307)*y(k,28) - mat(k,1044) = -(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,438) = -rxt(k,197)*y(k,92) - mat(k,785) = -rxt(k,199)*y(k,92) - mat(k,340) = -rxt(k,200)*y(k,92) - mat(k,653) = -rxt(k,201)*y(k,92) - mat(k,297) = -rxt(k,202)*y(k,92) - mat(k,1300) = -rxt(k,203)*y(k,92) - mat(k,624) = -rxt(k,204)*y(k,92) - mat(k,519) = -rxt(k,205)*y(k,92) - mat(k,311) = -rxt(k,206)*y(k,92) - mat(k,599) = -rxt(k,207)*y(k,92) - mat(k,500) = -rxt(k,208)*y(k,92) - mat(k,371) = -rxt(k,210)*y(k,92) - mat(k,385) = -rxt(k,211)*y(k,92) - mat(k,356) = -rxt(k,212)*y(k,92) - mat(k,478) = -rxt(k,213)*y(k,92) - mat(k,713) = -rxt(k,214)*y(k,92) - mat(k,960) = -rxt(k,303)*y(k,92) - mat(k,1700) = -rxt(k,304)*y(k,92) - mat(k,685) = -rxt(k,305)*y(k,92) - mat(k,754) = -rxt(k,306)*y(k,92) - mat(k,1798) = -rxt(k,361)*y(k,92) - mat(k,874) = rxt(k,360)*y(k,110) - mat(k,134) = rxt(k,302)*y(k,110) - mat(k,127) = rxt(k,308)*y(k,110) - mat(k,1798) = mat(k,1798) + rxt(k,360)*y(k,88) + rxt(k,302)*y(k,91) & - + rxt(k,308)*y(k,93) - mat(k,122) = -(rxt(k,307)*y(k,28) + rxt(k,308)*y(k,110) + rxt(k,379)*y(k,69)) - mat(k,1065) = -rxt(k,307)*y(k,93) - mat(k,1770) = -rxt(k,308)*y(k,93) - mat(k,944) = -rxt(k,379)*y(k,93) - mat(k,91) = -(rxt(k,567)*y(k,54) + (rxt(k,568) + rxt(k,569)) * y(k,55)) - mat(k,1195) = -rxt(k,567)*y(k,94) - mat(k,1644) = -(rxt(k,568) + rxt(k,569)) * y(k,94) - mat(k,567) = -(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,415) = -rxt(k,384)*y(k,95) - mat(k,1786) = -rxt(k,385)*y(k,95) - mat(k,1652) = -(rxt(k,387) + rxt(k,388)) * y(k,95) - mat(k,1252) = -rxt(k,389)*y(k,95) - mat(k,1117) = -(rxt(k,477) + rxt(k,478)) * y(k,95) - mat(k,185) = -(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,1652) = mat(k,1652) + rxt(k,420)*y(k,79) - mat(k,952) = .850_r8*rxt(k,562)*y(k,99) - mat(k,73) = rxt(k,420)*y(k,55) - mat(k,1332) = .850_r8*rxt(k,562)*y(k,69) - mat(k,229) = -(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,1285) = -rxt(k,316)*y(k,96) - mat(k,278) = -rxt(k,334)*y(k,96) - mat(k,1604) = -rxt(k,356)*y(k,96) - mat(k,1205) = -rxt(k,391)*y(k,96) - mat(k,1648) = -rxt(k,392)*y(k,96) - mat(k,1069) = rxt(k,393)*y(k,97) - mat(k,1205) = mat(k,1205) + rxt(k,395)*y(k,97) - mat(k,1648) = mat(k,1648) + rxt(k,396)*y(k,97) - mat(k,1246) = 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) - 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,1063) = -rxt(k,393)*y(k,97) - mat(k,1189) = -rxt(k,395)*y(k,97) - mat(k,1640) = -rxt(k,396)*y(k,97) - mat(k,1245) = -rxt(k,397)*y(k,97) - mat(k,1640) = mat(k,1640) + rxt(k,387)*y(k,95) - mat(k,557) = rxt(k,387)*y(k,55) - 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,1306) = -(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,1351) = -rxt(k,145)*y(k,98) - mat(k,1558) = -rxt(k,168)*y(k,98) - mat(k,834) = -rxt(k,185)*y(k,98) - mat(k,1050) = -rxt(k,203)*y(k,98) - mat(k,1472) = -rxt(k,209)*y(k,98) - mat(k,923) = -rxt(k,221)*y(k,98) - mat(k,880) = -rxt(k,238)*y(k,98) - mat(k,1394) = -rxt(k,309)*y(k,98) - mat(k,1515) = -rxt(k,310)*y(k,98) - mat(k,1091) = -rxt(k,311)*y(k,98) - mat(k,1706) = -rxt(k,312)*y(k,98) - mat(k,1136) = -rxt(k,313)*y(k,98) - mat(k,1176) = -rxt(k,314)*y(k,98) - mat(k,1751) = -rxt(k,315)*y(k,98) - mat(k,233) = -rxt(k,316)*y(k,98) - mat(k,1670) = -rxt(k,317)*y(k,98) - mat(k,1270) = -rxt(k,318)*y(k,98) - mat(k,1232) = -(rxt(k,319) + rxt(k,320)) * y(k,98) - mat(k,1232) = mat(k,1232) + rxt(k,120)*y(k,65) + rxt(k,329)*y(k,101) - mat(k,1670) = mat(k,1670) + (rxt(k,128)+rxt(k,130))*y(k,69) - mat(k,791) = rxt(k,120)*y(k,54) - mat(k,966) = (rxt(k,128)+rxt(k,130))*y(k,55) - mat(k,404) = rxt(k,329)*y(k,54) - mat(k,1352) = -(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,658) = -rxt(k,143)*y(k,99) - mat(k,299) = -rxt(k,144)*y(k,99) - mat(k,1307) = -rxt(k,145)*y(k,99) - mat(k,631) = -rxt(k,146)*y(k,99) - mat(k,522) = -rxt(k,147)*y(k,99) - mat(k,314) = -rxt(k,148)*y(k,99) - mat(k,602) = -rxt(k,149)*y(k,99) - mat(k,503) = -rxt(k,150)*y(k,99) - mat(k,372) = -rxt(k,151)*y(k,99) - mat(k,388) = -rxt(k,152)*y(k,99) - mat(k,358) = -rxt(k,154)*y(k,99) - mat(k,481) = -rxt(k,155)*y(k,99) - mat(k,718) = -rxt(k,156)*y(k,99) - mat(k,440) = -rxt(k,250)*y(k,99) - mat(k,792) = -rxt(k,251)*y(k,99) - mat(k,342) = -rxt(k,252)*y(k,99) - mat(k,1805) = -rxt(k,324)*y(k,99) - mat(k,1671) = -rxt(k,359)*y(k,99) - mat(k,967) = -rxt(k,562)*y(k,99) - mat(k,273) = -rxt(k,570)*y(k,99) - mat(k,1009) = -rxt(k,572)*y(k,99) - mat(k,1092) = rxt(k,573)*y(k,107) - mat(k,1233) = rxt(k,333)*y(k,103) - mat(k,1671) = mat(k,1671) + rxt(k,564)*y(k,80) + rxt(k,568)*y(k,94) & - + rxt(k,575)*y(k,107) + rxt(k,579)*y(k,108) - mat(k,120) = rxt(k,564)*y(k,55) - mat(k,96) = rxt(k,568)*y(k,55) - mat(k,234) = rxt(k,334)*y(k,103) - mat(k,1307) = mat(k,1307) + 2.000_r8*rxt(k,145)*y(k,99) - mat(k,1352) = mat(k,1352) + 2.000_r8*rxt(k,145)*y(k,98) - mat(k,286) = rxt(k,333)*y(k,54) + rxt(k,334)*y(k,96) - mat(k,206) = rxt(k,573)*y(k,28) + rxt(k,575)*y(k,55) - mat(k,69) = rxt(k,579)*y(k,55) - mat(k,156) = -(rxt(k,321)*y(k,69) + (rxt(k,322) + rxt(k,323)) * y(k,110)) - mat(k,948) = -rxt(k,321)*y(k,100) - mat(k,1774) = -(rxt(k,322) + rxt(k,323)) * y(k,100) - mat(k,1319) = rxt(k,324)*y(k,110) - mat(k,277) = rxt(k,332)*y(k,110) - mat(k,1774) = mat(k,1774) + rxt(k,324)*y(k,99) + rxt(k,332)*y(k,103) - mat(k,395) = -((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,985) = -(rxt(k,267) + rxt(k,274)) * y(k,101) - mat(k,1726) = -(rxt(k,272) + rxt(k,273)) * y(k,101) - mat(k,1073) = -rxt(k,325)*y(k,101) - mat(k,1684) = -rxt(k,326)*y(k,101) - mat(k,1249) = -rxt(k,327)*y(k,101) - mat(k,1209) = -(rxt(k,328) + rxt(k,329)) * y(k,101) - mat(k,1209) = mat(k,1209) + rxt(k,331)*y(k,102) - mat(k,1651) = rxt(k,121)*y(k,65) + rxt(k,357)*y(k,106) - mat(k,1249) = mat(k,1249) + 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,772) = rxt(k,121)*y(k,55) - mat(k,611) = rxt(k,127)*y(k,56) - mat(k,1287) = rxt(k,318)*y(k,56) - mat(k,99) = rxt(k,331)*y(k,54) - mat(k,1573) = rxt(k,343)*y(k,56) - mat(k,1606) = rxt(k,357)*y(k,55) + rxt(k,358)*y(k,56) - mat(k,98) = -(rxt(k,330)*y(k,28) + rxt(k,331)*y(k,54)) - mat(k,1064) = -rxt(k,330)*y(k,102) - mat(k,1196) = -rxt(k,331)*y(k,102) - mat(k,1645) = rxt(k,317)*y(k,98) - mat(k,1283) = rxt(k,317)*y(k,55) - mat(k,279) = -(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,1777) = -rxt(k,332)*y(k,103) - mat(k,1207) = -rxt(k,333)*y(k,103) - mat(k,230) = -rxt(k,334)*y(k,103) - mat(k,951) = -rxt(k,375)*y(k,103) - mat(k,1650) = rxt(k,359)*y(k,99) - mat(k,1321) = rxt(k,359)*y(k,55) - mat(k,749) = -(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,1037) = -rxt(k,306)*y(k,104) - mat(k,138) = -rxt(k,335)*y(k,104) - mat(k,995) = -rxt(k,344)*y(k,104) - mat(k,417) = -rxt(k,410)*y(k,104) - mat(k,86) = -rxt(k,411)*y(k,104) - mat(k,681) = -rxt(k,412)*y(k,104) - mat(k,1219) = -rxt(k,413)*y(k,104) - mat(k,1257) = -rxt(k,414)*y(k,104) - mat(k,53) = -rxt(k,418)*y(k,104) - mat(k,1417) = -rxt(k,432)*y(k,104) - mat(k,267) = -rxt(k,433)*y(k,104) - mat(k,1738) = -rxt(k,441)*y(k,104) - mat(k,1163) = -rxt(k,442)*y(k,104) - mat(k,212) = -rxt(k,461)*y(k,104) - mat(k,1502) = -(rxt(k,463) + rxt(k,464)) * y(k,104) - mat(k,1123) = -rxt(k,466)*y(k,104) - mat(k,192) = -rxt(k,469)*y(k,104) - mat(k,455) = -rxt(k,493)*y(k,104) - mat(k,186) = -rxt(k,495)*y(k,104) - mat(k,538) = -rxt(k,527)*y(k,104) - mat(k,42) = -rxt(k,530)*y(k,104) - mat(k,144) = -(rxt(k,532) + rxt(k,536)) * y(k,104) - mat(k,538) = mat(k,538) + rxt(k,526)*y(k,54) - mat(k,42) = mat(k,42) + .300_r8*rxt(k,530)*y(k,104) - mat(k,1502) = mat(k,1502) + rxt(k,337)*y(k,105) - mat(k,177) = rxt(k,504)*y(k,110) - mat(k,1693) = 2.000_r8*rxt(k,404)*y(k,43) + rxt(k,409)*y(k,56) + rxt(k,124) & - *y(k,68) - mat(k,417) = mat(k,417) + rxt(k,401)*y(k,54) + rxt(k,384)*y(k,95) - mat(k,86) = mat(k,86) + rxt(k,402)*y(k,54) - mat(k,186) = mat(k,186) + rxt(k,494)*y(k,54) + rxt(k,500)*y(k,95) - mat(k,1123) = mat(k,1123) + rxt(k,465)*y(k,54) + rxt(k,477)*y(k,95) & - + rxt(k,351)*y(k,106) - mat(k,1163) = mat(k,1163) + rxt(k,119)*y(k,65) + rxt(k,352)*y(k,106) - mat(k,681) = mat(k,681) + 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,168) = rxt(k,496)*y(k,54) - mat(k,192) = mat(k,192) + rxt(k,468)*y(k,54) - mat(k,995) = mat(k,995) + rxt(k,434)*y(k,43) - mat(k,1738) = mat(k,1738) + rxt(k,341)*y(k,105) - mat(k,1417) = mat(k,1417) + rxt(k,429)*y(k,43) - mat(k,1219) = mat(k,1219) + 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,1257) = mat(k,1257) + rxt(k,409)*y(k,32) + rxt(k,408)*y(k,43) & - + rxt(k,343)*y(k,105) - mat(k,1381) = rxt(k,450)*y(k,43) + rxt(k,336)*y(k,105) - mat(k,778) = rxt(k,119)*y(k,42) - mat(k,617) = rxt(k,124)*y(k,32) - mat(k,954) = rxt(k,133)*y(k,70) - mat(k,35) = rxt(k,133)*y(k,69) + rxt(k,134)*y(k,110) - mat(k,292) = 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,821) = rxt(k,184)*y(k,71) - mat(k,1459) = rxt(k,198)*y(k,71) - mat(k,1545) = rxt(k,167)*y(k,71) - mat(k,867) = rxt(k,237)*y(k,71) - mat(k,910) = rxt(k,219)*y(k,71) - mat(k,1037) = mat(k,1037) + rxt(k,202)*y(k,71) - mat(k,569) = 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,1338) = rxt(k,144)*y(k,71) - mat(k,157) = rxt(k,323)*y(k,110) - mat(k,749) = mat(k,749) + .300_r8*rxt(k,530)*y(k,19) - mat(k,1578) = 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,1614) = rxt(k,351)*y(k,40) + rxt(k,352)*y(k,42) + rxt(k,350)*y(k,110) - mat(k,1791) = 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,1598) = -(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,1401) = -rxt(k,336)*y(k,105) - mat(k,1522) = -rxt(k,337)*y(k,105) - mat(k,1098) = -rxt(k,338)*y(k,105) - mat(k,1713) = -rxt(k,339)*y(k,105) - mat(k,1143) = -rxt(k,340)*y(k,105) - mat(k,1758) = -rxt(k,341)*y(k,105) - mat(k,1239) = -rxt(k,342)*y(k,105) - mat(k,1277) = -rxt(k,343)*y(k,105) - mat(k,1713) = mat(k,1713) + rxt(k,112)*y(k,65) + rxt(k,282)*y(k,81) & - + rxt(k,326)*y(k,101) - mat(k,426) = rxt(k,349)*y(k,106) - mat(k,798) = rxt(k,112)*y(k,32) - mat(k,724) = rxt(k,282)*y(k,32) - mat(k,405) = rxt(k,326)*y(k,32) - mat(k,1634) = rxt(k,349)*y(k,33) + rxt(k,350)*y(k,110) - mat(k,1811) = 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,1635) = -(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,1016) = -rxt(k,131)*y(k,106) - mat(k,1402) = -rxt(k,345)*y(k,106) - mat(k,1523) = -rxt(k,346)*y(k,106) - mat(k,1099) = -rxt(k,347)*y(k,106) - mat(k,427) = -(rxt(k,348) + rxt(k,349)) * y(k,106) - mat(k,1812) = -rxt(k,350)*y(k,106) - mat(k,1144) = -rxt(k,351)*y(k,106) - mat(k,1184) = -rxt(k,352)*y(k,106) - mat(k,1759) = -rxt(k,354)*y(k,106) - mat(k,1240) = -rxt(k,355)*y(k,106) - mat(k,235) = -rxt(k,356)*y(k,106) - mat(k,1678) = -rxt(k,357)*y(k,106) - mat(k,1278) = -rxt(k,358)*y(k,106) - mat(k,1240) = mat(k,1240) + rxt(k,320)*y(k,98) - mat(k,1278) = mat(k,1278) + rxt(k,129)*y(k,69) - mat(k,974) = rxt(k,129)*y(k,56) - mat(k,1314) = rxt(k,320)*y(k,54) - mat(k,199) = -(rxt(k,573)*y(k,28) + rxt(k,575)*y(k,55)) - mat(k,1068) = -rxt(k,573)*y(k,107) - mat(k,1647) = -rxt(k,575)*y(k,107) - mat(k,1202) = rxt(k,566)*y(k,80) + rxt(k,567)*y(k,94) + rxt(k,578)*y(k,108) & - + rxt(k,584)*y(k,109) - mat(k,949) = rxt(k,576)*y(k,108) + rxt(k,581)*y(k,109) - mat(k,113) = rxt(k,566)*y(k,54) - mat(k,92) = rxt(k,567)*y(k,54) - mat(k,67) = rxt(k,578)*y(k,54) + rxt(k,576)*y(k,69) - mat(k,62) = rxt(k,584)*y(k,54) + rxt(k,581)*y(k,69) - mat(k,65) = -(rxt(k,576)*y(k,69) + rxt(k,578)*y(k,54) + rxt(k,579)*y(k,55)) - mat(k,939) = -rxt(k,576)*y(k,108) - mat(k,1191) = -rxt(k,578)*y(k,108) - mat(k,1642) = -rxt(k,579)*y(k,108) - mat(k,939) = mat(k,939) + rxt(k,580)*y(k,109) - mat(k,59) = rxt(k,580)*y(k,69) - mat(k,58) = -((rxt(k,580) + rxt(k,581)) * y(k,69) + rxt(k,584)*y(k,54)) - mat(k,938) = -(rxt(k,580) + rxt(k,581)) * y(k,109) - mat(k,1190) = -rxt(k,584)*y(k,109) - mat(k,1816) = -(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,609) = -rxt(k,102)*y(k,110) - mat(k,509) = -rxt(k,113)*y(k,110) - mat(k,803) = -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,728) = -rxt(k,283)*y(k,110) - mat(k,529) = -rxt(k,289)*y(k,110) - mat(k,666) = -rxt(k,291)*y(k,110) - mat(k,50) = -rxt(k,300)*y(k,110) - mat(k,136) = -rxt(k,302)*y(k,110) - mat(k,129) = -rxt(k,308)*y(k,110) - mat(k,163) = -(rxt(k,322) + rxt(k,323)) * y(k,110) - mat(k,1363) = -rxt(k,324)*y(k,110) - mat(k,290) = -rxt(k,332)*y(k,110) - mat(k,1639) = -rxt(k,350)*y(k,110) - mat(k,892) = -rxt(k,360)*y(k,110) - mat(k,1062) = -rxt(k,361)*y(k,110) - mat(k,935) = -rxt(k,362)*y(k,110) - mat(k,152) = -rxt(k,367)*y(k,110) - mat(k,110) = -rxt(k,369)*y(k,110) - mat(k,846) = -rxt(k,371)*y(k,110) - mat(k,1484) = -rxt(k,373)*y(k,110) - mat(k,588) = -rxt(k,385)*y(k,110) - mat(k,181) = -rxt(k,504)*y(k,110) - mat(k,554) = rxt(k,527)*y(k,104) - mat(k,44) = rxt(k,530)*y(k,104) - mat(k,1718) = rxt(k,405)*y(k,43) + rxt(k,339)*y(k,105) - mat(k,431) = rxt(k,410)*y(k,104) + rxt(k,348)*y(k,106) - mat(k,90) = rxt(k,411)*y(k,104) - mat(k,189) = rxt(k,495)*y(k,104) - mat(k,1148) = (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,1188) = rxt(k,290)*y(k,85) + rxt(k,442)*y(k,104) - mat(k,701) = rxt(k,405)*y(k,32) + rxt(k,412)*y(k,104) - mat(k,57) = rxt(k,418)*y(k,104) - mat(k,172) = (rxt(k,549)+rxt(k,554))*y(k,40) - mat(k,197) = (rxt(k,542)+rxt(k,548)+rxt(k,553))*y(k,40) + rxt(k,469)*y(k,104) - mat(k,141) = rxt(k,335)*y(k,104) - mat(k,250) = rxt(k,288)*y(k,84) - mat(k,1020) = rxt(k,118)*y(k,67) - mat(k,1763) = rxt(k,115)*y(k,67) - mat(k,609) = mat(k,609) + 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,364) = 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,348) = 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,803) = mat(k,803) + 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,319) = 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,509) = mat(k,509) + 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,641) = 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,978) = 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,304) = 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,110) = mat(k,110) + 2.000_r8*rxt(k,377)*y(k,69) - mat(k,846) = mat(k,846) + 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,1484) = mat(k,1484) + 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,1570) = 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,152) = mat(k,152) + rxt(k,376)*y(k,69) - mat(k,728) = mat(k,728) + 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,378) = 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,666) = mat(k,666) + 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,488) = 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,529) = mat(k,529) + 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,394) = 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,445) = 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,892) = mat(k,892) + 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,935) = mat(k,935) + 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,1062) = mat(k,1062) + 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,1318) = 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,1363) = mat(k,1363) + 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,163) = mat(k,163) + rxt(k,321)*y(k,69) - mat(k,770) = 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,1603) = rxt(k,339)*y(k,32) + rxt(k,340)*y(k,40) - mat(k,1639) = mat(k,1639) + 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) = lmat(k, 54) - mat(k, 56) = mat(k, 56) + lmat(k, 56) - 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, 76) = mat(k, 76) + lmat(k, 76) - mat(k, 77) = lmat(k, 77) - mat(k, 78) = lmat(k, 78) - mat(k, 79) = mat(k, 79) + lmat(k, 79) - mat(k, 80) = lmat(k, 80) - mat(k, 82) = mat(k, 82) + lmat(k, 82) - mat(k, 83) = lmat(k, 83) - mat(k, 84) = mat(k, 84) + lmat(k, 84) - mat(k, 86) = mat(k, 86) + lmat(k, 86) - mat(k, 91) = mat(k, 91) + lmat(k, 91) - mat(k, 98) = mat(k, 98) + lmat(k, 98) - mat(k, 103) = lmat(k, 103) - mat(k, 104) = mat(k, 104) + lmat(k, 104) - mat(k, 105) = mat(k, 105) + lmat(k, 105) - mat(k, 106) = lmat(k, 106) - mat(k, 110) = mat(k, 110) + lmat(k, 110) - mat(k, 112) = mat(k, 112) + lmat(k, 112) - mat(k, 122) = mat(k, 122) + lmat(k, 122) - mat(k, 124) = lmat(k, 124) - mat(k, 130) = mat(k, 130) + lmat(k, 130) - mat(k, 131) = lmat(k, 131) - mat(k, 135) = mat(k, 135) + lmat(k, 135) - mat(k, 137) = mat(k, 137) + lmat(k, 137) - mat(k, 138) = mat(k, 138) + lmat(k, 138) - mat(k, 139) = lmat(k, 139) - mat(k, 142) = mat(k, 142) + lmat(k, 142) - mat(k, 148) = mat(k, 148) + lmat(k, 148) - mat(k, 156) = mat(k, 156) + lmat(k, 156) - mat(k, 160) = lmat(k, 160) - mat(k, 163) = mat(k, 163) + lmat(k, 163) - mat(k, 165) = mat(k, 165) + lmat(k, 165) - mat(k, 166) = lmat(k, 166) - mat(k, 168) = mat(k, 168) + lmat(k, 168) - mat(k, 173) = mat(k, 173) + lmat(k, 173) - mat(k, 174) = mat(k, 174) + lmat(k, 174) - mat(k, 175) = lmat(k, 175) - mat(k, 182) = mat(k, 182) + lmat(k, 182) - mat(k, 183) = mat(k, 183) + lmat(k, 183) - mat(k, 188) = mat(k, 188) + lmat(k, 188) - mat(k, 191) = mat(k, 191) + lmat(k, 191) - mat(k, 192) = mat(k, 192) + lmat(k, 192) - mat(k, 195) = mat(k, 195) + lmat(k, 195) - mat(k, 199) = mat(k, 199) + lmat(k, 199) - mat(k, 200) = lmat(k, 200) - mat(k, 203) = lmat(k, 203) - mat(k, 210) = mat(k, 210) + lmat(k, 210) - mat(k, 211) = mat(k, 211) + lmat(k, 211) - mat(k, 214) = mat(k, 214) + lmat(k, 214) - mat(k, 216) = mat(k, 216) + lmat(k, 216) - mat(k, 217) = mat(k, 217) + lmat(k, 217) - mat(k, 218) = mat(k, 218) + lmat(k, 218) - mat(k, 219) = lmat(k, 219) - mat(k, 221) = mat(k, 221) + lmat(k, 221) - mat(k, 229) = mat(k, 229) + lmat(k, 229) - mat(k, 236) = mat(k, 236) + lmat(k, 236) - mat(k, 239) = mat(k, 239) + lmat(k, 239) - mat(k, 243) = lmat(k, 243) - mat(k, 244) = mat(k, 244) + lmat(k, 244) - mat(k, 245) = lmat(k, 245) - mat(k, 246) = lmat(k, 246) - mat(k, 249) = lmat(k, 249) - mat(k, 252) = mat(k, 252) + lmat(k, 252) - mat(k, 263) = lmat(k, 263) - mat(k, 265) = mat(k, 265) + lmat(k, 265) - mat(k, 269) = lmat(k, 269) - mat(k, 279) = mat(k, 279) + lmat(k, 279) - mat(k, 291) = mat(k, 291) + lmat(k, 291) - mat(k, 305) = mat(k, 305) + lmat(k, 305) - mat(k, 306) = lmat(k, 306) - mat(k, 319) = mat(k, 319) + lmat(k, 319) - mat(k, 322) = mat(k, 322) + lmat(k, 322) - mat(k, 334) = mat(k, 334) + lmat(k, 334) - mat(k, 335) = lmat(k, 335) - mat(k, 341) = mat(k, 341) + lmat(k, 341) - mat(k, 350) = mat(k, 350) + lmat(k, 350) - mat(k, 351) = lmat(k, 351) - mat(k, 364) = mat(k, 364) + lmat(k, 364) - mat(k, 365) = mat(k, 365) + lmat(k, 365) - mat(k, 366) = lmat(k, 366) - mat(k, 378) = mat(k, 378) + lmat(k, 378) - mat(k, 379) = mat(k, 379) + lmat(k, 379) - mat(k, 395) = mat(k, 395) + lmat(k, 395) - mat(k, 399) = mat(k, 399) + lmat(k, 399) - mat(k, 403) = mat(k, 403) + lmat(k, 403) - mat(k, 406) = lmat(k, 406) - mat(k, 407) = mat(k, 407) + lmat(k, 407) - mat(k, 413) = mat(k, 413) + lmat(k, 413) - mat(k, 432) = mat(k, 432) + lmat(k, 432) - mat(k, 433) = lmat(k, 433) - mat(k, 439) = mat(k, 439) + lmat(k, 439) - mat(k, 450) = mat(k, 450) + lmat(k, 450) - mat(k, 451) = mat(k, 451) + lmat(k, 451) - mat(k, 460) = mat(k, 460) + lmat(k, 460) - mat(k, 471) = mat(k, 471) + lmat(k, 471) - mat(k, 472) = lmat(k, 472) - mat(k, 488) = mat(k, 488) + lmat(k, 488) - mat(k, 491) = mat(k, 491) + lmat(k, 491) - mat(k, 495) = lmat(k, 495) - mat(k, 509) = mat(k, 509) + lmat(k, 509) - mat(k, 513) = mat(k, 513) + lmat(k, 513) - mat(k, 514) = lmat(k, 514) - mat(k, 529) = mat(k, 529) + lmat(k, 529) - mat(k, 530) = mat(k, 530) + lmat(k, 530) - mat(k, 533) = lmat(k, 533) - mat(k, 535) = mat(k, 535) + lmat(k, 535) - mat(k, 552) = mat(k, 552) + lmat(k, 552) - mat(k, 555) = mat(k, 555) + lmat(k, 555) - mat(k, 556) = mat(k, 556) + lmat(k, 556) - mat(k, 558) = mat(k, 558) + lmat(k, 558) - mat(k, 561) = lmat(k, 561) - mat(k, 563) = mat(k, 563) + lmat(k, 563) - mat(k, 564) = mat(k, 564) + lmat(k, 564) - mat(k, 566) = lmat(k, 566) - mat(k, 567) = mat(k, 567) + lmat(k, 567) - mat(k, 568) = lmat(k, 568) - mat(k, 569) = mat(k, 569) + lmat(k, 569) - mat(k, 572) = lmat(k, 572) - mat(k, 576) = mat(k, 576) + lmat(k, 576) - mat(k, 580) = mat(k, 580) + lmat(k, 580) - mat(k, 585) = mat(k, 585) + lmat(k, 585) - mat(k, 586) = mat(k, 586) + lmat(k, 586) - mat(k, 591) = mat(k, 591) + lmat(k, 591) - mat(k, 613) = mat(k, 613) + lmat(k, 613) - mat(k, 625) = mat(k, 625) + lmat(k, 625) - mat(k, 630) = lmat(k, 630) - mat(k, 646) = mat(k, 646) + lmat(k, 646) - mat(k, 651) = lmat(k, 651) - mat(k, 660) = mat(k, 660) + lmat(k, 660) - mat(k, 669) = mat(k, 669) + lmat(k, 669) - mat(k, 680) = mat(k, 680) + lmat(k, 680) - mat(k, 706) = mat(k, 706) + lmat(k, 706) - mat(k, 711) = lmat(k, 711) - mat(k, 727) = mat(k, 727) + lmat(k, 727) - mat(k, 729) = lmat(k, 729) - mat(k, 730) = lmat(k, 730) - mat(k, 741) = mat(k, 741) + lmat(k, 741) - mat(k, 743) = mat(k, 743) + lmat(k, 743) - mat(k, 748) = mat(k, 748) + lmat(k, 748) - mat(k, 749) = mat(k, 749) + lmat(k, 749) - mat(k, 762) = mat(k, 762) + lmat(k, 762) - mat(k, 770) = mat(k, 770) + lmat(k, 770) - mat(k, 779) = mat(k, 779) + lmat(k, 779) - mat(k, 786) = mat(k, 786) + lmat(k, 786) - mat(k, 799) = lmat(k, 799) - mat(k, 804) = lmat(k, 804) - mat(k, 823) = mat(k, 823) + lmat(k, 823) - mat(k, 846) = mat(k, 846) + lmat(k, 846) - mat(k, 848) = lmat(k, 848) - mat(k, 870) = mat(k, 870) + lmat(k, 870) - mat(k, 914) = mat(k, 914) + lmat(k, 914) - mat(k, 958) = mat(k, 958) + lmat(k, 958) - mat(k, 982) = mat(k, 982) + lmat(k, 982) - mat(k, 998) = mat(k, 998) + lmat(k, 998) - mat(k,1000) = mat(k,1000) + lmat(k,1000) - mat(k,1001) = mat(k,1001) + lmat(k,1001) - mat(k,1006) = mat(k,1006) + lmat(k,1006) - mat(k,1044) = mat(k,1044) + lmat(k,1044) - mat(k,1067) = mat(k,1067) + lmat(k,1067) - mat(k,1086) = mat(k,1086) + lmat(k,1086) - mat(k,1089) = lmat(k,1089) - mat(k,1132) = mat(k,1132) + lmat(k,1132) - mat(k,1138) = mat(k,1138) + lmat(k,1138) - mat(k,1146) = mat(k,1146) + lmat(k,1146) - mat(k,1163) = mat(k,1163) + lmat(k,1163) - mat(k,1173) = mat(k,1173) + lmat(k,1173) - mat(k,1187) = lmat(k,1187) - mat(k,1190) = mat(k,1190) + lmat(k,1190) - mat(k,1191) = mat(k,1191) + lmat(k,1191) - mat(k,1202) = mat(k,1202) + lmat(k,1202) - mat(k,1224) = mat(k,1224) + lmat(k,1224) - mat(k,1230) = mat(k,1230) + lmat(k,1230) - mat(k,1246) = mat(k,1246) + lmat(k,1246) - mat(k,1252) = mat(k,1252) + lmat(k,1252) - mat(k,1268) = mat(k,1268) + lmat(k,1268) - mat(k,1269) = mat(k,1269) + lmat(k,1269) - mat(k,1279) = mat(k,1279) + lmat(k,1279) - mat(k,1298) = mat(k,1298) + lmat(k,1298) - mat(k,1306) = mat(k,1306) + lmat(k,1306) - mat(k,1315) = mat(k,1315) + lmat(k,1315) - mat(k,1341) = mat(k,1341) + lmat(k,1341) - mat(k,1344) = mat(k,1344) + lmat(k,1344) - mat(k,1352) = mat(k,1352) + lmat(k,1352) - mat(k,1366) = mat(k,1366) + lmat(k,1366) - mat(k,1370) = lmat(k,1370) - mat(k,1371) = lmat(k,1371) - mat(k,1379) = mat(k,1379) + lmat(k,1379) - mat(k,1390) = mat(k,1390) + lmat(k,1390) - mat(k,1396) = mat(k,1396) + lmat(k,1396) - mat(k,1422) = mat(k,1422) + lmat(k,1422) - mat(k,1426) = mat(k,1426) + lmat(k,1426) - mat(k,1427) = mat(k,1427) + lmat(k,1427) - mat(k,1432) = mat(k,1432) + lmat(k,1432) - mat(k,1438) = mat(k,1438) + lmat(k,1438) - mat(k,1440) = mat(k,1440) + lmat(k,1440) - mat(k,1461) = lmat(k,1461) - mat(k,1476) = mat(k,1476) + lmat(k,1476) - mat(k,1484) = mat(k,1484) + lmat(k,1484) - mat(k,1513) = mat(k,1513) + lmat(k,1513) - mat(k,1517) = mat(k,1517) + lmat(k,1517) - mat(k,1520) = mat(k,1520) + lmat(k,1520) - mat(k,1562) = lmat(k,1562) - mat(k,1564) = mat(k,1564) + lmat(k,1564) - mat(k,1570) = mat(k,1570) + lmat(k,1570) - mat(k,1578) = mat(k,1578) + lmat(k,1578) - mat(k,1583) = mat(k,1583) + lmat(k,1583) - mat(k,1598) = mat(k,1598) + lmat(k,1598) - mat(k,1619) = mat(k,1619) + lmat(k,1619) - mat(k,1625) = mat(k,1625) + lmat(k,1625) - mat(k,1635) = mat(k,1635) + lmat(k,1635) - mat(k,1641) = lmat(k,1641) - mat(k,1642) = mat(k,1642) + lmat(k,1642) - mat(k,1647) = mat(k,1647) + lmat(k,1647) - mat(k,1652) = mat(k,1652) + lmat(k,1652) - mat(k,1662) = mat(k,1662) + lmat(k,1662) - mat(k,1668) = mat(k,1668) + lmat(k,1668) - mat(k,1671) = mat(k,1671) + lmat(k,1671) - mat(k,1679) = mat(k,1679) + lmat(k,1679) - mat(k,1716) = mat(k,1716) + lmat(k,1716) - mat(k,1738) = mat(k,1738) + lmat(k,1738) - mat(k,1744) = mat(k,1744) + lmat(k,1744) - mat(k,1748) = mat(k,1748) + lmat(k,1748) - mat(k,1749) = mat(k,1749) + lmat(k,1749) - mat(k,1762) = mat(k,1762) + lmat(k,1762) - mat(k,1781) = lmat(k,1781) - mat(k,1786) = mat(k,1786) + lmat(k,1786) - mat(k,1791) = mat(k,1791) + lmat(k,1791) - mat(k,1802) = lmat(k,1802) - mat(k,1814) = lmat(k,1814) - mat(k,1816) = mat(k,1816) + lmat(k,1816) - mat(k, 115) = 0._r8 - mat(k, 118) = 0._r8 - mat(k, 149) = 0._r8 - mat(k, 154) = 0._r8 - mat(k, 158) = 0._r8 - mat(k, 162) = 0._r8 - mat(k, 171) = 0._r8 - mat(k, 201) = 0._r8 - mat(k, 202) = 0._r8 - mat(k, 208) = 0._r8 - mat(k, 220) = 0._r8 - mat(k, 255) = 0._r8 - mat(k, 260) = 0._r8 - mat(k, 262) = 0._r8 - mat(k, 264) = 0._r8 - mat(k, 266) = 0._r8 - mat(k, 271) = 0._r8 - mat(k, 280) = 0._r8 - mat(k, 281) = 0._r8 - mat(k, 285) = 0._r8 - mat(k, 287) = 0._r8 - mat(k, 289) = 0._r8 - mat(k, 325) = 0._r8 - mat(k, 327) = 0._r8 - mat(k, 328) = 0._r8 - mat(k, 329) = 0._r8 - mat(k, 332) = 0._r8 - mat(k, 333) = 0._r8 - mat(k, 412) = 0._r8 - mat(k, 414) = 0._r8 - mat(k, 416) = 0._r8 - mat(k, 419) = 0._r8 - mat(k, 421) = 0._r8 - mat(k, 424) = 0._r8 - mat(k, 425) = 0._r8 - mat(k, 428) = 0._r8 - mat(k, 430) = 0._r8 - mat(k, 452) = 0._r8 - mat(k, 453) = 0._r8 - mat(k, 457) = 0._r8 - mat(k, 458) = 0._r8 - mat(k, 459) = 0._r8 - mat(k, 461) = 0._r8 - mat(k, 463) = 0._r8 - mat(k, 466) = 0._r8 - mat(k, 468) = 0._r8 - mat(k, 473) = 0._r8 - mat(k, 480) = 0._r8 - mat(k, 487) = 0._r8 - mat(k, 521) = 0._r8 - mat(k, 528) = 0._r8 - mat(k, 534) = 0._r8 - mat(k, 536) = 0._r8 - mat(k, 539) = 0._r8 - mat(k, 540) = 0._r8 - mat(k, 541) = 0._r8 - mat(k, 545) = 0._r8 - mat(k, 548) = 0._r8 - mat(k, 549) = 0._r8 - mat(k, 550) = 0._r8 - mat(k, 551) = 0._r8 - mat(k, 553) = 0._r8 - mat(k, 560) = 0._r8 - mat(k, 562) = 0._r8 - mat(k, 570) = 0._r8 - mat(k, 571) = 0._r8 - mat(k, 573) = 0._r8 - mat(k, 575) = 0._r8 - mat(k, 578) = 0._r8 - mat(k, 579) = 0._r8 - mat(k, 581) = 0._r8 - mat(k, 583) = 0._r8 - mat(k, 584) = 0._r8 - mat(k, 587) = 0._r8 - mat(k, 614) = 0._r8 - mat(k, 616) = 0._r8 - mat(k, 622) = 0._r8 - mat(k, 627) = 0._r8 - mat(k, 636) = 0._r8 - mat(k, 637) = 0._r8 - mat(k, 640) = 0._r8 - mat(k, 659) = 0._r8 - mat(k, 664) = 0._r8 - mat(k, 665) = 0._r8 - mat(k, 678) = 0._r8 - mat(k, 679) = 0._r8 - mat(k, 682) = 0._r8 - mat(k, 683) = 0._r8 - mat(k, 686) = 0._r8 - mat(k, 688) = 0._r8 - mat(k, 691) = 0._r8 - mat(k, 692) = 0._r8 - mat(k, 696) = 0._r8 - mat(k, 697) = 0._r8 - mat(k, 707) = 0._r8 - mat(k, 716) = 0._r8 - mat(k, 737) = 0._r8 - mat(k, 747) = 0._r8 - mat(k, 750) = 0._r8 - mat(k, 751) = 0._r8 - mat(k, 752) = 0._r8 - mat(k, 760) = 0._r8 - mat(k, 761) = 0._r8 - mat(k, 765) = 0._r8 - mat(k, 766) = 0._r8 - mat(k, 774) = 0._r8 - mat(k, 783) = 0._r8 - mat(k, 787) = 0._r8 - mat(k, 790) = 0._r8 - mat(k, 794) = 0._r8 - mat(k, 805) = 0._r8 - mat(k, 819) = 0._r8 - mat(k, 824) = 0._r8 - mat(k, 825) = 0._r8 - mat(k, 827) = 0._r8 - mat(k, 828) = 0._r8 - mat(k, 833) = 0._r8 - mat(k, 835) = 0._r8 - mat(k, 839) = 0._r8 - mat(k, 840) = 0._r8 - mat(k, 841) = 0._r8 - mat(k, 842) = 0._r8 - mat(k, 861) = 0._r8 - mat(k, 865) = 0._r8 - mat(k, 869) = 0._r8 - mat(k, 871) = 0._r8 - mat(k, 879) = 0._r8 - mat(k, 881) = 0._r8 - mat(k, 884) = 0._r8 - mat(k, 885) = 0._r8 - mat(k, 886) = 0._r8 - mat(k, 887) = 0._r8 - mat(k, 888) = 0._r8 - mat(k, 890) = 0._r8 - mat(k, 894) = 0._r8 - mat(k, 908) = 0._r8 - mat(k, 912) = 0._r8 - mat(k, 913) = 0._r8 - mat(k, 917) = 0._r8 - mat(k, 922) = 0._r8 - mat(k, 924) = 0._r8 - mat(k, 927) = 0._r8 - mat(k, 928) = 0._r8 - mat(k, 929) = 0._r8 - mat(k, 930) = 0._r8 - mat(k, 931) = 0._r8 - mat(k, 933) = 0._r8 - mat(k, 941) = 0._r8 - mat(k, 946) = 0._r8 - mat(k, 953) = 0._r8 - mat(k, 962) = 0._r8 - mat(k, 963) = 0._r8 - mat(k, 968) = 0._r8 - mat(k, 969) = 0._r8 - mat(k, 971) = 0._r8 - mat(k, 973) = 0._r8 - mat(k, 977) = 0._r8 - mat(k, 988) = 0._r8 - mat(k, 990) = 0._r8 - mat(k, 997) = 0._r8 - mat(k, 999) = 0._r8 - mat(k,1002) = 0._r8 - mat(k,1004) = 0._r8 - mat(k,1005) = 0._r8 - mat(k,1008) = 0._r8 - mat(k,1012) = 0._r8 - mat(k,1014) = 0._r8 - mat(k,1015) = 0._r8 - mat(k,1018) = 0._r8 - mat(k,1039) = 0._r8 - mat(k,1040) = 0._r8 - mat(k,1049) = 0._r8 - mat(k,1051) = 0._r8 - mat(k,1054) = 0._r8 - mat(k,1055) = 0._r8 - mat(k,1056) = 0._r8 - mat(k,1057) = 0._r8 - mat(k,1058) = 0._r8 - mat(k,1070) = 0._r8 - mat(k,1071) = 0._r8 - mat(k,1075) = 0._r8 - mat(k,1076) = 0._r8 - mat(k,1077) = 0._r8 - mat(k,1078) = 0._r8 - mat(k,1080) = 0._r8 - mat(k,1082) = 0._r8 - mat(k,1083) = 0._r8 - mat(k,1084) = 0._r8 - mat(k,1085) = 0._r8 - mat(k,1087) = 0._r8 - mat(k,1088) = 0._r8 - mat(k,1090) = 0._r8 - mat(k,1093) = 0._r8 - mat(k,1094) = 0._r8 - mat(k,1095) = 0._r8 - mat(k,1096) = 0._r8 - mat(k,1097) = 0._r8 - mat(k,1101) = 0._r8 - mat(k,1102) = 0._r8 - mat(k,1103) = 0._r8 - mat(k,1110) = 0._r8 - mat(k,1114) = 0._r8 - mat(k,1115) = 0._r8 - mat(k,1116) = 0._r8 - mat(k,1124) = 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,1135) = 0._r8 - mat(k,1137) = 0._r8 - mat(k,1139) = 0._r8 - mat(k,1140) = 0._r8 - mat(k,1142) = 0._r8 - mat(k,1145) = 0._r8 - mat(k,1147) = 0._r8 - mat(k,1152) = 0._r8 - mat(k,1154) = 0._r8 - mat(k,1157) = 0._r8 - mat(k,1158) = 0._r8 - mat(k,1165) = 0._r8 - mat(k,1166) = 0._r8 - mat(k,1167) = 0._r8 - mat(k,1168) = 0._r8 - mat(k,1169) = 0._r8 - mat(k,1170) = 0._r8 - mat(k,1174) = 0._r8 - mat(k,1175) = 0._r8 - mat(k,1177) = 0._r8 - mat(k,1178) = 0._r8 - mat(k,1180) = 0._r8 - mat(k,1181) = 0._r8 - mat(k,1182) = 0._r8 - mat(k,1183) = 0._r8 - mat(k,1185) = 0._r8 - mat(k,1186) = 0._r8 - mat(k,1213) = 0._r8 - mat(k,1221) = 0._r8 - mat(k,1223) = 0._r8 - mat(k,1226) = 0._r8 - mat(k,1229) = 0._r8 - mat(k,1236) = 0._r8 - mat(k,1238) = 0._r8 - mat(k,1244) = 0._r8 - mat(k,1247) = 0._r8 - mat(k,1251) = 0._r8 - mat(k,1258) = 0._r8 - mat(k,1259) = 0._r8 - mat(k,1260) = 0._r8 - mat(k,1261) = 0._r8 - mat(k,1264) = 0._r8 - mat(k,1266) = 0._r8 - mat(k,1267) = 0._r8 - mat(k,1271) = 0._r8 - mat(k,1274) = 0._r8 - mat(k,1276) = 0._r8 - mat(k,1282) = 0._r8 - mat(k,1286) = 0._r8 - mat(k,1293) = 0._r8 - mat(k,1294) = 0._r8 - mat(k,1309) = 0._r8 - mat(k,1313) = 0._r8 - mat(k,1336) = 0._r8 - mat(k,1340) = 0._r8 - mat(k,1342) = 0._r8 - mat(k,1345) = 0._r8 - mat(k,1350) = 0._r8 - mat(k,1355) = 0._r8 - mat(k,1356) = 0._r8 - mat(k,1357) = 0._r8 - mat(k,1358) = 0._r8 - mat(k,1359) = 0._r8 - mat(k,1361) = 0._r8 - mat(k,1373) = 0._r8 - mat(k,1375) = 0._r8 - mat(k,1378) = 0._r8 - mat(k,1383) = 0._r8 - mat(k,1384) = 0._r8 - mat(k,1385) = 0._r8 - mat(k,1386) = 0._r8 - mat(k,1387) = 0._r8 - mat(k,1388) = 0._r8 - mat(k,1391) = 0._r8 - mat(k,1395) = 0._r8 - mat(k,1398) = 0._r8 - mat(k,1400) = 0._r8 - mat(k,1406) = 0._r8 - mat(k,1409) = 0._r8 - mat(k,1410) = 0._r8 - mat(k,1411) = 0._r8 - mat(k,1413) = 0._r8 - mat(k,1414) = 0._r8 - mat(k,1416) = 0._r8 - mat(k,1418) = 0._r8 - mat(k,1419) = 0._r8 - mat(k,1420) = 0._r8 - mat(k,1421) = 0._r8 - mat(k,1423) = 0._r8 - mat(k,1424) = 0._r8 - mat(k,1425) = 0._r8 - mat(k,1428) = 0._r8 - mat(k,1429) = 0._r8 - mat(k,1430) = 0._r8 - mat(k,1431) = 0._r8 - mat(k,1433) = 0._r8 - mat(k,1434) = 0._r8 - mat(k,1435) = 0._r8 - mat(k,1436) = 0._r8 - mat(k,1437) = 0._r8 - mat(k,1439) = 0._r8 - mat(k,1441) = 0._r8 - mat(k,1457) = 0._r8 - mat(k,1462) = 0._r8 - mat(k,1463) = 0._r8 - mat(k,1465) = 0._r8 - mat(k,1466) = 0._r8 - mat(k,1471) = 0._r8 - mat(k,1473) = 0._r8 - mat(k,1477) = 0._r8 - mat(k,1479) = 0._r8 - mat(k,1480) = 0._r8 - mat(k,1496) = 0._r8 - mat(k,1499) = 0._r8 - mat(k,1504) = 0._r8 - mat(k,1505) = 0._r8 - mat(k,1506) = 0._r8 - mat(k,1507) = 0._r8 - mat(k,1509) = 0._r8 - mat(k,1512) = 0._r8 - mat(k,1514) = 0._r8 - mat(k,1516) = 0._r8 - mat(k,1519) = 0._r8 - mat(k,1521) = 0._r8 - mat(k,1525) = 0._r8 - mat(k,1527) = 0._r8 - mat(k,1543) = 0._r8 - mat(k,1547) = 0._r8 - mat(k,1548) = 0._r8 - mat(k,1549) = 0._r8 - mat(k,1551) = 0._r8 - mat(k,1552) = 0._r8 - mat(k,1557) = 0._r8 - mat(k,1559) = 0._r8 - mat(k,1563) = 0._r8 - mat(k,1565) = 0._r8 - mat(k,1566) = 0._r8 - mat(k,1575) = 0._r8 - mat(k,1579) = 0._r8 - mat(k,1580) = 0._r8 - mat(k,1581) = 0._r8 - mat(k,1582) = 0._r8 - mat(k,1584) = 0._r8 - mat(k,1585) = 0._r8 - mat(k,1588) = 0._r8 - mat(k,1591) = 0._r8 - mat(k,1592) = 0._r8 - mat(k,1594) = 0._r8 - mat(k,1595) = 0._r8 - mat(k,1597) = 0._r8 - mat(k,1599) = 0._r8 - mat(k,1600) = 0._r8 - mat(k,1605) = 0._r8 - mat(k,1608) = 0._r8 - mat(k,1609) = 0._r8 - mat(k,1612) = 0._r8 - mat(k,1616) = 0._r8 - mat(k,1617) = 0._r8 - mat(k,1618) = 0._r8 - mat(k,1621) = 0._r8 - mat(k,1627) = 0._r8 - mat(k,1628) = 0._r8 - mat(k,1630) = 0._r8 - mat(k,1631) = 0._r8 - mat(k,1633) = 0._r8 - mat(k,1653) = 0._r8 - mat(k,1654) = 0._r8 - mat(k,1656) = 0._r8 - mat(k,1657) = 0._r8 - mat(k,1659) = 0._r8 - mat(k,1661) = 0._r8 - mat(k,1664) = 0._r8 - mat(k,1666) = 0._r8 - mat(k,1667) = 0._r8 - mat(k,1672) = 0._r8 - mat(k,1673) = 0._r8 - mat(k,1674) = 0._r8 - mat(k,1675) = 0._r8 - mat(k,1676) = 0._r8 - mat(k,1677) = 0._r8 - mat(k,1681) = 0._r8 - mat(k,1682) = 0._r8 - mat(k,1686) = 0._r8 - mat(k,1687) = 0._r8 - mat(k,1690) = 0._r8 - mat(k,1695) = 0._r8 - mat(k,1696) = 0._r8 - mat(k,1697) = 0._r8 - mat(k,1703) = 0._r8 - mat(k,1707) = 0._r8 - mat(k,1708) = 0._r8 - mat(k,1709) = 0._r8 - mat(k,1710) = 0._r8 - mat(k,1711) = 0._r8 - mat(k,1712) = 0._r8 - mat(k,1714) = 0._r8 - mat(k,1717) = 0._r8 - mat(k,1721) = 0._r8 - mat(k,1725) = 0._r8 - mat(k,1727) = 0._r8 - mat(k,1729) = 0._r8 - mat(k,1732) = 0._r8 - mat(k,1733) = 0._r8 - mat(k,1740) = 0._r8 - mat(k,1741) = 0._r8 - mat(k,1742) = 0._r8 - mat(k,1743) = 0._r8 - mat(k,1745) = 0._r8 - mat(k,1747) = 0._r8 - mat(k,1752) = 0._r8 - mat(k,1755) = 0._r8 - mat(k,1757) = 0._r8 - mat(k,1761) = 0._r8 - mat(k,1776) = 0._r8 - mat(k,1785) = 0._r8 - mat(k,1789) = 0._r8 - mat(k,1796) = 0._r8 - mat(k,1797) = 0._r8 - mat(k,1800) = 0._r8 - mat(k,1803) = 0._r8 - mat(k,1804) = 0._r8 - mat(k,1806) = 0._r8 - mat(k,1807) = 0._r8 - mat(k,1809) = 0._r8 - mat(k,1815) = 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, 76) = mat(k, 76) - dti(k) - mat(k, 84) = mat(k, 84) - dti(k) - mat(k, 91) = mat(k, 91) - dti(k) - mat(k, 98) = mat(k, 98) - dti(k) - mat(k, 105) = mat(k, 105) - dti(k) - mat(k, 112) = mat(k, 112) - dti(k) - mat(k, 122) = mat(k, 122) - dti(k) - mat(k, 130) = mat(k, 130) - dti(k) - mat(k, 137) = mat(k, 137) - dti(k) - mat(k, 142) = mat(k, 142) - dti(k) - mat(k, 148) = mat(k, 148) - dti(k) - mat(k, 156) = mat(k, 156) - dti(k) - mat(k, 165) = mat(k, 165) - dti(k) - mat(k, 174) = mat(k, 174) - dti(k) - mat(k, 182) = mat(k, 182) - dti(k) - mat(k, 191) = mat(k, 191) - dti(k) - mat(k, 199) = mat(k, 199) - dti(k) - mat(k, 211) = mat(k, 211) - dti(k) - mat(k, 221) = mat(k, 221) - dti(k) - mat(k, 229) = mat(k, 229) - dti(k) - mat(k, 239) = mat(k, 239) - dti(k) - mat(k, 252) = mat(k, 252) - dti(k) - mat(k, 265) = mat(k, 265) - dti(k) - mat(k, 279) = mat(k, 279) - dti(k) - mat(k, 291) = mat(k, 291) - dti(k) - mat(k, 305) = mat(k, 305) - dti(k) - mat(k, 322) = mat(k, 322) - dti(k) - mat(k, 334) = mat(k, 334) - dti(k) - mat(k, 350) = mat(k, 350) - dti(k) - mat(k, 365) = mat(k, 365) - dti(k) - mat(k, 379) = mat(k, 379) - dti(k) - mat(k, 395) = mat(k, 395) - dti(k) - mat(k, 413) = mat(k, 413) - dti(k) - mat(k, 432) = mat(k, 432) - dti(k) - mat(k, 451) = mat(k, 451) - dti(k) - mat(k, 471) = mat(k, 471) - dti(k) - mat(k, 491) = mat(k, 491) - dti(k) - mat(k, 513) = mat(k, 513) - dti(k) - mat(k, 535) = mat(k, 535) - dti(k) - mat(k, 567) = mat(k, 567) - dti(k) - mat(k, 591) = mat(k, 591) - dti(k) - mat(k, 613) = mat(k, 613) - dti(k) - mat(k, 646) = mat(k, 646) - dti(k) - mat(k, 680) = mat(k, 680) - dti(k) - mat(k, 706) = mat(k, 706) - dti(k) - mat(k, 749) = mat(k, 749) - dti(k) - mat(k, 779) = mat(k, 779) - dti(k) - mat(k, 823) = mat(k, 823) - dti(k) - mat(k, 870) = mat(k, 870) - dti(k) - mat(k, 914) = mat(k, 914) - dti(k) - mat(k, 958) = mat(k, 958) - dti(k) - mat(k,1001) = mat(k,1001) - dti(k) - mat(k,1044) = mat(k,1044) - dti(k) - mat(k,1086) = mat(k,1086) - dti(k) - mat(k,1132) = mat(k,1132) - dti(k) - mat(k,1173) = mat(k,1173) - dti(k) - mat(k,1230) = mat(k,1230) - dti(k) - mat(k,1269) = mat(k,1269) - dti(k) - mat(k,1306) = mat(k,1306) - dti(k) - mat(k,1352) = mat(k,1352) - dti(k) - mat(k,1396) = mat(k,1396) - dti(k) - mat(k,1432) = mat(k,1432) - dti(k) - mat(k,1476) = mat(k,1476) - dti(k) - mat(k,1520) = mat(k,1520) - dti(k) - mat(k,1564) = mat(k,1564) - dti(k) - mat(k,1598) = mat(k,1598) - dti(k) - mat(k,1635) = mat(k,1635) - dti(k) - mat(k,1679) = mat(k,1679) - dti(k) - mat(k,1716) = mat(k,1716) - dti(k) - mat(k,1762) = mat(k,1762) - dti(k) - mat(k,1816) = mat(k,1816) - 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 c817563900..0134310ac7 100644 --- a/src/chemistry/pp_waccm_mad/mo_prod_loss.F90 +++ b/src/chemistry/pp_waccm_mad/mo_prod_loss.F90 @@ -1,962 +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,18) = (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,18) =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,35) = ((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,35) =rxt(k,459)*y(k,52)*y(k,24) - loss(k,27) = ((rxt(k,532) +rxt(k,536))* y(k,104) + het_rates(k,27))* y(k,27) - prod(k,27) = (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,71) = (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,71) = (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,31) = (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,31) = (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,19) = (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,19) = (.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,32) = (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,32) = (rxt(k,481)*y(k,14) +rxt(k,482)*y(k,43))*y(k,59) - loss(k,72) = ((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,72) = (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,73) = (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,73) = (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,30) = ((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,30) = (rxt(k,543) +rxt(k,546) +rxt(k,551))*y(k,3) +rxt(k,488)*y(k,43) & - *y(k,2) - loss(k,33) = ((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,33) = (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,26) = (rxt(k,335)* y(k,104) + rxt(k,12) + het_rates(k,47))* y(k,47) - prod(k,26) = (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,38) = (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,38) =rxt(k,440)*y(k,53)*y(k,52) - loss(k,69) = (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,69) = (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,583)*y(k,109) - loss(k,87) = (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,87) = (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,79) = (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,79) = (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,74) = (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,74) = (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,575)*y(k,107) + & - rxt(k,579)*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,386)*y(k,95) +rxt(k,415)*y(k,104) & - *y(k,104) +rxt(k,577)*y(k,108) +rxt(k,582)*y(k,109) +rxt(k,2) & - *y(k,110) - loss(k,85) = (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,575)* y(k,107) & - +rxt(k,579)* 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,85) = (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,75) = (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,75) = (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,78) = (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,78) = (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,36) = ((rxt(k,106) +rxt(k,107))* y(k,51) +rxt(k,108)* y(k,54) & - + het_rates(k,64))* y(k,64) - prod(k,36) = (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,68) = ((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,68) = (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,22) = (rxt(k,377)* y(k,69) +rxt(k,369)* y(k,110) + rxt(k,368) & - + het_rates(k,72))* y(k,72) - prod(k,22) = (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,80) = (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,80) = (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,28) = (rxt(k,376)* y(k,69) +rxt(k,367)* y(k,110) + het_rates(k,78)) & - * y(k,78) - prod(k,28) = (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,17) = (rxt(k,419)* y(k,54) +rxt(k,420)* y(k,55) + het_rates(k,79)) & - * y(k,79) - prod(k,17) = (.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,23) = ((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,23) =rxt(k,577)*y(k,108) +rxt(k,582)*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,25) = (rxt(k,301)* y(k,69) +rxt(k,302)* y(k,110) + rxt(k,364) & - + het_rates(k,91))* y(k,91) - prod(k,25) = (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,24) = (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,24) =rxt(k,365)*y(k,88) - loss(k,20) = (rxt(k,567)* y(k,54) + (rxt(k,568) +rxt(k,569))* y(k,55) & - + het_rates(k,94))* y(k,94) - prod(k,20) =rxt(k,66)*y(k,48) +rxt(k,583)*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,37) = (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,37) = (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,575)*y(k,107) +rxt(k,579)*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,29) = (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,29) = (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,21) = (rxt(k,330)* y(k,28) +rxt(k,331)* y(k,54) + rxt(k,97) & - + het_rates(k,102))* y(k,102) - prod(k,21) =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,34) = (rxt(k,573)* y(k,28) +rxt(k,575)* y(k,55) + rxt(k,574) & - + het_rates(k,107))* y(k,107) - prod(k,34) = (rxt(k,78) +rxt(k,79) +rxt(k,566)*y(k,80) +rxt(k,567)*y(k,94) + & - rxt(k,578)*y(k,108) +rxt(k,584)*y(k,109))*y(k,54) + (rxt(k,85) + & - rxt(k,87))*y(k,55) + (rxt(k,576)*y(k,108) +rxt(k,581)*y(k,109)) & - *y(k,69) +rxt(k,559)*y(k,108) +rxt(k,558)*y(k,109) - loss(k,16) = (rxt(k,578)* y(k,54) +rxt(k,579)* y(k,55) +rxt(k,576)* y(k,69) & - + rxt(k,559) + rxt(k,577) + 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,580)*y(k,69))*y(k,109) - loss(k,15) = (rxt(k,584)* y(k,54) + (rxt(k,580) +rxt(k,581))* y(k,69) & - + rxt(k,558) + rxt(k,560) + rxt(k,582) + rxt(k,583) & - + 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 18e873212a..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,215 +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,:, 55) ! rate_const*Op*O2 - rxt_rates(:ncol,:, 576) = rxt_rates(:ncol,:, 576)*sol(:ncol,:, 108)*sol(:ncol,:, 69) ! rate_const*Op2D*e - rxt_rates(:ncol,:, 577) = rxt_rates(:ncol,:, 577)*sol(:ncol,:, 108) ! rate_const*N2*Op2D - rxt_rates(:ncol,:, 578) = rxt_rates(:ncol,:, 578)*sol(:ncol,:, 108)*sol(:ncol,:, 54) ! rate_const*Op2D*O - rxt_rates(:ncol,:, 579) = rxt_rates(:ncol,:, 579)*sol(:ncol,:, 108)*sol(:ncol,:, 55) ! rate_const*Op2D*O2 - rxt_rates(:ncol,:, 580) = rxt_rates(:ncol,:, 580)*sol(:ncol,:, 109)*sol(:ncol,:, 69) ! rate_const*Op2P*e - 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) ! rate_const*N2*Op2P + 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,:, 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,:, 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)*sol(:ncol,:, 54) ! rate_const*Op2P*O + 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,:, 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 b02286c284..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,396 +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(:,577) = 8e-10_r8 - rate(:,578) = 5e-12_r8 - rate(:,579) = 7e-10_r8 - rate(:,582) = 4.8e-10_r8 - rate(:,583) = 1e-10_r8 - rate(:,584) = 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(:,577) = 8e-10_r8 * exp_fac(:) - rate(:,578) = 5e-12_r8 * exp_fac(:) - rate(:,579) = 7e-10_r8 * exp_fac(:) - rate(:,582) = 4.8e-10_r8 * exp_fac(:) - rate(:,583) = 1e-10_r8 * exp_fac(:) - rate(:,584) = 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 @@ -425,78 +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,577) = 8e-10_r8 - rate(:n,578) = 5e-12_r8 - rate(:n,579) = 7e-10_r8 - rate(:n,582) = 4.8e-10_r8 - rate(:n,583) = 1e-10_r8 - rate(:n,584) = 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 96eb9b2dd5..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, 404, 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, 18, 56, 39, 12, 4, 1, 81, 35, & - 27, 2, 5, 71, 31, 86, 50, 19, 32, 72, & - 7, 73, 61, 14, 30, 33, 26, 40, 38, 69, & - 87, 79, 74, 85, 75, 3, 44, 78, 58, 46, & - 45, 36, 64, 43, 54, 59, 68, 11, 42, 22, & - 65, 8, 80, 9, 82, 28, 17, 23, 62, 47, & - 60, 53, 55, 48, 51, 66, 67, 13, 25, 70, & - 24, 20, 57, 37, 10, 76, 77, 29, 49, 21, & - 41, 63, 83, 84, 34, 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, 76, 84, 91, & - 98, 105, 112, 122, 130, 137, 142, 148, 156, 165, & - 174, 182, 191, 199, 211, 221, 229, 239, 252, 265, & - 279, 291, 305, 322, 334, 350, 365, 379, 395, 413, & - 432, 451, 471, 491, 513, 535, 567, 591, 613, 646, & - 680, 706, 749, 779, 823, 870, 914, 958,1001,1044, & - 1086,1132,1173,1230,1269,1306,1352,1396,1432,1476, & - 1520,1564,1598,1635,1679,1716,1762,1816 /) + 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 ) @@ -378,7 +377,7 @@ subroutine set_sim_dat 'O2_1S_O ', 'O2_1S_O2 ', & 'O2_1S_O3 ', 'O_O3 ', & 'usr_O_O ', 'usr_O_O2 ' /) - rxt_tag_lst( 401: 584) = (/ 'H2_O ', 'H2O2_O ', & + rxt_tag_lst( 401: 585) = (/ 'H2_O ', 'H2O2_O ', & 'H_HO2 ', 'H_HO2a ', & 'H_HO2b ', 'H_O2 ', & 'HO2_O ', 'HO2_O3 ', & @@ -465,11 +464,12 @@ subroutine set_sim_dat 'ion_Np_O2b ', 'ion_O2p_N ', & 'ion_O2p_N2 ', 'ion_O2p_NO ', & 'ion_Op_CO2 ', 'ion_Op_N2 ', & - 'ion_Op_O2 ', 'Op2D_e ', & - 'Op2D_N2 ', 'Op2D_O ', & - 'Op2D_O2 ', 'Op2P_ea ', & - 'Op2P_eb ', 'Op2P_N2a ', & - 'Op2P_N2b ', 'Op2P_O ' /) + 'ion_Op_N2D ', 'ion_Op_O2 ', & + 'Op2D_e ', 'Op2D_N2 ', & + 'Op2D_O ', 'Op2D_O2 ', & + 'Op2P_ea ', 'Op2P_eb ', & + 'Op2P_N2a ', 'Op2P_N2b ', & + 'Op2P_O ' /) rxt_tag_map(:rxt_tag_cnt) = (/ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, & 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, & @@ -528,7 +528,7 @@ subroutine set_sim_dat 551, 552, 553, 554, 555, 556, 557, 558, 559, 560, & 561, 562, 563, 564, 565, 566, 567, 568, 569, 570, & 571, 572, 573, 574, 575, 576, 577, 578, 579, 580, & - 581, 582, 583, 584 /) + 581, 582, 583, 584, 585 /) if( allocated( pht_alias_lst ) ) then deallocate( pht_alias_lst ) end if @@ -655,7 +655,7 @@ subroutine set_sim_dat 564, 565, 567, 568, 569, & 570, 572, 574, 575, 576, & 577, 578, 579, 580, 581, & - 582, 583, 584 /) + 582, 583, 584, 585 /) cph_enthalpy(:) = (/ 189.810000_r8, 32.910000_r8, 189.810000_r8, 94.300000_r8, 94.300000_r8, & 94.300000_r8, 62.600000_r8, 62.600000_r8, 62.600000_r8, 62.600000_r8, & 392.190000_r8, 493.580000_r8, 101.390000_r8, 232.590000_r8, 203.400000_r8, & @@ -664,9 +664,9 @@ subroutine set_sim_dat 133.750000_r8, 193.020000_r8, 34.470000_r8, 199.170000_r8, 483.390000_r8, & 321.300000_r8, 163.060000_r8, 82.389000_r8, 508.950000_r8, 354.830000_r8, & 339.590000_r8, 67.530000_r8, 95.550000_r8, 239.840000_r8, 646.280000_r8, & - 406.160000_r8, 271.380000_r8, 105.040000_r8, 150.110000_r8, 319.370000_r8, & - 128.320000_r8, 319.360000_r8, 469.400000_r8, 163.060000_r8, 482.430000_r8, & - 291.380000_r8, 67.540000_r8, 501.720000_r8 /) + 406.160000_r8, 271.380000_r8, 105.040000_r8, 139.900000_r8, 150.110000_r8, & + 319.370000_r8, 128.320000_r8, 319.360000_r8, 469.400000_r8, 163.060000_r8, & + 482.430000_r8, 291.380000_r8, 67.540000_r8, 501.720000_r8 /) allocate( num_rnts(rxntot-phtcnt),stat=ios ) if( ios /= 0 ) then write(iulog,*) 'set_sim_dat: failed to allocate num_rnts; error = ',ios @@ -720,7 +720,7 @@ subroutine set_sim_dat 1, 1, 2, 2, 2, 1, 1, 2, 1, 1, & 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & - 2, 2, 2, 2, 2 /) + 2, 2, 2, 2, 2, 2 /) end subroutine set_sim_dat diff --git a/src/chemistry/pp_waccm_mad_mam4/chem_mech.doc b/src/chemistry/pp_waccm_mad_mam4/chem_mech.doc index d729905b3d..eaab3c486e 100644 --- a/src/chemistry/pp_waccm_mad_mam4/chem_mech.doc +++ b/src/chemistry/pp_waccm_mad_mam4/chem_mech.doc @@ -3,138 +3,141 @@ 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) 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) - ( 86) CLm (Cl) - ( 87) CLm_H2O (ClH2O) - ( 88) CLm_HCL (Cl2H) - ( 89) CLOm (ClO) - ( 90) CO3m (CO3) - ( 91) CO3m2H2O (H4CO5) - ( 92) CO3m_H2O (H2CO4) - ( 93) CO4m (CO4) - ( 94) e (E) - ( 95) H3Op_OH (H4O2) - ( 96) HCO3m (HCO3) - ( 97) HO2 - ( 98) Hp_2H2O (H5O2) - ( 99) Hp_3H2O (H7O3) - (100) Hp_3N1 (H8NO6) - (101) Hp_4H2O (H9O4) - (102) Hp_4N1 (H10NO7) - (103) Hp_5H2O (H11O5) - (104) Hp_H2O (H3O) - (105) N2D (N) - (106) N2p (N2) - (107) NO2m (NO2) - (108) NO2m_H2O (H2NO3) - (109) NO3m (NO3) - (110) NO3m2H2O (H4NO5) - (111) NO3m_H2O (H2NO4) - (112) NO3m_HCL (NO3HCl) - (113) NO3mHNO3 (HN2O6) - (114) NOp (NO) - (115) NOp_2H2O (H4NO3) - (116) NOp_3H2O (H6NO3) - (117) NOp_CO2 (NCO3) - (118) NOp_H2O (H2NO2) - (119) NOp_N2 (N3O) - (120) Np (N) - (121) O1D (O) - (122) O2_1D (O2) - (123) O2_1S (O2) - (124) O2m (O2) - (125) O2p (O2) - (126) O2p_H2O (H2O3) - (127) O3m (O3) - (128) O4m (O4) - (129) O4p (O4) - (130) OH - (131) OHm (OH) - (132) Om (O) - (133) Op (O) - (134) H2O + ( 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) + (126) O2p (O2) + (127) O2p_H2O (H2O3) + (128) O3m (O3) + (129) O4m (O4) + (130) O4p (O4) + (131) OH + (132) OHm (OH) + (133) Om (O) + (134) Op (O) + (135) Op2D (O) + (136) Op2P (O) + (137) H2O Invariant species @@ -172,108 +175,109 @@ Class List ( 20) HCFC142B ( 21) HCFC22 ( 22) N2O + ( 23) SF6 Implicit -------- ( 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 @@ -286,7 +290,9 @@ Class List (109) OHm (110) Om (111) Op - (112) H2O + (112) Op2D + (113) Op2P + (114) H2O Photolysis jh2o_b ( 1) H2O + hv -> H2 + O1D rate = ** User defined ** ( 1) @@ -350,565 +356,579 @@ Class List jhobr ( 58) HOBR + hv -> BR + OH rate = ** User defined ** ( 58) jhocl ( 59) HOCL + hv -> OH + CL rate = ** User defined ** ( 59) joclo ( 60) OCLO + hv -> O + CLO rate = ** User defined ** ( 60) - jeuv_26 ( 61) CO2 + hv -> CO + O rate = ** User defined ** ( 61) - jpni3 ( 62) CO3m + hv -> CO2 + Om rate = ** User defined ** ( 62) - jpni5 ( 63) CO3m_H2O + hv -> CO3m + H2O rate = ** User defined ** ( 63) - jpni4 ( 64) CO4m + hv -> CO2 + O2m rate = ** User defined ** ( 64) - jeuv_4 ( 65) N + hv -> Np + e rate = ** User defined ** ( 65) - jeuv_25 ( 66) N2 + hv -> 1.2*N2D + 0.8*N rate = ** User defined ** ( 66) + jsf6 ( 61) SF6 + hv -> {sink} rate = ** User defined ** ( 61) + jeuv_26 ( 62) CO2 + hv -> CO + O rate = ** User defined ** ( 62) + jpni3 ( 63) CO3m + hv -> CO2 + Om rate = ** User defined ** ( 63) + jpni5 ( 64) CO3m_H2O + hv -> CO3m + H2O rate = ** User defined ** ( 64) + jpni4 ( 65) CO4m + hv -> CO2 + O2m rate = ** User defined ** ( 65) + jeuv_4 ( 66) N + hv -> Np + e rate = ** User defined ** ( 66) jeuv_18 ( 67) N2 + hv -> N2p + e rate = ** User defined ** ( 67) - jeuv_13 ( 68) N2 + hv -> 1.2*N2D + 0.8*N rate = ** User defined ** ( 68) - jeuv_23 ( 69) N2 + hv -> N2D + Np + e rate = ** User defined ** ( 69) - jeuv_11 ( 70) N2 + hv -> N2D + Np + e rate = ** User defined ** ( 70) - jeuv_6 ( 71) N2 + hv -> N2p + e rate = ** User defined ** ( 71) - jeuv_10 ( 72) N2 + hv -> N + Np + e rate = ** User defined ** ( 72) - jeuv_22 ( 73) N2 + hv -> N + Np + e rate = ** User defined ** ( 73) - jepn6 ( 74) NO2m + hv -> NO2 + e rate = ** User defined ** ( 74) - jepn7 ( 75) NO3m + hv -> NO3 + e rate = ** User defined ** ( 75) - jeuv_16 ( 76) O + hv -> Op + e rate = ** User defined ** ( 76) + jeuv_11 ( 68) N2 + hv -> N2D + Np + e rate = ** User defined ** ( 68) + jeuv_10 ( 69) N2 + hv -> N + Np + e rate = ** User defined ** ( 69) + jeuv_22 ( 70) N2 + hv -> N + Np + e rate = ** User defined ** ( 70) + jeuv_23 ( 71) N2 + hv -> N2D + Np + e rate = ** User defined ** ( 71) + jeuv_25 ( 72) N2 + hv -> 1.2*N2D + 0.8*N rate = ** User defined ** ( 72) + jeuv_13 ( 73) N2 + hv -> 1.2*N2D + 0.8*N rate = ** User defined ** ( 73) + jeuv_6 ( 74) N2 + hv -> N2p + e rate = ** User defined ** ( 74) + jepn6 ( 75) NO2m + hv -> NO2 + e rate = ** User defined ** ( 75) + jepn7 ( 76) NO3m + hv -> NO3 + e rate = ** User defined ** ( 76) jeuv_1 ( 77) O + hv -> Op + e rate = ** User defined ** ( 77) - jeuv_14 ( 78) O + hv -> Op + e rate = ** User defined ** ( 78) - jeuv_15 ( 79) O + hv -> Op + e rate = ** User defined ** ( 79) - jeuv_2 ( 80) O + hv -> Op + e rate = ** User defined ** ( 80) - jeuv_3 ( 81) O + hv -> Op + e rate = ** User defined ** ( 81) - jeuv_21 ( 82) O2 + hv -> O + Op + e rate = ** User defined ** ( 82) - jeuv_17 ( 83) O2 + hv -> O2p + e rate = ** User defined ** ( 83) - jeuv_9 ( 84) O2 + hv -> O + Op + e rate = ** User defined ** ( 84) - jeuv_24 ( 85) O2 + hv -> 2*O rate = ** User defined ** ( 85) - jeuv_19 ( 86) O2 + hv -> O + Op + e rate = ** User defined ** ( 86) - jeuv_5 ( 87) O2 + hv -> O2p + e rate = ** User defined ** ( 87) - jeuv_7 ( 88) O2 + hv -> O + Op + e rate = ** User defined ** ( 88) + jeuv_2 ( 78) O + hv -> Op2D + e rate = ** User defined ** ( 78) + jeuv_16 ( 79) O + hv -> Op2P + e rate = ** User defined ** ( 79) + jeuv_3 ( 80) O + hv -> Op2P + e rate = ** User defined ** ( 80) + jeuv_14 ( 81) O + hv -> Op + e rate = ** User defined ** ( 81) + jeuv_15 ( 82) O + hv -> Op2D + e rate = ** User defined ** ( 82) + jeuv_8 ( 83) O2 + hv -> O + Op2D + e rate = ** User defined ** ( 83) + jeuv_17 ( 84) O2 + hv -> O2p + e rate = ** User defined ** ( 84) + jeuv_7 ( 85) O2 + hv -> O + Op + e rate = ** User defined ** ( 85) + jeuv_5 ( 86) O2 + hv -> O2p + e rate = ** User defined ** ( 86) + jeuv_19 ( 87) O2 + hv -> O + Op + e rate = ** User defined ** ( 87) + jeuv_24 ( 88) O2 + hv -> 2*O rate = ** User defined ** ( 88) jeuv_12 ( 89) O2 + hv -> 2*O rate = ** User defined ** ( 89) - jeuv_20 ( 90) O2 + hv -> O + Op + e rate = ** User defined ** ( 90) - jeuv_8 ( 91) O2 + hv -> O + Op + e rate = ** User defined ** ( 91) - jepn2 ( 92) O2m + hv -> O2 + e rate = ** User defined ** ( 92) - jppi ( 93) O2p_H2O + hv -> H2O + O2p rate = ** User defined ** ( 93) - jepn3 ( 94) O3m + hv -> O3 + e rate = ** User defined ** ( 94) + jeuv_21 ( 90) O2 + hv -> O + Op2P + e rate = ** User defined ** ( 90) + jeuv_9 ( 91) O2 + hv -> O + Op2P + e rate = ** User defined ** ( 91) + jeuv_20 ( 92) O2 + hv -> O + Op2D + e rate = ** User defined ** ( 92) + jepn2 ( 93) O2m + hv -> O2 + e rate = ** User defined ** ( 93) + jppi ( 94) O2p_H2O + hv -> H2O + O2p rate = ** User defined ** ( 94) jpni1 ( 95) O3m + hv -> O2 + Om rate = ** User defined ** ( 95) - jpni2 ( 96) O4m + hv -> O2 + O2m rate = ** User defined ** ( 96) - jepn4 ( 97) OHm + hv -> OH + e rate = ** User defined ** ( 97) - jepn1 ( 98) Om + hv -> O + e rate = ** User defined ** ( 98) - jh2so4 ( 99) H2SO4 + hv -> SO3 + H2O rate = ** User defined ** ( 99) - jocs (100) OCS + hv -> S + CO rate = ** User defined ** (100) - jso (101) SO + hv -> S + O rate = ** User defined ** (101) - jso2 (102) SO2 + hv -> SO + O rate = ** User defined ** (102) - jso3 (103) SO3 + hv -> SO2 + O rate = ** User defined ** (103) + jepn3 ( 96) O3m + hv -> O3 + e rate = ** User defined ** ( 96) + jpni2 ( 97) O4m + hv -> O2 + O2m rate = ** User defined ** ( 97) + jepn4 ( 98) OHm + hv -> OH + e rate = ** User defined ** ( 98) + jepn1 ( 99) Om + hv -> O + e rate = ** User defined ** ( 99) + jh2so4 (100) H2SO4 + hv -> SO3 + H2O rate = ** User defined ** (100) + jocs (101) OCS + hv -> S + CO rate = ** User defined ** (101) + jso (102) SO + hv -> S + O rate = ** User defined ** (102) + jso2 (103) SO2 + hv -> SO + O rate = ** User defined ** (103) + jso3 (104) SO3 + hv -> SO2 + O rate = ** User defined ** (104) Reactions - CLm_H ( 1) CLm + H -> HCL + e rate = 9.60E-10 (104) - CLmH2O_HCL ( 2) CLm_H2O + HCL -> CLm_HCL + H2O rate = 1.30E-09 (105) - CLm_H2O_Ma ( 3) CLm + H2O + M -> CLm_H2O + M rate = 2.00E-29 (106) - CLmHCL_M ( 4) HCL + M + CLm -> CLm_HCL + M rate = 1.00E-27 (107) - CLm_HNO3 ( 5) CLm + HNO3 -> HCL + NO3m rate = 1.60E-09 (108) - CLm_NO2 ( 6) CLm + NO2 -> CL + NO2m rate = 6.00E-12 (109) - CLOm_NOa ( 7) CLOm + NO -> CL + NO2m rate = 2.90E-12 (110) - CLOm_NOb ( 8) CLOm + NO -> NO2 + CLm rate = 2.90E-11 (111) - CLOm_O ( 9) CLOm + O -> CLm + O2 rate = 2.00E-10 (112) - CO3m_CLa ( 10) CL + CO3m -> CLm + CO2 + O rate = 1.00E-10 (113) - CO3m_CLb ( 11) CL + CO3m -> CLOm + CO2 rate = 1.00E-10 (114) - CO3m_CLO ( 12) CLO + CO3m -> CLm + CO2 + O2 rate = 1.00E-11 (115) - CO3m_H ( 13) H + CO3m -> CO2 + OHm rate = 1.70E-10 (116) - CO3mH2O_H2O_M ( 14) CO3m_H2O + H2O + M -> CO3m2H2O + M rate = 1.00E-28 (117) - CO3m_H2O_M ( 15) CO3m + H2O + M -> CO3m_H2O + M rate = 1.00E-28 (118) - CO3mH2O_NO2a ( 16) CO3m_H2O + NO2 -> CO2 + H2O + NO3m rate = 4.00E-11 (119) - CO3mH2O_NO2b ( 17) CO3m_H2O + NO2 -> CO2 + NO3m_H2O rate = 4.00E-11 (120) - CO3mH2O_NOa ( 18) CO3m_H2O + NO -> CO2 + NO2m_H2O rate = 3.50E-12 (121) - CO3mH2O_NOb ( 19) CO3m_H2O + NO -> CO2 + H2O + NO2m rate = 3.50E-12 (122) - CO3m_HNO3 ( 20) CO3m + HNO3 -> CO2 + NO3m + OH rate = 3.51E-10 (123) - CO3m_O ( 21) CO3m + O -> CO2 + O2m rate = 1.10E-10 (124) - CO3m_O2 ( 22) O2 + CO3m -> CO2 + O3m rate = 6.00E-15 (125) - CO4m_CL ( 23) CL + CO4m -> CLm + CO2 + O2 rate = 1.00E-10 (126) - CO4m_CLO ( 24) CLO + CO4m -> CLOm + CO2 + O2 rate = 1.00E-10 (127) - CO4m_H ( 25) CO4m + H -> CO3m + OH rate = 2.20E-10 (128) - CO4m_HCL ( 26) CO4m + HCL -> CLm + CO2 + HO2 rate = 1.20E-09 (129) - CO4m_O ( 27) CO4m + O -> CO3m + O2 rate = 1.40E-10 (130) - CO4m_O3 ( 28) CO4m + O3 -> CO2 + O2 + O3m rate = 1.30E-10 (131) - ean1 ( 29) e + O2 + N2 -> N2 + O2m rate = ** User defined ** (132) - ean2 ( 30) O3 + e -> O2 + Om rate = ** User defined ** (133) - ean3 ( 31) M + O2 + e -> M + O2m rate = ** User defined ** (134) - edn1 ( 32) NO + Om -> e + NO2 rate = ** User defined ** (135) - edn2 ( 33) N2 + O2m -> e + O2 + N2 rate = ** User defined ** (136) - H3OpOH_e ( 34) H3Op_OH + e -> H + H2O + OH rate = 1.50E-06 (137) - H3OpOH_H2O ( 35) H2O + H3Op_OH -> Hp_2H2O + OH rate = 2.00E-09 (138) - Hp3N1_H2O ( 36) H2O + Hp_3N1 -> HNO3 + Hp_4H2O rate = 1.00E-09 (139) - Hp4H2O_e ( 37) Hp_4H2O + e -> H + 4*H2O rate = 3.60E-06 (140) - Hp4H2O_N2O5 ( 38) Hp_4H2O + N2O5 -> HNO3 + Hp_3N1 rate = 4.00E-12 (141) - Hp4N1_H2O ( 39) H2O + Hp_4N1 -> HNO3 + Hp_5H2O rate = 1.00E-09 (142) - Hp5H2O_e ( 40) Hp_5H2O + e -> H + 5*H2O rate = 5.00E-06 (143) - Hp5H2O_N2O5 ( 41) Hp_5H2O + N2O5 -> HNO3 + Hp_4N1 rate = 7.00E-12 (144) - iira1 ( 42) Hp_4H2O + NO3mHNO3 -> 4*H2O + 2*HNO3 rate = ** User defined ** (145) - iira10 ( 43) CLm + Hp_4H2O -> CL + H + 4*H2O rate = ** User defined ** (146) - iira100 ( 44) NO3m + O2p -> NO3 + O2 rate = ** User defined ** (147) - iira101 ( 45) HCO3m + O2p -> CO2 + O2 + OH rate = ** User defined ** (148) - iira102 ( 46) O2m + O2p -> 2*O2p rate = ** User defined ** (149) - iira103 ( 47) CO4m + O2p -> CO2 + O2 + O2 rate = ** User defined ** (150) - iira104 ( 48) NO3m_H2O + O2p -> H2O + NO3 + O2 rate = ** User defined ** (151) - iira105 ( 49) CO3m2H2O + O2p -> CO2 + 2*H2O + O + O2 rate = ** User defined ** (152) - iira106 ( 50) CLm + O2p -> CL + O2 rate = ** User defined ** (153) - iira107 ( 51) CO3m_H2O + O2p -> H2O + O + O2 + CO2 rate = ** User defined ** (154) - iira108 ( 52) NO2m_H2O + O2p -> H2O + NO2 + O2 rate = ** User defined ** (155) - iira109 ( 53) NO3m_HCL + O2p -> HCL + NO3 + O2 rate = ** User defined ** (156) - iira11 ( 54) CO3m_H2O + Hp_4H2O -> CO2 + 5*H2O + O + H rate = ** User defined ** (157) - iira110 ( 55) O2p + CLm_H2O -> CL + H2O + O2 rate = ** User defined ** (158) - iira111 ( 56) NO3m2H2O + O2p -> 2*H2O + NO3 + O2 rate = ** User defined ** (159) - iira112 ( 57) NO2m + O2p -> NO2 + O2 rate = ** User defined ** (160) - iira12 ( 58) Hp_4H2O + NO2m_H2O -> H + 5*H2O + NO2 rate = ** User defined ** (161) - iira13 ( 59) Hp_4H2O + NO3m_HCL -> H + 4*H2O + NO3 + HCL rate = ** User defined ** (162) - iira14 ( 60) CLm_H2O + Hp_4H2O -> H + CL + 5*H2O rate = ** User defined ** (163) - iira15 ( 61) NO3m2H2O + Hp_4H2O -> H + 6*H2O + NO3 rate = ** User defined ** (164) - iira16 ( 62) Hp_4H2O + NO2m -> H + NO2 + 4*H2O rate = ** User defined ** (165) - iira17 ( 63) Hp_5H2O + NO3mHNO3 -> 5*H2O + 2*HNO3 rate = ** User defined ** (166) - iira18 ( 64) CO3m + Hp_5H2O -> CO2 + 5*H2O + O + H rate = ** User defined ** (167) - iira19 ( 65) CLm_HCL + Hp_5H2O -> CL + H + 5*H2O + HCL rate = ** User defined ** (168) - iira2 ( 66) CO3m + Hp_4H2O -> CO2 + H + 4*H2O + O rate = ** User defined ** (169) - iira20 ( 67) NO3m + Hp_5H2O -> 5*H2O + HNO3 rate = ** User defined ** (170) - iira21 ( 68) HCO3m + Hp_5H2O -> CO2 + H + 5*H2O + OH rate = ** User defined ** (171) - iira22 ( 69) Hp_5H2O + O2m -> H + 5*H2O + O2 rate = ** User defined ** (172) - iira23 ( 70) CO4m + Hp_5H2O -> CO2 + 5*H2O + O2 + H rate = ** User defined ** (173) - iira24 ( 71) Hp_5H2O + NO3m_H2O -> H + 6*H2O + NO3 rate = ** User defined ** (174) - iira25 ( 72) CO3m2H2O + Hp_5H2O -> H + CO2 + 7*H2O + O rate = ** User defined ** (175) - iira26 ( 73) CLm + Hp_5H2O -> CL + H + 5*H2O rate = ** User defined ** (176) - iira27 ( 74) CO3m_H2O + Hp_5H2O -> CO2 + H + 6*H2O + O rate = ** User defined ** (177) - iira28 ( 75) NO2m_H2O + Hp_5H2O -> H + 6*H2O + NO2 rate = ** User defined ** (178) - iira29 ( 76) Hp_5H2O + NO3m_HCL -> H + 5*H2O + HCL + NO3 rate = ** User defined ** (179) - iira3 ( 77) CLm_HCL + Hp_4H2O -> CL + H + HCL + 4*H2O rate = ** User defined ** (180) - iira30 ( 78) CLm_H2O + Hp_5H2O -> CL + H + 6*H2O rate = ** User defined ** (181) - iira31 ( 79) Hp_5H2O + NO3m2H2O -> H + 7*H2O + NO3 rate = ** User defined ** (182) - iira32 ( 80) Hp_5H2O + NO2m -> 5*H2O + NO2 + H rate = ** User defined ** (183) - iira33 ( 81) Hp_3H2O + NO3mHNO3 -> 3*H2O + 2*HNO3 rate = ** User defined ** (184) - iira34 ( 82) Hp_3H2O + CO3m -> CO2 + H + 3*H2O + O rate = ** User defined ** (185) - iira35 ( 83) CLm_HCL + Hp_3H2O -> CL + H + 3*H2O + HCL rate = ** User defined ** (186) - iira36 ( 84) Hp_3H2O + NO3m -> 3*H2O + HNO3 rate = ** User defined ** (187) - iira37 ( 85) HCO3m + Hp_3H2O -> CO2 + H + 3*H2O + OH rate = ** User defined ** (188) - iira38 ( 86) Hp_3H2O + O2m -> H + 3*H2O + O2 rate = ** User defined ** (189) - iira39 ( 87) CO4m + Hp_3H2O -> CO2 + H + 3*H2O + O2 rate = ** User defined ** (190) - iira4 ( 88) Hp_4H2O + NO3m -> 4*H2O + HNO3 rate = ** User defined ** (191) - iira40 ( 89) Hp_3H2O + NO3m_H2O -> H + 4*H2O + NO3 rate = ** User defined ** (192) - iira41 ( 90) CO3m2H2O + Hp_3H2O -> CO2 + H + 5*H2O + O rate = ** User defined ** (193) - iira42 ( 91) CLm + Hp_3H2O -> CL + H + 3*H2O rate = ** User defined ** (194) - iira43 ( 92) CO3m_H2O + Hp_3H2O -> CO2 + H + O + 4*H2O rate = ** User defined ** (195) - iira44 ( 93) Hp_3H2O + NO2m_H2O -> H + 4*H2O + NO2 rate = ** User defined ** (196) - iira45 ( 94) Hp_3H2O + NO3m_HCL -> H + 3*H2O + HCL + NO3 rate = ** User defined ** (197) - iira46 ( 95) CLm_H2O + Hp_3H2O -> H + 4*H2O + CL rate = ** User defined ** (198) - iira47 ( 96) Hp_3H2O + NO3m2H2O -> H + 5*H2O + NO3 rate = ** User defined ** (199) - iira48 ( 97) Hp_3H2O + NO2m -> H + 3*H2O + NO2 rate = ** User defined ** (200) - iira49 ( 98) NO3mHNO3 + NOp_H2O -> H2O + HNO3 + NO + NO3 rate = ** User defined ** (201) - iira5 ( 99) HCO3m + Hp_4H2O -> CO2 + H + 4*H2O + OH rate = ** User defined ** (202) - iira50 (100) CO3m + NOp_H2O -> CO2 + H2O + NO + O rate = ** User defined ** (203) - iira51 (101) CLm_HCL + NOp_H2O -> CL + NO + H2O + HCL rate = ** User defined ** (204) - iira52 (102) NO3m + NOp_H2O -> H2O + NO + NO3 rate = ** User defined ** (205) - iira53 (103) HCO3m + NOp_H2O -> OH + CO2 + H2O + NO rate = ** User defined ** (206) - iira54 (104) NOp_H2O + O2m -> H2O + NO + O2 rate = ** User defined ** (207) - iira55 (105) CO4m + NOp_H2O -> O2 + NO + CO2 + H2O rate = ** User defined ** (208) - iira56 (106) NO3m_H2O + NOp_H2O -> 2*H2O + NO + NO3 rate = ** User defined ** (209) - iira57 (107) CO3m2H2O + NOp_H2O -> CO2 + 3*H2O + NO + O rate = ** User defined ** (210) - iira58 (108) CLm + NOp_H2O -> CL + H2O + NO rate = ** User defined ** (211) - iira59 (109) CO3m_H2O + NOp_H2O -> O + CO2 + 2*H2O + NO rate = ** User defined ** (212) - iira6 (110) Hp_4H2O + O2m -> O2 + H + 4*H2O rate = ** User defined ** (213) - iira60 (111) NO2m_H2O + NOp_H2O -> NO + 2*H2O + NO2 rate = ** User defined ** (214) - iira61 (112) NO3m_HCL + NOp_H2O -> H2O + NO + NO3 + HCL rate = ** User defined ** (215) - iira62 (113) CLm_H2O + NOp_H2O -> CL + 2*H2O + NO rate = ** User defined ** (216) - iira63 (114) NO3m2H2O + NOp_H2O -> NO + NO3 + 3*H2O rate = ** User defined ** (217) - iira64 (115) NO2m + NOp_H2O -> NO + H2O + NO2 rate = ** User defined ** (218) - iira65 (116) NO3mHNO3 + NOp_2H2O -> 2*H2O + NO3 + HNO3 + NO rate = ** User defined ** (219) - iira66 (117) CO3m + NOp_2H2O -> 2*H2O + NO + CO2 + O rate = ** User defined ** (220) - iira67 (118) CLm_HCL + NOp_2H2O -> NO + CL + 2*H2O + HCL rate = ** User defined ** (221) - iira68 (119) NOp_2H2O + NO3m -> NO + 2*H2O + NO3 rate = ** User defined ** (222) - iira69 (120) HCO3m + NOp_2H2O -> 2*H2O + OH + NO + CO2 rate = ** User defined ** (223) - iira7 (121) CO4m + Hp_4H2O -> 4*H2O + H + CO2 + O2 rate = ** User defined ** (224) - iira70 (122) NOp_2H2O + O2m -> 2*H2O + NO + O2 rate = ** User defined ** (225) - iira71 (123) NOp_2H2O + CO4m -> O2 + 2*H2O + NO + CO2 rate = ** User defined ** (226) - iira72 (124) NO3m_H2O + NOp_2H2O -> 3*H2O + NO3 + NO rate = ** User defined ** (227) - iira73 (125) CO3m2H2O + NOp_2H2O -> O + CO2 + 4*H2O + NO rate = ** User defined ** (228) - iira74 (126) CLm + NOp_2H2O -> 2*H2O + NO + CL rate = ** User defined ** (229) - iira75 (127) CO3m_H2O + NOp_2H2O -> 3*H2O + CO2 + NO + O rate = ** User defined ** (230) - iira76 (128) NOp_2H2O + NO2m_H2O -> 3*H2O + NO + NO2 rate = ** User defined ** (231) - iira77 (129) NO3m_HCL + NOp_2H2O -> NO + HCL + 2*H2O + NO3 rate = ** User defined ** (232) - iira78 (130) NOp_2H2O + CLm_H2O -> NO + 3*H2O + CL rate = ** User defined ** (233) - iira79 (131) NOp_2H2O + NO3m2H2O -> NO + NO3 + 4*H2O rate = ** User defined ** (234) - iira8 (132) Hp_4H2O + NO3m_H2O -> H + 5*H2O + NO3 rate = ** User defined ** (235) - iira80 (133) NOp_2H2O + NO2m -> 2*H2O + NO2 + NO rate = ** User defined ** (236) - iira81 (134) NOp + NO3mHNO3 -> NO + HNO3 + NO3 rate = ** User defined ** (237) - iira82 (135) NOp + CO3m -> CO2 + NO + O rate = ** User defined ** (238) - iira83 (136) NOp + CLm_HCL -> CL + HCL + NO rate = ** User defined ** (239) - iira84 (137) NO3m + NOp -> NO3 + NO rate = ** User defined ** (240) - iira85 (138) NOp + HCO3m -> NO + CO2 + OH rate = ** User defined ** (241) - iira86 (139) O2m + NOp -> NO + O2 rate = ** User defined ** (242) - iira87 (140) NOp + CO4m -> CO2 + NO + O2 rate = ** User defined ** (243) - iira88 (141) NOp + NO3m_H2O -> H2O + NO + NO3 rate = ** User defined ** (244) - iira89 (142) NOp + CO3m2H2O -> NO + O + CO2 + 2*H2O rate = ** User defined ** (245) - iira9 (143) CO3m2H2O + Hp_4H2O -> CO2 + 6*H2O + O + H rate = ** User defined ** (246) - iira90 (144) CLm + NOp -> CL + NO rate = ** User defined ** (247) - iira91 (145) CO3m_H2O + NOp -> H2O + NO + O + CO2 rate = ** User defined ** (248) - iira92 (146) NO2m_H2O + NOp -> NO + NO2 + H2O rate = ** User defined ** (249) - iira93 (147) NO3m_HCL + NOp -> NO + HCL + NO3 rate = ** User defined ** (250) - iira94 (148) CLm_H2O + NOp -> CL + NO + H2O rate = ** User defined ** (251) - iira95 (149) NOp + NO3m2H2O -> 2*H2O + NO + NO3 rate = ** User defined ** (252) - iira96 (150) NOp + NO2m -> NO2 + NO rate = ** User defined ** (253) - iira97 (151) NO3mHNO3 + O2p -> O2 + NO3 + HNO3 rate = ** User defined ** (254) - iira98 (152) O2p + CO3m -> O + O2 + CO2 rate = ** User defined ** (255) - iira99 (153) O2p + CLm_HCL -> O2 + HCL + CL rate = ** User defined ** (256) - iirb1 (154) Hp_4H2O + CO3m + M -> 4*H2O + O + CO2 + H + M rate = ** User defined ** (257) - iirb10 (155) Hp_5H2O + M + CO3m2H2O -> H + 7*H2O + M + CO2 + O rate = ** User defined ** (258) - iirb11 (156) M + CO3m_H2O + Hp_4H2O -> 5*H2O + M + H + CO2 + O rate = ** User defined ** (259) - iirb12 (157) Hp_5H2O + M + CO3m_H2O -> CO2 + M + O + H + 6*H2O rate = ** User defined ** (260) - iirb13 (158) NO3m_H2O + Hp_4H2O + M -> M + NO3 + H + 5*H2O rate = ** User defined ** (261) - iirb14 (159) NO3m_H2O + Hp_5H2O + M -> M + NO3 + H + 6*H2O rate = ** User defined ** (262) - iirb2 (160) NO3m + M + Hp_4H2O -> 4*H2O + HNO3 + M rate = ** User defined ** (263) - iirb3 (161) Hp_5H2O + M + CO3m -> 5*H2O + M + CO2 + O + H rate = ** User defined ** (264) - iirb4 (162) Hp_5H2O + NO3m + M -> M + HNO3 + 5*H2O rate = ** User defined ** (265) - iirb5 (163) M + CLm_HCL + Hp_4H2O -> M + 2*HCL + 4*H2O rate = ** User defined ** (266) - iirb6 (164) M + Hp_5H2O + CLm_HCL -> M + 5*H2O + 2*HCL rate = ** User defined ** (267) - iirb7 (165) NO3mHNO3 + M + Hp_4H2O -> 4*H2O + M + 2*HNO3 rate = ** User defined ** (268) - iirb8 (166) Hp_5H2O + M + NO3mHNO3 -> M + 5*H2O + 2*HNO3 rate = ** User defined ** (269) - iirb9 (167) M + CO3m2H2O + Hp_4H2O -> CO2 + 6*H2O + H + M + O rate = ** User defined ** (270) - nir1 (168) NO + O3m -> O + NO3m rate = ** User defined ** (271) - nir10 (169) NO2m_H2O + M -> H2O + NO2m + M rate = ** User defined ** (272) - nir11 (170) NO3m2H2O + M -> M + NO3m_H2O + H2O rate = ** User defined ** (273) - nir12 (171) NO3mHNO3 + M -> NO3m + HNO3 + M rate = ** User defined ** (274) - nir13 (172) HCL + M + NO3m -> NO3m_HCL + M rate = ** User defined ** (275) - nir2 (173) NO2 + O3m -> NO3m + O2 rate = ** User defined ** (276) - nir3 (174) NO2 + O3m -> NO2m + O3 rate = ** User defined ** (277) - nir4 (175) NO + O3m -> NO2m + O2 rate = ** User defined ** (278) - nir5 (176) CO3m + NO -> CO2 + NO2m rate = ** User defined ** (279) - nir6 (177) CO3m + NO2 -> NO3m + CO2 rate = ** User defined ** (280) - nir7 (178) M + NO3m_H2O -> M + H2O + NO3m rate = ** User defined ** (281) - nir8 (179) CO3m_H2O + M -> CO3m + M + H2O rate = ** User defined ** (282) - nir9 (180) CO3m2H2O + M -> CO3m_H2O + H2O + M rate = ** User defined ** (283) - NO2m_CL (181) CL + NO2m -> CLm + NO2 rate = 1.00E-10 (284) - NO2m_CLO (182) CLO + NO2m -> CLm + NO3 rate = 1.00E-10 (285) - NO2m_H (183) H + NO2m -> NO + OHm rate = 3.00E-10 (286) - NO2m_H2O_M (184) NO2m + H2O + M -> M + NO2m_H2O rate = 1.60E-28 (287) - NO2m_HCL (185) HCL + NO2m -> CLm + HONO rate = 1.40E-09 (288) - NO2m_HNO3 (186) HNO3 + NO2m -> NO3m + HONO rate = 1.60E-09 (289) - NO2m_NO2 (187) NO2 + NO2m -> NO + NO3m rate = 2.00E-13 (290) - NO2m_O3 (188) NO2m + O3 -> NO3m + O2 rate = 1.20E-10 (291) - NO3m2H2O_N2O5 (189) NO3m2H2O + N2O5 -> H2O + HNO3 + NO3mHNO3 rate = 7.00E-10 (292) - NO3mH2O_H2O_M (190) NO3m_H2O + H2O + M -> M + NO3m2H2O rate = 1.60E-28 (293) - NO3mH2O_HNO3 (191) HNO3 + NO3m_H2O -> H2O + NO3mHNO3 rate = 1.60E-09 (294) - NO3m_H2O_M (192) H2O + M + NO3m -> M + NO3m_H2O rate = 1.60E-28 (295) - NO3mH2O_N2O5 (193) NO3m_H2O + N2O5 -> HNO3 + NO3mHNO3 rate = 7.00E-10 (296) - NO3m_HCLa (194) HCL + NO3m -> CLm + HNO3 rate = 1.00E-12 (297) - NO3mHCL_HNO3 (195) HNO3 + NO3m_HCL -> HCL + NO3mHNO3 rate = 7.60E-10 (298) - NO3m_HNO3_M (196) NO3m + HNO3 + M -> M + NO3mHNO3 rate = 1.45E-26 (299) - NO3m_O (197) NO3m + O -> NO2m + O2 rate = 5.00E-12 (300) - NO3m_O3 (198) O3 + NO3m -> NO2m + 2*O2 rate = 1.00E-13 (301) - NOp2H2O_e (199) NOp_2H2O + e -> 2*H2O + NO rate = 2.00E-06 (302) - NOp3H2O_e (200) NOp_3H2O + e -> 3*H2O + NO rate = 2.00E-06 (303) - NOp3H2O_H2O (201) H2O + NOp_3H2O -> HONO + Hp_3H2O rate = 7.00E-11 (304) - NOpCO2_e (202) NOp_CO2 + e -> CO2 + NO rate = 1.50E-06 (305) - NOpCO2_H2O (203) NOp_CO2 + H2O -> CO2 + NOp_H2O rate = 1.00E-09 (306) - NOpH2O_e (204) NOp_H2O + e -> H2O + NO rate = 1.50E-06 (307) - NOpH2O_H (205) H + NOp_H2O -> NO + Hp_H2O rate = 7.00E-12 (308) - NOpH2O_HO2 (206) NOp_H2O + HO2 -> Hp_H2O + NO3 rate = 5.00E-10 (309) - NOpH2O_OH (207) NOp_H2O + OH -> Hp_H2O + NO2 rate = 1.00E-10 (310) - NOpN2_CO2 (208) CO2 + NOp_N2 -> N2 + NOp_CO2 rate = 1.00E-09 (311) - NOpN2_H2O (209) NOp_N2 + H2O -> N2 + NOp_H2O rate = 1.00E-09 (312) - O2m_CL (210) O2m + CL -> CLm + O2 rate = 1.00E-10 (313) - O2m_CLO (211) CLO + O2m -> CLOm + O2 rate = 1.00E-10 (314) - O2m_CO2_M (212) CO2 + M + O2m -> CO4m + M rate = 9.90E-30 (315) - O2m_H (213) H + O2m -> HO2 + e rate = 1.40E-09 (316) - O2m_HCL (214) O2m + HCL -> CLm + HO2 rate = 1.60E-09 (317) - O2m_HNO3 (215) O2m + HNO3 -> HO2 + NO3m rate = 2.90E-09 (318) - O2m_NO2 (216) NO2 + O2m -> NO2m + O2 rate = 7.00E-10 (319) - O2m_O21D (217) O2_1D + O2m -> 2*O2 + e rate = 2.00E-10 (320) - O2m_O2_M (218) O2 + M + O2m -> M + O4m rate = 3.40E-31 (321) - O2m_O3 (219) O3 + O2m -> O2 + O3m rate = 7.80E-10 (322) - O2m_O_a (220) O + O2m -> O3 + e rate = 1.50E-10 (323) - O2m_O_b (221) O2m + O -> O2 + Om rate = 1.50E-10 (324) - O2pH2O_e (222) O2p_H2O + e -> H2O + O2 rate = 2.00E-06 (325) - O2pH2O_H2Oa (223) O2p_H2O + H2O -> H3Op_OH + O2 rate = 9.00E-10 (326) - O2pH2O_H2Ob (224) O2p_H2O + H2O -> Hp_H2O + O2 + OH rate = 2.40E-10 (327) - O2p_H2O_M (225) M + H2O + O2p -> M + O2p_H2O rate = 2.80E-28 (328) - O3m_CO2 (226) O3m + CO2 -> CO3m + O2 rate = 5.50E-10 (329) - O3m_H (227) O3m + H -> O2 + OHm rate = 8.40E-10 (330) - O3m_O3 (228) O3 + O3m -> 3*O2 + e rate = 1.00E-10 (331) - O3m_O_a (229) O3m + O -> 2*O2 + e rate = 1.00E-10 (332) - O3m_O_b (230) O + O3m -> O2 + O2m rate = 2.50E-10 (333) - O4m_CO2 (231) CO2 + O4m -> CO4m + O2 rate = 4.30E-10 (334) - O4m_O (232) O + O4m -> O3m + O2 rate = 4.00E-10 (335) - O4p_H2O (233) H2O + O4p -> O2 + O2p_H2O rate = 1.70E-09 (336) - O4p_O (234) O4p + O -> O2p + O3 rate = 3.00E-10 (337) - O4p_O21D (235) O4p + O2_1D -> 2*O2 + O2p rate = 1.50E-10 (338) - OH_HONO (236) HONO + OH -> H2O + NO2 rate = 1.80E-11*exp( 390./t) (339) - OHm_CL (237) CL + OHm -> CLm + OH rate = 1.00E-10 (340) - OHm_CLO (238) CLO + OHm -> CLOm + OH rate = 1.00E-10 (341) - OHm_CO2 (239) CO2 + M + OHm -> M + HCO3m rate = 7.60E-28 (342) - OHm_H (240) H + OHm -> e + H2O rate = 1.40E-09 (343) - OHm_HCL (241) OHm + HCL -> CLm + H2O rate = 1.00E-09 (344) - OHm_NO2 (242) NO2 + OHm -> NO2m + OH rate = 1.10E-09 (345) - OHm_O (243) OHm + O -> HO2 + e rate = 2.00E-10 (346) - OHm_O3 (244) OHm + O3 -> O3m + OH rate = 9.00E-10 (347) - OH_NO_M (245) OH + NO + M -> HONO + M troe : ko=7.00E-31*(300/t)**2.60 (348) + CLm_H ( 1) CLm + H -> HCL + e rate = 9.60E-10 (105) + CLmH2O_HCL ( 2) CLm_H2O + HCL -> CLm_HCL + H2O rate = 1.30E-09 (106) + CLm_H2O_Ma ( 3) CLm + H2O + M -> CLm_H2O + M rate = 2.00E-29 (107) + CLmHCL_M ( 4) HCL + M + CLm -> CLm_HCL + M rate = 1.00E-27 (108) + CLm_HNO3 ( 5) CLm + HNO3 -> HCL + NO3m rate = 1.60E-09 (109) + CLm_NO2 ( 6) CLm + NO2 -> CL + NO2m rate = 6.00E-12 (110) + CLOm_NOa ( 7) CLOm + NO -> CL + NO2m rate = 2.90E-12 (111) + CLOm_NOb ( 8) CLOm + NO -> NO2 + CLm rate = 2.90E-11 (112) + CLOm_O ( 9) CLOm + O -> CLm + O2 rate = 2.00E-10 (113) + CO3m_CLa ( 10) CL + CO3m -> CLm + CO2 + O rate = 1.00E-10 (114) + CO3m_CLb ( 11) CL + CO3m -> CLOm + CO2 rate = 1.00E-10 (115) + CO3m_CLO ( 12) CLO + CO3m -> CLm + CO2 + O2 rate = 1.00E-11 (116) + CO3m_H ( 13) H + CO3m -> CO2 + OHm rate = 1.70E-10 (117) + CO3mH2O_H2O_M ( 14) CO3m_H2O + H2O + M -> CO3m2H2O + M rate = 1.00E-28 (118) + CO3m_H2O_M ( 15) CO3m + H2O + M -> CO3m_H2O + M rate = 1.00E-28 (119) + CO3mH2O_NO2a ( 16) CO3m_H2O + NO2 -> CO2 + H2O + NO3m rate = 4.00E-11 (120) + CO3mH2O_NO2b ( 17) CO3m_H2O + NO2 -> CO2 + NO3m_H2O rate = 4.00E-11 (121) + CO3mH2O_NOa ( 18) CO3m_H2O + NO -> CO2 + NO2m_H2O rate = 3.50E-12 (122) + CO3mH2O_NOb ( 19) CO3m_H2O + NO -> CO2 + H2O + NO2m rate = 3.50E-12 (123) + CO3m_HNO3 ( 20) CO3m + HNO3 -> CO2 + NO3m + OH rate = 3.51E-10 (124) + CO3m_O ( 21) CO3m + O -> CO2 + O2m rate = 1.10E-10 (125) + CO3m_O2 ( 22) O2 + CO3m -> CO2 + O3m rate = 6.00E-15 (126) + CO4m_CL ( 23) CL + CO4m -> CLm + CO2 + O2 rate = 1.00E-10 (127) + CO4m_CLO ( 24) CLO + CO4m -> CLOm + CO2 + O2 rate = 1.00E-10 (128) + CO4m_H ( 25) CO4m + H -> CO3m + OH rate = 2.20E-10 (129) + CO4m_HCL ( 26) CO4m + HCL -> CLm + CO2 + HO2 rate = 1.20E-09 (130) + CO4m_O ( 27) CO4m + O -> CO3m + O2 rate = 1.40E-10 (131) + CO4m_O3 ( 28) CO4m + O3 -> CO2 + O2 + O3m rate = 1.30E-10 (132) + ean1 ( 29) e + O2 + N2 -> N2 + O2m rate = ** User defined ** (133) + ean2 ( 30) O3 + e -> O2 + Om rate = ** User defined ** (134) + ean3 ( 31) M + O2 + e -> M + O2m rate = ** User defined ** (135) + edn1 ( 32) NO + Om -> e + NO2 rate = ** User defined ** (136) + edn2 ( 33) N2 + O2m -> e + O2 + N2 rate = ** User defined ** (137) + H3OpOH_e ( 34) H3Op_OH + e -> H + H2O + OH rate = 1.50E-06 (138) + H3OpOH_H2O ( 35) H2O + H3Op_OH -> Hp_2H2O + OH rate = 2.00E-09 (139) + Hp3N1_H2O ( 36) H2O + Hp_3N1 -> HNO3 + Hp_4H2O rate = 1.00E-09 (140) + Hp4H2O_e ( 37) Hp_4H2O + e -> H + 4*H2O rate = 3.60E-06 (141) + Hp4H2O_N2O5 ( 38) Hp_4H2O + N2O5 -> HNO3 + Hp_3N1 rate = 4.00E-12 (142) + Hp4N1_H2O ( 39) H2O + Hp_4N1 -> HNO3 + Hp_5H2O rate = 1.00E-09 (143) + Hp5H2O_e ( 40) Hp_5H2O + e -> H + 5*H2O rate = 5.00E-06 (144) + Hp5H2O_N2O5 ( 41) Hp_5H2O + N2O5 -> HNO3 + Hp_4N1 rate = 7.00E-12 (145) + iira1 ( 42) Hp_4H2O + NO3mHNO3 -> 4*H2O + 2*HNO3 rate = ** User defined ** (146) + iira10 ( 43) CLm + Hp_4H2O -> CL + H + 4*H2O rate = ** User defined ** (147) + iira100 ( 44) NO3m + O2p -> NO3 + O2 rate = ** User defined ** (148) + iira101 ( 45) HCO3m + O2p -> CO2 + O2 + OH rate = ** User defined ** (149) + iira102 ( 46) O2m + O2p -> 2*O2p rate = ** User defined ** (150) + iira103 ( 47) CO4m + O2p -> CO2 + O2 + O2 rate = ** User defined ** (151) + iira104 ( 48) NO3m_H2O + O2p -> H2O + NO3 + O2 rate = ** User defined ** (152) + iira105 ( 49) CO3m2H2O + O2p -> CO2 + 2*H2O + O + O2 rate = ** User defined ** (153) + iira106 ( 50) CLm + O2p -> CL + O2 rate = ** User defined ** (154) + iira107 ( 51) CO3m_H2O + O2p -> H2O + O + O2 + CO2 rate = ** User defined ** (155) + iira108 ( 52) NO2m_H2O + O2p -> H2O + NO2 + O2 rate = ** User defined ** (156) + iira109 ( 53) NO3m_HCL + O2p -> HCL + NO3 + O2 rate = ** User defined ** (157) + iira11 ( 54) CO3m_H2O + Hp_4H2O -> CO2 + 5*H2O + O + H rate = ** User defined ** (158) + iira110 ( 55) O2p + CLm_H2O -> CL + H2O + O2 rate = ** User defined ** (159) + iira111 ( 56) NO3m2H2O + O2p -> 2*H2O + NO3 + O2 rate = ** User defined ** (160) + iira112 ( 57) NO2m + O2p -> NO2 + O2 rate = ** User defined ** (161) + iira12 ( 58) Hp_4H2O + NO2m_H2O -> H + 5*H2O + NO2 rate = ** User defined ** (162) + iira13 ( 59) Hp_4H2O + NO3m_HCL -> H + 4*H2O + NO3 + HCL rate = ** User defined ** (163) + iira14 ( 60) CLm_H2O + Hp_4H2O -> H + CL + 5*H2O rate = ** User defined ** (164) + iira15 ( 61) NO3m2H2O + Hp_4H2O -> H + 6*H2O + NO3 rate = ** User defined ** (165) + iira16 ( 62) Hp_4H2O + NO2m -> H + NO2 + 4*H2O rate = ** User defined ** (166) + iira17 ( 63) Hp_5H2O + NO3mHNO3 -> 5*H2O + 2*HNO3 rate = ** User defined ** (167) + iira18 ( 64) CO3m + Hp_5H2O -> CO2 + 5*H2O + O + H rate = ** User defined ** (168) + iira19 ( 65) CLm_HCL + Hp_5H2O -> CL + H + 5*H2O + HCL rate = ** User defined ** (169) + iira2 ( 66) CO3m + Hp_4H2O -> CO2 + H + 4*H2O + O rate = ** User defined ** (170) + iira20 ( 67) NO3m + Hp_5H2O -> 5*H2O + HNO3 rate = ** User defined ** (171) + iira21 ( 68) HCO3m + Hp_5H2O -> CO2 + H + 5*H2O + OH rate = ** User defined ** (172) + iira22 ( 69) Hp_5H2O + O2m -> H + 5*H2O + O2 rate = ** User defined ** (173) + iira23 ( 70) CO4m + Hp_5H2O -> CO2 + 5*H2O + O2 + H rate = ** User defined ** (174) + iira24 ( 71) Hp_5H2O + NO3m_H2O -> H + 6*H2O + NO3 rate = ** User defined ** (175) + iira25 ( 72) CO3m2H2O + Hp_5H2O -> H + CO2 + 7*H2O + O rate = ** User defined ** (176) + iira26 ( 73) CLm + Hp_5H2O -> CL + H + 5*H2O rate = ** User defined ** (177) + iira27 ( 74) CO3m_H2O + Hp_5H2O -> CO2 + H + 6*H2O + O rate = ** User defined ** (178) + iira28 ( 75) NO2m_H2O + Hp_5H2O -> H + 6*H2O + NO2 rate = ** User defined ** (179) + iira29 ( 76) Hp_5H2O + NO3m_HCL -> H + 5*H2O + HCL + NO3 rate = ** User defined ** (180) + iira3 ( 77) CLm_HCL + Hp_4H2O -> CL + H + HCL + 4*H2O rate = ** User defined ** (181) + iira30 ( 78) CLm_H2O + Hp_5H2O -> CL + H + 6*H2O rate = ** User defined ** (182) + iira31 ( 79) Hp_5H2O + NO3m2H2O -> H + 7*H2O + NO3 rate = ** User defined ** (183) + iira32 ( 80) Hp_5H2O + NO2m -> 5*H2O + NO2 + H rate = ** User defined ** (184) + iira33 ( 81) Hp_3H2O + NO3mHNO3 -> 3*H2O + 2*HNO3 rate = ** User defined ** (185) + iira34 ( 82) Hp_3H2O + CO3m -> CO2 + H + 3*H2O + O rate = ** User defined ** (186) + iira35 ( 83) CLm_HCL + Hp_3H2O -> CL + H + 3*H2O + HCL rate = ** User defined ** (187) + iira36 ( 84) Hp_3H2O + NO3m -> 3*H2O + HNO3 rate = ** User defined ** (188) + iira37 ( 85) HCO3m + Hp_3H2O -> CO2 + H + 3*H2O + OH rate = ** User defined ** (189) + iira38 ( 86) Hp_3H2O + O2m -> H + 3*H2O + O2 rate = ** User defined ** (190) + iira39 ( 87) CO4m + Hp_3H2O -> CO2 + H + 3*H2O + O2 rate = ** User defined ** (191) + iira4 ( 88) Hp_4H2O + NO3m -> 4*H2O + HNO3 rate = ** User defined ** (192) + iira40 ( 89) Hp_3H2O + NO3m_H2O -> H + 4*H2O + NO3 rate = ** User defined ** (193) + iira41 ( 90) CO3m2H2O + Hp_3H2O -> CO2 + H + 5*H2O + O rate = ** User defined ** (194) + iira42 ( 91) CLm + Hp_3H2O -> CL + H + 3*H2O rate = ** User defined ** (195) + iira43 ( 92) CO3m_H2O + Hp_3H2O -> CO2 + H + O + 4*H2O rate = ** User defined ** (196) + iira44 ( 93) Hp_3H2O + NO2m_H2O -> H + 4*H2O + NO2 rate = ** User defined ** (197) + iira45 ( 94) Hp_3H2O + NO3m_HCL -> H + 3*H2O + HCL + NO3 rate = ** User defined ** (198) + iira46 ( 95) CLm_H2O + Hp_3H2O -> H + 4*H2O + CL rate = ** User defined ** (199) + iira47 ( 96) Hp_3H2O + NO3m2H2O -> H + 5*H2O + NO3 rate = ** User defined ** (200) + iira48 ( 97) Hp_3H2O + NO2m -> H + 3*H2O + NO2 rate = ** User defined ** (201) + iira49 ( 98) NO3mHNO3 + NOp_H2O -> H2O + HNO3 + NO + NO3 rate = ** User defined ** (202) + iira5 ( 99) HCO3m + Hp_4H2O -> CO2 + H + 4*H2O + OH rate = ** User defined ** (203) + iira50 (100) CO3m + NOp_H2O -> CO2 + H2O + NO + O rate = ** User defined ** (204) + iira51 (101) CLm_HCL + NOp_H2O -> CL + NO + H2O + HCL rate = ** User defined ** (205) + iira52 (102) NO3m + NOp_H2O -> H2O + NO + NO3 rate = ** User defined ** (206) + iira53 (103) HCO3m + NOp_H2O -> OH + CO2 + H2O + NO rate = ** User defined ** (207) + iira54 (104) NOp_H2O + O2m -> H2O + NO + O2 rate = ** User defined ** (208) + iira55 (105) CO4m + NOp_H2O -> O2 + NO + CO2 + H2O rate = ** User defined ** (209) + iira56 (106) NO3m_H2O + NOp_H2O -> 2*H2O + NO + NO3 rate = ** User defined ** (210) + iira57 (107) CO3m2H2O + NOp_H2O -> CO2 + 3*H2O + NO + O rate = ** User defined ** (211) + iira58 (108) CLm + NOp_H2O -> CL + H2O + NO rate = ** User defined ** (212) + iira59 (109) CO3m_H2O + NOp_H2O -> O + CO2 + 2*H2O + NO rate = ** User defined ** (213) + iira6 (110) Hp_4H2O + O2m -> O2 + H + 4*H2O rate = ** User defined ** (214) + iira60 (111) NO2m_H2O + NOp_H2O -> NO + 2*H2O + NO2 rate = ** User defined ** (215) + iira61 (112) NO3m_HCL + NOp_H2O -> H2O + NO + NO3 + HCL rate = ** User defined ** (216) + iira62 (113) CLm_H2O + NOp_H2O -> CL + 2*H2O + NO rate = ** User defined ** (217) + iira63 (114) NO3m2H2O + NOp_H2O -> NO + NO3 + 3*H2O rate = ** User defined ** (218) + iira64 (115) NO2m + NOp_H2O -> NO + H2O + NO2 rate = ** User defined ** (219) + iira65 (116) NO3mHNO3 + NOp_2H2O -> 2*H2O + NO3 + HNO3 + NO rate = ** User defined ** (220) + iira66 (117) CO3m + NOp_2H2O -> 2*H2O + NO + CO2 + O rate = ** User defined ** (221) + iira67 (118) CLm_HCL + NOp_2H2O -> NO + CL + 2*H2O + HCL rate = ** User defined ** (222) + iira68 (119) NOp_2H2O + NO3m -> NO + 2*H2O + NO3 rate = ** User defined ** (223) + iira69 (120) HCO3m + NOp_2H2O -> 2*H2O + OH + NO + CO2 rate = ** User defined ** (224) + iira7 (121) CO4m + Hp_4H2O -> 4*H2O + H + CO2 + O2 rate = ** User defined ** (225) + iira70 (122) NOp_2H2O + O2m -> 2*H2O + NO + O2 rate = ** User defined ** (226) + iira71 (123) NOp_2H2O + CO4m -> O2 + 2*H2O + NO + CO2 rate = ** User defined ** (227) + iira72 (124) NO3m_H2O + NOp_2H2O -> 3*H2O + NO3 + NO rate = ** User defined ** (228) + iira73 (125) CO3m2H2O + NOp_2H2O -> O + CO2 + 4*H2O + NO rate = ** User defined ** (229) + iira74 (126) CLm + NOp_2H2O -> 2*H2O + NO + CL rate = ** User defined ** (230) + iira75 (127) CO3m_H2O + NOp_2H2O -> 3*H2O + CO2 + NO + O rate = ** User defined ** (231) + iira76 (128) NOp_2H2O + NO2m_H2O -> 3*H2O + NO + NO2 rate = ** User defined ** (232) + iira77 (129) NO3m_HCL + NOp_2H2O -> NO + HCL + 2*H2O + NO3 rate = ** User defined ** (233) + iira78 (130) NOp_2H2O + CLm_H2O -> NO + 3*H2O + CL rate = ** User defined ** (234) + iira79 (131) NOp_2H2O + NO3m2H2O -> NO + NO3 + 4*H2O rate = ** User defined ** (235) + iira8 (132) Hp_4H2O + NO3m_H2O -> H + 5*H2O + NO3 rate = ** User defined ** (236) + iira80 (133) NOp_2H2O + NO2m -> 2*H2O + NO2 + NO rate = ** User defined ** (237) + iira81 (134) NOp + NO3mHNO3 -> NO + HNO3 + NO3 rate = ** User defined ** (238) + iira82 (135) NOp + CO3m -> CO2 + NO + O rate = ** User defined ** (239) + iira83 (136) NOp + CLm_HCL -> CL + HCL + NO rate = ** User defined ** (240) + iira84 (137) NO3m + NOp -> NO3 + NO rate = ** User defined ** (241) + iira85 (138) NOp + HCO3m -> NO + CO2 + OH rate = ** User defined ** (242) + iira86 (139) O2m + NOp -> NO + O2 rate = ** User defined ** (243) + iira87 (140) NOp + CO4m -> CO2 + NO + O2 rate = ** User defined ** (244) + iira88 (141) NOp + NO3m_H2O -> H2O + NO + NO3 rate = ** User defined ** (245) + iira89 (142) NOp + CO3m2H2O -> NO + O + CO2 + 2*H2O rate = ** User defined ** (246) + iira9 (143) CO3m2H2O + Hp_4H2O -> CO2 + 6*H2O + O + H rate = ** User defined ** (247) + iira90 (144) CLm + NOp -> CL + NO rate = ** User defined ** (248) + iira91 (145) CO3m_H2O + NOp -> H2O + NO + O + CO2 rate = ** User defined ** (249) + iira92 (146) NO2m_H2O + NOp -> NO + NO2 + H2O rate = ** User defined ** (250) + iira93 (147) NO3m_HCL + NOp -> NO + HCL + NO3 rate = ** User defined ** (251) + iira94 (148) CLm_H2O + NOp -> CL + NO + H2O rate = ** User defined ** (252) + iira95 (149) NOp + NO3m2H2O -> 2*H2O + NO + NO3 rate = ** User defined ** (253) + iira96 (150) NOp + NO2m -> NO2 + NO rate = ** User defined ** (254) + iira97 (151) NO3mHNO3 + O2p -> O2 + NO3 + HNO3 rate = ** User defined ** (255) + iira98 (152) O2p + CO3m -> O + O2 + CO2 rate = ** User defined ** (256) + iira99 (153) O2p + CLm_HCL -> O2 + HCL + CL rate = ** User defined ** (257) + iirb1 (154) Hp_4H2O + CO3m + M -> 4*H2O + O + CO2 + H + M rate = ** User defined ** (258) + iirb10 (155) Hp_5H2O + M + CO3m2H2O -> H + 7*H2O + M + CO2 + O rate = ** User defined ** (259) + iirb11 (156) M + CO3m_H2O + Hp_4H2O -> 5*H2O + M + H + CO2 + O rate = ** User defined ** (260) + iirb12 (157) Hp_5H2O + M + CO3m_H2O -> CO2 + M + O + H + 6*H2O rate = ** User defined ** (261) + iirb13 (158) NO3m_H2O + Hp_4H2O + M -> M + NO3 + H + 5*H2O rate = ** User defined ** (262) + iirb14 (159) NO3m_H2O + Hp_5H2O + M -> M + NO3 + H + 6*H2O rate = ** User defined ** (263) + iirb2 (160) NO3m + M + Hp_4H2O -> 4*H2O + HNO3 + M rate = ** User defined ** (264) + iirb3 (161) Hp_5H2O + M + CO3m -> 5*H2O + M + CO2 + O + H rate = ** User defined ** (265) + iirb4 (162) Hp_5H2O + NO3m + M -> M + HNO3 + 5*H2O rate = ** User defined ** (266) + iirb5 (163) M + CLm_HCL + Hp_4H2O -> M + 2*HCL + 4*H2O rate = ** User defined ** (267) + iirb6 (164) M + Hp_5H2O + CLm_HCL -> M + 5*H2O + 2*HCL rate = ** User defined ** (268) + iirb7 (165) NO3mHNO3 + M + Hp_4H2O -> 4*H2O + M + 2*HNO3 rate = ** User defined ** (269) + iirb8 (166) Hp_5H2O + M + NO3mHNO3 -> M + 5*H2O + 2*HNO3 rate = ** User defined ** (270) + iirb9 (167) M + CO3m2H2O + Hp_4H2O -> CO2 + 6*H2O + H + M + O rate = ** User defined ** (271) + nir1 (168) NO + O3m -> O + NO3m rate = ** User defined ** (272) + nir10 (169) NO2m_H2O + M -> H2O + NO2m + M rate = ** User defined ** (273) + nir11 (170) NO3m2H2O + M -> M + NO3m_H2O + H2O rate = ** User defined ** (274) + nir12 (171) NO3mHNO3 + M -> NO3m + HNO3 + M rate = ** User defined ** (275) + nir13 (172) HCL + M + NO3m -> NO3m_HCL + M rate = ** User defined ** (276) + nir2 (173) NO2 + O3m -> NO3m + O2 rate = ** User defined ** (277) + nir3 (174) NO2 + O3m -> NO2m + O3 rate = ** User defined ** (278) + nir4 (175) NO + O3m -> NO2m + O2 rate = ** User defined ** (279) + nir5 (176) CO3m + NO -> CO2 + NO2m rate = ** User defined ** (280) + nir6 (177) CO3m + NO2 -> NO3m + CO2 rate = ** User defined ** (281) + nir7 (178) M + NO3m_H2O -> M + H2O + NO3m rate = ** User defined ** (282) + nir8 (179) CO3m_H2O + M -> CO3m + M + H2O rate = ** User defined ** (283) + nir9 (180) CO3m2H2O + M -> CO3m_H2O + H2O + M rate = ** User defined ** (284) + NO2m_CL (181) CL + NO2m -> CLm + NO2 rate = 1.00E-10 (285) + NO2m_CLO (182) CLO + NO2m -> CLm + NO3 rate = 1.00E-10 (286) + NO2m_H (183) H + NO2m -> NO + OHm rate = 3.00E-10 (287) + NO2m_H2O_M (184) NO2m + H2O + M -> M + NO2m_H2O rate = 1.60E-28 (288) + NO2m_HCL (185) HCL + NO2m -> CLm + HONO rate = 1.40E-09 (289) + NO2m_HNO3 (186) HNO3 + NO2m -> NO3m + HONO rate = 1.60E-09 (290) + NO2m_NO2 (187) NO2 + NO2m -> NO + NO3m rate = 2.00E-13 (291) + NO2m_O3 (188) NO2m + O3 -> NO3m + O2 rate = 1.20E-10 (292) + NO3m2H2O_N2O5 (189) NO3m2H2O + N2O5 -> H2O + HNO3 + NO3mHNO3 rate = 7.00E-10 (293) + NO3mH2O_H2O_M (190) NO3m_H2O + H2O + M -> M + NO3m2H2O rate = 1.60E-28 (294) + NO3mH2O_HNO3 (191) HNO3 + NO3m_H2O -> H2O + NO3mHNO3 rate = 1.60E-09 (295) + NO3m_H2O_M (192) H2O + M + NO3m -> M + NO3m_H2O rate = 1.60E-28 (296) + NO3mH2O_N2O5 (193) NO3m_H2O + N2O5 -> HNO3 + NO3mHNO3 rate = 7.00E-10 (297) + NO3m_HCLa (194) HCL + NO3m -> CLm + HNO3 rate = 1.00E-12 (298) + NO3mHCL_HNO3 (195) HNO3 + NO3m_HCL -> HCL + NO3mHNO3 rate = 7.60E-10 (299) + NO3m_HNO3_M (196) NO3m + HNO3 + M -> M + NO3mHNO3 rate = 1.45E-26 (300) + NO3m_O (197) NO3m + O -> NO2m + O2 rate = 5.00E-12 (301) + NO3m_O3 (198) O3 + NO3m -> NO2m + 2*O2 rate = 1.00E-13 (302) + NOp2H2O_e (199) NOp_2H2O + e -> 2*H2O + NO rate = 2.00E-06 (303) + NOp3H2O_e (200) NOp_3H2O + e -> 3*H2O + NO rate = 2.00E-06 (304) + NOp3H2O_H2O (201) H2O + NOp_3H2O -> HONO + Hp_3H2O rate = 7.00E-11 (305) + NOpCO2_e (202) NOp_CO2 + e -> CO2 + NO rate = 1.50E-06 (306) + NOpCO2_H2O (203) NOp_CO2 + H2O -> CO2 + NOp_H2O rate = 1.00E-09 (307) + NOpH2O_e (204) NOp_H2O + e -> H2O + NO rate = 1.50E-06 (308) + NOpH2O_H (205) H + NOp_H2O -> NO + Hp_H2O rate = 7.00E-12 (309) + NOpH2O_HO2 (206) NOp_H2O + HO2 -> Hp_H2O + NO3 rate = 5.00E-10 (310) + NOpH2O_OH (207) NOp_H2O + OH -> Hp_H2O + NO2 rate = 1.00E-10 (311) + NOpN2_CO2 (208) CO2 + NOp_N2 -> N2 + NOp_CO2 rate = 1.00E-09 (312) + NOpN2_H2O (209) NOp_N2 + H2O -> N2 + NOp_H2O rate = 1.00E-09 (313) + O2m_CL (210) O2m + CL -> CLm + O2 rate = 1.00E-10 (314) + O2m_CLO (211) CLO + O2m -> CLOm + O2 rate = 1.00E-10 (315) + O2m_CO2_M (212) CO2 + M + O2m -> CO4m + M rate = 9.90E-30 (316) + O2m_H (213) H + O2m -> HO2 + e rate = 1.40E-09 (317) + O2m_HCL (214) O2m + HCL -> CLm + HO2 rate = 1.60E-09 (318) + O2m_HNO3 (215) O2m + HNO3 -> HO2 + NO3m rate = 2.90E-09 (319) + O2m_NO2 (216) NO2 + O2m -> NO2m + O2 rate = 7.00E-10 (320) + O2m_O21D (217) O2_1D + O2m -> 2*O2 + e rate = 2.00E-10 (321) + O2m_O2_M (218) O2 + M + O2m -> M + O4m rate = 3.40E-31 (322) + O2m_O3 (219) O3 + O2m -> O2 + O3m rate = 7.80E-10 (323) + O2m_O_a (220) O + O2m -> O3 + e rate = 1.50E-10 (324) + O2m_O_b (221) O2m + O -> O2 + Om rate = 1.50E-10 (325) + O2pH2O_e (222) O2p_H2O + e -> H2O + O2 rate = 2.00E-06 (326) + O2pH2O_H2Oa (223) O2p_H2O + H2O -> H3Op_OH + O2 rate = 9.00E-10 (327) + O2pH2O_H2Ob (224) O2p_H2O + H2O -> Hp_H2O + O2 + OH rate = 2.40E-10 (328) + O2p_H2O_M (225) M + H2O + O2p -> M + O2p_H2O rate = 2.80E-28 (329) + O3m_CO2 (226) O3m + CO2 -> CO3m + O2 rate = 5.50E-10 (330) + O3m_H (227) O3m + H -> O2 + OHm rate = 8.40E-10 (331) + O3m_O3 (228) O3 + O3m -> 3*O2 + e rate = 1.00E-10 (332) + O3m_O_a (229) O3m + O -> 2*O2 + e rate = 1.00E-10 (333) + O3m_O_b (230) O + O3m -> O2 + O2m rate = 2.50E-10 (334) + O4m_CO2 (231) CO2 + O4m -> CO4m + O2 rate = 4.30E-10 (335) + O4m_O (232) O + O4m -> O3m + O2 rate = 4.00E-10 (336) + O4p_H2O (233) H2O + O4p -> O2 + O2p_H2O rate = 1.70E-09 (337) + O4p_O (234) O4p + O -> O2p + O3 rate = 3.00E-10 (338) + O4p_O21D (235) O4p + O2_1D -> 2*O2 + O2p rate = 1.50E-10 (339) + OH_HONO (236) HONO + OH -> H2O + NO2 rate = 1.80E-11*exp( 390./t) (340) + OHm_CL (237) CL + OHm -> CLm + OH rate = 1.00E-10 (341) + OHm_CLO (238) CLO + OHm -> CLOm + OH rate = 1.00E-10 (342) + OHm_CO2 (239) CO2 + M + OHm -> M + HCO3m rate = 7.60E-28 (343) + OHm_H (240) H + OHm -> e + H2O rate = 1.40E-09 (344) + OHm_HCL (241) OHm + HCL -> CLm + H2O rate = 1.00E-09 (345) + OHm_NO2 (242) NO2 + OHm -> NO2m + OH rate = 1.10E-09 (346) + OHm_O (243) OHm + O -> HO2 + e rate = 2.00E-10 (347) + OHm_O3 (244) OHm + O3 -> O3m + OH rate = 9.00E-10 (348) + OH_NO_M (245) OH + NO + M -> HONO + M troe : ko=7.00E-31*(300/t)**2.60 (349) ki=3.60E-11*(300/t)**0.10 f=0.60 - Om_CL (246) Om + CL -> CLm + O rate = 1.00E-10 (349) - Om_CLO (247) CLO + Om -> CLm + O2 rate = 1.00E-10 (350) - Om_CO2_M (248) M + Om + CO2 -> CO3m + M rate = 2.00E-28 (351) - Om_H2_a (249) H2 + Om -> H2O + e rate = 5.80E-10 (352) - Om_H2_b (250) Om + H2 -> H + OHm rate = 3.20E-11 (353) - Om_H2O (251) Om + H2O -> OHm + OH rate = 6.00E-13 (354) - Om_HCL (252) Om + HCL -> CLm + OH rate = 2.00E-09 (355) - Om_HNO3 (253) Om + HNO3 -> NO3m + OH rate = 3.60E-09 (356) - Om_M (254) M + Om -> O + M + e rate = 5.00E-13 (357) - Om_NO2 (255) NO2 + Om -> O + NO2m rate = 1.00E-09 (358) - Om_O (256) Om + O -> e + O2 rate = 1.90E-10 (359) - Om_O21D (257) Om + O2_1D -> O3 + e rate = 3.00E-10 (360) - Om_O2_M (258) M + Om + O2 -> M + O3m rate = 2.90E-31 (361) - Om_O3 (259) O3 + Om -> O + O3m rate = 8.00E-10 (362) - pir1 (260) M + O2p + O2 -> M + O4p rate = ** User defined ** (363) - pir10 (261) H2O + NOp + M -> M + NOp_H2O rate = ** User defined ** (364) - pir11 (262) H2O + M + NOp_H2O -> M + NOp_2H2O rate = ** User defined ** (365) - pir12 (263) H2O + NOp_2H2O + M -> M + NOp_3H2O rate = ** User defined ** (366) - pir13 (264) NOp + CO2 + M -> M + NOp_CO2 rate = ** User defined ** (367) - pir14 (265) NOp_CO2 + M -> M + NOp + CO2 rate = ** User defined ** (368) - pir15 (266) N2 + M + NOp -> NOp_N2 + M rate = ** User defined ** (369) - pir16 (267) NOp_N2 + M -> M + NOp + N2 rate = ** User defined ** (370) - pir2 (268) M + Hp_H2O + H2O -> Hp_2H2O + M rate = ** User defined ** (371) - pir3 (269) Hp_2H2O + M -> H2O + Hp_H2O + M rate = ** User defined ** (372) - pir4 (270) H2O + Hp_2H2O + M -> Hp_3H2O + M rate = ** User defined ** (373) - pir5 (271) Hp_3H2O + M -> M + Hp_2H2O + H2O rate = ** User defined ** (374) - pir6 (272) Hp_3H2O + H2O + M -> M + Hp_4H2O rate = ** User defined ** (375) - pir7 (273) Hp_4H2O + M -> H2O + M + Hp_3H2O rate = ** User defined ** (376) - pir8 (274) Hp_4H2O + M + H2O -> Hp_5H2O + M rate = ** User defined ** (377) - pir9 (275) M + Hp_5H2O -> M + H2O + Hp_4H2O rate = ** User defined ** (378) - rpe1 (276) e + O4p -> 2*O2 rate = ** User defined ** (379) - rpe2 (277) Hp_H2O + e -> H + H2O rate = ** User defined ** (380) - rpe3 (278) Hp_2H2O + e -> 2*H2O + H rate = ** User defined ** (381) - rpe4 (279) Hp_3H2O + e -> H + 3*H2O rate = ** User defined ** (382) - rpe5 (280) e + NOp_N2 -> N2 + NO rate = ** User defined ** (383) - usr_CLm_H2O_M (281) CLm_H2O + M -> H2O + M + CLm rate = ** User defined ** (384) - usr_CLm_HCL_M (282) M + CLm_HCL -> CLm + HCL + M rate = ** User defined ** (385) - ag1 (283) O2_1D -> O2 rate = 2.58E-04 (386) - ag2 (284) O2_1S -> O2 rate = 8.50E-02 (387) - O1D_H2 (285) O1D + H2 -> H + OH rate = 1.20E-10 (388) - O1D_H2O (286) O1D + H2O -> 2*OH rate = 1.63E-10*exp( 60./t) (389) - O1D_N2 (287) O1D + N2 -> O + N2 rate = 2.15E-11*exp( 110./t) (390) - O1D_O2 (288) O1D + O2 -> O + O2_1S rate = 2.64E-11*exp( 55./t) (391) - O1D_O2b (289) O1D + O2 -> O + O2 rate = 6.60E-12*exp( 55./t) (392) - O1D_O3 (290) O1D + O3 -> O2 + O2 rate = 1.20E-10 (393) - O2_1D_N2 (291) O2_1D + N2 -> O2 + N2 rate = 1.00E-20 (394) - O2_1D_O (292) O2_1D + O -> O2 + O rate = 1.30E-16 (395) - O2_1D_O2 (293) O2_1D + O2 -> 2*O2 rate = 3.60E-18*exp( -220./t) (396) - O2_1S_CO2 (294) O2_1S + CO2 -> O2_1D + CO2 rate = 4.20E-13 (397) - O2_1S_N2 (295) O2_1S + N2 -> O2_1D + N2 rate = 1.80E-15*exp( 45./t) (398) - O2_1S_O (296) O2_1S + O -> O2_1D + O rate = 8.00E-14 (399) - O2_1S_O2 (297) O2_1S + O2 -> O2_1D + O2 rate = 3.90E-17 (400) - O2_1S_O3 (298) O2_1S + O3 -> O2_1D + O3 rate = 3.50E-11*exp( -135./t) (401) - O_O3 (299) O + O3 -> 2*O2 rate = 8.00E-12*exp( -2060./t) (402) - usr_O_O (300) O + O + M -> O2 + M rate = ** User defined ** (403) - usr_O_O2 (301) O + O2 + M -> O3 + M rate = ** User defined ** (404) - H2_O (302) H2 + O -> OH + H rate = 1.60E-11*exp( -4570./t) (405) - H2O2_O (303) H2O2 + O -> OH + HO2 rate = 1.40E-12*exp( -2000./t) (406) - H_HO2 (304) H + HO2 -> H2 + O2 rate = 6.90E-12 (407) - H_HO2a (305) H + HO2 -> 2*OH rate = 7.20E-11 (408) - H_HO2b (306) H + HO2 -> H2O + O rate = 1.60E-12 (409) - H_O2 (307) H + O2 + M -> HO2 + M troe : ko=4.40E-32*(300/t)**1.30 (410) + Om_CL (246) Om + CL -> CLm + O rate = 1.00E-10 (350) + Om_CLO (247) CLO + Om -> CLm + O2 rate = 1.00E-10 (351) + Om_CO2_M (248) M + Om + CO2 -> CO3m + M rate = 2.00E-28 (352) + Om_H2_a (249) H2 + Om -> H2O + e rate = 5.80E-10 (353) + Om_H2_b (250) Om + H2 -> H + OHm rate = 3.20E-11 (354) + Om_H2O (251) Om + H2O -> OHm + OH rate = 6.00E-13 (355) + Om_HCL (252) Om + HCL -> CLm + OH rate = 2.00E-09 (356) + Om_HNO3 (253) Om + HNO3 -> NO3m + OH rate = 3.60E-09 (357) + Om_M (254) M + Om -> O + M + e rate = 5.00E-13 (358) + Om_NO2 (255) NO2 + Om -> O + NO2m rate = 1.00E-09 (359) + Om_O (256) Om + O -> e + O2 rate = 1.90E-10 (360) + Om_O21D (257) Om + O2_1D -> O3 + e rate = 3.00E-10 (361) + Om_O2_M (258) M + Om + O2 -> M + O3m rate = 2.90E-31 (362) + Om_O3 (259) O3 + Om -> O + O3m rate = 8.00E-10 (363) + pir1 (260) M + O2p + O2 -> M + O4p rate = ** User defined ** (364) + pir10 (261) H2O + NOp + M -> M + NOp_H2O rate = ** User defined ** (365) + pir11 (262) H2O + M + NOp_H2O -> M + NOp_2H2O rate = ** User defined ** (366) + pir12 (263) H2O + NOp_2H2O + M -> M + NOp_3H2O rate = ** User defined ** (367) + pir13 (264) NOp + CO2 + M -> M + NOp_CO2 rate = ** User defined ** (368) + pir14 (265) NOp_CO2 + M -> M + NOp + CO2 rate = ** User defined ** (369) + pir15 (266) N2 + M + NOp -> NOp_N2 + M rate = ** User defined ** (370) + pir16 (267) NOp_N2 + M -> M + NOp + N2 rate = ** User defined ** (371) + pir2 (268) M + Hp_H2O + H2O -> Hp_2H2O + M rate = ** User defined ** (372) + pir3 (269) Hp_2H2O + M -> H2O + Hp_H2O + M rate = ** User defined ** (373) + pir4 (270) H2O + Hp_2H2O + M -> Hp_3H2O + M rate = ** User defined ** (374) + pir5 (271) Hp_3H2O + M -> M + Hp_2H2O + H2O rate = ** User defined ** (375) + pir6 (272) Hp_3H2O + H2O + M -> M + Hp_4H2O rate = ** User defined ** (376) + pir7 (273) Hp_4H2O + M -> H2O + M + Hp_3H2O rate = ** User defined ** (377) + pir8 (274) Hp_4H2O + M + H2O -> Hp_5H2O + M rate = ** User defined ** (378) + pir9 (275) M + Hp_5H2O -> M + H2O + Hp_4H2O rate = ** User defined ** (379) + rpe1 (276) e + O4p -> 2*O2 rate = ** User defined ** (380) + rpe2 (277) Hp_H2O + e -> H + H2O rate = ** User defined ** (381) + rpe3 (278) Hp_2H2O + e -> 2*H2O + H rate = ** User defined ** (382) + rpe4 (279) Hp_3H2O + e -> H + 3*H2O rate = ** User defined ** (383) + rpe5 (280) e + NOp_N2 -> N2 + NO rate = ** User defined ** (384) + usr_CLm_H2O_M (281) CLm_H2O + M -> H2O + M + CLm rate = ** User defined ** (385) + usr_CLm_HCL_M (282) M + CLm_HCL -> CLm + HCL + M rate = ** User defined ** (386) + ag1 (283) O2_1D -> O2 rate = 2.58E-04 (387) + ag2 (284) O2_1S -> O2 rate = 8.50E-02 (388) + O1D_H2 (285) O1D + H2 -> H + OH rate = 1.20E-10 (389) + O1D_H2O (286) O1D + H2O -> 2*OH rate = 1.63E-10*exp( 60./t) (390) + O1D_N2 (287) O1D + N2 -> O + N2 rate = 2.15E-11*exp( 110./t) (391) + O1D_O2 (288) O1D + O2 -> O + O2_1S rate = 2.64E-11*exp( 55./t) (392) + O1D_O2b (289) O1D + O2 -> O + O2 rate = 6.60E-12*exp( 55./t) (393) + O1D_O3 (290) O1D + O3 -> O2 + O2 rate = 1.20E-10 (394) + O2_1D_N2 (291) O2_1D + N2 -> O2 + N2 rate = 1.00E-20 (395) + O2_1D_O (292) O2_1D + O -> O2 + O rate = 1.30E-16 (396) + O2_1D_O2 (293) O2_1D + O2 -> 2*O2 rate = 3.60E-18*exp( -220./t) (397) + O2_1S_CO2 (294) O2_1S + CO2 -> O2_1D + CO2 rate = 4.20E-13 (398) + O2_1S_N2 (295) O2_1S + N2 -> O2_1D + N2 rate = 1.80E-15*exp( 45./t) (399) + O2_1S_O (296) O2_1S + O -> O2_1D + O rate = 8.00E-14 (400) + O2_1S_O2 (297) O2_1S + O2 -> O2_1D + O2 rate = 3.90E-17 (401) + O2_1S_O3 (298) O2_1S + O3 -> O2_1D + O3 rate = 3.50E-11*exp( -135./t) (402) + O_O3 (299) O + O3 -> 2*O2 rate = 8.00E-12*exp( -2060./t) (403) + usr_O_O (300) O + O + M -> O2 + M rate = ** User defined ** (404) + usr_O_O2 (301) O + O2 + M -> O3 + M rate = ** User defined ** (405) + H2_O (302) H2 + O -> OH + H rate = 1.60E-11*exp( -4570./t) (406) + H2O2_O (303) H2O2 + O -> OH + HO2 rate = 1.40E-12*exp( -2000./t) (407) + H_HO2 (304) H + HO2 -> H2 + O2 rate = 6.90E-12 (408) + H_HO2a (305) H + HO2 -> 2*OH rate = 7.20E-11 (409) + H_HO2b (306) H + HO2 -> H2O + O rate = 1.60E-12 (410) + H_O2 (307) H + O2 + M -> HO2 + M troe : ko=4.40E-32*(300/t)**1.30 (411) ki=7.50E-11*(300/t)**-0.20 f=0.60 - HO2_O (308) HO2 + O -> OH + O2 rate = 3.00E-11*exp( 200./t) (411) - HO2_O3 (309) HO2 + O3 -> OH + 2*O2 rate = 1.00E-14*exp( -490./t) (412) - H_O3 (310) H + O3 -> OH + O2 rate = 1.40E-10*exp( -470./t) (413) - OH_H2 (311) OH + H2 -> H2O + H rate = 2.80E-12*exp( -1800./t) (414) - OH_H2O2 (312) OH + H2O2 -> H2O + HO2 rate = 1.80E-12 (415) - OH_HO2 (313) OH + HO2 -> H2O + O2 rate = 4.80E-11*exp( 250./t) (416) - OH_O (314) OH + O -> H + O2 rate = 1.80E-11*exp( 180./t) (417) - OH_O3 (315) OH + O3 -> HO2 + O2 rate = 1.70E-12*exp( -940./t) (418) - OH_OH (316) OH + OH -> H2O + O rate = 1.80E-12 (419) - OH_OH_M (317) OH + OH + M -> H2O2 + M troe : ko=6.90E-31*(300/t)**1.00 (420) + HO2_O (308) HO2 + O -> OH + O2 rate = 3.00E-11*exp( 200./t) (412) + HO2_O3 (309) HO2 + O3 -> OH + 2*O2 rate = 1.00E-14*exp( -490./t) (413) + H_O3 (310) H + O3 -> OH + O2 rate = 1.40E-10*exp( -470./t) (414) + OH_H2 (311) OH + H2 -> H2O + H rate = 2.80E-12*exp( -1800./t) (415) + OH_H2O2 (312) OH + H2O2 -> H2O + HO2 rate = 1.80E-12 (416) + OH_HO2 (313) OH + HO2 -> H2O + O2 rate = 4.80E-11*exp( 250./t) (417) + OH_O (314) OH + O -> H + O2 rate = 1.80E-11*exp( 180./t) (418) + OH_O3 (315) OH + O3 -> HO2 + O2 rate = 1.70E-12*exp( -940./t) (419) + OH_OH (316) OH + OH -> H2O + O rate = 1.80E-12 (420) + OH_OH_M (317) OH + OH + M -> H2O2 + M troe : ko=6.90E-31*(300/t)**1.00 (421) ki=2.60E-11 f=0.60 - usr_HO2_HO2 (318) HO2 + HO2 -> H2O2 + O2 rate = ** User defined ** (421) - HO2NO2_OH (319) HO2NO2 + OH -> H2O + NO2 + O2 rate = 1.30E-12*exp( 380./t) (422) - N2D_O (320) N2D + O -> N + O rate = 7.00E-13 (423) - N2D_O2 (321) N2D + O2 -> NO + O1D rate = 5.00E-12 (424) - N_NO (322) N + NO -> N2 + O rate = 2.10E-11*exp( 100./t) (425) - N_NO2a (323) N + NO2 -> N2O + O rate = 2.90E-12*exp( 220./t) (426) - N_NO2b (324) N + NO2 -> 2*NO rate = 1.45E-12*exp( 220./t) (427) - N_NO2c (325) N + NO2 -> N2 + O2 rate = 1.45E-12*exp( 220./t) (428) - N_O2 (326) N + O2 -> NO + O rate = 1.50E-11*exp( -3600./t) (429) - NO2_O (327) NO2 + O -> NO + O2 rate = 5.10E-12*exp( 210./t) (430) - NO2_O3 (328) NO2 + O3 -> NO3 + O2 rate = 1.20E-13*exp( -2450./t) (431) - NO2_O_M (329) NO2 + O + M -> NO3 + M troe : ko=2.50E-31*(300/t)**1.80 (432) + usr_HO2_HO2 (318) HO2 + HO2 -> H2O2 + O2 rate = ** User defined ** (422) + HO2NO2_OH (319) HO2NO2 + OH -> H2O + NO2 + O2 rate = 1.30E-12*exp( 380./t) (423) + N2D_O (320) N2D + O -> N + O rate = 7.00E-13 (424) + N2D_O2 (321) N2D + O2 -> NO + O1D rate = 5.00E-12 (425) + N_NO (322) N + NO -> N2 + O rate = 2.10E-11*exp( 100./t) (426) + N_NO2a (323) N + NO2 -> N2O + O rate = 2.90E-12*exp( 220./t) (427) + N_NO2b (324) N + NO2 -> 2*NO rate = 1.45E-12*exp( 220./t) (428) + N_NO2c (325) N + NO2 -> N2 + O2 rate = 1.45E-12*exp( 220./t) (429) + N_O2 (326) N + O2 -> NO + O rate = 1.50E-11*exp( -3600./t) (430) + NO2_O (327) NO2 + O -> NO + O2 rate = 5.10E-12*exp( 210./t) (431) + NO2_O3 (328) NO2 + O3 -> NO3 + O2 rate = 1.20E-13*exp( -2450./t) (432) + NO2_O_M (329) NO2 + O + M -> NO3 + M troe : ko=2.50E-31*(300/t)**1.80 (433) ki=2.20E-11*(300/t)**0.70 f=0.60 - NO3_HO2 (330) NO3 + HO2 -> OH + NO2 + O2 rate = 3.50E-12 (433) - NO3_NO (331) NO3 + NO -> 2*NO2 rate = 1.50E-11*exp( 170./t) (434) - NO3_O (332) NO3 + O -> NO2 + O2 rate = 1.00E-11 (435) - NO3_OH (333) NO3 + OH -> HO2 + NO2 rate = 2.20E-11 (436) - N_OH (334) N + OH -> NO + H rate = 5.00E-11 (437) - NO_HO2 (335) NO + HO2 -> NO2 + OH rate = 3.30E-12*exp( 270./t) (438) - NO_O3 (336) NO + O3 -> NO2 + O2 rate = 3.00E-12*exp( -1500./t) (439) - NO_O_M (337) NO + O + M -> NO2 + M troe : ko=9.00E-32*(300/t)**1.50 (440) + NO3_HO2 (330) NO3 + HO2 -> OH + NO2 + O2 rate = 3.50E-12 (434) + NO3_NO (331) NO3 + NO -> 2*NO2 rate = 1.50E-11*exp( 170./t) (435) + NO3_O (332) NO3 + O -> NO2 + O2 rate = 1.00E-11 (436) + NO3_OH (333) NO3 + OH -> HO2 + NO2 rate = 2.20E-11 (437) + N_OH (334) N + OH -> NO + H rate = 5.00E-11 (438) + NO_HO2 (335) NO + HO2 -> NO2 + OH rate = 3.30E-12*exp( 270./t) (439) + NO_O3 (336) NO + O3 -> NO2 + O2 rate = 3.00E-12*exp( -1500./t) (440) + NO_O_M (337) NO + O + M -> NO2 + M troe : ko=9.00E-32*(300/t)**1.50 (441) ki=3.00E-11 f=0.60 - O1D_N2Oa (338) O1D + N2O -> 2*NO rate = 7.26E-11*exp( 20./t) (441) - O1D_N2Ob (339) O1D + N2O -> N2 + O2 rate = 4.64E-11*exp( 20./t) (442) - tag_NO2_HO2 (340) NO2 + HO2 + M -> HO2NO2 + M troe : ko=1.90E-31*(300/t)**3.40 (443) + O1D_N2Oa (338) O1D + N2O -> 2*NO rate = 7.26E-11*exp( 20./t) (442) + O1D_N2Ob (339) O1D + N2O -> N2 + O2 rate = 4.64E-11*exp( 20./t) (443) + tag_NO2_HO2 (340) NO2 + HO2 + M -> HO2NO2 + M troe : ko=1.90E-31*(300/t)**3.40 (444) ki=4.00E-12*(300/t)**0.30 f=0.60 - tag_NO2_NO3 (341) NO2 + NO3 + M -> N2O5 + M troe : ko=2.40E-30*(300/t)**3.00 (444) + tag_NO2_NO3 (341) NO2 + NO3 + M -> N2O5 + M troe : ko=2.40E-30*(300/t)**3.00 (445) ki=1.60E-12*(300/t)**-0.10 f=0.60 - tag_NO2_OH (342) NO2 + OH + M -> HNO3 + M troe : ko=1.80E-30*(300/t)**3.00 (445) + tag_NO2_OH (342) NO2 + OH + M -> HNO3 + M troe : ko=1.80E-30*(300/t)**3.00 (446) ki=2.80E-11 f=0.60 - usr_HNO3_OH (343) HNO3 + OH -> NO3 + H2O rate = ** User defined ** (446) - usr_HO2NO2_M (344) HO2NO2 + M -> HO2 + NO2 + M rate = ** User defined ** (447) - usr_N2O5_M (345) N2O5 + M -> NO2 + NO3 + M rate = ** User defined ** (448) - CL_CH2O (346) CL + CH2O -> HCL + HO2 + CO rate = 8.10E-11*exp( -30./t) (449) - CL_CH4 (347) CL + CH4 -> CH3O2 + HCL rate = 7.10E-12*exp( -1270./t) (450) - CL_H2 (348) CL + H2 -> HCL + H rate = 3.05E-11*exp( -2270./t) (451) - CL_H2O2 (349) CL + H2O2 -> HCL + HO2 rate = 1.10E-11*exp( -980./t) (452) - CL_HO2a (350) CL + HO2 -> HCL + O2 rate = 1.40E-11*exp( 270./t) (453) - CL_HO2b (351) CL + HO2 -> OH + CLO rate = 3.60E-11*exp( -375./t) (454) - CL_O3 (352) CL + O3 -> CLO + O2 rate = 2.30E-11*exp( -200./t) (455) - CLO_CH3O2 (353) CLO + CH3O2 -> CL + HO2 + CH2O rate = 3.30E-12*exp( -115./t) (456) - CLO_CLOa (354) CLO + CLO -> 2*CL + O2 rate = 3.00E-11*exp( -2450./t) (457) - CLO_CLOb (355) CLO + CLO -> CL2 + O2 rate = 1.00E-12*exp( -1590./t) (458) - CLO_CLOc (356) CLO + CLO -> CL + OCLO rate = 3.50E-13*exp( -1370./t) (459) - CLO_HO2 (357) CLO + HO2 -> O2 + HOCL rate = 2.60E-12*exp( 290./t) (460) - CLO_NO (358) CLO + NO -> NO2 + CL rate = 6.40E-12*exp( 290./t) (461) - CLONO2_CL (359) CLONO2 + CL -> CL2 + NO3 rate = 6.50E-12*exp( 135./t) (462) - CLO_NO2_M (360) CLO + NO2 + M -> CLONO2 + M troe : ko=1.80E-31*(300/t)**3.40 (463) + usr_HNO3_OH (343) HNO3 + OH -> NO3 + H2O rate = ** User defined ** (447) + usr_HO2NO2_M (344) HO2NO2 + M -> HO2 + NO2 + M rate = ** User defined ** (448) + usr_N2O5_M (345) N2O5 + M -> NO2 + NO3 + M rate = ** User defined ** (449) + CL_CH2O (346) CL + CH2O -> HCL + HO2 + CO rate = 8.10E-11*exp( -30./t) (450) + CL_CH4 (347) CL + CH4 -> CH3O2 + HCL rate = 7.10E-12*exp( -1270./t) (451) + CL_H2 (348) CL + H2 -> HCL + H rate = 3.05E-11*exp( -2270./t) (452) + CL_H2O2 (349) CL + H2O2 -> HCL + HO2 rate = 1.10E-11*exp( -980./t) (453) + CL_HO2a (350) CL + HO2 -> HCL + O2 rate = 1.40E-11*exp( 270./t) (454) + CL_HO2b (351) CL + HO2 -> OH + CLO rate = 3.60E-11*exp( -375./t) (455) + CL_O3 (352) CL + O3 -> CLO + O2 rate = 2.30E-11*exp( -200./t) (456) + CLO_CH3O2 (353) CLO + CH3O2 -> CL + HO2 + CH2O rate = 3.30E-12*exp( -115./t) (457) + CLO_CLOa (354) CLO + CLO -> 2*CL + O2 rate = 3.00E-11*exp( -2450./t) (458) + CLO_CLOb (355) CLO + CLO -> CL2 + O2 rate = 1.00E-12*exp( -1590./t) (459) + CLO_CLOc (356) CLO + CLO -> CL + OCLO rate = 3.50E-13*exp( -1370./t) (460) + CLO_HO2 (357) CLO + HO2 -> O2 + HOCL rate = 2.60E-12*exp( 290./t) (461) + CLO_NO (358) CLO + NO -> NO2 + CL rate = 6.40E-12*exp( 290./t) (462) + CLONO2_CL (359) CLONO2 + CL -> CL2 + NO3 rate = 6.50E-12*exp( 135./t) (463) + CLO_NO2_M (360) CLO + NO2 + M -> CLONO2 + M troe : ko=1.80E-31*(300/t)**3.40 (464) ki=1.50E-11*(300/t)**1.90 f=0.60 - CLONO2_O (361) CLONO2 + O -> CLO + NO3 rate = 3.60E-12*exp( -840./t) (464) - CLONO2_OH (362) CLONO2 + OH -> HOCL + NO3 rate = 1.20E-12*exp( -330./t) (465) - CLO_O (363) CLO + O -> CL + O2 rate = 2.80E-11*exp( 85./t) (466) - CLO_OHa (364) CLO + OH -> CL + HO2 rate = 7.40E-12*exp( 270./t) (467) - CLO_OHb (365) CLO + OH -> HCL + O2 rate = 6.00E-13*exp( 230./t) (468) - HCL_O (366) HCL + O -> CL + OH rate = 1.00E-11*exp( -3300./t) (469) - HCL_OH (367) HCL + OH -> H2O + CL rate = 1.80E-12*exp( -250./t) (470) - HOCL_CL (368) HOCL + CL -> HCL + CLO rate = 3.40E-12*exp( -130./t) (471) - HOCL_O (369) HOCL + O -> CLO + OH rate = 1.70E-13 (472) - HOCL_OH (370) HOCL + OH -> H2O + CLO rate = 3.00E-12*exp( -500./t) (473) - O1D_CCL4 (371) O1D + CCL4 -> 4*CL rate = 2.61E-10 (474) - O1D_CF2CLBR (372) O1D + CF2CLBR -> CL + BR + COF2 rate = 9.75E-11 (475) - O1D_CFC11 (373) O1D + CFC11 -> 2*CL + COFCL rate = 2.07E-10 (476) - O1D_CFC113 (374) O1D + CFC113 -> 2*CL + COFCL + COF2 rate = 2.09E-10 (477) - O1D_CFC114 (375) O1D + CFC114 -> 2*CL + 2*COF2 rate = 1.17E-10 (478) - O1D_CFC115 (376) O1D + CFC115 -> CL + F + 2*COF2 rate = 4.64E-11 (479) - O1D_CFC12 (377) O1D + CFC12 -> 2*CL + COF2 rate = 1.20E-10 (480) - O1D_HCLa (378) O1D + HCL -> CL + OH rate = 9.90E-11 (481) - O1D_HCLb (379) O1D + HCL -> CLO + H rate = 3.30E-12 (482) - tag_CLO_CLO_M (380) CLO + CLO + M -> CL2O2 + M troe : ko=1.90E-32*(300/t)**3.60 (483) + CLONO2_O (361) CLONO2 + O -> CLO + NO3 rate = 3.60E-12*exp( -840./t) (465) + CLONO2_OH (362) CLONO2 + OH -> HOCL + NO3 rate = 1.20E-12*exp( -330./t) (466) + CLO_O (363) CLO + O -> CL + O2 rate = 2.80E-11*exp( 85./t) (467) + CLO_OHa (364) CLO + OH -> CL + HO2 rate = 7.40E-12*exp( 270./t) (468) + CLO_OHb (365) CLO + OH -> HCL + O2 rate = 6.00E-13*exp( 230./t) (469) + HCL_O (366) HCL + O -> CL + OH rate = 1.00E-11*exp( -3300./t) (470) + HCL_OH (367) HCL + OH -> H2O + CL rate = 1.80E-12*exp( -250./t) (471) + HOCL_CL (368) HOCL + CL -> HCL + CLO rate = 3.40E-12*exp( -130./t) (472) + HOCL_O (369) HOCL + O -> CLO + OH rate = 1.70E-13 (473) + HOCL_OH (370) HOCL + OH -> H2O + CLO rate = 3.00E-12*exp( -500./t) (474) + O1D_CCL4 (371) O1D + CCL4 -> 4*CL rate = 2.61E-10 (475) + O1D_CF2CLBR (372) O1D + CF2CLBR -> CL + BR + COF2 rate = 9.75E-11 (476) + O1D_CFC11 (373) O1D + CFC11 -> 2*CL + COFCL rate = 2.07E-10 (477) + O1D_CFC113 (374) O1D + CFC113 -> 2*CL + COFCL + COF2 rate = 2.09E-10 (478) + O1D_CFC114 (375) O1D + CFC114 -> 2*CL + 2*COF2 rate = 1.17E-10 (479) + O1D_CFC115 (376) O1D + CFC115 -> CL + F + 2*COF2 rate = 4.64E-11 (480) + O1D_CFC12 (377) O1D + CFC12 -> 2*CL + COF2 rate = 1.20E-10 (481) + O1D_HCLa (378) O1D + HCL -> CL + OH rate = 9.90E-11 (482) + O1D_HCLb (379) O1D + HCL -> CLO + H rate = 3.30E-12 (483) + tag_CLO_CLO_M (380) CLO + CLO + M -> CL2O2 + M troe : ko=1.90E-32*(300/t)**3.60 (484) ki=3.70E-12*(300/t)**1.60 f=0.60 - usr_CL2O2_M (381) CL2O2 + M -> CLO + CLO + M rate = ** User defined ** (484) - BR_CH2O (382) BR + CH2O -> HBR + HO2 + CO rate = 1.70E-11*exp( -800./t) (485) - BR_HO2 (383) BR + HO2 -> HBR + O2 rate = 4.80E-12*exp( -310./t) (486) - BR_O3 (384) BR + O3 -> BRO + O2 rate = 1.60E-11*exp( -780./t) (487) - BRO_BRO (385) BRO + BRO -> 2*BR + O2 rate = 1.50E-12*exp( 230./t) (488) - BRO_CLOa (386) BRO + CLO -> BR + OCLO rate = 9.50E-13*exp( 550./t) (489) - BRO_CLOb (387) BRO + CLO -> BR + CL + O2 rate = 2.30E-12*exp( 260./t) (490) - BRO_CLOc (388) BRO + CLO -> BRCL + O2 rate = 4.10E-13*exp( 290./t) (491) - BRO_HO2 (389) BRO + HO2 -> HOBR + O2 rate = 4.50E-12*exp( 460./t) (492) - BRO_NO (390) BRO + NO -> BR + NO2 rate = 8.80E-12*exp( 260./t) (493) - BRO_NO2_M (391) BRO + NO2 + M -> BRONO2 + M troe : ko=5.20E-31*(300/t)**3.20 (494) + usr_CL2O2_M (381) CL2O2 + M -> CLO + CLO + M rate = ** User defined ** (485) + BR_CH2O (382) BR + CH2O -> HBR + HO2 + CO rate = 1.70E-11*exp( -800./t) (486) + BR_HO2 (383) BR + HO2 -> HBR + O2 rate = 4.80E-12*exp( -310./t) (487) + BR_O3 (384) BR + O3 -> BRO + O2 rate = 1.60E-11*exp( -780./t) (488) + BRO_BRO (385) BRO + BRO -> 2*BR + O2 rate = 1.50E-12*exp( 230./t) (489) + BRO_CLOa (386) BRO + CLO -> BR + OCLO rate = 9.50E-13*exp( 550./t) (490) + BRO_CLOb (387) BRO + CLO -> BR + CL + O2 rate = 2.30E-12*exp( 260./t) (491) + BRO_CLOc (388) BRO + CLO -> BRCL + O2 rate = 4.10E-13*exp( 290./t) (492) + BRO_HO2 (389) BRO + HO2 -> HOBR + O2 rate = 4.50E-12*exp( 460./t) (493) + BRO_NO (390) BRO + NO -> BR + NO2 rate = 8.80E-12*exp( 260./t) (494) + BRO_NO2_M (391) BRO + NO2 + M -> BRONO2 + M troe : ko=5.20E-31*(300/t)**3.20 (495) ki=6.90E-12*(300/t)**2.90 f=0.60 - BRONO2_O (392) BRONO2 + O -> BRO + NO3 rate = 1.90E-11*exp( 215./t) (495) - BRO_O (393) BRO + O -> BR + O2 rate = 1.90E-11*exp( 230./t) (496) - BRO_OH (394) BRO + OH -> BR + HO2 rate = 1.70E-11*exp( 250./t) (497) - HBR_O (395) HBR + O -> BR + OH rate = 5.80E-12*exp( -1500./t) (498) - HBR_OH (396) HBR + OH -> BR + H2O rate = 5.50E-12*exp( 200./t) (499) - HOBR_O (397) HOBR + O -> BRO + OH rate = 1.20E-10*exp( -430./t) (500) - O1D_CF3BR (398) O1D + CF3BR -> BR + F + COF2 rate = 4.50E-11 (501) - O1D_CHBR3 (399) O1D + CHBR3 -> 3*BR rate = 4.62E-10 (502) - O1D_H2402 (400) O1D + H2402 -> 2*BR + 2*COF2 rate = 1.20E-10 (503) - O1D_HBRa (401) O1D + HBR -> BR + OH rate = 9.00E-11 (504) - O1D_HBRb (402) O1D + HBR -> BRO + H rate = 3.00E-11 (505) - F_CH4 (403) F + CH4 -> HF + CH3O2 rate = 1.60E-10*exp( -260./t) (506) - F_H2 (404) F + H2 -> HF + H rate = 1.40E-10*exp( -500./t) (507) - F_H2O (405) F + H2O -> HF + OH rate = 1.40E-11 (508) - F_HNO3 (406) F + HNO3 -> HF + NO3 rate = 6.00E-12*exp( 400./t) (509) - O1D_COF2 (407) O1D + COF2 -> 2*F rate = 2.14E-11 (510) - O1D_COFCL (408) O1D + COFCL -> F + CL rate = 1.90E-10 (511) - CH2BR2_CL (409) CH2BR2 + CL -> 2*BR + HCL rate = 6.30E-12*exp( -800./t) (512) - CH2BR2_OH (410) CH2BR2 + OH -> 2*BR + H2O rate = 2.00E-12*exp( -840./t) (513) - CH3BR_CL (411) CH3BR + CL -> HCL + HO2 + BR rate = 1.46E-11*exp( -1040./t) (514) - CH3BR_OH (412) CH3BR + OH -> BR + H2O + HO2 rate = 1.42E-12*exp( -1150./t) (515) - CH3CCL3_OH (413) CH3CCL3 + OH -> H2O + 3*CL rate = 1.64E-12*exp( -1520./t) (516) - CH3CL_CL (414) CH3CL + CL -> HO2 + CO + 2*HCL rate = 2.03E-11*exp( -1100./t) (517) - CH3CL_OH (415) CH3CL + OH -> CL + H2O + HO2 rate = 1.96E-12*exp( -1200./t) (518) - CHBR3_CL (416) CHBR3 + CL -> 3*BR + HCL rate = 4.85E-12*exp( -850./t) (519) - CHBR3_OH (417) CHBR3 + OH -> 3*BR rate = 9.00E-13*exp( -360./t) (520) - HCFC141B_OH (418) HCFC141B + OH -> CL + COFCL rate = 1.25E-12*exp( -1600./t) (521) - HCFC142B_OH (419) HCFC142B + OH -> CL + COF2 rate = 1.30E-12*exp( -1770./t) (522) - HCFC22_OH (420) HCFC22 + OH -> H2O + CL + COF2 rate = 9.20E-13*exp( -1560./t) (523) - O1D_CH2BR2 (421) O1D + CH2BR2 -> 2*BR rate = 2.57E-10 (524) - O1D_CH3BR (422) O1D + CH3BR -> BR rate = 1.80E-10 (525) - O1D_HCFC141B (423) O1D + HCFC141B -> CL + COFCL rate = 1.79E-10 (526) - O1D_HCFC142B (424) O1D + HCFC142B -> CL + COF2 rate = 1.30E-10 (527) - O1D_HCFC22 (425) O1D + HCFC22 -> CL + COF2 rate = 7.65E-11 (528) - CH2O_NO3 (426) CH2O + NO3 -> CO + HO2 + HNO3 rate = 6.00E-13*exp( -2058./t) (529) - CH2O_O (427) CH2O + O -> HO2 + OH + CO rate = 3.40E-11*exp( -1600./t) (530) - CH2O_OH (428) CH2O + OH -> CO + H2O + H rate = 5.50E-12*exp( 125./t) (531) - CH3O2_HO2 (429) CH3O2 + HO2 -> CH3OOH + O2 rate = 4.10E-13*exp( 750./t) (532) - CH3O2_NO (430) CH3O2 + NO -> CH2O + NO2 + HO2 rate = 2.80E-12*exp( 300./t) (533) - CH3OOH_OH (431) CH3OOH + OH -> 0.7*CH3O2 + 0.3*OH + 0.3*CH2O + H2O rate = 3.80E-12*exp( 200./t) (534) - CH4_OH (432) CH4 + OH -> CH3O2 + H2O rate = 2.45E-12*exp( -1775./t) (535) - CO_OH_M (433) CO + OH + M -> CO2 + HO2 + M troe : ko=5.90E-33*(300/t)**1.00 (536) + BRONO2_O (392) BRONO2 + O -> BRO + NO3 rate = 1.90E-11*exp( 215./t) (496) + BRO_O (393) BRO + O -> BR + O2 rate = 1.90E-11*exp( 230./t) (497) + BRO_OH (394) BRO + OH -> BR + HO2 rate = 1.70E-11*exp( 250./t) (498) + HBR_O (395) HBR + O -> BR + OH rate = 5.80E-12*exp( -1500./t) (499) + HBR_OH (396) HBR + OH -> BR + H2O rate = 5.50E-12*exp( 200./t) (500) + HOBR_O (397) HOBR + O -> BRO + OH rate = 1.20E-10*exp( -430./t) (501) + O1D_CF3BR (398) O1D + CF3BR -> BR + F + COF2 rate = 4.50E-11 (502) + O1D_CHBR3 (399) O1D + CHBR3 -> 3*BR rate = 4.62E-10 (503) + O1D_H2402 (400) O1D + H2402 -> 2*BR + 2*COF2 rate = 1.20E-10 (504) + O1D_HBRa (401) O1D + HBR -> BR + OH rate = 9.00E-11 (505) + O1D_HBRb (402) O1D + HBR -> BRO + H rate = 3.00E-11 (506) + F_CH4 (403) F + CH4 -> HF + CH3O2 rate = 1.60E-10*exp( -260./t) (507) + F_H2 (404) F + H2 -> HF + H rate = 1.40E-10*exp( -500./t) (508) + F_H2O (405) F + H2O -> HF + OH rate = 1.40E-11 (509) + F_HNO3 (406) F + HNO3 -> HF + NO3 rate = 6.00E-12*exp( 400./t) (510) + O1D_COF2 (407) O1D + COF2 -> 2*F rate = 2.14E-11 (511) + O1D_COFCL (408) O1D + COFCL -> F + CL rate = 1.90E-10 (512) + CH2BR2_CL (409) CH2BR2 + CL -> 2*BR + HCL rate = 6.30E-12*exp( -800./t) (513) + CH2BR2_OH (410) CH2BR2 + OH -> 2*BR + H2O rate = 2.00E-12*exp( -840./t) (514) + CH3BR_CL (411) CH3BR + CL -> HCL + HO2 + BR rate = 1.46E-11*exp( -1040./t) (515) + CH3BR_OH (412) CH3BR + OH -> BR + H2O + HO2 rate = 1.42E-12*exp( -1150./t) (516) + CH3CCL3_OH (413) CH3CCL3 + OH -> H2O + 3*CL rate = 1.64E-12*exp( -1520./t) (517) + CH3CL_CL (414) CH3CL + CL -> HO2 + CO + 2*HCL rate = 2.03E-11*exp( -1100./t) (518) + CH3CL_OH (415) CH3CL + OH -> CL + H2O + HO2 rate = 1.96E-12*exp( -1200./t) (519) + CHBR3_CL (416) CHBR3 + CL -> 3*BR + HCL rate = 4.85E-12*exp( -850./t) (520) + CHBR3_OH (417) CHBR3 + OH -> 3*BR rate = 9.00E-13*exp( -360./t) (521) + HCFC141B_OH (418) HCFC141B + OH -> CL + COFCL rate = 1.25E-12*exp( -1600./t) (522) + HCFC142B_OH (419) HCFC142B + OH -> CL + COF2 rate = 1.30E-12*exp( -1770./t) (523) + HCFC22_OH (420) HCFC22 + OH -> H2O + CL + COF2 rate = 9.20E-13*exp( -1560./t) (524) + O1D_CH2BR2 (421) O1D + CH2BR2 -> 2*BR rate = 2.57E-10 (525) + O1D_CH3BR (422) O1D + CH3BR -> BR rate = 1.80E-10 (526) + O1D_HCFC141B (423) O1D + HCFC141B -> CL + COFCL rate = 1.79E-10 (527) + O1D_HCFC142B (424) O1D + HCFC142B -> CL + COF2 rate = 1.30E-10 (528) + O1D_HCFC22 (425) O1D + HCFC22 -> CL + COF2 rate = 7.65E-11 (529) + CH2O_NO3 (426) CH2O + NO3 -> CO + HO2 + HNO3 rate = 6.00E-13*exp( -2058./t) (530) + CH2O_O (427) CH2O + O -> HO2 + OH + CO rate = 3.40E-11*exp( -1600./t) (531) + CH2O_OH (428) CH2O + OH -> CO + H2O + H rate = 5.50E-12*exp( 125./t) (532) + CH3O2_HO2 (429) CH3O2 + HO2 -> CH3OOH + O2 rate = 4.10E-13*exp( 750./t) (533) + CH3O2_NO (430) CH3O2 + NO -> CH2O + NO2 + HO2 rate = 2.80E-12*exp( 300./t) (534) + CH3OOH_OH (431) CH3OOH + OH -> 0.7*CH3O2 + 0.3*OH + 0.3*CH2O + H2O rate = 3.80E-12*exp( 200./t) (535) + CH4_OH (432) CH4 + OH -> CH3O2 + H2O rate = 2.45E-12*exp( -1775./t) (536) + CO_OH_M (433) CO + OH + M -> CO2 + HO2 + M troe : ko=5.90E-33*(300/t)**1.00 (537) ki=1.10E-12*(300/t)**-1.30 f=0.60 - O1D_CH4a (434) O1D + CH4 -> CH3O2 + OH rate = 1.31E-10 (537) - O1D_CH4b (435) O1D + CH4 -> CH2O + H + HO2 rate = 3.50E-11 (538) - O1D_CH4c (436) O1D + CH4 -> CH2O + H2 rate = 9.00E-12 (539) - usr_CO_OH_b (437) CO + OH -> CO2 + H rate = ** User defined ** (540) - OCS_O (438) OCS + O -> SO + CO rate = 2.10E-11*exp( -2200./t) (541) - OCS_OH (439) OCS + OH -> SO2 + CO + H rate = 7.20E-14*exp( -1070./t) (542) - S_O2 (440) S + O2 -> SO + O rate = 2.30E-12 (543) - S_O3 (441) S + O3 -> SO + O2 rate = 1.20E-11 (544) - SO_BRO (442) SO + BRO -> SO2 + BR rate = 5.70E-11 (545) - SO_CLO (443) SO + CLO -> SO2 + CL rate = 2.80E-11 (546) - S_OH (444) S + OH -> SO + H rate = 6.60E-11 (547) - SO_NO2 (445) SO + NO2 -> SO2 + NO rate = 1.40E-11 (548) - SO_O2 (446) SO + O2 -> SO2 + O rate = 1.60E-13*exp( -2280./t) (549) - SO_O3 (447) SO + O3 -> SO2 + O2 rate = 3.40E-12*exp( -1100./t) (550) - SO_OCLO (448) SO + OCLO -> SO2 + CLO rate = 1.90E-12 (551) - SO_OH (449) SO + OH -> SO2 + H rate = 2.70E-11*exp( 335./t) (552) - usr_SO2_OH (450) SO2 + OH -> SO3 + HO2 rate = ** User defined ** (553) - usr_SO3_H2O (451) SO3 + H2O -> H2SO4 rate = ** User defined ** (554) - DMS_NO3 (452) DMS + NO3 -> SO2 + HNO3 rate = 1.90E-13*exp( 520./t) (555) - DMS_OHa (453) DMS + OH -> SO2 rate = 9.60E-12*exp( -234./t) (556) - usr_DMS_OH (454) DMS + OH -> 0.5*SO2 + 0.5*HO2 rate = ** User defined ** (557) - usr_HO2_aer (455) HO2 -> 0.5*H2O2 rate = ** User defined ** (558) - usr_N2O5_aer (456) N2O5 -> 2*HNO3 rate = ** User defined ** (559) - usr_NO2_aer (457) NO2 -> 0.5*OH + 0.5*NO + 0.5*HNO3 rate = ** User defined ** (560) - usr_NO3_aer (458) NO3 -> HNO3 rate = ** User defined ** (561) - het1 (459) N2O5 -> 2*HNO3 rate = ** User defined ** (562) - het10 (460) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (563) - het11 (461) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (564) - het12 (462) N2O5 -> 2*HNO3 rate = ** User defined ** (565) - het13 (463) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (566) - het14 (464) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (567) - het15 (465) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (568) - het16 (466) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (569) - het17 (467) HOBR + HCL -> BRCL + H2O rate = ** User defined ** (570) - het2 (468) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (571) - het3 (469) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (572) - het4 (470) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (573) - het5 (471) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (574) - het6 (472) HOBR + HCL -> BRCL + H2O rate = ** User defined ** (575) - het7 (473) N2O5 -> 2*HNO3 rate = ** User defined ** (576) - het8 (474) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (577) - het9 (475) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (578) - elec1 (476) NOp + e -> 0.2*N + 0.8*N2D + O rate = ** User defined ** (579) - elec2 (477) O2p + e -> 1.15*O + 0.85*O1D rate = ** User defined ** (580) - elec3 (478) N2p + e -> 1.1*N + 0.9*N2D rate = ** User defined ** (581) - ion_N2p_O2 (479) N2p + O2 -> O2p + N2 rate = 6.00E-11 (582) - ion_N2p_Oa (480) N2p + O -> NOp + N2D rate = ** User defined ** (583) - ion_N2p_Ob (481) N2p + O -> Op + N2 rate = ** User defined ** (584) - ion_Np_O (482) Np + O -> Op + N rate = 1.00E-12 (585) - ion_Np_O2a (483) Np + O2 -> O2p + N rate = 4.00E-10 (586) - ion_Np_O2b (484) Np + O2 -> NOp + O rate = 2.00E-10 (587) - ion_O2p_N (485) O2p + N -> NOp + O rate = 1.00E-10 (588) - ion_O2p_N2 (486) O2p + N2 -> NOp + NO rate = 5.00E-16 (589) - ion_O2p_NO (487) O2p + NO -> NOp + O2 rate = 4.40E-10 (590) - ion_Op_CO2 (488) Op + CO2 -> O2p + CO rate = 9.00E-10 (591) - ion_Op_N2 (489) Op + N2 -> NOp + N rate = ** User defined ** (592) - ion_Op_O2 (490) Op + O2 -> O2p + O rate = ** User defined ** (593) + O1D_CH4a (434) O1D + CH4 -> CH3O2 + OH rate = 1.31E-10 (538) + 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) + 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) + usr_NO3_aer (458) NO3 -> HNO3 rate = ** User defined ** (562) + het1 (459) N2O5 -> 2*HNO3 rate = ** User defined ** (563) + het10 (460) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (564) + het11 (461) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (565) + het12 (462) N2O5 -> 2*HNO3 rate = ** User defined ** (566) + het13 (463) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (567) + het14 (464) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (568) + het15 (465) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (569) + het16 (466) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (570) + het17 (467) HOBR + HCL -> BRCL + H2O rate = ** User defined ** (571) + het2 (468) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (572) + het3 (469) BRONO2 -> HOBR + HNO3 rate = ** User defined ** (573) + het4 (470) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (574) + het5 (471) HOCL + HCL -> CL2 + H2O rate = ** User defined ** (575) + het6 (472) HOBR + HCL -> BRCL + H2O rate = ** User defined ** (576) + het7 (473) N2O5 -> 2*HNO3 rate = ** User defined ** (577) + het8 (474) CLONO2 -> HOCL + HNO3 rate = ** User defined ** (578) + het9 (475) CLONO2 + HCL -> CL2 + HNO3 rate = ** User defined ** (579) + ag247nm (476) Op2P -> Op rate = 4.70E-02 (580) + ag373nm (477) Op2D -> Op rate = 7.70E-05 (581) + ag732nm (478) Op2P -> Op2D rate = 1.71E-01 (582) + elec1 (479) NOp + e -> 0.2*N + 0.8*N2D + O rate = ** User defined ** (583) + elec2 (480) O2p + e -> 1.15*O + 0.85*O1D rate = ** User defined ** (584) + elec3 (481) N2p + e -> 1.1*N + 0.9*N2D rate = ** User defined ** (585) + ion_N2p_O2 (482) N2p + O2 -> O2p + N2 rate = 6.00E-11 (586) + ion_N2p_Oa (483) N2p + O -> NOp + N2D rate = ** User defined ** (587) + ion_N2p_Ob (484) N2p + O -> Op + N2 rate = ** User defined ** (588) + ion_Np_O (485) Np + O -> Op + N rate = 1.00E-12 (589) + ion_Np_O2a (486) Np + O2 -> O2p + N rate = 4.00E-10 (590) + ion_Np_O2b (487) Np + O2 -> NOp + O rate = 2.00E-10 (591) + ion_O2p_N (488) O2p + N -> NOp + O rate = 1.00E-10 (592) + ion_O2p_N2 (489) O2p + N2 -> NOp + NO rate = 5.00E-16 (593) + ion_O2p_NO (490) O2p + NO -> NOp + O2 rate = 4.40E-10 (594) + ion_Op_CO2 (491) Op + CO2 -> O2p + CO rate = 9.00E-10 (595) + ion_Op_N2 (492) Op + N2 -> NOp + N rate = ** User defined ** (596) + ion_Op_N2D (493) Op + N2D -> Np + O rate = 1.30E-10 (597) + ion_Op_O2 (494) Op + O2 -> O2p + O rate = ** User defined ** (598) + Op2D_e (495) Op2D + e -> Op + e rate = ** User defined ** (599) + Op2D_N2 (496) Op2D + N2 -> N2p + O rate = 8.00E-10 (600) + Op2D_O (497) Op2D + O -> Op + O rate = 5.00E-12 (601) + Op2D_O2 (498) Op2D + O2 -> O2p + O rate = 7.00E-10 (602) + Op2P_ea (499) Op2P + e -> Op2D + e rate = ** User defined ** (603) + Op2P_eb (500) Op2P + e -> Op + e rate = ** User defined ** (604) + Op2P_N2a (501) Op2P + N2 -> N2p + O rate = 4.80E-10 (605) + Op2P_N2b (502) Op2P + N2 -> Np + NO rate = 1.00E-10 (606) + Op2P_O (503) Op2P + O -> Op + O rate = 4.00E-10 (607) Extraneous prod/loss species ( 1) so4_a2 (dataset) @@ -940,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 @@ -972,26 +999,44 @@ 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 + j61*CO2 + j100*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 - + r488*Op*CO2 + 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 + r440*OCS*O + r441*OCS*OH + + r491*Op*CO2 - r433*M*OH*CO - r437*OH*CO - d(CO2)/dt = .44*j25*CH4 + j62*CO3m + j64*CO4m + r265*M*NOp_CO2 + r10*CL*CO3m + r11*CL*CO3m + r12*CLO*CO3m + d(CO2)/dt = .44*j25*CH4 + j63*CO3m + j65*CO4m + r265*M*NOp_CO2 + r10*CL*CO3m + r11*CL*CO3m + r12*CLO*CO3m + r13*H*CO3m + r16*CO3m_H2O*NO2 + r17*CO3m_H2O*NO2 + r18*CO3m_H2O*NO + r19*CO3m_H2O*NO + r20*CO3m*HNO3 + r21*CO3m*O + r22*O2*CO3m + r23*CL*CO4m + r24*CLO*CO4m + r26*CO4m*HCL + r28*CO4m*O3 + r45*HCO3m*O2p + r47*CO4m*O2p + r49*CO3m2H2O*O2p + r51*CO3m_H2O*O2p @@ -1006,8 +1051,8 @@ Extraneous prod/loss species + r156*M*CO3m_H2O*Hp_4H2O + r157*M*Hp_5H2O*CO3m_H2O + r161*M*Hp_5H2O*CO3m + r167*M*CO3m2H2O*Hp_4H2O + r176*CO3m*NO + r177*CO3m*NO2 + r202*NOp_CO2*e + r203*NOp_CO2*H2O + r433*M*CO*OH + r437*CO*OH - - j26*CO2 - j61*CO2 - r208*NOp_N2*CO2 - r212*M*O2m*CO2 - r226*O3m*CO2 - r231*O4m*CO2 - - r239*M*OHm*CO2 - r248*M*Om*CO2 - r264*M*NOp*CO2 - r488*Op*CO2 + - j26*CO2 - j62*CO2 - r208*NOp_N2*CO2 - r212*M*O2m*CO2 - r226*O3m*CO2 - r231*O4m*CO2 + - r239*M*OHm*CO2 - r248*M*Om*CO2 - r264*M*NOp*CO2 - r491*Op*CO2 d(COF2)/dt = j32*CF2CLBR + j33*CF3BR + j35*CFC113 + 2*j36*CFC114 + 2*j37*CFC115 + j38*CFC12 + 2*j51*H2402 + j54*HCFC142B + j55*HCFC22 + r372*O1D*CF2CLBR + r374*O1D*CFC113 + 2*r375*O1D*CFC114 + 2*r376*O1D*CFC115 + r377*O1D*CFC12 + r398*O1D*CF3BR + 2*r400*O1D*H2402 + r419*HCFC142B*OH @@ -1016,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 @@ -1039,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 @@ -1047,8 +1092,8 @@ 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 - - j99*H2SO4 + 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 d(HCFC141B)/dt = - j53*HCFC141B - r418*OH*HCFC141B - r423*O1D*HCFC141B @@ -1074,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 @@ -1088,9 +1133,9 @@ Extraneous prod/loss species - r471*HCL*HOCL d(HONO)/dt = r185*HCL*NO2m + r186*HNO3*NO2m + r201*H2O*NOp_3H2O + r245*M*OH*NO - j12*HONO - r236*OH*HONO - d(N)/dt = .8*j66*N2 + .8*j68*N2 + j72*N2 + j73*N2 + j17*NO + r489*N2*Op + r320*N2D*O + .2*r476*NOp*e - + 1.1*r478*N2p*e + r482*Np*O + r483*Np*O2 - - j65*N - r322*NO*N - r323*NO2*N - r324*NO2*N - r325*NO2*N - r326*O2*N - r334*OH*N - r485*O2p*N + d(N)/dt = j69*N2 + j70*N2 + .8*j72*N2 + .8*j73*N2 + j17*NO + r492*N2*Op + r320*N2D*O + .2*r479*NOp*e + + 1.1*r481*N2p*e + r485*Np*O + r486*Np*O2 + - j66*N - r322*NO*N - r323*NO2*N - r324*NO2*N - r325*NO2*N - r326*O2*N - r334*OH*N - r488*O2p*N d(N2O)/dt = r323*N*NO2 - j13*N2O - r338*O1D*N2O - r339*O1D*N2O d(N2O5)/dt = r341*M*NO2*NO3 @@ -1099,26 +1144,26 @@ Extraneous prod/loss species d(ncl_a1)/dt = 0 d(ncl_a2)/dt = 0 d(ncl_a3)/dt = 0 - d(NO)/dt = j12*HONO + j15*N2O5 + j18*NO2 + j20*NO3 + .5*r457*NO2 + r486*N2*O2p + r98*NO3mHNO3*NOp_H2O - + r100*CO3m*NOp_H2O + r101*CLm_HCL*NOp_H2O + r102*NO3m*NOp_H2O + r103*HCO3m*NOp_H2O - + r104*NOp_H2O*O2m + r105*CO4m*NOp_H2O + r106*NO3m_H2O*NOp_H2O + r107*CO3m2H2O*NOp_H2O - + r108*CLm*NOp_H2O + r109*CO3m_H2O*NOp_H2O + r111*NO2m_H2O*NOp_H2O + r112*NO3m_HCL*NOp_H2O - + r113*CLm_H2O*NOp_H2O + r114*NO3m2H2O*NOp_H2O + r115*NO2m*NOp_H2O + r116*NO3mHNO3*NOp_2H2O - + r117*CO3m*NOp_2H2O + r118*CLm_HCL*NOp_2H2O + r119*NOp_2H2O*NO3m + r120*HCO3m*NOp_2H2O - + r122*NOp_2H2O*O2m + r123*NOp_2H2O*CO4m + r124*NO3m_H2O*NOp_2H2O + r125*CO3m2H2O*NOp_2H2O - + r126*CLm*NOp_2H2O + r127*CO3m_H2O*NOp_2H2O + r128*NOp_2H2O*NO2m_H2O + r129*NO3m_HCL*NOp_2H2O - + r130*NOp_2H2O*CLm_H2O + r131*NOp_2H2O*NO3m2H2O + r133*NOp_2H2O*NO2m + r134*NOp*NO3mHNO3 - + r135*NOp*CO3m + r136*NOp*CLm_HCL + r137*NO3m*NOp + r138*NOp*HCO3m + r139*O2m*NOp - + r140*NOp*CO4m + r141*NOp*NO3m_H2O + r142*NOp*CO3m2H2O + r144*CLm*NOp + r145*CO3m_H2O*NOp - + r146*NO2m_H2O*NOp + r147*NO3m_HCL*NOp + r148*CLm_H2O*NOp + r149*NOp*NO3m2H2O + r150*NOp*NO2m - + r183*H*NO2m + r187*NO2*NO2m + r199*NOp_2H2O*e + r200*NOp_3H2O*e + r202*NOp_CO2*e - + r204*NOp_H2O*e + r205*H*NOp_H2O + r280*e*NOp_N2 + r321*N2D*O2 + 2*r324*N*NO2 + r326*N*O2 - + r327*NO2*O + r334*N*OH + 2*r338*O1D*N2O + r445*SO*NO2 + d(NO)/dt = j12*HONO + j15*N2O5 + j18*NO2 + j20*NO3 + .5*r457*NO2 + r489*N2*O2p + r502*N2*Op2P + + r98*NO3mHNO3*NOp_H2O + r100*CO3m*NOp_H2O + r101*CLm_HCL*NOp_H2O + r102*NO3m*NOp_H2O + + r103*HCO3m*NOp_H2O + r104*NOp_H2O*O2m + r105*CO4m*NOp_H2O + r106*NO3m_H2O*NOp_H2O + + r107*CO3m2H2O*NOp_H2O + r108*CLm*NOp_H2O + r109*CO3m_H2O*NOp_H2O + r111*NO2m_H2O*NOp_H2O + + r112*NO3m_HCL*NOp_H2O + r113*CLm_H2O*NOp_H2O + r114*NO3m2H2O*NOp_H2O + r115*NO2m*NOp_H2O + + r116*NO3mHNO3*NOp_2H2O + r117*CO3m*NOp_2H2O + r118*CLm_HCL*NOp_2H2O + r119*NOp_2H2O*NO3m + + r120*HCO3m*NOp_2H2O + r122*NOp_2H2O*O2m + r123*NOp_2H2O*CO4m + r124*NO3m_H2O*NOp_2H2O + + r125*CO3m2H2O*NOp_2H2O + r126*CLm*NOp_2H2O + r127*CO3m_H2O*NOp_2H2O + r128*NOp_2H2O*NO2m_H2O + + r129*NO3m_HCL*NOp_2H2O + r130*NOp_2H2O*CLm_H2O + r131*NOp_2H2O*NO3m2H2O + r133*NOp_2H2O*NO2m + + r134*NOp*NO3mHNO3 + r135*NOp*CO3m + r136*NOp*CLm_HCL + r137*NO3m*NOp + r138*NOp*HCO3m + + r139*O2m*NOp + r140*NOp*CO4m + r141*NOp*NO3m_H2O + r142*NOp*CO3m2H2O + r144*CLm*NOp + + r145*CO3m_H2O*NOp + r146*NO2m_H2O*NOp + r147*NO3m_HCL*NOp + r148*CLm_H2O*NOp + r149*NOp*NO3m2H2O + + r150*NOp*NO2m + r183*H*NO2m + r187*NO2*NO2m + r199*NOp_2H2O*e + r200*NOp_3H2O*e + + r202*NOp_CO2*e + r204*NOp_H2O*e + r205*H*NOp_H2O + r280*e*NOp_N2 + r321*N2D*O2 + 2*r324*N*NO2 + + r326*N*O2 + r327*NO2*O + r334*N*OH + 2*r338*O1D*N2O + r447*SO*NO2 - 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 - - r487*O2p*NO - d(NO2)/dt = j9*HNO3 + j11*HO2NO2 + j14*N2O5 + j19*NO3 + j29*BRONO2 + j48*CLONO2 + j74*NO2m + r344*M*HO2NO2 + - r490*O2p*NO + d(NO2)/dt = j9*HNO3 + j11*HO2NO2 + j14*N2O5 + j19*NO3 + j29*BRONO2 + j48*CLONO2 + j75*NO2m + r344*M*HO2NO2 + r345*M*N2O5 + r8*CLOm*NO + r32*NO*Om + r52*NO2m_H2O*O2p + r57*NO2m*O2p + r58*Hp_4H2O*NO2m_H2O + r62*Hp_4H2O*NO2m + r75*NO2m_H2O*Hp_5H2O + r80*Hp_5H2O*NO2m + r93*Hp_3H2O*NO2m_H2O + r97*Hp_3H2O*NO2m + r111*NO2m_H2O*NOp_H2O + r115*NO2m*NOp_H2O + r128*NOp_2H2O*NO2m_H2O @@ -1129,8 +1174,8 @@ 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 - d(NO3)/dt = j10*HO2NO2 + j14*N2O5 + j15*N2O5 + j30*BRONO2 + j47*CLONO2 + j75*NO3m + r345*M*N2O5 + - 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 + r89*Hp_3H2O*NO3m_H2O + r94*Hp_3H2O*NO3m_HCL + r96*Hp_3H2O*NO3m2H2O + r98*NO3mHNO3*NOp_H2O @@ -1142,31 +1187,39 @@ 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 d(num_a4)/dt = 0 d(O)/dt = j2*H2O + 2*j5*O2 + j6*O2 + j8*O3 + j15*N2O5 + j17*NO + j18*NO2 + j19*NO3 + .18*j25*CH4 - + j26*CO2 + j28*BRO + j46*CLO + j60*OCLO + j61*CO2 + j82*O2 + j84*O2 + 2*j85*O2 + j86*O2 - + j88*O2 + 2*j89*O2 + j90*O2 + j91*O2 + j98*Om + j101*SO + j102*SO2 + j103*SO3 + r254*M*Om - + r287*N2*O1D + r10*CL*CO3m + r49*CO3m2H2O*O2p + r51*CO3m_H2O*O2p + r54*CO3m_H2O*Hp_4H2O - + r64*CO3m*Hp_5H2O + r66*CO3m*Hp_4H2O + r72*CO3m2H2O*Hp_5H2O + r74*CO3m_H2O*Hp_5H2O - + r82*Hp_3H2O*CO3m + r90*CO3m2H2O*Hp_3H2O + r92*CO3m_H2O*Hp_3H2O + r100*CO3m*NOp_H2O - + r107*CO3m2H2O*NOp_H2O + r109*CO3m_H2O*NOp_H2O + r117*CO3m*NOp_2H2O + r125*CO3m2H2O*NOp_2H2O - + r127*CO3m_H2O*NOp_2H2O + r135*NOp*CO3m + r142*NOp*CO3m2H2O + 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 + r476*NOp*e - + 1.15*r477*O2p*e + r484*Np*O2 + r485*O2p*N + r490*Op*O2 - - j76*O - j77*O - j78*O - j79*O - j80*O - j81*O - r9*CLOm*O - r21*CO3m*O - r27*CO4m*O + + j26*CO2 + j28*BRO + j46*CLO + j60*OCLO + j62*CO2 + j83*O2 + j85*O2 + j87*O2 + 2*j88*O2 + + 2*j89*O2 + j90*O2 + j91*O2 + j92*O2 + j99*Om + j102*SO + j103*SO2 + j104*SO3 + r254*M*Om + + r287*N2*O1D + r496*N2*Op2D + r501*N2*Op2P + r10*CL*CO3m + r49*CO3m2H2O*O2p + r51*CO3m_H2O*O2p + + r54*CO3m_H2O*Hp_4H2O + r64*CO3m*Hp_5H2O + r66*CO3m*Hp_4H2O + r72*CO3m2H2O*Hp_5H2O + + r74*CO3m_H2O*Hp_5H2O + r82*Hp_3H2O*CO3m + r90*CO3m2H2O*Hp_3H2O + r92*CO3m_H2O*Hp_3H2O + + r100*CO3m*NOp_H2O + r107*CO3m2H2O*NOp_H2O + r109*CO3m_H2O*NOp_H2O + r117*CO3m*NOp_2H2O + + r125*CO3m2H2O*NOp_2H2O + r127*CO3m_H2O*NOp_2H2O + r135*NOp*CO3m + r142*NOp*CO3m2H2O + + 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 + 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 - r480*N2p*O - r481*N2p*O - r482*Np*O - d(O2)/dt = j8*O3 + j20*NO3 + j92*O2m + j95*O3m + j96*O4m + r33*N2*O2m + r283*O2_1D + r284*O2_1S + - 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 + r48*NO3m_H2O*O2p + r49*CO3m2H2O*O2p + r50*CLm*O2p + r51*CO3m_H2O*O2p + r52*NO2m_H2O*O2p @@ -1184,61 +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 + r487*O2p*NO - - j5*O2 - j6*O2 - j82*O2 - j83*O2 - j84*O2 - j85*O2 - j86*O2 - j87*O2 - j88*O2 - j89*O2 - - j90*O2 - j91*O2 - r22*CO3m*O2 - r29*N2*e*O2 - r31*M*e*O2 - r218*M*O2m*O2 - r258*M*Om*O2 + + 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 - r479*N2p*O2 - r483*Np*O2 - r484*Np*O2 - r490*Op*O2 - d(O3)/dt = j94*O3m + r174*NO2*O3m + r220*O*O2m + r234*O4p*O + r257*Om*O2_1D + r301*M*O*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 = - j100*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 = j100*OCS + j101*SO - - r440*O2*S - r441*O3*S - r444*OH*S - d(SO)/dt = j102*SO2 + r438*OCS*O + r440*S*O2 + r441*S*O3 + r444*S*OH - - j101*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 = j103*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 - - j102*SO2 - r450*OH*SO2 - d(SO3)/dt = j99*H2SO4 + r450*SO2*OH - - j103*SO3 - r451*H2O*SO3 + d(S)/dt = j101*OCS + j102*SO + - r442*O2*S - r443*O3*S - r446*OH*S + d(SF6)/dt = - j61*SF6 + 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 @@ -1256,8 +1286,8 @@ Extraneous prod/loss species - r163*M*Hp_4H2O*CLm_HCL - r164*M*Hp_5H2O*CLm_HCL d(CLOm)/dt = r11*CL*CO3m + r24*CLO*CO4m + r211*CLO*O2m + r238*CLO*OHm - r7*NO*CLOm - r8*NO*CLOm - r9*O*CLOm - d(CO3m)/dt = j63*CO3m_H2O + r179*M*CO3m_H2O + r25*CO4m*H + r27*CO4m*O + r226*O3m*CO2 + r248*M*Om*CO2 - - j62*CO3m - r10*CL*CO3m - r11*CL*CO3m - r12*CLO*CO3m - r13*H*CO3m - r15*M*H2O*CO3m + d(CO3m)/dt = j64*CO3m_H2O + r179*M*CO3m_H2O + r25*CO4m*H + r27*CO4m*O + r226*O3m*CO2 + r248*M*Om*CO2 + - j63*CO3m - r10*CL*CO3m - r11*CL*CO3m - r12*CLO*CO3m - r13*H*CO3m - r15*M*H2O*CO3m - r20*HNO3*CO3m - r21*O*CO3m - r22*O2*CO3m - r64*Hp_5H2O*CO3m - r66*Hp_4H2O*CO3m - r82*Hp_3H2O*CO3m - r100*NOp_H2O*CO3m - r117*NOp_2H2O*CO3m - r135*NOp*CO3m - r152*O2p*CO3m - r154*M*Hp_4H2O*CO3m - r161*M*Hp_5H2O*CO3m - r176*NO*CO3m - r177*NO2*CO3m @@ -1266,24 +1296,24 @@ Extraneous prod/loss species - r107*NOp_H2O*CO3m2H2O - r125*NOp_2H2O*CO3m2H2O - r142*NOp*CO3m2H2O - r143*Hp_4H2O*CO3m2H2O - r155*M*Hp_5H2O*CO3m2H2O - r167*M*Hp_4H2O*CO3m2H2O d(CO3m_H2O)/dt = r180*M*CO3m2H2O + r15*M*CO3m*H2O - - j63*CO3m_H2O - r179*M*CO3m_H2O - r14*M*H2O*CO3m_H2O - r16*NO2*CO3m_H2O - r17*NO2*CO3m_H2O + - j64*CO3m_H2O - r179*M*CO3m_H2O - r14*M*H2O*CO3m_H2O - r16*NO2*CO3m_H2O - r17*NO2*CO3m_H2O - r18*NO*CO3m_H2O - r19*NO*CO3m_H2O - r51*O2p*CO3m_H2O - r54*Hp_4H2O*CO3m_H2O - r74*Hp_5H2O*CO3m_H2O - r92*Hp_3H2O*CO3m_H2O - r109*NOp_H2O*CO3m_H2O - r127*NOp_2H2O*CO3m_H2O - r145*NOp*CO3m_H2O - r156*M*Hp_4H2O*CO3m_H2O - r157*M*Hp_5H2O*CO3m_H2O d(CO4m)/dt = r212*M*CO2*O2m + r231*CO2*O4m - - j64*CO4m - r23*CL*CO4m - r24*CLO*CO4m - r25*H*CO4m - r26*HCL*CO4m - r27*O*CO4m - r28*O3*CO4m + - j65*CO4m - r23*CL*CO4m - r24*CLO*CO4m - r25*H*CO4m - r26*HCL*CO4m - r27*O*CO4m - r28*O3*CO4m - r47*O2p*CO4m - r70*Hp_5H2O*CO4m - r87*Hp_3H2O*CO4m - r105*NOp_H2O*CO4m - r121*Hp_4H2O*CO4m - r123*NOp_2H2O*CO4m - r140*NOp*CO4m - d(e)/dt = j67*N2 + j69*N2 + j70*N2 + j71*N2 + j72*N2 + j73*N2 + j16*NO + j65*N + j74*NO2m + j75*NO3m - + j76*O + j77*O + j78*O + j79*O + j80*O + j81*O + j82*O2 + j83*O2 + j84*O2 + j86*O2 + j87*O2 - + j88*O2 + j90*O2 + j91*O2 + j92*O2m + j94*O3m + j97*OHm + j98*Om + r33*N2*O2m + r254*M*Om + d(e)/dt = j67*N2 + j68*N2 + j69*N2 + j70*N2 + j71*N2 + j74*N2 + j16*NO + j66*N + j75*NO2m + j76*NO3m + + j77*O + j78*O + j79*O + j80*O + j81*O + j82*O + j83*O2 + j84*O2 + j85*O2 + j86*O2 + j87*O2 + + j90*O2 + j91*O2 + j92*O2 + j93*O2m + j96*O3m + j98*OHm + j99*Om + r33*N2*O2m + r254*M*Om + r1*CLm*H + r32*NO*Om + r213*H*O2m + r217*O2_1D*O2m + r220*O*O2m + r228*O3*O3m + r229*O3m*O + r240*H*OHm + r243*OHm*O + r249*H2*Om + r256*Om*O + r257*Om*O2_1D - r29*N2*O2*e - r30*O3*e - r31*M*O2*e - r34*H3Op_OH*e - r37*Hp_4H2O*e - r40*Hp_5H2O*e - r199*NOp_2H2O*e - r200*NOp_3H2O*e - r202*NOp_CO2*e - r204*NOp_H2O*e - r222*O2p_H2O*e - - r276*O4p*e - r277*Hp_H2O*e - r278*Hp_2H2O*e - r279*Hp_3H2O*e - r280*NOp_N2*e - r476*NOp*e - - r477*O2p*e - r478*N2p*e + - r276*O4p*e - r277*Hp_H2O*e - r278*Hp_2H2O*e - r279*Hp_3H2O*e - r280*NOp_N2*e - r479*NOp*e + - r480*O2p*e - r481*N2p*e d(H3Op_OH)/dt = r223*O2p_H2O*H2O - r34*e*H3Op_OH - r35*H2O*H3Op_OH d(HCO3m)/dt = r239*M*CO2*OHm @@ -1293,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 @@ -1328,13 +1358,13 @@ Extraneous prod/loss species - r166*M*NO3mHNO3*Hp_5H2O d(Hp_H2O)/dt = r269*M*Hp_2H2O + r205*H*NOp_H2O + r206*NOp_H2O*HO2 + r207*NOp_H2O*OH + r224*O2p_H2O*H2O - r268*M*H2O*Hp_H2O - r277*e*Hp_H2O - d(N2D)/dt = 1.2*j66*N2 + 1.2*j68*N2 + j69*N2 + j70*N2 + .8*r476*NOp*e + .9*r478*N2p*e + r480*N2p*O - - r320*O*N2D - r321*O2*N2D - d(N2p)/dt = j67*N2 + j71*N2 - - r478*e*N2p - r479*O2*N2p - r480*O*N2p - r481*O*N2p + d(N2D)/dt = j68*N2 + j71*N2 + 1.2*j72*N2 + 1.2*j73*N2 + .8*r479*NOp*e + .9*r481*N2p*e + r483*N2p*O + - r320*O*N2D - r321*O2*N2D - r493*Op*N2D + d(N2p)/dt = j67*N2 + j74*N2 + r496*N2*Op2D + r501*N2*Op2P + - r481*e*N2p - r482*O2*N2p - r483*O*N2p - r484*O*N2p d(NO2m)/dt = r169*M*NO2m_H2O + r6*CLm*NO2 + r7*CLOm*NO + r19*CO3m_H2O*NO + r174*NO2*O3m + r175*NO*O3m + r176*CO3m*NO + r197*NO3m*O + r198*O3*NO3m + r216*NO2*O2m + r242*NO2*OHm + r255*NO2*Om - - j74*NO2m - r57*O2p*NO2m - r62*Hp_4H2O*NO2m - r80*Hp_5H2O*NO2m - r97*Hp_3H2O*NO2m + - j75*NO2m - r57*O2p*NO2m - r62*Hp_4H2O*NO2m - r80*Hp_5H2O*NO2m - r97*Hp_3H2O*NO2m - r115*NOp_H2O*NO2m - r133*NOp_2H2O*NO2m - r150*NOp*NO2m - r181*CL*NO2m - r182*CLO*NO2m - r183*H*NO2m - r184*M*H2O*NO2m - r185*HCL*NO2m - r186*HNO3*NO2m - r187*NO2*NO2m - r188*O3*NO2m d(NO2m_H2O)/dt = r18*CO3m_H2O*NO + r184*M*NO2m*H2O @@ -1343,7 +1373,7 @@ Extraneous prod/loss species d(NO3m)/dt = r171*M*NO3mHNO3 + r178*M*NO3m_H2O + r5*CLm*HNO3 + r16*CO3m_H2O*NO2 + r20*CO3m*HNO3 + r168*NO*O3m + r173*NO2*O3m + r177*CO3m*NO2 + r186*HNO3*NO2m + r187*NO2*NO2m + r188*NO2m*O3 + r215*O2m*HNO3 + r253*Om*HNO3 - - j75*NO3m - r44*O2p*NO3m - r67*Hp_5H2O*NO3m - r84*Hp_3H2O*NO3m - r88*Hp_4H2O*NO3m + - j76*NO3m - r44*O2p*NO3m - r67*Hp_5H2O*NO3m - r84*Hp_3H2O*NO3m - r88*Hp_4H2O*NO3m - r102*NOp_H2O*NO3m - r119*NOp_2H2O*NO3m - r137*NOp*NO3m - r160*M*Hp_4H2O*NO3m - r162*M*Hp_5H2O*NO3m - r172*M*HCL*NO3m - r192*M*H2O*NO3m - r194*HCL*NO3m - r196*M*HNO3*NO3m - r197*O*NO3m - r198*O3*NO3m @@ -1364,12 +1394,12 @@ Extraneous prod/loss species - r171*M*NO3mHNO3 - r42*Hp_4H2O*NO3mHNO3 - r63*Hp_5H2O*NO3mHNO3 - r81*Hp_3H2O*NO3mHNO3 - r98*NOp_H2O*NO3mHNO3 - r116*NOp_2H2O*NO3mHNO3 - r134*NOp*NO3mHNO3 - r151*O2p*NO3mHNO3 - r165*M*Hp_4H2O*NO3mHNO3 - r166*M*Hp_5H2O*NO3mHNO3 - d(NOp)/dt = j16*NO + r265*M*NOp_CO2 + r267*M*NOp_N2 + r486*N2*O2p + r489*N2*Op + r480*N2p*O + r484*Np*O2 - + r485*O2p*N + r487*O2p*NO + d(NOp)/dt = j16*NO + r265*M*NOp_CO2 + r267*M*NOp_N2 + r489*N2*O2p + r492*N2*Op + r483*N2p*O + r487*Np*O2 + + r488*O2p*N + r490*O2p*NO - r266*N2*M*NOp - r134*NO3mHNO3*NOp - r135*CO3m*NOp - r136*CLm_HCL*NOp - r137*NO3m*NOp - r138*HCO3m*NOp - r139*O2m*NOp - r140*CO4m*NOp - r141*NO3m_H2O*NOp - r142*CO3m2H2O*NOp - r144*CLm*NOp - r145*CO3m_H2O*NOp - r146*NO2m_H2O*NOp - r147*NO3m_HCL*NOp - r148*CLm_H2O*NOp - - r149*NO3m2H2O*NOp - r150*NO2m*NOp - r261*M*H2O*NOp - r264*M*CO2*NOp - r476*e*NOp + - r149*NO3m2H2O*NOp - r150*NO2m*NOp - r261*M*H2O*NOp - r264*M*CO2*NOp - r479*e*NOp d(NOp_2H2O)/dt = r262*M*H2O*NOp_H2O - r116*NO3mHNO3*NOp_2H2O - r117*CO3m*NOp_2H2O - r118*CLm_HCL*NOp_2H2O - r119*NO3m*NOp_2H2O - r120*HCO3m*NOp_2H2O - r122*O2m*NOp_2H2O - r123*CO4m*NOp_2H2O - r124*NO3m_H2O*NOp_2H2O @@ -1388,42 +1418,35 @@ Extraneous prod/loss species - r204*e*NOp_H2O - r205*H*NOp_H2O - r206*HO2*NOp_H2O - r207*OH*NOp_H2O - r262*M*H2O*NOp_H2O d(NOp_N2)/dt = r266*N2*M*NOp - r267*M*NOp_N2 - r208*CO2*NOp_N2 - r209*H2O*NOp_N2 - r280*e*NOp_N2 - d(Np)/dt = j69*N2 + j70*N2 + j72*N2 + j73*N2 + j65*N - - r482*O*Np - r483*O2*Np - r484*O2*Np - d(O1D)/dt = j1*H2O + j6*O2 + j7*O3 + j13*N2O + r321*N2D*O2 + .85*r477*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(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(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 d(O2_1S)/dt = r288*O1D*O2 - r284*O2_1S - r295*N2*O2_1S - r294*CO2*O2_1S - r296*O*O2_1S - r297*O2*O2_1S - r298*O3*O2_1S - d(O2m)/dt = j64*CO4m + j96*O4m + r21*CO3m*O + r29*N2*e*O2 + r31*M*O2*e + r230*O*O3m - - j92*O2m - r33*N2*O2m - r46*O2p*O2m - r69*Hp_5H2O*O2m - r86*Hp_3H2O*O2m - r104*NOp_H2O*O2m + d(O2m)/dt = j65*CO4m + j97*O4m + r21*CO3m*O + r29*N2*e*O2 + r31*M*O2*e + r230*O*O3m + - j93*O2m - r33*N2*O2m - r46*O2p*O2m - r69*Hp_5H2O*O2m - r86*Hp_3H2O*O2m - r104*NOp_H2O*O2m - r110*Hp_4H2O*O2m - r122*NOp_2H2O*O2m - r139*NOp*O2m - r210*CL*O2m - r211*CLO*O2m - r212*M*CO2*O2m - r213*H*O2m - r214*HCL*O2m - r215*HNO3*O2m - r216*NO2*O2m - r217*O2_1D*O2m - r218*M*O2*O2m - r219*O3*O2m - r220*O*O2m - r221*O*O2m - d(O2p)/dt = j83*O2 + j87*O2 + j93*O2p_H2O + 2*r46*O2m*O2p + r234*O4p*O + r235*O4p*O2_1D + r479*N2p*O2 - + r483*Np*O2 + r488*Op*CO2 + r490*Op*O2 - - r486*N2*O2p - r44*NO3m*O2p - r45*HCO3m*O2p - r46*O2m*O2p - r47*CO4m*O2p - r48*NO3m_H2O*O2p + d(O2p)/dt = j84*O2 + j86*O2 + j94*O2p_H2O + 2*r46*O2m*O2p + r234*O4p*O + r235*O4p*O2_1D + r482*N2p*O2 + + r486*Np*O2 + r491*Op*CO2 + r494*Op*O2 + r498*Op2D*O2 + - r489*N2*O2p - r44*NO3m*O2p - r45*HCO3m*O2p - r46*O2m*O2p - r47*CO4m*O2p - r48*NO3m_H2O*O2p - r49*CO3m2H2O*O2p - r50*CLm*O2p - r51*CO3m_H2O*O2p - r52*NO2m_H2O*O2p - r53*NO3m_HCL*O2p - r55*CLm_H2O*O2p - r56*NO3m2H2O*O2p - r57*NO2m*O2p - r151*NO3mHNO3*O2p - r152*CO3m*O2p - - r153*CLm_HCL*O2p - r225*M*H2O*O2p - r260*M*O2*O2p - r477*e*O2p - r485*N*O2p - r487*NO*O2p + - r153*CLm_HCL*O2p - r225*M*H2O*O2p - r260*M*O2*O2p - r480*e*O2p - r488*N*O2p - r490*NO*O2p d(O2p_H2O)/dt = r225*M*H2O*O2p + r233*H2O*O4p - - j93*O2p_H2O - r222*e*O2p_H2O - r223*H2O*O2p_H2O - r224*H2O*O2p_H2O + - j94*O2p_H2O - r222*e*O2p_H2O - r223*H2O*O2p_H2O - r224*H2O*O2p_H2O d(O3m)/dt = r22*O2*CO3m + r28*CO4m*O3 + r219*O3*O2m + r232*O*O4m + r244*OHm*O3 + r258*M*Om*O2 + r259*O3*Om - - j94*O3m - j95*O3m - r168*NO*O3m - r173*NO2*O3m - r174*NO2*O3m - r175*NO*O3m - r226*CO2*O3m + - j95*O3m - j96*O3m - r168*NO*O3m - r173*NO2*O3m - r174*NO2*O3m - r175*NO*O3m - r226*CO2*O3m - r227*H*O3m - r228*O3*O3m - r229*O*O3m - r230*O*O3m d(O4m)/dt = r218*M*O2*O2m - - j96*O4m - r231*CO2*O4m - r232*O*O4m + - j97*O4m - r231*CO2*O4m - r232*O*O4m d(O4p)/dt = r260*M*O2p*O2 - r233*H2O*O4p - r234*O*O4p - r235*O2_1D*O4p - r276*e*O4p d(OH)/dt = j3*H2O + 2*j4*H2O2 + j9*HNO3 + j10*HO2NO2 + j12*HONO + j23*CH3OOH + .33*j25*CH4 + j58*HOBR - + j59*HOCL + j97*OHm + .5*r457*NO2 + r20*CO3m*HNO3 + r25*CO4m*H + r34*H3Op_OH*e + + j59*HOCL + j98*OHm + .5*r457*NO2 + r20*CO3m*HNO3 + r25*CO4m*H + r34*H3Op_OH*e + r35*H2O*H3Op_OH + r45*HCO3m*O2p + r68*HCO3m*Hp_5H2O + r85*HCO3m*Hp_3H2O + r99*HCO3m*Hp_4H2O + r103*HCO3m*NOp_H2O + r120*HCO3m*NOp_2H2O + r138*NOp*HCO3m + r224*O2p_H2O*H2O + r237*CL*OHm + r238*CLO*OHm + r242*NO2*OHm + r244*OHm*O3 + r251*Om*H2O + r252*Om*HCL + r253*Om*HNO3 @@ -1437,18 +1460,23 @@ 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 - - j97*OHm - r237*CL*OHm - r238*CLO*OHm - r239*M*CO2*OHm - r240*H*OHm - r241*HCL*OHm + - 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 - d(Om)/dt = j62*CO3m + j95*O3m + r30*O3*e + r221*O2m*O - - j98*Om - r254*M*Om - r32*NO*Om - r246*CL*Om - r247*CLO*Om - r248*M*CO2*Om - r249*H2*Om + d(Om)/dt = j63*CO3m + j95*O3m + r30*O3*e + r221*O2m*O + - j99*Om - r254*M*Om - r32*NO*Om - r246*CL*Om - r247*CLO*Om - r248*M*CO2*Om - r249*H2*Om - r250*H2*Om - r251*H2O*Om - r252*HCL*Om - r253*HNO3*Om - r255*NO2*Om - r256*O*Om - r257*O2_1D*Om - r258*M*O2*Om - r259*O3*Om - d(Op)/dt = j76*O + j77*O + j78*O + j79*O + j80*O + j81*O + j82*O2 + j84*O2 + j86*O2 + j88*O2 + j90*O2 - + j91*O2 + r481*N2p*O + r482*Np*O - - r489*N2*Op - r488*CO2*Op - r490*O2*Op - d(H2O)/dt = .05*j25*CH4 + j63*CO3m_H2O + j93*O2p_H2O + j99*H2SO4 + r169*M*NO2m_H2O + r170*M*NO3m2H2O + d(Op)/dt = j77*O + j81*O + j85*O2 + j87*O2 + r476*Op2P + r477*Op2D + r484*N2p*O + r485*Np*O + r495*Op2D*e + + r497*Op2D*O + r500*Op2P*e + r503*Op2P*O + - r492*N2*Op - r491*CO2*Op - r493*N2D*Op - r494*O2*Op + d(Op2D)/dt = j78*O + j82*O + j83*O2 + j92*O2 + r478*Op2P + r499*Op2P*e + - r477*Op2D - r496*N2*Op2D - r495*e*Op2D - r497*O*Op2D - r498*O2*Op2D + d(Op2P)/dt = j79*O + j80*O + j90*O2 + j91*O2 + - r476*Op2P - r478*Op2P - r501*N2*Op2P - r502*N2*Op2P - r499*e*Op2P - r500*e*Op2P + - r503*O*Op2P + d(H2O)/dt = .05*j25*CH4 + j64*CO3m_H2O + j94*O2p_H2O + j100*H2SO4 + r169*M*NO2m_H2O + r170*M*NO3m2H2O + r178*M*NO3m_H2O + r179*M*CO3m_H2O + r180*M*CO3m2H2O + r269*M*Hp_2H2O + r271*M*Hp_3H2O + r273*M*Hp_4H2O + r275*M*Hp_5H2O + r281*M*CLm_H2O + r2*CLm_H2O*HCL + r16*CO3m_H2O*NO2 + r19*CO3m_H2O*NO + r34*H3Op_OH*e + 4*r37*Hp_4H2O*e + 5*r40*Hp_5H2O*e + 4*r42*Hp_4H2O*NO3mHNO3 @@ -1492,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 a9aa3cb8a7..c818594318 100644 --- a/src/chemistry/pp_waccm_mad_mam4/chem_mech.in +++ b/src/chemistry/pp_waccm_mad_mam4/chem_mech.in @@ -1,21 +1,18 @@ * Comments -* User-given Tag Description: WACCM_MAD_MAM4_1 -* Tag database identifier : MZ233_WACCM_MAD_MAM4_20181001 -* Tag created by : ajc -* Tag created from branch : WACCM_MAD_MAM4 -* Tag created on : 2018-10-01 13:24:56.175929-06 +* 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 : 2021-01-22 14:51:29.491442-07 * Comments for this tag follow: -* ajc : 2018-10-01 : Update reaction rates to jpl15 -* Remove H1202 -* CO2 explicit solve -* O1D_N2 cph update -* Update Machine Specifications +* 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, @@ -37,6 +34,7 @@ CH3OOH, CH4, CHBR3 -> CHBr3, + CL -> Cl, CL2 -> Cl2, CL2O2 -> Cl2O2, CLO -> ClO, @@ -81,6 +79,7 @@ num_a3 -> H, num_a4 -> H, O, + O1D -> O, O2, O3, OCLO -> OClO, @@ -88,6 +87,7 @@ pom_a1 -> C, pom_a4 -> C, S -> S, + SF6, SO -> SO, SO2, SO3 -> SO3, @@ -97,8 +97,6 @@ soa_a1 -> C, soa_a2 -> C, SOAG -> C, - BR -> Br, - CL -> Cl, CLm -> Cl, CLm_H2O -> ClH2O, CLm_HCL -> Cl2H, @@ -134,7 +132,6 @@ NOp_H2O -> H2NO2, NOp_N2 -> N3O, Np -> N, - O1D -> O, O2_1D -> O2, O2_1S -> O2, O2m -> O2, @@ -147,6 +144,8 @@ OHm -> OH, Om -> O, Op -> O, + Op2D -> O, + Op2P -> O, H2O End Solution @@ -162,8 +161,6 @@ End Col-int Not-Transported - BR, - CL, CLm, CLm_H2O, CLm_HCL, @@ -211,7 +208,9 @@ OH, OHm, Om, - Op + Op, + Op2D, + Op2P End Not-Transported END Species @@ -241,17 +240,20 @@ HCFC142B HCFC22 N2O + SF6 End Explicit Implicit bc_a1 bc_a4 + BR BRCL BRO BRONO2 CH2O CH3O2 CH3OOH + CL CL2 CL2O2 CLO @@ -289,6 +291,7 @@ num_a3 num_a4 O + O1D O2 O3 OCLO @@ -305,8 +308,6 @@ soa_a1 soa_a2 SOAG - BR - CL CLm CLm_H2O CLm_HCL @@ -342,7 +343,6 @@ NOp_H2O NOp_N2 Np - O1D O2_1D O2_1S O2m @@ -355,6 +355,8 @@ OHm Om Op + Op2D + Op2P H2O End Implicit @@ -366,682 +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 +[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 -> Op + e -[jeuv_1=userdefined,userdefined] O + hv -> Op + e -[jeuv_14=userdefined,userdefined] O + hv -> Op + e -[jeuv_15=userdefined,userdefined] O + hv -> Op + e -[jeuv_2=userdefined,userdefined] O + hv -> Op + e -[jeuv_3=userdefined,userdefined] O + hv -> Op + e -[jeuv_21=userdefined,userdefined] O2 + hv -> O + Op + e -[jeuv_17=userdefined,userdefined] O2 + hv -> O2p + e -[jeuv_9=userdefined,userdefined] O2 + hv -> O + Op + 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_12=userdefined,userdefined] O2 + hv -> 2*O -[jeuv_20=userdefined,userdefined] O2 + hv -> O + Op + e -[jeuv_8=userdefined,userdefined] O2 + hv -> O + Op + e -[jepn2=userdefined] O2m + hv -> O2 + e -[jppi=userdefined] O2p_H2O + hv -> H2O + O2p -[jepn3=userdefined] O3m + hv -> O3 + e -[jpni1=userdefined] O3m + hv -> O2 + Om -[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 ********************************* -[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_O2,cph=150.11] Op + O2 -> O2p + O +[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 @@ -1049,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 abe62349c2..2156777ed9 100644 --- a/src/chemistry/pp_waccm_mad_mam4/chem_mods.F90 +++ b/src/chemistry/pp_waccm_mad_mam4/chem_mods.F90 @@ -5,26 +5,26 @@ module chem_mods use shr_kind_mod, only : r8 => shr_kind_r8 implicit none save - integer, parameter :: phtcnt = 103, & ! number of photolysis reactions - rxntot = 593, & ! number of total reactions - gascnt = 490, & ! number of gas phase reactions + integer, parameter :: phtcnt = 104, & ! number of photolysis reactions + rxntot = 607, & ! number of total reactions + gascnt = 503, & ! number of gas phase reactions nabscol = 2, & ! number of absorbing column densities - gas_pcnst = 134, & ! number of "gas phase" species + gas_pcnst = 137, & ! number of "gas phase" species nfs = 2, & ! number of "fixed" species relcnt = 0, & ! number of relationship species grpcnt = 0, & ! number of group members - nzcnt = 1828, & ! number of non-zero matrix entries + nzcnt = 1856, & ! number of non-zero matrix entries extcnt = 23, & ! 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 = 112, & ! number of species in implicit class + clscnt4 = 114, & ! 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 = 593, & - enthalpy_cnt = 41, & + rxt_tag_cnt = 607, & + enthalpy_cnt = 54, & nslvd = 50 integer :: clscnt(5) = 0 integer :: cls_rxt_cnt(4,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 febbcc71c2..063462832c 100644 --- a/src/chemistry/pp_waccm_mad_mam4/m_rxt_id.F90 +++ b/src/chemistry/pp_waccm_mad_mam4/m_rxt_id.F90 @@ -60,537 +60,551 @@ module m_rxt_id integer, parameter :: rid_jhobr = 58 integer, parameter :: rid_jhocl = 59 integer, parameter :: rid_joclo = 60 - integer, parameter :: rid_jeuv_26 = 61 - integer, parameter :: rid_jpni3 = 62 - integer, parameter :: rid_jpni5 = 63 - integer, parameter :: rid_jpni4 = 64 - integer, parameter :: rid_jeuv_4 = 65 - integer, parameter :: rid_jeuv_25 = 66 + integer, parameter :: rid_jsf6 = 61 + integer, parameter :: rid_jeuv_26 = 62 + integer, parameter :: rid_jpni3 = 63 + integer, parameter :: rid_jpni5 = 64 + integer, parameter :: rid_jpni4 = 65 + integer, parameter :: rid_jeuv_4 = 66 integer, parameter :: rid_jeuv_18 = 67 - integer, parameter :: rid_jeuv_13 = 68 - integer, parameter :: rid_jeuv_23 = 69 - integer, parameter :: rid_jeuv_11 = 70 - integer, parameter :: rid_jeuv_6 = 71 - integer, parameter :: rid_jeuv_10 = 72 - integer, parameter :: rid_jeuv_22 = 73 - integer, parameter :: rid_jepn6 = 74 - integer, parameter :: rid_jepn7 = 75 - integer, parameter :: rid_jeuv_16 = 76 + integer, parameter :: rid_jeuv_11 = 68 + integer, parameter :: rid_jeuv_10 = 69 + integer, parameter :: rid_jeuv_22 = 70 + integer, parameter :: rid_jeuv_23 = 71 + integer, parameter :: rid_jeuv_25 = 72 + integer, parameter :: rid_jeuv_13 = 73 + integer, parameter :: rid_jeuv_6 = 74 + integer, parameter :: rid_jepn6 = 75 + integer, parameter :: rid_jepn7 = 76 integer, parameter :: rid_jeuv_1 = 77 - integer, parameter :: rid_jeuv_14 = 78 - integer, parameter :: rid_jeuv_15 = 79 - integer, parameter :: rid_jeuv_2 = 80 - integer, parameter :: rid_jeuv_3 = 81 - integer, parameter :: rid_jeuv_21 = 82 - integer, parameter :: rid_jeuv_17 = 83 - integer, parameter :: rid_jeuv_9 = 84 - integer, parameter :: rid_jeuv_24 = 85 - integer, parameter :: rid_jeuv_19 = 86 - integer, parameter :: rid_jeuv_5 = 87 - integer, parameter :: rid_jeuv_7 = 88 + integer, parameter :: rid_jeuv_2 = 78 + integer, parameter :: rid_jeuv_16 = 79 + integer, parameter :: rid_jeuv_3 = 80 + integer, parameter :: rid_jeuv_14 = 81 + integer, parameter :: rid_jeuv_15 = 82 + integer, parameter :: rid_jeuv_8 = 83 + integer, parameter :: rid_jeuv_17 = 84 + integer, parameter :: rid_jeuv_7 = 85 + integer, parameter :: rid_jeuv_5 = 86 + integer, parameter :: rid_jeuv_19 = 87 + integer, parameter :: rid_jeuv_24 = 88 integer, parameter :: rid_jeuv_12 = 89 - integer, parameter :: rid_jeuv_20 = 90 - integer, parameter :: rid_jeuv_8 = 91 - integer, parameter :: rid_jepn2 = 92 - integer, parameter :: rid_jppi = 93 - integer, parameter :: rid_jepn3 = 94 + integer, parameter :: rid_jeuv_21 = 90 + integer, parameter :: rid_jeuv_9 = 91 + integer, parameter :: rid_jeuv_20 = 92 + integer, parameter :: rid_jepn2 = 93 + integer, parameter :: rid_jppi = 94 integer, parameter :: rid_jpni1 = 95 - integer, parameter :: rid_jpni2 = 96 - integer, parameter :: rid_jepn4 = 97 - integer, parameter :: rid_jepn1 = 98 - integer, parameter :: rid_jh2so4 = 99 - integer, parameter :: rid_jocs = 100 - integer, parameter :: rid_jso = 101 - integer, parameter :: rid_jso2 = 102 - integer, parameter :: rid_jso3 = 103 - integer, parameter :: rid_CLm_H = 104 - integer, parameter :: rid_CLmH2O_HCL = 105 - integer, parameter :: rid_CLm_H2O_Ma = 106 - integer, parameter :: rid_CLmHCL_M = 107 - integer, parameter :: rid_CLm_HNO3 = 108 - integer, parameter :: rid_CLm_NO2 = 109 - integer, parameter :: rid_CLOm_NOa = 110 - integer, parameter :: rid_CLOm_NOb = 111 - integer, parameter :: rid_CLOm_O = 112 - integer, parameter :: rid_CO3m_CLa = 113 - integer, parameter :: rid_CO3m_CLb = 114 - integer, parameter :: rid_CO3m_CLO = 115 - integer, parameter :: rid_CO3m_H = 116 - integer, parameter :: rid_CO3mH2O_H2O_M = 117 - integer, parameter :: rid_CO3m_H2O_M = 118 - integer, parameter :: rid_CO3mH2O_NO2a = 119 - integer, parameter :: rid_CO3mH2O_NO2b = 120 - integer, parameter :: rid_CO3mH2O_NOa = 121 - integer, parameter :: rid_CO3mH2O_NOb = 122 - integer, parameter :: rid_CO3m_HNO3 = 123 - integer, parameter :: rid_CO3m_O = 124 - integer, parameter :: rid_CO3m_O2 = 125 - integer, parameter :: rid_CO4m_CL = 126 - integer, parameter :: rid_CO4m_CLO = 127 - integer, parameter :: rid_CO4m_H = 128 - integer, parameter :: rid_CO4m_HCL = 129 - integer, parameter :: rid_CO4m_O = 130 - integer, parameter :: rid_CO4m_O3 = 131 - integer, parameter :: rid_ean1 = 132 - integer, parameter :: rid_ean2 = 133 - integer, parameter :: rid_ean3 = 134 - integer, parameter :: rid_edn1 = 135 - integer, parameter :: rid_edn2 = 136 - integer, parameter :: rid_H3OpOH_e = 137 - integer, parameter :: rid_H3OpOH_H2O = 138 - integer, parameter :: rid_Hp3N1_H2O = 139 - integer, parameter :: rid_Hp4H2O_e = 140 - integer, parameter :: rid_Hp4H2O_N2O5 = 141 - integer, parameter :: rid_Hp4N1_H2O = 142 - integer, parameter :: rid_Hp5H2O_e = 143 - integer, parameter :: rid_Hp5H2O_N2O5 = 144 - integer, parameter :: rid_iira1 = 145 - integer, parameter :: rid_iira10 = 146 - integer, parameter :: rid_iira100 = 147 - integer, parameter :: rid_iira101 = 148 - integer, parameter :: rid_iira102 = 149 - integer, parameter :: rid_iira103 = 150 - integer, parameter :: rid_iira104 = 151 - integer, parameter :: rid_iira105 = 152 - integer, parameter :: rid_iira106 = 153 - integer, parameter :: rid_iira107 = 154 - integer, parameter :: rid_iira108 = 155 - integer, parameter :: rid_iira109 = 156 - integer, parameter :: rid_iira11 = 157 - integer, parameter :: rid_iira110 = 158 - integer, parameter :: rid_iira111 = 159 - integer, parameter :: rid_iira112 = 160 - integer, parameter :: rid_iira12 = 161 - integer, parameter :: rid_iira13 = 162 - integer, parameter :: rid_iira14 = 163 - integer, parameter :: rid_iira15 = 164 - integer, parameter :: rid_iira16 = 165 - integer, parameter :: rid_iira17 = 166 - integer, parameter :: rid_iira18 = 167 - integer, parameter :: rid_iira19 = 168 - integer, parameter :: rid_iira2 = 169 - integer, parameter :: rid_iira20 = 170 - integer, parameter :: rid_iira21 = 171 - integer, parameter :: rid_iira22 = 172 - integer, parameter :: rid_iira23 = 173 - integer, parameter :: rid_iira24 = 174 - integer, parameter :: rid_iira25 = 175 - integer, parameter :: rid_iira26 = 176 - integer, parameter :: rid_iira27 = 177 - integer, parameter :: rid_iira28 = 178 - integer, parameter :: rid_iira29 = 179 - integer, parameter :: rid_iira3 = 180 - integer, parameter :: rid_iira30 = 181 - integer, parameter :: rid_iira31 = 182 - integer, parameter :: rid_iira32 = 183 - integer, parameter :: rid_iira33 = 184 - integer, parameter :: rid_iira34 = 185 - integer, parameter :: rid_iira35 = 186 - integer, parameter :: rid_iira36 = 187 - integer, parameter :: rid_iira37 = 188 - integer, parameter :: rid_iira38 = 189 - integer, parameter :: rid_iira39 = 190 - integer, parameter :: rid_iira4 = 191 - integer, parameter :: rid_iira40 = 192 - integer, parameter :: rid_iira41 = 193 - integer, parameter :: rid_iira42 = 194 - integer, parameter :: rid_iira43 = 195 - integer, parameter :: rid_iira44 = 196 - integer, parameter :: rid_iira45 = 197 - integer, parameter :: rid_iira46 = 198 - integer, parameter :: rid_iira47 = 199 - integer, parameter :: rid_iira48 = 200 - integer, parameter :: rid_iira49 = 201 - integer, parameter :: rid_iira5 = 202 - integer, parameter :: rid_iira50 = 203 - integer, parameter :: rid_iira51 = 204 - integer, parameter :: rid_iira52 = 205 - integer, parameter :: rid_iira53 = 206 - integer, parameter :: rid_iira54 = 207 - integer, parameter :: rid_iira55 = 208 - integer, parameter :: rid_iira56 = 209 - integer, parameter :: rid_iira57 = 210 - integer, parameter :: rid_iira58 = 211 - integer, parameter :: rid_iira59 = 212 - integer, parameter :: rid_iira6 = 213 - integer, parameter :: rid_iira60 = 214 - integer, parameter :: rid_iira61 = 215 - integer, parameter :: rid_iira62 = 216 - integer, parameter :: rid_iira63 = 217 - integer, parameter :: rid_iira64 = 218 - integer, parameter :: rid_iira65 = 219 - integer, parameter :: rid_iira66 = 220 - integer, parameter :: rid_iira67 = 221 - integer, parameter :: rid_iira68 = 222 - integer, parameter :: rid_iira69 = 223 - integer, parameter :: rid_iira7 = 224 - integer, parameter :: rid_iira70 = 225 - integer, parameter :: rid_iira71 = 226 - integer, parameter :: rid_iira72 = 227 - integer, parameter :: rid_iira73 = 228 - integer, parameter :: rid_iira74 = 229 - integer, parameter :: rid_iira75 = 230 - integer, parameter :: rid_iira76 = 231 - integer, parameter :: rid_iira77 = 232 - integer, parameter :: rid_iira78 = 233 - integer, parameter :: rid_iira79 = 234 - integer, parameter :: rid_iira8 = 235 - integer, parameter :: rid_iira80 = 236 - integer, parameter :: rid_iira81 = 237 - integer, parameter :: rid_iira82 = 238 - integer, parameter :: rid_iira83 = 239 - integer, parameter :: rid_iira84 = 240 - integer, parameter :: rid_iira85 = 241 - integer, parameter :: rid_iira86 = 242 - integer, parameter :: rid_iira87 = 243 - integer, parameter :: rid_iira88 = 244 - integer, parameter :: rid_iira89 = 245 - integer, parameter :: rid_iira9 = 246 - integer, parameter :: rid_iira90 = 247 - integer, parameter :: rid_iira91 = 248 - integer, parameter :: rid_iira92 = 249 - integer, parameter :: rid_iira93 = 250 - integer, parameter :: rid_iira94 = 251 - integer, parameter :: rid_iira95 = 252 - integer, parameter :: rid_iira96 = 253 - integer, parameter :: rid_iira97 = 254 - integer, parameter :: rid_iira98 = 255 - integer, parameter :: rid_iira99 = 256 - integer, parameter :: rid_iirb1 = 257 - integer, parameter :: rid_iirb10 = 258 - integer, parameter :: rid_iirb11 = 259 - integer, parameter :: rid_iirb12 = 260 - integer, parameter :: rid_iirb13 = 261 - integer, parameter :: rid_iirb14 = 262 - integer, parameter :: rid_iirb2 = 263 - integer, parameter :: rid_iirb3 = 264 - integer, parameter :: rid_iirb4 = 265 - integer, parameter :: rid_iirb5 = 266 - integer, parameter :: rid_iirb6 = 267 - integer, parameter :: rid_iirb7 = 268 - integer, parameter :: rid_iirb8 = 269 - integer, parameter :: rid_iirb9 = 270 - integer, parameter :: rid_nir1 = 271 - integer, parameter :: rid_nir10 = 272 - integer, parameter :: rid_nir11 = 273 - integer, parameter :: rid_nir12 = 274 - integer, parameter :: rid_nir13 = 275 - integer, parameter :: rid_nir2 = 276 - integer, parameter :: rid_nir3 = 277 - integer, parameter :: rid_nir4 = 278 - integer, parameter :: rid_nir5 = 279 - integer, parameter :: rid_nir6 = 280 - integer, parameter :: rid_nir7 = 281 - integer, parameter :: rid_nir8 = 282 - integer, parameter :: rid_nir9 = 283 - integer, parameter :: rid_NO2m_CL = 284 - integer, parameter :: rid_NO2m_CLO = 285 - integer, parameter :: rid_NO2m_H = 286 - integer, parameter :: rid_NO2m_H2O_M = 287 - integer, parameter :: rid_NO2m_HCL = 288 - integer, parameter :: rid_NO2m_HNO3 = 289 - integer, parameter :: rid_NO2m_NO2 = 290 - integer, parameter :: rid_NO2m_O3 = 291 - integer, parameter :: rid_NO3m2H2O_N2O5 = 292 - integer, parameter :: rid_NO3mH2O_H2O_M = 293 - integer, parameter :: rid_NO3mH2O_HNO3 = 294 - integer, parameter :: rid_NO3m_H2O_M = 295 - integer, parameter :: rid_NO3mH2O_N2O5 = 296 - integer, parameter :: rid_NO3m_HCLa = 297 - integer, parameter :: rid_NO3mHCL_HNO3 = 298 - integer, parameter :: rid_NO3m_HNO3_M = 299 - integer, parameter :: rid_NO3m_O = 300 - integer, parameter :: rid_NO3m_O3 = 301 - integer, parameter :: rid_NOp2H2O_e = 302 - integer, parameter :: rid_NOp3H2O_e = 303 - integer, parameter :: rid_NOp3H2O_H2O = 304 - integer, parameter :: rid_NOpCO2_e = 305 - integer, parameter :: rid_NOpCO2_H2O = 306 - integer, parameter :: rid_NOpH2O_e = 307 - integer, parameter :: rid_NOpH2O_H = 308 - integer, parameter :: rid_NOpH2O_HO2 = 309 - integer, parameter :: rid_NOpH2O_OH = 310 - integer, parameter :: rid_NOpN2_CO2 = 311 - integer, parameter :: rid_NOpN2_H2O = 312 - integer, parameter :: rid_O2m_CL = 313 - integer, parameter :: rid_O2m_CLO = 314 - integer, parameter :: rid_O2m_CO2_M = 315 - integer, parameter :: rid_O2m_H = 316 - integer, parameter :: rid_O2m_HCL = 317 - integer, parameter :: rid_O2m_HNO3 = 318 - integer, parameter :: rid_O2m_NO2 = 319 - integer, parameter :: rid_O2m_O21D = 320 - integer, parameter :: rid_O2m_O2_M = 321 - integer, parameter :: rid_O2m_O3 = 322 - integer, parameter :: rid_O2m_O_a = 323 - integer, parameter :: rid_O2m_O_b = 324 - integer, parameter :: rid_O2pH2O_e = 325 - integer, parameter :: rid_O2pH2O_H2Oa = 326 - integer, parameter :: rid_O2pH2O_H2Ob = 327 - integer, parameter :: rid_O2p_H2O_M = 328 - integer, parameter :: rid_O3m_CO2 = 329 - integer, parameter :: rid_O3m_H = 330 - integer, parameter :: rid_O3m_O3 = 331 - integer, parameter :: rid_O3m_O_a = 332 - integer, parameter :: rid_O3m_O_b = 333 - integer, parameter :: rid_O4m_CO2 = 334 - integer, parameter :: rid_O4m_O = 335 - integer, parameter :: rid_O4p_H2O = 336 - integer, parameter :: rid_O4p_O = 337 - integer, parameter :: rid_O4p_O21D = 338 - integer, parameter :: rid_OH_HONO = 339 - integer, parameter :: rid_OHm_CL = 340 - integer, parameter :: rid_OHm_CLO = 341 - integer, parameter :: rid_OHm_CO2 = 342 - integer, parameter :: rid_OHm_H = 343 - integer, parameter :: rid_OHm_HCL = 344 - integer, parameter :: rid_OHm_NO2 = 345 - integer, parameter :: rid_OHm_O = 346 - integer, parameter :: rid_OHm_O3 = 347 - integer, parameter :: rid_OH_NO_M = 348 - integer, parameter :: rid_Om_CL = 349 - integer, parameter :: rid_Om_CLO = 350 - integer, parameter :: rid_Om_CO2_M = 351 - integer, parameter :: rid_Om_H2_a = 352 - integer, parameter :: rid_Om_H2_b = 353 - integer, parameter :: rid_Om_H2O = 354 - integer, parameter :: rid_Om_HCL = 355 - integer, parameter :: rid_Om_HNO3 = 356 - integer, parameter :: rid_Om_M = 357 - integer, parameter :: rid_Om_NO2 = 358 - integer, parameter :: rid_Om_O = 359 - integer, parameter :: rid_Om_O21D = 360 - integer, parameter :: rid_Om_O2_M = 361 - integer, parameter :: rid_Om_O3 = 362 - integer, parameter :: rid_pir1 = 363 - integer, parameter :: rid_pir10 = 364 - integer, parameter :: rid_pir11 = 365 - integer, parameter :: rid_pir12 = 366 - integer, parameter :: rid_pir13 = 367 - integer, parameter :: rid_pir14 = 368 - integer, parameter :: rid_pir15 = 369 - integer, parameter :: rid_pir16 = 370 - integer, parameter :: rid_pir2 = 371 - integer, parameter :: rid_pir3 = 372 - integer, parameter :: rid_pir4 = 373 - integer, parameter :: rid_pir5 = 374 - integer, parameter :: rid_pir6 = 375 - integer, parameter :: rid_pir7 = 376 - integer, parameter :: rid_pir8 = 377 - integer, parameter :: rid_pir9 = 378 - integer, parameter :: rid_rpe1 = 379 - integer, parameter :: rid_rpe2 = 380 - integer, parameter :: rid_rpe3 = 381 - integer, parameter :: rid_rpe4 = 382 - integer, parameter :: rid_rpe5 = 383 - integer, parameter :: rid_usr_CLm_H2O_M = 384 - integer, parameter :: rid_usr_CLm_HCL_M = 385 - integer, parameter :: rid_ag1 = 386 - integer, parameter :: rid_ag2 = 387 - integer, parameter :: rid_O1D_H2 = 388 - integer, parameter :: rid_O1D_H2O = 389 - integer, parameter :: rid_O1D_N2 = 390 - integer, parameter :: rid_O1D_O2 = 391 - integer, parameter :: rid_O1D_O2b = 392 - integer, parameter :: rid_O1D_O3 = 393 - integer, parameter :: rid_O2_1D_N2 = 394 - integer, parameter :: rid_O2_1D_O = 395 - integer, parameter :: rid_O2_1D_O2 = 396 - integer, parameter :: rid_O2_1S_CO2 = 397 - integer, parameter :: rid_O2_1S_N2 = 398 - integer, parameter :: rid_O2_1S_O = 399 - integer, parameter :: rid_O2_1S_O2 = 400 - integer, parameter :: rid_O2_1S_O3 = 401 - integer, parameter :: rid_O_O3 = 402 - integer, parameter :: rid_usr_O_O = 403 - integer, parameter :: rid_usr_O_O2 = 404 - integer, parameter :: rid_H2_O = 405 - integer, parameter :: rid_H2O2_O = 406 - integer, parameter :: rid_H_HO2 = 407 - integer, parameter :: rid_H_HO2a = 408 - integer, parameter :: rid_H_HO2b = 409 - integer, parameter :: rid_H_O2 = 410 - integer, parameter :: rid_HO2_O = 411 - integer, parameter :: rid_HO2_O3 = 412 - integer, parameter :: rid_H_O3 = 413 - integer, parameter :: rid_OH_H2 = 414 - integer, parameter :: rid_OH_H2O2 = 415 - integer, parameter :: rid_OH_HO2 = 416 - integer, parameter :: rid_OH_O = 417 - integer, parameter :: rid_OH_O3 = 418 - integer, parameter :: rid_OH_OH = 419 - integer, parameter :: rid_OH_OH_M = 420 - integer, parameter :: rid_usr_HO2_HO2 = 421 - integer, parameter :: rid_HO2NO2_OH = 422 - integer, parameter :: rid_N2D_O = 423 - integer, parameter :: rid_N2D_O2 = 424 - integer, parameter :: rid_N_NO = 425 - integer, parameter :: rid_N_NO2a = 426 - integer, parameter :: rid_N_NO2b = 427 - integer, parameter :: rid_N_NO2c = 428 - integer, parameter :: rid_N_O2 = 429 - integer, parameter :: rid_NO2_O = 430 - integer, parameter :: rid_NO2_O3 = 431 - integer, parameter :: rid_NO2_O_M = 432 - integer, parameter :: rid_NO3_HO2 = 433 - integer, parameter :: rid_NO3_NO = 434 - integer, parameter :: rid_NO3_O = 435 - integer, parameter :: rid_NO3_OH = 436 - integer, parameter :: rid_N_OH = 437 - integer, parameter :: rid_NO_HO2 = 438 - integer, parameter :: rid_NO_O3 = 439 - integer, parameter :: rid_NO_O_M = 440 - integer, parameter :: rid_O1D_N2Oa = 441 - integer, parameter :: rid_O1D_N2Ob = 442 - integer, parameter :: rid_tag_NO2_HO2 = 443 - integer, parameter :: rid_tag_NO2_NO3 = 444 - integer, parameter :: rid_tag_NO2_OH = 445 - integer, parameter :: rid_usr_HNO3_OH = 446 - integer, parameter :: rid_usr_HO2NO2_M = 447 - integer, parameter :: rid_usr_N2O5_M = 448 - integer, parameter :: rid_CL_CH2O = 449 - integer, parameter :: rid_CL_CH4 = 450 - integer, parameter :: rid_CL_H2 = 451 - integer, parameter :: rid_CL_H2O2 = 452 - integer, parameter :: rid_CL_HO2a = 453 - integer, parameter :: rid_CL_HO2b = 454 - integer, parameter :: rid_CL_O3 = 455 - integer, parameter :: rid_CLO_CH3O2 = 456 - integer, parameter :: rid_CLO_CLOa = 457 - integer, parameter :: rid_CLO_CLOb = 458 - integer, parameter :: rid_CLO_CLOc = 459 - integer, parameter :: rid_CLO_HO2 = 460 - integer, parameter :: rid_CLO_NO = 461 - integer, parameter :: rid_CLONO2_CL = 462 - integer, parameter :: rid_CLO_NO2_M = 463 - integer, parameter :: rid_CLONO2_O = 464 - integer, parameter :: rid_CLONO2_OH = 465 - integer, parameter :: rid_CLO_O = 466 - integer, parameter :: rid_CLO_OHa = 467 - integer, parameter :: rid_CLO_OHb = 468 - integer, parameter :: rid_HCL_O = 469 - integer, parameter :: rid_HCL_OH = 470 - integer, parameter :: rid_HOCL_CL = 471 - integer, parameter :: rid_HOCL_O = 472 - integer, parameter :: rid_HOCL_OH = 473 - integer, parameter :: rid_O1D_CCL4 = 474 - integer, parameter :: rid_O1D_CF2CLBR = 475 - integer, parameter :: rid_O1D_CFC11 = 476 - integer, parameter :: rid_O1D_CFC113 = 477 - integer, parameter :: rid_O1D_CFC114 = 478 - integer, parameter :: rid_O1D_CFC115 = 479 - integer, parameter :: rid_O1D_CFC12 = 480 - integer, parameter :: rid_O1D_HCLa = 481 - integer, parameter :: rid_O1D_HCLb = 482 - integer, parameter :: rid_tag_CLO_CLO_M = 483 - integer, parameter :: rid_usr_CL2O2_M = 484 - integer, parameter :: rid_BR_CH2O = 485 - integer, parameter :: rid_BR_HO2 = 486 - integer, parameter :: rid_BR_O3 = 487 - integer, parameter :: rid_BRO_BRO = 488 - integer, parameter :: rid_BRO_CLOa = 489 - integer, parameter :: rid_BRO_CLOb = 490 - integer, parameter :: rid_BRO_CLOc = 491 - integer, parameter :: rid_BRO_HO2 = 492 - integer, parameter :: rid_BRO_NO = 493 - integer, parameter :: rid_BRO_NO2_M = 494 - integer, parameter :: rid_BRONO2_O = 495 - integer, parameter :: rid_BRO_O = 496 - integer, parameter :: rid_BRO_OH = 497 - integer, parameter :: rid_HBR_O = 498 - integer, parameter :: rid_HBR_OH = 499 - integer, parameter :: rid_HOBR_O = 500 - integer, parameter :: rid_O1D_CF3BR = 501 - integer, parameter :: rid_O1D_CHBR3 = 502 - integer, parameter :: rid_O1D_H2402 = 503 - integer, parameter :: rid_O1D_HBRa = 504 - integer, parameter :: rid_O1D_HBRb = 505 - integer, parameter :: rid_F_CH4 = 506 - integer, parameter :: rid_F_H2 = 507 - integer, parameter :: rid_F_H2O = 508 - integer, parameter :: rid_F_HNO3 = 509 - integer, parameter :: rid_O1D_COF2 = 510 - integer, parameter :: rid_O1D_COFCL = 511 - integer, parameter :: rid_CH2BR2_CL = 512 - integer, parameter :: rid_CH2BR2_OH = 513 - integer, parameter :: rid_CH3BR_CL = 514 - integer, parameter :: rid_CH3BR_OH = 515 - integer, parameter :: rid_CH3CCL3_OH = 516 - integer, parameter :: rid_CH3CL_CL = 517 - integer, parameter :: rid_CH3CL_OH = 518 - integer, parameter :: rid_CHBR3_CL = 519 - integer, parameter :: rid_CHBR3_OH = 520 - integer, parameter :: rid_HCFC141B_OH = 521 - integer, parameter :: rid_HCFC142B_OH = 522 - integer, parameter :: rid_HCFC22_OH = 523 - integer, parameter :: rid_O1D_CH2BR2 = 524 - integer, parameter :: rid_O1D_CH3BR = 525 - integer, parameter :: rid_O1D_HCFC141B = 526 - integer, parameter :: rid_O1D_HCFC142B = 527 - integer, parameter :: rid_O1D_HCFC22 = 528 - integer, parameter :: rid_CH2O_NO3 = 529 - integer, parameter :: rid_CH2O_O = 530 - integer, parameter :: rid_CH2O_OH = 531 - integer, parameter :: rid_CH3O2_HO2 = 532 - integer, parameter :: rid_CH3O2_NO = 533 - integer, parameter :: rid_CH3OOH_OH = 534 - integer, parameter :: rid_CH4_OH = 535 - integer, parameter :: rid_CO_OH_M = 536 - integer, parameter :: rid_O1D_CH4a = 537 - integer, parameter :: rid_O1D_CH4b = 538 - integer, parameter :: rid_O1D_CH4c = 539 - integer, parameter :: rid_usr_CO_OH_b = 540 - integer, parameter :: rid_OCS_O = 541 - integer, parameter :: rid_OCS_OH = 542 - integer, parameter :: rid_S_O2 = 543 - integer, parameter :: rid_S_O3 = 544 - integer, parameter :: rid_SO_BRO = 545 - integer, parameter :: rid_SO_CLO = 546 - integer, parameter :: rid_S_OH = 547 - integer, parameter :: rid_SO_NO2 = 548 - integer, parameter :: rid_SO_O2 = 549 - integer, parameter :: rid_SO_O3 = 550 - integer, parameter :: rid_SO_OCLO = 551 - integer, parameter :: rid_SO_OH = 552 - integer, parameter :: rid_usr_SO2_OH = 553 - integer, parameter :: rid_usr_SO3_H2O = 554 - integer, parameter :: rid_DMS_NO3 = 555 - integer, parameter :: rid_DMS_OHa = 556 - integer, parameter :: rid_usr_DMS_OH = 557 - integer, parameter :: rid_usr_HO2_aer = 558 - integer, parameter :: rid_usr_N2O5_aer = 559 - integer, parameter :: rid_usr_NO2_aer = 560 - integer, parameter :: rid_usr_NO3_aer = 561 - integer, parameter :: rid_het1 = 562 - integer, parameter :: rid_het10 = 563 - integer, parameter :: rid_het11 = 564 - integer, parameter :: rid_het12 = 565 - integer, parameter :: rid_het13 = 566 - integer, parameter :: rid_het14 = 567 - integer, parameter :: rid_het15 = 568 - integer, parameter :: rid_het16 = 569 - integer, parameter :: rid_het17 = 570 - integer, parameter :: rid_het2 = 571 - integer, parameter :: rid_het3 = 572 - integer, parameter :: rid_het4 = 573 - integer, parameter :: rid_het5 = 574 - integer, parameter :: rid_het6 = 575 - integer, parameter :: rid_het7 = 576 - integer, parameter :: rid_het8 = 577 - integer, parameter :: rid_het9 = 578 - integer, parameter :: rid_elec1 = 579 - integer, parameter :: rid_elec2 = 580 - integer, parameter :: rid_elec3 = 581 - integer, parameter :: rid_ion_N2p_O2 = 582 - integer, parameter :: rid_ion_N2p_Oa = 583 - integer, parameter :: rid_ion_N2p_Ob = 584 - integer, parameter :: rid_ion_Np_O = 585 - integer, parameter :: rid_ion_Np_O2a = 586 - integer, parameter :: rid_ion_Np_O2b = 587 - integer, parameter :: rid_ion_O2p_N = 588 - integer, parameter :: rid_ion_O2p_N2 = 589 - integer, parameter :: rid_ion_O2p_NO = 590 - integer, parameter :: rid_ion_Op_CO2 = 591 - integer, parameter :: rid_ion_Op_N2 = 592 - integer, parameter :: rid_ion_Op_O2 = 593 + integer, parameter :: rid_jepn3 = 96 + integer, parameter :: rid_jpni2 = 97 + integer, parameter :: rid_jepn4 = 98 + integer, parameter :: rid_jepn1 = 99 + integer, parameter :: rid_jh2so4 = 100 + integer, parameter :: rid_jocs = 101 + integer, parameter :: rid_jso = 102 + integer, parameter :: rid_jso2 = 103 + integer, parameter :: rid_jso3 = 104 + integer, parameter :: rid_CLm_H = 105 + integer, parameter :: rid_CLmH2O_HCL = 106 + integer, parameter :: rid_CLm_H2O_Ma = 107 + integer, parameter :: rid_CLmHCL_M = 108 + integer, parameter :: rid_CLm_HNO3 = 109 + integer, parameter :: rid_CLm_NO2 = 110 + integer, parameter :: rid_CLOm_NOa = 111 + integer, parameter :: rid_CLOm_NOb = 112 + integer, parameter :: rid_CLOm_O = 113 + integer, parameter :: rid_CO3m_CLa = 114 + integer, parameter :: rid_CO3m_CLb = 115 + integer, parameter :: rid_CO3m_CLO = 116 + integer, parameter :: rid_CO3m_H = 117 + integer, parameter :: rid_CO3mH2O_H2O_M = 118 + integer, parameter :: rid_CO3m_H2O_M = 119 + integer, parameter :: rid_CO3mH2O_NO2a = 120 + integer, parameter :: rid_CO3mH2O_NO2b = 121 + integer, parameter :: rid_CO3mH2O_NOa = 122 + integer, parameter :: rid_CO3mH2O_NOb = 123 + integer, parameter :: rid_CO3m_HNO3 = 124 + integer, parameter :: rid_CO3m_O = 125 + integer, parameter :: rid_CO3m_O2 = 126 + integer, parameter :: rid_CO4m_CL = 127 + integer, parameter :: rid_CO4m_CLO = 128 + integer, parameter :: rid_CO4m_H = 129 + integer, parameter :: rid_CO4m_HCL = 130 + integer, parameter :: rid_CO4m_O = 131 + integer, parameter :: rid_CO4m_O3 = 132 + integer, parameter :: rid_ean1 = 133 + integer, parameter :: rid_ean2 = 134 + integer, parameter :: rid_ean3 = 135 + integer, parameter :: rid_edn1 = 136 + integer, parameter :: rid_edn2 = 137 + integer, parameter :: rid_H3OpOH_e = 138 + integer, parameter :: rid_H3OpOH_H2O = 139 + integer, parameter :: rid_Hp3N1_H2O = 140 + integer, parameter :: rid_Hp4H2O_e = 141 + integer, parameter :: rid_Hp4H2O_N2O5 = 142 + integer, parameter :: rid_Hp4N1_H2O = 143 + integer, parameter :: rid_Hp5H2O_e = 144 + integer, parameter :: rid_Hp5H2O_N2O5 = 145 + integer, parameter :: rid_iira1 = 146 + integer, parameter :: rid_iira10 = 147 + integer, parameter :: rid_iira100 = 148 + integer, parameter :: rid_iira101 = 149 + integer, parameter :: rid_iira102 = 150 + integer, parameter :: rid_iira103 = 151 + integer, parameter :: rid_iira104 = 152 + integer, parameter :: rid_iira105 = 153 + integer, parameter :: rid_iira106 = 154 + integer, parameter :: rid_iira107 = 155 + integer, parameter :: rid_iira108 = 156 + integer, parameter :: rid_iira109 = 157 + integer, parameter :: rid_iira11 = 158 + integer, parameter :: rid_iira110 = 159 + integer, parameter :: rid_iira111 = 160 + integer, parameter :: rid_iira112 = 161 + integer, parameter :: rid_iira12 = 162 + integer, parameter :: rid_iira13 = 163 + integer, parameter :: rid_iira14 = 164 + integer, parameter :: rid_iira15 = 165 + integer, parameter :: rid_iira16 = 166 + integer, parameter :: rid_iira17 = 167 + integer, parameter :: rid_iira18 = 168 + integer, parameter :: rid_iira19 = 169 + integer, parameter :: rid_iira2 = 170 + integer, parameter :: rid_iira20 = 171 + integer, parameter :: rid_iira21 = 172 + integer, parameter :: rid_iira22 = 173 + integer, parameter :: rid_iira23 = 174 + integer, parameter :: rid_iira24 = 175 + integer, parameter :: rid_iira25 = 176 + integer, parameter :: rid_iira26 = 177 + integer, parameter :: rid_iira27 = 178 + integer, parameter :: rid_iira28 = 179 + integer, parameter :: rid_iira29 = 180 + integer, parameter :: rid_iira3 = 181 + integer, parameter :: rid_iira30 = 182 + integer, parameter :: rid_iira31 = 183 + integer, parameter :: rid_iira32 = 184 + integer, parameter :: rid_iira33 = 185 + integer, parameter :: rid_iira34 = 186 + integer, parameter :: rid_iira35 = 187 + integer, parameter :: rid_iira36 = 188 + integer, parameter :: rid_iira37 = 189 + integer, parameter :: rid_iira38 = 190 + integer, parameter :: rid_iira39 = 191 + integer, parameter :: rid_iira4 = 192 + integer, parameter :: rid_iira40 = 193 + integer, parameter :: rid_iira41 = 194 + integer, parameter :: rid_iira42 = 195 + integer, parameter :: rid_iira43 = 196 + integer, parameter :: rid_iira44 = 197 + integer, parameter :: rid_iira45 = 198 + integer, parameter :: rid_iira46 = 199 + integer, parameter :: rid_iira47 = 200 + integer, parameter :: rid_iira48 = 201 + integer, parameter :: rid_iira49 = 202 + integer, parameter :: rid_iira5 = 203 + integer, parameter :: rid_iira50 = 204 + integer, parameter :: rid_iira51 = 205 + integer, parameter :: rid_iira52 = 206 + integer, parameter :: rid_iira53 = 207 + integer, parameter :: rid_iira54 = 208 + integer, parameter :: rid_iira55 = 209 + integer, parameter :: rid_iira56 = 210 + integer, parameter :: rid_iira57 = 211 + integer, parameter :: rid_iira58 = 212 + integer, parameter :: rid_iira59 = 213 + integer, parameter :: rid_iira6 = 214 + integer, parameter :: rid_iira60 = 215 + integer, parameter :: rid_iira61 = 216 + integer, parameter :: rid_iira62 = 217 + integer, parameter :: rid_iira63 = 218 + integer, parameter :: rid_iira64 = 219 + integer, parameter :: rid_iira65 = 220 + integer, parameter :: rid_iira66 = 221 + integer, parameter :: rid_iira67 = 222 + integer, parameter :: rid_iira68 = 223 + integer, parameter :: rid_iira69 = 224 + integer, parameter :: rid_iira7 = 225 + integer, parameter :: rid_iira70 = 226 + integer, parameter :: rid_iira71 = 227 + integer, parameter :: rid_iira72 = 228 + integer, parameter :: rid_iira73 = 229 + integer, parameter :: rid_iira74 = 230 + integer, parameter :: rid_iira75 = 231 + integer, parameter :: rid_iira76 = 232 + integer, parameter :: rid_iira77 = 233 + integer, parameter :: rid_iira78 = 234 + integer, parameter :: rid_iira79 = 235 + integer, parameter :: rid_iira8 = 236 + integer, parameter :: rid_iira80 = 237 + integer, parameter :: rid_iira81 = 238 + integer, parameter :: rid_iira82 = 239 + integer, parameter :: rid_iira83 = 240 + integer, parameter :: rid_iira84 = 241 + integer, parameter :: rid_iira85 = 242 + integer, parameter :: rid_iira86 = 243 + integer, parameter :: rid_iira87 = 244 + integer, parameter :: rid_iira88 = 245 + integer, parameter :: rid_iira89 = 246 + integer, parameter :: rid_iira9 = 247 + integer, parameter :: rid_iira90 = 248 + integer, parameter :: rid_iira91 = 249 + integer, parameter :: rid_iira92 = 250 + integer, parameter :: rid_iira93 = 251 + integer, parameter :: rid_iira94 = 252 + integer, parameter :: rid_iira95 = 253 + integer, parameter :: rid_iira96 = 254 + integer, parameter :: rid_iira97 = 255 + integer, parameter :: rid_iira98 = 256 + integer, parameter :: rid_iira99 = 257 + integer, parameter :: rid_iirb1 = 258 + integer, parameter :: rid_iirb10 = 259 + integer, parameter :: rid_iirb11 = 260 + integer, parameter :: rid_iirb12 = 261 + integer, parameter :: rid_iirb13 = 262 + integer, parameter :: rid_iirb14 = 263 + integer, parameter :: rid_iirb2 = 264 + integer, parameter :: rid_iirb3 = 265 + integer, parameter :: rid_iirb4 = 266 + integer, parameter :: rid_iirb5 = 267 + integer, parameter :: rid_iirb6 = 268 + integer, parameter :: rid_iirb7 = 269 + integer, parameter :: rid_iirb8 = 270 + integer, parameter :: rid_iirb9 = 271 + integer, parameter :: rid_nir1 = 272 + integer, parameter :: rid_nir10 = 273 + integer, parameter :: rid_nir11 = 274 + integer, parameter :: rid_nir12 = 275 + integer, parameter :: rid_nir13 = 276 + integer, parameter :: rid_nir2 = 277 + integer, parameter :: rid_nir3 = 278 + integer, parameter :: rid_nir4 = 279 + integer, parameter :: rid_nir5 = 280 + integer, parameter :: rid_nir6 = 281 + integer, parameter :: rid_nir7 = 282 + integer, parameter :: rid_nir8 = 283 + integer, parameter :: rid_nir9 = 284 + integer, parameter :: rid_NO2m_CL = 285 + integer, parameter :: rid_NO2m_CLO = 286 + integer, parameter :: rid_NO2m_H = 287 + integer, parameter :: rid_NO2m_H2O_M = 288 + integer, parameter :: rid_NO2m_HCL = 289 + integer, parameter :: rid_NO2m_HNO3 = 290 + integer, parameter :: rid_NO2m_NO2 = 291 + integer, parameter :: rid_NO2m_O3 = 292 + integer, parameter :: rid_NO3m2H2O_N2O5 = 293 + integer, parameter :: rid_NO3mH2O_H2O_M = 294 + integer, parameter :: rid_NO3mH2O_HNO3 = 295 + integer, parameter :: rid_NO3m_H2O_M = 296 + integer, parameter :: rid_NO3mH2O_N2O5 = 297 + integer, parameter :: rid_NO3m_HCLa = 298 + integer, parameter :: rid_NO3mHCL_HNO3 = 299 + integer, parameter :: rid_NO3m_HNO3_M = 300 + integer, parameter :: rid_NO3m_O = 301 + integer, parameter :: rid_NO3m_O3 = 302 + integer, parameter :: rid_NOp2H2O_e = 303 + integer, parameter :: rid_NOp3H2O_e = 304 + integer, parameter :: rid_NOp3H2O_H2O = 305 + integer, parameter :: rid_NOpCO2_e = 306 + integer, parameter :: rid_NOpCO2_H2O = 307 + integer, parameter :: rid_NOpH2O_e = 308 + integer, parameter :: rid_NOpH2O_H = 309 + integer, parameter :: rid_NOpH2O_HO2 = 310 + integer, parameter :: rid_NOpH2O_OH = 311 + integer, parameter :: rid_NOpN2_CO2 = 312 + integer, parameter :: rid_NOpN2_H2O = 313 + integer, parameter :: rid_O2m_CL = 314 + integer, parameter :: rid_O2m_CLO = 315 + integer, parameter :: rid_O2m_CO2_M = 316 + integer, parameter :: rid_O2m_H = 317 + integer, parameter :: rid_O2m_HCL = 318 + integer, parameter :: rid_O2m_HNO3 = 319 + integer, parameter :: rid_O2m_NO2 = 320 + integer, parameter :: rid_O2m_O21D = 321 + integer, parameter :: rid_O2m_O2_M = 322 + integer, parameter :: rid_O2m_O3 = 323 + integer, parameter :: rid_O2m_O_a = 324 + integer, parameter :: rid_O2m_O_b = 325 + integer, parameter :: rid_O2pH2O_e = 326 + integer, parameter :: rid_O2pH2O_H2Oa = 327 + integer, parameter :: rid_O2pH2O_H2Ob = 328 + integer, parameter :: rid_O2p_H2O_M = 329 + integer, parameter :: rid_O3m_CO2 = 330 + integer, parameter :: rid_O3m_H = 331 + integer, parameter :: rid_O3m_O3 = 332 + integer, parameter :: rid_O3m_O_a = 333 + integer, parameter :: rid_O3m_O_b = 334 + integer, parameter :: rid_O4m_CO2 = 335 + integer, parameter :: rid_O4m_O = 336 + integer, parameter :: rid_O4p_H2O = 337 + integer, parameter :: rid_O4p_O = 338 + integer, parameter :: rid_O4p_O21D = 339 + integer, parameter :: rid_OH_HONO = 340 + integer, parameter :: rid_OHm_CL = 341 + integer, parameter :: rid_OHm_CLO = 342 + integer, parameter :: rid_OHm_CO2 = 343 + integer, parameter :: rid_OHm_H = 344 + integer, parameter :: rid_OHm_HCL = 345 + integer, parameter :: rid_OHm_NO2 = 346 + integer, parameter :: rid_OHm_O = 347 + integer, parameter :: rid_OHm_O3 = 348 + integer, parameter :: rid_OH_NO_M = 349 + integer, parameter :: rid_Om_CL = 350 + integer, parameter :: rid_Om_CLO = 351 + integer, parameter :: rid_Om_CO2_M = 352 + integer, parameter :: rid_Om_H2_a = 353 + integer, parameter :: rid_Om_H2_b = 354 + integer, parameter :: rid_Om_H2O = 355 + integer, parameter :: rid_Om_HCL = 356 + integer, parameter :: rid_Om_HNO3 = 357 + integer, parameter :: rid_Om_M = 358 + integer, parameter :: rid_Om_NO2 = 359 + integer, parameter :: rid_Om_O = 360 + integer, parameter :: rid_Om_O21D = 361 + integer, parameter :: rid_Om_O2_M = 362 + integer, parameter :: rid_Om_O3 = 363 + integer, parameter :: rid_pir1 = 364 + integer, parameter :: rid_pir10 = 365 + integer, parameter :: rid_pir11 = 366 + integer, parameter :: rid_pir12 = 367 + integer, parameter :: rid_pir13 = 368 + integer, parameter :: rid_pir14 = 369 + integer, parameter :: rid_pir15 = 370 + integer, parameter :: rid_pir16 = 371 + integer, parameter :: rid_pir2 = 372 + integer, parameter :: rid_pir3 = 373 + integer, parameter :: rid_pir4 = 374 + integer, parameter :: rid_pir5 = 375 + integer, parameter :: rid_pir6 = 376 + integer, parameter :: rid_pir7 = 377 + integer, parameter :: rid_pir8 = 378 + integer, parameter :: rid_pir9 = 379 + integer, parameter :: rid_rpe1 = 380 + integer, parameter :: rid_rpe2 = 381 + integer, parameter :: rid_rpe3 = 382 + integer, parameter :: rid_rpe4 = 383 + integer, parameter :: rid_rpe5 = 384 + integer, parameter :: rid_usr_CLm_H2O_M = 385 + integer, parameter :: rid_usr_CLm_HCL_M = 386 + integer, parameter :: rid_ag1 = 387 + integer, parameter :: rid_ag2 = 388 + integer, parameter :: rid_O1D_H2 = 389 + integer, parameter :: rid_O1D_H2O = 390 + integer, parameter :: rid_O1D_N2 = 391 + integer, parameter :: rid_O1D_O2 = 392 + integer, parameter :: rid_O1D_O2b = 393 + integer, parameter :: rid_O1D_O3 = 394 + integer, parameter :: rid_O2_1D_N2 = 395 + integer, parameter :: rid_O2_1D_O = 396 + integer, parameter :: rid_O2_1D_O2 = 397 + integer, parameter :: rid_O2_1S_CO2 = 398 + integer, parameter :: rid_O2_1S_N2 = 399 + integer, parameter :: rid_O2_1S_O = 400 + integer, parameter :: rid_O2_1S_O2 = 401 + integer, parameter :: rid_O2_1S_O3 = 402 + integer, parameter :: rid_O_O3 = 403 + integer, parameter :: rid_usr_O_O = 404 + integer, parameter :: rid_usr_O_O2 = 405 + integer, parameter :: rid_H2_O = 406 + integer, parameter :: rid_H2O2_O = 407 + integer, parameter :: rid_H_HO2 = 408 + integer, parameter :: rid_H_HO2a = 409 + integer, parameter :: rid_H_HO2b = 410 + integer, parameter :: rid_H_O2 = 411 + integer, parameter :: rid_HO2_O = 412 + integer, parameter :: rid_HO2_O3 = 413 + integer, parameter :: rid_H_O3 = 414 + integer, parameter :: rid_OH_H2 = 415 + integer, parameter :: rid_OH_H2O2 = 416 + integer, parameter :: rid_OH_HO2 = 417 + integer, parameter :: rid_OH_O = 418 + integer, parameter :: rid_OH_O3 = 419 + integer, parameter :: rid_OH_OH = 420 + integer, parameter :: rid_OH_OH_M = 421 + integer, parameter :: rid_usr_HO2_HO2 = 422 + integer, parameter :: rid_HO2NO2_OH = 423 + integer, parameter :: rid_N2D_O = 424 + integer, parameter :: rid_N2D_O2 = 425 + integer, parameter :: rid_N_NO = 426 + integer, parameter :: rid_N_NO2a = 427 + integer, parameter :: rid_N_NO2b = 428 + integer, parameter :: rid_N_NO2c = 429 + integer, parameter :: rid_N_O2 = 430 + integer, parameter :: rid_NO2_O = 431 + integer, parameter :: rid_NO2_O3 = 432 + integer, parameter :: rid_NO2_O_M = 433 + integer, parameter :: rid_NO3_HO2 = 434 + integer, parameter :: rid_NO3_NO = 435 + integer, parameter :: rid_NO3_O = 436 + integer, parameter :: rid_NO3_OH = 437 + integer, parameter :: rid_N_OH = 438 + integer, parameter :: rid_NO_HO2 = 439 + integer, parameter :: rid_NO_O3 = 440 + integer, parameter :: rid_NO_O_M = 441 + integer, parameter :: rid_O1D_N2Oa = 442 + integer, parameter :: rid_O1D_N2Ob = 443 + integer, parameter :: rid_tag_NO2_HO2 = 444 + integer, parameter :: rid_tag_NO2_NO3 = 445 + integer, parameter :: rid_tag_NO2_OH = 446 + integer, parameter :: rid_usr_HNO3_OH = 447 + integer, parameter :: rid_usr_HO2NO2_M = 448 + integer, parameter :: rid_usr_N2O5_M = 449 + integer, parameter :: rid_CL_CH2O = 450 + integer, parameter :: rid_CL_CH4 = 451 + integer, parameter :: rid_CL_H2 = 452 + integer, parameter :: rid_CL_H2O2 = 453 + integer, parameter :: rid_CL_HO2a = 454 + integer, parameter :: rid_CL_HO2b = 455 + integer, parameter :: rid_CL_O3 = 456 + integer, parameter :: rid_CLO_CH3O2 = 457 + integer, parameter :: rid_CLO_CLOa = 458 + integer, parameter :: rid_CLO_CLOb = 459 + integer, parameter :: rid_CLO_CLOc = 460 + integer, parameter :: rid_CLO_HO2 = 461 + integer, parameter :: rid_CLO_NO = 462 + integer, parameter :: rid_CLONO2_CL = 463 + integer, parameter :: rid_CLO_NO2_M = 464 + integer, parameter :: rid_CLONO2_O = 465 + integer, parameter :: rid_CLONO2_OH = 466 + integer, parameter :: rid_CLO_O = 467 + integer, parameter :: rid_CLO_OHa = 468 + integer, parameter :: rid_CLO_OHb = 469 + integer, parameter :: rid_HCL_O = 470 + integer, parameter :: rid_HCL_OH = 471 + integer, parameter :: rid_HOCL_CL = 472 + integer, parameter :: rid_HOCL_O = 473 + integer, parameter :: rid_HOCL_OH = 474 + integer, parameter :: rid_O1D_CCL4 = 475 + integer, parameter :: rid_O1D_CF2CLBR = 476 + integer, parameter :: rid_O1D_CFC11 = 477 + integer, parameter :: rid_O1D_CFC113 = 478 + integer, parameter :: rid_O1D_CFC114 = 479 + integer, parameter :: rid_O1D_CFC115 = 480 + integer, parameter :: rid_O1D_CFC12 = 481 + integer, parameter :: rid_O1D_HCLa = 482 + integer, parameter :: rid_O1D_HCLb = 483 + integer, parameter :: rid_tag_CLO_CLO_M = 484 + integer, parameter :: rid_usr_CL2O2_M = 485 + integer, parameter :: rid_BR_CH2O = 486 + integer, parameter :: rid_BR_HO2 = 487 + integer, parameter :: rid_BR_O3 = 488 + integer, parameter :: rid_BRO_BRO = 489 + integer, parameter :: rid_BRO_CLOa = 490 + integer, parameter :: rid_BRO_CLOb = 491 + integer, parameter :: rid_BRO_CLOc = 492 + integer, parameter :: rid_BRO_HO2 = 493 + integer, parameter :: rid_BRO_NO = 494 + integer, parameter :: rid_BRO_NO2_M = 495 + integer, parameter :: rid_BRONO2_O = 496 + integer, parameter :: rid_BRO_O = 497 + integer, parameter :: rid_BRO_OH = 498 + integer, parameter :: rid_HBR_O = 499 + integer, parameter :: rid_HBR_OH = 500 + integer, parameter :: rid_HOBR_O = 501 + integer, parameter :: rid_O1D_CF3BR = 502 + integer, parameter :: rid_O1D_CHBR3 = 503 + integer, parameter :: rid_O1D_H2402 = 504 + integer, parameter :: rid_O1D_HBRa = 505 + integer, parameter :: rid_O1D_HBRb = 506 + integer, parameter :: rid_F_CH4 = 507 + integer, parameter :: rid_F_H2 = 508 + integer, parameter :: rid_F_H2O = 509 + integer, parameter :: rid_F_HNO3 = 510 + integer, parameter :: rid_O1D_COF2 = 511 + integer, parameter :: rid_O1D_COFCL = 512 + integer, parameter :: rid_CH2BR2_CL = 513 + integer, parameter :: rid_CH2BR2_OH = 514 + integer, parameter :: rid_CH3BR_CL = 515 + integer, parameter :: rid_CH3BR_OH = 516 + integer, parameter :: rid_CH3CCL3_OH = 517 + integer, parameter :: rid_CH3CL_CL = 518 + integer, parameter :: rid_CH3CL_OH = 519 + integer, parameter :: rid_CHBR3_CL = 520 + integer, parameter :: rid_CHBR3_OH = 521 + integer, parameter :: rid_HCFC141B_OH = 522 + integer, parameter :: rid_HCFC142B_OH = 523 + integer, parameter :: rid_HCFC22_OH = 524 + integer, parameter :: rid_O1D_CH2BR2 = 525 + integer, parameter :: rid_O1D_CH3BR = 526 + integer, parameter :: rid_O1D_HCFC141B = 527 + integer, parameter :: rid_O1D_HCFC142B = 528 + integer, parameter :: rid_O1D_HCFC22 = 529 + integer, parameter :: rid_CH2O_NO3 = 530 + integer, parameter :: rid_CH2O_O = 531 + integer, parameter :: rid_CH2O_OH = 532 + integer, parameter :: rid_CH3O2_HO2 = 533 + integer, parameter :: rid_CH3O2_NO = 534 + integer, parameter :: rid_CH3OOH_OH = 535 + integer, parameter :: rid_CH4_OH = 536 + integer, parameter :: rid_CO_OH_M = 537 + integer, parameter :: rid_O1D_CH4a = 538 + integer, parameter :: rid_O1D_CH4b = 539 + integer, parameter :: rid_O1D_CH4c = 540 + integer, parameter :: rid_usr_CO_OH_b = 541 + 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 + integer, parameter :: rid_usr_NO3_aer = 562 + integer, parameter :: rid_het1 = 563 + integer, parameter :: rid_het10 = 564 + integer, parameter :: rid_het11 = 565 + integer, parameter :: rid_het12 = 566 + integer, parameter :: rid_het13 = 567 + integer, parameter :: rid_het14 = 568 + integer, parameter :: rid_het15 = 569 + integer, parameter :: rid_het16 = 570 + integer, parameter :: rid_het17 = 571 + integer, parameter :: rid_het2 = 572 + integer, parameter :: rid_het3 = 573 + integer, parameter :: rid_het4 = 574 + integer, parameter :: rid_het5 = 575 + integer, parameter :: rid_het6 = 576 + integer, parameter :: rid_het7 = 577 + integer, parameter :: rid_het8 = 578 + integer, parameter :: rid_het9 = 579 + integer, parameter :: rid_ag247nm = 580 + integer, parameter :: rid_ag373nm = 581 + integer, parameter :: rid_ag732nm = 582 + integer, parameter :: rid_elec1 = 583 + integer, parameter :: rid_elec2 = 584 + integer, parameter :: rid_elec3 = 585 + integer, parameter :: rid_ion_N2p_O2 = 586 + integer, parameter :: rid_ion_N2p_Oa = 587 + integer, parameter :: rid_ion_N2p_Ob = 588 + integer, parameter :: rid_ion_Np_O = 589 + integer, parameter :: rid_ion_Np_O2a = 590 + integer, parameter :: rid_ion_Np_O2b = 591 + integer, parameter :: rid_ion_O2p_N = 592 + integer, parameter :: rid_ion_O2p_N2 = 593 + integer, parameter :: rid_ion_O2p_NO = 594 + integer, parameter :: rid_ion_Op_CO2 = 595 + integer, parameter :: rid_ion_Op_N2 = 596 + integer, parameter :: rid_ion_Op_N2D = 597 + integer, parameter :: rid_ion_Op_O2 = 598 + integer, parameter :: rid_Op2D_e = 599 + integer, parameter :: rid_Op2D_N2 = 600 + integer, parameter :: rid_Op2D_O = 601 + integer, parameter :: rid_Op2D_O2 = 602 + integer, parameter :: rid_Op2P_ea = 603 + integer, parameter :: rid_Op2P_eb = 604 + integer, parameter :: rid_Op2P_N2a = 605 + integer, parameter :: rid_Op2P_N2b = 606 + integer, parameter :: rid_Op2P_O = 607 end module m_rxt_id 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 beedd24eef..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,136 +2,139 @@ 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_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_CLm = 86 - integer, parameter :: id_CLm_H2O = 87 - integer, parameter :: id_CLm_HCL = 88 - integer, parameter :: id_CLOm = 89 - integer, parameter :: id_CO3m = 90 - integer, parameter :: id_CO3m2H2O = 91 - integer, parameter :: id_CO3m_H2O = 92 - integer, parameter :: id_CO4m = 93 - integer, parameter :: id_e = 94 - integer, parameter :: id_H3Op_OH = 95 - integer, parameter :: id_HCO3m = 96 - integer, parameter :: id_HO2 = 97 - integer, parameter :: id_Hp_2H2O = 98 - integer, parameter :: id_Hp_3H2O = 99 - integer, parameter :: id_Hp_3N1 = 100 - integer, parameter :: id_Hp_4H2O = 101 - integer, parameter :: id_Hp_4N1 = 102 - integer, parameter :: id_Hp_5H2O = 103 - integer, parameter :: id_Hp_H2O = 104 - integer, parameter :: id_N2D = 105 - integer, parameter :: id_N2p = 106 - integer, parameter :: id_NO2m = 107 - integer, parameter :: id_NO2m_H2O = 108 - integer, parameter :: id_NO3m = 109 - integer, parameter :: id_NO3m2H2O = 110 - integer, parameter :: id_NO3m_H2O = 111 - integer, parameter :: id_NO3m_HCL = 112 - integer, parameter :: id_NO3mHNO3 = 113 - integer, parameter :: id_NOp = 114 - integer, parameter :: id_NOp_2H2O = 115 - integer, parameter :: id_NOp_3H2O = 116 - integer, parameter :: id_NOp_CO2 = 117 - integer, parameter :: id_NOp_H2O = 118 - integer, parameter :: id_NOp_N2 = 119 - integer, parameter :: id_Np = 120 - integer, parameter :: id_O1D = 121 - integer, parameter :: id_O2_1D = 122 - integer, parameter :: id_O2_1S = 123 - integer, parameter :: id_O2m = 124 - integer, parameter :: id_O2p = 125 - integer, parameter :: id_O2p_H2O = 126 - integer, parameter :: id_O3m = 127 - integer, parameter :: id_O4m = 128 - integer, parameter :: id_O4p = 129 - integer, parameter :: id_OH = 130 - integer, parameter :: id_OHm = 131 - integer, parameter :: id_Om = 132 - integer, parameter :: id_Op = 133 - integer, parameter :: id_H2O = 134 + 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 + integer, parameter :: id_O2p = 126 + integer, parameter :: id_O2p_H2O = 127 + integer, parameter :: id_O3m = 128 + integer, parameter :: id_O4m = 129 + integer, parameter :: id_O4p = 130 + integer, parameter :: id_OH = 131 + integer, parameter :: id_OHm = 132 + integer, parameter :: id_Om = 133 + integer, parameter :: id_Op = 134 + integer, parameter :: id_Op2D = 135 + integer, parameter :: id_Op2P = 136 + integer, parameter :: id_H2O = 137 end module m_spc_id diff --git a/src/chemistry/pp_waccm_mad_mam4/mo_adjrxt.F90 b/src/chemistry/pp_waccm_mad_mam4/mo_adjrxt.F90 index e449a3939f..6fb7387436 100644 --- a/src/chemistry/pp_waccm_mad_mam4/mo_adjrxt.F90 +++ b/src/chemistry/pp_waccm_mad_mam4/mo_adjrxt.F90 @@ -13,14 +13,13 @@ 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(:,:,106) = rate(:,:,106) * inv(:,:, 1) rate(:,:,107) = rate(:,:,107) * inv(:,:, 1) - rate(:,:,117) = rate(:,:,117) * inv(:,:, 1) + rate(:,:,108) = rate(:,:,108) * inv(:,:, 1) rate(:,:,118) = rate(:,:,118) * inv(:,:, 1) - rate(:,:,132) = rate(:,:,132) * inv(:,:, 2) - rate(:,:,134) = rate(:,:,134) * inv(:,:, 1) - rate(:,:,136) = rate(:,:,136) * inv(:,:, 2) - rate(:,:,257) = rate(:,:,257) * 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) @@ -34,32 +33,32 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:,268) = rate(:,:,268) * inv(:,:, 1) rate(:,:,269) = rate(:,:,269) * inv(:,:, 1) rate(:,:,270) = rate(:,:,270) * inv(:,:, 1) - rate(:,:,272) = rate(:,:,272) * 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(:,:,281) = rate(:,:,281) * inv(:,:, 1) + rate(:,:,276) = rate(:,:,276) * inv(:,:, 1) rate(:,:,282) = rate(:,:,282) * inv(:,:, 1) rate(:,:,283) = rate(:,:,283) * inv(:,:, 1) - rate(:,:,287) = rate(:,:,287) * inv(:,:, 1) - rate(:,:,293) = rate(:,:,293) * inv(:,:, 1) - rate(:,:,295) = rate(:,:,295) * inv(:,:, 1) - rate(:,:,299) = rate(:,:,299) * inv(:,:, 1) - rate(:,:,315) = rate(:,:,315) * inv(:,:, 1) - rate(:,:,321) = rate(:,:,321) * inv(:,:, 1) - rate(:,:,328) = rate(:,:,328) * inv(:,:, 1) - rate(:,:,342) = rate(:,:,342) * inv(:,:, 1) - rate(:,:,348) = rate(:,:,348) * inv(:,:, 1) - rate(:,:,351) = rate(:,:,351) * inv(:,:, 1) - rate(:,:,357) = rate(:,:,357) * inv(:,:, 1) - rate(:,:,361) = rate(:,:,361) * inv(:,:, 1) - rate(:,:,363) = rate(:,:,363) * 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(:,:,370) = rate(:,:,370) * 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) @@ -68,31 +67,34 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:,376) = rate(:,:,376) * inv(:,:, 1) rate(:,:,377) = rate(:,:,377) * inv(:,:, 1) rate(:,:,378) = rate(:,:,378) * inv(:,:, 1) - rate(:,:,384) = rate(:,:,384) * inv(:,:, 1) + rate(:,:,379) = rate(:,:,379) * inv(:,:, 1) rate(:,:,385) = rate(:,:,385) * inv(:,:, 1) - rate(:,:,390) = rate(:,:,390) * inv(:,:, 2) - rate(:,:,394) = rate(:,:,394) * inv(:,:, 2) - rate(:,:,398) = rate(:,:,398) * inv(:,:, 2) - rate(:,:,403) = rate(:,:,403) * 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(:,:,410) = rate(:,:,410) * inv(:,:, 1) - rate(:,:,420) = rate(:,:,420) * inv(:,:, 1) - rate(:,:,432) = rate(:,:,432) * inv(:,:, 1) - rate(:,:,440) = rate(:,:,440) * inv(:,:, 1) - rate(:,:,443) = rate(:,:,443) * 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(:,:,447) = rate(:,:,447) * inv(:,:, 1) + rate(:,:,446) = rate(:,:,446) * inv(:,:, 1) rate(:,:,448) = rate(:,:,448) * inv(:,:, 1) - rate(:,:,463) = rate(:,:,463) * inv(:,:, 1) - rate(:,:,483) = rate(:,:,483) * inv(:,:, 1) + rate(:,:,449) = rate(:,:,449) * inv(:,:, 1) + rate(:,:,464) = rate(:,:,464) * inv(:,:, 1) rate(:,:,484) = rate(:,:,484) * inv(:,:, 1) - rate(:,:,494) = rate(:,:,494) * inv(:,:, 1) - rate(:,:,536) = rate(:,:,536) * inv(:,:, 1) - rate(:,:,589) = rate(:,:,589) * inv(:,:, 2) - rate(:,:,592) = rate(:,:,592) * inv(:,:, 2) - rate(:,:,369) = rate(:,:,369) * inv(:,:, 2) * inv(:,:, 1) - rate(:,:,104) = rate(:,:,104) * m(:,:) + 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(:,:) @@ -124,7 +126,7 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:,133) = rate(:,:,133) * m(:,:) rate(:,:,134) = rate(:,:,134) * m(:,:) rate(:,:,135) = rate(:,:,135) * m(:,:) - rate(:,:,137) = rate(:,:,137) * m(:,:) + rate(:,:,136) = rate(:,:,136) * m(:,:) rate(:,:,138) = rate(:,:,138) * m(:,:) rate(:,:,139) = rate(:,:,139) * m(:,:) rate(:,:,140) = rate(:,:,140) * m(:,:) @@ -259,13 +261,13 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:,269) = rate(:,:,269) * m(:,:) rate(:,:,270) = rate(:,:,270) * m(:,:) rate(:,:,271) = rate(:,:,271) * m(:,:) - rate(:,:,275) = rate(:,:,275) * 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(:,:,284) = rate(:,:,284) * m(:,:) + rate(:,:,281) = rate(:,:,281) * m(:,:) rate(:,:,285) = rate(:,:,285) * m(:,:) rate(:,:,286) = rate(:,:,286) * m(:,:) rate(:,:,287) = rate(:,:,287) * m(:,:) @@ -338,7 +340,7 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:,354) = rate(:,:,354) * m(:,:) rate(:,:,355) = rate(:,:,355) * m(:,:) rate(:,:,356) = rate(:,:,356) * m(:,:) - rate(:,:,358) = rate(:,:,358) * m(:,:) + rate(:,:,357) = rate(:,:,357) * m(:,:) rate(:,:,359) = rate(:,:,359) * m(:,:) rate(:,:,360) = rate(:,:,360) * m(:,:) rate(:,:,361) = rate(:,:,361) * m(:,:) @@ -348,24 +350,24 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:,365) = rate(:,:,365) * m(:,:) rate(:,:,366) = rate(:,:,366) * m(:,:) rate(:,:,367) = rate(:,:,367) * m(:,:) - rate(:,:,371) = rate(:,:,371) * m(:,:) - rate(:,:,373) = rate(:,:,373) * m(:,:) - rate(:,:,375) = rate(:,:,375) * m(:,:) - rate(:,:,377) = rate(:,:,377) * m(:,:) - rate(:,:,379) = rate(:,:,379) * 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(:,:,388) = rate(:,:,388) * m(:,:) + rate(:,:,384) = rate(:,:,384) * m(:,:) rate(:,:,389) = rate(:,:,389) * m(:,:) - rate(:,:,391) = rate(:,:,391) * m(:,:) + rate(:,:,390) = rate(:,:,390) * m(:,:) rate(:,:,392) = rate(:,:,392) * m(:,:) rate(:,:,393) = rate(:,:,393) * m(:,:) - rate(:,:,395) = rate(:,:,395) * m(:,:) + rate(:,:,394) = rate(:,:,394) * m(:,:) rate(:,:,396) = rate(:,:,396) * m(:,:) rate(:,:,397) = rate(:,:,397) * m(:,:) - rate(:,:,399) = rate(:,:,399) * m(:,:) + rate(:,:,398) = rate(:,:,398) * m(:,:) rate(:,:,400) = rate(:,:,400) * m(:,:) rate(:,:,401) = rate(:,:,401) * m(:,:) rate(:,:,402) = rate(:,:,402) * m(:,:) @@ -413,7 +415,7 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:,444) = rate(:,:,444) * m(:,:) rate(:,:,445) = rate(:,:,445) * m(:,:) rate(:,:,446) = rate(:,:,446) * m(:,:) - rate(:,:,449) = rate(:,:,449) * m(:,:) + rate(:,:,447) = rate(:,:,447) * m(:,:) rate(:,:,450) = rate(:,:,450) * m(:,:) rate(:,:,451) = rate(:,:,451) * m(:,:) rate(:,:,452) = rate(:,:,452) * m(:,:) @@ -448,7 +450,7 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:,481) = rate(:,:,481) * m(:,:) rate(:,:,482) = rate(:,:,482) * m(:,:) rate(:,:,483) = rate(:,:,483) * m(:,:) - rate(:,:,485) = rate(:,:,485) * m(:,:) + rate(:,:,484) = rate(:,:,484) * m(:,:) rate(:,:,486) = rate(:,:,486) * m(:,:) rate(:,:,487) = rate(:,:,487) * m(:,:) rate(:,:,488) = rate(:,:,488) * m(:,:) @@ -521,26 +523,34 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:,555) = rate(:,:,555) * m(:,:) rate(:,:,556) = rate(:,:,556) * m(:,:) rate(:,:,557) = rate(:,:,557) * m(:,:) - rate(:,:,563) = rate(:,:,563) * m(:,:) - rate(:,:,568) = rate(:,:,568) * m(:,:) + rate(:,:,558) = rate(:,:,558) * m(:,:) + rate(:,:,564) = rate(:,:,564) * m(:,:) rate(:,:,569) = rate(:,:,569) * m(:,:) rate(:,:,570) = rate(:,:,570) * m(:,:) - rate(:,:,573) = rate(:,:,573) * m(:,:) + rate(:,:,571) = rate(:,:,571) * m(:,:) rate(:,:,574) = rate(:,:,574) * m(:,:) rate(:,:,575) = rate(:,:,575) * m(:,:) - rate(:,:,578) = rate(:,:,578) * m(:,:) + rate(:,:,576) = rate(:,:,576) * m(:,:) rate(:,:,579) = rate(:,:,579) * m(:,:) - rate(:,:,580) = rate(:,:,580) * m(:,:) - rate(:,:,581) = rate(:,:,581) * m(:,:) - rate(:,:,582) = rate(:,:,582) * m(:,:) rate(:,:,583) = rate(:,:,583) * m(:,:) rate(:,:,584) = rate(:,:,584) * m(:,:) 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(:,:,593) = rate(:,:,593) * 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 658fd5b03e..2784ec12a0 100644 --- a/src/chemistry/pp_waccm_mad_mam4/mo_indprd.F90 +++ b/src/chemistry/pp_waccm_mad_mam4/mo_indprd.F90 @@ -3,197 +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(:,62) +rxt(:,113)*y(:,85) +rxt(:,114)*y(:,85) + & - rxt(:,115)*y(:,26) +rxt(:,116)*y(:,38) +rxt(:,123)*y(:,49) + & - rxt(:,124)*y(:,67) +rxt(:,125)*y(:,68) +rxt(:,167)*y(:,103) + & - rxt(:,169)*y(:,101) +rxt(:,185)*y(:,99) +rxt(:,203)*y(:,118) + & - rxt(:,220)*y(:,115) +rxt(:,238)*y(:,114) +rxt(:,255)*y(:,125) + & - rxt(:,257)*y(:,101) +rxt(:,264)*y(:,103) +rxt(:,279)*y(:,60) + & - rxt(:,280)*y(:,61))*y(:,90) + (rxt(:,119)*y(:,61) + & - rxt(:,120)*y(:,61) +rxt(:,121)*y(:,60) +rxt(:,122)*y(:,60) + & - rxt(:,154)*y(:,125) +rxt(:,157)*y(:,101) +rxt(:,177)*y(:,103) + & - rxt(:,195)*y(:,99) +rxt(:,212)*y(:,118) +rxt(:,230)*y(:,115) + & - rxt(:,248)*y(:,114) +rxt(:,259)*y(:,101) +rxt(:,260)*y(:,103)) & - *y(:,92) + (rxt(:,64) +rxt(:,126)*y(:,85) +rxt(:,127)*y(:,26) + & - rxt(:,129)*y(:,47) +rxt(:,131)*y(:,69) +rxt(:,150)*y(:,125) + & - rxt(:,173)*y(:,103) +rxt(:,190)*y(:,99) +rxt(:,208)*y(:,118) + & - rxt(:,224)*y(:,101) +rxt(:,226)*y(:,115) +rxt(:,243)*y(:,114)) & - *y(:,93) + (rxt(:,152)*y(:,125) +rxt(:,175)*y(:,103) + & - rxt(:,193)*y(:,99) +rxt(:,210)*y(:,118) +rxt(:,228)*y(:,115) + & - rxt(:,245)*y(:,114) +rxt(:,246)*y(:,101) +rxt(:,258)*y(:,103) + & - rxt(:,270)*y(:,101))*y(:,91) + (rxt(:,148)*y(:,125) + & - rxt(:,171)*y(:,103) +rxt(:,188)*y(:,99) +rxt(:,202)*y(:,101) + & - rxt(:,206)*y(:,118) +rxt(:,223)*y(:,115) +rxt(:,241)*y(:,114)) & - *y(:,96) + (rxt(:,368) +rxt(:,305)*y(:,94) +rxt(:,306)*y(:,134)) & - *y(:,117) + (rxt(:,536)*y(:,130) +rxt(:,540)*y(:,130))*y(:,29) - prod(:,18) = 0._r8 - prod(:,19) = 0._r8 - prod(:,20) = 0._r8 - prod(:,21) = 0._r8 - prod(:,22) =rxt(:,426)*y(:,61)*y(:,54) + 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(:,80) = 0._r8 - prod(:,45) = 0._r8 - prod(:,81) =.180_r8*rxt(:,25)*y(:,22) - prod(:,64) =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(:,95) = 0._r8 - prod(:,60) = 0._r8 - prod(:,44) = (rxt(:,26) +rxt(:,61))*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(:,54) =rxt(:,33)*y(:,9) +rxt(:,37)*y(:,13) - prod(:,98) = (rxt(:,24) +.330_r8*rxt(:,25))*y(:,22) - prod(:,75) =1.440_r8*rxt(:,25)*y(:,22) - prod(:,46) = 0._r8 - prod(:,22) = 0._r8 - prod(:,56) = 0._r8 - prod(:,100) = 0._r8 - prod(:,26) = 0._r8 - prod(:,101) = 0._r8 - prod(:,39) = 0._r8 - prod(:,55) = 0._r8 - prod(:,57) = 0._r8 - prod(:,50) = 0._r8 - prod(:,63) = (.800_r8*rxt(:,66) +.800_r8*rxt(:,68) +rxt(:,72) +rxt(:,73)) & - + extfrc(:,15) - prod(:,62) = 0._r8 - prod(:,6) = 0._r8 - prod(:,7) = 0._r8 - prod(:,8) = 0._r8 - prod(:,106) = + extfrc(:,14) - prod(:,104) = + extfrc(:,3) - prod(:,97) = 0._r8 - prod(:,9) = + extfrc(:,7) - prod(:,10) = + extfrc(:,8) - prod(:,11) = 0._r8 - prod(:,12) = + extfrc(:,9) - prod(:,107) = (rxt(:,26) +rxt(:,61))*y(:,30) +.180_r8*rxt(:,25)*y(:,22) & - + extfrc(:,22) - prod(:,99) = 0._r8 - prod(:,91) = 0._r8 - prod(:,33) = 0._r8 - prod(:,34) = 0._r8 - prod(:,13) = + extfrc(:,10) - prod(:,14) = + extfrc(:,11) - prod(:,49) = 0._r8 - prod(:,68) = 0._r8 - prod(:,59) = + 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(:,74) =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(:,90) =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(:,84) = 0._r8 - prod(:,70) = 0._r8 - prod(:,69) = 0._r8 - prod(:,61) = 0._r8 - prod(:,88) = 0._r8 - prod(:,67) = 0._r8 - prod(:,78) = 0._r8 - prod(:,83) = 0._r8 - prod(:,89) = (rxt(:,67) +rxt(:,69) +rxt(:,70) +rxt(:,71) +rxt(:,72) + & - rxt(:,73)) + extfrc(:,20) - prod(:,36) = 0._r8 - prod(:,65) = 0._r8 - prod(:,86) = 0._r8 - prod(:,47) = 0._r8 - prod(:,111) = 0._r8 - prod(:,30) = 0._r8 - prod(:,105) = 0._r8 - prod(:,31) = 0._r8 - prod(:,94) = 0._r8 - prod(:,51) = 0._r8 - prod(:,43) = (1.200_r8*rxt(:,66) +1.200_r8*rxt(:,68) +rxt(:,69) +rxt(:,70)) & - + extfrc(:,16) - prod(:,48) = (rxt(:,67) +rxt(:,71)) + extfrc(:,17) - prod(:,108) = 0._r8 - prod(:,71) = 0._r8 - prod(:,85) = 0._r8 - prod(:,77) = 0._r8 - prod(:,79) = 0._r8 - prod(:,73) = 0._r8 - prod(:,76) = 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(:,42) = (rxt(:,69) +rxt(:,70) +rxt(:,72) +rxt(:,73)) + extfrc(:,21) - prod(:,82) =rxt(:,13)*y(:,55) - prod(:,58) = 0._r8 - prod(:,28) = 0._r8 - prod(:,102) = 0._r8 - prod(:,103) = + extfrc(:,23) - prod(:,52) = 0._r8 - prod(:,72) = 0._r8 - prod(:,38) = 0._r8 - prod(:,66) = 0._r8 - prod(:,87) =.330_r8*rxt(:,25)*y(:,22) + extfrc(:,18) - prod(:,109) = 0._r8 - prod(:,110) = 0._r8 - prod(:,53) = + extfrc(:,19) - prod(:,112) =.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 f79d37a124..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,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,1) = -( het_rates(k,1) ) - mat(k,2) = -( het_rates(k,2) ) - mat(k,39) = -( rxt(k,27) + het_rates(k,3) ) - mat(k,565) = -( rxt(k,28) + het_rates(k,4) ) - mat(k,140) = rxt(k,29) - mat(k,137) = -( rxt(k,29) + rxt(k,30) + rxt(k,564) + rxt(k,567) + rxt(k,572) & - + het_rates(k,5) ) - mat(k,587) = -( rxt(k,21) + rxt(k,22) + het_rates(k,16) ) - mat(k,79) = rxt(k,23) - mat(k,617) = rxt(k,538)*y(k,22) + rxt(k,539)*y(k,22) - mat(k,305) = -( het_rates(k,20) ) - mat(k,873) = rxt(k,450)*y(k,22) - mat(k,210) = rxt(k,506)*y(k,22) - mat(k,767) = rxt(k,535)*y(k,22) - mat(k,612) = rxt(k,537)*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,484) + het_rates(k,25) ) - mat(k,1105) = -( rxt(k,46) + het_rates(k,26) ) - mat(k,262) = rxt(k,48) - mat(k,67) = rxt(k,60) - mat(k,23) = 2.000_r8*rxt(k,484) - mat(k,259) = -( rxt(k,47) + rxt(k,48) + rxt(k,566) + rxt(k,571) + rxt(k,577) & - + het_rates(k,27) ) - mat(k,133) = -( het_rates(k,29) ) - mat(k,582) = rxt(k,21) + rxt(k,22) - mat(k,70) = rxt(k,100) - mat(k,868) = rxt(k,517)*y(k,19) - mat(k,198) = rxt(k,591)*y(k,30) - mat(k,27) = -( rxt(k,49) + het_rates(k,31) ) - mat(k,606) = rxt(k,475)*y(k,8) + rxt(k,477)*y(k,11) + 2.000_r8*rxt(k,478)*y(k,12) & - + 2.000_r8*rxt(k,479)*y(k,13) + rxt(k,480)*y(k,14) & - + rxt(k,501)*y(k,9) + 2.000_r8*rxt(k,503)*y(k,40) & - + rxt(k,527)*y(k,45) + rxt(k,528)*y(k,46) - mat(k,749) = rxt(k,522)*y(k,45) + rxt(k,523)*y(k,46) - mat(k,32) = -( rxt(k,50) + het_rates(k,32) ) - mat(k,607) = rxt(k,476)*y(k,10) + rxt(k,477)*y(k,11) + rxt(k,526)*y(k,44) - mat(k,750) = rxt(k,521)*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,209) = -( rxt(k,506)*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,609) = rxt(k,479)*y(k,13) + rxt(k,501)*y(k,9) - mat(k,1223) = -( het_rates(k,38) ) - mat(k,1814) = 2.000_r8*rxt(k,2) + rxt(k,3) - mat(k,596) = 2.000_r8*rxt(k,21) - mat(k,81) = rxt(k,23) - mat(k,231) = rxt(k,52) - mat(k,1314) = rxt(k,56) - mat(k,38) = rxt(k,57) - mat(k,626) = rxt(k,538)*y(k,22) - mat(k,465) = -( het_rates(k,39) ) - mat(k,1793) = rxt(k,1) - mat(k,585) = rxt(k,22) - mat(k,615) = rxt(k,539)*y(k,22) - mat(k,145) = -( rxt(k,4) + het_rates(k,41) ) - mat(k,717) = .500_r8*rxt(k,558) - mat(k,24) = -( rxt(k,99) + het_rates(k,42) ) - mat(k,226) = -( rxt(k,52) + het_rates(k,43) ) - mat(k,1316) = -( rxt(k,56) + het_rates(k,47) ) - mat(k,383) = rxt(k,385) - mat(k,896) = rxt(k,450)*y(k,22) + rxt(k,512)*y(k,15) + rxt(k,514)*y(k,17) & - + 2.000_r8*rxt(k,517)*y(k,19) + rxt(k,519)*y(k,23) - mat(k,36) = -( rxt(k,57) + het_rates(k,48) ) - mat(k,208) = rxt(k,506)*y(k,22) - mat(k,1356) = -( rxt(k,9) + het_rates(k,49) ) - mat(k,492) = rxt(k,274) - mat(k,285) = 2.000_r8*rxt(k,559) + 2.000_r8*rxt(k,562) + 2.000_r8*rxt(k,565) & - + 2.000_r8*rxt(k,576) - mat(k,1481) = .500_r8*rxt(k,560) - mat(k,1191) = rxt(k,561) - mat(k,142) = rxt(k,564) + rxt(k,567) + rxt(k,572) - mat(k,265) = rxt(k,566) + rxt(k,571) + rxt(k,577) - mat(k,101) = -( rxt(k,10) + rxt(k,11) + rxt(k,447) + het_rates(k,50) ) - mat(k,218) = -( rxt(k,58) + het_rates(k,51) ) - mat(k,138) = rxt(k,564) + rxt(k,567) + rxt(k,572) - mat(k,235) = -( rxt(k,59) + het_rates(k,52) ) - mat(k,258) = rxt(k,566) + rxt(k,571) + rxt(k,577) - mat(k,176) = -( rxt(k,12) + het_rates(k,53) ) - mat(k,293) = -( rxt(k,65) + het_rates(k,54) ) - mat(k,1537) = rxt(k,17) - mat(k,200) = rxt(k,592) - mat(k,279) = -( rxt(k,14) + rxt(k,15) + rxt(k,448) + rxt(k,559) + rxt(k,562) & - + rxt(k,565) + rxt(k,576) + 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,1569) = -( rxt(k,16) + rxt(k,17) + het_rates(k,60) ) - mat(k,179) = rxt(k,12) - mat(k,288) = rxt(k,15) - mat(k,1486) = rxt(k,18) + .500_r8*rxt(k,560) - mat(k,1196) = rxt(k,20) - mat(k,1440) = rxt(k,589) - mat(k,633) = 2.000_r8*rxt(k,441)*y(k,55) - mat(k,1484) = -( rxt(k,18) + rxt(k,560) + het_rates(k,61) ) - mat(k,1359) = rxt(k,9) - mat(k,106) = rxt(k,11) + rxt(k,447) - mat(k,286) = rxt(k,14) + rxt(k,448) - mat(k,1194) = rxt(k,19) - mat(k,143) = rxt(k,29) - mat(k,266) = rxt(k,48) - mat(k,1653) = rxt(k,74) - mat(k,1187) = -( rxt(k,19) + rxt(k,20) + rxt(k,561) + het_rates(k,62) ) - mat(k,104) = rxt(k,10) - mat(k,284) = rxt(k,14) + rxt(k,15) + rxt(k,448) - mat(k,141) = rxt(k,30) - mat(k,263) = rxt(k,47) - mat(k,702) = rxt(k,75) - 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,1627) = -( rxt(k,76) + rxt(k,77) + rxt(k,78) + rxt(k,79) + rxt(k,80) & - + rxt(k,81) + het_rates(k,67) ) - mat(k,1823) = rxt(k,2) - mat(k,1279) = 2.000_r8*rxt(k,5) + rxt(k,6) + rxt(k,82) + rxt(k,84) & - + 2.000_r8*rxt(k,85) + rxt(k,86) + rxt(k,88) + 2.000_r8*rxt(k,89) & - + rxt(k,90) + rxt(k,91) - mat(k,944) = rxt(k,8) - mat(k,289) = rxt(k,15) - mat(k,1570) = rxt(k,17) - mat(k,1487) = rxt(k,18) - mat(k,1197) = rxt(k,19) - mat(k,580) = rxt(k,28) - mat(k,1117) = rxt(k,46) - mat(k,68) = rxt(k,60) - mat(k,1723) = rxt(k,98) + rxt(k,357) - mat(k,372) = rxt(k,101) - mat(k,255) = rxt(k,102) - mat(k,48) = rxt(k,103) - mat(k,634) = rxt(k,390) - mat(k,1271) = -( rxt(k,5) + rxt(k,6) + rxt(k,82) + 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) + het_rates(k,68) ) - mat(k,936) = rxt(k,8) - mat(k,1189) = rxt(k,20) - mat(k,1389) = rxt(k,92) + rxt(k,136) - mat(k,425) = rxt(k,95) + rxt(k,329)*y(k,30) - mat(k,98) = rxt(k,96) + rxt(k,334)*y(k,30) - mat(k,246) = rxt(k,386) + rxt(k,394) - mat(k,44) = rxt(k,387) - mat(k,627) = rxt(k,442)*y(k,55) - mat(k,928) = -( rxt(k,7) + rxt(k,8) + het_rates(k,69) ) - mat(k,423) = rxt(k,94) - mat(k,64) = -( rxt(k,60) + het_rates(k,70) ) - mat(k,69) = -( rxt(k,100) + het_rates(k,71) ) - mat(k,13) = -( het_rates(k,72) ) - mat(k,14) = -( het_rates(k,73) ) - mat(k,169) = -( het_rates(k,74) ) - mat(k,71) = rxt(k,100) - mat(k,358) = rxt(k,101) - mat(k,360) = -( rxt(k,101) + het_rates(k,75) ) - mat(k,252) = rxt(k,102) - mat(k,251) = -( rxt(k,102) + het_rates(k,76) ) - mat(k,47) = rxt(k,103) - mat(k,46) = -( rxt(k,103) + het_rates(k,77) ) - mat(k,25) = rxt(k,99) - 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,451) = -( het_rates(k,84) ) - mat(k,40) = rxt(k,27) - mat(k,564) = rxt(k,28) - mat(k,139) = rxt(k,30) - mat(k,227) = rxt(k,52) - mat(k,219) = rxt(k,58) - mat(k,614) = rxt(k,475)*y(k,8) + rxt(k,501)*y(k,9) + 3.000_r8*rxt(k,502)*y(k,23) & - + 2.000_r8*rxt(k,503)*y(k,40) + 2.000_r8*rxt(k,524)*y(k,15) & - + rxt(k,525)*y(k,17) - mat(k,874) = 2.000_r8*rxt(k,512)*y(k,15) + rxt(k,514)*y(k,17) & - + 3.000_r8*rxt(k,519)*y(k,23) - mat(k,769) = 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,886) = -( rxt(k,450)*y(k,22) + rxt(k,512)*y(k,15) + rxt(k,514)*y(k,17) & - + rxt(k,517)*y(k,19) + rxt(k,519)*y(k,23) + het_rates(k,85) ) - 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,1100) = rxt(k,46) - mat(k,261) = rxt(k,47) - mat(k,35) = rxt(k,50) - mat(k,1306) = rxt(k,56) - mat(k,237) = rxt(k,59) - mat(k,622) = 4.000_r8*rxt(k,474)*y(k,7) + rxt(k,475)*y(k,8) & - + 2.000_r8*rxt(k,476)*y(k,10) + 2.000_r8*rxt(k,477)*y(k,11) & - + 2.000_r8*rxt(k,478)*y(k,12) + rxt(k,479)*y(k,13) & - + 2.000_r8*rxt(k,480)*y(k,14) + rxt(k,526)*y(k,44) & - + rxt(k,527)*y(k,45) + rxt(k,528)*y(k,46) - mat(k,777) = 3.000_r8*rxt(k,516)*y(k,18) + rxt(k,518)*y(k,19) & - + rxt(k,521)*y(k,44) + rxt(k,522)*y(k,45) + rxt(k,523)*y(k,46) - mat(k,671) = -( het_rates(k,86) ) - mat(k,391) = rxt(k,384) - mat(k,375) = rxt(k,385) - mat(k,390) = -( rxt(k,384) + het_rates(k,87) ) - 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 !---------------------------------------------- @@ -236,159 +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,374) = -( rxt(k,385) + het_rates(k,88) ) - mat(k,269) = -( het_rates(k,89) ) - mat(k,803) = -( rxt(k,62) + het_rates(k,90) ) - mat(k,523) = rxt(k,63) + rxt(k,282) - mat(k,421) = rxt(k,329)*y(k,30) - mat(k,1704) = rxt(k,351)*y(k,30) - mat(k,343) = -( rxt(k,283) + het_rates(k,91) ) - mat(k,520) = -( rxt(k,63) + rxt(k,282) + het_rates(k,92) ) - mat(k,344) = rxt(k,283) - mat(k,641) = -( rxt(k,64) + het_rates(k,93) ) - mat(k,1373) = rxt(k,315)*y(k,30) - mat(k,97) = rxt(k,334)*y(k,30) - mat(k,844) = -( het_rates(k,94) ) - mat(k,1552) = rxt(k,16) - mat(k,296) = rxt(k,65) - mat(k,1638) = rxt(k,74) - mat(k,695) = rxt(k,75) - mat(k,1609) = rxt(k,76) + rxt(k,77) + rxt(k,78) + rxt(k,79) + rxt(k,80) & - + rxt(k,81) - mat(k,1261) = rxt(k,82) + rxt(k,83) + rxt(k,84) + rxt(k,86) + rxt(k,87) & - + rxt(k,88) + rxt(k,90) + rxt(k,91) - mat(k,1379) = rxt(k,92) + rxt(k,136) - mat(k,422) = rxt(k,94) - mat(k,1670) = rxt(k,97) - mat(k,1705) = rxt(k,98) + rxt(k,357) - mat(k,83) = -( het_rates(k,95) ) - mat(k,316) = -( het_rates(k,96) ) - mat(k,1663) = rxt(k,342)*y(k,30) - mat(k,728) = -( rxt(k,558) + het_rates(k,97) ) - mat(k,102) = rxt(k,11) + rxt(k,447) - mat(k,882) = rxt(k,514)*y(k,17) + rxt(k,517)*y(k,19) - mat(k,774) = rxt(k,515)*y(k,17) + rxt(k,518)*y(k,19) - mat(k,619) = rxt(k,538)*y(k,22) - mat(k,152) = -( rxt(k,372) + het_rates(k,98) ) - mat(k,1729) = rxt(k,374) - mat(k,1769) = -( rxt(k,374) + het_rates(k,99) ) - mat(k,1533) = rxt(k,376) - mat(k,50) = -( het_rates(k,100) ) - mat(k,1527) = -( rxt(k,376) + het_rates(k,101) ) - mat(k,1071) = rxt(k,378) - mat(k,54) = -( het_rates(k,102) ) - mat(k,1060) = -( rxt(k,378) + het_rates(k,103) ) - mat(k,182) = -( het_rates(k,104) ) - mat(k,153) = rxt(k,372) - mat(k,128) = -( het_rates(k,105) ) - mat(k,159) = -( het_rates(k,106) ) - mat(k,1657) = -( rxt(k,74) + het_rates(k,107) ) - mat(k,416) = rxt(k,272) - mat(k,405) = -( rxt(k,272) + het_rates(k,108) ) - mat(k,694) = -( rxt(k,75) + het_rates(k,109) ) - mat(k,485) = rxt(k,274) - mat(k,542) = rxt(k,281) - mat(k,500) = -( rxt(k,273) + het_rates(k,110) ) - mat(k,541) = -( rxt(k,281) + het_rates(k,111) ) - mat(k,501) = rxt(k,273) - mat(k,433) = -( het_rates(k,112) ) - mat(k,484) = -( rxt(k,274) + het_rates(k,113) ) - mat(k,974) = -( rxt(k,369) + rxt(k,367)*y(k,30) + het_rates(k,114) ) - mat(k,1555) = rxt(k,16) - mat(k,117) = rxt(k,368) - mat(k,111) = rxt(k,370) - mat(k,1426) = rxt(k,589) - mat(k,203) = rxt(k,592) - mat(k,1017) = -( het_rates(k,115) ) - mat(k,89) = -( het_rates(k,116) ) - mat(k,115) = -( rxt(k,368) + het_rates(k,117) ) - mat(k,109) = rxt(k,311)*y(k,30) - mat(k,951) = rxt(k,367)*y(k,30) - mat(k,1147) = -( het_rates(k,118) ) - mat(k,108) = -( rxt(k,370) + rxt(k,311)*y(k,30) + het_rates(k,119) ) - mat(k,950) = rxt(k,369) - mat(k,121) = -( het_rates(k,120) ) - mat(k,291) = rxt(k,65) - mat(k,618) = -( rxt(k,390) + rxt(k,441)*y(k,55) + rxt(k,442)*y(k,55) & - + rxt(k,474)*y(k,7) + rxt(k,475)*y(k,8) + rxt(k,476)*y(k,10) & - + rxt(k,477)*y(k,11) + rxt(k,478)*y(k,12) + rxt(k,479)*y(k,13) & - + rxt(k,480)*y(k,14) + rxt(k,501)*y(k,9) + rxt(k,502)*y(k,23) & - + rxt(k,503)*y(k,40) + rxt(k,524)*y(k,15) + rxt(k,525)*y(k,17) & - + rxt(k,526)*y(k,44) + rxt(k,527)*y(k,45) + rxt(k,528)*y(k,46) & - + rxt(k,537)*y(k,22) + rxt(k,538)*y(k,22) + rxt(k,539)*y(k,22) & - + het_rates(k,121) ) - mat(k,1799) = rxt(k,1) - mat(k,1254) = rxt(k,6) - mat(k,919) = rxt(k,7) - mat(k,242) = -( rxt(k,386) + rxt(k,394) + het_rates(k,122) ) - mat(k,911) = rxt(k,7) - mat(k,43) = rxt(k,398) + rxt(k,397)*y(k,30) - mat(k,42) = -( rxt(k,387) + rxt(k,398) + rxt(k,397)*y(k,30) + het_rates(k,123) ) - mat(k,1392) = -( rxt(k,92) + rxt(k,136) + rxt(k,315)*y(k,30) + het_rates(k,124) & - ) - mat(k,658) = rxt(k,64) - mat(k,99) = rxt(k,96) - mat(k,1437) = -( rxt(k,589) + het_rates(k,125) ) - mat(k,1275) = rxt(k,83) + rxt(k,87) - mat(k,195) = rxt(k,93) - mat(k,206) = rxt(k,591)*y(k,30) - mat(k,190) = -( rxt(k,93) + het_rates(k,126) ) - mat(k,419) = -( rxt(k,94) + rxt(k,95) + rxt(k,329)*y(k,30) + het_rates(k,127) ) - mat(k,95) = -( rxt(k,96) + rxt(k,334)*y(k,30) + het_rates(k,128) ) - mat(k,331) = -( het_rates(k,129) ) - mat(k,775) = -( rxt(k,513)*y(k,15) + rxt(k,515)*y(k,17) + rxt(k,516)*y(k,18) & - + rxt(k,518)*y(k,19) + rxt(k,520)*y(k,23) + rxt(k,521)*y(k,44) & - + rxt(k,522)*y(k,45) + rxt(k,523)*y(k,46) + rxt(k,535)*y(k,22) & - + het_rates(k,130) ) - mat(k,1803) = rxt(k,3) - mat(k,147) = 2.000_r8*rxt(k,4) - mat(k,1342) = rxt(k,9) - mat(k,103) = rxt(k,10) - mat(k,177) = rxt(k,12) - mat(k,80) = rxt(k,23) - mat(k,221) = rxt(k,58) - mat(k,236) = rxt(k,59) - mat(k,1668) = rxt(k,97) - mat(k,1467) = .500_r8*rxt(k,560) - mat(k,620) = rxt(k,537)*y(k,22) - mat(k,1690) = -( rxt(k,97) + rxt(k,342)*y(k,30) + het_rates(k,131) ) - mat(k,1726) = -( rxt(k,98) + rxt(k,357) + rxt(k,351)*y(k,30) + het_rates(k,132) & - ) - mat(k,825) = rxt(k,62) - mat(k,432) = rxt(k,95) - mat(k,199) = -( rxt(k,592) + rxt(k,591)*y(k,30) + het_rates(k,133) ) - mat(k,1586) = rxt(k,76) + rxt(k,77) + rxt(k,78) + rxt(k,79) + rxt(k,80) & - + rxt(k,81) - mat(k,1244) = rxt(k,82) + rxt(k,84) + rxt(k,86) + rxt(k,88) + rxt(k,90) & - + rxt(k,91) - mat(k,1828) = -( rxt(k,1) + rxt(k,2) + rxt(k,3) + het_rates(k,134) ) - mat(k,537) = rxt(k,63) + rxt(k,282) - mat(k,197) = rxt(k,93) - mat(k,26) = rxt(k,99) - mat(k,418) = rxt(k,272) - mat(k,517) = rxt(k,273) - mat(k,557) = rxt(k,281) - mat(k,356) = rxt(k,283) - mat(k,157) = rxt(k,372) - mat(k,1770) = rxt(k,374) - mat(k,1534) = rxt(k,376) - mat(k,1078) = rxt(k,378) - mat(k,404) = rxt(k,384) - mat(k,795) = rxt(k,513)*y(k,15) + rxt(k,515)*y(k,17) + rxt(k,516)*y(k,18) & - + rxt(k,518)*y(k,19) + rxt(k,523)*y(k,46) + rxt(k,535)*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 !---------------------------------------------- @@ -398,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 07cd7d3d07..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,12776 +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,1100) = lu(k,1100) - lu(k,22) * lu(k,1079) - lu(k,1105) = lu(k,1105) - lu(k,23) * lu(k,1079) - 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,1773) = lu(k,1773) - lu(k,25) * lu(k,1771) - lu(k,1828) = lu(k,1828) - lu(k,26) * lu(k,1771) - 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,609) = lu(k,609) - lu(k,28) * lu(k,606) - lu(k,618) = lu(k,618) - lu(k,29) * lu(k,606) - lu(k,761) = - lu(k,28) * lu(k,749) - lu(k,773) = - lu(k,29) * lu(k,749) - lu(k,30) = 1._r8 / lu(k,30) - lu(k,31) = lu(k,31) * lu(k,30) - lu(k,237) = lu(k,237) - lu(k,31) * lu(k,234) - lu(k,261) = lu(k,261) - lu(k,31) * lu(k,257) - lu(k,886) = lu(k,886) - lu(k,31) * lu(k,867) - lu(k,1100) = lu(k,1100) - lu(k,31) * lu(k,1080) - lu(k,1306) = lu(k,1306) - lu(k,31) * lu(k,1285) - 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,609) = lu(k,609) - lu(k,33) * lu(k,607) - lu(k,618) = lu(k,618) - lu(k,34) * lu(k,607) - lu(k,622) = lu(k,622) - lu(k,35) * lu(k,607) - lu(k,761) = lu(k,761) - lu(k,33) * lu(k,750) - lu(k,773) = lu(k,773) - lu(k,34) * lu(k,750) - lu(k,777) = lu(k,777) - lu(k,35) * lu(k,750) - 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,209) = lu(k,209) - lu(k,37) * lu(k,208) - lu(k,214) = lu(k,214) - lu(k,38) * lu(k,208) - lu(k,463) = lu(k,463) - lu(k,37) * lu(k,462) - lu(k,474) = lu(k,474) - lu(k,38) * lu(k,462) - lu(k,1331) = lu(k,1331) - lu(k,37) * lu(k,1329) - lu(k,1353) = - lu(k,38) * lu(k,1329) - lu(k,1784) = lu(k,1784) - lu(k,37) * lu(k,1772) - lu(k,1814) = lu(k,1814) - lu(k,38) * lu(k,1772) - 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,219) = lu(k,219) - lu(k,40) * lu(k,217) - lu(k,222) = - lu(k,41) * lu(k,217) - lu(k,564) = lu(k,564) - lu(k,40) * lu(k,558) - lu(k,570) = lu(k,570) - lu(k,41) * lu(k,558) - lu(k,1089) = lu(k,1089) - lu(k,40) * lu(k,1081) - lu(k,1100) = lu(k,1100) - lu(k,41) * lu(k,1081) - lu(k,1294) = - lu(k,40) * lu(k,1286) - lu(k,1306) = lu(k,1306) - lu(k,41) * lu(k,1286) - 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,611) = - lu(k,43) * lu(k,608) - lu(k,627) = lu(k,627) - lu(k,44) * lu(k,608) - lu(k,911) = lu(k,911) - lu(k,43) * lu(k,909) - lu(k,936) = lu(k,936) - lu(k,44) * lu(k,909) - lu(k,1245) = lu(k,1245) - lu(k,43) * lu(k,1238) - lu(k,1271) = lu(k,1271) - lu(k,44) * lu(k,1238) - lu(k,1590) = lu(k,1590) - lu(k,43) * lu(k,1576) - lu(k,1619) = lu(k,1619) - lu(k,44) * lu(k,1576) - 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,251) = lu(k,251) - lu(k,47) * lu(k,250) - lu(k,255) = lu(k,255) - lu(k,48) * lu(k,250) - lu(k,256) = - lu(k,49) * lu(k,250) - lu(k,764) = lu(k,764) - lu(k,47) * lu(k,751) - lu(k,791) = lu(k,791) - lu(k,48) * lu(k,751) - lu(k,795) = lu(k,795) - lu(k,49) * lu(k,751) - lu(k,1785) = - lu(k,47) * lu(k,1773) - lu(k,1823) = lu(k,1823) - lu(k,48) * lu(k,1773) - lu(k,1828) = lu(k,1828) - lu(k,49) * lu(k,1773) - 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,285) = lu(k,285) - lu(k,51) * lu(k,277) - lu(k,287) = lu(k,287) - lu(k,52) * lu(k,277) - lu(k,290) = lu(k,290) - lu(k,53) * lu(k,277) - lu(k,1523) = lu(k,1523) - lu(k,51) * lu(k,1493) - lu(k,1527) = lu(k,1527) - lu(k,52) * lu(k,1493) - lu(k,1534) = lu(k,1534) - lu(k,53) * lu(k,1493) - lu(k,1817) = lu(k,1817) - lu(k,51) * lu(k,1774) - lu(k,1821) = lu(k,1821) - lu(k,52) * lu(k,1774) - lu(k,1828) = lu(k,1828) - lu(k,53) * lu(k,1774) - 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,283) = lu(k,283) - lu(k,55) * lu(k,278) - lu(k,285) = lu(k,285) - lu(k,56) * lu(k,278) - lu(k,290) = lu(k,290) - lu(k,57) * lu(k,278) - lu(k,1060) = lu(k,1060) - lu(k,55) * lu(k,1037) - lu(k,1067) = lu(k,1067) - lu(k,56) * lu(k,1037) - lu(k,1078) = lu(k,1078) - lu(k,57) * lu(k,1037) - lu(k,1810) = lu(k,1810) - lu(k,55) * lu(k,1775) - lu(k,1817) = lu(k,1817) - lu(k,56) * lu(k,1775) - lu(k,1828) = lu(k,1828) - lu(k,57) * lu(k,1775) - 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,764) = lu(k,764) - lu(k,59) * lu(k,752) - lu(k,774) = lu(k,774) - lu(k,60) * lu(k,752) - lu(k,775) = lu(k,775) - lu(k,61) * lu(k,752) - lu(k,782) = lu(k,782) - lu(k,62) * lu(k,752) - lu(k,786) = lu(k,786) - lu(k,63) * lu(k,752) - lu(k,1166) = lu(k,1166) - lu(k,59) * lu(k,1164) - lu(k,1177) = lu(k,1177) - lu(k,60) * lu(k,1164) - lu(k,1178) = lu(k,1178) - lu(k,61) * lu(k,1164) - lu(k,1187) = lu(k,1187) - lu(k,62) * lu(k,1164) - lu(k,1191) = lu(k,1191) - lu(k,63) * lu(k,1164) - 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,359) = lu(k,359) - lu(k,65) * lu(k,357) - lu(k,360) = lu(k,360) - lu(k,66) * lu(k,357) - lu(k,367) = lu(k,367) - lu(k,67) * lu(k,357) - lu(k,372) = lu(k,372) - lu(k,68) * lu(k,357) - lu(k,562) = lu(k,562) - lu(k,65) * lu(k,559) - lu(k,563) = lu(k,563) - lu(k,66) * lu(k,559) - lu(k,572) = lu(k,572) - lu(k,67) * lu(k,559) - lu(k,580) = lu(k,580) - lu(k,68) * lu(k,559) - lu(k,1084) = lu(k,1084) - lu(k,65) * lu(k,1082) - lu(k,1088) = lu(k,1088) - lu(k,66) * lu(k,1082) - lu(k,1105) = lu(k,1105) - lu(k,67) * lu(k,1082) - lu(k,1117) = lu(k,1117) - lu(k,68) * lu(k,1082) - 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,756) = lu(k,756) - lu(k,70) * lu(k,753) - lu(k,758) = lu(k,758) - lu(k,71) * lu(k,753) - lu(k,764) = lu(k,764) - lu(k,72) * lu(k,753) - lu(k,768) = lu(k,768) - lu(k,73) * lu(k,753) - lu(k,775) = lu(k,775) - lu(k,74) * lu(k,753) - lu(k,783) = lu(k,783) - lu(k,75) * lu(k,753) - lu(k,791) = lu(k,791) - lu(k,76) * lu(k,753) - lu(k,1581) = lu(k,1581) - lu(k,70) * lu(k,1577) - lu(k,1585) = - lu(k,71) * lu(k,1577) - lu(k,1591) = - lu(k,72) * lu(k,1577) - lu(k,1596) = lu(k,1596) - lu(k,73) * lu(k,1577) - lu(k,1607) = lu(k,1607) - lu(k,74) * lu(k,1577) - lu(k,1618) = lu(k,1618) - lu(k,75) * lu(k,1577) - lu(k,1627) = lu(k,1627) - lu(k,76) * lu(k,1577) - 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,305) = lu(k,305) - lu(k,78) * lu(k,304) - lu(k,306) = lu(k,306) - lu(k,79) * lu(k,304) - lu(k,308) = - lu(k,80) * lu(k,304) - lu(k,311) = - lu(k,81) * lu(k,304) - lu(k,315) = - lu(k,82) * lu(k,304) - lu(k,722) = lu(k,722) - lu(k,78) * lu(k,715) - lu(k,726) = - lu(k,79) * lu(k,715) - lu(k,729) = lu(k,729) - lu(k,80) * lu(k,715) - lu(k,736) = lu(k,736) - lu(k,81) * lu(k,715) - lu(k,748) = lu(k,748) - lu(k,82) * lu(k,715) - lu(k,767) = lu(k,767) - lu(k,78) * lu(k,754) - lu(k,772) = lu(k,772) - lu(k,79) * lu(k,754) - lu(k,775) = lu(k,775) - lu(k,80) * lu(k,754) - lu(k,783) = lu(k,783) - lu(k,81) * lu(k,754) - lu(k,795) = lu(k,795) - lu(k,82) * lu(k,754) - 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,188) = - lu(k,84) * lu(k,187) - lu(k,191) = lu(k,191) - lu(k,85) * lu(k,187) - lu(k,192) = lu(k,192) - lu(k,86) * lu(k,187) - lu(k,193) = - lu(k,87) * lu(k,187) - lu(k,197) = lu(k,197) - lu(k,88) * lu(k,187) - lu(k,833) = lu(k,833) - lu(k,84) * lu(k,828) - lu(k,843) = lu(k,843) - lu(k,85) * lu(k,828) - lu(k,844) = lu(k,844) - lu(k,86) * lu(k,828) - lu(k,853) = lu(k,853) - lu(k,87) * lu(k,828) - lu(k,866) = lu(k,866) - lu(k,88) * lu(k,828) - lu(k,1780) = lu(k,1780) - lu(k,84) * lu(k,1776) - lu(k,1803) = lu(k,1803) - lu(k,85) * lu(k,1776) - lu(k,1805) = - lu(k,86) * lu(k,1776) - lu(k,1814) = lu(k,1814) - lu(k,87) * lu(k,1776) - lu(k,1828) = lu(k,1828) - lu(k,88) * lu(k,1776) - 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,835) = - lu(k,90) * lu(k,829) - lu(k,844) = lu(k,844) - lu(k,91) * lu(k,829) - lu(k,861) = lu(k,861) - lu(k,92) * lu(k,829) - lu(k,865) = lu(k,865) - lu(k,93) * lu(k,829) - lu(k,866) = lu(k,866) - lu(k,94) * lu(k,829) - lu(k,996) = - lu(k,90) * lu(k,995) - lu(k,1013) = lu(k,1013) - lu(k,91) * lu(k,995) - lu(k,1030) = lu(k,1030) - lu(k,92) * lu(k,995) - lu(k,1035) = - lu(k,93) * lu(k,995) - lu(k,1036) = lu(k,1036) - lu(k,94) * lu(k,995) - lu(k,1781) = lu(k,1781) - lu(k,90) * lu(k,1777) - lu(k,1805) = lu(k,1805) - lu(k,91) * lu(k,1777) - lu(k,1822) = - lu(k,92) * lu(k,1777) - lu(k,1827) = lu(k,1827) - lu(k,93) * lu(k,1777) - lu(k,1828) = lu(k,1828) - lu(k,94) * lu(k,1777) - 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,1250) = lu(k,1250) - lu(k,96) * lu(k,1239) - lu(k,1255) = - lu(k,97) * lu(k,1239) - lu(k,1271) = lu(k,1271) - lu(k,98) * lu(k,1239) - lu(k,1274) = lu(k,1274) - lu(k,99) * lu(k,1239) - lu(k,1279) = lu(k,1279) - lu(k,100) * lu(k,1239) - lu(k,1372) = lu(k,1372) - lu(k,96) * lu(k,1368) - lu(k,1373) = lu(k,1373) - lu(k,97) * lu(k,1368) - lu(k,1389) = lu(k,1389) - lu(k,98) * lu(k,1368) - lu(k,1392) = lu(k,1392) - lu(k,99) * lu(k,1368) - lu(k,1397) = lu(k,1397) - lu(k,100) * lu(k,1368) - lu(k,1597) = lu(k,1597) - lu(k,96) * lu(k,1578) - lu(k,1603) = lu(k,1603) - lu(k,97) * lu(k,1578) - lu(k,1619) = lu(k,1619) - lu(k,98) * lu(k,1578) - lu(k,1622) = lu(k,1622) - lu(k,99) * lu(k,1578) - lu(k,1627) = lu(k,1627) - lu(k,100) * lu(k,1578) - 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,728) = lu(k,728) - lu(k,102) * lu(k,716) - lu(k,729) = lu(k,729) - lu(k,103) * lu(k,716) - lu(k,735) = lu(k,735) - lu(k,104) * lu(k,716) - lu(k,737) = lu(k,737) - lu(k,105) * lu(k,716) - lu(k,742) = lu(k,742) - lu(k,106) * lu(k,716) - lu(k,748) = lu(k,748) - lu(k,107) * lu(k,716) - lu(k,774) = lu(k,774) - lu(k,102) * lu(k,755) - lu(k,775) = lu(k,775) - lu(k,103) * lu(k,755) - lu(k,782) = lu(k,782) - lu(k,104) * lu(k,755) - lu(k,784) = lu(k,784) - lu(k,105) * lu(k,755) - lu(k,789) = lu(k,789) - lu(k,106) * lu(k,755) - lu(k,795) = lu(k,795) - lu(k,107) * lu(k,755) - lu(k,1466) = lu(k,1466) - lu(k,102) * lu(k,1447) - lu(k,1467) = lu(k,1467) - lu(k,103) * lu(k,1447) - lu(k,1477) = lu(k,1477) - lu(k,104) * lu(k,1447) - lu(k,1479) = lu(k,1479) - lu(k,105) * lu(k,1447) - lu(k,1484) = lu(k,1484) - lu(k,106) * lu(k,1447) - lu(k,1492) = lu(k,1492) - lu(k,107) * lu(k,1447) - 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,831) = lu(k,831) - lu(k,109) * lu(k,830) - lu(k,844) = lu(k,844) - lu(k,110) * lu(k,830) - lu(k,847) = lu(k,847) - lu(k,111) * lu(k,830) - lu(k,851) = lu(k,851) - lu(k,112) * lu(k,830) - lu(k,861) = lu(k,861) - lu(k,113) * lu(k,830) - lu(k,866) = lu(k,866) - lu(k,114) * lu(k,830) - lu(k,951) = lu(k,951) - lu(k,109) * lu(k,950) - lu(k,971) = lu(k,971) - lu(k,110) * lu(k,950) - lu(k,974) = lu(k,974) - lu(k,111) * lu(k,950) - lu(k,978) = lu(k,978) - lu(k,112) * lu(k,950) - lu(k,988) = lu(k,988) - lu(k,113) * lu(k,950) - lu(k,994) = lu(k,994) - lu(k,114) * lu(k,950) - lu(k,1779) = lu(k,1779) - lu(k,109) * lu(k,1778) - lu(k,1805) = lu(k,1805) - lu(k,110) * lu(k,1778) - lu(k,1808) = lu(k,1808) - lu(k,111) * lu(k,1778) - lu(k,1812) = lu(k,1812) - lu(k,112) * lu(k,1778) - lu(k,1822) = lu(k,1822) - lu(k,113) * lu(k,1778) - lu(k,1828) = lu(k,1828) - lu(k,114) * lu(k,1778) - 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,844) = lu(k,844) - lu(k,116) * lu(k,831) - lu(k,847) = lu(k,847) - lu(k,117) * lu(k,831) - lu(k,851) = lu(k,851) - lu(k,118) * lu(k,831) - lu(k,861) = lu(k,861) - lu(k,119) * lu(k,831) - lu(k,866) = lu(k,866) - lu(k,120) * lu(k,831) - lu(k,971) = lu(k,971) - lu(k,116) * lu(k,951) - lu(k,974) = lu(k,974) - lu(k,117) * lu(k,951) - lu(k,978) = lu(k,978) - lu(k,118) * lu(k,951) - lu(k,988) = lu(k,988) - lu(k,119) * lu(k,951) - lu(k,994) = lu(k,994) - lu(k,120) * lu(k,951) - lu(k,1805) = lu(k,1805) - lu(k,116) * lu(k,1779) - lu(k,1808) = lu(k,1808) - lu(k,117) * lu(k,1779) - lu(k,1812) = lu(k,1812) - lu(k,118) * lu(k,1779) - lu(k,1822) = lu(k,1822) - lu(k,119) * lu(k,1779) - lu(k,1828) = lu(k,1828) - lu(k,120) * lu(k,1779) - 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,292) = - lu(k,122) * lu(k,291) - lu(k,293) = lu(k,293) - lu(k,123) * lu(k,291) - lu(k,297) = lu(k,297) - lu(k,124) * lu(k,291) - lu(k,299) = lu(k,299) - lu(k,125) * lu(k,291) - lu(k,300) = lu(k,300) - lu(k,126) * lu(k,291) - lu(k,303) = lu(k,303) - lu(k,127) * lu(k,291) - lu(k,1244) = lu(k,1244) - lu(k,122) * lu(k,1240) - lu(k,1247) = lu(k,1247) - lu(k,123) * lu(k,1240) - lu(k,1264) = lu(k,1264) - lu(k,124) * lu(k,1240) - lu(k,1271) = lu(k,1271) - lu(k,125) * lu(k,1240) - lu(k,1275) = lu(k,1275) - lu(k,126) * lu(k,1240) - lu(k,1279) = lu(k,1279) - lu(k,127) * lu(k,1240) - lu(k,1586) = lu(k,1586) - lu(k,122) * lu(k,1579) - lu(k,1594) = lu(k,1594) - lu(k,123) * lu(k,1579) - lu(k,1612) = lu(k,1612) - lu(k,124) * lu(k,1579) - lu(k,1619) = lu(k,1619) - lu(k,125) * lu(k,1579) - lu(k,1623) = lu(k,1623) - lu(k,126) * lu(k,1579) - lu(k,1627) = lu(k,1627) - lu(k,127) * lu(k,1579) - 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,161) = lu(k,161) - lu(k,129) * lu(k,158) - lu(k,162) = - lu(k,130) * lu(k,158) - lu(k,165) = lu(k,165) - lu(k,131) * lu(k,158) - lu(k,167) = - lu(k,132) * lu(k,158) - lu(k,839) = lu(k,839) - lu(k,129) * lu(k,832) - lu(k,841) = lu(k,841) - lu(k,130) * lu(k,832) - lu(k,854) = lu(k,854) - lu(k,131) * lu(k,832) - lu(k,861) = lu(k,861) - lu(k,132) * lu(k,832) - lu(k,953) = lu(k,953) - lu(k,129) * lu(k,952) - lu(k,964) = - lu(k,130) * lu(k,952) - lu(k,981) = lu(k,981) - lu(k,131) * lu(k,952) - lu(k,988) = lu(k,988) - lu(k,132) * lu(k,952) - lu(k,1247) = lu(k,1247) - lu(k,129) * lu(k,1241) - lu(k,1254) = lu(k,1254) - lu(k,130) * lu(k,1241) - lu(k,1271) = lu(k,1271) - lu(k,131) * lu(k,1241) - lu(k,1278) = lu(k,1278) - lu(k,132) * lu(k,1241) - lu(k,1594) = lu(k,1594) - lu(k,129) * lu(k,1580) - lu(k,1602) = - lu(k,130) * lu(k,1580) - lu(k,1619) = lu(k,1619) - lu(k,131) * lu(k,1580) - lu(k,1626) = lu(k,1626) - lu(k,132) * lu(k,1580) - lu(k,133) = 1._r8 / lu(k,133) - lu(k,134) = lu(k,134) * lu(k,133) - lu(k,135) = lu(k,135) * lu(k,133) - lu(k,136) = lu(k,136) * lu(k,133) - lu(k,201) = - lu(k,134) * lu(k,198) - lu(k,202) = - lu(k,135) * lu(k,198) - lu(k,204) = - lu(k,136) * lu(k,198) - lu(k,455) = lu(k,455) - lu(k,134) * lu(k,449) - lu(k,456) = - lu(k,135) * lu(k,449) - lu(k,458) = - lu(k,136) * lu(k,449) - lu(k,589) = lu(k,589) - lu(k,134) * lu(k,582) - lu(k,590) = lu(k,590) - lu(k,135) * lu(k,582) - lu(k,596) = lu(k,596) - lu(k,136) * lu(k,582) - lu(k,774) = lu(k,774) - lu(k,134) * lu(k,756) - lu(k,775) = lu(k,775) - lu(k,135) * lu(k,756) - lu(k,783) = lu(k,783) - lu(k,136) * lu(k,756) - lu(k,882) = lu(k,882) - lu(k,134) * lu(k,868) - lu(k,883) = lu(k,883) - lu(k,135) * lu(k,868) - lu(k,894) = lu(k,894) - lu(k,136) * lu(k,868) - lu(k,1177) = lu(k,1177) - lu(k,134) * lu(k,1165) - lu(k,1178) = lu(k,1178) - lu(k,135) * lu(k,1165) - lu(k,1188) = - lu(k,136) * lu(k,1165) - lu(k,1606) = lu(k,1606) - lu(k,134) * lu(k,1581) - lu(k,1607) = lu(k,1607) - lu(k,135) * lu(k,1581) - lu(k,1618) = lu(k,1618) - lu(k,136) * lu(k,1581) - 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,137) = 1._r8 / lu(k,137) - lu(k,138) = lu(k,138) * lu(k,137) - lu(k,139) = lu(k,139) * lu(k,137) - lu(k,140) = lu(k,140) * lu(k,137) - lu(k,141) = lu(k,141) * lu(k,137) - lu(k,142) = lu(k,142) * lu(k,137) - lu(k,143) = lu(k,143) * lu(k,137) - lu(k,144) = lu(k,144) * lu(k,137) - lu(k,561) = lu(k,561) - lu(k,138) * lu(k,560) - lu(k,564) = lu(k,564) - lu(k,139) * lu(k,560) - lu(k,565) = lu(k,565) - lu(k,140) * lu(k,560) - lu(k,573) = - lu(k,141) * lu(k,560) - lu(k,577) = - lu(k,142) * lu(k,560) - lu(k,578) = lu(k,578) - lu(k,143) * lu(k,560) - lu(k,580) = lu(k,580) - lu(k,144) * lu(k,560) - lu(k,1449) = - lu(k,138) * lu(k,1448) - lu(k,1456) = - lu(k,139) * lu(k,1448) - lu(k,1461) = lu(k,1461) - lu(k,140) * lu(k,1448) - lu(k,1477) = lu(k,1477) - lu(k,141) * lu(k,1448) - lu(k,1481) = lu(k,1481) - lu(k,142) * lu(k,1448) - lu(k,1484) = lu(k,1484) - lu(k,143) * lu(k,1448) - lu(k,1487) = lu(k,1487) - lu(k,144) * lu(k,1448) - lu(k,1587) = lu(k,1587) - lu(k,138) * lu(k,1582) - lu(k,1598) = lu(k,1598) - lu(k,139) * lu(k,1582) - lu(k,1600) = lu(k,1600) - lu(k,140) * lu(k,1582) - lu(k,1617) = lu(k,1617) - lu(k,141) * lu(k,1582) - lu(k,1621) = - lu(k,142) * lu(k,1582) - lu(k,1624) = lu(k,1624) - lu(k,143) * lu(k,1582) - lu(k,1627) = lu(k,1627) - lu(k,144) * lu(k,1582) - lu(k,145) = 1._r8 / lu(k,145) - lu(k,146) = lu(k,146) * lu(k,145) - lu(k,147) = lu(k,147) * lu(k,145) - lu(k,148) = lu(k,148) * lu(k,145) - lu(k,149) = lu(k,149) * lu(k,145) - lu(k,150) = lu(k,150) * lu(k,145) - lu(k,151) = lu(k,151) * lu(k,145) - lu(k,728) = lu(k,728) - lu(k,146) * lu(k,717) - lu(k,729) = lu(k,729) - lu(k,147) * lu(k,717) - lu(k,731) = lu(k,731) - lu(k,148) * lu(k,717) - lu(k,738) = lu(k,738) - lu(k,149) * lu(k,717) - lu(k,744) = lu(k,744) - lu(k,150) * lu(k,717) - lu(k,748) = lu(k,748) - lu(k,151) * lu(k,717) - lu(k,774) = lu(k,774) - lu(k,146) * lu(k,757) - lu(k,775) = lu(k,775) - lu(k,147) * lu(k,757) - lu(k,777) = lu(k,777) - lu(k,148) * lu(k,757) - lu(k,785) = lu(k,785) - lu(k,149) * lu(k,757) - lu(k,791) = lu(k,791) - lu(k,150) * lu(k,757) - lu(k,795) = lu(k,795) - lu(k,151) * lu(k,757) - lu(k,882) = lu(k,882) - lu(k,146) * lu(k,869) - lu(k,883) = lu(k,883) - lu(k,147) * lu(k,869) - lu(k,886) = lu(k,886) - lu(k,148) * lu(k,869) - lu(k,896) = lu(k,896) - lu(k,149) * lu(k,869) - lu(k,903) = lu(k,903) - lu(k,150) * lu(k,869) - lu(k,908) = - lu(k,151) * lu(k,869) - lu(k,1606) = lu(k,1606) - lu(k,146) * lu(k,1583) - lu(k,1607) = lu(k,1607) - lu(k,147) * lu(k,1583) - lu(k,1610) = lu(k,1610) - lu(k,148) * lu(k,1583) - lu(k,1620) = lu(k,1620) - lu(k,149) * lu(k,1583) - lu(k,1627) = lu(k,1627) - lu(k,150) * lu(k,1583) - lu(k,1632) = - lu(k,151) * lu(k,1583) - lu(k,152) = 1._r8 / lu(k,152) - lu(k,153) = lu(k,153) * lu(k,152) - lu(k,154) = lu(k,154) * lu(k,152) - lu(k,155) = lu(k,155) * lu(k,152) - lu(k,156) = lu(k,156) * lu(k,152) - lu(k,157) = lu(k,157) * lu(k,152) - lu(k,182) = lu(k,182) - lu(k,153) * lu(k,181) - lu(k,183) = lu(k,183) - lu(k,154) * lu(k,181) - lu(k,184) = lu(k,184) - lu(k,155) * lu(k,181) - lu(k,185) = - lu(k,156) * lu(k,181) - lu(k,186) = lu(k,186) - lu(k,157) * lu(k,181) - lu(k,189) = lu(k,189) - lu(k,153) * lu(k,188) - lu(k,192) = lu(k,192) - lu(k,154) * lu(k,188) - lu(k,193) = lu(k,193) - lu(k,155) * lu(k,188) - lu(k,196) = - lu(k,156) * lu(k,188) - lu(k,197) = lu(k,197) - lu(k,157) * lu(k,188) - lu(k,836) = lu(k,836) - lu(k,153) * lu(k,833) - lu(k,844) = lu(k,844) - lu(k,154) * lu(k,833) - lu(k,853) = lu(k,853) - lu(k,155) * lu(k,833) - lu(k,865) = lu(k,865) - lu(k,156) * lu(k,833) - lu(k,866) = lu(k,866) - lu(k,157) * lu(k,833) - lu(k,1730) = - lu(k,153) * lu(k,1729) - lu(k,1747) = lu(k,1747) - lu(k,154) * lu(k,1729) - lu(k,1756) = lu(k,1756) - lu(k,155) * lu(k,1729) - lu(k,1769) = lu(k,1769) - lu(k,156) * lu(k,1729) - lu(k,1770) = lu(k,1770) - lu(k,157) * lu(k,1729) - lu(k,1782) = lu(k,1782) - lu(k,153) * lu(k,1780) - lu(k,1805) = lu(k,1805) - lu(k,154) * lu(k,1780) - lu(k,1814) = lu(k,1814) - lu(k,155) * lu(k,1780) - lu(k,1827) = lu(k,1827) - lu(k,156) * lu(k,1780) - lu(k,1828) = lu(k,1828) - lu(k,157) * lu(k,1780) - 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,167) = lu(k,167) * lu(k,159) - lu(k,168) = lu(k,168) * lu(k,159) - lu(k,838) = - lu(k,160) * lu(k,834) - lu(k,839) = lu(k,839) - lu(k,161) * lu(k,834) - lu(k,841) = lu(k,841) - lu(k,162) * lu(k,834) - lu(k,844) = lu(k,844) - lu(k,163) * lu(k,834) - lu(k,847) = lu(k,847) - lu(k,164) * lu(k,834) - lu(k,854) = lu(k,854) - lu(k,165) * lu(k,834) - lu(k,858) = lu(k,858) - lu(k,166) * lu(k,834) - lu(k,861) = lu(k,861) - lu(k,167) * lu(k,834) - lu(k,862) = lu(k,862) - lu(k,168) * lu(k,834) - lu(k,1244) = lu(k,1244) - lu(k,160) * lu(k,1242) - lu(k,1247) = lu(k,1247) - lu(k,161) * lu(k,1242) - lu(k,1254) = lu(k,1254) - lu(k,162) * lu(k,1242) - lu(k,1261) = lu(k,1261) - lu(k,163) * lu(k,1242) - lu(k,1264) = lu(k,1264) - lu(k,164) * lu(k,1242) - lu(k,1271) = lu(k,1271) - lu(k,165) * lu(k,1242) - lu(k,1275) = lu(k,1275) - lu(k,166) * lu(k,1242) - lu(k,1278) = lu(k,1278) - lu(k,167) * lu(k,1242) - lu(k,1279) = lu(k,1279) - lu(k,168) * lu(k,1242) - lu(k,1586) = lu(k,1586) - lu(k,160) * lu(k,1584) - lu(k,1594) = lu(k,1594) - lu(k,161) * lu(k,1584) - lu(k,1602) = lu(k,1602) - lu(k,162) * lu(k,1584) - lu(k,1609) = lu(k,1609) - lu(k,163) * lu(k,1584) - lu(k,1612) = lu(k,1612) - lu(k,164) * lu(k,1584) - lu(k,1619) = lu(k,1619) - lu(k,165) * lu(k,1584) - lu(k,1623) = lu(k,1623) - lu(k,166) * lu(k,1584) - lu(k,1626) = lu(k,1626) - lu(k,167) * lu(k,1584) - lu(k,1627) = lu(k,1627) - lu(k,168) * lu(k,1584) - 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,360) = lu(k,360) - lu(k,170) * lu(k,358) - lu(k,364) = lu(k,364) - lu(k,171) * lu(k,358) - lu(k,366) = lu(k,366) - lu(k,172) * lu(k,358) - lu(k,368) = lu(k,368) - lu(k,173) * lu(k,358) - lu(k,369) = lu(k,369) - lu(k,174) * lu(k,358) - lu(k,372) = lu(k,372) - lu(k,175) * lu(k,358) - lu(k,768) = lu(k,768) - lu(k,170) * lu(k,758) - lu(k,775) = lu(k,775) - lu(k,171) * lu(k,758) - lu(k,778) = lu(k,778) - lu(k,172) * lu(k,758) - lu(k,783) = lu(k,783) - lu(k,173) * lu(k,758) - lu(k,784) = lu(k,784) - lu(k,174) * lu(k,758) - lu(k,791) = lu(k,791) - lu(k,175) * lu(k,758) - lu(k,914) = lu(k,914) - lu(k,170) * lu(k,910) - lu(k,924) = lu(k,924) - lu(k,171) * lu(k,910) - lu(k,928) = lu(k,928) - lu(k,172) * lu(k,910) - lu(k,935) = lu(k,935) - lu(k,173) * lu(k,910) - lu(k,936) = lu(k,936) - lu(k,174) * lu(k,910) - lu(k,944) = lu(k,944) - lu(k,175) * lu(k,910) - lu(k,1249) = lu(k,1249) - lu(k,170) * lu(k,1243) - lu(k,1259) = - lu(k,171) * lu(k,1243) - lu(k,1263) = lu(k,1263) - lu(k,172) * lu(k,1243) - lu(k,1270) = lu(k,1270) - lu(k,173) * lu(k,1243) - lu(k,1271) = lu(k,1271) - lu(k,174) * lu(k,1243) - lu(k,1279) = lu(k,1279) - lu(k,175) * lu(k,1243) - lu(k,1596) = lu(k,1596) - lu(k,170) * lu(k,1585) - lu(k,1607) = lu(k,1607) - lu(k,171) * lu(k,1585) - lu(k,1611) = lu(k,1611) - lu(k,172) * lu(k,1585) - lu(k,1618) = lu(k,1618) - lu(k,173) * lu(k,1585) - lu(k,1619) = lu(k,1619) - lu(k,174) * lu(k,1585) - lu(k,1627) = lu(k,1627) - lu(k,175) * lu(k,1585) - 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,775) = lu(k,775) - lu(k,177) * lu(k,759) - lu(k,789) = lu(k,789) - lu(k,178) * lu(k,759) - lu(k,790) = lu(k,790) - lu(k,179) * lu(k,759) - lu(k,795) = lu(k,795) - lu(k,180) * lu(k,759) - lu(k,843) = lu(k,843) - lu(k,177) * lu(k,835) - lu(k,859) = - lu(k,178) * lu(k,835) - lu(k,861) = lu(k,861) - lu(k,179) * lu(k,835) - lu(k,866) = lu(k,866) - lu(k,180) * lu(k,835) - lu(k,1011) = lu(k,1011) - lu(k,177) * lu(k,996) - lu(k,1028) = lu(k,1028) - lu(k,178) * lu(k,996) - lu(k,1030) = lu(k,1030) - lu(k,179) * lu(k,996) - lu(k,1036) = lu(k,1036) - lu(k,180) * lu(k,996) - lu(k,1303) = lu(k,1303) - lu(k,177) * lu(k,1287) - lu(k,1320) = - lu(k,178) * lu(k,1287) - lu(k,1322) = - lu(k,179) * lu(k,1287) - lu(k,1328) = lu(k,1328) - lu(k,180) * lu(k,1287) - lu(k,1342) = lu(k,1342) - lu(k,177) * lu(k,1330) - lu(k,1359) = lu(k,1359) - lu(k,178) * lu(k,1330) - lu(k,1361) = - lu(k,179) * lu(k,1330) - lu(k,1367) = lu(k,1367) - lu(k,180) * lu(k,1330) - lu(k,1550) = lu(k,1550) - lu(k,177) * lu(k,1535) - lu(k,1567) = lu(k,1567) - lu(k,178) * lu(k,1535) - lu(k,1569) = lu(k,1569) - lu(k,179) * lu(k,1535) - lu(k,1575) = lu(k,1575) - lu(k,180) * lu(k,1535) - lu(k,1637) = - lu(k,177) * lu(k,1633) - lu(k,1653) = lu(k,1653) - lu(k,178) * lu(k,1633) - lu(k,1655) = lu(k,1655) - lu(k,179) * lu(k,1633) - lu(k,1661) = lu(k,1661) - lu(k,180) * lu(k,1633) - lu(k,1803) = lu(k,1803) - lu(k,177) * lu(k,1781) - lu(k,1820) = - lu(k,178) * lu(k,1781) - lu(k,1822) = lu(k,1822) - lu(k,179) * lu(k,1781) - lu(k,1828) = lu(k,1828) - lu(k,180) * lu(k,1781) - 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,182) = 1._r8 / lu(k,182) - lu(k,183) = lu(k,183) * lu(k,182) - lu(k,184) = lu(k,184) * lu(k,182) - lu(k,185) = lu(k,185) * lu(k,182) - lu(k,186) = lu(k,186) * lu(k,182) - lu(k,192) = lu(k,192) - lu(k,183) * lu(k,189) - lu(k,193) = lu(k,193) - lu(k,184) * lu(k,189) - lu(k,196) = lu(k,196) - lu(k,185) * lu(k,189) - lu(k,197) = lu(k,197) - lu(k,186) * lu(k,189) - lu(k,730) = - lu(k,183) * lu(k,718) - lu(k,736) = lu(k,736) - lu(k,184) * lu(k,718) - lu(k,747) = - lu(k,185) * lu(k,718) - lu(k,748) = lu(k,748) - lu(k,186) * lu(k,718) - lu(k,776) = - lu(k,183) * lu(k,760) - lu(k,783) = lu(k,783) - lu(k,184) * lu(k,760) - lu(k,794) = - lu(k,185) * lu(k,760) - lu(k,795) = lu(k,795) - lu(k,186) * lu(k,760) - lu(k,844) = lu(k,844) - lu(k,183) * lu(k,836) - lu(k,853) = lu(k,853) - lu(k,184) * lu(k,836) - lu(k,865) = lu(k,865) - lu(k,185) * lu(k,836) - lu(k,866) = lu(k,866) - lu(k,186) * lu(k,836) - lu(k,1140) = lu(k,1140) - lu(k,183) * lu(k,1123) - lu(k,1149) = lu(k,1149) - lu(k,184) * lu(k,1123) - lu(k,1162) = - lu(k,185) * lu(k,1123) - lu(k,1163) = lu(k,1163) - lu(k,186) * lu(k,1123) - lu(k,1214) = lu(k,1214) - lu(k,183) * lu(k,1203) - lu(k,1223) = lu(k,1223) - lu(k,184) * lu(k,1203) - lu(k,1236) = - lu(k,185) * lu(k,1203) - lu(k,1237) = lu(k,1237) - lu(k,186) * lu(k,1203) - lu(k,1747) = lu(k,1747) - lu(k,183) * lu(k,1730) - lu(k,1756) = lu(k,1756) - lu(k,184) * lu(k,1730) - lu(k,1769) = lu(k,1769) - lu(k,185) * lu(k,1730) - lu(k,1770) = lu(k,1770) - lu(k,186) * lu(k,1730) - lu(k,1805) = lu(k,1805) - lu(k,183) * lu(k,1782) - lu(k,1814) = lu(k,1814) - lu(k,184) * lu(k,1782) - lu(k,1827) = lu(k,1827) - lu(k,185) * lu(k,1782) - lu(k,1828) = lu(k,1828) - lu(k,186) * lu(k,1782) - lu(k,190) = 1._r8 / lu(k,190) - lu(k,191) = lu(k,191) * lu(k,190) - lu(k,192) = lu(k,192) * lu(k,190) - lu(k,193) = lu(k,193) * lu(k,190) - lu(k,194) = lu(k,194) * lu(k,190) - lu(k,195) = lu(k,195) * lu(k,190) - lu(k,196) = lu(k,196) * lu(k,190) - lu(k,197) = lu(k,197) * lu(k,190) - lu(k,332) = - lu(k,191) * lu(k,329) - lu(k,333) = lu(k,333) - lu(k,192) * lu(k,329) - lu(k,335) = - lu(k,193) * lu(k,329) - lu(k,336) = lu(k,336) - lu(k,194) * lu(k,329) - lu(k,338) = lu(k,338) - lu(k,195) * lu(k,329) - lu(k,341) = - lu(k,196) * lu(k,329) - lu(k,342) = lu(k,342) - lu(k,197) * lu(k,329) - lu(k,843) = lu(k,843) - lu(k,191) * lu(k,837) - lu(k,844) = lu(k,844) - lu(k,192) * lu(k,837) - lu(k,853) = lu(k,853) - lu(k,193) * lu(k,837) - lu(k,854) = lu(k,854) - lu(k,194) * lu(k,837) - lu(k,858) = lu(k,858) - lu(k,195) * lu(k,837) - lu(k,865) = lu(k,865) - lu(k,196) * lu(k,837) - lu(k,866) = lu(k,866) - lu(k,197) * lu(k,837) - lu(k,1421) = lu(k,1421) - lu(k,191) * lu(k,1403) - lu(k,1423) = lu(k,1423) - lu(k,192) * lu(k,1403) - lu(k,1432) = - lu(k,193) * lu(k,1403) - lu(k,1433) = lu(k,1433) - lu(k,194) * lu(k,1403) - lu(k,1437) = lu(k,1437) - lu(k,195) * lu(k,1403) - lu(k,1445) = - lu(k,196) * lu(k,1403) - lu(k,1446) = lu(k,1446) - lu(k,197) * lu(k,1403) - lu(k,1803) = lu(k,1803) - lu(k,191) * lu(k,1783) - lu(k,1805) = lu(k,1805) - lu(k,192) * lu(k,1783) - lu(k,1814) = lu(k,1814) - lu(k,193) * lu(k,1783) - lu(k,1815) = lu(k,1815) - lu(k,194) * lu(k,1783) - lu(k,1819) = lu(k,1819) - lu(k,195) * lu(k,1783) - lu(k,1827) = lu(k,1827) - lu(k,196) * lu(k,1783) - lu(k,1828) = lu(k,1828) - lu(k,197) * lu(k,1783) - lu(k,199) = 1._r8 / lu(k,199) - lu(k,200) = lu(k,200) * lu(k,199) - lu(k,201) = lu(k,201) * lu(k,199) - lu(k,202) = lu(k,202) * lu(k,199) - lu(k,203) = lu(k,203) * lu(k,199) - lu(k,204) = lu(k,204) * lu(k,199) - lu(k,205) = lu(k,205) * lu(k,199) - lu(k,206) = lu(k,206) * lu(k,199) - lu(k,207) = lu(k,207) * lu(k,199) - lu(k,293) = lu(k,293) - lu(k,200) * lu(k,292) - lu(k,294) = - lu(k,201) * lu(k,292) - lu(k,295) = lu(k,295) - lu(k,202) * lu(k,292) - lu(k,297) = lu(k,297) - lu(k,203) * lu(k,292) - lu(k,298) = lu(k,298) - lu(k,204) * lu(k,292) - lu(k,299) = lu(k,299) - lu(k,205) * lu(k,292) - lu(k,300) = lu(k,300) - lu(k,206) * lu(k,292) - lu(k,303) = lu(k,303) - lu(k,207) * lu(k,292) - lu(k,839) = lu(k,839) - lu(k,200) * lu(k,838) - lu(k,842) = - lu(k,201) * lu(k,838) - lu(k,843) = lu(k,843) - lu(k,202) * lu(k,838) - lu(k,847) = lu(k,847) - lu(k,203) * lu(k,838) - lu(k,853) = lu(k,853) - lu(k,204) * lu(k,838) - lu(k,854) = lu(k,854) - lu(k,205) * lu(k,838) - lu(k,858) = lu(k,858) - lu(k,206) * lu(k,838) - lu(k,862) = lu(k,862) - lu(k,207) * lu(k,838) - lu(k,1247) = lu(k,1247) - lu(k,200) * lu(k,1244) - lu(k,1258) = lu(k,1258) - lu(k,201) * lu(k,1244) - lu(k,1259) = lu(k,1259) - lu(k,202) * lu(k,1244) - lu(k,1264) = lu(k,1264) - lu(k,203) * lu(k,1244) - lu(k,1270) = lu(k,1270) - lu(k,204) * lu(k,1244) - lu(k,1271) = lu(k,1271) - lu(k,205) * lu(k,1244) - lu(k,1275) = lu(k,1275) - lu(k,206) * lu(k,1244) - lu(k,1279) = lu(k,1279) - lu(k,207) * lu(k,1244) - lu(k,1594) = lu(k,1594) - lu(k,200) * lu(k,1586) - lu(k,1606) = lu(k,1606) - lu(k,201) * lu(k,1586) - lu(k,1607) = lu(k,1607) - lu(k,202) * lu(k,1586) - lu(k,1612) = lu(k,1612) - lu(k,203) * lu(k,1586) - lu(k,1618) = lu(k,1618) - lu(k,204) * lu(k,1586) - lu(k,1619) = lu(k,1619) - lu(k,205) * lu(k,1586) - lu(k,1623) = lu(k,1623) - lu(k,206) * lu(k,1586) - lu(k,1627) = lu(k,1627) - lu(k,207) * lu(k,1586) - lu(k,209) = 1._r8 / lu(k,209) - lu(k,210) = lu(k,210) * lu(k,209) - lu(k,211) = lu(k,211) * lu(k,209) - lu(k,212) = lu(k,212) * lu(k,209) - lu(k,213) = lu(k,213) * lu(k,209) - lu(k,214) = lu(k,214) * lu(k,209) - lu(k,215) = lu(k,215) * lu(k,209) - lu(k,216) = lu(k,216) * lu(k,209) - lu(k,464) = - lu(k,210) * lu(k,463) - lu(k,465) = lu(k,465) - lu(k,211) * lu(k,463) - lu(k,469) = lu(k,469) - lu(k,212) * lu(k,463) - lu(k,473) = - lu(k,213) * lu(k,463) - lu(k,474) = lu(k,474) - lu(k,214) * lu(k,463) - lu(k,477) = - lu(k,215) * lu(k,463) - lu(k,483) = lu(k,483) - lu(k,216) * lu(k,463) - lu(k,612) = lu(k,612) - lu(k,210) * lu(k,609) - lu(k,615) = lu(k,615) - lu(k,211) * lu(k,609) - lu(k,620) = lu(k,620) - lu(k,212) * lu(k,609) - lu(k,625) = - lu(k,213) * lu(k,609) - lu(k,626) = lu(k,626) - lu(k,214) * lu(k,609) - lu(k,629) = - lu(k,215) * lu(k,609) - lu(k,638) = lu(k,638) - lu(k,216) * lu(k,609) - lu(k,767) = lu(k,767) - lu(k,210) * lu(k,761) - lu(k,770) = lu(k,770) - lu(k,211) * lu(k,761) - lu(k,775) = lu(k,775) - lu(k,212) * lu(k,761) - lu(k,782) = lu(k,782) - lu(k,213) * lu(k,761) - lu(k,783) = lu(k,783) - lu(k,214) * lu(k,761) - lu(k,786) = lu(k,786) - lu(k,215) * lu(k,761) - lu(k,795) = lu(k,795) - lu(k,216) * lu(k,761) - lu(k,1332) = - lu(k,210) * lu(k,1331) - lu(k,1334) = - lu(k,211) * lu(k,1331) - lu(k,1342) = lu(k,1342) - lu(k,212) * lu(k,1331) - lu(k,1352) = lu(k,1352) - lu(k,213) * lu(k,1331) - lu(k,1353) = lu(k,1353) - lu(k,214) * lu(k,1331) - lu(k,1356) = lu(k,1356) - lu(k,215) * lu(k,1331) - lu(k,1367) = lu(k,1367) - lu(k,216) * lu(k,1331) - lu(k,1786) = - lu(k,210) * lu(k,1784) - lu(k,1793) = lu(k,1793) - lu(k,211) * lu(k,1784) - lu(k,1803) = lu(k,1803) - lu(k,212) * lu(k,1784) - lu(k,1813) = - lu(k,213) * lu(k,1784) - lu(k,1814) = lu(k,1814) - lu(k,214) * lu(k,1784) - lu(k,1817) = lu(k,1817) - lu(k,215) * lu(k,1784) - lu(k,1828) = lu(k,1828) - lu(k,216) * lu(k,1784) - 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,218) = 1._r8 / lu(k,218) - lu(k,219) = lu(k,219) * lu(k,218) - lu(k,220) = lu(k,220) * lu(k,218) - lu(k,221) = lu(k,221) * lu(k,218) - lu(k,222) = lu(k,222) * lu(k,218) - lu(k,223) = lu(k,223) * lu(k,218) - lu(k,224) = lu(k,224) * lu(k,218) - lu(k,225) = lu(k,225) * lu(k,218) - lu(k,564) = lu(k,564) - lu(k,219) * lu(k,561) - lu(k,565) = lu(k,565) - lu(k,220) * lu(k,561) - lu(k,569) = lu(k,569) - lu(k,221) * lu(k,561) - lu(k,570) = lu(k,570) - lu(k,222) * lu(k,561) - lu(k,576) = - lu(k,223) * lu(k,561) - lu(k,580) = lu(k,580) - lu(k,224) * lu(k,561) - lu(k,581) = - lu(k,225) * lu(k,561) - lu(k,723) = lu(k,723) - lu(k,219) * lu(k,719) - lu(k,725) = lu(k,725) - lu(k,220) * lu(k,719) - lu(k,729) = lu(k,729) - lu(k,221) * lu(k,719) - lu(k,731) = lu(k,731) - lu(k,222) * lu(k,719) - lu(k,738) = lu(k,738) - lu(k,223) * lu(k,719) - lu(k,744) = lu(k,744) - lu(k,224) * lu(k,719) - lu(k,748) = lu(k,748) - lu(k,225) * lu(k,719) - lu(k,1294) = lu(k,1294) - lu(k,219) * lu(k,1288) - lu(k,1296) = - lu(k,220) * lu(k,1288) - lu(k,1303) = lu(k,1303) - lu(k,221) * lu(k,1288) - lu(k,1306) = lu(k,1306) - lu(k,222) * lu(k,1288) - lu(k,1316) = lu(k,1316) - lu(k,223) * lu(k,1288) - lu(k,1323) = lu(k,1323) - lu(k,224) * lu(k,1288) - lu(k,1328) = lu(k,1328) - lu(k,225) * lu(k,1288) - lu(k,1456) = lu(k,1456) - lu(k,219) * lu(k,1449) - lu(k,1461) = lu(k,1461) - lu(k,220) * lu(k,1449) - lu(k,1467) = lu(k,1467) - lu(k,221) * lu(k,1449) - lu(k,1470) = lu(k,1470) - lu(k,222) * lu(k,1449) - lu(k,1480) = - lu(k,223) * lu(k,1449) - lu(k,1487) = lu(k,1487) - lu(k,224) * lu(k,1449) - lu(k,1492) = lu(k,1492) - lu(k,225) * lu(k,1449) - lu(k,1598) = lu(k,1598) - lu(k,219) * lu(k,1587) - lu(k,1600) = lu(k,1600) - lu(k,220) * lu(k,1587) - lu(k,1607) = lu(k,1607) - lu(k,221) * lu(k,1587) - lu(k,1610) = lu(k,1610) - lu(k,222) * lu(k,1587) - lu(k,1620) = lu(k,1620) - lu(k,223) * lu(k,1587) - lu(k,1627) = lu(k,1627) - lu(k,224) * lu(k,1587) - lu(k,1632) = lu(k,1632) - lu(k,225) * lu(k,1587) - lu(k,226) = 1._r8 / lu(k,226) - lu(k,227) = lu(k,227) * lu(k,226) - lu(k,228) = lu(k,228) * lu(k,226) - lu(k,229) = lu(k,229) * lu(k,226) - lu(k,230) = lu(k,230) * lu(k,226) - lu(k,231) = lu(k,231) * lu(k,226) - lu(k,232) = lu(k,232) * lu(k,226) - lu(k,233) = lu(k,233) * lu(k,226) - lu(k,451) = lu(k,451) - lu(k,227) * lu(k,450) - lu(k,452) = lu(k,452) - lu(k,228) * lu(k,450) - lu(k,454) = - lu(k,229) * lu(k,450) - lu(k,456) = lu(k,456) - lu(k,230) * lu(k,450) - lu(k,458) = lu(k,458) - lu(k,231) * lu(k,450) - lu(k,460) = - lu(k,232) * lu(k,450) - lu(k,461) = - lu(k,233) * lu(k,450) - lu(k,584) = lu(k,584) - lu(k,227) * lu(k,583) - lu(k,586) = - lu(k,228) * lu(k,583) - lu(k,588) = - lu(k,229) * lu(k,583) - lu(k,590) = lu(k,590) - lu(k,230) * lu(k,583) - lu(k,596) = lu(k,596) - lu(k,231) * lu(k,583) - lu(k,602) = lu(k,602) - lu(k,232) * lu(k,583) - lu(k,605) = lu(k,605) - lu(k,233) * lu(k,583) - lu(k,614) = lu(k,614) - lu(k,227) * lu(k,610) - lu(k,616) = lu(k,616) - lu(k,228) * lu(k,610) - lu(k,618) = lu(k,618) - lu(k,229) * lu(k,610) - lu(k,620) = lu(k,620) - lu(k,230) * lu(k,610) - lu(k,626) = lu(k,626) - lu(k,231) * lu(k,610) - lu(k,634) = lu(k,634) - lu(k,232) * lu(k,610) - lu(k,638) = lu(k,638) - lu(k,233) * lu(k,610) - lu(k,723) = lu(k,723) - lu(k,227) * lu(k,720) - lu(k,725) = lu(k,725) - lu(k,228) * lu(k,720) - lu(k,727) = - lu(k,229) * lu(k,720) - lu(k,729) = lu(k,729) - lu(k,230) * lu(k,720) - lu(k,736) = lu(k,736) - lu(k,231) * lu(k,720) - lu(k,744) = lu(k,744) - lu(k,232) * lu(k,720) - lu(k,748) = lu(k,748) - lu(k,233) * lu(k,720) - lu(k,769) = lu(k,769) - lu(k,227) * lu(k,762) - lu(k,771) = lu(k,771) - lu(k,228) * lu(k,762) - lu(k,773) = lu(k,773) - lu(k,229) * lu(k,762) - lu(k,775) = lu(k,775) - lu(k,230) * lu(k,762) - lu(k,783) = lu(k,783) - lu(k,231) * lu(k,762) - lu(k,791) = lu(k,791) - lu(k,232) * lu(k,762) - lu(k,795) = lu(k,795) - lu(k,233) * lu(k,762) - lu(k,1598) = lu(k,1598) - lu(k,227) * lu(k,1588) - lu(k,1600) = lu(k,1600) - lu(k,228) * lu(k,1588) - lu(k,1602) = lu(k,1602) - lu(k,229) * lu(k,1588) - lu(k,1607) = lu(k,1607) - lu(k,230) * lu(k,1588) - lu(k,1618) = lu(k,1618) - lu(k,231) * lu(k,1588) - lu(k,1627) = lu(k,1627) - lu(k,232) * lu(k,1588) - lu(k,1632) = lu(k,1632) - lu(k,233) * lu(k,1588) - lu(k,235) = 1._r8 / lu(k,235) - lu(k,236) = lu(k,236) * lu(k,235) - lu(k,237) = lu(k,237) * lu(k,235) - lu(k,238) = lu(k,238) * lu(k,235) - lu(k,239) = lu(k,239) * lu(k,235) - lu(k,240) = lu(k,240) * lu(k,235) - lu(k,241) = lu(k,241) * lu(k,235) - lu(k,260) = lu(k,260) - lu(k,236) * lu(k,258) - lu(k,261) = lu(k,261) - lu(k,237) * lu(k,258) - lu(k,262) = lu(k,262) - lu(k,238) * lu(k,258) - lu(k,264) = lu(k,264) - lu(k,239) * lu(k,258) - lu(k,267) = lu(k,267) - lu(k,240) * lu(k,258) - lu(k,268) = - lu(k,241) * lu(k,258) - lu(k,729) = lu(k,729) - lu(k,236) * lu(k,721) - lu(k,731) = lu(k,731) - lu(k,237) * lu(k,721) - lu(k,733) = lu(k,733) - lu(k,238) * lu(k,721) - lu(k,738) = lu(k,738) - lu(k,239) * lu(k,721) - lu(k,744) = lu(k,744) - lu(k,240) * lu(k,721) - lu(k,748) = lu(k,748) - lu(k,241) * lu(k,721) - lu(k,775) = lu(k,775) - lu(k,236) * lu(k,763) - lu(k,777) = lu(k,777) - lu(k,237) * lu(k,763) - lu(k,780) = lu(k,780) - lu(k,238) * lu(k,763) - lu(k,785) = lu(k,785) - lu(k,239) * lu(k,763) - lu(k,791) = lu(k,791) - lu(k,240) * lu(k,763) - lu(k,795) = lu(k,795) - lu(k,241) * lu(k,763) - lu(k,883) = lu(k,883) - lu(k,236) * lu(k,870) - lu(k,886) = lu(k,886) - lu(k,237) * lu(k,870) - lu(k,891) = lu(k,891) - lu(k,238) * lu(k,870) - lu(k,896) = lu(k,896) - lu(k,239) * lu(k,870) - lu(k,903) = lu(k,903) - lu(k,240) * lu(k,870) - lu(k,908) = lu(k,908) - lu(k,241) * lu(k,870) - lu(k,1097) = lu(k,1097) - lu(k,236) * lu(k,1083) - lu(k,1100) = lu(k,1100) - lu(k,237) * lu(k,1083) - lu(k,1105) = lu(k,1105) - lu(k,238) * lu(k,1083) - lu(k,1110) = lu(k,1110) - lu(k,239) * lu(k,1083) - lu(k,1117) = lu(k,1117) - lu(k,240) * lu(k,1083) - lu(k,1122) = - lu(k,241) * lu(k,1083) - lu(k,1303) = lu(k,1303) - lu(k,236) * lu(k,1289) - lu(k,1306) = lu(k,1306) - lu(k,237) * lu(k,1289) - lu(k,1311) = lu(k,1311) - lu(k,238) * lu(k,1289) - lu(k,1316) = lu(k,1316) - lu(k,239) * lu(k,1289) - lu(k,1323) = lu(k,1323) - lu(k,240) * lu(k,1289) - lu(k,1328) = lu(k,1328) - lu(k,241) * lu(k,1289) - lu(k,1607) = lu(k,1607) - lu(k,236) * lu(k,1589) - lu(k,1610) = lu(k,1610) - lu(k,237) * lu(k,1589) - lu(k,1615) = lu(k,1615) - lu(k,238) * lu(k,1589) - lu(k,1620) = lu(k,1620) - lu(k,239) * lu(k,1589) - lu(k,1627) = lu(k,1627) - lu(k,240) * lu(k,1589) - lu(k,1632) = lu(k,1632) - lu(k,241) * lu(k,1589) - lu(k,242) = 1._r8 / lu(k,242) - lu(k,243) = lu(k,243) * lu(k,242) - lu(k,244) = lu(k,244) * lu(k,242) - lu(k,245) = lu(k,245) * lu(k,242) - lu(k,246) = lu(k,246) * lu(k,242) - lu(k,247) = lu(k,247) * lu(k,242) - lu(k,248) = lu(k,248) * lu(k,242) - lu(k,249) = lu(k,249) * lu(k,242) - lu(k,331) = lu(k,331) - lu(k,243) * lu(k,330) - lu(k,333) = lu(k,333) - lu(k,244) * lu(k,330) - lu(k,334) = lu(k,334) - lu(k,245) * lu(k,330) - lu(k,336) = lu(k,336) - lu(k,246) * lu(k,330) - lu(k,337) = - lu(k,247) * lu(k,330) - lu(k,338) = lu(k,338) - lu(k,248) * lu(k,330) - lu(k,340) = - lu(k,249) * lu(k,330) - lu(k,613) = - lu(k,243) * lu(k,611) - lu(k,621) = - lu(k,244) * lu(k,611) - lu(k,623) = lu(k,623) - lu(k,245) * lu(k,611) - lu(k,627) = lu(k,627) - lu(k,246) * lu(k,611) - lu(k,630) = - lu(k,247) * lu(k,611) - lu(k,631) = - lu(k,248) * lu(k,611) - lu(k,636) = - lu(k,249) * lu(k,611) - lu(k,913) = - lu(k,243) * lu(k,911) - lu(k,926) = lu(k,926) - lu(k,244) * lu(k,911) - lu(k,928) = lu(k,928) - lu(k,245) * lu(k,911) - lu(k,936) = lu(k,936) - lu(k,246) * lu(k,911) - lu(k,939) = lu(k,939) - lu(k,247) * lu(k,911) - lu(k,940) = - lu(k,248) * lu(k,911) - lu(k,947) = lu(k,947) - lu(k,249) * lu(k,911) - lu(k,1248) = lu(k,1248) - lu(k,243) * lu(k,1245) - lu(k,1261) = lu(k,1261) - lu(k,244) * lu(k,1245) - lu(k,1263) = lu(k,1263) - lu(k,245) * lu(k,1245) - lu(k,1271) = lu(k,1271) - lu(k,246) * lu(k,1245) - lu(k,1274) = lu(k,1274) - lu(k,247) * lu(k,1245) - lu(k,1275) = lu(k,1275) - lu(k,248) * lu(k,1245) - lu(k,1282) = lu(k,1282) - lu(k,249) * lu(k,1245) - lu(k,1371) = - lu(k,243) * lu(k,1369) - lu(k,1379) = lu(k,1379) - lu(k,244) * lu(k,1369) - lu(k,1381) = lu(k,1381) - lu(k,245) * lu(k,1369) - lu(k,1389) = lu(k,1389) - lu(k,246) * lu(k,1369) - lu(k,1392) = lu(k,1392) - lu(k,247) * lu(k,1369) - lu(k,1393) = lu(k,1393) - lu(k,248) * lu(k,1369) - lu(k,1400) = lu(k,1400) - lu(k,249) * lu(k,1369) - lu(k,1595) = lu(k,1595) - lu(k,243) * lu(k,1590) - lu(k,1609) = lu(k,1609) - lu(k,244) * lu(k,1590) - lu(k,1611) = lu(k,1611) - lu(k,245) * lu(k,1590) - lu(k,1619) = lu(k,1619) - lu(k,246) * lu(k,1590) - lu(k,1622) = lu(k,1622) - lu(k,247) * lu(k,1590) - lu(k,1623) = lu(k,1623) - lu(k,248) * lu(k,1590) - lu(k,1630) = lu(k,1630) - lu(k,249) * lu(k,1590) - lu(k,1695) = - lu(k,243) * lu(k,1694) - lu(k,1705) = lu(k,1705) - lu(k,244) * lu(k,1694) - lu(k,1707) = lu(k,1707) - lu(k,245) * lu(k,1694) - lu(k,1715) = lu(k,1715) - lu(k,246) * lu(k,1694) - lu(k,1718) = - lu(k,247) * lu(k,1694) - lu(k,1719) = - lu(k,248) * lu(k,1694) - lu(k,1726) = lu(k,1726) - lu(k,249) * lu(k,1694) - 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,251) = 1._r8 / lu(k,251) - lu(k,252) = lu(k,252) * lu(k,251) - lu(k,253) = lu(k,253) * lu(k,251) - lu(k,254) = lu(k,254) * lu(k,251) - lu(k,255) = lu(k,255) * lu(k,251) - lu(k,256) = lu(k,256) * lu(k,251) - lu(k,360) = lu(k,360) - lu(k,252) * lu(k,359) - lu(k,363) = - lu(k,253) * lu(k,359) - lu(k,364) = lu(k,364) - lu(k,254) * lu(k,359) - lu(k,372) = lu(k,372) - lu(k,255) * lu(k,359) - lu(k,373) = - lu(k,256) * lu(k,359) - lu(k,563) = lu(k,563) - lu(k,252) * lu(k,562) - lu(k,568) = lu(k,568) - lu(k,253) * lu(k,562) - lu(k,569) = lu(k,569) - lu(k,254) * lu(k,562) - lu(k,580) = lu(k,580) - lu(k,255) * lu(k,562) - lu(k,581) = lu(k,581) - lu(k,256) * lu(k,562) - lu(k,768) = lu(k,768) - lu(k,252) * lu(k,764) - lu(k,774) = lu(k,774) - lu(k,253) * lu(k,764) - lu(k,775) = lu(k,775) - lu(k,254) * lu(k,764) - lu(k,791) = lu(k,791) - lu(k,255) * lu(k,764) - lu(k,795) = lu(k,795) - lu(k,256) * lu(k,764) - lu(k,914) = lu(k,914) - lu(k,252) * lu(k,912) - lu(k,923) = lu(k,923) - lu(k,253) * lu(k,912) - lu(k,924) = lu(k,924) - lu(k,254) * lu(k,912) - lu(k,944) = lu(k,944) - lu(k,255) * lu(k,912) - lu(k,949) = - lu(k,256) * lu(k,912) - lu(k,1088) = lu(k,1088) - lu(k,252) * lu(k,1084) - lu(k,1096) = lu(k,1096) - lu(k,253) * lu(k,1084) - lu(k,1097) = lu(k,1097) - lu(k,254) * lu(k,1084) - lu(k,1117) = lu(k,1117) - lu(k,255) * lu(k,1084) - lu(k,1122) = lu(k,1122) - lu(k,256) * lu(k,1084) - lu(k,1168) = - lu(k,252) * lu(k,1166) - lu(k,1177) = lu(k,1177) - lu(k,253) * lu(k,1166) - lu(k,1178) = lu(k,1178) - lu(k,254) * lu(k,1166) - lu(k,1197) = lu(k,1197) - lu(k,255) * lu(k,1166) - lu(k,1202) = - lu(k,256) * lu(k,1166) - lu(k,1249) = lu(k,1249) - lu(k,252) * lu(k,1246) - lu(k,1258) = lu(k,1258) - lu(k,253) * lu(k,1246) - lu(k,1259) = lu(k,1259) - lu(k,254) * lu(k,1246) - lu(k,1279) = lu(k,1279) - lu(k,255) * lu(k,1246) - lu(k,1284) = - lu(k,256) * lu(k,1246) - lu(k,1454) = lu(k,1454) - lu(k,252) * lu(k,1450) - lu(k,1466) = lu(k,1466) - lu(k,253) * lu(k,1450) - lu(k,1467) = lu(k,1467) - lu(k,254) * lu(k,1450) - lu(k,1487) = lu(k,1487) - lu(k,255) * lu(k,1450) - lu(k,1492) = lu(k,1492) - lu(k,256) * lu(k,1450) - lu(k,1596) = lu(k,1596) - lu(k,252) * lu(k,1591) - lu(k,1606) = lu(k,1606) - lu(k,253) * lu(k,1591) - lu(k,1607) = lu(k,1607) - lu(k,254) * lu(k,1591) - lu(k,1627) = lu(k,1627) - lu(k,255) * lu(k,1591) - lu(k,1632) = lu(k,1632) - lu(k,256) * lu(k,1591) - lu(k,1789) = - lu(k,252) * lu(k,1785) - lu(k,1802) = - lu(k,253) * lu(k,1785) - lu(k,1803) = lu(k,1803) - lu(k,254) * lu(k,1785) - lu(k,1823) = lu(k,1823) - lu(k,255) * lu(k,1785) - lu(k,1828) = lu(k,1828) - lu(k,256) * lu(k,1785) - lu(k,259) = 1._r8 / lu(k,259) - lu(k,260) = lu(k,260) * lu(k,259) - lu(k,261) = lu(k,261) * lu(k,259) - lu(k,262) = lu(k,262) * lu(k,259) - lu(k,263) = lu(k,263) * lu(k,259) - lu(k,264) = lu(k,264) * lu(k,259) - lu(k,265) = lu(k,265) * lu(k,259) - lu(k,266) = lu(k,266) * lu(k,259) - lu(k,267) = lu(k,267) * lu(k,259) - lu(k,268) = lu(k,268) * lu(k,259) - lu(k,775) = lu(k,775) - lu(k,260) * lu(k,765) - lu(k,777) = lu(k,777) - lu(k,261) * lu(k,765) - lu(k,780) = lu(k,780) - lu(k,262) * lu(k,765) - lu(k,782) = lu(k,782) - lu(k,263) * lu(k,765) - lu(k,785) = lu(k,785) - lu(k,264) * lu(k,765) - lu(k,786) = lu(k,786) - lu(k,265) * lu(k,765) - lu(k,789) = lu(k,789) - lu(k,266) * lu(k,765) - lu(k,791) = lu(k,791) - lu(k,267) * lu(k,765) - lu(k,795) = lu(k,795) - lu(k,268) * lu(k,765) - lu(k,883) = lu(k,883) - lu(k,260) * lu(k,871) - lu(k,886) = lu(k,886) - lu(k,261) * lu(k,871) - lu(k,891) = lu(k,891) - lu(k,262) * lu(k,871) - lu(k,893) = lu(k,893) - lu(k,263) * lu(k,871) - lu(k,896) = lu(k,896) - lu(k,264) * lu(k,871) - lu(k,897) = - lu(k,265) * lu(k,871) - lu(k,900) = lu(k,900) - lu(k,266) * lu(k,871) - lu(k,903) = lu(k,903) - lu(k,267) * lu(k,871) - lu(k,908) = lu(k,908) - lu(k,268) * lu(k,871) - lu(k,1097) = lu(k,1097) - lu(k,260) * lu(k,1085) - lu(k,1100) = lu(k,1100) - lu(k,261) * lu(k,1085) - lu(k,1105) = lu(k,1105) - lu(k,262) * lu(k,1085) - lu(k,1107) = lu(k,1107) - lu(k,263) * lu(k,1085) - lu(k,1110) = lu(k,1110) - lu(k,264) * lu(k,1085) - lu(k,1111) = - lu(k,265) * lu(k,1085) - lu(k,1114) = lu(k,1114) - lu(k,266) * lu(k,1085) - lu(k,1117) = lu(k,1117) - lu(k,267) * lu(k,1085) - lu(k,1122) = lu(k,1122) - lu(k,268) * lu(k,1085) - lu(k,1303) = lu(k,1303) - lu(k,260) * lu(k,1290) - lu(k,1306) = lu(k,1306) - lu(k,261) * lu(k,1290) - lu(k,1311) = lu(k,1311) - lu(k,262) * lu(k,1290) - lu(k,1313) = - lu(k,263) * lu(k,1290) - lu(k,1316) = lu(k,1316) - lu(k,264) * lu(k,1290) - lu(k,1317) = lu(k,1317) - lu(k,265) * lu(k,1290) - lu(k,1320) = lu(k,1320) - lu(k,266) * lu(k,1290) - lu(k,1323) = lu(k,1323) - lu(k,267) * lu(k,1290) - lu(k,1328) = lu(k,1328) - lu(k,268) * lu(k,1290) - lu(k,1467) = lu(k,1467) - lu(k,260) * lu(k,1451) - lu(k,1470) = lu(k,1470) - lu(k,261) * lu(k,1451) - lu(k,1475) = lu(k,1475) - lu(k,262) * lu(k,1451) - lu(k,1477) = lu(k,1477) - lu(k,263) * lu(k,1451) - lu(k,1480) = lu(k,1480) - lu(k,264) * lu(k,1451) - lu(k,1481) = lu(k,1481) - lu(k,265) * lu(k,1451) - lu(k,1484) = lu(k,1484) - lu(k,266) * lu(k,1451) - lu(k,1487) = lu(k,1487) - lu(k,267) * lu(k,1451) - lu(k,1492) = lu(k,1492) - lu(k,268) * lu(k,1451) - lu(k,1607) = lu(k,1607) - lu(k,260) * lu(k,1592) - lu(k,1610) = lu(k,1610) - lu(k,261) * lu(k,1592) - lu(k,1615) = lu(k,1615) - lu(k,262) * lu(k,1592) - lu(k,1617) = lu(k,1617) - lu(k,263) * lu(k,1592) - lu(k,1620) = lu(k,1620) - lu(k,264) * lu(k,1592) - lu(k,1621) = lu(k,1621) - lu(k,265) * lu(k,1592) - lu(k,1624) = lu(k,1624) - lu(k,266) * lu(k,1592) - lu(k,1627) = lu(k,1627) - lu(k,267) * lu(k,1592) - lu(k,1632) = lu(k,1632) - lu(k,268) * lu(k,1592) - lu(k,269) = 1._r8 / lu(k,269) - lu(k,270) = lu(k,270) * lu(k,269) - lu(k,271) = lu(k,271) * lu(k,269) - lu(k,272) = lu(k,272) * lu(k,269) - lu(k,273) = lu(k,273) * lu(k,269) - lu(k,274) = lu(k,274) * lu(k,269) - lu(k,275) = lu(k,275) * lu(k,269) - lu(k,276) = lu(k,276) * lu(k,269) - lu(k,642) = lu(k,642) - lu(k,270) * lu(k,639) - lu(k,648) = lu(k,648) - lu(k,271) * lu(k,639) - lu(k,656) = lu(k,656) - lu(k,272) * lu(k,639) - lu(k,660) = - lu(k,273) * lu(k,639) - lu(k,662) = lu(k,662) - lu(k,274) * lu(k,639) - lu(k,663) = lu(k,663) - lu(k,275) * lu(k,639) - lu(k,664) = - lu(k,276) * lu(k,639) - lu(k,800) = lu(k,800) - lu(k,270) * lu(k,796) - lu(k,805) = lu(k,805) - lu(k,271) * lu(k,796) - lu(k,814) = lu(k,814) - lu(k,272) * lu(k,796) - lu(k,819) = lu(k,819) - lu(k,273) * lu(k,796) - lu(k,821) = lu(k,821) - lu(k,274) * lu(k,796) - lu(k,822) = lu(k,822) - lu(k,275) * lu(k,796) - lu(k,823) = lu(k,823) - lu(k,276) * lu(k,796) - lu(k,880) = lu(k,880) - lu(k,270) * lu(k,872) - lu(k,886) = lu(k,886) - lu(k,271) * lu(k,872) - lu(k,895) = lu(k,895) - lu(k,272) * lu(k,872) - lu(k,900) = lu(k,900) - lu(k,273) * lu(k,872) - lu(k,902) = - lu(k,274) * lu(k,872) - lu(k,903) = lu(k,903) - lu(k,275) * lu(k,872) - lu(k,904) = lu(k,904) - lu(k,276) * lu(k,872) - lu(k,1094) = lu(k,1094) - lu(k,270) * lu(k,1086) - lu(k,1100) = lu(k,1100) - lu(k,271) * lu(k,1086) - lu(k,1109) = lu(k,1109) - lu(k,272) * lu(k,1086) - lu(k,1114) = lu(k,1114) - lu(k,273) * lu(k,1086) - lu(k,1116) = lu(k,1116) - lu(k,274) * lu(k,1086) - lu(k,1117) = lu(k,1117) - lu(k,275) * lu(k,1086) - lu(k,1118) = lu(k,1118) - lu(k,276) * lu(k,1086) - lu(k,1374) = lu(k,1374) - lu(k,270) * lu(k,1370) - lu(k,1380) = lu(k,1380) - lu(k,271) * lu(k,1370) - lu(k,1389) = lu(k,1389) - lu(k,272) * lu(k,1370) - lu(k,1394) = lu(k,1394) - lu(k,273) * lu(k,1370) - lu(k,1396) = lu(k,1396) - lu(k,274) * lu(k,1370) - lu(k,1397) = lu(k,1397) - lu(k,275) * lu(k,1370) - lu(k,1398) = lu(k,1398) - lu(k,276) * lu(k,1370) - lu(k,1547) = lu(k,1547) - lu(k,270) * lu(k,1536) - lu(k,1553) = lu(k,1553) - lu(k,271) * lu(k,1536) - lu(k,1562) = lu(k,1562) - lu(k,272) * lu(k,1536) - lu(k,1567) = lu(k,1567) - lu(k,273) * lu(k,1536) - lu(k,1569) = lu(k,1569) - lu(k,274) * lu(k,1536) - lu(k,1570) = lu(k,1570) - lu(k,275) * lu(k,1536) - lu(k,1571) = lu(k,1571) - lu(k,276) * lu(k,1536) - lu(k,1604) = lu(k,1604) - lu(k,270) * lu(k,1593) - lu(k,1610) = lu(k,1610) - lu(k,271) * lu(k,1593) - lu(k,1619) = lu(k,1619) - lu(k,272) * lu(k,1593) - lu(k,1624) = lu(k,1624) - lu(k,273) * lu(k,1593) - lu(k,1626) = lu(k,1626) - lu(k,274) * lu(k,1593) - lu(k,1627) = lu(k,1627) - lu(k,275) * lu(k,1593) - lu(k,1628) = lu(k,1628) - lu(k,276) * lu(k,1593) - lu(k,1665) = lu(k,1665) - lu(k,270) * lu(k,1662) - lu(k,1671) = lu(k,1671) - lu(k,271) * lu(k,1662) - lu(k,1680) = - lu(k,272) * lu(k,1662) - lu(k,1685) = lu(k,1685) - lu(k,273) * lu(k,1662) - lu(k,1687) = - lu(k,274) * lu(k,1662) - lu(k,1688) = lu(k,1688) - lu(k,275) * lu(k,1662) - lu(k,1689) = lu(k,1689) - lu(k,276) * lu(k,1662) - lu(k,279) = 1._r8 / lu(k,279) - lu(k,280) = lu(k,280) * lu(k,279) - lu(k,281) = lu(k,281) * lu(k,279) - lu(k,282) = lu(k,282) * lu(k,279) - lu(k,283) = lu(k,283) * lu(k,279) - lu(k,284) = lu(k,284) * lu(k,279) - lu(k,285) = lu(k,285) * lu(k,279) - lu(k,286) = lu(k,286) * lu(k,279) - lu(k,287) = lu(k,287) * lu(k,279) - lu(k,288) = lu(k,288) * lu(k,279) - lu(k,289) = lu(k,289) * lu(k,279) - lu(k,290) = lu(k,290) * lu(k,279) - lu(k,499) = lu(k,499) - lu(k,280) * lu(k,498) - lu(k,500) = lu(k,500) - lu(k,281) * lu(k,498) - lu(k,501) = lu(k,501) - lu(k,282) * lu(k,498) - lu(k,505) = lu(k,505) - lu(k,283) * lu(k,498) - lu(k,507) = lu(k,507) - lu(k,284) * lu(k,498) - lu(k,510) = lu(k,510) - lu(k,285) * lu(k,498) - lu(k,512) = - lu(k,286) * lu(k,498) - lu(k,513) = lu(k,513) - lu(k,287) * lu(k,498) - lu(k,514) = lu(k,514) - lu(k,288) * lu(k,498) - lu(k,515) = - lu(k,289) * lu(k,498) - lu(k,517) = lu(k,517) - lu(k,290) * lu(k,498) - lu(k,539) = lu(k,539) - lu(k,280) * lu(k,538) - lu(k,540) = lu(k,540) - lu(k,281) * lu(k,538) - lu(k,541) = lu(k,541) - lu(k,282) * lu(k,538) - lu(k,545) = lu(k,545) - lu(k,283) * lu(k,538) - lu(k,547) = lu(k,547) - lu(k,284) * lu(k,538) - lu(k,550) = lu(k,550) - lu(k,285) * lu(k,538) - lu(k,552) = - lu(k,286) * lu(k,538) - lu(k,553) = lu(k,553) - lu(k,287) * lu(k,538) - lu(k,554) = lu(k,554) - lu(k,288) * lu(k,538) - lu(k,555) = - lu(k,289) * lu(k,538) - lu(k,557) = lu(k,557) - lu(k,290) * lu(k,538) - lu(k,1045) = lu(k,1045) - lu(k,280) * lu(k,1038) - lu(k,1046) = lu(k,1046) - lu(k,281) * lu(k,1038) - lu(k,1048) = lu(k,1048) - lu(k,282) * lu(k,1038) - lu(k,1060) = lu(k,1060) - lu(k,283) * lu(k,1038) - lu(k,1063) = lu(k,1063) - lu(k,284) * lu(k,1038) - lu(k,1067) = lu(k,1067) - lu(k,285) * lu(k,1038) - lu(k,1070) = lu(k,1070) - lu(k,286) * lu(k,1038) - lu(k,1071) = lu(k,1071) - lu(k,287) * lu(k,1038) - lu(k,1072) = - lu(k,288) * lu(k,1038) - lu(k,1073) = lu(k,1073) - lu(k,289) * lu(k,1038) - lu(k,1078) = lu(k,1078) - lu(k,290) * lu(k,1038) - lu(k,1170) = - lu(k,280) * lu(k,1167) - lu(k,1171) = - lu(k,281) * lu(k,1167) - lu(k,1172) = - lu(k,282) * lu(k,1167) - lu(k,1184) = - lu(k,283) * lu(k,1167) - lu(k,1187) = lu(k,1187) - lu(k,284) * lu(k,1167) - lu(k,1191) = lu(k,1191) - lu(k,285) * lu(k,1167) - lu(k,1194) = lu(k,1194) - lu(k,286) * lu(k,1167) - lu(k,1195) = - lu(k,287) * lu(k,1167) - lu(k,1196) = lu(k,1196) - lu(k,288) * lu(k,1167) - lu(k,1197) = lu(k,1197) - lu(k,289) * lu(k,1167) - lu(k,1202) = lu(k,1202) - lu(k,290) * lu(k,1167) - lu(k,1457) = - lu(k,280) * lu(k,1452) - lu(k,1458) = - lu(k,281) * lu(k,1452) - lu(k,1460) = lu(k,1460) - lu(k,282) * lu(k,1452) - lu(k,1474) = - lu(k,283) * lu(k,1452) - lu(k,1477) = lu(k,1477) - lu(k,284) * lu(k,1452) - lu(k,1481) = lu(k,1481) - lu(k,285) * lu(k,1452) - lu(k,1484) = lu(k,1484) - lu(k,286) * lu(k,1452) - lu(k,1485) = - lu(k,287) * lu(k,1452) - lu(k,1486) = lu(k,1486) - lu(k,288) * lu(k,1452) - lu(k,1487) = lu(k,1487) - lu(k,289) * lu(k,1452) - lu(k,1492) = lu(k,1492) - lu(k,290) * lu(k,1452) - lu(k,1501) = lu(k,1501) - lu(k,280) * lu(k,1494) - lu(k,1502) = lu(k,1502) - lu(k,281) * lu(k,1494) - lu(k,1504) = lu(k,1504) - lu(k,282) * lu(k,1494) - lu(k,1516) = lu(k,1516) - lu(k,283) * lu(k,1494) - lu(k,1519) = lu(k,1519) - lu(k,284) * lu(k,1494) - lu(k,1523) = lu(k,1523) - lu(k,285) * lu(k,1494) - lu(k,1526) = lu(k,1526) - lu(k,286) * lu(k,1494) - lu(k,1527) = lu(k,1527) - lu(k,287) * lu(k,1494) - lu(k,1528) = - lu(k,288) * lu(k,1494) - lu(k,1529) = lu(k,1529) - lu(k,289) * lu(k,1494) - lu(k,1534) = lu(k,1534) - lu(k,290) * lu(k,1494) - 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,293) = 1._r8 / lu(k,293) - lu(k,294) = lu(k,294) * lu(k,293) - lu(k,295) = lu(k,295) * lu(k,293) - lu(k,296) = lu(k,296) * lu(k,293) - lu(k,297) = lu(k,297) * lu(k,293) - lu(k,298) = lu(k,298) * lu(k,293) - lu(k,299) = lu(k,299) * lu(k,293) - lu(k,300) = lu(k,300) * lu(k,293) - lu(k,301) = lu(k,301) * lu(k,293) - lu(k,302) = lu(k,302) * lu(k,293) - lu(k,303) = lu(k,303) * lu(k,293) - lu(k,774) = lu(k,774) - lu(k,294) * lu(k,766) - lu(k,775) = lu(k,775) - lu(k,295) * lu(k,766) - lu(k,776) = lu(k,776) - lu(k,296) * lu(k,766) - lu(k,779) = - lu(k,297) * lu(k,766) - lu(k,783) = lu(k,783) - lu(k,298) * lu(k,766) - lu(k,784) = lu(k,784) - lu(k,299) * lu(k,766) - lu(k,788) = - lu(k,300) * lu(k,766) - lu(k,789) = lu(k,789) - lu(k,301) * lu(k,766) - lu(k,790) = lu(k,790) - lu(k,302) * lu(k,766) - lu(k,791) = lu(k,791) - lu(k,303) * lu(k,766) - lu(k,842) = lu(k,842) - lu(k,294) * lu(k,839) - lu(k,843) = lu(k,843) - lu(k,295) * lu(k,839) - lu(k,844) = lu(k,844) - lu(k,296) * lu(k,839) - lu(k,847) = lu(k,847) - lu(k,297) * lu(k,839) - lu(k,853) = lu(k,853) - lu(k,298) * lu(k,839) - lu(k,854) = lu(k,854) - lu(k,299) * lu(k,839) - lu(k,858) = lu(k,858) - lu(k,300) * lu(k,839) - lu(k,859) = lu(k,859) - lu(k,301) * lu(k,839) - lu(k,861) = lu(k,861) - lu(k,302) * lu(k,839) - lu(k,862) = lu(k,862) - lu(k,303) * lu(k,839) - lu(k,968) = - lu(k,294) * lu(k,953) - lu(k,969) = lu(k,969) - lu(k,295) * lu(k,953) - lu(k,971) = lu(k,971) - lu(k,296) * lu(k,953) - lu(k,974) = lu(k,974) - lu(k,297) * lu(k,953) - lu(k,980) = - lu(k,298) * lu(k,953) - lu(k,981) = lu(k,981) - lu(k,299) * lu(k,953) - lu(k,985) = - lu(k,300) * lu(k,953) - lu(k,986) = lu(k,986) - lu(k,301) * lu(k,953) - lu(k,988) = lu(k,988) - lu(k,302) * lu(k,953) - lu(k,989) = lu(k,989) - lu(k,303) * lu(k,953) - lu(k,1258) = lu(k,1258) - lu(k,294) * lu(k,1247) - lu(k,1259) = lu(k,1259) - lu(k,295) * lu(k,1247) - lu(k,1261) = lu(k,1261) - lu(k,296) * lu(k,1247) - lu(k,1264) = lu(k,1264) - lu(k,297) * lu(k,1247) - lu(k,1270) = lu(k,1270) - lu(k,298) * lu(k,1247) - lu(k,1271) = lu(k,1271) - lu(k,299) * lu(k,1247) - lu(k,1275) = lu(k,1275) - lu(k,300) * lu(k,1247) - lu(k,1276) = - lu(k,301) * lu(k,1247) - lu(k,1278) = lu(k,1278) - lu(k,302) * lu(k,1247) - lu(k,1279) = lu(k,1279) - lu(k,303) * lu(k,1247) - lu(k,1420) = - lu(k,294) * lu(k,1404) - lu(k,1421) = lu(k,1421) - lu(k,295) * lu(k,1404) - lu(k,1423) = lu(k,1423) - lu(k,296) * lu(k,1404) - lu(k,1426) = lu(k,1426) - lu(k,297) * lu(k,1404) - lu(k,1432) = lu(k,1432) - lu(k,298) * lu(k,1404) - lu(k,1433) = lu(k,1433) - lu(k,299) * lu(k,1404) - lu(k,1437) = lu(k,1437) - lu(k,300) * lu(k,1404) - lu(k,1438) = lu(k,1438) - lu(k,301) * lu(k,1404) - lu(k,1440) = lu(k,1440) - lu(k,302) * lu(k,1404) - lu(k,1441) = lu(k,1441) - lu(k,303) * lu(k,1404) - lu(k,1466) = lu(k,1466) - lu(k,294) * lu(k,1453) - lu(k,1467) = lu(k,1467) - lu(k,295) * lu(k,1453) - lu(k,1469) = - lu(k,296) * lu(k,1453) - lu(k,1472) = - lu(k,297) * lu(k,1453) - lu(k,1478) = - lu(k,298) * lu(k,1453) - lu(k,1479) = lu(k,1479) - lu(k,299) * lu(k,1453) - lu(k,1483) = - lu(k,300) * lu(k,1453) - lu(k,1484) = lu(k,1484) - lu(k,301) * lu(k,1453) - lu(k,1486) = lu(k,1486) - lu(k,302) * lu(k,1453) - lu(k,1487) = lu(k,1487) - lu(k,303) * lu(k,1453) - lu(k,1549) = lu(k,1549) - lu(k,294) * lu(k,1537) - lu(k,1550) = lu(k,1550) - lu(k,295) * lu(k,1537) - lu(k,1552) = lu(k,1552) - lu(k,296) * lu(k,1537) - lu(k,1555) = lu(k,1555) - lu(k,297) * lu(k,1537) - lu(k,1561) = - lu(k,298) * lu(k,1537) - lu(k,1562) = lu(k,1562) - lu(k,299) * lu(k,1537) - lu(k,1566) = lu(k,1566) - lu(k,300) * lu(k,1537) - lu(k,1567) = lu(k,1567) - lu(k,301) * lu(k,1537) - lu(k,1569) = lu(k,1569) - lu(k,302) * lu(k,1537) - lu(k,1570) = lu(k,1570) - lu(k,303) * lu(k,1537) - lu(k,1606) = lu(k,1606) - lu(k,294) * lu(k,1594) - lu(k,1607) = lu(k,1607) - lu(k,295) * lu(k,1594) - lu(k,1609) = lu(k,1609) - lu(k,296) * lu(k,1594) - lu(k,1612) = lu(k,1612) - lu(k,297) * lu(k,1594) - lu(k,1618) = lu(k,1618) - lu(k,298) * lu(k,1594) - lu(k,1619) = lu(k,1619) - lu(k,299) * lu(k,1594) - lu(k,1623) = lu(k,1623) - lu(k,300) * lu(k,1594) - lu(k,1624) = lu(k,1624) - lu(k,301) * lu(k,1594) - lu(k,1626) = lu(k,1626) - lu(k,302) * lu(k,1594) - lu(k,1627) = lu(k,1627) - lu(k,303) * lu(k,1594) - lu(k,305) = 1._r8 / lu(k,305) - lu(k,306) = lu(k,306) * lu(k,305) - lu(k,307) = lu(k,307) * lu(k,305) - lu(k,308) = lu(k,308) * lu(k,305) - lu(k,309) = lu(k,309) * lu(k,305) - lu(k,310) = lu(k,310) * lu(k,305) - lu(k,311) = lu(k,311) * lu(k,305) - lu(k,312) = lu(k,312) * lu(k,305) - lu(k,313) = lu(k,313) * lu(k,305) - lu(k,314) = lu(k,314) * lu(k,305) - lu(k,315) = lu(k,315) * lu(k,305) - lu(k,466) = - lu(k,306) * lu(k,464) - lu(k,468) = - lu(k,307) * lu(k,464) - lu(k,469) = lu(k,469) - lu(k,308) * lu(k,464) - lu(k,471) = lu(k,471) - lu(k,309) * lu(k,464) - lu(k,472) = - lu(k,310) * lu(k,464) - lu(k,474) = lu(k,474) - lu(k,311) * lu(k,464) - lu(k,475) = - lu(k,312) * lu(k,464) - lu(k,478) = - lu(k,313) * lu(k,464) - lu(k,479) = - lu(k,314) * lu(k,464) - lu(k,483) = lu(k,483) - lu(k,315) * lu(k,464) - lu(k,617) = lu(k,617) - lu(k,306) * lu(k,612) - lu(k,619) = lu(k,619) - lu(k,307) * lu(k,612) - lu(k,620) = lu(k,620) - lu(k,308) * lu(k,612) - lu(k,622) = lu(k,622) - lu(k,309) * lu(k,612) - lu(k,624) = lu(k,624) - lu(k,310) * lu(k,612) - lu(k,626) = lu(k,626) - lu(k,311) * lu(k,612) - lu(k,627) = lu(k,627) - lu(k,312) * lu(k,612) - lu(k,632) = - lu(k,313) * lu(k,612) - lu(k,633) = lu(k,633) - lu(k,314) * lu(k,612) - lu(k,638) = lu(k,638) - lu(k,315) * lu(k,612) - lu(k,726) = lu(k,726) - lu(k,306) * lu(k,722) - lu(k,728) = lu(k,728) - lu(k,307) * lu(k,722) - lu(k,729) = lu(k,729) - lu(k,308) * lu(k,722) - lu(k,731) = lu(k,731) - lu(k,309) * lu(k,722) - lu(k,733) = lu(k,733) - lu(k,310) * lu(k,722) - lu(k,736) = lu(k,736) - lu(k,311) * lu(k,722) - lu(k,737) = lu(k,737) - lu(k,312) * lu(k,722) - lu(k,742) = lu(k,742) - lu(k,313) * lu(k,722) - lu(k,743) = lu(k,743) - lu(k,314) * lu(k,722) - lu(k,748) = lu(k,748) - lu(k,315) * lu(k,722) - lu(k,772) = lu(k,772) - lu(k,306) * lu(k,767) - lu(k,774) = lu(k,774) - lu(k,307) * lu(k,767) - lu(k,775) = lu(k,775) - lu(k,308) * lu(k,767) - lu(k,777) = lu(k,777) - lu(k,309) * lu(k,767) - lu(k,780) = lu(k,780) - lu(k,310) * lu(k,767) - lu(k,783) = lu(k,783) - lu(k,311) * lu(k,767) - lu(k,784) = lu(k,784) - lu(k,312) * lu(k,767) - lu(k,789) = lu(k,789) - lu(k,313) * lu(k,767) - lu(k,790) = lu(k,790) - lu(k,314) * lu(k,767) - lu(k,795) = lu(k,795) - lu(k,315) * lu(k,767) - lu(k,877) = lu(k,877) - lu(k,306) * lu(k,873) - lu(k,882) = lu(k,882) - lu(k,307) * lu(k,873) - lu(k,883) = lu(k,883) - lu(k,308) * lu(k,873) - lu(k,886) = lu(k,886) - lu(k,309) * lu(k,873) - lu(k,891) = lu(k,891) - lu(k,310) * lu(k,873) - lu(k,894) = lu(k,894) - lu(k,311) * lu(k,873) - lu(k,895) = lu(k,895) - lu(k,312) * lu(k,873) - lu(k,900) = lu(k,900) - lu(k,313) * lu(k,873) - lu(k,902) = lu(k,902) - lu(k,314) * lu(k,873) - lu(k,908) = lu(k,908) - lu(k,315) * lu(k,873) - lu(k,1091) = lu(k,1091) - lu(k,306) * lu(k,1087) - lu(k,1096) = lu(k,1096) - lu(k,307) * lu(k,1087) - lu(k,1097) = lu(k,1097) - lu(k,308) * lu(k,1087) - lu(k,1100) = lu(k,1100) - lu(k,309) * lu(k,1087) - lu(k,1105) = lu(k,1105) - lu(k,310) * lu(k,1087) - lu(k,1108) = - lu(k,311) * lu(k,1087) - lu(k,1109) = lu(k,1109) - lu(k,312) * lu(k,1087) - lu(k,1114) = lu(k,1114) - lu(k,313) * lu(k,1087) - lu(k,1116) = lu(k,1116) - lu(k,314) * lu(k,1087) - lu(k,1122) = lu(k,1122) - lu(k,315) * lu(k,1087) - lu(k,1337) = - lu(k,306) * lu(k,1332) - lu(k,1341) = lu(k,1341) - lu(k,307) * lu(k,1332) - lu(k,1342) = lu(k,1342) - lu(k,308) * lu(k,1332) - lu(k,1345) = - lu(k,309) * lu(k,1332) - lu(k,1350) = - lu(k,310) * lu(k,1332) - lu(k,1353) = lu(k,1353) - lu(k,311) * lu(k,1332) - lu(k,1354) = - lu(k,312) * lu(k,1332) - lu(k,1359) = lu(k,1359) - lu(k,313) * lu(k,1332) - lu(k,1361) = lu(k,1361) - lu(k,314) * lu(k,1332) - lu(k,1367) = lu(k,1367) - lu(k,315) * lu(k,1332) - lu(k,1545) = lu(k,1545) - lu(k,306) * lu(k,1538) - lu(k,1549) = lu(k,1549) - lu(k,307) * lu(k,1538) - lu(k,1550) = lu(k,1550) - lu(k,308) * lu(k,1538) - lu(k,1553) = lu(k,1553) - lu(k,309) * lu(k,1538) - lu(k,1558) = lu(k,1558) - lu(k,310) * lu(k,1538) - lu(k,1561) = lu(k,1561) - lu(k,311) * lu(k,1538) - lu(k,1562) = lu(k,1562) - lu(k,312) * lu(k,1538) - lu(k,1567) = lu(k,1567) - lu(k,313) * lu(k,1538) - lu(k,1569) = lu(k,1569) - lu(k,314) * lu(k,1538) - lu(k,1575) = lu(k,1575) - lu(k,315) * lu(k,1538) - lu(k,1798) = - lu(k,306) * lu(k,1786) - lu(k,1802) = lu(k,1802) - lu(k,307) * lu(k,1786) - lu(k,1803) = lu(k,1803) - lu(k,308) * lu(k,1786) - lu(k,1806) = - lu(k,309) * lu(k,1786) - lu(k,1811) = - lu(k,310) * lu(k,1786) - lu(k,1814) = lu(k,1814) - lu(k,311) * lu(k,1786) - lu(k,1815) = lu(k,1815) - lu(k,312) * lu(k,1786) - lu(k,1820) = lu(k,1820) - lu(k,313) * lu(k,1786) - lu(k,1822) = lu(k,1822) - lu(k,314) * lu(k,1786) - lu(k,1828) = lu(k,1828) - lu(k,315) * lu(k,1786) - 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,969) = lu(k,969) - lu(k,317) * lu(k,954) - lu(k,974) = lu(k,974) - lu(k,318) * lu(k,954) - lu(k,975) = - lu(k,319) * lu(k,954) - lu(k,976) = - lu(k,320) * lu(k,954) - lu(k,978) = lu(k,978) - lu(k,321) * lu(k,954) - lu(k,980) = lu(k,980) - lu(k,322) * lu(k,954) - lu(k,981) = lu(k,981) - lu(k,323) * lu(k,954) - lu(k,985) = lu(k,985) - lu(k,324) * lu(k,954) - lu(k,987) = - lu(k,325) * lu(k,954) - lu(k,988) = lu(k,988) - lu(k,326) * lu(k,954) - lu(k,993) = - lu(k,327) * lu(k,954) - lu(k,994) = lu(k,994) - lu(k,328) * lu(k,954) - lu(k,1011) = lu(k,1011) - lu(k,317) * lu(k,997) - lu(k,1016) = - lu(k,318) * lu(k,997) - lu(k,1017) = lu(k,1017) - lu(k,319) * lu(k,997) - lu(k,1018) = - lu(k,320) * lu(k,997) - lu(k,1020) = - lu(k,321) * lu(k,997) - lu(k,1022) = - lu(k,322) * lu(k,997) - lu(k,1023) = lu(k,1023) - lu(k,323) * lu(k,997) - lu(k,1027) = - lu(k,324) * lu(k,997) - lu(k,1029) = - lu(k,325) * lu(k,997) - lu(k,1030) = lu(k,1030) - lu(k,326) * lu(k,997) - lu(k,1035) = lu(k,1035) - lu(k,327) * lu(k,997) - lu(k,1036) = lu(k,1036) - lu(k,328) * lu(k,997) - lu(k,1053) = lu(k,1053) - lu(k,317) * lu(k,1039) - lu(k,1058) = - lu(k,318) * lu(k,1039) - lu(k,1059) = - lu(k,319) * lu(k,1039) - lu(k,1060) = lu(k,1060) - lu(k,320) * lu(k,1039) - lu(k,1062) = - lu(k,321) * lu(k,1039) - lu(k,1064) = lu(k,1064) - lu(k,322) * lu(k,1039) - lu(k,1065) = lu(k,1065) - lu(k,323) * lu(k,1039) - lu(k,1069) = - lu(k,324) * lu(k,1039) - lu(k,1071) = lu(k,1071) - lu(k,325) * lu(k,1039) - lu(k,1072) = lu(k,1072) - lu(k,326) * lu(k,1039) - lu(k,1077) = - lu(k,327) * lu(k,1039) - lu(k,1078) = lu(k,1078) - lu(k,328) * lu(k,1039) - lu(k,1138) = lu(k,1138) - lu(k,317) * lu(k,1124) - lu(k,1143) = - lu(k,318) * lu(k,1124) - lu(k,1144) = lu(k,1144) - lu(k,319) * lu(k,1124) - lu(k,1145) = - lu(k,320) * lu(k,1124) - lu(k,1147) = lu(k,1147) - lu(k,321) * lu(k,1124) - lu(k,1149) = lu(k,1149) - lu(k,322) * lu(k,1124) - lu(k,1150) = lu(k,1150) - lu(k,323) * lu(k,1124) - lu(k,1154) = - lu(k,324) * lu(k,1124) - lu(k,1156) = - lu(k,325) * lu(k,1124) - lu(k,1157) = lu(k,1157) - lu(k,326) * lu(k,1124) - lu(k,1162) = lu(k,1162) - lu(k,327) * lu(k,1124) - lu(k,1163) = lu(k,1163) - lu(k,328) * lu(k,1124) - lu(k,1421) = lu(k,1421) - lu(k,317) * lu(k,1405) - lu(k,1426) = lu(k,1426) - lu(k,318) * lu(k,1405) - lu(k,1427) = - lu(k,319) * lu(k,1405) - lu(k,1428) = - lu(k,320) * lu(k,1405) - lu(k,1430) = - lu(k,321) * lu(k,1405) - lu(k,1432) = lu(k,1432) - lu(k,322) * lu(k,1405) - lu(k,1433) = lu(k,1433) - lu(k,323) * lu(k,1405) - lu(k,1437) = lu(k,1437) - lu(k,324) * lu(k,1405) - lu(k,1439) = - lu(k,325) * lu(k,1405) - lu(k,1440) = lu(k,1440) - lu(k,326) * lu(k,1405) - lu(k,1445) = lu(k,1445) - lu(k,327) * lu(k,1405) - lu(k,1446) = lu(k,1446) - lu(k,328) * lu(k,1405) - lu(k,1509) = lu(k,1509) - lu(k,317) * lu(k,1495) - lu(k,1514) = - lu(k,318) * lu(k,1495) - lu(k,1515) = - lu(k,319) * lu(k,1495) - lu(k,1516) = lu(k,1516) - lu(k,320) * lu(k,1495) - lu(k,1518) = - lu(k,321) * lu(k,1495) - lu(k,1520) = lu(k,1520) - lu(k,322) * lu(k,1495) - lu(k,1521) = lu(k,1521) - lu(k,323) * lu(k,1495) - lu(k,1525) = - lu(k,324) * lu(k,1495) - lu(k,1527) = lu(k,1527) - lu(k,325) * lu(k,1495) - lu(k,1528) = lu(k,1528) - lu(k,326) * lu(k,1495) - lu(k,1533) = lu(k,1533) - lu(k,327) * lu(k,1495) - lu(k,1534) = lu(k,1534) - lu(k,328) * lu(k,1495) - lu(k,1668) = lu(k,1668) - lu(k,317) * lu(k,1663) - lu(k,1673) = - lu(k,318) * lu(k,1663) - lu(k,1674) = - lu(k,319) * lu(k,1663) - lu(k,1675) = - lu(k,320) * lu(k,1663) - lu(k,1677) = - lu(k,321) * lu(k,1663) - lu(k,1679) = lu(k,1679) - lu(k,322) * lu(k,1663) - lu(k,1680) = lu(k,1680) - lu(k,323) * lu(k,1663) - lu(k,1684) = - lu(k,324) * lu(k,1663) - lu(k,1686) = - lu(k,325) * lu(k,1663) - lu(k,1687) = lu(k,1687) - lu(k,326) * lu(k,1663) - lu(k,1692) = - lu(k,327) * lu(k,1663) - lu(k,1693) = lu(k,1693) - lu(k,328) * lu(k,1663) - lu(k,1745) = lu(k,1745) - lu(k,317) * lu(k,1731) - lu(k,1750) = - lu(k,318) * lu(k,1731) - lu(k,1751) = - lu(k,319) * lu(k,1731) - lu(k,1752) = - lu(k,320) * lu(k,1731) - lu(k,1754) = - lu(k,321) * lu(k,1731) - lu(k,1756) = lu(k,1756) - lu(k,322) * lu(k,1731) - lu(k,1757) = lu(k,1757) - lu(k,323) * lu(k,1731) - lu(k,1761) = - lu(k,324) * lu(k,1731) - lu(k,1763) = lu(k,1763) - lu(k,325) * lu(k,1731) - lu(k,1764) = - lu(k,326) * lu(k,1731) - lu(k,1769) = lu(k,1769) - lu(k,327) * lu(k,1731) - lu(k,1770) = lu(k,1770) - lu(k,328) * lu(k,1731) - 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,331) = 1._r8 / lu(k,331) - lu(k,332) = lu(k,332) * lu(k,331) - lu(k,333) = lu(k,333) * lu(k,331) - lu(k,334) = lu(k,334) * lu(k,331) - lu(k,335) = lu(k,335) * lu(k,331) - lu(k,336) = lu(k,336) * lu(k,331) - lu(k,337) = lu(k,337) * lu(k,331) - lu(k,338) = lu(k,338) * lu(k,331) - lu(k,339) = lu(k,339) * lu(k,331) - lu(k,340) = lu(k,340) * lu(k,331) - lu(k,341) = lu(k,341) * lu(k,331) - lu(k,342) = lu(k,342) * lu(k,331) - lu(k,620) = lu(k,620) - lu(k,332) * lu(k,613) - lu(k,621) = lu(k,621) - lu(k,333) * lu(k,613) - lu(k,623) = lu(k,623) - lu(k,334) * lu(k,613) - lu(k,626) = lu(k,626) - lu(k,335) * lu(k,613) - lu(k,627) = lu(k,627) - lu(k,336) * lu(k,613) - lu(k,630) = lu(k,630) - lu(k,337) * lu(k,613) - lu(k,631) = lu(k,631) - lu(k,338) * lu(k,613) - lu(k,634) = lu(k,634) - lu(k,339) * lu(k,613) - lu(k,636) = lu(k,636) - lu(k,340) * lu(k,613) - lu(k,637) = - lu(k,341) * lu(k,613) - lu(k,638) = lu(k,638) - lu(k,342) * lu(k,613) - lu(k,843) = lu(k,843) - lu(k,332) * lu(k,840) - lu(k,844) = lu(k,844) - lu(k,333) * lu(k,840) - lu(k,846) = lu(k,846) - lu(k,334) * lu(k,840) - lu(k,853) = lu(k,853) - lu(k,335) * lu(k,840) - lu(k,854) = lu(k,854) - lu(k,336) * lu(k,840) - lu(k,857) = lu(k,857) - lu(k,337) * lu(k,840) - lu(k,858) = lu(k,858) - lu(k,338) * lu(k,840) - lu(k,862) = lu(k,862) - lu(k,339) * lu(k,840) - lu(k,864) = lu(k,864) - lu(k,340) * lu(k,840) - lu(k,865) = lu(k,865) - lu(k,341) * lu(k,840) - lu(k,866) = lu(k,866) - lu(k,342) * lu(k,840) - lu(k,924) = lu(k,924) - lu(k,332) * lu(k,913) - lu(k,926) = lu(k,926) - lu(k,333) * lu(k,913) - lu(k,928) = lu(k,928) - lu(k,334) * lu(k,913) - lu(k,935) = lu(k,935) - lu(k,335) * lu(k,913) - lu(k,936) = lu(k,936) - lu(k,336) * lu(k,913) - lu(k,939) = lu(k,939) - lu(k,337) * lu(k,913) - lu(k,940) = lu(k,940) - lu(k,338) * lu(k,913) - lu(k,944) = lu(k,944) - lu(k,339) * lu(k,913) - lu(k,947) = lu(k,947) - lu(k,340) * lu(k,913) - lu(k,948) = - lu(k,341) * lu(k,913) - lu(k,949) = lu(k,949) - lu(k,342) * lu(k,913) - lu(k,1259) = lu(k,1259) - lu(k,332) * lu(k,1248) - lu(k,1261) = lu(k,1261) - lu(k,333) * lu(k,1248) - lu(k,1263) = lu(k,1263) - lu(k,334) * lu(k,1248) - lu(k,1270) = lu(k,1270) - lu(k,335) * lu(k,1248) - lu(k,1271) = lu(k,1271) - lu(k,336) * lu(k,1248) - lu(k,1274) = lu(k,1274) - lu(k,337) * lu(k,1248) - lu(k,1275) = lu(k,1275) - lu(k,338) * lu(k,1248) - lu(k,1279) = lu(k,1279) - lu(k,339) * lu(k,1248) - lu(k,1282) = lu(k,1282) - lu(k,340) * lu(k,1248) - lu(k,1283) = - lu(k,341) * lu(k,1248) - lu(k,1284) = lu(k,1284) - lu(k,342) * lu(k,1248) - lu(k,1377) = - lu(k,332) * lu(k,1371) - lu(k,1379) = lu(k,1379) - lu(k,333) * lu(k,1371) - lu(k,1381) = lu(k,1381) - lu(k,334) * lu(k,1371) - lu(k,1388) = lu(k,1388) - lu(k,335) * lu(k,1371) - lu(k,1389) = lu(k,1389) - lu(k,336) * lu(k,1371) - lu(k,1392) = lu(k,1392) - lu(k,337) * lu(k,1371) - lu(k,1393) = lu(k,1393) - lu(k,338) * lu(k,1371) - lu(k,1397) = lu(k,1397) - lu(k,339) * lu(k,1371) - lu(k,1400) = lu(k,1400) - lu(k,340) * lu(k,1371) - lu(k,1401) = lu(k,1401) - lu(k,341) * lu(k,1371) - lu(k,1402) = lu(k,1402) - lu(k,342) * lu(k,1371) - lu(k,1421) = lu(k,1421) - lu(k,332) * lu(k,1406) - lu(k,1423) = lu(k,1423) - lu(k,333) * lu(k,1406) - lu(k,1425) = - lu(k,334) * lu(k,1406) - lu(k,1432) = lu(k,1432) - lu(k,335) * lu(k,1406) - lu(k,1433) = lu(k,1433) - lu(k,336) * lu(k,1406) - lu(k,1436) = lu(k,1436) - lu(k,337) * lu(k,1406) - lu(k,1437) = lu(k,1437) - lu(k,338) * lu(k,1406) - lu(k,1441) = lu(k,1441) - lu(k,339) * lu(k,1406) - lu(k,1444) = - lu(k,340) * lu(k,1406) - lu(k,1445) = lu(k,1445) - lu(k,341) * lu(k,1406) - lu(k,1446) = lu(k,1446) - lu(k,342) * lu(k,1406) - lu(k,1607) = lu(k,1607) - lu(k,332) * lu(k,1595) - lu(k,1609) = lu(k,1609) - lu(k,333) * lu(k,1595) - lu(k,1611) = lu(k,1611) - lu(k,334) * lu(k,1595) - lu(k,1618) = lu(k,1618) - lu(k,335) * lu(k,1595) - lu(k,1619) = lu(k,1619) - lu(k,336) * lu(k,1595) - lu(k,1622) = lu(k,1622) - lu(k,337) * lu(k,1595) - lu(k,1623) = lu(k,1623) - lu(k,338) * lu(k,1595) - lu(k,1627) = lu(k,1627) - lu(k,339) * lu(k,1595) - lu(k,1630) = lu(k,1630) - lu(k,340) * lu(k,1595) - lu(k,1631) = - lu(k,341) * lu(k,1595) - lu(k,1632) = lu(k,1632) - lu(k,342) * lu(k,1595) - lu(k,1703) = lu(k,1703) - lu(k,332) * lu(k,1695) - lu(k,1705) = lu(k,1705) - lu(k,333) * lu(k,1695) - lu(k,1707) = lu(k,1707) - lu(k,334) * lu(k,1695) - lu(k,1714) = lu(k,1714) - lu(k,335) * lu(k,1695) - lu(k,1715) = lu(k,1715) - lu(k,336) * lu(k,1695) - lu(k,1718) = lu(k,1718) - lu(k,337) * lu(k,1695) - lu(k,1719) = lu(k,1719) - lu(k,338) * lu(k,1695) - lu(k,1723) = lu(k,1723) - lu(k,339) * lu(k,1695) - lu(k,1726) = lu(k,1726) - lu(k,340) * lu(k,1695) - lu(k,1727) = - lu(k,341) * lu(k,1695) - lu(k,1728) = lu(k,1728) - lu(k,342) * lu(k,1695) - lu(k,1803) = lu(k,1803) - lu(k,332) * lu(k,1787) - lu(k,1805) = lu(k,1805) - lu(k,333) * lu(k,1787) - lu(k,1807) = - lu(k,334) * lu(k,1787) - lu(k,1814) = lu(k,1814) - lu(k,335) * lu(k,1787) - lu(k,1815) = lu(k,1815) - lu(k,336) * lu(k,1787) - lu(k,1818) = - lu(k,337) * lu(k,1787) - lu(k,1819) = lu(k,1819) - lu(k,338) * lu(k,1787) - lu(k,1823) = lu(k,1823) - lu(k,339) * lu(k,1787) - lu(k,1826) = lu(k,1826) - lu(k,340) * lu(k,1787) - lu(k,1827) = lu(k,1827) - lu(k,341) * lu(k,1787) - lu(k,1828) = lu(k,1828) - lu(k,342) * lu(k,1787) - lu(k,343) = 1._r8 / lu(k,343) - lu(k,344) = lu(k,344) * lu(k,343) - lu(k,345) = lu(k,345) * lu(k,343) - lu(k,346) = lu(k,346) * lu(k,343) - lu(k,347) = lu(k,347) * lu(k,343) - lu(k,348) = lu(k,348) * lu(k,343) - lu(k,349) = lu(k,349) * lu(k,343) - lu(k,350) = lu(k,350) * lu(k,343) - lu(k,351) = lu(k,351) * lu(k,343) - lu(k,352) = lu(k,352) * lu(k,343) - lu(k,353) = lu(k,353) * lu(k,343) - lu(k,354) = lu(k,354) * lu(k,343) - lu(k,355) = lu(k,355) * lu(k,343) - lu(k,356) = lu(k,356) * lu(k,343) - lu(k,520) = lu(k,520) - lu(k,344) * lu(k,518) - lu(k,524) = lu(k,524) - lu(k,345) * lu(k,518) - lu(k,525) = lu(k,525) - lu(k,346) * lu(k,518) - lu(k,526) = lu(k,526) - lu(k,347) * lu(k,518) - lu(k,527) = lu(k,527) - lu(k,348) * lu(k,518) - lu(k,528) = lu(k,528) - lu(k,349) * lu(k,518) - lu(k,529) = lu(k,529) - lu(k,350) * lu(k,518) - lu(k,530) = lu(k,530) - lu(k,351) * lu(k,518) - lu(k,532) = lu(k,532) - lu(k,352) * lu(k,518) - lu(k,533) = lu(k,533) - lu(k,353) * lu(k,518) - lu(k,534) = lu(k,534) - lu(k,354) * lu(k,518) - lu(k,536) = lu(k,536) - lu(k,355) * lu(k,518) - lu(k,537) = lu(k,537) - lu(k,356) * lu(k,518) - lu(k,962) = lu(k,962) - lu(k,344) * lu(k,955) - lu(k,974) = lu(k,974) - lu(k,345) * lu(k,955) - lu(k,975) = lu(k,975) - lu(k,346) * lu(k,955) - lu(k,976) = lu(k,976) - lu(k,347) * lu(k,955) - lu(k,978) = lu(k,978) - lu(k,348) * lu(k,955) - lu(k,980) = lu(k,980) - lu(k,349) * lu(k,955) - lu(k,981) = lu(k,981) - lu(k,350) * lu(k,955) - lu(k,985) = lu(k,985) - lu(k,351) * lu(k,955) - lu(k,987) = lu(k,987) - lu(k,352) * lu(k,955) - lu(k,988) = lu(k,988) - lu(k,353) * lu(k,955) - lu(k,989) = lu(k,989) - lu(k,354) * lu(k,955) - lu(k,993) = lu(k,993) - lu(k,355) * lu(k,955) - lu(k,994) = lu(k,994) - lu(k,356) * lu(k,955) - lu(k,1005) = lu(k,1005) - lu(k,344) * lu(k,998) - lu(k,1016) = lu(k,1016) - lu(k,345) * lu(k,998) - lu(k,1017) = lu(k,1017) - lu(k,346) * lu(k,998) - lu(k,1018) = lu(k,1018) - lu(k,347) * lu(k,998) - lu(k,1020) = lu(k,1020) - lu(k,348) * lu(k,998) - lu(k,1022) = lu(k,1022) - lu(k,349) * lu(k,998) - lu(k,1023) = lu(k,1023) - lu(k,350) * lu(k,998) - lu(k,1027) = lu(k,1027) - lu(k,351) * lu(k,998) - lu(k,1029) = lu(k,1029) - lu(k,352) * lu(k,998) - lu(k,1030) = lu(k,1030) - lu(k,353) * lu(k,998) - lu(k,1031) = lu(k,1031) - lu(k,354) * lu(k,998) - lu(k,1035) = lu(k,1035) - lu(k,355) * lu(k,998) - lu(k,1036) = lu(k,1036) - lu(k,356) * lu(k,998) - lu(k,1047) = lu(k,1047) - lu(k,344) * lu(k,1040) - lu(k,1058) = lu(k,1058) - lu(k,345) * lu(k,1040) - lu(k,1059) = lu(k,1059) - lu(k,346) * lu(k,1040) - lu(k,1060) = lu(k,1060) - lu(k,347) * lu(k,1040) - lu(k,1062) = lu(k,1062) - lu(k,348) * lu(k,1040) - lu(k,1064) = lu(k,1064) - lu(k,349) * lu(k,1040) - lu(k,1065) = lu(k,1065) - lu(k,350) * lu(k,1040) - lu(k,1069) = lu(k,1069) - lu(k,351) * lu(k,1040) - lu(k,1071) = lu(k,1071) - lu(k,352) * lu(k,1040) - lu(k,1072) = lu(k,1072) - lu(k,353) * lu(k,1040) - lu(k,1073) = lu(k,1073) - lu(k,354) * lu(k,1040) - lu(k,1077) = lu(k,1077) - lu(k,355) * lu(k,1040) - lu(k,1078) = lu(k,1078) - lu(k,356) * lu(k,1040) - lu(k,1132) = lu(k,1132) - lu(k,344) * lu(k,1125) - lu(k,1143) = lu(k,1143) - lu(k,345) * lu(k,1125) - lu(k,1144) = lu(k,1144) - lu(k,346) * lu(k,1125) - lu(k,1145) = lu(k,1145) - lu(k,347) * lu(k,1125) - lu(k,1147) = lu(k,1147) - lu(k,348) * lu(k,1125) - lu(k,1149) = lu(k,1149) - lu(k,349) * lu(k,1125) - lu(k,1150) = lu(k,1150) - lu(k,350) * lu(k,1125) - lu(k,1154) = lu(k,1154) - lu(k,351) * lu(k,1125) - lu(k,1156) = lu(k,1156) - lu(k,352) * lu(k,1125) - lu(k,1157) = lu(k,1157) - lu(k,353) * lu(k,1125) - lu(k,1158) = lu(k,1158) - lu(k,354) * lu(k,1125) - lu(k,1162) = lu(k,1162) - lu(k,355) * lu(k,1125) - lu(k,1163) = lu(k,1163) - lu(k,356) * lu(k,1125) - lu(k,1414) = lu(k,1414) - lu(k,344) * lu(k,1407) - lu(k,1426) = lu(k,1426) - lu(k,345) * lu(k,1407) - lu(k,1427) = lu(k,1427) - lu(k,346) * lu(k,1407) - lu(k,1428) = lu(k,1428) - lu(k,347) * lu(k,1407) - lu(k,1430) = lu(k,1430) - lu(k,348) * lu(k,1407) - lu(k,1432) = lu(k,1432) - lu(k,349) * lu(k,1407) - lu(k,1433) = lu(k,1433) - lu(k,350) * lu(k,1407) - lu(k,1437) = lu(k,1437) - lu(k,351) * lu(k,1407) - lu(k,1439) = lu(k,1439) - lu(k,352) * lu(k,1407) - lu(k,1440) = lu(k,1440) - lu(k,353) * lu(k,1407) - lu(k,1441) = lu(k,1441) - lu(k,354) * lu(k,1407) - lu(k,1445) = lu(k,1445) - lu(k,355) * lu(k,1407) - lu(k,1446) = lu(k,1446) - lu(k,356) * lu(k,1407) - lu(k,1503) = lu(k,1503) - lu(k,344) * lu(k,1496) - lu(k,1514) = lu(k,1514) - lu(k,345) * lu(k,1496) - lu(k,1515) = lu(k,1515) - lu(k,346) * lu(k,1496) - lu(k,1516) = lu(k,1516) - lu(k,347) * lu(k,1496) - lu(k,1518) = lu(k,1518) - lu(k,348) * lu(k,1496) - lu(k,1520) = lu(k,1520) - lu(k,349) * lu(k,1496) - lu(k,1521) = lu(k,1521) - lu(k,350) * lu(k,1496) - lu(k,1525) = lu(k,1525) - lu(k,351) * lu(k,1496) - lu(k,1527) = lu(k,1527) - lu(k,352) * lu(k,1496) - lu(k,1528) = lu(k,1528) - lu(k,353) * lu(k,1496) - lu(k,1529) = lu(k,1529) - lu(k,354) * lu(k,1496) - lu(k,1533) = lu(k,1533) - lu(k,355) * lu(k,1496) - lu(k,1534) = lu(k,1534) - lu(k,356) * lu(k,1496) - lu(k,1739) = lu(k,1739) - lu(k,344) * lu(k,1732) - lu(k,1750) = lu(k,1750) - lu(k,345) * lu(k,1732) - lu(k,1751) = lu(k,1751) - lu(k,346) * lu(k,1732) - lu(k,1752) = lu(k,1752) - lu(k,347) * lu(k,1732) - lu(k,1754) = lu(k,1754) - lu(k,348) * lu(k,1732) - lu(k,1756) = lu(k,1756) - lu(k,349) * lu(k,1732) - lu(k,1757) = lu(k,1757) - lu(k,350) * lu(k,1732) - lu(k,1761) = lu(k,1761) - lu(k,351) * lu(k,1732) - lu(k,1763) = lu(k,1763) - lu(k,352) * lu(k,1732) - lu(k,1764) = lu(k,1764) - lu(k,353) * lu(k,1732) - lu(k,1765) = lu(k,1765) - lu(k,354) * lu(k,1732) - lu(k,1769) = lu(k,1769) - lu(k,355) * lu(k,1732) - lu(k,1770) = lu(k,1770) - lu(k,356) * lu(k,1732) - lu(k,1795) = lu(k,1795) - lu(k,344) * lu(k,1788) - lu(k,1808) = lu(k,1808) - lu(k,345) * lu(k,1788) - lu(k,1809) = lu(k,1809) - lu(k,346) * lu(k,1788) - lu(k,1810) = lu(k,1810) - lu(k,347) * lu(k,1788) - lu(k,1812) = lu(k,1812) - lu(k,348) * lu(k,1788) - lu(k,1814) = lu(k,1814) - lu(k,349) * lu(k,1788) - lu(k,1815) = lu(k,1815) - lu(k,350) * lu(k,1788) - lu(k,1819) = lu(k,1819) - lu(k,351) * lu(k,1788) - lu(k,1821) = lu(k,1821) - lu(k,352) * lu(k,1788) - lu(k,1822) = lu(k,1822) - lu(k,353) * lu(k,1788) - lu(k,1823) = lu(k,1823) - lu(k,354) * lu(k,1788) - lu(k,1827) = lu(k,1827) - lu(k,355) * lu(k,1788) - lu(k,1828) = lu(k,1828) - lu(k,356) * lu(k,1788) - lu(k,360) = 1._r8 / lu(k,360) - lu(k,361) = lu(k,361) * lu(k,360) - lu(k,362) = lu(k,362) * lu(k,360) - lu(k,363) = lu(k,363) * lu(k,360) - lu(k,364) = lu(k,364) * lu(k,360) - lu(k,365) = lu(k,365) * lu(k,360) - lu(k,366) = lu(k,366) * lu(k,360) - lu(k,367) = lu(k,367) * lu(k,360) - lu(k,368) = lu(k,368) * lu(k,360) - lu(k,369) = lu(k,369) * lu(k,360) - lu(k,370) = lu(k,370) * lu(k,360) - lu(k,371) = lu(k,371) * lu(k,360) - lu(k,372) = lu(k,372) * lu(k,360) - lu(k,373) = lu(k,373) * lu(k,360) - lu(k,564) = lu(k,564) - lu(k,361) * lu(k,563) - lu(k,565) = lu(k,565) - lu(k,362) * lu(k,563) - lu(k,568) = lu(k,568) - lu(k,363) * lu(k,563) - lu(k,569) = lu(k,569) - lu(k,364) * lu(k,563) - lu(k,570) = lu(k,570) - lu(k,365) * lu(k,563) - lu(k,571) = - lu(k,366) * lu(k,563) - lu(k,572) = lu(k,572) - lu(k,367) * lu(k,563) - lu(k,574) = - lu(k,368) * lu(k,563) - lu(k,575) = lu(k,575) - lu(k,369) * lu(k,563) - lu(k,578) = lu(k,578) - lu(k,370) * lu(k,563) - lu(k,579) = lu(k,579) - lu(k,371) * lu(k,563) - lu(k,580) = lu(k,580) - lu(k,372) * lu(k,563) - lu(k,581) = lu(k,581) - lu(k,373) * lu(k,563) - lu(k,769) = lu(k,769) - lu(k,361) * lu(k,768) - lu(k,771) = lu(k,771) - lu(k,362) * lu(k,768) - lu(k,774) = lu(k,774) - lu(k,363) * lu(k,768) - lu(k,775) = lu(k,775) - lu(k,364) * lu(k,768) - lu(k,777) = lu(k,777) - lu(k,365) * lu(k,768) - lu(k,778) = lu(k,778) - lu(k,366) * lu(k,768) - lu(k,780) = lu(k,780) - lu(k,367) * lu(k,768) - lu(k,783) = lu(k,783) - lu(k,368) * lu(k,768) - lu(k,784) = lu(k,784) - lu(k,369) * lu(k,768) - lu(k,789) = lu(k,789) - lu(k,370) * lu(k,768) - lu(k,790) = lu(k,790) - lu(k,371) * lu(k,768) - lu(k,791) = lu(k,791) - lu(k,372) * lu(k,768) - lu(k,795) = lu(k,795) - lu(k,373) * lu(k,768) - lu(k,916) = lu(k,916) - lu(k,361) * lu(k,914) - lu(k,917) = lu(k,917) - lu(k,362) * lu(k,914) - lu(k,923) = lu(k,923) - lu(k,363) * lu(k,914) - lu(k,924) = lu(k,924) - lu(k,364) * lu(k,914) - lu(k,927) = lu(k,927) - lu(k,365) * lu(k,914) - lu(k,928) = lu(k,928) - lu(k,366) * lu(k,914) - lu(k,932) = lu(k,932) - lu(k,367) * lu(k,914) - lu(k,935) = lu(k,935) - lu(k,368) * lu(k,914) - lu(k,936) = lu(k,936) - lu(k,369) * lu(k,914) - lu(k,941) = lu(k,941) - lu(k,370) * lu(k,914) - lu(k,943) = lu(k,943) - lu(k,371) * lu(k,914) - lu(k,944) = lu(k,944) - lu(k,372) * lu(k,914) - lu(k,949) = lu(k,949) - lu(k,373) * lu(k,914) - lu(k,1089) = lu(k,1089) - lu(k,361) * lu(k,1088) - lu(k,1090) = lu(k,1090) - lu(k,362) * lu(k,1088) - lu(k,1096) = lu(k,1096) - lu(k,363) * lu(k,1088) - lu(k,1097) = lu(k,1097) - lu(k,364) * lu(k,1088) - lu(k,1100) = lu(k,1100) - lu(k,365) * lu(k,1088) - lu(k,1101) = - lu(k,366) * lu(k,1088) - lu(k,1105) = lu(k,1105) - lu(k,367) * lu(k,1088) - lu(k,1108) = lu(k,1108) - lu(k,368) * lu(k,1088) - lu(k,1109) = lu(k,1109) - lu(k,369) * lu(k,1088) - lu(k,1114) = lu(k,1114) - lu(k,370) * lu(k,1088) - lu(k,1116) = lu(k,1116) - lu(k,371) * lu(k,1088) - lu(k,1117) = lu(k,1117) - lu(k,372) * lu(k,1088) - lu(k,1122) = lu(k,1122) - lu(k,373) * lu(k,1088) - lu(k,1169) = - lu(k,361) * lu(k,1168) - lu(k,1173) = - lu(k,362) * lu(k,1168) - lu(k,1177) = lu(k,1177) - lu(k,363) * lu(k,1168) - lu(k,1178) = lu(k,1178) - lu(k,364) * lu(k,1168) - lu(k,1180) = - lu(k,365) * lu(k,1168) - lu(k,1181) = - lu(k,366) * lu(k,1168) - lu(k,1185) = - lu(k,367) * lu(k,1168) - lu(k,1188) = lu(k,1188) - lu(k,368) * lu(k,1168) - lu(k,1189) = lu(k,1189) - lu(k,369) * lu(k,1168) - lu(k,1194) = lu(k,1194) - lu(k,370) * lu(k,1168) - lu(k,1196) = lu(k,1196) - lu(k,371) * lu(k,1168) - lu(k,1197) = lu(k,1197) - lu(k,372) * lu(k,1168) - lu(k,1202) = lu(k,1202) - lu(k,373) * lu(k,1168) - lu(k,1251) = - lu(k,361) * lu(k,1249) - lu(k,1252) = - lu(k,362) * lu(k,1249) - lu(k,1258) = lu(k,1258) - lu(k,363) * lu(k,1249) - lu(k,1259) = lu(k,1259) - lu(k,364) * lu(k,1249) - lu(k,1262) = - lu(k,365) * lu(k,1249) - lu(k,1263) = lu(k,1263) - lu(k,366) * lu(k,1249) - lu(k,1267) = - lu(k,367) * lu(k,1249) - lu(k,1270) = lu(k,1270) - lu(k,368) * lu(k,1249) - lu(k,1271) = lu(k,1271) - lu(k,369) * lu(k,1249) - lu(k,1276) = lu(k,1276) - lu(k,370) * lu(k,1249) - lu(k,1278) = lu(k,1278) - lu(k,371) * lu(k,1249) - lu(k,1279) = lu(k,1279) - lu(k,372) * lu(k,1249) - lu(k,1284) = lu(k,1284) - lu(k,373) * lu(k,1249) - lu(k,1456) = lu(k,1456) - lu(k,361) * lu(k,1454) - lu(k,1461) = lu(k,1461) - lu(k,362) * lu(k,1454) - lu(k,1466) = lu(k,1466) - lu(k,363) * lu(k,1454) - lu(k,1467) = lu(k,1467) - lu(k,364) * lu(k,1454) - lu(k,1470) = lu(k,1470) - lu(k,365) * lu(k,1454) - lu(k,1471) = lu(k,1471) - lu(k,366) * lu(k,1454) - lu(k,1475) = lu(k,1475) - lu(k,367) * lu(k,1454) - lu(k,1478) = lu(k,1478) - lu(k,368) * lu(k,1454) - lu(k,1479) = lu(k,1479) - lu(k,369) * lu(k,1454) - lu(k,1484) = lu(k,1484) - lu(k,370) * lu(k,1454) - lu(k,1486) = lu(k,1486) - lu(k,371) * lu(k,1454) - lu(k,1487) = lu(k,1487) - lu(k,372) * lu(k,1454) - lu(k,1492) = lu(k,1492) - lu(k,373) * lu(k,1454) - lu(k,1598) = lu(k,1598) - lu(k,361) * lu(k,1596) - lu(k,1600) = lu(k,1600) - lu(k,362) * lu(k,1596) - lu(k,1606) = lu(k,1606) - lu(k,363) * lu(k,1596) - lu(k,1607) = lu(k,1607) - lu(k,364) * lu(k,1596) - lu(k,1610) = lu(k,1610) - lu(k,365) * lu(k,1596) - lu(k,1611) = lu(k,1611) - lu(k,366) * lu(k,1596) - lu(k,1615) = lu(k,1615) - lu(k,367) * lu(k,1596) - lu(k,1618) = lu(k,1618) - lu(k,368) * lu(k,1596) - lu(k,1619) = lu(k,1619) - lu(k,369) * lu(k,1596) - lu(k,1624) = lu(k,1624) - lu(k,370) * lu(k,1596) - lu(k,1626) = lu(k,1626) - lu(k,371) * lu(k,1596) - lu(k,1627) = lu(k,1627) - lu(k,372) * lu(k,1596) - lu(k,1632) = lu(k,1632) - lu(k,373) * lu(k,1596) - lu(k,1792) = - lu(k,361) * lu(k,1789) - lu(k,1797) = - lu(k,362) * lu(k,1789) - lu(k,1802) = lu(k,1802) - lu(k,363) * lu(k,1789) - lu(k,1803) = lu(k,1803) - lu(k,364) * lu(k,1789) - lu(k,1806) = lu(k,1806) - lu(k,365) * lu(k,1789) - lu(k,1807) = lu(k,1807) - lu(k,366) * lu(k,1789) - lu(k,1811) = lu(k,1811) - lu(k,367) * lu(k,1789) - lu(k,1814) = lu(k,1814) - lu(k,368) * lu(k,1789) - lu(k,1815) = lu(k,1815) - lu(k,369) * lu(k,1789) - lu(k,1820) = lu(k,1820) - lu(k,370) * lu(k,1789) - lu(k,1822) = lu(k,1822) - lu(k,371) * lu(k,1789) - lu(k,1823) = lu(k,1823) - lu(k,372) * lu(k,1789) - lu(k,1828) = lu(k,1828) - lu(k,373) * lu(k,1789) - 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,374) = 1._r8 / lu(k,374) - lu(k,375) = lu(k,375) * lu(k,374) - lu(k,376) = lu(k,376) * lu(k,374) - lu(k,377) = lu(k,377) * lu(k,374) - lu(k,378) = lu(k,378) * lu(k,374) - lu(k,379) = lu(k,379) * lu(k,374) - lu(k,380) = lu(k,380) * lu(k,374) - lu(k,381) = lu(k,381) * lu(k,374) - lu(k,382) = lu(k,382) * lu(k,374) - lu(k,383) = lu(k,383) * lu(k,374) - lu(k,384) = lu(k,384) * lu(k,374) - lu(k,385) = lu(k,385) * lu(k,374) - lu(k,386) = lu(k,386) * lu(k,374) - lu(k,387) = lu(k,387) * lu(k,374) - lu(k,388) = lu(k,388) * lu(k,374) - lu(k,391) = lu(k,391) - lu(k,375) * lu(k,389) - lu(k,392) = lu(k,392) - lu(k,376) * lu(k,389) - lu(k,393) = lu(k,393) - lu(k,377) * lu(k,389) - lu(k,394) = lu(k,394) - lu(k,378) * lu(k,389) - lu(k,395) = lu(k,395) - lu(k,379) * lu(k,389) - lu(k,396) = lu(k,396) - lu(k,380) * lu(k,389) - lu(k,397) = lu(k,397) - lu(k,381) * lu(k,389) - lu(k,398) = lu(k,398) - lu(k,382) * lu(k,389) - lu(k,399) = lu(k,399) - lu(k,383) * lu(k,389) - lu(k,400) = lu(k,400) - lu(k,384) * lu(k,389) - lu(k,401) = lu(k,401) - lu(k,385) * lu(k,389) - lu(k,402) = lu(k,402) - lu(k,386) * lu(k,389) - lu(k,403) = lu(k,403) - lu(k,387) * lu(k,389) - lu(k,404) = lu(k,404) - lu(k,388) * lu(k,389) - lu(k,671) = lu(k,671) - lu(k,375) * lu(k,669) - lu(k,674) = lu(k,674) - lu(k,376) * lu(k,669) - lu(k,675) = lu(k,675) - lu(k,377) * lu(k,669) - lu(k,676) = lu(k,676) - lu(k,378) * lu(k,669) - lu(k,677) = lu(k,677) - lu(k,379) * lu(k,669) - lu(k,678) = lu(k,678) - lu(k,380) * lu(k,669) - lu(k,679) = lu(k,679) - lu(k,381) * lu(k,669) - lu(k,680) = lu(k,680) - lu(k,382) * lu(k,669) - lu(k,681) = lu(k,681) - lu(k,383) * lu(k,669) - lu(k,683) = lu(k,683) - lu(k,384) * lu(k,669) - lu(k,685) = lu(k,685) - lu(k,385) * lu(k,669) - lu(k,686) = lu(k,686) - lu(k,386) * lu(k,669) - lu(k,688) = lu(k,688) - lu(k,387) * lu(k,669) - lu(k,689) = lu(k,689) - lu(k,388) * lu(k,669) - lu(k,966) = lu(k,966) - lu(k,375) * lu(k,956) - lu(k,972) = lu(k,972) - lu(k,376) * lu(k,956) - lu(k,974) = lu(k,974) - lu(k,377) * lu(k,956) - lu(k,975) = lu(k,975) - lu(k,378) * lu(k,956) - lu(k,976) = lu(k,976) - lu(k,379) * lu(k,956) - lu(k,978) = lu(k,978) - lu(k,380) * lu(k,956) - lu(k,980) = lu(k,980) - lu(k,381) * lu(k,956) - lu(k,981) = lu(k,981) - lu(k,382) * lu(k,956) - lu(k,982) = lu(k,982) - lu(k,383) * lu(k,956) - lu(k,985) = lu(k,985) - lu(k,384) * lu(k,956) - lu(k,987) = lu(k,987) - lu(k,385) * lu(k,956) - lu(k,988) = lu(k,988) - lu(k,386) * lu(k,956) - lu(k,993) = lu(k,993) - lu(k,387) * lu(k,956) - lu(k,994) = lu(k,994) - lu(k,388) * lu(k,956) - lu(k,1008) = lu(k,1008) - lu(k,375) * lu(k,999) - lu(k,1014) = lu(k,1014) - lu(k,376) * lu(k,999) - lu(k,1016) = lu(k,1016) - lu(k,377) * lu(k,999) - lu(k,1017) = lu(k,1017) - lu(k,378) * lu(k,999) - lu(k,1018) = lu(k,1018) - lu(k,379) * lu(k,999) - lu(k,1020) = lu(k,1020) - lu(k,380) * lu(k,999) - lu(k,1022) = lu(k,1022) - lu(k,381) * lu(k,999) - lu(k,1023) = lu(k,1023) - lu(k,382) * lu(k,999) - lu(k,1024) = lu(k,1024) - lu(k,383) * lu(k,999) - lu(k,1027) = lu(k,1027) - lu(k,384) * lu(k,999) - lu(k,1029) = lu(k,1029) - lu(k,385) * lu(k,999) - lu(k,1030) = lu(k,1030) - lu(k,386) * lu(k,999) - lu(k,1035) = lu(k,1035) - lu(k,387) * lu(k,999) - lu(k,1036) = lu(k,1036) - lu(k,388) * lu(k,999) - lu(k,1050) = lu(k,1050) - lu(k,375) * lu(k,1041) - lu(k,1056) = lu(k,1056) - lu(k,376) * lu(k,1041) - lu(k,1058) = lu(k,1058) - lu(k,377) * lu(k,1041) - lu(k,1059) = lu(k,1059) - lu(k,378) * lu(k,1041) - lu(k,1060) = lu(k,1060) - lu(k,379) * lu(k,1041) - lu(k,1062) = lu(k,1062) - lu(k,380) * lu(k,1041) - lu(k,1064) = lu(k,1064) - lu(k,381) * lu(k,1041) - lu(k,1065) = lu(k,1065) - lu(k,382) * lu(k,1041) - lu(k,1066) = lu(k,1066) - lu(k,383) * lu(k,1041) - lu(k,1069) = lu(k,1069) - lu(k,384) * lu(k,1041) - lu(k,1071) = lu(k,1071) - lu(k,385) * lu(k,1041) - lu(k,1072) = lu(k,1072) - lu(k,386) * lu(k,1041) - lu(k,1077) = lu(k,1077) - lu(k,387) * lu(k,1041) - lu(k,1078) = lu(k,1078) - lu(k,388) * lu(k,1041) - lu(k,1135) = lu(k,1135) - lu(k,375) * lu(k,1126) - lu(k,1141) = lu(k,1141) - lu(k,376) * lu(k,1126) - lu(k,1143) = lu(k,1143) - lu(k,377) * lu(k,1126) - lu(k,1144) = lu(k,1144) - lu(k,378) * lu(k,1126) - lu(k,1145) = lu(k,1145) - lu(k,379) * lu(k,1126) - lu(k,1147) = lu(k,1147) - lu(k,380) * lu(k,1126) - lu(k,1149) = lu(k,1149) - lu(k,381) * lu(k,1126) - lu(k,1150) = lu(k,1150) - lu(k,382) * lu(k,1126) - lu(k,1151) = lu(k,1151) - lu(k,383) * lu(k,1126) - lu(k,1154) = lu(k,1154) - lu(k,384) * lu(k,1126) - lu(k,1156) = lu(k,1156) - lu(k,385) * lu(k,1126) - lu(k,1157) = lu(k,1157) - lu(k,386) * lu(k,1126) - lu(k,1162) = lu(k,1162) - lu(k,387) * lu(k,1126) - lu(k,1163) = lu(k,1163) - lu(k,388) * lu(k,1126) - lu(k,1300) = lu(k,1300) - lu(k,375) * lu(k,1291) - lu(k,1306) = lu(k,1306) - lu(k,376) * lu(k,1291) - lu(k,1308) = - lu(k,377) * lu(k,1291) - lu(k,1309) = - lu(k,378) * lu(k,1291) - lu(k,1310) = - lu(k,379) * lu(k,1291) - lu(k,1312) = - lu(k,380) * lu(k,1291) - lu(k,1314) = lu(k,1314) - lu(k,381) * lu(k,1291) - lu(k,1315) = - lu(k,382) * lu(k,1291) - lu(k,1316) = lu(k,1316) - lu(k,383) * lu(k,1291) - lu(k,1319) = - lu(k,384) * lu(k,1291) - lu(k,1321) = - lu(k,385) * lu(k,1291) - lu(k,1322) = lu(k,1322) - lu(k,386) * lu(k,1291) - lu(k,1327) = - lu(k,387) * lu(k,1291) - lu(k,1328) = lu(k,1328) - lu(k,388) * lu(k,1291) - lu(k,1418) = lu(k,1418) - lu(k,375) * lu(k,1408) - lu(k,1424) = lu(k,1424) - lu(k,376) * lu(k,1408) - lu(k,1426) = lu(k,1426) - lu(k,377) * lu(k,1408) - lu(k,1427) = lu(k,1427) - lu(k,378) * lu(k,1408) - lu(k,1428) = lu(k,1428) - lu(k,379) * lu(k,1408) - lu(k,1430) = lu(k,1430) - lu(k,380) * lu(k,1408) - lu(k,1432) = lu(k,1432) - lu(k,381) * lu(k,1408) - lu(k,1433) = lu(k,1433) - lu(k,382) * lu(k,1408) - lu(k,1434) = lu(k,1434) - lu(k,383) * lu(k,1408) - lu(k,1437) = lu(k,1437) - lu(k,384) * lu(k,1408) - lu(k,1439) = lu(k,1439) - lu(k,385) * lu(k,1408) - lu(k,1440) = lu(k,1440) - lu(k,386) * lu(k,1408) - lu(k,1445) = lu(k,1445) - lu(k,387) * lu(k,1408) - lu(k,1446) = lu(k,1446) - lu(k,388) * lu(k,1408) - lu(k,1506) = lu(k,1506) - lu(k,375) * lu(k,1497) - lu(k,1512) = lu(k,1512) - lu(k,376) * lu(k,1497) - lu(k,1514) = lu(k,1514) - lu(k,377) * lu(k,1497) - lu(k,1515) = lu(k,1515) - lu(k,378) * lu(k,1497) - lu(k,1516) = lu(k,1516) - lu(k,379) * lu(k,1497) - lu(k,1518) = lu(k,1518) - lu(k,380) * lu(k,1497) - lu(k,1520) = lu(k,1520) - lu(k,381) * lu(k,1497) - lu(k,1521) = lu(k,1521) - lu(k,382) * lu(k,1497) - lu(k,1522) = lu(k,1522) - lu(k,383) * lu(k,1497) - lu(k,1525) = lu(k,1525) - lu(k,384) * lu(k,1497) - lu(k,1527) = lu(k,1527) - lu(k,385) * lu(k,1497) - lu(k,1528) = lu(k,1528) - lu(k,386) * lu(k,1497) - lu(k,1533) = lu(k,1533) - lu(k,387) * lu(k,1497) - lu(k,1534) = lu(k,1534) - lu(k,388) * lu(k,1497) - lu(k,1742) = lu(k,1742) - lu(k,375) * lu(k,1733) - lu(k,1748) = lu(k,1748) - lu(k,376) * lu(k,1733) - lu(k,1750) = lu(k,1750) - lu(k,377) * lu(k,1733) - lu(k,1751) = lu(k,1751) - lu(k,378) * lu(k,1733) - lu(k,1752) = lu(k,1752) - lu(k,379) * lu(k,1733) - lu(k,1754) = lu(k,1754) - lu(k,380) * lu(k,1733) - lu(k,1756) = lu(k,1756) - lu(k,381) * lu(k,1733) - lu(k,1757) = lu(k,1757) - lu(k,382) * lu(k,1733) - lu(k,1758) = lu(k,1758) - lu(k,383) * lu(k,1733) - lu(k,1761) = lu(k,1761) - lu(k,384) * lu(k,1733) - lu(k,1763) = lu(k,1763) - lu(k,385) * lu(k,1733) - lu(k,1764) = lu(k,1764) - lu(k,386) * lu(k,1733) - lu(k,1769) = lu(k,1769) - lu(k,387) * lu(k,1733) - lu(k,1770) = lu(k,1770) - lu(k,388) * lu(k,1733) - lu(k,390) = 1._r8 / lu(k,390) - lu(k,391) = lu(k,391) * lu(k,390) - lu(k,392) = lu(k,392) * lu(k,390) - lu(k,393) = lu(k,393) * lu(k,390) - lu(k,394) = lu(k,394) * lu(k,390) - lu(k,395) = lu(k,395) * lu(k,390) - lu(k,396) = lu(k,396) * lu(k,390) - lu(k,397) = lu(k,397) * lu(k,390) - lu(k,398) = lu(k,398) * lu(k,390) - lu(k,399) = lu(k,399) * lu(k,390) - lu(k,400) = lu(k,400) * lu(k,390) - lu(k,401) = lu(k,401) * lu(k,390) - lu(k,402) = lu(k,402) * lu(k,390) - lu(k,403) = lu(k,403) * lu(k,390) - lu(k,404) = lu(k,404) * lu(k,390) - lu(k,671) = lu(k,671) - lu(k,391) * lu(k,670) - lu(k,674) = lu(k,674) - lu(k,392) * lu(k,670) - lu(k,675) = lu(k,675) - lu(k,393) * lu(k,670) - lu(k,676) = lu(k,676) - lu(k,394) * lu(k,670) - lu(k,677) = lu(k,677) - lu(k,395) * lu(k,670) - lu(k,678) = lu(k,678) - lu(k,396) * lu(k,670) - lu(k,679) = lu(k,679) - lu(k,397) * lu(k,670) - lu(k,680) = lu(k,680) - lu(k,398) * lu(k,670) - lu(k,681) = lu(k,681) - lu(k,399) * lu(k,670) - lu(k,683) = lu(k,683) - lu(k,400) * lu(k,670) - lu(k,685) = lu(k,685) - lu(k,401) * lu(k,670) - lu(k,686) = lu(k,686) - lu(k,402) * lu(k,670) - lu(k,688) = lu(k,688) - lu(k,403) * lu(k,670) - lu(k,689) = lu(k,689) - lu(k,404) * lu(k,670) - lu(k,966) = lu(k,966) - lu(k,391) * lu(k,957) - lu(k,972) = lu(k,972) - lu(k,392) * lu(k,957) - lu(k,974) = lu(k,974) - lu(k,393) * lu(k,957) - lu(k,975) = lu(k,975) - lu(k,394) * lu(k,957) - lu(k,976) = lu(k,976) - lu(k,395) * lu(k,957) - lu(k,978) = lu(k,978) - lu(k,396) * lu(k,957) - lu(k,980) = lu(k,980) - lu(k,397) * lu(k,957) - lu(k,981) = lu(k,981) - lu(k,398) * lu(k,957) - lu(k,982) = lu(k,982) - lu(k,399) * lu(k,957) - lu(k,985) = lu(k,985) - lu(k,400) * lu(k,957) - lu(k,987) = lu(k,987) - lu(k,401) * lu(k,957) - lu(k,988) = lu(k,988) - lu(k,402) * lu(k,957) - lu(k,993) = lu(k,993) - lu(k,403) * lu(k,957) - lu(k,994) = lu(k,994) - lu(k,404) * lu(k,957) - lu(k,1008) = lu(k,1008) - lu(k,391) * lu(k,1000) - lu(k,1014) = lu(k,1014) - lu(k,392) * lu(k,1000) - lu(k,1016) = lu(k,1016) - lu(k,393) * lu(k,1000) - lu(k,1017) = lu(k,1017) - lu(k,394) * lu(k,1000) - lu(k,1018) = lu(k,1018) - lu(k,395) * lu(k,1000) - lu(k,1020) = lu(k,1020) - lu(k,396) * lu(k,1000) - lu(k,1022) = lu(k,1022) - lu(k,397) * lu(k,1000) - lu(k,1023) = lu(k,1023) - lu(k,398) * lu(k,1000) - lu(k,1024) = lu(k,1024) - lu(k,399) * lu(k,1000) - lu(k,1027) = lu(k,1027) - lu(k,400) * lu(k,1000) - lu(k,1029) = lu(k,1029) - lu(k,401) * lu(k,1000) - lu(k,1030) = lu(k,1030) - lu(k,402) * lu(k,1000) - lu(k,1035) = lu(k,1035) - lu(k,403) * lu(k,1000) - lu(k,1036) = lu(k,1036) - lu(k,404) * lu(k,1000) - lu(k,1050) = lu(k,1050) - lu(k,391) * lu(k,1042) - lu(k,1056) = lu(k,1056) - lu(k,392) * lu(k,1042) - lu(k,1058) = lu(k,1058) - lu(k,393) * lu(k,1042) - lu(k,1059) = lu(k,1059) - lu(k,394) * lu(k,1042) - lu(k,1060) = lu(k,1060) - lu(k,395) * lu(k,1042) - lu(k,1062) = lu(k,1062) - lu(k,396) * lu(k,1042) - lu(k,1064) = lu(k,1064) - lu(k,397) * lu(k,1042) - lu(k,1065) = lu(k,1065) - lu(k,398) * lu(k,1042) - lu(k,1066) = lu(k,1066) - lu(k,399) * lu(k,1042) - lu(k,1069) = lu(k,1069) - lu(k,400) * lu(k,1042) - lu(k,1071) = lu(k,1071) - lu(k,401) * lu(k,1042) - lu(k,1072) = lu(k,1072) - lu(k,402) * lu(k,1042) - lu(k,1077) = lu(k,1077) - lu(k,403) * lu(k,1042) - lu(k,1078) = lu(k,1078) - lu(k,404) * lu(k,1042) - lu(k,1135) = lu(k,1135) - lu(k,391) * lu(k,1127) - lu(k,1141) = lu(k,1141) - lu(k,392) * lu(k,1127) - lu(k,1143) = lu(k,1143) - lu(k,393) * lu(k,1127) - lu(k,1144) = lu(k,1144) - lu(k,394) * lu(k,1127) - lu(k,1145) = lu(k,1145) - lu(k,395) * lu(k,1127) - lu(k,1147) = lu(k,1147) - lu(k,396) * lu(k,1127) - lu(k,1149) = lu(k,1149) - lu(k,397) * lu(k,1127) - lu(k,1150) = lu(k,1150) - lu(k,398) * lu(k,1127) - lu(k,1151) = lu(k,1151) - lu(k,399) * lu(k,1127) - lu(k,1154) = lu(k,1154) - lu(k,400) * lu(k,1127) - lu(k,1156) = lu(k,1156) - lu(k,401) * lu(k,1127) - lu(k,1157) = lu(k,1157) - lu(k,402) * lu(k,1127) - lu(k,1162) = lu(k,1162) - lu(k,403) * lu(k,1127) - lu(k,1163) = lu(k,1163) - lu(k,404) * lu(k,1127) - lu(k,1300) = lu(k,1300) - lu(k,391) * lu(k,1292) - lu(k,1306) = lu(k,1306) - lu(k,392) * lu(k,1292) - lu(k,1308) = lu(k,1308) - lu(k,393) * lu(k,1292) - lu(k,1309) = lu(k,1309) - lu(k,394) * lu(k,1292) - lu(k,1310) = lu(k,1310) - lu(k,395) * lu(k,1292) - lu(k,1312) = lu(k,1312) - lu(k,396) * lu(k,1292) - lu(k,1314) = lu(k,1314) - lu(k,397) * lu(k,1292) - lu(k,1315) = lu(k,1315) - lu(k,398) * lu(k,1292) - lu(k,1316) = lu(k,1316) - lu(k,399) * lu(k,1292) - lu(k,1319) = lu(k,1319) - lu(k,400) * lu(k,1292) - lu(k,1321) = lu(k,1321) - lu(k,401) * lu(k,1292) - lu(k,1322) = lu(k,1322) - lu(k,402) * lu(k,1292) - lu(k,1327) = lu(k,1327) - lu(k,403) * lu(k,1292) - lu(k,1328) = lu(k,1328) - lu(k,404) * lu(k,1292) - lu(k,1418) = lu(k,1418) - lu(k,391) * lu(k,1409) - lu(k,1424) = lu(k,1424) - lu(k,392) * lu(k,1409) - lu(k,1426) = lu(k,1426) - lu(k,393) * lu(k,1409) - lu(k,1427) = lu(k,1427) - lu(k,394) * lu(k,1409) - lu(k,1428) = lu(k,1428) - lu(k,395) * lu(k,1409) - lu(k,1430) = lu(k,1430) - lu(k,396) * lu(k,1409) - lu(k,1432) = lu(k,1432) - lu(k,397) * lu(k,1409) - lu(k,1433) = lu(k,1433) - lu(k,398) * lu(k,1409) - lu(k,1434) = lu(k,1434) - lu(k,399) * lu(k,1409) - lu(k,1437) = lu(k,1437) - lu(k,400) * lu(k,1409) - lu(k,1439) = lu(k,1439) - lu(k,401) * lu(k,1409) - lu(k,1440) = lu(k,1440) - lu(k,402) * lu(k,1409) - lu(k,1445) = lu(k,1445) - lu(k,403) * lu(k,1409) - lu(k,1446) = lu(k,1446) - lu(k,404) * lu(k,1409) - lu(k,1506) = lu(k,1506) - lu(k,391) * lu(k,1498) - lu(k,1512) = lu(k,1512) - lu(k,392) * lu(k,1498) - lu(k,1514) = lu(k,1514) - lu(k,393) * lu(k,1498) - lu(k,1515) = lu(k,1515) - lu(k,394) * lu(k,1498) - lu(k,1516) = lu(k,1516) - lu(k,395) * lu(k,1498) - lu(k,1518) = lu(k,1518) - lu(k,396) * lu(k,1498) - lu(k,1520) = lu(k,1520) - lu(k,397) * lu(k,1498) - lu(k,1521) = lu(k,1521) - lu(k,398) * lu(k,1498) - lu(k,1522) = lu(k,1522) - lu(k,399) * lu(k,1498) - lu(k,1525) = lu(k,1525) - lu(k,400) * lu(k,1498) - lu(k,1527) = lu(k,1527) - lu(k,401) * lu(k,1498) - lu(k,1528) = lu(k,1528) - lu(k,402) * lu(k,1498) - lu(k,1533) = lu(k,1533) - lu(k,403) * lu(k,1498) - lu(k,1534) = lu(k,1534) - lu(k,404) * lu(k,1498) - lu(k,1742) = lu(k,1742) - lu(k,391) * lu(k,1734) - lu(k,1748) = lu(k,1748) - lu(k,392) * lu(k,1734) - lu(k,1750) = lu(k,1750) - lu(k,393) * lu(k,1734) - lu(k,1751) = lu(k,1751) - lu(k,394) * lu(k,1734) - lu(k,1752) = lu(k,1752) - lu(k,395) * lu(k,1734) - lu(k,1754) = lu(k,1754) - lu(k,396) * lu(k,1734) - lu(k,1756) = lu(k,1756) - lu(k,397) * lu(k,1734) - lu(k,1757) = lu(k,1757) - lu(k,398) * lu(k,1734) - lu(k,1758) = lu(k,1758) - lu(k,399) * lu(k,1734) - lu(k,1761) = lu(k,1761) - lu(k,400) * lu(k,1734) - lu(k,1763) = lu(k,1763) - lu(k,401) * lu(k,1734) - lu(k,1764) = lu(k,1764) - lu(k,402) * lu(k,1734) - lu(k,1769) = lu(k,1769) - lu(k,403) * lu(k,1734) - lu(k,1770) = lu(k,1770) - lu(k,404) * lu(k,1734) - lu(k,1800) = lu(k,1800) - lu(k,391) * lu(k,1790) - lu(k,1806) = lu(k,1806) - lu(k,392) * lu(k,1790) - lu(k,1808) = lu(k,1808) - lu(k,393) * lu(k,1790) - lu(k,1809) = lu(k,1809) - lu(k,394) * lu(k,1790) - lu(k,1810) = lu(k,1810) - lu(k,395) * lu(k,1790) - lu(k,1812) = lu(k,1812) - lu(k,396) * lu(k,1790) - lu(k,1814) = lu(k,1814) - lu(k,397) * lu(k,1790) - lu(k,1815) = lu(k,1815) - lu(k,398) * lu(k,1790) - lu(k,1816) = - lu(k,399) * lu(k,1790) - lu(k,1819) = lu(k,1819) - lu(k,400) * lu(k,1790) - lu(k,1821) = lu(k,1821) - lu(k,401) * lu(k,1790) - lu(k,1822) = lu(k,1822) - lu(k,402) * lu(k,1790) - lu(k,1827) = lu(k,1827) - lu(k,403) * lu(k,1790) - lu(k,1828) = lu(k,1828) - lu(k,404) * lu(k,1790) - lu(k,405) = 1._r8 / lu(k,405) - lu(k,406) = lu(k,406) * lu(k,405) - lu(k,407) = lu(k,407) * lu(k,405) - lu(k,408) = lu(k,408) * lu(k,405) - lu(k,409) = lu(k,409) * lu(k,405) - lu(k,410) = lu(k,410) * lu(k,405) - lu(k,411) = lu(k,411) * lu(k,405) - lu(k,412) = lu(k,412) * lu(k,405) - lu(k,413) = lu(k,413) * lu(k,405) - lu(k,414) = lu(k,414) * lu(k,405) - lu(k,415) = lu(k,415) * lu(k,405) - lu(k,416) = lu(k,416) * lu(k,405) - lu(k,417) = lu(k,417) * lu(k,405) - lu(k,418) = lu(k,418) * lu(k,405) - lu(k,524) = lu(k,524) - lu(k,406) * lu(k,519) - lu(k,525) = lu(k,525) - lu(k,407) * lu(k,519) - lu(k,526) = lu(k,526) - lu(k,408) * lu(k,519) - lu(k,527) = lu(k,527) - lu(k,409) * lu(k,519) - lu(k,528) = lu(k,528) - lu(k,410) * lu(k,519) - lu(k,529) = lu(k,529) - lu(k,411) * lu(k,519) - lu(k,530) = lu(k,530) - lu(k,412) * lu(k,519) - lu(k,531) = lu(k,531) - lu(k,413) * lu(k,519) - lu(k,532) = lu(k,532) - lu(k,414) * lu(k,519) - lu(k,533) = lu(k,533) - lu(k,415) * lu(k,519) - lu(k,535) = lu(k,535) - lu(k,416) * lu(k,519) - lu(k,536) = lu(k,536) - lu(k,417) * lu(k,519) - lu(k,537) = lu(k,537) - lu(k,418) * lu(k,519) - lu(k,974) = lu(k,974) - lu(k,406) * lu(k,958) - lu(k,975) = lu(k,975) - lu(k,407) * lu(k,958) - lu(k,976) = lu(k,976) - lu(k,408) * lu(k,958) - lu(k,978) = lu(k,978) - lu(k,409) * lu(k,958) - lu(k,980) = lu(k,980) - lu(k,410) * lu(k,958) - lu(k,981) = lu(k,981) - lu(k,411) * lu(k,958) - lu(k,985) = lu(k,985) - lu(k,412) * lu(k,958) - lu(k,986) = lu(k,986) - lu(k,413) * lu(k,958) - lu(k,987) = lu(k,987) - lu(k,414) * lu(k,958) - lu(k,988) = lu(k,988) - lu(k,415) * lu(k,958) - lu(k,990) = lu(k,990) - lu(k,416) * lu(k,958) - lu(k,993) = lu(k,993) - lu(k,417) * lu(k,958) - lu(k,994) = lu(k,994) - lu(k,418) * lu(k,958) - lu(k,1016) = lu(k,1016) - lu(k,406) * lu(k,1001) - lu(k,1017) = lu(k,1017) - lu(k,407) * lu(k,1001) - lu(k,1018) = lu(k,1018) - lu(k,408) * lu(k,1001) - lu(k,1020) = lu(k,1020) - lu(k,409) * lu(k,1001) - lu(k,1022) = lu(k,1022) - lu(k,410) * lu(k,1001) - lu(k,1023) = lu(k,1023) - lu(k,411) * lu(k,1001) - lu(k,1027) = lu(k,1027) - lu(k,412) * lu(k,1001) - lu(k,1028) = lu(k,1028) - lu(k,413) * lu(k,1001) - lu(k,1029) = lu(k,1029) - lu(k,414) * lu(k,1001) - lu(k,1030) = lu(k,1030) - lu(k,415) * lu(k,1001) - lu(k,1032) = lu(k,1032) - lu(k,416) * lu(k,1001) - lu(k,1035) = lu(k,1035) - lu(k,417) * lu(k,1001) - lu(k,1036) = lu(k,1036) - lu(k,418) * lu(k,1001) - lu(k,1058) = lu(k,1058) - lu(k,406) * lu(k,1043) - lu(k,1059) = lu(k,1059) - lu(k,407) * lu(k,1043) - lu(k,1060) = lu(k,1060) - lu(k,408) * lu(k,1043) - lu(k,1062) = lu(k,1062) - lu(k,409) * lu(k,1043) - lu(k,1064) = lu(k,1064) - lu(k,410) * lu(k,1043) - lu(k,1065) = lu(k,1065) - lu(k,411) * lu(k,1043) - lu(k,1069) = lu(k,1069) - lu(k,412) * lu(k,1043) - lu(k,1070) = lu(k,1070) - lu(k,413) * lu(k,1043) - lu(k,1071) = lu(k,1071) - lu(k,414) * lu(k,1043) - lu(k,1072) = lu(k,1072) - lu(k,415) * lu(k,1043) - lu(k,1074) = lu(k,1074) - lu(k,416) * lu(k,1043) - lu(k,1077) = lu(k,1077) - lu(k,417) * lu(k,1043) - lu(k,1078) = lu(k,1078) - lu(k,418) * lu(k,1043) - lu(k,1143) = lu(k,1143) - lu(k,406) * lu(k,1128) - lu(k,1144) = lu(k,1144) - lu(k,407) * lu(k,1128) - lu(k,1145) = lu(k,1145) - lu(k,408) * lu(k,1128) - lu(k,1147) = lu(k,1147) - lu(k,409) * lu(k,1128) - lu(k,1149) = lu(k,1149) - lu(k,410) * lu(k,1128) - lu(k,1150) = lu(k,1150) - lu(k,411) * lu(k,1128) - lu(k,1154) = lu(k,1154) - lu(k,412) * lu(k,1128) - lu(k,1155) = lu(k,1155) - lu(k,413) * lu(k,1128) - lu(k,1156) = lu(k,1156) - lu(k,414) * lu(k,1128) - lu(k,1157) = lu(k,1157) - lu(k,415) * lu(k,1128) - lu(k,1159) = lu(k,1159) - lu(k,416) * lu(k,1128) - lu(k,1162) = lu(k,1162) - lu(k,417) * lu(k,1128) - lu(k,1163) = lu(k,1163) - lu(k,418) * lu(k,1128) - lu(k,1426) = lu(k,1426) - lu(k,406) * lu(k,1410) - lu(k,1427) = lu(k,1427) - lu(k,407) * lu(k,1410) - lu(k,1428) = lu(k,1428) - lu(k,408) * lu(k,1410) - lu(k,1430) = lu(k,1430) - lu(k,409) * lu(k,1410) - lu(k,1432) = lu(k,1432) - lu(k,410) * lu(k,1410) - lu(k,1433) = lu(k,1433) - lu(k,411) * lu(k,1410) - lu(k,1437) = lu(k,1437) - lu(k,412) * lu(k,1410) - lu(k,1438) = lu(k,1438) - lu(k,413) * lu(k,1410) - lu(k,1439) = lu(k,1439) - lu(k,414) * lu(k,1410) - lu(k,1440) = lu(k,1440) - lu(k,415) * lu(k,1410) - lu(k,1442) = lu(k,1442) - lu(k,416) * lu(k,1410) - lu(k,1445) = lu(k,1445) - lu(k,417) * lu(k,1410) - lu(k,1446) = lu(k,1446) - lu(k,418) * lu(k,1410) - lu(k,1514) = lu(k,1514) - lu(k,406) * lu(k,1499) - lu(k,1515) = lu(k,1515) - lu(k,407) * lu(k,1499) - lu(k,1516) = lu(k,1516) - lu(k,408) * lu(k,1499) - lu(k,1518) = lu(k,1518) - lu(k,409) * lu(k,1499) - lu(k,1520) = lu(k,1520) - lu(k,410) * lu(k,1499) - lu(k,1521) = lu(k,1521) - lu(k,411) * lu(k,1499) - lu(k,1525) = lu(k,1525) - lu(k,412) * lu(k,1499) - lu(k,1526) = lu(k,1526) - lu(k,413) * lu(k,1499) - lu(k,1527) = lu(k,1527) - lu(k,414) * lu(k,1499) - lu(k,1528) = lu(k,1528) - lu(k,415) * lu(k,1499) - lu(k,1530) = lu(k,1530) - lu(k,416) * lu(k,1499) - lu(k,1533) = lu(k,1533) - lu(k,417) * lu(k,1499) - lu(k,1534) = lu(k,1534) - lu(k,418) * lu(k,1499) - lu(k,1555) = lu(k,1555) - lu(k,406) * lu(k,1539) - lu(k,1556) = - lu(k,407) * lu(k,1539) - lu(k,1557) = - lu(k,408) * lu(k,1539) - lu(k,1559) = - lu(k,409) * lu(k,1539) - lu(k,1561) = lu(k,1561) - lu(k,410) * lu(k,1539) - lu(k,1562) = lu(k,1562) - lu(k,411) * lu(k,1539) - lu(k,1566) = lu(k,1566) - lu(k,412) * lu(k,1539) - lu(k,1567) = lu(k,1567) - lu(k,413) * lu(k,1539) - lu(k,1568) = - lu(k,414) * lu(k,1539) - lu(k,1569) = lu(k,1569) - lu(k,415) * lu(k,1539) - lu(k,1571) = lu(k,1571) - lu(k,416) * lu(k,1539) - lu(k,1574) = - lu(k,417) * lu(k,1539) - lu(k,1575) = lu(k,1575) - lu(k,418) * lu(k,1539) - lu(k,1641) = lu(k,1641) - lu(k,406) * lu(k,1634) - lu(k,1642) = lu(k,1642) - lu(k,407) * lu(k,1634) - lu(k,1643) = lu(k,1643) - lu(k,408) * lu(k,1634) - lu(k,1645) = lu(k,1645) - lu(k,409) * lu(k,1634) - lu(k,1647) = lu(k,1647) - lu(k,410) * lu(k,1634) - lu(k,1648) = lu(k,1648) - lu(k,411) * lu(k,1634) - lu(k,1652) = lu(k,1652) - lu(k,412) * lu(k,1634) - lu(k,1653) = lu(k,1653) - lu(k,413) * lu(k,1634) - lu(k,1654) = lu(k,1654) - lu(k,414) * lu(k,1634) - lu(k,1655) = lu(k,1655) - lu(k,415) * lu(k,1634) - lu(k,1657) = lu(k,1657) - lu(k,416) * lu(k,1634) - lu(k,1660) = lu(k,1660) - lu(k,417) * lu(k,1634) - lu(k,1661) = lu(k,1661) - lu(k,418) * lu(k,1634) - lu(k,1750) = lu(k,1750) - lu(k,406) * lu(k,1735) - lu(k,1751) = lu(k,1751) - lu(k,407) * lu(k,1735) - lu(k,1752) = lu(k,1752) - lu(k,408) * lu(k,1735) - lu(k,1754) = lu(k,1754) - lu(k,409) * lu(k,1735) - lu(k,1756) = lu(k,1756) - lu(k,410) * lu(k,1735) - lu(k,1757) = lu(k,1757) - lu(k,411) * lu(k,1735) - lu(k,1761) = lu(k,1761) - lu(k,412) * lu(k,1735) - lu(k,1762) = lu(k,1762) - lu(k,413) * lu(k,1735) - lu(k,1763) = lu(k,1763) - lu(k,414) * lu(k,1735) - lu(k,1764) = lu(k,1764) - lu(k,415) * lu(k,1735) - lu(k,1766) = lu(k,1766) - lu(k,416) * lu(k,1735) - lu(k,1769) = lu(k,1769) - lu(k,417) * lu(k,1735) - lu(k,1770) = lu(k,1770) - lu(k,418) * lu(k,1735) - lu(k,1808) = lu(k,1808) - lu(k,406) * lu(k,1791) - lu(k,1809) = lu(k,1809) - lu(k,407) * lu(k,1791) - lu(k,1810) = lu(k,1810) - lu(k,408) * lu(k,1791) - lu(k,1812) = lu(k,1812) - lu(k,409) * lu(k,1791) - lu(k,1814) = lu(k,1814) - lu(k,410) * lu(k,1791) - lu(k,1815) = lu(k,1815) - lu(k,411) * lu(k,1791) - lu(k,1819) = lu(k,1819) - lu(k,412) * lu(k,1791) - lu(k,1820) = lu(k,1820) - lu(k,413) * lu(k,1791) - lu(k,1821) = lu(k,1821) - lu(k,414) * lu(k,1791) - lu(k,1822) = lu(k,1822) - lu(k,415) * lu(k,1791) - lu(k,1824) = lu(k,1824) - lu(k,416) * lu(k,1791) - lu(k,1827) = lu(k,1827) - lu(k,417) * lu(k,1791) - lu(k,1828) = lu(k,1828) - lu(k,418) * lu(k,1791) - 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,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,643) = - lu(k,420) * lu(k,640) - lu(k,646) = lu(k,646) - lu(k,421) * lu(k,640) - lu(k,647) = - lu(k,422) * lu(k,640) - lu(k,649) = lu(k,649) - lu(k,423) * lu(k,640) - lu(k,655) = lu(k,655) - lu(k,424) * lu(k,640) - lu(k,656) = lu(k,656) - lu(k,425) * lu(k,640) - lu(k,658) = lu(k,658) - lu(k,426) * lu(k,640) - lu(k,660) = lu(k,660) - lu(k,427) * lu(k,640) - lu(k,662) = lu(k,662) - lu(k,428) * lu(k,640) - lu(k,663) = lu(k,663) - lu(k,429) * lu(k,640) - lu(k,664) = lu(k,664) - lu(k,430) * lu(k,640) - lu(k,665) = - lu(k,431) * lu(k,640) - lu(k,666) = - lu(k,432) * lu(k,640) - lu(k,801) = lu(k,801) - lu(k,420) * lu(k,797) - lu(k,803) = lu(k,803) - lu(k,421) * lu(k,797) - lu(k,804) = - lu(k,422) * lu(k,797) - lu(k,806) = - lu(k,423) * lu(k,797) - lu(k,813) = lu(k,813) - lu(k,424) * lu(k,797) - lu(k,814) = lu(k,814) - lu(k,425) * lu(k,797) - lu(k,817) = lu(k,817) - lu(k,426) * lu(k,797) - lu(k,819) = lu(k,819) - lu(k,427) * lu(k,797) - lu(k,821) = lu(k,821) - lu(k,428) * lu(k,797) - lu(k,822) = lu(k,822) - lu(k,429) * lu(k,797) - lu(k,823) = lu(k,823) - lu(k,430) * lu(k,797) - lu(k,824) = lu(k,824) - lu(k,431) * lu(k,797) - lu(k,825) = lu(k,825) - lu(k,432) * lu(k,797) - lu(k,922) = lu(k,922) - lu(k,420) * lu(k,915) - lu(k,925) = - lu(k,421) * lu(k,915) - lu(k,926) = lu(k,926) - lu(k,422) * lu(k,915) - lu(k,928) = lu(k,928) - lu(k,423) * lu(k,915) - lu(k,935) = lu(k,935) - lu(k,424) * lu(k,915) - lu(k,936) = lu(k,936) - lu(k,425) * lu(k,915) - lu(k,939) = lu(k,939) - lu(k,426) * lu(k,915) - lu(k,941) = lu(k,941) - lu(k,427) * lu(k,915) - lu(k,943) = lu(k,943) - lu(k,428) * lu(k,915) - lu(k,944) = lu(k,944) - lu(k,429) * lu(k,915) - lu(k,945) = lu(k,945) - lu(k,430) * lu(k,915) - lu(k,946) = lu(k,946) - lu(k,431) * lu(k,915) - lu(k,947) = lu(k,947) - lu(k,432) * lu(k,915) - lu(k,1210) = - lu(k,420) * lu(k,1204) - lu(k,1213) = lu(k,1213) - lu(k,421) * lu(k,1204) - lu(k,1214) = lu(k,1214) - lu(k,422) * lu(k,1204) - lu(k,1216) = lu(k,1216) - lu(k,423) * lu(k,1204) - lu(k,1223) = lu(k,1223) - lu(k,424) * lu(k,1204) - lu(k,1224) = lu(k,1224) - lu(k,425) * lu(k,1204) - lu(k,1227) = lu(k,1227) - lu(k,426) * lu(k,1204) - lu(k,1229) = - lu(k,427) * lu(k,1204) - lu(k,1231) = lu(k,1231) - lu(k,428) * lu(k,1204) - lu(k,1232) = lu(k,1232) - lu(k,429) * lu(k,1204) - lu(k,1233) = lu(k,1233) - lu(k,430) * lu(k,1204) - lu(k,1234) = lu(k,1234) - lu(k,431) * lu(k,1204) - lu(k,1235) = - lu(k,432) * lu(k,1204) - lu(k,1257) = - lu(k,420) * lu(k,1250) - lu(k,1260) = lu(k,1260) - lu(k,421) * lu(k,1250) - lu(k,1261) = lu(k,1261) - lu(k,422) * lu(k,1250) - lu(k,1263) = lu(k,1263) - lu(k,423) * lu(k,1250) - lu(k,1270) = lu(k,1270) - lu(k,424) * lu(k,1250) - lu(k,1271) = lu(k,1271) - lu(k,425) * lu(k,1250) - lu(k,1274) = lu(k,1274) - lu(k,426) * lu(k,1250) - lu(k,1276) = lu(k,1276) - lu(k,427) * lu(k,1250) - lu(k,1278) = lu(k,1278) - lu(k,428) * lu(k,1250) - lu(k,1279) = lu(k,1279) - lu(k,429) * lu(k,1250) - lu(k,1280) = - lu(k,430) * lu(k,1250) - lu(k,1281) = - lu(k,431) * lu(k,1250) - lu(k,1282) = lu(k,1282) - lu(k,432) * lu(k,1250) - lu(k,1375) = lu(k,1375) - lu(k,420) * lu(k,1372) - lu(k,1378) = - lu(k,421) * lu(k,1372) - lu(k,1379) = lu(k,1379) - lu(k,422) * lu(k,1372) - lu(k,1381) = lu(k,1381) - lu(k,423) * lu(k,1372) - lu(k,1388) = lu(k,1388) - lu(k,424) * lu(k,1372) - lu(k,1389) = lu(k,1389) - lu(k,425) * lu(k,1372) - lu(k,1392) = lu(k,1392) - lu(k,426) * lu(k,1372) - lu(k,1394) = lu(k,1394) - lu(k,427) * lu(k,1372) - lu(k,1396) = lu(k,1396) - lu(k,428) * lu(k,1372) - lu(k,1397) = lu(k,1397) - lu(k,429) * lu(k,1372) - lu(k,1398) = lu(k,1398) - lu(k,430) * lu(k,1372) - lu(k,1399) = - lu(k,431) * lu(k,1372) - lu(k,1400) = lu(k,1400) - lu(k,432) * lu(k,1372) - lu(k,1465) = lu(k,1465) - lu(k,420) * lu(k,1455) - lu(k,1468) = lu(k,1468) - lu(k,421) * lu(k,1455) - lu(k,1469) = lu(k,1469) - lu(k,422) * lu(k,1455) - lu(k,1471) = lu(k,1471) - lu(k,423) * lu(k,1455) - lu(k,1478) = lu(k,1478) - lu(k,424) * lu(k,1455) - lu(k,1479) = lu(k,1479) - lu(k,425) * lu(k,1455) - lu(k,1482) = lu(k,1482) - lu(k,426) * lu(k,1455) - lu(k,1484) = lu(k,1484) - lu(k,427) * lu(k,1455) - lu(k,1486) = lu(k,1486) - lu(k,428) * lu(k,1455) - lu(k,1487) = lu(k,1487) - lu(k,429) * lu(k,1455) - lu(k,1488) = lu(k,1488) - lu(k,430) * lu(k,1455) - lu(k,1489) = lu(k,1489) - lu(k,431) * lu(k,1455) - lu(k,1490) = lu(k,1490) - lu(k,432) * lu(k,1455) - lu(k,1548) = lu(k,1548) - lu(k,420) * lu(k,1540) - lu(k,1551) = lu(k,1551) - lu(k,421) * lu(k,1540) - lu(k,1552) = lu(k,1552) - lu(k,422) * lu(k,1540) - lu(k,1554) = lu(k,1554) - lu(k,423) * lu(k,1540) - lu(k,1561) = lu(k,1561) - lu(k,424) * lu(k,1540) - lu(k,1562) = lu(k,1562) - lu(k,425) * lu(k,1540) - lu(k,1565) = - lu(k,426) * lu(k,1540) - lu(k,1567) = lu(k,1567) - lu(k,427) * lu(k,1540) - lu(k,1569) = lu(k,1569) - lu(k,428) * lu(k,1540) - lu(k,1570) = lu(k,1570) - lu(k,429) * lu(k,1540) - lu(k,1571) = lu(k,1571) - lu(k,430) * lu(k,1540) - lu(k,1572) = - lu(k,431) * lu(k,1540) - lu(k,1573) = lu(k,1573) - lu(k,432) * lu(k,1540) - lu(k,1605) = lu(k,1605) - lu(k,420) * lu(k,1597) - lu(k,1608) = lu(k,1608) - lu(k,421) * lu(k,1597) - lu(k,1609) = lu(k,1609) - lu(k,422) * lu(k,1597) - lu(k,1611) = lu(k,1611) - lu(k,423) * lu(k,1597) - lu(k,1618) = lu(k,1618) - lu(k,424) * lu(k,1597) - lu(k,1619) = lu(k,1619) - lu(k,425) * lu(k,1597) - lu(k,1622) = lu(k,1622) - lu(k,426) * lu(k,1597) - lu(k,1624) = lu(k,1624) - lu(k,427) * lu(k,1597) - lu(k,1626) = lu(k,1626) - lu(k,428) * lu(k,1597) - lu(k,1627) = lu(k,1627) - lu(k,429) * lu(k,1597) - lu(k,1628) = lu(k,1628) - lu(k,430) * lu(k,1597) - lu(k,1629) = lu(k,1629) - lu(k,431) * lu(k,1597) - lu(k,1630) = lu(k,1630) - lu(k,432) * lu(k,1597) - lu(k,1666) = - lu(k,420) * lu(k,1664) - lu(k,1669) = - lu(k,421) * lu(k,1664) - lu(k,1670) = lu(k,1670) - lu(k,422) * lu(k,1664) - lu(k,1672) = lu(k,1672) - lu(k,423) * lu(k,1664) - lu(k,1679) = lu(k,1679) - lu(k,424) * lu(k,1664) - lu(k,1680) = lu(k,1680) - lu(k,425) * lu(k,1664) - lu(k,1683) = - lu(k,426) * lu(k,1664) - lu(k,1685) = lu(k,1685) - lu(k,427) * lu(k,1664) - lu(k,1687) = lu(k,1687) - lu(k,428) * lu(k,1664) - lu(k,1688) = lu(k,1688) - lu(k,429) * lu(k,1664) - lu(k,1689) = lu(k,1689) - lu(k,430) * lu(k,1664) - lu(k,1690) = lu(k,1690) - lu(k,431) * lu(k,1664) - lu(k,1691) = - lu(k,432) * lu(k,1664) - lu(k,1701) = lu(k,1701) - lu(k,420) * lu(k,1696) - lu(k,1704) = lu(k,1704) - lu(k,421) * lu(k,1696) - lu(k,1705) = lu(k,1705) - lu(k,422) * lu(k,1696) - lu(k,1707) = lu(k,1707) - lu(k,423) * lu(k,1696) - lu(k,1714) = lu(k,1714) - lu(k,424) * lu(k,1696) - lu(k,1715) = lu(k,1715) - lu(k,425) * lu(k,1696) - lu(k,1718) = lu(k,1718) - lu(k,426) * lu(k,1696) - lu(k,1720) = lu(k,1720) - lu(k,427) * lu(k,1696) - lu(k,1722) = lu(k,1722) - lu(k,428) * lu(k,1696) - lu(k,1723) = lu(k,1723) - lu(k,429) * lu(k,1696) - lu(k,1724) = lu(k,1724) - lu(k,430) * lu(k,1696) - lu(k,1725) = lu(k,1725) - lu(k,431) * lu(k,1696) - lu(k,1726) = lu(k,1726) - lu(k,432) * lu(k,1696) - lu(k,433) = 1._r8 / lu(k,433) - lu(k,434) = lu(k,434) * lu(k,433) - lu(k,435) = lu(k,435) * lu(k,433) - lu(k,436) = lu(k,436) * lu(k,433) - lu(k,437) = lu(k,437) * lu(k,433) - lu(k,438) = lu(k,438) * lu(k,433) - lu(k,439) = lu(k,439) * lu(k,433) - lu(k,440) = lu(k,440) * lu(k,433) - lu(k,441) = lu(k,441) * lu(k,433) - lu(k,442) = lu(k,442) * lu(k,433) - lu(k,443) = lu(k,443) * lu(k,433) - lu(k,444) = lu(k,444) * lu(k,433) - lu(k,445) = lu(k,445) * lu(k,433) - lu(k,446) = lu(k,446) * lu(k,433) - lu(k,447) = lu(k,447) * lu(k,433) - lu(k,448) = lu(k,448) * lu(k,433) - lu(k,691) = lu(k,691) - lu(k,434) * lu(k,690) - lu(k,698) = lu(k,698) - lu(k,435) * lu(k,690) - lu(k,699) = lu(k,699) - lu(k,436) * lu(k,690) - lu(k,700) = lu(k,700) - lu(k,437) * lu(k,690) - lu(k,701) = lu(k,701) - lu(k,438) * lu(k,690) - lu(k,702) = lu(k,702) - lu(k,439) * lu(k,690) - lu(k,703) = - lu(k,440) * lu(k,690) - lu(k,704) = lu(k,704) - lu(k,441) * lu(k,690) - lu(k,705) = lu(k,705) - lu(k,442) * lu(k,690) - lu(k,706) = lu(k,706) - lu(k,443) * lu(k,690) - lu(k,707) = lu(k,707) - lu(k,444) * lu(k,690) - lu(k,709) = lu(k,709) - lu(k,445) * lu(k,690) - lu(k,710) = lu(k,710) - lu(k,446) * lu(k,690) - lu(k,713) = lu(k,713) - lu(k,447) * lu(k,690) - lu(k,714) = lu(k,714) - lu(k,448) * lu(k,690) - lu(k,960) = lu(k,960) - lu(k,434) * lu(k,959) - lu(k,974) = lu(k,974) - lu(k,435) * lu(k,959) - lu(k,975) = lu(k,975) - lu(k,436) * lu(k,959) - lu(k,976) = lu(k,976) - lu(k,437) * lu(k,959) - lu(k,978) = lu(k,978) - lu(k,438) * lu(k,959) - lu(k,979) = lu(k,979) - lu(k,439) * lu(k,959) - lu(k,980) = lu(k,980) - lu(k,440) * lu(k,959) - lu(k,981) = lu(k,981) - lu(k,441) * lu(k,959) - lu(k,982) = lu(k,982) - lu(k,442) * lu(k,959) - lu(k,983) = lu(k,983) - lu(k,443) * lu(k,959) - lu(k,985) = lu(k,985) - lu(k,444) * lu(k,959) - lu(k,987) = lu(k,987) - lu(k,445) * lu(k,959) - lu(k,988) = lu(k,988) - lu(k,446) * lu(k,959) - lu(k,993) = lu(k,993) - lu(k,447) * lu(k,959) - lu(k,994) = lu(k,994) - lu(k,448) * lu(k,959) - lu(k,1003) = lu(k,1003) - lu(k,434) * lu(k,1002) - lu(k,1016) = lu(k,1016) - lu(k,435) * lu(k,1002) - lu(k,1017) = lu(k,1017) - lu(k,436) * lu(k,1002) - lu(k,1018) = lu(k,1018) - lu(k,437) * lu(k,1002) - lu(k,1020) = lu(k,1020) - lu(k,438) * lu(k,1002) - lu(k,1021) = lu(k,1021) - lu(k,439) * lu(k,1002) - lu(k,1022) = lu(k,1022) - lu(k,440) * lu(k,1002) - lu(k,1023) = lu(k,1023) - lu(k,441) * lu(k,1002) - lu(k,1024) = lu(k,1024) - lu(k,442) * lu(k,1002) - lu(k,1025) = lu(k,1025) - lu(k,443) * lu(k,1002) - lu(k,1027) = lu(k,1027) - lu(k,444) * lu(k,1002) - lu(k,1029) = lu(k,1029) - lu(k,445) * lu(k,1002) - lu(k,1030) = lu(k,1030) - lu(k,446) * lu(k,1002) - lu(k,1035) = lu(k,1035) - lu(k,447) * lu(k,1002) - lu(k,1036) = lu(k,1036) - lu(k,448) * lu(k,1002) - lu(k,1045) = lu(k,1045) - lu(k,434) * lu(k,1044) - lu(k,1058) = lu(k,1058) - lu(k,435) * lu(k,1044) - lu(k,1059) = lu(k,1059) - lu(k,436) * lu(k,1044) - lu(k,1060) = lu(k,1060) - lu(k,437) * lu(k,1044) - lu(k,1062) = lu(k,1062) - lu(k,438) * lu(k,1044) - lu(k,1063) = lu(k,1063) - lu(k,439) * lu(k,1044) - lu(k,1064) = lu(k,1064) - lu(k,440) * lu(k,1044) - lu(k,1065) = lu(k,1065) - lu(k,441) * lu(k,1044) - lu(k,1066) = lu(k,1066) - lu(k,442) * lu(k,1044) - lu(k,1067) = lu(k,1067) - lu(k,443) * lu(k,1044) - lu(k,1069) = lu(k,1069) - lu(k,444) * lu(k,1044) - lu(k,1071) = lu(k,1071) - lu(k,445) * lu(k,1044) - lu(k,1072) = lu(k,1072) - lu(k,446) * lu(k,1044) - lu(k,1077) = lu(k,1077) - lu(k,447) * lu(k,1044) - lu(k,1078) = lu(k,1078) - lu(k,448) * lu(k,1044) - lu(k,1130) = lu(k,1130) - lu(k,434) * lu(k,1129) - lu(k,1143) = lu(k,1143) - lu(k,435) * lu(k,1129) - lu(k,1144) = lu(k,1144) - lu(k,436) * lu(k,1129) - lu(k,1145) = lu(k,1145) - lu(k,437) * lu(k,1129) - lu(k,1147) = lu(k,1147) - lu(k,438) * lu(k,1129) - lu(k,1148) = lu(k,1148) - lu(k,439) * lu(k,1129) - lu(k,1149) = lu(k,1149) - lu(k,440) * lu(k,1129) - lu(k,1150) = lu(k,1150) - lu(k,441) * lu(k,1129) - lu(k,1151) = lu(k,1151) - lu(k,442) * lu(k,1129) - lu(k,1152) = lu(k,1152) - lu(k,443) * lu(k,1129) - lu(k,1154) = lu(k,1154) - lu(k,444) * lu(k,1129) - lu(k,1156) = lu(k,1156) - lu(k,445) * lu(k,1129) - lu(k,1157) = lu(k,1157) - lu(k,446) * lu(k,1129) - lu(k,1162) = lu(k,1162) - lu(k,447) * lu(k,1129) - lu(k,1163) = lu(k,1163) - lu(k,448) * lu(k,1129) - lu(k,1295) = - lu(k,434) * lu(k,1293) - lu(k,1308) = lu(k,1308) - lu(k,435) * lu(k,1293) - lu(k,1309) = lu(k,1309) - lu(k,436) * lu(k,1293) - lu(k,1310) = lu(k,1310) - lu(k,437) * lu(k,1293) - lu(k,1312) = lu(k,1312) - lu(k,438) * lu(k,1293) - lu(k,1313) = lu(k,1313) - lu(k,439) * lu(k,1293) - lu(k,1314) = lu(k,1314) - lu(k,440) * lu(k,1293) - lu(k,1315) = lu(k,1315) - lu(k,441) * lu(k,1293) - lu(k,1316) = lu(k,1316) - lu(k,442) * lu(k,1293) - lu(k,1317) = lu(k,1317) - lu(k,443) * lu(k,1293) - lu(k,1319) = lu(k,1319) - lu(k,444) * lu(k,1293) - lu(k,1321) = lu(k,1321) - lu(k,445) * lu(k,1293) - lu(k,1322) = lu(k,1322) - lu(k,446) * lu(k,1293) - lu(k,1327) = lu(k,1327) - lu(k,447) * lu(k,1293) - lu(k,1328) = lu(k,1328) - lu(k,448) * lu(k,1293) - lu(k,1335) = lu(k,1335) - lu(k,434) * lu(k,1333) - lu(k,1347) = - lu(k,435) * lu(k,1333) - lu(k,1348) = - lu(k,436) * lu(k,1333) - lu(k,1349) = - lu(k,437) * lu(k,1333) - lu(k,1351) = - lu(k,438) * lu(k,1333) - lu(k,1352) = lu(k,1352) - lu(k,439) * lu(k,1333) - lu(k,1353) = lu(k,1353) - lu(k,440) * lu(k,1333) - lu(k,1354) = lu(k,1354) - lu(k,441) * lu(k,1333) - lu(k,1355) = lu(k,1355) - lu(k,442) * lu(k,1333) - lu(k,1356) = lu(k,1356) - lu(k,443) * lu(k,1333) - lu(k,1358) = - lu(k,444) * lu(k,1333) - lu(k,1360) = - lu(k,445) * lu(k,1333) - lu(k,1361) = lu(k,1361) - lu(k,446) * lu(k,1333) - lu(k,1366) = - lu(k,447) * lu(k,1333) - lu(k,1367) = lu(k,1367) - lu(k,448) * lu(k,1333) - lu(k,1412) = lu(k,1412) - lu(k,434) * lu(k,1411) - lu(k,1426) = lu(k,1426) - lu(k,435) * lu(k,1411) - lu(k,1427) = lu(k,1427) - lu(k,436) * lu(k,1411) - lu(k,1428) = lu(k,1428) - lu(k,437) * lu(k,1411) - lu(k,1430) = lu(k,1430) - lu(k,438) * lu(k,1411) - lu(k,1431) = lu(k,1431) - lu(k,439) * lu(k,1411) - lu(k,1432) = lu(k,1432) - lu(k,440) * lu(k,1411) - lu(k,1433) = lu(k,1433) - lu(k,441) * lu(k,1411) - lu(k,1434) = lu(k,1434) - lu(k,442) * lu(k,1411) - lu(k,1435) = lu(k,1435) - lu(k,443) * lu(k,1411) - lu(k,1437) = lu(k,1437) - lu(k,444) * lu(k,1411) - lu(k,1439) = lu(k,1439) - lu(k,445) * lu(k,1411) - lu(k,1440) = lu(k,1440) - lu(k,446) * lu(k,1411) - lu(k,1445) = lu(k,1445) - lu(k,447) * lu(k,1411) - lu(k,1446) = lu(k,1446) - lu(k,448) * lu(k,1411) - lu(k,1501) = lu(k,1501) - lu(k,434) * lu(k,1500) - lu(k,1514) = lu(k,1514) - lu(k,435) * lu(k,1500) - lu(k,1515) = lu(k,1515) - lu(k,436) * lu(k,1500) - lu(k,1516) = lu(k,1516) - lu(k,437) * lu(k,1500) - lu(k,1518) = lu(k,1518) - lu(k,438) * lu(k,1500) - lu(k,1519) = lu(k,1519) - lu(k,439) * lu(k,1500) - lu(k,1520) = lu(k,1520) - lu(k,440) * lu(k,1500) - lu(k,1521) = lu(k,1521) - lu(k,441) * lu(k,1500) - lu(k,1522) = lu(k,1522) - lu(k,442) * lu(k,1500) - lu(k,1523) = lu(k,1523) - lu(k,443) * lu(k,1500) - lu(k,1525) = lu(k,1525) - lu(k,444) * lu(k,1500) - lu(k,1527) = lu(k,1527) - lu(k,445) * lu(k,1500) - lu(k,1528) = lu(k,1528) - lu(k,446) * lu(k,1500) - lu(k,1533) = lu(k,1533) - lu(k,447) * lu(k,1500) - lu(k,1534) = lu(k,1534) - lu(k,448) * lu(k,1500) - lu(k,1737) = lu(k,1737) - lu(k,434) * lu(k,1736) - lu(k,1750) = lu(k,1750) - lu(k,435) * lu(k,1736) - lu(k,1751) = lu(k,1751) - lu(k,436) * lu(k,1736) - lu(k,1752) = lu(k,1752) - lu(k,437) * lu(k,1736) - lu(k,1754) = lu(k,1754) - lu(k,438) * lu(k,1736) - lu(k,1755) = lu(k,1755) - lu(k,439) * lu(k,1736) - lu(k,1756) = lu(k,1756) - lu(k,440) * lu(k,1736) - lu(k,1757) = lu(k,1757) - lu(k,441) * lu(k,1736) - lu(k,1758) = lu(k,1758) - lu(k,442) * lu(k,1736) - lu(k,1759) = lu(k,1759) - lu(k,443) * lu(k,1736) - lu(k,1761) = lu(k,1761) - lu(k,444) * lu(k,1736) - lu(k,1763) = lu(k,1763) - lu(k,445) * lu(k,1736) - lu(k,1764) = lu(k,1764) - lu(k,446) * lu(k,1736) - lu(k,1769) = lu(k,1769) - lu(k,447) * lu(k,1736) - lu(k,1770) = lu(k,1770) - lu(k,448) * lu(k,1736) - 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,451) = 1._r8 / lu(k,451) - lu(k,452) = lu(k,452) * lu(k,451) - lu(k,453) = lu(k,453) * lu(k,451) - lu(k,454) = lu(k,454) * lu(k,451) - lu(k,455) = lu(k,455) * lu(k,451) - lu(k,456) = lu(k,456) * lu(k,451) - lu(k,457) = lu(k,457) * lu(k,451) - lu(k,458) = lu(k,458) * lu(k,451) - lu(k,459) = lu(k,459) * lu(k,451) - lu(k,460) = lu(k,460) * lu(k,451) - lu(k,461) = lu(k,461) * lu(k,451) - lu(k,565) = lu(k,565) - lu(k,452) * lu(k,564) - lu(k,566) = - lu(k,453) * lu(k,564) - lu(k,567) = - lu(k,454) * lu(k,564) - lu(k,568) = lu(k,568) - lu(k,455) * lu(k,564) - lu(k,569) = lu(k,569) - lu(k,456) * lu(k,564) - lu(k,571) = lu(k,571) - lu(k,457) * lu(k,564) - lu(k,574) = lu(k,574) - lu(k,458) * lu(k,564) - lu(k,575) = lu(k,575) - lu(k,459) * lu(k,564) - lu(k,580) = lu(k,580) - lu(k,460) * lu(k,564) - lu(k,581) = lu(k,581) - lu(k,461) * lu(k,564) - lu(k,586) = lu(k,586) - lu(k,452) * lu(k,584) - lu(k,587) = lu(k,587) - lu(k,453) * lu(k,584) - lu(k,588) = lu(k,588) - lu(k,454) * lu(k,584) - lu(k,589) = lu(k,589) - lu(k,455) * lu(k,584) - lu(k,590) = lu(k,590) - lu(k,456) * lu(k,584) - lu(k,593) = - lu(k,457) * lu(k,584) - lu(k,596) = lu(k,596) - lu(k,458) * lu(k,584) - lu(k,597) = - lu(k,459) * lu(k,584) - lu(k,602) = lu(k,602) - lu(k,460) * lu(k,584) - lu(k,605) = lu(k,605) - lu(k,461) * lu(k,584) - lu(k,616) = lu(k,616) - lu(k,452) * lu(k,614) - lu(k,617) = lu(k,617) - lu(k,453) * lu(k,614) - lu(k,618) = lu(k,618) - lu(k,454) * lu(k,614) - lu(k,619) = lu(k,619) - lu(k,455) * lu(k,614) - lu(k,620) = lu(k,620) - lu(k,456) * lu(k,614) - lu(k,623) = lu(k,623) - lu(k,457) * lu(k,614) - lu(k,626) = lu(k,626) - lu(k,458) * lu(k,614) - lu(k,627) = lu(k,627) - lu(k,459) * lu(k,614) - lu(k,634) = lu(k,634) - lu(k,460) * lu(k,614) - lu(k,638) = lu(k,638) - lu(k,461) * lu(k,614) - lu(k,725) = lu(k,725) - lu(k,452) * lu(k,723) - lu(k,726) = lu(k,726) - lu(k,453) * lu(k,723) - lu(k,727) = lu(k,727) - lu(k,454) * lu(k,723) - lu(k,728) = lu(k,728) - lu(k,455) * lu(k,723) - lu(k,729) = lu(k,729) - lu(k,456) * lu(k,723) - lu(k,732) = lu(k,732) - lu(k,457) * lu(k,723) - lu(k,736) = lu(k,736) - lu(k,458) * lu(k,723) - lu(k,737) = lu(k,737) - lu(k,459) * lu(k,723) - lu(k,744) = lu(k,744) - lu(k,460) * lu(k,723) - lu(k,748) = lu(k,748) - lu(k,461) * lu(k,723) - lu(k,771) = lu(k,771) - lu(k,452) * lu(k,769) - lu(k,772) = lu(k,772) - lu(k,453) * lu(k,769) - lu(k,773) = lu(k,773) - lu(k,454) * lu(k,769) - lu(k,774) = lu(k,774) - lu(k,455) * lu(k,769) - lu(k,775) = lu(k,775) - lu(k,456) * lu(k,769) - lu(k,778) = lu(k,778) - lu(k,457) * lu(k,769) - lu(k,783) = lu(k,783) - lu(k,458) * lu(k,769) - lu(k,784) = lu(k,784) - lu(k,459) * lu(k,769) - lu(k,791) = lu(k,791) - lu(k,460) * lu(k,769) - lu(k,795) = lu(k,795) - lu(k,461) * lu(k,769) - lu(k,876) = - lu(k,452) * lu(k,874) - lu(k,877) = lu(k,877) - lu(k,453) * lu(k,874) - lu(k,878) = - lu(k,454) * lu(k,874) - lu(k,882) = lu(k,882) - lu(k,455) * lu(k,874) - lu(k,883) = lu(k,883) - lu(k,456) * lu(k,874) - lu(k,887) = lu(k,887) - lu(k,457) * lu(k,874) - lu(k,894) = lu(k,894) - lu(k,458) * lu(k,874) - lu(k,895) = lu(k,895) - lu(k,459) * lu(k,874) - lu(k,903) = lu(k,903) - lu(k,460) * lu(k,874) - lu(k,908) = lu(k,908) - lu(k,461) * lu(k,874) - lu(k,917) = lu(k,917) - lu(k,452) * lu(k,916) - lu(k,918) = - lu(k,453) * lu(k,916) - lu(k,919) = lu(k,919) - lu(k,454) * lu(k,916) - lu(k,923) = lu(k,923) - lu(k,455) * lu(k,916) - lu(k,924) = lu(k,924) - lu(k,456) * lu(k,916) - lu(k,928) = lu(k,928) - lu(k,457) * lu(k,916) - lu(k,935) = lu(k,935) - lu(k,458) * lu(k,916) - lu(k,936) = lu(k,936) - lu(k,459) * lu(k,916) - lu(k,944) = lu(k,944) - lu(k,460) * lu(k,916) - lu(k,949) = lu(k,949) - lu(k,461) * lu(k,916) - lu(k,1090) = lu(k,1090) - lu(k,452) * lu(k,1089) - lu(k,1091) = lu(k,1091) - lu(k,453) * lu(k,1089) - lu(k,1092) = - lu(k,454) * lu(k,1089) - lu(k,1096) = lu(k,1096) - lu(k,455) * lu(k,1089) - lu(k,1097) = lu(k,1097) - lu(k,456) * lu(k,1089) - lu(k,1101) = lu(k,1101) - lu(k,457) * lu(k,1089) - lu(k,1108) = lu(k,1108) - lu(k,458) * lu(k,1089) - lu(k,1109) = lu(k,1109) - lu(k,459) * lu(k,1089) - lu(k,1117) = lu(k,1117) - lu(k,460) * lu(k,1089) - lu(k,1122) = lu(k,1122) - lu(k,461) * lu(k,1089) - lu(k,1173) = lu(k,1173) - lu(k,452) * lu(k,1169) - lu(k,1174) = lu(k,1174) - lu(k,453) * lu(k,1169) - lu(k,1175) = - lu(k,454) * lu(k,1169) - lu(k,1177) = lu(k,1177) - lu(k,455) * lu(k,1169) - lu(k,1178) = lu(k,1178) - lu(k,456) * lu(k,1169) - lu(k,1181) = lu(k,1181) - lu(k,457) * lu(k,1169) - lu(k,1188) = lu(k,1188) - lu(k,458) * lu(k,1169) - lu(k,1189) = lu(k,1189) - lu(k,459) * lu(k,1169) - lu(k,1197) = lu(k,1197) - lu(k,460) * lu(k,1169) - lu(k,1202) = lu(k,1202) - lu(k,461) * lu(k,1169) - lu(k,1252) = lu(k,1252) - lu(k,452) * lu(k,1251) - lu(k,1253) = - lu(k,453) * lu(k,1251) - lu(k,1254) = lu(k,1254) - lu(k,454) * lu(k,1251) - lu(k,1258) = lu(k,1258) - lu(k,455) * lu(k,1251) - lu(k,1259) = lu(k,1259) - lu(k,456) * lu(k,1251) - lu(k,1263) = lu(k,1263) - lu(k,457) * lu(k,1251) - lu(k,1270) = lu(k,1270) - lu(k,458) * lu(k,1251) - lu(k,1271) = lu(k,1271) - lu(k,459) * lu(k,1251) - lu(k,1279) = lu(k,1279) - lu(k,460) * lu(k,1251) - lu(k,1284) = lu(k,1284) - lu(k,461) * lu(k,1251) - lu(k,1296) = lu(k,1296) - lu(k,452) * lu(k,1294) - lu(k,1297) = - lu(k,453) * lu(k,1294) - lu(k,1298) = lu(k,1298) - lu(k,454) * lu(k,1294) - lu(k,1302) = lu(k,1302) - lu(k,455) * lu(k,1294) - lu(k,1303) = lu(k,1303) - lu(k,456) * lu(k,1294) - lu(k,1307) = - lu(k,457) * lu(k,1294) - lu(k,1314) = lu(k,1314) - lu(k,458) * lu(k,1294) - lu(k,1315) = lu(k,1315) - lu(k,459) * lu(k,1294) - lu(k,1323) = lu(k,1323) - lu(k,460) * lu(k,1294) - lu(k,1328) = lu(k,1328) - lu(k,461) * lu(k,1294) - lu(k,1461) = lu(k,1461) - lu(k,452) * lu(k,1456) - lu(k,1462) = - lu(k,453) * lu(k,1456) - lu(k,1463) = - lu(k,454) * lu(k,1456) - lu(k,1466) = lu(k,1466) - lu(k,455) * lu(k,1456) - lu(k,1467) = lu(k,1467) - lu(k,456) * lu(k,1456) - lu(k,1471) = lu(k,1471) - lu(k,457) * lu(k,1456) - lu(k,1478) = lu(k,1478) - lu(k,458) * lu(k,1456) - lu(k,1479) = lu(k,1479) - lu(k,459) * lu(k,1456) - lu(k,1487) = lu(k,1487) - lu(k,460) * lu(k,1456) - lu(k,1492) = lu(k,1492) - lu(k,461) * lu(k,1456) - lu(k,1544) = lu(k,1544) - lu(k,452) * lu(k,1541) - lu(k,1545) = lu(k,1545) - lu(k,453) * lu(k,1541) - lu(k,1546) = - lu(k,454) * lu(k,1541) - lu(k,1549) = lu(k,1549) - lu(k,455) * lu(k,1541) - lu(k,1550) = lu(k,1550) - lu(k,456) * lu(k,1541) - lu(k,1554) = lu(k,1554) - lu(k,457) * lu(k,1541) - lu(k,1561) = lu(k,1561) - lu(k,458) * lu(k,1541) - lu(k,1562) = lu(k,1562) - lu(k,459) * lu(k,1541) - lu(k,1570) = lu(k,1570) - lu(k,460) * lu(k,1541) - lu(k,1575) = lu(k,1575) - lu(k,461) * lu(k,1541) - lu(k,1600) = lu(k,1600) - lu(k,452) * lu(k,1598) - lu(k,1601) = lu(k,1601) - lu(k,453) * lu(k,1598) - lu(k,1602) = lu(k,1602) - lu(k,454) * lu(k,1598) - lu(k,1606) = lu(k,1606) - lu(k,455) * lu(k,1598) - lu(k,1607) = lu(k,1607) - lu(k,456) * lu(k,1598) - lu(k,1611) = lu(k,1611) - lu(k,457) * lu(k,1598) - lu(k,1618) = lu(k,1618) - lu(k,458) * lu(k,1598) - lu(k,1619) = lu(k,1619) - lu(k,459) * lu(k,1598) - lu(k,1627) = lu(k,1627) - lu(k,460) * lu(k,1598) - lu(k,1632) = lu(k,1632) - lu(k,461) * lu(k,1598) - lu(k,1797) = lu(k,1797) - lu(k,452) * lu(k,1792) - lu(k,1798) = lu(k,1798) - lu(k,453) * lu(k,1792) - lu(k,1799) = lu(k,1799) - lu(k,454) * lu(k,1792) - lu(k,1802) = lu(k,1802) - lu(k,455) * lu(k,1792) - lu(k,1803) = lu(k,1803) - lu(k,456) * lu(k,1792) - lu(k,1807) = lu(k,1807) - lu(k,457) * lu(k,1792) - lu(k,1814) = lu(k,1814) - lu(k,458) * lu(k,1792) - lu(k,1815) = lu(k,1815) - lu(k,459) * lu(k,1792) - lu(k,1823) = lu(k,1823) - lu(k,460) * lu(k,1792) - lu(k,1828) = lu(k,1828) - lu(k,461) * lu(k,1792) - 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,481) = lu(k,481) * lu(k,465) - lu(k,482) = lu(k,482) * lu(k,465) - lu(k,483) = lu(k,483) * lu(k,465) - lu(k,587) = lu(k,587) - lu(k,466) * lu(k,585) - lu(k,588) = lu(k,588) - lu(k,467) * lu(k,585) - lu(k,589) = lu(k,589) - lu(k,468) * lu(k,585) - lu(k,590) = lu(k,590) - lu(k,469) * lu(k,585) - lu(k,591) = - lu(k,470) * lu(k,585) - lu(k,592) = lu(k,592) - lu(k,471) * lu(k,585) - lu(k,594) = - lu(k,472) * lu(k,585) - lu(k,595) = lu(k,595) - lu(k,473) * lu(k,585) - lu(k,596) = lu(k,596) - lu(k,474) * lu(k,585) - lu(k,597) = lu(k,597) - lu(k,475) * lu(k,585) - lu(k,598) = lu(k,598) - lu(k,476) * lu(k,585) - lu(k,599) = lu(k,599) - lu(k,477) * lu(k,585) - lu(k,600) = - lu(k,478) * lu(k,585) - lu(k,601) = - lu(k,479) * lu(k,585) - lu(k,602) = lu(k,602) - lu(k,480) * lu(k,585) - lu(k,603) = - lu(k,481) * lu(k,585) - lu(k,604) = - lu(k,482) * lu(k,585) - lu(k,605) = lu(k,605) - lu(k,483) * lu(k,585) - lu(k,617) = lu(k,617) - lu(k,466) * lu(k,615) - lu(k,618) = lu(k,618) - lu(k,467) * lu(k,615) - lu(k,619) = lu(k,619) - lu(k,468) * lu(k,615) - lu(k,620) = lu(k,620) - lu(k,469) * lu(k,615) - lu(k,621) = lu(k,621) - lu(k,470) * lu(k,615) - lu(k,622) = lu(k,622) - lu(k,471) * lu(k,615) - lu(k,624) = lu(k,624) - lu(k,472) * lu(k,615) - lu(k,625) = lu(k,625) - lu(k,473) * lu(k,615) - lu(k,626) = lu(k,626) - lu(k,474) * lu(k,615) - lu(k,627) = lu(k,627) - lu(k,475) * lu(k,615) - lu(k,628) = lu(k,628) - lu(k,476) * lu(k,615) - lu(k,629) = lu(k,629) - lu(k,477) * lu(k,615) - lu(k,632) = lu(k,632) - lu(k,478) * lu(k,615) - lu(k,633) = lu(k,633) - lu(k,479) * lu(k,615) - lu(k,634) = lu(k,634) - lu(k,480) * lu(k,615) - lu(k,635) = - lu(k,481) * lu(k,615) - lu(k,636) = lu(k,636) - lu(k,482) * lu(k,615) - lu(k,638) = lu(k,638) - lu(k,483) * lu(k,615) - lu(k,726) = lu(k,726) - lu(k,466) * lu(k,724) - lu(k,727) = lu(k,727) - lu(k,467) * lu(k,724) - lu(k,728) = lu(k,728) - lu(k,468) * lu(k,724) - lu(k,729) = lu(k,729) - lu(k,469) * lu(k,724) - lu(k,730) = lu(k,730) - lu(k,470) * lu(k,724) - lu(k,731) = lu(k,731) - lu(k,471) * lu(k,724) - lu(k,733) = lu(k,733) - lu(k,472) * lu(k,724) - lu(k,735) = lu(k,735) - lu(k,473) * lu(k,724) - lu(k,736) = lu(k,736) - lu(k,474) * lu(k,724) - lu(k,737) = lu(k,737) - lu(k,475) * lu(k,724) - lu(k,738) = lu(k,738) - lu(k,476) * lu(k,724) - lu(k,739) = - lu(k,477) * lu(k,724) - lu(k,742) = lu(k,742) - lu(k,478) * lu(k,724) - lu(k,743) = lu(k,743) - lu(k,479) * lu(k,724) - lu(k,744) = lu(k,744) - lu(k,480) * lu(k,724) - lu(k,745) = - lu(k,481) * lu(k,724) - lu(k,746) = - lu(k,482) * lu(k,724) - lu(k,748) = lu(k,748) - lu(k,483) * lu(k,724) - lu(k,772) = lu(k,772) - lu(k,466) * lu(k,770) - lu(k,773) = lu(k,773) - lu(k,467) * lu(k,770) - lu(k,774) = lu(k,774) - lu(k,468) * lu(k,770) - lu(k,775) = lu(k,775) - lu(k,469) * lu(k,770) - lu(k,776) = lu(k,776) - lu(k,470) * lu(k,770) - lu(k,777) = lu(k,777) - lu(k,471) * lu(k,770) - lu(k,780) = lu(k,780) - lu(k,472) * lu(k,770) - lu(k,782) = lu(k,782) - lu(k,473) * lu(k,770) - lu(k,783) = lu(k,783) - lu(k,474) * lu(k,770) - lu(k,784) = lu(k,784) - lu(k,475) * lu(k,770) - lu(k,785) = lu(k,785) - lu(k,476) * lu(k,770) - lu(k,786) = lu(k,786) - lu(k,477) * lu(k,770) - lu(k,789) = lu(k,789) - lu(k,478) * lu(k,770) - lu(k,790) = lu(k,790) - lu(k,479) * lu(k,770) - lu(k,791) = lu(k,791) - lu(k,480) * lu(k,770) - lu(k,792) = - lu(k,481) * lu(k,770) - lu(k,793) = - lu(k,482) * lu(k,770) - lu(k,795) = lu(k,795) - lu(k,483) * lu(k,770) - lu(k,877) = lu(k,877) - lu(k,466) * lu(k,875) - lu(k,878) = lu(k,878) - lu(k,467) * lu(k,875) - lu(k,882) = lu(k,882) - lu(k,468) * lu(k,875) - lu(k,883) = lu(k,883) - lu(k,469) * lu(k,875) - lu(k,885) = - lu(k,470) * lu(k,875) - lu(k,886) = lu(k,886) - lu(k,471) * lu(k,875) - lu(k,891) = lu(k,891) - lu(k,472) * lu(k,875) - lu(k,893) = lu(k,893) - lu(k,473) * lu(k,875) - lu(k,894) = lu(k,894) - lu(k,474) * lu(k,875) - lu(k,895) = lu(k,895) - lu(k,475) * lu(k,875) - lu(k,896) = lu(k,896) - lu(k,476) * lu(k,875) - lu(k,897) = lu(k,897) - lu(k,477) * lu(k,875) - lu(k,900) = lu(k,900) - lu(k,478) * lu(k,875) - lu(k,902) = lu(k,902) - lu(k,479) * lu(k,875) - lu(k,903) = lu(k,903) - lu(k,480) * lu(k,875) - lu(k,905) = lu(k,905) - lu(k,481) * lu(k,875) - lu(k,906) = lu(k,906) - lu(k,482) * lu(k,875) - lu(k,908) = lu(k,908) - lu(k,483) * lu(k,875) - lu(k,1206) = - lu(k,466) * lu(k,1205) - lu(k,1207) = - lu(k,467) * lu(k,1205) - lu(k,1211) = lu(k,1211) - lu(k,468) * lu(k,1205) - lu(k,1212) = lu(k,1212) - lu(k,469) * lu(k,1205) - lu(k,1214) = lu(k,1214) - lu(k,470) * lu(k,1205) - lu(k,1215) = - lu(k,471) * lu(k,1205) - lu(k,1220) = - lu(k,472) * lu(k,1205) - lu(k,1222) = - lu(k,473) * lu(k,1205) - lu(k,1223) = lu(k,1223) - lu(k,474) * lu(k,1205) - lu(k,1224) = lu(k,1224) - lu(k,475) * lu(k,1205) - lu(k,1225) = lu(k,1225) - lu(k,476) * lu(k,1205) - lu(k,1226) = - lu(k,477) * lu(k,1205) - lu(k,1229) = lu(k,1229) - lu(k,478) * lu(k,1205) - lu(k,1231) = lu(k,1231) - lu(k,479) * lu(k,1205) - lu(k,1232) = lu(k,1232) - lu(k,480) * lu(k,1205) - lu(k,1234) = lu(k,1234) - lu(k,481) * lu(k,1205) - lu(k,1235) = lu(k,1235) - lu(k,482) * lu(k,1205) - lu(k,1237) = lu(k,1237) - lu(k,483) * lu(k,1205) - lu(k,1337) = lu(k,1337) - lu(k,466) * lu(k,1334) - lu(k,1338) = - lu(k,467) * lu(k,1334) - lu(k,1341) = lu(k,1341) - lu(k,468) * lu(k,1334) - lu(k,1342) = lu(k,1342) - lu(k,469) * lu(k,1334) - lu(k,1344) = - lu(k,470) * lu(k,1334) - lu(k,1345) = lu(k,1345) - lu(k,471) * lu(k,1334) - lu(k,1350) = lu(k,1350) - lu(k,472) * lu(k,1334) - lu(k,1352) = lu(k,1352) - lu(k,473) * lu(k,1334) - lu(k,1353) = lu(k,1353) - lu(k,474) * lu(k,1334) - lu(k,1354) = lu(k,1354) - lu(k,475) * lu(k,1334) - lu(k,1355) = lu(k,1355) - lu(k,476) * lu(k,1334) - lu(k,1356) = lu(k,1356) - lu(k,477) * lu(k,1334) - lu(k,1359) = lu(k,1359) - lu(k,478) * lu(k,1334) - lu(k,1361) = lu(k,1361) - lu(k,479) * lu(k,1334) - lu(k,1362) = - lu(k,480) * lu(k,1334) - lu(k,1364) = - lu(k,481) * lu(k,1334) - lu(k,1365) = lu(k,1365) - lu(k,482) * lu(k,1334) - lu(k,1367) = lu(k,1367) - lu(k,483) * lu(k,1334) - lu(k,1601) = lu(k,1601) - lu(k,466) * lu(k,1599) - lu(k,1602) = lu(k,1602) - lu(k,467) * lu(k,1599) - lu(k,1606) = lu(k,1606) - lu(k,468) * lu(k,1599) - lu(k,1607) = lu(k,1607) - lu(k,469) * lu(k,1599) - lu(k,1609) = lu(k,1609) - lu(k,470) * lu(k,1599) - lu(k,1610) = lu(k,1610) - lu(k,471) * lu(k,1599) - lu(k,1615) = lu(k,1615) - lu(k,472) * lu(k,1599) - lu(k,1617) = lu(k,1617) - lu(k,473) * lu(k,1599) - lu(k,1618) = lu(k,1618) - lu(k,474) * lu(k,1599) - lu(k,1619) = lu(k,1619) - lu(k,475) * lu(k,1599) - lu(k,1620) = lu(k,1620) - lu(k,476) * lu(k,1599) - lu(k,1621) = lu(k,1621) - lu(k,477) * lu(k,1599) - lu(k,1624) = lu(k,1624) - lu(k,478) * lu(k,1599) - lu(k,1626) = lu(k,1626) - lu(k,479) * lu(k,1599) - lu(k,1627) = lu(k,1627) - lu(k,480) * lu(k,1599) - lu(k,1629) = lu(k,1629) - lu(k,481) * lu(k,1599) - lu(k,1630) = lu(k,1630) - lu(k,482) * lu(k,1599) - lu(k,1632) = lu(k,1632) - lu(k,483) * lu(k,1599) - lu(k,1698) = - lu(k,466) * lu(k,1697) - lu(k,1699) = - lu(k,467) * lu(k,1697) - lu(k,1702) = - lu(k,468) * lu(k,1697) - lu(k,1703) = lu(k,1703) - lu(k,469) * lu(k,1697) - lu(k,1705) = lu(k,1705) - lu(k,470) * lu(k,1697) - lu(k,1706) = lu(k,1706) - lu(k,471) * lu(k,1697) - lu(k,1711) = lu(k,1711) - lu(k,472) * lu(k,1697) - lu(k,1713) = - lu(k,473) * lu(k,1697) - lu(k,1714) = lu(k,1714) - lu(k,474) * lu(k,1697) - lu(k,1715) = lu(k,1715) - lu(k,475) * lu(k,1697) - lu(k,1716) = lu(k,1716) - lu(k,476) * lu(k,1697) - lu(k,1717) = lu(k,1717) - lu(k,477) * lu(k,1697) - lu(k,1720) = lu(k,1720) - lu(k,478) * lu(k,1697) - lu(k,1722) = lu(k,1722) - lu(k,479) * lu(k,1697) - lu(k,1723) = lu(k,1723) - lu(k,480) * lu(k,1697) - lu(k,1725) = lu(k,1725) - lu(k,481) * lu(k,1697) - lu(k,1726) = lu(k,1726) - lu(k,482) * lu(k,1697) - lu(k,1728) = lu(k,1728) - lu(k,483) * lu(k,1697) - lu(k,1798) = lu(k,1798) - lu(k,466) * lu(k,1793) - lu(k,1799) = lu(k,1799) - lu(k,467) * lu(k,1793) - lu(k,1802) = lu(k,1802) - lu(k,468) * lu(k,1793) - lu(k,1803) = lu(k,1803) - lu(k,469) * lu(k,1793) - lu(k,1805) = lu(k,1805) - lu(k,470) * lu(k,1793) - lu(k,1806) = lu(k,1806) - lu(k,471) * lu(k,1793) - lu(k,1811) = lu(k,1811) - lu(k,472) * lu(k,1793) - lu(k,1813) = lu(k,1813) - lu(k,473) * lu(k,1793) - lu(k,1814) = lu(k,1814) - lu(k,474) * lu(k,1793) - lu(k,1815) = lu(k,1815) - lu(k,475) * lu(k,1793) - lu(k,1816) = lu(k,1816) - lu(k,476) * lu(k,1793) - lu(k,1817) = lu(k,1817) - lu(k,477) * lu(k,1793) - lu(k,1820) = lu(k,1820) - lu(k,478) * lu(k,1793) - lu(k,1822) = lu(k,1822) - lu(k,479) * lu(k,1793) - lu(k,1823) = lu(k,1823) - lu(k,480) * lu(k,1793) - lu(k,1825) = lu(k,1825) - lu(k,481) * lu(k,1793) - lu(k,1826) = lu(k,1826) - lu(k,482) * lu(k,1793) - lu(k,1828) = lu(k,1828) - lu(k,483) * lu(k,1793) - 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,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,502) = - lu(k,485) * lu(k,499) - lu(k,503) = lu(k,503) - lu(k,486) * lu(k,499) - lu(k,504) = lu(k,504) - lu(k,487) * lu(k,499) - lu(k,505) = lu(k,505) - lu(k,488) * lu(k,499) - lu(k,506) = lu(k,506) - lu(k,489) * lu(k,499) - lu(k,507) = lu(k,507) - lu(k,490) * lu(k,499) - lu(k,509) = lu(k,509) - lu(k,491) * lu(k,499) - lu(k,510) = lu(k,510) - lu(k,492) * lu(k,499) - lu(k,511) = lu(k,511) - lu(k,493) * lu(k,499) - lu(k,513) = lu(k,513) - lu(k,494) * lu(k,499) - lu(k,514) = lu(k,514) - lu(k,495) * lu(k,499) - lu(k,516) = lu(k,516) - lu(k,496) * lu(k,499) - lu(k,517) = lu(k,517) - lu(k,497) * lu(k,499) - lu(k,542) = lu(k,542) - lu(k,485) * lu(k,539) - lu(k,543) = lu(k,543) - lu(k,486) * lu(k,539) - lu(k,544) = lu(k,544) - lu(k,487) * lu(k,539) - lu(k,545) = lu(k,545) - lu(k,488) * lu(k,539) - lu(k,546) = lu(k,546) - lu(k,489) * lu(k,539) - lu(k,547) = lu(k,547) - lu(k,490) * lu(k,539) - lu(k,549) = lu(k,549) - lu(k,491) * lu(k,539) - lu(k,550) = lu(k,550) - lu(k,492) * lu(k,539) - lu(k,551) = lu(k,551) - lu(k,493) * lu(k,539) - lu(k,553) = lu(k,553) - lu(k,494) * lu(k,539) - lu(k,554) = lu(k,554) - lu(k,495) * lu(k,539) - lu(k,556) = lu(k,556) - lu(k,496) * lu(k,539) - lu(k,557) = lu(k,557) - lu(k,497) * lu(k,539) - lu(k,694) = lu(k,694) - lu(k,485) * lu(k,691) - lu(k,698) = lu(k,698) - lu(k,486) * lu(k,691) - lu(k,699) = lu(k,699) - lu(k,487) * lu(k,691) - lu(k,700) = lu(k,700) - lu(k,488) * lu(k,691) - lu(k,701) = lu(k,701) - lu(k,489) * lu(k,691) - lu(k,702) = lu(k,702) - lu(k,490) * lu(k,691) - lu(k,704) = lu(k,704) - lu(k,491) * lu(k,691) - lu(k,706) = lu(k,706) - lu(k,492) * lu(k,691) - lu(k,707) = lu(k,707) - lu(k,493) * lu(k,691) - lu(k,709) = lu(k,709) - lu(k,494) * lu(k,691) - lu(k,710) = lu(k,710) - lu(k,495) * lu(k,691) - lu(k,713) = lu(k,713) - lu(k,496) * lu(k,691) - lu(k,714) = lu(k,714) - lu(k,497) * lu(k,691) - lu(k,967) = lu(k,967) - lu(k,485) * lu(k,960) - lu(k,974) = lu(k,974) - lu(k,486) * lu(k,960) - lu(k,975) = lu(k,975) - lu(k,487) * lu(k,960) - lu(k,976) = lu(k,976) - lu(k,488) * lu(k,960) - lu(k,978) = lu(k,978) - lu(k,489) * lu(k,960) - lu(k,979) = lu(k,979) - lu(k,490) * lu(k,960) - lu(k,981) = lu(k,981) - lu(k,491) * lu(k,960) - lu(k,983) = lu(k,983) - lu(k,492) * lu(k,960) - lu(k,985) = lu(k,985) - lu(k,493) * lu(k,960) - lu(k,987) = lu(k,987) - lu(k,494) * lu(k,960) - lu(k,988) = lu(k,988) - lu(k,495) * lu(k,960) - lu(k,993) = lu(k,993) - lu(k,496) * lu(k,960) - lu(k,994) = lu(k,994) - lu(k,497) * lu(k,960) - lu(k,1009) = lu(k,1009) - lu(k,485) * lu(k,1003) - lu(k,1016) = lu(k,1016) - lu(k,486) * lu(k,1003) - lu(k,1017) = lu(k,1017) - lu(k,487) * lu(k,1003) - lu(k,1018) = lu(k,1018) - lu(k,488) * lu(k,1003) - lu(k,1020) = lu(k,1020) - lu(k,489) * lu(k,1003) - lu(k,1021) = lu(k,1021) - lu(k,490) * lu(k,1003) - lu(k,1023) = lu(k,1023) - lu(k,491) * lu(k,1003) - lu(k,1025) = lu(k,1025) - lu(k,492) * lu(k,1003) - lu(k,1027) = lu(k,1027) - lu(k,493) * lu(k,1003) - lu(k,1029) = lu(k,1029) - lu(k,494) * lu(k,1003) - lu(k,1030) = lu(k,1030) - lu(k,495) * lu(k,1003) - lu(k,1035) = lu(k,1035) - lu(k,496) * lu(k,1003) - lu(k,1036) = lu(k,1036) - lu(k,497) * lu(k,1003) - lu(k,1051) = lu(k,1051) - lu(k,485) * lu(k,1045) - lu(k,1058) = lu(k,1058) - lu(k,486) * lu(k,1045) - lu(k,1059) = lu(k,1059) - lu(k,487) * lu(k,1045) - lu(k,1060) = lu(k,1060) - lu(k,488) * lu(k,1045) - lu(k,1062) = lu(k,1062) - lu(k,489) * lu(k,1045) - lu(k,1063) = lu(k,1063) - lu(k,490) * lu(k,1045) - lu(k,1065) = lu(k,1065) - lu(k,491) * lu(k,1045) - lu(k,1067) = lu(k,1067) - lu(k,492) * lu(k,1045) - lu(k,1069) = lu(k,1069) - lu(k,493) * lu(k,1045) - lu(k,1071) = lu(k,1071) - lu(k,494) * lu(k,1045) - lu(k,1072) = lu(k,1072) - lu(k,495) * lu(k,1045) - lu(k,1077) = lu(k,1077) - lu(k,496) * lu(k,1045) - lu(k,1078) = lu(k,1078) - lu(k,497) * lu(k,1045) - lu(k,1136) = lu(k,1136) - lu(k,485) * lu(k,1130) - lu(k,1143) = lu(k,1143) - lu(k,486) * lu(k,1130) - lu(k,1144) = lu(k,1144) - lu(k,487) * lu(k,1130) - lu(k,1145) = lu(k,1145) - lu(k,488) * lu(k,1130) - lu(k,1147) = lu(k,1147) - lu(k,489) * lu(k,1130) - lu(k,1148) = lu(k,1148) - lu(k,490) * lu(k,1130) - lu(k,1150) = lu(k,1150) - lu(k,491) * lu(k,1130) - lu(k,1152) = lu(k,1152) - lu(k,492) * lu(k,1130) - lu(k,1154) = lu(k,1154) - lu(k,493) * lu(k,1130) - lu(k,1156) = lu(k,1156) - lu(k,494) * lu(k,1130) - lu(k,1157) = lu(k,1157) - lu(k,495) * lu(k,1130) - lu(k,1162) = lu(k,1162) - lu(k,496) * lu(k,1130) - lu(k,1163) = lu(k,1163) - lu(k,497) * lu(k,1130) - lu(k,1176) = - lu(k,485) * lu(k,1170) - lu(k,1182) = - lu(k,486) * lu(k,1170) - lu(k,1183) = - lu(k,487) * lu(k,1170) - lu(k,1184) = lu(k,1184) - lu(k,488) * lu(k,1170) - lu(k,1186) = - lu(k,489) * lu(k,1170) - lu(k,1187) = lu(k,1187) - lu(k,490) * lu(k,1170) - lu(k,1189) = lu(k,1189) - lu(k,491) * lu(k,1170) - lu(k,1191) = lu(k,1191) - lu(k,492) * lu(k,1170) - lu(k,1193) = - lu(k,493) * lu(k,1170) - lu(k,1195) = lu(k,1195) - lu(k,494) * lu(k,1170) - lu(k,1196) = lu(k,1196) - lu(k,495) * lu(k,1170) - lu(k,1201) = - lu(k,496) * lu(k,1170) - lu(k,1202) = lu(k,1202) - lu(k,497) * lu(k,1170) - lu(k,1301) = lu(k,1301) - lu(k,485) * lu(k,1295) - lu(k,1308) = lu(k,1308) - lu(k,486) * lu(k,1295) - lu(k,1309) = lu(k,1309) - lu(k,487) * lu(k,1295) - lu(k,1310) = lu(k,1310) - lu(k,488) * lu(k,1295) - lu(k,1312) = lu(k,1312) - lu(k,489) * lu(k,1295) - lu(k,1313) = lu(k,1313) - lu(k,490) * lu(k,1295) - lu(k,1315) = lu(k,1315) - lu(k,491) * lu(k,1295) - lu(k,1317) = lu(k,1317) - lu(k,492) * lu(k,1295) - lu(k,1319) = lu(k,1319) - lu(k,493) * lu(k,1295) - lu(k,1321) = lu(k,1321) - lu(k,494) * lu(k,1295) - lu(k,1322) = lu(k,1322) - lu(k,495) * lu(k,1295) - lu(k,1327) = lu(k,1327) - lu(k,496) * lu(k,1295) - lu(k,1328) = lu(k,1328) - lu(k,497) * lu(k,1295) - lu(k,1340) = lu(k,1340) - lu(k,485) * lu(k,1335) - lu(k,1347) = lu(k,1347) - lu(k,486) * lu(k,1335) - lu(k,1348) = lu(k,1348) - lu(k,487) * lu(k,1335) - lu(k,1349) = lu(k,1349) - lu(k,488) * lu(k,1335) - lu(k,1351) = lu(k,1351) - lu(k,489) * lu(k,1335) - lu(k,1352) = lu(k,1352) - lu(k,490) * lu(k,1335) - lu(k,1354) = lu(k,1354) - lu(k,491) * lu(k,1335) - lu(k,1356) = lu(k,1356) - lu(k,492) * lu(k,1335) - lu(k,1358) = lu(k,1358) - lu(k,493) * lu(k,1335) - lu(k,1360) = lu(k,1360) - lu(k,494) * lu(k,1335) - lu(k,1361) = lu(k,1361) - lu(k,495) * lu(k,1335) - lu(k,1366) = lu(k,1366) - lu(k,496) * lu(k,1335) - lu(k,1367) = lu(k,1367) - lu(k,497) * lu(k,1335) - lu(k,1419) = lu(k,1419) - lu(k,485) * lu(k,1412) - lu(k,1426) = lu(k,1426) - lu(k,486) * lu(k,1412) - lu(k,1427) = lu(k,1427) - lu(k,487) * lu(k,1412) - lu(k,1428) = lu(k,1428) - lu(k,488) * lu(k,1412) - lu(k,1430) = lu(k,1430) - lu(k,489) * lu(k,1412) - lu(k,1431) = lu(k,1431) - lu(k,490) * lu(k,1412) - lu(k,1433) = lu(k,1433) - lu(k,491) * lu(k,1412) - lu(k,1435) = lu(k,1435) - lu(k,492) * lu(k,1412) - lu(k,1437) = lu(k,1437) - lu(k,493) * lu(k,1412) - lu(k,1439) = lu(k,1439) - lu(k,494) * lu(k,1412) - lu(k,1440) = lu(k,1440) - lu(k,495) * lu(k,1412) - lu(k,1445) = lu(k,1445) - lu(k,496) * lu(k,1412) - lu(k,1446) = lu(k,1446) - lu(k,497) * lu(k,1412) - lu(k,1465) = lu(k,1465) - lu(k,485) * lu(k,1457) - lu(k,1472) = lu(k,1472) - lu(k,486) * lu(k,1457) - lu(k,1473) = - lu(k,487) * lu(k,1457) - lu(k,1474) = lu(k,1474) - lu(k,488) * lu(k,1457) - lu(k,1476) = - lu(k,489) * lu(k,1457) - lu(k,1477) = lu(k,1477) - lu(k,490) * lu(k,1457) - lu(k,1479) = lu(k,1479) - lu(k,491) * lu(k,1457) - lu(k,1481) = lu(k,1481) - lu(k,492) * lu(k,1457) - lu(k,1483) = lu(k,1483) - lu(k,493) * lu(k,1457) - lu(k,1485) = lu(k,1485) - lu(k,494) * lu(k,1457) - lu(k,1486) = lu(k,1486) - lu(k,495) * lu(k,1457) - lu(k,1491) = - lu(k,496) * lu(k,1457) - lu(k,1492) = lu(k,1492) - lu(k,497) * lu(k,1457) - lu(k,1507) = lu(k,1507) - lu(k,485) * lu(k,1501) - lu(k,1514) = lu(k,1514) - lu(k,486) * lu(k,1501) - lu(k,1515) = lu(k,1515) - lu(k,487) * lu(k,1501) - lu(k,1516) = lu(k,1516) - lu(k,488) * lu(k,1501) - lu(k,1518) = lu(k,1518) - lu(k,489) * lu(k,1501) - lu(k,1519) = lu(k,1519) - lu(k,490) * lu(k,1501) - lu(k,1521) = lu(k,1521) - lu(k,491) * lu(k,1501) - lu(k,1523) = lu(k,1523) - lu(k,492) * lu(k,1501) - lu(k,1525) = lu(k,1525) - lu(k,493) * lu(k,1501) - lu(k,1527) = lu(k,1527) - lu(k,494) * lu(k,1501) - lu(k,1528) = lu(k,1528) - lu(k,495) * lu(k,1501) - lu(k,1533) = lu(k,1533) - lu(k,496) * lu(k,1501) - lu(k,1534) = lu(k,1534) - lu(k,497) * lu(k,1501) - lu(k,1743) = lu(k,1743) - lu(k,485) * lu(k,1737) - lu(k,1750) = lu(k,1750) - lu(k,486) * lu(k,1737) - lu(k,1751) = lu(k,1751) - lu(k,487) * lu(k,1737) - lu(k,1752) = lu(k,1752) - lu(k,488) * lu(k,1737) - lu(k,1754) = lu(k,1754) - lu(k,489) * lu(k,1737) - lu(k,1755) = lu(k,1755) - lu(k,490) * lu(k,1737) - lu(k,1757) = lu(k,1757) - lu(k,491) * lu(k,1737) - lu(k,1759) = lu(k,1759) - lu(k,492) * lu(k,1737) - lu(k,1761) = lu(k,1761) - lu(k,493) * lu(k,1737) - lu(k,1763) = lu(k,1763) - lu(k,494) * lu(k,1737) - lu(k,1764) = lu(k,1764) - lu(k,495) * lu(k,1737) - lu(k,1769) = lu(k,1769) - lu(k,496) * lu(k,1737) - lu(k,1770) = lu(k,1770) - lu(k,497) * lu(k,1737) - lu(k,500) = 1._r8 / lu(k,500) - lu(k,501) = lu(k,501) * lu(k,500) - lu(k,502) = lu(k,502) * lu(k,500) - lu(k,503) = lu(k,503) * lu(k,500) - lu(k,504) = lu(k,504) * lu(k,500) - lu(k,505) = lu(k,505) * lu(k,500) - lu(k,506) = lu(k,506) * lu(k,500) - lu(k,507) = lu(k,507) * lu(k,500) - lu(k,508) = lu(k,508) * lu(k,500) - lu(k,509) = lu(k,509) * lu(k,500) - lu(k,510) = lu(k,510) * lu(k,500) - lu(k,511) = lu(k,511) * lu(k,500) - lu(k,512) = lu(k,512) * lu(k,500) - lu(k,513) = lu(k,513) * lu(k,500) - lu(k,514) = lu(k,514) * lu(k,500) - lu(k,515) = lu(k,515) * lu(k,500) - lu(k,516) = lu(k,516) * lu(k,500) - lu(k,517) = lu(k,517) * lu(k,500) - lu(k,541) = lu(k,541) - lu(k,501) * lu(k,540) - lu(k,542) = lu(k,542) - lu(k,502) * lu(k,540) - lu(k,543) = lu(k,543) - lu(k,503) * lu(k,540) - lu(k,544) = lu(k,544) - lu(k,504) * lu(k,540) - lu(k,545) = lu(k,545) - lu(k,505) * lu(k,540) - lu(k,546) = lu(k,546) - lu(k,506) * lu(k,540) - lu(k,547) = lu(k,547) - lu(k,507) * lu(k,540) - lu(k,548) = lu(k,548) - lu(k,508) * lu(k,540) - lu(k,549) = lu(k,549) - lu(k,509) * lu(k,540) - lu(k,550) = lu(k,550) - lu(k,510) * lu(k,540) - lu(k,551) = lu(k,551) - lu(k,511) * lu(k,540) - lu(k,552) = lu(k,552) - lu(k,512) * lu(k,540) - lu(k,553) = lu(k,553) - lu(k,513) * lu(k,540) - lu(k,554) = lu(k,554) - lu(k,514) * lu(k,540) - lu(k,555) = lu(k,555) - lu(k,515) * lu(k,540) - lu(k,556) = lu(k,556) - lu(k,516) * lu(k,540) - lu(k,557) = lu(k,557) - lu(k,517) * lu(k,540) - lu(k,963) = lu(k,963) - lu(k,501) * lu(k,961) - lu(k,967) = lu(k,967) - lu(k,502) * lu(k,961) - lu(k,974) = lu(k,974) - lu(k,503) * lu(k,961) - lu(k,975) = lu(k,975) - lu(k,504) * lu(k,961) - lu(k,976) = lu(k,976) - lu(k,505) * lu(k,961) - lu(k,978) = lu(k,978) - lu(k,506) * lu(k,961) - lu(k,979) = lu(k,979) - lu(k,507) * lu(k,961) - lu(k,980) = lu(k,980) - lu(k,508) * lu(k,961) - lu(k,981) = lu(k,981) - lu(k,509) * lu(k,961) - lu(k,983) = lu(k,983) - lu(k,510) * lu(k,961) - lu(k,985) = lu(k,985) - lu(k,511) * lu(k,961) - lu(k,986) = lu(k,986) - lu(k,512) * lu(k,961) - lu(k,987) = lu(k,987) - lu(k,513) * lu(k,961) - lu(k,988) = lu(k,988) - lu(k,514) * lu(k,961) - lu(k,989) = lu(k,989) - lu(k,515) * lu(k,961) - lu(k,993) = lu(k,993) - lu(k,516) * lu(k,961) - lu(k,994) = lu(k,994) - lu(k,517) * lu(k,961) - lu(k,1006) = lu(k,1006) - lu(k,501) * lu(k,1004) - lu(k,1009) = lu(k,1009) - lu(k,502) * lu(k,1004) - lu(k,1016) = lu(k,1016) - lu(k,503) * lu(k,1004) - lu(k,1017) = lu(k,1017) - lu(k,504) * lu(k,1004) - lu(k,1018) = lu(k,1018) - lu(k,505) * lu(k,1004) - lu(k,1020) = lu(k,1020) - lu(k,506) * lu(k,1004) - lu(k,1021) = lu(k,1021) - lu(k,507) * lu(k,1004) - lu(k,1022) = lu(k,1022) - lu(k,508) * lu(k,1004) - lu(k,1023) = lu(k,1023) - lu(k,509) * lu(k,1004) - lu(k,1025) = lu(k,1025) - lu(k,510) * lu(k,1004) - lu(k,1027) = lu(k,1027) - lu(k,511) * lu(k,1004) - lu(k,1028) = lu(k,1028) - lu(k,512) * lu(k,1004) - lu(k,1029) = lu(k,1029) - lu(k,513) * lu(k,1004) - lu(k,1030) = lu(k,1030) - lu(k,514) * lu(k,1004) - lu(k,1031) = lu(k,1031) - lu(k,515) * lu(k,1004) - lu(k,1035) = lu(k,1035) - lu(k,516) * lu(k,1004) - lu(k,1036) = lu(k,1036) - lu(k,517) * lu(k,1004) - lu(k,1048) = lu(k,1048) - lu(k,501) * lu(k,1046) - lu(k,1051) = lu(k,1051) - lu(k,502) * lu(k,1046) - lu(k,1058) = lu(k,1058) - lu(k,503) * lu(k,1046) - lu(k,1059) = lu(k,1059) - lu(k,504) * lu(k,1046) - lu(k,1060) = lu(k,1060) - lu(k,505) * lu(k,1046) - lu(k,1062) = lu(k,1062) - lu(k,506) * lu(k,1046) - lu(k,1063) = lu(k,1063) - lu(k,507) * lu(k,1046) - lu(k,1064) = lu(k,1064) - lu(k,508) * lu(k,1046) - lu(k,1065) = lu(k,1065) - lu(k,509) * lu(k,1046) - lu(k,1067) = lu(k,1067) - lu(k,510) * lu(k,1046) - lu(k,1069) = lu(k,1069) - lu(k,511) * lu(k,1046) - lu(k,1070) = lu(k,1070) - lu(k,512) * lu(k,1046) - lu(k,1071) = lu(k,1071) - lu(k,513) * lu(k,1046) - lu(k,1072) = lu(k,1072) - lu(k,514) * lu(k,1046) - lu(k,1073) = lu(k,1073) - lu(k,515) * lu(k,1046) - lu(k,1077) = lu(k,1077) - lu(k,516) * lu(k,1046) - lu(k,1078) = lu(k,1078) - lu(k,517) * lu(k,1046) - lu(k,1133) = lu(k,1133) - lu(k,501) * lu(k,1131) - lu(k,1136) = lu(k,1136) - lu(k,502) * lu(k,1131) - lu(k,1143) = lu(k,1143) - lu(k,503) * lu(k,1131) - lu(k,1144) = lu(k,1144) - lu(k,504) * lu(k,1131) - lu(k,1145) = lu(k,1145) - lu(k,505) * lu(k,1131) - lu(k,1147) = lu(k,1147) - lu(k,506) * lu(k,1131) - lu(k,1148) = lu(k,1148) - lu(k,507) * lu(k,1131) - lu(k,1149) = lu(k,1149) - lu(k,508) * lu(k,1131) - lu(k,1150) = lu(k,1150) - lu(k,509) * lu(k,1131) - lu(k,1152) = lu(k,1152) - lu(k,510) * lu(k,1131) - lu(k,1154) = lu(k,1154) - lu(k,511) * lu(k,1131) - lu(k,1155) = lu(k,1155) - lu(k,512) * lu(k,1131) - lu(k,1156) = lu(k,1156) - lu(k,513) * lu(k,1131) - lu(k,1157) = lu(k,1157) - lu(k,514) * lu(k,1131) - lu(k,1158) = lu(k,1158) - lu(k,515) * lu(k,1131) - lu(k,1162) = lu(k,1162) - lu(k,516) * lu(k,1131) - lu(k,1163) = lu(k,1163) - lu(k,517) * lu(k,1131) - lu(k,1172) = lu(k,1172) - lu(k,501) * lu(k,1171) - lu(k,1176) = lu(k,1176) - lu(k,502) * lu(k,1171) - lu(k,1182) = lu(k,1182) - lu(k,503) * lu(k,1171) - lu(k,1183) = lu(k,1183) - lu(k,504) * lu(k,1171) - lu(k,1184) = lu(k,1184) - lu(k,505) * lu(k,1171) - lu(k,1186) = lu(k,1186) - lu(k,506) * lu(k,1171) - lu(k,1187) = lu(k,1187) - lu(k,507) * lu(k,1171) - lu(k,1188) = lu(k,1188) - lu(k,508) * lu(k,1171) - lu(k,1189) = lu(k,1189) - lu(k,509) * lu(k,1171) - lu(k,1191) = lu(k,1191) - lu(k,510) * lu(k,1171) - lu(k,1193) = lu(k,1193) - lu(k,511) * lu(k,1171) - lu(k,1194) = lu(k,1194) - lu(k,512) * lu(k,1171) - lu(k,1195) = lu(k,1195) - lu(k,513) * lu(k,1171) - lu(k,1196) = lu(k,1196) - lu(k,514) * lu(k,1171) - lu(k,1197) = lu(k,1197) - lu(k,515) * lu(k,1171) - lu(k,1201) = lu(k,1201) - lu(k,516) * lu(k,1171) - lu(k,1202) = lu(k,1202) - lu(k,517) * lu(k,1171) - lu(k,1415) = lu(k,1415) - lu(k,501) * lu(k,1413) - lu(k,1419) = lu(k,1419) - lu(k,502) * lu(k,1413) - lu(k,1426) = lu(k,1426) - lu(k,503) * lu(k,1413) - lu(k,1427) = lu(k,1427) - lu(k,504) * lu(k,1413) - lu(k,1428) = lu(k,1428) - lu(k,505) * lu(k,1413) - lu(k,1430) = lu(k,1430) - lu(k,506) * lu(k,1413) - lu(k,1431) = lu(k,1431) - lu(k,507) * lu(k,1413) - lu(k,1432) = lu(k,1432) - lu(k,508) * lu(k,1413) - lu(k,1433) = lu(k,1433) - lu(k,509) * lu(k,1413) - lu(k,1435) = lu(k,1435) - lu(k,510) * lu(k,1413) - lu(k,1437) = lu(k,1437) - lu(k,511) * lu(k,1413) - lu(k,1438) = lu(k,1438) - lu(k,512) * lu(k,1413) - lu(k,1439) = lu(k,1439) - lu(k,513) * lu(k,1413) - lu(k,1440) = lu(k,1440) - lu(k,514) * lu(k,1413) - lu(k,1441) = lu(k,1441) - lu(k,515) * lu(k,1413) - lu(k,1445) = lu(k,1445) - lu(k,516) * lu(k,1413) - lu(k,1446) = lu(k,1446) - lu(k,517) * lu(k,1413) - lu(k,1460) = lu(k,1460) - lu(k,501) * lu(k,1458) - lu(k,1465) = lu(k,1465) - lu(k,502) * lu(k,1458) - lu(k,1472) = lu(k,1472) - lu(k,503) * lu(k,1458) - lu(k,1473) = lu(k,1473) - lu(k,504) * lu(k,1458) - lu(k,1474) = lu(k,1474) - lu(k,505) * lu(k,1458) - lu(k,1476) = lu(k,1476) - lu(k,506) * lu(k,1458) - lu(k,1477) = lu(k,1477) - lu(k,507) * lu(k,1458) - lu(k,1478) = lu(k,1478) - lu(k,508) * lu(k,1458) - lu(k,1479) = lu(k,1479) - lu(k,509) * lu(k,1458) - lu(k,1481) = lu(k,1481) - lu(k,510) * lu(k,1458) - lu(k,1483) = lu(k,1483) - lu(k,511) * lu(k,1458) - lu(k,1484) = lu(k,1484) - lu(k,512) * lu(k,1458) - lu(k,1485) = lu(k,1485) - lu(k,513) * lu(k,1458) - lu(k,1486) = lu(k,1486) - lu(k,514) * lu(k,1458) - lu(k,1487) = lu(k,1487) - lu(k,515) * lu(k,1458) - lu(k,1491) = lu(k,1491) - lu(k,516) * lu(k,1458) - lu(k,1492) = lu(k,1492) - lu(k,517) * lu(k,1458) - lu(k,1504) = lu(k,1504) - lu(k,501) * lu(k,1502) - lu(k,1507) = lu(k,1507) - lu(k,502) * lu(k,1502) - lu(k,1514) = lu(k,1514) - lu(k,503) * lu(k,1502) - lu(k,1515) = lu(k,1515) - lu(k,504) * lu(k,1502) - lu(k,1516) = lu(k,1516) - lu(k,505) * lu(k,1502) - lu(k,1518) = lu(k,1518) - lu(k,506) * lu(k,1502) - lu(k,1519) = lu(k,1519) - lu(k,507) * lu(k,1502) - lu(k,1520) = lu(k,1520) - lu(k,508) * lu(k,1502) - lu(k,1521) = lu(k,1521) - lu(k,509) * lu(k,1502) - lu(k,1523) = lu(k,1523) - lu(k,510) * lu(k,1502) - lu(k,1525) = lu(k,1525) - lu(k,511) * lu(k,1502) - lu(k,1526) = lu(k,1526) - lu(k,512) * lu(k,1502) - lu(k,1527) = lu(k,1527) - lu(k,513) * lu(k,1502) - lu(k,1528) = lu(k,1528) - lu(k,514) * lu(k,1502) - lu(k,1529) = lu(k,1529) - lu(k,515) * lu(k,1502) - lu(k,1533) = lu(k,1533) - lu(k,516) * lu(k,1502) - lu(k,1534) = lu(k,1534) - lu(k,517) * lu(k,1502) - lu(k,1740) = lu(k,1740) - lu(k,501) * lu(k,1738) - lu(k,1743) = lu(k,1743) - lu(k,502) * lu(k,1738) - lu(k,1750) = lu(k,1750) - lu(k,503) * lu(k,1738) - lu(k,1751) = lu(k,1751) - lu(k,504) * lu(k,1738) - lu(k,1752) = lu(k,1752) - lu(k,505) * lu(k,1738) - lu(k,1754) = lu(k,1754) - lu(k,506) * lu(k,1738) - lu(k,1755) = lu(k,1755) - lu(k,507) * lu(k,1738) - lu(k,1756) = lu(k,1756) - lu(k,508) * lu(k,1738) - lu(k,1757) = lu(k,1757) - lu(k,509) * lu(k,1738) - lu(k,1759) = lu(k,1759) - lu(k,510) * lu(k,1738) - lu(k,1761) = lu(k,1761) - lu(k,511) * lu(k,1738) - lu(k,1762) = lu(k,1762) - lu(k,512) * lu(k,1738) - lu(k,1763) = lu(k,1763) - lu(k,513) * lu(k,1738) - lu(k,1764) = lu(k,1764) - lu(k,514) * lu(k,1738) - lu(k,1765) = lu(k,1765) - lu(k,515) * lu(k,1738) - lu(k,1769) = lu(k,1769) - lu(k,516) * lu(k,1738) - lu(k,1770) = lu(k,1770) - lu(k,517) * lu(k,1738) - lu(k,1796) = lu(k,1796) - lu(k,501) * lu(k,1794) - lu(k,1801) = lu(k,1801) - lu(k,502) * lu(k,1794) - lu(k,1808) = lu(k,1808) - lu(k,503) * lu(k,1794) - lu(k,1809) = lu(k,1809) - lu(k,504) * lu(k,1794) - lu(k,1810) = lu(k,1810) - lu(k,505) * lu(k,1794) - lu(k,1812) = lu(k,1812) - lu(k,506) * lu(k,1794) - lu(k,1813) = lu(k,1813) - lu(k,507) * lu(k,1794) - lu(k,1814) = lu(k,1814) - lu(k,508) * lu(k,1794) - lu(k,1815) = lu(k,1815) - lu(k,509) * lu(k,1794) - lu(k,1817) = lu(k,1817) - lu(k,510) * lu(k,1794) - lu(k,1819) = lu(k,1819) - lu(k,511) * lu(k,1794) - lu(k,1820) = lu(k,1820) - lu(k,512) * lu(k,1794) - lu(k,1821) = lu(k,1821) - lu(k,513) * lu(k,1794) - lu(k,1822) = lu(k,1822) - lu(k,514) * lu(k,1794) - lu(k,1823) = lu(k,1823) - lu(k,515) * lu(k,1794) - lu(k,1827) = lu(k,1827) - lu(k,516) * lu(k,1794) - lu(k,1828) = lu(k,1828) - lu(k,517) * lu(k,1794) - lu(k,520) = 1._r8 / lu(k,520) - lu(k,521) = lu(k,521) * lu(k,520) - lu(k,522) = lu(k,522) * lu(k,520) - lu(k,523) = lu(k,523) * lu(k,520) - lu(k,524) = lu(k,524) * lu(k,520) - lu(k,525) = lu(k,525) * lu(k,520) - lu(k,526) = lu(k,526) * lu(k,520) - lu(k,527) = lu(k,527) * lu(k,520) - lu(k,528) = lu(k,528) * lu(k,520) - lu(k,529) = lu(k,529) * lu(k,520) - lu(k,530) = lu(k,530) * lu(k,520) - lu(k,531) = lu(k,531) * lu(k,520) - lu(k,532) = lu(k,532) * lu(k,520) - lu(k,533) = lu(k,533) * lu(k,520) - lu(k,534) = lu(k,534) * lu(k,520) - lu(k,535) = lu(k,535) * lu(k,520) - lu(k,536) = lu(k,536) * lu(k,520) - lu(k,537) = lu(k,537) * lu(k,520) - lu(k,799) = - lu(k,521) * lu(k,798) - lu(k,801) = lu(k,801) - lu(k,522) * lu(k,798) - lu(k,803) = lu(k,803) - lu(k,523) * lu(k,798) - lu(k,807) = lu(k,807) - lu(k,524) * lu(k,798) - lu(k,808) = lu(k,808) - lu(k,525) * lu(k,798) - lu(k,809) = lu(k,809) - lu(k,526) * lu(k,798) - lu(k,811) = lu(k,811) - lu(k,527) * lu(k,798) - lu(k,813) = lu(k,813) - lu(k,528) * lu(k,798) - lu(k,814) = lu(k,814) - lu(k,529) * lu(k,798) - lu(k,818) = lu(k,818) - lu(k,530) * lu(k,798) - lu(k,819) = lu(k,819) - lu(k,531) * lu(k,798) - lu(k,820) = lu(k,820) - lu(k,532) * lu(k,798) - lu(k,821) = lu(k,821) - lu(k,533) * lu(k,798) - lu(k,822) = lu(k,822) - lu(k,534) * lu(k,798) - lu(k,823) = lu(k,823) - lu(k,535) * lu(k,798) - lu(k,826) = lu(k,826) - lu(k,536) * lu(k,798) - lu(k,827) = lu(k,827) - lu(k,537) * lu(k,798) - lu(k,963) = lu(k,963) - lu(k,521) * lu(k,962) - lu(k,967) = lu(k,967) - lu(k,522) * lu(k,962) - lu(k,970) = lu(k,970) - lu(k,523) * lu(k,962) - lu(k,974) = lu(k,974) - lu(k,524) * lu(k,962) - lu(k,975) = lu(k,975) - lu(k,525) * lu(k,962) - lu(k,976) = lu(k,976) - lu(k,526) * lu(k,962) - lu(k,978) = lu(k,978) - lu(k,527) * lu(k,962) - lu(k,980) = lu(k,980) - lu(k,528) * lu(k,962) - lu(k,981) = lu(k,981) - lu(k,529) * lu(k,962) - lu(k,985) = lu(k,985) - lu(k,530) * lu(k,962) - lu(k,986) = lu(k,986) - lu(k,531) * lu(k,962) - lu(k,987) = lu(k,987) - lu(k,532) * lu(k,962) - lu(k,988) = lu(k,988) - lu(k,533) * lu(k,962) - lu(k,989) = lu(k,989) - lu(k,534) * lu(k,962) - lu(k,990) = lu(k,990) - lu(k,535) * lu(k,962) - lu(k,993) = lu(k,993) - lu(k,536) * lu(k,962) - lu(k,994) = lu(k,994) - lu(k,537) * lu(k,962) - lu(k,1006) = lu(k,1006) - lu(k,521) * lu(k,1005) - lu(k,1009) = lu(k,1009) - lu(k,522) * lu(k,1005) - lu(k,1012) = lu(k,1012) - lu(k,523) * lu(k,1005) - lu(k,1016) = lu(k,1016) - lu(k,524) * lu(k,1005) - lu(k,1017) = lu(k,1017) - lu(k,525) * lu(k,1005) - lu(k,1018) = lu(k,1018) - lu(k,526) * lu(k,1005) - lu(k,1020) = lu(k,1020) - lu(k,527) * lu(k,1005) - lu(k,1022) = lu(k,1022) - lu(k,528) * lu(k,1005) - lu(k,1023) = lu(k,1023) - lu(k,529) * lu(k,1005) - lu(k,1027) = lu(k,1027) - lu(k,530) * lu(k,1005) - lu(k,1028) = lu(k,1028) - lu(k,531) * lu(k,1005) - lu(k,1029) = lu(k,1029) - lu(k,532) * lu(k,1005) - lu(k,1030) = lu(k,1030) - lu(k,533) * lu(k,1005) - lu(k,1031) = lu(k,1031) - lu(k,534) * lu(k,1005) - lu(k,1032) = lu(k,1032) - lu(k,535) * lu(k,1005) - lu(k,1035) = lu(k,1035) - lu(k,536) * lu(k,1005) - lu(k,1036) = lu(k,1036) - lu(k,537) * lu(k,1005) - lu(k,1048) = lu(k,1048) - lu(k,521) * lu(k,1047) - lu(k,1051) = lu(k,1051) - lu(k,522) * lu(k,1047) - lu(k,1054) = lu(k,1054) - lu(k,523) * lu(k,1047) - lu(k,1058) = lu(k,1058) - lu(k,524) * lu(k,1047) - lu(k,1059) = lu(k,1059) - lu(k,525) * lu(k,1047) - lu(k,1060) = lu(k,1060) - lu(k,526) * lu(k,1047) - lu(k,1062) = lu(k,1062) - lu(k,527) * lu(k,1047) - lu(k,1064) = lu(k,1064) - lu(k,528) * lu(k,1047) - lu(k,1065) = lu(k,1065) - lu(k,529) * lu(k,1047) - lu(k,1069) = lu(k,1069) - lu(k,530) * lu(k,1047) - lu(k,1070) = lu(k,1070) - lu(k,531) * lu(k,1047) - lu(k,1071) = lu(k,1071) - lu(k,532) * lu(k,1047) - lu(k,1072) = lu(k,1072) - lu(k,533) * lu(k,1047) - lu(k,1073) = lu(k,1073) - lu(k,534) * lu(k,1047) - lu(k,1074) = lu(k,1074) - lu(k,535) * lu(k,1047) - lu(k,1077) = lu(k,1077) - lu(k,536) * lu(k,1047) - lu(k,1078) = lu(k,1078) - lu(k,537) * lu(k,1047) - lu(k,1133) = lu(k,1133) - lu(k,521) * lu(k,1132) - lu(k,1136) = lu(k,1136) - lu(k,522) * lu(k,1132) - lu(k,1139) = lu(k,1139) - lu(k,523) * lu(k,1132) - lu(k,1143) = lu(k,1143) - lu(k,524) * lu(k,1132) - lu(k,1144) = lu(k,1144) - lu(k,525) * lu(k,1132) - lu(k,1145) = lu(k,1145) - lu(k,526) * lu(k,1132) - lu(k,1147) = lu(k,1147) - lu(k,527) * lu(k,1132) - lu(k,1149) = lu(k,1149) - lu(k,528) * lu(k,1132) - lu(k,1150) = lu(k,1150) - lu(k,529) * lu(k,1132) - lu(k,1154) = lu(k,1154) - lu(k,530) * lu(k,1132) - lu(k,1155) = lu(k,1155) - lu(k,531) * lu(k,1132) - lu(k,1156) = lu(k,1156) - lu(k,532) * lu(k,1132) - lu(k,1157) = lu(k,1157) - lu(k,533) * lu(k,1132) - lu(k,1158) = lu(k,1158) - lu(k,534) * lu(k,1132) - lu(k,1159) = lu(k,1159) - lu(k,535) * lu(k,1132) - lu(k,1162) = lu(k,1162) - lu(k,536) * lu(k,1132) - lu(k,1163) = lu(k,1163) - lu(k,537) * lu(k,1132) - lu(k,1415) = lu(k,1415) - lu(k,521) * lu(k,1414) - lu(k,1419) = lu(k,1419) - lu(k,522) * lu(k,1414) - lu(k,1422) = lu(k,1422) - lu(k,523) * lu(k,1414) - lu(k,1426) = lu(k,1426) - lu(k,524) * lu(k,1414) - lu(k,1427) = lu(k,1427) - lu(k,525) * lu(k,1414) - lu(k,1428) = lu(k,1428) - lu(k,526) * lu(k,1414) - lu(k,1430) = lu(k,1430) - lu(k,527) * lu(k,1414) - lu(k,1432) = lu(k,1432) - lu(k,528) * lu(k,1414) - lu(k,1433) = lu(k,1433) - lu(k,529) * lu(k,1414) - lu(k,1437) = lu(k,1437) - lu(k,530) * lu(k,1414) - lu(k,1438) = lu(k,1438) - lu(k,531) * lu(k,1414) - lu(k,1439) = lu(k,1439) - lu(k,532) * lu(k,1414) - lu(k,1440) = lu(k,1440) - lu(k,533) * lu(k,1414) - lu(k,1441) = lu(k,1441) - lu(k,534) * lu(k,1414) - lu(k,1442) = lu(k,1442) - lu(k,535) * lu(k,1414) - lu(k,1445) = lu(k,1445) - lu(k,536) * lu(k,1414) - lu(k,1446) = lu(k,1446) - lu(k,537) * lu(k,1414) - lu(k,1460) = lu(k,1460) - lu(k,521) * lu(k,1459) - lu(k,1465) = lu(k,1465) - lu(k,522) * lu(k,1459) - lu(k,1468) = lu(k,1468) - lu(k,523) * lu(k,1459) - lu(k,1472) = lu(k,1472) - lu(k,524) * lu(k,1459) - lu(k,1473) = lu(k,1473) - lu(k,525) * lu(k,1459) - lu(k,1474) = lu(k,1474) - lu(k,526) * lu(k,1459) - lu(k,1476) = lu(k,1476) - lu(k,527) * lu(k,1459) - lu(k,1478) = lu(k,1478) - lu(k,528) * lu(k,1459) - lu(k,1479) = lu(k,1479) - lu(k,529) * lu(k,1459) - lu(k,1483) = lu(k,1483) - lu(k,530) * lu(k,1459) - lu(k,1484) = lu(k,1484) - lu(k,531) * lu(k,1459) - lu(k,1485) = lu(k,1485) - lu(k,532) * lu(k,1459) - lu(k,1486) = lu(k,1486) - lu(k,533) * lu(k,1459) - lu(k,1487) = lu(k,1487) - lu(k,534) * lu(k,1459) - lu(k,1488) = lu(k,1488) - lu(k,535) * lu(k,1459) - lu(k,1491) = lu(k,1491) - lu(k,536) * lu(k,1459) - lu(k,1492) = lu(k,1492) - lu(k,537) * lu(k,1459) - lu(k,1504) = lu(k,1504) - lu(k,521) * lu(k,1503) - lu(k,1507) = lu(k,1507) - lu(k,522) * lu(k,1503) - lu(k,1510) = lu(k,1510) - lu(k,523) * lu(k,1503) - lu(k,1514) = lu(k,1514) - lu(k,524) * lu(k,1503) - lu(k,1515) = lu(k,1515) - lu(k,525) * lu(k,1503) - lu(k,1516) = lu(k,1516) - lu(k,526) * lu(k,1503) - lu(k,1518) = lu(k,1518) - lu(k,527) * lu(k,1503) - lu(k,1520) = lu(k,1520) - lu(k,528) * lu(k,1503) - lu(k,1521) = lu(k,1521) - lu(k,529) * lu(k,1503) - lu(k,1525) = lu(k,1525) - lu(k,530) * lu(k,1503) - lu(k,1526) = lu(k,1526) - lu(k,531) * lu(k,1503) - lu(k,1527) = lu(k,1527) - lu(k,532) * lu(k,1503) - lu(k,1528) = lu(k,1528) - lu(k,533) * lu(k,1503) - lu(k,1529) = lu(k,1529) - lu(k,534) * lu(k,1503) - lu(k,1530) = lu(k,1530) - lu(k,535) * lu(k,1503) - lu(k,1533) = lu(k,1533) - lu(k,536) * lu(k,1503) - lu(k,1534) = lu(k,1534) - lu(k,537) * lu(k,1503) - lu(k,1543) = - lu(k,521) * lu(k,1542) - lu(k,1548) = lu(k,1548) - lu(k,522) * lu(k,1542) - lu(k,1551) = lu(k,1551) - lu(k,523) * lu(k,1542) - lu(k,1555) = lu(k,1555) - lu(k,524) * lu(k,1542) - lu(k,1556) = lu(k,1556) - lu(k,525) * lu(k,1542) - lu(k,1557) = lu(k,1557) - lu(k,526) * lu(k,1542) - lu(k,1559) = lu(k,1559) - lu(k,527) * lu(k,1542) - lu(k,1561) = lu(k,1561) - lu(k,528) * lu(k,1542) - lu(k,1562) = lu(k,1562) - lu(k,529) * lu(k,1542) - lu(k,1566) = lu(k,1566) - lu(k,530) * lu(k,1542) - lu(k,1567) = lu(k,1567) - lu(k,531) * lu(k,1542) - lu(k,1568) = lu(k,1568) - lu(k,532) * lu(k,1542) - lu(k,1569) = lu(k,1569) - lu(k,533) * lu(k,1542) - lu(k,1570) = lu(k,1570) - lu(k,534) * lu(k,1542) - lu(k,1571) = lu(k,1571) - lu(k,535) * lu(k,1542) - lu(k,1574) = lu(k,1574) - lu(k,536) * lu(k,1542) - lu(k,1575) = lu(k,1575) - lu(k,537) * lu(k,1542) - lu(k,1740) = lu(k,1740) - lu(k,521) * lu(k,1739) - lu(k,1743) = lu(k,1743) - lu(k,522) * lu(k,1739) - lu(k,1746) = lu(k,1746) - lu(k,523) * lu(k,1739) - lu(k,1750) = lu(k,1750) - lu(k,524) * lu(k,1739) - lu(k,1751) = lu(k,1751) - lu(k,525) * lu(k,1739) - lu(k,1752) = lu(k,1752) - lu(k,526) * lu(k,1739) - lu(k,1754) = lu(k,1754) - lu(k,527) * lu(k,1739) - lu(k,1756) = lu(k,1756) - lu(k,528) * lu(k,1739) - lu(k,1757) = lu(k,1757) - lu(k,529) * lu(k,1739) - lu(k,1761) = lu(k,1761) - lu(k,530) * lu(k,1739) - lu(k,1762) = lu(k,1762) - lu(k,531) * lu(k,1739) - lu(k,1763) = lu(k,1763) - lu(k,532) * lu(k,1739) - lu(k,1764) = lu(k,1764) - lu(k,533) * lu(k,1739) - lu(k,1765) = lu(k,1765) - lu(k,534) * lu(k,1739) - lu(k,1766) = lu(k,1766) - lu(k,535) * lu(k,1739) - lu(k,1769) = lu(k,1769) - lu(k,536) * lu(k,1739) - lu(k,1770) = lu(k,1770) - lu(k,537) * lu(k,1739) - lu(k,1796) = lu(k,1796) - lu(k,521) * lu(k,1795) - lu(k,1801) = lu(k,1801) - lu(k,522) * lu(k,1795) - lu(k,1804) = lu(k,1804) - lu(k,523) * lu(k,1795) - lu(k,1808) = lu(k,1808) - lu(k,524) * lu(k,1795) - lu(k,1809) = lu(k,1809) - lu(k,525) * lu(k,1795) - lu(k,1810) = lu(k,1810) - lu(k,526) * lu(k,1795) - lu(k,1812) = lu(k,1812) - lu(k,527) * lu(k,1795) - lu(k,1814) = lu(k,1814) - lu(k,528) * lu(k,1795) - lu(k,1815) = lu(k,1815) - lu(k,529) * lu(k,1795) - lu(k,1819) = lu(k,1819) - lu(k,530) * lu(k,1795) - lu(k,1820) = lu(k,1820) - lu(k,531) * lu(k,1795) - lu(k,1821) = lu(k,1821) - lu(k,532) * lu(k,1795) - lu(k,1822) = lu(k,1822) - lu(k,533) * lu(k,1795) - lu(k,1823) = lu(k,1823) - lu(k,534) * lu(k,1795) - lu(k,1824) = lu(k,1824) - lu(k,535) * lu(k,1795) - lu(k,1827) = lu(k,1827) - lu(k,536) * lu(k,1795) - lu(k,1828) = lu(k,1828) - lu(k,537) * lu(k,1795) - 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,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,694) = lu(k,694) - lu(k,542) * lu(k,692) - lu(k,698) = lu(k,698) - lu(k,543) * lu(k,692) - lu(k,699) = lu(k,699) - lu(k,544) * lu(k,692) - lu(k,700) = lu(k,700) - lu(k,545) * lu(k,692) - lu(k,701) = lu(k,701) - lu(k,546) * lu(k,692) - lu(k,702) = lu(k,702) - lu(k,547) * lu(k,692) - lu(k,703) = lu(k,703) - lu(k,548) * lu(k,692) - lu(k,704) = lu(k,704) - lu(k,549) * lu(k,692) - lu(k,706) = lu(k,706) - lu(k,550) * lu(k,692) - lu(k,707) = lu(k,707) - lu(k,551) * lu(k,692) - lu(k,708) = - lu(k,552) * lu(k,692) - lu(k,709) = lu(k,709) - lu(k,553) * lu(k,692) - lu(k,710) = lu(k,710) - lu(k,554) * lu(k,692) - lu(k,711) = lu(k,711) - lu(k,555) * lu(k,692) - lu(k,713) = lu(k,713) - lu(k,556) * lu(k,692) - lu(k,714) = lu(k,714) - lu(k,557) * lu(k,692) - lu(k,801) = lu(k,801) - lu(k,542) * lu(k,799) - lu(k,807) = lu(k,807) - lu(k,543) * lu(k,799) - lu(k,808) = lu(k,808) - lu(k,544) * lu(k,799) - lu(k,809) = lu(k,809) - lu(k,545) * lu(k,799) - lu(k,811) = lu(k,811) - lu(k,546) * lu(k,799) - lu(k,812) = - lu(k,547) * lu(k,799) - lu(k,813) = lu(k,813) - lu(k,548) * lu(k,799) - lu(k,814) = lu(k,814) - lu(k,549) * lu(k,799) - lu(k,816) = lu(k,816) - lu(k,550) * lu(k,799) - lu(k,818) = lu(k,818) - lu(k,551) * lu(k,799) - lu(k,819) = lu(k,819) - lu(k,552) * lu(k,799) - lu(k,820) = lu(k,820) - lu(k,553) * lu(k,799) - lu(k,821) = lu(k,821) - lu(k,554) * lu(k,799) - lu(k,822) = lu(k,822) - lu(k,555) * lu(k,799) - lu(k,826) = lu(k,826) - lu(k,556) * lu(k,799) - lu(k,827) = lu(k,827) - lu(k,557) * lu(k,799) - lu(k,967) = lu(k,967) - lu(k,542) * lu(k,963) - lu(k,974) = lu(k,974) - lu(k,543) * lu(k,963) - lu(k,975) = lu(k,975) - lu(k,544) * lu(k,963) - lu(k,976) = lu(k,976) - lu(k,545) * lu(k,963) - lu(k,978) = lu(k,978) - lu(k,546) * lu(k,963) - lu(k,979) = lu(k,979) - lu(k,547) * lu(k,963) - lu(k,980) = lu(k,980) - lu(k,548) * lu(k,963) - lu(k,981) = lu(k,981) - lu(k,549) * lu(k,963) - lu(k,983) = lu(k,983) - lu(k,550) * lu(k,963) - lu(k,985) = lu(k,985) - lu(k,551) * lu(k,963) - lu(k,986) = lu(k,986) - lu(k,552) * lu(k,963) - lu(k,987) = lu(k,987) - lu(k,553) * lu(k,963) - lu(k,988) = lu(k,988) - lu(k,554) * lu(k,963) - lu(k,989) = lu(k,989) - lu(k,555) * lu(k,963) - lu(k,993) = lu(k,993) - lu(k,556) * lu(k,963) - lu(k,994) = lu(k,994) - lu(k,557) * lu(k,963) - lu(k,1009) = lu(k,1009) - lu(k,542) * lu(k,1006) - lu(k,1016) = lu(k,1016) - lu(k,543) * lu(k,1006) - lu(k,1017) = lu(k,1017) - lu(k,544) * lu(k,1006) - lu(k,1018) = lu(k,1018) - lu(k,545) * lu(k,1006) - lu(k,1020) = lu(k,1020) - lu(k,546) * lu(k,1006) - lu(k,1021) = lu(k,1021) - lu(k,547) * lu(k,1006) - lu(k,1022) = lu(k,1022) - lu(k,548) * lu(k,1006) - lu(k,1023) = lu(k,1023) - lu(k,549) * lu(k,1006) - lu(k,1025) = lu(k,1025) - lu(k,550) * lu(k,1006) - lu(k,1027) = lu(k,1027) - lu(k,551) * lu(k,1006) - lu(k,1028) = lu(k,1028) - lu(k,552) * lu(k,1006) - lu(k,1029) = lu(k,1029) - lu(k,553) * lu(k,1006) - lu(k,1030) = lu(k,1030) - lu(k,554) * lu(k,1006) - lu(k,1031) = lu(k,1031) - lu(k,555) * lu(k,1006) - lu(k,1035) = lu(k,1035) - lu(k,556) * lu(k,1006) - lu(k,1036) = lu(k,1036) - lu(k,557) * lu(k,1006) - lu(k,1051) = lu(k,1051) - lu(k,542) * lu(k,1048) - lu(k,1058) = lu(k,1058) - lu(k,543) * lu(k,1048) - lu(k,1059) = lu(k,1059) - lu(k,544) * lu(k,1048) - lu(k,1060) = lu(k,1060) - lu(k,545) * lu(k,1048) - lu(k,1062) = lu(k,1062) - lu(k,546) * lu(k,1048) - lu(k,1063) = lu(k,1063) - lu(k,547) * lu(k,1048) - lu(k,1064) = lu(k,1064) - lu(k,548) * lu(k,1048) - lu(k,1065) = lu(k,1065) - lu(k,549) * lu(k,1048) - lu(k,1067) = lu(k,1067) - lu(k,550) * lu(k,1048) - lu(k,1069) = lu(k,1069) - lu(k,551) * lu(k,1048) - lu(k,1070) = lu(k,1070) - lu(k,552) * lu(k,1048) - lu(k,1071) = lu(k,1071) - lu(k,553) * lu(k,1048) - lu(k,1072) = lu(k,1072) - lu(k,554) * lu(k,1048) - lu(k,1073) = lu(k,1073) - lu(k,555) * lu(k,1048) - lu(k,1077) = lu(k,1077) - lu(k,556) * lu(k,1048) - lu(k,1078) = lu(k,1078) - lu(k,557) * lu(k,1048) - lu(k,1136) = lu(k,1136) - lu(k,542) * lu(k,1133) - lu(k,1143) = lu(k,1143) - lu(k,543) * lu(k,1133) - lu(k,1144) = lu(k,1144) - lu(k,544) * lu(k,1133) - lu(k,1145) = lu(k,1145) - lu(k,545) * lu(k,1133) - lu(k,1147) = lu(k,1147) - lu(k,546) * lu(k,1133) - lu(k,1148) = lu(k,1148) - lu(k,547) * lu(k,1133) - lu(k,1149) = lu(k,1149) - lu(k,548) * lu(k,1133) - lu(k,1150) = lu(k,1150) - lu(k,549) * lu(k,1133) - lu(k,1152) = lu(k,1152) - lu(k,550) * lu(k,1133) - lu(k,1154) = lu(k,1154) - lu(k,551) * lu(k,1133) - lu(k,1155) = lu(k,1155) - lu(k,552) * lu(k,1133) - lu(k,1156) = lu(k,1156) - lu(k,553) * lu(k,1133) - lu(k,1157) = lu(k,1157) - lu(k,554) * lu(k,1133) - lu(k,1158) = lu(k,1158) - lu(k,555) * lu(k,1133) - lu(k,1162) = lu(k,1162) - lu(k,556) * lu(k,1133) - lu(k,1163) = lu(k,1163) - lu(k,557) * lu(k,1133) - lu(k,1176) = lu(k,1176) - lu(k,542) * lu(k,1172) - lu(k,1182) = lu(k,1182) - lu(k,543) * lu(k,1172) - lu(k,1183) = lu(k,1183) - lu(k,544) * lu(k,1172) - lu(k,1184) = lu(k,1184) - lu(k,545) * lu(k,1172) - lu(k,1186) = lu(k,1186) - lu(k,546) * lu(k,1172) - lu(k,1187) = lu(k,1187) - lu(k,547) * lu(k,1172) - lu(k,1188) = lu(k,1188) - lu(k,548) * lu(k,1172) - lu(k,1189) = lu(k,1189) - lu(k,549) * lu(k,1172) - lu(k,1191) = lu(k,1191) - lu(k,550) * lu(k,1172) - lu(k,1193) = lu(k,1193) - lu(k,551) * lu(k,1172) - lu(k,1194) = lu(k,1194) - lu(k,552) * lu(k,1172) - lu(k,1195) = lu(k,1195) - lu(k,553) * lu(k,1172) - lu(k,1196) = lu(k,1196) - lu(k,554) * lu(k,1172) - lu(k,1197) = lu(k,1197) - lu(k,555) * lu(k,1172) - lu(k,1201) = lu(k,1201) - lu(k,556) * lu(k,1172) - lu(k,1202) = lu(k,1202) - lu(k,557) * lu(k,1172) - lu(k,1340) = lu(k,1340) - lu(k,542) * lu(k,1336) - lu(k,1347) = lu(k,1347) - lu(k,543) * lu(k,1336) - lu(k,1348) = lu(k,1348) - lu(k,544) * lu(k,1336) - lu(k,1349) = lu(k,1349) - lu(k,545) * lu(k,1336) - lu(k,1351) = lu(k,1351) - lu(k,546) * lu(k,1336) - lu(k,1352) = lu(k,1352) - lu(k,547) * lu(k,1336) - lu(k,1353) = lu(k,1353) - lu(k,548) * lu(k,1336) - lu(k,1354) = lu(k,1354) - lu(k,549) * lu(k,1336) - lu(k,1356) = lu(k,1356) - lu(k,550) * lu(k,1336) - lu(k,1358) = lu(k,1358) - lu(k,551) * lu(k,1336) - lu(k,1359) = lu(k,1359) - lu(k,552) * lu(k,1336) - lu(k,1360) = lu(k,1360) - lu(k,553) * lu(k,1336) - lu(k,1361) = lu(k,1361) - lu(k,554) * lu(k,1336) - lu(k,1362) = lu(k,1362) - lu(k,555) * lu(k,1336) - lu(k,1366) = lu(k,1366) - lu(k,556) * lu(k,1336) - lu(k,1367) = lu(k,1367) - lu(k,557) * lu(k,1336) - lu(k,1419) = lu(k,1419) - lu(k,542) * lu(k,1415) - lu(k,1426) = lu(k,1426) - lu(k,543) * lu(k,1415) - lu(k,1427) = lu(k,1427) - lu(k,544) * lu(k,1415) - lu(k,1428) = lu(k,1428) - lu(k,545) * lu(k,1415) - lu(k,1430) = lu(k,1430) - lu(k,546) * lu(k,1415) - lu(k,1431) = lu(k,1431) - lu(k,547) * lu(k,1415) - lu(k,1432) = lu(k,1432) - lu(k,548) * lu(k,1415) - lu(k,1433) = lu(k,1433) - lu(k,549) * lu(k,1415) - lu(k,1435) = lu(k,1435) - lu(k,550) * lu(k,1415) - lu(k,1437) = lu(k,1437) - lu(k,551) * lu(k,1415) - lu(k,1438) = lu(k,1438) - lu(k,552) * lu(k,1415) - lu(k,1439) = lu(k,1439) - lu(k,553) * lu(k,1415) - lu(k,1440) = lu(k,1440) - lu(k,554) * lu(k,1415) - lu(k,1441) = lu(k,1441) - lu(k,555) * lu(k,1415) - lu(k,1445) = lu(k,1445) - lu(k,556) * lu(k,1415) - lu(k,1446) = lu(k,1446) - lu(k,557) * lu(k,1415) - lu(k,1465) = lu(k,1465) - lu(k,542) * lu(k,1460) - lu(k,1472) = lu(k,1472) - lu(k,543) * lu(k,1460) - lu(k,1473) = lu(k,1473) - lu(k,544) * lu(k,1460) - lu(k,1474) = lu(k,1474) - lu(k,545) * lu(k,1460) - lu(k,1476) = lu(k,1476) - lu(k,546) * lu(k,1460) - lu(k,1477) = lu(k,1477) - lu(k,547) * lu(k,1460) - lu(k,1478) = lu(k,1478) - lu(k,548) * lu(k,1460) - lu(k,1479) = lu(k,1479) - lu(k,549) * lu(k,1460) - lu(k,1481) = lu(k,1481) - lu(k,550) * lu(k,1460) - lu(k,1483) = lu(k,1483) - lu(k,551) * lu(k,1460) - lu(k,1484) = lu(k,1484) - lu(k,552) * lu(k,1460) - lu(k,1485) = lu(k,1485) - lu(k,553) * lu(k,1460) - lu(k,1486) = lu(k,1486) - lu(k,554) * lu(k,1460) - lu(k,1487) = lu(k,1487) - lu(k,555) * lu(k,1460) - lu(k,1491) = lu(k,1491) - lu(k,556) * lu(k,1460) - lu(k,1492) = lu(k,1492) - lu(k,557) * lu(k,1460) - lu(k,1507) = lu(k,1507) - lu(k,542) * lu(k,1504) - lu(k,1514) = lu(k,1514) - lu(k,543) * lu(k,1504) - lu(k,1515) = lu(k,1515) - lu(k,544) * lu(k,1504) - lu(k,1516) = lu(k,1516) - lu(k,545) * lu(k,1504) - lu(k,1518) = lu(k,1518) - lu(k,546) * lu(k,1504) - lu(k,1519) = lu(k,1519) - lu(k,547) * lu(k,1504) - lu(k,1520) = lu(k,1520) - lu(k,548) * lu(k,1504) - lu(k,1521) = lu(k,1521) - lu(k,549) * lu(k,1504) - lu(k,1523) = lu(k,1523) - lu(k,550) * lu(k,1504) - lu(k,1525) = lu(k,1525) - lu(k,551) * lu(k,1504) - lu(k,1526) = lu(k,1526) - lu(k,552) * lu(k,1504) - lu(k,1527) = lu(k,1527) - lu(k,553) * lu(k,1504) - lu(k,1528) = lu(k,1528) - lu(k,554) * lu(k,1504) - lu(k,1529) = lu(k,1529) - lu(k,555) * lu(k,1504) - lu(k,1533) = lu(k,1533) - lu(k,556) * lu(k,1504) - lu(k,1534) = lu(k,1534) - lu(k,557) * lu(k,1504) - lu(k,1548) = lu(k,1548) - lu(k,542) * lu(k,1543) - lu(k,1555) = lu(k,1555) - lu(k,543) * lu(k,1543) - lu(k,1556) = lu(k,1556) - lu(k,544) * lu(k,1543) - lu(k,1557) = lu(k,1557) - lu(k,545) * lu(k,1543) - lu(k,1559) = lu(k,1559) - lu(k,546) * lu(k,1543) - lu(k,1560) = lu(k,1560) - lu(k,547) * lu(k,1543) - lu(k,1561) = lu(k,1561) - lu(k,548) * lu(k,1543) - lu(k,1562) = lu(k,1562) - lu(k,549) * lu(k,1543) - lu(k,1564) = - lu(k,550) * lu(k,1543) - lu(k,1566) = lu(k,1566) - lu(k,551) * lu(k,1543) - lu(k,1567) = lu(k,1567) - lu(k,552) * lu(k,1543) - lu(k,1568) = lu(k,1568) - lu(k,553) * lu(k,1543) - lu(k,1569) = lu(k,1569) - lu(k,554) * lu(k,1543) - lu(k,1570) = lu(k,1570) - lu(k,555) * lu(k,1543) - lu(k,1574) = lu(k,1574) - lu(k,556) * lu(k,1543) - lu(k,1575) = lu(k,1575) - lu(k,557) * lu(k,1543) - lu(k,1743) = lu(k,1743) - lu(k,542) * lu(k,1740) - lu(k,1750) = lu(k,1750) - lu(k,543) * lu(k,1740) - lu(k,1751) = lu(k,1751) - lu(k,544) * lu(k,1740) - lu(k,1752) = lu(k,1752) - lu(k,545) * lu(k,1740) - lu(k,1754) = lu(k,1754) - lu(k,546) * lu(k,1740) - lu(k,1755) = lu(k,1755) - lu(k,547) * lu(k,1740) - lu(k,1756) = lu(k,1756) - lu(k,548) * lu(k,1740) - lu(k,1757) = lu(k,1757) - lu(k,549) * lu(k,1740) - lu(k,1759) = lu(k,1759) - lu(k,550) * lu(k,1740) - lu(k,1761) = lu(k,1761) - lu(k,551) * lu(k,1740) - lu(k,1762) = lu(k,1762) - lu(k,552) * lu(k,1740) - lu(k,1763) = lu(k,1763) - lu(k,553) * lu(k,1740) - lu(k,1764) = lu(k,1764) - lu(k,554) * lu(k,1740) - lu(k,1765) = lu(k,1765) - lu(k,555) * lu(k,1740) - lu(k,1769) = lu(k,1769) - lu(k,556) * lu(k,1740) - lu(k,1770) = lu(k,1770) - lu(k,557) * lu(k,1740) - lu(k,1801) = lu(k,1801) - lu(k,542) * lu(k,1796) - lu(k,1808) = lu(k,1808) - lu(k,543) * lu(k,1796) - lu(k,1809) = lu(k,1809) - lu(k,544) * lu(k,1796) - lu(k,1810) = lu(k,1810) - lu(k,545) * lu(k,1796) - lu(k,1812) = lu(k,1812) - lu(k,546) * lu(k,1796) - lu(k,1813) = lu(k,1813) - lu(k,547) * lu(k,1796) - lu(k,1814) = lu(k,1814) - lu(k,548) * lu(k,1796) - lu(k,1815) = lu(k,1815) - lu(k,549) * lu(k,1796) - lu(k,1817) = lu(k,1817) - lu(k,550) * lu(k,1796) - lu(k,1819) = lu(k,1819) - lu(k,551) * lu(k,1796) - lu(k,1820) = lu(k,1820) - lu(k,552) * lu(k,1796) - lu(k,1821) = lu(k,1821) - lu(k,553) * lu(k,1796) - lu(k,1822) = lu(k,1822) - lu(k,554) * lu(k,1796) - lu(k,1823) = lu(k,1823) - lu(k,555) * lu(k,1796) - lu(k,1827) = lu(k,1827) - lu(k,556) * lu(k,1796) - lu(k,1828) = lu(k,1828) - lu(k,557) * lu(k,1796) - 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,573) = lu(k,573) * lu(k,565) - lu(k,574) = lu(k,574) * lu(k,565) - lu(k,575) = lu(k,575) * lu(k,565) - lu(k,576) = lu(k,576) * lu(k,565) - lu(k,577) = lu(k,577) * lu(k,565) - lu(k,578) = lu(k,578) * lu(k,565) - lu(k,579) = lu(k,579) * lu(k,565) - lu(k,580) = lu(k,580) * lu(k,565) - lu(k,581) = lu(k,581) * lu(k,565) - lu(k,587) = lu(k,587) - lu(k,566) * lu(k,586) - lu(k,588) = lu(k,588) - lu(k,567) * lu(k,586) - lu(k,589) = lu(k,589) - lu(k,568) * lu(k,586) - lu(k,590) = lu(k,590) - lu(k,569) * lu(k,586) - lu(k,592) = lu(k,592) - lu(k,570) * lu(k,586) - lu(k,593) = lu(k,593) - lu(k,571) * lu(k,586) - lu(k,594) = lu(k,594) - lu(k,572) * lu(k,586) - lu(k,595) = lu(k,595) - lu(k,573) * lu(k,586) - lu(k,596) = lu(k,596) - lu(k,574) * lu(k,586) - lu(k,597) = lu(k,597) - lu(k,575) * lu(k,586) - lu(k,598) = lu(k,598) - lu(k,576) * lu(k,586) - lu(k,599) = lu(k,599) - lu(k,577) * lu(k,586) - lu(k,600) = lu(k,600) - lu(k,578) * lu(k,586) - lu(k,601) = lu(k,601) - lu(k,579) * lu(k,586) - lu(k,602) = lu(k,602) - lu(k,580) * lu(k,586) - lu(k,605) = lu(k,605) - lu(k,581) * lu(k,586) - lu(k,617) = lu(k,617) - lu(k,566) * lu(k,616) - lu(k,618) = lu(k,618) - lu(k,567) * lu(k,616) - lu(k,619) = lu(k,619) - lu(k,568) * lu(k,616) - lu(k,620) = lu(k,620) - lu(k,569) * lu(k,616) - lu(k,622) = lu(k,622) - lu(k,570) * lu(k,616) - lu(k,623) = lu(k,623) - lu(k,571) * lu(k,616) - lu(k,624) = lu(k,624) - lu(k,572) * lu(k,616) - lu(k,625) = lu(k,625) - lu(k,573) * lu(k,616) - lu(k,626) = lu(k,626) - lu(k,574) * lu(k,616) - lu(k,627) = lu(k,627) - lu(k,575) * lu(k,616) - lu(k,628) = lu(k,628) - lu(k,576) * lu(k,616) - lu(k,629) = lu(k,629) - lu(k,577) * lu(k,616) - lu(k,632) = lu(k,632) - lu(k,578) * lu(k,616) - lu(k,633) = lu(k,633) - lu(k,579) * lu(k,616) - lu(k,634) = lu(k,634) - lu(k,580) * lu(k,616) - lu(k,638) = lu(k,638) - lu(k,581) * lu(k,616) - lu(k,726) = lu(k,726) - lu(k,566) * lu(k,725) - lu(k,727) = lu(k,727) - lu(k,567) * lu(k,725) - lu(k,728) = lu(k,728) - lu(k,568) * lu(k,725) - lu(k,729) = lu(k,729) - lu(k,569) * lu(k,725) - lu(k,731) = lu(k,731) - lu(k,570) * lu(k,725) - lu(k,732) = lu(k,732) - lu(k,571) * lu(k,725) - lu(k,733) = lu(k,733) - lu(k,572) * lu(k,725) - lu(k,735) = lu(k,735) - lu(k,573) * lu(k,725) - lu(k,736) = lu(k,736) - lu(k,574) * lu(k,725) - lu(k,737) = lu(k,737) - lu(k,575) * lu(k,725) - lu(k,738) = lu(k,738) - lu(k,576) * lu(k,725) - lu(k,739) = lu(k,739) - lu(k,577) * lu(k,725) - lu(k,742) = lu(k,742) - lu(k,578) * lu(k,725) - lu(k,743) = lu(k,743) - lu(k,579) * lu(k,725) - lu(k,744) = lu(k,744) - lu(k,580) * lu(k,725) - lu(k,748) = lu(k,748) - lu(k,581) * lu(k,725) - lu(k,772) = lu(k,772) - lu(k,566) * lu(k,771) - lu(k,773) = lu(k,773) - lu(k,567) * lu(k,771) - lu(k,774) = lu(k,774) - lu(k,568) * lu(k,771) - lu(k,775) = lu(k,775) - lu(k,569) * lu(k,771) - lu(k,777) = lu(k,777) - lu(k,570) * lu(k,771) - lu(k,778) = lu(k,778) - lu(k,571) * lu(k,771) - lu(k,780) = lu(k,780) - lu(k,572) * lu(k,771) - lu(k,782) = lu(k,782) - lu(k,573) * lu(k,771) - lu(k,783) = lu(k,783) - lu(k,574) * lu(k,771) - lu(k,784) = lu(k,784) - lu(k,575) * lu(k,771) - lu(k,785) = lu(k,785) - lu(k,576) * lu(k,771) - lu(k,786) = lu(k,786) - lu(k,577) * lu(k,771) - lu(k,789) = lu(k,789) - lu(k,578) * lu(k,771) - lu(k,790) = lu(k,790) - lu(k,579) * lu(k,771) - lu(k,791) = lu(k,791) - lu(k,580) * lu(k,771) - lu(k,795) = lu(k,795) - lu(k,581) * lu(k,771) - lu(k,877) = lu(k,877) - lu(k,566) * lu(k,876) - lu(k,878) = lu(k,878) - lu(k,567) * lu(k,876) - lu(k,882) = lu(k,882) - lu(k,568) * lu(k,876) - lu(k,883) = lu(k,883) - lu(k,569) * lu(k,876) - lu(k,886) = lu(k,886) - lu(k,570) * lu(k,876) - lu(k,887) = lu(k,887) - lu(k,571) * lu(k,876) - lu(k,891) = lu(k,891) - lu(k,572) * lu(k,876) - lu(k,893) = lu(k,893) - lu(k,573) * lu(k,876) - lu(k,894) = lu(k,894) - lu(k,574) * lu(k,876) - lu(k,895) = lu(k,895) - lu(k,575) * lu(k,876) - lu(k,896) = lu(k,896) - lu(k,576) * lu(k,876) - lu(k,897) = lu(k,897) - lu(k,577) * lu(k,876) - lu(k,900) = lu(k,900) - lu(k,578) * lu(k,876) - lu(k,902) = lu(k,902) - lu(k,579) * lu(k,876) - lu(k,903) = lu(k,903) - lu(k,580) * lu(k,876) - lu(k,908) = lu(k,908) - lu(k,581) * lu(k,876) - lu(k,918) = lu(k,918) - lu(k,566) * lu(k,917) - lu(k,919) = lu(k,919) - lu(k,567) * lu(k,917) - lu(k,923) = lu(k,923) - lu(k,568) * lu(k,917) - lu(k,924) = lu(k,924) - lu(k,569) * lu(k,917) - lu(k,927) = lu(k,927) - lu(k,570) * lu(k,917) - lu(k,928) = lu(k,928) - lu(k,571) * lu(k,917) - lu(k,932) = lu(k,932) - lu(k,572) * lu(k,917) - lu(k,934) = lu(k,934) - lu(k,573) * lu(k,917) - lu(k,935) = lu(k,935) - lu(k,574) * lu(k,917) - lu(k,936) = lu(k,936) - lu(k,575) * lu(k,917) - lu(k,937) = - lu(k,576) * lu(k,917) - lu(k,938) = - lu(k,577) * lu(k,917) - lu(k,941) = lu(k,941) - lu(k,578) * lu(k,917) - lu(k,943) = lu(k,943) - lu(k,579) * lu(k,917) - lu(k,944) = lu(k,944) - lu(k,580) * lu(k,917) - lu(k,949) = lu(k,949) - lu(k,581) * lu(k,917) - lu(k,1091) = lu(k,1091) - lu(k,566) * lu(k,1090) - lu(k,1092) = lu(k,1092) - lu(k,567) * lu(k,1090) - lu(k,1096) = lu(k,1096) - lu(k,568) * lu(k,1090) - lu(k,1097) = lu(k,1097) - lu(k,569) * lu(k,1090) - lu(k,1100) = lu(k,1100) - lu(k,570) * lu(k,1090) - lu(k,1101) = lu(k,1101) - lu(k,571) * lu(k,1090) - lu(k,1105) = lu(k,1105) - lu(k,572) * lu(k,1090) - lu(k,1107) = lu(k,1107) - lu(k,573) * lu(k,1090) - lu(k,1108) = lu(k,1108) - lu(k,574) * lu(k,1090) - lu(k,1109) = lu(k,1109) - lu(k,575) * lu(k,1090) - lu(k,1110) = lu(k,1110) - lu(k,576) * lu(k,1090) - lu(k,1111) = lu(k,1111) - lu(k,577) * lu(k,1090) - lu(k,1114) = lu(k,1114) - lu(k,578) * lu(k,1090) - lu(k,1116) = lu(k,1116) - lu(k,579) * lu(k,1090) - lu(k,1117) = lu(k,1117) - lu(k,580) * lu(k,1090) - lu(k,1122) = lu(k,1122) - lu(k,581) * lu(k,1090) - lu(k,1174) = lu(k,1174) - lu(k,566) * lu(k,1173) - lu(k,1175) = lu(k,1175) - lu(k,567) * lu(k,1173) - lu(k,1177) = lu(k,1177) - lu(k,568) * lu(k,1173) - lu(k,1178) = lu(k,1178) - lu(k,569) * lu(k,1173) - lu(k,1180) = lu(k,1180) - lu(k,570) * lu(k,1173) - lu(k,1181) = lu(k,1181) - lu(k,571) * lu(k,1173) - lu(k,1185) = lu(k,1185) - lu(k,572) * lu(k,1173) - lu(k,1187) = lu(k,1187) - lu(k,573) * lu(k,1173) - lu(k,1188) = lu(k,1188) - lu(k,574) * lu(k,1173) - lu(k,1189) = lu(k,1189) - lu(k,575) * lu(k,1173) - lu(k,1190) = - lu(k,576) * lu(k,1173) - lu(k,1191) = lu(k,1191) - lu(k,577) * lu(k,1173) - lu(k,1194) = lu(k,1194) - lu(k,578) * lu(k,1173) - lu(k,1196) = lu(k,1196) - lu(k,579) * lu(k,1173) - lu(k,1197) = lu(k,1197) - lu(k,580) * lu(k,1173) - lu(k,1202) = lu(k,1202) - lu(k,581) * lu(k,1173) - lu(k,1253) = lu(k,1253) - lu(k,566) * lu(k,1252) - lu(k,1254) = lu(k,1254) - lu(k,567) * lu(k,1252) - lu(k,1258) = lu(k,1258) - lu(k,568) * lu(k,1252) - lu(k,1259) = lu(k,1259) - lu(k,569) * lu(k,1252) - lu(k,1262) = lu(k,1262) - lu(k,570) * lu(k,1252) - lu(k,1263) = lu(k,1263) - lu(k,571) * lu(k,1252) - lu(k,1267) = lu(k,1267) - lu(k,572) * lu(k,1252) - lu(k,1269) = - lu(k,573) * lu(k,1252) - lu(k,1270) = lu(k,1270) - lu(k,574) * lu(k,1252) - lu(k,1271) = lu(k,1271) - lu(k,575) * lu(k,1252) - lu(k,1272) = - lu(k,576) * lu(k,1252) - lu(k,1273) = - lu(k,577) * lu(k,1252) - lu(k,1276) = lu(k,1276) - lu(k,578) * lu(k,1252) - lu(k,1278) = lu(k,1278) - lu(k,579) * lu(k,1252) - lu(k,1279) = lu(k,1279) - lu(k,580) * lu(k,1252) - lu(k,1284) = lu(k,1284) - lu(k,581) * lu(k,1252) - lu(k,1297) = lu(k,1297) - lu(k,566) * lu(k,1296) - lu(k,1298) = lu(k,1298) - lu(k,567) * lu(k,1296) - lu(k,1302) = lu(k,1302) - lu(k,568) * lu(k,1296) - lu(k,1303) = lu(k,1303) - lu(k,569) * lu(k,1296) - lu(k,1306) = lu(k,1306) - lu(k,570) * lu(k,1296) - lu(k,1307) = lu(k,1307) - lu(k,571) * lu(k,1296) - lu(k,1311) = lu(k,1311) - lu(k,572) * lu(k,1296) - lu(k,1313) = lu(k,1313) - lu(k,573) * lu(k,1296) - lu(k,1314) = lu(k,1314) - lu(k,574) * lu(k,1296) - lu(k,1315) = lu(k,1315) - lu(k,575) * lu(k,1296) - lu(k,1316) = lu(k,1316) - lu(k,576) * lu(k,1296) - lu(k,1317) = lu(k,1317) - lu(k,577) * lu(k,1296) - lu(k,1320) = lu(k,1320) - lu(k,578) * lu(k,1296) - lu(k,1322) = lu(k,1322) - lu(k,579) * lu(k,1296) - lu(k,1323) = lu(k,1323) - lu(k,580) * lu(k,1296) - lu(k,1328) = lu(k,1328) - lu(k,581) * lu(k,1296) - lu(k,1462) = lu(k,1462) - lu(k,566) * lu(k,1461) - lu(k,1463) = lu(k,1463) - lu(k,567) * lu(k,1461) - lu(k,1466) = lu(k,1466) - lu(k,568) * lu(k,1461) - lu(k,1467) = lu(k,1467) - lu(k,569) * lu(k,1461) - lu(k,1470) = lu(k,1470) - lu(k,570) * lu(k,1461) - lu(k,1471) = lu(k,1471) - lu(k,571) * lu(k,1461) - lu(k,1475) = lu(k,1475) - lu(k,572) * lu(k,1461) - lu(k,1477) = lu(k,1477) - lu(k,573) * lu(k,1461) - lu(k,1478) = lu(k,1478) - lu(k,574) * lu(k,1461) - lu(k,1479) = lu(k,1479) - lu(k,575) * lu(k,1461) - lu(k,1480) = lu(k,1480) - lu(k,576) * lu(k,1461) - lu(k,1481) = lu(k,1481) - lu(k,577) * lu(k,1461) - lu(k,1484) = lu(k,1484) - lu(k,578) * lu(k,1461) - lu(k,1486) = lu(k,1486) - lu(k,579) * lu(k,1461) - lu(k,1487) = lu(k,1487) - lu(k,580) * lu(k,1461) - lu(k,1492) = lu(k,1492) - lu(k,581) * lu(k,1461) - lu(k,1545) = lu(k,1545) - lu(k,566) * lu(k,1544) - lu(k,1546) = lu(k,1546) - lu(k,567) * lu(k,1544) - lu(k,1549) = lu(k,1549) - lu(k,568) * lu(k,1544) - lu(k,1550) = lu(k,1550) - lu(k,569) * lu(k,1544) - lu(k,1553) = lu(k,1553) - lu(k,570) * lu(k,1544) - lu(k,1554) = lu(k,1554) - lu(k,571) * lu(k,1544) - lu(k,1558) = lu(k,1558) - lu(k,572) * lu(k,1544) - lu(k,1560) = lu(k,1560) - lu(k,573) * lu(k,1544) - lu(k,1561) = lu(k,1561) - lu(k,574) * lu(k,1544) - lu(k,1562) = lu(k,1562) - lu(k,575) * lu(k,1544) - lu(k,1563) = - lu(k,576) * lu(k,1544) - lu(k,1564) = lu(k,1564) - lu(k,577) * lu(k,1544) - lu(k,1567) = lu(k,1567) - lu(k,578) * lu(k,1544) - lu(k,1569) = lu(k,1569) - lu(k,579) * lu(k,1544) - lu(k,1570) = lu(k,1570) - lu(k,580) * lu(k,1544) - lu(k,1575) = lu(k,1575) - lu(k,581) * lu(k,1544) - lu(k,1601) = lu(k,1601) - lu(k,566) * lu(k,1600) - lu(k,1602) = lu(k,1602) - lu(k,567) * lu(k,1600) - lu(k,1606) = lu(k,1606) - lu(k,568) * lu(k,1600) - lu(k,1607) = lu(k,1607) - lu(k,569) * lu(k,1600) - lu(k,1610) = lu(k,1610) - lu(k,570) * lu(k,1600) - lu(k,1611) = lu(k,1611) - lu(k,571) * lu(k,1600) - lu(k,1615) = lu(k,1615) - lu(k,572) * lu(k,1600) - lu(k,1617) = lu(k,1617) - lu(k,573) * lu(k,1600) - lu(k,1618) = lu(k,1618) - lu(k,574) * lu(k,1600) - lu(k,1619) = lu(k,1619) - lu(k,575) * lu(k,1600) - lu(k,1620) = lu(k,1620) - lu(k,576) * lu(k,1600) - lu(k,1621) = lu(k,1621) - lu(k,577) * lu(k,1600) - lu(k,1624) = lu(k,1624) - lu(k,578) * lu(k,1600) - lu(k,1626) = lu(k,1626) - lu(k,579) * lu(k,1600) - lu(k,1627) = lu(k,1627) - lu(k,580) * lu(k,1600) - lu(k,1632) = lu(k,1632) - lu(k,581) * lu(k,1600) - lu(k,1798) = lu(k,1798) - lu(k,566) * lu(k,1797) - lu(k,1799) = lu(k,1799) - lu(k,567) * lu(k,1797) - lu(k,1802) = lu(k,1802) - lu(k,568) * lu(k,1797) - lu(k,1803) = lu(k,1803) - lu(k,569) * lu(k,1797) - lu(k,1806) = lu(k,1806) - lu(k,570) * lu(k,1797) - lu(k,1807) = lu(k,1807) - lu(k,571) * lu(k,1797) - lu(k,1811) = lu(k,1811) - lu(k,572) * lu(k,1797) - lu(k,1813) = lu(k,1813) - lu(k,573) * lu(k,1797) - lu(k,1814) = lu(k,1814) - lu(k,574) * lu(k,1797) - lu(k,1815) = lu(k,1815) - lu(k,575) * lu(k,1797) - lu(k,1816) = lu(k,1816) - lu(k,576) * lu(k,1797) - lu(k,1817) = lu(k,1817) - lu(k,577) * lu(k,1797) - lu(k,1820) = lu(k,1820) - lu(k,578) * lu(k,1797) - lu(k,1822) = lu(k,1822) - lu(k,579) * lu(k,1797) - lu(k,1823) = lu(k,1823) - lu(k,580) * lu(k,1797) - lu(k,1828) = lu(k,1828) - lu(k,581) * lu(k,1797) - lu(k,587) = 1._r8 / lu(k,587) - lu(k,588) = lu(k,588) * lu(k,587) - lu(k,589) = lu(k,589) * lu(k,587) - lu(k,590) = lu(k,590) * lu(k,587) - lu(k,591) = lu(k,591) * lu(k,587) - lu(k,592) = lu(k,592) * lu(k,587) - lu(k,593) = lu(k,593) * lu(k,587) - lu(k,594) = lu(k,594) * lu(k,587) - lu(k,595) = lu(k,595) * lu(k,587) - lu(k,596) = lu(k,596) * lu(k,587) - lu(k,597) = lu(k,597) * lu(k,587) - lu(k,598) = lu(k,598) * lu(k,587) - lu(k,599) = lu(k,599) * lu(k,587) - lu(k,600) = lu(k,600) * lu(k,587) - lu(k,601) = lu(k,601) * lu(k,587) - lu(k,602) = lu(k,602) * lu(k,587) - lu(k,603) = lu(k,603) * lu(k,587) - lu(k,604) = lu(k,604) * lu(k,587) - lu(k,605) = lu(k,605) * lu(k,587) - lu(k,618) = lu(k,618) - lu(k,588) * lu(k,617) - lu(k,619) = lu(k,619) - lu(k,589) * lu(k,617) - lu(k,620) = lu(k,620) - lu(k,590) * lu(k,617) - lu(k,621) = lu(k,621) - lu(k,591) * lu(k,617) - lu(k,622) = lu(k,622) - lu(k,592) * lu(k,617) - lu(k,623) = lu(k,623) - lu(k,593) * lu(k,617) - lu(k,624) = lu(k,624) - lu(k,594) * lu(k,617) - lu(k,625) = lu(k,625) - lu(k,595) * lu(k,617) - lu(k,626) = lu(k,626) - lu(k,596) * lu(k,617) - lu(k,627) = lu(k,627) - lu(k,597) * lu(k,617) - lu(k,628) = lu(k,628) - lu(k,598) * lu(k,617) - lu(k,629) = lu(k,629) - lu(k,599) * lu(k,617) - lu(k,632) = lu(k,632) - lu(k,600) * lu(k,617) - lu(k,633) = lu(k,633) - lu(k,601) * lu(k,617) - lu(k,634) = lu(k,634) - lu(k,602) * lu(k,617) - lu(k,635) = lu(k,635) - lu(k,603) * lu(k,617) - lu(k,636) = lu(k,636) - lu(k,604) * lu(k,617) - lu(k,638) = lu(k,638) - lu(k,605) * lu(k,617) - lu(k,727) = lu(k,727) - lu(k,588) * lu(k,726) - lu(k,728) = lu(k,728) - lu(k,589) * lu(k,726) - lu(k,729) = lu(k,729) - lu(k,590) * lu(k,726) - lu(k,730) = lu(k,730) - lu(k,591) * lu(k,726) - lu(k,731) = lu(k,731) - lu(k,592) * lu(k,726) - lu(k,732) = lu(k,732) - lu(k,593) * lu(k,726) - lu(k,733) = lu(k,733) - lu(k,594) * lu(k,726) - lu(k,735) = lu(k,735) - lu(k,595) * lu(k,726) - lu(k,736) = lu(k,736) - lu(k,596) * lu(k,726) - lu(k,737) = lu(k,737) - lu(k,597) * lu(k,726) - lu(k,738) = lu(k,738) - lu(k,598) * lu(k,726) - lu(k,739) = lu(k,739) - lu(k,599) * lu(k,726) - lu(k,742) = lu(k,742) - lu(k,600) * lu(k,726) - lu(k,743) = lu(k,743) - lu(k,601) * lu(k,726) - lu(k,744) = lu(k,744) - lu(k,602) * lu(k,726) - lu(k,745) = lu(k,745) - lu(k,603) * lu(k,726) - lu(k,746) = lu(k,746) - lu(k,604) * lu(k,726) - lu(k,748) = lu(k,748) - lu(k,605) * lu(k,726) - lu(k,773) = lu(k,773) - lu(k,588) * lu(k,772) - lu(k,774) = lu(k,774) - lu(k,589) * lu(k,772) - lu(k,775) = lu(k,775) - lu(k,590) * lu(k,772) - lu(k,776) = lu(k,776) - lu(k,591) * lu(k,772) - lu(k,777) = lu(k,777) - lu(k,592) * lu(k,772) - lu(k,778) = lu(k,778) - lu(k,593) * lu(k,772) - lu(k,780) = lu(k,780) - lu(k,594) * lu(k,772) - lu(k,782) = lu(k,782) - lu(k,595) * lu(k,772) - lu(k,783) = lu(k,783) - lu(k,596) * lu(k,772) - lu(k,784) = lu(k,784) - lu(k,597) * lu(k,772) - lu(k,785) = lu(k,785) - lu(k,598) * lu(k,772) - lu(k,786) = lu(k,786) - lu(k,599) * lu(k,772) - lu(k,789) = lu(k,789) - lu(k,600) * lu(k,772) - lu(k,790) = lu(k,790) - lu(k,601) * lu(k,772) - lu(k,791) = lu(k,791) - lu(k,602) * lu(k,772) - lu(k,792) = lu(k,792) - lu(k,603) * lu(k,772) - lu(k,793) = lu(k,793) - lu(k,604) * lu(k,772) - lu(k,795) = lu(k,795) - lu(k,605) * lu(k,772) - lu(k,878) = lu(k,878) - lu(k,588) * lu(k,877) - lu(k,882) = lu(k,882) - lu(k,589) * lu(k,877) - lu(k,883) = lu(k,883) - lu(k,590) * lu(k,877) - lu(k,885) = lu(k,885) - lu(k,591) * lu(k,877) - lu(k,886) = lu(k,886) - lu(k,592) * lu(k,877) - lu(k,887) = lu(k,887) - lu(k,593) * lu(k,877) - lu(k,891) = lu(k,891) - lu(k,594) * lu(k,877) - lu(k,893) = lu(k,893) - lu(k,595) * lu(k,877) - lu(k,894) = lu(k,894) - lu(k,596) * lu(k,877) - lu(k,895) = lu(k,895) - lu(k,597) * lu(k,877) - lu(k,896) = lu(k,896) - lu(k,598) * lu(k,877) - lu(k,897) = lu(k,897) - lu(k,599) * lu(k,877) - lu(k,900) = lu(k,900) - lu(k,600) * lu(k,877) - lu(k,902) = lu(k,902) - lu(k,601) * lu(k,877) - lu(k,903) = lu(k,903) - lu(k,602) * lu(k,877) - lu(k,905) = lu(k,905) - lu(k,603) * lu(k,877) - lu(k,906) = lu(k,906) - lu(k,604) * lu(k,877) - lu(k,908) = lu(k,908) - lu(k,605) * lu(k,877) - lu(k,919) = lu(k,919) - lu(k,588) * lu(k,918) - lu(k,923) = lu(k,923) - lu(k,589) * lu(k,918) - lu(k,924) = lu(k,924) - lu(k,590) * lu(k,918) - lu(k,926) = lu(k,926) - lu(k,591) * lu(k,918) - lu(k,927) = lu(k,927) - lu(k,592) * lu(k,918) - lu(k,928) = lu(k,928) - lu(k,593) * lu(k,918) - lu(k,932) = lu(k,932) - lu(k,594) * lu(k,918) - lu(k,934) = lu(k,934) - lu(k,595) * lu(k,918) - lu(k,935) = lu(k,935) - lu(k,596) * lu(k,918) - lu(k,936) = lu(k,936) - lu(k,597) * lu(k,918) - lu(k,937) = lu(k,937) - lu(k,598) * lu(k,918) - lu(k,938) = lu(k,938) - lu(k,599) * lu(k,918) - lu(k,941) = lu(k,941) - lu(k,600) * lu(k,918) - lu(k,943) = lu(k,943) - lu(k,601) * lu(k,918) - lu(k,944) = lu(k,944) - lu(k,602) * lu(k,918) - lu(k,946) = lu(k,946) - lu(k,603) * lu(k,918) - lu(k,947) = lu(k,947) - lu(k,604) * lu(k,918) - lu(k,949) = lu(k,949) - lu(k,605) * lu(k,918) - lu(k,1092) = lu(k,1092) - lu(k,588) * lu(k,1091) - lu(k,1096) = lu(k,1096) - lu(k,589) * lu(k,1091) - lu(k,1097) = lu(k,1097) - lu(k,590) * lu(k,1091) - lu(k,1099) = - lu(k,591) * lu(k,1091) - lu(k,1100) = lu(k,1100) - lu(k,592) * lu(k,1091) - lu(k,1101) = lu(k,1101) - lu(k,593) * lu(k,1091) - lu(k,1105) = lu(k,1105) - lu(k,594) * lu(k,1091) - lu(k,1107) = lu(k,1107) - lu(k,595) * lu(k,1091) - lu(k,1108) = lu(k,1108) - lu(k,596) * lu(k,1091) - lu(k,1109) = lu(k,1109) - lu(k,597) * lu(k,1091) - lu(k,1110) = lu(k,1110) - lu(k,598) * lu(k,1091) - lu(k,1111) = lu(k,1111) - lu(k,599) * lu(k,1091) - lu(k,1114) = lu(k,1114) - lu(k,600) * lu(k,1091) - lu(k,1116) = lu(k,1116) - lu(k,601) * lu(k,1091) - lu(k,1117) = lu(k,1117) - lu(k,602) * lu(k,1091) - lu(k,1119) = lu(k,1119) - lu(k,603) * lu(k,1091) - lu(k,1120) = lu(k,1120) - lu(k,604) * lu(k,1091) - lu(k,1122) = lu(k,1122) - lu(k,605) * lu(k,1091) - lu(k,1175) = lu(k,1175) - lu(k,588) * lu(k,1174) - lu(k,1177) = lu(k,1177) - lu(k,589) * lu(k,1174) - lu(k,1178) = lu(k,1178) - lu(k,590) * lu(k,1174) - lu(k,1179) = - lu(k,591) * lu(k,1174) - lu(k,1180) = lu(k,1180) - lu(k,592) * lu(k,1174) - lu(k,1181) = lu(k,1181) - lu(k,593) * lu(k,1174) - lu(k,1185) = lu(k,1185) - lu(k,594) * lu(k,1174) - lu(k,1187) = lu(k,1187) - lu(k,595) * lu(k,1174) - lu(k,1188) = lu(k,1188) - lu(k,596) * lu(k,1174) - lu(k,1189) = lu(k,1189) - lu(k,597) * lu(k,1174) - lu(k,1190) = lu(k,1190) - lu(k,598) * lu(k,1174) - lu(k,1191) = lu(k,1191) - lu(k,599) * lu(k,1174) - lu(k,1194) = lu(k,1194) - lu(k,600) * lu(k,1174) - lu(k,1196) = lu(k,1196) - lu(k,601) * lu(k,1174) - lu(k,1197) = lu(k,1197) - lu(k,602) * lu(k,1174) - lu(k,1199) = - lu(k,603) * lu(k,1174) - lu(k,1200) = - lu(k,604) * lu(k,1174) - lu(k,1202) = lu(k,1202) - lu(k,605) * lu(k,1174) - lu(k,1207) = lu(k,1207) - lu(k,588) * lu(k,1206) - lu(k,1211) = lu(k,1211) - lu(k,589) * lu(k,1206) - lu(k,1212) = lu(k,1212) - lu(k,590) * lu(k,1206) - lu(k,1214) = lu(k,1214) - lu(k,591) * lu(k,1206) - lu(k,1215) = lu(k,1215) - lu(k,592) * lu(k,1206) - lu(k,1216) = lu(k,1216) - lu(k,593) * lu(k,1206) - lu(k,1220) = lu(k,1220) - lu(k,594) * lu(k,1206) - lu(k,1222) = lu(k,1222) - lu(k,595) * lu(k,1206) - lu(k,1223) = lu(k,1223) - lu(k,596) * lu(k,1206) - lu(k,1224) = lu(k,1224) - lu(k,597) * lu(k,1206) - lu(k,1225) = lu(k,1225) - lu(k,598) * lu(k,1206) - lu(k,1226) = lu(k,1226) - lu(k,599) * lu(k,1206) - lu(k,1229) = lu(k,1229) - lu(k,600) * lu(k,1206) - lu(k,1231) = lu(k,1231) - lu(k,601) * lu(k,1206) - lu(k,1232) = lu(k,1232) - lu(k,602) * lu(k,1206) - lu(k,1234) = lu(k,1234) - lu(k,603) * lu(k,1206) - lu(k,1235) = lu(k,1235) - lu(k,604) * lu(k,1206) - lu(k,1237) = lu(k,1237) - lu(k,605) * lu(k,1206) - lu(k,1254) = lu(k,1254) - lu(k,588) * lu(k,1253) - lu(k,1258) = lu(k,1258) - lu(k,589) * lu(k,1253) - lu(k,1259) = lu(k,1259) - lu(k,590) * lu(k,1253) - lu(k,1261) = lu(k,1261) - lu(k,591) * lu(k,1253) - lu(k,1262) = lu(k,1262) - lu(k,592) * lu(k,1253) - lu(k,1263) = lu(k,1263) - lu(k,593) * lu(k,1253) - lu(k,1267) = lu(k,1267) - lu(k,594) * lu(k,1253) - lu(k,1269) = lu(k,1269) - lu(k,595) * lu(k,1253) - lu(k,1270) = lu(k,1270) - lu(k,596) * lu(k,1253) - lu(k,1271) = lu(k,1271) - lu(k,597) * lu(k,1253) - lu(k,1272) = lu(k,1272) - lu(k,598) * lu(k,1253) - lu(k,1273) = lu(k,1273) - lu(k,599) * lu(k,1253) - lu(k,1276) = lu(k,1276) - lu(k,600) * lu(k,1253) - lu(k,1278) = lu(k,1278) - lu(k,601) * lu(k,1253) - lu(k,1279) = lu(k,1279) - lu(k,602) * lu(k,1253) - lu(k,1281) = lu(k,1281) - lu(k,603) * lu(k,1253) - lu(k,1282) = lu(k,1282) - lu(k,604) * lu(k,1253) - lu(k,1284) = lu(k,1284) - lu(k,605) * lu(k,1253) - lu(k,1298) = lu(k,1298) - lu(k,588) * lu(k,1297) - lu(k,1302) = lu(k,1302) - lu(k,589) * lu(k,1297) - lu(k,1303) = lu(k,1303) - lu(k,590) * lu(k,1297) - lu(k,1305) = - lu(k,591) * lu(k,1297) - lu(k,1306) = lu(k,1306) - lu(k,592) * lu(k,1297) - lu(k,1307) = lu(k,1307) - lu(k,593) * lu(k,1297) - lu(k,1311) = lu(k,1311) - lu(k,594) * lu(k,1297) - lu(k,1313) = lu(k,1313) - lu(k,595) * lu(k,1297) - lu(k,1314) = lu(k,1314) - lu(k,596) * lu(k,1297) - lu(k,1315) = lu(k,1315) - lu(k,597) * lu(k,1297) - lu(k,1316) = lu(k,1316) - lu(k,598) * lu(k,1297) - lu(k,1317) = lu(k,1317) - lu(k,599) * lu(k,1297) - lu(k,1320) = lu(k,1320) - lu(k,600) * lu(k,1297) - lu(k,1322) = lu(k,1322) - lu(k,601) * lu(k,1297) - lu(k,1323) = lu(k,1323) - lu(k,602) * lu(k,1297) - lu(k,1325) = lu(k,1325) - lu(k,603) * lu(k,1297) - lu(k,1326) = lu(k,1326) - lu(k,604) * lu(k,1297) - lu(k,1328) = lu(k,1328) - lu(k,605) * lu(k,1297) - lu(k,1338) = lu(k,1338) - lu(k,588) * lu(k,1337) - lu(k,1341) = lu(k,1341) - lu(k,589) * lu(k,1337) - lu(k,1342) = lu(k,1342) - lu(k,590) * lu(k,1337) - lu(k,1344) = lu(k,1344) - lu(k,591) * lu(k,1337) - lu(k,1345) = lu(k,1345) - lu(k,592) * lu(k,1337) - lu(k,1346) = - lu(k,593) * lu(k,1337) - lu(k,1350) = lu(k,1350) - lu(k,594) * lu(k,1337) - lu(k,1352) = lu(k,1352) - lu(k,595) * lu(k,1337) - lu(k,1353) = lu(k,1353) - lu(k,596) * lu(k,1337) - lu(k,1354) = lu(k,1354) - lu(k,597) * lu(k,1337) - lu(k,1355) = lu(k,1355) - lu(k,598) * lu(k,1337) - lu(k,1356) = lu(k,1356) - lu(k,599) * lu(k,1337) - lu(k,1359) = lu(k,1359) - lu(k,600) * lu(k,1337) - lu(k,1361) = lu(k,1361) - lu(k,601) * lu(k,1337) - lu(k,1362) = lu(k,1362) - lu(k,602) * lu(k,1337) - lu(k,1364) = lu(k,1364) - lu(k,603) * lu(k,1337) - lu(k,1365) = lu(k,1365) - lu(k,604) * lu(k,1337) - lu(k,1367) = lu(k,1367) - lu(k,605) * lu(k,1337) - lu(k,1463) = lu(k,1463) - lu(k,588) * lu(k,1462) - lu(k,1466) = lu(k,1466) - lu(k,589) * lu(k,1462) - lu(k,1467) = lu(k,1467) - lu(k,590) * lu(k,1462) - lu(k,1469) = lu(k,1469) - lu(k,591) * lu(k,1462) - lu(k,1470) = lu(k,1470) - lu(k,592) * lu(k,1462) - lu(k,1471) = lu(k,1471) - lu(k,593) * lu(k,1462) - lu(k,1475) = lu(k,1475) - lu(k,594) * lu(k,1462) - lu(k,1477) = lu(k,1477) - lu(k,595) * lu(k,1462) - lu(k,1478) = lu(k,1478) - lu(k,596) * lu(k,1462) - lu(k,1479) = lu(k,1479) - lu(k,597) * lu(k,1462) - lu(k,1480) = lu(k,1480) - lu(k,598) * lu(k,1462) - lu(k,1481) = lu(k,1481) - lu(k,599) * lu(k,1462) - lu(k,1484) = lu(k,1484) - lu(k,600) * lu(k,1462) - lu(k,1486) = lu(k,1486) - lu(k,601) * lu(k,1462) - lu(k,1487) = lu(k,1487) - lu(k,602) * lu(k,1462) - lu(k,1489) = lu(k,1489) - lu(k,603) * lu(k,1462) - lu(k,1490) = lu(k,1490) - lu(k,604) * lu(k,1462) - lu(k,1492) = lu(k,1492) - lu(k,605) * lu(k,1462) - lu(k,1546) = lu(k,1546) - lu(k,588) * lu(k,1545) - lu(k,1549) = lu(k,1549) - lu(k,589) * lu(k,1545) - lu(k,1550) = lu(k,1550) - lu(k,590) * lu(k,1545) - lu(k,1552) = lu(k,1552) - lu(k,591) * lu(k,1545) - lu(k,1553) = lu(k,1553) - lu(k,592) * lu(k,1545) - lu(k,1554) = lu(k,1554) - lu(k,593) * lu(k,1545) - lu(k,1558) = lu(k,1558) - lu(k,594) * lu(k,1545) - lu(k,1560) = lu(k,1560) - lu(k,595) * lu(k,1545) - lu(k,1561) = lu(k,1561) - lu(k,596) * lu(k,1545) - lu(k,1562) = lu(k,1562) - lu(k,597) * lu(k,1545) - lu(k,1563) = lu(k,1563) - lu(k,598) * lu(k,1545) - lu(k,1564) = lu(k,1564) - lu(k,599) * lu(k,1545) - lu(k,1567) = lu(k,1567) - lu(k,600) * lu(k,1545) - lu(k,1569) = lu(k,1569) - lu(k,601) * lu(k,1545) - lu(k,1570) = lu(k,1570) - lu(k,602) * lu(k,1545) - lu(k,1572) = lu(k,1572) - lu(k,603) * lu(k,1545) - lu(k,1573) = lu(k,1573) - lu(k,604) * lu(k,1545) - lu(k,1575) = lu(k,1575) - lu(k,605) * lu(k,1545) - lu(k,1602) = lu(k,1602) - lu(k,588) * lu(k,1601) - lu(k,1606) = lu(k,1606) - lu(k,589) * lu(k,1601) - lu(k,1607) = lu(k,1607) - lu(k,590) * lu(k,1601) - lu(k,1609) = lu(k,1609) - lu(k,591) * lu(k,1601) - lu(k,1610) = lu(k,1610) - lu(k,592) * lu(k,1601) - lu(k,1611) = lu(k,1611) - lu(k,593) * lu(k,1601) - lu(k,1615) = lu(k,1615) - lu(k,594) * lu(k,1601) - lu(k,1617) = lu(k,1617) - lu(k,595) * lu(k,1601) - lu(k,1618) = lu(k,1618) - lu(k,596) * lu(k,1601) - lu(k,1619) = lu(k,1619) - lu(k,597) * lu(k,1601) - lu(k,1620) = lu(k,1620) - lu(k,598) * lu(k,1601) - lu(k,1621) = lu(k,1621) - lu(k,599) * lu(k,1601) - lu(k,1624) = lu(k,1624) - lu(k,600) * lu(k,1601) - lu(k,1626) = lu(k,1626) - lu(k,601) * lu(k,1601) - lu(k,1627) = lu(k,1627) - lu(k,602) * lu(k,1601) - lu(k,1629) = lu(k,1629) - lu(k,603) * lu(k,1601) - lu(k,1630) = lu(k,1630) - lu(k,604) * lu(k,1601) - lu(k,1632) = lu(k,1632) - lu(k,605) * lu(k,1601) - lu(k,1699) = lu(k,1699) - lu(k,588) * lu(k,1698) - lu(k,1702) = lu(k,1702) - lu(k,589) * lu(k,1698) - lu(k,1703) = lu(k,1703) - lu(k,590) * lu(k,1698) - lu(k,1705) = lu(k,1705) - lu(k,591) * lu(k,1698) - lu(k,1706) = lu(k,1706) - lu(k,592) * lu(k,1698) - lu(k,1707) = lu(k,1707) - lu(k,593) * lu(k,1698) - lu(k,1711) = lu(k,1711) - lu(k,594) * lu(k,1698) - lu(k,1713) = lu(k,1713) - lu(k,595) * lu(k,1698) - lu(k,1714) = lu(k,1714) - lu(k,596) * lu(k,1698) - lu(k,1715) = lu(k,1715) - lu(k,597) * lu(k,1698) - lu(k,1716) = lu(k,1716) - lu(k,598) * lu(k,1698) - lu(k,1717) = lu(k,1717) - lu(k,599) * lu(k,1698) - lu(k,1720) = lu(k,1720) - lu(k,600) * lu(k,1698) - lu(k,1722) = lu(k,1722) - lu(k,601) * lu(k,1698) - lu(k,1723) = lu(k,1723) - lu(k,602) * lu(k,1698) - lu(k,1725) = lu(k,1725) - lu(k,603) * lu(k,1698) - lu(k,1726) = lu(k,1726) - lu(k,604) * lu(k,1698) - lu(k,1728) = lu(k,1728) - lu(k,605) * lu(k,1698) - lu(k,1799) = lu(k,1799) - lu(k,588) * lu(k,1798) - lu(k,1802) = lu(k,1802) - lu(k,589) * lu(k,1798) - lu(k,1803) = lu(k,1803) - lu(k,590) * lu(k,1798) - lu(k,1805) = lu(k,1805) - lu(k,591) * lu(k,1798) - lu(k,1806) = lu(k,1806) - lu(k,592) * lu(k,1798) - lu(k,1807) = lu(k,1807) - lu(k,593) * lu(k,1798) - lu(k,1811) = lu(k,1811) - lu(k,594) * lu(k,1798) - lu(k,1813) = lu(k,1813) - lu(k,595) * lu(k,1798) - lu(k,1814) = lu(k,1814) - lu(k,596) * lu(k,1798) - lu(k,1815) = lu(k,1815) - lu(k,597) * lu(k,1798) - lu(k,1816) = lu(k,1816) - lu(k,598) * lu(k,1798) - lu(k,1817) = lu(k,1817) - lu(k,599) * lu(k,1798) - lu(k,1820) = lu(k,1820) - lu(k,600) * lu(k,1798) - lu(k,1822) = lu(k,1822) - lu(k,601) * lu(k,1798) - lu(k,1823) = lu(k,1823) - lu(k,602) * lu(k,1798) - lu(k,1825) = lu(k,1825) - lu(k,603) * lu(k,1798) - lu(k,1826) = lu(k,1826) - lu(k,604) * lu(k,1798) - lu(k,1828) = lu(k,1828) - lu(k,605) * lu(k,1798) - 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,618) = 1._r8 / lu(k,618) - lu(k,619) = lu(k,619) * lu(k,618) - lu(k,620) = lu(k,620) * lu(k,618) - lu(k,621) = lu(k,621) * lu(k,618) - lu(k,622) = lu(k,622) * lu(k,618) - lu(k,623) = lu(k,623) * lu(k,618) - lu(k,624) = lu(k,624) * lu(k,618) - lu(k,625) = lu(k,625) * lu(k,618) - lu(k,626) = lu(k,626) * lu(k,618) - lu(k,627) = lu(k,627) * lu(k,618) - lu(k,628) = lu(k,628) * lu(k,618) - lu(k,629) = lu(k,629) * lu(k,618) - lu(k,630) = lu(k,630) * lu(k,618) - lu(k,631) = lu(k,631) * lu(k,618) - lu(k,632) = lu(k,632) * lu(k,618) - lu(k,633) = lu(k,633) * lu(k,618) - lu(k,634) = lu(k,634) * lu(k,618) - lu(k,635) = lu(k,635) * lu(k,618) - lu(k,636) = lu(k,636) * lu(k,618) - lu(k,637) = lu(k,637) * lu(k,618) - lu(k,638) = lu(k,638) * lu(k,618) - lu(k,728) = lu(k,728) - lu(k,619) * lu(k,727) - lu(k,729) = lu(k,729) - lu(k,620) * lu(k,727) - lu(k,730) = lu(k,730) - lu(k,621) * lu(k,727) - lu(k,731) = lu(k,731) - lu(k,622) * lu(k,727) - lu(k,732) = lu(k,732) - lu(k,623) * lu(k,727) - lu(k,733) = lu(k,733) - lu(k,624) * lu(k,727) - lu(k,735) = lu(k,735) - lu(k,625) * lu(k,727) - lu(k,736) = lu(k,736) - lu(k,626) * lu(k,727) - lu(k,737) = lu(k,737) - lu(k,627) * lu(k,727) - lu(k,738) = lu(k,738) - lu(k,628) * lu(k,727) - lu(k,739) = lu(k,739) - lu(k,629) * lu(k,727) - lu(k,740) = - lu(k,630) * lu(k,727) - lu(k,741) = - lu(k,631) * lu(k,727) - lu(k,742) = lu(k,742) - lu(k,632) * lu(k,727) - lu(k,743) = lu(k,743) - lu(k,633) * lu(k,727) - lu(k,744) = lu(k,744) - lu(k,634) * lu(k,727) - lu(k,745) = lu(k,745) - lu(k,635) * lu(k,727) - lu(k,746) = lu(k,746) - lu(k,636) * lu(k,727) - lu(k,747) = lu(k,747) - lu(k,637) * lu(k,727) - lu(k,748) = lu(k,748) - lu(k,638) * lu(k,727) - lu(k,774) = lu(k,774) - lu(k,619) * lu(k,773) - lu(k,775) = lu(k,775) - lu(k,620) * lu(k,773) - lu(k,776) = lu(k,776) - lu(k,621) * lu(k,773) - lu(k,777) = lu(k,777) - lu(k,622) * lu(k,773) - lu(k,778) = lu(k,778) - lu(k,623) * lu(k,773) - lu(k,780) = lu(k,780) - lu(k,624) * lu(k,773) - lu(k,782) = lu(k,782) - lu(k,625) * lu(k,773) - lu(k,783) = lu(k,783) - lu(k,626) * lu(k,773) - lu(k,784) = lu(k,784) - lu(k,627) * lu(k,773) - lu(k,785) = lu(k,785) - lu(k,628) * lu(k,773) - lu(k,786) = lu(k,786) - lu(k,629) * lu(k,773) - lu(k,787) = - lu(k,630) * lu(k,773) - lu(k,788) = lu(k,788) - lu(k,631) * lu(k,773) - lu(k,789) = lu(k,789) - lu(k,632) * lu(k,773) - lu(k,790) = lu(k,790) - lu(k,633) * lu(k,773) - lu(k,791) = lu(k,791) - lu(k,634) * lu(k,773) - lu(k,792) = lu(k,792) - lu(k,635) * lu(k,773) - lu(k,793) = lu(k,793) - lu(k,636) * lu(k,773) - lu(k,794) = lu(k,794) - lu(k,637) * lu(k,773) - lu(k,795) = lu(k,795) - lu(k,638) * lu(k,773) - lu(k,842) = lu(k,842) - lu(k,619) * lu(k,841) - lu(k,843) = lu(k,843) - lu(k,620) * lu(k,841) - lu(k,844) = lu(k,844) - lu(k,621) * lu(k,841) - lu(k,845) = - lu(k,622) * lu(k,841) - lu(k,846) = lu(k,846) - lu(k,623) * lu(k,841) - lu(k,850) = - lu(k,624) * lu(k,841) - lu(k,852) = - lu(k,625) * lu(k,841) - lu(k,853) = lu(k,853) - lu(k,626) * lu(k,841) - lu(k,854) = lu(k,854) - lu(k,627) * lu(k,841) - lu(k,855) = - lu(k,628) * lu(k,841) - lu(k,856) = - lu(k,629) * lu(k,841) - lu(k,857) = lu(k,857) - lu(k,630) * lu(k,841) - lu(k,858) = lu(k,858) - lu(k,631) * lu(k,841) - lu(k,859) = lu(k,859) - lu(k,632) * lu(k,841) - lu(k,861) = lu(k,861) - lu(k,633) * lu(k,841) - lu(k,862) = lu(k,862) - lu(k,634) * lu(k,841) - lu(k,863) = - lu(k,635) * lu(k,841) - lu(k,864) = lu(k,864) - lu(k,636) * lu(k,841) - lu(k,865) = lu(k,865) - lu(k,637) * lu(k,841) - lu(k,866) = lu(k,866) - lu(k,638) * lu(k,841) - lu(k,882) = lu(k,882) - lu(k,619) * lu(k,878) - lu(k,883) = lu(k,883) - lu(k,620) * lu(k,878) - lu(k,885) = lu(k,885) - lu(k,621) * lu(k,878) - lu(k,886) = lu(k,886) - lu(k,622) * lu(k,878) - lu(k,887) = lu(k,887) - lu(k,623) * lu(k,878) - lu(k,891) = lu(k,891) - lu(k,624) * lu(k,878) - lu(k,893) = lu(k,893) - lu(k,625) * lu(k,878) - lu(k,894) = lu(k,894) - lu(k,626) * lu(k,878) - lu(k,895) = lu(k,895) - lu(k,627) * lu(k,878) - lu(k,896) = lu(k,896) - lu(k,628) * lu(k,878) - lu(k,897) = lu(k,897) - lu(k,629) * lu(k,878) - lu(k,898) = lu(k,898) - lu(k,630) * lu(k,878) - lu(k,899) = - lu(k,631) * lu(k,878) - lu(k,900) = lu(k,900) - lu(k,632) * lu(k,878) - lu(k,902) = lu(k,902) - lu(k,633) * lu(k,878) - lu(k,903) = lu(k,903) - lu(k,634) * lu(k,878) - lu(k,905) = lu(k,905) - lu(k,635) * lu(k,878) - lu(k,906) = lu(k,906) - lu(k,636) * lu(k,878) - lu(k,907) = - lu(k,637) * lu(k,878) - lu(k,908) = lu(k,908) - lu(k,638) * lu(k,878) - lu(k,923) = lu(k,923) - lu(k,619) * lu(k,919) - lu(k,924) = lu(k,924) - lu(k,620) * lu(k,919) - lu(k,926) = lu(k,926) - lu(k,621) * lu(k,919) - lu(k,927) = lu(k,927) - lu(k,622) * lu(k,919) - lu(k,928) = lu(k,928) - lu(k,623) * lu(k,919) - lu(k,932) = lu(k,932) - lu(k,624) * lu(k,919) - lu(k,934) = lu(k,934) - lu(k,625) * lu(k,919) - lu(k,935) = lu(k,935) - lu(k,626) * lu(k,919) - lu(k,936) = lu(k,936) - lu(k,627) * lu(k,919) - lu(k,937) = lu(k,937) - lu(k,628) * lu(k,919) - lu(k,938) = lu(k,938) - lu(k,629) * lu(k,919) - lu(k,939) = lu(k,939) - lu(k,630) * lu(k,919) - lu(k,940) = lu(k,940) - lu(k,631) * lu(k,919) - lu(k,941) = lu(k,941) - lu(k,632) * lu(k,919) - lu(k,943) = lu(k,943) - lu(k,633) * lu(k,919) - lu(k,944) = lu(k,944) - lu(k,634) * lu(k,919) - lu(k,946) = lu(k,946) - lu(k,635) * lu(k,919) - lu(k,947) = lu(k,947) - lu(k,636) * lu(k,919) - lu(k,948) = lu(k,948) - lu(k,637) * lu(k,919) - lu(k,949) = lu(k,949) - lu(k,638) * lu(k,919) - lu(k,968) = lu(k,968) - lu(k,619) * lu(k,964) - lu(k,969) = lu(k,969) - lu(k,620) * lu(k,964) - lu(k,971) = lu(k,971) - lu(k,621) * lu(k,964) - lu(k,972) = lu(k,972) - lu(k,622) * lu(k,964) - lu(k,973) = - lu(k,623) * lu(k,964) - lu(k,977) = - lu(k,624) * lu(k,964) - lu(k,979) = lu(k,979) - lu(k,625) * lu(k,964) - lu(k,980) = lu(k,980) - lu(k,626) * lu(k,964) - lu(k,981) = lu(k,981) - lu(k,627) * lu(k,964) - lu(k,982) = lu(k,982) - lu(k,628) * lu(k,964) - lu(k,983) = lu(k,983) - lu(k,629) * lu(k,964) - lu(k,984) = lu(k,984) - lu(k,630) * lu(k,964) - lu(k,985) = lu(k,985) - lu(k,631) * lu(k,964) - lu(k,986) = lu(k,986) - lu(k,632) * lu(k,964) - lu(k,988) = lu(k,988) - lu(k,633) * lu(k,964) - lu(k,989) = lu(k,989) - lu(k,634) * lu(k,964) - lu(k,991) = - lu(k,635) * lu(k,964) - lu(k,992) = - lu(k,636) * lu(k,964) - lu(k,993) = lu(k,993) - lu(k,637) * lu(k,964) - lu(k,994) = lu(k,994) - lu(k,638) * lu(k,964) - lu(k,1096) = lu(k,1096) - lu(k,619) * lu(k,1092) - lu(k,1097) = lu(k,1097) - lu(k,620) * lu(k,1092) - lu(k,1099) = lu(k,1099) - lu(k,621) * lu(k,1092) - lu(k,1100) = lu(k,1100) - lu(k,622) * lu(k,1092) - lu(k,1101) = lu(k,1101) - lu(k,623) * lu(k,1092) - lu(k,1105) = lu(k,1105) - lu(k,624) * lu(k,1092) - lu(k,1107) = lu(k,1107) - lu(k,625) * lu(k,1092) - lu(k,1108) = lu(k,1108) - lu(k,626) * lu(k,1092) - lu(k,1109) = lu(k,1109) - lu(k,627) * lu(k,1092) - lu(k,1110) = lu(k,1110) - lu(k,628) * lu(k,1092) - lu(k,1111) = lu(k,1111) - lu(k,629) * lu(k,1092) - lu(k,1112) = lu(k,1112) - lu(k,630) * lu(k,1092) - lu(k,1113) = - lu(k,631) * lu(k,1092) - lu(k,1114) = lu(k,1114) - lu(k,632) * lu(k,1092) - lu(k,1116) = lu(k,1116) - lu(k,633) * lu(k,1092) - lu(k,1117) = lu(k,1117) - lu(k,634) * lu(k,1092) - lu(k,1119) = lu(k,1119) - lu(k,635) * lu(k,1092) - lu(k,1120) = lu(k,1120) - lu(k,636) * lu(k,1092) - lu(k,1121) = - lu(k,637) * lu(k,1092) - lu(k,1122) = lu(k,1122) - lu(k,638) * lu(k,1092) - lu(k,1177) = lu(k,1177) - lu(k,619) * lu(k,1175) - lu(k,1178) = lu(k,1178) - lu(k,620) * lu(k,1175) - lu(k,1179) = lu(k,1179) - lu(k,621) * lu(k,1175) - lu(k,1180) = lu(k,1180) - lu(k,622) * lu(k,1175) - lu(k,1181) = lu(k,1181) - lu(k,623) * lu(k,1175) - lu(k,1185) = lu(k,1185) - lu(k,624) * lu(k,1175) - lu(k,1187) = lu(k,1187) - lu(k,625) * lu(k,1175) - lu(k,1188) = lu(k,1188) - lu(k,626) * lu(k,1175) - lu(k,1189) = lu(k,1189) - lu(k,627) * lu(k,1175) - lu(k,1190) = lu(k,1190) - lu(k,628) * lu(k,1175) - lu(k,1191) = lu(k,1191) - lu(k,629) * lu(k,1175) - lu(k,1192) = - lu(k,630) * lu(k,1175) - lu(k,1193) = lu(k,1193) - lu(k,631) * lu(k,1175) - lu(k,1194) = lu(k,1194) - lu(k,632) * lu(k,1175) - lu(k,1196) = lu(k,1196) - lu(k,633) * lu(k,1175) - lu(k,1197) = lu(k,1197) - lu(k,634) * lu(k,1175) - lu(k,1199) = lu(k,1199) - lu(k,635) * lu(k,1175) - lu(k,1200) = lu(k,1200) - lu(k,636) * lu(k,1175) - lu(k,1201) = lu(k,1201) - lu(k,637) * lu(k,1175) - lu(k,1202) = lu(k,1202) - lu(k,638) * lu(k,1175) - lu(k,1211) = lu(k,1211) - lu(k,619) * lu(k,1207) - lu(k,1212) = lu(k,1212) - lu(k,620) * lu(k,1207) - lu(k,1214) = lu(k,1214) - lu(k,621) * lu(k,1207) - lu(k,1215) = lu(k,1215) - lu(k,622) * lu(k,1207) - lu(k,1216) = lu(k,1216) - lu(k,623) * lu(k,1207) - lu(k,1220) = lu(k,1220) - lu(k,624) * lu(k,1207) - lu(k,1222) = lu(k,1222) - lu(k,625) * lu(k,1207) - lu(k,1223) = lu(k,1223) - lu(k,626) * lu(k,1207) - lu(k,1224) = lu(k,1224) - lu(k,627) * lu(k,1207) - lu(k,1225) = lu(k,1225) - lu(k,628) * lu(k,1207) - lu(k,1226) = lu(k,1226) - lu(k,629) * lu(k,1207) - lu(k,1227) = lu(k,1227) - lu(k,630) * lu(k,1207) - lu(k,1228) = - lu(k,631) * lu(k,1207) - lu(k,1229) = lu(k,1229) - lu(k,632) * lu(k,1207) - lu(k,1231) = lu(k,1231) - lu(k,633) * lu(k,1207) - lu(k,1232) = lu(k,1232) - lu(k,634) * lu(k,1207) - lu(k,1234) = lu(k,1234) - lu(k,635) * lu(k,1207) - lu(k,1235) = lu(k,1235) - lu(k,636) * lu(k,1207) - lu(k,1236) = lu(k,1236) - lu(k,637) * lu(k,1207) - lu(k,1237) = lu(k,1237) - lu(k,638) * lu(k,1207) - lu(k,1258) = lu(k,1258) - lu(k,619) * lu(k,1254) - lu(k,1259) = lu(k,1259) - lu(k,620) * lu(k,1254) - lu(k,1261) = lu(k,1261) - lu(k,621) * lu(k,1254) - lu(k,1262) = lu(k,1262) - lu(k,622) * lu(k,1254) - lu(k,1263) = lu(k,1263) - lu(k,623) * lu(k,1254) - lu(k,1267) = lu(k,1267) - lu(k,624) * lu(k,1254) - lu(k,1269) = lu(k,1269) - lu(k,625) * lu(k,1254) - lu(k,1270) = lu(k,1270) - lu(k,626) * lu(k,1254) - lu(k,1271) = lu(k,1271) - lu(k,627) * lu(k,1254) - lu(k,1272) = lu(k,1272) - lu(k,628) * lu(k,1254) - lu(k,1273) = lu(k,1273) - lu(k,629) * lu(k,1254) - lu(k,1274) = lu(k,1274) - lu(k,630) * lu(k,1254) - lu(k,1275) = lu(k,1275) - lu(k,631) * lu(k,1254) - lu(k,1276) = lu(k,1276) - lu(k,632) * lu(k,1254) - lu(k,1278) = lu(k,1278) - lu(k,633) * lu(k,1254) - lu(k,1279) = lu(k,1279) - lu(k,634) * lu(k,1254) - lu(k,1281) = lu(k,1281) - lu(k,635) * lu(k,1254) - lu(k,1282) = lu(k,1282) - lu(k,636) * lu(k,1254) - lu(k,1283) = lu(k,1283) - lu(k,637) * lu(k,1254) - lu(k,1284) = lu(k,1284) - lu(k,638) * lu(k,1254) - lu(k,1302) = lu(k,1302) - lu(k,619) * lu(k,1298) - lu(k,1303) = lu(k,1303) - lu(k,620) * lu(k,1298) - lu(k,1305) = lu(k,1305) - lu(k,621) * lu(k,1298) - lu(k,1306) = lu(k,1306) - lu(k,622) * lu(k,1298) - lu(k,1307) = lu(k,1307) - lu(k,623) * lu(k,1298) - lu(k,1311) = lu(k,1311) - lu(k,624) * lu(k,1298) - lu(k,1313) = lu(k,1313) - lu(k,625) * lu(k,1298) - lu(k,1314) = lu(k,1314) - lu(k,626) * lu(k,1298) - lu(k,1315) = lu(k,1315) - lu(k,627) * lu(k,1298) - lu(k,1316) = lu(k,1316) - lu(k,628) * lu(k,1298) - lu(k,1317) = lu(k,1317) - lu(k,629) * lu(k,1298) - lu(k,1318) = lu(k,1318) - lu(k,630) * lu(k,1298) - lu(k,1319) = lu(k,1319) - lu(k,631) * lu(k,1298) - lu(k,1320) = lu(k,1320) - lu(k,632) * lu(k,1298) - lu(k,1322) = lu(k,1322) - lu(k,633) * lu(k,1298) - lu(k,1323) = lu(k,1323) - lu(k,634) * lu(k,1298) - lu(k,1325) = lu(k,1325) - lu(k,635) * lu(k,1298) - lu(k,1326) = lu(k,1326) - lu(k,636) * lu(k,1298) - lu(k,1327) = lu(k,1327) - lu(k,637) * lu(k,1298) - lu(k,1328) = lu(k,1328) - lu(k,638) * lu(k,1298) - lu(k,1341) = lu(k,1341) - lu(k,619) * lu(k,1338) - lu(k,1342) = lu(k,1342) - lu(k,620) * lu(k,1338) - lu(k,1344) = lu(k,1344) - lu(k,621) * lu(k,1338) - lu(k,1345) = lu(k,1345) - lu(k,622) * lu(k,1338) - lu(k,1346) = lu(k,1346) - lu(k,623) * lu(k,1338) - lu(k,1350) = lu(k,1350) - lu(k,624) * lu(k,1338) - lu(k,1352) = lu(k,1352) - lu(k,625) * lu(k,1338) - lu(k,1353) = lu(k,1353) - lu(k,626) * lu(k,1338) - lu(k,1354) = lu(k,1354) - lu(k,627) * lu(k,1338) - lu(k,1355) = lu(k,1355) - lu(k,628) * lu(k,1338) - lu(k,1356) = lu(k,1356) - lu(k,629) * lu(k,1338) - lu(k,1357) = lu(k,1357) - lu(k,630) * lu(k,1338) - lu(k,1358) = lu(k,1358) - lu(k,631) * lu(k,1338) - lu(k,1359) = lu(k,1359) - lu(k,632) * lu(k,1338) - lu(k,1361) = lu(k,1361) - lu(k,633) * lu(k,1338) - lu(k,1362) = lu(k,1362) - lu(k,634) * lu(k,1338) - lu(k,1364) = lu(k,1364) - lu(k,635) * lu(k,1338) - lu(k,1365) = lu(k,1365) - lu(k,636) * lu(k,1338) - lu(k,1366) = lu(k,1366) - lu(k,637) * lu(k,1338) - lu(k,1367) = lu(k,1367) - lu(k,638) * lu(k,1338) - lu(k,1420) = lu(k,1420) - lu(k,619) * lu(k,1416) - lu(k,1421) = lu(k,1421) - lu(k,620) * lu(k,1416) - lu(k,1423) = lu(k,1423) - lu(k,621) * lu(k,1416) - lu(k,1424) = lu(k,1424) - lu(k,622) * lu(k,1416) - lu(k,1425) = lu(k,1425) - lu(k,623) * lu(k,1416) - lu(k,1429) = - lu(k,624) * lu(k,1416) - lu(k,1431) = lu(k,1431) - lu(k,625) * lu(k,1416) - lu(k,1432) = lu(k,1432) - lu(k,626) * lu(k,1416) - lu(k,1433) = lu(k,1433) - lu(k,627) * lu(k,1416) - lu(k,1434) = lu(k,1434) - lu(k,628) * lu(k,1416) - lu(k,1435) = lu(k,1435) - lu(k,629) * lu(k,1416) - lu(k,1436) = lu(k,1436) - lu(k,630) * lu(k,1416) - lu(k,1437) = lu(k,1437) - lu(k,631) * lu(k,1416) - lu(k,1438) = lu(k,1438) - lu(k,632) * lu(k,1416) - lu(k,1440) = lu(k,1440) - lu(k,633) * lu(k,1416) - lu(k,1441) = lu(k,1441) - lu(k,634) * lu(k,1416) - lu(k,1443) = - lu(k,635) * lu(k,1416) - lu(k,1444) = lu(k,1444) - lu(k,636) * lu(k,1416) - lu(k,1445) = lu(k,1445) - lu(k,637) * lu(k,1416) - lu(k,1446) = lu(k,1446) - lu(k,638) * lu(k,1416) - lu(k,1466) = lu(k,1466) - lu(k,619) * lu(k,1463) - lu(k,1467) = lu(k,1467) - lu(k,620) * lu(k,1463) - lu(k,1469) = lu(k,1469) - lu(k,621) * lu(k,1463) - lu(k,1470) = lu(k,1470) - lu(k,622) * lu(k,1463) - lu(k,1471) = lu(k,1471) - lu(k,623) * lu(k,1463) - lu(k,1475) = lu(k,1475) - lu(k,624) * lu(k,1463) - lu(k,1477) = lu(k,1477) - lu(k,625) * lu(k,1463) - lu(k,1478) = lu(k,1478) - lu(k,626) * lu(k,1463) - lu(k,1479) = lu(k,1479) - lu(k,627) * lu(k,1463) - lu(k,1480) = lu(k,1480) - lu(k,628) * lu(k,1463) - lu(k,1481) = lu(k,1481) - lu(k,629) * lu(k,1463) - lu(k,1482) = lu(k,1482) - lu(k,630) * lu(k,1463) - lu(k,1483) = lu(k,1483) - lu(k,631) * lu(k,1463) - lu(k,1484) = lu(k,1484) - lu(k,632) * lu(k,1463) - lu(k,1486) = lu(k,1486) - lu(k,633) * lu(k,1463) - lu(k,1487) = lu(k,1487) - lu(k,634) * lu(k,1463) - lu(k,1489) = lu(k,1489) - lu(k,635) * lu(k,1463) - lu(k,1490) = lu(k,1490) - lu(k,636) * lu(k,1463) - lu(k,1491) = lu(k,1491) - lu(k,637) * lu(k,1463) - lu(k,1492) = lu(k,1492) - lu(k,638) * lu(k,1463) - lu(k,1549) = lu(k,1549) - lu(k,619) * lu(k,1546) - lu(k,1550) = lu(k,1550) - lu(k,620) * lu(k,1546) - lu(k,1552) = lu(k,1552) - lu(k,621) * lu(k,1546) - lu(k,1553) = lu(k,1553) - lu(k,622) * lu(k,1546) - lu(k,1554) = lu(k,1554) - lu(k,623) * lu(k,1546) - lu(k,1558) = lu(k,1558) - lu(k,624) * lu(k,1546) - lu(k,1560) = lu(k,1560) - lu(k,625) * lu(k,1546) - lu(k,1561) = lu(k,1561) - lu(k,626) * lu(k,1546) - lu(k,1562) = lu(k,1562) - lu(k,627) * lu(k,1546) - lu(k,1563) = lu(k,1563) - lu(k,628) * lu(k,1546) - lu(k,1564) = lu(k,1564) - lu(k,629) * lu(k,1546) - lu(k,1565) = lu(k,1565) - lu(k,630) * lu(k,1546) - lu(k,1566) = lu(k,1566) - lu(k,631) * lu(k,1546) - lu(k,1567) = lu(k,1567) - lu(k,632) * lu(k,1546) - lu(k,1569) = lu(k,1569) - lu(k,633) * lu(k,1546) - lu(k,1570) = lu(k,1570) - lu(k,634) * lu(k,1546) - lu(k,1572) = lu(k,1572) - lu(k,635) * lu(k,1546) - lu(k,1573) = lu(k,1573) - lu(k,636) * lu(k,1546) - lu(k,1574) = lu(k,1574) - lu(k,637) * lu(k,1546) - lu(k,1575) = lu(k,1575) - lu(k,638) * lu(k,1546) - lu(k,1606) = lu(k,1606) - lu(k,619) * lu(k,1602) - lu(k,1607) = lu(k,1607) - lu(k,620) * lu(k,1602) - lu(k,1609) = lu(k,1609) - lu(k,621) * lu(k,1602) - lu(k,1610) = lu(k,1610) - lu(k,622) * lu(k,1602) - lu(k,1611) = lu(k,1611) - lu(k,623) * lu(k,1602) - lu(k,1615) = lu(k,1615) - lu(k,624) * lu(k,1602) - lu(k,1617) = lu(k,1617) - lu(k,625) * lu(k,1602) - lu(k,1618) = lu(k,1618) - lu(k,626) * lu(k,1602) - lu(k,1619) = lu(k,1619) - lu(k,627) * lu(k,1602) - lu(k,1620) = lu(k,1620) - lu(k,628) * lu(k,1602) - lu(k,1621) = lu(k,1621) - lu(k,629) * lu(k,1602) - lu(k,1622) = lu(k,1622) - lu(k,630) * lu(k,1602) - lu(k,1623) = lu(k,1623) - lu(k,631) * lu(k,1602) - lu(k,1624) = lu(k,1624) - lu(k,632) * lu(k,1602) - lu(k,1626) = lu(k,1626) - lu(k,633) * lu(k,1602) - lu(k,1627) = lu(k,1627) - lu(k,634) * lu(k,1602) - lu(k,1629) = lu(k,1629) - lu(k,635) * lu(k,1602) - lu(k,1630) = lu(k,1630) - lu(k,636) * lu(k,1602) - lu(k,1631) = lu(k,1631) - lu(k,637) * lu(k,1602) - lu(k,1632) = lu(k,1632) - lu(k,638) * lu(k,1602) - lu(k,1702) = lu(k,1702) - lu(k,619) * lu(k,1699) - lu(k,1703) = lu(k,1703) - lu(k,620) * lu(k,1699) - lu(k,1705) = lu(k,1705) - lu(k,621) * lu(k,1699) - lu(k,1706) = lu(k,1706) - lu(k,622) * lu(k,1699) - lu(k,1707) = lu(k,1707) - lu(k,623) * lu(k,1699) - lu(k,1711) = lu(k,1711) - lu(k,624) * lu(k,1699) - lu(k,1713) = lu(k,1713) - lu(k,625) * lu(k,1699) - lu(k,1714) = lu(k,1714) - lu(k,626) * lu(k,1699) - lu(k,1715) = lu(k,1715) - lu(k,627) * lu(k,1699) - lu(k,1716) = lu(k,1716) - lu(k,628) * lu(k,1699) - lu(k,1717) = lu(k,1717) - lu(k,629) * lu(k,1699) - lu(k,1718) = lu(k,1718) - lu(k,630) * lu(k,1699) - lu(k,1719) = lu(k,1719) - lu(k,631) * lu(k,1699) - lu(k,1720) = lu(k,1720) - lu(k,632) * lu(k,1699) - lu(k,1722) = lu(k,1722) - lu(k,633) * lu(k,1699) - lu(k,1723) = lu(k,1723) - lu(k,634) * lu(k,1699) - lu(k,1725) = lu(k,1725) - lu(k,635) * lu(k,1699) - lu(k,1726) = lu(k,1726) - lu(k,636) * lu(k,1699) - lu(k,1727) = lu(k,1727) - lu(k,637) * lu(k,1699) - lu(k,1728) = lu(k,1728) - lu(k,638) * lu(k,1699) - lu(k,1802) = lu(k,1802) - lu(k,619) * lu(k,1799) - lu(k,1803) = lu(k,1803) - lu(k,620) * lu(k,1799) - lu(k,1805) = lu(k,1805) - lu(k,621) * lu(k,1799) - lu(k,1806) = lu(k,1806) - lu(k,622) * lu(k,1799) - lu(k,1807) = lu(k,1807) - lu(k,623) * lu(k,1799) - lu(k,1811) = lu(k,1811) - lu(k,624) * lu(k,1799) - lu(k,1813) = lu(k,1813) - lu(k,625) * lu(k,1799) - lu(k,1814) = lu(k,1814) - lu(k,626) * lu(k,1799) - lu(k,1815) = lu(k,1815) - lu(k,627) * lu(k,1799) - lu(k,1816) = lu(k,1816) - lu(k,628) * lu(k,1799) - lu(k,1817) = lu(k,1817) - lu(k,629) * lu(k,1799) - lu(k,1818) = lu(k,1818) - lu(k,630) * lu(k,1799) - lu(k,1819) = lu(k,1819) - lu(k,631) * lu(k,1799) - lu(k,1820) = lu(k,1820) - lu(k,632) * lu(k,1799) - lu(k,1822) = lu(k,1822) - lu(k,633) * lu(k,1799) - lu(k,1823) = lu(k,1823) - lu(k,634) * lu(k,1799) - lu(k,1825) = lu(k,1825) - lu(k,635) * lu(k,1799) - lu(k,1826) = lu(k,1826) - lu(k,636) * lu(k,1799) - lu(k,1827) = lu(k,1827) - lu(k,637) * lu(k,1799) - lu(k,1828) = lu(k,1828) - lu(k,638) * lu(k,1799) - lu(k,641) = 1._r8 / lu(k,641) - lu(k,642) = lu(k,642) * lu(k,641) - lu(k,643) = lu(k,643) * lu(k,641) - lu(k,644) = lu(k,644) * lu(k,641) - lu(k,645) = lu(k,645) * lu(k,641) - lu(k,646) = lu(k,646) * lu(k,641) - lu(k,647) = lu(k,647) * lu(k,641) - lu(k,648) = lu(k,648) * lu(k,641) - lu(k,649) = lu(k,649) * lu(k,641) - lu(k,650) = lu(k,650) * lu(k,641) - lu(k,651) = lu(k,651) * lu(k,641) - lu(k,652) = lu(k,652) * lu(k,641) - lu(k,653) = lu(k,653) * lu(k,641) - lu(k,654) = lu(k,654) * lu(k,641) - lu(k,655) = lu(k,655) * lu(k,641) - lu(k,656) = lu(k,656) * lu(k,641) - lu(k,657) = lu(k,657) * lu(k,641) - lu(k,658) = lu(k,658) * lu(k,641) - lu(k,659) = lu(k,659) * lu(k,641) - lu(k,660) = lu(k,660) * lu(k,641) - lu(k,661) = lu(k,661) * lu(k,641) - lu(k,662) = lu(k,662) * lu(k,641) - lu(k,663) = lu(k,663) * lu(k,641) - lu(k,664) = lu(k,664) * lu(k,641) - lu(k,665) = lu(k,665) * lu(k,641) - lu(k,666) = lu(k,666) * lu(k,641) - lu(k,667) = lu(k,667) * lu(k,641) - lu(k,668) = lu(k,668) * lu(k,641) - lu(k,880) = lu(k,880) - lu(k,642) * lu(k,879) - lu(k,881) = - lu(k,643) * lu(k,879) - lu(k,882) = lu(k,882) - lu(k,644) * lu(k,879) - lu(k,883) = lu(k,883) - lu(k,645) * lu(k,879) - lu(k,884) = lu(k,884) - lu(k,646) * lu(k,879) - lu(k,885) = lu(k,885) - lu(k,647) * lu(k,879) - lu(k,886) = lu(k,886) - lu(k,648) * lu(k,879) - lu(k,887) = lu(k,887) - lu(k,649) * lu(k,879) - lu(k,888) = - lu(k,650) * lu(k,879) - lu(k,889) = - lu(k,651) * lu(k,879) - lu(k,890) = - lu(k,652) * lu(k,879) - lu(k,891) = lu(k,891) - lu(k,653) * lu(k,879) - lu(k,892) = - lu(k,654) * lu(k,879) - lu(k,894) = lu(k,894) - lu(k,655) * lu(k,879) - lu(k,895) = lu(k,895) - lu(k,656) * lu(k,879) - lu(k,896) = lu(k,896) - lu(k,657) * lu(k,879) - lu(k,898) = lu(k,898) - lu(k,658) * lu(k,879) - lu(k,899) = lu(k,899) - lu(k,659) * lu(k,879) - lu(k,900) = lu(k,900) - lu(k,660) * lu(k,879) - lu(k,901) = - lu(k,661) * lu(k,879) - lu(k,902) = lu(k,902) - lu(k,662) * lu(k,879) - lu(k,903) = lu(k,903) - lu(k,663) * lu(k,879) - lu(k,904) = lu(k,904) - lu(k,664) * lu(k,879) - lu(k,905) = lu(k,905) - lu(k,665) * lu(k,879) - lu(k,906) = lu(k,906) - lu(k,666) * lu(k,879) - lu(k,907) = lu(k,907) - lu(k,667) * lu(k,879) - lu(k,908) = lu(k,908) - lu(k,668) * lu(k,879) - lu(k,921) = - lu(k,642) * lu(k,920) - lu(k,922) = lu(k,922) - lu(k,643) * lu(k,920) - lu(k,923) = lu(k,923) - lu(k,644) * lu(k,920) - lu(k,924) = lu(k,924) - lu(k,645) * lu(k,920) - lu(k,925) = lu(k,925) - lu(k,646) * lu(k,920) - lu(k,926) = lu(k,926) - lu(k,647) * lu(k,920) - lu(k,927) = lu(k,927) - lu(k,648) * lu(k,920) - lu(k,928) = lu(k,928) - lu(k,649) * lu(k,920) - lu(k,929) = - lu(k,650) * lu(k,920) - lu(k,930) = - lu(k,651) * lu(k,920) - lu(k,931) = - lu(k,652) * lu(k,920) - lu(k,932) = lu(k,932) - lu(k,653) * lu(k,920) - lu(k,933) = - lu(k,654) * lu(k,920) - lu(k,935) = lu(k,935) - lu(k,655) * lu(k,920) - lu(k,936) = lu(k,936) - lu(k,656) * lu(k,920) - lu(k,937) = lu(k,937) - lu(k,657) * lu(k,920) - lu(k,939) = lu(k,939) - lu(k,658) * lu(k,920) - lu(k,940) = lu(k,940) - lu(k,659) * lu(k,920) - lu(k,941) = lu(k,941) - lu(k,660) * lu(k,920) - lu(k,942) = - lu(k,661) * lu(k,920) - lu(k,943) = lu(k,943) - lu(k,662) * lu(k,920) - lu(k,944) = lu(k,944) - lu(k,663) * lu(k,920) - lu(k,945) = lu(k,945) - lu(k,664) * lu(k,920) - lu(k,946) = lu(k,946) - lu(k,665) * lu(k,920) - lu(k,947) = lu(k,947) - lu(k,666) * lu(k,920) - lu(k,948) = lu(k,948) - lu(k,667) * lu(k,920) - lu(k,949) = lu(k,949) - lu(k,668) * lu(k,920) - lu(k,966) = lu(k,966) - lu(k,642) * lu(k,965) - lu(k,967) = lu(k,967) - lu(k,643) * lu(k,965) - lu(k,968) = lu(k,968) - lu(k,644) * lu(k,965) - lu(k,969) = lu(k,969) - lu(k,645) * lu(k,965) - lu(k,970) = lu(k,970) - lu(k,646) * lu(k,965) - lu(k,971) = lu(k,971) - lu(k,647) * lu(k,965) - lu(k,972) = lu(k,972) - lu(k,648) * lu(k,965) - lu(k,973) = lu(k,973) - lu(k,649) * lu(k,965) - lu(k,974) = lu(k,974) - lu(k,650) * lu(k,965) - lu(k,975) = lu(k,975) - lu(k,651) * lu(k,965) - lu(k,976) = lu(k,976) - lu(k,652) * lu(k,965) - lu(k,977) = lu(k,977) - lu(k,653) * lu(k,965) - lu(k,978) = lu(k,978) - lu(k,654) * lu(k,965) - lu(k,980) = lu(k,980) - lu(k,655) * lu(k,965) - lu(k,981) = lu(k,981) - lu(k,656) * lu(k,965) - lu(k,982) = lu(k,982) - lu(k,657) * lu(k,965) - lu(k,984) = lu(k,984) - lu(k,658) * lu(k,965) - lu(k,985) = lu(k,985) - lu(k,659) * lu(k,965) - lu(k,986) = lu(k,986) - lu(k,660) * lu(k,965) - lu(k,987) = lu(k,987) - lu(k,661) * lu(k,965) - lu(k,988) = lu(k,988) - lu(k,662) * lu(k,965) - lu(k,989) = lu(k,989) - lu(k,663) * lu(k,965) - lu(k,990) = lu(k,990) - lu(k,664) * lu(k,965) - lu(k,991) = lu(k,991) - lu(k,665) * lu(k,965) - lu(k,992) = lu(k,992) - lu(k,666) * lu(k,965) - lu(k,993) = lu(k,993) - lu(k,667) * lu(k,965) - lu(k,994) = lu(k,994) - lu(k,668) * lu(k,965) - lu(k,1008) = lu(k,1008) - lu(k,642) * lu(k,1007) - lu(k,1009) = lu(k,1009) - lu(k,643) * lu(k,1007) - lu(k,1010) = - lu(k,644) * lu(k,1007) - lu(k,1011) = lu(k,1011) - lu(k,645) * lu(k,1007) - lu(k,1012) = lu(k,1012) - lu(k,646) * lu(k,1007) - lu(k,1013) = lu(k,1013) - lu(k,647) * lu(k,1007) - lu(k,1014) = lu(k,1014) - lu(k,648) * lu(k,1007) - lu(k,1015) = - lu(k,649) * lu(k,1007) - lu(k,1016) = lu(k,1016) - lu(k,650) * lu(k,1007) - lu(k,1017) = lu(k,1017) - lu(k,651) * lu(k,1007) - lu(k,1018) = lu(k,1018) - lu(k,652) * lu(k,1007) - lu(k,1019) = - lu(k,653) * lu(k,1007) - lu(k,1020) = lu(k,1020) - lu(k,654) * lu(k,1007) - lu(k,1022) = lu(k,1022) - lu(k,655) * lu(k,1007) - lu(k,1023) = lu(k,1023) - lu(k,656) * lu(k,1007) - lu(k,1024) = lu(k,1024) - lu(k,657) * lu(k,1007) - lu(k,1026) = lu(k,1026) - lu(k,658) * lu(k,1007) - lu(k,1027) = lu(k,1027) - lu(k,659) * lu(k,1007) - lu(k,1028) = lu(k,1028) - lu(k,660) * lu(k,1007) - lu(k,1029) = lu(k,1029) - lu(k,661) * lu(k,1007) - lu(k,1030) = lu(k,1030) - lu(k,662) * lu(k,1007) - lu(k,1031) = lu(k,1031) - lu(k,663) * lu(k,1007) - lu(k,1032) = lu(k,1032) - lu(k,664) * lu(k,1007) - lu(k,1033) = - lu(k,665) * lu(k,1007) - lu(k,1034) = - lu(k,666) * lu(k,1007) - lu(k,1035) = lu(k,1035) - lu(k,667) * lu(k,1007) - lu(k,1036) = lu(k,1036) - lu(k,668) * lu(k,1007) - lu(k,1050) = lu(k,1050) - lu(k,642) * lu(k,1049) - lu(k,1051) = lu(k,1051) - lu(k,643) * lu(k,1049) - lu(k,1052) = - lu(k,644) * lu(k,1049) - lu(k,1053) = lu(k,1053) - lu(k,645) * lu(k,1049) - lu(k,1054) = lu(k,1054) - lu(k,646) * lu(k,1049) - lu(k,1055) = lu(k,1055) - lu(k,647) * lu(k,1049) - lu(k,1056) = lu(k,1056) - lu(k,648) * lu(k,1049) - lu(k,1057) = - lu(k,649) * lu(k,1049) - lu(k,1058) = lu(k,1058) - lu(k,650) * lu(k,1049) - lu(k,1059) = lu(k,1059) - lu(k,651) * lu(k,1049) - lu(k,1060) = lu(k,1060) - lu(k,652) * lu(k,1049) - lu(k,1061) = - lu(k,653) * lu(k,1049) - lu(k,1062) = lu(k,1062) - lu(k,654) * lu(k,1049) - lu(k,1064) = lu(k,1064) - lu(k,655) * lu(k,1049) - lu(k,1065) = lu(k,1065) - lu(k,656) * lu(k,1049) - lu(k,1066) = lu(k,1066) - lu(k,657) * lu(k,1049) - lu(k,1068) = lu(k,1068) - lu(k,658) * lu(k,1049) - lu(k,1069) = lu(k,1069) - lu(k,659) * lu(k,1049) - lu(k,1070) = lu(k,1070) - lu(k,660) * lu(k,1049) - lu(k,1071) = lu(k,1071) - lu(k,661) * lu(k,1049) - lu(k,1072) = lu(k,1072) - lu(k,662) * lu(k,1049) - lu(k,1073) = lu(k,1073) - lu(k,663) * lu(k,1049) - lu(k,1074) = lu(k,1074) - lu(k,664) * lu(k,1049) - lu(k,1075) = - lu(k,665) * lu(k,1049) - lu(k,1076) = - lu(k,666) * lu(k,1049) - lu(k,1077) = lu(k,1077) - lu(k,667) * lu(k,1049) - lu(k,1078) = lu(k,1078) - lu(k,668) * lu(k,1049) - lu(k,1094) = lu(k,1094) - lu(k,642) * lu(k,1093) - lu(k,1095) = - lu(k,643) * lu(k,1093) - lu(k,1096) = lu(k,1096) - lu(k,644) * lu(k,1093) - lu(k,1097) = lu(k,1097) - lu(k,645) * lu(k,1093) - lu(k,1098) = lu(k,1098) - lu(k,646) * lu(k,1093) - lu(k,1099) = lu(k,1099) - lu(k,647) * lu(k,1093) - lu(k,1100) = lu(k,1100) - lu(k,648) * lu(k,1093) - lu(k,1101) = lu(k,1101) - lu(k,649) * lu(k,1093) - lu(k,1102) = - lu(k,650) * lu(k,1093) - lu(k,1103) = - lu(k,651) * lu(k,1093) - lu(k,1104) = - lu(k,652) * lu(k,1093) - lu(k,1105) = lu(k,1105) - lu(k,653) * lu(k,1093) - lu(k,1106) = - lu(k,654) * lu(k,1093) - lu(k,1108) = lu(k,1108) - lu(k,655) * lu(k,1093) - lu(k,1109) = lu(k,1109) - lu(k,656) * lu(k,1093) - lu(k,1110) = lu(k,1110) - lu(k,657) * lu(k,1093) - lu(k,1112) = lu(k,1112) - lu(k,658) * lu(k,1093) - lu(k,1113) = lu(k,1113) - lu(k,659) * lu(k,1093) - lu(k,1114) = lu(k,1114) - lu(k,660) * lu(k,1093) - lu(k,1115) = - lu(k,661) * lu(k,1093) - lu(k,1116) = lu(k,1116) - lu(k,662) * lu(k,1093) - lu(k,1117) = lu(k,1117) - lu(k,663) * lu(k,1093) - lu(k,1118) = lu(k,1118) - lu(k,664) * lu(k,1093) - lu(k,1119) = lu(k,1119) - lu(k,665) * lu(k,1093) - lu(k,1120) = lu(k,1120) - lu(k,666) * lu(k,1093) - lu(k,1121) = lu(k,1121) - lu(k,667) * lu(k,1093) - lu(k,1122) = lu(k,1122) - lu(k,668) * lu(k,1093) - lu(k,1135) = lu(k,1135) - lu(k,642) * lu(k,1134) - lu(k,1136) = lu(k,1136) - lu(k,643) * lu(k,1134) - lu(k,1137) = lu(k,1137) - lu(k,644) * lu(k,1134) - lu(k,1138) = lu(k,1138) - lu(k,645) * lu(k,1134) - lu(k,1139) = lu(k,1139) - lu(k,646) * lu(k,1134) - lu(k,1140) = lu(k,1140) - lu(k,647) * lu(k,1134) - lu(k,1141) = lu(k,1141) - lu(k,648) * lu(k,1134) - lu(k,1142) = - lu(k,649) * lu(k,1134) - lu(k,1143) = lu(k,1143) - lu(k,650) * lu(k,1134) - lu(k,1144) = lu(k,1144) - lu(k,651) * lu(k,1134) - lu(k,1145) = lu(k,1145) - lu(k,652) * lu(k,1134) - lu(k,1146) = - lu(k,653) * lu(k,1134) - lu(k,1147) = lu(k,1147) - lu(k,654) * lu(k,1134) - lu(k,1149) = lu(k,1149) - lu(k,655) * lu(k,1134) - lu(k,1150) = lu(k,1150) - lu(k,656) * lu(k,1134) - lu(k,1151) = lu(k,1151) - lu(k,657) * lu(k,1134) - lu(k,1153) = lu(k,1153) - lu(k,658) * lu(k,1134) - lu(k,1154) = lu(k,1154) - lu(k,659) * lu(k,1134) - lu(k,1155) = lu(k,1155) - lu(k,660) * lu(k,1134) - lu(k,1156) = lu(k,1156) - lu(k,661) * lu(k,1134) - lu(k,1157) = lu(k,1157) - lu(k,662) * lu(k,1134) - lu(k,1158) = lu(k,1158) - lu(k,663) * lu(k,1134) - lu(k,1159) = lu(k,1159) - lu(k,664) * lu(k,1134) - lu(k,1160) = - lu(k,665) * lu(k,1134) - lu(k,1161) = - lu(k,666) * lu(k,1134) - lu(k,1162) = lu(k,1162) - lu(k,667) * lu(k,1134) - lu(k,1163) = lu(k,1163) - lu(k,668) * lu(k,1134) - lu(k,1209) = lu(k,1209) - lu(k,642) * lu(k,1208) - lu(k,1210) = lu(k,1210) - lu(k,643) * lu(k,1208) - lu(k,1211) = lu(k,1211) - lu(k,644) * lu(k,1208) - lu(k,1212) = lu(k,1212) - lu(k,645) * lu(k,1208) - lu(k,1213) = lu(k,1213) - lu(k,646) * lu(k,1208) - lu(k,1214) = lu(k,1214) - lu(k,647) * lu(k,1208) - lu(k,1215) = lu(k,1215) - lu(k,648) * lu(k,1208) - lu(k,1216) = lu(k,1216) - lu(k,649) * lu(k,1208) - lu(k,1217) = - lu(k,650) * lu(k,1208) - lu(k,1218) = - lu(k,651) * lu(k,1208) - lu(k,1219) = - lu(k,652) * lu(k,1208) - lu(k,1220) = lu(k,1220) - lu(k,653) * lu(k,1208) - lu(k,1221) = lu(k,1221) - lu(k,654) * lu(k,1208) - lu(k,1223) = lu(k,1223) - lu(k,655) * lu(k,1208) - lu(k,1224) = lu(k,1224) - lu(k,656) * lu(k,1208) - lu(k,1225) = lu(k,1225) - lu(k,657) * lu(k,1208) - lu(k,1227) = lu(k,1227) - lu(k,658) * lu(k,1208) - lu(k,1228) = lu(k,1228) - lu(k,659) * lu(k,1208) - lu(k,1229) = lu(k,1229) - lu(k,660) * lu(k,1208) - lu(k,1230) = - lu(k,661) * lu(k,1208) - lu(k,1231) = lu(k,1231) - lu(k,662) * lu(k,1208) - lu(k,1232) = lu(k,1232) - lu(k,663) * lu(k,1208) - lu(k,1233) = lu(k,1233) - lu(k,664) * lu(k,1208) - lu(k,1234) = lu(k,1234) - lu(k,665) * lu(k,1208) - lu(k,1235) = lu(k,1235) - lu(k,666) * lu(k,1208) - lu(k,1236) = lu(k,1236) - lu(k,667) * lu(k,1208) - lu(k,1237) = lu(k,1237) - lu(k,668) * lu(k,1208) - lu(k,1256) = - lu(k,642) * lu(k,1255) - lu(k,1257) = lu(k,1257) - lu(k,643) * lu(k,1255) - lu(k,1258) = lu(k,1258) - lu(k,644) * lu(k,1255) - lu(k,1259) = lu(k,1259) - lu(k,645) * lu(k,1255) - lu(k,1260) = lu(k,1260) - lu(k,646) * lu(k,1255) - lu(k,1261) = lu(k,1261) - lu(k,647) * lu(k,1255) - lu(k,1262) = lu(k,1262) - lu(k,648) * lu(k,1255) - lu(k,1263) = lu(k,1263) - lu(k,649) * lu(k,1255) - lu(k,1264) = lu(k,1264) - lu(k,650) * lu(k,1255) - lu(k,1265) = - lu(k,651) * lu(k,1255) - lu(k,1266) = - lu(k,652) * lu(k,1255) - lu(k,1267) = lu(k,1267) - lu(k,653) * lu(k,1255) - lu(k,1268) = - lu(k,654) * lu(k,1255) - lu(k,1270) = lu(k,1270) - lu(k,655) * lu(k,1255) - lu(k,1271) = lu(k,1271) - lu(k,656) * lu(k,1255) - lu(k,1272) = lu(k,1272) - lu(k,657) * lu(k,1255) - lu(k,1274) = lu(k,1274) - lu(k,658) * lu(k,1255) - lu(k,1275) = lu(k,1275) - lu(k,659) * lu(k,1255) - lu(k,1276) = lu(k,1276) - lu(k,660) * lu(k,1255) - lu(k,1277) = - lu(k,661) * lu(k,1255) - lu(k,1278) = lu(k,1278) - lu(k,662) * lu(k,1255) - lu(k,1279) = lu(k,1279) - lu(k,663) * lu(k,1255) - lu(k,1280) = lu(k,1280) - lu(k,664) * lu(k,1255) - lu(k,1281) = lu(k,1281) - lu(k,665) * lu(k,1255) - lu(k,1282) = lu(k,1282) - lu(k,666) * lu(k,1255) - lu(k,1283) = lu(k,1283) - lu(k,667) * lu(k,1255) - lu(k,1284) = lu(k,1284) - lu(k,668) * lu(k,1255) - lu(k,1300) = lu(k,1300) - lu(k,642) * lu(k,1299) - lu(k,1301) = lu(k,1301) - lu(k,643) * lu(k,1299) - lu(k,1302) = lu(k,1302) - lu(k,644) * lu(k,1299) - lu(k,1303) = lu(k,1303) - lu(k,645) * lu(k,1299) - lu(k,1304) = - lu(k,646) * lu(k,1299) - lu(k,1305) = lu(k,1305) - lu(k,647) * lu(k,1299) - lu(k,1306) = lu(k,1306) - lu(k,648) * lu(k,1299) - lu(k,1307) = lu(k,1307) - lu(k,649) * lu(k,1299) - lu(k,1308) = lu(k,1308) - lu(k,650) * lu(k,1299) - lu(k,1309) = lu(k,1309) - lu(k,651) * lu(k,1299) - lu(k,1310) = lu(k,1310) - lu(k,652) * lu(k,1299) - lu(k,1311) = lu(k,1311) - lu(k,653) * lu(k,1299) - lu(k,1312) = lu(k,1312) - lu(k,654) * lu(k,1299) - lu(k,1314) = lu(k,1314) - lu(k,655) * lu(k,1299) - lu(k,1315) = lu(k,1315) - lu(k,656) * lu(k,1299) - lu(k,1316) = lu(k,1316) - lu(k,657) * lu(k,1299) - lu(k,1318) = lu(k,1318) - lu(k,658) * lu(k,1299) - lu(k,1319) = lu(k,1319) - lu(k,659) * lu(k,1299) - lu(k,1320) = lu(k,1320) - lu(k,660) * lu(k,1299) - lu(k,1321) = lu(k,1321) - lu(k,661) * lu(k,1299) - lu(k,1322) = lu(k,1322) - lu(k,662) * lu(k,1299) - lu(k,1323) = lu(k,1323) - lu(k,663) * lu(k,1299) - lu(k,1324) = lu(k,1324) - lu(k,664) * lu(k,1299) - lu(k,1325) = lu(k,1325) - lu(k,665) * lu(k,1299) - lu(k,1326) = lu(k,1326) - lu(k,666) * lu(k,1299) - lu(k,1327) = lu(k,1327) - lu(k,667) * lu(k,1299) - lu(k,1328) = lu(k,1328) - lu(k,668) * lu(k,1299) - lu(k,1374) = lu(k,1374) - lu(k,642) * lu(k,1373) - lu(k,1375) = lu(k,1375) - lu(k,643) * lu(k,1373) - lu(k,1376) = lu(k,1376) - lu(k,644) * lu(k,1373) - lu(k,1377) = lu(k,1377) - lu(k,645) * lu(k,1373) - lu(k,1378) = lu(k,1378) - lu(k,646) * lu(k,1373) - lu(k,1379) = lu(k,1379) - lu(k,647) * lu(k,1373) - lu(k,1380) = lu(k,1380) - lu(k,648) * lu(k,1373) - lu(k,1381) = lu(k,1381) - lu(k,649) * lu(k,1373) - lu(k,1382) = lu(k,1382) - lu(k,650) * lu(k,1373) - lu(k,1383) = lu(k,1383) - lu(k,651) * lu(k,1373) - lu(k,1384) = lu(k,1384) - lu(k,652) * lu(k,1373) - lu(k,1385) = lu(k,1385) - lu(k,653) * lu(k,1373) - lu(k,1386) = lu(k,1386) - lu(k,654) * lu(k,1373) - lu(k,1388) = lu(k,1388) - lu(k,655) * lu(k,1373) - lu(k,1389) = lu(k,1389) - lu(k,656) * lu(k,1373) - lu(k,1390) = lu(k,1390) - lu(k,657) * lu(k,1373) - lu(k,1392) = lu(k,1392) - lu(k,658) * lu(k,1373) - lu(k,1393) = lu(k,1393) - lu(k,659) * lu(k,1373) - lu(k,1394) = lu(k,1394) - lu(k,660) * lu(k,1373) - lu(k,1395) = lu(k,1395) - lu(k,661) * lu(k,1373) - lu(k,1396) = lu(k,1396) - lu(k,662) * lu(k,1373) - lu(k,1397) = lu(k,1397) - lu(k,663) * lu(k,1373) - lu(k,1398) = lu(k,1398) - lu(k,664) * lu(k,1373) - lu(k,1399) = lu(k,1399) - lu(k,665) * lu(k,1373) - lu(k,1400) = lu(k,1400) - lu(k,666) * lu(k,1373) - lu(k,1401) = lu(k,1401) - lu(k,667) * lu(k,1373) - lu(k,1402) = lu(k,1402) - lu(k,668) * lu(k,1373) - lu(k,1418) = lu(k,1418) - lu(k,642) * lu(k,1417) - lu(k,1419) = lu(k,1419) - lu(k,643) * lu(k,1417) - lu(k,1420) = lu(k,1420) - lu(k,644) * lu(k,1417) - lu(k,1421) = lu(k,1421) - lu(k,645) * lu(k,1417) - lu(k,1422) = lu(k,1422) - lu(k,646) * lu(k,1417) - lu(k,1423) = lu(k,1423) - lu(k,647) * lu(k,1417) - lu(k,1424) = lu(k,1424) - lu(k,648) * lu(k,1417) - lu(k,1425) = lu(k,1425) - lu(k,649) * lu(k,1417) - lu(k,1426) = lu(k,1426) - lu(k,650) * lu(k,1417) - lu(k,1427) = lu(k,1427) - lu(k,651) * lu(k,1417) - lu(k,1428) = lu(k,1428) - lu(k,652) * lu(k,1417) - lu(k,1429) = lu(k,1429) - lu(k,653) * lu(k,1417) - lu(k,1430) = lu(k,1430) - lu(k,654) * lu(k,1417) - lu(k,1432) = lu(k,1432) - lu(k,655) * lu(k,1417) - lu(k,1433) = lu(k,1433) - lu(k,656) * lu(k,1417) - lu(k,1434) = lu(k,1434) - lu(k,657) * lu(k,1417) - lu(k,1436) = lu(k,1436) - lu(k,658) * lu(k,1417) - lu(k,1437) = lu(k,1437) - lu(k,659) * lu(k,1417) - lu(k,1438) = lu(k,1438) - lu(k,660) * lu(k,1417) - lu(k,1439) = lu(k,1439) - lu(k,661) * lu(k,1417) - lu(k,1440) = lu(k,1440) - lu(k,662) * lu(k,1417) - lu(k,1441) = lu(k,1441) - lu(k,663) * lu(k,1417) - lu(k,1442) = lu(k,1442) - lu(k,664) * lu(k,1417) - lu(k,1443) = lu(k,1443) - lu(k,665) * lu(k,1417) - lu(k,1444) = lu(k,1444) - lu(k,666) * lu(k,1417) - lu(k,1445) = lu(k,1445) - lu(k,667) * lu(k,1417) - lu(k,1446) = lu(k,1446) - lu(k,668) * lu(k,1417) - lu(k,1506) = lu(k,1506) - lu(k,642) * lu(k,1505) - lu(k,1507) = lu(k,1507) - lu(k,643) * lu(k,1505) - lu(k,1508) = - lu(k,644) * lu(k,1505) - lu(k,1509) = lu(k,1509) - lu(k,645) * lu(k,1505) - lu(k,1510) = lu(k,1510) - lu(k,646) * lu(k,1505) - lu(k,1511) = lu(k,1511) - lu(k,647) * lu(k,1505) - lu(k,1512) = lu(k,1512) - lu(k,648) * lu(k,1505) - lu(k,1513) = - lu(k,649) * lu(k,1505) - lu(k,1514) = lu(k,1514) - lu(k,650) * lu(k,1505) - lu(k,1515) = lu(k,1515) - lu(k,651) * lu(k,1505) - lu(k,1516) = lu(k,1516) - lu(k,652) * lu(k,1505) - lu(k,1517) = - lu(k,653) * lu(k,1505) - lu(k,1518) = lu(k,1518) - lu(k,654) * lu(k,1505) - lu(k,1520) = lu(k,1520) - lu(k,655) * lu(k,1505) - lu(k,1521) = lu(k,1521) - lu(k,656) * lu(k,1505) - lu(k,1522) = lu(k,1522) - lu(k,657) * lu(k,1505) - lu(k,1524) = lu(k,1524) - lu(k,658) * lu(k,1505) - lu(k,1525) = lu(k,1525) - lu(k,659) * lu(k,1505) - lu(k,1526) = lu(k,1526) - lu(k,660) * lu(k,1505) - lu(k,1527) = lu(k,1527) - lu(k,661) * lu(k,1505) - lu(k,1528) = lu(k,1528) - lu(k,662) * lu(k,1505) - lu(k,1529) = lu(k,1529) - lu(k,663) * lu(k,1505) - lu(k,1530) = lu(k,1530) - lu(k,664) * lu(k,1505) - lu(k,1531) = - lu(k,665) * lu(k,1505) - lu(k,1532) = - lu(k,666) * lu(k,1505) - lu(k,1533) = lu(k,1533) - lu(k,667) * lu(k,1505) - lu(k,1534) = lu(k,1534) - lu(k,668) * lu(k,1505) - lu(k,1604) = lu(k,1604) - lu(k,642) * lu(k,1603) - lu(k,1605) = lu(k,1605) - lu(k,643) * lu(k,1603) - lu(k,1606) = lu(k,1606) - lu(k,644) * lu(k,1603) - lu(k,1607) = lu(k,1607) - lu(k,645) * lu(k,1603) - lu(k,1608) = lu(k,1608) - lu(k,646) * lu(k,1603) - lu(k,1609) = lu(k,1609) - lu(k,647) * lu(k,1603) - lu(k,1610) = lu(k,1610) - lu(k,648) * lu(k,1603) - lu(k,1611) = lu(k,1611) - lu(k,649) * lu(k,1603) - lu(k,1612) = lu(k,1612) - lu(k,650) * lu(k,1603) - lu(k,1613) = - lu(k,651) * lu(k,1603) - lu(k,1614) = - lu(k,652) * lu(k,1603) - lu(k,1615) = lu(k,1615) - lu(k,653) * lu(k,1603) - lu(k,1616) = - lu(k,654) * lu(k,1603) - lu(k,1618) = lu(k,1618) - lu(k,655) * lu(k,1603) - lu(k,1619) = lu(k,1619) - lu(k,656) * lu(k,1603) - lu(k,1620) = lu(k,1620) - lu(k,657) * lu(k,1603) - lu(k,1622) = lu(k,1622) - lu(k,658) * lu(k,1603) - lu(k,1623) = lu(k,1623) - lu(k,659) * lu(k,1603) - lu(k,1624) = lu(k,1624) - lu(k,660) * lu(k,1603) - lu(k,1625) = - lu(k,661) * lu(k,1603) - lu(k,1626) = lu(k,1626) - lu(k,662) * lu(k,1603) - lu(k,1627) = lu(k,1627) - lu(k,663) * lu(k,1603) - lu(k,1628) = lu(k,1628) - lu(k,664) * lu(k,1603) - lu(k,1629) = lu(k,1629) - lu(k,665) * lu(k,1603) - lu(k,1630) = lu(k,1630) - lu(k,666) * lu(k,1603) - lu(k,1631) = lu(k,1631) - lu(k,667) * lu(k,1603) - lu(k,1632) = lu(k,1632) - lu(k,668) * lu(k,1603) - lu(k,1742) = lu(k,1742) - lu(k,642) * lu(k,1741) - lu(k,1743) = lu(k,1743) - lu(k,643) * lu(k,1741) - lu(k,1744) = - lu(k,644) * lu(k,1741) - lu(k,1745) = lu(k,1745) - lu(k,645) * lu(k,1741) - lu(k,1746) = lu(k,1746) - lu(k,646) * lu(k,1741) - lu(k,1747) = lu(k,1747) - lu(k,647) * lu(k,1741) - lu(k,1748) = lu(k,1748) - lu(k,648) * lu(k,1741) - lu(k,1749) = - lu(k,649) * lu(k,1741) - lu(k,1750) = lu(k,1750) - lu(k,650) * lu(k,1741) - lu(k,1751) = lu(k,1751) - lu(k,651) * lu(k,1741) - lu(k,1752) = lu(k,1752) - lu(k,652) * lu(k,1741) - lu(k,1753) = - lu(k,653) * lu(k,1741) - lu(k,1754) = lu(k,1754) - lu(k,654) * lu(k,1741) - lu(k,1756) = lu(k,1756) - lu(k,655) * lu(k,1741) - lu(k,1757) = lu(k,1757) - lu(k,656) * lu(k,1741) - lu(k,1758) = lu(k,1758) - lu(k,657) * lu(k,1741) - lu(k,1760) = lu(k,1760) - lu(k,658) * lu(k,1741) - lu(k,1761) = lu(k,1761) - lu(k,659) * lu(k,1741) - lu(k,1762) = lu(k,1762) - lu(k,660) * lu(k,1741) - lu(k,1763) = lu(k,1763) - lu(k,661) * lu(k,1741) - lu(k,1764) = lu(k,1764) - lu(k,662) * lu(k,1741) - lu(k,1765) = lu(k,1765) - lu(k,663) * lu(k,1741) - lu(k,1766) = lu(k,1766) - lu(k,664) * lu(k,1741) - lu(k,1767) = - lu(k,665) * lu(k,1741) - lu(k,1768) = - lu(k,666) * lu(k,1741) - lu(k,1769) = lu(k,1769) - lu(k,667) * lu(k,1741) - lu(k,1770) = lu(k,1770) - lu(k,668) * lu(k,1741) - 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,671) = 1._r8 / lu(k,671) - lu(k,672) = lu(k,672) * lu(k,671) - lu(k,673) = lu(k,673) * lu(k,671) - lu(k,674) = lu(k,674) * lu(k,671) - lu(k,675) = lu(k,675) * lu(k,671) - lu(k,676) = lu(k,676) * lu(k,671) - lu(k,677) = lu(k,677) * lu(k,671) - lu(k,678) = lu(k,678) * lu(k,671) - lu(k,679) = lu(k,679) * lu(k,671) - lu(k,680) = lu(k,680) * lu(k,671) - lu(k,681) = lu(k,681) * lu(k,671) - lu(k,682) = lu(k,682) * lu(k,671) - lu(k,683) = lu(k,683) * lu(k,671) - lu(k,684) = lu(k,684) * lu(k,671) - lu(k,685) = lu(k,685) * lu(k,671) - lu(k,686) = lu(k,686) * lu(k,671) - lu(k,687) = lu(k,687) * lu(k,671) - lu(k,688) = lu(k,688) * lu(k,671) - lu(k,689) = lu(k,689) * lu(k,671) - lu(k,694) = lu(k,694) - lu(k,672) * lu(k,693) - lu(k,695) = lu(k,695) - lu(k,673) * lu(k,693) - lu(k,696) = - lu(k,674) * lu(k,693) - lu(k,698) = lu(k,698) - lu(k,675) * lu(k,693) - lu(k,699) = lu(k,699) - lu(k,676) * lu(k,693) - lu(k,700) = lu(k,700) - lu(k,677) * lu(k,693) - lu(k,701) = lu(k,701) - lu(k,678) * lu(k,693) - lu(k,703) = lu(k,703) - lu(k,679) * lu(k,693) - lu(k,704) = lu(k,704) - lu(k,680) * lu(k,693) - lu(k,705) = lu(k,705) - lu(k,681) * lu(k,693) - lu(k,706) = lu(k,706) - lu(k,682) * lu(k,693) - lu(k,707) = lu(k,707) - lu(k,683) * lu(k,693) - lu(k,708) = lu(k,708) - lu(k,684) * lu(k,693) - lu(k,709) = lu(k,709) - lu(k,685) * lu(k,693) - lu(k,710) = lu(k,710) - lu(k,686) * lu(k,693) - lu(k,712) = lu(k,712) - lu(k,687) * lu(k,693) - lu(k,713) = lu(k,713) - lu(k,688) * lu(k,693) - lu(k,714) = lu(k,714) - lu(k,689) * lu(k,693) - lu(k,801) = lu(k,801) - lu(k,672) * lu(k,800) - lu(k,804) = lu(k,804) - lu(k,673) * lu(k,800) - lu(k,805) = lu(k,805) - lu(k,674) * lu(k,800) - lu(k,807) = lu(k,807) - lu(k,675) * lu(k,800) - lu(k,808) = lu(k,808) - lu(k,676) * lu(k,800) - lu(k,809) = lu(k,809) - lu(k,677) * lu(k,800) - lu(k,811) = lu(k,811) - lu(k,678) * lu(k,800) - lu(k,813) = lu(k,813) - lu(k,679) * lu(k,800) - lu(k,814) = lu(k,814) - lu(k,680) * lu(k,800) - lu(k,815) = - lu(k,681) * lu(k,800) - lu(k,816) = lu(k,816) - lu(k,682) * lu(k,800) - lu(k,818) = lu(k,818) - lu(k,683) * lu(k,800) - lu(k,819) = lu(k,819) - lu(k,684) * lu(k,800) - lu(k,820) = lu(k,820) - lu(k,685) * lu(k,800) - lu(k,821) = lu(k,821) - lu(k,686) * lu(k,800) - lu(k,823) = lu(k,823) - lu(k,687) * lu(k,800) - lu(k,826) = lu(k,826) - lu(k,688) * lu(k,800) - lu(k,827) = lu(k,827) - lu(k,689) * lu(k,800) - lu(k,881) = lu(k,881) - lu(k,672) * lu(k,880) - lu(k,885) = lu(k,885) - lu(k,673) * lu(k,880) - lu(k,886) = lu(k,886) - lu(k,674) * lu(k,880) - lu(k,888) = lu(k,888) - lu(k,675) * lu(k,880) - lu(k,889) = lu(k,889) - lu(k,676) * lu(k,880) - lu(k,890) = lu(k,890) - lu(k,677) * lu(k,880) - lu(k,892) = lu(k,892) - lu(k,678) * lu(k,880) - lu(k,894) = lu(k,894) - lu(k,679) * lu(k,880) - lu(k,895) = lu(k,895) - lu(k,680) * lu(k,880) - lu(k,896) = lu(k,896) - lu(k,681) * lu(k,880) - lu(k,897) = lu(k,897) - lu(k,682) * lu(k,880) - lu(k,899) = lu(k,899) - lu(k,683) * lu(k,880) - lu(k,900) = lu(k,900) - lu(k,684) * lu(k,880) - lu(k,901) = lu(k,901) - lu(k,685) * lu(k,880) - lu(k,902) = lu(k,902) - lu(k,686) * lu(k,880) - lu(k,904) = lu(k,904) - lu(k,687) * lu(k,880) - lu(k,907) = lu(k,907) - lu(k,688) * lu(k,880) - lu(k,908) = lu(k,908) - lu(k,689) * lu(k,880) - lu(k,922) = lu(k,922) - lu(k,672) * lu(k,921) - lu(k,926) = lu(k,926) - lu(k,673) * lu(k,921) - lu(k,927) = lu(k,927) - lu(k,674) * lu(k,921) - lu(k,929) = lu(k,929) - lu(k,675) * lu(k,921) - lu(k,930) = lu(k,930) - lu(k,676) * lu(k,921) - lu(k,931) = lu(k,931) - lu(k,677) * lu(k,921) - lu(k,933) = lu(k,933) - lu(k,678) * lu(k,921) - lu(k,935) = lu(k,935) - lu(k,679) * lu(k,921) - lu(k,936) = lu(k,936) - lu(k,680) * lu(k,921) - lu(k,937) = lu(k,937) - lu(k,681) * lu(k,921) - lu(k,938) = lu(k,938) - lu(k,682) * lu(k,921) - lu(k,940) = lu(k,940) - lu(k,683) * lu(k,921) - lu(k,941) = lu(k,941) - lu(k,684) * lu(k,921) - lu(k,942) = lu(k,942) - lu(k,685) * lu(k,921) - lu(k,943) = lu(k,943) - lu(k,686) * lu(k,921) - lu(k,945) = lu(k,945) - lu(k,687) * lu(k,921) - lu(k,948) = lu(k,948) - lu(k,688) * lu(k,921) - lu(k,949) = lu(k,949) - lu(k,689) * lu(k,921) - lu(k,967) = lu(k,967) - lu(k,672) * lu(k,966) - lu(k,971) = lu(k,971) - lu(k,673) * lu(k,966) - lu(k,972) = lu(k,972) - lu(k,674) * lu(k,966) - lu(k,974) = lu(k,974) - lu(k,675) * lu(k,966) - lu(k,975) = lu(k,975) - lu(k,676) * lu(k,966) - lu(k,976) = lu(k,976) - lu(k,677) * lu(k,966) - lu(k,978) = lu(k,978) - lu(k,678) * lu(k,966) - lu(k,980) = lu(k,980) - lu(k,679) * lu(k,966) - lu(k,981) = lu(k,981) - lu(k,680) * lu(k,966) - lu(k,982) = lu(k,982) - lu(k,681) * lu(k,966) - lu(k,983) = lu(k,983) - lu(k,682) * lu(k,966) - lu(k,985) = lu(k,985) - lu(k,683) * lu(k,966) - lu(k,986) = lu(k,986) - lu(k,684) * lu(k,966) - lu(k,987) = lu(k,987) - lu(k,685) * lu(k,966) - lu(k,988) = lu(k,988) - lu(k,686) * lu(k,966) - lu(k,990) = lu(k,990) - lu(k,687) * lu(k,966) - lu(k,993) = lu(k,993) - lu(k,688) * lu(k,966) - lu(k,994) = lu(k,994) - lu(k,689) * lu(k,966) - lu(k,1009) = lu(k,1009) - lu(k,672) * lu(k,1008) - lu(k,1013) = lu(k,1013) - lu(k,673) * lu(k,1008) - lu(k,1014) = lu(k,1014) - lu(k,674) * lu(k,1008) - lu(k,1016) = lu(k,1016) - lu(k,675) * lu(k,1008) - lu(k,1017) = lu(k,1017) - lu(k,676) * lu(k,1008) - lu(k,1018) = lu(k,1018) - lu(k,677) * lu(k,1008) - lu(k,1020) = lu(k,1020) - lu(k,678) * lu(k,1008) - lu(k,1022) = lu(k,1022) - lu(k,679) * lu(k,1008) - lu(k,1023) = lu(k,1023) - lu(k,680) * lu(k,1008) - lu(k,1024) = lu(k,1024) - lu(k,681) * lu(k,1008) - lu(k,1025) = lu(k,1025) - lu(k,682) * lu(k,1008) - lu(k,1027) = lu(k,1027) - lu(k,683) * lu(k,1008) - lu(k,1028) = lu(k,1028) - lu(k,684) * lu(k,1008) - lu(k,1029) = lu(k,1029) - lu(k,685) * lu(k,1008) - lu(k,1030) = lu(k,1030) - lu(k,686) * lu(k,1008) - lu(k,1032) = lu(k,1032) - lu(k,687) * lu(k,1008) - lu(k,1035) = lu(k,1035) - lu(k,688) * lu(k,1008) - lu(k,1036) = lu(k,1036) - lu(k,689) * lu(k,1008) - lu(k,1051) = lu(k,1051) - lu(k,672) * lu(k,1050) - lu(k,1055) = lu(k,1055) - lu(k,673) * lu(k,1050) - lu(k,1056) = lu(k,1056) - lu(k,674) * lu(k,1050) - lu(k,1058) = lu(k,1058) - lu(k,675) * lu(k,1050) - lu(k,1059) = lu(k,1059) - lu(k,676) * lu(k,1050) - lu(k,1060) = lu(k,1060) - lu(k,677) * lu(k,1050) - lu(k,1062) = lu(k,1062) - lu(k,678) * lu(k,1050) - lu(k,1064) = lu(k,1064) - lu(k,679) * lu(k,1050) - lu(k,1065) = lu(k,1065) - lu(k,680) * lu(k,1050) - lu(k,1066) = lu(k,1066) - lu(k,681) * lu(k,1050) - lu(k,1067) = lu(k,1067) - lu(k,682) * lu(k,1050) - lu(k,1069) = lu(k,1069) - lu(k,683) * lu(k,1050) - lu(k,1070) = lu(k,1070) - lu(k,684) * lu(k,1050) - lu(k,1071) = lu(k,1071) - lu(k,685) * lu(k,1050) - lu(k,1072) = lu(k,1072) - lu(k,686) * lu(k,1050) - lu(k,1074) = lu(k,1074) - lu(k,687) * lu(k,1050) - lu(k,1077) = lu(k,1077) - lu(k,688) * lu(k,1050) - lu(k,1078) = lu(k,1078) - lu(k,689) * lu(k,1050) - lu(k,1095) = lu(k,1095) - lu(k,672) * lu(k,1094) - lu(k,1099) = lu(k,1099) - lu(k,673) * lu(k,1094) - lu(k,1100) = lu(k,1100) - lu(k,674) * lu(k,1094) - lu(k,1102) = lu(k,1102) - lu(k,675) * lu(k,1094) - lu(k,1103) = lu(k,1103) - lu(k,676) * lu(k,1094) - lu(k,1104) = lu(k,1104) - lu(k,677) * lu(k,1094) - lu(k,1106) = lu(k,1106) - lu(k,678) * lu(k,1094) - lu(k,1108) = lu(k,1108) - lu(k,679) * lu(k,1094) - lu(k,1109) = lu(k,1109) - lu(k,680) * lu(k,1094) - lu(k,1110) = lu(k,1110) - lu(k,681) * lu(k,1094) - lu(k,1111) = lu(k,1111) - lu(k,682) * lu(k,1094) - lu(k,1113) = lu(k,1113) - lu(k,683) * lu(k,1094) - lu(k,1114) = lu(k,1114) - lu(k,684) * lu(k,1094) - lu(k,1115) = lu(k,1115) - lu(k,685) * lu(k,1094) - lu(k,1116) = lu(k,1116) - lu(k,686) * lu(k,1094) - lu(k,1118) = lu(k,1118) - lu(k,687) * lu(k,1094) - lu(k,1121) = lu(k,1121) - lu(k,688) * lu(k,1094) - lu(k,1122) = lu(k,1122) - lu(k,689) * lu(k,1094) - lu(k,1136) = lu(k,1136) - lu(k,672) * lu(k,1135) - lu(k,1140) = lu(k,1140) - lu(k,673) * lu(k,1135) - lu(k,1141) = lu(k,1141) - lu(k,674) * lu(k,1135) - lu(k,1143) = lu(k,1143) - lu(k,675) * lu(k,1135) - lu(k,1144) = lu(k,1144) - lu(k,676) * lu(k,1135) - lu(k,1145) = lu(k,1145) - lu(k,677) * lu(k,1135) - lu(k,1147) = lu(k,1147) - lu(k,678) * lu(k,1135) - lu(k,1149) = lu(k,1149) - lu(k,679) * lu(k,1135) - lu(k,1150) = lu(k,1150) - lu(k,680) * lu(k,1135) - lu(k,1151) = lu(k,1151) - lu(k,681) * lu(k,1135) - lu(k,1152) = lu(k,1152) - lu(k,682) * lu(k,1135) - lu(k,1154) = lu(k,1154) - lu(k,683) * lu(k,1135) - lu(k,1155) = lu(k,1155) - lu(k,684) * lu(k,1135) - lu(k,1156) = lu(k,1156) - lu(k,685) * lu(k,1135) - lu(k,1157) = lu(k,1157) - lu(k,686) * lu(k,1135) - lu(k,1159) = lu(k,1159) - lu(k,687) * lu(k,1135) - lu(k,1162) = lu(k,1162) - lu(k,688) * lu(k,1135) - lu(k,1163) = lu(k,1163) - lu(k,689) * lu(k,1135) - lu(k,1210) = lu(k,1210) - lu(k,672) * lu(k,1209) - lu(k,1214) = lu(k,1214) - lu(k,673) * lu(k,1209) - lu(k,1215) = lu(k,1215) - lu(k,674) * lu(k,1209) - lu(k,1217) = lu(k,1217) - lu(k,675) * lu(k,1209) - lu(k,1218) = lu(k,1218) - lu(k,676) * lu(k,1209) - lu(k,1219) = lu(k,1219) - lu(k,677) * lu(k,1209) - lu(k,1221) = lu(k,1221) - lu(k,678) * lu(k,1209) - lu(k,1223) = lu(k,1223) - lu(k,679) * lu(k,1209) - lu(k,1224) = lu(k,1224) - lu(k,680) * lu(k,1209) - lu(k,1225) = lu(k,1225) - lu(k,681) * lu(k,1209) - lu(k,1226) = lu(k,1226) - lu(k,682) * lu(k,1209) - lu(k,1228) = lu(k,1228) - lu(k,683) * lu(k,1209) - lu(k,1229) = lu(k,1229) - lu(k,684) * lu(k,1209) - lu(k,1230) = lu(k,1230) - lu(k,685) * lu(k,1209) - lu(k,1231) = lu(k,1231) - lu(k,686) * lu(k,1209) - lu(k,1233) = lu(k,1233) - lu(k,687) * lu(k,1209) - lu(k,1236) = lu(k,1236) - lu(k,688) * lu(k,1209) - lu(k,1237) = lu(k,1237) - lu(k,689) * lu(k,1209) - lu(k,1257) = lu(k,1257) - lu(k,672) * lu(k,1256) - lu(k,1261) = lu(k,1261) - lu(k,673) * lu(k,1256) - lu(k,1262) = lu(k,1262) - lu(k,674) * lu(k,1256) - lu(k,1264) = lu(k,1264) - lu(k,675) * lu(k,1256) - lu(k,1265) = lu(k,1265) - lu(k,676) * lu(k,1256) - lu(k,1266) = lu(k,1266) - lu(k,677) * lu(k,1256) - lu(k,1268) = lu(k,1268) - lu(k,678) * lu(k,1256) - lu(k,1270) = lu(k,1270) - lu(k,679) * lu(k,1256) - lu(k,1271) = lu(k,1271) - lu(k,680) * lu(k,1256) - lu(k,1272) = lu(k,1272) - lu(k,681) * lu(k,1256) - lu(k,1273) = lu(k,1273) - lu(k,682) * lu(k,1256) - lu(k,1275) = lu(k,1275) - lu(k,683) * lu(k,1256) - lu(k,1276) = lu(k,1276) - lu(k,684) * lu(k,1256) - lu(k,1277) = lu(k,1277) - lu(k,685) * lu(k,1256) - lu(k,1278) = lu(k,1278) - lu(k,686) * lu(k,1256) - lu(k,1280) = lu(k,1280) - lu(k,687) * lu(k,1256) - lu(k,1283) = lu(k,1283) - lu(k,688) * lu(k,1256) - lu(k,1284) = lu(k,1284) - lu(k,689) * lu(k,1256) - lu(k,1301) = lu(k,1301) - lu(k,672) * lu(k,1300) - lu(k,1305) = lu(k,1305) - lu(k,673) * lu(k,1300) - lu(k,1306) = lu(k,1306) - lu(k,674) * lu(k,1300) - lu(k,1308) = lu(k,1308) - lu(k,675) * lu(k,1300) - lu(k,1309) = lu(k,1309) - lu(k,676) * lu(k,1300) - lu(k,1310) = lu(k,1310) - lu(k,677) * lu(k,1300) - lu(k,1312) = lu(k,1312) - lu(k,678) * lu(k,1300) - lu(k,1314) = lu(k,1314) - lu(k,679) * lu(k,1300) - lu(k,1315) = lu(k,1315) - lu(k,680) * lu(k,1300) - lu(k,1316) = lu(k,1316) - lu(k,681) * lu(k,1300) - lu(k,1317) = lu(k,1317) - lu(k,682) * lu(k,1300) - lu(k,1319) = lu(k,1319) - lu(k,683) * lu(k,1300) - lu(k,1320) = lu(k,1320) - lu(k,684) * lu(k,1300) - lu(k,1321) = lu(k,1321) - lu(k,685) * lu(k,1300) - lu(k,1322) = lu(k,1322) - lu(k,686) * lu(k,1300) - lu(k,1324) = lu(k,1324) - lu(k,687) * lu(k,1300) - lu(k,1327) = lu(k,1327) - lu(k,688) * lu(k,1300) - lu(k,1328) = lu(k,1328) - lu(k,689) * lu(k,1300) - lu(k,1340) = lu(k,1340) - lu(k,672) * lu(k,1339) - lu(k,1344) = lu(k,1344) - lu(k,673) * lu(k,1339) - lu(k,1345) = lu(k,1345) - lu(k,674) * lu(k,1339) - lu(k,1347) = lu(k,1347) - lu(k,675) * lu(k,1339) - lu(k,1348) = lu(k,1348) - lu(k,676) * lu(k,1339) - lu(k,1349) = lu(k,1349) - lu(k,677) * lu(k,1339) - lu(k,1351) = lu(k,1351) - lu(k,678) * lu(k,1339) - lu(k,1353) = lu(k,1353) - lu(k,679) * lu(k,1339) - lu(k,1354) = lu(k,1354) - lu(k,680) * lu(k,1339) - lu(k,1355) = lu(k,1355) - lu(k,681) * lu(k,1339) - lu(k,1356) = lu(k,1356) - lu(k,682) * lu(k,1339) - lu(k,1358) = lu(k,1358) - lu(k,683) * lu(k,1339) - lu(k,1359) = lu(k,1359) - lu(k,684) * lu(k,1339) - lu(k,1360) = lu(k,1360) - lu(k,685) * lu(k,1339) - lu(k,1361) = lu(k,1361) - lu(k,686) * lu(k,1339) - lu(k,1363) = lu(k,1363) - lu(k,687) * lu(k,1339) - lu(k,1366) = lu(k,1366) - lu(k,688) * lu(k,1339) - lu(k,1367) = lu(k,1367) - lu(k,689) * lu(k,1339) - lu(k,1375) = lu(k,1375) - lu(k,672) * lu(k,1374) - lu(k,1379) = lu(k,1379) - lu(k,673) * lu(k,1374) - lu(k,1380) = lu(k,1380) - lu(k,674) * lu(k,1374) - lu(k,1382) = lu(k,1382) - lu(k,675) * lu(k,1374) - lu(k,1383) = lu(k,1383) - lu(k,676) * lu(k,1374) - lu(k,1384) = lu(k,1384) - lu(k,677) * lu(k,1374) - lu(k,1386) = lu(k,1386) - lu(k,678) * lu(k,1374) - lu(k,1388) = lu(k,1388) - lu(k,679) * lu(k,1374) - lu(k,1389) = lu(k,1389) - lu(k,680) * lu(k,1374) - lu(k,1390) = lu(k,1390) - lu(k,681) * lu(k,1374) - lu(k,1391) = lu(k,1391) - lu(k,682) * lu(k,1374) - lu(k,1393) = lu(k,1393) - lu(k,683) * lu(k,1374) - lu(k,1394) = lu(k,1394) - lu(k,684) * lu(k,1374) - lu(k,1395) = lu(k,1395) - lu(k,685) * lu(k,1374) - lu(k,1396) = lu(k,1396) - lu(k,686) * lu(k,1374) - lu(k,1398) = lu(k,1398) - lu(k,687) * lu(k,1374) - lu(k,1401) = lu(k,1401) - lu(k,688) * lu(k,1374) - lu(k,1402) = lu(k,1402) - lu(k,689) * lu(k,1374) - lu(k,1419) = lu(k,1419) - lu(k,672) * lu(k,1418) - lu(k,1423) = lu(k,1423) - lu(k,673) * lu(k,1418) - lu(k,1424) = lu(k,1424) - lu(k,674) * lu(k,1418) - lu(k,1426) = lu(k,1426) - lu(k,675) * lu(k,1418) - lu(k,1427) = lu(k,1427) - lu(k,676) * lu(k,1418) - lu(k,1428) = lu(k,1428) - lu(k,677) * lu(k,1418) - lu(k,1430) = lu(k,1430) - lu(k,678) * lu(k,1418) - lu(k,1432) = lu(k,1432) - lu(k,679) * lu(k,1418) - lu(k,1433) = lu(k,1433) - lu(k,680) * lu(k,1418) - lu(k,1434) = lu(k,1434) - lu(k,681) * lu(k,1418) - lu(k,1435) = lu(k,1435) - lu(k,682) * lu(k,1418) - lu(k,1437) = lu(k,1437) - lu(k,683) * lu(k,1418) - lu(k,1438) = lu(k,1438) - lu(k,684) * lu(k,1418) - lu(k,1439) = lu(k,1439) - lu(k,685) * lu(k,1418) - lu(k,1440) = lu(k,1440) - lu(k,686) * lu(k,1418) - lu(k,1442) = lu(k,1442) - lu(k,687) * lu(k,1418) - lu(k,1445) = lu(k,1445) - lu(k,688) * lu(k,1418) - lu(k,1446) = lu(k,1446) - lu(k,689) * lu(k,1418) - lu(k,1465) = lu(k,1465) - lu(k,672) * lu(k,1464) - lu(k,1469) = lu(k,1469) - lu(k,673) * lu(k,1464) - lu(k,1470) = lu(k,1470) - lu(k,674) * lu(k,1464) - lu(k,1472) = lu(k,1472) - lu(k,675) * lu(k,1464) - lu(k,1473) = lu(k,1473) - lu(k,676) * lu(k,1464) - lu(k,1474) = lu(k,1474) - lu(k,677) * lu(k,1464) - lu(k,1476) = lu(k,1476) - lu(k,678) * lu(k,1464) - lu(k,1478) = lu(k,1478) - lu(k,679) * lu(k,1464) - lu(k,1479) = lu(k,1479) - lu(k,680) * lu(k,1464) - lu(k,1480) = lu(k,1480) - lu(k,681) * lu(k,1464) - lu(k,1481) = lu(k,1481) - lu(k,682) * lu(k,1464) - lu(k,1483) = lu(k,1483) - lu(k,683) * lu(k,1464) - lu(k,1484) = lu(k,1484) - lu(k,684) * lu(k,1464) - lu(k,1485) = lu(k,1485) - lu(k,685) * lu(k,1464) - lu(k,1486) = lu(k,1486) - lu(k,686) * lu(k,1464) - lu(k,1488) = lu(k,1488) - lu(k,687) * lu(k,1464) - lu(k,1491) = lu(k,1491) - lu(k,688) * lu(k,1464) - lu(k,1492) = lu(k,1492) - lu(k,689) * lu(k,1464) - lu(k,1507) = lu(k,1507) - lu(k,672) * lu(k,1506) - lu(k,1511) = lu(k,1511) - lu(k,673) * lu(k,1506) - lu(k,1512) = lu(k,1512) - lu(k,674) * lu(k,1506) - lu(k,1514) = lu(k,1514) - lu(k,675) * lu(k,1506) - lu(k,1515) = lu(k,1515) - lu(k,676) * lu(k,1506) - lu(k,1516) = lu(k,1516) - lu(k,677) * lu(k,1506) - lu(k,1518) = lu(k,1518) - lu(k,678) * lu(k,1506) - lu(k,1520) = lu(k,1520) - lu(k,679) * lu(k,1506) - lu(k,1521) = lu(k,1521) - lu(k,680) * lu(k,1506) - lu(k,1522) = lu(k,1522) - lu(k,681) * lu(k,1506) - lu(k,1523) = lu(k,1523) - lu(k,682) * lu(k,1506) - lu(k,1525) = lu(k,1525) - lu(k,683) * lu(k,1506) - lu(k,1526) = lu(k,1526) - lu(k,684) * lu(k,1506) - lu(k,1527) = lu(k,1527) - lu(k,685) * lu(k,1506) - lu(k,1528) = lu(k,1528) - lu(k,686) * lu(k,1506) - lu(k,1530) = lu(k,1530) - lu(k,687) * lu(k,1506) - lu(k,1533) = lu(k,1533) - lu(k,688) * lu(k,1506) - lu(k,1534) = lu(k,1534) - lu(k,689) * lu(k,1506) - lu(k,1548) = lu(k,1548) - lu(k,672) * lu(k,1547) - lu(k,1552) = lu(k,1552) - lu(k,673) * lu(k,1547) - lu(k,1553) = lu(k,1553) - lu(k,674) * lu(k,1547) - lu(k,1555) = lu(k,1555) - lu(k,675) * lu(k,1547) - lu(k,1556) = lu(k,1556) - lu(k,676) * lu(k,1547) - lu(k,1557) = lu(k,1557) - lu(k,677) * lu(k,1547) - lu(k,1559) = lu(k,1559) - lu(k,678) * lu(k,1547) - lu(k,1561) = lu(k,1561) - lu(k,679) * lu(k,1547) - lu(k,1562) = lu(k,1562) - lu(k,680) * lu(k,1547) - lu(k,1563) = lu(k,1563) - lu(k,681) * lu(k,1547) - lu(k,1564) = lu(k,1564) - lu(k,682) * lu(k,1547) - lu(k,1566) = lu(k,1566) - lu(k,683) * lu(k,1547) - lu(k,1567) = lu(k,1567) - lu(k,684) * lu(k,1547) - lu(k,1568) = lu(k,1568) - lu(k,685) * lu(k,1547) - lu(k,1569) = lu(k,1569) - lu(k,686) * lu(k,1547) - lu(k,1571) = lu(k,1571) - lu(k,687) * lu(k,1547) - lu(k,1574) = lu(k,1574) - lu(k,688) * lu(k,1547) - lu(k,1575) = lu(k,1575) - lu(k,689) * lu(k,1547) - lu(k,1605) = lu(k,1605) - lu(k,672) * lu(k,1604) - lu(k,1609) = lu(k,1609) - lu(k,673) * lu(k,1604) - lu(k,1610) = lu(k,1610) - lu(k,674) * lu(k,1604) - lu(k,1612) = lu(k,1612) - lu(k,675) * lu(k,1604) - lu(k,1613) = lu(k,1613) - lu(k,676) * lu(k,1604) - lu(k,1614) = lu(k,1614) - lu(k,677) * lu(k,1604) - lu(k,1616) = lu(k,1616) - lu(k,678) * lu(k,1604) - lu(k,1618) = lu(k,1618) - lu(k,679) * lu(k,1604) - lu(k,1619) = lu(k,1619) - lu(k,680) * lu(k,1604) - lu(k,1620) = lu(k,1620) - lu(k,681) * lu(k,1604) - lu(k,1621) = lu(k,1621) - lu(k,682) * lu(k,1604) - lu(k,1623) = lu(k,1623) - lu(k,683) * lu(k,1604) - lu(k,1624) = lu(k,1624) - lu(k,684) * lu(k,1604) - lu(k,1625) = lu(k,1625) - lu(k,685) * lu(k,1604) - lu(k,1626) = lu(k,1626) - lu(k,686) * lu(k,1604) - lu(k,1628) = lu(k,1628) - lu(k,687) * lu(k,1604) - lu(k,1631) = lu(k,1631) - lu(k,688) * lu(k,1604) - lu(k,1632) = lu(k,1632) - lu(k,689) * lu(k,1604) - lu(k,1636) = lu(k,1636) - lu(k,672) * lu(k,1635) - lu(k,1638) = lu(k,1638) - lu(k,673) * lu(k,1635) - lu(k,1639) = lu(k,1639) - lu(k,674) * lu(k,1635) - lu(k,1641) = lu(k,1641) - lu(k,675) * lu(k,1635) - lu(k,1642) = lu(k,1642) - lu(k,676) * lu(k,1635) - lu(k,1643) = lu(k,1643) - lu(k,677) * lu(k,1635) - lu(k,1645) = lu(k,1645) - lu(k,678) * lu(k,1635) - lu(k,1647) = lu(k,1647) - lu(k,679) * lu(k,1635) - lu(k,1648) = lu(k,1648) - lu(k,680) * lu(k,1635) - lu(k,1649) = lu(k,1649) - lu(k,681) * lu(k,1635) - lu(k,1650) = lu(k,1650) - lu(k,682) * lu(k,1635) - lu(k,1652) = lu(k,1652) - lu(k,683) * lu(k,1635) - lu(k,1653) = lu(k,1653) - lu(k,684) * lu(k,1635) - lu(k,1654) = lu(k,1654) - lu(k,685) * lu(k,1635) - lu(k,1655) = lu(k,1655) - lu(k,686) * lu(k,1635) - lu(k,1657) = lu(k,1657) - lu(k,687) * lu(k,1635) - lu(k,1660) = lu(k,1660) - lu(k,688) * lu(k,1635) - lu(k,1661) = lu(k,1661) - lu(k,689) * lu(k,1635) - lu(k,1666) = lu(k,1666) - lu(k,672) * lu(k,1665) - lu(k,1670) = lu(k,1670) - lu(k,673) * lu(k,1665) - lu(k,1671) = lu(k,1671) - lu(k,674) * lu(k,1665) - lu(k,1673) = lu(k,1673) - lu(k,675) * lu(k,1665) - lu(k,1674) = lu(k,1674) - lu(k,676) * lu(k,1665) - lu(k,1675) = lu(k,1675) - lu(k,677) * lu(k,1665) - lu(k,1677) = lu(k,1677) - lu(k,678) * lu(k,1665) - lu(k,1679) = lu(k,1679) - lu(k,679) * lu(k,1665) - lu(k,1680) = lu(k,1680) - lu(k,680) * lu(k,1665) - lu(k,1681) = lu(k,1681) - lu(k,681) * lu(k,1665) - lu(k,1682) = - lu(k,682) * lu(k,1665) - lu(k,1684) = lu(k,1684) - lu(k,683) * lu(k,1665) - lu(k,1685) = lu(k,1685) - lu(k,684) * lu(k,1665) - lu(k,1686) = lu(k,1686) - lu(k,685) * lu(k,1665) - lu(k,1687) = lu(k,1687) - lu(k,686) * lu(k,1665) - lu(k,1689) = lu(k,1689) - lu(k,687) * lu(k,1665) - lu(k,1692) = lu(k,1692) - lu(k,688) * lu(k,1665) - lu(k,1693) = lu(k,1693) - lu(k,689) * lu(k,1665) - lu(k,1701) = lu(k,1701) - lu(k,672) * lu(k,1700) - lu(k,1705) = lu(k,1705) - lu(k,673) * lu(k,1700) - lu(k,1706) = lu(k,1706) - lu(k,674) * lu(k,1700) - lu(k,1708) = - lu(k,675) * lu(k,1700) - lu(k,1709) = - lu(k,676) * lu(k,1700) - lu(k,1710) = - lu(k,677) * lu(k,1700) - lu(k,1712) = - lu(k,678) * lu(k,1700) - lu(k,1714) = lu(k,1714) - lu(k,679) * lu(k,1700) - lu(k,1715) = lu(k,1715) - lu(k,680) * lu(k,1700) - lu(k,1716) = lu(k,1716) - lu(k,681) * lu(k,1700) - lu(k,1717) = lu(k,1717) - lu(k,682) * lu(k,1700) - lu(k,1719) = lu(k,1719) - lu(k,683) * lu(k,1700) - lu(k,1720) = lu(k,1720) - lu(k,684) * lu(k,1700) - lu(k,1721) = - lu(k,685) * lu(k,1700) - lu(k,1722) = lu(k,1722) - lu(k,686) * lu(k,1700) - lu(k,1724) = lu(k,1724) - lu(k,687) * lu(k,1700) - lu(k,1727) = lu(k,1727) - lu(k,688) * lu(k,1700) - lu(k,1728) = lu(k,1728) - lu(k,689) * lu(k,1700) - lu(k,1743) = lu(k,1743) - lu(k,672) * lu(k,1742) - lu(k,1747) = lu(k,1747) - lu(k,673) * lu(k,1742) - lu(k,1748) = lu(k,1748) - lu(k,674) * lu(k,1742) - lu(k,1750) = lu(k,1750) - lu(k,675) * lu(k,1742) - lu(k,1751) = lu(k,1751) - lu(k,676) * lu(k,1742) - lu(k,1752) = lu(k,1752) - lu(k,677) * lu(k,1742) - lu(k,1754) = lu(k,1754) - lu(k,678) * lu(k,1742) - lu(k,1756) = lu(k,1756) - lu(k,679) * lu(k,1742) - lu(k,1757) = lu(k,1757) - lu(k,680) * lu(k,1742) - lu(k,1758) = lu(k,1758) - lu(k,681) * lu(k,1742) - lu(k,1759) = lu(k,1759) - lu(k,682) * lu(k,1742) - lu(k,1761) = lu(k,1761) - lu(k,683) * lu(k,1742) - lu(k,1762) = lu(k,1762) - lu(k,684) * lu(k,1742) - lu(k,1763) = lu(k,1763) - lu(k,685) * lu(k,1742) - lu(k,1764) = lu(k,1764) - lu(k,686) * lu(k,1742) - lu(k,1766) = lu(k,1766) - lu(k,687) * lu(k,1742) - lu(k,1769) = lu(k,1769) - lu(k,688) * lu(k,1742) - lu(k,1770) = lu(k,1770) - lu(k,689) * lu(k,1742) - lu(k,1801) = lu(k,1801) - lu(k,672) * lu(k,1800) - lu(k,1805) = lu(k,1805) - lu(k,673) * lu(k,1800) - lu(k,1806) = lu(k,1806) - lu(k,674) * lu(k,1800) - lu(k,1808) = lu(k,1808) - lu(k,675) * lu(k,1800) - lu(k,1809) = lu(k,1809) - lu(k,676) * lu(k,1800) - lu(k,1810) = lu(k,1810) - lu(k,677) * lu(k,1800) - lu(k,1812) = lu(k,1812) - lu(k,678) * lu(k,1800) - lu(k,1814) = lu(k,1814) - lu(k,679) * lu(k,1800) - lu(k,1815) = lu(k,1815) - lu(k,680) * lu(k,1800) - lu(k,1816) = lu(k,1816) - lu(k,681) * lu(k,1800) - lu(k,1817) = lu(k,1817) - lu(k,682) * lu(k,1800) - lu(k,1819) = lu(k,1819) - lu(k,683) * lu(k,1800) - lu(k,1820) = lu(k,1820) - lu(k,684) * lu(k,1800) - lu(k,1821) = lu(k,1821) - lu(k,685) * lu(k,1800) - lu(k,1822) = lu(k,1822) - lu(k,686) * lu(k,1800) - lu(k,1824) = lu(k,1824) - lu(k,687) * lu(k,1800) - lu(k,1827) = lu(k,1827) - lu(k,688) * lu(k,1800) - lu(k,1828) = lu(k,1828) - lu(k,689) * lu(k,1800) - lu(k,694) = 1._r8 / lu(k,694) - lu(k,695) = lu(k,695) * lu(k,694) - lu(k,696) = lu(k,696) * lu(k,694) - lu(k,697) = lu(k,697) * lu(k,694) - lu(k,698) = lu(k,698) * lu(k,694) - lu(k,699) = lu(k,699) * lu(k,694) - lu(k,700) = lu(k,700) * lu(k,694) - lu(k,701) = lu(k,701) * lu(k,694) - lu(k,702) = lu(k,702) * lu(k,694) - lu(k,703) = lu(k,703) * lu(k,694) - lu(k,704) = lu(k,704) * lu(k,694) - lu(k,705) = lu(k,705) * lu(k,694) - lu(k,706) = lu(k,706) * lu(k,694) - lu(k,707) = lu(k,707) * lu(k,694) - lu(k,708) = lu(k,708) * lu(k,694) - lu(k,709) = lu(k,709) * lu(k,694) - lu(k,710) = lu(k,710) * lu(k,694) - lu(k,711) = lu(k,711) * lu(k,694) - lu(k,712) = lu(k,712) * lu(k,694) - lu(k,713) = lu(k,713) * lu(k,694) - lu(k,714) = lu(k,714) * lu(k,694) - lu(k,804) = lu(k,804) - lu(k,695) * lu(k,801) - lu(k,805) = lu(k,805) - lu(k,696) * lu(k,801) - lu(k,806) = lu(k,806) - lu(k,697) * lu(k,801) - lu(k,807) = lu(k,807) - lu(k,698) * lu(k,801) - lu(k,808) = lu(k,808) - lu(k,699) * lu(k,801) - lu(k,809) = lu(k,809) - lu(k,700) * lu(k,801) - lu(k,811) = lu(k,811) - lu(k,701) * lu(k,801) - lu(k,812) = lu(k,812) - lu(k,702) * lu(k,801) - lu(k,813) = lu(k,813) - lu(k,703) * lu(k,801) - lu(k,814) = lu(k,814) - lu(k,704) * lu(k,801) - lu(k,815) = lu(k,815) - lu(k,705) * lu(k,801) - lu(k,816) = lu(k,816) - lu(k,706) * lu(k,801) - lu(k,818) = lu(k,818) - lu(k,707) * lu(k,801) - lu(k,819) = lu(k,819) - lu(k,708) * lu(k,801) - lu(k,820) = lu(k,820) - lu(k,709) * lu(k,801) - lu(k,821) = lu(k,821) - lu(k,710) * lu(k,801) - lu(k,822) = lu(k,822) - lu(k,711) * lu(k,801) - lu(k,823) = lu(k,823) - lu(k,712) * lu(k,801) - lu(k,826) = lu(k,826) - lu(k,713) * lu(k,801) - lu(k,827) = lu(k,827) - lu(k,714) * lu(k,801) - lu(k,885) = lu(k,885) - lu(k,695) * lu(k,881) - lu(k,886) = lu(k,886) - lu(k,696) * lu(k,881) - lu(k,887) = lu(k,887) - lu(k,697) * lu(k,881) - lu(k,888) = lu(k,888) - lu(k,698) * lu(k,881) - lu(k,889) = lu(k,889) - lu(k,699) * lu(k,881) - lu(k,890) = lu(k,890) - lu(k,700) * lu(k,881) - lu(k,892) = lu(k,892) - lu(k,701) * lu(k,881) - lu(k,893) = lu(k,893) - lu(k,702) * lu(k,881) - lu(k,894) = lu(k,894) - lu(k,703) * lu(k,881) - lu(k,895) = lu(k,895) - lu(k,704) * lu(k,881) - lu(k,896) = lu(k,896) - lu(k,705) * lu(k,881) - lu(k,897) = lu(k,897) - lu(k,706) * lu(k,881) - lu(k,899) = lu(k,899) - lu(k,707) * lu(k,881) - lu(k,900) = lu(k,900) - lu(k,708) * lu(k,881) - lu(k,901) = lu(k,901) - lu(k,709) * lu(k,881) - lu(k,902) = lu(k,902) - lu(k,710) * lu(k,881) - lu(k,903) = lu(k,903) - lu(k,711) * lu(k,881) - lu(k,904) = lu(k,904) - lu(k,712) * lu(k,881) - lu(k,907) = lu(k,907) - lu(k,713) * lu(k,881) - lu(k,908) = lu(k,908) - lu(k,714) * lu(k,881) - lu(k,926) = lu(k,926) - lu(k,695) * lu(k,922) - lu(k,927) = lu(k,927) - lu(k,696) * lu(k,922) - lu(k,928) = lu(k,928) - lu(k,697) * lu(k,922) - lu(k,929) = lu(k,929) - lu(k,698) * lu(k,922) - lu(k,930) = lu(k,930) - lu(k,699) * lu(k,922) - lu(k,931) = lu(k,931) - lu(k,700) * lu(k,922) - lu(k,933) = lu(k,933) - lu(k,701) * lu(k,922) - lu(k,934) = lu(k,934) - lu(k,702) * lu(k,922) - lu(k,935) = lu(k,935) - lu(k,703) * lu(k,922) - lu(k,936) = lu(k,936) - lu(k,704) * lu(k,922) - lu(k,937) = lu(k,937) - lu(k,705) * lu(k,922) - lu(k,938) = lu(k,938) - lu(k,706) * lu(k,922) - lu(k,940) = lu(k,940) - lu(k,707) * lu(k,922) - lu(k,941) = lu(k,941) - lu(k,708) * lu(k,922) - lu(k,942) = lu(k,942) - lu(k,709) * lu(k,922) - lu(k,943) = lu(k,943) - lu(k,710) * lu(k,922) - lu(k,944) = lu(k,944) - lu(k,711) * lu(k,922) - lu(k,945) = lu(k,945) - lu(k,712) * lu(k,922) - lu(k,948) = lu(k,948) - lu(k,713) * lu(k,922) - lu(k,949) = lu(k,949) - lu(k,714) * lu(k,922) - lu(k,971) = lu(k,971) - lu(k,695) * lu(k,967) - lu(k,972) = lu(k,972) - lu(k,696) * lu(k,967) - lu(k,973) = lu(k,973) - lu(k,697) * lu(k,967) - lu(k,974) = lu(k,974) - lu(k,698) * lu(k,967) - lu(k,975) = lu(k,975) - lu(k,699) * lu(k,967) - lu(k,976) = lu(k,976) - lu(k,700) * lu(k,967) - lu(k,978) = lu(k,978) - lu(k,701) * lu(k,967) - lu(k,979) = lu(k,979) - lu(k,702) * lu(k,967) - lu(k,980) = lu(k,980) - lu(k,703) * lu(k,967) - lu(k,981) = lu(k,981) - lu(k,704) * lu(k,967) - lu(k,982) = lu(k,982) - lu(k,705) * lu(k,967) - lu(k,983) = lu(k,983) - lu(k,706) * lu(k,967) - lu(k,985) = lu(k,985) - lu(k,707) * lu(k,967) - lu(k,986) = lu(k,986) - lu(k,708) * lu(k,967) - lu(k,987) = lu(k,987) - lu(k,709) * lu(k,967) - lu(k,988) = lu(k,988) - lu(k,710) * lu(k,967) - lu(k,989) = lu(k,989) - lu(k,711) * lu(k,967) - lu(k,990) = lu(k,990) - lu(k,712) * lu(k,967) - lu(k,993) = lu(k,993) - lu(k,713) * lu(k,967) - lu(k,994) = lu(k,994) - lu(k,714) * lu(k,967) - lu(k,1013) = lu(k,1013) - lu(k,695) * lu(k,1009) - lu(k,1014) = lu(k,1014) - lu(k,696) * lu(k,1009) - lu(k,1015) = lu(k,1015) - lu(k,697) * lu(k,1009) - lu(k,1016) = lu(k,1016) - lu(k,698) * lu(k,1009) - lu(k,1017) = lu(k,1017) - lu(k,699) * lu(k,1009) - lu(k,1018) = lu(k,1018) - lu(k,700) * lu(k,1009) - lu(k,1020) = lu(k,1020) - lu(k,701) * lu(k,1009) - lu(k,1021) = lu(k,1021) - lu(k,702) * lu(k,1009) - lu(k,1022) = lu(k,1022) - lu(k,703) * lu(k,1009) - lu(k,1023) = lu(k,1023) - lu(k,704) * lu(k,1009) - lu(k,1024) = lu(k,1024) - lu(k,705) * lu(k,1009) - lu(k,1025) = lu(k,1025) - lu(k,706) * lu(k,1009) - lu(k,1027) = lu(k,1027) - lu(k,707) * lu(k,1009) - lu(k,1028) = lu(k,1028) - lu(k,708) * lu(k,1009) - lu(k,1029) = lu(k,1029) - lu(k,709) * lu(k,1009) - lu(k,1030) = lu(k,1030) - lu(k,710) * lu(k,1009) - lu(k,1031) = lu(k,1031) - lu(k,711) * lu(k,1009) - lu(k,1032) = lu(k,1032) - lu(k,712) * lu(k,1009) - lu(k,1035) = lu(k,1035) - lu(k,713) * lu(k,1009) - lu(k,1036) = lu(k,1036) - lu(k,714) * lu(k,1009) - lu(k,1055) = lu(k,1055) - lu(k,695) * lu(k,1051) - lu(k,1056) = lu(k,1056) - lu(k,696) * lu(k,1051) - lu(k,1057) = lu(k,1057) - lu(k,697) * lu(k,1051) - lu(k,1058) = lu(k,1058) - lu(k,698) * lu(k,1051) - lu(k,1059) = lu(k,1059) - lu(k,699) * lu(k,1051) - lu(k,1060) = lu(k,1060) - lu(k,700) * lu(k,1051) - lu(k,1062) = lu(k,1062) - lu(k,701) * lu(k,1051) - lu(k,1063) = lu(k,1063) - lu(k,702) * lu(k,1051) - lu(k,1064) = lu(k,1064) - lu(k,703) * lu(k,1051) - lu(k,1065) = lu(k,1065) - lu(k,704) * lu(k,1051) - lu(k,1066) = lu(k,1066) - lu(k,705) * lu(k,1051) - lu(k,1067) = lu(k,1067) - lu(k,706) * lu(k,1051) - lu(k,1069) = lu(k,1069) - lu(k,707) * lu(k,1051) - lu(k,1070) = lu(k,1070) - lu(k,708) * lu(k,1051) - lu(k,1071) = lu(k,1071) - lu(k,709) * lu(k,1051) - lu(k,1072) = lu(k,1072) - lu(k,710) * lu(k,1051) - lu(k,1073) = lu(k,1073) - lu(k,711) * lu(k,1051) - lu(k,1074) = lu(k,1074) - lu(k,712) * lu(k,1051) - lu(k,1077) = lu(k,1077) - lu(k,713) * lu(k,1051) - lu(k,1078) = lu(k,1078) - lu(k,714) * lu(k,1051) - lu(k,1099) = lu(k,1099) - lu(k,695) * lu(k,1095) - lu(k,1100) = lu(k,1100) - lu(k,696) * lu(k,1095) - lu(k,1101) = lu(k,1101) - lu(k,697) * lu(k,1095) - lu(k,1102) = lu(k,1102) - lu(k,698) * lu(k,1095) - lu(k,1103) = lu(k,1103) - lu(k,699) * lu(k,1095) - lu(k,1104) = lu(k,1104) - lu(k,700) * lu(k,1095) - lu(k,1106) = lu(k,1106) - lu(k,701) * lu(k,1095) - lu(k,1107) = lu(k,1107) - lu(k,702) * lu(k,1095) - lu(k,1108) = lu(k,1108) - lu(k,703) * lu(k,1095) - lu(k,1109) = lu(k,1109) - lu(k,704) * lu(k,1095) - lu(k,1110) = lu(k,1110) - lu(k,705) * lu(k,1095) - lu(k,1111) = lu(k,1111) - lu(k,706) * lu(k,1095) - lu(k,1113) = lu(k,1113) - lu(k,707) * lu(k,1095) - lu(k,1114) = lu(k,1114) - lu(k,708) * lu(k,1095) - lu(k,1115) = lu(k,1115) - lu(k,709) * lu(k,1095) - lu(k,1116) = lu(k,1116) - lu(k,710) * lu(k,1095) - lu(k,1117) = lu(k,1117) - lu(k,711) * lu(k,1095) - lu(k,1118) = lu(k,1118) - lu(k,712) * lu(k,1095) - lu(k,1121) = lu(k,1121) - lu(k,713) * lu(k,1095) - lu(k,1122) = lu(k,1122) - lu(k,714) * lu(k,1095) - lu(k,1140) = lu(k,1140) - lu(k,695) * lu(k,1136) - lu(k,1141) = lu(k,1141) - lu(k,696) * lu(k,1136) - lu(k,1142) = lu(k,1142) - lu(k,697) * lu(k,1136) - lu(k,1143) = lu(k,1143) - lu(k,698) * lu(k,1136) - lu(k,1144) = lu(k,1144) - lu(k,699) * lu(k,1136) - lu(k,1145) = lu(k,1145) - lu(k,700) * lu(k,1136) - lu(k,1147) = lu(k,1147) - lu(k,701) * lu(k,1136) - lu(k,1148) = lu(k,1148) - lu(k,702) * lu(k,1136) - lu(k,1149) = lu(k,1149) - lu(k,703) * lu(k,1136) - lu(k,1150) = lu(k,1150) - lu(k,704) * lu(k,1136) - lu(k,1151) = lu(k,1151) - lu(k,705) * lu(k,1136) - lu(k,1152) = lu(k,1152) - lu(k,706) * lu(k,1136) - lu(k,1154) = lu(k,1154) - lu(k,707) * lu(k,1136) - lu(k,1155) = lu(k,1155) - lu(k,708) * lu(k,1136) - lu(k,1156) = lu(k,1156) - lu(k,709) * lu(k,1136) - lu(k,1157) = lu(k,1157) - lu(k,710) * lu(k,1136) - lu(k,1158) = lu(k,1158) - lu(k,711) * lu(k,1136) - lu(k,1159) = lu(k,1159) - lu(k,712) * lu(k,1136) - lu(k,1162) = lu(k,1162) - lu(k,713) * lu(k,1136) - lu(k,1163) = lu(k,1163) - lu(k,714) * lu(k,1136) - lu(k,1179) = lu(k,1179) - lu(k,695) * lu(k,1176) - lu(k,1180) = lu(k,1180) - lu(k,696) * lu(k,1176) - lu(k,1181) = lu(k,1181) - lu(k,697) * lu(k,1176) - lu(k,1182) = lu(k,1182) - lu(k,698) * lu(k,1176) - lu(k,1183) = lu(k,1183) - lu(k,699) * lu(k,1176) - lu(k,1184) = lu(k,1184) - lu(k,700) * lu(k,1176) - lu(k,1186) = lu(k,1186) - lu(k,701) * lu(k,1176) - lu(k,1187) = lu(k,1187) - lu(k,702) * lu(k,1176) - lu(k,1188) = lu(k,1188) - lu(k,703) * lu(k,1176) - lu(k,1189) = lu(k,1189) - lu(k,704) * lu(k,1176) - lu(k,1190) = lu(k,1190) - lu(k,705) * lu(k,1176) - lu(k,1191) = lu(k,1191) - lu(k,706) * lu(k,1176) - lu(k,1193) = lu(k,1193) - lu(k,707) * lu(k,1176) - lu(k,1194) = lu(k,1194) - lu(k,708) * lu(k,1176) - lu(k,1195) = lu(k,1195) - lu(k,709) * lu(k,1176) - lu(k,1196) = lu(k,1196) - lu(k,710) * lu(k,1176) - lu(k,1197) = lu(k,1197) - lu(k,711) * lu(k,1176) - lu(k,1198) = - lu(k,712) * lu(k,1176) - lu(k,1201) = lu(k,1201) - lu(k,713) * lu(k,1176) - lu(k,1202) = lu(k,1202) - lu(k,714) * lu(k,1176) - lu(k,1214) = lu(k,1214) - lu(k,695) * lu(k,1210) - lu(k,1215) = lu(k,1215) - lu(k,696) * lu(k,1210) - lu(k,1216) = lu(k,1216) - lu(k,697) * lu(k,1210) - lu(k,1217) = lu(k,1217) - lu(k,698) * lu(k,1210) - lu(k,1218) = lu(k,1218) - lu(k,699) * lu(k,1210) - lu(k,1219) = lu(k,1219) - lu(k,700) * lu(k,1210) - lu(k,1221) = lu(k,1221) - lu(k,701) * lu(k,1210) - lu(k,1222) = lu(k,1222) - lu(k,702) * lu(k,1210) - lu(k,1223) = lu(k,1223) - lu(k,703) * lu(k,1210) - lu(k,1224) = lu(k,1224) - lu(k,704) * lu(k,1210) - lu(k,1225) = lu(k,1225) - lu(k,705) * lu(k,1210) - lu(k,1226) = lu(k,1226) - lu(k,706) * lu(k,1210) - lu(k,1228) = lu(k,1228) - lu(k,707) * lu(k,1210) - lu(k,1229) = lu(k,1229) - lu(k,708) * lu(k,1210) - lu(k,1230) = lu(k,1230) - lu(k,709) * lu(k,1210) - lu(k,1231) = lu(k,1231) - lu(k,710) * lu(k,1210) - lu(k,1232) = lu(k,1232) - lu(k,711) * lu(k,1210) - lu(k,1233) = lu(k,1233) - lu(k,712) * lu(k,1210) - lu(k,1236) = lu(k,1236) - lu(k,713) * lu(k,1210) - lu(k,1237) = lu(k,1237) - lu(k,714) * lu(k,1210) - lu(k,1261) = lu(k,1261) - lu(k,695) * lu(k,1257) - lu(k,1262) = lu(k,1262) - lu(k,696) * lu(k,1257) - lu(k,1263) = lu(k,1263) - lu(k,697) * lu(k,1257) - lu(k,1264) = lu(k,1264) - lu(k,698) * lu(k,1257) - lu(k,1265) = lu(k,1265) - lu(k,699) * lu(k,1257) - lu(k,1266) = lu(k,1266) - lu(k,700) * lu(k,1257) - lu(k,1268) = lu(k,1268) - lu(k,701) * lu(k,1257) - lu(k,1269) = lu(k,1269) - lu(k,702) * lu(k,1257) - lu(k,1270) = lu(k,1270) - lu(k,703) * lu(k,1257) - lu(k,1271) = lu(k,1271) - lu(k,704) * lu(k,1257) - lu(k,1272) = lu(k,1272) - lu(k,705) * lu(k,1257) - lu(k,1273) = lu(k,1273) - lu(k,706) * lu(k,1257) - lu(k,1275) = lu(k,1275) - lu(k,707) * lu(k,1257) - lu(k,1276) = lu(k,1276) - lu(k,708) * lu(k,1257) - lu(k,1277) = lu(k,1277) - lu(k,709) * lu(k,1257) - lu(k,1278) = lu(k,1278) - lu(k,710) * lu(k,1257) - lu(k,1279) = lu(k,1279) - lu(k,711) * lu(k,1257) - lu(k,1280) = lu(k,1280) - lu(k,712) * lu(k,1257) - lu(k,1283) = lu(k,1283) - lu(k,713) * lu(k,1257) - lu(k,1284) = lu(k,1284) - lu(k,714) * lu(k,1257) - lu(k,1305) = lu(k,1305) - lu(k,695) * lu(k,1301) - lu(k,1306) = lu(k,1306) - lu(k,696) * lu(k,1301) - lu(k,1307) = lu(k,1307) - lu(k,697) * lu(k,1301) - lu(k,1308) = lu(k,1308) - lu(k,698) * lu(k,1301) - lu(k,1309) = lu(k,1309) - lu(k,699) * lu(k,1301) - lu(k,1310) = lu(k,1310) - lu(k,700) * lu(k,1301) - lu(k,1312) = lu(k,1312) - lu(k,701) * lu(k,1301) - lu(k,1313) = lu(k,1313) - lu(k,702) * lu(k,1301) - lu(k,1314) = lu(k,1314) - lu(k,703) * lu(k,1301) - lu(k,1315) = lu(k,1315) - lu(k,704) * lu(k,1301) - lu(k,1316) = lu(k,1316) - lu(k,705) * lu(k,1301) - lu(k,1317) = lu(k,1317) - lu(k,706) * lu(k,1301) - lu(k,1319) = lu(k,1319) - lu(k,707) * lu(k,1301) - lu(k,1320) = lu(k,1320) - lu(k,708) * lu(k,1301) - lu(k,1321) = lu(k,1321) - lu(k,709) * lu(k,1301) - lu(k,1322) = lu(k,1322) - lu(k,710) * lu(k,1301) - lu(k,1323) = lu(k,1323) - lu(k,711) * lu(k,1301) - lu(k,1324) = lu(k,1324) - lu(k,712) * lu(k,1301) - lu(k,1327) = lu(k,1327) - lu(k,713) * lu(k,1301) - lu(k,1328) = lu(k,1328) - lu(k,714) * lu(k,1301) - lu(k,1344) = lu(k,1344) - lu(k,695) * lu(k,1340) - lu(k,1345) = lu(k,1345) - lu(k,696) * lu(k,1340) - lu(k,1346) = lu(k,1346) - lu(k,697) * lu(k,1340) - lu(k,1347) = lu(k,1347) - lu(k,698) * lu(k,1340) - lu(k,1348) = lu(k,1348) - lu(k,699) * lu(k,1340) - lu(k,1349) = lu(k,1349) - lu(k,700) * lu(k,1340) - lu(k,1351) = lu(k,1351) - lu(k,701) * lu(k,1340) - lu(k,1352) = lu(k,1352) - lu(k,702) * lu(k,1340) - lu(k,1353) = lu(k,1353) - lu(k,703) * lu(k,1340) - lu(k,1354) = lu(k,1354) - lu(k,704) * lu(k,1340) - lu(k,1355) = lu(k,1355) - lu(k,705) * lu(k,1340) - lu(k,1356) = lu(k,1356) - lu(k,706) * lu(k,1340) - lu(k,1358) = lu(k,1358) - lu(k,707) * lu(k,1340) - lu(k,1359) = lu(k,1359) - lu(k,708) * lu(k,1340) - lu(k,1360) = lu(k,1360) - lu(k,709) * lu(k,1340) - lu(k,1361) = lu(k,1361) - lu(k,710) * lu(k,1340) - lu(k,1362) = lu(k,1362) - lu(k,711) * lu(k,1340) - lu(k,1363) = lu(k,1363) - lu(k,712) * lu(k,1340) - lu(k,1366) = lu(k,1366) - lu(k,713) * lu(k,1340) - lu(k,1367) = lu(k,1367) - lu(k,714) * lu(k,1340) - lu(k,1379) = lu(k,1379) - lu(k,695) * lu(k,1375) - lu(k,1380) = lu(k,1380) - lu(k,696) * lu(k,1375) - lu(k,1381) = lu(k,1381) - lu(k,697) * lu(k,1375) - lu(k,1382) = lu(k,1382) - lu(k,698) * lu(k,1375) - lu(k,1383) = lu(k,1383) - lu(k,699) * lu(k,1375) - lu(k,1384) = lu(k,1384) - lu(k,700) * lu(k,1375) - lu(k,1386) = lu(k,1386) - lu(k,701) * lu(k,1375) - lu(k,1387) = - lu(k,702) * lu(k,1375) - lu(k,1388) = lu(k,1388) - lu(k,703) * lu(k,1375) - lu(k,1389) = lu(k,1389) - lu(k,704) * lu(k,1375) - lu(k,1390) = lu(k,1390) - lu(k,705) * lu(k,1375) - lu(k,1391) = lu(k,1391) - lu(k,706) * lu(k,1375) - lu(k,1393) = lu(k,1393) - lu(k,707) * lu(k,1375) - lu(k,1394) = lu(k,1394) - lu(k,708) * lu(k,1375) - lu(k,1395) = lu(k,1395) - lu(k,709) * lu(k,1375) - lu(k,1396) = lu(k,1396) - lu(k,710) * lu(k,1375) - lu(k,1397) = lu(k,1397) - lu(k,711) * lu(k,1375) - lu(k,1398) = lu(k,1398) - lu(k,712) * lu(k,1375) - lu(k,1401) = lu(k,1401) - lu(k,713) * lu(k,1375) - lu(k,1402) = lu(k,1402) - lu(k,714) * lu(k,1375) - lu(k,1423) = lu(k,1423) - lu(k,695) * lu(k,1419) - lu(k,1424) = lu(k,1424) - lu(k,696) * lu(k,1419) - lu(k,1425) = lu(k,1425) - lu(k,697) * lu(k,1419) - lu(k,1426) = lu(k,1426) - lu(k,698) * lu(k,1419) - lu(k,1427) = lu(k,1427) - lu(k,699) * lu(k,1419) - lu(k,1428) = lu(k,1428) - lu(k,700) * lu(k,1419) - lu(k,1430) = lu(k,1430) - lu(k,701) * lu(k,1419) - lu(k,1431) = lu(k,1431) - lu(k,702) * lu(k,1419) - lu(k,1432) = lu(k,1432) - lu(k,703) * lu(k,1419) - lu(k,1433) = lu(k,1433) - lu(k,704) * lu(k,1419) - lu(k,1434) = lu(k,1434) - lu(k,705) * lu(k,1419) - lu(k,1435) = lu(k,1435) - lu(k,706) * lu(k,1419) - lu(k,1437) = lu(k,1437) - lu(k,707) * lu(k,1419) - lu(k,1438) = lu(k,1438) - lu(k,708) * lu(k,1419) - lu(k,1439) = lu(k,1439) - lu(k,709) * lu(k,1419) - lu(k,1440) = lu(k,1440) - lu(k,710) * lu(k,1419) - lu(k,1441) = lu(k,1441) - lu(k,711) * lu(k,1419) - lu(k,1442) = lu(k,1442) - lu(k,712) * lu(k,1419) - lu(k,1445) = lu(k,1445) - lu(k,713) * lu(k,1419) - lu(k,1446) = lu(k,1446) - lu(k,714) * lu(k,1419) - lu(k,1469) = lu(k,1469) - lu(k,695) * lu(k,1465) - lu(k,1470) = lu(k,1470) - lu(k,696) * lu(k,1465) - lu(k,1471) = lu(k,1471) - lu(k,697) * lu(k,1465) - lu(k,1472) = lu(k,1472) - lu(k,698) * lu(k,1465) - lu(k,1473) = lu(k,1473) - lu(k,699) * lu(k,1465) - lu(k,1474) = lu(k,1474) - lu(k,700) * lu(k,1465) - lu(k,1476) = lu(k,1476) - lu(k,701) * lu(k,1465) - lu(k,1477) = lu(k,1477) - lu(k,702) * lu(k,1465) - lu(k,1478) = lu(k,1478) - lu(k,703) * lu(k,1465) - lu(k,1479) = lu(k,1479) - lu(k,704) * lu(k,1465) - lu(k,1480) = lu(k,1480) - lu(k,705) * lu(k,1465) - lu(k,1481) = lu(k,1481) - lu(k,706) * lu(k,1465) - lu(k,1483) = lu(k,1483) - lu(k,707) * lu(k,1465) - lu(k,1484) = lu(k,1484) - lu(k,708) * lu(k,1465) - lu(k,1485) = lu(k,1485) - lu(k,709) * lu(k,1465) - lu(k,1486) = lu(k,1486) - lu(k,710) * lu(k,1465) - lu(k,1487) = lu(k,1487) - lu(k,711) * lu(k,1465) - lu(k,1488) = lu(k,1488) - lu(k,712) * lu(k,1465) - lu(k,1491) = lu(k,1491) - lu(k,713) * lu(k,1465) - lu(k,1492) = lu(k,1492) - lu(k,714) * lu(k,1465) - lu(k,1511) = lu(k,1511) - lu(k,695) * lu(k,1507) - lu(k,1512) = lu(k,1512) - lu(k,696) * lu(k,1507) - lu(k,1513) = lu(k,1513) - lu(k,697) * lu(k,1507) - lu(k,1514) = lu(k,1514) - lu(k,698) * lu(k,1507) - lu(k,1515) = lu(k,1515) - lu(k,699) * lu(k,1507) - lu(k,1516) = lu(k,1516) - lu(k,700) * lu(k,1507) - lu(k,1518) = lu(k,1518) - lu(k,701) * lu(k,1507) - lu(k,1519) = lu(k,1519) - lu(k,702) * lu(k,1507) - lu(k,1520) = lu(k,1520) - lu(k,703) * lu(k,1507) - lu(k,1521) = lu(k,1521) - lu(k,704) * lu(k,1507) - lu(k,1522) = lu(k,1522) - lu(k,705) * lu(k,1507) - lu(k,1523) = lu(k,1523) - lu(k,706) * lu(k,1507) - lu(k,1525) = lu(k,1525) - lu(k,707) * lu(k,1507) - lu(k,1526) = lu(k,1526) - lu(k,708) * lu(k,1507) - lu(k,1527) = lu(k,1527) - lu(k,709) * lu(k,1507) - lu(k,1528) = lu(k,1528) - lu(k,710) * lu(k,1507) - lu(k,1529) = lu(k,1529) - lu(k,711) * lu(k,1507) - lu(k,1530) = lu(k,1530) - lu(k,712) * lu(k,1507) - lu(k,1533) = lu(k,1533) - lu(k,713) * lu(k,1507) - lu(k,1534) = lu(k,1534) - lu(k,714) * lu(k,1507) - lu(k,1552) = lu(k,1552) - lu(k,695) * lu(k,1548) - lu(k,1553) = lu(k,1553) - lu(k,696) * lu(k,1548) - lu(k,1554) = lu(k,1554) - lu(k,697) * lu(k,1548) - lu(k,1555) = lu(k,1555) - lu(k,698) * lu(k,1548) - lu(k,1556) = lu(k,1556) - lu(k,699) * lu(k,1548) - lu(k,1557) = lu(k,1557) - lu(k,700) * lu(k,1548) - lu(k,1559) = lu(k,1559) - lu(k,701) * lu(k,1548) - lu(k,1560) = lu(k,1560) - lu(k,702) * lu(k,1548) - lu(k,1561) = lu(k,1561) - lu(k,703) * lu(k,1548) - lu(k,1562) = lu(k,1562) - lu(k,704) * lu(k,1548) - lu(k,1563) = lu(k,1563) - lu(k,705) * lu(k,1548) - lu(k,1564) = lu(k,1564) - lu(k,706) * lu(k,1548) - lu(k,1566) = lu(k,1566) - lu(k,707) * lu(k,1548) - lu(k,1567) = lu(k,1567) - lu(k,708) * lu(k,1548) - lu(k,1568) = lu(k,1568) - lu(k,709) * lu(k,1548) - lu(k,1569) = lu(k,1569) - lu(k,710) * lu(k,1548) - lu(k,1570) = lu(k,1570) - lu(k,711) * lu(k,1548) - lu(k,1571) = lu(k,1571) - lu(k,712) * lu(k,1548) - lu(k,1574) = lu(k,1574) - lu(k,713) * lu(k,1548) - lu(k,1575) = lu(k,1575) - lu(k,714) * lu(k,1548) - lu(k,1609) = lu(k,1609) - lu(k,695) * lu(k,1605) - lu(k,1610) = lu(k,1610) - lu(k,696) * lu(k,1605) - lu(k,1611) = lu(k,1611) - lu(k,697) * lu(k,1605) - lu(k,1612) = lu(k,1612) - lu(k,698) * lu(k,1605) - lu(k,1613) = lu(k,1613) - lu(k,699) * lu(k,1605) - lu(k,1614) = lu(k,1614) - lu(k,700) * lu(k,1605) - lu(k,1616) = lu(k,1616) - lu(k,701) * lu(k,1605) - lu(k,1617) = lu(k,1617) - lu(k,702) * lu(k,1605) - lu(k,1618) = lu(k,1618) - lu(k,703) * lu(k,1605) - lu(k,1619) = lu(k,1619) - lu(k,704) * lu(k,1605) - lu(k,1620) = lu(k,1620) - lu(k,705) * lu(k,1605) - lu(k,1621) = lu(k,1621) - lu(k,706) * lu(k,1605) - lu(k,1623) = lu(k,1623) - lu(k,707) * lu(k,1605) - lu(k,1624) = lu(k,1624) - lu(k,708) * lu(k,1605) - lu(k,1625) = lu(k,1625) - lu(k,709) * lu(k,1605) - lu(k,1626) = lu(k,1626) - lu(k,710) * lu(k,1605) - lu(k,1627) = lu(k,1627) - lu(k,711) * lu(k,1605) - lu(k,1628) = lu(k,1628) - lu(k,712) * lu(k,1605) - lu(k,1631) = lu(k,1631) - lu(k,713) * lu(k,1605) - lu(k,1632) = lu(k,1632) - lu(k,714) * lu(k,1605) - lu(k,1638) = lu(k,1638) - lu(k,695) * lu(k,1636) - lu(k,1639) = lu(k,1639) - lu(k,696) * lu(k,1636) - lu(k,1640) = lu(k,1640) - lu(k,697) * lu(k,1636) - lu(k,1641) = lu(k,1641) - lu(k,698) * lu(k,1636) - lu(k,1642) = lu(k,1642) - lu(k,699) * lu(k,1636) - lu(k,1643) = lu(k,1643) - lu(k,700) * lu(k,1636) - lu(k,1645) = lu(k,1645) - lu(k,701) * lu(k,1636) - lu(k,1646) = lu(k,1646) - lu(k,702) * lu(k,1636) - lu(k,1647) = lu(k,1647) - lu(k,703) * lu(k,1636) - lu(k,1648) = lu(k,1648) - lu(k,704) * lu(k,1636) - lu(k,1649) = lu(k,1649) - lu(k,705) * lu(k,1636) - lu(k,1650) = lu(k,1650) - lu(k,706) * lu(k,1636) - lu(k,1652) = lu(k,1652) - lu(k,707) * lu(k,1636) - lu(k,1653) = lu(k,1653) - lu(k,708) * lu(k,1636) - lu(k,1654) = lu(k,1654) - lu(k,709) * lu(k,1636) - lu(k,1655) = lu(k,1655) - lu(k,710) * lu(k,1636) - lu(k,1656) = - lu(k,711) * lu(k,1636) - lu(k,1657) = lu(k,1657) - lu(k,712) * lu(k,1636) - lu(k,1660) = lu(k,1660) - lu(k,713) * lu(k,1636) - lu(k,1661) = lu(k,1661) - lu(k,714) * lu(k,1636) - lu(k,1670) = lu(k,1670) - lu(k,695) * lu(k,1666) - lu(k,1671) = lu(k,1671) - lu(k,696) * lu(k,1666) - lu(k,1672) = lu(k,1672) - lu(k,697) * lu(k,1666) - lu(k,1673) = lu(k,1673) - lu(k,698) * lu(k,1666) - lu(k,1674) = lu(k,1674) - lu(k,699) * lu(k,1666) - lu(k,1675) = lu(k,1675) - lu(k,700) * lu(k,1666) - lu(k,1677) = lu(k,1677) - lu(k,701) * lu(k,1666) - lu(k,1678) = - lu(k,702) * lu(k,1666) - lu(k,1679) = lu(k,1679) - lu(k,703) * lu(k,1666) - lu(k,1680) = lu(k,1680) - lu(k,704) * lu(k,1666) - lu(k,1681) = lu(k,1681) - lu(k,705) * lu(k,1666) - lu(k,1682) = lu(k,1682) - lu(k,706) * lu(k,1666) - lu(k,1684) = lu(k,1684) - lu(k,707) * lu(k,1666) - lu(k,1685) = lu(k,1685) - lu(k,708) * lu(k,1666) - lu(k,1686) = lu(k,1686) - lu(k,709) * lu(k,1666) - lu(k,1687) = lu(k,1687) - lu(k,710) * lu(k,1666) - lu(k,1688) = lu(k,1688) - lu(k,711) * lu(k,1666) - lu(k,1689) = lu(k,1689) - lu(k,712) * lu(k,1666) - lu(k,1692) = lu(k,1692) - lu(k,713) * lu(k,1666) - lu(k,1693) = lu(k,1693) - lu(k,714) * lu(k,1666) - lu(k,1705) = lu(k,1705) - lu(k,695) * lu(k,1701) - lu(k,1706) = lu(k,1706) - lu(k,696) * lu(k,1701) - lu(k,1707) = lu(k,1707) - lu(k,697) * lu(k,1701) - lu(k,1708) = lu(k,1708) - lu(k,698) * lu(k,1701) - lu(k,1709) = lu(k,1709) - lu(k,699) * lu(k,1701) - lu(k,1710) = lu(k,1710) - lu(k,700) * lu(k,1701) - lu(k,1712) = lu(k,1712) - lu(k,701) * lu(k,1701) - lu(k,1713) = lu(k,1713) - lu(k,702) * lu(k,1701) - lu(k,1714) = lu(k,1714) - lu(k,703) * lu(k,1701) - lu(k,1715) = lu(k,1715) - lu(k,704) * lu(k,1701) - lu(k,1716) = lu(k,1716) - lu(k,705) * lu(k,1701) - lu(k,1717) = lu(k,1717) - lu(k,706) * lu(k,1701) - lu(k,1719) = lu(k,1719) - lu(k,707) * lu(k,1701) - lu(k,1720) = lu(k,1720) - lu(k,708) * lu(k,1701) - lu(k,1721) = lu(k,1721) - lu(k,709) * lu(k,1701) - lu(k,1722) = lu(k,1722) - lu(k,710) * lu(k,1701) - lu(k,1723) = lu(k,1723) - lu(k,711) * lu(k,1701) - lu(k,1724) = lu(k,1724) - lu(k,712) * lu(k,1701) - lu(k,1727) = lu(k,1727) - lu(k,713) * lu(k,1701) - lu(k,1728) = lu(k,1728) - lu(k,714) * lu(k,1701) - lu(k,1747) = lu(k,1747) - lu(k,695) * lu(k,1743) - lu(k,1748) = lu(k,1748) - lu(k,696) * lu(k,1743) - lu(k,1749) = lu(k,1749) - lu(k,697) * lu(k,1743) - lu(k,1750) = lu(k,1750) - lu(k,698) * lu(k,1743) - lu(k,1751) = lu(k,1751) - lu(k,699) * lu(k,1743) - lu(k,1752) = lu(k,1752) - lu(k,700) * lu(k,1743) - lu(k,1754) = lu(k,1754) - lu(k,701) * lu(k,1743) - lu(k,1755) = lu(k,1755) - lu(k,702) * lu(k,1743) - lu(k,1756) = lu(k,1756) - lu(k,703) * lu(k,1743) - lu(k,1757) = lu(k,1757) - lu(k,704) * lu(k,1743) - lu(k,1758) = lu(k,1758) - lu(k,705) * lu(k,1743) - lu(k,1759) = lu(k,1759) - lu(k,706) * lu(k,1743) - lu(k,1761) = lu(k,1761) - lu(k,707) * lu(k,1743) - lu(k,1762) = lu(k,1762) - lu(k,708) * lu(k,1743) - lu(k,1763) = lu(k,1763) - lu(k,709) * lu(k,1743) - lu(k,1764) = lu(k,1764) - lu(k,710) * lu(k,1743) - lu(k,1765) = lu(k,1765) - lu(k,711) * lu(k,1743) - lu(k,1766) = lu(k,1766) - lu(k,712) * lu(k,1743) - lu(k,1769) = lu(k,1769) - lu(k,713) * lu(k,1743) - lu(k,1770) = lu(k,1770) - lu(k,714) * lu(k,1743) - lu(k,1805) = lu(k,1805) - lu(k,695) * lu(k,1801) - lu(k,1806) = lu(k,1806) - lu(k,696) * lu(k,1801) - lu(k,1807) = lu(k,1807) - lu(k,697) * lu(k,1801) - lu(k,1808) = lu(k,1808) - lu(k,698) * lu(k,1801) - lu(k,1809) = lu(k,1809) - lu(k,699) * lu(k,1801) - lu(k,1810) = lu(k,1810) - lu(k,700) * lu(k,1801) - lu(k,1812) = lu(k,1812) - lu(k,701) * lu(k,1801) - lu(k,1813) = lu(k,1813) - lu(k,702) * lu(k,1801) - lu(k,1814) = lu(k,1814) - lu(k,703) * lu(k,1801) - lu(k,1815) = lu(k,1815) - lu(k,704) * lu(k,1801) - lu(k,1816) = lu(k,1816) - lu(k,705) * lu(k,1801) - lu(k,1817) = lu(k,1817) - lu(k,706) * lu(k,1801) - lu(k,1819) = lu(k,1819) - lu(k,707) * lu(k,1801) - lu(k,1820) = lu(k,1820) - lu(k,708) * lu(k,1801) - lu(k,1821) = lu(k,1821) - lu(k,709) * lu(k,1801) - lu(k,1822) = lu(k,1822) - lu(k,710) * lu(k,1801) - lu(k,1823) = lu(k,1823) - lu(k,711) * lu(k,1801) - lu(k,1824) = lu(k,1824) - lu(k,712) * lu(k,1801) - lu(k,1827) = lu(k,1827) - lu(k,713) * lu(k,1801) - lu(k,1828) = lu(k,1828) - lu(k,714) * lu(k,1801) - 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,728) = 1._r8 / lu(k,728) - lu(k,729) = lu(k,729) * lu(k,728) - lu(k,730) = lu(k,730) * lu(k,728) - lu(k,731) = lu(k,731) * lu(k,728) - lu(k,732) = lu(k,732) * lu(k,728) - lu(k,733) = lu(k,733) * lu(k,728) - lu(k,734) = lu(k,734) * lu(k,728) - lu(k,735) = lu(k,735) * lu(k,728) - lu(k,736) = lu(k,736) * lu(k,728) - lu(k,737) = lu(k,737) * lu(k,728) - lu(k,738) = lu(k,738) * lu(k,728) - lu(k,739) = lu(k,739) * lu(k,728) - lu(k,740) = lu(k,740) * lu(k,728) - lu(k,741) = lu(k,741) * lu(k,728) - lu(k,742) = lu(k,742) * lu(k,728) - lu(k,743) = lu(k,743) * lu(k,728) - lu(k,744) = lu(k,744) * lu(k,728) - lu(k,745) = lu(k,745) * lu(k,728) - lu(k,746) = lu(k,746) * lu(k,728) - lu(k,747) = lu(k,747) * lu(k,728) - lu(k,748) = lu(k,748) * lu(k,728) - lu(k,775) = lu(k,775) - lu(k,729) * lu(k,774) - lu(k,776) = lu(k,776) - lu(k,730) * lu(k,774) - lu(k,777) = lu(k,777) - lu(k,731) * lu(k,774) - lu(k,778) = lu(k,778) - lu(k,732) * lu(k,774) - lu(k,780) = lu(k,780) - lu(k,733) * lu(k,774) - lu(k,781) = lu(k,781) - lu(k,734) * lu(k,774) - lu(k,782) = lu(k,782) - lu(k,735) * lu(k,774) - lu(k,783) = lu(k,783) - lu(k,736) * lu(k,774) - lu(k,784) = lu(k,784) - lu(k,737) * lu(k,774) - lu(k,785) = lu(k,785) - lu(k,738) * lu(k,774) - lu(k,786) = lu(k,786) - lu(k,739) * lu(k,774) - lu(k,787) = lu(k,787) - lu(k,740) * lu(k,774) - lu(k,788) = lu(k,788) - lu(k,741) * lu(k,774) - lu(k,789) = lu(k,789) - lu(k,742) * lu(k,774) - lu(k,790) = lu(k,790) - lu(k,743) * lu(k,774) - lu(k,791) = lu(k,791) - lu(k,744) * lu(k,774) - lu(k,792) = lu(k,792) - lu(k,745) * lu(k,774) - lu(k,793) = lu(k,793) - lu(k,746) * lu(k,774) - lu(k,794) = lu(k,794) - lu(k,747) * lu(k,774) - lu(k,795) = lu(k,795) - lu(k,748) * lu(k,774) - lu(k,843) = lu(k,843) - lu(k,729) * lu(k,842) - lu(k,844) = lu(k,844) - lu(k,730) * lu(k,842) - lu(k,845) = lu(k,845) - lu(k,731) * lu(k,842) - lu(k,846) = lu(k,846) - lu(k,732) * lu(k,842) - lu(k,850) = lu(k,850) - lu(k,733) * lu(k,842) - lu(k,851) = lu(k,851) - lu(k,734) * lu(k,842) - lu(k,852) = lu(k,852) - lu(k,735) * lu(k,842) - lu(k,853) = lu(k,853) - lu(k,736) * lu(k,842) - lu(k,854) = lu(k,854) - lu(k,737) * lu(k,842) - lu(k,855) = lu(k,855) - lu(k,738) * lu(k,842) - lu(k,856) = lu(k,856) - lu(k,739) * lu(k,842) - lu(k,857) = lu(k,857) - lu(k,740) * lu(k,842) - lu(k,858) = lu(k,858) - lu(k,741) * lu(k,842) - lu(k,859) = lu(k,859) - lu(k,742) * lu(k,842) - lu(k,861) = lu(k,861) - lu(k,743) * lu(k,842) - lu(k,862) = lu(k,862) - lu(k,744) * lu(k,842) - lu(k,863) = lu(k,863) - lu(k,745) * lu(k,842) - lu(k,864) = lu(k,864) - lu(k,746) * lu(k,842) - lu(k,865) = lu(k,865) - lu(k,747) * lu(k,842) - lu(k,866) = lu(k,866) - lu(k,748) * lu(k,842) - lu(k,883) = lu(k,883) - lu(k,729) * lu(k,882) - lu(k,885) = lu(k,885) - lu(k,730) * lu(k,882) - lu(k,886) = lu(k,886) - lu(k,731) * lu(k,882) - lu(k,887) = lu(k,887) - lu(k,732) * lu(k,882) - lu(k,891) = lu(k,891) - lu(k,733) * lu(k,882) - lu(k,892) = lu(k,892) - lu(k,734) * lu(k,882) - lu(k,893) = lu(k,893) - lu(k,735) * lu(k,882) - lu(k,894) = lu(k,894) - lu(k,736) * lu(k,882) - lu(k,895) = lu(k,895) - lu(k,737) * lu(k,882) - lu(k,896) = lu(k,896) - lu(k,738) * lu(k,882) - lu(k,897) = lu(k,897) - lu(k,739) * lu(k,882) - lu(k,898) = lu(k,898) - lu(k,740) * lu(k,882) - lu(k,899) = lu(k,899) - lu(k,741) * lu(k,882) - lu(k,900) = lu(k,900) - lu(k,742) * lu(k,882) - lu(k,902) = lu(k,902) - lu(k,743) * lu(k,882) - lu(k,903) = lu(k,903) - lu(k,744) * lu(k,882) - lu(k,905) = lu(k,905) - lu(k,745) * lu(k,882) - lu(k,906) = lu(k,906) - lu(k,746) * lu(k,882) - lu(k,907) = lu(k,907) - lu(k,747) * lu(k,882) - lu(k,908) = lu(k,908) - lu(k,748) * lu(k,882) - lu(k,924) = lu(k,924) - lu(k,729) * lu(k,923) - lu(k,926) = lu(k,926) - lu(k,730) * lu(k,923) - lu(k,927) = lu(k,927) - lu(k,731) * lu(k,923) - lu(k,928) = lu(k,928) - lu(k,732) * lu(k,923) - lu(k,932) = lu(k,932) - lu(k,733) * lu(k,923) - lu(k,933) = lu(k,933) - lu(k,734) * lu(k,923) - lu(k,934) = lu(k,934) - lu(k,735) * lu(k,923) - lu(k,935) = lu(k,935) - lu(k,736) * lu(k,923) - lu(k,936) = lu(k,936) - lu(k,737) * lu(k,923) - lu(k,937) = lu(k,937) - lu(k,738) * lu(k,923) - lu(k,938) = lu(k,938) - lu(k,739) * lu(k,923) - lu(k,939) = lu(k,939) - lu(k,740) * lu(k,923) - lu(k,940) = lu(k,940) - lu(k,741) * lu(k,923) - lu(k,941) = lu(k,941) - lu(k,742) * lu(k,923) - lu(k,943) = lu(k,943) - lu(k,743) * lu(k,923) - lu(k,944) = lu(k,944) - lu(k,744) * lu(k,923) - lu(k,946) = lu(k,946) - lu(k,745) * lu(k,923) - lu(k,947) = lu(k,947) - lu(k,746) * lu(k,923) - lu(k,948) = lu(k,948) - lu(k,747) * lu(k,923) - lu(k,949) = lu(k,949) - lu(k,748) * lu(k,923) - lu(k,969) = lu(k,969) - lu(k,729) * lu(k,968) - lu(k,971) = lu(k,971) - lu(k,730) * lu(k,968) - lu(k,972) = lu(k,972) - lu(k,731) * lu(k,968) - lu(k,973) = lu(k,973) - lu(k,732) * lu(k,968) - lu(k,977) = lu(k,977) - lu(k,733) * lu(k,968) - lu(k,978) = lu(k,978) - lu(k,734) * lu(k,968) - lu(k,979) = lu(k,979) - lu(k,735) * lu(k,968) - lu(k,980) = lu(k,980) - lu(k,736) * lu(k,968) - lu(k,981) = lu(k,981) - lu(k,737) * lu(k,968) - lu(k,982) = lu(k,982) - lu(k,738) * lu(k,968) - lu(k,983) = lu(k,983) - lu(k,739) * lu(k,968) - lu(k,984) = lu(k,984) - lu(k,740) * lu(k,968) - lu(k,985) = lu(k,985) - lu(k,741) * lu(k,968) - lu(k,986) = lu(k,986) - lu(k,742) * lu(k,968) - lu(k,988) = lu(k,988) - lu(k,743) * lu(k,968) - lu(k,989) = lu(k,989) - lu(k,744) * lu(k,968) - lu(k,991) = lu(k,991) - lu(k,745) * lu(k,968) - lu(k,992) = lu(k,992) - lu(k,746) * lu(k,968) - lu(k,993) = lu(k,993) - lu(k,747) * lu(k,968) - lu(k,994) = lu(k,994) - lu(k,748) * lu(k,968) - lu(k,1011) = lu(k,1011) - lu(k,729) * lu(k,1010) - lu(k,1013) = lu(k,1013) - lu(k,730) * lu(k,1010) - lu(k,1014) = lu(k,1014) - lu(k,731) * lu(k,1010) - lu(k,1015) = lu(k,1015) - lu(k,732) * lu(k,1010) - lu(k,1019) = lu(k,1019) - lu(k,733) * lu(k,1010) - lu(k,1020) = lu(k,1020) - lu(k,734) * lu(k,1010) - lu(k,1021) = lu(k,1021) - lu(k,735) * lu(k,1010) - lu(k,1022) = lu(k,1022) - lu(k,736) * lu(k,1010) - lu(k,1023) = lu(k,1023) - lu(k,737) * lu(k,1010) - lu(k,1024) = lu(k,1024) - lu(k,738) * lu(k,1010) - lu(k,1025) = lu(k,1025) - lu(k,739) * lu(k,1010) - lu(k,1026) = lu(k,1026) - lu(k,740) * lu(k,1010) - lu(k,1027) = lu(k,1027) - lu(k,741) * lu(k,1010) - lu(k,1028) = lu(k,1028) - lu(k,742) * lu(k,1010) - lu(k,1030) = lu(k,1030) - lu(k,743) * lu(k,1010) - lu(k,1031) = lu(k,1031) - lu(k,744) * lu(k,1010) - lu(k,1033) = lu(k,1033) - lu(k,745) * lu(k,1010) - lu(k,1034) = lu(k,1034) - lu(k,746) * lu(k,1010) - lu(k,1035) = lu(k,1035) - lu(k,747) * lu(k,1010) - lu(k,1036) = lu(k,1036) - lu(k,748) * lu(k,1010) - lu(k,1053) = lu(k,1053) - lu(k,729) * lu(k,1052) - lu(k,1055) = lu(k,1055) - lu(k,730) * lu(k,1052) - lu(k,1056) = lu(k,1056) - lu(k,731) * lu(k,1052) - lu(k,1057) = lu(k,1057) - lu(k,732) * lu(k,1052) - lu(k,1061) = lu(k,1061) - lu(k,733) * lu(k,1052) - lu(k,1062) = lu(k,1062) - lu(k,734) * lu(k,1052) - lu(k,1063) = lu(k,1063) - lu(k,735) * lu(k,1052) - lu(k,1064) = lu(k,1064) - lu(k,736) * lu(k,1052) - lu(k,1065) = lu(k,1065) - lu(k,737) * lu(k,1052) - lu(k,1066) = lu(k,1066) - lu(k,738) * lu(k,1052) - lu(k,1067) = lu(k,1067) - lu(k,739) * lu(k,1052) - lu(k,1068) = lu(k,1068) - lu(k,740) * lu(k,1052) - lu(k,1069) = lu(k,1069) - lu(k,741) * lu(k,1052) - lu(k,1070) = lu(k,1070) - lu(k,742) * lu(k,1052) - lu(k,1072) = lu(k,1072) - lu(k,743) * lu(k,1052) - lu(k,1073) = lu(k,1073) - lu(k,744) * lu(k,1052) - lu(k,1075) = lu(k,1075) - lu(k,745) * lu(k,1052) - lu(k,1076) = lu(k,1076) - lu(k,746) * lu(k,1052) - lu(k,1077) = lu(k,1077) - lu(k,747) * lu(k,1052) - lu(k,1078) = lu(k,1078) - lu(k,748) * lu(k,1052) - lu(k,1097) = lu(k,1097) - lu(k,729) * lu(k,1096) - lu(k,1099) = lu(k,1099) - lu(k,730) * lu(k,1096) - lu(k,1100) = lu(k,1100) - lu(k,731) * lu(k,1096) - lu(k,1101) = lu(k,1101) - lu(k,732) * lu(k,1096) - lu(k,1105) = lu(k,1105) - lu(k,733) * lu(k,1096) - lu(k,1106) = lu(k,1106) - lu(k,734) * lu(k,1096) - lu(k,1107) = lu(k,1107) - lu(k,735) * lu(k,1096) - lu(k,1108) = lu(k,1108) - lu(k,736) * lu(k,1096) - lu(k,1109) = lu(k,1109) - lu(k,737) * lu(k,1096) - lu(k,1110) = lu(k,1110) - lu(k,738) * lu(k,1096) - lu(k,1111) = lu(k,1111) - lu(k,739) * lu(k,1096) - lu(k,1112) = lu(k,1112) - lu(k,740) * lu(k,1096) - lu(k,1113) = lu(k,1113) - lu(k,741) * lu(k,1096) - lu(k,1114) = lu(k,1114) - lu(k,742) * lu(k,1096) - lu(k,1116) = lu(k,1116) - lu(k,743) * lu(k,1096) - lu(k,1117) = lu(k,1117) - lu(k,744) * lu(k,1096) - lu(k,1119) = lu(k,1119) - lu(k,745) * lu(k,1096) - lu(k,1120) = lu(k,1120) - lu(k,746) * lu(k,1096) - lu(k,1121) = lu(k,1121) - lu(k,747) * lu(k,1096) - lu(k,1122) = lu(k,1122) - lu(k,748) * lu(k,1096) - lu(k,1138) = lu(k,1138) - lu(k,729) * lu(k,1137) - lu(k,1140) = lu(k,1140) - lu(k,730) * lu(k,1137) - lu(k,1141) = lu(k,1141) - lu(k,731) * lu(k,1137) - lu(k,1142) = lu(k,1142) - lu(k,732) * lu(k,1137) - lu(k,1146) = lu(k,1146) - lu(k,733) * lu(k,1137) - lu(k,1147) = lu(k,1147) - lu(k,734) * lu(k,1137) - lu(k,1148) = lu(k,1148) - lu(k,735) * lu(k,1137) - lu(k,1149) = lu(k,1149) - lu(k,736) * lu(k,1137) - lu(k,1150) = lu(k,1150) - lu(k,737) * lu(k,1137) - lu(k,1151) = lu(k,1151) - lu(k,738) * lu(k,1137) - lu(k,1152) = lu(k,1152) - lu(k,739) * lu(k,1137) - lu(k,1153) = lu(k,1153) - lu(k,740) * lu(k,1137) - lu(k,1154) = lu(k,1154) - lu(k,741) * lu(k,1137) - lu(k,1155) = lu(k,1155) - lu(k,742) * lu(k,1137) - lu(k,1157) = lu(k,1157) - lu(k,743) * lu(k,1137) - lu(k,1158) = lu(k,1158) - lu(k,744) * lu(k,1137) - lu(k,1160) = lu(k,1160) - lu(k,745) * lu(k,1137) - lu(k,1161) = lu(k,1161) - lu(k,746) * lu(k,1137) - lu(k,1162) = lu(k,1162) - lu(k,747) * lu(k,1137) - lu(k,1163) = lu(k,1163) - lu(k,748) * lu(k,1137) - lu(k,1178) = lu(k,1178) - lu(k,729) * lu(k,1177) - lu(k,1179) = lu(k,1179) - lu(k,730) * lu(k,1177) - lu(k,1180) = lu(k,1180) - lu(k,731) * lu(k,1177) - lu(k,1181) = lu(k,1181) - lu(k,732) * lu(k,1177) - lu(k,1185) = lu(k,1185) - lu(k,733) * lu(k,1177) - lu(k,1186) = lu(k,1186) - lu(k,734) * lu(k,1177) - lu(k,1187) = lu(k,1187) - lu(k,735) * lu(k,1177) - lu(k,1188) = lu(k,1188) - lu(k,736) * lu(k,1177) - lu(k,1189) = lu(k,1189) - lu(k,737) * lu(k,1177) - lu(k,1190) = lu(k,1190) - lu(k,738) * lu(k,1177) - lu(k,1191) = lu(k,1191) - lu(k,739) * lu(k,1177) - lu(k,1192) = lu(k,1192) - lu(k,740) * lu(k,1177) - lu(k,1193) = lu(k,1193) - lu(k,741) * lu(k,1177) - lu(k,1194) = lu(k,1194) - lu(k,742) * lu(k,1177) - lu(k,1196) = lu(k,1196) - lu(k,743) * lu(k,1177) - lu(k,1197) = lu(k,1197) - lu(k,744) * lu(k,1177) - lu(k,1199) = lu(k,1199) - lu(k,745) * lu(k,1177) - lu(k,1200) = lu(k,1200) - lu(k,746) * lu(k,1177) - lu(k,1201) = lu(k,1201) - lu(k,747) * lu(k,1177) - lu(k,1202) = lu(k,1202) - lu(k,748) * lu(k,1177) - lu(k,1212) = lu(k,1212) - lu(k,729) * lu(k,1211) - lu(k,1214) = lu(k,1214) - lu(k,730) * lu(k,1211) - lu(k,1215) = lu(k,1215) - lu(k,731) * lu(k,1211) - lu(k,1216) = lu(k,1216) - lu(k,732) * lu(k,1211) - lu(k,1220) = lu(k,1220) - lu(k,733) * lu(k,1211) - lu(k,1221) = lu(k,1221) - lu(k,734) * lu(k,1211) - lu(k,1222) = lu(k,1222) - lu(k,735) * lu(k,1211) - lu(k,1223) = lu(k,1223) - lu(k,736) * lu(k,1211) - lu(k,1224) = lu(k,1224) - lu(k,737) * lu(k,1211) - lu(k,1225) = lu(k,1225) - lu(k,738) * lu(k,1211) - lu(k,1226) = lu(k,1226) - lu(k,739) * lu(k,1211) - lu(k,1227) = lu(k,1227) - lu(k,740) * lu(k,1211) - lu(k,1228) = lu(k,1228) - lu(k,741) * lu(k,1211) - lu(k,1229) = lu(k,1229) - lu(k,742) * lu(k,1211) - lu(k,1231) = lu(k,1231) - lu(k,743) * lu(k,1211) - lu(k,1232) = lu(k,1232) - lu(k,744) * lu(k,1211) - lu(k,1234) = lu(k,1234) - lu(k,745) * lu(k,1211) - lu(k,1235) = lu(k,1235) - lu(k,746) * lu(k,1211) - lu(k,1236) = lu(k,1236) - lu(k,747) * lu(k,1211) - lu(k,1237) = lu(k,1237) - lu(k,748) * lu(k,1211) - lu(k,1259) = lu(k,1259) - lu(k,729) * lu(k,1258) - lu(k,1261) = lu(k,1261) - lu(k,730) * lu(k,1258) - lu(k,1262) = lu(k,1262) - lu(k,731) * lu(k,1258) - lu(k,1263) = lu(k,1263) - lu(k,732) * lu(k,1258) - lu(k,1267) = lu(k,1267) - lu(k,733) * lu(k,1258) - lu(k,1268) = lu(k,1268) - lu(k,734) * lu(k,1258) - lu(k,1269) = lu(k,1269) - lu(k,735) * lu(k,1258) - lu(k,1270) = lu(k,1270) - lu(k,736) * lu(k,1258) - lu(k,1271) = lu(k,1271) - lu(k,737) * lu(k,1258) - lu(k,1272) = lu(k,1272) - lu(k,738) * lu(k,1258) - lu(k,1273) = lu(k,1273) - lu(k,739) * lu(k,1258) - lu(k,1274) = lu(k,1274) - lu(k,740) * lu(k,1258) - lu(k,1275) = lu(k,1275) - lu(k,741) * lu(k,1258) - lu(k,1276) = lu(k,1276) - lu(k,742) * lu(k,1258) - lu(k,1278) = lu(k,1278) - lu(k,743) * lu(k,1258) - lu(k,1279) = lu(k,1279) - lu(k,744) * lu(k,1258) - lu(k,1281) = lu(k,1281) - lu(k,745) * lu(k,1258) - lu(k,1282) = lu(k,1282) - lu(k,746) * lu(k,1258) - lu(k,1283) = lu(k,1283) - lu(k,747) * lu(k,1258) - lu(k,1284) = lu(k,1284) - lu(k,748) * lu(k,1258) - lu(k,1303) = lu(k,1303) - lu(k,729) * lu(k,1302) - lu(k,1305) = lu(k,1305) - lu(k,730) * lu(k,1302) - lu(k,1306) = lu(k,1306) - lu(k,731) * lu(k,1302) - lu(k,1307) = lu(k,1307) - lu(k,732) * lu(k,1302) - lu(k,1311) = lu(k,1311) - lu(k,733) * lu(k,1302) - lu(k,1312) = lu(k,1312) - lu(k,734) * lu(k,1302) - lu(k,1313) = lu(k,1313) - lu(k,735) * lu(k,1302) - lu(k,1314) = lu(k,1314) - lu(k,736) * lu(k,1302) - lu(k,1315) = lu(k,1315) - lu(k,737) * lu(k,1302) - lu(k,1316) = lu(k,1316) - lu(k,738) * lu(k,1302) - lu(k,1317) = lu(k,1317) - lu(k,739) * lu(k,1302) - lu(k,1318) = lu(k,1318) - lu(k,740) * lu(k,1302) - lu(k,1319) = lu(k,1319) - lu(k,741) * lu(k,1302) - lu(k,1320) = lu(k,1320) - lu(k,742) * lu(k,1302) - lu(k,1322) = lu(k,1322) - lu(k,743) * lu(k,1302) - lu(k,1323) = lu(k,1323) - lu(k,744) * lu(k,1302) - lu(k,1325) = lu(k,1325) - lu(k,745) * lu(k,1302) - lu(k,1326) = lu(k,1326) - lu(k,746) * lu(k,1302) - lu(k,1327) = lu(k,1327) - lu(k,747) * lu(k,1302) - lu(k,1328) = lu(k,1328) - lu(k,748) * lu(k,1302) - lu(k,1342) = lu(k,1342) - lu(k,729) * lu(k,1341) - lu(k,1344) = lu(k,1344) - lu(k,730) * lu(k,1341) - lu(k,1345) = lu(k,1345) - lu(k,731) * lu(k,1341) - lu(k,1346) = lu(k,1346) - lu(k,732) * lu(k,1341) - lu(k,1350) = lu(k,1350) - lu(k,733) * lu(k,1341) - lu(k,1351) = lu(k,1351) - lu(k,734) * lu(k,1341) - lu(k,1352) = lu(k,1352) - lu(k,735) * lu(k,1341) - lu(k,1353) = lu(k,1353) - lu(k,736) * lu(k,1341) - lu(k,1354) = lu(k,1354) - lu(k,737) * lu(k,1341) - lu(k,1355) = lu(k,1355) - lu(k,738) * lu(k,1341) - lu(k,1356) = lu(k,1356) - lu(k,739) * lu(k,1341) - lu(k,1357) = lu(k,1357) - lu(k,740) * lu(k,1341) - lu(k,1358) = lu(k,1358) - lu(k,741) * lu(k,1341) - lu(k,1359) = lu(k,1359) - lu(k,742) * lu(k,1341) - lu(k,1361) = lu(k,1361) - lu(k,743) * lu(k,1341) - lu(k,1362) = lu(k,1362) - lu(k,744) * lu(k,1341) - lu(k,1364) = lu(k,1364) - lu(k,745) * lu(k,1341) - lu(k,1365) = lu(k,1365) - lu(k,746) * lu(k,1341) - lu(k,1366) = lu(k,1366) - lu(k,747) * lu(k,1341) - lu(k,1367) = lu(k,1367) - lu(k,748) * lu(k,1341) - lu(k,1377) = lu(k,1377) - lu(k,729) * lu(k,1376) - lu(k,1379) = lu(k,1379) - lu(k,730) * lu(k,1376) - lu(k,1380) = lu(k,1380) - lu(k,731) * lu(k,1376) - lu(k,1381) = lu(k,1381) - lu(k,732) * lu(k,1376) - lu(k,1385) = lu(k,1385) - lu(k,733) * lu(k,1376) - lu(k,1386) = lu(k,1386) - lu(k,734) * lu(k,1376) - lu(k,1387) = lu(k,1387) - lu(k,735) * lu(k,1376) - lu(k,1388) = lu(k,1388) - lu(k,736) * lu(k,1376) - lu(k,1389) = lu(k,1389) - lu(k,737) * lu(k,1376) - lu(k,1390) = lu(k,1390) - lu(k,738) * lu(k,1376) - lu(k,1391) = lu(k,1391) - lu(k,739) * lu(k,1376) - lu(k,1392) = lu(k,1392) - lu(k,740) * lu(k,1376) - lu(k,1393) = lu(k,1393) - lu(k,741) * lu(k,1376) - lu(k,1394) = lu(k,1394) - lu(k,742) * lu(k,1376) - lu(k,1396) = lu(k,1396) - lu(k,743) * lu(k,1376) - lu(k,1397) = lu(k,1397) - lu(k,744) * lu(k,1376) - lu(k,1399) = lu(k,1399) - lu(k,745) * lu(k,1376) - lu(k,1400) = lu(k,1400) - lu(k,746) * lu(k,1376) - lu(k,1401) = lu(k,1401) - lu(k,747) * lu(k,1376) - lu(k,1402) = lu(k,1402) - lu(k,748) * lu(k,1376) - lu(k,1421) = lu(k,1421) - lu(k,729) * lu(k,1420) - lu(k,1423) = lu(k,1423) - lu(k,730) * lu(k,1420) - lu(k,1424) = lu(k,1424) - lu(k,731) * lu(k,1420) - lu(k,1425) = lu(k,1425) - lu(k,732) * lu(k,1420) - lu(k,1429) = lu(k,1429) - lu(k,733) * lu(k,1420) - lu(k,1430) = lu(k,1430) - lu(k,734) * lu(k,1420) - lu(k,1431) = lu(k,1431) - lu(k,735) * lu(k,1420) - lu(k,1432) = lu(k,1432) - lu(k,736) * lu(k,1420) - lu(k,1433) = lu(k,1433) - lu(k,737) * lu(k,1420) - lu(k,1434) = lu(k,1434) - lu(k,738) * lu(k,1420) - lu(k,1435) = lu(k,1435) - lu(k,739) * lu(k,1420) - lu(k,1436) = lu(k,1436) - lu(k,740) * lu(k,1420) - lu(k,1437) = lu(k,1437) - lu(k,741) * lu(k,1420) - lu(k,1438) = lu(k,1438) - lu(k,742) * lu(k,1420) - lu(k,1440) = lu(k,1440) - lu(k,743) * lu(k,1420) - lu(k,1441) = lu(k,1441) - lu(k,744) * lu(k,1420) - lu(k,1443) = lu(k,1443) - lu(k,745) * lu(k,1420) - lu(k,1444) = lu(k,1444) - lu(k,746) * lu(k,1420) - lu(k,1445) = lu(k,1445) - lu(k,747) * lu(k,1420) - lu(k,1446) = lu(k,1446) - lu(k,748) * lu(k,1420) - lu(k,1467) = lu(k,1467) - lu(k,729) * lu(k,1466) - lu(k,1469) = lu(k,1469) - lu(k,730) * lu(k,1466) - lu(k,1470) = lu(k,1470) - lu(k,731) * lu(k,1466) - lu(k,1471) = lu(k,1471) - lu(k,732) * lu(k,1466) - lu(k,1475) = lu(k,1475) - lu(k,733) * lu(k,1466) - lu(k,1476) = lu(k,1476) - lu(k,734) * lu(k,1466) - lu(k,1477) = lu(k,1477) - lu(k,735) * lu(k,1466) - lu(k,1478) = lu(k,1478) - lu(k,736) * lu(k,1466) - lu(k,1479) = lu(k,1479) - lu(k,737) * lu(k,1466) - lu(k,1480) = lu(k,1480) - lu(k,738) * lu(k,1466) - lu(k,1481) = lu(k,1481) - lu(k,739) * lu(k,1466) - lu(k,1482) = lu(k,1482) - lu(k,740) * lu(k,1466) - lu(k,1483) = lu(k,1483) - lu(k,741) * lu(k,1466) - lu(k,1484) = lu(k,1484) - lu(k,742) * lu(k,1466) - lu(k,1486) = lu(k,1486) - lu(k,743) * lu(k,1466) - lu(k,1487) = lu(k,1487) - lu(k,744) * lu(k,1466) - lu(k,1489) = lu(k,1489) - lu(k,745) * lu(k,1466) - lu(k,1490) = lu(k,1490) - lu(k,746) * lu(k,1466) - lu(k,1491) = lu(k,1491) - lu(k,747) * lu(k,1466) - lu(k,1492) = lu(k,1492) - lu(k,748) * lu(k,1466) - lu(k,1509) = lu(k,1509) - lu(k,729) * lu(k,1508) - lu(k,1511) = lu(k,1511) - lu(k,730) * lu(k,1508) - lu(k,1512) = lu(k,1512) - lu(k,731) * lu(k,1508) - lu(k,1513) = lu(k,1513) - lu(k,732) * lu(k,1508) - lu(k,1517) = lu(k,1517) - lu(k,733) * lu(k,1508) - lu(k,1518) = lu(k,1518) - lu(k,734) * lu(k,1508) - lu(k,1519) = lu(k,1519) - lu(k,735) * lu(k,1508) - lu(k,1520) = lu(k,1520) - lu(k,736) * lu(k,1508) - lu(k,1521) = lu(k,1521) - lu(k,737) * lu(k,1508) - lu(k,1522) = lu(k,1522) - lu(k,738) * lu(k,1508) - lu(k,1523) = lu(k,1523) - lu(k,739) * lu(k,1508) - lu(k,1524) = lu(k,1524) - lu(k,740) * lu(k,1508) - lu(k,1525) = lu(k,1525) - lu(k,741) * lu(k,1508) - lu(k,1526) = lu(k,1526) - lu(k,742) * lu(k,1508) - lu(k,1528) = lu(k,1528) - lu(k,743) * lu(k,1508) - lu(k,1529) = lu(k,1529) - lu(k,744) * lu(k,1508) - lu(k,1531) = lu(k,1531) - lu(k,745) * lu(k,1508) - lu(k,1532) = lu(k,1532) - lu(k,746) * lu(k,1508) - lu(k,1533) = lu(k,1533) - lu(k,747) * lu(k,1508) - lu(k,1534) = lu(k,1534) - lu(k,748) * lu(k,1508) - lu(k,1550) = lu(k,1550) - lu(k,729) * lu(k,1549) - lu(k,1552) = lu(k,1552) - lu(k,730) * lu(k,1549) - lu(k,1553) = lu(k,1553) - lu(k,731) * lu(k,1549) - lu(k,1554) = lu(k,1554) - lu(k,732) * lu(k,1549) - lu(k,1558) = lu(k,1558) - lu(k,733) * lu(k,1549) - lu(k,1559) = lu(k,1559) - lu(k,734) * lu(k,1549) - lu(k,1560) = lu(k,1560) - lu(k,735) * lu(k,1549) - lu(k,1561) = lu(k,1561) - lu(k,736) * lu(k,1549) - lu(k,1562) = lu(k,1562) - lu(k,737) * lu(k,1549) - lu(k,1563) = lu(k,1563) - lu(k,738) * lu(k,1549) - lu(k,1564) = lu(k,1564) - lu(k,739) * lu(k,1549) - lu(k,1565) = lu(k,1565) - lu(k,740) * lu(k,1549) - lu(k,1566) = lu(k,1566) - lu(k,741) * lu(k,1549) - lu(k,1567) = lu(k,1567) - lu(k,742) * lu(k,1549) - lu(k,1569) = lu(k,1569) - lu(k,743) * lu(k,1549) - lu(k,1570) = lu(k,1570) - lu(k,744) * lu(k,1549) - lu(k,1572) = lu(k,1572) - lu(k,745) * lu(k,1549) - lu(k,1573) = lu(k,1573) - lu(k,746) * lu(k,1549) - lu(k,1574) = lu(k,1574) - lu(k,747) * lu(k,1549) - lu(k,1575) = lu(k,1575) - lu(k,748) * lu(k,1549) - lu(k,1607) = lu(k,1607) - lu(k,729) * lu(k,1606) - lu(k,1609) = lu(k,1609) - lu(k,730) * lu(k,1606) - lu(k,1610) = lu(k,1610) - lu(k,731) * lu(k,1606) - lu(k,1611) = lu(k,1611) - lu(k,732) * lu(k,1606) - lu(k,1615) = lu(k,1615) - lu(k,733) * lu(k,1606) - lu(k,1616) = lu(k,1616) - lu(k,734) * lu(k,1606) - lu(k,1617) = lu(k,1617) - lu(k,735) * lu(k,1606) - lu(k,1618) = lu(k,1618) - lu(k,736) * lu(k,1606) - lu(k,1619) = lu(k,1619) - lu(k,737) * lu(k,1606) - lu(k,1620) = lu(k,1620) - lu(k,738) * lu(k,1606) - lu(k,1621) = lu(k,1621) - lu(k,739) * lu(k,1606) - lu(k,1622) = lu(k,1622) - lu(k,740) * lu(k,1606) - lu(k,1623) = lu(k,1623) - lu(k,741) * lu(k,1606) - lu(k,1624) = lu(k,1624) - lu(k,742) * lu(k,1606) - lu(k,1626) = lu(k,1626) - lu(k,743) * lu(k,1606) - lu(k,1627) = lu(k,1627) - lu(k,744) * lu(k,1606) - lu(k,1629) = lu(k,1629) - lu(k,745) * lu(k,1606) - lu(k,1630) = lu(k,1630) - lu(k,746) * lu(k,1606) - lu(k,1631) = lu(k,1631) - lu(k,747) * lu(k,1606) - lu(k,1632) = lu(k,1632) - lu(k,748) * lu(k,1606) - lu(k,1668) = lu(k,1668) - lu(k,729) * lu(k,1667) - lu(k,1670) = lu(k,1670) - lu(k,730) * lu(k,1667) - lu(k,1671) = lu(k,1671) - lu(k,731) * lu(k,1667) - lu(k,1672) = lu(k,1672) - lu(k,732) * lu(k,1667) - lu(k,1676) = lu(k,1676) - lu(k,733) * lu(k,1667) - lu(k,1677) = lu(k,1677) - lu(k,734) * lu(k,1667) - lu(k,1678) = lu(k,1678) - lu(k,735) * lu(k,1667) - lu(k,1679) = lu(k,1679) - lu(k,736) * lu(k,1667) - lu(k,1680) = lu(k,1680) - lu(k,737) * lu(k,1667) - lu(k,1681) = lu(k,1681) - lu(k,738) * lu(k,1667) - lu(k,1682) = lu(k,1682) - lu(k,739) * lu(k,1667) - lu(k,1683) = lu(k,1683) - lu(k,740) * lu(k,1667) - lu(k,1684) = lu(k,1684) - lu(k,741) * lu(k,1667) - lu(k,1685) = lu(k,1685) - lu(k,742) * lu(k,1667) - lu(k,1687) = lu(k,1687) - lu(k,743) * lu(k,1667) - lu(k,1688) = lu(k,1688) - lu(k,744) * lu(k,1667) - lu(k,1690) = lu(k,1690) - lu(k,745) * lu(k,1667) - lu(k,1691) = lu(k,1691) - lu(k,746) * lu(k,1667) - lu(k,1692) = lu(k,1692) - lu(k,747) * lu(k,1667) - lu(k,1693) = lu(k,1693) - lu(k,748) * lu(k,1667) - lu(k,1703) = lu(k,1703) - lu(k,729) * lu(k,1702) - lu(k,1705) = lu(k,1705) - lu(k,730) * lu(k,1702) - lu(k,1706) = lu(k,1706) - lu(k,731) * lu(k,1702) - lu(k,1707) = lu(k,1707) - lu(k,732) * lu(k,1702) - lu(k,1711) = lu(k,1711) - lu(k,733) * lu(k,1702) - lu(k,1712) = lu(k,1712) - lu(k,734) * lu(k,1702) - lu(k,1713) = lu(k,1713) - lu(k,735) * lu(k,1702) - lu(k,1714) = lu(k,1714) - lu(k,736) * lu(k,1702) - lu(k,1715) = lu(k,1715) - lu(k,737) * lu(k,1702) - lu(k,1716) = lu(k,1716) - lu(k,738) * lu(k,1702) - lu(k,1717) = lu(k,1717) - lu(k,739) * lu(k,1702) - lu(k,1718) = lu(k,1718) - lu(k,740) * lu(k,1702) - lu(k,1719) = lu(k,1719) - lu(k,741) * lu(k,1702) - lu(k,1720) = lu(k,1720) - lu(k,742) * lu(k,1702) - lu(k,1722) = lu(k,1722) - lu(k,743) * lu(k,1702) - lu(k,1723) = lu(k,1723) - lu(k,744) * lu(k,1702) - lu(k,1725) = lu(k,1725) - lu(k,745) * lu(k,1702) - lu(k,1726) = lu(k,1726) - lu(k,746) * lu(k,1702) - lu(k,1727) = lu(k,1727) - lu(k,747) * lu(k,1702) - lu(k,1728) = lu(k,1728) - lu(k,748) * lu(k,1702) - lu(k,1745) = lu(k,1745) - lu(k,729) * lu(k,1744) - lu(k,1747) = lu(k,1747) - lu(k,730) * lu(k,1744) - lu(k,1748) = lu(k,1748) - lu(k,731) * lu(k,1744) - lu(k,1749) = lu(k,1749) - lu(k,732) * lu(k,1744) - lu(k,1753) = lu(k,1753) - lu(k,733) * lu(k,1744) - lu(k,1754) = lu(k,1754) - lu(k,734) * lu(k,1744) - lu(k,1755) = lu(k,1755) - lu(k,735) * lu(k,1744) - lu(k,1756) = lu(k,1756) - lu(k,736) * lu(k,1744) - lu(k,1757) = lu(k,1757) - lu(k,737) * lu(k,1744) - lu(k,1758) = lu(k,1758) - lu(k,738) * lu(k,1744) - lu(k,1759) = lu(k,1759) - lu(k,739) * lu(k,1744) - lu(k,1760) = lu(k,1760) - lu(k,740) * lu(k,1744) - lu(k,1761) = lu(k,1761) - lu(k,741) * lu(k,1744) - lu(k,1762) = lu(k,1762) - lu(k,742) * lu(k,1744) - lu(k,1764) = lu(k,1764) - lu(k,743) * lu(k,1744) - lu(k,1765) = lu(k,1765) - lu(k,744) * lu(k,1744) - lu(k,1767) = lu(k,1767) - lu(k,745) * lu(k,1744) - lu(k,1768) = lu(k,1768) - lu(k,746) * lu(k,1744) - lu(k,1769) = lu(k,1769) - lu(k,747) * lu(k,1744) - lu(k,1770) = lu(k,1770) - lu(k,748) * lu(k,1744) - lu(k,1803) = lu(k,1803) - lu(k,729) * lu(k,1802) - lu(k,1805) = lu(k,1805) - lu(k,730) * lu(k,1802) - lu(k,1806) = lu(k,1806) - lu(k,731) * lu(k,1802) - lu(k,1807) = lu(k,1807) - lu(k,732) * lu(k,1802) - lu(k,1811) = lu(k,1811) - lu(k,733) * lu(k,1802) - lu(k,1812) = lu(k,1812) - lu(k,734) * lu(k,1802) - lu(k,1813) = lu(k,1813) - lu(k,735) * lu(k,1802) - lu(k,1814) = lu(k,1814) - lu(k,736) * lu(k,1802) - lu(k,1815) = lu(k,1815) - lu(k,737) * lu(k,1802) - lu(k,1816) = lu(k,1816) - lu(k,738) * lu(k,1802) - lu(k,1817) = lu(k,1817) - lu(k,739) * lu(k,1802) - lu(k,1818) = lu(k,1818) - lu(k,740) * lu(k,1802) - lu(k,1819) = lu(k,1819) - lu(k,741) * lu(k,1802) - lu(k,1820) = lu(k,1820) - lu(k,742) * lu(k,1802) - lu(k,1822) = lu(k,1822) - lu(k,743) * lu(k,1802) - lu(k,1823) = lu(k,1823) - lu(k,744) * lu(k,1802) - lu(k,1825) = lu(k,1825) - lu(k,745) * lu(k,1802) - lu(k,1826) = lu(k,1826) - lu(k,746) * lu(k,1802) - lu(k,1827) = lu(k,1827) - lu(k,747) * lu(k,1802) - lu(k,1828) = lu(k,1828) - lu(k,748) * lu(k,1802) - lu(k,775) = 1._r8 / lu(k,775) - lu(k,776) = lu(k,776) * lu(k,775) - lu(k,777) = lu(k,777) * lu(k,775) - lu(k,778) = lu(k,778) * lu(k,775) - lu(k,779) = lu(k,779) * lu(k,775) - lu(k,780) = lu(k,780) * lu(k,775) - lu(k,781) = lu(k,781) * lu(k,775) - lu(k,782) = lu(k,782) * lu(k,775) - lu(k,783) = lu(k,783) * lu(k,775) - lu(k,784) = lu(k,784) * lu(k,775) - lu(k,785) = lu(k,785) * lu(k,775) - lu(k,786) = lu(k,786) * lu(k,775) - lu(k,787) = lu(k,787) * lu(k,775) - lu(k,788) = lu(k,788) * lu(k,775) - lu(k,789) = lu(k,789) * lu(k,775) - lu(k,790) = lu(k,790) * lu(k,775) - lu(k,791) = lu(k,791) * lu(k,775) - lu(k,792) = lu(k,792) * lu(k,775) - lu(k,793) = lu(k,793) * lu(k,775) - lu(k,794) = lu(k,794) * lu(k,775) - lu(k,795) = lu(k,795) * lu(k,775) - lu(k,804) = lu(k,804) - lu(k,776) * lu(k,802) - lu(k,805) = lu(k,805) - lu(k,777) * lu(k,802) - lu(k,806) = lu(k,806) - lu(k,778) * lu(k,802) - lu(k,807) = lu(k,807) - lu(k,779) * lu(k,802) - lu(k,810) = lu(k,810) - lu(k,780) * lu(k,802) - lu(k,811) = lu(k,811) - lu(k,781) * lu(k,802) - lu(k,812) = lu(k,812) - lu(k,782) * lu(k,802) - lu(k,813) = lu(k,813) - lu(k,783) * lu(k,802) - lu(k,814) = lu(k,814) - lu(k,784) * lu(k,802) - lu(k,815) = lu(k,815) - lu(k,785) * lu(k,802) - lu(k,816) = lu(k,816) - lu(k,786) * lu(k,802) - lu(k,817) = lu(k,817) - lu(k,787) * lu(k,802) - lu(k,818) = lu(k,818) - lu(k,788) * lu(k,802) - lu(k,819) = lu(k,819) - lu(k,789) * lu(k,802) - lu(k,821) = lu(k,821) - lu(k,790) * lu(k,802) - lu(k,822) = lu(k,822) - lu(k,791) * lu(k,802) - lu(k,824) = lu(k,824) - lu(k,792) * lu(k,802) - lu(k,825) = lu(k,825) - lu(k,793) * lu(k,802) - lu(k,826) = lu(k,826) - lu(k,794) * lu(k,802) - lu(k,827) = lu(k,827) - lu(k,795) * lu(k,802) - lu(k,844) = lu(k,844) - lu(k,776) * lu(k,843) - lu(k,845) = lu(k,845) - lu(k,777) * lu(k,843) - lu(k,846) = lu(k,846) - lu(k,778) * lu(k,843) - lu(k,847) = lu(k,847) - lu(k,779) * lu(k,843) - lu(k,850) = lu(k,850) - lu(k,780) * lu(k,843) - lu(k,851) = lu(k,851) - lu(k,781) * lu(k,843) - lu(k,852) = lu(k,852) - lu(k,782) * lu(k,843) - lu(k,853) = lu(k,853) - lu(k,783) * lu(k,843) - lu(k,854) = lu(k,854) - lu(k,784) * lu(k,843) - lu(k,855) = lu(k,855) - lu(k,785) * lu(k,843) - lu(k,856) = lu(k,856) - lu(k,786) * lu(k,843) - lu(k,857) = lu(k,857) - lu(k,787) * lu(k,843) - lu(k,858) = lu(k,858) - lu(k,788) * lu(k,843) - lu(k,859) = lu(k,859) - lu(k,789) * lu(k,843) - lu(k,861) = lu(k,861) - lu(k,790) * lu(k,843) - lu(k,862) = lu(k,862) - lu(k,791) * lu(k,843) - lu(k,863) = lu(k,863) - lu(k,792) * lu(k,843) - lu(k,864) = lu(k,864) - lu(k,793) * lu(k,843) - lu(k,865) = lu(k,865) - lu(k,794) * lu(k,843) - lu(k,866) = lu(k,866) - lu(k,795) * lu(k,843) - lu(k,885) = lu(k,885) - lu(k,776) * lu(k,883) - lu(k,886) = lu(k,886) - lu(k,777) * lu(k,883) - lu(k,887) = lu(k,887) - lu(k,778) * lu(k,883) - lu(k,888) = lu(k,888) - lu(k,779) * lu(k,883) - lu(k,891) = lu(k,891) - lu(k,780) * lu(k,883) - lu(k,892) = lu(k,892) - lu(k,781) * lu(k,883) - lu(k,893) = lu(k,893) - lu(k,782) * lu(k,883) - lu(k,894) = lu(k,894) - lu(k,783) * lu(k,883) - lu(k,895) = lu(k,895) - lu(k,784) * lu(k,883) - lu(k,896) = lu(k,896) - lu(k,785) * lu(k,883) - lu(k,897) = lu(k,897) - lu(k,786) * lu(k,883) - lu(k,898) = lu(k,898) - lu(k,787) * lu(k,883) - lu(k,899) = lu(k,899) - lu(k,788) * lu(k,883) - lu(k,900) = lu(k,900) - lu(k,789) * lu(k,883) - lu(k,902) = lu(k,902) - lu(k,790) * lu(k,883) - lu(k,903) = lu(k,903) - lu(k,791) * lu(k,883) - lu(k,905) = lu(k,905) - lu(k,792) * lu(k,883) - lu(k,906) = lu(k,906) - lu(k,793) * lu(k,883) - lu(k,907) = lu(k,907) - lu(k,794) * lu(k,883) - lu(k,908) = lu(k,908) - lu(k,795) * lu(k,883) - lu(k,926) = lu(k,926) - lu(k,776) * lu(k,924) - lu(k,927) = lu(k,927) - lu(k,777) * lu(k,924) - lu(k,928) = lu(k,928) - lu(k,778) * lu(k,924) - lu(k,929) = lu(k,929) - lu(k,779) * lu(k,924) - lu(k,932) = lu(k,932) - lu(k,780) * lu(k,924) - lu(k,933) = lu(k,933) - lu(k,781) * lu(k,924) - lu(k,934) = lu(k,934) - lu(k,782) * lu(k,924) - lu(k,935) = lu(k,935) - lu(k,783) * lu(k,924) - lu(k,936) = lu(k,936) - lu(k,784) * lu(k,924) - lu(k,937) = lu(k,937) - lu(k,785) * lu(k,924) - lu(k,938) = lu(k,938) - lu(k,786) * lu(k,924) - lu(k,939) = lu(k,939) - lu(k,787) * lu(k,924) - lu(k,940) = lu(k,940) - lu(k,788) * lu(k,924) - lu(k,941) = lu(k,941) - lu(k,789) * lu(k,924) - lu(k,943) = lu(k,943) - lu(k,790) * lu(k,924) - lu(k,944) = lu(k,944) - lu(k,791) * lu(k,924) - lu(k,946) = lu(k,946) - lu(k,792) * lu(k,924) - lu(k,947) = lu(k,947) - lu(k,793) * lu(k,924) - lu(k,948) = lu(k,948) - lu(k,794) * lu(k,924) - lu(k,949) = lu(k,949) - lu(k,795) * lu(k,924) - lu(k,971) = lu(k,971) - lu(k,776) * lu(k,969) - lu(k,972) = lu(k,972) - lu(k,777) * lu(k,969) - lu(k,973) = lu(k,973) - lu(k,778) * lu(k,969) - lu(k,974) = lu(k,974) - lu(k,779) * lu(k,969) - lu(k,977) = lu(k,977) - lu(k,780) * lu(k,969) - lu(k,978) = lu(k,978) - lu(k,781) * lu(k,969) - lu(k,979) = lu(k,979) - lu(k,782) * lu(k,969) - lu(k,980) = lu(k,980) - lu(k,783) * lu(k,969) - lu(k,981) = lu(k,981) - lu(k,784) * lu(k,969) - lu(k,982) = lu(k,982) - lu(k,785) * lu(k,969) - lu(k,983) = lu(k,983) - lu(k,786) * lu(k,969) - lu(k,984) = lu(k,984) - lu(k,787) * lu(k,969) - lu(k,985) = lu(k,985) - lu(k,788) * lu(k,969) - lu(k,986) = lu(k,986) - lu(k,789) * lu(k,969) - lu(k,988) = lu(k,988) - lu(k,790) * lu(k,969) - lu(k,989) = lu(k,989) - lu(k,791) * lu(k,969) - lu(k,991) = lu(k,991) - lu(k,792) * lu(k,969) - lu(k,992) = lu(k,992) - lu(k,793) * lu(k,969) - lu(k,993) = lu(k,993) - lu(k,794) * lu(k,969) - lu(k,994) = lu(k,994) - lu(k,795) * lu(k,969) - lu(k,1013) = lu(k,1013) - lu(k,776) * lu(k,1011) - lu(k,1014) = lu(k,1014) - lu(k,777) * lu(k,1011) - lu(k,1015) = lu(k,1015) - lu(k,778) * lu(k,1011) - lu(k,1016) = lu(k,1016) - lu(k,779) * lu(k,1011) - lu(k,1019) = lu(k,1019) - lu(k,780) * lu(k,1011) - lu(k,1020) = lu(k,1020) - lu(k,781) * lu(k,1011) - lu(k,1021) = lu(k,1021) - lu(k,782) * lu(k,1011) - lu(k,1022) = lu(k,1022) - lu(k,783) * lu(k,1011) - lu(k,1023) = lu(k,1023) - lu(k,784) * lu(k,1011) - lu(k,1024) = lu(k,1024) - lu(k,785) * lu(k,1011) - lu(k,1025) = lu(k,1025) - lu(k,786) * lu(k,1011) - lu(k,1026) = lu(k,1026) - lu(k,787) * lu(k,1011) - lu(k,1027) = lu(k,1027) - lu(k,788) * lu(k,1011) - lu(k,1028) = lu(k,1028) - lu(k,789) * lu(k,1011) - lu(k,1030) = lu(k,1030) - lu(k,790) * lu(k,1011) - lu(k,1031) = lu(k,1031) - lu(k,791) * lu(k,1011) - lu(k,1033) = lu(k,1033) - lu(k,792) * lu(k,1011) - lu(k,1034) = lu(k,1034) - lu(k,793) * lu(k,1011) - lu(k,1035) = lu(k,1035) - lu(k,794) * lu(k,1011) - lu(k,1036) = lu(k,1036) - lu(k,795) * lu(k,1011) - lu(k,1055) = lu(k,1055) - lu(k,776) * lu(k,1053) - lu(k,1056) = lu(k,1056) - lu(k,777) * lu(k,1053) - lu(k,1057) = lu(k,1057) - lu(k,778) * lu(k,1053) - lu(k,1058) = lu(k,1058) - lu(k,779) * lu(k,1053) - lu(k,1061) = lu(k,1061) - lu(k,780) * lu(k,1053) - lu(k,1062) = lu(k,1062) - lu(k,781) * lu(k,1053) - lu(k,1063) = lu(k,1063) - lu(k,782) * lu(k,1053) - lu(k,1064) = lu(k,1064) - lu(k,783) * lu(k,1053) - lu(k,1065) = lu(k,1065) - lu(k,784) * lu(k,1053) - lu(k,1066) = lu(k,1066) - lu(k,785) * lu(k,1053) - lu(k,1067) = lu(k,1067) - lu(k,786) * lu(k,1053) - lu(k,1068) = lu(k,1068) - lu(k,787) * lu(k,1053) - lu(k,1069) = lu(k,1069) - lu(k,788) * lu(k,1053) - lu(k,1070) = lu(k,1070) - lu(k,789) * lu(k,1053) - lu(k,1072) = lu(k,1072) - lu(k,790) * lu(k,1053) - lu(k,1073) = lu(k,1073) - lu(k,791) * lu(k,1053) - lu(k,1075) = lu(k,1075) - lu(k,792) * lu(k,1053) - lu(k,1076) = lu(k,1076) - lu(k,793) * lu(k,1053) - lu(k,1077) = lu(k,1077) - lu(k,794) * lu(k,1053) - lu(k,1078) = lu(k,1078) - lu(k,795) * lu(k,1053) - lu(k,1099) = lu(k,1099) - lu(k,776) * lu(k,1097) - lu(k,1100) = lu(k,1100) - lu(k,777) * lu(k,1097) - lu(k,1101) = lu(k,1101) - lu(k,778) * lu(k,1097) - lu(k,1102) = lu(k,1102) - lu(k,779) * lu(k,1097) - lu(k,1105) = lu(k,1105) - lu(k,780) * lu(k,1097) - lu(k,1106) = lu(k,1106) - lu(k,781) * lu(k,1097) - lu(k,1107) = lu(k,1107) - lu(k,782) * lu(k,1097) - lu(k,1108) = lu(k,1108) - lu(k,783) * lu(k,1097) - lu(k,1109) = lu(k,1109) - lu(k,784) * lu(k,1097) - lu(k,1110) = lu(k,1110) - lu(k,785) * lu(k,1097) - lu(k,1111) = lu(k,1111) - lu(k,786) * lu(k,1097) - lu(k,1112) = lu(k,1112) - lu(k,787) * lu(k,1097) - lu(k,1113) = lu(k,1113) - lu(k,788) * lu(k,1097) - lu(k,1114) = lu(k,1114) - lu(k,789) * lu(k,1097) - lu(k,1116) = lu(k,1116) - lu(k,790) * lu(k,1097) - lu(k,1117) = lu(k,1117) - lu(k,791) * lu(k,1097) - lu(k,1119) = lu(k,1119) - lu(k,792) * lu(k,1097) - lu(k,1120) = lu(k,1120) - lu(k,793) * lu(k,1097) - lu(k,1121) = lu(k,1121) - lu(k,794) * lu(k,1097) - lu(k,1122) = lu(k,1122) - lu(k,795) * lu(k,1097) - lu(k,1140) = lu(k,1140) - lu(k,776) * lu(k,1138) - lu(k,1141) = lu(k,1141) - lu(k,777) * lu(k,1138) - lu(k,1142) = lu(k,1142) - lu(k,778) * lu(k,1138) - lu(k,1143) = lu(k,1143) - lu(k,779) * lu(k,1138) - lu(k,1146) = lu(k,1146) - lu(k,780) * lu(k,1138) - lu(k,1147) = lu(k,1147) - lu(k,781) * lu(k,1138) - lu(k,1148) = lu(k,1148) - lu(k,782) * lu(k,1138) - lu(k,1149) = lu(k,1149) - lu(k,783) * lu(k,1138) - lu(k,1150) = lu(k,1150) - lu(k,784) * lu(k,1138) - lu(k,1151) = lu(k,1151) - lu(k,785) * lu(k,1138) - lu(k,1152) = lu(k,1152) - lu(k,786) * lu(k,1138) - lu(k,1153) = lu(k,1153) - lu(k,787) * lu(k,1138) - lu(k,1154) = lu(k,1154) - lu(k,788) * lu(k,1138) - lu(k,1155) = lu(k,1155) - lu(k,789) * lu(k,1138) - lu(k,1157) = lu(k,1157) - lu(k,790) * lu(k,1138) - lu(k,1158) = lu(k,1158) - lu(k,791) * lu(k,1138) - lu(k,1160) = lu(k,1160) - lu(k,792) * lu(k,1138) - lu(k,1161) = lu(k,1161) - lu(k,793) * lu(k,1138) - lu(k,1162) = lu(k,1162) - lu(k,794) * lu(k,1138) - lu(k,1163) = lu(k,1163) - lu(k,795) * lu(k,1138) - lu(k,1179) = lu(k,1179) - lu(k,776) * lu(k,1178) - lu(k,1180) = lu(k,1180) - lu(k,777) * lu(k,1178) - lu(k,1181) = lu(k,1181) - lu(k,778) * lu(k,1178) - lu(k,1182) = lu(k,1182) - lu(k,779) * lu(k,1178) - lu(k,1185) = lu(k,1185) - lu(k,780) * lu(k,1178) - lu(k,1186) = lu(k,1186) - lu(k,781) * lu(k,1178) - lu(k,1187) = lu(k,1187) - lu(k,782) * lu(k,1178) - lu(k,1188) = lu(k,1188) - lu(k,783) * lu(k,1178) - lu(k,1189) = lu(k,1189) - lu(k,784) * lu(k,1178) - lu(k,1190) = lu(k,1190) - lu(k,785) * lu(k,1178) - lu(k,1191) = lu(k,1191) - lu(k,786) * lu(k,1178) - lu(k,1192) = lu(k,1192) - lu(k,787) * lu(k,1178) - lu(k,1193) = lu(k,1193) - lu(k,788) * lu(k,1178) - lu(k,1194) = lu(k,1194) - lu(k,789) * lu(k,1178) - lu(k,1196) = lu(k,1196) - lu(k,790) * lu(k,1178) - lu(k,1197) = lu(k,1197) - lu(k,791) * lu(k,1178) - lu(k,1199) = lu(k,1199) - lu(k,792) * lu(k,1178) - lu(k,1200) = lu(k,1200) - lu(k,793) * lu(k,1178) - lu(k,1201) = lu(k,1201) - lu(k,794) * lu(k,1178) - lu(k,1202) = lu(k,1202) - lu(k,795) * lu(k,1178) - lu(k,1214) = lu(k,1214) - lu(k,776) * lu(k,1212) - lu(k,1215) = lu(k,1215) - lu(k,777) * lu(k,1212) - lu(k,1216) = lu(k,1216) - lu(k,778) * lu(k,1212) - lu(k,1217) = lu(k,1217) - lu(k,779) * lu(k,1212) - lu(k,1220) = lu(k,1220) - lu(k,780) * lu(k,1212) - lu(k,1221) = lu(k,1221) - lu(k,781) * lu(k,1212) - lu(k,1222) = lu(k,1222) - lu(k,782) * lu(k,1212) - lu(k,1223) = lu(k,1223) - lu(k,783) * lu(k,1212) - lu(k,1224) = lu(k,1224) - lu(k,784) * lu(k,1212) - lu(k,1225) = lu(k,1225) - lu(k,785) * lu(k,1212) - lu(k,1226) = lu(k,1226) - lu(k,786) * lu(k,1212) - lu(k,1227) = lu(k,1227) - lu(k,787) * lu(k,1212) - lu(k,1228) = lu(k,1228) - lu(k,788) * lu(k,1212) - lu(k,1229) = lu(k,1229) - lu(k,789) * lu(k,1212) - lu(k,1231) = lu(k,1231) - lu(k,790) * lu(k,1212) - lu(k,1232) = lu(k,1232) - lu(k,791) * lu(k,1212) - lu(k,1234) = lu(k,1234) - lu(k,792) * lu(k,1212) - lu(k,1235) = lu(k,1235) - lu(k,793) * lu(k,1212) - lu(k,1236) = lu(k,1236) - lu(k,794) * lu(k,1212) - lu(k,1237) = lu(k,1237) - lu(k,795) * lu(k,1212) - lu(k,1261) = lu(k,1261) - lu(k,776) * lu(k,1259) - lu(k,1262) = lu(k,1262) - lu(k,777) * lu(k,1259) - lu(k,1263) = lu(k,1263) - lu(k,778) * lu(k,1259) - lu(k,1264) = lu(k,1264) - lu(k,779) * lu(k,1259) - lu(k,1267) = lu(k,1267) - lu(k,780) * lu(k,1259) - lu(k,1268) = lu(k,1268) - lu(k,781) * lu(k,1259) - lu(k,1269) = lu(k,1269) - lu(k,782) * lu(k,1259) - lu(k,1270) = lu(k,1270) - lu(k,783) * lu(k,1259) - lu(k,1271) = lu(k,1271) - lu(k,784) * lu(k,1259) - lu(k,1272) = lu(k,1272) - lu(k,785) * lu(k,1259) - lu(k,1273) = lu(k,1273) - lu(k,786) * lu(k,1259) - lu(k,1274) = lu(k,1274) - lu(k,787) * lu(k,1259) - lu(k,1275) = lu(k,1275) - lu(k,788) * lu(k,1259) - lu(k,1276) = lu(k,1276) - lu(k,789) * lu(k,1259) - lu(k,1278) = lu(k,1278) - lu(k,790) * lu(k,1259) - lu(k,1279) = lu(k,1279) - lu(k,791) * lu(k,1259) - lu(k,1281) = lu(k,1281) - lu(k,792) * lu(k,1259) - lu(k,1282) = lu(k,1282) - lu(k,793) * lu(k,1259) - lu(k,1283) = lu(k,1283) - lu(k,794) * lu(k,1259) - lu(k,1284) = lu(k,1284) - lu(k,795) * lu(k,1259) - lu(k,1305) = lu(k,1305) - lu(k,776) * lu(k,1303) - lu(k,1306) = lu(k,1306) - lu(k,777) * lu(k,1303) - lu(k,1307) = lu(k,1307) - lu(k,778) * lu(k,1303) - lu(k,1308) = lu(k,1308) - lu(k,779) * lu(k,1303) - lu(k,1311) = lu(k,1311) - lu(k,780) * lu(k,1303) - lu(k,1312) = lu(k,1312) - lu(k,781) * lu(k,1303) - lu(k,1313) = lu(k,1313) - lu(k,782) * lu(k,1303) - lu(k,1314) = lu(k,1314) - lu(k,783) * lu(k,1303) - lu(k,1315) = lu(k,1315) - lu(k,784) * lu(k,1303) - lu(k,1316) = lu(k,1316) - lu(k,785) * lu(k,1303) - lu(k,1317) = lu(k,1317) - lu(k,786) * lu(k,1303) - lu(k,1318) = lu(k,1318) - lu(k,787) * lu(k,1303) - lu(k,1319) = lu(k,1319) - lu(k,788) * lu(k,1303) - lu(k,1320) = lu(k,1320) - lu(k,789) * lu(k,1303) - lu(k,1322) = lu(k,1322) - lu(k,790) * lu(k,1303) - lu(k,1323) = lu(k,1323) - lu(k,791) * lu(k,1303) - lu(k,1325) = lu(k,1325) - lu(k,792) * lu(k,1303) - lu(k,1326) = lu(k,1326) - lu(k,793) * lu(k,1303) - lu(k,1327) = lu(k,1327) - lu(k,794) * lu(k,1303) - lu(k,1328) = lu(k,1328) - lu(k,795) * lu(k,1303) - lu(k,1344) = lu(k,1344) - lu(k,776) * lu(k,1342) - lu(k,1345) = lu(k,1345) - lu(k,777) * lu(k,1342) - lu(k,1346) = lu(k,1346) - lu(k,778) * lu(k,1342) - lu(k,1347) = lu(k,1347) - lu(k,779) * lu(k,1342) - lu(k,1350) = lu(k,1350) - lu(k,780) * lu(k,1342) - lu(k,1351) = lu(k,1351) - lu(k,781) * lu(k,1342) - lu(k,1352) = lu(k,1352) - lu(k,782) * lu(k,1342) - lu(k,1353) = lu(k,1353) - lu(k,783) * lu(k,1342) - lu(k,1354) = lu(k,1354) - lu(k,784) * lu(k,1342) - lu(k,1355) = lu(k,1355) - lu(k,785) * lu(k,1342) - lu(k,1356) = lu(k,1356) - lu(k,786) * lu(k,1342) - lu(k,1357) = lu(k,1357) - lu(k,787) * lu(k,1342) - lu(k,1358) = lu(k,1358) - lu(k,788) * lu(k,1342) - lu(k,1359) = lu(k,1359) - lu(k,789) * lu(k,1342) - lu(k,1361) = lu(k,1361) - lu(k,790) * lu(k,1342) - lu(k,1362) = lu(k,1362) - lu(k,791) * lu(k,1342) - lu(k,1364) = lu(k,1364) - lu(k,792) * lu(k,1342) - lu(k,1365) = lu(k,1365) - lu(k,793) * lu(k,1342) - lu(k,1366) = lu(k,1366) - lu(k,794) * lu(k,1342) - lu(k,1367) = lu(k,1367) - lu(k,795) * lu(k,1342) - lu(k,1379) = lu(k,1379) - lu(k,776) * lu(k,1377) - lu(k,1380) = lu(k,1380) - lu(k,777) * lu(k,1377) - lu(k,1381) = lu(k,1381) - lu(k,778) * lu(k,1377) - lu(k,1382) = lu(k,1382) - lu(k,779) * lu(k,1377) - lu(k,1385) = lu(k,1385) - lu(k,780) * lu(k,1377) - lu(k,1386) = lu(k,1386) - lu(k,781) * lu(k,1377) - lu(k,1387) = lu(k,1387) - lu(k,782) * lu(k,1377) - lu(k,1388) = lu(k,1388) - lu(k,783) * lu(k,1377) - lu(k,1389) = lu(k,1389) - lu(k,784) * lu(k,1377) - lu(k,1390) = lu(k,1390) - lu(k,785) * lu(k,1377) - lu(k,1391) = lu(k,1391) - lu(k,786) * lu(k,1377) - lu(k,1392) = lu(k,1392) - lu(k,787) * lu(k,1377) - lu(k,1393) = lu(k,1393) - lu(k,788) * lu(k,1377) - lu(k,1394) = lu(k,1394) - lu(k,789) * lu(k,1377) - lu(k,1396) = lu(k,1396) - lu(k,790) * lu(k,1377) - lu(k,1397) = lu(k,1397) - lu(k,791) * lu(k,1377) - lu(k,1399) = lu(k,1399) - lu(k,792) * lu(k,1377) - lu(k,1400) = lu(k,1400) - lu(k,793) * lu(k,1377) - lu(k,1401) = lu(k,1401) - lu(k,794) * lu(k,1377) - lu(k,1402) = lu(k,1402) - lu(k,795) * lu(k,1377) - lu(k,1423) = lu(k,1423) - lu(k,776) * lu(k,1421) - lu(k,1424) = lu(k,1424) - lu(k,777) * lu(k,1421) - lu(k,1425) = lu(k,1425) - lu(k,778) * lu(k,1421) - lu(k,1426) = lu(k,1426) - lu(k,779) * lu(k,1421) - lu(k,1429) = lu(k,1429) - lu(k,780) * lu(k,1421) - lu(k,1430) = lu(k,1430) - lu(k,781) * lu(k,1421) - lu(k,1431) = lu(k,1431) - lu(k,782) * lu(k,1421) - lu(k,1432) = lu(k,1432) - lu(k,783) * lu(k,1421) - lu(k,1433) = lu(k,1433) - lu(k,784) * lu(k,1421) - lu(k,1434) = lu(k,1434) - lu(k,785) * lu(k,1421) - lu(k,1435) = lu(k,1435) - lu(k,786) * lu(k,1421) - lu(k,1436) = lu(k,1436) - lu(k,787) * lu(k,1421) - lu(k,1437) = lu(k,1437) - lu(k,788) * lu(k,1421) - lu(k,1438) = lu(k,1438) - lu(k,789) * lu(k,1421) - lu(k,1440) = lu(k,1440) - lu(k,790) * lu(k,1421) - lu(k,1441) = lu(k,1441) - lu(k,791) * lu(k,1421) - lu(k,1443) = lu(k,1443) - lu(k,792) * lu(k,1421) - lu(k,1444) = lu(k,1444) - lu(k,793) * lu(k,1421) - lu(k,1445) = lu(k,1445) - lu(k,794) * lu(k,1421) - lu(k,1446) = lu(k,1446) - lu(k,795) * lu(k,1421) - lu(k,1469) = lu(k,1469) - lu(k,776) * lu(k,1467) - lu(k,1470) = lu(k,1470) - lu(k,777) * lu(k,1467) - lu(k,1471) = lu(k,1471) - lu(k,778) * lu(k,1467) - lu(k,1472) = lu(k,1472) - lu(k,779) * lu(k,1467) - lu(k,1475) = lu(k,1475) - lu(k,780) * lu(k,1467) - lu(k,1476) = lu(k,1476) - lu(k,781) * lu(k,1467) - lu(k,1477) = lu(k,1477) - lu(k,782) * lu(k,1467) - lu(k,1478) = lu(k,1478) - lu(k,783) * lu(k,1467) - lu(k,1479) = lu(k,1479) - lu(k,784) * lu(k,1467) - lu(k,1480) = lu(k,1480) - lu(k,785) * lu(k,1467) - lu(k,1481) = lu(k,1481) - lu(k,786) * lu(k,1467) - lu(k,1482) = lu(k,1482) - lu(k,787) * lu(k,1467) - lu(k,1483) = lu(k,1483) - lu(k,788) * lu(k,1467) - lu(k,1484) = lu(k,1484) - lu(k,789) * lu(k,1467) - lu(k,1486) = lu(k,1486) - lu(k,790) * lu(k,1467) - lu(k,1487) = lu(k,1487) - lu(k,791) * lu(k,1467) - lu(k,1489) = lu(k,1489) - lu(k,792) * lu(k,1467) - lu(k,1490) = lu(k,1490) - lu(k,793) * lu(k,1467) - lu(k,1491) = lu(k,1491) - lu(k,794) * lu(k,1467) - lu(k,1492) = lu(k,1492) - lu(k,795) * lu(k,1467) - lu(k,1511) = lu(k,1511) - lu(k,776) * lu(k,1509) - lu(k,1512) = lu(k,1512) - lu(k,777) * lu(k,1509) - lu(k,1513) = lu(k,1513) - lu(k,778) * lu(k,1509) - lu(k,1514) = lu(k,1514) - lu(k,779) * lu(k,1509) - lu(k,1517) = lu(k,1517) - lu(k,780) * lu(k,1509) - lu(k,1518) = lu(k,1518) - lu(k,781) * lu(k,1509) - lu(k,1519) = lu(k,1519) - lu(k,782) * lu(k,1509) - lu(k,1520) = lu(k,1520) - lu(k,783) * lu(k,1509) - lu(k,1521) = lu(k,1521) - lu(k,784) * lu(k,1509) - lu(k,1522) = lu(k,1522) - lu(k,785) * lu(k,1509) - lu(k,1523) = lu(k,1523) - lu(k,786) * lu(k,1509) - lu(k,1524) = lu(k,1524) - lu(k,787) * lu(k,1509) - lu(k,1525) = lu(k,1525) - lu(k,788) * lu(k,1509) - lu(k,1526) = lu(k,1526) - lu(k,789) * lu(k,1509) - lu(k,1528) = lu(k,1528) - lu(k,790) * lu(k,1509) - lu(k,1529) = lu(k,1529) - lu(k,791) * lu(k,1509) - lu(k,1531) = lu(k,1531) - lu(k,792) * lu(k,1509) - lu(k,1532) = lu(k,1532) - lu(k,793) * lu(k,1509) - lu(k,1533) = lu(k,1533) - lu(k,794) * lu(k,1509) - lu(k,1534) = lu(k,1534) - lu(k,795) * lu(k,1509) - lu(k,1552) = lu(k,1552) - lu(k,776) * lu(k,1550) - lu(k,1553) = lu(k,1553) - lu(k,777) * lu(k,1550) - lu(k,1554) = lu(k,1554) - lu(k,778) * lu(k,1550) - lu(k,1555) = lu(k,1555) - lu(k,779) * lu(k,1550) - lu(k,1558) = lu(k,1558) - lu(k,780) * lu(k,1550) - lu(k,1559) = lu(k,1559) - lu(k,781) * lu(k,1550) - lu(k,1560) = lu(k,1560) - lu(k,782) * lu(k,1550) - lu(k,1561) = lu(k,1561) - lu(k,783) * lu(k,1550) - lu(k,1562) = lu(k,1562) - lu(k,784) * lu(k,1550) - lu(k,1563) = lu(k,1563) - lu(k,785) * lu(k,1550) - lu(k,1564) = lu(k,1564) - lu(k,786) * lu(k,1550) - lu(k,1565) = lu(k,1565) - lu(k,787) * lu(k,1550) - lu(k,1566) = lu(k,1566) - lu(k,788) * lu(k,1550) - lu(k,1567) = lu(k,1567) - lu(k,789) * lu(k,1550) - lu(k,1569) = lu(k,1569) - lu(k,790) * lu(k,1550) - lu(k,1570) = lu(k,1570) - lu(k,791) * lu(k,1550) - lu(k,1572) = lu(k,1572) - lu(k,792) * lu(k,1550) - lu(k,1573) = lu(k,1573) - lu(k,793) * lu(k,1550) - lu(k,1574) = lu(k,1574) - lu(k,794) * lu(k,1550) - lu(k,1575) = lu(k,1575) - lu(k,795) * lu(k,1550) - lu(k,1609) = lu(k,1609) - lu(k,776) * lu(k,1607) - lu(k,1610) = lu(k,1610) - lu(k,777) * lu(k,1607) - lu(k,1611) = lu(k,1611) - lu(k,778) * lu(k,1607) - lu(k,1612) = lu(k,1612) - lu(k,779) * lu(k,1607) - lu(k,1615) = lu(k,1615) - lu(k,780) * lu(k,1607) - lu(k,1616) = lu(k,1616) - lu(k,781) * lu(k,1607) - lu(k,1617) = lu(k,1617) - lu(k,782) * lu(k,1607) - lu(k,1618) = lu(k,1618) - lu(k,783) * lu(k,1607) - lu(k,1619) = lu(k,1619) - lu(k,784) * lu(k,1607) - lu(k,1620) = lu(k,1620) - lu(k,785) * lu(k,1607) - lu(k,1621) = lu(k,1621) - lu(k,786) * lu(k,1607) - lu(k,1622) = lu(k,1622) - lu(k,787) * lu(k,1607) - lu(k,1623) = lu(k,1623) - lu(k,788) * lu(k,1607) - lu(k,1624) = lu(k,1624) - lu(k,789) * lu(k,1607) - lu(k,1626) = lu(k,1626) - lu(k,790) * lu(k,1607) - lu(k,1627) = lu(k,1627) - lu(k,791) * lu(k,1607) - lu(k,1629) = lu(k,1629) - lu(k,792) * lu(k,1607) - lu(k,1630) = lu(k,1630) - lu(k,793) * lu(k,1607) - lu(k,1631) = lu(k,1631) - lu(k,794) * lu(k,1607) - lu(k,1632) = lu(k,1632) - lu(k,795) * lu(k,1607) - lu(k,1638) = lu(k,1638) - lu(k,776) * lu(k,1637) - lu(k,1639) = lu(k,1639) - lu(k,777) * lu(k,1637) - lu(k,1640) = lu(k,1640) - lu(k,778) * lu(k,1637) - lu(k,1641) = lu(k,1641) - lu(k,779) * lu(k,1637) - lu(k,1644) = lu(k,1644) - lu(k,780) * lu(k,1637) - lu(k,1645) = lu(k,1645) - lu(k,781) * lu(k,1637) - lu(k,1646) = lu(k,1646) - lu(k,782) * lu(k,1637) - lu(k,1647) = lu(k,1647) - lu(k,783) * lu(k,1637) - lu(k,1648) = lu(k,1648) - lu(k,784) * lu(k,1637) - lu(k,1649) = lu(k,1649) - lu(k,785) * lu(k,1637) - lu(k,1650) = lu(k,1650) - lu(k,786) * lu(k,1637) - lu(k,1651) = - lu(k,787) * lu(k,1637) - lu(k,1652) = lu(k,1652) - lu(k,788) * lu(k,1637) - lu(k,1653) = lu(k,1653) - lu(k,789) * lu(k,1637) - lu(k,1655) = lu(k,1655) - lu(k,790) * lu(k,1637) - lu(k,1656) = lu(k,1656) - lu(k,791) * lu(k,1637) - lu(k,1658) = lu(k,1658) - lu(k,792) * lu(k,1637) - lu(k,1659) = - lu(k,793) * lu(k,1637) - lu(k,1660) = lu(k,1660) - lu(k,794) * lu(k,1637) - lu(k,1661) = lu(k,1661) - lu(k,795) * lu(k,1637) - lu(k,1670) = lu(k,1670) - lu(k,776) * lu(k,1668) - lu(k,1671) = lu(k,1671) - lu(k,777) * lu(k,1668) - lu(k,1672) = lu(k,1672) - lu(k,778) * lu(k,1668) - lu(k,1673) = lu(k,1673) - lu(k,779) * lu(k,1668) - lu(k,1676) = lu(k,1676) - lu(k,780) * lu(k,1668) - lu(k,1677) = lu(k,1677) - lu(k,781) * lu(k,1668) - lu(k,1678) = lu(k,1678) - lu(k,782) * lu(k,1668) - lu(k,1679) = lu(k,1679) - lu(k,783) * lu(k,1668) - lu(k,1680) = lu(k,1680) - lu(k,784) * lu(k,1668) - lu(k,1681) = lu(k,1681) - lu(k,785) * lu(k,1668) - lu(k,1682) = lu(k,1682) - lu(k,786) * lu(k,1668) - lu(k,1683) = lu(k,1683) - lu(k,787) * lu(k,1668) - lu(k,1684) = lu(k,1684) - lu(k,788) * lu(k,1668) - lu(k,1685) = lu(k,1685) - lu(k,789) * lu(k,1668) - lu(k,1687) = lu(k,1687) - lu(k,790) * lu(k,1668) - lu(k,1688) = lu(k,1688) - lu(k,791) * lu(k,1668) - lu(k,1690) = lu(k,1690) - lu(k,792) * lu(k,1668) - lu(k,1691) = lu(k,1691) - lu(k,793) * lu(k,1668) - lu(k,1692) = lu(k,1692) - lu(k,794) * lu(k,1668) - lu(k,1693) = lu(k,1693) - lu(k,795) * lu(k,1668) - lu(k,1705) = lu(k,1705) - lu(k,776) * lu(k,1703) - lu(k,1706) = lu(k,1706) - lu(k,777) * lu(k,1703) - lu(k,1707) = lu(k,1707) - lu(k,778) * lu(k,1703) - lu(k,1708) = lu(k,1708) - lu(k,779) * lu(k,1703) - lu(k,1711) = lu(k,1711) - lu(k,780) * lu(k,1703) - lu(k,1712) = lu(k,1712) - lu(k,781) * lu(k,1703) - lu(k,1713) = lu(k,1713) - lu(k,782) * lu(k,1703) - lu(k,1714) = lu(k,1714) - lu(k,783) * lu(k,1703) - lu(k,1715) = lu(k,1715) - lu(k,784) * lu(k,1703) - lu(k,1716) = lu(k,1716) - lu(k,785) * lu(k,1703) - lu(k,1717) = lu(k,1717) - lu(k,786) * lu(k,1703) - lu(k,1718) = lu(k,1718) - lu(k,787) * lu(k,1703) - lu(k,1719) = lu(k,1719) - lu(k,788) * lu(k,1703) - lu(k,1720) = lu(k,1720) - lu(k,789) * lu(k,1703) - lu(k,1722) = lu(k,1722) - lu(k,790) * lu(k,1703) - lu(k,1723) = lu(k,1723) - lu(k,791) * lu(k,1703) - lu(k,1725) = lu(k,1725) - lu(k,792) * lu(k,1703) - lu(k,1726) = lu(k,1726) - lu(k,793) * lu(k,1703) - lu(k,1727) = lu(k,1727) - lu(k,794) * lu(k,1703) - lu(k,1728) = lu(k,1728) - lu(k,795) * lu(k,1703) - lu(k,1747) = lu(k,1747) - lu(k,776) * lu(k,1745) - lu(k,1748) = lu(k,1748) - lu(k,777) * lu(k,1745) - lu(k,1749) = lu(k,1749) - lu(k,778) * lu(k,1745) - lu(k,1750) = lu(k,1750) - lu(k,779) * lu(k,1745) - lu(k,1753) = lu(k,1753) - lu(k,780) * lu(k,1745) - lu(k,1754) = lu(k,1754) - lu(k,781) * lu(k,1745) - lu(k,1755) = lu(k,1755) - lu(k,782) * lu(k,1745) - lu(k,1756) = lu(k,1756) - lu(k,783) * lu(k,1745) - lu(k,1757) = lu(k,1757) - lu(k,784) * lu(k,1745) - lu(k,1758) = lu(k,1758) - lu(k,785) * lu(k,1745) - lu(k,1759) = lu(k,1759) - lu(k,786) * lu(k,1745) - lu(k,1760) = lu(k,1760) - lu(k,787) * lu(k,1745) - lu(k,1761) = lu(k,1761) - lu(k,788) * lu(k,1745) - lu(k,1762) = lu(k,1762) - lu(k,789) * lu(k,1745) - lu(k,1764) = lu(k,1764) - lu(k,790) * lu(k,1745) - lu(k,1765) = lu(k,1765) - lu(k,791) * lu(k,1745) - lu(k,1767) = lu(k,1767) - lu(k,792) * lu(k,1745) - lu(k,1768) = lu(k,1768) - lu(k,793) * lu(k,1745) - lu(k,1769) = lu(k,1769) - lu(k,794) * lu(k,1745) - lu(k,1770) = lu(k,1770) - lu(k,795) * lu(k,1745) - lu(k,1805) = lu(k,1805) - lu(k,776) * lu(k,1803) - lu(k,1806) = lu(k,1806) - lu(k,777) * lu(k,1803) - lu(k,1807) = lu(k,1807) - lu(k,778) * lu(k,1803) - lu(k,1808) = lu(k,1808) - lu(k,779) * lu(k,1803) - lu(k,1811) = lu(k,1811) - lu(k,780) * lu(k,1803) - lu(k,1812) = lu(k,1812) - lu(k,781) * lu(k,1803) - lu(k,1813) = lu(k,1813) - lu(k,782) * lu(k,1803) - lu(k,1814) = lu(k,1814) - lu(k,783) * lu(k,1803) - lu(k,1815) = lu(k,1815) - lu(k,784) * lu(k,1803) - lu(k,1816) = lu(k,1816) - lu(k,785) * lu(k,1803) - lu(k,1817) = lu(k,1817) - lu(k,786) * lu(k,1803) - lu(k,1818) = lu(k,1818) - lu(k,787) * lu(k,1803) - lu(k,1819) = lu(k,1819) - lu(k,788) * lu(k,1803) - lu(k,1820) = lu(k,1820) - lu(k,789) * lu(k,1803) - lu(k,1822) = lu(k,1822) - lu(k,790) * lu(k,1803) - lu(k,1823) = lu(k,1823) - lu(k,791) * lu(k,1803) - lu(k,1825) = lu(k,1825) - lu(k,792) * lu(k,1803) - lu(k,1826) = lu(k,1826) - lu(k,793) * lu(k,1803) - lu(k,1827) = lu(k,1827) - lu(k,794) * lu(k,1803) - lu(k,1828) = lu(k,1828) - lu(k,795) * lu(k,1803) - lu(k,803) = 1._r8 / lu(k,803) - lu(k,804) = lu(k,804) * lu(k,803) - lu(k,805) = lu(k,805) * lu(k,803) - lu(k,806) = lu(k,806) * lu(k,803) - lu(k,807) = lu(k,807) * lu(k,803) - lu(k,808) = lu(k,808) * lu(k,803) - lu(k,809) = lu(k,809) * lu(k,803) - lu(k,810) = lu(k,810) * lu(k,803) - lu(k,811) = lu(k,811) * lu(k,803) - lu(k,812) = lu(k,812) * lu(k,803) - lu(k,813) = lu(k,813) * lu(k,803) - lu(k,814) = lu(k,814) * lu(k,803) - lu(k,815) = lu(k,815) * lu(k,803) - lu(k,816) = lu(k,816) * lu(k,803) - lu(k,817) = lu(k,817) * lu(k,803) - lu(k,818) = lu(k,818) * lu(k,803) - lu(k,819) = lu(k,819) * lu(k,803) - lu(k,820) = lu(k,820) * lu(k,803) - lu(k,821) = lu(k,821) * lu(k,803) - lu(k,822) = lu(k,822) * lu(k,803) - lu(k,823) = lu(k,823) * lu(k,803) - lu(k,824) = lu(k,824) * lu(k,803) - lu(k,825) = lu(k,825) * lu(k,803) - lu(k,826) = lu(k,826) * lu(k,803) - lu(k,827) = lu(k,827) * lu(k,803) - lu(k,885) = lu(k,885) - lu(k,804) * lu(k,884) - lu(k,886) = lu(k,886) - lu(k,805) * lu(k,884) - lu(k,887) = lu(k,887) - lu(k,806) * lu(k,884) - lu(k,888) = lu(k,888) - lu(k,807) * lu(k,884) - lu(k,889) = lu(k,889) - lu(k,808) * lu(k,884) - lu(k,890) = lu(k,890) - lu(k,809) * lu(k,884) - lu(k,891) = lu(k,891) - lu(k,810) * lu(k,884) - lu(k,892) = lu(k,892) - lu(k,811) * lu(k,884) - lu(k,893) = lu(k,893) - lu(k,812) * lu(k,884) - lu(k,894) = lu(k,894) - lu(k,813) * lu(k,884) - lu(k,895) = lu(k,895) - lu(k,814) * lu(k,884) - lu(k,896) = lu(k,896) - lu(k,815) * lu(k,884) - lu(k,897) = lu(k,897) - lu(k,816) * lu(k,884) - lu(k,898) = lu(k,898) - lu(k,817) * lu(k,884) - lu(k,899) = lu(k,899) - lu(k,818) * lu(k,884) - lu(k,900) = lu(k,900) - lu(k,819) * lu(k,884) - lu(k,901) = lu(k,901) - lu(k,820) * lu(k,884) - lu(k,902) = lu(k,902) - lu(k,821) * lu(k,884) - lu(k,903) = lu(k,903) - lu(k,822) * lu(k,884) - lu(k,904) = lu(k,904) - lu(k,823) * lu(k,884) - lu(k,905) = lu(k,905) - lu(k,824) * lu(k,884) - lu(k,906) = lu(k,906) - lu(k,825) * lu(k,884) - lu(k,907) = lu(k,907) - lu(k,826) * lu(k,884) - lu(k,908) = lu(k,908) - lu(k,827) * lu(k,884) - lu(k,926) = lu(k,926) - lu(k,804) * lu(k,925) - lu(k,927) = lu(k,927) - lu(k,805) * lu(k,925) - lu(k,928) = lu(k,928) - lu(k,806) * lu(k,925) - lu(k,929) = lu(k,929) - lu(k,807) * lu(k,925) - lu(k,930) = lu(k,930) - lu(k,808) * lu(k,925) - lu(k,931) = lu(k,931) - lu(k,809) * lu(k,925) - lu(k,932) = lu(k,932) - lu(k,810) * lu(k,925) - lu(k,933) = lu(k,933) - lu(k,811) * lu(k,925) - lu(k,934) = lu(k,934) - lu(k,812) * lu(k,925) - lu(k,935) = lu(k,935) - lu(k,813) * lu(k,925) - lu(k,936) = lu(k,936) - lu(k,814) * lu(k,925) - lu(k,937) = lu(k,937) - lu(k,815) * lu(k,925) - lu(k,938) = lu(k,938) - lu(k,816) * lu(k,925) - lu(k,939) = lu(k,939) - lu(k,817) * lu(k,925) - lu(k,940) = lu(k,940) - lu(k,818) * lu(k,925) - lu(k,941) = lu(k,941) - lu(k,819) * lu(k,925) - lu(k,942) = lu(k,942) - lu(k,820) * lu(k,925) - lu(k,943) = lu(k,943) - lu(k,821) * lu(k,925) - lu(k,944) = lu(k,944) - lu(k,822) * lu(k,925) - lu(k,945) = lu(k,945) - lu(k,823) * lu(k,925) - lu(k,946) = lu(k,946) - lu(k,824) * lu(k,925) - lu(k,947) = lu(k,947) - lu(k,825) * lu(k,925) - lu(k,948) = lu(k,948) - lu(k,826) * lu(k,925) - lu(k,949) = lu(k,949) - lu(k,827) * lu(k,925) - lu(k,971) = lu(k,971) - lu(k,804) * lu(k,970) - lu(k,972) = lu(k,972) - lu(k,805) * lu(k,970) - lu(k,973) = lu(k,973) - lu(k,806) * lu(k,970) - lu(k,974) = lu(k,974) - lu(k,807) * lu(k,970) - lu(k,975) = lu(k,975) - lu(k,808) * lu(k,970) - lu(k,976) = lu(k,976) - lu(k,809) * lu(k,970) - lu(k,977) = lu(k,977) - lu(k,810) * lu(k,970) - lu(k,978) = lu(k,978) - lu(k,811) * lu(k,970) - lu(k,979) = lu(k,979) - lu(k,812) * lu(k,970) - lu(k,980) = lu(k,980) - lu(k,813) * lu(k,970) - lu(k,981) = lu(k,981) - lu(k,814) * lu(k,970) - lu(k,982) = lu(k,982) - lu(k,815) * lu(k,970) - lu(k,983) = lu(k,983) - lu(k,816) * lu(k,970) - lu(k,984) = lu(k,984) - lu(k,817) * lu(k,970) - lu(k,985) = lu(k,985) - lu(k,818) * lu(k,970) - lu(k,986) = lu(k,986) - lu(k,819) * lu(k,970) - lu(k,987) = lu(k,987) - lu(k,820) * lu(k,970) - lu(k,988) = lu(k,988) - lu(k,821) * lu(k,970) - lu(k,989) = lu(k,989) - lu(k,822) * lu(k,970) - lu(k,990) = lu(k,990) - lu(k,823) * lu(k,970) - lu(k,991) = lu(k,991) - lu(k,824) * lu(k,970) - lu(k,992) = lu(k,992) - lu(k,825) * lu(k,970) - lu(k,993) = lu(k,993) - lu(k,826) * lu(k,970) - lu(k,994) = lu(k,994) - lu(k,827) * lu(k,970) - lu(k,1013) = lu(k,1013) - lu(k,804) * lu(k,1012) - lu(k,1014) = lu(k,1014) - lu(k,805) * lu(k,1012) - lu(k,1015) = lu(k,1015) - lu(k,806) * lu(k,1012) - lu(k,1016) = lu(k,1016) - lu(k,807) * lu(k,1012) - lu(k,1017) = lu(k,1017) - lu(k,808) * lu(k,1012) - lu(k,1018) = lu(k,1018) - lu(k,809) * lu(k,1012) - lu(k,1019) = lu(k,1019) - lu(k,810) * lu(k,1012) - lu(k,1020) = lu(k,1020) - lu(k,811) * lu(k,1012) - lu(k,1021) = lu(k,1021) - lu(k,812) * lu(k,1012) - lu(k,1022) = lu(k,1022) - lu(k,813) * lu(k,1012) - lu(k,1023) = lu(k,1023) - lu(k,814) * lu(k,1012) - lu(k,1024) = lu(k,1024) - lu(k,815) * lu(k,1012) - lu(k,1025) = lu(k,1025) - lu(k,816) * lu(k,1012) - lu(k,1026) = lu(k,1026) - lu(k,817) * lu(k,1012) - lu(k,1027) = lu(k,1027) - lu(k,818) * lu(k,1012) - lu(k,1028) = lu(k,1028) - lu(k,819) * lu(k,1012) - lu(k,1029) = lu(k,1029) - lu(k,820) * lu(k,1012) - lu(k,1030) = lu(k,1030) - lu(k,821) * lu(k,1012) - lu(k,1031) = lu(k,1031) - lu(k,822) * lu(k,1012) - lu(k,1032) = lu(k,1032) - lu(k,823) * lu(k,1012) - lu(k,1033) = lu(k,1033) - lu(k,824) * lu(k,1012) - lu(k,1034) = lu(k,1034) - lu(k,825) * lu(k,1012) - lu(k,1035) = lu(k,1035) - lu(k,826) * lu(k,1012) - lu(k,1036) = lu(k,1036) - lu(k,827) * lu(k,1012) - lu(k,1055) = lu(k,1055) - lu(k,804) * lu(k,1054) - lu(k,1056) = lu(k,1056) - lu(k,805) * lu(k,1054) - lu(k,1057) = lu(k,1057) - lu(k,806) * lu(k,1054) - lu(k,1058) = lu(k,1058) - lu(k,807) * lu(k,1054) - lu(k,1059) = lu(k,1059) - lu(k,808) * lu(k,1054) - lu(k,1060) = lu(k,1060) - lu(k,809) * lu(k,1054) - lu(k,1061) = lu(k,1061) - lu(k,810) * lu(k,1054) - lu(k,1062) = lu(k,1062) - lu(k,811) * lu(k,1054) - lu(k,1063) = lu(k,1063) - lu(k,812) * lu(k,1054) - lu(k,1064) = lu(k,1064) - lu(k,813) * lu(k,1054) - lu(k,1065) = lu(k,1065) - lu(k,814) * lu(k,1054) - lu(k,1066) = lu(k,1066) - lu(k,815) * lu(k,1054) - lu(k,1067) = lu(k,1067) - lu(k,816) * lu(k,1054) - lu(k,1068) = lu(k,1068) - lu(k,817) * lu(k,1054) - lu(k,1069) = lu(k,1069) - lu(k,818) * lu(k,1054) - lu(k,1070) = lu(k,1070) - lu(k,819) * lu(k,1054) - lu(k,1071) = lu(k,1071) - lu(k,820) * lu(k,1054) - lu(k,1072) = lu(k,1072) - lu(k,821) * lu(k,1054) - lu(k,1073) = lu(k,1073) - lu(k,822) * lu(k,1054) - lu(k,1074) = lu(k,1074) - lu(k,823) * lu(k,1054) - lu(k,1075) = lu(k,1075) - lu(k,824) * lu(k,1054) - lu(k,1076) = lu(k,1076) - lu(k,825) * lu(k,1054) - lu(k,1077) = lu(k,1077) - lu(k,826) * lu(k,1054) - lu(k,1078) = lu(k,1078) - lu(k,827) * lu(k,1054) - lu(k,1099) = lu(k,1099) - lu(k,804) * lu(k,1098) - lu(k,1100) = lu(k,1100) - lu(k,805) * lu(k,1098) - lu(k,1101) = lu(k,1101) - lu(k,806) * lu(k,1098) - lu(k,1102) = lu(k,1102) - lu(k,807) * lu(k,1098) - lu(k,1103) = lu(k,1103) - lu(k,808) * lu(k,1098) - lu(k,1104) = lu(k,1104) - lu(k,809) * lu(k,1098) - lu(k,1105) = lu(k,1105) - lu(k,810) * lu(k,1098) - lu(k,1106) = lu(k,1106) - lu(k,811) * lu(k,1098) - lu(k,1107) = lu(k,1107) - lu(k,812) * lu(k,1098) - lu(k,1108) = lu(k,1108) - lu(k,813) * lu(k,1098) - lu(k,1109) = lu(k,1109) - lu(k,814) * lu(k,1098) - lu(k,1110) = lu(k,1110) - lu(k,815) * lu(k,1098) - lu(k,1111) = lu(k,1111) - lu(k,816) * lu(k,1098) - lu(k,1112) = lu(k,1112) - lu(k,817) * lu(k,1098) - lu(k,1113) = lu(k,1113) - lu(k,818) * lu(k,1098) - lu(k,1114) = lu(k,1114) - lu(k,819) * lu(k,1098) - lu(k,1115) = lu(k,1115) - lu(k,820) * lu(k,1098) - lu(k,1116) = lu(k,1116) - lu(k,821) * lu(k,1098) - lu(k,1117) = lu(k,1117) - lu(k,822) * lu(k,1098) - lu(k,1118) = lu(k,1118) - lu(k,823) * lu(k,1098) - lu(k,1119) = lu(k,1119) - lu(k,824) * lu(k,1098) - lu(k,1120) = lu(k,1120) - lu(k,825) * lu(k,1098) - lu(k,1121) = lu(k,1121) - lu(k,826) * lu(k,1098) - lu(k,1122) = lu(k,1122) - lu(k,827) * lu(k,1098) - lu(k,1140) = lu(k,1140) - lu(k,804) * lu(k,1139) - lu(k,1141) = lu(k,1141) - lu(k,805) * lu(k,1139) - lu(k,1142) = lu(k,1142) - lu(k,806) * lu(k,1139) - lu(k,1143) = lu(k,1143) - lu(k,807) * lu(k,1139) - lu(k,1144) = lu(k,1144) - lu(k,808) * lu(k,1139) - lu(k,1145) = lu(k,1145) - lu(k,809) * lu(k,1139) - lu(k,1146) = lu(k,1146) - lu(k,810) * lu(k,1139) - lu(k,1147) = lu(k,1147) - lu(k,811) * lu(k,1139) - lu(k,1148) = lu(k,1148) - lu(k,812) * lu(k,1139) - lu(k,1149) = lu(k,1149) - lu(k,813) * lu(k,1139) - lu(k,1150) = lu(k,1150) - lu(k,814) * lu(k,1139) - lu(k,1151) = lu(k,1151) - lu(k,815) * lu(k,1139) - lu(k,1152) = lu(k,1152) - lu(k,816) * lu(k,1139) - lu(k,1153) = lu(k,1153) - lu(k,817) * lu(k,1139) - lu(k,1154) = lu(k,1154) - lu(k,818) * lu(k,1139) - lu(k,1155) = lu(k,1155) - lu(k,819) * lu(k,1139) - lu(k,1156) = lu(k,1156) - lu(k,820) * lu(k,1139) - lu(k,1157) = lu(k,1157) - lu(k,821) * lu(k,1139) - lu(k,1158) = lu(k,1158) - lu(k,822) * lu(k,1139) - lu(k,1159) = lu(k,1159) - lu(k,823) * lu(k,1139) - lu(k,1160) = lu(k,1160) - lu(k,824) * lu(k,1139) - lu(k,1161) = lu(k,1161) - lu(k,825) * lu(k,1139) - lu(k,1162) = lu(k,1162) - lu(k,826) * lu(k,1139) - lu(k,1163) = lu(k,1163) - lu(k,827) * lu(k,1139) - lu(k,1214) = lu(k,1214) - lu(k,804) * lu(k,1213) - lu(k,1215) = lu(k,1215) - lu(k,805) * lu(k,1213) - lu(k,1216) = lu(k,1216) - lu(k,806) * lu(k,1213) - lu(k,1217) = lu(k,1217) - lu(k,807) * lu(k,1213) - lu(k,1218) = lu(k,1218) - lu(k,808) * lu(k,1213) - lu(k,1219) = lu(k,1219) - lu(k,809) * lu(k,1213) - lu(k,1220) = lu(k,1220) - lu(k,810) * lu(k,1213) - lu(k,1221) = lu(k,1221) - lu(k,811) * lu(k,1213) - lu(k,1222) = lu(k,1222) - lu(k,812) * lu(k,1213) - lu(k,1223) = lu(k,1223) - lu(k,813) * lu(k,1213) - lu(k,1224) = lu(k,1224) - lu(k,814) * lu(k,1213) - lu(k,1225) = lu(k,1225) - lu(k,815) * lu(k,1213) - lu(k,1226) = lu(k,1226) - lu(k,816) * lu(k,1213) - lu(k,1227) = lu(k,1227) - lu(k,817) * lu(k,1213) - lu(k,1228) = lu(k,1228) - lu(k,818) * lu(k,1213) - lu(k,1229) = lu(k,1229) - lu(k,819) * lu(k,1213) - lu(k,1230) = lu(k,1230) - lu(k,820) * lu(k,1213) - lu(k,1231) = lu(k,1231) - lu(k,821) * lu(k,1213) - lu(k,1232) = lu(k,1232) - lu(k,822) * lu(k,1213) - lu(k,1233) = lu(k,1233) - lu(k,823) * lu(k,1213) - lu(k,1234) = lu(k,1234) - lu(k,824) * lu(k,1213) - lu(k,1235) = lu(k,1235) - lu(k,825) * lu(k,1213) - lu(k,1236) = lu(k,1236) - lu(k,826) * lu(k,1213) - lu(k,1237) = lu(k,1237) - lu(k,827) * lu(k,1213) - lu(k,1261) = lu(k,1261) - lu(k,804) * lu(k,1260) - lu(k,1262) = lu(k,1262) - lu(k,805) * lu(k,1260) - lu(k,1263) = lu(k,1263) - lu(k,806) * lu(k,1260) - lu(k,1264) = lu(k,1264) - lu(k,807) * lu(k,1260) - lu(k,1265) = lu(k,1265) - lu(k,808) * lu(k,1260) - lu(k,1266) = lu(k,1266) - lu(k,809) * lu(k,1260) - lu(k,1267) = lu(k,1267) - lu(k,810) * lu(k,1260) - lu(k,1268) = lu(k,1268) - lu(k,811) * lu(k,1260) - lu(k,1269) = lu(k,1269) - lu(k,812) * lu(k,1260) - lu(k,1270) = lu(k,1270) - lu(k,813) * lu(k,1260) - lu(k,1271) = lu(k,1271) - lu(k,814) * lu(k,1260) - lu(k,1272) = lu(k,1272) - lu(k,815) * lu(k,1260) - lu(k,1273) = lu(k,1273) - lu(k,816) * lu(k,1260) - lu(k,1274) = lu(k,1274) - lu(k,817) * lu(k,1260) - lu(k,1275) = lu(k,1275) - lu(k,818) * lu(k,1260) - lu(k,1276) = lu(k,1276) - lu(k,819) * lu(k,1260) - lu(k,1277) = lu(k,1277) - lu(k,820) * lu(k,1260) - lu(k,1278) = lu(k,1278) - lu(k,821) * lu(k,1260) - lu(k,1279) = lu(k,1279) - lu(k,822) * lu(k,1260) - lu(k,1280) = lu(k,1280) - lu(k,823) * lu(k,1260) - lu(k,1281) = lu(k,1281) - lu(k,824) * lu(k,1260) - lu(k,1282) = lu(k,1282) - lu(k,825) * lu(k,1260) - lu(k,1283) = lu(k,1283) - lu(k,826) * lu(k,1260) - lu(k,1284) = lu(k,1284) - lu(k,827) * lu(k,1260) - lu(k,1305) = lu(k,1305) - lu(k,804) * lu(k,1304) - lu(k,1306) = lu(k,1306) - lu(k,805) * lu(k,1304) - lu(k,1307) = lu(k,1307) - lu(k,806) * lu(k,1304) - lu(k,1308) = lu(k,1308) - lu(k,807) * lu(k,1304) - lu(k,1309) = lu(k,1309) - lu(k,808) * lu(k,1304) - lu(k,1310) = lu(k,1310) - lu(k,809) * lu(k,1304) - lu(k,1311) = lu(k,1311) - lu(k,810) * lu(k,1304) - lu(k,1312) = lu(k,1312) - lu(k,811) * lu(k,1304) - lu(k,1313) = lu(k,1313) - lu(k,812) * lu(k,1304) - lu(k,1314) = lu(k,1314) - lu(k,813) * lu(k,1304) - lu(k,1315) = lu(k,1315) - lu(k,814) * lu(k,1304) - lu(k,1316) = lu(k,1316) - lu(k,815) * lu(k,1304) - lu(k,1317) = lu(k,1317) - lu(k,816) * lu(k,1304) - lu(k,1318) = lu(k,1318) - lu(k,817) * lu(k,1304) - lu(k,1319) = lu(k,1319) - lu(k,818) * lu(k,1304) - lu(k,1320) = lu(k,1320) - lu(k,819) * lu(k,1304) - lu(k,1321) = lu(k,1321) - lu(k,820) * lu(k,1304) - lu(k,1322) = lu(k,1322) - lu(k,821) * lu(k,1304) - lu(k,1323) = lu(k,1323) - lu(k,822) * lu(k,1304) - lu(k,1324) = lu(k,1324) - lu(k,823) * lu(k,1304) - lu(k,1325) = lu(k,1325) - lu(k,824) * lu(k,1304) - lu(k,1326) = lu(k,1326) - lu(k,825) * lu(k,1304) - lu(k,1327) = lu(k,1327) - lu(k,826) * lu(k,1304) - lu(k,1328) = lu(k,1328) - lu(k,827) * lu(k,1304) - lu(k,1344) = lu(k,1344) - lu(k,804) * lu(k,1343) - lu(k,1345) = lu(k,1345) - lu(k,805) * lu(k,1343) - lu(k,1346) = lu(k,1346) - lu(k,806) * lu(k,1343) - lu(k,1347) = lu(k,1347) - lu(k,807) * lu(k,1343) - lu(k,1348) = lu(k,1348) - lu(k,808) * lu(k,1343) - lu(k,1349) = lu(k,1349) - lu(k,809) * lu(k,1343) - lu(k,1350) = lu(k,1350) - lu(k,810) * lu(k,1343) - lu(k,1351) = lu(k,1351) - lu(k,811) * lu(k,1343) - lu(k,1352) = lu(k,1352) - lu(k,812) * lu(k,1343) - lu(k,1353) = lu(k,1353) - lu(k,813) * lu(k,1343) - lu(k,1354) = lu(k,1354) - lu(k,814) * lu(k,1343) - lu(k,1355) = lu(k,1355) - lu(k,815) * lu(k,1343) - lu(k,1356) = lu(k,1356) - lu(k,816) * lu(k,1343) - lu(k,1357) = lu(k,1357) - lu(k,817) * lu(k,1343) - lu(k,1358) = lu(k,1358) - lu(k,818) * lu(k,1343) - lu(k,1359) = lu(k,1359) - lu(k,819) * lu(k,1343) - lu(k,1360) = lu(k,1360) - lu(k,820) * lu(k,1343) - lu(k,1361) = lu(k,1361) - lu(k,821) * lu(k,1343) - lu(k,1362) = lu(k,1362) - lu(k,822) * lu(k,1343) - lu(k,1363) = lu(k,1363) - lu(k,823) * lu(k,1343) - lu(k,1364) = lu(k,1364) - lu(k,824) * lu(k,1343) - lu(k,1365) = lu(k,1365) - lu(k,825) * lu(k,1343) - lu(k,1366) = lu(k,1366) - lu(k,826) * lu(k,1343) - lu(k,1367) = lu(k,1367) - lu(k,827) * lu(k,1343) - lu(k,1379) = lu(k,1379) - lu(k,804) * lu(k,1378) - lu(k,1380) = lu(k,1380) - lu(k,805) * lu(k,1378) - lu(k,1381) = lu(k,1381) - lu(k,806) * lu(k,1378) - lu(k,1382) = lu(k,1382) - lu(k,807) * lu(k,1378) - lu(k,1383) = lu(k,1383) - lu(k,808) * lu(k,1378) - lu(k,1384) = lu(k,1384) - lu(k,809) * lu(k,1378) - lu(k,1385) = lu(k,1385) - lu(k,810) * lu(k,1378) - lu(k,1386) = lu(k,1386) - lu(k,811) * lu(k,1378) - lu(k,1387) = lu(k,1387) - lu(k,812) * lu(k,1378) - lu(k,1388) = lu(k,1388) - lu(k,813) * lu(k,1378) - lu(k,1389) = lu(k,1389) - lu(k,814) * lu(k,1378) - lu(k,1390) = lu(k,1390) - lu(k,815) * lu(k,1378) - lu(k,1391) = lu(k,1391) - lu(k,816) * lu(k,1378) - lu(k,1392) = lu(k,1392) - lu(k,817) * lu(k,1378) - lu(k,1393) = lu(k,1393) - lu(k,818) * lu(k,1378) - lu(k,1394) = lu(k,1394) - lu(k,819) * lu(k,1378) - lu(k,1395) = lu(k,1395) - lu(k,820) * lu(k,1378) - lu(k,1396) = lu(k,1396) - lu(k,821) * lu(k,1378) - lu(k,1397) = lu(k,1397) - lu(k,822) * lu(k,1378) - lu(k,1398) = lu(k,1398) - lu(k,823) * lu(k,1378) - lu(k,1399) = lu(k,1399) - lu(k,824) * lu(k,1378) - lu(k,1400) = lu(k,1400) - lu(k,825) * lu(k,1378) - lu(k,1401) = lu(k,1401) - lu(k,826) * lu(k,1378) - lu(k,1402) = lu(k,1402) - lu(k,827) * lu(k,1378) - lu(k,1423) = lu(k,1423) - lu(k,804) * lu(k,1422) - lu(k,1424) = lu(k,1424) - lu(k,805) * lu(k,1422) - lu(k,1425) = lu(k,1425) - lu(k,806) * lu(k,1422) - lu(k,1426) = lu(k,1426) - lu(k,807) * lu(k,1422) - lu(k,1427) = lu(k,1427) - lu(k,808) * lu(k,1422) - lu(k,1428) = lu(k,1428) - lu(k,809) * lu(k,1422) - lu(k,1429) = lu(k,1429) - lu(k,810) * lu(k,1422) - lu(k,1430) = lu(k,1430) - lu(k,811) * lu(k,1422) - lu(k,1431) = lu(k,1431) - lu(k,812) * lu(k,1422) - lu(k,1432) = lu(k,1432) - lu(k,813) * lu(k,1422) - lu(k,1433) = lu(k,1433) - lu(k,814) * lu(k,1422) - lu(k,1434) = lu(k,1434) - lu(k,815) * lu(k,1422) - lu(k,1435) = lu(k,1435) - lu(k,816) * lu(k,1422) - lu(k,1436) = lu(k,1436) - lu(k,817) * lu(k,1422) - lu(k,1437) = lu(k,1437) - lu(k,818) * lu(k,1422) - lu(k,1438) = lu(k,1438) - lu(k,819) * lu(k,1422) - lu(k,1439) = lu(k,1439) - lu(k,820) * lu(k,1422) - lu(k,1440) = lu(k,1440) - lu(k,821) * lu(k,1422) - lu(k,1441) = lu(k,1441) - lu(k,822) * lu(k,1422) - lu(k,1442) = lu(k,1442) - lu(k,823) * lu(k,1422) - lu(k,1443) = lu(k,1443) - lu(k,824) * lu(k,1422) - lu(k,1444) = lu(k,1444) - lu(k,825) * lu(k,1422) - lu(k,1445) = lu(k,1445) - lu(k,826) * lu(k,1422) - lu(k,1446) = lu(k,1446) - lu(k,827) * lu(k,1422) - lu(k,1469) = lu(k,1469) - lu(k,804) * lu(k,1468) - lu(k,1470) = lu(k,1470) - lu(k,805) * lu(k,1468) - lu(k,1471) = lu(k,1471) - lu(k,806) * lu(k,1468) - lu(k,1472) = lu(k,1472) - lu(k,807) * lu(k,1468) - lu(k,1473) = lu(k,1473) - lu(k,808) * lu(k,1468) - lu(k,1474) = lu(k,1474) - lu(k,809) * lu(k,1468) - lu(k,1475) = lu(k,1475) - lu(k,810) * lu(k,1468) - lu(k,1476) = lu(k,1476) - lu(k,811) * lu(k,1468) - lu(k,1477) = lu(k,1477) - lu(k,812) * lu(k,1468) - lu(k,1478) = lu(k,1478) - lu(k,813) * lu(k,1468) - lu(k,1479) = lu(k,1479) - lu(k,814) * lu(k,1468) - lu(k,1480) = lu(k,1480) - lu(k,815) * lu(k,1468) - lu(k,1481) = lu(k,1481) - lu(k,816) * lu(k,1468) - lu(k,1482) = lu(k,1482) - lu(k,817) * lu(k,1468) - lu(k,1483) = lu(k,1483) - lu(k,818) * lu(k,1468) - lu(k,1484) = lu(k,1484) - lu(k,819) * lu(k,1468) - lu(k,1485) = lu(k,1485) - lu(k,820) * lu(k,1468) - lu(k,1486) = lu(k,1486) - lu(k,821) * lu(k,1468) - lu(k,1487) = lu(k,1487) - lu(k,822) * lu(k,1468) - lu(k,1488) = lu(k,1488) - lu(k,823) * lu(k,1468) - lu(k,1489) = lu(k,1489) - lu(k,824) * lu(k,1468) - lu(k,1490) = lu(k,1490) - lu(k,825) * lu(k,1468) - lu(k,1491) = lu(k,1491) - lu(k,826) * lu(k,1468) - lu(k,1492) = lu(k,1492) - lu(k,827) * lu(k,1468) - lu(k,1511) = lu(k,1511) - lu(k,804) * lu(k,1510) - lu(k,1512) = lu(k,1512) - lu(k,805) * lu(k,1510) - lu(k,1513) = lu(k,1513) - lu(k,806) * lu(k,1510) - lu(k,1514) = lu(k,1514) - lu(k,807) * lu(k,1510) - lu(k,1515) = lu(k,1515) - lu(k,808) * lu(k,1510) - lu(k,1516) = lu(k,1516) - lu(k,809) * lu(k,1510) - lu(k,1517) = lu(k,1517) - lu(k,810) * lu(k,1510) - lu(k,1518) = lu(k,1518) - lu(k,811) * lu(k,1510) - lu(k,1519) = lu(k,1519) - lu(k,812) * lu(k,1510) - lu(k,1520) = lu(k,1520) - lu(k,813) * lu(k,1510) - lu(k,1521) = lu(k,1521) - lu(k,814) * lu(k,1510) - lu(k,1522) = lu(k,1522) - lu(k,815) * lu(k,1510) - lu(k,1523) = lu(k,1523) - lu(k,816) * lu(k,1510) - lu(k,1524) = lu(k,1524) - lu(k,817) * lu(k,1510) - lu(k,1525) = lu(k,1525) - lu(k,818) * lu(k,1510) - lu(k,1526) = lu(k,1526) - lu(k,819) * lu(k,1510) - lu(k,1527) = lu(k,1527) - lu(k,820) * lu(k,1510) - lu(k,1528) = lu(k,1528) - lu(k,821) * lu(k,1510) - lu(k,1529) = lu(k,1529) - lu(k,822) * lu(k,1510) - lu(k,1530) = lu(k,1530) - lu(k,823) * lu(k,1510) - lu(k,1531) = lu(k,1531) - lu(k,824) * lu(k,1510) - lu(k,1532) = lu(k,1532) - lu(k,825) * lu(k,1510) - lu(k,1533) = lu(k,1533) - lu(k,826) * lu(k,1510) - lu(k,1534) = lu(k,1534) - lu(k,827) * lu(k,1510) - lu(k,1552) = lu(k,1552) - lu(k,804) * lu(k,1551) - lu(k,1553) = lu(k,1553) - lu(k,805) * lu(k,1551) - lu(k,1554) = lu(k,1554) - lu(k,806) * lu(k,1551) - lu(k,1555) = lu(k,1555) - lu(k,807) * lu(k,1551) - lu(k,1556) = lu(k,1556) - lu(k,808) * lu(k,1551) - lu(k,1557) = lu(k,1557) - lu(k,809) * lu(k,1551) - lu(k,1558) = lu(k,1558) - lu(k,810) * lu(k,1551) - lu(k,1559) = lu(k,1559) - lu(k,811) * lu(k,1551) - lu(k,1560) = lu(k,1560) - lu(k,812) * lu(k,1551) - lu(k,1561) = lu(k,1561) - lu(k,813) * lu(k,1551) - lu(k,1562) = lu(k,1562) - lu(k,814) * lu(k,1551) - lu(k,1563) = lu(k,1563) - lu(k,815) * lu(k,1551) - lu(k,1564) = lu(k,1564) - lu(k,816) * lu(k,1551) - lu(k,1565) = lu(k,1565) - lu(k,817) * lu(k,1551) - lu(k,1566) = lu(k,1566) - lu(k,818) * lu(k,1551) - lu(k,1567) = lu(k,1567) - lu(k,819) * lu(k,1551) - lu(k,1568) = lu(k,1568) - lu(k,820) * lu(k,1551) - lu(k,1569) = lu(k,1569) - lu(k,821) * lu(k,1551) - lu(k,1570) = lu(k,1570) - lu(k,822) * lu(k,1551) - lu(k,1571) = lu(k,1571) - lu(k,823) * lu(k,1551) - lu(k,1572) = lu(k,1572) - lu(k,824) * lu(k,1551) - lu(k,1573) = lu(k,1573) - lu(k,825) * lu(k,1551) - lu(k,1574) = lu(k,1574) - lu(k,826) * lu(k,1551) - lu(k,1575) = lu(k,1575) - lu(k,827) * lu(k,1551) - lu(k,1609) = lu(k,1609) - lu(k,804) * lu(k,1608) - lu(k,1610) = lu(k,1610) - lu(k,805) * lu(k,1608) - lu(k,1611) = lu(k,1611) - lu(k,806) * lu(k,1608) - lu(k,1612) = lu(k,1612) - lu(k,807) * lu(k,1608) - lu(k,1613) = lu(k,1613) - lu(k,808) * lu(k,1608) - lu(k,1614) = lu(k,1614) - lu(k,809) * lu(k,1608) - lu(k,1615) = lu(k,1615) - lu(k,810) * lu(k,1608) - lu(k,1616) = lu(k,1616) - lu(k,811) * lu(k,1608) - lu(k,1617) = lu(k,1617) - lu(k,812) * lu(k,1608) - lu(k,1618) = lu(k,1618) - lu(k,813) * lu(k,1608) - lu(k,1619) = lu(k,1619) - lu(k,814) * lu(k,1608) - lu(k,1620) = lu(k,1620) - lu(k,815) * lu(k,1608) - lu(k,1621) = lu(k,1621) - lu(k,816) * lu(k,1608) - lu(k,1622) = lu(k,1622) - lu(k,817) * lu(k,1608) - lu(k,1623) = lu(k,1623) - lu(k,818) * lu(k,1608) - lu(k,1624) = lu(k,1624) - lu(k,819) * lu(k,1608) - lu(k,1625) = lu(k,1625) - lu(k,820) * lu(k,1608) - lu(k,1626) = lu(k,1626) - lu(k,821) * lu(k,1608) - lu(k,1627) = lu(k,1627) - lu(k,822) * lu(k,1608) - lu(k,1628) = lu(k,1628) - lu(k,823) * lu(k,1608) - lu(k,1629) = lu(k,1629) - lu(k,824) * lu(k,1608) - lu(k,1630) = lu(k,1630) - lu(k,825) * lu(k,1608) - lu(k,1631) = lu(k,1631) - lu(k,826) * lu(k,1608) - lu(k,1632) = lu(k,1632) - lu(k,827) * lu(k,1608) - lu(k,1670) = lu(k,1670) - lu(k,804) * lu(k,1669) - lu(k,1671) = lu(k,1671) - lu(k,805) * lu(k,1669) - lu(k,1672) = lu(k,1672) - lu(k,806) * lu(k,1669) - lu(k,1673) = lu(k,1673) - lu(k,807) * lu(k,1669) - lu(k,1674) = lu(k,1674) - lu(k,808) * lu(k,1669) - lu(k,1675) = lu(k,1675) - lu(k,809) * lu(k,1669) - lu(k,1676) = lu(k,1676) - lu(k,810) * lu(k,1669) - lu(k,1677) = lu(k,1677) - lu(k,811) * lu(k,1669) - lu(k,1678) = lu(k,1678) - lu(k,812) * lu(k,1669) - lu(k,1679) = lu(k,1679) - lu(k,813) * lu(k,1669) - lu(k,1680) = lu(k,1680) - lu(k,814) * lu(k,1669) - lu(k,1681) = lu(k,1681) - lu(k,815) * lu(k,1669) - lu(k,1682) = lu(k,1682) - lu(k,816) * lu(k,1669) - lu(k,1683) = lu(k,1683) - lu(k,817) * lu(k,1669) - lu(k,1684) = lu(k,1684) - lu(k,818) * lu(k,1669) - lu(k,1685) = lu(k,1685) - lu(k,819) * lu(k,1669) - lu(k,1686) = lu(k,1686) - lu(k,820) * lu(k,1669) - lu(k,1687) = lu(k,1687) - lu(k,821) * lu(k,1669) - lu(k,1688) = lu(k,1688) - lu(k,822) * lu(k,1669) - lu(k,1689) = lu(k,1689) - lu(k,823) * lu(k,1669) - lu(k,1690) = lu(k,1690) - lu(k,824) * lu(k,1669) - lu(k,1691) = lu(k,1691) - lu(k,825) * lu(k,1669) - lu(k,1692) = lu(k,1692) - lu(k,826) * lu(k,1669) - lu(k,1693) = lu(k,1693) - lu(k,827) * lu(k,1669) - lu(k,1705) = lu(k,1705) - lu(k,804) * lu(k,1704) - lu(k,1706) = lu(k,1706) - lu(k,805) * lu(k,1704) - lu(k,1707) = lu(k,1707) - lu(k,806) * lu(k,1704) - lu(k,1708) = lu(k,1708) - lu(k,807) * lu(k,1704) - lu(k,1709) = lu(k,1709) - lu(k,808) * lu(k,1704) - lu(k,1710) = lu(k,1710) - lu(k,809) * lu(k,1704) - lu(k,1711) = lu(k,1711) - lu(k,810) * lu(k,1704) - lu(k,1712) = lu(k,1712) - lu(k,811) * lu(k,1704) - lu(k,1713) = lu(k,1713) - lu(k,812) * lu(k,1704) - lu(k,1714) = lu(k,1714) - lu(k,813) * lu(k,1704) - lu(k,1715) = lu(k,1715) - lu(k,814) * lu(k,1704) - lu(k,1716) = lu(k,1716) - lu(k,815) * lu(k,1704) - lu(k,1717) = lu(k,1717) - lu(k,816) * lu(k,1704) - lu(k,1718) = lu(k,1718) - lu(k,817) * lu(k,1704) - lu(k,1719) = lu(k,1719) - lu(k,818) * lu(k,1704) - lu(k,1720) = lu(k,1720) - lu(k,819) * lu(k,1704) - lu(k,1721) = lu(k,1721) - lu(k,820) * lu(k,1704) - lu(k,1722) = lu(k,1722) - lu(k,821) * lu(k,1704) - lu(k,1723) = lu(k,1723) - lu(k,822) * lu(k,1704) - lu(k,1724) = lu(k,1724) - lu(k,823) * lu(k,1704) - lu(k,1725) = lu(k,1725) - lu(k,824) * lu(k,1704) - lu(k,1726) = lu(k,1726) - lu(k,825) * lu(k,1704) - lu(k,1727) = lu(k,1727) - lu(k,826) * lu(k,1704) - lu(k,1728) = lu(k,1728) - lu(k,827) * lu(k,1704) - lu(k,1747) = lu(k,1747) - lu(k,804) * lu(k,1746) - lu(k,1748) = lu(k,1748) - lu(k,805) * lu(k,1746) - lu(k,1749) = lu(k,1749) - lu(k,806) * lu(k,1746) - lu(k,1750) = lu(k,1750) - lu(k,807) * lu(k,1746) - lu(k,1751) = lu(k,1751) - lu(k,808) * lu(k,1746) - lu(k,1752) = lu(k,1752) - lu(k,809) * lu(k,1746) - lu(k,1753) = lu(k,1753) - lu(k,810) * lu(k,1746) - lu(k,1754) = lu(k,1754) - lu(k,811) * lu(k,1746) - lu(k,1755) = lu(k,1755) - lu(k,812) * lu(k,1746) - lu(k,1756) = lu(k,1756) - lu(k,813) * lu(k,1746) - lu(k,1757) = lu(k,1757) - lu(k,814) * lu(k,1746) - lu(k,1758) = lu(k,1758) - lu(k,815) * lu(k,1746) - lu(k,1759) = lu(k,1759) - lu(k,816) * lu(k,1746) - lu(k,1760) = lu(k,1760) - lu(k,817) * lu(k,1746) - lu(k,1761) = lu(k,1761) - lu(k,818) * lu(k,1746) - lu(k,1762) = lu(k,1762) - lu(k,819) * lu(k,1746) - lu(k,1763) = lu(k,1763) - lu(k,820) * lu(k,1746) - lu(k,1764) = lu(k,1764) - lu(k,821) * lu(k,1746) - lu(k,1765) = lu(k,1765) - lu(k,822) * lu(k,1746) - lu(k,1766) = lu(k,1766) - lu(k,823) * lu(k,1746) - lu(k,1767) = lu(k,1767) - lu(k,824) * lu(k,1746) - lu(k,1768) = lu(k,1768) - lu(k,825) * lu(k,1746) - lu(k,1769) = lu(k,1769) - lu(k,826) * lu(k,1746) - lu(k,1770) = lu(k,1770) - lu(k,827) * lu(k,1746) - lu(k,1805) = lu(k,1805) - lu(k,804) * lu(k,1804) - lu(k,1806) = lu(k,1806) - lu(k,805) * lu(k,1804) - lu(k,1807) = lu(k,1807) - lu(k,806) * lu(k,1804) - lu(k,1808) = lu(k,1808) - lu(k,807) * lu(k,1804) - lu(k,1809) = lu(k,1809) - lu(k,808) * lu(k,1804) - lu(k,1810) = lu(k,1810) - lu(k,809) * lu(k,1804) - lu(k,1811) = lu(k,1811) - lu(k,810) * lu(k,1804) - lu(k,1812) = lu(k,1812) - lu(k,811) * lu(k,1804) - lu(k,1813) = lu(k,1813) - lu(k,812) * lu(k,1804) - lu(k,1814) = lu(k,1814) - lu(k,813) * lu(k,1804) - lu(k,1815) = lu(k,1815) - lu(k,814) * lu(k,1804) - lu(k,1816) = lu(k,1816) - lu(k,815) * lu(k,1804) - lu(k,1817) = lu(k,1817) - lu(k,816) * lu(k,1804) - lu(k,1818) = lu(k,1818) - lu(k,817) * lu(k,1804) - lu(k,1819) = lu(k,1819) - lu(k,818) * lu(k,1804) - lu(k,1820) = lu(k,1820) - lu(k,819) * lu(k,1804) - lu(k,1821) = lu(k,1821) - lu(k,820) * lu(k,1804) - lu(k,1822) = lu(k,1822) - lu(k,821) * lu(k,1804) - lu(k,1823) = lu(k,1823) - lu(k,822) * lu(k,1804) - lu(k,1824) = lu(k,1824) - lu(k,823) * lu(k,1804) - lu(k,1825) = lu(k,1825) - lu(k,824) * lu(k,1804) - lu(k,1826) = lu(k,1826) - lu(k,825) * lu(k,1804) - lu(k,1827) = lu(k,1827) - lu(k,826) * lu(k,1804) - lu(k,1828) = lu(k,1828) - lu(k,827) * lu(k,1804) - 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,844) = 1._r8 / lu(k,844) - lu(k,845) = lu(k,845) * lu(k,844) - lu(k,846) = lu(k,846) * lu(k,844) - lu(k,847) = lu(k,847) * lu(k,844) - lu(k,848) = lu(k,848) * lu(k,844) - lu(k,849) = lu(k,849) * lu(k,844) - lu(k,850) = lu(k,850) * lu(k,844) - lu(k,851) = lu(k,851) * lu(k,844) - lu(k,852) = lu(k,852) * lu(k,844) - lu(k,853) = lu(k,853) * lu(k,844) - lu(k,854) = lu(k,854) * lu(k,844) - lu(k,855) = lu(k,855) * lu(k,844) - lu(k,856) = lu(k,856) * lu(k,844) - lu(k,857) = lu(k,857) * lu(k,844) - lu(k,858) = lu(k,858) * lu(k,844) - lu(k,859) = lu(k,859) * lu(k,844) - lu(k,860) = lu(k,860) * lu(k,844) - lu(k,861) = lu(k,861) * lu(k,844) - lu(k,862) = lu(k,862) * lu(k,844) - lu(k,863) = lu(k,863) * lu(k,844) - lu(k,864) = lu(k,864) * lu(k,844) - lu(k,865) = lu(k,865) * lu(k,844) - lu(k,866) = lu(k,866) * lu(k,844) - lu(k,886) = lu(k,886) - lu(k,845) * lu(k,885) - lu(k,887) = lu(k,887) - lu(k,846) * lu(k,885) - lu(k,888) = lu(k,888) - lu(k,847) * lu(k,885) - lu(k,889) = lu(k,889) - lu(k,848) * lu(k,885) - lu(k,890) = lu(k,890) - lu(k,849) * lu(k,885) - lu(k,891) = lu(k,891) - lu(k,850) * lu(k,885) - lu(k,892) = lu(k,892) - lu(k,851) * lu(k,885) - lu(k,893) = lu(k,893) - lu(k,852) * lu(k,885) - lu(k,894) = lu(k,894) - lu(k,853) * lu(k,885) - lu(k,895) = lu(k,895) - lu(k,854) * lu(k,885) - lu(k,896) = lu(k,896) - lu(k,855) * lu(k,885) - lu(k,897) = lu(k,897) - lu(k,856) * lu(k,885) - lu(k,898) = lu(k,898) - lu(k,857) * lu(k,885) - lu(k,899) = lu(k,899) - lu(k,858) * lu(k,885) - lu(k,900) = lu(k,900) - lu(k,859) * lu(k,885) - lu(k,901) = lu(k,901) - lu(k,860) * lu(k,885) - lu(k,902) = lu(k,902) - lu(k,861) * lu(k,885) - lu(k,903) = lu(k,903) - lu(k,862) * lu(k,885) - lu(k,905) = lu(k,905) - lu(k,863) * lu(k,885) - lu(k,906) = lu(k,906) - lu(k,864) * lu(k,885) - lu(k,907) = lu(k,907) - lu(k,865) * lu(k,885) - lu(k,908) = lu(k,908) - lu(k,866) * lu(k,885) - lu(k,927) = lu(k,927) - lu(k,845) * lu(k,926) - lu(k,928) = lu(k,928) - lu(k,846) * lu(k,926) - lu(k,929) = lu(k,929) - lu(k,847) * lu(k,926) - lu(k,930) = lu(k,930) - lu(k,848) * lu(k,926) - lu(k,931) = lu(k,931) - lu(k,849) * lu(k,926) - lu(k,932) = lu(k,932) - lu(k,850) * lu(k,926) - lu(k,933) = lu(k,933) - lu(k,851) * lu(k,926) - lu(k,934) = lu(k,934) - lu(k,852) * lu(k,926) - lu(k,935) = lu(k,935) - lu(k,853) * lu(k,926) - lu(k,936) = lu(k,936) - lu(k,854) * lu(k,926) - lu(k,937) = lu(k,937) - lu(k,855) * lu(k,926) - lu(k,938) = lu(k,938) - lu(k,856) * lu(k,926) - lu(k,939) = lu(k,939) - lu(k,857) * lu(k,926) - lu(k,940) = lu(k,940) - lu(k,858) * lu(k,926) - lu(k,941) = lu(k,941) - lu(k,859) * lu(k,926) - lu(k,942) = lu(k,942) - lu(k,860) * lu(k,926) - lu(k,943) = lu(k,943) - lu(k,861) * lu(k,926) - lu(k,944) = lu(k,944) - lu(k,862) * lu(k,926) - lu(k,946) = lu(k,946) - lu(k,863) * lu(k,926) - lu(k,947) = lu(k,947) - lu(k,864) * lu(k,926) - lu(k,948) = lu(k,948) - lu(k,865) * lu(k,926) - lu(k,949) = lu(k,949) - lu(k,866) * lu(k,926) - lu(k,972) = lu(k,972) - lu(k,845) * lu(k,971) - lu(k,973) = lu(k,973) - lu(k,846) * lu(k,971) - lu(k,974) = lu(k,974) - lu(k,847) * lu(k,971) - lu(k,975) = lu(k,975) - lu(k,848) * lu(k,971) - lu(k,976) = lu(k,976) - lu(k,849) * lu(k,971) - lu(k,977) = lu(k,977) - lu(k,850) * lu(k,971) - lu(k,978) = lu(k,978) - lu(k,851) * lu(k,971) - lu(k,979) = lu(k,979) - lu(k,852) * lu(k,971) - lu(k,980) = lu(k,980) - lu(k,853) * lu(k,971) - lu(k,981) = lu(k,981) - lu(k,854) * lu(k,971) - lu(k,982) = lu(k,982) - lu(k,855) * lu(k,971) - lu(k,983) = lu(k,983) - lu(k,856) * lu(k,971) - lu(k,984) = lu(k,984) - lu(k,857) * lu(k,971) - lu(k,985) = lu(k,985) - lu(k,858) * lu(k,971) - lu(k,986) = lu(k,986) - lu(k,859) * lu(k,971) - lu(k,987) = lu(k,987) - lu(k,860) * lu(k,971) - lu(k,988) = lu(k,988) - lu(k,861) * lu(k,971) - lu(k,989) = lu(k,989) - lu(k,862) * lu(k,971) - lu(k,991) = lu(k,991) - lu(k,863) * lu(k,971) - lu(k,992) = lu(k,992) - lu(k,864) * lu(k,971) - lu(k,993) = lu(k,993) - lu(k,865) * lu(k,971) - lu(k,994) = lu(k,994) - lu(k,866) * lu(k,971) - lu(k,1014) = lu(k,1014) - lu(k,845) * lu(k,1013) - lu(k,1015) = lu(k,1015) - lu(k,846) * lu(k,1013) - lu(k,1016) = lu(k,1016) - lu(k,847) * lu(k,1013) - lu(k,1017) = lu(k,1017) - lu(k,848) * lu(k,1013) - lu(k,1018) = lu(k,1018) - lu(k,849) * lu(k,1013) - lu(k,1019) = lu(k,1019) - lu(k,850) * lu(k,1013) - lu(k,1020) = lu(k,1020) - lu(k,851) * lu(k,1013) - lu(k,1021) = lu(k,1021) - lu(k,852) * lu(k,1013) - lu(k,1022) = lu(k,1022) - lu(k,853) * lu(k,1013) - lu(k,1023) = lu(k,1023) - lu(k,854) * lu(k,1013) - lu(k,1024) = lu(k,1024) - lu(k,855) * lu(k,1013) - lu(k,1025) = lu(k,1025) - lu(k,856) * lu(k,1013) - lu(k,1026) = lu(k,1026) - lu(k,857) * lu(k,1013) - lu(k,1027) = lu(k,1027) - lu(k,858) * lu(k,1013) - lu(k,1028) = lu(k,1028) - lu(k,859) * lu(k,1013) - lu(k,1029) = lu(k,1029) - lu(k,860) * lu(k,1013) - lu(k,1030) = lu(k,1030) - lu(k,861) * lu(k,1013) - lu(k,1031) = lu(k,1031) - lu(k,862) * lu(k,1013) - lu(k,1033) = lu(k,1033) - lu(k,863) * lu(k,1013) - lu(k,1034) = lu(k,1034) - lu(k,864) * lu(k,1013) - lu(k,1035) = lu(k,1035) - lu(k,865) * lu(k,1013) - lu(k,1036) = lu(k,1036) - lu(k,866) * lu(k,1013) - lu(k,1056) = lu(k,1056) - lu(k,845) * lu(k,1055) - lu(k,1057) = lu(k,1057) - lu(k,846) * lu(k,1055) - lu(k,1058) = lu(k,1058) - lu(k,847) * lu(k,1055) - lu(k,1059) = lu(k,1059) - lu(k,848) * lu(k,1055) - lu(k,1060) = lu(k,1060) - lu(k,849) * lu(k,1055) - lu(k,1061) = lu(k,1061) - lu(k,850) * lu(k,1055) - lu(k,1062) = lu(k,1062) - lu(k,851) * lu(k,1055) - lu(k,1063) = lu(k,1063) - lu(k,852) * lu(k,1055) - lu(k,1064) = lu(k,1064) - lu(k,853) * lu(k,1055) - lu(k,1065) = lu(k,1065) - lu(k,854) * lu(k,1055) - lu(k,1066) = lu(k,1066) - lu(k,855) * lu(k,1055) - lu(k,1067) = lu(k,1067) - lu(k,856) * lu(k,1055) - lu(k,1068) = lu(k,1068) - lu(k,857) * lu(k,1055) - lu(k,1069) = lu(k,1069) - lu(k,858) * lu(k,1055) - lu(k,1070) = lu(k,1070) - lu(k,859) * lu(k,1055) - lu(k,1071) = lu(k,1071) - lu(k,860) * lu(k,1055) - lu(k,1072) = lu(k,1072) - lu(k,861) * lu(k,1055) - lu(k,1073) = lu(k,1073) - lu(k,862) * lu(k,1055) - lu(k,1075) = lu(k,1075) - lu(k,863) * lu(k,1055) - lu(k,1076) = lu(k,1076) - lu(k,864) * lu(k,1055) - lu(k,1077) = lu(k,1077) - lu(k,865) * lu(k,1055) - lu(k,1078) = lu(k,1078) - lu(k,866) * lu(k,1055) - lu(k,1100) = lu(k,1100) - lu(k,845) * lu(k,1099) - lu(k,1101) = lu(k,1101) - lu(k,846) * lu(k,1099) - lu(k,1102) = lu(k,1102) - lu(k,847) * lu(k,1099) - lu(k,1103) = lu(k,1103) - lu(k,848) * lu(k,1099) - lu(k,1104) = lu(k,1104) - lu(k,849) * lu(k,1099) - lu(k,1105) = lu(k,1105) - lu(k,850) * lu(k,1099) - lu(k,1106) = lu(k,1106) - lu(k,851) * lu(k,1099) - lu(k,1107) = lu(k,1107) - lu(k,852) * lu(k,1099) - lu(k,1108) = lu(k,1108) - lu(k,853) * lu(k,1099) - lu(k,1109) = lu(k,1109) - lu(k,854) * lu(k,1099) - lu(k,1110) = lu(k,1110) - lu(k,855) * lu(k,1099) - lu(k,1111) = lu(k,1111) - lu(k,856) * lu(k,1099) - lu(k,1112) = lu(k,1112) - lu(k,857) * lu(k,1099) - lu(k,1113) = lu(k,1113) - lu(k,858) * lu(k,1099) - lu(k,1114) = lu(k,1114) - lu(k,859) * lu(k,1099) - lu(k,1115) = lu(k,1115) - lu(k,860) * lu(k,1099) - lu(k,1116) = lu(k,1116) - lu(k,861) * lu(k,1099) - lu(k,1117) = lu(k,1117) - lu(k,862) * lu(k,1099) - lu(k,1119) = lu(k,1119) - lu(k,863) * lu(k,1099) - lu(k,1120) = lu(k,1120) - lu(k,864) * lu(k,1099) - lu(k,1121) = lu(k,1121) - lu(k,865) * lu(k,1099) - lu(k,1122) = lu(k,1122) - lu(k,866) * lu(k,1099) - lu(k,1141) = lu(k,1141) - lu(k,845) * lu(k,1140) - lu(k,1142) = lu(k,1142) - lu(k,846) * lu(k,1140) - lu(k,1143) = lu(k,1143) - lu(k,847) * lu(k,1140) - lu(k,1144) = lu(k,1144) - lu(k,848) * lu(k,1140) - lu(k,1145) = lu(k,1145) - lu(k,849) * lu(k,1140) - lu(k,1146) = lu(k,1146) - lu(k,850) * lu(k,1140) - lu(k,1147) = lu(k,1147) - lu(k,851) * lu(k,1140) - lu(k,1148) = lu(k,1148) - lu(k,852) * lu(k,1140) - lu(k,1149) = lu(k,1149) - lu(k,853) * lu(k,1140) - lu(k,1150) = lu(k,1150) - lu(k,854) * lu(k,1140) - lu(k,1151) = lu(k,1151) - lu(k,855) * lu(k,1140) - lu(k,1152) = lu(k,1152) - lu(k,856) * lu(k,1140) - lu(k,1153) = lu(k,1153) - lu(k,857) * lu(k,1140) - lu(k,1154) = lu(k,1154) - lu(k,858) * lu(k,1140) - lu(k,1155) = lu(k,1155) - lu(k,859) * lu(k,1140) - lu(k,1156) = lu(k,1156) - lu(k,860) * lu(k,1140) - lu(k,1157) = lu(k,1157) - lu(k,861) * lu(k,1140) - lu(k,1158) = lu(k,1158) - lu(k,862) * lu(k,1140) - lu(k,1160) = lu(k,1160) - lu(k,863) * lu(k,1140) - lu(k,1161) = lu(k,1161) - lu(k,864) * lu(k,1140) - lu(k,1162) = lu(k,1162) - lu(k,865) * lu(k,1140) - lu(k,1163) = lu(k,1163) - lu(k,866) * lu(k,1140) - lu(k,1180) = lu(k,1180) - lu(k,845) * lu(k,1179) - lu(k,1181) = lu(k,1181) - lu(k,846) * lu(k,1179) - lu(k,1182) = lu(k,1182) - lu(k,847) * lu(k,1179) - lu(k,1183) = lu(k,1183) - lu(k,848) * lu(k,1179) - lu(k,1184) = lu(k,1184) - lu(k,849) * lu(k,1179) - lu(k,1185) = lu(k,1185) - lu(k,850) * lu(k,1179) - lu(k,1186) = lu(k,1186) - lu(k,851) * lu(k,1179) - lu(k,1187) = lu(k,1187) - lu(k,852) * lu(k,1179) - lu(k,1188) = lu(k,1188) - lu(k,853) * lu(k,1179) - lu(k,1189) = lu(k,1189) - lu(k,854) * lu(k,1179) - lu(k,1190) = lu(k,1190) - lu(k,855) * lu(k,1179) - lu(k,1191) = lu(k,1191) - lu(k,856) * lu(k,1179) - lu(k,1192) = lu(k,1192) - lu(k,857) * lu(k,1179) - lu(k,1193) = lu(k,1193) - lu(k,858) * lu(k,1179) - lu(k,1194) = lu(k,1194) - lu(k,859) * lu(k,1179) - lu(k,1195) = lu(k,1195) - lu(k,860) * lu(k,1179) - lu(k,1196) = lu(k,1196) - lu(k,861) * lu(k,1179) - lu(k,1197) = lu(k,1197) - lu(k,862) * lu(k,1179) - lu(k,1199) = lu(k,1199) - lu(k,863) * lu(k,1179) - lu(k,1200) = lu(k,1200) - lu(k,864) * lu(k,1179) - lu(k,1201) = lu(k,1201) - lu(k,865) * lu(k,1179) - lu(k,1202) = lu(k,1202) - lu(k,866) * lu(k,1179) - lu(k,1215) = lu(k,1215) - lu(k,845) * lu(k,1214) - lu(k,1216) = lu(k,1216) - lu(k,846) * lu(k,1214) - lu(k,1217) = lu(k,1217) - lu(k,847) * lu(k,1214) - lu(k,1218) = lu(k,1218) - lu(k,848) * lu(k,1214) - lu(k,1219) = lu(k,1219) - lu(k,849) * lu(k,1214) - lu(k,1220) = lu(k,1220) - lu(k,850) * lu(k,1214) - lu(k,1221) = lu(k,1221) - lu(k,851) * lu(k,1214) - lu(k,1222) = lu(k,1222) - lu(k,852) * lu(k,1214) - lu(k,1223) = lu(k,1223) - lu(k,853) * lu(k,1214) - lu(k,1224) = lu(k,1224) - lu(k,854) * lu(k,1214) - lu(k,1225) = lu(k,1225) - lu(k,855) * lu(k,1214) - lu(k,1226) = lu(k,1226) - lu(k,856) * lu(k,1214) - lu(k,1227) = lu(k,1227) - lu(k,857) * lu(k,1214) - lu(k,1228) = lu(k,1228) - lu(k,858) * lu(k,1214) - lu(k,1229) = lu(k,1229) - lu(k,859) * lu(k,1214) - lu(k,1230) = lu(k,1230) - lu(k,860) * lu(k,1214) - lu(k,1231) = lu(k,1231) - lu(k,861) * lu(k,1214) - lu(k,1232) = lu(k,1232) - lu(k,862) * lu(k,1214) - lu(k,1234) = lu(k,1234) - lu(k,863) * lu(k,1214) - lu(k,1235) = lu(k,1235) - lu(k,864) * lu(k,1214) - lu(k,1236) = lu(k,1236) - lu(k,865) * lu(k,1214) - lu(k,1237) = lu(k,1237) - lu(k,866) * lu(k,1214) - lu(k,1262) = lu(k,1262) - lu(k,845) * lu(k,1261) - lu(k,1263) = lu(k,1263) - lu(k,846) * lu(k,1261) - lu(k,1264) = lu(k,1264) - lu(k,847) * lu(k,1261) - lu(k,1265) = lu(k,1265) - lu(k,848) * lu(k,1261) - lu(k,1266) = lu(k,1266) - lu(k,849) * lu(k,1261) - lu(k,1267) = lu(k,1267) - lu(k,850) * lu(k,1261) - lu(k,1268) = lu(k,1268) - lu(k,851) * lu(k,1261) - lu(k,1269) = lu(k,1269) - lu(k,852) * lu(k,1261) - lu(k,1270) = lu(k,1270) - lu(k,853) * lu(k,1261) - lu(k,1271) = lu(k,1271) - lu(k,854) * lu(k,1261) - lu(k,1272) = lu(k,1272) - lu(k,855) * lu(k,1261) - lu(k,1273) = lu(k,1273) - lu(k,856) * lu(k,1261) - lu(k,1274) = lu(k,1274) - lu(k,857) * lu(k,1261) - lu(k,1275) = lu(k,1275) - lu(k,858) * lu(k,1261) - lu(k,1276) = lu(k,1276) - lu(k,859) * lu(k,1261) - lu(k,1277) = lu(k,1277) - lu(k,860) * lu(k,1261) - lu(k,1278) = lu(k,1278) - lu(k,861) * lu(k,1261) - lu(k,1279) = lu(k,1279) - lu(k,862) * lu(k,1261) - lu(k,1281) = lu(k,1281) - lu(k,863) * lu(k,1261) - lu(k,1282) = lu(k,1282) - lu(k,864) * lu(k,1261) - lu(k,1283) = lu(k,1283) - lu(k,865) * lu(k,1261) - lu(k,1284) = lu(k,1284) - lu(k,866) * lu(k,1261) - lu(k,1306) = lu(k,1306) - lu(k,845) * lu(k,1305) - lu(k,1307) = lu(k,1307) - lu(k,846) * lu(k,1305) - lu(k,1308) = lu(k,1308) - lu(k,847) * lu(k,1305) - lu(k,1309) = lu(k,1309) - lu(k,848) * lu(k,1305) - lu(k,1310) = lu(k,1310) - lu(k,849) * lu(k,1305) - lu(k,1311) = lu(k,1311) - lu(k,850) * lu(k,1305) - lu(k,1312) = lu(k,1312) - lu(k,851) * lu(k,1305) - lu(k,1313) = lu(k,1313) - lu(k,852) * lu(k,1305) - lu(k,1314) = lu(k,1314) - lu(k,853) * lu(k,1305) - lu(k,1315) = lu(k,1315) - lu(k,854) * lu(k,1305) - lu(k,1316) = lu(k,1316) - lu(k,855) * lu(k,1305) - lu(k,1317) = lu(k,1317) - lu(k,856) * lu(k,1305) - lu(k,1318) = lu(k,1318) - lu(k,857) * lu(k,1305) - lu(k,1319) = lu(k,1319) - lu(k,858) * lu(k,1305) - lu(k,1320) = lu(k,1320) - lu(k,859) * lu(k,1305) - lu(k,1321) = lu(k,1321) - lu(k,860) * lu(k,1305) - lu(k,1322) = lu(k,1322) - lu(k,861) * lu(k,1305) - lu(k,1323) = lu(k,1323) - lu(k,862) * lu(k,1305) - lu(k,1325) = lu(k,1325) - lu(k,863) * lu(k,1305) - lu(k,1326) = lu(k,1326) - lu(k,864) * lu(k,1305) - lu(k,1327) = lu(k,1327) - lu(k,865) * lu(k,1305) - lu(k,1328) = lu(k,1328) - lu(k,866) * lu(k,1305) - lu(k,1345) = lu(k,1345) - lu(k,845) * lu(k,1344) - lu(k,1346) = lu(k,1346) - lu(k,846) * lu(k,1344) - lu(k,1347) = lu(k,1347) - lu(k,847) * lu(k,1344) - lu(k,1348) = lu(k,1348) - lu(k,848) * lu(k,1344) - lu(k,1349) = lu(k,1349) - lu(k,849) * lu(k,1344) - lu(k,1350) = lu(k,1350) - lu(k,850) * lu(k,1344) - lu(k,1351) = lu(k,1351) - lu(k,851) * lu(k,1344) - lu(k,1352) = lu(k,1352) - lu(k,852) * lu(k,1344) - lu(k,1353) = lu(k,1353) - lu(k,853) * lu(k,1344) - lu(k,1354) = lu(k,1354) - lu(k,854) * lu(k,1344) - lu(k,1355) = lu(k,1355) - lu(k,855) * lu(k,1344) - lu(k,1356) = lu(k,1356) - lu(k,856) * lu(k,1344) - lu(k,1357) = lu(k,1357) - lu(k,857) * lu(k,1344) - lu(k,1358) = lu(k,1358) - lu(k,858) * lu(k,1344) - lu(k,1359) = lu(k,1359) - lu(k,859) * lu(k,1344) - lu(k,1360) = lu(k,1360) - lu(k,860) * lu(k,1344) - lu(k,1361) = lu(k,1361) - lu(k,861) * lu(k,1344) - lu(k,1362) = lu(k,1362) - lu(k,862) * lu(k,1344) - lu(k,1364) = lu(k,1364) - lu(k,863) * lu(k,1344) - lu(k,1365) = lu(k,1365) - lu(k,864) * lu(k,1344) - lu(k,1366) = lu(k,1366) - lu(k,865) * lu(k,1344) - lu(k,1367) = lu(k,1367) - lu(k,866) * lu(k,1344) - lu(k,1380) = lu(k,1380) - lu(k,845) * lu(k,1379) - lu(k,1381) = lu(k,1381) - lu(k,846) * lu(k,1379) - lu(k,1382) = lu(k,1382) - lu(k,847) * lu(k,1379) - lu(k,1383) = lu(k,1383) - lu(k,848) * lu(k,1379) - lu(k,1384) = lu(k,1384) - lu(k,849) * lu(k,1379) - lu(k,1385) = lu(k,1385) - lu(k,850) * lu(k,1379) - lu(k,1386) = lu(k,1386) - lu(k,851) * lu(k,1379) - lu(k,1387) = lu(k,1387) - lu(k,852) * lu(k,1379) - lu(k,1388) = lu(k,1388) - lu(k,853) * lu(k,1379) - lu(k,1389) = lu(k,1389) - lu(k,854) * lu(k,1379) - lu(k,1390) = lu(k,1390) - lu(k,855) * lu(k,1379) - lu(k,1391) = lu(k,1391) - lu(k,856) * lu(k,1379) - lu(k,1392) = lu(k,1392) - lu(k,857) * lu(k,1379) - lu(k,1393) = lu(k,1393) - lu(k,858) * lu(k,1379) - lu(k,1394) = lu(k,1394) - lu(k,859) * lu(k,1379) - lu(k,1395) = lu(k,1395) - lu(k,860) * lu(k,1379) - lu(k,1396) = lu(k,1396) - lu(k,861) * lu(k,1379) - lu(k,1397) = lu(k,1397) - lu(k,862) * lu(k,1379) - lu(k,1399) = lu(k,1399) - lu(k,863) * lu(k,1379) - lu(k,1400) = lu(k,1400) - lu(k,864) * lu(k,1379) - lu(k,1401) = lu(k,1401) - lu(k,865) * lu(k,1379) - lu(k,1402) = lu(k,1402) - lu(k,866) * lu(k,1379) - lu(k,1424) = lu(k,1424) - lu(k,845) * lu(k,1423) - lu(k,1425) = lu(k,1425) - lu(k,846) * lu(k,1423) - lu(k,1426) = lu(k,1426) - lu(k,847) * lu(k,1423) - lu(k,1427) = lu(k,1427) - lu(k,848) * lu(k,1423) - lu(k,1428) = lu(k,1428) - lu(k,849) * lu(k,1423) - lu(k,1429) = lu(k,1429) - lu(k,850) * lu(k,1423) - lu(k,1430) = lu(k,1430) - lu(k,851) * lu(k,1423) - lu(k,1431) = lu(k,1431) - lu(k,852) * lu(k,1423) - lu(k,1432) = lu(k,1432) - lu(k,853) * lu(k,1423) - lu(k,1433) = lu(k,1433) - lu(k,854) * lu(k,1423) - lu(k,1434) = lu(k,1434) - lu(k,855) * lu(k,1423) - lu(k,1435) = lu(k,1435) - lu(k,856) * lu(k,1423) - lu(k,1436) = lu(k,1436) - lu(k,857) * lu(k,1423) - lu(k,1437) = lu(k,1437) - lu(k,858) * lu(k,1423) - lu(k,1438) = lu(k,1438) - lu(k,859) * lu(k,1423) - lu(k,1439) = lu(k,1439) - lu(k,860) * lu(k,1423) - lu(k,1440) = lu(k,1440) - lu(k,861) * lu(k,1423) - lu(k,1441) = lu(k,1441) - lu(k,862) * lu(k,1423) - lu(k,1443) = lu(k,1443) - lu(k,863) * lu(k,1423) - lu(k,1444) = lu(k,1444) - lu(k,864) * lu(k,1423) - lu(k,1445) = lu(k,1445) - lu(k,865) * lu(k,1423) - lu(k,1446) = lu(k,1446) - lu(k,866) * lu(k,1423) - lu(k,1470) = lu(k,1470) - lu(k,845) * lu(k,1469) - lu(k,1471) = lu(k,1471) - lu(k,846) * lu(k,1469) - lu(k,1472) = lu(k,1472) - lu(k,847) * lu(k,1469) - lu(k,1473) = lu(k,1473) - lu(k,848) * lu(k,1469) - lu(k,1474) = lu(k,1474) - lu(k,849) * lu(k,1469) - lu(k,1475) = lu(k,1475) - lu(k,850) * lu(k,1469) - lu(k,1476) = lu(k,1476) - lu(k,851) * lu(k,1469) - lu(k,1477) = lu(k,1477) - lu(k,852) * lu(k,1469) - lu(k,1478) = lu(k,1478) - lu(k,853) * lu(k,1469) - lu(k,1479) = lu(k,1479) - lu(k,854) * lu(k,1469) - lu(k,1480) = lu(k,1480) - lu(k,855) * lu(k,1469) - lu(k,1481) = lu(k,1481) - lu(k,856) * lu(k,1469) - lu(k,1482) = lu(k,1482) - lu(k,857) * lu(k,1469) - lu(k,1483) = lu(k,1483) - lu(k,858) * lu(k,1469) - lu(k,1484) = lu(k,1484) - lu(k,859) * lu(k,1469) - lu(k,1485) = lu(k,1485) - lu(k,860) * lu(k,1469) - lu(k,1486) = lu(k,1486) - lu(k,861) * lu(k,1469) - lu(k,1487) = lu(k,1487) - lu(k,862) * lu(k,1469) - lu(k,1489) = lu(k,1489) - lu(k,863) * lu(k,1469) - lu(k,1490) = lu(k,1490) - lu(k,864) * lu(k,1469) - lu(k,1491) = lu(k,1491) - lu(k,865) * lu(k,1469) - lu(k,1492) = lu(k,1492) - lu(k,866) * lu(k,1469) - lu(k,1512) = lu(k,1512) - lu(k,845) * lu(k,1511) - lu(k,1513) = lu(k,1513) - lu(k,846) * lu(k,1511) - lu(k,1514) = lu(k,1514) - lu(k,847) * lu(k,1511) - lu(k,1515) = lu(k,1515) - lu(k,848) * lu(k,1511) - lu(k,1516) = lu(k,1516) - lu(k,849) * lu(k,1511) - lu(k,1517) = lu(k,1517) - lu(k,850) * lu(k,1511) - lu(k,1518) = lu(k,1518) - lu(k,851) * lu(k,1511) - lu(k,1519) = lu(k,1519) - lu(k,852) * lu(k,1511) - lu(k,1520) = lu(k,1520) - lu(k,853) * lu(k,1511) - lu(k,1521) = lu(k,1521) - lu(k,854) * lu(k,1511) - lu(k,1522) = lu(k,1522) - lu(k,855) * lu(k,1511) - lu(k,1523) = lu(k,1523) - lu(k,856) * lu(k,1511) - lu(k,1524) = lu(k,1524) - lu(k,857) * lu(k,1511) - lu(k,1525) = lu(k,1525) - lu(k,858) * lu(k,1511) - lu(k,1526) = lu(k,1526) - lu(k,859) * lu(k,1511) - lu(k,1527) = lu(k,1527) - lu(k,860) * lu(k,1511) - lu(k,1528) = lu(k,1528) - lu(k,861) * lu(k,1511) - lu(k,1529) = lu(k,1529) - lu(k,862) * lu(k,1511) - lu(k,1531) = lu(k,1531) - lu(k,863) * lu(k,1511) - lu(k,1532) = lu(k,1532) - lu(k,864) * lu(k,1511) - lu(k,1533) = lu(k,1533) - lu(k,865) * lu(k,1511) - lu(k,1534) = lu(k,1534) - lu(k,866) * lu(k,1511) - lu(k,1553) = lu(k,1553) - lu(k,845) * lu(k,1552) - lu(k,1554) = lu(k,1554) - lu(k,846) * lu(k,1552) - lu(k,1555) = lu(k,1555) - lu(k,847) * lu(k,1552) - lu(k,1556) = lu(k,1556) - lu(k,848) * lu(k,1552) - lu(k,1557) = lu(k,1557) - lu(k,849) * lu(k,1552) - lu(k,1558) = lu(k,1558) - lu(k,850) * lu(k,1552) - lu(k,1559) = lu(k,1559) - lu(k,851) * lu(k,1552) - lu(k,1560) = lu(k,1560) - lu(k,852) * lu(k,1552) - lu(k,1561) = lu(k,1561) - lu(k,853) * lu(k,1552) - lu(k,1562) = lu(k,1562) - lu(k,854) * lu(k,1552) - lu(k,1563) = lu(k,1563) - lu(k,855) * lu(k,1552) - lu(k,1564) = lu(k,1564) - lu(k,856) * lu(k,1552) - lu(k,1565) = lu(k,1565) - lu(k,857) * lu(k,1552) - lu(k,1566) = lu(k,1566) - lu(k,858) * lu(k,1552) - lu(k,1567) = lu(k,1567) - lu(k,859) * lu(k,1552) - lu(k,1568) = lu(k,1568) - lu(k,860) * lu(k,1552) - lu(k,1569) = lu(k,1569) - lu(k,861) * lu(k,1552) - lu(k,1570) = lu(k,1570) - lu(k,862) * lu(k,1552) - lu(k,1572) = lu(k,1572) - lu(k,863) * lu(k,1552) - lu(k,1573) = lu(k,1573) - lu(k,864) * lu(k,1552) - lu(k,1574) = lu(k,1574) - lu(k,865) * lu(k,1552) - lu(k,1575) = lu(k,1575) - lu(k,866) * lu(k,1552) - lu(k,1610) = lu(k,1610) - lu(k,845) * lu(k,1609) - lu(k,1611) = lu(k,1611) - lu(k,846) * lu(k,1609) - lu(k,1612) = lu(k,1612) - lu(k,847) * lu(k,1609) - lu(k,1613) = lu(k,1613) - lu(k,848) * lu(k,1609) - lu(k,1614) = lu(k,1614) - lu(k,849) * lu(k,1609) - lu(k,1615) = lu(k,1615) - lu(k,850) * lu(k,1609) - lu(k,1616) = lu(k,1616) - lu(k,851) * lu(k,1609) - lu(k,1617) = lu(k,1617) - lu(k,852) * lu(k,1609) - lu(k,1618) = lu(k,1618) - lu(k,853) * lu(k,1609) - lu(k,1619) = lu(k,1619) - lu(k,854) * lu(k,1609) - lu(k,1620) = lu(k,1620) - lu(k,855) * lu(k,1609) - lu(k,1621) = lu(k,1621) - lu(k,856) * lu(k,1609) - lu(k,1622) = lu(k,1622) - lu(k,857) * lu(k,1609) - lu(k,1623) = lu(k,1623) - lu(k,858) * lu(k,1609) - lu(k,1624) = lu(k,1624) - lu(k,859) * lu(k,1609) - lu(k,1625) = lu(k,1625) - lu(k,860) * lu(k,1609) - lu(k,1626) = lu(k,1626) - lu(k,861) * lu(k,1609) - lu(k,1627) = lu(k,1627) - lu(k,862) * lu(k,1609) - lu(k,1629) = lu(k,1629) - lu(k,863) * lu(k,1609) - lu(k,1630) = lu(k,1630) - lu(k,864) * lu(k,1609) - lu(k,1631) = lu(k,1631) - lu(k,865) * lu(k,1609) - lu(k,1632) = lu(k,1632) - lu(k,866) * lu(k,1609) - lu(k,1639) = lu(k,1639) - lu(k,845) * lu(k,1638) - lu(k,1640) = lu(k,1640) - lu(k,846) * lu(k,1638) - lu(k,1641) = lu(k,1641) - lu(k,847) * lu(k,1638) - lu(k,1642) = lu(k,1642) - lu(k,848) * lu(k,1638) - lu(k,1643) = lu(k,1643) - lu(k,849) * lu(k,1638) - lu(k,1644) = lu(k,1644) - lu(k,850) * lu(k,1638) - lu(k,1645) = lu(k,1645) - lu(k,851) * lu(k,1638) - lu(k,1646) = lu(k,1646) - lu(k,852) * lu(k,1638) - lu(k,1647) = lu(k,1647) - lu(k,853) * lu(k,1638) - lu(k,1648) = lu(k,1648) - lu(k,854) * lu(k,1638) - lu(k,1649) = lu(k,1649) - lu(k,855) * lu(k,1638) - lu(k,1650) = lu(k,1650) - lu(k,856) * lu(k,1638) - lu(k,1651) = lu(k,1651) - lu(k,857) * lu(k,1638) - lu(k,1652) = lu(k,1652) - lu(k,858) * lu(k,1638) - lu(k,1653) = lu(k,1653) - lu(k,859) * lu(k,1638) - lu(k,1654) = lu(k,1654) - lu(k,860) * lu(k,1638) - lu(k,1655) = lu(k,1655) - lu(k,861) * lu(k,1638) - lu(k,1656) = lu(k,1656) - lu(k,862) * lu(k,1638) - lu(k,1658) = lu(k,1658) - lu(k,863) * lu(k,1638) - lu(k,1659) = lu(k,1659) - lu(k,864) * lu(k,1638) - lu(k,1660) = lu(k,1660) - lu(k,865) * lu(k,1638) - lu(k,1661) = lu(k,1661) - lu(k,866) * lu(k,1638) - lu(k,1671) = lu(k,1671) - lu(k,845) * lu(k,1670) - lu(k,1672) = lu(k,1672) - lu(k,846) * lu(k,1670) - lu(k,1673) = lu(k,1673) - lu(k,847) * lu(k,1670) - lu(k,1674) = lu(k,1674) - lu(k,848) * lu(k,1670) - lu(k,1675) = lu(k,1675) - lu(k,849) * lu(k,1670) - lu(k,1676) = lu(k,1676) - lu(k,850) * lu(k,1670) - lu(k,1677) = lu(k,1677) - lu(k,851) * lu(k,1670) - lu(k,1678) = lu(k,1678) - lu(k,852) * lu(k,1670) - lu(k,1679) = lu(k,1679) - lu(k,853) * lu(k,1670) - lu(k,1680) = lu(k,1680) - lu(k,854) * lu(k,1670) - lu(k,1681) = lu(k,1681) - lu(k,855) * lu(k,1670) - lu(k,1682) = lu(k,1682) - lu(k,856) * lu(k,1670) - lu(k,1683) = lu(k,1683) - lu(k,857) * lu(k,1670) - lu(k,1684) = lu(k,1684) - lu(k,858) * lu(k,1670) - lu(k,1685) = lu(k,1685) - lu(k,859) * lu(k,1670) - lu(k,1686) = lu(k,1686) - lu(k,860) * lu(k,1670) - lu(k,1687) = lu(k,1687) - lu(k,861) * lu(k,1670) - lu(k,1688) = lu(k,1688) - lu(k,862) * lu(k,1670) - lu(k,1690) = lu(k,1690) - lu(k,863) * lu(k,1670) - lu(k,1691) = lu(k,1691) - lu(k,864) * lu(k,1670) - lu(k,1692) = lu(k,1692) - lu(k,865) * lu(k,1670) - lu(k,1693) = lu(k,1693) - lu(k,866) * lu(k,1670) - lu(k,1706) = lu(k,1706) - lu(k,845) * lu(k,1705) - lu(k,1707) = lu(k,1707) - lu(k,846) * lu(k,1705) - lu(k,1708) = lu(k,1708) - lu(k,847) * lu(k,1705) - lu(k,1709) = lu(k,1709) - lu(k,848) * lu(k,1705) - lu(k,1710) = lu(k,1710) - lu(k,849) * lu(k,1705) - lu(k,1711) = lu(k,1711) - lu(k,850) * lu(k,1705) - lu(k,1712) = lu(k,1712) - lu(k,851) * lu(k,1705) - lu(k,1713) = lu(k,1713) - lu(k,852) * lu(k,1705) - lu(k,1714) = lu(k,1714) - lu(k,853) * lu(k,1705) - lu(k,1715) = lu(k,1715) - lu(k,854) * lu(k,1705) - lu(k,1716) = lu(k,1716) - lu(k,855) * lu(k,1705) - lu(k,1717) = lu(k,1717) - lu(k,856) * lu(k,1705) - lu(k,1718) = lu(k,1718) - lu(k,857) * lu(k,1705) - lu(k,1719) = lu(k,1719) - lu(k,858) * lu(k,1705) - lu(k,1720) = lu(k,1720) - lu(k,859) * lu(k,1705) - lu(k,1721) = lu(k,1721) - lu(k,860) * lu(k,1705) - lu(k,1722) = lu(k,1722) - lu(k,861) * lu(k,1705) - lu(k,1723) = lu(k,1723) - lu(k,862) * lu(k,1705) - lu(k,1725) = lu(k,1725) - lu(k,863) * lu(k,1705) - lu(k,1726) = lu(k,1726) - lu(k,864) * lu(k,1705) - lu(k,1727) = lu(k,1727) - lu(k,865) * lu(k,1705) - lu(k,1728) = lu(k,1728) - lu(k,866) * lu(k,1705) - lu(k,1748) = lu(k,1748) - lu(k,845) * lu(k,1747) - lu(k,1749) = lu(k,1749) - lu(k,846) * lu(k,1747) - lu(k,1750) = lu(k,1750) - lu(k,847) * lu(k,1747) - lu(k,1751) = lu(k,1751) - lu(k,848) * lu(k,1747) - lu(k,1752) = lu(k,1752) - lu(k,849) * lu(k,1747) - lu(k,1753) = lu(k,1753) - lu(k,850) * lu(k,1747) - lu(k,1754) = lu(k,1754) - lu(k,851) * lu(k,1747) - lu(k,1755) = lu(k,1755) - lu(k,852) * lu(k,1747) - lu(k,1756) = lu(k,1756) - lu(k,853) * lu(k,1747) - lu(k,1757) = lu(k,1757) - lu(k,854) * lu(k,1747) - lu(k,1758) = lu(k,1758) - lu(k,855) * lu(k,1747) - lu(k,1759) = lu(k,1759) - lu(k,856) * lu(k,1747) - lu(k,1760) = lu(k,1760) - lu(k,857) * lu(k,1747) - lu(k,1761) = lu(k,1761) - lu(k,858) * lu(k,1747) - lu(k,1762) = lu(k,1762) - lu(k,859) * lu(k,1747) - lu(k,1763) = lu(k,1763) - lu(k,860) * lu(k,1747) - lu(k,1764) = lu(k,1764) - lu(k,861) * lu(k,1747) - lu(k,1765) = lu(k,1765) - lu(k,862) * lu(k,1747) - lu(k,1767) = lu(k,1767) - lu(k,863) * lu(k,1747) - lu(k,1768) = lu(k,1768) - lu(k,864) * lu(k,1747) - lu(k,1769) = lu(k,1769) - lu(k,865) * lu(k,1747) - lu(k,1770) = lu(k,1770) - lu(k,866) * lu(k,1747) - lu(k,1806) = lu(k,1806) - lu(k,845) * lu(k,1805) - lu(k,1807) = lu(k,1807) - lu(k,846) * lu(k,1805) - lu(k,1808) = lu(k,1808) - lu(k,847) * lu(k,1805) - lu(k,1809) = lu(k,1809) - lu(k,848) * lu(k,1805) - lu(k,1810) = lu(k,1810) - lu(k,849) * lu(k,1805) - lu(k,1811) = lu(k,1811) - lu(k,850) * lu(k,1805) - lu(k,1812) = lu(k,1812) - lu(k,851) * lu(k,1805) - lu(k,1813) = lu(k,1813) - lu(k,852) * lu(k,1805) - lu(k,1814) = lu(k,1814) - lu(k,853) * lu(k,1805) - lu(k,1815) = lu(k,1815) - lu(k,854) * lu(k,1805) - lu(k,1816) = lu(k,1816) - lu(k,855) * lu(k,1805) - lu(k,1817) = lu(k,1817) - lu(k,856) * lu(k,1805) - lu(k,1818) = lu(k,1818) - lu(k,857) * lu(k,1805) - lu(k,1819) = lu(k,1819) - lu(k,858) * lu(k,1805) - lu(k,1820) = lu(k,1820) - lu(k,859) * lu(k,1805) - lu(k,1821) = lu(k,1821) - lu(k,860) * lu(k,1805) - lu(k,1822) = lu(k,1822) - lu(k,861) * lu(k,1805) - lu(k,1823) = lu(k,1823) - lu(k,862) * lu(k,1805) - lu(k,1825) = lu(k,1825) - lu(k,863) * lu(k,1805) - lu(k,1826) = lu(k,1826) - lu(k,864) * lu(k,1805) - lu(k,1827) = lu(k,1827) - lu(k,865) * lu(k,1805) - lu(k,1828) = lu(k,1828) - lu(k,866) * lu(k,1805) - lu(k,886) = 1._r8 / lu(k,886) - lu(k,887) = lu(k,887) * lu(k,886) - lu(k,888) = lu(k,888) * lu(k,886) - lu(k,889) = lu(k,889) * lu(k,886) - lu(k,890) = lu(k,890) * lu(k,886) - lu(k,891) = lu(k,891) * lu(k,886) - lu(k,892) = lu(k,892) * lu(k,886) - lu(k,893) = lu(k,893) * lu(k,886) - lu(k,894) = lu(k,894) * lu(k,886) - lu(k,895) = lu(k,895) * lu(k,886) - lu(k,896) = lu(k,896) * lu(k,886) - lu(k,897) = lu(k,897) * lu(k,886) - lu(k,898) = lu(k,898) * lu(k,886) - lu(k,899) = lu(k,899) * lu(k,886) - lu(k,900) = lu(k,900) * lu(k,886) - lu(k,901) = lu(k,901) * lu(k,886) - lu(k,902) = lu(k,902) * lu(k,886) - lu(k,903) = lu(k,903) * lu(k,886) - lu(k,904) = lu(k,904) * lu(k,886) - lu(k,905) = lu(k,905) * lu(k,886) - lu(k,906) = lu(k,906) * lu(k,886) - lu(k,907) = lu(k,907) * lu(k,886) - lu(k,908) = lu(k,908) * lu(k,886) - lu(k,928) = lu(k,928) - lu(k,887) * lu(k,927) - lu(k,929) = lu(k,929) - lu(k,888) * lu(k,927) - lu(k,930) = lu(k,930) - lu(k,889) * lu(k,927) - lu(k,931) = lu(k,931) - lu(k,890) * lu(k,927) - lu(k,932) = lu(k,932) - lu(k,891) * lu(k,927) - lu(k,933) = lu(k,933) - lu(k,892) * lu(k,927) - lu(k,934) = lu(k,934) - lu(k,893) * lu(k,927) - lu(k,935) = lu(k,935) - lu(k,894) * lu(k,927) - lu(k,936) = lu(k,936) - lu(k,895) * lu(k,927) - lu(k,937) = lu(k,937) - lu(k,896) * lu(k,927) - lu(k,938) = lu(k,938) - lu(k,897) * lu(k,927) - lu(k,939) = lu(k,939) - lu(k,898) * lu(k,927) - lu(k,940) = lu(k,940) - lu(k,899) * lu(k,927) - lu(k,941) = lu(k,941) - lu(k,900) * lu(k,927) - lu(k,942) = lu(k,942) - lu(k,901) * lu(k,927) - lu(k,943) = lu(k,943) - lu(k,902) * lu(k,927) - lu(k,944) = lu(k,944) - lu(k,903) * lu(k,927) - lu(k,945) = lu(k,945) - lu(k,904) * lu(k,927) - lu(k,946) = lu(k,946) - lu(k,905) * lu(k,927) - lu(k,947) = lu(k,947) - lu(k,906) * lu(k,927) - lu(k,948) = lu(k,948) - lu(k,907) * lu(k,927) - lu(k,949) = lu(k,949) - lu(k,908) * lu(k,927) - lu(k,973) = lu(k,973) - lu(k,887) * lu(k,972) - lu(k,974) = lu(k,974) - lu(k,888) * lu(k,972) - lu(k,975) = lu(k,975) - lu(k,889) * lu(k,972) - lu(k,976) = lu(k,976) - lu(k,890) * lu(k,972) - lu(k,977) = lu(k,977) - lu(k,891) * lu(k,972) - lu(k,978) = lu(k,978) - lu(k,892) * lu(k,972) - lu(k,979) = lu(k,979) - lu(k,893) * lu(k,972) - lu(k,980) = lu(k,980) - lu(k,894) * lu(k,972) - lu(k,981) = lu(k,981) - lu(k,895) * lu(k,972) - lu(k,982) = lu(k,982) - lu(k,896) * lu(k,972) - lu(k,983) = lu(k,983) - lu(k,897) * lu(k,972) - lu(k,984) = lu(k,984) - lu(k,898) * lu(k,972) - lu(k,985) = lu(k,985) - lu(k,899) * lu(k,972) - lu(k,986) = lu(k,986) - lu(k,900) * lu(k,972) - lu(k,987) = lu(k,987) - lu(k,901) * lu(k,972) - lu(k,988) = lu(k,988) - lu(k,902) * lu(k,972) - lu(k,989) = lu(k,989) - lu(k,903) * lu(k,972) - lu(k,990) = lu(k,990) - lu(k,904) * lu(k,972) - lu(k,991) = lu(k,991) - lu(k,905) * lu(k,972) - lu(k,992) = lu(k,992) - lu(k,906) * lu(k,972) - lu(k,993) = lu(k,993) - lu(k,907) * lu(k,972) - lu(k,994) = lu(k,994) - lu(k,908) * lu(k,972) - lu(k,1015) = lu(k,1015) - lu(k,887) * lu(k,1014) - lu(k,1016) = lu(k,1016) - lu(k,888) * lu(k,1014) - lu(k,1017) = lu(k,1017) - lu(k,889) * lu(k,1014) - lu(k,1018) = lu(k,1018) - lu(k,890) * lu(k,1014) - lu(k,1019) = lu(k,1019) - lu(k,891) * lu(k,1014) - lu(k,1020) = lu(k,1020) - lu(k,892) * lu(k,1014) - lu(k,1021) = lu(k,1021) - lu(k,893) * lu(k,1014) - lu(k,1022) = lu(k,1022) - lu(k,894) * lu(k,1014) - lu(k,1023) = lu(k,1023) - lu(k,895) * lu(k,1014) - lu(k,1024) = lu(k,1024) - lu(k,896) * lu(k,1014) - lu(k,1025) = lu(k,1025) - lu(k,897) * lu(k,1014) - lu(k,1026) = lu(k,1026) - lu(k,898) * lu(k,1014) - lu(k,1027) = lu(k,1027) - lu(k,899) * lu(k,1014) - lu(k,1028) = lu(k,1028) - lu(k,900) * lu(k,1014) - lu(k,1029) = lu(k,1029) - lu(k,901) * lu(k,1014) - lu(k,1030) = lu(k,1030) - lu(k,902) * lu(k,1014) - lu(k,1031) = lu(k,1031) - lu(k,903) * lu(k,1014) - lu(k,1032) = lu(k,1032) - lu(k,904) * lu(k,1014) - lu(k,1033) = lu(k,1033) - lu(k,905) * lu(k,1014) - lu(k,1034) = lu(k,1034) - lu(k,906) * lu(k,1014) - lu(k,1035) = lu(k,1035) - lu(k,907) * lu(k,1014) - lu(k,1036) = lu(k,1036) - lu(k,908) * lu(k,1014) - lu(k,1057) = lu(k,1057) - lu(k,887) * lu(k,1056) - lu(k,1058) = lu(k,1058) - lu(k,888) * lu(k,1056) - lu(k,1059) = lu(k,1059) - lu(k,889) * lu(k,1056) - lu(k,1060) = lu(k,1060) - lu(k,890) * lu(k,1056) - lu(k,1061) = lu(k,1061) - lu(k,891) * lu(k,1056) - lu(k,1062) = lu(k,1062) - lu(k,892) * lu(k,1056) - lu(k,1063) = lu(k,1063) - lu(k,893) * lu(k,1056) - lu(k,1064) = lu(k,1064) - lu(k,894) * lu(k,1056) - lu(k,1065) = lu(k,1065) - lu(k,895) * lu(k,1056) - lu(k,1066) = lu(k,1066) - lu(k,896) * lu(k,1056) - lu(k,1067) = lu(k,1067) - lu(k,897) * lu(k,1056) - lu(k,1068) = lu(k,1068) - lu(k,898) * lu(k,1056) - lu(k,1069) = lu(k,1069) - lu(k,899) * lu(k,1056) - lu(k,1070) = lu(k,1070) - lu(k,900) * lu(k,1056) - lu(k,1071) = lu(k,1071) - lu(k,901) * lu(k,1056) - lu(k,1072) = lu(k,1072) - lu(k,902) * lu(k,1056) - lu(k,1073) = lu(k,1073) - lu(k,903) * lu(k,1056) - lu(k,1074) = lu(k,1074) - lu(k,904) * lu(k,1056) - lu(k,1075) = lu(k,1075) - lu(k,905) * lu(k,1056) - lu(k,1076) = lu(k,1076) - lu(k,906) * lu(k,1056) - lu(k,1077) = lu(k,1077) - lu(k,907) * lu(k,1056) - lu(k,1078) = lu(k,1078) - lu(k,908) * lu(k,1056) - lu(k,1101) = lu(k,1101) - lu(k,887) * lu(k,1100) - lu(k,1102) = lu(k,1102) - lu(k,888) * lu(k,1100) - lu(k,1103) = lu(k,1103) - lu(k,889) * lu(k,1100) - lu(k,1104) = lu(k,1104) - lu(k,890) * lu(k,1100) - lu(k,1105) = lu(k,1105) - lu(k,891) * lu(k,1100) - lu(k,1106) = lu(k,1106) - lu(k,892) * lu(k,1100) - lu(k,1107) = lu(k,1107) - lu(k,893) * lu(k,1100) - lu(k,1108) = lu(k,1108) - lu(k,894) * lu(k,1100) - lu(k,1109) = lu(k,1109) - lu(k,895) * lu(k,1100) - lu(k,1110) = lu(k,1110) - lu(k,896) * lu(k,1100) - lu(k,1111) = lu(k,1111) - lu(k,897) * lu(k,1100) - lu(k,1112) = lu(k,1112) - lu(k,898) * lu(k,1100) - lu(k,1113) = lu(k,1113) - lu(k,899) * lu(k,1100) - lu(k,1114) = lu(k,1114) - lu(k,900) * lu(k,1100) - lu(k,1115) = lu(k,1115) - lu(k,901) * lu(k,1100) - lu(k,1116) = lu(k,1116) - lu(k,902) * lu(k,1100) - lu(k,1117) = lu(k,1117) - lu(k,903) * lu(k,1100) - lu(k,1118) = lu(k,1118) - lu(k,904) * lu(k,1100) - lu(k,1119) = lu(k,1119) - lu(k,905) * lu(k,1100) - lu(k,1120) = lu(k,1120) - lu(k,906) * lu(k,1100) - lu(k,1121) = lu(k,1121) - lu(k,907) * lu(k,1100) - lu(k,1122) = lu(k,1122) - lu(k,908) * lu(k,1100) - lu(k,1142) = lu(k,1142) - lu(k,887) * lu(k,1141) - lu(k,1143) = lu(k,1143) - lu(k,888) * lu(k,1141) - lu(k,1144) = lu(k,1144) - lu(k,889) * lu(k,1141) - lu(k,1145) = lu(k,1145) - lu(k,890) * lu(k,1141) - lu(k,1146) = lu(k,1146) - lu(k,891) * lu(k,1141) - lu(k,1147) = lu(k,1147) - lu(k,892) * lu(k,1141) - lu(k,1148) = lu(k,1148) - lu(k,893) * lu(k,1141) - lu(k,1149) = lu(k,1149) - lu(k,894) * lu(k,1141) - lu(k,1150) = lu(k,1150) - lu(k,895) * lu(k,1141) - lu(k,1151) = lu(k,1151) - lu(k,896) * lu(k,1141) - lu(k,1152) = lu(k,1152) - lu(k,897) * lu(k,1141) - lu(k,1153) = lu(k,1153) - lu(k,898) * lu(k,1141) - lu(k,1154) = lu(k,1154) - lu(k,899) * lu(k,1141) - lu(k,1155) = lu(k,1155) - lu(k,900) * lu(k,1141) - lu(k,1156) = lu(k,1156) - lu(k,901) * lu(k,1141) - lu(k,1157) = lu(k,1157) - lu(k,902) * lu(k,1141) - lu(k,1158) = lu(k,1158) - lu(k,903) * lu(k,1141) - lu(k,1159) = lu(k,1159) - lu(k,904) * lu(k,1141) - lu(k,1160) = lu(k,1160) - lu(k,905) * lu(k,1141) - lu(k,1161) = lu(k,1161) - lu(k,906) * lu(k,1141) - lu(k,1162) = lu(k,1162) - lu(k,907) * lu(k,1141) - lu(k,1163) = lu(k,1163) - lu(k,908) * lu(k,1141) - lu(k,1181) = lu(k,1181) - lu(k,887) * lu(k,1180) - lu(k,1182) = lu(k,1182) - lu(k,888) * lu(k,1180) - lu(k,1183) = lu(k,1183) - lu(k,889) * lu(k,1180) - lu(k,1184) = lu(k,1184) - lu(k,890) * lu(k,1180) - lu(k,1185) = lu(k,1185) - lu(k,891) * lu(k,1180) - lu(k,1186) = lu(k,1186) - lu(k,892) * lu(k,1180) - lu(k,1187) = lu(k,1187) - lu(k,893) * lu(k,1180) - lu(k,1188) = lu(k,1188) - lu(k,894) * lu(k,1180) - lu(k,1189) = lu(k,1189) - lu(k,895) * lu(k,1180) - lu(k,1190) = lu(k,1190) - lu(k,896) * lu(k,1180) - lu(k,1191) = lu(k,1191) - lu(k,897) * lu(k,1180) - lu(k,1192) = lu(k,1192) - lu(k,898) * lu(k,1180) - lu(k,1193) = lu(k,1193) - lu(k,899) * lu(k,1180) - lu(k,1194) = lu(k,1194) - lu(k,900) * lu(k,1180) - lu(k,1195) = lu(k,1195) - lu(k,901) * lu(k,1180) - lu(k,1196) = lu(k,1196) - lu(k,902) * lu(k,1180) - lu(k,1197) = lu(k,1197) - lu(k,903) * lu(k,1180) - lu(k,1198) = lu(k,1198) - lu(k,904) * lu(k,1180) - lu(k,1199) = lu(k,1199) - lu(k,905) * lu(k,1180) - lu(k,1200) = lu(k,1200) - lu(k,906) * lu(k,1180) - lu(k,1201) = lu(k,1201) - lu(k,907) * lu(k,1180) - lu(k,1202) = lu(k,1202) - lu(k,908) * lu(k,1180) - lu(k,1216) = lu(k,1216) - lu(k,887) * lu(k,1215) - lu(k,1217) = lu(k,1217) - lu(k,888) * lu(k,1215) - lu(k,1218) = lu(k,1218) - lu(k,889) * lu(k,1215) - lu(k,1219) = lu(k,1219) - lu(k,890) * lu(k,1215) - lu(k,1220) = lu(k,1220) - lu(k,891) * lu(k,1215) - lu(k,1221) = lu(k,1221) - lu(k,892) * lu(k,1215) - lu(k,1222) = lu(k,1222) - lu(k,893) * lu(k,1215) - lu(k,1223) = lu(k,1223) - lu(k,894) * lu(k,1215) - lu(k,1224) = lu(k,1224) - lu(k,895) * lu(k,1215) - lu(k,1225) = lu(k,1225) - lu(k,896) * lu(k,1215) - lu(k,1226) = lu(k,1226) - lu(k,897) * lu(k,1215) - lu(k,1227) = lu(k,1227) - lu(k,898) * lu(k,1215) - lu(k,1228) = lu(k,1228) - lu(k,899) * lu(k,1215) - lu(k,1229) = lu(k,1229) - lu(k,900) * lu(k,1215) - lu(k,1230) = lu(k,1230) - lu(k,901) * lu(k,1215) - lu(k,1231) = lu(k,1231) - lu(k,902) * lu(k,1215) - lu(k,1232) = lu(k,1232) - lu(k,903) * lu(k,1215) - lu(k,1233) = lu(k,1233) - lu(k,904) * lu(k,1215) - lu(k,1234) = lu(k,1234) - lu(k,905) * lu(k,1215) - lu(k,1235) = lu(k,1235) - lu(k,906) * lu(k,1215) - lu(k,1236) = lu(k,1236) - lu(k,907) * lu(k,1215) - lu(k,1237) = lu(k,1237) - lu(k,908) * lu(k,1215) - lu(k,1263) = lu(k,1263) - lu(k,887) * lu(k,1262) - lu(k,1264) = lu(k,1264) - lu(k,888) * lu(k,1262) - lu(k,1265) = lu(k,1265) - lu(k,889) * lu(k,1262) - lu(k,1266) = lu(k,1266) - lu(k,890) * lu(k,1262) - lu(k,1267) = lu(k,1267) - lu(k,891) * lu(k,1262) - lu(k,1268) = lu(k,1268) - lu(k,892) * lu(k,1262) - lu(k,1269) = lu(k,1269) - lu(k,893) * lu(k,1262) - lu(k,1270) = lu(k,1270) - lu(k,894) * lu(k,1262) - lu(k,1271) = lu(k,1271) - lu(k,895) * lu(k,1262) - lu(k,1272) = lu(k,1272) - lu(k,896) * lu(k,1262) - lu(k,1273) = lu(k,1273) - lu(k,897) * lu(k,1262) - lu(k,1274) = lu(k,1274) - lu(k,898) * lu(k,1262) - lu(k,1275) = lu(k,1275) - lu(k,899) * lu(k,1262) - lu(k,1276) = lu(k,1276) - lu(k,900) * lu(k,1262) - lu(k,1277) = lu(k,1277) - lu(k,901) * lu(k,1262) - lu(k,1278) = lu(k,1278) - lu(k,902) * lu(k,1262) - lu(k,1279) = lu(k,1279) - lu(k,903) * lu(k,1262) - lu(k,1280) = lu(k,1280) - lu(k,904) * lu(k,1262) - lu(k,1281) = lu(k,1281) - lu(k,905) * lu(k,1262) - lu(k,1282) = lu(k,1282) - lu(k,906) * lu(k,1262) - lu(k,1283) = lu(k,1283) - lu(k,907) * lu(k,1262) - lu(k,1284) = lu(k,1284) - lu(k,908) * lu(k,1262) - lu(k,1307) = lu(k,1307) - lu(k,887) * lu(k,1306) - lu(k,1308) = lu(k,1308) - lu(k,888) * lu(k,1306) - lu(k,1309) = lu(k,1309) - lu(k,889) * lu(k,1306) - lu(k,1310) = lu(k,1310) - lu(k,890) * lu(k,1306) - lu(k,1311) = lu(k,1311) - lu(k,891) * lu(k,1306) - lu(k,1312) = lu(k,1312) - lu(k,892) * lu(k,1306) - lu(k,1313) = lu(k,1313) - lu(k,893) * lu(k,1306) - lu(k,1314) = lu(k,1314) - lu(k,894) * lu(k,1306) - lu(k,1315) = lu(k,1315) - lu(k,895) * lu(k,1306) - lu(k,1316) = lu(k,1316) - lu(k,896) * lu(k,1306) - lu(k,1317) = lu(k,1317) - lu(k,897) * lu(k,1306) - lu(k,1318) = lu(k,1318) - lu(k,898) * lu(k,1306) - lu(k,1319) = lu(k,1319) - lu(k,899) * lu(k,1306) - lu(k,1320) = lu(k,1320) - lu(k,900) * lu(k,1306) - lu(k,1321) = lu(k,1321) - lu(k,901) * lu(k,1306) - lu(k,1322) = lu(k,1322) - lu(k,902) * lu(k,1306) - lu(k,1323) = lu(k,1323) - lu(k,903) * lu(k,1306) - lu(k,1324) = lu(k,1324) - lu(k,904) * lu(k,1306) - lu(k,1325) = lu(k,1325) - lu(k,905) * lu(k,1306) - lu(k,1326) = lu(k,1326) - lu(k,906) * lu(k,1306) - lu(k,1327) = lu(k,1327) - lu(k,907) * lu(k,1306) - lu(k,1328) = lu(k,1328) - lu(k,908) * lu(k,1306) - lu(k,1346) = lu(k,1346) - lu(k,887) * lu(k,1345) - lu(k,1347) = lu(k,1347) - lu(k,888) * lu(k,1345) - lu(k,1348) = lu(k,1348) - lu(k,889) * lu(k,1345) - lu(k,1349) = lu(k,1349) - lu(k,890) * lu(k,1345) - lu(k,1350) = lu(k,1350) - lu(k,891) * lu(k,1345) - lu(k,1351) = lu(k,1351) - lu(k,892) * lu(k,1345) - lu(k,1352) = lu(k,1352) - lu(k,893) * lu(k,1345) - lu(k,1353) = lu(k,1353) - lu(k,894) * lu(k,1345) - lu(k,1354) = lu(k,1354) - lu(k,895) * lu(k,1345) - lu(k,1355) = lu(k,1355) - lu(k,896) * lu(k,1345) - lu(k,1356) = lu(k,1356) - lu(k,897) * lu(k,1345) - lu(k,1357) = lu(k,1357) - lu(k,898) * lu(k,1345) - lu(k,1358) = lu(k,1358) - lu(k,899) * lu(k,1345) - lu(k,1359) = lu(k,1359) - lu(k,900) * lu(k,1345) - lu(k,1360) = lu(k,1360) - lu(k,901) * lu(k,1345) - lu(k,1361) = lu(k,1361) - lu(k,902) * lu(k,1345) - lu(k,1362) = lu(k,1362) - lu(k,903) * lu(k,1345) - lu(k,1363) = lu(k,1363) - lu(k,904) * lu(k,1345) - lu(k,1364) = lu(k,1364) - lu(k,905) * lu(k,1345) - lu(k,1365) = lu(k,1365) - lu(k,906) * lu(k,1345) - lu(k,1366) = lu(k,1366) - lu(k,907) * lu(k,1345) - lu(k,1367) = lu(k,1367) - lu(k,908) * lu(k,1345) - lu(k,1381) = lu(k,1381) - lu(k,887) * lu(k,1380) - lu(k,1382) = lu(k,1382) - lu(k,888) * lu(k,1380) - lu(k,1383) = lu(k,1383) - lu(k,889) * lu(k,1380) - lu(k,1384) = lu(k,1384) - lu(k,890) * lu(k,1380) - lu(k,1385) = lu(k,1385) - lu(k,891) * lu(k,1380) - lu(k,1386) = lu(k,1386) - lu(k,892) * lu(k,1380) - lu(k,1387) = lu(k,1387) - lu(k,893) * lu(k,1380) - lu(k,1388) = lu(k,1388) - lu(k,894) * lu(k,1380) - lu(k,1389) = lu(k,1389) - lu(k,895) * lu(k,1380) - lu(k,1390) = lu(k,1390) - lu(k,896) * lu(k,1380) - lu(k,1391) = lu(k,1391) - lu(k,897) * lu(k,1380) - lu(k,1392) = lu(k,1392) - lu(k,898) * lu(k,1380) - lu(k,1393) = lu(k,1393) - lu(k,899) * lu(k,1380) - lu(k,1394) = lu(k,1394) - lu(k,900) * lu(k,1380) - lu(k,1395) = lu(k,1395) - lu(k,901) * lu(k,1380) - lu(k,1396) = lu(k,1396) - lu(k,902) * lu(k,1380) - lu(k,1397) = lu(k,1397) - lu(k,903) * lu(k,1380) - lu(k,1398) = lu(k,1398) - lu(k,904) * lu(k,1380) - lu(k,1399) = lu(k,1399) - lu(k,905) * lu(k,1380) - lu(k,1400) = lu(k,1400) - lu(k,906) * lu(k,1380) - lu(k,1401) = lu(k,1401) - lu(k,907) * lu(k,1380) - lu(k,1402) = lu(k,1402) - lu(k,908) * lu(k,1380) - lu(k,1425) = lu(k,1425) - lu(k,887) * lu(k,1424) - lu(k,1426) = lu(k,1426) - lu(k,888) * lu(k,1424) - lu(k,1427) = lu(k,1427) - lu(k,889) * lu(k,1424) - lu(k,1428) = lu(k,1428) - lu(k,890) * lu(k,1424) - lu(k,1429) = lu(k,1429) - lu(k,891) * lu(k,1424) - lu(k,1430) = lu(k,1430) - lu(k,892) * lu(k,1424) - lu(k,1431) = lu(k,1431) - lu(k,893) * lu(k,1424) - lu(k,1432) = lu(k,1432) - lu(k,894) * lu(k,1424) - lu(k,1433) = lu(k,1433) - lu(k,895) * lu(k,1424) - lu(k,1434) = lu(k,1434) - lu(k,896) * lu(k,1424) - lu(k,1435) = lu(k,1435) - lu(k,897) * lu(k,1424) - lu(k,1436) = lu(k,1436) - lu(k,898) * lu(k,1424) - lu(k,1437) = lu(k,1437) - lu(k,899) * lu(k,1424) - lu(k,1438) = lu(k,1438) - lu(k,900) * lu(k,1424) - lu(k,1439) = lu(k,1439) - lu(k,901) * lu(k,1424) - lu(k,1440) = lu(k,1440) - lu(k,902) * lu(k,1424) - lu(k,1441) = lu(k,1441) - lu(k,903) * lu(k,1424) - lu(k,1442) = lu(k,1442) - lu(k,904) * lu(k,1424) - lu(k,1443) = lu(k,1443) - lu(k,905) * lu(k,1424) - lu(k,1444) = lu(k,1444) - lu(k,906) * lu(k,1424) - lu(k,1445) = lu(k,1445) - lu(k,907) * lu(k,1424) - lu(k,1446) = lu(k,1446) - lu(k,908) * lu(k,1424) - lu(k,1471) = lu(k,1471) - lu(k,887) * lu(k,1470) - lu(k,1472) = lu(k,1472) - lu(k,888) * lu(k,1470) - lu(k,1473) = lu(k,1473) - lu(k,889) * lu(k,1470) - lu(k,1474) = lu(k,1474) - lu(k,890) * lu(k,1470) - lu(k,1475) = lu(k,1475) - lu(k,891) * lu(k,1470) - lu(k,1476) = lu(k,1476) - lu(k,892) * lu(k,1470) - lu(k,1477) = lu(k,1477) - lu(k,893) * lu(k,1470) - lu(k,1478) = lu(k,1478) - lu(k,894) * lu(k,1470) - lu(k,1479) = lu(k,1479) - lu(k,895) * lu(k,1470) - lu(k,1480) = lu(k,1480) - lu(k,896) * lu(k,1470) - lu(k,1481) = lu(k,1481) - lu(k,897) * lu(k,1470) - lu(k,1482) = lu(k,1482) - lu(k,898) * lu(k,1470) - lu(k,1483) = lu(k,1483) - lu(k,899) * lu(k,1470) - lu(k,1484) = lu(k,1484) - lu(k,900) * lu(k,1470) - lu(k,1485) = lu(k,1485) - lu(k,901) * lu(k,1470) - lu(k,1486) = lu(k,1486) - lu(k,902) * lu(k,1470) - lu(k,1487) = lu(k,1487) - lu(k,903) * lu(k,1470) - lu(k,1488) = lu(k,1488) - lu(k,904) * lu(k,1470) - lu(k,1489) = lu(k,1489) - lu(k,905) * lu(k,1470) - lu(k,1490) = lu(k,1490) - lu(k,906) * lu(k,1470) - lu(k,1491) = lu(k,1491) - lu(k,907) * lu(k,1470) - lu(k,1492) = lu(k,1492) - lu(k,908) * lu(k,1470) - lu(k,1513) = lu(k,1513) - lu(k,887) * lu(k,1512) - lu(k,1514) = lu(k,1514) - lu(k,888) * lu(k,1512) - lu(k,1515) = lu(k,1515) - lu(k,889) * lu(k,1512) - lu(k,1516) = lu(k,1516) - lu(k,890) * lu(k,1512) - lu(k,1517) = lu(k,1517) - lu(k,891) * lu(k,1512) - lu(k,1518) = lu(k,1518) - lu(k,892) * lu(k,1512) - lu(k,1519) = lu(k,1519) - lu(k,893) * lu(k,1512) - lu(k,1520) = lu(k,1520) - lu(k,894) * lu(k,1512) - lu(k,1521) = lu(k,1521) - lu(k,895) * lu(k,1512) - lu(k,1522) = lu(k,1522) - lu(k,896) * lu(k,1512) - lu(k,1523) = lu(k,1523) - lu(k,897) * lu(k,1512) - lu(k,1524) = lu(k,1524) - lu(k,898) * lu(k,1512) - lu(k,1525) = lu(k,1525) - lu(k,899) * lu(k,1512) - lu(k,1526) = lu(k,1526) - lu(k,900) * lu(k,1512) - lu(k,1527) = lu(k,1527) - lu(k,901) * lu(k,1512) - lu(k,1528) = lu(k,1528) - lu(k,902) * lu(k,1512) - lu(k,1529) = lu(k,1529) - lu(k,903) * lu(k,1512) - lu(k,1530) = lu(k,1530) - lu(k,904) * lu(k,1512) - lu(k,1531) = lu(k,1531) - lu(k,905) * lu(k,1512) - lu(k,1532) = lu(k,1532) - lu(k,906) * lu(k,1512) - lu(k,1533) = lu(k,1533) - lu(k,907) * lu(k,1512) - lu(k,1534) = lu(k,1534) - lu(k,908) * lu(k,1512) - lu(k,1554) = lu(k,1554) - lu(k,887) * lu(k,1553) - lu(k,1555) = lu(k,1555) - lu(k,888) * lu(k,1553) - lu(k,1556) = lu(k,1556) - lu(k,889) * lu(k,1553) - lu(k,1557) = lu(k,1557) - lu(k,890) * lu(k,1553) - lu(k,1558) = lu(k,1558) - lu(k,891) * lu(k,1553) - lu(k,1559) = lu(k,1559) - lu(k,892) * lu(k,1553) - lu(k,1560) = lu(k,1560) - lu(k,893) * lu(k,1553) - lu(k,1561) = lu(k,1561) - lu(k,894) * lu(k,1553) - lu(k,1562) = lu(k,1562) - lu(k,895) * lu(k,1553) - lu(k,1563) = lu(k,1563) - lu(k,896) * lu(k,1553) - lu(k,1564) = lu(k,1564) - lu(k,897) * lu(k,1553) - lu(k,1565) = lu(k,1565) - lu(k,898) * lu(k,1553) - lu(k,1566) = lu(k,1566) - lu(k,899) * lu(k,1553) - lu(k,1567) = lu(k,1567) - lu(k,900) * lu(k,1553) - lu(k,1568) = lu(k,1568) - lu(k,901) * lu(k,1553) - lu(k,1569) = lu(k,1569) - lu(k,902) * lu(k,1553) - lu(k,1570) = lu(k,1570) - lu(k,903) * lu(k,1553) - lu(k,1571) = lu(k,1571) - lu(k,904) * lu(k,1553) - lu(k,1572) = lu(k,1572) - lu(k,905) * lu(k,1553) - lu(k,1573) = lu(k,1573) - lu(k,906) * lu(k,1553) - lu(k,1574) = lu(k,1574) - lu(k,907) * lu(k,1553) - lu(k,1575) = lu(k,1575) - lu(k,908) * lu(k,1553) - lu(k,1611) = lu(k,1611) - lu(k,887) * lu(k,1610) - lu(k,1612) = lu(k,1612) - lu(k,888) * lu(k,1610) - lu(k,1613) = lu(k,1613) - lu(k,889) * lu(k,1610) - lu(k,1614) = lu(k,1614) - lu(k,890) * lu(k,1610) - lu(k,1615) = lu(k,1615) - lu(k,891) * lu(k,1610) - lu(k,1616) = lu(k,1616) - lu(k,892) * lu(k,1610) - lu(k,1617) = lu(k,1617) - lu(k,893) * lu(k,1610) - lu(k,1618) = lu(k,1618) - lu(k,894) * lu(k,1610) - lu(k,1619) = lu(k,1619) - lu(k,895) * lu(k,1610) - lu(k,1620) = lu(k,1620) - lu(k,896) * lu(k,1610) - lu(k,1621) = lu(k,1621) - lu(k,897) * lu(k,1610) - lu(k,1622) = lu(k,1622) - lu(k,898) * lu(k,1610) - lu(k,1623) = lu(k,1623) - lu(k,899) * lu(k,1610) - lu(k,1624) = lu(k,1624) - lu(k,900) * lu(k,1610) - lu(k,1625) = lu(k,1625) - lu(k,901) * lu(k,1610) - lu(k,1626) = lu(k,1626) - lu(k,902) * lu(k,1610) - lu(k,1627) = lu(k,1627) - lu(k,903) * lu(k,1610) - lu(k,1628) = lu(k,1628) - lu(k,904) * lu(k,1610) - lu(k,1629) = lu(k,1629) - lu(k,905) * lu(k,1610) - lu(k,1630) = lu(k,1630) - lu(k,906) * lu(k,1610) - lu(k,1631) = lu(k,1631) - lu(k,907) * lu(k,1610) - lu(k,1632) = lu(k,1632) - lu(k,908) * lu(k,1610) - lu(k,1640) = lu(k,1640) - lu(k,887) * lu(k,1639) - lu(k,1641) = lu(k,1641) - lu(k,888) * lu(k,1639) - lu(k,1642) = lu(k,1642) - lu(k,889) * lu(k,1639) - lu(k,1643) = lu(k,1643) - lu(k,890) * lu(k,1639) - lu(k,1644) = lu(k,1644) - lu(k,891) * lu(k,1639) - lu(k,1645) = lu(k,1645) - lu(k,892) * lu(k,1639) - lu(k,1646) = lu(k,1646) - lu(k,893) * lu(k,1639) - lu(k,1647) = lu(k,1647) - lu(k,894) * lu(k,1639) - lu(k,1648) = lu(k,1648) - lu(k,895) * lu(k,1639) - lu(k,1649) = lu(k,1649) - lu(k,896) * lu(k,1639) - lu(k,1650) = lu(k,1650) - lu(k,897) * lu(k,1639) - lu(k,1651) = lu(k,1651) - lu(k,898) * lu(k,1639) - lu(k,1652) = lu(k,1652) - lu(k,899) * lu(k,1639) - lu(k,1653) = lu(k,1653) - lu(k,900) * lu(k,1639) - lu(k,1654) = lu(k,1654) - lu(k,901) * lu(k,1639) - lu(k,1655) = lu(k,1655) - lu(k,902) * lu(k,1639) - lu(k,1656) = lu(k,1656) - lu(k,903) * lu(k,1639) - lu(k,1657) = lu(k,1657) - lu(k,904) * lu(k,1639) - lu(k,1658) = lu(k,1658) - lu(k,905) * lu(k,1639) - lu(k,1659) = lu(k,1659) - lu(k,906) * lu(k,1639) - lu(k,1660) = lu(k,1660) - lu(k,907) * lu(k,1639) - lu(k,1661) = lu(k,1661) - lu(k,908) * lu(k,1639) - lu(k,1672) = lu(k,1672) - lu(k,887) * lu(k,1671) - lu(k,1673) = lu(k,1673) - lu(k,888) * lu(k,1671) - lu(k,1674) = lu(k,1674) - lu(k,889) * lu(k,1671) - lu(k,1675) = lu(k,1675) - lu(k,890) * lu(k,1671) - lu(k,1676) = lu(k,1676) - lu(k,891) * lu(k,1671) - lu(k,1677) = lu(k,1677) - lu(k,892) * lu(k,1671) - lu(k,1678) = lu(k,1678) - lu(k,893) * lu(k,1671) - lu(k,1679) = lu(k,1679) - lu(k,894) * lu(k,1671) - lu(k,1680) = lu(k,1680) - lu(k,895) * lu(k,1671) - lu(k,1681) = lu(k,1681) - lu(k,896) * lu(k,1671) - lu(k,1682) = lu(k,1682) - lu(k,897) * lu(k,1671) - lu(k,1683) = lu(k,1683) - lu(k,898) * lu(k,1671) - lu(k,1684) = lu(k,1684) - lu(k,899) * lu(k,1671) - lu(k,1685) = lu(k,1685) - lu(k,900) * lu(k,1671) - lu(k,1686) = lu(k,1686) - lu(k,901) * lu(k,1671) - lu(k,1687) = lu(k,1687) - lu(k,902) * lu(k,1671) - lu(k,1688) = lu(k,1688) - lu(k,903) * lu(k,1671) - lu(k,1689) = lu(k,1689) - lu(k,904) * lu(k,1671) - lu(k,1690) = lu(k,1690) - lu(k,905) * lu(k,1671) - lu(k,1691) = lu(k,1691) - lu(k,906) * lu(k,1671) - lu(k,1692) = lu(k,1692) - lu(k,907) * lu(k,1671) - lu(k,1693) = lu(k,1693) - lu(k,908) * lu(k,1671) - lu(k,1707) = lu(k,1707) - lu(k,887) * lu(k,1706) - lu(k,1708) = lu(k,1708) - lu(k,888) * lu(k,1706) - lu(k,1709) = lu(k,1709) - lu(k,889) * lu(k,1706) - lu(k,1710) = lu(k,1710) - lu(k,890) * lu(k,1706) - lu(k,1711) = lu(k,1711) - lu(k,891) * lu(k,1706) - lu(k,1712) = lu(k,1712) - lu(k,892) * lu(k,1706) - lu(k,1713) = lu(k,1713) - lu(k,893) * lu(k,1706) - lu(k,1714) = lu(k,1714) - lu(k,894) * lu(k,1706) - lu(k,1715) = lu(k,1715) - lu(k,895) * lu(k,1706) - lu(k,1716) = lu(k,1716) - lu(k,896) * lu(k,1706) - lu(k,1717) = lu(k,1717) - lu(k,897) * lu(k,1706) - lu(k,1718) = lu(k,1718) - lu(k,898) * lu(k,1706) - lu(k,1719) = lu(k,1719) - lu(k,899) * lu(k,1706) - lu(k,1720) = lu(k,1720) - lu(k,900) * lu(k,1706) - lu(k,1721) = lu(k,1721) - lu(k,901) * lu(k,1706) - lu(k,1722) = lu(k,1722) - lu(k,902) * lu(k,1706) - lu(k,1723) = lu(k,1723) - lu(k,903) * lu(k,1706) - lu(k,1724) = lu(k,1724) - lu(k,904) * lu(k,1706) - lu(k,1725) = lu(k,1725) - lu(k,905) * lu(k,1706) - lu(k,1726) = lu(k,1726) - lu(k,906) * lu(k,1706) - lu(k,1727) = lu(k,1727) - lu(k,907) * lu(k,1706) - lu(k,1728) = lu(k,1728) - lu(k,908) * lu(k,1706) - lu(k,1749) = lu(k,1749) - lu(k,887) * lu(k,1748) - lu(k,1750) = lu(k,1750) - lu(k,888) * lu(k,1748) - lu(k,1751) = lu(k,1751) - lu(k,889) * lu(k,1748) - lu(k,1752) = lu(k,1752) - lu(k,890) * lu(k,1748) - lu(k,1753) = lu(k,1753) - lu(k,891) * lu(k,1748) - lu(k,1754) = lu(k,1754) - lu(k,892) * lu(k,1748) - lu(k,1755) = lu(k,1755) - lu(k,893) * lu(k,1748) - lu(k,1756) = lu(k,1756) - lu(k,894) * lu(k,1748) - lu(k,1757) = lu(k,1757) - lu(k,895) * lu(k,1748) - lu(k,1758) = lu(k,1758) - lu(k,896) * lu(k,1748) - lu(k,1759) = lu(k,1759) - lu(k,897) * lu(k,1748) - lu(k,1760) = lu(k,1760) - lu(k,898) * lu(k,1748) - lu(k,1761) = lu(k,1761) - lu(k,899) * lu(k,1748) - lu(k,1762) = lu(k,1762) - lu(k,900) * lu(k,1748) - lu(k,1763) = lu(k,1763) - lu(k,901) * lu(k,1748) - lu(k,1764) = lu(k,1764) - lu(k,902) * lu(k,1748) - lu(k,1765) = lu(k,1765) - lu(k,903) * lu(k,1748) - lu(k,1766) = lu(k,1766) - lu(k,904) * lu(k,1748) - lu(k,1767) = lu(k,1767) - lu(k,905) * lu(k,1748) - lu(k,1768) = lu(k,1768) - lu(k,906) * lu(k,1748) - lu(k,1769) = lu(k,1769) - lu(k,907) * lu(k,1748) - lu(k,1770) = lu(k,1770) - lu(k,908) * lu(k,1748) - lu(k,1807) = lu(k,1807) - lu(k,887) * lu(k,1806) - lu(k,1808) = lu(k,1808) - lu(k,888) * lu(k,1806) - lu(k,1809) = lu(k,1809) - lu(k,889) * lu(k,1806) - lu(k,1810) = lu(k,1810) - lu(k,890) * lu(k,1806) - lu(k,1811) = lu(k,1811) - lu(k,891) * lu(k,1806) - lu(k,1812) = lu(k,1812) - lu(k,892) * lu(k,1806) - lu(k,1813) = lu(k,1813) - lu(k,893) * lu(k,1806) - lu(k,1814) = lu(k,1814) - lu(k,894) * lu(k,1806) - lu(k,1815) = lu(k,1815) - lu(k,895) * lu(k,1806) - lu(k,1816) = lu(k,1816) - lu(k,896) * lu(k,1806) - lu(k,1817) = lu(k,1817) - lu(k,897) * lu(k,1806) - lu(k,1818) = lu(k,1818) - lu(k,898) * lu(k,1806) - lu(k,1819) = lu(k,1819) - lu(k,899) * lu(k,1806) - lu(k,1820) = lu(k,1820) - lu(k,900) * lu(k,1806) - lu(k,1821) = lu(k,1821) - lu(k,901) * lu(k,1806) - lu(k,1822) = lu(k,1822) - lu(k,902) * lu(k,1806) - lu(k,1823) = lu(k,1823) - lu(k,903) * lu(k,1806) - lu(k,1824) = lu(k,1824) - lu(k,904) * lu(k,1806) - lu(k,1825) = lu(k,1825) - lu(k,905) * lu(k,1806) - lu(k,1826) = lu(k,1826) - lu(k,906) * lu(k,1806) - lu(k,1827) = lu(k,1827) - lu(k,907) * lu(k,1806) - lu(k,1828) = lu(k,1828) - lu(k,908) * lu(k,1806) - lu(k,928) = 1._r8 / lu(k,928) - lu(k,929) = lu(k,929) * lu(k,928) - lu(k,930) = lu(k,930) * lu(k,928) - lu(k,931) = lu(k,931) * lu(k,928) - lu(k,932) = lu(k,932) * lu(k,928) - lu(k,933) = lu(k,933) * lu(k,928) - lu(k,934) = lu(k,934) * lu(k,928) - lu(k,935) = lu(k,935) * lu(k,928) - lu(k,936) = lu(k,936) * lu(k,928) - lu(k,937) = lu(k,937) * lu(k,928) - lu(k,938) = lu(k,938) * lu(k,928) - lu(k,939) = lu(k,939) * lu(k,928) - lu(k,940) = lu(k,940) * lu(k,928) - lu(k,941) = lu(k,941) * lu(k,928) - lu(k,942) = lu(k,942) * lu(k,928) - lu(k,943) = lu(k,943) * lu(k,928) - lu(k,944) = lu(k,944) * lu(k,928) - lu(k,945) = lu(k,945) * lu(k,928) - lu(k,946) = lu(k,946) * lu(k,928) - lu(k,947) = lu(k,947) * lu(k,928) - lu(k,948) = lu(k,948) * lu(k,928) - lu(k,949) = lu(k,949) * lu(k,928) - lu(k,974) = lu(k,974) - lu(k,929) * lu(k,973) - lu(k,975) = lu(k,975) - lu(k,930) * lu(k,973) - lu(k,976) = lu(k,976) - lu(k,931) * lu(k,973) - lu(k,977) = lu(k,977) - lu(k,932) * lu(k,973) - lu(k,978) = lu(k,978) - lu(k,933) * lu(k,973) - lu(k,979) = lu(k,979) - lu(k,934) * lu(k,973) - lu(k,980) = lu(k,980) - lu(k,935) * lu(k,973) - lu(k,981) = lu(k,981) - lu(k,936) * lu(k,973) - lu(k,982) = lu(k,982) - lu(k,937) * lu(k,973) - lu(k,983) = lu(k,983) - lu(k,938) * lu(k,973) - lu(k,984) = lu(k,984) - lu(k,939) * lu(k,973) - lu(k,985) = lu(k,985) - lu(k,940) * lu(k,973) - lu(k,986) = lu(k,986) - lu(k,941) * lu(k,973) - lu(k,987) = lu(k,987) - lu(k,942) * lu(k,973) - lu(k,988) = lu(k,988) - lu(k,943) * lu(k,973) - lu(k,989) = lu(k,989) - lu(k,944) * lu(k,973) - lu(k,990) = lu(k,990) - lu(k,945) * lu(k,973) - lu(k,991) = lu(k,991) - lu(k,946) * lu(k,973) - lu(k,992) = lu(k,992) - lu(k,947) * lu(k,973) - lu(k,993) = lu(k,993) - lu(k,948) * lu(k,973) - lu(k,994) = lu(k,994) - lu(k,949) * lu(k,973) - lu(k,1016) = lu(k,1016) - lu(k,929) * lu(k,1015) - lu(k,1017) = lu(k,1017) - lu(k,930) * lu(k,1015) - lu(k,1018) = lu(k,1018) - lu(k,931) * lu(k,1015) - lu(k,1019) = lu(k,1019) - lu(k,932) * lu(k,1015) - lu(k,1020) = lu(k,1020) - lu(k,933) * lu(k,1015) - lu(k,1021) = lu(k,1021) - lu(k,934) * lu(k,1015) - lu(k,1022) = lu(k,1022) - lu(k,935) * lu(k,1015) - lu(k,1023) = lu(k,1023) - lu(k,936) * lu(k,1015) - lu(k,1024) = lu(k,1024) - lu(k,937) * lu(k,1015) - lu(k,1025) = lu(k,1025) - lu(k,938) * lu(k,1015) - lu(k,1026) = lu(k,1026) - lu(k,939) * lu(k,1015) - lu(k,1027) = lu(k,1027) - lu(k,940) * lu(k,1015) - lu(k,1028) = lu(k,1028) - lu(k,941) * lu(k,1015) - lu(k,1029) = lu(k,1029) - lu(k,942) * lu(k,1015) - lu(k,1030) = lu(k,1030) - lu(k,943) * lu(k,1015) - lu(k,1031) = lu(k,1031) - lu(k,944) * lu(k,1015) - lu(k,1032) = lu(k,1032) - lu(k,945) * lu(k,1015) - lu(k,1033) = lu(k,1033) - lu(k,946) * lu(k,1015) - lu(k,1034) = lu(k,1034) - lu(k,947) * lu(k,1015) - lu(k,1035) = lu(k,1035) - lu(k,948) * lu(k,1015) - lu(k,1036) = lu(k,1036) - lu(k,949) * lu(k,1015) - lu(k,1058) = lu(k,1058) - lu(k,929) * lu(k,1057) - lu(k,1059) = lu(k,1059) - lu(k,930) * lu(k,1057) - lu(k,1060) = lu(k,1060) - lu(k,931) * lu(k,1057) - lu(k,1061) = lu(k,1061) - lu(k,932) * lu(k,1057) - lu(k,1062) = lu(k,1062) - lu(k,933) * lu(k,1057) - lu(k,1063) = lu(k,1063) - lu(k,934) * lu(k,1057) - lu(k,1064) = lu(k,1064) - lu(k,935) * lu(k,1057) - lu(k,1065) = lu(k,1065) - lu(k,936) * lu(k,1057) - lu(k,1066) = lu(k,1066) - lu(k,937) * lu(k,1057) - lu(k,1067) = lu(k,1067) - lu(k,938) * lu(k,1057) - lu(k,1068) = lu(k,1068) - lu(k,939) * lu(k,1057) - lu(k,1069) = lu(k,1069) - lu(k,940) * lu(k,1057) - lu(k,1070) = lu(k,1070) - lu(k,941) * lu(k,1057) - lu(k,1071) = lu(k,1071) - lu(k,942) * lu(k,1057) - lu(k,1072) = lu(k,1072) - lu(k,943) * lu(k,1057) - lu(k,1073) = lu(k,1073) - lu(k,944) * lu(k,1057) - lu(k,1074) = lu(k,1074) - lu(k,945) * lu(k,1057) - lu(k,1075) = lu(k,1075) - lu(k,946) * lu(k,1057) - lu(k,1076) = lu(k,1076) - lu(k,947) * lu(k,1057) - lu(k,1077) = lu(k,1077) - lu(k,948) * lu(k,1057) - lu(k,1078) = lu(k,1078) - lu(k,949) * lu(k,1057) - lu(k,1102) = lu(k,1102) - lu(k,929) * lu(k,1101) - lu(k,1103) = lu(k,1103) - lu(k,930) * lu(k,1101) - lu(k,1104) = lu(k,1104) - lu(k,931) * lu(k,1101) - lu(k,1105) = lu(k,1105) - lu(k,932) * lu(k,1101) - lu(k,1106) = lu(k,1106) - lu(k,933) * lu(k,1101) - lu(k,1107) = lu(k,1107) - lu(k,934) * lu(k,1101) - lu(k,1108) = lu(k,1108) - lu(k,935) * lu(k,1101) - lu(k,1109) = lu(k,1109) - lu(k,936) * lu(k,1101) - lu(k,1110) = lu(k,1110) - lu(k,937) * lu(k,1101) - lu(k,1111) = lu(k,1111) - lu(k,938) * lu(k,1101) - lu(k,1112) = lu(k,1112) - lu(k,939) * lu(k,1101) - lu(k,1113) = lu(k,1113) - lu(k,940) * lu(k,1101) - lu(k,1114) = lu(k,1114) - lu(k,941) * lu(k,1101) - lu(k,1115) = lu(k,1115) - lu(k,942) * lu(k,1101) - lu(k,1116) = lu(k,1116) - lu(k,943) * lu(k,1101) - lu(k,1117) = lu(k,1117) - lu(k,944) * lu(k,1101) - lu(k,1118) = lu(k,1118) - lu(k,945) * lu(k,1101) - lu(k,1119) = lu(k,1119) - lu(k,946) * lu(k,1101) - lu(k,1120) = lu(k,1120) - lu(k,947) * lu(k,1101) - lu(k,1121) = lu(k,1121) - lu(k,948) * lu(k,1101) - lu(k,1122) = lu(k,1122) - lu(k,949) * lu(k,1101) - lu(k,1143) = lu(k,1143) - lu(k,929) * lu(k,1142) - lu(k,1144) = lu(k,1144) - lu(k,930) * lu(k,1142) - lu(k,1145) = lu(k,1145) - lu(k,931) * lu(k,1142) - lu(k,1146) = lu(k,1146) - lu(k,932) * lu(k,1142) - lu(k,1147) = lu(k,1147) - lu(k,933) * lu(k,1142) - lu(k,1148) = lu(k,1148) - lu(k,934) * lu(k,1142) - lu(k,1149) = lu(k,1149) - lu(k,935) * lu(k,1142) - lu(k,1150) = lu(k,1150) - lu(k,936) * lu(k,1142) - lu(k,1151) = lu(k,1151) - lu(k,937) * lu(k,1142) - lu(k,1152) = lu(k,1152) - lu(k,938) * lu(k,1142) - lu(k,1153) = lu(k,1153) - lu(k,939) * lu(k,1142) - lu(k,1154) = lu(k,1154) - lu(k,940) * lu(k,1142) - lu(k,1155) = lu(k,1155) - lu(k,941) * lu(k,1142) - lu(k,1156) = lu(k,1156) - lu(k,942) * lu(k,1142) - lu(k,1157) = lu(k,1157) - lu(k,943) * lu(k,1142) - lu(k,1158) = lu(k,1158) - lu(k,944) * lu(k,1142) - lu(k,1159) = lu(k,1159) - lu(k,945) * lu(k,1142) - lu(k,1160) = lu(k,1160) - lu(k,946) * lu(k,1142) - lu(k,1161) = lu(k,1161) - lu(k,947) * lu(k,1142) - lu(k,1162) = lu(k,1162) - lu(k,948) * lu(k,1142) - lu(k,1163) = lu(k,1163) - lu(k,949) * lu(k,1142) - lu(k,1182) = lu(k,1182) - lu(k,929) * lu(k,1181) - lu(k,1183) = lu(k,1183) - lu(k,930) * lu(k,1181) - lu(k,1184) = lu(k,1184) - lu(k,931) * lu(k,1181) - lu(k,1185) = lu(k,1185) - lu(k,932) * lu(k,1181) - lu(k,1186) = lu(k,1186) - lu(k,933) * lu(k,1181) - lu(k,1187) = lu(k,1187) - lu(k,934) * lu(k,1181) - lu(k,1188) = lu(k,1188) - lu(k,935) * lu(k,1181) - lu(k,1189) = lu(k,1189) - lu(k,936) * lu(k,1181) - lu(k,1190) = lu(k,1190) - lu(k,937) * lu(k,1181) - lu(k,1191) = lu(k,1191) - lu(k,938) * lu(k,1181) - lu(k,1192) = lu(k,1192) - lu(k,939) * lu(k,1181) - lu(k,1193) = lu(k,1193) - lu(k,940) * lu(k,1181) - lu(k,1194) = lu(k,1194) - lu(k,941) * lu(k,1181) - lu(k,1195) = lu(k,1195) - lu(k,942) * lu(k,1181) - lu(k,1196) = lu(k,1196) - lu(k,943) * lu(k,1181) - lu(k,1197) = lu(k,1197) - lu(k,944) * lu(k,1181) - lu(k,1198) = lu(k,1198) - lu(k,945) * lu(k,1181) - lu(k,1199) = lu(k,1199) - lu(k,946) * lu(k,1181) - lu(k,1200) = lu(k,1200) - lu(k,947) * lu(k,1181) - lu(k,1201) = lu(k,1201) - lu(k,948) * lu(k,1181) - lu(k,1202) = lu(k,1202) - lu(k,949) * lu(k,1181) - lu(k,1217) = lu(k,1217) - lu(k,929) * lu(k,1216) - lu(k,1218) = lu(k,1218) - lu(k,930) * lu(k,1216) - lu(k,1219) = lu(k,1219) - lu(k,931) * lu(k,1216) - lu(k,1220) = lu(k,1220) - lu(k,932) * lu(k,1216) - lu(k,1221) = lu(k,1221) - lu(k,933) * lu(k,1216) - lu(k,1222) = lu(k,1222) - lu(k,934) * lu(k,1216) - lu(k,1223) = lu(k,1223) - lu(k,935) * lu(k,1216) - lu(k,1224) = lu(k,1224) - lu(k,936) * lu(k,1216) - lu(k,1225) = lu(k,1225) - lu(k,937) * lu(k,1216) - lu(k,1226) = lu(k,1226) - lu(k,938) * lu(k,1216) - lu(k,1227) = lu(k,1227) - lu(k,939) * lu(k,1216) - lu(k,1228) = lu(k,1228) - lu(k,940) * lu(k,1216) - lu(k,1229) = lu(k,1229) - lu(k,941) * lu(k,1216) - lu(k,1230) = lu(k,1230) - lu(k,942) * lu(k,1216) - lu(k,1231) = lu(k,1231) - lu(k,943) * lu(k,1216) - lu(k,1232) = lu(k,1232) - lu(k,944) * lu(k,1216) - lu(k,1233) = lu(k,1233) - lu(k,945) * lu(k,1216) - lu(k,1234) = lu(k,1234) - lu(k,946) * lu(k,1216) - lu(k,1235) = lu(k,1235) - lu(k,947) * lu(k,1216) - lu(k,1236) = lu(k,1236) - lu(k,948) * lu(k,1216) - lu(k,1237) = lu(k,1237) - lu(k,949) * lu(k,1216) - lu(k,1264) = lu(k,1264) - lu(k,929) * lu(k,1263) - lu(k,1265) = lu(k,1265) - lu(k,930) * lu(k,1263) - lu(k,1266) = lu(k,1266) - lu(k,931) * lu(k,1263) - lu(k,1267) = lu(k,1267) - lu(k,932) * lu(k,1263) - lu(k,1268) = lu(k,1268) - lu(k,933) * lu(k,1263) - lu(k,1269) = lu(k,1269) - lu(k,934) * lu(k,1263) - lu(k,1270) = lu(k,1270) - lu(k,935) * lu(k,1263) - lu(k,1271) = lu(k,1271) - lu(k,936) * lu(k,1263) - lu(k,1272) = lu(k,1272) - lu(k,937) * lu(k,1263) - lu(k,1273) = lu(k,1273) - lu(k,938) * lu(k,1263) - lu(k,1274) = lu(k,1274) - lu(k,939) * lu(k,1263) - lu(k,1275) = lu(k,1275) - lu(k,940) * lu(k,1263) - lu(k,1276) = lu(k,1276) - lu(k,941) * lu(k,1263) - lu(k,1277) = lu(k,1277) - lu(k,942) * lu(k,1263) - lu(k,1278) = lu(k,1278) - lu(k,943) * lu(k,1263) - lu(k,1279) = lu(k,1279) - lu(k,944) * lu(k,1263) - lu(k,1280) = lu(k,1280) - lu(k,945) * lu(k,1263) - lu(k,1281) = lu(k,1281) - lu(k,946) * lu(k,1263) - lu(k,1282) = lu(k,1282) - lu(k,947) * lu(k,1263) - lu(k,1283) = lu(k,1283) - lu(k,948) * lu(k,1263) - lu(k,1284) = lu(k,1284) - lu(k,949) * lu(k,1263) - lu(k,1308) = lu(k,1308) - lu(k,929) * lu(k,1307) - lu(k,1309) = lu(k,1309) - lu(k,930) * lu(k,1307) - lu(k,1310) = lu(k,1310) - lu(k,931) * lu(k,1307) - lu(k,1311) = lu(k,1311) - lu(k,932) * lu(k,1307) - lu(k,1312) = lu(k,1312) - lu(k,933) * lu(k,1307) - lu(k,1313) = lu(k,1313) - lu(k,934) * lu(k,1307) - lu(k,1314) = lu(k,1314) - lu(k,935) * lu(k,1307) - lu(k,1315) = lu(k,1315) - lu(k,936) * lu(k,1307) - lu(k,1316) = lu(k,1316) - lu(k,937) * lu(k,1307) - lu(k,1317) = lu(k,1317) - lu(k,938) * lu(k,1307) - lu(k,1318) = lu(k,1318) - lu(k,939) * lu(k,1307) - lu(k,1319) = lu(k,1319) - lu(k,940) * lu(k,1307) - lu(k,1320) = lu(k,1320) - lu(k,941) * lu(k,1307) - lu(k,1321) = lu(k,1321) - lu(k,942) * lu(k,1307) - lu(k,1322) = lu(k,1322) - lu(k,943) * lu(k,1307) - lu(k,1323) = lu(k,1323) - lu(k,944) * lu(k,1307) - lu(k,1324) = lu(k,1324) - lu(k,945) * lu(k,1307) - lu(k,1325) = lu(k,1325) - lu(k,946) * lu(k,1307) - lu(k,1326) = lu(k,1326) - lu(k,947) * lu(k,1307) - lu(k,1327) = lu(k,1327) - lu(k,948) * lu(k,1307) - lu(k,1328) = lu(k,1328) - lu(k,949) * lu(k,1307) - lu(k,1347) = lu(k,1347) - lu(k,929) * lu(k,1346) - lu(k,1348) = lu(k,1348) - lu(k,930) * lu(k,1346) - lu(k,1349) = lu(k,1349) - lu(k,931) * lu(k,1346) - lu(k,1350) = lu(k,1350) - lu(k,932) * lu(k,1346) - lu(k,1351) = lu(k,1351) - lu(k,933) * lu(k,1346) - lu(k,1352) = lu(k,1352) - lu(k,934) * lu(k,1346) - lu(k,1353) = lu(k,1353) - lu(k,935) * lu(k,1346) - lu(k,1354) = lu(k,1354) - lu(k,936) * lu(k,1346) - lu(k,1355) = lu(k,1355) - lu(k,937) * lu(k,1346) - lu(k,1356) = lu(k,1356) - lu(k,938) * lu(k,1346) - lu(k,1357) = lu(k,1357) - lu(k,939) * lu(k,1346) - lu(k,1358) = lu(k,1358) - lu(k,940) * lu(k,1346) - lu(k,1359) = lu(k,1359) - lu(k,941) * lu(k,1346) - lu(k,1360) = lu(k,1360) - lu(k,942) * lu(k,1346) - lu(k,1361) = lu(k,1361) - lu(k,943) * lu(k,1346) - lu(k,1362) = lu(k,1362) - lu(k,944) * lu(k,1346) - lu(k,1363) = lu(k,1363) - lu(k,945) * lu(k,1346) - lu(k,1364) = lu(k,1364) - lu(k,946) * lu(k,1346) - lu(k,1365) = lu(k,1365) - lu(k,947) * lu(k,1346) - lu(k,1366) = lu(k,1366) - lu(k,948) * lu(k,1346) - lu(k,1367) = lu(k,1367) - lu(k,949) * lu(k,1346) - lu(k,1382) = lu(k,1382) - lu(k,929) * lu(k,1381) - lu(k,1383) = lu(k,1383) - lu(k,930) * lu(k,1381) - lu(k,1384) = lu(k,1384) - lu(k,931) * lu(k,1381) - lu(k,1385) = lu(k,1385) - lu(k,932) * lu(k,1381) - lu(k,1386) = lu(k,1386) - lu(k,933) * lu(k,1381) - lu(k,1387) = lu(k,1387) - lu(k,934) * lu(k,1381) - lu(k,1388) = lu(k,1388) - lu(k,935) * lu(k,1381) - lu(k,1389) = lu(k,1389) - lu(k,936) * lu(k,1381) - lu(k,1390) = lu(k,1390) - lu(k,937) * lu(k,1381) - lu(k,1391) = lu(k,1391) - lu(k,938) * lu(k,1381) - lu(k,1392) = lu(k,1392) - lu(k,939) * lu(k,1381) - lu(k,1393) = lu(k,1393) - lu(k,940) * lu(k,1381) - lu(k,1394) = lu(k,1394) - lu(k,941) * lu(k,1381) - lu(k,1395) = lu(k,1395) - lu(k,942) * lu(k,1381) - lu(k,1396) = lu(k,1396) - lu(k,943) * lu(k,1381) - lu(k,1397) = lu(k,1397) - lu(k,944) * lu(k,1381) - lu(k,1398) = lu(k,1398) - lu(k,945) * lu(k,1381) - lu(k,1399) = lu(k,1399) - lu(k,946) * lu(k,1381) - lu(k,1400) = lu(k,1400) - lu(k,947) * lu(k,1381) - lu(k,1401) = lu(k,1401) - lu(k,948) * lu(k,1381) - lu(k,1402) = lu(k,1402) - lu(k,949) * lu(k,1381) - lu(k,1426) = lu(k,1426) - lu(k,929) * lu(k,1425) - lu(k,1427) = lu(k,1427) - lu(k,930) * lu(k,1425) - lu(k,1428) = lu(k,1428) - lu(k,931) * lu(k,1425) - lu(k,1429) = lu(k,1429) - lu(k,932) * lu(k,1425) - lu(k,1430) = lu(k,1430) - lu(k,933) * lu(k,1425) - lu(k,1431) = lu(k,1431) - lu(k,934) * lu(k,1425) - lu(k,1432) = lu(k,1432) - lu(k,935) * lu(k,1425) - lu(k,1433) = lu(k,1433) - lu(k,936) * lu(k,1425) - lu(k,1434) = lu(k,1434) - lu(k,937) * lu(k,1425) - lu(k,1435) = lu(k,1435) - lu(k,938) * lu(k,1425) - lu(k,1436) = lu(k,1436) - lu(k,939) * lu(k,1425) - lu(k,1437) = lu(k,1437) - lu(k,940) * lu(k,1425) - lu(k,1438) = lu(k,1438) - lu(k,941) * lu(k,1425) - lu(k,1439) = lu(k,1439) - lu(k,942) * lu(k,1425) - lu(k,1440) = lu(k,1440) - lu(k,943) * lu(k,1425) - lu(k,1441) = lu(k,1441) - lu(k,944) * lu(k,1425) - lu(k,1442) = lu(k,1442) - lu(k,945) * lu(k,1425) - lu(k,1443) = lu(k,1443) - lu(k,946) * lu(k,1425) - lu(k,1444) = lu(k,1444) - lu(k,947) * lu(k,1425) - lu(k,1445) = lu(k,1445) - lu(k,948) * lu(k,1425) - lu(k,1446) = lu(k,1446) - lu(k,949) * lu(k,1425) - lu(k,1472) = lu(k,1472) - lu(k,929) * lu(k,1471) - lu(k,1473) = lu(k,1473) - lu(k,930) * lu(k,1471) - lu(k,1474) = lu(k,1474) - lu(k,931) * lu(k,1471) - lu(k,1475) = lu(k,1475) - lu(k,932) * lu(k,1471) - lu(k,1476) = lu(k,1476) - lu(k,933) * lu(k,1471) - lu(k,1477) = lu(k,1477) - lu(k,934) * lu(k,1471) - lu(k,1478) = lu(k,1478) - lu(k,935) * lu(k,1471) - lu(k,1479) = lu(k,1479) - lu(k,936) * lu(k,1471) - lu(k,1480) = lu(k,1480) - lu(k,937) * lu(k,1471) - lu(k,1481) = lu(k,1481) - lu(k,938) * lu(k,1471) - lu(k,1482) = lu(k,1482) - lu(k,939) * lu(k,1471) - lu(k,1483) = lu(k,1483) - lu(k,940) * lu(k,1471) - lu(k,1484) = lu(k,1484) - lu(k,941) * lu(k,1471) - lu(k,1485) = lu(k,1485) - lu(k,942) * lu(k,1471) - lu(k,1486) = lu(k,1486) - lu(k,943) * lu(k,1471) - lu(k,1487) = lu(k,1487) - lu(k,944) * lu(k,1471) - lu(k,1488) = lu(k,1488) - lu(k,945) * lu(k,1471) - lu(k,1489) = lu(k,1489) - lu(k,946) * lu(k,1471) - lu(k,1490) = lu(k,1490) - lu(k,947) * lu(k,1471) - lu(k,1491) = lu(k,1491) - lu(k,948) * lu(k,1471) - lu(k,1492) = lu(k,1492) - lu(k,949) * lu(k,1471) - lu(k,1514) = lu(k,1514) - lu(k,929) * lu(k,1513) - lu(k,1515) = lu(k,1515) - lu(k,930) * lu(k,1513) - lu(k,1516) = lu(k,1516) - lu(k,931) * lu(k,1513) - lu(k,1517) = lu(k,1517) - lu(k,932) * lu(k,1513) - lu(k,1518) = lu(k,1518) - lu(k,933) * lu(k,1513) - lu(k,1519) = lu(k,1519) - lu(k,934) * lu(k,1513) - lu(k,1520) = lu(k,1520) - lu(k,935) * lu(k,1513) - lu(k,1521) = lu(k,1521) - lu(k,936) * lu(k,1513) - lu(k,1522) = lu(k,1522) - lu(k,937) * lu(k,1513) - lu(k,1523) = lu(k,1523) - lu(k,938) * lu(k,1513) - lu(k,1524) = lu(k,1524) - lu(k,939) * lu(k,1513) - lu(k,1525) = lu(k,1525) - lu(k,940) * lu(k,1513) - lu(k,1526) = lu(k,1526) - lu(k,941) * lu(k,1513) - lu(k,1527) = lu(k,1527) - lu(k,942) * lu(k,1513) - lu(k,1528) = lu(k,1528) - lu(k,943) * lu(k,1513) - lu(k,1529) = lu(k,1529) - lu(k,944) * lu(k,1513) - lu(k,1530) = lu(k,1530) - lu(k,945) * lu(k,1513) - lu(k,1531) = lu(k,1531) - lu(k,946) * lu(k,1513) - lu(k,1532) = lu(k,1532) - lu(k,947) * lu(k,1513) - lu(k,1533) = lu(k,1533) - lu(k,948) * lu(k,1513) - lu(k,1534) = lu(k,1534) - lu(k,949) * lu(k,1513) - lu(k,1555) = lu(k,1555) - lu(k,929) * lu(k,1554) - lu(k,1556) = lu(k,1556) - lu(k,930) * lu(k,1554) - lu(k,1557) = lu(k,1557) - lu(k,931) * lu(k,1554) - lu(k,1558) = lu(k,1558) - lu(k,932) * lu(k,1554) - lu(k,1559) = lu(k,1559) - lu(k,933) * lu(k,1554) - lu(k,1560) = lu(k,1560) - lu(k,934) * lu(k,1554) - lu(k,1561) = lu(k,1561) - lu(k,935) * lu(k,1554) - lu(k,1562) = lu(k,1562) - lu(k,936) * lu(k,1554) - lu(k,1563) = lu(k,1563) - lu(k,937) * lu(k,1554) - lu(k,1564) = lu(k,1564) - lu(k,938) * lu(k,1554) - lu(k,1565) = lu(k,1565) - lu(k,939) * lu(k,1554) - lu(k,1566) = lu(k,1566) - lu(k,940) * lu(k,1554) - lu(k,1567) = lu(k,1567) - lu(k,941) * lu(k,1554) - lu(k,1568) = lu(k,1568) - lu(k,942) * lu(k,1554) - lu(k,1569) = lu(k,1569) - lu(k,943) * lu(k,1554) - lu(k,1570) = lu(k,1570) - lu(k,944) * lu(k,1554) - lu(k,1571) = lu(k,1571) - lu(k,945) * lu(k,1554) - lu(k,1572) = lu(k,1572) - lu(k,946) * lu(k,1554) - lu(k,1573) = lu(k,1573) - lu(k,947) * lu(k,1554) - lu(k,1574) = lu(k,1574) - lu(k,948) * lu(k,1554) - lu(k,1575) = lu(k,1575) - lu(k,949) * lu(k,1554) - lu(k,1612) = lu(k,1612) - lu(k,929) * lu(k,1611) - lu(k,1613) = lu(k,1613) - lu(k,930) * lu(k,1611) - lu(k,1614) = lu(k,1614) - lu(k,931) * lu(k,1611) - lu(k,1615) = lu(k,1615) - lu(k,932) * lu(k,1611) - lu(k,1616) = lu(k,1616) - lu(k,933) * lu(k,1611) - lu(k,1617) = lu(k,1617) - lu(k,934) * lu(k,1611) - lu(k,1618) = lu(k,1618) - lu(k,935) * lu(k,1611) - lu(k,1619) = lu(k,1619) - lu(k,936) * lu(k,1611) - lu(k,1620) = lu(k,1620) - lu(k,937) * lu(k,1611) - lu(k,1621) = lu(k,1621) - lu(k,938) * lu(k,1611) - lu(k,1622) = lu(k,1622) - lu(k,939) * lu(k,1611) - lu(k,1623) = lu(k,1623) - lu(k,940) * lu(k,1611) - lu(k,1624) = lu(k,1624) - lu(k,941) * lu(k,1611) - lu(k,1625) = lu(k,1625) - lu(k,942) * lu(k,1611) - lu(k,1626) = lu(k,1626) - lu(k,943) * lu(k,1611) - lu(k,1627) = lu(k,1627) - lu(k,944) * lu(k,1611) - lu(k,1628) = lu(k,1628) - lu(k,945) * lu(k,1611) - lu(k,1629) = lu(k,1629) - lu(k,946) * lu(k,1611) - lu(k,1630) = lu(k,1630) - lu(k,947) * lu(k,1611) - lu(k,1631) = lu(k,1631) - lu(k,948) * lu(k,1611) - lu(k,1632) = lu(k,1632) - lu(k,949) * lu(k,1611) - lu(k,1641) = lu(k,1641) - lu(k,929) * lu(k,1640) - lu(k,1642) = lu(k,1642) - lu(k,930) * lu(k,1640) - lu(k,1643) = lu(k,1643) - lu(k,931) * lu(k,1640) - lu(k,1644) = lu(k,1644) - lu(k,932) * lu(k,1640) - lu(k,1645) = lu(k,1645) - lu(k,933) * lu(k,1640) - lu(k,1646) = lu(k,1646) - lu(k,934) * lu(k,1640) - lu(k,1647) = lu(k,1647) - lu(k,935) * lu(k,1640) - lu(k,1648) = lu(k,1648) - lu(k,936) * lu(k,1640) - lu(k,1649) = lu(k,1649) - lu(k,937) * lu(k,1640) - lu(k,1650) = lu(k,1650) - lu(k,938) * lu(k,1640) - lu(k,1651) = lu(k,1651) - lu(k,939) * lu(k,1640) - lu(k,1652) = lu(k,1652) - lu(k,940) * lu(k,1640) - lu(k,1653) = lu(k,1653) - lu(k,941) * lu(k,1640) - lu(k,1654) = lu(k,1654) - lu(k,942) * lu(k,1640) - lu(k,1655) = lu(k,1655) - lu(k,943) * lu(k,1640) - lu(k,1656) = lu(k,1656) - lu(k,944) * lu(k,1640) - lu(k,1657) = lu(k,1657) - lu(k,945) * lu(k,1640) - lu(k,1658) = lu(k,1658) - lu(k,946) * lu(k,1640) - lu(k,1659) = lu(k,1659) - lu(k,947) * lu(k,1640) - lu(k,1660) = lu(k,1660) - lu(k,948) * lu(k,1640) - lu(k,1661) = lu(k,1661) - lu(k,949) * lu(k,1640) - lu(k,1673) = lu(k,1673) - lu(k,929) * lu(k,1672) - lu(k,1674) = lu(k,1674) - lu(k,930) * lu(k,1672) - lu(k,1675) = lu(k,1675) - lu(k,931) * lu(k,1672) - lu(k,1676) = lu(k,1676) - lu(k,932) * lu(k,1672) - lu(k,1677) = lu(k,1677) - lu(k,933) * lu(k,1672) - lu(k,1678) = lu(k,1678) - lu(k,934) * lu(k,1672) - lu(k,1679) = lu(k,1679) - lu(k,935) * lu(k,1672) - lu(k,1680) = lu(k,1680) - lu(k,936) * lu(k,1672) - lu(k,1681) = lu(k,1681) - lu(k,937) * lu(k,1672) - lu(k,1682) = lu(k,1682) - lu(k,938) * lu(k,1672) - lu(k,1683) = lu(k,1683) - lu(k,939) * lu(k,1672) - lu(k,1684) = lu(k,1684) - lu(k,940) * lu(k,1672) - lu(k,1685) = lu(k,1685) - lu(k,941) * lu(k,1672) - lu(k,1686) = lu(k,1686) - lu(k,942) * lu(k,1672) - lu(k,1687) = lu(k,1687) - lu(k,943) * lu(k,1672) - lu(k,1688) = lu(k,1688) - lu(k,944) * lu(k,1672) - lu(k,1689) = lu(k,1689) - lu(k,945) * lu(k,1672) - lu(k,1690) = lu(k,1690) - lu(k,946) * lu(k,1672) - lu(k,1691) = lu(k,1691) - lu(k,947) * lu(k,1672) - lu(k,1692) = lu(k,1692) - lu(k,948) * lu(k,1672) - lu(k,1693) = lu(k,1693) - lu(k,949) * lu(k,1672) - lu(k,1708) = lu(k,1708) - lu(k,929) * lu(k,1707) - lu(k,1709) = lu(k,1709) - lu(k,930) * lu(k,1707) - lu(k,1710) = lu(k,1710) - lu(k,931) * lu(k,1707) - lu(k,1711) = lu(k,1711) - lu(k,932) * lu(k,1707) - lu(k,1712) = lu(k,1712) - lu(k,933) * lu(k,1707) - lu(k,1713) = lu(k,1713) - lu(k,934) * lu(k,1707) - lu(k,1714) = lu(k,1714) - lu(k,935) * lu(k,1707) - lu(k,1715) = lu(k,1715) - lu(k,936) * lu(k,1707) - lu(k,1716) = lu(k,1716) - lu(k,937) * lu(k,1707) - lu(k,1717) = lu(k,1717) - lu(k,938) * lu(k,1707) - lu(k,1718) = lu(k,1718) - lu(k,939) * lu(k,1707) - lu(k,1719) = lu(k,1719) - lu(k,940) * lu(k,1707) - lu(k,1720) = lu(k,1720) - lu(k,941) * lu(k,1707) - lu(k,1721) = lu(k,1721) - lu(k,942) * lu(k,1707) - lu(k,1722) = lu(k,1722) - lu(k,943) * lu(k,1707) - lu(k,1723) = lu(k,1723) - lu(k,944) * lu(k,1707) - lu(k,1724) = lu(k,1724) - lu(k,945) * lu(k,1707) - lu(k,1725) = lu(k,1725) - lu(k,946) * lu(k,1707) - lu(k,1726) = lu(k,1726) - lu(k,947) * lu(k,1707) - lu(k,1727) = lu(k,1727) - lu(k,948) * lu(k,1707) - lu(k,1728) = lu(k,1728) - lu(k,949) * lu(k,1707) - lu(k,1750) = lu(k,1750) - lu(k,929) * lu(k,1749) - lu(k,1751) = lu(k,1751) - lu(k,930) * lu(k,1749) - lu(k,1752) = lu(k,1752) - lu(k,931) * lu(k,1749) - lu(k,1753) = lu(k,1753) - lu(k,932) * lu(k,1749) - lu(k,1754) = lu(k,1754) - lu(k,933) * lu(k,1749) - lu(k,1755) = lu(k,1755) - lu(k,934) * lu(k,1749) - lu(k,1756) = lu(k,1756) - lu(k,935) * lu(k,1749) - lu(k,1757) = lu(k,1757) - lu(k,936) * lu(k,1749) - lu(k,1758) = lu(k,1758) - lu(k,937) * lu(k,1749) - lu(k,1759) = lu(k,1759) - lu(k,938) * lu(k,1749) - lu(k,1760) = lu(k,1760) - lu(k,939) * lu(k,1749) - lu(k,1761) = lu(k,1761) - lu(k,940) * lu(k,1749) - lu(k,1762) = lu(k,1762) - lu(k,941) * lu(k,1749) - lu(k,1763) = lu(k,1763) - lu(k,942) * lu(k,1749) - lu(k,1764) = lu(k,1764) - lu(k,943) * lu(k,1749) - lu(k,1765) = lu(k,1765) - lu(k,944) * lu(k,1749) - lu(k,1766) = lu(k,1766) - lu(k,945) * lu(k,1749) - lu(k,1767) = lu(k,1767) - lu(k,946) * lu(k,1749) - lu(k,1768) = lu(k,1768) - lu(k,947) * lu(k,1749) - lu(k,1769) = lu(k,1769) - lu(k,948) * lu(k,1749) - lu(k,1770) = lu(k,1770) - lu(k,949) * lu(k,1749) - lu(k,1808) = lu(k,1808) - lu(k,929) * lu(k,1807) - lu(k,1809) = lu(k,1809) - lu(k,930) * lu(k,1807) - lu(k,1810) = lu(k,1810) - lu(k,931) * lu(k,1807) - lu(k,1811) = lu(k,1811) - lu(k,932) * lu(k,1807) - lu(k,1812) = lu(k,1812) - lu(k,933) * lu(k,1807) - lu(k,1813) = lu(k,1813) - lu(k,934) * lu(k,1807) - lu(k,1814) = lu(k,1814) - lu(k,935) * lu(k,1807) - lu(k,1815) = lu(k,1815) - lu(k,936) * lu(k,1807) - lu(k,1816) = lu(k,1816) - lu(k,937) * lu(k,1807) - lu(k,1817) = lu(k,1817) - lu(k,938) * lu(k,1807) - lu(k,1818) = lu(k,1818) - lu(k,939) * lu(k,1807) - lu(k,1819) = lu(k,1819) - lu(k,940) * lu(k,1807) - lu(k,1820) = lu(k,1820) - lu(k,941) * lu(k,1807) - lu(k,1821) = lu(k,1821) - lu(k,942) * lu(k,1807) - lu(k,1822) = lu(k,1822) - lu(k,943) * lu(k,1807) - lu(k,1823) = lu(k,1823) - lu(k,944) * lu(k,1807) - lu(k,1824) = lu(k,1824) - lu(k,945) * lu(k,1807) - lu(k,1825) = lu(k,1825) - lu(k,946) * lu(k,1807) - lu(k,1826) = lu(k,1826) - lu(k,947) * lu(k,1807) - lu(k,1827) = lu(k,1827) - lu(k,948) * lu(k,1807) - lu(k,1828) = lu(k,1828) - lu(k,949) * lu(k,1807) - 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,974) = 1._r8 / lu(k,974) - lu(k,975) = lu(k,975) * lu(k,974) - lu(k,976) = lu(k,976) * lu(k,974) - lu(k,977) = lu(k,977) * lu(k,974) - lu(k,978) = lu(k,978) * lu(k,974) - lu(k,979) = lu(k,979) * lu(k,974) - lu(k,980) = lu(k,980) * lu(k,974) - lu(k,981) = lu(k,981) * lu(k,974) - lu(k,982) = lu(k,982) * lu(k,974) - lu(k,983) = lu(k,983) * lu(k,974) - lu(k,984) = lu(k,984) * lu(k,974) - lu(k,985) = lu(k,985) * lu(k,974) - lu(k,986) = lu(k,986) * lu(k,974) - lu(k,987) = lu(k,987) * lu(k,974) - lu(k,988) = lu(k,988) * lu(k,974) - lu(k,989) = lu(k,989) * lu(k,974) - lu(k,990) = lu(k,990) * lu(k,974) - lu(k,991) = lu(k,991) * lu(k,974) - lu(k,992) = lu(k,992) * lu(k,974) - lu(k,993) = lu(k,993) * lu(k,974) - lu(k,994) = lu(k,994) * lu(k,974) - lu(k,1017) = lu(k,1017) - lu(k,975) * lu(k,1016) - lu(k,1018) = lu(k,1018) - lu(k,976) * lu(k,1016) - lu(k,1019) = lu(k,1019) - lu(k,977) * lu(k,1016) - lu(k,1020) = lu(k,1020) - lu(k,978) * lu(k,1016) - lu(k,1021) = lu(k,1021) - lu(k,979) * lu(k,1016) - lu(k,1022) = lu(k,1022) - lu(k,980) * lu(k,1016) - lu(k,1023) = lu(k,1023) - lu(k,981) * lu(k,1016) - lu(k,1024) = lu(k,1024) - lu(k,982) * lu(k,1016) - lu(k,1025) = lu(k,1025) - lu(k,983) * lu(k,1016) - lu(k,1026) = lu(k,1026) - lu(k,984) * lu(k,1016) - lu(k,1027) = lu(k,1027) - lu(k,985) * lu(k,1016) - lu(k,1028) = lu(k,1028) - lu(k,986) * lu(k,1016) - lu(k,1029) = lu(k,1029) - lu(k,987) * lu(k,1016) - lu(k,1030) = lu(k,1030) - lu(k,988) * lu(k,1016) - lu(k,1031) = lu(k,1031) - lu(k,989) * lu(k,1016) - lu(k,1032) = lu(k,1032) - lu(k,990) * lu(k,1016) - lu(k,1033) = lu(k,1033) - lu(k,991) * lu(k,1016) - lu(k,1034) = lu(k,1034) - lu(k,992) * lu(k,1016) - lu(k,1035) = lu(k,1035) - lu(k,993) * lu(k,1016) - lu(k,1036) = lu(k,1036) - lu(k,994) * lu(k,1016) - lu(k,1059) = lu(k,1059) - lu(k,975) * lu(k,1058) - lu(k,1060) = lu(k,1060) - lu(k,976) * lu(k,1058) - lu(k,1061) = lu(k,1061) - lu(k,977) * lu(k,1058) - lu(k,1062) = lu(k,1062) - lu(k,978) * lu(k,1058) - lu(k,1063) = lu(k,1063) - lu(k,979) * lu(k,1058) - lu(k,1064) = lu(k,1064) - lu(k,980) * lu(k,1058) - lu(k,1065) = lu(k,1065) - lu(k,981) * lu(k,1058) - lu(k,1066) = lu(k,1066) - lu(k,982) * lu(k,1058) - lu(k,1067) = lu(k,1067) - lu(k,983) * lu(k,1058) - lu(k,1068) = lu(k,1068) - lu(k,984) * lu(k,1058) - lu(k,1069) = lu(k,1069) - lu(k,985) * lu(k,1058) - lu(k,1070) = lu(k,1070) - lu(k,986) * lu(k,1058) - lu(k,1071) = lu(k,1071) - lu(k,987) * lu(k,1058) - lu(k,1072) = lu(k,1072) - lu(k,988) * lu(k,1058) - lu(k,1073) = lu(k,1073) - lu(k,989) * lu(k,1058) - lu(k,1074) = lu(k,1074) - lu(k,990) * lu(k,1058) - lu(k,1075) = lu(k,1075) - lu(k,991) * lu(k,1058) - lu(k,1076) = lu(k,1076) - lu(k,992) * lu(k,1058) - lu(k,1077) = lu(k,1077) - lu(k,993) * lu(k,1058) - lu(k,1078) = lu(k,1078) - lu(k,994) * lu(k,1058) - lu(k,1103) = lu(k,1103) - lu(k,975) * lu(k,1102) - lu(k,1104) = lu(k,1104) - lu(k,976) * lu(k,1102) - lu(k,1105) = lu(k,1105) - lu(k,977) * lu(k,1102) - lu(k,1106) = lu(k,1106) - lu(k,978) * lu(k,1102) - lu(k,1107) = lu(k,1107) - lu(k,979) * lu(k,1102) - lu(k,1108) = lu(k,1108) - lu(k,980) * lu(k,1102) - lu(k,1109) = lu(k,1109) - lu(k,981) * lu(k,1102) - lu(k,1110) = lu(k,1110) - lu(k,982) * lu(k,1102) - lu(k,1111) = lu(k,1111) - lu(k,983) * lu(k,1102) - lu(k,1112) = lu(k,1112) - lu(k,984) * lu(k,1102) - lu(k,1113) = lu(k,1113) - lu(k,985) * lu(k,1102) - lu(k,1114) = lu(k,1114) - lu(k,986) * lu(k,1102) - lu(k,1115) = lu(k,1115) - lu(k,987) * lu(k,1102) - lu(k,1116) = lu(k,1116) - lu(k,988) * lu(k,1102) - lu(k,1117) = lu(k,1117) - lu(k,989) * lu(k,1102) - lu(k,1118) = lu(k,1118) - lu(k,990) * lu(k,1102) - lu(k,1119) = lu(k,1119) - lu(k,991) * lu(k,1102) - lu(k,1120) = lu(k,1120) - lu(k,992) * lu(k,1102) - lu(k,1121) = lu(k,1121) - lu(k,993) * lu(k,1102) - lu(k,1122) = lu(k,1122) - lu(k,994) * lu(k,1102) - lu(k,1144) = lu(k,1144) - lu(k,975) * lu(k,1143) - lu(k,1145) = lu(k,1145) - lu(k,976) * lu(k,1143) - lu(k,1146) = lu(k,1146) - lu(k,977) * lu(k,1143) - lu(k,1147) = lu(k,1147) - lu(k,978) * lu(k,1143) - lu(k,1148) = lu(k,1148) - lu(k,979) * lu(k,1143) - lu(k,1149) = lu(k,1149) - lu(k,980) * lu(k,1143) - lu(k,1150) = lu(k,1150) - lu(k,981) * lu(k,1143) - lu(k,1151) = lu(k,1151) - lu(k,982) * lu(k,1143) - lu(k,1152) = lu(k,1152) - lu(k,983) * lu(k,1143) - lu(k,1153) = lu(k,1153) - lu(k,984) * lu(k,1143) - lu(k,1154) = lu(k,1154) - lu(k,985) * lu(k,1143) - lu(k,1155) = lu(k,1155) - lu(k,986) * lu(k,1143) - lu(k,1156) = lu(k,1156) - lu(k,987) * lu(k,1143) - lu(k,1157) = lu(k,1157) - lu(k,988) * lu(k,1143) - lu(k,1158) = lu(k,1158) - lu(k,989) * lu(k,1143) - lu(k,1159) = lu(k,1159) - lu(k,990) * lu(k,1143) - lu(k,1160) = lu(k,1160) - lu(k,991) * lu(k,1143) - lu(k,1161) = lu(k,1161) - lu(k,992) * lu(k,1143) - lu(k,1162) = lu(k,1162) - lu(k,993) * lu(k,1143) - lu(k,1163) = lu(k,1163) - lu(k,994) * lu(k,1143) - lu(k,1183) = lu(k,1183) - lu(k,975) * lu(k,1182) - lu(k,1184) = lu(k,1184) - lu(k,976) * lu(k,1182) - lu(k,1185) = lu(k,1185) - lu(k,977) * lu(k,1182) - lu(k,1186) = lu(k,1186) - lu(k,978) * lu(k,1182) - lu(k,1187) = lu(k,1187) - lu(k,979) * lu(k,1182) - lu(k,1188) = lu(k,1188) - lu(k,980) * lu(k,1182) - lu(k,1189) = lu(k,1189) - lu(k,981) * lu(k,1182) - lu(k,1190) = lu(k,1190) - lu(k,982) * lu(k,1182) - lu(k,1191) = lu(k,1191) - lu(k,983) * lu(k,1182) - lu(k,1192) = lu(k,1192) - lu(k,984) * lu(k,1182) - lu(k,1193) = lu(k,1193) - lu(k,985) * lu(k,1182) - lu(k,1194) = lu(k,1194) - lu(k,986) * lu(k,1182) - lu(k,1195) = lu(k,1195) - lu(k,987) * lu(k,1182) - lu(k,1196) = lu(k,1196) - lu(k,988) * lu(k,1182) - lu(k,1197) = lu(k,1197) - lu(k,989) * lu(k,1182) - lu(k,1198) = lu(k,1198) - lu(k,990) * lu(k,1182) - lu(k,1199) = lu(k,1199) - lu(k,991) * lu(k,1182) - lu(k,1200) = lu(k,1200) - lu(k,992) * lu(k,1182) - lu(k,1201) = lu(k,1201) - lu(k,993) * lu(k,1182) - lu(k,1202) = lu(k,1202) - lu(k,994) * lu(k,1182) - lu(k,1218) = lu(k,1218) - lu(k,975) * lu(k,1217) - lu(k,1219) = lu(k,1219) - lu(k,976) * lu(k,1217) - lu(k,1220) = lu(k,1220) - lu(k,977) * lu(k,1217) - lu(k,1221) = lu(k,1221) - lu(k,978) * lu(k,1217) - lu(k,1222) = lu(k,1222) - lu(k,979) * lu(k,1217) - lu(k,1223) = lu(k,1223) - lu(k,980) * lu(k,1217) - lu(k,1224) = lu(k,1224) - lu(k,981) * lu(k,1217) - lu(k,1225) = lu(k,1225) - lu(k,982) * lu(k,1217) - lu(k,1226) = lu(k,1226) - lu(k,983) * lu(k,1217) - lu(k,1227) = lu(k,1227) - lu(k,984) * lu(k,1217) - lu(k,1228) = lu(k,1228) - lu(k,985) * lu(k,1217) - lu(k,1229) = lu(k,1229) - lu(k,986) * lu(k,1217) - lu(k,1230) = lu(k,1230) - lu(k,987) * lu(k,1217) - lu(k,1231) = lu(k,1231) - lu(k,988) * lu(k,1217) - lu(k,1232) = lu(k,1232) - lu(k,989) * lu(k,1217) - lu(k,1233) = lu(k,1233) - lu(k,990) * lu(k,1217) - lu(k,1234) = lu(k,1234) - lu(k,991) * lu(k,1217) - lu(k,1235) = lu(k,1235) - lu(k,992) * lu(k,1217) - lu(k,1236) = lu(k,1236) - lu(k,993) * lu(k,1217) - lu(k,1237) = lu(k,1237) - lu(k,994) * lu(k,1217) - lu(k,1265) = lu(k,1265) - lu(k,975) * lu(k,1264) - lu(k,1266) = lu(k,1266) - lu(k,976) * lu(k,1264) - lu(k,1267) = lu(k,1267) - lu(k,977) * lu(k,1264) - lu(k,1268) = lu(k,1268) - lu(k,978) * lu(k,1264) - lu(k,1269) = lu(k,1269) - lu(k,979) * lu(k,1264) - lu(k,1270) = lu(k,1270) - lu(k,980) * lu(k,1264) - lu(k,1271) = lu(k,1271) - lu(k,981) * lu(k,1264) - lu(k,1272) = lu(k,1272) - lu(k,982) * lu(k,1264) - lu(k,1273) = lu(k,1273) - lu(k,983) * lu(k,1264) - lu(k,1274) = lu(k,1274) - lu(k,984) * lu(k,1264) - lu(k,1275) = lu(k,1275) - lu(k,985) * lu(k,1264) - lu(k,1276) = lu(k,1276) - lu(k,986) * lu(k,1264) - lu(k,1277) = lu(k,1277) - lu(k,987) * lu(k,1264) - lu(k,1278) = lu(k,1278) - lu(k,988) * lu(k,1264) - lu(k,1279) = lu(k,1279) - lu(k,989) * lu(k,1264) - lu(k,1280) = lu(k,1280) - lu(k,990) * lu(k,1264) - lu(k,1281) = lu(k,1281) - lu(k,991) * lu(k,1264) - lu(k,1282) = lu(k,1282) - lu(k,992) * lu(k,1264) - lu(k,1283) = lu(k,1283) - lu(k,993) * lu(k,1264) - lu(k,1284) = lu(k,1284) - lu(k,994) * lu(k,1264) - lu(k,1309) = lu(k,1309) - lu(k,975) * lu(k,1308) - lu(k,1310) = lu(k,1310) - lu(k,976) * lu(k,1308) - lu(k,1311) = lu(k,1311) - lu(k,977) * lu(k,1308) - lu(k,1312) = lu(k,1312) - lu(k,978) * lu(k,1308) - lu(k,1313) = lu(k,1313) - lu(k,979) * lu(k,1308) - lu(k,1314) = lu(k,1314) - lu(k,980) * lu(k,1308) - lu(k,1315) = lu(k,1315) - lu(k,981) * lu(k,1308) - lu(k,1316) = lu(k,1316) - lu(k,982) * lu(k,1308) - lu(k,1317) = lu(k,1317) - lu(k,983) * lu(k,1308) - lu(k,1318) = lu(k,1318) - lu(k,984) * lu(k,1308) - lu(k,1319) = lu(k,1319) - lu(k,985) * lu(k,1308) - lu(k,1320) = lu(k,1320) - lu(k,986) * lu(k,1308) - lu(k,1321) = lu(k,1321) - lu(k,987) * lu(k,1308) - lu(k,1322) = lu(k,1322) - lu(k,988) * lu(k,1308) - lu(k,1323) = lu(k,1323) - lu(k,989) * lu(k,1308) - lu(k,1324) = lu(k,1324) - lu(k,990) * lu(k,1308) - lu(k,1325) = lu(k,1325) - lu(k,991) * lu(k,1308) - lu(k,1326) = lu(k,1326) - lu(k,992) * lu(k,1308) - lu(k,1327) = lu(k,1327) - lu(k,993) * lu(k,1308) - lu(k,1328) = lu(k,1328) - lu(k,994) * lu(k,1308) - lu(k,1348) = lu(k,1348) - lu(k,975) * lu(k,1347) - lu(k,1349) = lu(k,1349) - lu(k,976) * lu(k,1347) - lu(k,1350) = lu(k,1350) - lu(k,977) * lu(k,1347) - lu(k,1351) = lu(k,1351) - lu(k,978) * lu(k,1347) - lu(k,1352) = lu(k,1352) - lu(k,979) * lu(k,1347) - lu(k,1353) = lu(k,1353) - lu(k,980) * lu(k,1347) - lu(k,1354) = lu(k,1354) - lu(k,981) * lu(k,1347) - lu(k,1355) = lu(k,1355) - lu(k,982) * lu(k,1347) - lu(k,1356) = lu(k,1356) - lu(k,983) * lu(k,1347) - lu(k,1357) = lu(k,1357) - lu(k,984) * lu(k,1347) - lu(k,1358) = lu(k,1358) - lu(k,985) * lu(k,1347) - lu(k,1359) = lu(k,1359) - lu(k,986) * lu(k,1347) - lu(k,1360) = lu(k,1360) - lu(k,987) * lu(k,1347) - lu(k,1361) = lu(k,1361) - lu(k,988) * lu(k,1347) - lu(k,1362) = lu(k,1362) - lu(k,989) * lu(k,1347) - lu(k,1363) = lu(k,1363) - lu(k,990) * lu(k,1347) - lu(k,1364) = lu(k,1364) - lu(k,991) * lu(k,1347) - lu(k,1365) = lu(k,1365) - lu(k,992) * lu(k,1347) - lu(k,1366) = lu(k,1366) - lu(k,993) * lu(k,1347) - lu(k,1367) = lu(k,1367) - lu(k,994) * lu(k,1347) - lu(k,1383) = lu(k,1383) - lu(k,975) * lu(k,1382) - lu(k,1384) = lu(k,1384) - lu(k,976) * lu(k,1382) - lu(k,1385) = lu(k,1385) - lu(k,977) * lu(k,1382) - lu(k,1386) = lu(k,1386) - lu(k,978) * lu(k,1382) - lu(k,1387) = lu(k,1387) - lu(k,979) * lu(k,1382) - lu(k,1388) = lu(k,1388) - lu(k,980) * lu(k,1382) - lu(k,1389) = lu(k,1389) - lu(k,981) * lu(k,1382) - lu(k,1390) = lu(k,1390) - lu(k,982) * lu(k,1382) - lu(k,1391) = lu(k,1391) - lu(k,983) * lu(k,1382) - lu(k,1392) = lu(k,1392) - lu(k,984) * lu(k,1382) - lu(k,1393) = lu(k,1393) - lu(k,985) * lu(k,1382) - lu(k,1394) = lu(k,1394) - lu(k,986) * lu(k,1382) - lu(k,1395) = lu(k,1395) - lu(k,987) * lu(k,1382) - lu(k,1396) = lu(k,1396) - lu(k,988) * lu(k,1382) - lu(k,1397) = lu(k,1397) - lu(k,989) * lu(k,1382) - lu(k,1398) = lu(k,1398) - lu(k,990) * lu(k,1382) - lu(k,1399) = lu(k,1399) - lu(k,991) * lu(k,1382) - lu(k,1400) = lu(k,1400) - lu(k,992) * lu(k,1382) - lu(k,1401) = lu(k,1401) - lu(k,993) * lu(k,1382) - lu(k,1402) = lu(k,1402) - lu(k,994) * lu(k,1382) - lu(k,1427) = lu(k,1427) - lu(k,975) * lu(k,1426) - lu(k,1428) = lu(k,1428) - lu(k,976) * lu(k,1426) - lu(k,1429) = lu(k,1429) - lu(k,977) * lu(k,1426) - lu(k,1430) = lu(k,1430) - lu(k,978) * lu(k,1426) - lu(k,1431) = lu(k,1431) - lu(k,979) * lu(k,1426) - lu(k,1432) = lu(k,1432) - lu(k,980) * lu(k,1426) - lu(k,1433) = lu(k,1433) - lu(k,981) * lu(k,1426) - lu(k,1434) = lu(k,1434) - lu(k,982) * lu(k,1426) - lu(k,1435) = lu(k,1435) - lu(k,983) * lu(k,1426) - lu(k,1436) = lu(k,1436) - lu(k,984) * lu(k,1426) - lu(k,1437) = lu(k,1437) - lu(k,985) * lu(k,1426) - lu(k,1438) = lu(k,1438) - lu(k,986) * lu(k,1426) - lu(k,1439) = lu(k,1439) - lu(k,987) * lu(k,1426) - lu(k,1440) = lu(k,1440) - lu(k,988) * lu(k,1426) - lu(k,1441) = lu(k,1441) - lu(k,989) * lu(k,1426) - lu(k,1442) = lu(k,1442) - lu(k,990) * lu(k,1426) - lu(k,1443) = lu(k,1443) - lu(k,991) * lu(k,1426) - lu(k,1444) = lu(k,1444) - lu(k,992) * lu(k,1426) - lu(k,1445) = lu(k,1445) - lu(k,993) * lu(k,1426) - lu(k,1446) = lu(k,1446) - lu(k,994) * lu(k,1426) - lu(k,1473) = lu(k,1473) - lu(k,975) * lu(k,1472) - lu(k,1474) = lu(k,1474) - lu(k,976) * lu(k,1472) - lu(k,1475) = lu(k,1475) - lu(k,977) * lu(k,1472) - lu(k,1476) = lu(k,1476) - lu(k,978) * lu(k,1472) - lu(k,1477) = lu(k,1477) - lu(k,979) * lu(k,1472) - lu(k,1478) = lu(k,1478) - lu(k,980) * lu(k,1472) - lu(k,1479) = lu(k,1479) - lu(k,981) * lu(k,1472) - lu(k,1480) = lu(k,1480) - lu(k,982) * lu(k,1472) - lu(k,1481) = lu(k,1481) - lu(k,983) * lu(k,1472) - lu(k,1482) = lu(k,1482) - lu(k,984) * lu(k,1472) - lu(k,1483) = lu(k,1483) - lu(k,985) * lu(k,1472) - lu(k,1484) = lu(k,1484) - lu(k,986) * lu(k,1472) - lu(k,1485) = lu(k,1485) - lu(k,987) * lu(k,1472) - lu(k,1486) = lu(k,1486) - lu(k,988) * lu(k,1472) - lu(k,1487) = lu(k,1487) - lu(k,989) * lu(k,1472) - lu(k,1488) = lu(k,1488) - lu(k,990) * lu(k,1472) - lu(k,1489) = lu(k,1489) - lu(k,991) * lu(k,1472) - lu(k,1490) = lu(k,1490) - lu(k,992) * lu(k,1472) - lu(k,1491) = lu(k,1491) - lu(k,993) * lu(k,1472) - lu(k,1492) = lu(k,1492) - lu(k,994) * lu(k,1472) - lu(k,1515) = lu(k,1515) - lu(k,975) * lu(k,1514) - lu(k,1516) = lu(k,1516) - lu(k,976) * lu(k,1514) - lu(k,1517) = lu(k,1517) - lu(k,977) * lu(k,1514) - lu(k,1518) = lu(k,1518) - lu(k,978) * lu(k,1514) - lu(k,1519) = lu(k,1519) - lu(k,979) * lu(k,1514) - lu(k,1520) = lu(k,1520) - lu(k,980) * lu(k,1514) - lu(k,1521) = lu(k,1521) - lu(k,981) * lu(k,1514) - lu(k,1522) = lu(k,1522) - lu(k,982) * lu(k,1514) - lu(k,1523) = lu(k,1523) - lu(k,983) * lu(k,1514) - lu(k,1524) = lu(k,1524) - lu(k,984) * lu(k,1514) - lu(k,1525) = lu(k,1525) - lu(k,985) * lu(k,1514) - lu(k,1526) = lu(k,1526) - lu(k,986) * lu(k,1514) - lu(k,1527) = lu(k,1527) - lu(k,987) * lu(k,1514) - lu(k,1528) = lu(k,1528) - lu(k,988) * lu(k,1514) - lu(k,1529) = lu(k,1529) - lu(k,989) * lu(k,1514) - lu(k,1530) = lu(k,1530) - lu(k,990) * lu(k,1514) - lu(k,1531) = lu(k,1531) - lu(k,991) * lu(k,1514) - lu(k,1532) = lu(k,1532) - lu(k,992) * lu(k,1514) - lu(k,1533) = lu(k,1533) - lu(k,993) * lu(k,1514) - lu(k,1534) = lu(k,1534) - lu(k,994) * lu(k,1514) - lu(k,1556) = lu(k,1556) - lu(k,975) * lu(k,1555) - lu(k,1557) = lu(k,1557) - lu(k,976) * lu(k,1555) - lu(k,1558) = lu(k,1558) - lu(k,977) * lu(k,1555) - lu(k,1559) = lu(k,1559) - lu(k,978) * lu(k,1555) - lu(k,1560) = lu(k,1560) - lu(k,979) * lu(k,1555) - lu(k,1561) = lu(k,1561) - lu(k,980) * lu(k,1555) - lu(k,1562) = lu(k,1562) - lu(k,981) * lu(k,1555) - lu(k,1563) = lu(k,1563) - lu(k,982) * lu(k,1555) - lu(k,1564) = lu(k,1564) - lu(k,983) * lu(k,1555) - lu(k,1565) = lu(k,1565) - lu(k,984) * lu(k,1555) - lu(k,1566) = lu(k,1566) - lu(k,985) * lu(k,1555) - lu(k,1567) = lu(k,1567) - lu(k,986) * lu(k,1555) - lu(k,1568) = lu(k,1568) - lu(k,987) * lu(k,1555) - lu(k,1569) = lu(k,1569) - lu(k,988) * lu(k,1555) - lu(k,1570) = lu(k,1570) - lu(k,989) * lu(k,1555) - lu(k,1571) = lu(k,1571) - lu(k,990) * lu(k,1555) - lu(k,1572) = lu(k,1572) - lu(k,991) * lu(k,1555) - lu(k,1573) = lu(k,1573) - lu(k,992) * lu(k,1555) - lu(k,1574) = lu(k,1574) - lu(k,993) * lu(k,1555) - lu(k,1575) = lu(k,1575) - lu(k,994) * lu(k,1555) - lu(k,1613) = lu(k,1613) - lu(k,975) * lu(k,1612) - lu(k,1614) = lu(k,1614) - lu(k,976) * lu(k,1612) - lu(k,1615) = lu(k,1615) - lu(k,977) * lu(k,1612) - lu(k,1616) = lu(k,1616) - lu(k,978) * lu(k,1612) - lu(k,1617) = lu(k,1617) - lu(k,979) * lu(k,1612) - lu(k,1618) = lu(k,1618) - lu(k,980) * lu(k,1612) - lu(k,1619) = lu(k,1619) - lu(k,981) * lu(k,1612) - lu(k,1620) = lu(k,1620) - lu(k,982) * lu(k,1612) - lu(k,1621) = lu(k,1621) - lu(k,983) * lu(k,1612) - lu(k,1622) = lu(k,1622) - lu(k,984) * lu(k,1612) - lu(k,1623) = lu(k,1623) - lu(k,985) * lu(k,1612) - lu(k,1624) = lu(k,1624) - lu(k,986) * lu(k,1612) - lu(k,1625) = lu(k,1625) - lu(k,987) * lu(k,1612) - lu(k,1626) = lu(k,1626) - lu(k,988) * lu(k,1612) - lu(k,1627) = lu(k,1627) - lu(k,989) * lu(k,1612) - lu(k,1628) = lu(k,1628) - lu(k,990) * lu(k,1612) - lu(k,1629) = lu(k,1629) - lu(k,991) * lu(k,1612) - lu(k,1630) = lu(k,1630) - lu(k,992) * lu(k,1612) - lu(k,1631) = lu(k,1631) - lu(k,993) * lu(k,1612) - lu(k,1632) = lu(k,1632) - lu(k,994) * lu(k,1612) - lu(k,1642) = lu(k,1642) - lu(k,975) * lu(k,1641) - lu(k,1643) = lu(k,1643) - lu(k,976) * lu(k,1641) - lu(k,1644) = lu(k,1644) - lu(k,977) * lu(k,1641) - lu(k,1645) = lu(k,1645) - lu(k,978) * lu(k,1641) - lu(k,1646) = lu(k,1646) - lu(k,979) * lu(k,1641) - lu(k,1647) = lu(k,1647) - lu(k,980) * lu(k,1641) - lu(k,1648) = lu(k,1648) - lu(k,981) * lu(k,1641) - lu(k,1649) = lu(k,1649) - lu(k,982) * lu(k,1641) - lu(k,1650) = lu(k,1650) - lu(k,983) * lu(k,1641) - lu(k,1651) = lu(k,1651) - lu(k,984) * lu(k,1641) - lu(k,1652) = lu(k,1652) - lu(k,985) * lu(k,1641) - lu(k,1653) = lu(k,1653) - lu(k,986) * lu(k,1641) - lu(k,1654) = lu(k,1654) - lu(k,987) * lu(k,1641) - lu(k,1655) = lu(k,1655) - lu(k,988) * lu(k,1641) - lu(k,1656) = lu(k,1656) - lu(k,989) * lu(k,1641) - lu(k,1657) = lu(k,1657) - lu(k,990) * lu(k,1641) - lu(k,1658) = lu(k,1658) - lu(k,991) * lu(k,1641) - lu(k,1659) = lu(k,1659) - lu(k,992) * lu(k,1641) - lu(k,1660) = lu(k,1660) - lu(k,993) * lu(k,1641) - lu(k,1661) = lu(k,1661) - lu(k,994) * lu(k,1641) - lu(k,1674) = lu(k,1674) - lu(k,975) * lu(k,1673) - lu(k,1675) = lu(k,1675) - lu(k,976) * lu(k,1673) - lu(k,1676) = lu(k,1676) - lu(k,977) * lu(k,1673) - lu(k,1677) = lu(k,1677) - lu(k,978) * lu(k,1673) - lu(k,1678) = lu(k,1678) - lu(k,979) * lu(k,1673) - lu(k,1679) = lu(k,1679) - lu(k,980) * lu(k,1673) - lu(k,1680) = lu(k,1680) - lu(k,981) * lu(k,1673) - lu(k,1681) = lu(k,1681) - lu(k,982) * lu(k,1673) - lu(k,1682) = lu(k,1682) - lu(k,983) * lu(k,1673) - lu(k,1683) = lu(k,1683) - lu(k,984) * lu(k,1673) - lu(k,1684) = lu(k,1684) - lu(k,985) * lu(k,1673) - lu(k,1685) = lu(k,1685) - lu(k,986) * lu(k,1673) - lu(k,1686) = lu(k,1686) - lu(k,987) * lu(k,1673) - lu(k,1687) = lu(k,1687) - lu(k,988) * lu(k,1673) - lu(k,1688) = lu(k,1688) - lu(k,989) * lu(k,1673) - lu(k,1689) = lu(k,1689) - lu(k,990) * lu(k,1673) - lu(k,1690) = lu(k,1690) - lu(k,991) * lu(k,1673) - lu(k,1691) = lu(k,1691) - lu(k,992) * lu(k,1673) - lu(k,1692) = lu(k,1692) - lu(k,993) * lu(k,1673) - lu(k,1693) = lu(k,1693) - lu(k,994) * lu(k,1673) - lu(k,1709) = lu(k,1709) - lu(k,975) * lu(k,1708) - lu(k,1710) = lu(k,1710) - lu(k,976) * lu(k,1708) - lu(k,1711) = lu(k,1711) - lu(k,977) * lu(k,1708) - lu(k,1712) = lu(k,1712) - lu(k,978) * lu(k,1708) - lu(k,1713) = lu(k,1713) - lu(k,979) * lu(k,1708) - lu(k,1714) = lu(k,1714) - lu(k,980) * lu(k,1708) - lu(k,1715) = lu(k,1715) - lu(k,981) * lu(k,1708) - lu(k,1716) = lu(k,1716) - lu(k,982) * lu(k,1708) - lu(k,1717) = lu(k,1717) - lu(k,983) * lu(k,1708) - lu(k,1718) = lu(k,1718) - lu(k,984) * lu(k,1708) - lu(k,1719) = lu(k,1719) - lu(k,985) * lu(k,1708) - lu(k,1720) = lu(k,1720) - lu(k,986) * lu(k,1708) - lu(k,1721) = lu(k,1721) - lu(k,987) * lu(k,1708) - lu(k,1722) = lu(k,1722) - lu(k,988) * lu(k,1708) - lu(k,1723) = lu(k,1723) - lu(k,989) * lu(k,1708) - lu(k,1724) = lu(k,1724) - lu(k,990) * lu(k,1708) - lu(k,1725) = lu(k,1725) - lu(k,991) * lu(k,1708) - lu(k,1726) = lu(k,1726) - lu(k,992) * lu(k,1708) - lu(k,1727) = lu(k,1727) - lu(k,993) * lu(k,1708) - lu(k,1728) = lu(k,1728) - lu(k,994) * lu(k,1708) - lu(k,1751) = lu(k,1751) - lu(k,975) * lu(k,1750) - lu(k,1752) = lu(k,1752) - lu(k,976) * lu(k,1750) - lu(k,1753) = lu(k,1753) - lu(k,977) * lu(k,1750) - lu(k,1754) = lu(k,1754) - lu(k,978) * lu(k,1750) - lu(k,1755) = lu(k,1755) - lu(k,979) * lu(k,1750) - lu(k,1756) = lu(k,1756) - lu(k,980) * lu(k,1750) - lu(k,1757) = lu(k,1757) - lu(k,981) * lu(k,1750) - lu(k,1758) = lu(k,1758) - lu(k,982) * lu(k,1750) - lu(k,1759) = lu(k,1759) - lu(k,983) * lu(k,1750) - lu(k,1760) = lu(k,1760) - lu(k,984) * lu(k,1750) - lu(k,1761) = lu(k,1761) - lu(k,985) * lu(k,1750) - lu(k,1762) = lu(k,1762) - lu(k,986) * lu(k,1750) - lu(k,1763) = lu(k,1763) - lu(k,987) * lu(k,1750) - lu(k,1764) = lu(k,1764) - lu(k,988) * lu(k,1750) - lu(k,1765) = lu(k,1765) - lu(k,989) * lu(k,1750) - lu(k,1766) = lu(k,1766) - lu(k,990) * lu(k,1750) - lu(k,1767) = lu(k,1767) - lu(k,991) * lu(k,1750) - lu(k,1768) = lu(k,1768) - lu(k,992) * lu(k,1750) - lu(k,1769) = lu(k,1769) - lu(k,993) * lu(k,1750) - lu(k,1770) = lu(k,1770) - lu(k,994) * lu(k,1750) - lu(k,1809) = lu(k,1809) - lu(k,975) * lu(k,1808) - lu(k,1810) = lu(k,1810) - lu(k,976) * lu(k,1808) - lu(k,1811) = lu(k,1811) - lu(k,977) * lu(k,1808) - lu(k,1812) = lu(k,1812) - lu(k,978) * lu(k,1808) - lu(k,1813) = lu(k,1813) - lu(k,979) * lu(k,1808) - lu(k,1814) = lu(k,1814) - lu(k,980) * lu(k,1808) - lu(k,1815) = lu(k,1815) - lu(k,981) * lu(k,1808) - lu(k,1816) = lu(k,1816) - lu(k,982) * lu(k,1808) - lu(k,1817) = lu(k,1817) - lu(k,983) * lu(k,1808) - lu(k,1818) = lu(k,1818) - lu(k,984) * lu(k,1808) - lu(k,1819) = lu(k,1819) - lu(k,985) * lu(k,1808) - lu(k,1820) = lu(k,1820) - lu(k,986) * lu(k,1808) - lu(k,1821) = lu(k,1821) - lu(k,987) * lu(k,1808) - lu(k,1822) = lu(k,1822) - lu(k,988) * lu(k,1808) - lu(k,1823) = lu(k,1823) - lu(k,989) * lu(k,1808) - lu(k,1824) = lu(k,1824) - lu(k,990) * lu(k,1808) - lu(k,1825) = lu(k,1825) - lu(k,991) * lu(k,1808) - lu(k,1826) = lu(k,1826) - lu(k,992) * lu(k,1808) - lu(k,1827) = lu(k,1827) - lu(k,993) * lu(k,1808) - lu(k,1828) = lu(k,1828) - lu(k,994) * lu(k,1808) - lu(k,1017) = 1._r8 / lu(k,1017) - lu(k,1018) = lu(k,1018) * lu(k,1017) - lu(k,1019) = lu(k,1019) * lu(k,1017) - lu(k,1020) = lu(k,1020) * lu(k,1017) - lu(k,1021) = lu(k,1021) * lu(k,1017) - lu(k,1022) = lu(k,1022) * lu(k,1017) - lu(k,1023) = lu(k,1023) * lu(k,1017) - lu(k,1024) = lu(k,1024) * lu(k,1017) - lu(k,1025) = lu(k,1025) * lu(k,1017) - lu(k,1026) = lu(k,1026) * lu(k,1017) - lu(k,1027) = lu(k,1027) * lu(k,1017) - lu(k,1028) = lu(k,1028) * lu(k,1017) - lu(k,1029) = lu(k,1029) * lu(k,1017) - lu(k,1030) = lu(k,1030) * lu(k,1017) - lu(k,1031) = lu(k,1031) * lu(k,1017) - lu(k,1032) = lu(k,1032) * lu(k,1017) - lu(k,1033) = lu(k,1033) * lu(k,1017) - lu(k,1034) = lu(k,1034) * lu(k,1017) - lu(k,1035) = lu(k,1035) * lu(k,1017) - lu(k,1036) = lu(k,1036) * lu(k,1017) - lu(k,1060) = lu(k,1060) - lu(k,1018) * lu(k,1059) - lu(k,1061) = lu(k,1061) - lu(k,1019) * lu(k,1059) - lu(k,1062) = lu(k,1062) - lu(k,1020) * lu(k,1059) - lu(k,1063) = lu(k,1063) - lu(k,1021) * lu(k,1059) - lu(k,1064) = lu(k,1064) - lu(k,1022) * lu(k,1059) - lu(k,1065) = lu(k,1065) - lu(k,1023) * lu(k,1059) - lu(k,1066) = lu(k,1066) - lu(k,1024) * lu(k,1059) - lu(k,1067) = lu(k,1067) - lu(k,1025) * lu(k,1059) - lu(k,1068) = lu(k,1068) - lu(k,1026) * lu(k,1059) - lu(k,1069) = lu(k,1069) - lu(k,1027) * lu(k,1059) - lu(k,1070) = lu(k,1070) - lu(k,1028) * lu(k,1059) - lu(k,1071) = lu(k,1071) - lu(k,1029) * lu(k,1059) - lu(k,1072) = lu(k,1072) - lu(k,1030) * lu(k,1059) - lu(k,1073) = lu(k,1073) - lu(k,1031) * lu(k,1059) - lu(k,1074) = lu(k,1074) - lu(k,1032) * lu(k,1059) - lu(k,1075) = lu(k,1075) - lu(k,1033) * lu(k,1059) - lu(k,1076) = lu(k,1076) - lu(k,1034) * lu(k,1059) - lu(k,1077) = lu(k,1077) - lu(k,1035) * lu(k,1059) - lu(k,1078) = lu(k,1078) - lu(k,1036) * lu(k,1059) - lu(k,1104) = lu(k,1104) - lu(k,1018) * lu(k,1103) - lu(k,1105) = lu(k,1105) - lu(k,1019) * lu(k,1103) - lu(k,1106) = lu(k,1106) - lu(k,1020) * lu(k,1103) - lu(k,1107) = lu(k,1107) - lu(k,1021) * lu(k,1103) - lu(k,1108) = lu(k,1108) - lu(k,1022) * lu(k,1103) - lu(k,1109) = lu(k,1109) - lu(k,1023) * lu(k,1103) - lu(k,1110) = lu(k,1110) - lu(k,1024) * lu(k,1103) - lu(k,1111) = lu(k,1111) - lu(k,1025) * lu(k,1103) - lu(k,1112) = lu(k,1112) - lu(k,1026) * lu(k,1103) - lu(k,1113) = lu(k,1113) - lu(k,1027) * lu(k,1103) - lu(k,1114) = lu(k,1114) - lu(k,1028) * lu(k,1103) - lu(k,1115) = lu(k,1115) - lu(k,1029) * lu(k,1103) - lu(k,1116) = lu(k,1116) - lu(k,1030) * lu(k,1103) - lu(k,1117) = lu(k,1117) - lu(k,1031) * lu(k,1103) - lu(k,1118) = lu(k,1118) - lu(k,1032) * lu(k,1103) - lu(k,1119) = lu(k,1119) - lu(k,1033) * lu(k,1103) - lu(k,1120) = lu(k,1120) - lu(k,1034) * lu(k,1103) - lu(k,1121) = lu(k,1121) - lu(k,1035) * lu(k,1103) - lu(k,1122) = lu(k,1122) - lu(k,1036) * lu(k,1103) - lu(k,1145) = lu(k,1145) - lu(k,1018) * lu(k,1144) - lu(k,1146) = lu(k,1146) - lu(k,1019) * lu(k,1144) - lu(k,1147) = lu(k,1147) - lu(k,1020) * lu(k,1144) - lu(k,1148) = lu(k,1148) - lu(k,1021) * lu(k,1144) - lu(k,1149) = lu(k,1149) - lu(k,1022) * lu(k,1144) - lu(k,1150) = lu(k,1150) - lu(k,1023) * lu(k,1144) - lu(k,1151) = lu(k,1151) - lu(k,1024) * lu(k,1144) - lu(k,1152) = lu(k,1152) - lu(k,1025) * lu(k,1144) - lu(k,1153) = lu(k,1153) - lu(k,1026) * lu(k,1144) - lu(k,1154) = lu(k,1154) - lu(k,1027) * lu(k,1144) - lu(k,1155) = lu(k,1155) - lu(k,1028) * lu(k,1144) - lu(k,1156) = lu(k,1156) - lu(k,1029) * lu(k,1144) - lu(k,1157) = lu(k,1157) - lu(k,1030) * lu(k,1144) - lu(k,1158) = lu(k,1158) - lu(k,1031) * lu(k,1144) - lu(k,1159) = lu(k,1159) - lu(k,1032) * lu(k,1144) - lu(k,1160) = lu(k,1160) - lu(k,1033) * lu(k,1144) - lu(k,1161) = lu(k,1161) - lu(k,1034) * lu(k,1144) - lu(k,1162) = lu(k,1162) - lu(k,1035) * lu(k,1144) - lu(k,1163) = lu(k,1163) - lu(k,1036) * lu(k,1144) - lu(k,1184) = lu(k,1184) - lu(k,1018) * lu(k,1183) - lu(k,1185) = lu(k,1185) - lu(k,1019) * lu(k,1183) - lu(k,1186) = lu(k,1186) - lu(k,1020) * lu(k,1183) - lu(k,1187) = lu(k,1187) - lu(k,1021) * lu(k,1183) - lu(k,1188) = lu(k,1188) - lu(k,1022) * lu(k,1183) - lu(k,1189) = lu(k,1189) - lu(k,1023) * lu(k,1183) - lu(k,1190) = lu(k,1190) - lu(k,1024) * lu(k,1183) - lu(k,1191) = lu(k,1191) - lu(k,1025) * lu(k,1183) - lu(k,1192) = lu(k,1192) - lu(k,1026) * lu(k,1183) - lu(k,1193) = lu(k,1193) - lu(k,1027) * lu(k,1183) - lu(k,1194) = lu(k,1194) - lu(k,1028) * lu(k,1183) - lu(k,1195) = lu(k,1195) - lu(k,1029) * lu(k,1183) - lu(k,1196) = lu(k,1196) - lu(k,1030) * lu(k,1183) - lu(k,1197) = lu(k,1197) - lu(k,1031) * lu(k,1183) - lu(k,1198) = lu(k,1198) - lu(k,1032) * lu(k,1183) - lu(k,1199) = lu(k,1199) - lu(k,1033) * lu(k,1183) - lu(k,1200) = lu(k,1200) - lu(k,1034) * lu(k,1183) - lu(k,1201) = lu(k,1201) - lu(k,1035) * lu(k,1183) - lu(k,1202) = lu(k,1202) - lu(k,1036) * lu(k,1183) - lu(k,1219) = lu(k,1219) - lu(k,1018) * lu(k,1218) - lu(k,1220) = lu(k,1220) - lu(k,1019) * lu(k,1218) - lu(k,1221) = lu(k,1221) - lu(k,1020) * lu(k,1218) - lu(k,1222) = lu(k,1222) - lu(k,1021) * lu(k,1218) - lu(k,1223) = lu(k,1223) - lu(k,1022) * lu(k,1218) - lu(k,1224) = lu(k,1224) - lu(k,1023) * lu(k,1218) - lu(k,1225) = lu(k,1225) - lu(k,1024) * lu(k,1218) - lu(k,1226) = lu(k,1226) - lu(k,1025) * lu(k,1218) - lu(k,1227) = lu(k,1227) - lu(k,1026) * lu(k,1218) - lu(k,1228) = lu(k,1228) - lu(k,1027) * lu(k,1218) - lu(k,1229) = lu(k,1229) - lu(k,1028) * lu(k,1218) - lu(k,1230) = lu(k,1230) - lu(k,1029) * lu(k,1218) - lu(k,1231) = lu(k,1231) - lu(k,1030) * lu(k,1218) - lu(k,1232) = lu(k,1232) - lu(k,1031) * lu(k,1218) - lu(k,1233) = lu(k,1233) - lu(k,1032) * lu(k,1218) - lu(k,1234) = lu(k,1234) - lu(k,1033) * lu(k,1218) - lu(k,1235) = lu(k,1235) - lu(k,1034) * lu(k,1218) - lu(k,1236) = lu(k,1236) - lu(k,1035) * lu(k,1218) - lu(k,1237) = lu(k,1237) - lu(k,1036) * lu(k,1218) - lu(k,1266) = lu(k,1266) - lu(k,1018) * lu(k,1265) - lu(k,1267) = lu(k,1267) - lu(k,1019) * lu(k,1265) - lu(k,1268) = lu(k,1268) - lu(k,1020) * lu(k,1265) - lu(k,1269) = lu(k,1269) - lu(k,1021) * lu(k,1265) - lu(k,1270) = lu(k,1270) - lu(k,1022) * lu(k,1265) - lu(k,1271) = lu(k,1271) - lu(k,1023) * lu(k,1265) - lu(k,1272) = lu(k,1272) - lu(k,1024) * lu(k,1265) - lu(k,1273) = lu(k,1273) - lu(k,1025) * lu(k,1265) - lu(k,1274) = lu(k,1274) - lu(k,1026) * lu(k,1265) - lu(k,1275) = lu(k,1275) - lu(k,1027) * lu(k,1265) - lu(k,1276) = lu(k,1276) - lu(k,1028) * lu(k,1265) - lu(k,1277) = lu(k,1277) - lu(k,1029) * lu(k,1265) - lu(k,1278) = lu(k,1278) - lu(k,1030) * lu(k,1265) - lu(k,1279) = lu(k,1279) - lu(k,1031) * lu(k,1265) - lu(k,1280) = lu(k,1280) - lu(k,1032) * lu(k,1265) - lu(k,1281) = lu(k,1281) - lu(k,1033) * lu(k,1265) - lu(k,1282) = lu(k,1282) - lu(k,1034) * lu(k,1265) - lu(k,1283) = lu(k,1283) - lu(k,1035) * lu(k,1265) - lu(k,1284) = lu(k,1284) - lu(k,1036) * lu(k,1265) - lu(k,1310) = lu(k,1310) - lu(k,1018) * lu(k,1309) - lu(k,1311) = lu(k,1311) - lu(k,1019) * lu(k,1309) - lu(k,1312) = lu(k,1312) - lu(k,1020) * lu(k,1309) - lu(k,1313) = lu(k,1313) - lu(k,1021) * lu(k,1309) - lu(k,1314) = lu(k,1314) - lu(k,1022) * lu(k,1309) - lu(k,1315) = lu(k,1315) - lu(k,1023) * lu(k,1309) - lu(k,1316) = lu(k,1316) - lu(k,1024) * lu(k,1309) - lu(k,1317) = lu(k,1317) - lu(k,1025) * lu(k,1309) - lu(k,1318) = lu(k,1318) - lu(k,1026) * lu(k,1309) - lu(k,1319) = lu(k,1319) - lu(k,1027) * lu(k,1309) - lu(k,1320) = lu(k,1320) - lu(k,1028) * lu(k,1309) - lu(k,1321) = lu(k,1321) - lu(k,1029) * lu(k,1309) - lu(k,1322) = lu(k,1322) - lu(k,1030) * lu(k,1309) - lu(k,1323) = lu(k,1323) - lu(k,1031) * lu(k,1309) - lu(k,1324) = lu(k,1324) - lu(k,1032) * lu(k,1309) - lu(k,1325) = lu(k,1325) - lu(k,1033) * lu(k,1309) - lu(k,1326) = lu(k,1326) - lu(k,1034) * lu(k,1309) - lu(k,1327) = lu(k,1327) - lu(k,1035) * lu(k,1309) - lu(k,1328) = lu(k,1328) - lu(k,1036) * lu(k,1309) - lu(k,1349) = lu(k,1349) - lu(k,1018) * lu(k,1348) - lu(k,1350) = lu(k,1350) - lu(k,1019) * lu(k,1348) - lu(k,1351) = lu(k,1351) - lu(k,1020) * lu(k,1348) - lu(k,1352) = lu(k,1352) - lu(k,1021) * lu(k,1348) - lu(k,1353) = lu(k,1353) - lu(k,1022) * lu(k,1348) - lu(k,1354) = lu(k,1354) - lu(k,1023) * lu(k,1348) - lu(k,1355) = lu(k,1355) - lu(k,1024) * lu(k,1348) - lu(k,1356) = lu(k,1356) - lu(k,1025) * lu(k,1348) - lu(k,1357) = lu(k,1357) - lu(k,1026) * lu(k,1348) - lu(k,1358) = lu(k,1358) - lu(k,1027) * lu(k,1348) - lu(k,1359) = lu(k,1359) - lu(k,1028) * lu(k,1348) - lu(k,1360) = lu(k,1360) - lu(k,1029) * lu(k,1348) - lu(k,1361) = lu(k,1361) - lu(k,1030) * lu(k,1348) - lu(k,1362) = lu(k,1362) - lu(k,1031) * lu(k,1348) - lu(k,1363) = lu(k,1363) - lu(k,1032) * lu(k,1348) - lu(k,1364) = lu(k,1364) - lu(k,1033) * lu(k,1348) - lu(k,1365) = lu(k,1365) - lu(k,1034) * lu(k,1348) - lu(k,1366) = lu(k,1366) - lu(k,1035) * lu(k,1348) - lu(k,1367) = lu(k,1367) - lu(k,1036) * lu(k,1348) - lu(k,1384) = lu(k,1384) - lu(k,1018) * lu(k,1383) - lu(k,1385) = lu(k,1385) - lu(k,1019) * lu(k,1383) - lu(k,1386) = lu(k,1386) - lu(k,1020) * lu(k,1383) - lu(k,1387) = lu(k,1387) - lu(k,1021) * lu(k,1383) - lu(k,1388) = lu(k,1388) - lu(k,1022) * lu(k,1383) - lu(k,1389) = lu(k,1389) - lu(k,1023) * lu(k,1383) - lu(k,1390) = lu(k,1390) - lu(k,1024) * lu(k,1383) - lu(k,1391) = lu(k,1391) - lu(k,1025) * lu(k,1383) - lu(k,1392) = lu(k,1392) - lu(k,1026) * lu(k,1383) - lu(k,1393) = lu(k,1393) - lu(k,1027) * lu(k,1383) - lu(k,1394) = lu(k,1394) - lu(k,1028) * lu(k,1383) - lu(k,1395) = lu(k,1395) - lu(k,1029) * lu(k,1383) - lu(k,1396) = lu(k,1396) - lu(k,1030) * lu(k,1383) - lu(k,1397) = lu(k,1397) - lu(k,1031) * lu(k,1383) - lu(k,1398) = lu(k,1398) - lu(k,1032) * lu(k,1383) - lu(k,1399) = lu(k,1399) - lu(k,1033) * lu(k,1383) - lu(k,1400) = lu(k,1400) - lu(k,1034) * lu(k,1383) - lu(k,1401) = lu(k,1401) - lu(k,1035) * lu(k,1383) - lu(k,1402) = lu(k,1402) - lu(k,1036) * lu(k,1383) - lu(k,1428) = lu(k,1428) - lu(k,1018) * lu(k,1427) - lu(k,1429) = lu(k,1429) - lu(k,1019) * lu(k,1427) - lu(k,1430) = lu(k,1430) - lu(k,1020) * lu(k,1427) - lu(k,1431) = lu(k,1431) - lu(k,1021) * lu(k,1427) - lu(k,1432) = lu(k,1432) - lu(k,1022) * lu(k,1427) - lu(k,1433) = lu(k,1433) - lu(k,1023) * lu(k,1427) - lu(k,1434) = lu(k,1434) - lu(k,1024) * lu(k,1427) - lu(k,1435) = lu(k,1435) - lu(k,1025) * lu(k,1427) - lu(k,1436) = lu(k,1436) - lu(k,1026) * lu(k,1427) - lu(k,1437) = lu(k,1437) - lu(k,1027) * lu(k,1427) - lu(k,1438) = lu(k,1438) - lu(k,1028) * lu(k,1427) - lu(k,1439) = lu(k,1439) - lu(k,1029) * lu(k,1427) - lu(k,1440) = lu(k,1440) - lu(k,1030) * lu(k,1427) - lu(k,1441) = lu(k,1441) - lu(k,1031) * lu(k,1427) - lu(k,1442) = lu(k,1442) - lu(k,1032) * lu(k,1427) - lu(k,1443) = lu(k,1443) - lu(k,1033) * lu(k,1427) - lu(k,1444) = lu(k,1444) - lu(k,1034) * lu(k,1427) - lu(k,1445) = lu(k,1445) - lu(k,1035) * lu(k,1427) - lu(k,1446) = lu(k,1446) - lu(k,1036) * lu(k,1427) - lu(k,1474) = lu(k,1474) - lu(k,1018) * lu(k,1473) - lu(k,1475) = lu(k,1475) - lu(k,1019) * lu(k,1473) - lu(k,1476) = lu(k,1476) - lu(k,1020) * lu(k,1473) - lu(k,1477) = lu(k,1477) - lu(k,1021) * lu(k,1473) - lu(k,1478) = lu(k,1478) - lu(k,1022) * lu(k,1473) - lu(k,1479) = lu(k,1479) - lu(k,1023) * lu(k,1473) - lu(k,1480) = lu(k,1480) - lu(k,1024) * lu(k,1473) - lu(k,1481) = lu(k,1481) - lu(k,1025) * lu(k,1473) - lu(k,1482) = lu(k,1482) - lu(k,1026) * lu(k,1473) - lu(k,1483) = lu(k,1483) - lu(k,1027) * lu(k,1473) - lu(k,1484) = lu(k,1484) - lu(k,1028) * lu(k,1473) - lu(k,1485) = lu(k,1485) - lu(k,1029) * lu(k,1473) - lu(k,1486) = lu(k,1486) - lu(k,1030) * lu(k,1473) - lu(k,1487) = lu(k,1487) - lu(k,1031) * lu(k,1473) - lu(k,1488) = lu(k,1488) - lu(k,1032) * lu(k,1473) - lu(k,1489) = lu(k,1489) - lu(k,1033) * lu(k,1473) - lu(k,1490) = lu(k,1490) - lu(k,1034) * lu(k,1473) - lu(k,1491) = lu(k,1491) - lu(k,1035) * lu(k,1473) - lu(k,1492) = lu(k,1492) - lu(k,1036) * lu(k,1473) - lu(k,1516) = lu(k,1516) - lu(k,1018) * lu(k,1515) - lu(k,1517) = lu(k,1517) - lu(k,1019) * lu(k,1515) - lu(k,1518) = lu(k,1518) - lu(k,1020) * lu(k,1515) - lu(k,1519) = lu(k,1519) - lu(k,1021) * lu(k,1515) - lu(k,1520) = lu(k,1520) - lu(k,1022) * lu(k,1515) - lu(k,1521) = lu(k,1521) - lu(k,1023) * lu(k,1515) - lu(k,1522) = lu(k,1522) - lu(k,1024) * lu(k,1515) - lu(k,1523) = lu(k,1523) - lu(k,1025) * lu(k,1515) - lu(k,1524) = lu(k,1524) - lu(k,1026) * lu(k,1515) - lu(k,1525) = lu(k,1525) - lu(k,1027) * lu(k,1515) - lu(k,1526) = lu(k,1526) - lu(k,1028) * lu(k,1515) - lu(k,1527) = lu(k,1527) - lu(k,1029) * lu(k,1515) - lu(k,1528) = lu(k,1528) - lu(k,1030) * lu(k,1515) - lu(k,1529) = lu(k,1529) - lu(k,1031) * lu(k,1515) - lu(k,1530) = lu(k,1530) - lu(k,1032) * lu(k,1515) - lu(k,1531) = lu(k,1531) - lu(k,1033) * lu(k,1515) - lu(k,1532) = lu(k,1532) - lu(k,1034) * lu(k,1515) - lu(k,1533) = lu(k,1533) - lu(k,1035) * lu(k,1515) - lu(k,1534) = lu(k,1534) - lu(k,1036) * lu(k,1515) - lu(k,1557) = lu(k,1557) - lu(k,1018) * lu(k,1556) - lu(k,1558) = lu(k,1558) - lu(k,1019) * lu(k,1556) - lu(k,1559) = lu(k,1559) - lu(k,1020) * lu(k,1556) - lu(k,1560) = lu(k,1560) - lu(k,1021) * lu(k,1556) - lu(k,1561) = lu(k,1561) - lu(k,1022) * lu(k,1556) - lu(k,1562) = lu(k,1562) - lu(k,1023) * lu(k,1556) - lu(k,1563) = lu(k,1563) - lu(k,1024) * lu(k,1556) - lu(k,1564) = lu(k,1564) - lu(k,1025) * lu(k,1556) - lu(k,1565) = lu(k,1565) - lu(k,1026) * lu(k,1556) - lu(k,1566) = lu(k,1566) - lu(k,1027) * lu(k,1556) - lu(k,1567) = lu(k,1567) - lu(k,1028) * lu(k,1556) - lu(k,1568) = lu(k,1568) - lu(k,1029) * lu(k,1556) - lu(k,1569) = lu(k,1569) - lu(k,1030) * lu(k,1556) - lu(k,1570) = lu(k,1570) - lu(k,1031) * lu(k,1556) - lu(k,1571) = lu(k,1571) - lu(k,1032) * lu(k,1556) - lu(k,1572) = lu(k,1572) - lu(k,1033) * lu(k,1556) - lu(k,1573) = lu(k,1573) - lu(k,1034) * lu(k,1556) - lu(k,1574) = lu(k,1574) - lu(k,1035) * lu(k,1556) - lu(k,1575) = lu(k,1575) - lu(k,1036) * lu(k,1556) - lu(k,1614) = lu(k,1614) - lu(k,1018) * lu(k,1613) - lu(k,1615) = lu(k,1615) - lu(k,1019) * lu(k,1613) - lu(k,1616) = lu(k,1616) - lu(k,1020) * lu(k,1613) - lu(k,1617) = lu(k,1617) - lu(k,1021) * lu(k,1613) - lu(k,1618) = lu(k,1618) - lu(k,1022) * lu(k,1613) - lu(k,1619) = lu(k,1619) - lu(k,1023) * lu(k,1613) - lu(k,1620) = lu(k,1620) - lu(k,1024) * lu(k,1613) - lu(k,1621) = lu(k,1621) - lu(k,1025) * lu(k,1613) - lu(k,1622) = lu(k,1622) - lu(k,1026) * lu(k,1613) - lu(k,1623) = lu(k,1623) - lu(k,1027) * lu(k,1613) - lu(k,1624) = lu(k,1624) - lu(k,1028) * lu(k,1613) - lu(k,1625) = lu(k,1625) - lu(k,1029) * lu(k,1613) - lu(k,1626) = lu(k,1626) - lu(k,1030) * lu(k,1613) - lu(k,1627) = lu(k,1627) - lu(k,1031) * lu(k,1613) - lu(k,1628) = lu(k,1628) - lu(k,1032) * lu(k,1613) - lu(k,1629) = lu(k,1629) - lu(k,1033) * lu(k,1613) - lu(k,1630) = lu(k,1630) - lu(k,1034) * lu(k,1613) - lu(k,1631) = lu(k,1631) - lu(k,1035) * lu(k,1613) - lu(k,1632) = lu(k,1632) - lu(k,1036) * lu(k,1613) - lu(k,1643) = lu(k,1643) - lu(k,1018) * lu(k,1642) - lu(k,1644) = lu(k,1644) - lu(k,1019) * lu(k,1642) - lu(k,1645) = lu(k,1645) - lu(k,1020) * lu(k,1642) - lu(k,1646) = lu(k,1646) - lu(k,1021) * lu(k,1642) - lu(k,1647) = lu(k,1647) - lu(k,1022) * lu(k,1642) - lu(k,1648) = lu(k,1648) - lu(k,1023) * lu(k,1642) - lu(k,1649) = lu(k,1649) - lu(k,1024) * lu(k,1642) - lu(k,1650) = lu(k,1650) - lu(k,1025) * lu(k,1642) - lu(k,1651) = lu(k,1651) - lu(k,1026) * lu(k,1642) - lu(k,1652) = lu(k,1652) - lu(k,1027) * lu(k,1642) - lu(k,1653) = lu(k,1653) - lu(k,1028) * lu(k,1642) - lu(k,1654) = lu(k,1654) - lu(k,1029) * lu(k,1642) - lu(k,1655) = lu(k,1655) - lu(k,1030) * lu(k,1642) - lu(k,1656) = lu(k,1656) - lu(k,1031) * lu(k,1642) - lu(k,1657) = lu(k,1657) - lu(k,1032) * lu(k,1642) - lu(k,1658) = lu(k,1658) - lu(k,1033) * lu(k,1642) - lu(k,1659) = lu(k,1659) - lu(k,1034) * lu(k,1642) - lu(k,1660) = lu(k,1660) - lu(k,1035) * lu(k,1642) - lu(k,1661) = lu(k,1661) - lu(k,1036) * lu(k,1642) - lu(k,1675) = lu(k,1675) - lu(k,1018) * lu(k,1674) - lu(k,1676) = lu(k,1676) - lu(k,1019) * lu(k,1674) - lu(k,1677) = lu(k,1677) - lu(k,1020) * lu(k,1674) - lu(k,1678) = lu(k,1678) - lu(k,1021) * lu(k,1674) - lu(k,1679) = lu(k,1679) - lu(k,1022) * lu(k,1674) - lu(k,1680) = lu(k,1680) - lu(k,1023) * lu(k,1674) - lu(k,1681) = lu(k,1681) - lu(k,1024) * lu(k,1674) - lu(k,1682) = lu(k,1682) - lu(k,1025) * lu(k,1674) - lu(k,1683) = lu(k,1683) - lu(k,1026) * lu(k,1674) - lu(k,1684) = lu(k,1684) - lu(k,1027) * lu(k,1674) - lu(k,1685) = lu(k,1685) - lu(k,1028) * lu(k,1674) - lu(k,1686) = lu(k,1686) - lu(k,1029) * lu(k,1674) - lu(k,1687) = lu(k,1687) - lu(k,1030) * lu(k,1674) - lu(k,1688) = lu(k,1688) - lu(k,1031) * lu(k,1674) - lu(k,1689) = lu(k,1689) - lu(k,1032) * lu(k,1674) - lu(k,1690) = lu(k,1690) - lu(k,1033) * lu(k,1674) - lu(k,1691) = lu(k,1691) - lu(k,1034) * lu(k,1674) - lu(k,1692) = lu(k,1692) - lu(k,1035) * lu(k,1674) - lu(k,1693) = lu(k,1693) - lu(k,1036) * lu(k,1674) - lu(k,1710) = lu(k,1710) - lu(k,1018) * lu(k,1709) - lu(k,1711) = lu(k,1711) - lu(k,1019) * lu(k,1709) - lu(k,1712) = lu(k,1712) - lu(k,1020) * lu(k,1709) - lu(k,1713) = lu(k,1713) - lu(k,1021) * lu(k,1709) - lu(k,1714) = lu(k,1714) - lu(k,1022) * lu(k,1709) - lu(k,1715) = lu(k,1715) - lu(k,1023) * lu(k,1709) - lu(k,1716) = lu(k,1716) - lu(k,1024) * lu(k,1709) - lu(k,1717) = lu(k,1717) - lu(k,1025) * lu(k,1709) - lu(k,1718) = lu(k,1718) - lu(k,1026) * lu(k,1709) - lu(k,1719) = lu(k,1719) - lu(k,1027) * lu(k,1709) - lu(k,1720) = lu(k,1720) - lu(k,1028) * lu(k,1709) - lu(k,1721) = lu(k,1721) - lu(k,1029) * lu(k,1709) - lu(k,1722) = lu(k,1722) - lu(k,1030) * lu(k,1709) - lu(k,1723) = lu(k,1723) - lu(k,1031) * lu(k,1709) - lu(k,1724) = lu(k,1724) - lu(k,1032) * lu(k,1709) - lu(k,1725) = lu(k,1725) - lu(k,1033) * lu(k,1709) - lu(k,1726) = lu(k,1726) - lu(k,1034) * lu(k,1709) - lu(k,1727) = lu(k,1727) - lu(k,1035) * lu(k,1709) - lu(k,1728) = lu(k,1728) - lu(k,1036) * lu(k,1709) - lu(k,1752) = lu(k,1752) - lu(k,1018) * lu(k,1751) - lu(k,1753) = lu(k,1753) - lu(k,1019) * lu(k,1751) - lu(k,1754) = lu(k,1754) - lu(k,1020) * lu(k,1751) - lu(k,1755) = lu(k,1755) - lu(k,1021) * lu(k,1751) - lu(k,1756) = lu(k,1756) - lu(k,1022) * lu(k,1751) - lu(k,1757) = lu(k,1757) - lu(k,1023) * lu(k,1751) - lu(k,1758) = lu(k,1758) - lu(k,1024) * lu(k,1751) - lu(k,1759) = lu(k,1759) - lu(k,1025) * lu(k,1751) - lu(k,1760) = lu(k,1760) - lu(k,1026) * lu(k,1751) - lu(k,1761) = lu(k,1761) - lu(k,1027) * lu(k,1751) - lu(k,1762) = lu(k,1762) - lu(k,1028) * lu(k,1751) - lu(k,1763) = lu(k,1763) - lu(k,1029) * lu(k,1751) - lu(k,1764) = lu(k,1764) - lu(k,1030) * lu(k,1751) - lu(k,1765) = lu(k,1765) - lu(k,1031) * lu(k,1751) - lu(k,1766) = lu(k,1766) - lu(k,1032) * lu(k,1751) - lu(k,1767) = lu(k,1767) - lu(k,1033) * lu(k,1751) - lu(k,1768) = lu(k,1768) - lu(k,1034) * lu(k,1751) - lu(k,1769) = lu(k,1769) - lu(k,1035) * lu(k,1751) - lu(k,1770) = lu(k,1770) - lu(k,1036) * lu(k,1751) - lu(k,1810) = lu(k,1810) - lu(k,1018) * lu(k,1809) - lu(k,1811) = lu(k,1811) - lu(k,1019) * lu(k,1809) - lu(k,1812) = lu(k,1812) - lu(k,1020) * lu(k,1809) - lu(k,1813) = lu(k,1813) - lu(k,1021) * lu(k,1809) - lu(k,1814) = lu(k,1814) - lu(k,1022) * lu(k,1809) - lu(k,1815) = lu(k,1815) - lu(k,1023) * lu(k,1809) - lu(k,1816) = lu(k,1816) - lu(k,1024) * lu(k,1809) - lu(k,1817) = lu(k,1817) - lu(k,1025) * lu(k,1809) - lu(k,1818) = lu(k,1818) - lu(k,1026) * lu(k,1809) - lu(k,1819) = lu(k,1819) - lu(k,1027) * lu(k,1809) - lu(k,1820) = lu(k,1820) - lu(k,1028) * lu(k,1809) - lu(k,1821) = lu(k,1821) - lu(k,1029) * lu(k,1809) - lu(k,1822) = lu(k,1822) - lu(k,1030) * lu(k,1809) - lu(k,1823) = lu(k,1823) - lu(k,1031) * lu(k,1809) - lu(k,1824) = lu(k,1824) - lu(k,1032) * lu(k,1809) - lu(k,1825) = lu(k,1825) - lu(k,1033) * lu(k,1809) - lu(k,1826) = lu(k,1826) - lu(k,1034) * lu(k,1809) - lu(k,1827) = lu(k,1827) - lu(k,1035) * lu(k,1809) - lu(k,1828) = lu(k,1828) - lu(k,1036) * lu(k,1809) - lu(k,1060) = 1._r8 / lu(k,1060) - lu(k,1061) = lu(k,1061) * lu(k,1060) - lu(k,1062) = lu(k,1062) * lu(k,1060) - lu(k,1063) = lu(k,1063) * lu(k,1060) - lu(k,1064) = lu(k,1064) * lu(k,1060) - lu(k,1065) = lu(k,1065) * lu(k,1060) - lu(k,1066) = lu(k,1066) * lu(k,1060) - lu(k,1067) = lu(k,1067) * lu(k,1060) - lu(k,1068) = lu(k,1068) * lu(k,1060) - lu(k,1069) = lu(k,1069) * lu(k,1060) - lu(k,1070) = lu(k,1070) * lu(k,1060) - lu(k,1071) = lu(k,1071) * lu(k,1060) - lu(k,1072) = lu(k,1072) * lu(k,1060) - lu(k,1073) = lu(k,1073) * lu(k,1060) - lu(k,1074) = lu(k,1074) * lu(k,1060) - lu(k,1075) = lu(k,1075) * lu(k,1060) - lu(k,1076) = lu(k,1076) * lu(k,1060) - lu(k,1077) = lu(k,1077) * lu(k,1060) - lu(k,1078) = lu(k,1078) * lu(k,1060) - lu(k,1105) = lu(k,1105) - lu(k,1061) * lu(k,1104) - lu(k,1106) = lu(k,1106) - lu(k,1062) * lu(k,1104) - lu(k,1107) = lu(k,1107) - lu(k,1063) * lu(k,1104) - lu(k,1108) = lu(k,1108) - lu(k,1064) * lu(k,1104) - lu(k,1109) = lu(k,1109) - lu(k,1065) * lu(k,1104) - lu(k,1110) = lu(k,1110) - lu(k,1066) * lu(k,1104) - lu(k,1111) = lu(k,1111) - lu(k,1067) * lu(k,1104) - lu(k,1112) = lu(k,1112) - lu(k,1068) * lu(k,1104) - lu(k,1113) = lu(k,1113) - lu(k,1069) * lu(k,1104) - lu(k,1114) = lu(k,1114) - lu(k,1070) * lu(k,1104) - lu(k,1115) = lu(k,1115) - lu(k,1071) * lu(k,1104) - lu(k,1116) = lu(k,1116) - lu(k,1072) * lu(k,1104) - lu(k,1117) = lu(k,1117) - lu(k,1073) * lu(k,1104) - lu(k,1118) = lu(k,1118) - lu(k,1074) * lu(k,1104) - lu(k,1119) = lu(k,1119) - lu(k,1075) * lu(k,1104) - lu(k,1120) = lu(k,1120) - lu(k,1076) * lu(k,1104) - lu(k,1121) = lu(k,1121) - lu(k,1077) * lu(k,1104) - lu(k,1122) = lu(k,1122) - lu(k,1078) * lu(k,1104) - lu(k,1146) = lu(k,1146) - lu(k,1061) * lu(k,1145) - lu(k,1147) = lu(k,1147) - lu(k,1062) * lu(k,1145) - lu(k,1148) = lu(k,1148) - lu(k,1063) * lu(k,1145) - lu(k,1149) = lu(k,1149) - lu(k,1064) * lu(k,1145) - lu(k,1150) = lu(k,1150) - lu(k,1065) * lu(k,1145) - lu(k,1151) = lu(k,1151) - lu(k,1066) * lu(k,1145) - lu(k,1152) = lu(k,1152) - lu(k,1067) * lu(k,1145) - lu(k,1153) = lu(k,1153) - lu(k,1068) * lu(k,1145) - lu(k,1154) = lu(k,1154) - lu(k,1069) * lu(k,1145) - lu(k,1155) = lu(k,1155) - lu(k,1070) * lu(k,1145) - lu(k,1156) = lu(k,1156) - lu(k,1071) * lu(k,1145) - lu(k,1157) = lu(k,1157) - lu(k,1072) * lu(k,1145) - lu(k,1158) = lu(k,1158) - lu(k,1073) * lu(k,1145) - lu(k,1159) = lu(k,1159) - lu(k,1074) * lu(k,1145) - lu(k,1160) = lu(k,1160) - lu(k,1075) * lu(k,1145) - lu(k,1161) = lu(k,1161) - lu(k,1076) * lu(k,1145) - lu(k,1162) = lu(k,1162) - lu(k,1077) * lu(k,1145) - lu(k,1163) = lu(k,1163) - lu(k,1078) * lu(k,1145) - lu(k,1185) = lu(k,1185) - lu(k,1061) * lu(k,1184) - lu(k,1186) = lu(k,1186) - lu(k,1062) * lu(k,1184) - lu(k,1187) = lu(k,1187) - lu(k,1063) * lu(k,1184) - lu(k,1188) = lu(k,1188) - lu(k,1064) * lu(k,1184) - lu(k,1189) = lu(k,1189) - lu(k,1065) * lu(k,1184) - lu(k,1190) = lu(k,1190) - lu(k,1066) * lu(k,1184) - lu(k,1191) = lu(k,1191) - lu(k,1067) * lu(k,1184) - lu(k,1192) = lu(k,1192) - lu(k,1068) * lu(k,1184) - lu(k,1193) = lu(k,1193) - lu(k,1069) * lu(k,1184) - lu(k,1194) = lu(k,1194) - lu(k,1070) * lu(k,1184) - lu(k,1195) = lu(k,1195) - lu(k,1071) * lu(k,1184) - lu(k,1196) = lu(k,1196) - lu(k,1072) * lu(k,1184) - lu(k,1197) = lu(k,1197) - lu(k,1073) * lu(k,1184) - lu(k,1198) = lu(k,1198) - lu(k,1074) * lu(k,1184) - lu(k,1199) = lu(k,1199) - lu(k,1075) * lu(k,1184) - lu(k,1200) = lu(k,1200) - lu(k,1076) * lu(k,1184) - lu(k,1201) = lu(k,1201) - lu(k,1077) * lu(k,1184) - lu(k,1202) = lu(k,1202) - lu(k,1078) * lu(k,1184) - lu(k,1220) = lu(k,1220) - lu(k,1061) * lu(k,1219) - lu(k,1221) = lu(k,1221) - lu(k,1062) * lu(k,1219) - lu(k,1222) = lu(k,1222) - lu(k,1063) * lu(k,1219) - lu(k,1223) = lu(k,1223) - lu(k,1064) * lu(k,1219) - lu(k,1224) = lu(k,1224) - lu(k,1065) * lu(k,1219) - lu(k,1225) = lu(k,1225) - lu(k,1066) * lu(k,1219) - lu(k,1226) = lu(k,1226) - lu(k,1067) * lu(k,1219) - lu(k,1227) = lu(k,1227) - lu(k,1068) * lu(k,1219) - lu(k,1228) = lu(k,1228) - lu(k,1069) * lu(k,1219) - lu(k,1229) = lu(k,1229) - lu(k,1070) * lu(k,1219) - lu(k,1230) = lu(k,1230) - lu(k,1071) * lu(k,1219) - lu(k,1231) = lu(k,1231) - lu(k,1072) * lu(k,1219) - lu(k,1232) = lu(k,1232) - lu(k,1073) * lu(k,1219) - lu(k,1233) = lu(k,1233) - lu(k,1074) * lu(k,1219) - lu(k,1234) = lu(k,1234) - lu(k,1075) * lu(k,1219) - lu(k,1235) = lu(k,1235) - lu(k,1076) * lu(k,1219) - lu(k,1236) = lu(k,1236) - lu(k,1077) * lu(k,1219) - lu(k,1237) = lu(k,1237) - lu(k,1078) * lu(k,1219) - lu(k,1267) = lu(k,1267) - lu(k,1061) * lu(k,1266) - lu(k,1268) = lu(k,1268) - lu(k,1062) * lu(k,1266) - lu(k,1269) = lu(k,1269) - lu(k,1063) * lu(k,1266) - lu(k,1270) = lu(k,1270) - lu(k,1064) * lu(k,1266) - lu(k,1271) = lu(k,1271) - lu(k,1065) * lu(k,1266) - lu(k,1272) = lu(k,1272) - lu(k,1066) * lu(k,1266) - lu(k,1273) = lu(k,1273) - lu(k,1067) * lu(k,1266) - lu(k,1274) = lu(k,1274) - lu(k,1068) * lu(k,1266) - lu(k,1275) = lu(k,1275) - lu(k,1069) * lu(k,1266) - lu(k,1276) = lu(k,1276) - lu(k,1070) * lu(k,1266) - lu(k,1277) = lu(k,1277) - lu(k,1071) * lu(k,1266) - lu(k,1278) = lu(k,1278) - lu(k,1072) * lu(k,1266) - lu(k,1279) = lu(k,1279) - lu(k,1073) * lu(k,1266) - lu(k,1280) = lu(k,1280) - lu(k,1074) * lu(k,1266) - lu(k,1281) = lu(k,1281) - lu(k,1075) * lu(k,1266) - lu(k,1282) = lu(k,1282) - lu(k,1076) * lu(k,1266) - lu(k,1283) = lu(k,1283) - lu(k,1077) * lu(k,1266) - lu(k,1284) = lu(k,1284) - lu(k,1078) * lu(k,1266) - lu(k,1311) = lu(k,1311) - lu(k,1061) * lu(k,1310) - lu(k,1312) = lu(k,1312) - lu(k,1062) * lu(k,1310) - lu(k,1313) = lu(k,1313) - lu(k,1063) * lu(k,1310) - lu(k,1314) = lu(k,1314) - lu(k,1064) * lu(k,1310) - lu(k,1315) = lu(k,1315) - lu(k,1065) * lu(k,1310) - lu(k,1316) = lu(k,1316) - lu(k,1066) * lu(k,1310) - lu(k,1317) = lu(k,1317) - lu(k,1067) * lu(k,1310) - lu(k,1318) = lu(k,1318) - lu(k,1068) * lu(k,1310) - lu(k,1319) = lu(k,1319) - lu(k,1069) * lu(k,1310) - lu(k,1320) = lu(k,1320) - lu(k,1070) * lu(k,1310) - lu(k,1321) = lu(k,1321) - lu(k,1071) * lu(k,1310) - lu(k,1322) = lu(k,1322) - lu(k,1072) * lu(k,1310) - lu(k,1323) = lu(k,1323) - lu(k,1073) * lu(k,1310) - lu(k,1324) = lu(k,1324) - lu(k,1074) * lu(k,1310) - lu(k,1325) = lu(k,1325) - lu(k,1075) * lu(k,1310) - lu(k,1326) = lu(k,1326) - lu(k,1076) * lu(k,1310) - lu(k,1327) = lu(k,1327) - lu(k,1077) * lu(k,1310) - lu(k,1328) = lu(k,1328) - lu(k,1078) * lu(k,1310) - lu(k,1350) = lu(k,1350) - lu(k,1061) * lu(k,1349) - lu(k,1351) = lu(k,1351) - lu(k,1062) * lu(k,1349) - lu(k,1352) = lu(k,1352) - lu(k,1063) * lu(k,1349) - lu(k,1353) = lu(k,1353) - lu(k,1064) * lu(k,1349) - lu(k,1354) = lu(k,1354) - lu(k,1065) * lu(k,1349) - lu(k,1355) = lu(k,1355) - lu(k,1066) * lu(k,1349) - lu(k,1356) = lu(k,1356) - lu(k,1067) * lu(k,1349) - lu(k,1357) = lu(k,1357) - lu(k,1068) * lu(k,1349) - lu(k,1358) = lu(k,1358) - lu(k,1069) * lu(k,1349) - lu(k,1359) = lu(k,1359) - lu(k,1070) * lu(k,1349) - lu(k,1360) = lu(k,1360) - lu(k,1071) * lu(k,1349) - lu(k,1361) = lu(k,1361) - lu(k,1072) * lu(k,1349) - lu(k,1362) = lu(k,1362) - lu(k,1073) * lu(k,1349) - lu(k,1363) = lu(k,1363) - lu(k,1074) * lu(k,1349) - lu(k,1364) = lu(k,1364) - lu(k,1075) * lu(k,1349) - lu(k,1365) = lu(k,1365) - lu(k,1076) * lu(k,1349) - lu(k,1366) = lu(k,1366) - lu(k,1077) * lu(k,1349) - lu(k,1367) = lu(k,1367) - lu(k,1078) * lu(k,1349) - lu(k,1385) = lu(k,1385) - lu(k,1061) * lu(k,1384) - lu(k,1386) = lu(k,1386) - lu(k,1062) * lu(k,1384) - lu(k,1387) = lu(k,1387) - lu(k,1063) * lu(k,1384) - lu(k,1388) = lu(k,1388) - lu(k,1064) * lu(k,1384) - lu(k,1389) = lu(k,1389) - lu(k,1065) * lu(k,1384) - lu(k,1390) = lu(k,1390) - lu(k,1066) * lu(k,1384) - lu(k,1391) = lu(k,1391) - lu(k,1067) * lu(k,1384) - lu(k,1392) = lu(k,1392) - lu(k,1068) * lu(k,1384) - lu(k,1393) = lu(k,1393) - lu(k,1069) * lu(k,1384) - lu(k,1394) = lu(k,1394) - lu(k,1070) * lu(k,1384) - lu(k,1395) = lu(k,1395) - lu(k,1071) * lu(k,1384) - lu(k,1396) = lu(k,1396) - lu(k,1072) * lu(k,1384) - lu(k,1397) = lu(k,1397) - lu(k,1073) * lu(k,1384) - lu(k,1398) = lu(k,1398) - lu(k,1074) * lu(k,1384) - lu(k,1399) = lu(k,1399) - lu(k,1075) * lu(k,1384) - lu(k,1400) = lu(k,1400) - lu(k,1076) * lu(k,1384) - lu(k,1401) = lu(k,1401) - lu(k,1077) * lu(k,1384) - lu(k,1402) = lu(k,1402) - lu(k,1078) * lu(k,1384) - lu(k,1429) = lu(k,1429) - lu(k,1061) * lu(k,1428) - lu(k,1430) = lu(k,1430) - lu(k,1062) * lu(k,1428) - lu(k,1431) = lu(k,1431) - lu(k,1063) * lu(k,1428) - lu(k,1432) = lu(k,1432) - lu(k,1064) * lu(k,1428) - lu(k,1433) = lu(k,1433) - lu(k,1065) * lu(k,1428) - lu(k,1434) = lu(k,1434) - lu(k,1066) * lu(k,1428) - lu(k,1435) = lu(k,1435) - lu(k,1067) * lu(k,1428) - lu(k,1436) = lu(k,1436) - lu(k,1068) * lu(k,1428) - lu(k,1437) = lu(k,1437) - lu(k,1069) * lu(k,1428) - lu(k,1438) = lu(k,1438) - lu(k,1070) * lu(k,1428) - lu(k,1439) = lu(k,1439) - lu(k,1071) * lu(k,1428) - lu(k,1440) = lu(k,1440) - lu(k,1072) * lu(k,1428) - lu(k,1441) = lu(k,1441) - lu(k,1073) * lu(k,1428) - lu(k,1442) = lu(k,1442) - lu(k,1074) * lu(k,1428) - lu(k,1443) = lu(k,1443) - lu(k,1075) * lu(k,1428) - lu(k,1444) = lu(k,1444) - lu(k,1076) * lu(k,1428) - lu(k,1445) = lu(k,1445) - lu(k,1077) * lu(k,1428) - lu(k,1446) = lu(k,1446) - lu(k,1078) * lu(k,1428) - lu(k,1475) = lu(k,1475) - lu(k,1061) * lu(k,1474) - lu(k,1476) = lu(k,1476) - lu(k,1062) * lu(k,1474) - lu(k,1477) = lu(k,1477) - lu(k,1063) * lu(k,1474) - lu(k,1478) = lu(k,1478) - lu(k,1064) * lu(k,1474) - lu(k,1479) = lu(k,1479) - lu(k,1065) * lu(k,1474) - lu(k,1480) = lu(k,1480) - lu(k,1066) * lu(k,1474) - lu(k,1481) = lu(k,1481) - lu(k,1067) * lu(k,1474) - lu(k,1482) = lu(k,1482) - lu(k,1068) * lu(k,1474) - lu(k,1483) = lu(k,1483) - lu(k,1069) * lu(k,1474) - lu(k,1484) = lu(k,1484) - lu(k,1070) * lu(k,1474) - lu(k,1485) = lu(k,1485) - lu(k,1071) * lu(k,1474) - lu(k,1486) = lu(k,1486) - lu(k,1072) * lu(k,1474) - lu(k,1487) = lu(k,1487) - lu(k,1073) * lu(k,1474) - lu(k,1488) = lu(k,1488) - lu(k,1074) * lu(k,1474) - lu(k,1489) = lu(k,1489) - lu(k,1075) * lu(k,1474) - lu(k,1490) = lu(k,1490) - lu(k,1076) * lu(k,1474) - lu(k,1491) = lu(k,1491) - lu(k,1077) * lu(k,1474) - lu(k,1492) = lu(k,1492) - lu(k,1078) * lu(k,1474) - lu(k,1517) = lu(k,1517) - lu(k,1061) * lu(k,1516) - lu(k,1518) = lu(k,1518) - lu(k,1062) * lu(k,1516) - lu(k,1519) = lu(k,1519) - lu(k,1063) * lu(k,1516) - lu(k,1520) = lu(k,1520) - lu(k,1064) * lu(k,1516) - lu(k,1521) = lu(k,1521) - lu(k,1065) * lu(k,1516) - lu(k,1522) = lu(k,1522) - lu(k,1066) * lu(k,1516) - lu(k,1523) = lu(k,1523) - lu(k,1067) * lu(k,1516) - lu(k,1524) = lu(k,1524) - lu(k,1068) * lu(k,1516) - lu(k,1525) = lu(k,1525) - lu(k,1069) * lu(k,1516) - lu(k,1526) = lu(k,1526) - lu(k,1070) * lu(k,1516) - lu(k,1527) = lu(k,1527) - lu(k,1071) * lu(k,1516) - lu(k,1528) = lu(k,1528) - lu(k,1072) * lu(k,1516) - lu(k,1529) = lu(k,1529) - lu(k,1073) * lu(k,1516) - lu(k,1530) = lu(k,1530) - lu(k,1074) * lu(k,1516) - lu(k,1531) = lu(k,1531) - lu(k,1075) * lu(k,1516) - lu(k,1532) = lu(k,1532) - lu(k,1076) * lu(k,1516) - lu(k,1533) = lu(k,1533) - lu(k,1077) * lu(k,1516) - lu(k,1534) = lu(k,1534) - lu(k,1078) * lu(k,1516) - lu(k,1558) = lu(k,1558) - lu(k,1061) * lu(k,1557) - lu(k,1559) = lu(k,1559) - lu(k,1062) * lu(k,1557) - lu(k,1560) = lu(k,1560) - lu(k,1063) * lu(k,1557) - lu(k,1561) = lu(k,1561) - lu(k,1064) * lu(k,1557) - lu(k,1562) = lu(k,1562) - lu(k,1065) * lu(k,1557) - lu(k,1563) = lu(k,1563) - lu(k,1066) * lu(k,1557) - lu(k,1564) = lu(k,1564) - lu(k,1067) * lu(k,1557) - lu(k,1565) = lu(k,1565) - lu(k,1068) * lu(k,1557) - lu(k,1566) = lu(k,1566) - lu(k,1069) * lu(k,1557) - lu(k,1567) = lu(k,1567) - lu(k,1070) * lu(k,1557) - lu(k,1568) = lu(k,1568) - lu(k,1071) * lu(k,1557) - lu(k,1569) = lu(k,1569) - lu(k,1072) * lu(k,1557) - lu(k,1570) = lu(k,1570) - lu(k,1073) * lu(k,1557) - lu(k,1571) = lu(k,1571) - lu(k,1074) * lu(k,1557) - lu(k,1572) = lu(k,1572) - lu(k,1075) * lu(k,1557) - lu(k,1573) = lu(k,1573) - lu(k,1076) * lu(k,1557) - lu(k,1574) = lu(k,1574) - lu(k,1077) * lu(k,1557) - lu(k,1575) = lu(k,1575) - lu(k,1078) * lu(k,1557) - lu(k,1615) = lu(k,1615) - lu(k,1061) * lu(k,1614) - lu(k,1616) = lu(k,1616) - lu(k,1062) * lu(k,1614) - lu(k,1617) = lu(k,1617) - lu(k,1063) * lu(k,1614) - lu(k,1618) = lu(k,1618) - lu(k,1064) * lu(k,1614) - lu(k,1619) = lu(k,1619) - lu(k,1065) * lu(k,1614) - lu(k,1620) = lu(k,1620) - lu(k,1066) * lu(k,1614) - lu(k,1621) = lu(k,1621) - lu(k,1067) * lu(k,1614) - lu(k,1622) = lu(k,1622) - lu(k,1068) * lu(k,1614) - lu(k,1623) = lu(k,1623) - lu(k,1069) * lu(k,1614) - lu(k,1624) = lu(k,1624) - lu(k,1070) * lu(k,1614) - lu(k,1625) = lu(k,1625) - lu(k,1071) * lu(k,1614) - lu(k,1626) = lu(k,1626) - lu(k,1072) * lu(k,1614) - lu(k,1627) = lu(k,1627) - lu(k,1073) * lu(k,1614) - lu(k,1628) = lu(k,1628) - lu(k,1074) * lu(k,1614) - lu(k,1629) = lu(k,1629) - lu(k,1075) * lu(k,1614) - lu(k,1630) = lu(k,1630) - lu(k,1076) * lu(k,1614) - lu(k,1631) = lu(k,1631) - lu(k,1077) * lu(k,1614) - lu(k,1632) = lu(k,1632) - lu(k,1078) * lu(k,1614) - lu(k,1644) = lu(k,1644) - lu(k,1061) * lu(k,1643) - lu(k,1645) = lu(k,1645) - lu(k,1062) * lu(k,1643) - lu(k,1646) = lu(k,1646) - lu(k,1063) * lu(k,1643) - lu(k,1647) = lu(k,1647) - lu(k,1064) * lu(k,1643) - lu(k,1648) = lu(k,1648) - lu(k,1065) * lu(k,1643) - lu(k,1649) = lu(k,1649) - lu(k,1066) * lu(k,1643) - lu(k,1650) = lu(k,1650) - lu(k,1067) * lu(k,1643) - lu(k,1651) = lu(k,1651) - lu(k,1068) * lu(k,1643) - lu(k,1652) = lu(k,1652) - lu(k,1069) * lu(k,1643) - lu(k,1653) = lu(k,1653) - lu(k,1070) * lu(k,1643) - lu(k,1654) = lu(k,1654) - lu(k,1071) * lu(k,1643) - lu(k,1655) = lu(k,1655) - lu(k,1072) * lu(k,1643) - lu(k,1656) = lu(k,1656) - lu(k,1073) * lu(k,1643) - lu(k,1657) = lu(k,1657) - lu(k,1074) * lu(k,1643) - lu(k,1658) = lu(k,1658) - lu(k,1075) * lu(k,1643) - lu(k,1659) = lu(k,1659) - lu(k,1076) * lu(k,1643) - lu(k,1660) = lu(k,1660) - lu(k,1077) * lu(k,1643) - lu(k,1661) = lu(k,1661) - lu(k,1078) * lu(k,1643) - lu(k,1676) = lu(k,1676) - lu(k,1061) * lu(k,1675) - lu(k,1677) = lu(k,1677) - lu(k,1062) * lu(k,1675) - lu(k,1678) = lu(k,1678) - lu(k,1063) * lu(k,1675) - lu(k,1679) = lu(k,1679) - lu(k,1064) * lu(k,1675) - lu(k,1680) = lu(k,1680) - lu(k,1065) * lu(k,1675) - lu(k,1681) = lu(k,1681) - lu(k,1066) * lu(k,1675) - lu(k,1682) = lu(k,1682) - lu(k,1067) * lu(k,1675) - lu(k,1683) = lu(k,1683) - lu(k,1068) * lu(k,1675) - lu(k,1684) = lu(k,1684) - lu(k,1069) * lu(k,1675) - lu(k,1685) = lu(k,1685) - lu(k,1070) * lu(k,1675) - lu(k,1686) = lu(k,1686) - lu(k,1071) * lu(k,1675) - lu(k,1687) = lu(k,1687) - lu(k,1072) * lu(k,1675) - lu(k,1688) = lu(k,1688) - lu(k,1073) * lu(k,1675) - lu(k,1689) = lu(k,1689) - lu(k,1074) * lu(k,1675) - lu(k,1690) = lu(k,1690) - lu(k,1075) * lu(k,1675) - lu(k,1691) = lu(k,1691) - lu(k,1076) * lu(k,1675) - lu(k,1692) = lu(k,1692) - lu(k,1077) * lu(k,1675) - lu(k,1693) = lu(k,1693) - lu(k,1078) * lu(k,1675) - lu(k,1711) = lu(k,1711) - lu(k,1061) * lu(k,1710) - lu(k,1712) = lu(k,1712) - lu(k,1062) * lu(k,1710) - lu(k,1713) = lu(k,1713) - lu(k,1063) * lu(k,1710) - lu(k,1714) = lu(k,1714) - lu(k,1064) * lu(k,1710) - lu(k,1715) = lu(k,1715) - lu(k,1065) * lu(k,1710) - lu(k,1716) = lu(k,1716) - lu(k,1066) * lu(k,1710) - lu(k,1717) = lu(k,1717) - lu(k,1067) * lu(k,1710) - lu(k,1718) = lu(k,1718) - lu(k,1068) * lu(k,1710) - lu(k,1719) = lu(k,1719) - lu(k,1069) * lu(k,1710) - lu(k,1720) = lu(k,1720) - lu(k,1070) * lu(k,1710) - lu(k,1721) = lu(k,1721) - lu(k,1071) * lu(k,1710) - lu(k,1722) = lu(k,1722) - lu(k,1072) * lu(k,1710) - lu(k,1723) = lu(k,1723) - lu(k,1073) * lu(k,1710) - lu(k,1724) = lu(k,1724) - lu(k,1074) * lu(k,1710) - lu(k,1725) = lu(k,1725) - lu(k,1075) * lu(k,1710) - lu(k,1726) = lu(k,1726) - lu(k,1076) * lu(k,1710) - lu(k,1727) = lu(k,1727) - lu(k,1077) * lu(k,1710) - lu(k,1728) = lu(k,1728) - lu(k,1078) * lu(k,1710) - lu(k,1753) = lu(k,1753) - lu(k,1061) * lu(k,1752) - lu(k,1754) = lu(k,1754) - lu(k,1062) * lu(k,1752) - lu(k,1755) = lu(k,1755) - lu(k,1063) * lu(k,1752) - lu(k,1756) = lu(k,1756) - lu(k,1064) * lu(k,1752) - lu(k,1757) = lu(k,1757) - lu(k,1065) * lu(k,1752) - lu(k,1758) = lu(k,1758) - lu(k,1066) * lu(k,1752) - lu(k,1759) = lu(k,1759) - lu(k,1067) * lu(k,1752) - lu(k,1760) = lu(k,1760) - lu(k,1068) * lu(k,1752) - lu(k,1761) = lu(k,1761) - lu(k,1069) * lu(k,1752) - lu(k,1762) = lu(k,1762) - lu(k,1070) * lu(k,1752) - lu(k,1763) = lu(k,1763) - lu(k,1071) * lu(k,1752) - lu(k,1764) = lu(k,1764) - lu(k,1072) * lu(k,1752) - lu(k,1765) = lu(k,1765) - lu(k,1073) * lu(k,1752) - lu(k,1766) = lu(k,1766) - lu(k,1074) * lu(k,1752) - lu(k,1767) = lu(k,1767) - lu(k,1075) * lu(k,1752) - lu(k,1768) = lu(k,1768) - lu(k,1076) * lu(k,1752) - lu(k,1769) = lu(k,1769) - lu(k,1077) * lu(k,1752) - lu(k,1770) = lu(k,1770) - lu(k,1078) * lu(k,1752) - lu(k,1811) = lu(k,1811) - lu(k,1061) * lu(k,1810) - lu(k,1812) = lu(k,1812) - lu(k,1062) * lu(k,1810) - lu(k,1813) = lu(k,1813) - lu(k,1063) * lu(k,1810) - lu(k,1814) = lu(k,1814) - lu(k,1064) * lu(k,1810) - lu(k,1815) = lu(k,1815) - lu(k,1065) * lu(k,1810) - lu(k,1816) = lu(k,1816) - lu(k,1066) * lu(k,1810) - lu(k,1817) = lu(k,1817) - lu(k,1067) * lu(k,1810) - lu(k,1818) = lu(k,1818) - lu(k,1068) * lu(k,1810) - lu(k,1819) = lu(k,1819) - lu(k,1069) * lu(k,1810) - lu(k,1820) = lu(k,1820) - lu(k,1070) * lu(k,1810) - lu(k,1821) = lu(k,1821) - lu(k,1071) * lu(k,1810) - lu(k,1822) = lu(k,1822) - lu(k,1072) * lu(k,1810) - lu(k,1823) = lu(k,1823) - lu(k,1073) * lu(k,1810) - lu(k,1824) = lu(k,1824) - lu(k,1074) * lu(k,1810) - lu(k,1825) = lu(k,1825) - lu(k,1075) * lu(k,1810) - lu(k,1826) = lu(k,1826) - lu(k,1076) * lu(k,1810) - lu(k,1827) = lu(k,1827) - lu(k,1077) * lu(k,1810) - lu(k,1828) = lu(k,1828) - lu(k,1078) * lu(k,1810) - 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,1105) = 1._r8 / lu(k,1105) - lu(k,1106) = lu(k,1106) * lu(k,1105) - lu(k,1107) = lu(k,1107) * lu(k,1105) - lu(k,1108) = lu(k,1108) * lu(k,1105) - lu(k,1109) = lu(k,1109) * lu(k,1105) - lu(k,1110) = lu(k,1110) * lu(k,1105) - lu(k,1111) = lu(k,1111) * lu(k,1105) - lu(k,1112) = lu(k,1112) * lu(k,1105) - lu(k,1113) = lu(k,1113) * lu(k,1105) - lu(k,1114) = lu(k,1114) * lu(k,1105) - lu(k,1115) = lu(k,1115) * lu(k,1105) - lu(k,1116) = lu(k,1116) * lu(k,1105) - lu(k,1117) = lu(k,1117) * lu(k,1105) - lu(k,1118) = lu(k,1118) * lu(k,1105) - lu(k,1119) = lu(k,1119) * lu(k,1105) - lu(k,1120) = lu(k,1120) * lu(k,1105) - lu(k,1121) = lu(k,1121) * lu(k,1105) - lu(k,1122) = lu(k,1122) * lu(k,1105) - lu(k,1147) = lu(k,1147) - lu(k,1106) * lu(k,1146) - lu(k,1148) = lu(k,1148) - lu(k,1107) * lu(k,1146) - lu(k,1149) = lu(k,1149) - lu(k,1108) * lu(k,1146) - lu(k,1150) = lu(k,1150) - lu(k,1109) * lu(k,1146) - lu(k,1151) = lu(k,1151) - lu(k,1110) * lu(k,1146) - lu(k,1152) = lu(k,1152) - lu(k,1111) * lu(k,1146) - lu(k,1153) = lu(k,1153) - lu(k,1112) * lu(k,1146) - lu(k,1154) = lu(k,1154) - lu(k,1113) * lu(k,1146) - lu(k,1155) = lu(k,1155) - lu(k,1114) * lu(k,1146) - lu(k,1156) = lu(k,1156) - lu(k,1115) * lu(k,1146) - lu(k,1157) = lu(k,1157) - lu(k,1116) * lu(k,1146) - lu(k,1158) = lu(k,1158) - lu(k,1117) * lu(k,1146) - lu(k,1159) = lu(k,1159) - lu(k,1118) * lu(k,1146) - lu(k,1160) = lu(k,1160) - lu(k,1119) * lu(k,1146) - lu(k,1161) = lu(k,1161) - lu(k,1120) * lu(k,1146) - lu(k,1162) = lu(k,1162) - lu(k,1121) * lu(k,1146) - lu(k,1163) = lu(k,1163) - lu(k,1122) * lu(k,1146) - lu(k,1186) = lu(k,1186) - lu(k,1106) * lu(k,1185) - lu(k,1187) = lu(k,1187) - lu(k,1107) * lu(k,1185) - lu(k,1188) = lu(k,1188) - lu(k,1108) * lu(k,1185) - lu(k,1189) = lu(k,1189) - lu(k,1109) * lu(k,1185) - lu(k,1190) = lu(k,1190) - lu(k,1110) * lu(k,1185) - lu(k,1191) = lu(k,1191) - lu(k,1111) * lu(k,1185) - lu(k,1192) = lu(k,1192) - lu(k,1112) * lu(k,1185) - lu(k,1193) = lu(k,1193) - lu(k,1113) * lu(k,1185) - lu(k,1194) = lu(k,1194) - lu(k,1114) * lu(k,1185) - lu(k,1195) = lu(k,1195) - lu(k,1115) * lu(k,1185) - lu(k,1196) = lu(k,1196) - lu(k,1116) * lu(k,1185) - lu(k,1197) = lu(k,1197) - lu(k,1117) * lu(k,1185) - lu(k,1198) = lu(k,1198) - lu(k,1118) * lu(k,1185) - lu(k,1199) = lu(k,1199) - lu(k,1119) * lu(k,1185) - lu(k,1200) = lu(k,1200) - lu(k,1120) * lu(k,1185) - lu(k,1201) = lu(k,1201) - lu(k,1121) * lu(k,1185) - lu(k,1202) = lu(k,1202) - lu(k,1122) * lu(k,1185) - lu(k,1221) = lu(k,1221) - lu(k,1106) * lu(k,1220) - lu(k,1222) = lu(k,1222) - lu(k,1107) * lu(k,1220) - lu(k,1223) = lu(k,1223) - lu(k,1108) * lu(k,1220) - lu(k,1224) = lu(k,1224) - lu(k,1109) * lu(k,1220) - lu(k,1225) = lu(k,1225) - lu(k,1110) * lu(k,1220) - lu(k,1226) = lu(k,1226) - lu(k,1111) * lu(k,1220) - lu(k,1227) = lu(k,1227) - lu(k,1112) * lu(k,1220) - lu(k,1228) = lu(k,1228) - lu(k,1113) * lu(k,1220) - lu(k,1229) = lu(k,1229) - lu(k,1114) * lu(k,1220) - lu(k,1230) = lu(k,1230) - lu(k,1115) * lu(k,1220) - lu(k,1231) = lu(k,1231) - lu(k,1116) * lu(k,1220) - lu(k,1232) = lu(k,1232) - lu(k,1117) * lu(k,1220) - lu(k,1233) = lu(k,1233) - lu(k,1118) * lu(k,1220) - lu(k,1234) = lu(k,1234) - lu(k,1119) * lu(k,1220) - lu(k,1235) = lu(k,1235) - lu(k,1120) * lu(k,1220) - lu(k,1236) = lu(k,1236) - lu(k,1121) * lu(k,1220) - lu(k,1237) = lu(k,1237) - lu(k,1122) * lu(k,1220) - lu(k,1268) = lu(k,1268) - lu(k,1106) * lu(k,1267) - lu(k,1269) = lu(k,1269) - lu(k,1107) * lu(k,1267) - lu(k,1270) = lu(k,1270) - lu(k,1108) * lu(k,1267) - lu(k,1271) = lu(k,1271) - lu(k,1109) * lu(k,1267) - lu(k,1272) = lu(k,1272) - lu(k,1110) * lu(k,1267) - lu(k,1273) = lu(k,1273) - lu(k,1111) * lu(k,1267) - lu(k,1274) = lu(k,1274) - lu(k,1112) * lu(k,1267) - lu(k,1275) = lu(k,1275) - lu(k,1113) * lu(k,1267) - lu(k,1276) = lu(k,1276) - lu(k,1114) * lu(k,1267) - lu(k,1277) = lu(k,1277) - lu(k,1115) * lu(k,1267) - lu(k,1278) = lu(k,1278) - lu(k,1116) * lu(k,1267) - lu(k,1279) = lu(k,1279) - lu(k,1117) * lu(k,1267) - lu(k,1280) = lu(k,1280) - lu(k,1118) * lu(k,1267) - lu(k,1281) = lu(k,1281) - lu(k,1119) * lu(k,1267) - lu(k,1282) = lu(k,1282) - lu(k,1120) * lu(k,1267) - lu(k,1283) = lu(k,1283) - lu(k,1121) * lu(k,1267) - lu(k,1284) = lu(k,1284) - lu(k,1122) * lu(k,1267) - lu(k,1312) = lu(k,1312) - lu(k,1106) * lu(k,1311) - lu(k,1313) = lu(k,1313) - lu(k,1107) * lu(k,1311) - lu(k,1314) = lu(k,1314) - lu(k,1108) * lu(k,1311) - lu(k,1315) = lu(k,1315) - lu(k,1109) * lu(k,1311) - lu(k,1316) = lu(k,1316) - lu(k,1110) * lu(k,1311) - lu(k,1317) = lu(k,1317) - lu(k,1111) * lu(k,1311) - lu(k,1318) = lu(k,1318) - lu(k,1112) * lu(k,1311) - lu(k,1319) = lu(k,1319) - lu(k,1113) * lu(k,1311) - lu(k,1320) = lu(k,1320) - lu(k,1114) * lu(k,1311) - lu(k,1321) = lu(k,1321) - lu(k,1115) * lu(k,1311) - lu(k,1322) = lu(k,1322) - lu(k,1116) * lu(k,1311) - lu(k,1323) = lu(k,1323) - lu(k,1117) * lu(k,1311) - lu(k,1324) = lu(k,1324) - lu(k,1118) * lu(k,1311) - lu(k,1325) = lu(k,1325) - lu(k,1119) * lu(k,1311) - lu(k,1326) = lu(k,1326) - lu(k,1120) * lu(k,1311) - lu(k,1327) = lu(k,1327) - lu(k,1121) * lu(k,1311) - lu(k,1328) = lu(k,1328) - lu(k,1122) * lu(k,1311) - lu(k,1351) = lu(k,1351) - lu(k,1106) * lu(k,1350) - lu(k,1352) = lu(k,1352) - lu(k,1107) * lu(k,1350) - lu(k,1353) = lu(k,1353) - lu(k,1108) * lu(k,1350) - lu(k,1354) = lu(k,1354) - lu(k,1109) * lu(k,1350) - lu(k,1355) = lu(k,1355) - lu(k,1110) * lu(k,1350) - lu(k,1356) = lu(k,1356) - lu(k,1111) * lu(k,1350) - lu(k,1357) = lu(k,1357) - lu(k,1112) * lu(k,1350) - lu(k,1358) = lu(k,1358) - lu(k,1113) * lu(k,1350) - lu(k,1359) = lu(k,1359) - lu(k,1114) * lu(k,1350) - lu(k,1360) = lu(k,1360) - lu(k,1115) * lu(k,1350) - lu(k,1361) = lu(k,1361) - lu(k,1116) * lu(k,1350) - lu(k,1362) = lu(k,1362) - lu(k,1117) * lu(k,1350) - lu(k,1363) = lu(k,1363) - lu(k,1118) * lu(k,1350) - lu(k,1364) = lu(k,1364) - lu(k,1119) * lu(k,1350) - lu(k,1365) = lu(k,1365) - lu(k,1120) * lu(k,1350) - lu(k,1366) = lu(k,1366) - lu(k,1121) * lu(k,1350) - lu(k,1367) = lu(k,1367) - lu(k,1122) * lu(k,1350) - lu(k,1386) = lu(k,1386) - lu(k,1106) * lu(k,1385) - lu(k,1387) = lu(k,1387) - lu(k,1107) * lu(k,1385) - lu(k,1388) = lu(k,1388) - lu(k,1108) * lu(k,1385) - lu(k,1389) = lu(k,1389) - lu(k,1109) * lu(k,1385) - lu(k,1390) = lu(k,1390) - lu(k,1110) * lu(k,1385) - lu(k,1391) = lu(k,1391) - lu(k,1111) * lu(k,1385) - lu(k,1392) = lu(k,1392) - lu(k,1112) * lu(k,1385) - lu(k,1393) = lu(k,1393) - lu(k,1113) * lu(k,1385) - lu(k,1394) = lu(k,1394) - lu(k,1114) * lu(k,1385) - lu(k,1395) = lu(k,1395) - lu(k,1115) * lu(k,1385) - lu(k,1396) = lu(k,1396) - lu(k,1116) * lu(k,1385) - lu(k,1397) = lu(k,1397) - lu(k,1117) * lu(k,1385) - lu(k,1398) = lu(k,1398) - lu(k,1118) * lu(k,1385) - lu(k,1399) = lu(k,1399) - lu(k,1119) * lu(k,1385) - lu(k,1400) = lu(k,1400) - lu(k,1120) * lu(k,1385) - lu(k,1401) = lu(k,1401) - lu(k,1121) * lu(k,1385) - lu(k,1402) = lu(k,1402) - lu(k,1122) * lu(k,1385) - lu(k,1430) = lu(k,1430) - lu(k,1106) * lu(k,1429) - lu(k,1431) = lu(k,1431) - lu(k,1107) * lu(k,1429) - lu(k,1432) = lu(k,1432) - lu(k,1108) * lu(k,1429) - lu(k,1433) = lu(k,1433) - lu(k,1109) * lu(k,1429) - lu(k,1434) = lu(k,1434) - lu(k,1110) * lu(k,1429) - lu(k,1435) = lu(k,1435) - lu(k,1111) * lu(k,1429) - lu(k,1436) = lu(k,1436) - lu(k,1112) * lu(k,1429) - lu(k,1437) = lu(k,1437) - lu(k,1113) * lu(k,1429) - lu(k,1438) = lu(k,1438) - lu(k,1114) * lu(k,1429) - lu(k,1439) = lu(k,1439) - lu(k,1115) * lu(k,1429) - lu(k,1440) = lu(k,1440) - lu(k,1116) * lu(k,1429) - lu(k,1441) = lu(k,1441) - lu(k,1117) * lu(k,1429) - lu(k,1442) = lu(k,1442) - lu(k,1118) * lu(k,1429) - lu(k,1443) = lu(k,1443) - lu(k,1119) * lu(k,1429) - lu(k,1444) = lu(k,1444) - lu(k,1120) * lu(k,1429) - lu(k,1445) = lu(k,1445) - lu(k,1121) * lu(k,1429) - lu(k,1446) = lu(k,1446) - lu(k,1122) * lu(k,1429) - lu(k,1476) = lu(k,1476) - lu(k,1106) * lu(k,1475) - lu(k,1477) = lu(k,1477) - lu(k,1107) * lu(k,1475) - lu(k,1478) = lu(k,1478) - lu(k,1108) * lu(k,1475) - lu(k,1479) = lu(k,1479) - lu(k,1109) * lu(k,1475) - lu(k,1480) = lu(k,1480) - lu(k,1110) * lu(k,1475) - lu(k,1481) = lu(k,1481) - lu(k,1111) * lu(k,1475) - lu(k,1482) = lu(k,1482) - lu(k,1112) * lu(k,1475) - lu(k,1483) = lu(k,1483) - lu(k,1113) * lu(k,1475) - lu(k,1484) = lu(k,1484) - lu(k,1114) * lu(k,1475) - lu(k,1485) = lu(k,1485) - lu(k,1115) * lu(k,1475) - lu(k,1486) = lu(k,1486) - lu(k,1116) * lu(k,1475) - lu(k,1487) = lu(k,1487) - lu(k,1117) * lu(k,1475) - lu(k,1488) = lu(k,1488) - lu(k,1118) * lu(k,1475) - lu(k,1489) = lu(k,1489) - lu(k,1119) * lu(k,1475) - lu(k,1490) = lu(k,1490) - lu(k,1120) * lu(k,1475) - lu(k,1491) = lu(k,1491) - lu(k,1121) * lu(k,1475) - lu(k,1492) = lu(k,1492) - lu(k,1122) * lu(k,1475) - lu(k,1518) = lu(k,1518) - lu(k,1106) * lu(k,1517) - lu(k,1519) = lu(k,1519) - lu(k,1107) * lu(k,1517) - lu(k,1520) = lu(k,1520) - lu(k,1108) * lu(k,1517) - lu(k,1521) = lu(k,1521) - lu(k,1109) * lu(k,1517) - lu(k,1522) = lu(k,1522) - lu(k,1110) * lu(k,1517) - lu(k,1523) = lu(k,1523) - lu(k,1111) * lu(k,1517) - lu(k,1524) = lu(k,1524) - lu(k,1112) * lu(k,1517) - lu(k,1525) = lu(k,1525) - lu(k,1113) * lu(k,1517) - lu(k,1526) = lu(k,1526) - lu(k,1114) * lu(k,1517) - lu(k,1527) = lu(k,1527) - lu(k,1115) * lu(k,1517) - lu(k,1528) = lu(k,1528) - lu(k,1116) * lu(k,1517) - lu(k,1529) = lu(k,1529) - lu(k,1117) * lu(k,1517) - lu(k,1530) = lu(k,1530) - lu(k,1118) * lu(k,1517) - lu(k,1531) = lu(k,1531) - lu(k,1119) * lu(k,1517) - lu(k,1532) = lu(k,1532) - lu(k,1120) * lu(k,1517) - lu(k,1533) = lu(k,1533) - lu(k,1121) * lu(k,1517) - lu(k,1534) = lu(k,1534) - lu(k,1122) * lu(k,1517) - lu(k,1559) = lu(k,1559) - lu(k,1106) * lu(k,1558) - lu(k,1560) = lu(k,1560) - lu(k,1107) * lu(k,1558) - lu(k,1561) = lu(k,1561) - lu(k,1108) * lu(k,1558) - lu(k,1562) = lu(k,1562) - lu(k,1109) * lu(k,1558) - lu(k,1563) = lu(k,1563) - lu(k,1110) * lu(k,1558) - lu(k,1564) = lu(k,1564) - lu(k,1111) * lu(k,1558) - lu(k,1565) = lu(k,1565) - lu(k,1112) * lu(k,1558) - lu(k,1566) = lu(k,1566) - lu(k,1113) * lu(k,1558) - lu(k,1567) = lu(k,1567) - lu(k,1114) * lu(k,1558) - lu(k,1568) = lu(k,1568) - lu(k,1115) * lu(k,1558) - lu(k,1569) = lu(k,1569) - lu(k,1116) * lu(k,1558) - lu(k,1570) = lu(k,1570) - lu(k,1117) * lu(k,1558) - lu(k,1571) = lu(k,1571) - lu(k,1118) * lu(k,1558) - lu(k,1572) = lu(k,1572) - lu(k,1119) * lu(k,1558) - lu(k,1573) = lu(k,1573) - lu(k,1120) * lu(k,1558) - lu(k,1574) = lu(k,1574) - lu(k,1121) * lu(k,1558) - lu(k,1575) = lu(k,1575) - lu(k,1122) * lu(k,1558) - lu(k,1616) = lu(k,1616) - lu(k,1106) * lu(k,1615) - lu(k,1617) = lu(k,1617) - lu(k,1107) * lu(k,1615) - lu(k,1618) = lu(k,1618) - lu(k,1108) * lu(k,1615) - lu(k,1619) = lu(k,1619) - lu(k,1109) * lu(k,1615) - lu(k,1620) = lu(k,1620) - lu(k,1110) * lu(k,1615) - lu(k,1621) = lu(k,1621) - lu(k,1111) * lu(k,1615) - lu(k,1622) = lu(k,1622) - lu(k,1112) * lu(k,1615) - lu(k,1623) = lu(k,1623) - lu(k,1113) * lu(k,1615) - lu(k,1624) = lu(k,1624) - lu(k,1114) * lu(k,1615) - lu(k,1625) = lu(k,1625) - lu(k,1115) * lu(k,1615) - lu(k,1626) = lu(k,1626) - lu(k,1116) * lu(k,1615) - lu(k,1627) = lu(k,1627) - lu(k,1117) * lu(k,1615) - lu(k,1628) = lu(k,1628) - lu(k,1118) * lu(k,1615) - lu(k,1629) = lu(k,1629) - lu(k,1119) * lu(k,1615) - lu(k,1630) = lu(k,1630) - lu(k,1120) * lu(k,1615) - lu(k,1631) = lu(k,1631) - lu(k,1121) * lu(k,1615) - lu(k,1632) = lu(k,1632) - lu(k,1122) * lu(k,1615) - lu(k,1645) = lu(k,1645) - lu(k,1106) * lu(k,1644) - lu(k,1646) = lu(k,1646) - lu(k,1107) * lu(k,1644) - lu(k,1647) = lu(k,1647) - lu(k,1108) * lu(k,1644) - lu(k,1648) = lu(k,1648) - lu(k,1109) * lu(k,1644) - lu(k,1649) = lu(k,1649) - lu(k,1110) * lu(k,1644) - lu(k,1650) = lu(k,1650) - lu(k,1111) * lu(k,1644) - lu(k,1651) = lu(k,1651) - lu(k,1112) * lu(k,1644) - lu(k,1652) = lu(k,1652) - lu(k,1113) * lu(k,1644) - lu(k,1653) = lu(k,1653) - lu(k,1114) * lu(k,1644) - lu(k,1654) = lu(k,1654) - lu(k,1115) * lu(k,1644) - lu(k,1655) = lu(k,1655) - lu(k,1116) * lu(k,1644) - lu(k,1656) = lu(k,1656) - lu(k,1117) * lu(k,1644) - lu(k,1657) = lu(k,1657) - lu(k,1118) * lu(k,1644) - lu(k,1658) = lu(k,1658) - lu(k,1119) * lu(k,1644) - lu(k,1659) = lu(k,1659) - lu(k,1120) * lu(k,1644) - lu(k,1660) = lu(k,1660) - lu(k,1121) * lu(k,1644) - lu(k,1661) = lu(k,1661) - lu(k,1122) * lu(k,1644) - lu(k,1677) = lu(k,1677) - lu(k,1106) * lu(k,1676) - lu(k,1678) = lu(k,1678) - lu(k,1107) * lu(k,1676) - lu(k,1679) = lu(k,1679) - lu(k,1108) * lu(k,1676) - lu(k,1680) = lu(k,1680) - lu(k,1109) * lu(k,1676) - lu(k,1681) = lu(k,1681) - lu(k,1110) * lu(k,1676) - lu(k,1682) = lu(k,1682) - lu(k,1111) * lu(k,1676) - lu(k,1683) = lu(k,1683) - lu(k,1112) * lu(k,1676) - lu(k,1684) = lu(k,1684) - lu(k,1113) * lu(k,1676) - lu(k,1685) = lu(k,1685) - lu(k,1114) * lu(k,1676) - lu(k,1686) = lu(k,1686) - lu(k,1115) * lu(k,1676) - lu(k,1687) = lu(k,1687) - lu(k,1116) * lu(k,1676) - lu(k,1688) = lu(k,1688) - lu(k,1117) * lu(k,1676) - lu(k,1689) = lu(k,1689) - lu(k,1118) * lu(k,1676) - lu(k,1690) = lu(k,1690) - lu(k,1119) * lu(k,1676) - lu(k,1691) = lu(k,1691) - lu(k,1120) * lu(k,1676) - lu(k,1692) = lu(k,1692) - lu(k,1121) * lu(k,1676) - lu(k,1693) = lu(k,1693) - lu(k,1122) * lu(k,1676) - lu(k,1712) = lu(k,1712) - lu(k,1106) * lu(k,1711) - lu(k,1713) = lu(k,1713) - lu(k,1107) * lu(k,1711) - lu(k,1714) = lu(k,1714) - lu(k,1108) * lu(k,1711) - lu(k,1715) = lu(k,1715) - lu(k,1109) * lu(k,1711) - lu(k,1716) = lu(k,1716) - lu(k,1110) * lu(k,1711) - lu(k,1717) = lu(k,1717) - lu(k,1111) * lu(k,1711) - lu(k,1718) = lu(k,1718) - lu(k,1112) * lu(k,1711) - lu(k,1719) = lu(k,1719) - lu(k,1113) * lu(k,1711) - lu(k,1720) = lu(k,1720) - lu(k,1114) * lu(k,1711) - lu(k,1721) = lu(k,1721) - lu(k,1115) * lu(k,1711) - lu(k,1722) = lu(k,1722) - lu(k,1116) * lu(k,1711) - lu(k,1723) = lu(k,1723) - lu(k,1117) * lu(k,1711) - lu(k,1724) = lu(k,1724) - lu(k,1118) * lu(k,1711) - lu(k,1725) = lu(k,1725) - lu(k,1119) * lu(k,1711) - lu(k,1726) = lu(k,1726) - lu(k,1120) * lu(k,1711) - lu(k,1727) = lu(k,1727) - lu(k,1121) * lu(k,1711) - lu(k,1728) = lu(k,1728) - lu(k,1122) * lu(k,1711) - lu(k,1754) = lu(k,1754) - lu(k,1106) * lu(k,1753) - lu(k,1755) = lu(k,1755) - lu(k,1107) * lu(k,1753) - lu(k,1756) = lu(k,1756) - lu(k,1108) * lu(k,1753) - lu(k,1757) = lu(k,1757) - lu(k,1109) * lu(k,1753) - lu(k,1758) = lu(k,1758) - lu(k,1110) * lu(k,1753) - lu(k,1759) = lu(k,1759) - lu(k,1111) * lu(k,1753) - lu(k,1760) = lu(k,1760) - lu(k,1112) * lu(k,1753) - lu(k,1761) = lu(k,1761) - lu(k,1113) * lu(k,1753) - lu(k,1762) = lu(k,1762) - lu(k,1114) * lu(k,1753) - lu(k,1763) = lu(k,1763) - lu(k,1115) * lu(k,1753) - lu(k,1764) = lu(k,1764) - lu(k,1116) * lu(k,1753) - lu(k,1765) = lu(k,1765) - lu(k,1117) * lu(k,1753) - lu(k,1766) = lu(k,1766) - lu(k,1118) * lu(k,1753) - lu(k,1767) = lu(k,1767) - lu(k,1119) * lu(k,1753) - lu(k,1768) = lu(k,1768) - lu(k,1120) * lu(k,1753) - lu(k,1769) = lu(k,1769) - lu(k,1121) * lu(k,1753) - lu(k,1770) = lu(k,1770) - lu(k,1122) * lu(k,1753) - lu(k,1812) = lu(k,1812) - lu(k,1106) * lu(k,1811) - lu(k,1813) = lu(k,1813) - lu(k,1107) * lu(k,1811) - lu(k,1814) = lu(k,1814) - lu(k,1108) * lu(k,1811) - lu(k,1815) = lu(k,1815) - lu(k,1109) * lu(k,1811) - lu(k,1816) = lu(k,1816) - lu(k,1110) * lu(k,1811) - lu(k,1817) = lu(k,1817) - lu(k,1111) * lu(k,1811) - lu(k,1818) = lu(k,1818) - lu(k,1112) * lu(k,1811) - lu(k,1819) = lu(k,1819) - lu(k,1113) * lu(k,1811) - lu(k,1820) = lu(k,1820) - lu(k,1114) * lu(k,1811) - lu(k,1821) = lu(k,1821) - lu(k,1115) * lu(k,1811) - lu(k,1822) = lu(k,1822) - lu(k,1116) * lu(k,1811) - lu(k,1823) = lu(k,1823) - lu(k,1117) * lu(k,1811) - lu(k,1824) = lu(k,1824) - lu(k,1118) * lu(k,1811) - lu(k,1825) = lu(k,1825) - lu(k,1119) * lu(k,1811) - lu(k,1826) = lu(k,1826) - lu(k,1120) * lu(k,1811) - lu(k,1827) = lu(k,1827) - lu(k,1121) * lu(k,1811) - lu(k,1828) = lu(k,1828) - lu(k,1122) * lu(k,1811) - lu(k,1147) = 1._r8 / lu(k,1147) - lu(k,1148) = lu(k,1148) * lu(k,1147) - lu(k,1149) = lu(k,1149) * lu(k,1147) - lu(k,1150) = lu(k,1150) * lu(k,1147) - lu(k,1151) = lu(k,1151) * lu(k,1147) - lu(k,1152) = lu(k,1152) * lu(k,1147) - lu(k,1153) = lu(k,1153) * lu(k,1147) - lu(k,1154) = lu(k,1154) * lu(k,1147) - lu(k,1155) = lu(k,1155) * lu(k,1147) - lu(k,1156) = lu(k,1156) * lu(k,1147) - lu(k,1157) = lu(k,1157) * lu(k,1147) - lu(k,1158) = lu(k,1158) * lu(k,1147) - lu(k,1159) = lu(k,1159) * lu(k,1147) - lu(k,1160) = lu(k,1160) * lu(k,1147) - lu(k,1161) = lu(k,1161) * lu(k,1147) - lu(k,1162) = lu(k,1162) * lu(k,1147) - lu(k,1163) = lu(k,1163) * lu(k,1147) - lu(k,1187) = lu(k,1187) - lu(k,1148) * lu(k,1186) - lu(k,1188) = lu(k,1188) - lu(k,1149) * lu(k,1186) - lu(k,1189) = lu(k,1189) - lu(k,1150) * lu(k,1186) - lu(k,1190) = lu(k,1190) - lu(k,1151) * lu(k,1186) - lu(k,1191) = lu(k,1191) - lu(k,1152) * lu(k,1186) - lu(k,1192) = lu(k,1192) - lu(k,1153) * lu(k,1186) - lu(k,1193) = lu(k,1193) - lu(k,1154) * lu(k,1186) - lu(k,1194) = lu(k,1194) - lu(k,1155) * lu(k,1186) - lu(k,1195) = lu(k,1195) - lu(k,1156) * lu(k,1186) - lu(k,1196) = lu(k,1196) - lu(k,1157) * lu(k,1186) - lu(k,1197) = lu(k,1197) - lu(k,1158) * lu(k,1186) - lu(k,1198) = lu(k,1198) - lu(k,1159) * lu(k,1186) - lu(k,1199) = lu(k,1199) - lu(k,1160) * lu(k,1186) - lu(k,1200) = lu(k,1200) - lu(k,1161) * lu(k,1186) - lu(k,1201) = lu(k,1201) - lu(k,1162) * lu(k,1186) - lu(k,1202) = lu(k,1202) - lu(k,1163) * lu(k,1186) - lu(k,1222) = lu(k,1222) - lu(k,1148) * lu(k,1221) - lu(k,1223) = lu(k,1223) - lu(k,1149) * lu(k,1221) - lu(k,1224) = lu(k,1224) - lu(k,1150) * lu(k,1221) - lu(k,1225) = lu(k,1225) - lu(k,1151) * lu(k,1221) - lu(k,1226) = lu(k,1226) - lu(k,1152) * lu(k,1221) - lu(k,1227) = lu(k,1227) - lu(k,1153) * lu(k,1221) - lu(k,1228) = lu(k,1228) - lu(k,1154) * lu(k,1221) - lu(k,1229) = lu(k,1229) - lu(k,1155) * lu(k,1221) - lu(k,1230) = lu(k,1230) - lu(k,1156) * lu(k,1221) - lu(k,1231) = lu(k,1231) - lu(k,1157) * lu(k,1221) - lu(k,1232) = lu(k,1232) - lu(k,1158) * lu(k,1221) - lu(k,1233) = lu(k,1233) - lu(k,1159) * lu(k,1221) - lu(k,1234) = lu(k,1234) - lu(k,1160) * lu(k,1221) - lu(k,1235) = lu(k,1235) - lu(k,1161) * lu(k,1221) - lu(k,1236) = lu(k,1236) - lu(k,1162) * lu(k,1221) - lu(k,1237) = lu(k,1237) - lu(k,1163) * lu(k,1221) - lu(k,1269) = lu(k,1269) - lu(k,1148) * lu(k,1268) - lu(k,1270) = lu(k,1270) - lu(k,1149) * lu(k,1268) - lu(k,1271) = lu(k,1271) - lu(k,1150) * lu(k,1268) - lu(k,1272) = lu(k,1272) - lu(k,1151) * lu(k,1268) - lu(k,1273) = lu(k,1273) - lu(k,1152) * lu(k,1268) - lu(k,1274) = lu(k,1274) - lu(k,1153) * lu(k,1268) - lu(k,1275) = lu(k,1275) - lu(k,1154) * lu(k,1268) - lu(k,1276) = lu(k,1276) - lu(k,1155) * lu(k,1268) - lu(k,1277) = lu(k,1277) - lu(k,1156) * lu(k,1268) - lu(k,1278) = lu(k,1278) - lu(k,1157) * lu(k,1268) - lu(k,1279) = lu(k,1279) - lu(k,1158) * lu(k,1268) - lu(k,1280) = lu(k,1280) - lu(k,1159) * lu(k,1268) - lu(k,1281) = lu(k,1281) - lu(k,1160) * lu(k,1268) - lu(k,1282) = lu(k,1282) - lu(k,1161) * lu(k,1268) - lu(k,1283) = lu(k,1283) - lu(k,1162) * lu(k,1268) - lu(k,1284) = lu(k,1284) - lu(k,1163) * lu(k,1268) - lu(k,1313) = lu(k,1313) - lu(k,1148) * lu(k,1312) - lu(k,1314) = lu(k,1314) - lu(k,1149) * lu(k,1312) - lu(k,1315) = lu(k,1315) - lu(k,1150) * lu(k,1312) - lu(k,1316) = lu(k,1316) - lu(k,1151) * lu(k,1312) - lu(k,1317) = lu(k,1317) - lu(k,1152) * lu(k,1312) - lu(k,1318) = lu(k,1318) - lu(k,1153) * lu(k,1312) - lu(k,1319) = lu(k,1319) - lu(k,1154) * lu(k,1312) - lu(k,1320) = lu(k,1320) - lu(k,1155) * lu(k,1312) - lu(k,1321) = lu(k,1321) - lu(k,1156) * lu(k,1312) - lu(k,1322) = lu(k,1322) - lu(k,1157) * lu(k,1312) - lu(k,1323) = lu(k,1323) - lu(k,1158) * lu(k,1312) - lu(k,1324) = lu(k,1324) - lu(k,1159) * lu(k,1312) - lu(k,1325) = lu(k,1325) - lu(k,1160) * lu(k,1312) - lu(k,1326) = lu(k,1326) - lu(k,1161) * lu(k,1312) - lu(k,1327) = lu(k,1327) - lu(k,1162) * lu(k,1312) - lu(k,1328) = lu(k,1328) - lu(k,1163) * lu(k,1312) - lu(k,1352) = lu(k,1352) - lu(k,1148) * lu(k,1351) - lu(k,1353) = lu(k,1353) - lu(k,1149) * lu(k,1351) - lu(k,1354) = lu(k,1354) - lu(k,1150) * lu(k,1351) - lu(k,1355) = lu(k,1355) - lu(k,1151) * lu(k,1351) - lu(k,1356) = lu(k,1356) - lu(k,1152) * lu(k,1351) - lu(k,1357) = lu(k,1357) - lu(k,1153) * lu(k,1351) - lu(k,1358) = lu(k,1358) - lu(k,1154) * lu(k,1351) - lu(k,1359) = lu(k,1359) - lu(k,1155) * lu(k,1351) - lu(k,1360) = lu(k,1360) - lu(k,1156) * lu(k,1351) - lu(k,1361) = lu(k,1361) - lu(k,1157) * lu(k,1351) - lu(k,1362) = lu(k,1362) - lu(k,1158) * lu(k,1351) - lu(k,1363) = lu(k,1363) - lu(k,1159) * lu(k,1351) - lu(k,1364) = lu(k,1364) - lu(k,1160) * lu(k,1351) - lu(k,1365) = lu(k,1365) - lu(k,1161) * lu(k,1351) - lu(k,1366) = lu(k,1366) - lu(k,1162) * lu(k,1351) - lu(k,1367) = lu(k,1367) - lu(k,1163) * lu(k,1351) - lu(k,1387) = lu(k,1387) - lu(k,1148) * lu(k,1386) - lu(k,1388) = lu(k,1388) - lu(k,1149) * lu(k,1386) - lu(k,1389) = lu(k,1389) - lu(k,1150) * lu(k,1386) - lu(k,1390) = lu(k,1390) - lu(k,1151) * lu(k,1386) - lu(k,1391) = lu(k,1391) - lu(k,1152) * lu(k,1386) - lu(k,1392) = lu(k,1392) - lu(k,1153) * lu(k,1386) - lu(k,1393) = lu(k,1393) - lu(k,1154) * lu(k,1386) - lu(k,1394) = lu(k,1394) - lu(k,1155) * lu(k,1386) - lu(k,1395) = lu(k,1395) - lu(k,1156) * lu(k,1386) - lu(k,1396) = lu(k,1396) - lu(k,1157) * lu(k,1386) - lu(k,1397) = lu(k,1397) - lu(k,1158) * lu(k,1386) - lu(k,1398) = lu(k,1398) - lu(k,1159) * lu(k,1386) - lu(k,1399) = lu(k,1399) - lu(k,1160) * lu(k,1386) - lu(k,1400) = lu(k,1400) - lu(k,1161) * lu(k,1386) - lu(k,1401) = lu(k,1401) - lu(k,1162) * lu(k,1386) - lu(k,1402) = lu(k,1402) - lu(k,1163) * lu(k,1386) - lu(k,1431) = lu(k,1431) - lu(k,1148) * lu(k,1430) - lu(k,1432) = lu(k,1432) - lu(k,1149) * lu(k,1430) - lu(k,1433) = lu(k,1433) - lu(k,1150) * lu(k,1430) - lu(k,1434) = lu(k,1434) - lu(k,1151) * lu(k,1430) - lu(k,1435) = lu(k,1435) - lu(k,1152) * lu(k,1430) - lu(k,1436) = lu(k,1436) - lu(k,1153) * lu(k,1430) - lu(k,1437) = lu(k,1437) - lu(k,1154) * lu(k,1430) - lu(k,1438) = lu(k,1438) - lu(k,1155) * lu(k,1430) - lu(k,1439) = lu(k,1439) - lu(k,1156) * lu(k,1430) - lu(k,1440) = lu(k,1440) - lu(k,1157) * lu(k,1430) - lu(k,1441) = lu(k,1441) - lu(k,1158) * lu(k,1430) - lu(k,1442) = lu(k,1442) - lu(k,1159) * lu(k,1430) - lu(k,1443) = lu(k,1443) - lu(k,1160) * lu(k,1430) - lu(k,1444) = lu(k,1444) - lu(k,1161) * lu(k,1430) - lu(k,1445) = lu(k,1445) - lu(k,1162) * lu(k,1430) - lu(k,1446) = lu(k,1446) - lu(k,1163) * lu(k,1430) - lu(k,1477) = lu(k,1477) - lu(k,1148) * lu(k,1476) - lu(k,1478) = lu(k,1478) - lu(k,1149) * lu(k,1476) - lu(k,1479) = lu(k,1479) - lu(k,1150) * lu(k,1476) - lu(k,1480) = lu(k,1480) - lu(k,1151) * lu(k,1476) - lu(k,1481) = lu(k,1481) - lu(k,1152) * lu(k,1476) - lu(k,1482) = lu(k,1482) - lu(k,1153) * lu(k,1476) - lu(k,1483) = lu(k,1483) - lu(k,1154) * lu(k,1476) - lu(k,1484) = lu(k,1484) - lu(k,1155) * lu(k,1476) - lu(k,1485) = lu(k,1485) - lu(k,1156) * lu(k,1476) - lu(k,1486) = lu(k,1486) - lu(k,1157) * lu(k,1476) - lu(k,1487) = lu(k,1487) - lu(k,1158) * lu(k,1476) - lu(k,1488) = lu(k,1488) - lu(k,1159) * lu(k,1476) - lu(k,1489) = lu(k,1489) - lu(k,1160) * lu(k,1476) - lu(k,1490) = lu(k,1490) - lu(k,1161) * lu(k,1476) - lu(k,1491) = lu(k,1491) - lu(k,1162) * lu(k,1476) - lu(k,1492) = lu(k,1492) - lu(k,1163) * lu(k,1476) - lu(k,1519) = lu(k,1519) - lu(k,1148) * lu(k,1518) - lu(k,1520) = lu(k,1520) - lu(k,1149) * lu(k,1518) - lu(k,1521) = lu(k,1521) - lu(k,1150) * lu(k,1518) - lu(k,1522) = lu(k,1522) - lu(k,1151) * lu(k,1518) - lu(k,1523) = lu(k,1523) - lu(k,1152) * lu(k,1518) - lu(k,1524) = lu(k,1524) - lu(k,1153) * lu(k,1518) - lu(k,1525) = lu(k,1525) - lu(k,1154) * lu(k,1518) - lu(k,1526) = lu(k,1526) - lu(k,1155) * lu(k,1518) - lu(k,1527) = lu(k,1527) - lu(k,1156) * lu(k,1518) - lu(k,1528) = lu(k,1528) - lu(k,1157) * lu(k,1518) - lu(k,1529) = lu(k,1529) - lu(k,1158) * lu(k,1518) - lu(k,1530) = lu(k,1530) - lu(k,1159) * lu(k,1518) - lu(k,1531) = lu(k,1531) - lu(k,1160) * lu(k,1518) - lu(k,1532) = lu(k,1532) - lu(k,1161) * lu(k,1518) - lu(k,1533) = lu(k,1533) - lu(k,1162) * lu(k,1518) - lu(k,1534) = lu(k,1534) - lu(k,1163) * lu(k,1518) - lu(k,1560) = lu(k,1560) - lu(k,1148) * lu(k,1559) - lu(k,1561) = lu(k,1561) - lu(k,1149) * lu(k,1559) - lu(k,1562) = lu(k,1562) - lu(k,1150) * lu(k,1559) - lu(k,1563) = lu(k,1563) - lu(k,1151) * lu(k,1559) - lu(k,1564) = lu(k,1564) - lu(k,1152) * lu(k,1559) - lu(k,1565) = lu(k,1565) - lu(k,1153) * lu(k,1559) - lu(k,1566) = lu(k,1566) - lu(k,1154) * lu(k,1559) - lu(k,1567) = lu(k,1567) - lu(k,1155) * lu(k,1559) - lu(k,1568) = lu(k,1568) - lu(k,1156) * lu(k,1559) - lu(k,1569) = lu(k,1569) - lu(k,1157) * lu(k,1559) - lu(k,1570) = lu(k,1570) - lu(k,1158) * lu(k,1559) - lu(k,1571) = lu(k,1571) - lu(k,1159) * lu(k,1559) - lu(k,1572) = lu(k,1572) - lu(k,1160) * lu(k,1559) - lu(k,1573) = lu(k,1573) - lu(k,1161) * lu(k,1559) - lu(k,1574) = lu(k,1574) - lu(k,1162) * lu(k,1559) - lu(k,1575) = lu(k,1575) - lu(k,1163) * lu(k,1559) - lu(k,1617) = lu(k,1617) - lu(k,1148) * lu(k,1616) - lu(k,1618) = lu(k,1618) - lu(k,1149) * lu(k,1616) - lu(k,1619) = lu(k,1619) - lu(k,1150) * lu(k,1616) - lu(k,1620) = lu(k,1620) - lu(k,1151) * lu(k,1616) - lu(k,1621) = lu(k,1621) - lu(k,1152) * lu(k,1616) - lu(k,1622) = lu(k,1622) - lu(k,1153) * lu(k,1616) - lu(k,1623) = lu(k,1623) - lu(k,1154) * lu(k,1616) - lu(k,1624) = lu(k,1624) - lu(k,1155) * lu(k,1616) - lu(k,1625) = lu(k,1625) - lu(k,1156) * lu(k,1616) - lu(k,1626) = lu(k,1626) - lu(k,1157) * lu(k,1616) - lu(k,1627) = lu(k,1627) - lu(k,1158) * lu(k,1616) - lu(k,1628) = lu(k,1628) - lu(k,1159) * lu(k,1616) - lu(k,1629) = lu(k,1629) - lu(k,1160) * lu(k,1616) - lu(k,1630) = lu(k,1630) - lu(k,1161) * lu(k,1616) - lu(k,1631) = lu(k,1631) - lu(k,1162) * lu(k,1616) - lu(k,1632) = lu(k,1632) - lu(k,1163) * lu(k,1616) - lu(k,1646) = lu(k,1646) - lu(k,1148) * lu(k,1645) - lu(k,1647) = lu(k,1647) - lu(k,1149) * lu(k,1645) - lu(k,1648) = lu(k,1648) - lu(k,1150) * lu(k,1645) - lu(k,1649) = lu(k,1649) - lu(k,1151) * lu(k,1645) - lu(k,1650) = lu(k,1650) - lu(k,1152) * lu(k,1645) - lu(k,1651) = lu(k,1651) - lu(k,1153) * lu(k,1645) - lu(k,1652) = lu(k,1652) - lu(k,1154) * lu(k,1645) - lu(k,1653) = lu(k,1653) - lu(k,1155) * lu(k,1645) - lu(k,1654) = lu(k,1654) - lu(k,1156) * lu(k,1645) - lu(k,1655) = lu(k,1655) - lu(k,1157) * lu(k,1645) - lu(k,1656) = lu(k,1656) - lu(k,1158) * lu(k,1645) - lu(k,1657) = lu(k,1657) - lu(k,1159) * lu(k,1645) - lu(k,1658) = lu(k,1658) - lu(k,1160) * lu(k,1645) - lu(k,1659) = lu(k,1659) - lu(k,1161) * lu(k,1645) - lu(k,1660) = lu(k,1660) - lu(k,1162) * lu(k,1645) - lu(k,1661) = lu(k,1661) - lu(k,1163) * lu(k,1645) - lu(k,1678) = lu(k,1678) - lu(k,1148) * lu(k,1677) - lu(k,1679) = lu(k,1679) - lu(k,1149) * lu(k,1677) - lu(k,1680) = lu(k,1680) - lu(k,1150) * lu(k,1677) - lu(k,1681) = lu(k,1681) - lu(k,1151) * lu(k,1677) - lu(k,1682) = lu(k,1682) - lu(k,1152) * lu(k,1677) - lu(k,1683) = lu(k,1683) - lu(k,1153) * lu(k,1677) - lu(k,1684) = lu(k,1684) - lu(k,1154) * lu(k,1677) - lu(k,1685) = lu(k,1685) - lu(k,1155) * lu(k,1677) - lu(k,1686) = lu(k,1686) - lu(k,1156) * lu(k,1677) - lu(k,1687) = lu(k,1687) - lu(k,1157) * lu(k,1677) - lu(k,1688) = lu(k,1688) - lu(k,1158) * lu(k,1677) - lu(k,1689) = lu(k,1689) - lu(k,1159) * lu(k,1677) - lu(k,1690) = lu(k,1690) - lu(k,1160) * lu(k,1677) - lu(k,1691) = lu(k,1691) - lu(k,1161) * lu(k,1677) - lu(k,1692) = lu(k,1692) - lu(k,1162) * lu(k,1677) - lu(k,1693) = lu(k,1693) - lu(k,1163) * lu(k,1677) - lu(k,1713) = lu(k,1713) - lu(k,1148) * lu(k,1712) - lu(k,1714) = lu(k,1714) - lu(k,1149) * lu(k,1712) - lu(k,1715) = lu(k,1715) - lu(k,1150) * lu(k,1712) - lu(k,1716) = lu(k,1716) - lu(k,1151) * lu(k,1712) - lu(k,1717) = lu(k,1717) - lu(k,1152) * lu(k,1712) - lu(k,1718) = lu(k,1718) - lu(k,1153) * lu(k,1712) - lu(k,1719) = lu(k,1719) - lu(k,1154) * lu(k,1712) - lu(k,1720) = lu(k,1720) - lu(k,1155) * lu(k,1712) - lu(k,1721) = lu(k,1721) - lu(k,1156) * lu(k,1712) - lu(k,1722) = lu(k,1722) - lu(k,1157) * lu(k,1712) - lu(k,1723) = lu(k,1723) - lu(k,1158) * lu(k,1712) - lu(k,1724) = lu(k,1724) - lu(k,1159) * lu(k,1712) - lu(k,1725) = lu(k,1725) - lu(k,1160) * lu(k,1712) - lu(k,1726) = lu(k,1726) - lu(k,1161) * lu(k,1712) - lu(k,1727) = lu(k,1727) - lu(k,1162) * lu(k,1712) - lu(k,1728) = lu(k,1728) - lu(k,1163) * lu(k,1712) - lu(k,1755) = lu(k,1755) - lu(k,1148) * lu(k,1754) - lu(k,1756) = lu(k,1756) - lu(k,1149) * lu(k,1754) - lu(k,1757) = lu(k,1757) - lu(k,1150) * lu(k,1754) - lu(k,1758) = lu(k,1758) - lu(k,1151) * lu(k,1754) - lu(k,1759) = lu(k,1759) - lu(k,1152) * lu(k,1754) - lu(k,1760) = lu(k,1760) - lu(k,1153) * lu(k,1754) - lu(k,1761) = lu(k,1761) - lu(k,1154) * lu(k,1754) - lu(k,1762) = lu(k,1762) - lu(k,1155) * lu(k,1754) - lu(k,1763) = lu(k,1763) - lu(k,1156) * lu(k,1754) - lu(k,1764) = lu(k,1764) - lu(k,1157) * lu(k,1754) - lu(k,1765) = lu(k,1765) - lu(k,1158) * lu(k,1754) - lu(k,1766) = lu(k,1766) - lu(k,1159) * lu(k,1754) - lu(k,1767) = lu(k,1767) - lu(k,1160) * lu(k,1754) - lu(k,1768) = lu(k,1768) - lu(k,1161) * lu(k,1754) - lu(k,1769) = lu(k,1769) - lu(k,1162) * lu(k,1754) - lu(k,1770) = lu(k,1770) - lu(k,1163) * lu(k,1754) - lu(k,1813) = lu(k,1813) - lu(k,1148) * lu(k,1812) - lu(k,1814) = lu(k,1814) - lu(k,1149) * lu(k,1812) - lu(k,1815) = lu(k,1815) - lu(k,1150) * lu(k,1812) - lu(k,1816) = lu(k,1816) - lu(k,1151) * lu(k,1812) - lu(k,1817) = lu(k,1817) - lu(k,1152) * lu(k,1812) - lu(k,1818) = lu(k,1818) - lu(k,1153) * lu(k,1812) - lu(k,1819) = lu(k,1819) - lu(k,1154) * lu(k,1812) - lu(k,1820) = lu(k,1820) - lu(k,1155) * lu(k,1812) - lu(k,1821) = lu(k,1821) - lu(k,1156) * lu(k,1812) - lu(k,1822) = lu(k,1822) - lu(k,1157) * lu(k,1812) - lu(k,1823) = lu(k,1823) - lu(k,1158) * lu(k,1812) - lu(k,1824) = lu(k,1824) - lu(k,1159) * lu(k,1812) - lu(k,1825) = lu(k,1825) - lu(k,1160) * lu(k,1812) - lu(k,1826) = lu(k,1826) - lu(k,1161) * lu(k,1812) - lu(k,1827) = lu(k,1827) - lu(k,1162) * lu(k,1812) - lu(k,1828) = lu(k,1828) - lu(k,1163) * lu(k,1812) - lu(k,1187) = 1._r8 / lu(k,1187) - lu(k,1188) = lu(k,1188) * lu(k,1187) - lu(k,1189) = lu(k,1189) * lu(k,1187) - lu(k,1190) = lu(k,1190) * lu(k,1187) - lu(k,1191) = lu(k,1191) * lu(k,1187) - lu(k,1192) = lu(k,1192) * lu(k,1187) - lu(k,1193) = lu(k,1193) * lu(k,1187) - lu(k,1194) = lu(k,1194) * lu(k,1187) - lu(k,1195) = lu(k,1195) * lu(k,1187) - lu(k,1196) = lu(k,1196) * lu(k,1187) - lu(k,1197) = lu(k,1197) * lu(k,1187) - lu(k,1198) = lu(k,1198) * lu(k,1187) - lu(k,1199) = lu(k,1199) * lu(k,1187) - lu(k,1200) = lu(k,1200) * lu(k,1187) - lu(k,1201) = lu(k,1201) * lu(k,1187) - lu(k,1202) = lu(k,1202) * lu(k,1187) - lu(k,1223) = lu(k,1223) - lu(k,1188) * lu(k,1222) - lu(k,1224) = lu(k,1224) - lu(k,1189) * lu(k,1222) - lu(k,1225) = lu(k,1225) - lu(k,1190) * lu(k,1222) - lu(k,1226) = lu(k,1226) - lu(k,1191) * lu(k,1222) - lu(k,1227) = lu(k,1227) - lu(k,1192) * lu(k,1222) - lu(k,1228) = lu(k,1228) - lu(k,1193) * lu(k,1222) - lu(k,1229) = lu(k,1229) - lu(k,1194) * lu(k,1222) - lu(k,1230) = lu(k,1230) - lu(k,1195) * lu(k,1222) - lu(k,1231) = lu(k,1231) - lu(k,1196) * lu(k,1222) - lu(k,1232) = lu(k,1232) - lu(k,1197) * lu(k,1222) - lu(k,1233) = lu(k,1233) - lu(k,1198) * lu(k,1222) - lu(k,1234) = lu(k,1234) - lu(k,1199) * lu(k,1222) - lu(k,1235) = lu(k,1235) - lu(k,1200) * lu(k,1222) - lu(k,1236) = lu(k,1236) - lu(k,1201) * lu(k,1222) - lu(k,1237) = lu(k,1237) - lu(k,1202) * lu(k,1222) - lu(k,1270) = lu(k,1270) - lu(k,1188) * lu(k,1269) - lu(k,1271) = lu(k,1271) - lu(k,1189) * lu(k,1269) - lu(k,1272) = lu(k,1272) - lu(k,1190) * lu(k,1269) - lu(k,1273) = lu(k,1273) - lu(k,1191) * lu(k,1269) - lu(k,1274) = lu(k,1274) - lu(k,1192) * lu(k,1269) - lu(k,1275) = lu(k,1275) - lu(k,1193) * lu(k,1269) - lu(k,1276) = lu(k,1276) - lu(k,1194) * lu(k,1269) - lu(k,1277) = lu(k,1277) - lu(k,1195) * lu(k,1269) - lu(k,1278) = lu(k,1278) - lu(k,1196) * lu(k,1269) - lu(k,1279) = lu(k,1279) - lu(k,1197) * lu(k,1269) - lu(k,1280) = lu(k,1280) - lu(k,1198) * lu(k,1269) - lu(k,1281) = lu(k,1281) - lu(k,1199) * lu(k,1269) - lu(k,1282) = lu(k,1282) - lu(k,1200) * lu(k,1269) - lu(k,1283) = lu(k,1283) - lu(k,1201) * lu(k,1269) - lu(k,1284) = lu(k,1284) - lu(k,1202) * lu(k,1269) - lu(k,1314) = lu(k,1314) - lu(k,1188) * lu(k,1313) - lu(k,1315) = lu(k,1315) - lu(k,1189) * lu(k,1313) - lu(k,1316) = lu(k,1316) - lu(k,1190) * lu(k,1313) - lu(k,1317) = lu(k,1317) - lu(k,1191) * lu(k,1313) - lu(k,1318) = lu(k,1318) - lu(k,1192) * lu(k,1313) - lu(k,1319) = lu(k,1319) - lu(k,1193) * lu(k,1313) - lu(k,1320) = lu(k,1320) - lu(k,1194) * lu(k,1313) - lu(k,1321) = lu(k,1321) - lu(k,1195) * lu(k,1313) - lu(k,1322) = lu(k,1322) - lu(k,1196) * lu(k,1313) - lu(k,1323) = lu(k,1323) - lu(k,1197) * lu(k,1313) - lu(k,1324) = lu(k,1324) - lu(k,1198) * lu(k,1313) - lu(k,1325) = lu(k,1325) - lu(k,1199) * lu(k,1313) - lu(k,1326) = lu(k,1326) - lu(k,1200) * lu(k,1313) - lu(k,1327) = lu(k,1327) - lu(k,1201) * lu(k,1313) - lu(k,1328) = lu(k,1328) - lu(k,1202) * lu(k,1313) - lu(k,1353) = lu(k,1353) - lu(k,1188) * lu(k,1352) - lu(k,1354) = lu(k,1354) - lu(k,1189) * lu(k,1352) - lu(k,1355) = lu(k,1355) - lu(k,1190) * lu(k,1352) - lu(k,1356) = lu(k,1356) - lu(k,1191) * lu(k,1352) - lu(k,1357) = lu(k,1357) - lu(k,1192) * lu(k,1352) - lu(k,1358) = lu(k,1358) - lu(k,1193) * lu(k,1352) - lu(k,1359) = lu(k,1359) - lu(k,1194) * lu(k,1352) - lu(k,1360) = lu(k,1360) - lu(k,1195) * lu(k,1352) - lu(k,1361) = lu(k,1361) - lu(k,1196) * lu(k,1352) - lu(k,1362) = lu(k,1362) - lu(k,1197) * lu(k,1352) - lu(k,1363) = lu(k,1363) - lu(k,1198) * lu(k,1352) - lu(k,1364) = lu(k,1364) - lu(k,1199) * lu(k,1352) - lu(k,1365) = lu(k,1365) - lu(k,1200) * lu(k,1352) - lu(k,1366) = lu(k,1366) - lu(k,1201) * lu(k,1352) - lu(k,1367) = lu(k,1367) - lu(k,1202) * lu(k,1352) - lu(k,1388) = lu(k,1388) - lu(k,1188) * lu(k,1387) - lu(k,1389) = lu(k,1389) - lu(k,1189) * lu(k,1387) - lu(k,1390) = lu(k,1390) - lu(k,1190) * lu(k,1387) - lu(k,1391) = lu(k,1391) - lu(k,1191) * lu(k,1387) - lu(k,1392) = lu(k,1392) - lu(k,1192) * lu(k,1387) - lu(k,1393) = lu(k,1393) - lu(k,1193) * lu(k,1387) - lu(k,1394) = lu(k,1394) - lu(k,1194) * lu(k,1387) - lu(k,1395) = lu(k,1395) - lu(k,1195) * lu(k,1387) - lu(k,1396) = lu(k,1396) - lu(k,1196) * lu(k,1387) - lu(k,1397) = lu(k,1397) - lu(k,1197) * lu(k,1387) - lu(k,1398) = lu(k,1398) - lu(k,1198) * lu(k,1387) - lu(k,1399) = lu(k,1399) - lu(k,1199) * lu(k,1387) - lu(k,1400) = lu(k,1400) - lu(k,1200) * lu(k,1387) - lu(k,1401) = lu(k,1401) - lu(k,1201) * lu(k,1387) - lu(k,1402) = lu(k,1402) - lu(k,1202) * lu(k,1387) - lu(k,1432) = lu(k,1432) - lu(k,1188) * lu(k,1431) - lu(k,1433) = lu(k,1433) - lu(k,1189) * lu(k,1431) - lu(k,1434) = lu(k,1434) - lu(k,1190) * lu(k,1431) - lu(k,1435) = lu(k,1435) - lu(k,1191) * lu(k,1431) - lu(k,1436) = lu(k,1436) - lu(k,1192) * lu(k,1431) - lu(k,1437) = lu(k,1437) - lu(k,1193) * lu(k,1431) - lu(k,1438) = lu(k,1438) - lu(k,1194) * lu(k,1431) - lu(k,1439) = lu(k,1439) - lu(k,1195) * lu(k,1431) - lu(k,1440) = lu(k,1440) - lu(k,1196) * lu(k,1431) - lu(k,1441) = lu(k,1441) - lu(k,1197) * lu(k,1431) - lu(k,1442) = lu(k,1442) - lu(k,1198) * lu(k,1431) - lu(k,1443) = lu(k,1443) - lu(k,1199) * lu(k,1431) - lu(k,1444) = lu(k,1444) - lu(k,1200) * lu(k,1431) - lu(k,1445) = lu(k,1445) - lu(k,1201) * lu(k,1431) - lu(k,1446) = lu(k,1446) - lu(k,1202) * lu(k,1431) - lu(k,1478) = lu(k,1478) - lu(k,1188) * lu(k,1477) - lu(k,1479) = lu(k,1479) - lu(k,1189) * lu(k,1477) - lu(k,1480) = lu(k,1480) - lu(k,1190) * lu(k,1477) - lu(k,1481) = lu(k,1481) - lu(k,1191) * lu(k,1477) - lu(k,1482) = lu(k,1482) - lu(k,1192) * lu(k,1477) - lu(k,1483) = lu(k,1483) - lu(k,1193) * lu(k,1477) - lu(k,1484) = lu(k,1484) - lu(k,1194) * lu(k,1477) - lu(k,1485) = lu(k,1485) - lu(k,1195) * lu(k,1477) - lu(k,1486) = lu(k,1486) - lu(k,1196) * lu(k,1477) - lu(k,1487) = lu(k,1487) - lu(k,1197) * lu(k,1477) - lu(k,1488) = lu(k,1488) - lu(k,1198) * lu(k,1477) - lu(k,1489) = lu(k,1489) - lu(k,1199) * lu(k,1477) - lu(k,1490) = lu(k,1490) - lu(k,1200) * lu(k,1477) - lu(k,1491) = lu(k,1491) - lu(k,1201) * lu(k,1477) - lu(k,1492) = lu(k,1492) - lu(k,1202) * lu(k,1477) - lu(k,1520) = lu(k,1520) - lu(k,1188) * lu(k,1519) - lu(k,1521) = lu(k,1521) - lu(k,1189) * lu(k,1519) - lu(k,1522) = lu(k,1522) - lu(k,1190) * lu(k,1519) - lu(k,1523) = lu(k,1523) - lu(k,1191) * lu(k,1519) - lu(k,1524) = lu(k,1524) - lu(k,1192) * lu(k,1519) - lu(k,1525) = lu(k,1525) - lu(k,1193) * lu(k,1519) - lu(k,1526) = lu(k,1526) - lu(k,1194) * lu(k,1519) - lu(k,1527) = lu(k,1527) - lu(k,1195) * lu(k,1519) - lu(k,1528) = lu(k,1528) - lu(k,1196) * lu(k,1519) - lu(k,1529) = lu(k,1529) - lu(k,1197) * lu(k,1519) - lu(k,1530) = lu(k,1530) - lu(k,1198) * lu(k,1519) - lu(k,1531) = lu(k,1531) - lu(k,1199) * lu(k,1519) - lu(k,1532) = lu(k,1532) - lu(k,1200) * lu(k,1519) - lu(k,1533) = lu(k,1533) - lu(k,1201) * lu(k,1519) - lu(k,1534) = lu(k,1534) - lu(k,1202) * lu(k,1519) - lu(k,1561) = lu(k,1561) - lu(k,1188) * lu(k,1560) - lu(k,1562) = lu(k,1562) - lu(k,1189) * lu(k,1560) - lu(k,1563) = lu(k,1563) - lu(k,1190) * lu(k,1560) - lu(k,1564) = lu(k,1564) - lu(k,1191) * lu(k,1560) - lu(k,1565) = lu(k,1565) - lu(k,1192) * lu(k,1560) - lu(k,1566) = lu(k,1566) - lu(k,1193) * lu(k,1560) - lu(k,1567) = lu(k,1567) - lu(k,1194) * lu(k,1560) - lu(k,1568) = lu(k,1568) - lu(k,1195) * lu(k,1560) - lu(k,1569) = lu(k,1569) - lu(k,1196) * lu(k,1560) - lu(k,1570) = lu(k,1570) - lu(k,1197) * lu(k,1560) - lu(k,1571) = lu(k,1571) - lu(k,1198) * lu(k,1560) - lu(k,1572) = lu(k,1572) - lu(k,1199) * lu(k,1560) - lu(k,1573) = lu(k,1573) - lu(k,1200) * lu(k,1560) - lu(k,1574) = lu(k,1574) - lu(k,1201) * lu(k,1560) - lu(k,1575) = lu(k,1575) - lu(k,1202) * lu(k,1560) - lu(k,1618) = lu(k,1618) - lu(k,1188) * lu(k,1617) - lu(k,1619) = lu(k,1619) - lu(k,1189) * lu(k,1617) - lu(k,1620) = lu(k,1620) - lu(k,1190) * lu(k,1617) - lu(k,1621) = lu(k,1621) - lu(k,1191) * lu(k,1617) - lu(k,1622) = lu(k,1622) - lu(k,1192) * lu(k,1617) - lu(k,1623) = lu(k,1623) - lu(k,1193) * lu(k,1617) - lu(k,1624) = lu(k,1624) - lu(k,1194) * lu(k,1617) - lu(k,1625) = lu(k,1625) - lu(k,1195) * lu(k,1617) - lu(k,1626) = lu(k,1626) - lu(k,1196) * lu(k,1617) - lu(k,1627) = lu(k,1627) - lu(k,1197) * lu(k,1617) - lu(k,1628) = lu(k,1628) - lu(k,1198) * lu(k,1617) - lu(k,1629) = lu(k,1629) - lu(k,1199) * lu(k,1617) - lu(k,1630) = lu(k,1630) - lu(k,1200) * lu(k,1617) - lu(k,1631) = lu(k,1631) - lu(k,1201) * lu(k,1617) - lu(k,1632) = lu(k,1632) - lu(k,1202) * lu(k,1617) - lu(k,1647) = lu(k,1647) - lu(k,1188) * lu(k,1646) - lu(k,1648) = lu(k,1648) - lu(k,1189) * lu(k,1646) - lu(k,1649) = lu(k,1649) - lu(k,1190) * lu(k,1646) - lu(k,1650) = lu(k,1650) - lu(k,1191) * lu(k,1646) - lu(k,1651) = lu(k,1651) - lu(k,1192) * lu(k,1646) - lu(k,1652) = lu(k,1652) - lu(k,1193) * lu(k,1646) - lu(k,1653) = lu(k,1653) - lu(k,1194) * lu(k,1646) - lu(k,1654) = lu(k,1654) - lu(k,1195) * lu(k,1646) - lu(k,1655) = lu(k,1655) - lu(k,1196) * lu(k,1646) - lu(k,1656) = lu(k,1656) - lu(k,1197) * lu(k,1646) - lu(k,1657) = lu(k,1657) - lu(k,1198) * lu(k,1646) - lu(k,1658) = lu(k,1658) - lu(k,1199) * lu(k,1646) - lu(k,1659) = lu(k,1659) - lu(k,1200) * lu(k,1646) - lu(k,1660) = lu(k,1660) - lu(k,1201) * lu(k,1646) - lu(k,1661) = lu(k,1661) - lu(k,1202) * lu(k,1646) - lu(k,1679) = lu(k,1679) - lu(k,1188) * lu(k,1678) - lu(k,1680) = lu(k,1680) - lu(k,1189) * lu(k,1678) - lu(k,1681) = lu(k,1681) - lu(k,1190) * lu(k,1678) - lu(k,1682) = lu(k,1682) - lu(k,1191) * lu(k,1678) - lu(k,1683) = lu(k,1683) - lu(k,1192) * lu(k,1678) - lu(k,1684) = lu(k,1684) - lu(k,1193) * lu(k,1678) - lu(k,1685) = lu(k,1685) - lu(k,1194) * lu(k,1678) - lu(k,1686) = lu(k,1686) - lu(k,1195) * lu(k,1678) - lu(k,1687) = lu(k,1687) - lu(k,1196) * lu(k,1678) - lu(k,1688) = lu(k,1688) - lu(k,1197) * lu(k,1678) - lu(k,1689) = lu(k,1689) - lu(k,1198) * lu(k,1678) - lu(k,1690) = lu(k,1690) - lu(k,1199) * lu(k,1678) - lu(k,1691) = lu(k,1691) - lu(k,1200) * lu(k,1678) - lu(k,1692) = lu(k,1692) - lu(k,1201) * lu(k,1678) - lu(k,1693) = lu(k,1693) - lu(k,1202) * lu(k,1678) - lu(k,1714) = lu(k,1714) - lu(k,1188) * lu(k,1713) - lu(k,1715) = lu(k,1715) - lu(k,1189) * lu(k,1713) - lu(k,1716) = lu(k,1716) - lu(k,1190) * lu(k,1713) - lu(k,1717) = lu(k,1717) - lu(k,1191) * lu(k,1713) - lu(k,1718) = lu(k,1718) - lu(k,1192) * lu(k,1713) - lu(k,1719) = lu(k,1719) - lu(k,1193) * lu(k,1713) - lu(k,1720) = lu(k,1720) - lu(k,1194) * lu(k,1713) - lu(k,1721) = lu(k,1721) - lu(k,1195) * lu(k,1713) - lu(k,1722) = lu(k,1722) - lu(k,1196) * lu(k,1713) - lu(k,1723) = lu(k,1723) - lu(k,1197) * lu(k,1713) - lu(k,1724) = lu(k,1724) - lu(k,1198) * lu(k,1713) - lu(k,1725) = lu(k,1725) - lu(k,1199) * lu(k,1713) - lu(k,1726) = lu(k,1726) - lu(k,1200) * lu(k,1713) - lu(k,1727) = lu(k,1727) - lu(k,1201) * lu(k,1713) - lu(k,1728) = lu(k,1728) - lu(k,1202) * lu(k,1713) - lu(k,1756) = lu(k,1756) - lu(k,1188) * lu(k,1755) - lu(k,1757) = lu(k,1757) - lu(k,1189) * lu(k,1755) - lu(k,1758) = lu(k,1758) - lu(k,1190) * lu(k,1755) - lu(k,1759) = lu(k,1759) - lu(k,1191) * lu(k,1755) - lu(k,1760) = lu(k,1760) - lu(k,1192) * lu(k,1755) - lu(k,1761) = lu(k,1761) - lu(k,1193) * lu(k,1755) - lu(k,1762) = lu(k,1762) - lu(k,1194) * lu(k,1755) - lu(k,1763) = lu(k,1763) - lu(k,1195) * lu(k,1755) - lu(k,1764) = lu(k,1764) - lu(k,1196) * lu(k,1755) - lu(k,1765) = lu(k,1765) - lu(k,1197) * lu(k,1755) - lu(k,1766) = lu(k,1766) - lu(k,1198) * lu(k,1755) - lu(k,1767) = lu(k,1767) - lu(k,1199) * lu(k,1755) - lu(k,1768) = lu(k,1768) - lu(k,1200) * lu(k,1755) - lu(k,1769) = lu(k,1769) - lu(k,1201) * lu(k,1755) - lu(k,1770) = lu(k,1770) - lu(k,1202) * lu(k,1755) - lu(k,1814) = lu(k,1814) - lu(k,1188) * lu(k,1813) - lu(k,1815) = lu(k,1815) - lu(k,1189) * lu(k,1813) - lu(k,1816) = lu(k,1816) - lu(k,1190) * lu(k,1813) - lu(k,1817) = lu(k,1817) - lu(k,1191) * lu(k,1813) - lu(k,1818) = lu(k,1818) - lu(k,1192) * lu(k,1813) - lu(k,1819) = lu(k,1819) - lu(k,1193) * lu(k,1813) - lu(k,1820) = lu(k,1820) - lu(k,1194) * lu(k,1813) - lu(k,1821) = lu(k,1821) - lu(k,1195) * lu(k,1813) - lu(k,1822) = lu(k,1822) - lu(k,1196) * lu(k,1813) - lu(k,1823) = lu(k,1823) - lu(k,1197) * lu(k,1813) - lu(k,1824) = lu(k,1824) - lu(k,1198) * lu(k,1813) - lu(k,1825) = lu(k,1825) - lu(k,1199) * lu(k,1813) - lu(k,1826) = lu(k,1826) - lu(k,1200) * lu(k,1813) - lu(k,1827) = lu(k,1827) - lu(k,1201) * lu(k,1813) - lu(k,1828) = lu(k,1828) - lu(k,1202) * lu(k,1813) - 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,1223) = 1._r8 / lu(k,1223) - lu(k,1224) = lu(k,1224) * lu(k,1223) - lu(k,1225) = lu(k,1225) * lu(k,1223) - lu(k,1226) = lu(k,1226) * lu(k,1223) - lu(k,1227) = lu(k,1227) * lu(k,1223) - lu(k,1228) = lu(k,1228) * lu(k,1223) - lu(k,1229) = lu(k,1229) * lu(k,1223) - lu(k,1230) = lu(k,1230) * lu(k,1223) - lu(k,1231) = lu(k,1231) * lu(k,1223) - lu(k,1232) = lu(k,1232) * lu(k,1223) - lu(k,1233) = lu(k,1233) * lu(k,1223) - lu(k,1234) = lu(k,1234) * lu(k,1223) - lu(k,1235) = lu(k,1235) * lu(k,1223) - lu(k,1236) = lu(k,1236) * lu(k,1223) - lu(k,1237) = lu(k,1237) * lu(k,1223) - lu(k,1271) = lu(k,1271) - lu(k,1224) * lu(k,1270) - lu(k,1272) = lu(k,1272) - lu(k,1225) * lu(k,1270) - lu(k,1273) = lu(k,1273) - lu(k,1226) * lu(k,1270) - lu(k,1274) = lu(k,1274) - lu(k,1227) * lu(k,1270) - lu(k,1275) = lu(k,1275) - lu(k,1228) * lu(k,1270) - lu(k,1276) = lu(k,1276) - lu(k,1229) * lu(k,1270) - lu(k,1277) = lu(k,1277) - lu(k,1230) * lu(k,1270) - lu(k,1278) = lu(k,1278) - lu(k,1231) * lu(k,1270) - lu(k,1279) = lu(k,1279) - lu(k,1232) * lu(k,1270) - lu(k,1280) = lu(k,1280) - lu(k,1233) * lu(k,1270) - lu(k,1281) = lu(k,1281) - lu(k,1234) * lu(k,1270) - lu(k,1282) = lu(k,1282) - lu(k,1235) * lu(k,1270) - lu(k,1283) = lu(k,1283) - lu(k,1236) * lu(k,1270) - lu(k,1284) = lu(k,1284) - lu(k,1237) * lu(k,1270) - lu(k,1315) = lu(k,1315) - lu(k,1224) * lu(k,1314) - lu(k,1316) = lu(k,1316) - lu(k,1225) * lu(k,1314) - lu(k,1317) = lu(k,1317) - lu(k,1226) * lu(k,1314) - lu(k,1318) = lu(k,1318) - lu(k,1227) * lu(k,1314) - lu(k,1319) = lu(k,1319) - lu(k,1228) * lu(k,1314) - lu(k,1320) = lu(k,1320) - lu(k,1229) * lu(k,1314) - lu(k,1321) = lu(k,1321) - lu(k,1230) * lu(k,1314) - lu(k,1322) = lu(k,1322) - lu(k,1231) * lu(k,1314) - lu(k,1323) = lu(k,1323) - lu(k,1232) * lu(k,1314) - lu(k,1324) = lu(k,1324) - lu(k,1233) * lu(k,1314) - lu(k,1325) = lu(k,1325) - lu(k,1234) * lu(k,1314) - lu(k,1326) = lu(k,1326) - lu(k,1235) * lu(k,1314) - lu(k,1327) = lu(k,1327) - lu(k,1236) * lu(k,1314) - lu(k,1328) = lu(k,1328) - lu(k,1237) * lu(k,1314) - lu(k,1354) = lu(k,1354) - lu(k,1224) * lu(k,1353) - lu(k,1355) = lu(k,1355) - lu(k,1225) * lu(k,1353) - lu(k,1356) = lu(k,1356) - lu(k,1226) * lu(k,1353) - lu(k,1357) = lu(k,1357) - lu(k,1227) * lu(k,1353) - lu(k,1358) = lu(k,1358) - lu(k,1228) * lu(k,1353) - lu(k,1359) = lu(k,1359) - lu(k,1229) * lu(k,1353) - lu(k,1360) = lu(k,1360) - lu(k,1230) * lu(k,1353) - lu(k,1361) = lu(k,1361) - lu(k,1231) * lu(k,1353) - lu(k,1362) = lu(k,1362) - lu(k,1232) * lu(k,1353) - lu(k,1363) = lu(k,1363) - lu(k,1233) * lu(k,1353) - lu(k,1364) = lu(k,1364) - lu(k,1234) * lu(k,1353) - lu(k,1365) = lu(k,1365) - lu(k,1235) * lu(k,1353) - lu(k,1366) = lu(k,1366) - lu(k,1236) * lu(k,1353) - lu(k,1367) = lu(k,1367) - lu(k,1237) * lu(k,1353) - lu(k,1389) = lu(k,1389) - lu(k,1224) * lu(k,1388) - lu(k,1390) = lu(k,1390) - lu(k,1225) * lu(k,1388) - lu(k,1391) = lu(k,1391) - lu(k,1226) * lu(k,1388) - lu(k,1392) = lu(k,1392) - lu(k,1227) * lu(k,1388) - lu(k,1393) = lu(k,1393) - lu(k,1228) * lu(k,1388) - lu(k,1394) = lu(k,1394) - lu(k,1229) * lu(k,1388) - lu(k,1395) = lu(k,1395) - lu(k,1230) * lu(k,1388) - lu(k,1396) = lu(k,1396) - lu(k,1231) * lu(k,1388) - lu(k,1397) = lu(k,1397) - lu(k,1232) * lu(k,1388) - lu(k,1398) = lu(k,1398) - lu(k,1233) * lu(k,1388) - lu(k,1399) = lu(k,1399) - lu(k,1234) * lu(k,1388) - lu(k,1400) = lu(k,1400) - lu(k,1235) * lu(k,1388) - lu(k,1401) = lu(k,1401) - lu(k,1236) * lu(k,1388) - lu(k,1402) = lu(k,1402) - lu(k,1237) * lu(k,1388) - lu(k,1433) = lu(k,1433) - lu(k,1224) * lu(k,1432) - lu(k,1434) = lu(k,1434) - lu(k,1225) * lu(k,1432) - lu(k,1435) = lu(k,1435) - lu(k,1226) * lu(k,1432) - lu(k,1436) = lu(k,1436) - lu(k,1227) * lu(k,1432) - lu(k,1437) = lu(k,1437) - lu(k,1228) * lu(k,1432) - lu(k,1438) = lu(k,1438) - lu(k,1229) * lu(k,1432) - lu(k,1439) = lu(k,1439) - lu(k,1230) * lu(k,1432) - lu(k,1440) = lu(k,1440) - lu(k,1231) * lu(k,1432) - lu(k,1441) = lu(k,1441) - lu(k,1232) * lu(k,1432) - lu(k,1442) = lu(k,1442) - lu(k,1233) * lu(k,1432) - lu(k,1443) = lu(k,1443) - lu(k,1234) * lu(k,1432) - lu(k,1444) = lu(k,1444) - lu(k,1235) * lu(k,1432) - lu(k,1445) = lu(k,1445) - lu(k,1236) * lu(k,1432) - lu(k,1446) = lu(k,1446) - lu(k,1237) * lu(k,1432) - lu(k,1479) = lu(k,1479) - lu(k,1224) * lu(k,1478) - lu(k,1480) = lu(k,1480) - lu(k,1225) * lu(k,1478) - lu(k,1481) = lu(k,1481) - lu(k,1226) * lu(k,1478) - lu(k,1482) = lu(k,1482) - lu(k,1227) * lu(k,1478) - lu(k,1483) = lu(k,1483) - lu(k,1228) * lu(k,1478) - lu(k,1484) = lu(k,1484) - lu(k,1229) * lu(k,1478) - lu(k,1485) = lu(k,1485) - lu(k,1230) * lu(k,1478) - lu(k,1486) = lu(k,1486) - lu(k,1231) * lu(k,1478) - lu(k,1487) = lu(k,1487) - lu(k,1232) * lu(k,1478) - lu(k,1488) = lu(k,1488) - lu(k,1233) * lu(k,1478) - lu(k,1489) = lu(k,1489) - lu(k,1234) * lu(k,1478) - lu(k,1490) = lu(k,1490) - lu(k,1235) * lu(k,1478) - lu(k,1491) = lu(k,1491) - lu(k,1236) * lu(k,1478) - lu(k,1492) = lu(k,1492) - lu(k,1237) * lu(k,1478) - lu(k,1521) = lu(k,1521) - lu(k,1224) * lu(k,1520) - lu(k,1522) = lu(k,1522) - lu(k,1225) * lu(k,1520) - lu(k,1523) = lu(k,1523) - lu(k,1226) * lu(k,1520) - lu(k,1524) = lu(k,1524) - lu(k,1227) * lu(k,1520) - lu(k,1525) = lu(k,1525) - lu(k,1228) * lu(k,1520) - lu(k,1526) = lu(k,1526) - lu(k,1229) * lu(k,1520) - lu(k,1527) = lu(k,1527) - lu(k,1230) * lu(k,1520) - lu(k,1528) = lu(k,1528) - lu(k,1231) * lu(k,1520) - lu(k,1529) = lu(k,1529) - lu(k,1232) * lu(k,1520) - lu(k,1530) = lu(k,1530) - lu(k,1233) * lu(k,1520) - lu(k,1531) = lu(k,1531) - lu(k,1234) * lu(k,1520) - lu(k,1532) = lu(k,1532) - lu(k,1235) * lu(k,1520) - lu(k,1533) = lu(k,1533) - lu(k,1236) * lu(k,1520) - lu(k,1534) = lu(k,1534) - lu(k,1237) * lu(k,1520) - lu(k,1562) = lu(k,1562) - lu(k,1224) * lu(k,1561) - lu(k,1563) = lu(k,1563) - lu(k,1225) * lu(k,1561) - lu(k,1564) = lu(k,1564) - lu(k,1226) * lu(k,1561) - lu(k,1565) = lu(k,1565) - lu(k,1227) * lu(k,1561) - lu(k,1566) = lu(k,1566) - lu(k,1228) * lu(k,1561) - lu(k,1567) = lu(k,1567) - lu(k,1229) * lu(k,1561) - lu(k,1568) = lu(k,1568) - lu(k,1230) * lu(k,1561) - lu(k,1569) = lu(k,1569) - lu(k,1231) * lu(k,1561) - lu(k,1570) = lu(k,1570) - lu(k,1232) * lu(k,1561) - lu(k,1571) = lu(k,1571) - lu(k,1233) * lu(k,1561) - lu(k,1572) = lu(k,1572) - lu(k,1234) * lu(k,1561) - lu(k,1573) = lu(k,1573) - lu(k,1235) * lu(k,1561) - lu(k,1574) = lu(k,1574) - lu(k,1236) * lu(k,1561) - lu(k,1575) = lu(k,1575) - lu(k,1237) * lu(k,1561) - lu(k,1619) = lu(k,1619) - lu(k,1224) * lu(k,1618) - lu(k,1620) = lu(k,1620) - lu(k,1225) * lu(k,1618) - lu(k,1621) = lu(k,1621) - lu(k,1226) * lu(k,1618) - lu(k,1622) = lu(k,1622) - lu(k,1227) * lu(k,1618) - lu(k,1623) = lu(k,1623) - lu(k,1228) * lu(k,1618) - lu(k,1624) = lu(k,1624) - lu(k,1229) * lu(k,1618) - lu(k,1625) = lu(k,1625) - lu(k,1230) * lu(k,1618) - lu(k,1626) = lu(k,1626) - lu(k,1231) * lu(k,1618) - lu(k,1627) = lu(k,1627) - lu(k,1232) * lu(k,1618) - lu(k,1628) = lu(k,1628) - lu(k,1233) * lu(k,1618) - lu(k,1629) = lu(k,1629) - lu(k,1234) * lu(k,1618) - lu(k,1630) = lu(k,1630) - lu(k,1235) * lu(k,1618) - lu(k,1631) = lu(k,1631) - lu(k,1236) * lu(k,1618) - lu(k,1632) = lu(k,1632) - lu(k,1237) * lu(k,1618) - lu(k,1648) = lu(k,1648) - lu(k,1224) * lu(k,1647) - lu(k,1649) = lu(k,1649) - lu(k,1225) * lu(k,1647) - lu(k,1650) = lu(k,1650) - lu(k,1226) * lu(k,1647) - lu(k,1651) = lu(k,1651) - lu(k,1227) * lu(k,1647) - lu(k,1652) = lu(k,1652) - lu(k,1228) * lu(k,1647) - lu(k,1653) = lu(k,1653) - lu(k,1229) * lu(k,1647) - lu(k,1654) = lu(k,1654) - lu(k,1230) * lu(k,1647) - lu(k,1655) = lu(k,1655) - lu(k,1231) * lu(k,1647) - lu(k,1656) = lu(k,1656) - lu(k,1232) * lu(k,1647) - lu(k,1657) = lu(k,1657) - lu(k,1233) * lu(k,1647) - lu(k,1658) = lu(k,1658) - lu(k,1234) * lu(k,1647) - lu(k,1659) = lu(k,1659) - lu(k,1235) * lu(k,1647) - lu(k,1660) = lu(k,1660) - lu(k,1236) * lu(k,1647) - lu(k,1661) = lu(k,1661) - lu(k,1237) * lu(k,1647) - lu(k,1680) = lu(k,1680) - lu(k,1224) * lu(k,1679) - lu(k,1681) = lu(k,1681) - lu(k,1225) * lu(k,1679) - lu(k,1682) = lu(k,1682) - lu(k,1226) * lu(k,1679) - lu(k,1683) = lu(k,1683) - lu(k,1227) * lu(k,1679) - lu(k,1684) = lu(k,1684) - lu(k,1228) * lu(k,1679) - lu(k,1685) = lu(k,1685) - lu(k,1229) * lu(k,1679) - lu(k,1686) = lu(k,1686) - lu(k,1230) * lu(k,1679) - lu(k,1687) = lu(k,1687) - lu(k,1231) * lu(k,1679) - lu(k,1688) = lu(k,1688) - lu(k,1232) * lu(k,1679) - lu(k,1689) = lu(k,1689) - lu(k,1233) * lu(k,1679) - lu(k,1690) = lu(k,1690) - lu(k,1234) * lu(k,1679) - lu(k,1691) = lu(k,1691) - lu(k,1235) * lu(k,1679) - lu(k,1692) = lu(k,1692) - lu(k,1236) * lu(k,1679) - lu(k,1693) = lu(k,1693) - lu(k,1237) * lu(k,1679) - lu(k,1715) = lu(k,1715) - lu(k,1224) * lu(k,1714) - lu(k,1716) = lu(k,1716) - lu(k,1225) * lu(k,1714) - lu(k,1717) = lu(k,1717) - lu(k,1226) * lu(k,1714) - lu(k,1718) = lu(k,1718) - lu(k,1227) * lu(k,1714) - lu(k,1719) = lu(k,1719) - lu(k,1228) * lu(k,1714) - lu(k,1720) = lu(k,1720) - lu(k,1229) * lu(k,1714) - lu(k,1721) = lu(k,1721) - lu(k,1230) * lu(k,1714) - lu(k,1722) = lu(k,1722) - lu(k,1231) * lu(k,1714) - lu(k,1723) = lu(k,1723) - lu(k,1232) * lu(k,1714) - lu(k,1724) = lu(k,1724) - lu(k,1233) * lu(k,1714) - lu(k,1725) = lu(k,1725) - lu(k,1234) * lu(k,1714) - lu(k,1726) = lu(k,1726) - lu(k,1235) * lu(k,1714) - lu(k,1727) = lu(k,1727) - lu(k,1236) * lu(k,1714) - lu(k,1728) = lu(k,1728) - lu(k,1237) * lu(k,1714) - lu(k,1757) = lu(k,1757) - lu(k,1224) * lu(k,1756) - lu(k,1758) = lu(k,1758) - lu(k,1225) * lu(k,1756) - lu(k,1759) = lu(k,1759) - lu(k,1226) * lu(k,1756) - lu(k,1760) = lu(k,1760) - lu(k,1227) * lu(k,1756) - lu(k,1761) = lu(k,1761) - lu(k,1228) * lu(k,1756) - lu(k,1762) = lu(k,1762) - lu(k,1229) * lu(k,1756) - lu(k,1763) = lu(k,1763) - lu(k,1230) * lu(k,1756) - lu(k,1764) = lu(k,1764) - lu(k,1231) * lu(k,1756) - lu(k,1765) = lu(k,1765) - lu(k,1232) * lu(k,1756) - lu(k,1766) = lu(k,1766) - lu(k,1233) * lu(k,1756) - lu(k,1767) = lu(k,1767) - lu(k,1234) * lu(k,1756) - lu(k,1768) = lu(k,1768) - lu(k,1235) * lu(k,1756) - lu(k,1769) = lu(k,1769) - lu(k,1236) * lu(k,1756) - lu(k,1770) = lu(k,1770) - lu(k,1237) * lu(k,1756) - lu(k,1815) = lu(k,1815) - lu(k,1224) * lu(k,1814) - lu(k,1816) = lu(k,1816) - lu(k,1225) * lu(k,1814) - lu(k,1817) = lu(k,1817) - lu(k,1226) * lu(k,1814) - lu(k,1818) = lu(k,1818) - lu(k,1227) * lu(k,1814) - lu(k,1819) = lu(k,1819) - lu(k,1228) * lu(k,1814) - lu(k,1820) = lu(k,1820) - lu(k,1229) * lu(k,1814) - lu(k,1821) = lu(k,1821) - lu(k,1230) * lu(k,1814) - lu(k,1822) = lu(k,1822) - lu(k,1231) * lu(k,1814) - lu(k,1823) = lu(k,1823) - lu(k,1232) * lu(k,1814) - lu(k,1824) = lu(k,1824) - lu(k,1233) * lu(k,1814) - lu(k,1825) = lu(k,1825) - lu(k,1234) * lu(k,1814) - lu(k,1826) = lu(k,1826) - lu(k,1235) * lu(k,1814) - lu(k,1827) = lu(k,1827) - lu(k,1236) * lu(k,1814) - lu(k,1828) = lu(k,1828) - lu(k,1237) * lu(k,1814) - lu(k,1271) = 1._r8 / lu(k,1271) - lu(k,1272) = lu(k,1272) * lu(k,1271) - lu(k,1273) = lu(k,1273) * lu(k,1271) - lu(k,1274) = lu(k,1274) * lu(k,1271) - lu(k,1275) = lu(k,1275) * lu(k,1271) - lu(k,1276) = lu(k,1276) * lu(k,1271) - lu(k,1277) = lu(k,1277) * lu(k,1271) - lu(k,1278) = lu(k,1278) * lu(k,1271) - lu(k,1279) = lu(k,1279) * lu(k,1271) - lu(k,1280) = lu(k,1280) * lu(k,1271) - lu(k,1281) = lu(k,1281) * lu(k,1271) - lu(k,1282) = lu(k,1282) * lu(k,1271) - lu(k,1283) = lu(k,1283) * lu(k,1271) - lu(k,1284) = lu(k,1284) * lu(k,1271) - lu(k,1316) = lu(k,1316) - lu(k,1272) * lu(k,1315) - lu(k,1317) = lu(k,1317) - lu(k,1273) * lu(k,1315) - lu(k,1318) = lu(k,1318) - lu(k,1274) * lu(k,1315) - lu(k,1319) = lu(k,1319) - lu(k,1275) * lu(k,1315) - lu(k,1320) = lu(k,1320) - lu(k,1276) * lu(k,1315) - lu(k,1321) = lu(k,1321) - lu(k,1277) * lu(k,1315) - lu(k,1322) = lu(k,1322) - lu(k,1278) * lu(k,1315) - lu(k,1323) = lu(k,1323) - lu(k,1279) * lu(k,1315) - lu(k,1324) = lu(k,1324) - lu(k,1280) * lu(k,1315) - lu(k,1325) = lu(k,1325) - lu(k,1281) * lu(k,1315) - lu(k,1326) = lu(k,1326) - lu(k,1282) * lu(k,1315) - lu(k,1327) = lu(k,1327) - lu(k,1283) * lu(k,1315) - lu(k,1328) = lu(k,1328) - lu(k,1284) * lu(k,1315) - lu(k,1355) = lu(k,1355) - lu(k,1272) * lu(k,1354) - lu(k,1356) = lu(k,1356) - lu(k,1273) * lu(k,1354) - lu(k,1357) = lu(k,1357) - lu(k,1274) * lu(k,1354) - lu(k,1358) = lu(k,1358) - lu(k,1275) * lu(k,1354) - lu(k,1359) = lu(k,1359) - lu(k,1276) * lu(k,1354) - lu(k,1360) = lu(k,1360) - lu(k,1277) * lu(k,1354) - lu(k,1361) = lu(k,1361) - lu(k,1278) * lu(k,1354) - lu(k,1362) = lu(k,1362) - lu(k,1279) * lu(k,1354) - lu(k,1363) = lu(k,1363) - lu(k,1280) * lu(k,1354) - lu(k,1364) = lu(k,1364) - lu(k,1281) * lu(k,1354) - lu(k,1365) = lu(k,1365) - lu(k,1282) * lu(k,1354) - lu(k,1366) = lu(k,1366) - lu(k,1283) * lu(k,1354) - lu(k,1367) = lu(k,1367) - lu(k,1284) * lu(k,1354) - lu(k,1390) = lu(k,1390) - lu(k,1272) * lu(k,1389) - lu(k,1391) = lu(k,1391) - lu(k,1273) * lu(k,1389) - lu(k,1392) = lu(k,1392) - lu(k,1274) * lu(k,1389) - lu(k,1393) = lu(k,1393) - lu(k,1275) * lu(k,1389) - lu(k,1394) = lu(k,1394) - lu(k,1276) * lu(k,1389) - lu(k,1395) = lu(k,1395) - lu(k,1277) * lu(k,1389) - lu(k,1396) = lu(k,1396) - lu(k,1278) * lu(k,1389) - lu(k,1397) = lu(k,1397) - lu(k,1279) * lu(k,1389) - lu(k,1398) = lu(k,1398) - lu(k,1280) * lu(k,1389) - lu(k,1399) = lu(k,1399) - lu(k,1281) * lu(k,1389) - lu(k,1400) = lu(k,1400) - lu(k,1282) * lu(k,1389) - lu(k,1401) = lu(k,1401) - lu(k,1283) * lu(k,1389) - lu(k,1402) = lu(k,1402) - lu(k,1284) * lu(k,1389) - lu(k,1434) = lu(k,1434) - lu(k,1272) * lu(k,1433) - lu(k,1435) = lu(k,1435) - lu(k,1273) * lu(k,1433) - lu(k,1436) = lu(k,1436) - lu(k,1274) * lu(k,1433) - lu(k,1437) = lu(k,1437) - lu(k,1275) * lu(k,1433) - lu(k,1438) = lu(k,1438) - lu(k,1276) * lu(k,1433) - lu(k,1439) = lu(k,1439) - lu(k,1277) * lu(k,1433) - lu(k,1440) = lu(k,1440) - lu(k,1278) * lu(k,1433) - lu(k,1441) = lu(k,1441) - lu(k,1279) * lu(k,1433) - lu(k,1442) = lu(k,1442) - lu(k,1280) * lu(k,1433) - lu(k,1443) = lu(k,1443) - lu(k,1281) * lu(k,1433) - lu(k,1444) = lu(k,1444) - lu(k,1282) * lu(k,1433) - lu(k,1445) = lu(k,1445) - lu(k,1283) * lu(k,1433) - lu(k,1446) = lu(k,1446) - lu(k,1284) * lu(k,1433) - lu(k,1480) = lu(k,1480) - lu(k,1272) * lu(k,1479) - lu(k,1481) = lu(k,1481) - lu(k,1273) * lu(k,1479) - lu(k,1482) = lu(k,1482) - lu(k,1274) * lu(k,1479) - lu(k,1483) = lu(k,1483) - lu(k,1275) * lu(k,1479) - lu(k,1484) = lu(k,1484) - lu(k,1276) * lu(k,1479) - lu(k,1485) = lu(k,1485) - lu(k,1277) * lu(k,1479) - lu(k,1486) = lu(k,1486) - lu(k,1278) * lu(k,1479) - lu(k,1487) = lu(k,1487) - lu(k,1279) * lu(k,1479) - lu(k,1488) = lu(k,1488) - lu(k,1280) * lu(k,1479) - lu(k,1489) = lu(k,1489) - lu(k,1281) * lu(k,1479) - lu(k,1490) = lu(k,1490) - lu(k,1282) * lu(k,1479) - lu(k,1491) = lu(k,1491) - lu(k,1283) * lu(k,1479) - lu(k,1492) = lu(k,1492) - lu(k,1284) * lu(k,1479) - lu(k,1522) = lu(k,1522) - lu(k,1272) * lu(k,1521) - lu(k,1523) = lu(k,1523) - lu(k,1273) * lu(k,1521) - lu(k,1524) = lu(k,1524) - lu(k,1274) * lu(k,1521) - lu(k,1525) = lu(k,1525) - lu(k,1275) * lu(k,1521) - lu(k,1526) = lu(k,1526) - lu(k,1276) * lu(k,1521) - lu(k,1527) = lu(k,1527) - lu(k,1277) * lu(k,1521) - lu(k,1528) = lu(k,1528) - lu(k,1278) * lu(k,1521) - lu(k,1529) = lu(k,1529) - lu(k,1279) * lu(k,1521) - lu(k,1530) = lu(k,1530) - lu(k,1280) * lu(k,1521) - lu(k,1531) = lu(k,1531) - lu(k,1281) * lu(k,1521) - lu(k,1532) = lu(k,1532) - lu(k,1282) * lu(k,1521) - lu(k,1533) = lu(k,1533) - lu(k,1283) * lu(k,1521) - lu(k,1534) = lu(k,1534) - lu(k,1284) * lu(k,1521) - lu(k,1563) = lu(k,1563) - lu(k,1272) * lu(k,1562) - lu(k,1564) = lu(k,1564) - lu(k,1273) * lu(k,1562) - lu(k,1565) = lu(k,1565) - lu(k,1274) * lu(k,1562) - lu(k,1566) = lu(k,1566) - lu(k,1275) * lu(k,1562) - lu(k,1567) = lu(k,1567) - lu(k,1276) * lu(k,1562) - lu(k,1568) = lu(k,1568) - lu(k,1277) * lu(k,1562) - lu(k,1569) = lu(k,1569) - lu(k,1278) * lu(k,1562) - lu(k,1570) = lu(k,1570) - lu(k,1279) * lu(k,1562) - lu(k,1571) = lu(k,1571) - lu(k,1280) * lu(k,1562) - lu(k,1572) = lu(k,1572) - lu(k,1281) * lu(k,1562) - lu(k,1573) = lu(k,1573) - lu(k,1282) * lu(k,1562) - lu(k,1574) = lu(k,1574) - lu(k,1283) * lu(k,1562) - lu(k,1575) = lu(k,1575) - lu(k,1284) * lu(k,1562) - lu(k,1620) = lu(k,1620) - lu(k,1272) * lu(k,1619) - lu(k,1621) = lu(k,1621) - lu(k,1273) * lu(k,1619) - lu(k,1622) = lu(k,1622) - lu(k,1274) * lu(k,1619) - lu(k,1623) = lu(k,1623) - lu(k,1275) * lu(k,1619) - lu(k,1624) = lu(k,1624) - lu(k,1276) * lu(k,1619) - lu(k,1625) = lu(k,1625) - lu(k,1277) * lu(k,1619) - lu(k,1626) = lu(k,1626) - lu(k,1278) * lu(k,1619) - lu(k,1627) = lu(k,1627) - lu(k,1279) * lu(k,1619) - lu(k,1628) = lu(k,1628) - lu(k,1280) * lu(k,1619) - lu(k,1629) = lu(k,1629) - lu(k,1281) * lu(k,1619) - lu(k,1630) = lu(k,1630) - lu(k,1282) * lu(k,1619) - lu(k,1631) = lu(k,1631) - lu(k,1283) * lu(k,1619) - lu(k,1632) = lu(k,1632) - lu(k,1284) * lu(k,1619) - lu(k,1649) = lu(k,1649) - lu(k,1272) * lu(k,1648) - lu(k,1650) = lu(k,1650) - lu(k,1273) * lu(k,1648) - lu(k,1651) = lu(k,1651) - lu(k,1274) * lu(k,1648) - lu(k,1652) = lu(k,1652) - lu(k,1275) * lu(k,1648) - lu(k,1653) = lu(k,1653) - lu(k,1276) * lu(k,1648) - lu(k,1654) = lu(k,1654) - lu(k,1277) * lu(k,1648) - lu(k,1655) = lu(k,1655) - lu(k,1278) * lu(k,1648) - lu(k,1656) = lu(k,1656) - lu(k,1279) * lu(k,1648) - lu(k,1657) = lu(k,1657) - lu(k,1280) * lu(k,1648) - lu(k,1658) = lu(k,1658) - lu(k,1281) * lu(k,1648) - lu(k,1659) = lu(k,1659) - lu(k,1282) * lu(k,1648) - lu(k,1660) = lu(k,1660) - lu(k,1283) * lu(k,1648) - lu(k,1661) = lu(k,1661) - lu(k,1284) * lu(k,1648) - lu(k,1681) = lu(k,1681) - lu(k,1272) * lu(k,1680) - lu(k,1682) = lu(k,1682) - lu(k,1273) * lu(k,1680) - lu(k,1683) = lu(k,1683) - lu(k,1274) * lu(k,1680) - lu(k,1684) = lu(k,1684) - lu(k,1275) * lu(k,1680) - lu(k,1685) = lu(k,1685) - lu(k,1276) * lu(k,1680) - lu(k,1686) = lu(k,1686) - lu(k,1277) * lu(k,1680) - lu(k,1687) = lu(k,1687) - lu(k,1278) * lu(k,1680) - lu(k,1688) = lu(k,1688) - lu(k,1279) * lu(k,1680) - lu(k,1689) = lu(k,1689) - lu(k,1280) * lu(k,1680) - lu(k,1690) = lu(k,1690) - lu(k,1281) * lu(k,1680) - lu(k,1691) = lu(k,1691) - lu(k,1282) * lu(k,1680) - lu(k,1692) = lu(k,1692) - lu(k,1283) * lu(k,1680) - lu(k,1693) = lu(k,1693) - lu(k,1284) * lu(k,1680) - lu(k,1716) = lu(k,1716) - lu(k,1272) * lu(k,1715) - lu(k,1717) = lu(k,1717) - lu(k,1273) * lu(k,1715) - lu(k,1718) = lu(k,1718) - lu(k,1274) * lu(k,1715) - lu(k,1719) = lu(k,1719) - lu(k,1275) * lu(k,1715) - lu(k,1720) = lu(k,1720) - lu(k,1276) * lu(k,1715) - lu(k,1721) = lu(k,1721) - lu(k,1277) * lu(k,1715) - lu(k,1722) = lu(k,1722) - lu(k,1278) * lu(k,1715) - lu(k,1723) = lu(k,1723) - lu(k,1279) * lu(k,1715) - lu(k,1724) = lu(k,1724) - lu(k,1280) * lu(k,1715) - lu(k,1725) = lu(k,1725) - lu(k,1281) * lu(k,1715) - lu(k,1726) = lu(k,1726) - lu(k,1282) * lu(k,1715) - lu(k,1727) = lu(k,1727) - lu(k,1283) * lu(k,1715) - lu(k,1728) = lu(k,1728) - lu(k,1284) * lu(k,1715) - lu(k,1758) = lu(k,1758) - lu(k,1272) * lu(k,1757) - lu(k,1759) = lu(k,1759) - lu(k,1273) * lu(k,1757) - lu(k,1760) = lu(k,1760) - lu(k,1274) * lu(k,1757) - lu(k,1761) = lu(k,1761) - lu(k,1275) * lu(k,1757) - lu(k,1762) = lu(k,1762) - lu(k,1276) * lu(k,1757) - lu(k,1763) = lu(k,1763) - lu(k,1277) * lu(k,1757) - lu(k,1764) = lu(k,1764) - lu(k,1278) * lu(k,1757) - lu(k,1765) = lu(k,1765) - lu(k,1279) * lu(k,1757) - lu(k,1766) = lu(k,1766) - lu(k,1280) * lu(k,1757) - lu(k,1767) = lu(k,1767) - lu(k,1281) * lu(k,1757) - lu(k,1768) = lu(k,1768) - lu(k,1282) * lu(k,1757) - lu(k,1769) = lu(k,1769) - lu(k,1283) * lu(k,1757) - lu(k,1770) = lu(k,1770) - lu(k,1284) * lu(k,1757) - lu(k,1816) = lu(k,1816) - lu(k,1272) * lu(k,1815) - lu(k,1817) = lu(k,1817) - lu(k,1273) * lu(k,1815) - lu(k,1818) = lu(k,1818) - lu(k,1274) * lu(k,1815) - lu(k,1819) = lu(k,1819) - lu(k,1275) * lu(k,1815) - lu(k,1820) = lu(k,1820) - lu(k,1276) * lu(k,1815) - lu(k,1821) = lu(k,1821) - lu(k,1277) * lu(k,1815) - lu(k,1822) = lu(k,1822) - lu(k,1278) * lu(k,1815) - lu(k,1823) = lu(k,1823) - lu(k,1279) * lu(k,1815) - lu(k,1824) = lu(k,1824) - lu(k,1280) * lu(k,1815) - lu(k,1825) = lu(k,1825) - lu(k,1281) * lu(k,1815) - lu(k,1826) = lu(k,1826) - lu(k,1282) * lu(k,1815) - lu(k,1827) = lu(k,1827) - lu(k,1283) * lu(k,1815) - lu(k,1828) = lu(k,1828) - lu(k,1284) * lu(k,1815) - lu(k,1316) = 1._r8 / lu(k,1316) - lu(k,1317) = lu(k,1317) * lu(k,1316) - lu(k,1318) = lu(k,1318) * lu(k,1316) - lu(k,1319) = lu(k,1319) * lu(k,1316) - lu(k,1320) = lu(k,1320) * lu(k,1316) - lu(k,1321) = lu(k,1321) * lu(k,1316) - lu(k,1322) = lu(k,1322) * lu(k,1316) - lu(k,1323) = lu(k,1323) * lu(k,1316) - lu(k,1324) = lu(k,1324) * lu(k,1316) - lu(k,1325) = lu(k,1325) * lu(k,1316) - lu(k,1326) = lu(k,1326) * lu(k,1316) - lu(k,1327) = lu(k,1327) * lu(k,1316) - lu(k,1328) = lu(k,1328) * lu(k,1316) - lu(k,1356) = lu(k,1356) - lu(k,1317) * lu(k,1355) - lu(k,1357) = lu(k,1357) - lu(k,1318) * lu(k,1355) - lu(k,1358) = lu(k,1358) - lu(k,1319) * lu(k,1355) - lu(k,1359) = lu(k,1359) - lu(k,1320) * lu(k,1355) - lu(k,1360) = lu(k,1360) - lu(k,1321) * lu(k,1355) - lu(k,1361) = lu(k,1361) - lu(k,1322) * lu(k,1355) - lu(k,1362) = lu(k,1362) - lu(k,1323) * lu(k,1355) - lu(k,1363) = lu(k,1363) - lu(k,1324) * lu(k,1355) - lu(k,1364) = lu(k,1364) - lu(k,1325) * lu(k,1355) - lu(k,1365) = lu(k,1365) - lu(k,1326) * lu(k,1355) - lu(k,1366) = lu(k,1366) - lu(k,1327) * lu(k,1355) - lu(k,1367) = lu(k,1367) - lu(k,1328) * lu(k,1355) - lu(k,1391) = lu(k,1391) - lu(k,1317) * lu(k,1390) - lu(k,1392) = lu(k,1392) - lu(k,1318) * lu(k,1390) - lu(k,1393) = lu(k,1393) - lu(k,1319) * lu(k,1390) - lu(k,1394) = lu(k,1394) - lu(k,1320) * lu(k,1390) - lu(k,1395) = lu(k,1395) - lu(k,1321) * lu(k,1390) - lu(k,1396) = lu(k,1396) - lu(k,1322) * lu(k,1390) - lu(k,1397) = lu(k,1397) - lu(k,1323) * lu(k,1390) - lu(k,1398) = lu(k,1398) - lu(k,1324) * lu(k,1390) - lu(k,1399) = lu(k,1399) - lu(k,1325) * lu(k,1390) - lu(k,1400) = lu(k,1400) - lu(k,1326) * lu(k,1390) - lu(k,1401) = lu(k,1401) - lu(k,1327) * lu(k,1390) - lu(k,1402) = lu(k,1402) - lu(k,1328) * lu(k,1390) - lu(k,1435) = lu(k,1435) - lu(k,1317) * lu(k,1434) - lu(k,1436) = lu(k,1436) - lu(k,1318) * lu(k,1434) - lu(k,1437) = lu(k,1437) - lu(k,1319) * lu(k,1434) - lu(k,1438) = lu(k,1438) - lu(k,1320) * lu(k,1434) - lu(k,1439) = lu(k,1439) - lu(k,1321) * lu(k,1434) - lu(k,1440) = lu(k,1440) - lu(k,1322) * lu(k,1434) - lu(k,1441) = lu(k,1441) - lu(k,1323) * lu(k,1434) - lu(k,1442) = lu(k,1442) - lu(k,1324) * lu(k,1434) - lu(k,1443) = lu(k,1443) - lu(k,1325) * lu(k,1434) - lu(k,1444) = lu(k,1444) - lu(k,1326) * lu(k,1434) - lu(k,1445) = lu(k,1445) - lu(k,1327) * lu(k,1434) - lu(k,1446) = lu(k,1446) - lu(k,1328) * lu(k,1434) - lu(k,1481) = lu(k,1481) - lu(k,1317) * lu(k,1480) - lu(k,1482) = lu(k,1482) - lu(k,1318) * lu(k,1480) - lu(k,1483) = lu(k,1483) - lu(k,1319) * lu(k,1480) - lu(k,1484) = lu(k,1484) - lu(k,1320) * lu(k,1480) - lu(k,1485) = lu(k,1485) - lu(k,1321) * lu(k,1480) - lu(k,1486) = lu(k,1486) - lu(k,1322) * lu(k,1480) - lu(k,1487) = lu(k,1487) - lu(k,1323) * lu(k,1480) - lu(k,1488) = lu(k,1488) - lu(k,1324) * lu(k,1480) - lu(k,1489) = lu(k,1489) - lu(k,1325) * lu(k,1480) - lu(k,1490) = lu(k,1490) - lu(k,1326) * lu(k,1480) - lu(k,1491) = lu(k,1491) - lu(k,1327) * lu(k,1480) - lu(k,1492) = lu(k,1492) - lu(k,1328) * lu(k,1480) - lu(k,1523) = lu(k,1523) - lu(k,1317) * lu(k,1522) - lu(k,1524) = lu(k,1524) - lu(k,1318) * lu(k,1522) - lu(k,1525) = lu(k,1525) - lu(k,1319) * lu(k,1522) - lu(k,1526) = lu(k,1526) - lu(k,1320) * lu(k,1522) - lu(k,1527) = lu(k,1527) - lu(k,1321) * lu(k,1522) - lu(k,1528) = lu(k,1528) - lu(k,1322) * lu(k,1522) - lu(k,1529) = lu(k,1529) - lu(k,1323) * lu(k,1522) - lu(k,1530) = lu(k,1530) - lu(k,1324) * lu(k,1522) - lu(k,1531) = lu(k,1531) - lu(k,1325) * lu(k,1522) - lu(k,1532) = lu(k,1532) - lu(k,1326) * lu(k,1522) - lu(k,1533) = lu(k,1533) - lu(k,1327) * lu(k,1522) - lu(k,1534) = lu(k,1534) - lu(k,1328) * lu(k,1522) - lu(k,1564) = lu(k,1564) - lu(k,1317) * lu(k,1563) - lu(k,1565) = lu(k,1565) - lu(k,1318) * lu(k,1563) - lu(k,1566) = lu(k,1566) - lu(k,1319) * lu(k,1563) - lu(k,1567) = lu(k,1567) - lu(k,1320) * lu(k,1563) - lu(k,1568) = lu(k,1568) - lu(k,1321) * lu(k,1563) - lu(k,1569) = lu(k,1569) - lu(k,1322) * lu(k,1563) - lu(k,1570) = lu(k,1570) - lu(k,1323) * lu(k,1563) - lu(k,1571) = lu(k,1571) - lu(k,1324) * lu(k,1563) - lu(k,1572) = lu(k,1572) - lu(k,1325) * lu(k,1563) - lu(k,1573) = lu(k,1573) - lu(k,1326) * lu(k,1563) - lu(k,1574) = lu(k,1574) - lu(k,1327) * lu(k,1563) - lu(k,1575) = lu(k,1575) - lu(k,1328) * lu(k,1563) - lu(k,1621) = lu(k,1621) - lu(k,1317) * lu(k,1620) - lu(k,1622) = lu(k,1622) - lu(k,1318) * lu(k,1620) - lu(k,1623) = lu(k,1623) - lu(k,1319) * lu(k,1620) - lu(k,1624) = lu(k,1624) - lu(k,1320) * lu(k,1620) - lu(k,1625) = lu(k,1625) - lu(k,1321) * lu(k,1620) - lu(k,1626) = lu(k,1626) - lu(k,1322) * lu(k,1620) - lu(k,1627) = lu(k,1627) - lu(k,1323) * lu(k,1620) - lu(k,1628) = lu(k,1628) - lu(k,1324) * lu(k,1620) - lu(k,1629) = lu(k,1629) - lu(k,1325) * lu(k,1620) - lu(k,1630) = lu(k,1630) - lu(k,1326) * lu(k,1620) - lu(k,1631) = lu(k,1631) - lu(k,1327) * lu(k,1620) - lu(k,1632) = lu(k,1632) - lu(k,1328) * lu(k,1620) - lu(k,1650) = lu(k,1650) - lu(k,1317) * lu(k,1649) - lu(k,1651) = lu(k,1651) - lu(k,1318) * lu(k,1649) - lu(k,1652) = lu(k,1652) - lu(k,1319) * lu(k,1649) - lu(k,1653) = lu(k,1653) - lu(k,1320) * lu(k,1649) - lu(k,1654) = lu(k,1654) - lu(k,1321) * lu(k,1649) - lu(k,1655) = lu(k,1655) - lu(k,1322) * lu(k,1649) - lu(k,1656) = lu(k,1656) - lu(k,1323) * lu(k,1649) - lu(k,1657) = lu(k,1657) - lu(k,1324) * lu(k,1649) - lu(k,1658) = lu(k,1658) - lu(k,1325) * lu(k,1649) - lu(k,1659) = lu(k,1659) - lu(k,1326) * lu(k,1649) - lu(k,1660) = lu(k,1660) - lu(k,1327) * lu(k,1649) - lu(k,1661) = lu(k,1661) - lu(k,1328) * lu(k,1649) - lu(k,1682) = lu(k,1682) - lu(k,1317) * lu(k,1681) - lu(k,1683) = lu(k,1683) - lu(k,1318) * lu(k,1681) - lu(k,1684) = lu(k,1684) - lu(k,1319) * lu(k,1681) - lu(k,1685) = lu(k,1685) - lu(k,1320) * lu(k,1681) - lu(k,1686) = lu(k,1686) - lu(k,1321) * lu(k,1681) - lu(k,1687) = lu(k,1687) - lu(k,1322) * lu(k,1681) - lu(k,1688) = lu(k,1688) - lu(k,1323) * lu(k,1681) - lu(k,1689) = lu(k,1689) - lu(k,1324) * lu(k,1681) - lu(k,1690) = lu(k,1690) - lu(k,1325) * lu(k,1681) - lu(k,1691) = lu(k,1691) - lu(k,1326) * lu(k,1681) - lu(k,1692) = lu(k,1692) - lu(k,1327) * lu(k,1681) - lu(k,1693) = lu(k,1693) - lu(k,1328) * lu(k,1681) - lu(k,1717) = lu(k,1717) - lu(k,1317) * lu(k,1716) - lu(k,1718) = lu(k,1718) - lu(k,1318) * lu(k,1716) - lu(k,1719) = lu(k,1719) - lu(k,1319) * lu(k,1716) - lu(k,1720) = lu(k,1720) - lu(k,1320) * lu(k,1716) - lu(k,1721) = lu(k,1721) - lu(k,1321) * lu(k,1716) - lu(k,1722) = lu(k,1722) - lu(k,1322) * lu(k,1716) - lu(k,1723) = lu(k,1723) - lu(k,1323) * lu(k,1716) - lu(k,1724) = lu(k,1724) - lu(k,1324) * lu(k,1716) - lu(k,1725) = lu(k,1725) - lu(k,1325) * lu(k,1716) - lu(k,1726) = lu(k,1726) - lu(k,1326) * lu(k,1716) - lu(k,1727) = lu(k,1727) - lu(k,1327) * lu(k,1716) - lu(k,1728) = lu(k,1728) - lu(k,1328) * lu(k,1716) - lu(k,1759) = lu(k,1759) - lu(k,1317) * lu(k,1758) - lu(k,1760) = lu(k,1760) - lu(k,1318) * lu(k,1758) - lu(k,1761) = lu(k,1761) - lu(k,1319) * lu(k,1758) - lu(k,1762) = lu(k,1762) - lu(k,1320) * lu(k,1758) - lu(k,1763) = lu(k,1763) - lu(k,1321) * lu(k,1758) - lu(k,1764) = lu(k,1764) - lu(k,1322) * lu(k,1758) - lu(k,1765) = lu(k,1765) - lu(k,1323) * lu(k,1758) - lu(k,1766) = lu(k,1766) - lu(k,1324) * lu(k,1758) - lu(k,1767) = lu(k,1767) - lu(k,1325) * lu(k,1758) - lu(k,1768) = lu(k,1768) - lu(k,1326) * lu(k,1758) - lu(k,1769) = lu(k,1769) - lu(k,1327) * lu(k,1758) - lu(k,1770) = lu(k,1770) - lu(k,1328) * lu(k,1758) - lu(k,1817) = lu(k,1817) - lu(k,1317) * lu(k,1816) - lu(k,1818) = lu(k,1818) - lu(k,1318) * lu(k,1816) - lu(k,1819) = lu(k,1819) - lu(k,1319) * lu(k,1816) - lu(k,1820) = lu(k,1820) - lu(k,1320) * lu(k,1816) - lu(k,1821) = lu(k,1821) - lu(k,1321) * lu(k,1816) - lu(k,1822) = lu(k,1822) - lu(k,1322) * lu(k,1816) - lu(k,1823) = lu(k,1823) - lu(k,1323) * lu(k,1816) - lu(k,1824) = lu(k,1824) - lu(k,1324) * lu(k,1816) - lu(k,1825) = lu(k,1825) - lu(k,1325) * lu(k,1816) - lu(k,1826) = lu(k,1826) - lu(k,1326) * lu(k,1816) - lu(k,1827) = lu(k,1827) - lu(k,1327) * lu(k,1816) - lu(k,1828) = lu(k,1828) - lu(k,1328) * lu(k,1816) - lu(k,1356) = 1._r8 / lu(k,1356) - lu(k,1357) = lu(k,1357) * lu(k,1356) - lu(k,1358) = lu(k,1358) * lu(k,1356) - lu(k,1359) = lu(k,1359) * lu(k,1356) - lu(k,1360) = lu(k,1360) * lu(k,1356) - lu(k,1361) = lu(k,1361) * lu(k,1356) - lu(k,1362) = lu(k,1362) * lu(k,1356) - lu(k,1363) = lu(k,1363) * lu(k,1356) - lu(k,1364) = lu(k,1364) * lu(k,1356) - lu(k,1365) = lu(k,1365) * lu(k,1356) - lu(k,1366) = lu(k,1366) * lu(k,1356) - lu(k,1367) = lu(k,1367) * lu(k,1356) - lu(k,1392) = lu(k,1392) - lu(k,1357) * lu(k,1391) - lu(k,1393) = lu(k,1393) - lu(k,1358) * lu(k,1391) - lu(k,1394) = lu(k,1394) - lu(k,1359) * lu(k,1391) - lu(k,1395) = lu(k,1395) - lu(k,1360) * lu(k,1391) - lu(k,1396) = lu(k,1396) - lu(k,1361) * lu(k,1391) - lu(k,1397) = lu(k,1397) - lu(k,1362) * lu(k,1391) - lu(k,1398) = lu(k,1398) - lu(k,1363) * lu(k,1391) - lu(k,1399) = lu(k,1399) - lu(k,1364) * lu(k,1391) - lu(k,1400) = lu(k,1400) - lu(k,1365) * lu(k,1391) - lu(k,1401) = lu(k,1401) - lu(k,1366) * lu(k,1391) - lu(k,1402) = lu(k,1402) - lu(k,1367) * lu(k,1391) - lu(k,1436) = lu(k,1436) - lu(k,1357) * lu(k,1435) - lu(k,1437) = lu(k,1437) - lu(k,1358) * lu(k,1435) - lu(k,1438) = lu(k,1438) - lu(k,1359) * lu(k,1435) - lu(k,1439) = lu(k,1439) - lu(k,1360) * lu(k,1435) - lu(k,1440) = lu(k,1440) - lu(k,1361) * lu(k,1435) - lu(k,1441) = lu(k,1441) - lu(k,1362) * lu(k,1435) - lu(k,1442) = lu(k,1442) - lu(k,1363) * lu(k,1435) - lu(k,1443) = lu(k,1443) - lu(k,1364) * lu(k,1435) - lu(k,1444) = lu(k,1444) - lu(k,1365) * lu(k,1435) - lu(k,1445) = lu(k,1445) - lu(k,1366) * lu(k,1435) - lu(k,1446) = lu(k,1446) - lu(k,1367) * lu(k,1435) - lu(k,1482) = lu(k,1482) - lu(k,1357) * lu(k,1481) - lu(k,1483) = lu(k,1483) - lu(k,1358) * lu(k,1481) - lu(k,1484) = lu(k,1484) - lu(k,1359) * lu(k,1481) - lu(k,1485) = lu(k,1485) - lu(k,1360) * lu(k,1481) - lu(k,1486) = lu(k,1486) - lu(k,1361) * lu(k,1481) - lu(k,1487) = lu(k,1487) - lu(k,1362) * lu(k,1481) - lu(k,1488) = lu(k,1488) - lu(k,1363) * lu(k,1481) - lu(k,1489) = lu(k,1489) - lu(k,1364) * lu(k,1481) - lu(k,1490) = lu(k,1490) - lu(k,1365) * lu(k,1481) - lu(k,1491) = lu(k,1491) - lu(k,1366) * lu(k,1481) - lu(k,1492) = lu(k,1492) - lu(k,1367) * lu(k,1481) - lu(k,1524) = lu(k,1524) - lu(k,1357) * lu(k,1523) - lu(k,1525) = lu(k,1525) - lu(k,1358) * lu(k,1523) - lu(k,1526) = lu(k,1526) - lu(k,1359) * lu(k,1523) - lu(k,1527) = lu(k,1527) - lu(k,1360) * lu(k,1523) - lu(k,1528) = lu(k,1528) - lu(k,1361) * lu(k,1523) - lu(k,1529) = lu(k,1529) - lu(k,1362) * lu(k,1523) - lu(k,1530) = lu(k,1530) - lu(k,1363) * lu(k,1523) - lu(k,1531) = lu(k,1531) - lu(k,1364) * lu(k,1523) - lu(k,1532) = lu(k,1532) - lu(k,1365) * lu(k,1523) - lu(k,1533) = lu(k,1533) - lu(k,1366) * lu(k,1523) - lu(k,1534) = lu(k,1534) - lu(k,1367) * lu(k,1523) - lu(k,1565) = lu(k,1565) - lu(k,1357) * lu(k,1564) - lu(k,1566) = lu(k,1566) - lu(k,1358) * lu(k,1564) - lu(k,1567) = lu(k,1567) - lu(k,1359) * lu(k,1564) - lu(k,1568) = lu(k,1568) - lu(k,1360) * lu(k,1564) - lu(k,1569) = lu(k,1569) - lu(k,1361) * lu(k,1564) - lu(k,1570) = lu(k,1570) - lu(k,1362) * lu(k,1564) - lu(k,1571) = lu(k,1571) - lu(k,1363) * lu(k,1564) - lu(k,1572) = lu(k,1572) - lu(k,1364) * lu(k,1564) - lu(k,1573) = lu(k,1573) - lu(k,1365) * lu(k,1564) - lu(k,1574) = lu(k,1574) - lu(k,1366) * lu(k,1564) - lu(k,1575) = lu(k,1575) - lu(k,1367) * lu(k,1564) - lu(k,1622) = lu(k,1622) - lu(k,1357) * lu(k,1621) - lu(k,1623) = lu(k,1623) - lu(k,1358) * lu(k,1621) - lu(k,1624) = lu(k,1624) - lu(k,1359) * lu(k,1621) - lu(k,1625) = lu(k,1625) - lu(k,1360) * lu(k,1621) - lu(k,1626) = lu(k,1626) - lu(k,1361) * lu(k,1621) - lu(k,1627) = lu(k,1627) - lu(k,1362) * lu(k,1621) - lu(k,1628) = lu(k,1628) - lu(k,1363) * lu(k,1621) - lu(k,1629) = lu(k,1629) - lu(k,1364) * lu(k,1621) - lu(k,1630) = lu(k,1630) - lu(k,1365) * lu(k,1621) - lu(k,1631) = lu(k,1631) - lu(k,1366) * lu(k,1621) - lu(k,1632) = lu(k,1632) - lu(k,1367) * lu(k,1621) - lu(k,1651) = lu(k,1651) - lu(k,1357) * lu(k,1650) - lu(k,1652) = lu(k,1652) - lu(k,1358) * lu(k,1650) - lu(k,1653) = lu(k,1653) - lu(k,1359) * lu(k,1650) - lu(k,1654) = lu(k,1654) - lu(k,1360) * lu(k,1650) - lu(k,1655) = lu(k,1655) - lu(k,1361) * lu(k,1650) - lu(k,1656) = lu(k,1656) - lu(k,1362) * lu(k,1650) - lu(k,1657) = lu(k,1657) - lu(k,1363) * lu(k,1650) - lu(k,1658) = lu(k,1658) - lu(k,1364) * lu(k,1650) - lu(k,1659) = lu(k,1659) - lu(k,1365) * lu(k,1650) - lu(k,1660) = lu(k,1660) - lu(k,1366) * lu(k,1650) - lu(k,1661) = lu(k,1661) - lu(k,1367) * lu(k,1650) - lu(k,1683) = lu(k,1683) - lu(k,1357) * lu(k,1682) - lu(k,1684) = lu(k,1684) - lu(k,1358) * lu(k,1682) - lu(k,1685) = lu(k,1685) - lu(k,1359) * lu(k,1682) - lu(k,1686) = lu(k,1686) - lu(k,1360) * lu(k,1682) - lu(k,1687) = lu(k,1687) - lu(k,1361) * lu(k,1682) - lu(k,1688) = lu(k,1688) - lu(k,1362) * lu(k,1682) - lu(k,1689) = lu(k,1689) - lu(k,1363) * lu(k,1682) - lu(k,1690) = lu(k,1690) - lu(k,1364) * lu(k,1682) - lu(k,1691) = lu(k,1691) - lu(k,1365) * lu(k,1682) - lu(k,1692) = lu(k,1692) - lu(k,1366) * lu(k,1682) - lu(k,1693) = lu(k,1693) - lu(k,1367) * lu(k,1682) - lu(k,1718) = lu(k,1718) - lu(k,1357) * lu(k,1717) - lu(k,1719) = lu(k,1719) - lu(k,1358) * lu(k,1717) - lu(k,1720) = lu(k,1720) - lu(k,1359) * lu(k,1717) - lu(k,1721) = lu(k,1721) - lu(k,1360) * lu(k,1717) - lu(k,1722) = lu(k,1722) - lu(k,1361) * lu(k,1717) - lu(k,1723) = lu(k,1723) - lu(k,1362) * lu(k,1717) - lu(k,1724) = lu(k,1724) - lu(k,1363) * lu(k,1717) - lu(k,1725) = lu(k,1725) - lu(k,1364) * lu(k,1717) - lu(k,1726) = lu(k,1726) - lu(k,1365) * lu(k,1717) - lu(k,1727) = lu(k,1727) - lu(k,1366) * lu(k,1717) - lu(k,1728) = lu(k,1728) - lu(k,1367) * lu(k,1717) - lu(k,1760) = lu(k,1760) - lu(k,1357) * lu(k,1759) - lu(k,1761) = lu(k,1761) - lu(k,1358) * lu(k,1759) - lu(k,1762) = lu(k,1762) - lu(k,1359) * lu(k,1759) - lu(k,1763) = lu(k,1763) - lu(k,1360) * lu(k,1759) - lu(k,1764) = lu(k,1764) - lu(k,1361) * lu(k,1759) - lu(k,1765) = lu(k,1765) - lu(k,1362) * lu(k,1759) - lu(k,1766) = lu(k,1766) - lu(k,1363) * lu(k,1759) - lu(k,1767) = lu(k,1767) - lu(k,1364) * lu(k,1759) - lu(k,1768) = lu(k,1768) - lu(k,1365) * lu(k,1759) - lu(k,1769) = lu(k,1769) - lu(k,1366) * lu(k,1759) - lu(k,1770) = lu(k,1770) - lu(k,1367) * lu(k,1759) - lu(k,1818) = lu(k,1818) - lu(k,1357) * lu(k,1817) - lu(k,1819) = lu(k,1819) - lu(k,1358) * lu(k,1817) - lu(k,1820) = lu(k,1820) - lu(k,1359) * lu(k,1817) - lu(k,1821) = lu(k,1821) - lu(k,1360) * lu(k,1817) - lu(k,1822) = lu(k,1822) - lu(k,1361) * lu(k,1817) - lu(k,1823) = lu(k,1823) - lu(k,1362) * lu(k,1817) - lu(k,1824) = lu(k,1824) - lu(k,1363) * lu(k,1817) - lu(k,1825) = lu(k,1825) - lu(k,1364) * lu(k,1817) - lu(k,1826) = lu(k,1826) - lu(k,1365) * lu(k,1817) - lu(k,1827) = lu(k,1827) - lu(k,1366) * lu(k,1817) - lu(k,1828) = lu(k,1828) - lu(k,1367) * lu(k,1817) - 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,1392) = 1._r8 / lu(k,1392) - lu(k,1393) = lu(k,1393) * lu(k,1392) - lu(k,1394) = lu(k,1394) * lu(k,1392) - lu(k,1395) = lu(k,1395) * lu(k,1392) - lu(k,1396) = lu(k,1396) * lu(k,1392) - lu(k,1397) = lu(k,1397) * lu(k,1392) - lu(k,1398) = lu(k,1398) * lu(k,1392) - lu(k,1399) = lu(k,1399) * lu(k,1392) - lu(k,1400) = lu(k,1400) * lu(k,1392) - lu(k,1401) = lu(k,1401) * lu(k,1392) - lu(k,1402) = lu(k,1402) * lu(k,1392) - lu(k,1437) = lu(k,1437) - lu(k,1393) * lu(k,1436) - lu(k,1438) = lu(k,1438) - lu(k,1394) * lu(k,1436) - lu(k,1439) = lu(k,1439) - lu(k,1395) * lu(k,1436) - lu(k,1440) = lu(k,1440) - lu(k,1396) * lu(k,1436) - lu(k,1441) = lu(k,1441) - lu(k,1397) * lu(k,1436) - lu(k,1442) = lu(k,1442) - lu(k,1398) * lu(k,1436) - lu(k,1443) = lu(k,1443) - lu(k,1399) * lu(k,1436) - lu(k,1444) = lu(k,1444) - lu(k,1400) * lu(k,1436) - lu(k,1445) = lu(k,1445) - lu(k,1401) * lu(k,1436) - lu(k,1446) = lu(k,1446) - lu(k,1402) * lu(k,1436) - lu(k,1483) = lu(k,1483) - lu(k,1393) * lu(k,1482) - lu(k,1484) = lu(k,1484) - lu(k,1394) * lu(k,1482) - lu(k,1485) = lu(k,1485) - lu(k,1395) * lu(k,1482) - lu(k,1486) = lu(k,1486) - lu(k,1396) * lu(k,1482) - lu(k,1487) = lu(k,1487) - lu(k,1397) * lu(k,1482) - lu(k,1488) = lu(k,1488) - lu(k,1398) * lu(k,1482) - lu(k,1489) = lu(k,1489) - lu(k,1399) * lu(k,1482) - lu(k,1490) = lu(k,1490) - lu(k,1400) * lu(k,1482) - lu(k,1491) = lu(k,1491) - lu(k,1401) * lu(k,1482) - lu(k,1492) = lu(k,1492) - lu(k,1402) * lu(k,1482) - lu(k,1525) = lu(k,1525) - lu(k,1393) * lu(k,1524) - lu(k,1526) = lu(k,1526) - lu(k,1394) * lu(k,1524) - lu(k,1527) = lu(k,1527) - lu(k,1395) * lu(k,1524) - lu(k,1528) = lu(k,1528) - lu(k,1396) * lu(k,1524) - lu(k,1529) = lu(k,1529) - lu(k,1397) * lu(k,1524) - lu(k,1530) = lu(k,1530) - lu(k,1398) * lu(k,1524) - lu(k,1531) = lu(k,1531) - lu(k,1399) * lu(k,1524) - lu(k,1532) = lu(k,1532) - lu(k,1400) * lu(k,1524) - lu(k,1533) = lu(k,1533) - lu(k,1401) * lu(k,1524) - lu(k,1534) = lu(k,1534) - lu(k,1402) * lu(k,1524) - lu(k,1566) = lu(k,1566) - lu(k,1393) * lu(k,1565) - lu(k,1567) = lu(k,1567) - lu(k,1394) * lu(k,1565) - lu(k,1568) = lu(k,1568) - lu(k,1395) * lu(k,1565) - lu(k,1569) = lu(k,1569) - lu(k,1396) * lu(k,1565) - lu(k,1570) = lu(k,1570) - lu(k,1397) * lu(k,1565) - lu(k,1571) = lu(k,1571) - lu(k,1398) * lu(k,1565) - lu(k,1572) = lu(k,1572) - lu(k,1399) * lu(k,1565) - lu(k,1573) = lu(k,1573) - lu(k,1400) * lu(k,1565) - lu(k,1574) = lu(k,1574) - lu(k,1401) * lu(k,1565) - lu(k,1575) = lu(k,1575) - lu(k,1402) * lu(k,1565) - lu(k,1623) = lu(k,1623) - lu(k,1393) * lu(k,1622) - lu(k,1624) = lu(k,1624) - lu(k,1394) * lu(k,1622) - lu(k,1625) = lu(k,1625) - lu(k,1395) * lu(k,1622) - lu(k,1626) = lu(k,1626) - lu(k,1396) * lu(k,1622) - lu(k,1627) = lu(k,1627) - lu(k,1397) * lu(k,1622) - lu(k,1628) = lu(k,1628) - lu(k,1398) * lu(k,1622) - lu(k,1629) = lu(k,1629) - lu(k,1399) * lu(k,1622) - lu(k,1630) = lu(k,1630) - lu(k,1400) * lu(k,1622) - lu(k,1631) = lu(k,1631) - lu(k,1401) * lu(k,1622) - lu(k,1632) = lu(k,1632) - lu(k,1402) * lu(k,1622) - lu(k,1652) = lu(k,1652) - lu(k,1393) * lu(k,1651) - lu(k,1653) = lu(k,1653) - lu(k,1394) * lu(k,1651) - lu(k,1654) = lu(k,1654) - lu(k,1395) * lu(k,1651) - lu(k,1655) = lu(k,1655) - lu(k,1396) * lu(k,1651) - lu(k,1656) = lu(k,1656) - lu(k,1397) * lu(k,1651) - lu(k,1657) = lu(k,1657) - lu(k,1398) * lu(k,1651) - lu(k,1658) = lu(k,1658) - lu(k,1399) * lu(k,1651) - lu(k,1659) = lu(k,1659) - lu(k,1400) * lu(k,1651) - lu(k,1660) = lu(k,1660) - lu(k,1401) * lu(k,1651) - lu(k,1661) = lu(k,1661) - lu(k,1402) * lu(k,1651) - lu(k,1684) = lu(k,1684) - lu(k,1393) * lu(k,1683) - lu(k,1685) = lu(k,1685) - lu(k,1394) * lu(k,1683) - lu(k,1686) = lu(k,1686) - lu(k,1395) * lu(k,1683) - lu(k,1687) = lu(k,1687) - lu(k,1396) * lu(k,1683) - lu(k,1688) = lu(k,1688) - lu(k,1397) * lu(k,1683) - lu(k,1689) = lu(k,1689) - lu(k,1398) * lu(k,1683) - lu(k,1690) = lu(k,1690) - lu(k,1399) * lu(k,1683) - lu(k,1691) = lu(k,1691) - lu(k,1400) * lu(k,1683) - lu(k,1692) = lu(k,1692) - lu(k,1401) * lu(k,1683) - lu(k,1693) = lu(k,1693) - lu(k,1402) * lu(k,1683) - lu(k,1719) = lu(k,1719) - lu(k,1393) * lu(k,1718) - lu(k,1720) = lu(k,1720) - lu(k,1394) * lu(k,1718) - lu(k,1721) = lu(k,1721) - lu(k,1395) * lu(k,1718) - lu(k,1722) = lu(k,1722) - lu(k,1396) * lu(k,1718) - lu(k,1723) = lu(k,1723) - lu(k,1397) * lu(k,1718) - lu(k,1724) = lu(k,1724) - lu(k,1398) * lu(k,1718) - lu(k,1725) = lu(k,1725) - lu(k,1399) * lu(k,1718) - lu(k,1726) = lu(k,1726) - lu(k,1400) * lu(k,1718) - lu(k,1727) = lu(k,1727) - lu(k,1401) * lu(k,1718) - lu(k,1728) = lu(k,1728) - lu(k,1402) * lu(k,1718) - lu(k,1761) = lu(k,1761) - lu(k,1393) * lu(k,1760) - lu(k,1762) = lu(k,1762) - lu(k,1394) * lu(k,1760) - lu(k,1763) = lu(k,1763) - lu(k,1395) * lu(k,1760) - lu(k,1764) = lu(k,1764) - lu(k,1396) * lu(k,1760) - lu(k,1765) = lu(k,1765) - lu(k,1397) * lu(k,1760) - lu(k,1766) = lu(k,1766) - lu(k,1398) * lu(k,1760) - lu(k,1767) = lu(k,1767) - lu(k,1399) * lu(k,1760) - lu(k,1768) = lu(k,1768) - lu(k,1400) * lu(k,1760) - lu(k,1769) = lu(k,1769) - lu(k,1401) * lu(k,1760) - lu(k,1770) = lu(k,1770) - lu(k,1402) * lu(k,1760) - lu(k,1819) = lu(k,1819) - lu(k,1393) * lu(k,1818) - lu(k,1820) = lu(k,1820) - lu(k,1394) * lu(k,1818) - lu(k,1821) = lu(k,1821) - lu(k,1395) * lu(k,1818) - lu(k,1822) = lu(k,1822) - lu(k,1396) * lu(k,1818) - lu(k,1823) = lu(k,1823) - lu(k,1397) * lu(k,1818) - lu(k,1824) = lu(k,1824) - lu(k,1398) * lu(k,1818) - lu(k,1825) = lu(k,1825) - lu(k,1399) * lu(k,1818) - lu(k,1826) = lu(k,1826) - lu(k,1400) * lu(k,1818) - lu(k,1827) = lu(k,1827) - lu(k,1401) * lu(k,1818) - lu(k,1828) = lu(k,1828) - lu(k,1402) * lu(k,1818) - lu(k,1437) = 1._r8 / lu(k,1437) - lu(k,1438) = lu(k,1438) * lu(k,1437) - lu(k,1439) = lu(k,1439) * lu(k,1437) - lu(k,1440) = lu(k,1440) * lu(k,1437) - lu(k,1441) = lu(k,1441) * lu(k,1437) - lu(k,1442) = lu(k,1442) * lu(k,1437) - lu(k,1443) = lu(k,1443) * lu(k,1437) - lu(k,1444) = lu(k,1444) * lu(k,1437) - lu(k,1445) = lu(k,1445) * lu(k,1437) - lu(k,1446) = lu(k,1446) * lu(k,1437) - lu(k,1484) = lu(k,1484) - lu(k,1438) * lu(k,1483) - lu(k,1485) = lu(k,1485) - lu(k,1439) * lu(k,1483) - lu(k,1486) = lu(k,1486) - lu(k,1440) * lu(k,1483) - lu(k,1487) = lu(k,1487) - lu(k,1441) * lu(k,1483) - lu(k,1488) = lu(k,1488) - lu(k,1442) * lu(k,1483) - lu(k,1489) = lu(k,1489) - lu(k,1443) * lu(k,1483) - lu(k,1490) = lu(k,1490) - lu(k,1444) * lu(k,1483) - lu(k,1491) = lu(k,1491) - lu(k,1445) * lu(k,1483) - lu(k,1492) = lu(k,1492) - lu(k,1446) * lu(k,1483) - lu(k,1526) = lu(k,1526) - lu(k,1438) * lu(k,1525) - lu(k,1527) = lu(k,1527) - lu(k,1439) * lu(k,1525) - lu(k,1528) = lu(k,1528) - lu(k,1440) * lu(k,1525) - lu(k,1529) = lu(k,1529) - lu(k,1441) * lu(k,1525) - lu(k,1530) = lu(k,1530) - lu(k,1442) * lu(k,1525) - lu(k,1531) = lu(k,1531) - lu(k,1443) * lu(k,1525) - lu(k,1532) = lu(k,1532) - lu(k,1444) * lu(k,1525) - lu(k,1533) = lu(k,1533) - lu(k,1445) * lu(k,1525) - lu(k,1534) = lu(k,1534) - lu(k,1446) * lu(k,1525) - lu(k,1567) = lu(k,1567) - lu(k,1438) * lu(k,1566) - lu(k,1568) = lu(k,1568) - lu(k,1439) * lu(k,1566) - lu(k,1569) = lu(k,1569) - lu(k,1440) * lu(k,1566) - lu(k,1570) = lu(k,1570) - lu(k,1441) * lu(k,1566) - lu(k,1571) = lu(k,1571) - lu(k,1442) * lu(k,1566) - lu(k,1572) = lu(k,1572) - lu(k,1443) * lu(k,1566) - lu(k,1573) = lu(k,1573) - lu(k,1444) * lu(k,1566) - lu(k,1574) = lu(k,1574) - lu(k,1445) * lu(k,1566) - lu(k,1575) = lu(k,1575) - lu(k,1446) * lu(k,1566) - lu(k,1624) = lu(k,1624) - lu(k,1438) * lu(k,1623) - lu(k,1625) = lu(k,1625) - lu(k,1439) * lu(k,1623) - lu(k,1626) = lu(k,1626) - lu(k,1440) * lu(k,1623) - lu(k,1627) = lu(k,1627) - lu(k,1441) * lu(k,1623) - lu(k,1628) = lu(k,1628) - lu(k,1442) * lu(k,1623) - lu(k,1629) = lu(k,1629) - lu(k,1443) * lu(k,1623) - lu(k,1630) = lu(k,1630) - lu(k,1444) * lu(k,1623) - lu(k,1631) = lu(k,1631) - lu(k,1445) * lu(k,1623) - lu(k,1632) = lu(k,1632) - lu(k,1446) * lu(k,1623) - lu(k,1653) = lu(k,1653) - lu(k,1438) * lu(k,1652) - lu(k,1654) = lu(k,1654) - lu(k,1439) * lu(k,1652) - lu(k,1655) = lu(k,1655) - lu(k,1440) * lu(k,1652) - lu(k,1656) = lu(k,1656) - lu(k,1441) * lu(k,1652) - lu(k,1657) = lu(k,1657) - lu(k,1442) * lu(k,1652) - lu(k,1658) = lu(k,1658) - lu(k,1443) * lu(k,1652) - lu(k,1659) = lu(k,1659) - lu(k,1444) * lu(k,1652) - lu(k,1660) = lu(k,1660) - lu(k,1445) * lu(k,1652) - lu(k,1661) = lu(k,1661) - lu(k,1446) * lu(k,1652) - lu(k,1685) = lu(k,1685) - lu(k,1438) * lu(k,1684) - lu(k,1686) = lu(k,1686) - lu(k,1439) * lu(k,1684) - lu(k,1687) = lu(k,1687) - lu(k,1440) * lu(k,1684) - lu(k,1688) = lu(k,1688) - lu(k,1441) * lu(k,1684) - lu(k,1689) = lu(k,1689) - lu(k,1442) * lu(k,1684) - lu(k,1690) = lu(k,1690) - lu(k,1443) * lu(k,1684) - lu(k,1691) = lu(k,1691) - lu(k,1444) * lu(k,1684) - lu(k,1692) = lu(k,1692) - lu(k,1445) * lu(k,1684) - lu(k,1693) = lu(k,1693) - lu(k,1446) * lu(k,1684) - lu(k,1720) = lu(k,1720) - lu(k,1438) * lu(k,1719) - lu(k,1721) = lu(k,1721) - lu(k,1439) * lu(k,1719) - lu(k,1722) = lu(k,1722) - lu(k,1440) * lu(k,1719) - lu(k,1723) = lu(k,1723) - lu(k,1441) * lu(k,1719) - lu(k,1724) = lu(k,1724) - lu(k,1442) * lu(k,1719) - lu(k,1725) = lu(k,1725) - lu(k,1443) * lu(k,1719) - lu(k,1726) = lu(k,1726) - lu(k,1444) * lu(k,1719) - lu(k,1727) = lu(k,1727) - lu(k,1445) * lu(k,1719) - lu(k,1728) = lu(k,1728) - lu(k,1446) * lu(k,1719) - lu(k,1762) = lu(k,1762) - lu(k,1438) * lu(k,1761) - lu(k,1763) = lu(k,1763) - lu(k,1439) * lu(k,1761) - lu(k,1764) = lu(k,1764) - lu(k,1440) * lu(k,1761) - lu(k,1765) = lu(k,1765) - lu(k,1441) * lu(k,1761) - lu(k,1766) = lu(k,1766) - lu(k,1442) * lu(k,1761) - lu(k,1767) = lu(k,1767) - lu(k,1443) * lu(k,1761) - lu(k,1768) = lu(k,1768) - lu(k,1444) * lu(k,1761) - lu(k,1769) = lu(k,1769) - lu(k,1445) * lu(k,1761) - lu(k,1770) = lu(k,1770) - lu(k,1446) * lu(k,1761) - lu(k,1820) = lu(k,1820) - lu(k,1438) * lu(k,1819) - lu(k,1821) = lu(k,1821) - lu(k,1439) * lu(k,1819) - lu(k,1822) = lu(k,1822) - lu(k,1440) * lu(k,1819) - lu(k,1823) = lu(k,1823) - lu(k,1441) * lu(k,1819) - lu(k,1824) = lu(k,1824) - lu(k,1442) * lu(k,1819) - lu(k,1825) = lu(k,1825) - lu(k,1443) * lu(k,1819) - lu(k,1826) = lu(k,1826) - lu(k,1444) * lu(k,1819) - lu(k,1827) = lu(k,1827) - lu(k,1445) * lu(k,1819) - lu(k,1828) = lu(k,1828) - lu(k,1446) * lu(k,1819) - lu(k,1484) = 1._r8 / lu(k,1484) - lu(k,1485) = lu(k,1485) * lu(k,1484) - lu(k,1486) = lu(k,1486) * lu(k,1484) - lu(k,1487) = lu(k,1487) * lu(k,1484) - lu(k,1488) = lu(k,1488) * lu(k,1484) - lu(k,1489) = lu(k,1489) * lu(k,1484) - lu(k,1490) = lu(k,1490) * lu(k,1484) - lu(k,1491) = lu(k,1491) * lu(k,1484) - lu(k,1492) = lu(k,1492) * lu(k,1484) - lu(k,1527) = lu(k,1527) - lu(k,1485) * lu(k,1526) - lu(k,1528) = lu(k,1528) - lu(k,1486) * lu(k,1526) - lu(k,1529) = lu(k,1529) - lu(k,1487) * lu(k,1526) - lu(k,1530) = lu(k,1530) - lu(k,1488) * lu(k,1526) - lu(k,1531) = lu(k,1531) - lu(k,1489) * lu(k,1526) - lu(k,1532) = lu(k,1532) - lu(k,1490) * lu(k,1526) - lu(k,1533) = lu(k,1533) - lu(k,1491) * lu(k,1526) - lu(k,1534) = lu(k,1534) - lu(k,1492) * lu(k,1526) - lu(k,1568) = lu(k,1568) - lu(k,1485) * lu(k,1567) - lu(k,1569) = lu(k,1569) - lu(k,1486) * lu(k,1567) - lu(k,1570) = lu(k,1570) - lu(k,1487) * lu(k,1567) - lu(k,1571) = lu(k,1571) - lu(k,1488) * lu(k,1567) - lu(k,1572) = lu(k,1572) - lu(k,1489) * lu(k,1567) - lu(k,1573) = lu(k,1573) - lu(k,1490) * lu(k,1567) - lu(k,1574) = lu(k,1574) - lu(k,1491) * lu(k,1567) - lu(k,1575) = lu(k,1575) - lu(k,1492) * lu(k,1567) - lu(k,1625) = lu(k,1625) - lu(k,1485) * lu(k,1624) - lu(k,1626) = lu(k,1626) - lu(k,1486) * lu(k,1624) - lu(k,1627) = lu(k,1627) - lu(k,1487) * lu(k,1624) - lu(k,1628) = lu(k,1628) - lu(k,1488) * lu(k,1624) - lu(k,1629) = lu(k,1629) - lu(k,1489) * lu(k,1624) - lu(k,1630) = lu(k,1630) - lu(k,1490) * lu(k,1624) - lu(k,1631) = lu(k,1631) - lu(k,1491) * lu(k,1624) - lu(k,1632) = lu(k,1632) - lu(k,1492) * lu(k,1624) - lu(k,1654) = lu(k,1654) - lu(k,1485) * lu(k,1653) - lu(k,1655) = lu(k,1655) - lu(k,1486) * lu(k,1653) - lu(k,1656) = lu(k,1656) - lu(k,1487) * lu(k,1653) - lu(k,1657) = lu(k,1657) - lu(k,1488) * lu(k,1653) - lu(k,1658) = lu(k,1658) - lu(k,1489) * lu(k,1653) - lu(k,1659) = lu(k,1659) - lu(k,1490) * lu(k,1653) - lu(k,1660) = lu(k,1660) - lu(k,1491) * lu(k,1653) - lu(k,1661) = lu(k,1661) - lu(k,1492) * lu(k,1653) - lu(k,1686) = lu(k,1686) - lu(k,1485) * lu(k,1685) - lu(k,1687) = lu(k,1687) - lu(k,1486) * lu(k,1685) - lu(k,1688) = lu(k,1688) - lu(k,1487) * lu(k,1685) - lu(k,1689) = lu(k,1689) - lu(k,1488) * lu(k,1685) - lu(k,1690) = lu(k,1690) - lu(k,1489) * lu(k,1685) - lu(k,1691) = lu(k,1691) - lu(k,1490) * lu(k,1685) - lu(k,1692) = lu(k,1692) - lu(k,1491) * lu(k,1685) - lu(k,1693) = lu(k,1693) - lu(k,1492) * lu(k,1685) - lu(k,1721) = lu(k,1721) - lu(k,1485) * lu(k,1720) - lu(k,1722) = lu(k,1722) - lu(k,1486) * lu(k,1720) - lu(k,1723) = lu(k,1723) - lu(k,1487) * lu(k,1720) - lu(k,1724) = lu(k,1724) - lu(k,1488) * lu(k,1720) - lu(k,1725) = lu(k,1725) - lu(k,1489) * lu(k,1720) - lu(k,1726) = lu(k,1726) - lu(k,1490) * lu(k,1720) - lu(k,1727) = lu(k,1727) - lu(k,1491) * lu(k,1720) - lu(k,1728) = lu(k,1728) - lu(k,1492) * lu(k,1720) - lu(k,1763) = lu(k,1763) - lu(k,1485) * lu(k,1762) - lu(k,1764) = lu(k,1764) - lu(k,1486) * lu(k,1762) - lu(k,1765) = lu(k,1765) - lu(k,1487) * lu(k,1762) - lu(k,1766) = lu(k,1766) - lu(k,1488) * lu(k,1762) - lu(k,1767) = lu(k,1767) - lu(k,1489) * lu(k,1762) - lu(k,1768) = lu(k,1768) - lu(k,1490) * lu(k,1762) - lu(k,1769) = lu(k,1769) - lu(k,1491) * lu(k,1762) - lu(k,1770) = lu(k,1770) - lu(k,1492) * lu(k,1762) - lu(k,1821) = lu(k,1821) - lu(k,1485) * lu(k,1820) - lu(k,1822) = lu(k,1822) - lu(k,1486) * lu(k,1820) - lu(k,1823) = lu(k,1823) - lu(k,1487) * lu(k,1820) - lu(k,1824) = lu(k,1824) - lu(k,1488) * lu(k,1820) - lu(k,1825) = lu(k,1825) - lu(k,1489) * lu(k,1820) - lu(k,1826) = lu(k,1826) - lu(k,1490) * lu(k,1820) - lu(k,1827) = lu(k,1827) - lu(k,1491) * lu(k,1820) - lu(k,1828) = lu(k,1828) - lu(k,1492) * lu(k,1820) - lu(k,1527) = 1._r8 / lu(k,1527) - lu(k,1528) = lu(k,1528) * lu(k,1527) - lu(k,1529) = lu(k,1529) * lu(k,1527) - lu(k,1530) = lu(k,1530) * lu(k,1527) - lu(k,1531) = lu(k,1531) * lu(k,1527) - lu(k,1532) = lu(k,1532) * lu(k,1527) - lu(k,1533) = lu(k,1533) * lu(k,1527) - lu(k,1534) = lu(k,1534) * lu(k,1527) - lu(k,1569) = lu(k,1569) - lu(k,1528) * lu(k,1568) - lu(k,1570) = lu(k,1570) - lu(k,1529) * lu(k,1568) - lu(k,1571) = lu(k,1571) - lu(k,1530) * lu(k,1568) - lu(k,1572) = lu(k,1572) - lu(k,1531) * lu(k,1568) - lu(k,1573) = lu(k,1573) - lu(k,1532) * lu(k,1568) - lu(k,1574) = lu(k,1574) - lu(k,1533) * lu(k,1568) - lu(k,1575) = lu(k,1575) - lu(k,1534) * lu(k,1568) - lu(k,1626) = lu(k,1626) - lu(k,1528) * lu(k,1625) - lu(k,1627) = lu(k,1627) - lu(k,1529) * lu(k,1625) - lu(k,1628) = lu(k,1628) - lu(k,1530) * lu(k,1625) - lu(k,1629) = lu(k,1629) - lu(k,1531) * lu(k,1625) - lu(k,1630) = lu(k,1630) - lu(k,1532) * lu(k,1625) - lu(k,1631) = lu(k,1631) - lu(k,1533) * lu(k,1625) - lu(k,1632) = lu(k,1632) - lu(k,1534) * lu(k,1625) - lu(k,1655) = lu(k,1655) - lu(k,1528) * lu(k,1654) - lu(k,1656) = lu(k,1656) - lu(k,1529) * lu(k,1654) - lu(k,1657) = lu(k,1657) - lu(k,1530) * lu(k,1654) - lu(k,1658) = lu(k,1658) - lu(k,1531) * lu(k,1654) - lu(k,1659) = lu(k,1659) - lu(k,1532) * lu(k,1654) - lu(k,1660) = lu(k,1660) - lu(k,1533) * lu(k,1654) - lu(k,1661) = lu(k,1661) - lu(k,1534) * lu(k,1654) - lu(k,1687) = lu(k,1687) - lu(k,1528) * lu(k,1686) - lu(k,1688) = lu(k,1688) - lu(k,1529) * lu(k,1686) - lu(k,1689) = lu(k,1689) - lu(k,1530) * lu(k,1686) - lu(k,1690) = lu(k,1690) - lu(k,1531) * lu(k,1686) - lu(k,1691) = lu(k,1691) - lu(k,1532) * lu(k,1686) - lu(k,1692) = lu(k,1692) - lu(k,1533) * lu(k,1686) - lu(k,1693) = lu(k,1693) - lu(k,1534) * lu(k,1686) - lu(k,1722) = lu(k,1722) - lu(k,1528) * lu(k,1721) - lu(k,1723) = lu(k,1723) - lu(k,1529) * lu(k,1721) - lu(k,1724) = lu(k,1724) - lu(k,1530) * lu(k,1721) - lu(k,1725) = lu(k,1725) - lu(k,1531) * lu(k,1721) - lu(k,1726) = lu(k,1726) - lu(k,1532) * lu(k,1721) - lu(k,1727) = lu(k,1727) - lu(k,1533) * lu(k,1721) - lu(k,1728) = lu(k,1728) - lu(k,1534) * lu(k,1721) - lu(k,1764) = lu(k,1764) - lu(k,1528) * lu(k,1763) - lu(k,1765) = lu(k,1765) - lu(k,1529) * lu(k,1763) - lu(k,1766) = lu(k,1766) - lu(k,1530) * lu(k,1763) - lu(k,1767) = lu(k,1767) - lu(k,1531) * lu(k,1763) - lu(k,1768) = lu(k,1768) - lu(k,1532) * lu(k,1763) - lu(k,1769) = lu(k,1769) - lu(k,1533) * lu(k,1763) - lu(k,1770) = lu(k,1770) - lu(k,1534) * lu(k,1763) - lu(k,1822) = lu(k,1822) - lu(k,1528) * lu(k,1821) - lu(k,1823) = lu(k,1823) - lu(k,1529) * lu(k,1821) - lu(k,1824) = lu(k,1824) - lu(k,1530) * lu(k,1821) - lu(k,1825) = lu(k,1825) - lu(k,1531) * lu(k,1821) - lu(k,1826) = lu(k,1826) - lu(k,1532) * lu(k,1821) - lu(k,1827) = lu(k,1827) - lu(k,1533) * lu(k,1821) - lu(k,1828) = lu(k,1828) - lu(k,1534) * lu(k,1821) - lu(k,1569) = 1._r8 / lu(k,1569) - lu(k,1570) = lu(k,1570) * lu(k,1569) - lu(k,1571) = lu(k,1571) * lu(k,1569) - lu(k,1572) = lu(k,1572) * lu(k,1569) - lu(k,1573) = lu(k,1573) * lu(k,1569) - lu(k,1574) = lu(k,1574) * lu(k,1569) - lu(k,1575) = lu(k,1575) * lu(k,1569) - lu(k,1627) = lu(k,1627) - lu(k,1570) * lu(k,1626) - lu(k,1628) = lu(k,1628) - lu(k,1571) * lu(k,1626) - lu(k,1629) = lu(k,1629) - lu(k,1572) * lu(k,1626) - lu(k,1630) = lu(k,1630) - lu(k,1573) * lu(k,1626) - lu(k,1631) = lu(k,1631) - lu(k,1574) * lu(k,1626) - lu(k,1632) = lu(k,1632) - lu(k,1575) * lu(k,1626) - lu(k,1656) = lu(k,1656) - lu(k,1570) * lu(k,1655) - lu(k,1657) = lu(k,1657) - lu(k,1571) * lu(k,1655) - lu(k,1658) = lu(k,1658) - lu(k,1572) * lu(k,1655) - lu(k,1659) = lu(k,1659) - lu(k,1573) * lu(k,1655) - lu(k,1660) = lu(k,1660) - lu(k,1574) * lu(k,1655) - lu(k,1661) = lu(k,1661) - lu(k,1575) * lu(k,1655) - lu(k,1688) = lu(k,1688) - lu(k,1570) * lu(k,1687) - lu(k,1689) = lu(k,1689) - lu(k,1571) * lu(k,1687) - lu(k,1690) = lu(k,1690) - lu(k,1572) * lu(k,1687) - lu(k,1691) = lu(k,1691) - lu(k,1573) * lu(k,1687) - lu(k,1692) = lu(k,1692) - lu(k,1574) * lu(k,1687) - lu(k,1693) = lu(k,1693) - lu(k,1575) * lu(k,1687) - lu(k,1723) = lu(k,1723) - lu(k,1570) * lu(k,1722) - lu(k,1724) = lu(k,1724) - lu(k,1571) * lu(k,1722) - lu(k,1725) = lu(k,1725) - lu(k,1572) * lu(k,1722) - lu(k,1726) = lu(k,1726) - lu(k,1573) * lu(k,1722) - lu(k,1727) = lu(k,1727) - lu(k,1574) * lu(k,1722) - lu(k,1728) = lu(k,1728) - lu(k,1575) * lu(k,1722) - lu(k,1765) = lu(k,1765) - lu(k,1570) * lu(k,1764) - lu(k,1766) = lu(k,1766) - lu(k,1571) * lu(k,1764) - lu(k,1767) = lu(k,1767) - lu(k,1572) * lu(k,1764) - lu(k,1768) = lu(k,1768) - lu(k,1573) * lu(k,1764) - lu(k,1769) = lu(k,1769) - lu(k,1574) * lu(k,1764) - lu(k,1770) = lu(k,1770) - lu(k,1575) * lu(k,1764) - lu(k,1823) = lu(k,1823) - lu(k,1570) * lu(k,1822) - lu(k,1824) = lu(k,1824) - lu(k,1571) * lu(k,1822) - lu(k,1825) = lu(k,1825) - lu(k,1572) * lu(k,1822) - lu(k,1826) = lu(k,1826) - lu(k,1573) * lu(k,1822) - lu(k,1827) = lu(k,1827) - lu(k,1574) * lu(k,1822) - lu(k,1828) = lu(k,1828) - lu(k,1575) * lu(k,1822) - lu(k,1627) = 1._r8 / lu(k,1627) - lu(k,1628) = lu(k,1628) * lu(k,1627) - lu(k,1629) = lu(k,1629) * lu(k,1627) - lu(k,1630) = lu(k,1630) * lu(k,1627) - lu(k,1631) = lu(k,1631) * lu(k,1627) - lu(k,1632) = lu(k,1632) * lu(k,1627) - lu(k,1657) = lu(k,1657) - lu(k,1628) * lu(k,1656) - lu(k,1658) = lu(k,1658) - lu(k,1629) * lu(k,1656) - lu(k,1659) = lu(k,1659) - lu(k,1630) * lu(k,1656) - lu(k,1660) = lu(k,1660) - lu(k,1631) * lu(k,1656) - lu(k,1661) = lu(k,1661) - lu(k,1632) * lu(k,1656) - lu(k,1689) = lu(k,1689) - lu(k,1628) * lu(k,1688) - lu(k,1690) = lu(k,1690) - lu(k,1629) * lu(k,1688) - lu(k,1691) = lu(k,1691) - lu(k,1630) * lu(k,1688) - lu(k,1692) = lu(k,1692) - lu(k,1631) * lu(k,1688) - lu(k,1693) = lu(k,1693) - lu(k,1632) * lu(k,1688) - lu(k,1724) = lu(k,1724) - lu(k,1628) * lu(k,1723) - lu(k,1725) = lu(k,1725) - lu(k,1629) * lu(k,1723) - lu(k,1726) = lu(k,1726) - lu(k,1630) * lu(k,1723) - lu(k,1727) = lu(k,1727) - lu(k,1631) * lu(k,1723) - lu(k,1728) = lu(k,1728) - lu(k,1632) * lu(k,1723) - lu(k,1766) = lu(k,1766) - lu(k,1628) * lu(k,1765) - lu(k,1767) = lu(k,1767) - lu(k,1629) * lu(k,1765) - lu(k,1768) = lu(k,1768) - lu(k,1630) * lu(k,1765) - lu(k,1769) = lu(k,1769) - lu(k,1631) * lu(k,1765) - lu(k,1770) = lu(k,1770) - lu(k,1632) * lu(k,1765) - lu(k,1824) = lu(k,1824) - lu(k,1628) * lu(k,1823) - lu(k,1825) = lu(k,1825) - lu(k,1629) * lu(k,1823) - lu(k,1826) = lu(k,1826) - lu(k,1630) * lu(k,1823) - lu(k,1827) = lu(k,1827) - lu(k,1631) * lu(k,1823) - lu(k,1828) = lu(k,1828) - lu(k,1632) * lu(k,1823) - 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) + 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( lu ) + use shr_kind_mod, only : r8 => shr_kind_r8 + implicit none !----------------------------------------------------------------------- -! ... local variables +! ... dummy args !----------------------------------------------------------------------- - integer :: k - do k = 1,avec_len - lu(k,1657) = 1._r8 / lu(k,1657) - lu(k,1658) = lu(k,1658) * lu(k,1657) - lu(k,1659) = lu(k,1659) * lu(k,1657) - lu(k,1660) = lu(k,1660) * lu(k,1657) - lu(k,1661) = lu(k,1661) * lu(k,1657) - lu(k,1690) = lu(k,1690) - lu(k,1658) * lu(k,1689) - lu(k,1691) = lu(k,1691) - lu(k,1659) * lu(k,1689) - lu(k,1692) = lu(k,1692) - lu(k,1660) * lu(k,1689) - lu(k,1693) = lu(k,1693) - lu(k,1661) * lu(k,1689) - lu(k,1725) = lu(k,1725) - lu(k,1658) * lu(k,1724) - lu(k,1726) = lu(k,1726) - lu(k,1659) * lu(k,1724) - lu(k,1727) = lu(k,1727) - lu(k,1660) * lu(k,1724) - lu(k,1728) = lu(k,1728) - lu(k,1661) * lu(k,1724) - lu(k,1767) = lu(k,1767) - lu(k,1658) * lu(k,1766) - lu(k,1768) = lu(k,1768) - lu(k,1659) * lu(k,1766) - lu(k,1769) = lu(k,1769) - lu(k,1660) * lu(k,1766) - lu(k,1770) = lu(k,1770) - lu(k,1661) * lu(k,1766) - lu(k,1825) = lu(k,1825) - lu(k,1658) * lu(k,1824) - lu(k,1826) = lu(k,1826) - lu(k,1659) * lu(k,1824) - lu(k,1827) = lu(k,1827) - lu(k,1660) * lu(k,1824) - lu(k,1828) = lu(k,1828) - lu(k,1661) * lu(k,1824) - lu(k,1690) = 1._r8 / lu(k,1690) - lu(k,1691) = lu(k,1691) * lu(k,1690) - lu(k,1692) = lu(k,1692) * lu(k,1690) - lu(k,1693) = lu(k,1693) * lu(k,1690) - lu(k,1726) = lu(k,1726) - lu(k,1691) * lu(k,1725) - lu(k,1727) = lu(k,1727) - lu(k,1692) * lu(k,1725) - lu(k,1728) = lu(k,1728) - lu(k,1693) * lu(k,1725) - lu(k,1768) = lu(k,1768) - lu(k,1691) * lu(k,1767) - lu(k,1769) = lu(k,1769) - lu(k,1692) * lu(k,1767) - lu(k,1770) = lu(k,1770) - lu(k,1693) * lu(k,1767) - lu(k,1826) = lu(k,1826) - lu(k,1691) * lu(k,1825) - lu(k,1827) = lu(k,1827) - lu(k,1692) * lu(k,1825) - lu(k,1828) = lu(k,1828) - lu(k,1693) * lu(k,1825) - lu(k,1726) = 1._r8 / lu(k,1726) - lu(k,1727) = lu(k,1727) * lu(k,1726) - lu(k,1728) = lu(k,1728) * lu(k,1726) - lu(k,1769) = lu(k,1769) - lu(k,1727) * lu(k,1768) - lu(k,1770) = lu(k,1770) - lu(k,1728) * lu(k,1768) - lu(k,1827) = lu(k,1827) - lu(k,1727) * lu(k,1826) - lu(k,1828) = lu(k,1828) - lu(k,1728) * lu(k,1826) - lu(k,1769) = 1._r8 / lu(k,1769) - lu(k,1770) = lu(k,1770) * lu(k,1769) - lu(k,1828) = lu(k,1828) - lu(k,1770) * lu(k,1827) - lu(k,1828) = 1._r8 / lu(k,1828) - end do - end subroutine lu_fac23 - subroutine lu_fac( avec_len, lu ) - use chem_mods, only : nzcnt + 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( 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 ) + 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 9956c77b83..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,2058 +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,90) = b(k,90) - lu(k,22) * b(k,21) - b(k,95) = b(k,95) - lu(k,23) * b(k,21) - b(k,29) = b(k,29) - lu(k,25) * b(k,22) - b(k,112) = b(k,112) - lu(k,26) * b(k,22) - b(k,54) = b(k,54) - lu(k,28) * b(k,23) - b(k,82) = b(k,82) - lu(k,29) * b(k,23) - b(k,90) = b(k,90) - lu(k,31) * b(k,24) - b(k,54) = b(k,54) - lu(k,33) * b(k,25) - b(k,82) = b(k,82) - lu(k,34) * b(k,25) - b(k,90) = b(k,90) - lu(k,35) * b(k,25) - b(k,54) = b(k,54) - lu(k,37) * b(k,26) - b(k,98) = b(k,98) - lu(k,38) * b(k,26) - b(k,74) = b(k,74) - lu(k,40) * b(k,27) - b(k,90) = b(k,90) - lu(k,41) * b(k,27) - b(k,58) = b(k,58) - lu(k,43) * b(k,28) - b(k,99) = b(k,99) - lu(k,44) * b(k,28) - b(k,59) = b(k,59) - lu(k,47) * b(k,29) - b(k,107) = b(k,107) - lu(k,48) * b(k,29) - b(k,112) = b(k,112) - lu(k,49) * b(k,29) - b(k,101) = b(k,101) - lu(k,51) * b(k,30) - b(k,105) = b(k,105) - lu(k,52) * b(k,30) - b(k,112) = b(k,112) - lu(k,53) * b(k,30) - b(k,94) = b(k,94) - lu(k,55) * b(k,31) - b(k,101) = b(k,101) - lu(k,56) * b(k,31) - b(k,112) = b(k,112) - lu(k,57) * b(k,31) - b(k,59) = b(k,59) - lu(k,59) * b(k,32) - b(k,86) = b(k,86) - lu(k,60) * b(k,32) - b(k,87) = b(k,87) - 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,59) = b(k,59) - lu(k,65) * b(k,33) - b(k,68) = b(k,68) - lu(k,66) * b(k,33) - b(k,95) = b(k,95) - lu(k,67) * b(k,33) - b(k,107) = b(k,107) - 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,59) = b(k,59) - lu(k,72) * b(k,34) - b(k,68) = b(k,68) - lu(k,73) * b(k,34) - b(k,87) = b(k,87) - lu(k,74) * b(k,34) - b(k,98) = b(k,98) - lu(k,75) * b(k,34) - b(k,107) = b(k,107) - lu(k,76) * b(k,34) - b(k,64) = b(k,64) - lu(k,78) * b(k,35) - b(k,81) = b(k,81) - lu(k,79) * b(k,35) - b(k,87) = b(k,87) - lu(k,80) * b(k,35) - b(k,98) = b(k,98) - lu(k,81) * b(k,35) - b(k,112) = b(k,112) - lu(k,82) * b(k,35) - b(k,47) = b(k,47) - lu(k,84) * b(k,36) - b(k,87) = b(k,87) - lu(k,85) * b(k,36) - b(k,89) = b(k,89) - lu(k,86) * b(k,36) - b(k,98) = b(k,98) - lu(k,87) * b(k,36) - b(k,112) = b(k,112) - lu(k,88) * b(k,36) - b(k,50) = b(k,50) - lu(k,90) * b(k,37) - b(k,89) = b(k,89) - lu(k,91) * b(k,37) - b(k,106) = b(k,106) - lu(k,92) * b(k,37) - b(k,111) = b(k,111) - lu(k,93) * b(k,37) - b(k,112) = b(k,112) - lu(k,94) * b(k,37) - b(k,72) = b(k,72) - lu(k,96) * b(k,38) - b(k,83) = b(k,83) - lu(k,97) * b(k,38) - b(k,99) = b(k,99) - lu(k,98) * b(k,38) - b(k,102) = b(k,102) - lu(k,99) * b(k,38) - b(k,107) = b(k,107) - lu(k,100) * b(k,38) - b(k,86) = b(k,86) - lu(k,102) * b(k,39) - b(k,87) = b(k,87) - lu(k,103) * b(k,39) - b(k,97) = b(k,97) - lu(k,104) * b(k,39) - b(k,99) = b(k,99) - lu(k,105) * b(k,39) - b(k,104) = b(k,104) - lu(k,106) * b(k,39) - b(k,112) = b(k,112) - lu(k,107) * b(k,39) - b(k,41) = b(k,41) - lu(k,109) * b(k,40) - b(k,89) = b(k,89) - lu(k,110) * b(k,40) - b(k,92) = b(k,92) - lu(k,111) * b(k,40) - b(k,96) = b(k,96) - lu(k,112) * b(k,40) - b(k,106) = b(k,106) - lu(k,113) * b(k,40) - b(k,112) = b(k,112) - lu(k,114) * b(k,40) - b(k,89) = b(k,89) - lu(k,116) * b(k,41) - b(k,92) = b(k,92) - lu(k,117) * b(k,41) - b(k,96) = b(k,96) - lu(k,118) * b(k,41) - b(k,106) = b(k,106) - lu(k,119) * b(k,41) - b(k,112) = b(k,112) - lu(k,120) * b(k,41) - b(k,53) = b(k,53) - lu(k,122) * b(k,42) - b(k,63) = b(k,63) - lu(k,123) * b(k,42) - b(k,92) = b(k,92) - lu(k,124) * b(k,42) - b(k,99) = b(k,99) - lu(k,125) * b(k,42) - b(k,103) = b(k,103) - lu(k,126) * b(k,42) - b(k,107) = b(k,107) - lu(k,127) * b(k,42) - b(k,63) = b(k,63) - lu(k,129) * b(k,43) - b(k,82) = b(k,82) - lu(k,130) * b(k,43) - b(k,99) = b(k,99) - lu(k,131) * b(k,43) - b(k,106) = b(k,106) - lu(k,132) * b(k,43) - b(k,86) = b(k,86) - lu(k,134) * b(k,44) - b(k,87) = b(k,87) - lu(k,135) * b(k,44) - b(k,98) = b(k,98) - lu(k,136) * b(k,44) - b(k,55) = b(k,55) - lu(k,138) * b(k,45) - b(k,74) = b(k,74) - lu(k,139) * b(k,45) - b(k,80) = b(k,80) - lu(k,140) * b(k,45) - b(k,97) = b(k,97) - lu(k,141) * b(k,45) - b(k,101) = b(k,101) - lu(k,142) * b(k,45) - b(k,104) = b(k,104) - lu(k,143) * b(k,45) - b(k,107) = b(k,107) - lu(k,144) * b(k,45) - b(k,86) = b(k,86) - lu(k,146) * b(k,46) - b(k,87) = b(k,87) - lu(k,147) * b(k,46) - b(k,90) = b(k,90) - lu(k,148) * b(k,46) - b(k,100) = b(k,100) - lu(k,149) * b(k,46) - b(k,107) = b(k,107) - lu(k,150) * b(k,46) - b(k,112) = b(k,112) - lu(k,151) * b(k,46) - b(k,51) = b(k,51) - lu(k,153) * b(k,47) - b(k,89) = b(k,89) - lu(k,154) * b(k,47) - b(k,98) = b(k,98) - lu(k,155) * b(k,47) - b(k,111) = b(k,111) - lu(k,156) * b(k,47) - b(k,112) = b(k,112) - lu(k,157) * b(k,47) - b(k,53) = b(k,53) - lu(k,160) * b(k,48) - b(k,63) = b(k,63) - lu(k,161) * b(k,48) - b(k,82) = b(k,82) - lu(k,162) * b(k,48) - b(k,89) = b(k,89) - lu(k,163) * b(k,48) - b(k,92) = b(k,92) - lu(k,164) * b(k,48) - b(k,99) = b(k,99) - lu(k,165) * b(k,48) - b(k,103) = b(k,103) - lu(k,166) * b(k,48) - b(k,106) = b(k,106) - lu(k,167) * b(k,48) - b(k,107) = b(k,107) - lu(k,168) * b(k,48) - b(k,68) = b(k,68) - lu(k,170) * b(k,49) - b(k,87) = b(k,87) - lu(k,171) * b(k,49) - b(k,91) = b(k,91) - lu(k,172) * b(k,49) - b(k,98) = b(k,98) - lu(k,173) * b(k,49) - b(k,99) = b(k,99) - lu(k,174) * b(k,49) - b(k,107) = b(k,107) - lu(k,175) * b(k,49) - b(k,87) = b(k,87) - lu(k,177) * b(k,50) - b(k,104) = b(k,104) - lu(k,178) * b(k,50) - b(k,106) = b(k,106) - lu(k,179) * b(k,50) - b(k,112) = b(k,112) - lu(k,180) * b(k,50) - b(k,89) = b(k,89) - lu(k,183) * b(k,51) - b(k,98) = b(k,98) - lu(k,184) * b(k,51) - b(k,111) = b(k,111) - lu(k,185) * b(k,51) - b(k,112) = b(k,112) - lu(k,186) * b(k,51) - b(k,87) = b(k,87) - lu(k,191) * b(k,52) - b(k,89) = b(k,89) - lu(k,192) * b(k,52) - b(k,98) = b(k,98) - lu(k,193) * b(k,52) - b(k,99) = b(k,99) - lu(k,194) * b(k,52) - b(k,103) = b(k,103) - lu(k,195) * b(k,52) - b(k,111) = b(k,111) - lu(k,196) * b(k,52) - b(k,112) = b(k,112) - lu(k,197) * b(k,52) - b(k,63) = b(k,63) - lu(k,200) * b(k,53) - b(k,86) = b(k,86) - lu(k,201) * b(k,53) - b(k,87) = b(k,87) - lu(k,202) * b(k,53) - b(k,92) = b(k,92) - lu(k,203) * b(k,53) - b(k,98) = b(k,98) - lu(k,204) * b(k,53) - b(k,99) = b(k,99) - lu(k,205) * b(k,53) - b(k,103) = b(k,103) - lu(k,206) * b(k,53) - b(k,107) = b(k,107) - lu(k,207) * b(k,53) - b(k,64) = b(k,64) - lu(k,210) * b(k,54) - b(k,75) = b(k,75) - lu(k,211) * b(k,54) - b(k,87) = b(k,87) - lu(k,212) * b(k,54) - b(k,97) = b(k,97) - lu(k,213) * b(k,54) - b(k,98) = b(k,98) - lu(k,214) * b(k,54) - b(k,101) = b(k,101) - lu(k,215) * b(k,54) - b(k,112) = b(k,112) - lu(k,216) * b(k,54) - b(k,74) = b(k,74) - lu(k,219) * b(k,55) - b(k,80) = b(k,80) - lu(k,220) * b(k,55) - b(k,87) = b(k,87) - lu(k,221) * b(k,55) - b(k,90) = b(k,90) - lu(k,222) * b(k,55) - b(k,100) = b(k,100) - lu(k,223) * b(k,55) - b(k,107) = b(k,107) - lu(k,224) * b(k,55) - b(k,112) = b(k,112) - lu(k,225) * b(k,55) - b(k,74) = b(k,74) - lu(k,227) * b(k,56) - b(k,80) = b(k,80) - lu(k,228) * b(k,56) - b(k,82) = b(k,82) - lu(k,229) * b(k,56) - b(k,87) = b(k,87) - lu(k,230) * b(k,56) - b(k,98) = b(k,98) - lu(k,231) * b(k,56) - b(k,107) = b(k,107) - lu(k,232) * b(k,56) - b(k,112) = b(k,112) - lu(k,233) * b(k,56) - b(k,87) = b(k,87) - lu(k,236) * b(k,57) - b(k,90) = b(k,90) - lu(k,237) * b(k,57) - b(k,95) = b(k,95) - lu(k,238) * b(k,57) - b(k,100) = b(k,100) - lu(k,239) * b(k,57) - b(k,107) = b(k,107) - lu(k,240) * b(k,57) - b(k,112) = b(k,112) - lu(k,241) * b(k,57) - b(k,66) = b(k,66) - lu(k,243) * b(k,58) - b(k,89) = b(k,89) - lu(k,244) * b(k,58) - b(k,91) = b(k,91) - lu(k,245) * b(k,58) - b(k,99) = b(k,99) - lu(k,246) * b(k,58) - b(k,102) = b(k,102) - lu(k,247) * b(k,58) - b(k,103) = b(k,103) - lu(k,248) * b(k,58) - b(k,110) = b(k,110) - lu(k,249) * b(k,58) - b(k,68) = b(k,68) - lu(k,252) * b(k,59) - b(k,86) = b(k,86) - lu(k,253) * b(k,59) - b(k,87) = b(k,87) - lu(k,254) * b(k,59) - b(k,107) = b(k,107) - lu(k,255) * b(k,59) - b(k,112) = b(k,112) - lu(k,256) * b(k,59) - b(k,87) = b(k,87) - lu(k,260) * b(k,60) - b(k,90) = b(k,90) - lu(k,261) * b(k,60) - b(k,95) = b(k,95) - lu(k,262) * b(k,60) - b(k,97) = b(k,97) - lu(k,263) * b(k,60) - b(k,100) = b(k,100) - lu(k,264) * b(k,60) - b(k,101) = b(k,101) - lu(k,265) * b(k,60) - b(k,104) = b(k,104) - lu(k,266) * b(k,60) - b(k,107) = b(k,107) - lu(k,267) * b(k,60) - b(k,112) = b(k,112) - lu(k,268) * b(k,60) - b(k,84) = b(k,84) - lu(k,270) * b(k,61) - b(k,90) = b(k,90) - lu(k,271) * b(k,61) - b(k,99) = b(k,99) - lu(k,272) * b(k,61) - b(k,104) = b(k,104) - lu(k,273) * b(k,61) - b(k,106) = b(k,106) - lu(k,274) * b(k,61) - b(k,107) = b(k,107) - lu(k,275) * b(k,61) - b(k,108) = b(k,108) - lu(k,276) * 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,76) = b(k,76) - lu(k,280) * b(k,62) - b(k,77) = b(k,77) - lu(k,281) * b(k,62) - b(k,79) = b(k,79) - lu(k,282) * b(k,62) - b(k,94) = b(k,94) - lu(k,283) * b(k,62) - b(k,97) = b(k,97) - lu(k,284) * b(k,62) - b(k,101) = b(k,101) - lu(k,285) * b(k,62) - b(k,104) = b(k,104) - lu(k,286) * b(k,62) - b(k,105) = b(k,105) - lu(k,287) * b(k,62) - b(k,106) = b(k,106) - lu(k,288) * b(k,62) - b(k,107) = b(k,107) - lu(k,289) * b(k,62) - b(k,112) = b(k,112) - lu(k,290) * b(k,62) - b(k,86) = b(k,86) - lu(k,294) * b(k,63) - b(k,87) = b(k,87) - lu(k,295) * b(k,63) - b(k,89) = b(k,89) - lu(k,296) * b(k,63) - b(k,92) = b(k,92) - lu(k,297) * b(k,63) - b(k,98) = b(k,98) - lu(k,298) * b(k,63) - b(k,99) = b(k,99) - lu(k,299) * b(k,63) - b(k,103) = b(k,103) - lu(k,300) * b(k,63) - b(k,104) = b(k,104) - lu(k,301) * b(k,63) - b(k,106) = b(k,106) - lu(k,302) * b(k,63) - b(k,107) = b(k,107) - lu(k,303) * b(k,63) - b(k,81) = b(k,81) - lu(k,306) * b(k,64) - b(k,86) = b(k,86) - lu(k,307) * b(k,64) - b(k,87) = b(k,87) - lu(k,308) * b(k,64) - b(k,90) = b(k,90) - lu(k,309) * b(k,64) - b(k,95) = b(k,95) - lu(k,310) * b(k,64) - b(k,98) = b(k,98) - lu(k,311) * b(k,64) - b(k,99) = b(k,99) - lu(k,312) * b(k,64) - b(k,104) = b(k,104) - lu(k,313) * b(k,64) - b(k,106) = b(k,106) - lu(k,314) * b(k,64) - b(k,112) = b(k,112) - lu(k,315) * b(k,64) - b(k,87) = b(k,87) - lu(k,317) * b(k,65) - b(k,92) = b(k,92) - lu(k,318) * b(k,65) - b(k,93) = b(k,93) - lu(k,319) * b(k,65) - b(k,94) = b(k,94) - lu(k,320) * b(k,65) - b(k,96) = b(k,96) - lu(k,321) * b(k,65) - b(k,98) = b(k,98) - lu(k,322) * b(k,65) - b(k,99) = b(k,99) - lu(k,323) * b(k,65) - b(k,103) = b(k,103) - lu(k,324) * b(k,65) - b(k,105) = b(k,105) - lu(k,325) * b(k,65) - b(k,106) = b(k,106) - lu(k,326) * b(k,65) - b(k,111) = b(k,111) - lu(k,327) * b(k,65) - b(k,112) = b(k,112) - lu(k,328) * b(k,65) - b(k,87) = b(k,87) - lu(k,332) * b(k,66) - b(k,89) = b(k,89) - lu(k,333) * b(k,66) - b(k,91) = b(k,91) - lu(k,334) * b(k,66) - b(k,98) = b(k,98) - lu(k,335) * b(k,66) - b(k,99) = b(k,99) - lu(k,336) * b(k,66) - b(k,102) = b(k,102) - lu(k,337) * b(k,66) - b(k,103) = b(k,103) - lu(k,338) * b(k,66) - b(k,107) = b(k,107) - lu(k,339) * b(k,66) - b(k,110) = b(k,110) - lu(k,340) * b(k,66) - b(k,111) = b(k,111) - lu(k,341) * b(k,66) - b(k,112) = b(k,112) - lu(k,342) * b(k,66) - b(k,78) = b(k,78) - lu(k,344) * b(k,67) - b(k,92) = b(k,92) - lu(k,345) * b(k,67) - b(k,93) = b(k,93) - lu(k,346) * b(k,67) - b(k,94) = b(k,94) - lu(k,347) * b(k,67) - b(k,96) = b(k,96) - lu(k,348) * b(k,67) - b(k,98) = b(k,98) - lu(k,349) * b(k,67) - b(k,99) = b(k,99) - lu(k,350) * b(k,67) - b(k,103) = b(k,103) - lu(k,351) * b(k,67) - b(k,105) = b(k,105) - lu(k,352) * b(k,67) - b(k,106) = b(k,106) - lu(k,353) * b(k,67) - b(k,107) = b(k,107) - lu(k,354) * b(k,67) - b(k,111) = b(k,111) - lu(k,355) * b(k,67) - b(k,112) = b(k,112) - lu(k,356) * b(k,67) - b(k,74) = b(k,74) - lu(k,361) * b(k,68) - b(k,80) = b(k,80) - lu(k,362) * b(k,68) - b(k,86) = b(k,86) - lu(k,363) * b(k,68) - b(k,87) = b(k,87) - lu(k,364) * b(k,68) - b(k,90) = b(k,90) - lu(k,365) * b(k,68) - b(k,91) = b(k,91) - lu(k,366) * b(k,68) - b(k,95) = b(k,95) - lu(k,367) * b(k,68) - b(k,98) = b(k,98) - lu(k,368) * b(k,68) - b(k,99) = b(k,99) - lu(k,369) * b(k,68) - b(k,104) = b(k,104) - lu(k,370) * b(k,68) - b(k,106) = b(k,106) - lu(k,371) * b(k,68) - b(k,107) = b(k,107) - lu(k,372) * b(k,68) - b(k,112) = b(k,112) - lu(k,373) * b(k,68) - b(k,84) = b(k,84) - lu(k,375) * b(k,69) - b(k,90) = b(k,90) - lu(k,376) * b(k,69) - b(k,92) = b(k,92) - lu(k,377) * b(k,69) - b(k,93) = b(k,93) - lu(k,378) * b(k,69) - b(k,94) = b(k,94) - lu(k,379) * b(k,69) - b(k,96) = b(k,96) - lu(k,380) * b(k,69) - b(k,98) = b(k,98) - lu(k,381) * b(k,69) - b(k,99) = b(k,99) - lu(k,382) * b(k,69) - b(k,100) = b(k,100) - lu(k,383) * b(k,69) - b(k,103) = b(k,103) - lu(k,384) * b(k,69) - b(k,105) = b(k,105) - lu(k,385) * b(k,69) - b(k,106) = b(k,106) - lu(k,386) * b(k,69) - b(k,111) = b(k,111) - lu(k,387) * b(k,69) - b(k,112) = b(k,112) - lu(k,388) * b(k,69) - b(k,84) = b(k,84) - lu(k,391) * b(k,70) - b(k,90) = b(k,90) - lu(k,392) * b(k,70) - b(k,92) = b(k,92) - lu(k,393) * b(k,70) - b(k,93) = b(k,93) - lu(k,394) * b(k,70) - b(k,94) = b(k,94) - lu(k,395) * b(k,70) - b(k,96) = b(k,96) - lu(k,396) * b(k,70) - b(k,98) = b(k,98) - lu(k,397) * b(k,70) - b(k,99) = b(k,99) - lu(k,398) * b(k,70) - b(k,100) = b(k,100) - lu(k,399) * b(k,70) - b(k,103) = b(k,103) - lu(k,400) * b(k,70) - b(k,105) = b(k,105) - lu(k,401) * b(k,70) - b(k,106) = b(k,106) - lu(k,402) * b(k,70) - b(k,111) = b(k,111) - lu(k,403) * b(k,70) - b(k,112) = b(k,112) - lu(k,404) * b(k,70) - b(k,92) = b(k,92) - lu(k,406) * b(k,71) - b(k,93) = b(k,93) - lu(k,407) * b(k,71) - b(k,94) = b(k,94) - lu(k,408) * b(k,71) - b(k,96) = b(k,96) - lu(k,409) * b(k,71) - b(k,98) = b(k,98) - lu(k,410) * b(k,71) - b(k,99) = b(k,99) - lu(k,411) * b(k,71) - b(k,103) = b(k,103) - lu(k,412) * b(k,71) - b(k,104) = b(k,104) - lu(k,413) * b(k,71) - b(k,105) = b(k,105) - lu(k,414) * b(k,71) - b(k,106) = b(k,106) - lu(k,415) * b(k,71) - b(k,108) = b(k,108) - lu(k,416) * b(k,71) - b(k,111) = b(k,111) - lu(k,417) * b(k,71) - b(k,112) = b(k,112) - lu(k,418) * b(k,71) - b(k,85) = b(k,85) - lu(k,420) * b(k,72) - b(k,88) = b(k,88) - lu(k,421) * b(k,72) - b(k,89) = b(k,89) - lu(k,422) * b(k,72) - b(k,91) = b(k,91) - lu(k,423) * b(k,72) - b(k,98) = b(k,98) - lu(k,424) * b(k,72) - b(k,99) = b(k,99) - lu(k,425) * b(k,72) - b(k,102) = b(k,102) - lu(k,426) * b(k,72) - b(k,104) = b(k,104) - lu(k,427) * b(k,72) - b(k,106) = b(k,106) - lu(k,428) * b(k,72) - b(k,107) = b(k,107) - lu(k,429) * b(k,72) - b(k,108) = b(k,108) - lu(k,430) * b(k,72) - b(k,109) = b(k,109) - lu(k,431) * b(k,72) - b(k,110) = b(k,110) - lu(k,432) * b(k,72) - b(k,76) = b(k,76) - lu(k,434) * b(k,73) - b(k,92) = b(k,92) - lu(k,435) * b(k,73) - b(k,93) = b(k,93) - lu(k,436) * b(k,73) - b(k,94) = b(k,94) - lu(k,437) * b(k,73) - b(k,96) = b(k,96) - lu(k,438) * b(k,73) - b(k,97) = b(k,97) - lu(k,439) * b(k,73) - b(k,98) = b(k,98) - lu(k,440) * b(k,73) - b(k,99) = b(k,99) - lu(k,441) * b(k,73) - b(k,100) = b(k,100) - lu(k,442) * b(k,73) - b(k,101) = b(k,101) - lu(k,443) * b(k,73) - b(k,103) = b(k,103) - lu(k,444) * b(k,73) - b(k,105) = b(k,105) - lu(k,445) * b(k,73) - b(k,106) = b(k,106) - lu(k,446) * b(k,73) - b(k,111) = b(k,111) - lu(k,447) * b(k,73) - b(k,112) = b(k,112) - lu(k,448) * b(k,73) - b(k,80) = b(k,80) - lu(k,452) * b(k,74) - b(k,81) = b(k,81) - lu(k,453) * b(k,74) - b(k,82) = b(k,82) - lu(k,454) * b(k,74) - b(k,86) = b(k,86) - lu(k,455) * b(k,74) - b(k,87) = b(k,87) - lu(k,456) * b(k,74) - b(k,91) = b(k,91) - lu(k,457) * b(k,74) - b(k,98) = b(k,98) - lu(k,458) * b(k,74) - b(k,99) = b(k,99) - lu(k,459) * b(k,74) - b(k,107) = b(k,107) - lu(k,460) * b(k,74) - b(k,112) = b(k,112) - lu(k,461) * b(k,74) - b(k,81) = b(k,81) - lu(k,466) * b(k,75) - b(k,82) = b(k,82) - lu(k,467) * b(k,75) - b(k,86) = b(k,86) - lu(k,468) * b(k,75) - b(k,87) = b(k,87) - lu(k,469) * b(k,75) - b(k,89) = b(k,89) - lu(k,470) * b(k,75) - b(k,90) = b(k,90) - lu(k,471) * b(k,75) - b(k,95) = b(k,95) - lu(k,472) * b(k,75) - b(k,97) = b(k,97) - lu(k,473) * b(k,75) - b(k,98) = b(k,98) - lu(k,474) * b(k,75) - b(k,99) = b(k,99) - lu(k,475) * b(k,75) - b(k,100) = b(k,100) - lu(k,476) * b(k,75) - b(k,101) = b(k,101) - lu(k,477) * b(k,75) - b(k,104) = b(k,104) - lu(k,478) * b(k,75) - b(k,106) = b(k,106) - lu(k,479) * b(k,75) - b(k,107) = b(k,107) - lu(k,480) * b(k,75) - b(k,109) = b(k,109) - lu(k,481) * b(k,75) - b(k,110) = b(k,110) - lu(k,482) * b(k,75) - b(k,112) = b(k,112) - lu(k,483) * b(k,75) - b(k,85) = b(k,85) - lu(k,485) * b(k,76) - b(k,92) = b(k,92) - lu(k,486) * b(k,76) - b(k,93) = b(k,93) - lu(k,487) * b(k,76) - b(k,94) = b(k,94) - lu(k,488) * b(k,76) - b(k,96) = b(k,96) - lu(k,489) * b(k,76) - b(k,97) = b(k,97) - lu(k,490) * b(k,76) - b(k,99) = b(k,99) - lu(k,491) * b(k,76) - b(k,101) = b(k,101) - lu(k,492) * b(k,76) - b(k,103) = b(k,103) - lu(k,493) * b(k,76) - b(k,105) = b(k,105) - lu(k,494) * b(k,76) - b(k,106) = b(k,106) - lu(k,495) * b(k,76) - b(k,111) = b(k,111) - lu(k,496) * b(k,76) - b(k,112) = b(k,112) - lu(k,497) * b(k,76) - b(k,79) = b(k,79) - lu(k,501) * b(k,77) - b(k,85) = b(k,85) - lu(k,502) * b(k,77) - b(k,92) = b(k,92) - lu(k,503) * b(k,77) - b(k,93) = b(k,93) - lu(k,504) * b(k,77) - b(k,94) = b(k,94) - lu(k,505) * b(k,77) - b(k,96) = b(k,96) - lu(k,506) * b(k,77) - b(k,97) = b(k,97) - lu(k,507) * b(k,77) - b(k,98) = b(k,98) - lu(k,508) * b(k,77) - b(k,99) = b(k,99) - lu(k,509) * b(k,77) - b(k,101) = b(k,101) - lu(k,510) * b(k,77) - b(k,103) = b(k,103) - lu(k,511) * b(k,77) - b(k,104) = b(k,104) - lu(k,512) * b(k,77) - b(k,105) = b(k,105) - lu(k,513) * b(k,77) - b(k,106) = b(k,106) - lu(k,514) * b(k,77) - b(k,107) = b(k,107) - lu(k,515) * b(k,77) - b(k,111) = b(k,111) - lu(k,516) * b(k,77) - b(k,112) = b(k,112) - lu(k,517) * b(k,77) - 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,79) = b(k,79) - lu(k,521) * b(k,78) - b(k,85) = b(k,85) - lu(k,522) * b(k,78) - b(k,88) = b(k,88) - lu(k,523) * b(k,78) - b(k,92) = b(k,92) - lu(k,524) * b(k,78) - b(k,93) = b(k,93) - lu(k,525) * b(k,78) - b(k,94) = b(k,94) - lu(k,526) * b(k,78) - b(k,96) = b(k,96) - lu(k,527) * b(k,78) - b(k,98) = b(k,98) - lu(k,528) * b(k,78) - b(k,99) = b(k,99) - lu(k,529) * b(k,78) - b(k,103) = b(k,103) - lu(k,530) * b(k,78) - b(k,104) = b(k,104) - lu(k,531) * b(k,78) - b(k,105) = b(k,105) - lu(k,532) * b(k,78) - b(k,106) = b(k,106) - lu(k,533) * b(k,78) - b(k,107) = b(k,107) - lu(k,534) * b(k,78) - b(k,108) = b(k,108) - lu(k,535) * b(k,78) - b(k,111) = b(k,111) - lu(k,536) * b(k,78) - b(k,112) = b(k,112) - lu(k,537) * b(k,78) - b(k,85) = b(k,85) - lu(k,542) * b(k,79) - b(k,92) = b(k,92) - lu(k,543) * b(k,79) - b(k,93) = b(k,93) - lu(k,544) * b(k,79) - b(k,94) = b(k,94) - lu(k,545) * b(k,79) - b(k,96) = b(k,96) - lu(k,546) * b(k,79) - b(k,97) = b(k,97) - lu(k,547) * b(k,79) - b(k,98) = b(k,98) - lu(k,548) * b(k,79) - b(k,99) = b(k,99) - lu(k,549) * b(k,79) - b(k,101) = b(k,101) - lu(k,550) * b(k,79) - b(k,103) = b(k,103) - lu(k,551) * b(k,79) - b(k,104) = b(k,104) - lu(k,552) * b(k,79) - b(k,105) = b(k,105) - lu(k,553) * b(k,79) - b(k,106) = b(k,106) - lu(k,554) * b(k,79) - b(k,107) = b(k,107) - lu(k,555) * b(k,79) - b(k,111) = b(k,111) - lu(k,556) * b(k,79) - b(k,112) = b(k,112) - lu(k,557) * b(k,79) - b(k,81) = b(k,81) - lu(k,566) * b(k,80) - b(k,82) = b(k,82) - lu(k,567) * b(k,80) - b(k,86) = b(k,86) - lu(k,568) * b(k,80) - b(k,87) = b(k,87) - lu(k,569) * b(k,80) - b(k,90) = b(k,90) - lu(k,570) * b(k,80) - b(k,91) = b(k,91) - lu(k,571) * b(k,80) - b(k,95) = b(k,95) - lu(k,572) * b(k,80) - b(k,97) = b(k,97) - lu(k,573) * b(k,80) - b(k,98) = b(k,98) - lu(k,574) * b(k,80) - b(k,99) = b(k,99) - lu(k,575) * b(k,80) - b(k,100) = b(k,100) - lu(k,576) * b(k,80) - b(k,101) = b(k,101) - lu(k,577) * b(k,80) - b(k,104) = b(k,104) - lu(k,578) * b(k,80) - b(k,106) = b(k,106) - lu(k,579) * b(k,80) - b(k,107) = b(k,107) - lu(k,580) * b(k,80) - b(k,112) = b(k,112) - lu(k,581) * b(k,80) - b(k,82) = b(k,82) - lu(k,588) * b(k,81) - b(k,86) = b(k,86) - lu(k,589) * b(k,81) - b(k,87) = b(k,87) - lu(k,590) * b(k,81) - b(k,89) = b(k,89) - lu(k,591) * b(k,81) - b(k,90) = b(k,90) - lu(k,592) * b(k,81) - b(k,91) = b(k,91) - lu(k,593) * b(k,81) - b(k,95) = b(k,95) - lu(k,594) * b(k,81) - b(k,97) = b(k,97) - lu(k,595) * b(k,81) - b(k,98) = b(k,98) - lu(k,596) * b(k,81) - b(k,99) = b(k,99) - lu(k,597) * b(k,81) - b(k,100) = b(k,100) - lu(k,598) * b(k,81) - b(k,101) = b(k,101) - lu(k,599) * b(k,81) - b(k,104) = b(k,104) - lu(k,600) * b(k,81) - b(k,106) = b(k,106) - lu(k,601) * b(k,81) - b(k,107) = b(k,107) - lu(k,602) * b(k,81) - b(k,109) = b(k,109) - lu(k,603) * b(k,81) - b(k,110) = b(k,110) - lu(k,604) * b(k,81) - b(k,112) = b(k,112) - lu(k,605) * b(k,81) - b(k,86) = b(k,86) - lu(k,619) * b(k,82) - b(k,87) = b(k,87) - lu(k,620) * b(k,82) - b(k,89) = b(k,89) - lu(k,621) * b(k,82) - b(k,90) = b(k,90) - lu(k,622) * b(k,82) - b(k,91) = b(k,91) - lu(k,623) * b(k,82) - b(k,95) = b(k,95) - lu(k,624) * b(k,82) - b(k,97) = b(k,97) - lu(k,625) * b(k,82) - b(k,98) = b(k,98) - lu(k,626) * b(k,82) - b(k,99) = b(k,99) - lu(k,627) * b(k,82) - b(k,100) = b(k,100) - lu(k,628) * b(k,82) - b(k,101) = b(k,101) - lu(k,629) * b(k,82) - b(k,102) = b(k,102) - lu(k,630) * b(k,82) - b(k,103) = b(k,103) - lu(k,631) * b(k,82) - b(k,104) = b(k,104) - lu(k,632) * b(k,82) - b(k,106) = b(k,106) - lu(k,633) * b(k,82) - b(k,107) = b(k,107) - lu(k,634) * b(k,82) - b(k,109) = b(k,109) - lu(k,635) * b(k,82) - b(k,110) = b(k,110) - lu(k,636) * b(k,82) - b(k,111) = b(k,111) - lu(k,637) * b(k,82) - b(k,112) = b(k,112) - lu(k,638) * b(k,82) - b(k,84) = b(k,84) - lu(k,642) * b(k,83) - b(k,85) = b(k,85) - lu(k,643) * b(k,83) - b(k,86) = b(k,86) - lu(k,644) * b(k,83) - b(k,87) = b(k,87) - lu(k,645) * b(k,83) - b(k,88) = b(k,88) - lu(k,646) * b(k,83) - b(k,89) = b(k,89) - lu(k,647) * b(k,83) - b(k,90) = b(k,90) - lu(k,648) * b(k,83) - b(k,91) = b(k,91) - lu(k,649) * b(k,83) - b(k,92) = b(k,92) - lu(k,650) * b(k,83) - b(k,93) = b(k,93) - lu(k,651) * b(k,83) - b(k,94) = b(k,94) - lu(k,652) * b(k,83) - b(k,95) = b(k,95) - lu(k,653) * b(k,83) - b(k,96) = b(k,96) - lu(k,654) * b(k,83) - b(k,98) = b(k,98) - lu(k,655) * b(k,83) - b(k,99) = b(k,99) - lu(k,656) * b(k,83) - b(k,100) = b(k,100) - lu(k,657) * b(k,83) - b(k,102) = b(k,102) - lu(k,658) * b(k,83) - b(k,103) = b(k,103) - lu(k,659) * b(k,83) - b(k,104) = b(k,104) - lu(k,660) * b(k,83) - b(k,105) = b(k,105) - lu(k,661) * b(k,83) - b(k,106) = b(k,106) - lu(k,662) * b(k,83) - b(k,107) = b(k,107) - lu(k,663) * b(k,83) - b(k,108) = b(k,108) - lu(k,664) * b(k,83) - b(k,109) = b(k,109) - lu(k,665) * b(k,83) - b(k,110) = b(k,110) - lu(k,666) * b(k,83) - b(k,111) = b(k,111) - lu(k,667) * b(k,83) - b(k,112) = b(k,112) - lu(k,668) * b(k,83) - b(k,85) = b(k,85) - lu(k,672) * b(k,84) - b(k,89) = b(k,89) - lu(k,673) * b(k,84) - b(k,90) = b(k,90) - lu(k,674) * b(k,84) - b(k,92) = b(k,92) - lu(k,675) * b(k,84) - b(k,93) = b(k,93) - lu(k,676) * b(k,84) - b(k,94) = b(k,94) - lu(k,677) * b(k,84) - b(k,96) = b(k,96) - lu(k,678) * b(k,84) - b(k,98) = b(k,98) - lu(k,679) * b(k,84) - b(k,99) = b(k,99) - lu(k,680) * b(k,84) - b(k,100) = b(k,100) - lu(k,681) * b(k,84) - b(k,101) = b(k,101) - lu(k,682) * b(k,84) - b(k,103) = b(k,103) - lu(k,683) * b(k,84) - b(k,104) = b(k,104) - lu(k,684) * b(k,84) - b(k,105) = b(k,105) - lu(k,685) * b(k,84) - b(k,106) = b(k,106) - lu(k,686) * b(k,84) - b(k,108) = b(k,108) - lu(k,687) * b(k,84) - b(k,111) = b(k,111) - lu(k,688) * b(k,84) - b(k,112) = b(k,112) - lu(k,689) * b(k,84) - b(k,89) = b(k,89) - lu(k,695) * b(k,85) - b(k,90) = b(k,90) - lu(k,696) * b(k,85) - b(k,91) = b(k,91) - lu(k,697) * b(k,85) - b(k,92) = b(k,92) - lu(k,698) * b(k,85) - b(k,93) = b(k,93) - lu(k,699) * b(k,85) - b(k,94) = b(k,94) - lu(k,700) * b(k,85) - b(k,96) = b(k,96) - lu(k,701) * b(k,85) - b(k,97) = b(k,97) - lu(k,702) * b(k,85) - b(k,98) = b(k,98) - lu(k,703) * b(k,85) - b(k,99) = b(k,99) - lu(k,704) * b(k,85) - b(k,100) = b(k,100) - lu(k,705) * b(k,85) - b(k,101) = b(k,101) - lu(k,706) * b(k,85) - b(k,103) = b(k,103) - lu(k,707) * b(k,85) - b(k,104) = b(k,104) - lu(k,708) * b(k,85) - b(k,105) = b(k,105) - lu(k,709) * b(k,85) - b(k,106) = b(k,106) - lu(k,710) * b(k,85) - b(k,107) = b(k,107) - lu(k,711) * b(k,85) - b(k,108) = b(k,108) - lu(k,712) * b(k,85) - b(k,111) = b(k,111) - lu(k,713) * b(k,85) - b(k,112) = b(k,112) - lu(k,714) * b(k,85) - b(k,87) = b(k,87) - lu(k,729) * b(k,86) - b(k,89) = b(k,89) - lu(k,730) * b(k,86) - b(k,90) = b(k,90) - lu(k,731) * b(k,86) - b(k,91) = b(k,91) - lu(k,732) * b(k,86) - b(k,95) = b(k,95) - lu(k,733) * b(k,86) - b(k,96) = b(k,96) - lu(k,734) * b(k,86) - b(k,97) = b(k,97) - lu(k,735) * b(k,86) - b(k,98) = b(k,98) - lu(k,736) * b(k,86) - b(k,99) = b(k,99) - lu(k,737) * b(k,86) - b(k,100) = b(k,100) - lu(k,738) * b(k,86) - b(k,101) = b(k,101) - lu(k,739) * b(k,86) - b(k,102) = b(k,102) - lu(k,740) * b(k,86) - b(k,103) = b(k,103) - lu(k,741) * b(k,86) - b(k,104) = b(k,104) - lu(k,742) * b(k,86) - b(k,106) = b(k,106) - lu(k,743) * b(k,86) - b(k,107) = b(k,107) - lu(k,744) * b(k,86) - b(k,109) = b(k,109) - lu(k,745) * b(k,86) - b(k,110) = b(k,110) - lu(k,746) * b(k,86) - b(k,111) = b(k,111) - lu(k,747) * b(k,86) - b(k,112) = b(k,112) - lu(k,748) * b(k,86) - b(k,89) = b(k,89) - lu(k,776) * b(k,87) - b(k,90) = b(k,90) - lu(k,777) * b(k,87) - b(k,91) = b(k,91) - lu(k,778) * b(k,87) - b(k,92) = b(k,92) - lu(k,779) * b(k,87) - b(k,95) = b(k,95) - lu(k,780) * b(k,87) - b(k,96) = b(k,96) - lu(k,781) * b(k,87) - b(k,97) = b(k,97) - lu(k,782) * b(k,87) - b(k,98) = b(k,98) - lu(k,783) * b(k,87) - b(k,99) = b(k,99) - lu(k,784) * b(k,87) - b(k,100) = b(k,100) - lu(k,785) * b(k,87) - b(k,101) = b(k,101) - lu(k,786) * b(k,87) - b(k,102) = b(k,102) - lu(k,787) * b(k,87) - b(k,103) = b(k,103) - lu(k,788) * b(k,87) - b(k,104) = b(k,104) - lu(k,789) * b(k,87) - b(k,106) = b(k,106) - lu(k,790) * b(k,87) - b(k,107) = b(k,107) - lu(k,791) * b(k,87) - b(k,109) = b(k,109) - lu(k,792) * b(k,87) - b(k,110) = b(k,110) - lu(k,793) * b(k,87) - b(k,111) = b(k,111) - lu(k,794) * b(k,87) - b(k,112) = b(k,112) - lu(k,795) * b(k,87) - b(k,89) = b(k,89) - lu(k,804) * b(k,88) - b(k,90) = b(k,90) - lu(k,805) * b(k,88) - b(k,91) = b(k,91) - lu(k,806) * b(k,88) - b(k,92) = b(k,92) - lu(k,807) * b(k,88) - b(k,93) = b(k,93) - lu(k,808) * b(k,88) - b(k,94) = b(k,94) - lu(k,809) * b(k,88) - b(k,95) = b(k,95) - lu(k,810) * b(k,88) - b(k,96) = b(k,96) - lu(k,811) * b(k,88) - b(k,97) = b(k,97) - lu(k,812) * b(k,88) - b(k,98) = b(k,98) - lu(k,813) * b(k,88) - b(k,99) = b(k,99) - lu(k,814) * b(k,88) - b(k,100) = b(k,100) - lu(k,815) * b(k,88) - b(k,101) = b(k,101) - lu(k,816) * b(k,88) - b(k,102) = b(k,102) - lu(k,817) * b(k,88) - b(k,103) = b(k,103) - lu(k,818) * b(k,88) - b(k,104) = b(k,104) - lu(k,819) * b(k,88) - b(k,105) = b(k,105) - lu(k,820) * b(k,88) - b(k,106) = b(k,106) - lu(k,821) * b(k,88) - b(k,107) = b(k,107) - lu(k,822) * b(k,88) - b(k,108) = b(k,108) - lu(k,823) * b(k,88) - b(k,109) = b(k,109) - lu(k,824) * b(k,88) - b(k,110) = b(k,110) - lu(k,825) * b(k,88) - b(k,111) = b(k,111) - lu(k,826) * b(k,88) - b(k,112) = b(k,112) - lu(k,827) * b(k,88) - 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,90) = b(k,90) - lu(k,845) * b(k,89) - b(k,91) = b(k,91) - lu(k,846) * b(k,89) - b(k,92) = b(k,92) - lu(k,847) * b(k,89) - b(k,93) = b(k,93) - lu(k,848) * b(k,89) - b(k,94) = b(k,94) - lu(k,849) * b(k,89) - b(k,95) = b(k,95) - lu(k,850) * b(k,89) - b(k,96) = b(k,96) - lu(k,851) * b(k,89) - b(k,97) = b(k,97) - lu(k,852) * b(k,89) - b(k,98) = b(k,98) - lu(k,853) * b(k,89) - b(k,99) = b(k,99) - lu(k,854) * b(k,89) - b(k,100) = b(k,100) - lu(k,855) * b(k,89) - b(k,101) = b(k,101) - lu(k,856) * b(k,89) - b(k,102) = b(k,102) - lu(k,857) * b(k,89) - b(k,103) = b(k,103) - lu(k,858) * b(k,89) - b(k,104) = b(k,104) - lu(k,859) * b(k,89) - b(k,105) = b(k,105) - lu(k,860) * b(k,89) - b(k,106) = b(k,106) - lu(k,861) * b(k,89) - b(k,107) = b(k,107) - lu(k,862) * b(k,89) - b(k,109) = b(k,109) - lu(k,863) * b(k,89) - b(k,110) = b(k,110) - lu(k,864) * b(k,89) - b(k,111) = b(k,111) - lu(k,865) * b(k,89) - b(k,112) = b(k,112) - lu(k,866) * b(k,89) - b(k,91) = b(k,91) - lu(k,887) * b(k,90) - b(k,92) = b(k,92) - lu(k,888) * b(k,90) - b(k,93) = b(k,93) - lu(k,889) * b(k,90) - b(k,94) = b(k,94) - lu(k,890) * b(k,90) - b(k,95) = b(k,95) - lu(k,891) * b(k,90) - b(k,96) = b(k,96) - lu(k,892) * b(k,90) - b(k,97) = b(k,97) - lu(k,893) * b(k,90) - b(k,98) = b(k,98) - lu(k,894) * b(k,90) - b(k,99) = b(k,99) - lu(k,895) * b(k,90) - b(k,100) = b(k,100) - lu(k,896) * b(k,90) - b(k,101) = b(k,101) - lu(k,897) * b(k,90) - b(k,102) = b(k,102) - lu(k,898) * b(k,90) - b(k,103) = b(k,103) - lu(k,899) * b(k,90) - b(k,104) = b(k,104) - lu(k,900) * b(k,90) - b(k,105) = b(k,105) - lu(k,901) * b(k,90) - b(k,106) = b(k,106) - lu(k,902) * b(k,90) - b(k,107) = b(k,107) - lu(k,903) * b(k,90) - b(k,108) = b(k,108) - lu(k,904) * b(k,90) - b(k,109) = b(k,109) - lu(k,905) * b(k,90) - b(k,110) = b(k,110) - lu(k,906) * b(k,90) - b(k,111) = b(k,111) - lu(k,907) * b(k,90) - b(k,112) = b(k,112) - lu(k,908) * b(k,90) - b(k,92) = b(k,92) - lu(k,929) * b(k,91) - b(k,93) = b(k,93) - lu(k,930) * b(k,91) - b(k,94) = b(k,94) - lu(k,931) * b(k,91) - b(k,95) = b(k,95) - lu(k,932) * b(k,91) - b(k,96) = b(k,96) - lu(k,933) * b(k,91) - b(k,97) = b(k,97) - lu(k,934) * b(k,91) - b(k,98) = b(k,98) - lu(k,935) * b(k,91) - b(k,99) = b(k,99) - lu(k,936) * b(k,91) - b(k,100) = b(k,100) - lu(k,937) * b(k,91) - b(k,101) = b(k,101) - lu(k,938) * b(k,91) - b(k,102) = b(k,102) - lu(k,939) * b(k,91) - b(k,103) = b(k,103) - lu(k,940) * b(k,91) - b(k,104) = b(k,104) - lu(k,941) * b(k,91) - b(k,105) = b(k,105) - lu(k,942) * b(k,91) - b(k,106) = b(k,106) - lu(k,943) * b(k,91) - b(k,107) = b(k,107) - lu(k,944) * b(k,91) - b(k,108) = b(k,108) - lu(k,945) * b(k,91) - b(k,109) = b(k,109) - lu(k,946) * b(k,91) - b(k,110) = b(k,110) - lu(k,947) * b(k,91) - b(k,111) = b(k,111) - lu(k,948) * b(k,91) - b(k,112) = b(k,112) - lu(k,949) * b(k,91) - b(k,93) = b(k,93) - lu(k,975) * b(k,92) - b(k,94) = b(k,94) - lu(k,976) * b(k,92) - b(k,95) = b(k,95) - lu(k,977) * b(k,92) - b(k,96) = b(k,96) - lu(k,978) * b(k,92) - b(k,97) = b(k,97) - lu(k,979) * b(k,92) - b(k,98) = b(k,98) - lu(k,980) * b(k,92) - b(k,99) = b(k,99) - lu(k,981) * b(k,92) - b(k,100) = b(k,100) - lu(k,982) * b(k,92) - b(k,101) = b(k,101) - lu(k,983) * b(k,92) - b(k,102) = b(k,102) - lu(k,984) * b(k,92) - b(k,103) = b(k,103) - lu(k,985) * b(k,92) - b(k,104) = b(k,104) - lu(k,986) * b(k,92) - b(k,105) = b(k,105) - lu(k,987) * b(k,92) - b(k,106) = b(k,106) - lu(k,988) * b(k,92) - b(k,107) = b(k,107) - lu(k,989) * b(k,92) - b(k,108) = b(k,108) - lu(k,990) * b(k,92) - b(k,109) = b(k,109) - lu(k,991) * b(k,92) - b(k,110) = b(k,110) - lu(k,992) * b(k,92) - b(k,111) = b(k,111) - lu(k,993) * b(k,92) - b(k,112) = b(k,112) - lu(k,994) * b(k,92) - b(k,94) = b(k,94) - lu(k,1018) * b(k,93) - b(k,95) = b(k,95) - lu(k,1019) * b(k,93) - b(k,96) = b(k,96) - lu(k,1020) * b(k,93) - b(k,97) = b(k,97) - lu(k,1021) * b(k,93) - b(k,98) = b(k,98) - lu(k,1022) * b(k,93) - b(k,99) = b(k,99) - lu(k,1023) * b(k,93) - b(k,100) = b(k,100) - lu(k,1024) * b(k,93) - b(k,101) = b(k,101) - lu(k,1025) * b(k,93) - b(k,102) = b(k,102) - lu(k,1026) * b(k,93) - b(k,103) = b(k,103) - lu(k,1027) * b(k,93) - b(k,104) = b(k,104) - lu(k,1028) * b(k,93) - b(k,105) = b(k,105) - lu(k,1029) * b(k,93) - b(k,106) = b(k,106) - lu(k,1030) * b(k,93) - b(k,107) = b(k,107) - lu(k,1031) * b(k,93) - b(k,108) = b(k,108) - lu(k,1032) * b(k,93) - b(k,109) = b(k,109) - lu(k,1033) * b(k,93) - b(k,110) = b(k,110) - lu(k,1034) * b(k,93) - b(k,111) = b(k,111) - lu(k,1035) * b(k,93) - b(k,112) = b(k,112) - lu(k,1036) * b(k,93) - b(k,95) = b(k,95) - lu(k,1061) * b(k,94) - b(k,96) = b(k,96) - lu(k,1062) * b(k,94) - b(k,97) = b(k,97) - lu(k,1063) * b(k,94) - b(k,98) = b(k,98) - lu(k,1064) * b(k,94) - b(k,99) = b(k,99) - lu(k,1065) * b(k,94) - b(k,100) = b(k,100) - lu(k,1066) * b(k,94) - b(k,101) = b(k,101) - lu(k,1067) * b(k,94) - b(k,102) = b(k,102) - lu(k,1068) * b(k,94) - b(k,103) = b(k,103) - lu(k,1069) * b(k,94) - b(k,104) = b(k,104) - lu(k,1070) * b(k,94) - b(k,105) = b(k,105) - lu(k,1071) * b(k,94) - b(k,106) = b(k,106) - lu(k,1072) * b(k,94) - b(k,107) = b(k,107) - lu(k,1073) * b(k,94) - b(k,108) = b(k,108) - lu(k,1074) * b(k,94) - b(k,109) = b(k,109) - lu(k,1075) * b(k,94) - b(k,110) = b(k,110) - lu(k,1076) * b(k,94) - b(k,111) = b(k,111) - lu(k,1077) * b(k,94) - b(k,112) = b(k,112) - lu(k,1078) * b(k,94) - b(k,96) = b(k,96) - lu(k,1106) * b(k,95) - b(k,97) = b(k,97) - lu(k,1107) * b(k,95) - b(k,98) = b(k,98) - lu(k,1108) * b(k,95) - b(k,99) = b(k,99) - lu(k,1109) * b(k,95) - b(k,100) = b(k,100) - lu(k,1110) * b(k,95) - b(k,101) = b(k,101) - lu(k,1111) * b(k,95) - b(k,102) = b(k,102) - lu(k,1112) * b(k,95) - b(k,103) = b(k,103) - lu(k,1113) * b(k,95) - b(k,104) = b(k,104) - lu(k,1114) * b(k,95) - b(k,105) = b(k,105) - lu(k,1115) * b(k,95) - b(k,106) = b(k,106) - lu(k,1116) * b(k,95) - b(k,107) = b(k,107) - lu(k,1117) * b(k,95) - b(k,108) = b(k,108) - lu(k,1118) * b(k,95) - b(k,109) = b(k,109) - lu(k,1119) * b(k,95) - b(k,110) = b(k,110) - lu(k,1120) * b(k,95) - b(k,111) = b(k,111) - lu(k,1121) * b(k,95) - b(k,112) = b(k,112) - lu(k,1122) * b(k,95) - b(k,97) = b(k,97) - lu(k,1148) * b(k,96) - b(k,98) = b(k,98) - lu(k,1149) * b(k,96) - b(k,99) = b(k,99) - lu(k,1150) * b(k,96) - b(k,100) = b(k,100) - lu(k,1151) * b(k,96) - b(k,101) = b(k,101) - lu(k,1152) * b(k,96) - b(k,102) = b(k,102) - lu(k,1153) * b(k,96) - b(k,103) = b(k,103) - lu(k,1154) * b(k,96) - b(k,104) = b(k,104) - lu(k,1155) * b(k,96) - b(k,105) = b(k,105) - lu(k,1156) * b(k,96) - b(k,106) = b(k,106) - lu(k,1157) * b(k,96) - b(k,107) = b(k,107) - lu(k,1158) * b(k,96) - b(k,108) = b(k,108) - lu(k,1159) * b(k,96) - b(k,109) = b(k,109) - lu(k,1160) * b(k,96) - b(k,110) = b(k,110) - lu(k,1161) * b(k,96) - b(k,111) = b(k,111) - lu(k,1162) * b(k,96) - b(k,112) = b(k,112) - lu(k,1163) * b(k,96) - b(k,98) = b(k,98) - lu(k,1188) * b(k,97) - b(k,99) = b(k,99) - lu(k,1189) * b(k,97) - b(k,100) = b(k,100) - lu(k,1190) * b(k,97) - b(k,101) = b(k,101) - lu(k,1191) * b(k,97) - b(k,102) = b(k,102) - lu(k,1192) * b(k,97) - b(k,103) = b(k,103) - lu(k,1193) * b(k,97) - b(k,104) = b(k,104) - lu(k,1194) * b(k,97) - b(k,105) = b(k,105) - lu(k,1195) * b(k,97) - b(k,106) = b(k,106) - lu(k,1196) * b(k,97) - b(k,107) = b(k,107) - lu(k,1197) * b(k,97) - b(k,108) = b(k,108) - lu(k,1198) * b(k,97) - b(k,109) = b(k,109) - lu(k,1199) * b(k,97) - b(k,110) = b(k,110) - lu(k,1200) * b(k,97) - b(k,111) = b(k,111) - lu(k,1201) * b(k,97) - b(k,112) = b(k,112) - lu(k,1202) * b(k,97) - b(k,99) = b(k,99) - lu(k,1224) * b(k,98) - b(k,100) = b(k,100) - lu(k,1225) * b(k,98) - b(k,101) = b(k,101) - lu(k,1226) * b(k,98) - b(k,102) = b(k,102) - lu(k,1227) * b(k,98) - b(k,103) = b(k,103) - lu(k,1228) * b(k,98) - b(k,104) = b(k,104) - lu(k,1229) * b(k,98) - b(k,105) = b(k,105) - lu(k,1230) * b(k,98) - b(k,106) = b(k,106) - lu(k,1231) * b(k,98) - b(k,107) = b(k,107) - lu(k,1232) * b(k,98) - b(k,108) = b(k,108) - lu(k,1233) * b(k,98) - b(k,109) = b(k,109) - lu(k,1234) * b(k,98) - b(k,110) = b(k,110) - lu(k,1235) * b(k,98) - b(k,111) = b(k,111) - lu(k,1236) * b(k,98) - b(k,112) = b(k,112) - lu(k,1237) * b(k,98) - b(k,100) = b(k,100) - lu(k,1272) * b(k,99) - b(k,101) = b(k,101) - lu(k,1273) * b(k,99) - b(k,102) = b(k,102) - lu(k,1274) * b(k,99) - b(k,103) = b(k,103) - lu(k,1275) * b(k,99) - b(k,104) = b(k,104) - lu(k,1276) * b(k,99) - b(k,105) = b(k,105) - lu(k,1277) * b(k,99) - b(k,106) = b(k,106) - lu(k,1278) * b(k,99) - b(k,107) = b(k,107) - lu(k,1279) * b(k,99) - b(k,108) = b(k,108) - lu(k,1280) * b(k,99) - b(k,109) = b(k,109) - lu(k,1281) * b(k,99) - b(k,110) = b(k,110) - lu(k,1282) * b(k,99) - b(k,111) = b(k,111) - lu(k,1283) * b(k,99) - b(k,112) = b(k,112) - lu(k,1284) * b(k,99) - b(k,101) = b(k,101) - lu(k,1317) * b(k,100) - b(k,102) = b(k,102) - lu(k,1318) * b(k,100) - b(k,103) = b(k,103) - lu(k,1319) * b(k,100) - b(k,104) = b(k,104) - lu(k,1320) * b(k,100) - b(k,105) = b(k,105) - lu(k,1321) * b(k,100) - b(k,106) = b(k,106) - lu(k,1322) * b(k,100) - b(k,107) = b(k,107) - lu(k,1323) * b(k,100) - b(k,108) = b(k,108) - lu(k,1324) * b(k,100) - b(k,109) = b(k,109) - lu(k,1325) * b(k,100) - b(k,110) = b(k,110) - lu(k,1326) * b(k,100) - b(k,111) = b(k,111) - lu(k,1327) * b(k,100) - b(k,112) = b(k,112) - lu(k,1328) * 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,1357) * b(k,101) - b(k,103) = b(k,103) - lu(k,1358) * b(k,101) - b(k,104) = b(k,104) - lu(k,1359) * b(k,101) - b(k,105) = b(k,105) - lu(k,1360) * b(k,101) - b(k,106) = b(k,106) - lu(k,1361) * b(k,101) - b(k,107) = b(k,107) - lu(k,1362) * b(k,101) - b(k,108) = b(k,108) - lu(k,1363) * b(k,101) - b(k,109) = b(k,109) - lu(k,1364) * b(k,101) - b(k,110) = b(k,110) - lu(k,1365) * b(k,101) - b(k,111) = b(k,111) - lu(k,1366) * b(k,101) - b(k,112) = b(k,112) - lu(k,1367) * b(k,101) - b(k,103) = b(k,103) - lu(k,1393) * b(k,102) - b(k,104) = b(k,104) - lu(k,1394) * b(k,102) - b(k,105) = b(k,105) - lu(k,1395) * b(k,102) - b(k,106) = b(k,106) - lu(k,1396) * b(k,102) - b(k,107) = b(k,107) - lu(k,1397) * b(k,102) - b(k,108) = b(k,108) - lu(k,1398) * b(k,102) - b(k,109) = b(k,109) - lu(k,1399) * b(k,102) - b(k,110) = b(k,110) - lu(k,1400) * b(k,102) - b(k,111) = b(k,111) - lu(k,1401) * b(k,102) - b(k,112) = b(k,112) - lu(k,1402) * b(k,102) - b(k,104) = b(k,104) - lu(k,1438) * b(k,103) - b(k,105) = b(k,105) - lu(k,1439) * b(k,103) - b(k,106) = b(k,106) - lu(k,1440) * b(k,103) - b(k,107) = b(k,107) - lu(k,1441) * b(k,103) - b(k,108) = b(k,108) - lu(k,1442) * b(k,103) - b(k,109) = b(k,109) - lu(k,1443) * b(k,103) - b(k,110) = b(k,110) - lu(k,1444) * b(k,103) - b(k,111) = b(k,111) - lu(k,1445) * b(k,103) - b(k,112) = b(k,112) - lu(k,1446) * b(k,103) - b(k,105) = b(k,105) - lu(k,1485) * b(k,104) - b(k,106) = b(k,106) - lu(k,1486) * b(k,104) - b(k,107) = b(k,107) - lu(k,1487) * b(k,104) - b(k,108) = b(k,108) - lu(k,1488) * b(k,104) - b(k,109) = b(k,109) - lu(k,1489) * b(k,104) - b(k,110) = b(k,110) - lu(k,1490) * b(k,104) - b(k,111) = b(k,111) - lu(k,1491) * b(k,104) - b(k,112) = b(k,112) - lu(k,1492) * b(k,104) - b(k,106) = b(k,106) - lu(k,1528) * b(k,105) - b(k,107) = b(k,107) - lu(k,1529) * b(k,105) - b(k,108) = b(k,108) - lu(k,1530) * b(k,105) - b(k,109) = b(k,109) - lu(k,1531) * b(k,105) - b(k,110) = b(k,110) - lu(k,1532) * b(k,105) - b(k,111) = b(k,111) - lu(k,1533) * b(k,105) - b(k,112) = b(k,112) - lu(k,1534) * b(k,105) - b(k,107) = b(k,107) - lu(k,1570) * b(k,106) - b(k,108) = b(k,108) - lu(k,1571) * b(k,106) - b(k,109) = b(k,109) - lu(k,1572) * b(k,106) - b(k,110) = b(k,110) - lu(k,1573) * b(k,106) - b(k,111) = b(k,111) - lu(k,1574) * b(k,106) - b(k,112) = b(k,112) - lu(k,1575) * b(k,106) - b(k,108) = b(k,108) - lu(k,1628) * b(k,107) - b(k,109) = b(k,109) - lu(k,1629) * b(k,107) - b(k,110) = b(k,110) - lu(k,1630) * b(k,107) - b(k,111) = b(k,111) - lu(k,1631) * b(k,107) - b(k,112) = b(k,112) - lu(k,1632) * b(k,107) - b(k,109) = b(k,109) - lu(k,1658) * b(k,108) - b(k,110) = b(k,110) - lu(k,1659) * b(k,108) - b(k,111) = b(k,111) - lu(k,1660) * b(k,108) - b(k,112) = b(k,112) - lu(k,1661) * b(k,108) - b(k,110) = b(k,110) - lu(k,1691) * b(k,109) - b(k,111) = b(k,111) - lu(k,1692) * b(k,109) - b(k,112) = b(k,112) - lu(k,1693) * b(k,109) - b(k,111) = b(k,111) - lu(k,1727) * b(k,110) - b(k,112) = b(k,112) - lu(k,1728) * b(k,110) - b(k,112) = b(k,112) - lu(k,1770) * b(k,111) - 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,112) = b(k,112) * lu(k,1828) - b(k,111) = b(k,111) - lu(k,1827) * b(k,112) - b(k,110) = b(k,110) - lu(k,1826) * b(k,112) - b(k,109) = b(k,109) - lu(k,1825) * b(k,112) - b(k,108) = b(k,108) - lu(k,1824) * b(k,112) - b(k,107) = b(k,107) - lu(k,1823) * b(k,112) - b(k,106) = b(k,106) - lu(k,1822) * b(k,112) - b(k,105) = b(k,105) - lu(k,1821) * b(k,112) - b(k,104) = b(k,104) - lu(k,1820) * b(k,112) - b(k,103) = b(k,103) - lu(k,1819) * b(k,112) - b(k,102) = b(k,102) - lu(k,1818) * b(k,112) - b(k,101) = b(k,101) - lu(k,1817) * b(k,112) - b(k,100) = b(k,100) - lu(k,1816) * b(k,112) - b(k,99) = b(k,99) - lu(k,1815) * b(k,112) - b(k,98) = b(k,98) - lu(k,1814) * b(k,112) - b(k,97) = b(k,97) - lu(k,1813) * b(k,112) - b(k,96) = b(k,96) - lu(k,1812) * b(k,112) - b(k,95) = b(k,95) - lu(k,1811) * b(k,112) - b(k,94) = b(k,94) - lu(k,1810) * b(k,112) - b(k,93) = b(k,93) - lu(k,1809) * b(k,112) - b(k,92) = b(k,92) - lu(k,1808) * b(k,112) - b(k,91) = b(k,91) - lu(k,1807) * b(k,112) - b(k,90) = b(k,90) - lu(k,1806) * b(k,112) - b(k,89) = b(k,89) - lu(k,1805) * b(k,112) - b(k,88) = b(k,88) - lu(k,1804) * b(k,112) - b(k,87) = b(k,87) - lu(k,1803) * b(k,112) - b(k,86) = b(k,86) - lu(k,1802) * b(k,112) - b(k,85) = b(k,85) - lu(k,1801) * b(k,112) - b(k,84) = b(k,84) - lu(k,1800) * b(k,112) - b(k,82) = b(k,82) - lu(k,1799) * b(k,112) - b(k,81) = b(k,81) - lu(k,1798) * b(k,112) - b(k,80) = b(k,80) - lu(k,1797) * b(k,112) - b(k,79) = b(k,79) - lu(k,1796) * b(k,112) - b(k,78) = b(k,78) - lu(k,1795) * b(k,112) - b(k,77) = b(k,77) - lu(k,1794) * b(k,112) - b(k,75) = b(k,75) - lu(k,1793) * b(k,112) - b(k,74) = b(k,74) - lu(k,1792) * b(k,112) - b(k,71) = b(k,71) - lu(k,1791) * b(k,112) - b(k,70) = b(k,70) - lu(k,1790) * b(k,112) - b(k,68) = b(k,68) - lu(k,1789) * b(k,112) - b(k,67) = b(k,67) - lu(k,1788) * b(k,112) - b(k,66) = b(k,66) - lu(k,1787) * b(k,112) - b(k,64) = b(k,64) - lu(k,1786) * b(k,112) - b(k,59) = b(k,59) - lu(k,1785) * b(k,112) - b(k,54) = b(k,54) - lu(k,1784) * b(k,112) - b(k,52) = b(k,52) - lu(k,1783) * b(k,112) - b(k,51) = b(k,51) - lu(k,1782) * b(k,112) - b(k,50) = b(k,50) - lu(k,1781) * b(k,112) - b(k,47) = b(k,47) - lu(k,1780) * b(k,112) - b(k,41) = b(k,41) - lu(k,1779) * b(k,112) - b(k,40) = b(k,40) - lu(k,1778) * b(k,112) - b(k,37) = b(k,37) - lu(k,1777) * b(k,112) - b(k,36) = b(k,36) - lu(k,1776) * b(k,112) - b(k,31) = b(k,31) - lu(k,1775) * b(k,112) - b(k,30) = b(k,30) - lu(k,1774) * b(k,112) - b(k,29) = b(k,29) - lu(k,1773) * b(k,112) - b(k,26) = b(k,26) - lu(k,1772) * b(k,112) - b(k,22) = b(k,22) - lu(k,1771) * b(k,112) - b(k,111) = b(k,111) * lu(k,1769) - b(k,110) = b(k,110) - lu(k,1768) * b(k,111) - b(k,109) = b(k,109) - lu(k,1767) * b(k,111) - b(k,108) = b(k,108) - lu(k,1766) * b(k,111) - b(k,107) = b(k,107) - lu(k,1765) * b(k,111) - b(k,106) = b(k,106) - lu(k,1764) * b(k,111) - b(k,105) = b(k,105) - lu(k,1763) * b(k,111) - b(k,104) = b(k,104) - lu(k,1762) * b(k,111) - b(k,103) = b(k,103) - lu(k,1761) * b(k,111) - b(k,102) = b(k,102) - lu(k,1760) * b(k,111) - b(k,101) = b(k,101) - lu(k,1759) * b(k,111) - b(k,100) = b(k,100) - lu(k,1758) * b(k,111) - b(k,99) = b(k,99) - lu(k,1757) * b(k,111) - b(k,98) = b(k,98) - lu(k,1756) * b(k,111) - b(k,97) = b(k,97) - lu(k,1755) * b(k,111) - b(k,96) = b(k,96) - lu(k,1754) * b(k,111) - b(k,95) = b(k,95) - lu(k,1753) * b(k,111) - b(k,94) = b(k,94) - lu(k,1752) * b(k,111) - b(k,93) = b(k,93) - lu(k,1751) * b(k,111) - b(k,92) = b(k,92) - lu(k,1750) * b(k,111) - b(k,91) = b(k,91) - lu(k,1749) * b(k,111) - b(k,90) = b(k,90) - lu(k,1748) * b(k,111) - b(k,89) = b(k,89) - lu(k,1747) * b(k,111) - b(k,88) = b(k,88) - lu(k,1746) * b(k,111) - b(k,87) = b(k,87) - lu(k,1745) * b(k,111) - b(k,86) = b(k,86) - lu(k,1744) * b(k,111) - b(k,85) = b(k,85) - lu(k,1743) * b(k,111) - b(k,84) = b(k,84) - lu(k,1742) * b(k,111) - b(k,83) = b(k,83) - lu(k,1741) * b(k,111) - b(k,79) = b(k,79) - lu(k,1740) * b(k,111) - b(k,78) = b(k,78) - lu(k,1739) * b(k,111) - b(k,77) = b(k,77) - lu(k,1738) * b(k,111) - b(k,76) = b(k,76) - lu(k,1737) * b(k,111) - b(k,73) = b(k,73) - lu(k,1736) * b(k,111) - b(k,71) = b(k,71) - lu(k,1735) * b(k,111) - b(k,70) = b(k,70) - lu(k,1734) * b(k,111) - b(k,69) = b(k,69) - lu(k,1733) * b(k,111) - b(k,67) = b(k,67) - lu(k,1732) * b(k,111) - b(k,65) = b(k,65) - lu(k,1731) * b(k,111) - b(k,51) = b(k,51) - lu(k,1730) * b(k,111) - b(k,47) = b(k,47) - lu(k,1729) * b(k,111) - b(k,110) = b(k,110) * lu(k,1726) - b(k,109) = b(k,109) - lu(k,1725) * b(k,110) - b(k,108) = b(k,108) - lu(k,1724) * b(k,110) - b(k,107) = b(k,107) - lu(k,1723) * b(k,110) - b(k,106) = b(k,106) - lu(k,1722) * b(k,110) - b(k,105) = b(k,105) - lu(k,1721) * b(k,110) - b(k,104) = b(k,104) - lu(k,1720) * b(k,110) - b(k,103) = b(k,103) - lu(k,1719) * b(k,110) - b(k,102) = b(k,102) - lu(k,1718) * b(k,110) - b(k,101) = b(k,101) - lu(k,1717) * b(k,110) - b(k,100) = b(k,100) - lu(k,1716) * b(k,110) - b(k,99) = b(k,99) - lu(k,1715) * b(k,110) - b(k,98) = b(k,98) - lu(k,1714) * b(k,110) - b(k,97) = b(k,97) - lu(k,1713) * b(k,110) - b(k,96) = b(k,96) - lu(k,1712) * b(k,110) - b(k,95) = b(k,95) - lu(k,1711) * b(k,110) - b(k,94) = b(k,94) - lu(k,1710) * b(k,110) - b(k,93) = b(k,93) - lu(k,1709) * b(k,110) - b(k,92) = b(k,92) - lu(k,1708) * b(k,110) - b(k,91) = b(k,91) - lu(k,1707) * b(k,110) - b(k,90) = b(k,90) - lu(k,1706) * b(k,110) - b(k,89) = b(k,89) - lu(k,1705) * b(k,110) - b(k,88) = b(k,88) - lu(k,1704) * b(k,110) - b(k,87) = b(k,87) - lu(k,1703) * b(k,110) - b(k,86) = b(k,86) - lu(k,1702) * b(k,110) - b(k,85) = b(k,85) - lu(k,1701) * b(k,110) - b(k,84) = b(k,84) - lu(k,1700) * b(k,110) - b(k,82) = b(k,82) - lu(k,1699) * b(k,110) - b(k,81) = b(k,81) - lu(k,1698) * b(k,110) - b(k,75) = b(k,75) - lu(k,1697) * b(k,110) - b(k,72) = b(k,72) - lu(k,1696) * b(k,110) - b(k,66) = b(k,66) - lu(k,1695) * b(k,110) - b(k,58) = b(k,58) - lu(k,1694) * b(k,110) - b(k,109) = b(k,109) * lu(k,1690) - b(k,108) = b(k,108) - lu(k,1689) * b(k,109) - b(k,107) = b(k,107) - lu(k,1688) * b(k,109) - b(k,106) = b(k,106) - lu(k,1687) * b(k,109) - b(k,105) = b(k,105) - lu(k,1686) * b(k,109) - b(k,104) = b(k,104) - lu(k,1685) * b(k,109) - b(k,103) = b(k,103) - lu(k,1684) * b(k,109) - b(k,102) = b(k,102) - lu(k,1683) * b(k,109) - b(k,101) = b(k,101) - lu(k,1682) * b(k,109) - b(k,100) = b(k,100) - lu(k,1681) * b(k,109) - b(k,99) = b(k,99) - lu(k,1680) * b(k,109) - b(k,98) = b(k,98) - lu(k,1679) * b(k,109) - b(k,97) = b(k,97) - lu(k,1678) * b(k,109) - b(k,96) = b(k,96) - lu(k,1677) * b(k,109) - b(k,95) = b(k,95) - lu(k,1676) * b(k,109) - b(k,94) = b(k,94) - lu(k,1675) * b(k,109) - b(k,93) = b(k,93) - lu(k,1674) * b(k,109) - b(k,92) = b(k,92) - lu(k,1673) * b(k,109) - b(k,91) = b(k,91) - lu(k,1672) * b(k,109) - b(k,90) = b(k,90) - lu(k,1671) * b(k,109) - b(k,89) = b(k,89) - lu(k,1670) * b(k,109) - b(k,88) = b(k,88) - lu(k,1669) * b(k,109) - b(k,87) = b(k,87) - lu(k,1668) * b(k,109) - b(k,86) = b(k,86) - lu(k,1667) * b(k,109) - b(k,85) = b(k,85) - lu(k,1666) * b(k,109) - b(k,84) = b(k,84) - lu(k,1665) * b(k,109) - b(k,72) = b(k,72) - lu(k,1664) * b(k,109) - b(k,65) = b(k,65) - lu(k,1663) * b(k,109) - b(k,61) = b(k,61) - lu(k,1662) * b(k,109) - b(k,108) = b(k,108) * lu(k,1657) - b(k,107) = b(k,107) - lu(k,1656) * b(k,108) - b(k,106) = b(k,106) - lu(k,1655) * b(k,108) - b(k,105) = b(k,105) - lu(k,1654) * b(k,108) - b(k,104) = b(k,104) - lu(k,1653) * b(k,108) - b(k,103) = b(k,103) - lu(k,1652) * b(k,108) - b(k,102) = b(k,102) - lu(k,1651) * b(k,108) - b(k,101) = b(k,101) - lu(k,1650) * b(k,108) - b(k,100) = b(k,100) - lu(k,1649) * b(k,108) - b(k,99) = b(k,99) - lu(k,1648) * b(k,108) - b(k,98) = b(k,98) - lu(k,1647) * b(k,108) - b(k,97) = b(k,97) - lu(k,1646) * b(k,108) - b(k,96) = b(k,96) - lu(k,1645) * b(k,108) - b(k,95) = b(k,95) - lu(k,1644) * b(k,108) - b(k,94) = b(k,94) - lu(k,1643) * b(k,108) - b(k,93) = b(k,93) - lu(k,1642) * b(k,108) - b(k,92) = b(k,92) - lu(k,1641) * b(k,108) - b(k,91) = b(k,91) - lu(k,1640) * b(k,108) - b(k,90) = b(k,90) - lu(k,1639) * b(k,108) - b(k,89) = b(k,89) - lu(k,1638) * b(k,108) - b(k,87) = b(k,87) - lu(k,1637) * b(k,108) - b(k,85) = b(k,85) - lu(k,1636) * b(k,108) - b(k,84) = b(k,84) - lu(k,1635) * b(k,108) - b(k,71) = b(k,71) - lu(k,1634) * b(k,108) - b(k,50) = b(k,50) - lu(k,1633) * b(k,108) - b(k,107) = b(k,107) * lu(k,1627) - b(k,106) = b(k,106) - lu(k,1626) * b(k,107) - b(k,105) = b(k,105) - lu(k,1625) * b(k,107) - b(k,104) = b(k,104) - lu(k,1624) * b(k,107) - b(k,103) = b(k,103) - lu(k,1623) * b(k,107) - b(k,102) = b(k,102) - lu(k,1622) * b(k,107) - b(k,101) = b(k,101) - lu(k,1621) * b(k,107) - b(k,100) = b(k,100) - lu(k,1620) * b(k,107) - b(k,99) = b(k,99) - lu(k,1619) * b(k,107) - b(k,98) = b(k,98) - lu(k,1618) * b(k,107) - b(k,97) = b(k,97) - lu(k,1617) * b(k,107) - b(k,96) = b(k,96) - lu(k,1616) * b(k,107) - b(k,95) = b(k,95) - lu(k,1615) * b(k,107) - b(k,94) = b(k,94) - lu(k,1614) * b(k,107) - b(k,93) = b(k,93) - lu(k,1613) * b(k,107) - b(k,92) = b(k,92) - lu(k,1612) * b(k,107) - b(k,91) = b(k,91) - lu(k,1611) * b(k,107) - b(k,90) = b(k,90) - lu(k,1610) * b(k,107) - b(k,89) = b(k,89) - lu(k,1609) * b(k,107) - b(k,88) = b(k,88) - lu(k,1608) * b(k,107) - b(k,87) = b(k,87) - lu(k,1607) * b(k,107) - b(k,86) = b(k,86) - lu(k,1606) * b(k,107) - b(k,85) = b(k,85) - lu(k,1605) * b(k,107) - b(k,84) = b(k,84) - lu(k,1604) * b(k,107) - b(k,83) = b(k,83) - lu(k,1603) * b(k,107) - b(k,82) = b(k,82) - lu(k,1602) * b(k,107) - b(k,81) = b(k,81) - lu(k,1601) * b(k,107) - b(k,80) = b(k,80) - lu(k,1600) * b(k,107) - b(k,75) = b(k,75) - lu(k,1599) * b(k,107) - b(k,74) = b(k,74) - lu(k,1598) * b(k,107) - b(k,72) = b(k,72) - lu(k,1597) * b(k,107) - b(k,68) = b(k,68) - lu(k,1596) * b(k,107) - b(k,66) = b(k,66) - lu(k,1595) * b(k,107) - b(k,63) = b(k,63) - lu(k,1594) * b(k,107) - b(k,61) = b(k,61) - lu(k,1593) * b(k,107) - b(k,60) = b(k,60) - lu(k,1592) * b(k,107) - b(k,59) = b(k,59) - lu(k,1591) * b(k,107) - b(k,58) = b(k,58) - lu(k,1590) * b(k,107) - b(k,57) = b(k,57) - lu(k,1589) * b(k,107) - b(k,56) = b(k,56) - lu(k,1588) * b(k,107) - b(k,55) = b(k,55) - lu(k,1587) * b(k,107) - b(k,53) = b(k,53) - lu(k,1586) * b(k,107) - b(k,49) = b(k,49) - lu(k,1585) * b(k,107) - b(k,48) = b(k,48) - lu(k,1584) * b(k,107) - b(k,46) = b(k,46) - lu(k,1583) * b(k,107) - b(k,45) = b(k,45) - lu(k,1582) * b(k,107) - b(k,44) = b(k,44) - lu(k,1581) * b(k,107) - b(k,43) = b(k,43) - lu(k,1580) * b(k,107) - b(k,42) = b(k,42) - lu(k,1579) * b(k,107) - b(k,38) = b(k,38) - lu(k,1578) * b(k,107) - b(k,34) = b(k,34) - lu(k,1577) * b(k,107) - b(k,28) = b(k,28) - lu(k,1576) * b(k,107) - 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,106) = b(k,106) * lu(k,1569) - b(k,105) = b(k,105) - lu(k,1568) * b(k,106) - b(k,104) = b(k,104) - lu(k,1567) * b(k,106) - b(k,103) = b(k,103) - lu(k,1566) * b(k,106) - b(k,102) = b(k,102) - lu(k,1565) * b(k,106) - b(k,101) = b(k,101) - lu(k,1564) * b(k,106) - b(k,100) = b(k,100) - lu(k,1563) * b(k,106) - b(k,99) = b(k,99) - lu(k,1562) * b(k,106) - b(k,98) = b(k,98) - lu(k,1561) * b(k,106) - b(k,97) = b(k,97) - lu(k,1560) * b(k,106) - b(k,96) = b(k,96) - lu(k,1559) * b(k,106) - b(k,95) = b(k,95) - lu(k,1558) * b(k,106) - b(k,94) = b(k,94) - lu(k,1557) * b(k,106) - b(k,93) = b(k,93) - lu(k,1556) * b(k,106) - b(k,92) = b(k,92) - lu(k,1555) * b(k,106) - b(k,91) = b(k,91) - lu(k,1554) * b(k,106) - b(k,90) = b(k,90) - lu(k,1553) * b(k,106) - b(k,89) = b(k,89) - lu(k,1552) * b(k,106) - b(k,88) = b(k,88) - lu(k,1551) * b(k,106) - b(k,87) = b(k,87) - lu(k,1550) * b(k,106) - b(k,86) = b(k,86) - lu(k,1549) * b(k,106) - b(k,85) = b(k,85) - lu(k,1548) * b(k,106) - b(k,84) = b(k,84) - lu(k,1547) * b(k,106) - b(k,82) = b(k,82) - lu(k,1546) * b(k,106) - b(k,81) = b(k,81) - lu(k,1545) * b(k,106) - b(k,80) = b(k,80) - lu(k,1544) * b(k,106) - b(k,79) = b(k,79) - lu(k,1543) * b(k,106) - b(k,78) = b(k,78) - lu(k,1542) * b(k,106) - b(k,74) = b(k,74) - lu(k,1541) * b(k,106) - b(k,72) = b(k,72) - lu(k,1540) * b(k,106) - b(k,71) = b(k,71) - lu(k,1539) * b(k,106) - b(k,64) = b(k,64) - lu(k,1538) * b(k,106) - b(k,63) = b(k,63) - lu(k,1537) * b(k,106) - b(k,61) = b(k,61) - lu(k,1536) * b(k,106) - b(k,50) = b(k,50) - lu(k,1535) * b(k,106) - b(k,105) = b(k,105) * lu(k,1527) - b(k,104) = b(k,104) - lu(k,1526) * b(k,105) - b(k,103) = b(k,103) - lu(k,1525) * b(k,105) - b(k,102) = b(k,102) - lu(k,1524) * b(k,105) - b(k,101) = b(k,101) - lu(k,1523) * b(k,105) - b(k,100) = b(k,100) - lu(k,1522) * b(k,105) - b(k,99) = b(k,99) - lu(k,1521) * b(k,105) - b(k,98) = b(k,98) - lu(k,1520) * b(k,105) - b(k,97) = b(k,97) - lu(k,1519) * b(k,105) - b(k,96) = b(k,96) - lu(k,1518) * b(k,105) - b(k,95) = b(k,95) - lu(k,1517) * b(k,105) - b(k,94) = b(k,94) - lu(k,1516) * b(k,105) - b(k,93) = b(k,93) - lu(k,1515) * b(k,105) - b(k,92) = b(k,92) - lu(k,1514) * b(k,105) - b(k,91) = b(k,91) - lu(k,1513) * b(k,105) - b(k,90) = b(k,90) - lu(k,1512) * b(k,105) - b(k,89) = b(k,89) - lu(k,1511) * b(k,105) - b(k,88) = b(k,88) - lu(k,1510) * b(k,105) - b(k,87) = b(k,87) - lu(k,1509) * b(k,105) - b(k,86) = b(k,86) - lu(k,1508) * b(k,105) - b(k,85) = b(k,85) - lu(k,1507) * b(k,105) - b(k,84) = b(k,84) - lu(k,1506) * b(k,105) - b(k,83) = b(k,83) - lu(k,1505) * b(k,105) - b(k,79) = b(k,79) - lu(k,1504) * b(k,105) - b(k,78) = b(k,78) - lu(k,1503) * b(k,105) - b(k,77) = b(k,77) - lu(k,1502) * b(k,105) - b(k,76) = b(k,76) - lu(k,1501) * b(k,105) - b(k,73) = b(k,73) - lu(k,1500) * b(k,105) - b(k,71) = b(k,71) - lu(k,1499) * b(k,105) - b(k,70) = b(k,70) - lu(k,1498) * b(k,105) - b(k,69) = b(k,69) - lu(k,1497) * b(k,105) - b(k,67) = b(k,67) - lu(k,1496) * b(k,105) - b(k,65) = b(k,65) - lu(k,1495) * b(k,105) - b(k,62) = b(k,62) - lu(k,1494) * b(k,105) - b(k,30) = b(k,30) - lu(k,1493) * b(k,105) - b(k,104) = b(k,104) * lu(k,1484) - b(k,103) = b(k,103) - lu(k,1483) * b(k,104) - b(k,102) = b(k,102) - lu(k,1482) * b(k,104) - b(k,101) = b(k,101) - lu(k,1481) * b(k,104) - b(k,100) = b(k,100) - lu(k,1480) * b(k,104) - b(k,99) = b(k,99) - lu(k,1479) * b(k,104) - b(k,98) = b(k,98) - lu(k,1478) * b(k,104) - b(k,97) = b(k,97) - lu(k,1477) * b(k,104) - b(k,96) = b(k,96) - lu(k,1476) * b(k,104) - b(k,95) = b(k,95) - lu(k,1475) * b(k,104) - b(k,94) = b(k,94) - lu(k,1474) * b(k,104) - b(k,93) = b(k,93) - lu(k,1473) * b(k,104) - b(k,92) = b(k,92) - lu(k,1472) * b(k,104) - b(k,91) = b(k,91) - lu(k,1471) * b(k,104) - b(k,90) = b(k,90) - lu(k,1470) * b(k,104) - b(k,89) = b(k,89) - lu(k,1469) * b(k,104) - b(k,88) = b(k,88) - lu(k,1468) * b(k,104) - b(k,87) = b(k,87) - lu(k,1467) * b(k,104) - b(k,86) = b(k,86) - lu(k,1466) * b(k,104) - b(k,85) = b(k,85) - lu(k,1465) * b(k,104) - b(k,84) = b(k,84) - lu(k,1464) * b(k,104) - b(k,82) = b(k,82) - lu(k,1463) * b(k,104) - b(k,81) = b(k,81) - lu(k,1462) * b(k,104) - b(k,80) = b(k,80) - lu(k,1461) * b(k,104) - b(k,79) = b(k,79) - lu(k,1460) * b(k,104) - b(k,78) = b(k,78) - lu(k,1459) * b(k,104) - b(k,77) = b(k,77) - lu(k,1458) * b(k,104) - b(k,76) = b(k,76) - lu(k,1457) * b(k,104) - b(k,74) = b(k,74) - lu(k,1456) * b(k,104) - b(k,72) = b(k,72) - lu(k,1455) * b(k,104) - b(k,68) = b(k,68) - lu(k,1454) * b(k,104) - b(k,63) = b(k,63) - lu(k,1453) * b(k,104) - b(k,62) = b(k,62) - lu(k,1452) * b(k,104) - b(k,60) = b(k,60) - lu(k,1451) * b(k,104) - b(k,59) = b(k,59) - lu(k,1450) * b(k,104) - b(k,55) = b(k,55) - lu(k,1449) * b(k,104) - b(k,45) = b(k,45) - lu(k,1448) * b(k,104) - b(k,39) = b(k,39) - lu(k,1447) * b(k,104) - b(k,103) = b(k,103) * lu(k,1437) - b(k,102) = b(k,102) - lu(k,1436) * b(k,103) - b(k,101) = b(k,101) - lu(k,1435) * b(k,103) - b(k,100) = b(k,100) - lu(k,1434) * b(k,103) - b(k,99) = b(k,99) - lu(k,1433) * b(k,103) - b(k,98) = b(k,98) - lu(k,1432) * b(k,103) - b(k,97) = b(k,97) - lu(k,1431) * b(k,103) - b(k,96) = b(k,96) - lu(k,1430) * b(k,103) - b(k,95) = b(k,95) - lu(k,1429) * b(k,103) - b(k,94) = b(k,94) - lu(k,1428) * b(k,103) - b(k,93) = b(k,93) - lu(k,1427) * b(k,103) - b(k,92) = b(k,92) - lu(k,1426) * b(k,103) - b(k,91) = b(k,91) - lu(k,1425) * b(k,103) - b(k,90) = b(k,90) - lu(k,1424) * b(k,103) - b(k,89) = b(k,89) - lu(k,1423) * b(k,103) - b(k,88) = b(k,88) - lu(k,1422) * b(k,103) - b(k,87) = b(k,87) - lu(k,1421) * b(k,103) - b(k,86) = b(k,86) - lu(k,1420) * b(k,103) - b(k,85) = b(k,85) - lu(k,1419) * b(k,103) - b(k,84) = b(k,84) - lu(k,1418) * b(k,103) - b(k,83) = b(k,83) - lu(k,1417) * b(k,103) - b(k,82) = b(k,82) - lu(k,1416) * b(k,103) - b(k,79) = b(k,79) - lu(k,1415) * b(k,103) - b(k,78) = b(k,78) - lu(k,1414) * b(k,103) - b(k,77) = b(k,77) - lu(k,1413) * b(k,103) - b(k,76) = b(k,76) - lu(k,1412) * b(k,103) - b(k,73) = b(k,73) - lu(k,1411) * b(k,103) - b(k,71) = b(k,71) - lu(k,1410) * b(k,103) - b(k,70) = b(k,70) - lu(k,1409) * b(k,103) - b(k,69) = b(k,69) - lu(k,1408) * b(k,103) - b(k,67) = b(k,67) - lu(k,1407) * b(k,103) - b(k,66) = b(k,66) - lu(k,1406) * b(k,103) - b(k,65) = b(k,65) - lu(k,1405) * b(k,103) - b(k,63) = b(k,63) - lu(k,1404) * b(k,103) - b(k,52) = b(k,52) - lu(k,1403) * b(k,103) - b(k,102) = b(k,102) * lu(k,1392) - b(k,101) = b(k,101) - lu(k,1391) * b(k,102) - b(k,100) = b(k,100) - lu(k,1390) * b(k,102) - b(k,99) = b(k,99) - lu(k,1389) * b(k,102) - b(k,98) = b(k,98) - lu(k,1388) * b(k,102) - b(k,97) = b(k,97) - lu(k,1387) * b(k,102) - b(k,96) = b(k,96) - lu(k,1386) * b(k,102) - b(k,95) = b(k,95) - lu(k,1385) * b(k,102) - b(k,94) = b(k,94) - lu(k,1384) * b(k,102) - b(k,93) = b(k,93) - lu(k,1383) * b(k,102) - b(k,92) = b(k,92) - lu(k,1382) * b(k,102) - b(k,91) = b(k,91) - lu(k,1381) * b(k,102) - b(k,90) = b(k,90) - lu(k,1380) * b(k,102) - b(k,89) = b(k,89) - lu(k,1379) * b(k,102) - b(k,88) = b(k,88) - lu(k,1378) * b(k,102) - b(k,87) = b(k,87) - lu(k,1377) * b(k,102) - b(k,86) = b(k,86) - lu(k,1376) * b(k,102) - b(k,85) = b(k,85) - lu(k,1375) * b(k,102) - b(k,84) = b(k,84) - lu(k,1374) * b(k,102) - b(k,83) = b(k,83) - lu(k,1373) * b(k,102) - b(k,72) = b(k,72) - lu(k,1372) * b(k,102) - b(k,66) = b(k,66) - lu(k,1371) * b(k,102) - b(k,61) = b(k,61) - lu(k,1370) * b(k,102) - b(k,58) = b(k,58) - lu(k,1369) * b(k,102) - b(k,38) = b(k,38) - lu(k,1368) * b(k,102) - b(k,101) = b(k,101) * lu(k,1356) - b(k,100) = b(k,100) - lu(k,1355) * b(k,101) - b(k,99) = b(k,99) - lu(k,1354) * b(k,101) - b(k,98) = b(k,98) - lu(k,1353) * b(k,101) - b(k,97) = b(k,97) - lu(k,1352) * b(k,101) - b(k,96) = b(k,96) - lu(k,1351) * b(k,101) - b(k,95) = b(k,95) - lu(k,1350) * b(k,101) - b(k,94) = b(k,94) - lu(k,1349) * b(k,101) - b(k,93) = b(k,93) - lu(k,1348) * b(k,101) - b(k,92) = b(k,92) - lu(k,1347) * b(k,101) - b(k,91) = b(k,91) - lu(k,1346) * b(k,101) - b(k,90) = b(k,90) - lu(k,1345) * b(k,101) - b(k,89) = b(k,89) - lu(k,1344) * b(k,101) - b(k,88) = b(k,88) - lu(k,1343) * b(k,101) - b(k,87) = b(k,87) - lu(k,1342) * b(k,101) - b(k,86) = b(k,86) - lu(k,1341) * b(k,101) - b(k,85) = b(k,85) - lu(k,1340) * b(k,101) - b(k,84) = b(k,84) - lu(k,1339) * b(k,101) - b(k,82) = b(k,82) - lu(k,1338) * b(k,101) - b(k,81) = b(k,81) - lu(k,1337) * b(k,101) - b(k,79) = b(k,79) - lu(k,1336) * b(k,101) - b(k,76) = b(k,76) - lu(k,1335) * b(k,101) - b(k,75) = b(k,75) - lu(k,1334) * b(k,101) - b(k,73) = b(k,73) - lu(k,1333) * b(k,101) - b(k,64) = b(k,64) - lu(k,1332) * b(k,101) - b(k,54) = b(k,54) - lu(k,1331) * b(k,101) - b(k,50) = b(k,50) - lu(k,1330) * b(k,101) - b(k,26) = b(k,26) - lu(k,1329) * b(k,101) - b(k,100) = b(k,100) * lu(k,1316) - b(k,99) = b(k,99) - lu(k,1315) * b(k,100) - b(k,98) = b(k,98) - lu(k,1314) * b(k,100) - b(k,97) = b(k,97) - lu(k,1313) * b(k,100) - b(k,96) = b(k,96) - lu(k,1312) * b(k,100) - b(k,95) = b(k,95) - lu(k,1311) * b(k,100) - b(k,94) = b(k,94) - lu(k,1310) * b(k,100) - b(k,93) = b(k,93) - lu(k,1309) * b(k,100) - b(k,92) = b(k,92) - lu(k,1308) * b(k,100) - b(k,91) = b(k,91) - lu(k,1307) * b(k,100) - b(k,90) = b(k,90) - lu(k,1306) * b(k,100) - b(k,89) = b(k,89) - lu(k,1305) * b(k,100) - b(k,88) = b(k,88) - lu(k,1304) * b(k,100) - b(k,87) = b(k,87) - lu(k,1303) * b(k,100) - b(k,86) = b(k,86) - lu(k,1302) * b(k,100) - b(k,85) = b(k,85) - lu(k,1301) * b(k,100) - b(k,84) = b(k,84) - lu(k,1300) * b(k,100) - b(k,83) = b(k,83) - lu(k,1299) * b(k,100) - b(k,82) = b(k,82) - lu(k,1298) * b(k,100) - b(k,81) = b(k,81) - lu(k,1297) * b(k,100) - b(k,80) = b(k,80) - lu(k,1296) * b(k,100) - b(k,76) = b(k,76) - lu(k,1295) * b(k,100) - b(k,74) = b(k,74) - lu(k,1294) * b(k,100) - b(k,73) = b(k,73) - lu(k,1293) * b(k,100) - b(k,70) = b(k,70) - lu(k,1292) * b(k,100) - b(k,69) = b(k,69) - lu(k,1291) * b(k,100) - b(k,60) = b(k,60) - lu(k,1290) * b(k,100) - b(k,57) = b(k,57) - lu(k,1289) * b(k,100) - b(k,55) = b(k,55) - lu(k,1288) * b(k,100) - b(k,50) = b(k,50) - lu(k,1287) * b(k,100) - b(k,27) = b(k,27) - lu(k,1286) * b(k,100) - b(k,24) = b(k,24) - lu(k,1285) * b(k,100) - 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,99) = b(k,99) * lu(k,1271) - b(k,98) = b(k,98) - lu(k,1270) * b(k,99) - b(k,97) = b(k,97) - lu(k,1269) * b(k,99) - b(k,96) = b(k,96) - lu(k,1268) * b(k,99) - b(k,95) = b(k,95) - lu(k,1267) * b(k,99) - b(k,94) = b(k,94) - lu(k,1266) * b(k,99) - b(k,93) = b(k,93) - lu(k,1265) * b(k,99) - b(k,92) = b(k,92) - lu(k,1264) * b(k,99) - b(k,91) = b(k,91) - lu(k,1263) * b(k,99) - b(k,90) = b(k,90) - lu(k,1262) * b(k,99) - b(k,89) = b(k,89) - lu(k,1261) * b(k,99) - b(k,88) = b(k,88) - lu(k,1260) * b(k,99) - b(k,87) = b(k,87) - lu(k,1259) * b(k,99) - b(k,86) = b(k,86) - lu(k,1258) * b(k,99) - b(k,85) = b(k,85) - lu(k,1257) * b(k,99) - b(k,84) = b(k,84) - lu(k,1256) * b(k,99) - b(k,83) = b(k,83) - lu(k,1255) * b(k,99) - b(k,82) = b(k,82) - lu(k,1254) * b(k,99) - b(k,81) = b(k,81) - lu(k,1253) * b(k,99) - b(k,80) = b(k,80) - lu(k,1252) * b(k,99) - b(k,74) = b(k,74) - lu(k,1251) * b(k,99) - b(k,72) = b(k,72) - lu(k,1250) * b(k,99) - b(k,68) = b(k,68) - lu(k,1249) * b(k,99) - b(k,66) = b(k,66) - lu(k,1248) * b(k,99) - b(k,63) = b(k,63) - lu(k,1247) * b(k,99) - b(k,59) = b(k,59) - lu(k,1246) * b(k,99) - b(k,58) = b(k,58) - lu(k,1245) * b(k,99) - b(k,53) = b(k,53) - lu(k,1244) * b(k,99) - b(k,49) = b(k,49) - lu(k,1243) * b(k,99) - b(k,48) = b(k,48) - lu(k,1242) * b(k,99) - b(k,43) = b(k,43) - lu(k,1241) * b(k,99) - b(k,42) = b(k,42) - lu(k,1240) * b(k,99) - b(k,38) = b(k,38) - lu(k,1239) * b(k,99) - b(k,28) = b(k,28) - lu(k,1238) * b(k,99) - b(k,98) = b(k,98) * lu(k,1223) - b(k,97) = b(k,97) - lu(k,1222) * b(k,98) - b(k,96) = b(k,96) - lu(k,1221) * b(k,98) - b(k,95) = b(k,95) - lu(k,1220) * b(k,98) - b(k,94) = b(k,94) - lu(k,1219) * b(k,98) - b(k,93) = b(k,93) - lu(k,1218) * b(k,98) - b(k,92) = b(k,92) - lu(k,1217) * b(k,98) - b(k,91) = b(k,91) - lu(k,1216) * b(k,98) - b(k,90) = b(k,90) - lu(k,1215) * b(k,98) - b(k,89) = b(k,89) - lu(k,1214) * b(k,98) - b(k,88) = b(k,88) - lu(k,1213) * b(k,98) - b(k,87) = b(k,87) - lu(k,1212) * b(k,98) - b(k,86) = b(k,86) - lu(k,1211) * b(k,98) - b(k,85) = b(k,85) - lu(k,1210) * b(k,98) - b(k,84) = b(k,84) - lu(k,1209) * b(k,98) - b(k,83) = b(k,83) - lu(k,1208) * b(k,98) - b(k,82) = b(k,82) - lu(k,1207) * b(k,98) - b(k,81) = b(k,81) - lu(k,1206) * b(k,98) - b(k,75) = b(k,75) - lu(k,1205) * b(k,98) - b(k,72) = b(k,72) - lu(k,1204) * b(k,98) - b(k,51) = b(k,51) - lu(k,1203) * b(k,98) - b(k,97) = b(k,97) * lu(k,1187) - b(k,96) = b(k,96) - lu(k,1186) * b(k,97) - b(k,95) = b(k,95) - lu(k,1185) * b(k,97) - b(k,94) = b(k,94) - lu(k,1184) * b(k,97) - b(k,93) = b(k,93) - lu(k,1183) * b(k,97) - b(k,92) = b(k,92) - lu(k,1182) * b(k,97) - b(k,91) = b(k,91) - lu(k,1181) * b(k,97) - b(k,90) = b(k,90) - lu(k,1180) * b(k,97) - b(k,89) = b(k,89) - lu(k,1179) * b(k,97) - b(k,87) = b(k,87) - lu(k,1178) * b(k,97) - b(k,86) = b(k,86) - lu(k,1177) * b(k,97) - b(k,85) = b(k,85) - lu(k,1176) * b(k,97) - b(k,82) = b(k,82) - lu(k,1175) * b(k,97) - b(k,81) = b(k,81) - lu(k,1174) * b(k,97) - b(k,80) = b(k,80) - lu(k,1173) * b(k,97) - b(k,79) = b(k,79) - lu(k,1172) * b(k,97) - b(k,77) = b(k,77) - lu(k,1171) * b(k,97) - b(k,76) = b(k,76) - lu(k,1170) * b(k,97) - b(k,74) = b(k,74) - lu(k,1169) * b(k,97) - b(k,68) = b(k,68) - lu(k,1168) * b(k,97) - b(k,62) = b(k,62) - lu(k,1167) * b(k,97) - b(k,59) = b(k,59) - lu(k,1166) * b(k,97) - b(k,44) = b(k,44) - lu(k,1165) * b(k,97) - b(k,32) = b(k,32) - lu(k,1164) * b(k,97) - b(k,96) = b(k,96) * lu(k,1147) - b(k,95) = b(k,95) - lu(k,1146) * b(k,96) - b(k,94) = b(k,94) - lu(k,1145) * b(k,96) - b(k,93) = b(k,93) - lu(k,1144) * b(k,96) - b(k,92) = b(k,92) - lu(k,1143) * b(k,96) - b(k,91) = b(k,91) - lu(k,1142) * b(k,96) - b(k,90) = b(k,90) - lu(k,1141) * b(k,96) - b(k,89) = b(k,89) - lu(k,1140) * b(k,96) - b(k,88) = b(k,88) - lu(k,1139) * b(k,96) - b(k,87) = b(k,87) - lu(k,1138) * b(k,96) - b(k,86) = b(k,86) - lu(k,1137) * b(k,96) - b(k,85) = b(k,85) - lu(k,1136) * b(k,96) - b(k,84) = b(k,84) - lu(k,1135) * b(k,96) - b(k,83) = b(k,83) - lu(k,1134) * b(k,96) - b(k,79) = b(k,79) - lu(k,1133) * b(k,96) - b(k,78) = b(k,78) - lu(k,1132) * b(k,96) - b(k,77) = b(k,77) - lu(k,1131) * b(k,96) - b(k,76) = b(k,76) - lu(k,1130) * b(k,96) - b(k,73) = b(k,73) - lu(k,1129) * b(k,96) - b(k,71) = b(k,71) - lu(k,1128) * b(k,96) - b(k,70) = b(k,70) - lu(k,1127) * b(k,96) - b(k,69) = b(k,69) - lu(k,1126) * b(k,96) - b(k,67) = b(k,67) - lu(k,1125) * b(k,96) - b(k,65) = b(k,65) - lu(k,1124) * b(k,96) - b(k,51) = b(k,51) - lu(k,1123) * b(k,96) - b(k,95) = b(k,95) * lu(k,1105) - b(k,94) = b(k,94) - lu(k,1104) * b(k,95) - b(k,93) = b(k,93) - lu(k,1103) * b(k,95) - b(k,92) = b(k,92) - lu(k,1102) * b(k,95) - b(k,91) = b(k,91) - lu(k,1101) * b(k,95) - b(k,90) = b(k,90) - lu(k,1100) * b(k,95) - b(k,89) = b(k,89) - lu(k,1099) * b(k,95) - b(k,88) = b(k,88) - lu(k,1098) * b(k,95) - b(k,87) = b(k,87) - lu(k,1097) * b(k,95) - b(k,86) = b(k,86) - lu(k,1096) * b(k,95) - b(k,85) = b(k,85) - lu(k,1095) * b(k,95) - b(k,84) = b(k,84) - lu(k,1094) * b(k,95) - b(k,83) = b(k,83) - lu(k,1093) * b(k,95) - b(k,82) = b(k,82) - lu(k,1092) * b(k,95) - b(k,81) = b(k,81) - lu(k,1091) * b(k,95) - b(k,80) = b(k,80) - lu(k,1090) * b(k,95) - b(k,74) = b(k,74) - lu(k,1089) * b(k,95) - b(k,68) = b(k,68) - lu(k,1088) * b(k,95) - b(k,64) = b(k,64) - lu(k,1087) * b(k,95) - b(k,61) = b(k,61) - lu(k,1086) * b(k,95) - b(k,60) = b(k,60) - lu(k,1085) * b(k,95) - b(k,59) = b(k,59) - lu(k,1084) * b(k,95) - b(k,57) = b(k,57) - lu(k,1083) * b(k,95) - b(k,33) = b(k,33) - lu(k,1082) * b(k,95) - b(k,27) = b(k,27) - lu(k,1081) * b(k,95) - b(k,24) = b(k,24) - lu(k,1080) * b(k,95) - b(k,21) = b(k,21) - lu(k,1079) * b(k,95) - b(k,94) = b(k,94) * lu(k,1060) - b(k,93) = b(k,93) - lu(k,1059) * b(k,94) - b(k,92) = b(k,92) - lu(k,1058) * b(k,94) - b(k,91) = b(k,91) - lu(k,1057) * b(k,94) - b(k,90) = b(k,90) - lu(k,1056) * b(k,94) - b(k,89) = b(k,89) - lu(k,1055) * b(k,94) - b(k,88) = b(k,88) - lu(k,1054) * b(k,94) - b(k,87) = b(k,87) - lu(k,1053) * b(k,94) - b(k,86) = b(k,86) - lu(k,1052) * b(k,94) - b(k,85) = b(k,85) - lu(k,1051) * b(k,94) - b(k,84) = b(k,84) - lu(k,1050) * b(k,94) - b(k,83) = b(k,83) - lu(k,1049) * b(k,94) - b(k,79) = b(k,79) - lu(k,1048) * b(k,94) - b(k,78) = b(k,78) - lu(k,1047) * b(k,94) - b(k,77) = b(k,77) - lu(k,1046) * b(k,94) - b(k,76) = b(k,76) - lu(k,1045) * b(k,94) - b(k,73) = b(k,73) - lu(k,1044) * b(k,94) - b(k,71) = b(k,71) - lu(k,1043) * b(k,94) - b(k,70) = b(k,70) - lu(k,1042) * b(k,94) - b(k,69) = b(k,69) - lu(k,1041) * b(k,94) - b(k,67) = b(k,67) - lu(k,1040) * b(k,94) - b(k,65) = b(k,65) - lu(k,1039) * b(k,94) - b(k,62) = b(k,62) - lu(k,1038) * b(k,94) - b(k,31) = b(k,31) - lu(k,1037) * b(k,94) - b(k,93) = b(k,93) * lu(k,1017) - b(k,92) = b(k,92) - lu(k,1016) * b(k,93) - b(k,91) = b(k,91) - lu(k,1015) * b(k,93) - b(k,90) = b(k,90) - lu(k,1014) * b(k,93) - b(k,89) = b(k,89) - lu(k,1013) * b(k,93) - b(k,88) = b(k,88) - lu(k,1012) * b(k,93) - b(k,87) = b(k,87) - lu(k,1011) * b(k,93) - b(k,86) = b(k,86) - lu(k,1010) * b(k,93) - b(k,85) = b(k,85) - lu(k,1009) * b(k,93) - b(k,84) = b(k,84) - lu(k,1008) * b(k,93) - b(k,83) = b(k,83) - lu(k,1007) * b(k,93) - b(k,79) = b(k,79) - lu(k,1006) * b(k,93) - b(k,78) = b(k,78) - lu(k,1005) * b(k,93) - b(k,77) = b(k,77) - lu(k,1004) * b(k,93) - b(k,76) = b(k,76) - lu(k,1003) * b(k,93) - b(k,73) = b(k,73) - lu(k,1002) * b(k,93) - b(k,71) = b(k,71) - lu(k,1001) * b(k,93) - b(k,70) = b(k,70) - lu(k,1000) * b(k,93) - b(k,69) = b(k,69) - lu(k,999) * b(k,93) - b(k,67) = b(k,67) - lu(k,998) * b(k,93) - b(k,65) = b(k,65) - lu(k,997) * b(k,93) - b(k,50) = b(k,50) - lu(k,996) * b(k,93) - b(k,37) = b(k,37) - lu(k,995) * b(k,93) - b(k,92) = b(k,92) * lu(k,974) - b(k,91) = b(k,91) - lu(k,973) * b(k,92) - b(k,90) = b(k,90) - lu(k,972) * b(k,92) - b(k,89) = b(k,89) - lu(k,971) * b(k,92) - b(k,88) = b(k,88) - lu(k,970) * b(k,92) - b(k,87) = b(k,87) - lu(k,969) * b(k,92) - b(k,86) = b(k,86) - lu(k,968) * b(k,92) - b(k,85) = b(k,85) - lu(k,967) * b(k,92) - b(k,84) = b(k,84) - lu(k,966) * b(k,92) - b(k,83) = b(k,83) - lu(k,965) * b(k,92) - b(k,82) = b(k,82) - lu(k,964) * b(k,92) - b(k,79) = b(k,79) - lu(k,963) * b(k,92) - b(k,78) = b(k,78) - lu(k,962) * b(k,92) - b(k,77) = b(k,77) - lu(k,961) * b(k,92) - b(k,76) = b(k,76) - lu(k,960) * b(k,92) - b(k,73) = b(k,73) - lu(k,959) * b(k,92) - b(k,71) = b(k,71) - lu(k,958) * b(k,92) - b(k,70) = b(k,70) - lu(k,957) * b(k,92) - b(k,69) = b(k,69) - lu(k,956) * b(k,92) - b(k,67) = b(k,67) - lu(k,955) * b(k,92) - b(k,65) = b(k,65) - lu(k,954) * b(k,92) - b(k,63) = b(k,63) - lu(k,953) * b(k,92) - b(k,43) = b(k,43) - lu(k,952) * b(k,92) - b(k,41) = b(k,41) - lu(k,951) * b(k,92) - b(k,40) = b(k,40) - lu(k,950) * b(k,92) - 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,91) = b(k,91) * lu(k,928) - b(k,90) = b(k,90) - lu(k,927) * b(k,91) - b(k,89) = b(k,89) - lu(k,926) * b(k,91) - b(k,88) = b(k,88) - lu(k,925) * b(k,91) - b(k,87) = b(k,87) - lu(k,924) * b(k,91) - b(k,86) = b(k,86) - lu(k,923) * b(k,91) - b(k,85) = b(k,85) - lu(k,922) * b(k,91) - b(k,84) = b(k,84) - lu(k,921) * b(k,91) - b(k,83) = b(k,83) - lu(k,920) * b(k,91) - b(k,82) = b(k,82) - lu(k,919) * b(k,91) - b(k,81) = b(k,81) - lu(k,918) * b(k,91) - b(k,80) = b(k,80) - lu(k,917) * b(k,91) - b(k,74) = b(k,74) - lu(k,916) * b(k,91) - b(k,72) = b(k,72) - lu(k,915) * b(k,91) - b(k,68) = b(k,68) - lu(k,914) * b(k,91) - b(k,66) = b(k,66) - lu(k,913) * b(k,91) - b(k,59) = b(k,59) - lu(k,912) * b(k,91) - b(k,58) = b(k,58) - lu(k,911) * b(k,91) - b(k,49) = b(k,49) - lu(k,910) * b(k,91) - b(k,28) = b(k,28) - lu(k,909) * b(k,91) - b(k,90) = b(k,90) * lu(k,886) - b(k,89) = b(k,89) - lu(k,885) * b(k,90) - b(k,88) = b(k,88) - lu(k,884) * b(k,90) - b(k,87) = b(k,87) - lu(k,883) * b(k,90) - b(k,86) = b(k,86) - lu(k,882) * b(k,90) - b(k,85) = b(k,85) - lu(k,881) * b(k,90) - b(k,84) = b(k,84) - lu(k,880) * b(k,90) - b(k,83) = b(k,83) - lu(k,879) * b(k,90) - b(k,82) = b(k,82) - lu(k,878) * b(k,90) - b(k,81) = b(k,81) - lu(k,877) * b(k,90) - b(k,80) = b(k,80) - lu(k,876) * b(k,90) - b(k,75) = b(k,75) - lu(k,875) * b(k,90) - b(k,74) = b(k,74) - lu(k,874) * b(k,90) - b(k,64) = b(k,64) - lu(k,873) * b(k,90) - b(k,61) = b(k,61) - lu(k,872) * b(k,90) - b(k,60) = b(k,60) - lu(k,871) * b(k,90) - b(k,57) = b(k,57) - lu(k,870) * b(k,90) - b(k,46) = b(k,46) - lu(k,869) * b(k,90) - b(k,44) = b(k,44) - lu(k,868) * b(k,90) - b(k,24) = b(k,24) - lu(k,867) * b(k,90) - b(k,89) = b(k,89) * lu(k,844) - b(k,87) = b(k,87) - lu(k,843) * b(k,89) - b(k,86) = b(k,86) - lu(k,842) * b(k,89) - b(k,82) = b(k,82) - lu(k,841) * b(k,89) - b(k,66) = b(k,66) - lu(k,840) * b(k,89) - b(k,63) = b(k,63) - lu(k,839) * b(k,89) - b(k,53) = b(k,53) - lu(k,838) * b(k,89) - b(k,52) = b(k,52) - lu(k,837) * b(k,89) - b(k,51) = b(k,51) - lu(k,836) * b(k,89) - b(k,50) = b(k,50) - lu(k,835) * b(k,89) - b(k,48) = b(k,48) - lu(k,834) * b(k,89) - b(k,47) = b(k,47) - lu(k,833) * b(k,89) - b(k,43) = b(k,43) - lu(k,832) * b(k,89) - b(k,41) = b(k,41) - lu(k,831) * b(k,89) - b(k,40) = b(k,40) - lu(k,830) * b(k,89) - b(k,37) = b(k,37) - lu(k,829) * b(k,89) - b(k,36) = b(k,36) - lu(k,828) * b(k,89) - b(k,88) = b(k,88) * lu(k,803) - b(k,87) = b(k,87) - lu(k,802) * b(k,88) - b(k,85) = b(k,85) - lu(k,801) * b(k,88) - b(k,84) = b(k,84) - lu(k,800) * b(k,88) - b(k,79) = b(k,79) - lu(k,799) * b(k,88) - b(k,78) = b(k,78) - lu(k,798) * b(k,88) - b(k,72) = b(k,72) - lu(k,797) * b(k,88) - b(k,61) = b(k,61) - lu(k,796) * b(k,88) - b(k,87) = b(k,87) * lu(k,775) - b(k,86) = b(k,86) - lu(k,774) * b(k,87) - b(k,82) = b(k,82) - lu(k,773) * b(k,87) - b(k,81) = b(k,81) - lu(k,772) * b(k,87) - b(k,80) = b(k,80) - lu(k,771) * b(k,87) - b(k,75) = b(k,75) - lu(k,770) * b(k,87) - b(k,74) = b(k,74) - lu(k,769) * b(k,87) - b(k,68) = b(k,68) - lu(k,768) * b(k,87) - b(k,64) = b(k,64) - lu(k,767) * b(k,87) - b(k,63) = b(k,63) - lu(k,766) * b(k,87) - b(k,60) = b(k,60) - lu(k,765) * b(k,87) - b(k,59) = b(k,59) - lu(k,764) * b(k,87) - b(k,57) = b(k,57) - lu(k,763) * b(k,87) - b(k,56) = b(k,56) - lu(k,762) * b(k,87) - b(k,54) = b(k,54) - lu(k,761) * b(k,87) - b(k,51) = b(k,51) - lu(k,760) * b(k,87) - b(k,50) = b(k,50) - lu(k,759) * b(k,87) - b(k,49) = b(k,49) - lu(k,758) * b(k,87) - b(k,46) = b(k,46) - lu(k,757) * b(k,87) - b(k,44) = b(k,44) - lu(k,756) * b(k,87) - b(k,39) = b(k,39) - lu(k,755) * b(k,87) - b(k,35) = b(k,35) - lu(k,754) * b(k,87) - b(k,34) = b(k,34) - lu(k,753) * b(k,87) - b(k,32) = b(k,32) - lu(k,752) * b(k,87) - b(k,29) = b(k,29) - lu(k,751) * b(k,87) - b(k,25) = b(k,25) - lu(k,750) * b(k,87) - b(k,23) = b(k,23) - lu(k,749) * b(k,87) - b(k,86) = b(k,86) * lu(k,728) - b(k,82) = b(k,82) - lu(k,727) * b(k,86) - b(k,81) = b(k,81) - lu(k,726) * b(k,86) - b(k,80) = b(k,80) - lu(k,725) * b(k,86) - b(k,75) = b(k,75) - lu(k,724) * b(k,86) - b(k,74) = b(k,74) - lu(k,723) * b(k,86) - b(k,64) = b(k,64) - lu(k,722) * b(k,86) - b(k,57) = b(k,57) - lu(k,721) * b(k,86) - b(k,56) = b(k,56) - lu(k,720) * b(k,86) - b(k,55) = b(k,55) - lu(k,719) * b(k,86) - b(k,51) = b(k,51) - lu(k,718) * b(k,86) - b(k,46) = b(k,46) - lu(k,717) * b(k,86) - b(k,39) = b(k,39) - lu(k,716) * b(k,86) - b(k,35) = b(k,35) - lu(k,715) * b(k,86) - b(k,85) = b(k,85) * lu(k,694) - b(k,84) = b(k,84) - lu(k,693) * b(k,85) - b(k,79) = b(k,79) - lu(k,692) * b(k,85) - b(k,76) = b(k,76) - lu(k,691) * b(k,85) - b(k,73) = b(k,73) - lu(k,690) * b(k,85) - b(k,84) = b(k,84) * lu(k,671) - b(k,70) = b(k,70) - lu(k,670) * b(k,84) - b(k,69) = b(k,69) - lu(k,669) * b(k,84) - b(k,83) = b(k,83) * lu(k,641) - b(k,72) = b(k,72) - lu(k,640) * b(k,83) - b(k,61) = b(k,61) - lu(k,639) * b(k,83) - b(k,82) = b(k,82) * lu(k,618) - b(k,81) = b(k,81) - lu(k,617) * b(k,82) - b(k,80) = b(k,80) - lu(k,616) * b(k,82) - b(k,75) = b(k,75) - lu(k,615) * b(k,82) - b(k,74) = b(k,74) - lu(k,614) * b(k,82) - b(k,66) = b(k,66) - lu(k,613) * b(k,82) - b(k,64) = b(k,64) - lu(k,612) * b(k,82) - b(k,58) = b(k,58) - lu(k,611) * b(k,82) - b(k,56) = b(k,56) - lu(k,610) * b(k,82) - b(k,54) = b(k,54) - lu(k,609) * b(k,82) - b(k,28) = b(k,28) - lu(k,608) * b(k,82) - b(k,25) = b(k,25) - lu(k,607) * b(k,82) - b(k,23) = b(k,23) - lu(k,606) * b(k,82) - b(k,81) = b(k,81) * lu(k,587) - b(k,80) = b(k,80) - lu(k,586) * b(k,81) - b(k,75) = b(k,75) - lu(k,585) * b(k,81) - b(k,74) = b(k,74) - lu(k,584) * b(k,81) - b(k,56) = b(k,56) - lu(k,583) * b(k,81) - b(k,44) = b(k,44) - lu(k,582) * b(k,81) - b(k,80) = b(k,80) * lu(k,565) - b(k,74) = b(k,74) - lu(k,564) * b(k,80) - b(k,68) = b(k,68) - lu(k,563) * b(k,80) - b(k,59) = b(k,59) - lu(k,562) * b(k,80) - b(k,55) = b(k,55) - lu(k,561) * b(k,80) - b(k,45) = b(k,45) - lu(k,560) * b(k,80) - b(k,33) = b(k,33) - lu(k,559) * b(k,80) - b(k,27) = b(k,27) - lu(k,558) * b(k,80) - b(k,79) = b(k,79) * lu(k,541) - b(k,77) = b(k,77) - lu(k,540) * b(k,79) - b(k,76) = b(k,76) - lu(k,539) * b(k,79) - b(k,62) = b(k,62) - lu(k,538) * b(k,79) - b(k,78) = b(k,78) * lu(k,520) - b(k,71) = b(k,71) - lu(k,519) * b(k,78) - b(k,67) = b(k,67) - lu(k,518) * b(k,78) - b(k,77) = b(k,77) * lu(k,500) - b(k,76) = b(k,76) - lu(k,499) * b(k,77) - b(k,62) = b(k,62) - lu(k,498) * b(k,77) - b(k,76) = b(k,76) * lu(k,484) - b(k,75) = b(k,75) * lu(k,465) - b(k,64) = b(k,64) - lu(k,464) * b(k,75) - b(k,54) = b(k,54) - lu(k,463) * b(k,75) - b(k,26) = b(k,26) - lu(k,462) * b(k,75) - b(k,74) = b(k,74) * lu(k,451) - b(k,56) = b(k,56) - lu(k,450) * b(k,74) - b(k,44) = b(k,44) - lu(k,449) * b(k,74) - b(k,73) = b(k,73) * lu(k,433) - b(k,72) = b(k,72) * lu(k,419) - b(k,71) = b(k,71) * lu(k,405) - b(k,70) = b(k,70) * lu(k,390) - b(k,69) = b(k,69) - lu(k,389) * b(k,70) - b(k,69) = b(k,69) * lu(k,374) - b(k,68) = b(k,68) * lu(k,360) - b(k,59) = b(k,59) - lu(k,359) * b(k,68) - b(k,49) = b(k,49) - lu(k,358) * b(k,68) - b(k,33) = b(k,33) - lu(k,357) * b(k,68) - b(k,67) = b(k,67) * lu(k,343) - b(k,66) = b(k,66) * lu(k,331) - b(k,58) = b(k,58) - lu(k,330) * b(k,66) - b(k,52) = b(k,52) - lu(k,329) * b(k,66) - b(k,65) = b(k,65) * lu(k,316) - b(k,64) = b(k,64) * lu(k,305) - b(k,35) = b(k,35) - lu(k,304) * b(k,64) - b(k,63) = b(k,63) * lu(k,293) - b(k,53) = b(k,53) - lu(k,292) * b(k,63) - b(k,42) = b(k,42) - lu(k,291) * b(k,63) - b(k,62) = b(k,62) * lu(k,279) - b(k,31) = b(k,31) - lu(k,278) * b(k,62) - b(k,30) = b(k,30) - lu(k,277) * b(k,62) - b(k,61) = b(k,61) * lu(k,269) - b(k,60) = b(k,60) * lu(k,259) - b(k,57) = b(k,57) - lu(k,258) * b(k,60) - b(k,24) = b(k,24) - lu(k,257) * b(k,60) - b(k,59) = b(k,59) * lu(k,251) - b(k,29) = b(k,29) - lu(k,250) * b(k,59) - b(k,58) = b(k,58) * lu(k,242) - b(k,57) = b(k,57) * lu(k,235) - b(k,24) = b(k,24) - lu(k,234) * b(k,57) - b(k,56) = b(k,56) * lu(k,226) - b(k,55) = b(k,55) * lu(k,218) - b(k,27) = b(k,27) - lu(k,217) * b(k,55) - b(k,54) = b(k,54) * lu(k,209) - b(k,26) = b(k,26) - lu(k,208) * b(k,54) - b(k,53) = b(k,53) * lu(k,199) - b(k,44) = b(k,44) - lu(k,198) * b(k,53) - 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,52) = b(k,52) * lu(k,190) - b(k,51) = b(k,51) - lu(k,189) * b(k,52) - b(k,47) = b(k,47) - lu(k,188) * b(k,52) - b(k,36) = b(k,36) - lu(k,187) * b(k,52) - b(k,51) = b(k,51) * lu(k,182) - b(k,47) = b(k,47) - lu(k,181) * b(k,51) - b(k,50) = b(k,50) * lu(k,176) - b(k,49) = b(k,49) * lu(k,169) - b(k,48) = b(k,48) * lu(k,159) - b(k,43) = b(k,43) - lu(k,158) * b(k,48) - b(k,47) = b(k,47) * lu(k,152) - b(k,46) = b(k,46) * lu(k,145) - b(k,45) = b(k,45) * lu(k,137) - b(k,44) = b(k,44) * lu(k,133) - 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 68719c7083..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,3027 +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,558) = rxt(k,491)*y(k,26) - mat(k,1081) = rxt(k,491)*y(k,4) - mat(k,1286) = (rxt(k,570)+rxt(k,575))*y(k,51) - mat(k,217) = (rxt(k,570)+rxt(k,575))*y(k,47) - mat(k,565) = -(4._r8*rxt(k,488)*y(k,4) + (rxt(k,489) + rxt(k,490) + rxt(k,491) & - ) * y(k,26) + rxt(k,492)*y(k,97) + rxt(k,493)*y(k,60) + rxt(k,494) & - *y(k,61) + rxt(k,496)*y(k,67) + rxt(k,497)*y(k,130) + rxt(k,545) & - *y(k,75)) - mat(k,1090) = -(rxt(k,489) + rxt(k,490) + rxt(k,491)) * y(k,4) - mat(k,725) = -rxt(k,492)*y(k,4) - mat(k,1544) = -rxt(k,493)*y(k,4) - mat(k,1461) = -rxt(k,494)*y(k,4) - mat(k,1600) = -rxt(k,496)*y(k,4) - mat(k,771) = -rxt(k,497)*y(k,4) - mat(k,362) = -rxt(k,545)*y(k,4) - mat(k,140) = rxt(k,495)*y(k,67) - mat(k,228) = rxt(k,505)*y(k,121) - mat(k,220) = rxt(k,500)*y(k,67) - mat(k,1600) = mat(k,1600) + rxt(k,495)*y(k,5) + rxt(k,500)*y(k,51) - mat(k,917) = rxt(k,487)*y(k,84) - mat(k,452) = rxt(k,487)*y(k,69) - mat(k,616) = rxt(k,505)*y(k,43) - mat(k,137) = -(rxt(k,495)*y(k,67)) - mat(k,1582) = -rxt(k,495)*y(k,5) - mat(k,560) = rxt(k,494)*y(k,61) - mat(k,1448) = rxt(k,494)*y(k,4) - mat(k,587) = -(rxt(k,449)*y(k,85) + rxt(k,485)*y(k,84) + rxt(k,529)*y(k,62) & - + rxt(k,530)*y(k,67) + rxt(k,531)*y(k,130)) - mat(k,877) = -rxt(k,449)*y(k,16) - mat(k,453) = -rxt(k,485)*y(k,16) - mat(k,1174) = -rxt(k,529)*y(k,16) - mat(k,1601) = -rxt(k,530)*y(k,16) - mat(k,772) = -rxt(k,531)*y(k,16) - mat(k,306) = rxt(k,456)*y(k,26) + rxt(k,533)*y(k,60) - mat(k,79) = .300_r8*rxt(k,534)*y(k,130) - mat(k,1091) = rxt(k,456)*y(k,20) - mat(k,1545) = rxt(k,533)*y(k,20) - mat(k,772) = mat(k,772) + .300_r8*rxt(k,534)*y(k,21) - mat(k,305) = -(rxt(k,456)*y(k,26) + rxt(k,532)*y(k,97) + rxt(k,533)*y(k,60)) - mat(k,1087) = -rxt(k,456)*y(k,20) - mat(k,722) = -rxt(k,532)*y(k,20) - mat(k,1538) = -rxt(k,533)*y(k,20) - mat(k,78) = .700_r8*rxt(k,534)*y(k,130) - mat(k,767) = .700_r8*rxt(k,534)*y(k,21) - mat(k,77) = -(rxt(k,534)*y(k,130)) - mat(k,754) = -rxt(k,534)*y(k,21) - mat(k,304) = rxt(k,532)*y(k,97) - mat(k,715) = rxt(k,532)*y(k,20) - mat(k,1080) = 2.000_r8*rxt(k,458)*y(k,26) - mat(k,257) = (rxt(k,568)+rxt(k,573)+rxt(k,578))*y(k,47) + rxt(k,462)*y(k,85) - mat(k,1285) = (rxt(k,568)+rxt(k,573)+rxt(k,578))*y(k,27) + (rxt(k,563) & - +rxt(k,569)+rxt(k,574))*y(k,52) - mat(k,234) = (rxt(k,563)+rxt(k,569)+rxt(k,574))*y(k,47) - mat(k,867) = rxt(k,462)*y(k,27) - mat(k,1079) = 2.000_r8*rxt(k,483)*y(k,26) - mat(k,1105) = -(rxt(k,115)*y(k,90) + rxt(k,127)*y(k,93) + rxt(k,285)*y(k,107) & - + rxt(k,314)*y(k,124) + rxt(k,341)*y(k,131) + rxt(k,350) & - *y(k,132) + rxt(k,456)*y(k,20) + (4._r8*rxt(k,457) & - + 4._r8*rxt(k,458) + 4._r8*rxt(k,459) + 4._r8*rxt(k,483) & - ) * y(k,26) + rxt(k,460)*y(k,97) + rxt(k,461)*y(k,60) + rxt(k,463) & - *y(k,61) + rxt(k,466)*y(k,67) + (rxt(k,467) + rxt(k,468) & - ) * y(k,130) + (rxt(k,489) + rxt(k,490) + rxt(k,491)) * y(k,4) & - + rxt(k,546)*y(k,75)) - mat(k,810) = -rxt(k,115)*y(k,26) - mat(k,653) = -rxt(k,127)*y(k,26) - mat(k,1644) = -rxt(k,285)*y(k,26) - mat(k,1385) = -rxt(k,314)*y(k,26) - mat(k,1676) = -rxt(k,341)*y(k,26) - mat(k,1711) = -rxt(k,350)*y(k,26) - mat(k,310) = -rxt(k,456)*y(k,26) - mat(k,733) = -rxt(k,460)*y(k,26) - mat(k,1558) = -rxt(k,461)*y(k,26) - mat(k,1475) = -rxt(k,463)*y(k,26) - mat(k,1615) = -rxt(k,466)*y(k,26) - mat(k,780) = -(rxt(k,467) + rxt(k,468)) * y(k,26) - mat(k,572) = -(rxt(k,489) + rxt(k,490) + rxt(k,491)) * y(k,26) - mat(k,367) = -rxt(k,546)*y(k,26) - mat(k,262) = rxt(k,464)*y(k,67) - mat(k,1311) = rxt(k,482)*y(k,121) - mat(k,238) = rxt(k,472)*y(k,67) + rxt(k,471)*y(k,85) + rxt(k,473)*y(k,130) - mat(k,1615) = mat(k,1615) + rxt(k,464)*y(k,27) + rxt(k,472)*y(k,52) - mat(k,932) = rxt(k,455)*y(k,85) - mat(k,67) = rxt(k,551)*y(k,75) - mat(k,367) = mat(k,367) + rxt(k,551)*y(k,70) - mat(k,891) = rxt(k,471)*y(k,52) + rxt(k,455)*y(k,69) + rxt(k,454)*y(k,97) - mat(k,733) = mat(k,733) + rxt(k,454)*y(k,85) - mat(k,624) = rxt(k,482)*y(k,47) - mat(k,780) = mat(k,780) + rxt(k,473)*y(k,52) - mat(k,259) = -(rxt(k,462)*y(k,85) + rxt(k,464)*y(k,67) + rxt(k,465)*y(k,130) & - + (rxt(k,568) + rxt(k,573) + rxt(k,578)) * y(k,47)) - mat(k,871) = -rxt(k,462)*y(k,27) - mat(k,1592) = -rxt(k,464)*y(k,27) - mat(k,765) = -rxt(k,465)*y(k,27) - mat(k,1290) = -(rxt(k,568) + rxt(k,573) + rxt(k,578)) * y(k,27) - mat(k,1085) = rxt(k,463)*y(k,61) - mat(k,1451) = rxt(k,463)*y(k,26) - mat(k,133) = -((rxt(k,536) + rxt(k,540)) * y(k,130)) - mat(k,756) = -(rxt(k,536) + rxt(k,540)) * y(k,29) - mat(k,582) = rxt(k,529)*y(k,62) + rxt(k,530)*y(k,67) + rxt(k,485)*y(k,84) & - + rxt(k,449)*y(k,85) + rxt(k,531)*y(k,130) - mat(k,1165) = rxt(k,529)*y(k,16) - mat(k,1581) = rxt(k,530)*y(k,16) + rxt(k,541)*y(k,71) - mat(k,70) = rxt(k,541)*y(k,67) + rxt(k,542)*y(k,130) - mat(k,449) = rxt(k,485)*y(k,16) - mat(k,868) = rxt(k,449)*y(k,16) - mat(k,756) = mat(k,756) + rxt(k,531)*y(k,16) + rxt(k,542)*y(k,71) - mat(k,27) = -(rxt(k,510)*y(k,121)) - mat(k,606) = -rxt(k,510)*y(k,31) - mat(k,32) = -(rxt(k,511)*y(k,121)) - mat(k,607) = -rxt(k,511)*y(k,32) - mat(k,58) = -(rxt(k,555)*y(k,62) + (rxt(k,556) + rxt(k,557)) * y(k,130)) - mat(k,1164) = -rxt(k,555)*y(k,33) - mat(k,752) = -(rxt(k,556) + rxt(k,557)) * y(k,33) - mat(k,209) = -(rxt(k,507)*y(k,39) + rxt(k,508)*y(k,134) + rxt(k,509)*y(k,49)) - mat(k,463) = -rxt(k,507)*y(k,37) - mat(k,1784) = -rxt(k,508)*y(k,37) - mat(k,1331) = -rxt(k,509)*y(k,37) - mat(k,28) = 2.000_r8*rxt(k,510)*y(k,121) - mat(k,33) = rxt(k,511)*y(k,121) - mat(k,609) = 2.000_r8*rxt(k,510)*y(k,31) + rxt(k,511)*y(k,32) - mat(k,1223) = -(rxt(k,104)*y(k,86) + rxt(k,116)*y(k,90) + rxt(k,128)*y(k,93) & - + rxt(k,286)*y(k,107) + rxt(k,308)*y(k,118) + rxt(k,316) & - *y(k,124) + rxt(k,330)*y(k,127) + rxt(k,343)*y(k,131) + (rxt(k,407) & - + rxt(k,408) + rxt(k,409)) * y(k,97) + rxt(k,410)*y(k,68) & - + rxt(k,413)*y(k,69)) - mat(k,679) = -rxt(k,104)*y(k,38) - mat(k,813) = -rxt(k,116)*y(k,38) - mat(k,655) = -rxt(k,128)*y(k,38) - mat(k,1647) = -rxt(k,286)*y(k,38) - mat(k,1149) = -rxt(k,308)*y(k,38) - mat(k,1388) = -rxt(k,316)*y(k,38) - mat(k,424) = -rxt(k,330)*y(k,38) - mat(k,1679) = -rxt(k,343)*y(k,38) - mat(k,736) = -(rxt(k,407) + rxt(k,408) + rxt(k,409)) * y(k,38) - mat(k,1270) = -rxt(k,410)*y(k,38) - mat(k,935) = -rxt(k,413)*y(k,38) - mat(k,596) = rxt(k,531)*y(k,130) - mat(k,136) = rxt(k,540)*y(k,130) - mat(k,214) = rxt(k,507)*y(k,39) - mat(k,474) = rxt(k,507)*y(k,37) + rxt(k,405)*y(k,67) + rxt(k,451)*y(k,85) & - + rxt(k,388)*y(k,121) + rxt(k,414)*y(k,130) + rxt(k,353) & - *y(k,132) - mat(k,231) = rxt(k,505)*y(k,121) - mat(k,1314) = rxt(k,482)*y(k,121) - mat(k,298) = rxt(k,437)*y(k,130) - mat(k,1618) = rxt(k,405)*y(k,39) + rxt(k,417)*y(k,130) - mat(k,75) = rxt(k,542)*y(k,130) - mat(k,173) = rxt(k,547)*y(k,130) - mat(k,368) = rxt(k,552)*y(k,130) - mat(k,894) = rxt(k,451)*y(k,39) - mat(k,679) = mat(k,679) + rxt(k,194)*y(k,99) + rxt(k,146)*y(k,101) & - + rxt(k,176)*y(k,103) - mat(k,397) = rxt(k,198)*y(k,99) + rxt(k,163)*y(k,101) + rxt(k,181)*y(k,103) - mat(k,381) = rxt(k,186)*y(k,99) + rxt(k,180)*y(k,101) + rxt(k,168)*y(k,103) - mat(k,813) = mat(k,813) + rxt(k,185)*y(k,99) + (rxt(k,169)+rxt(k,257)) & - *y(k,101) + (rxt(k,167)+rxt(k,264))*y(k,103) - mat(k,349) = rxt(k,193)*y(k,99) + (rxt(k,246)+rxt(k,270))*y(k,101) + ( & - + rxt(k,175)+rxt(k,258))*y(k,103) - mat(k,528) = rxt(k,195)*y(k,99) + (rxt(k,157)+rxt(k,259))*y(k,101) + ( & - + rxt(k,177)+rxt(k,260))*y(k,103) - mat(k,655) = mat(k,655) + rxt(k,190)*y(k,99) + rxt(k,224)*y(k,101) & - + rxt(k,173)*y(k,103) - mat(k,853) = rxt(k,137)*y(k,95) + rxt(k,381)*y(k,98) + rxt(k,382)*y(k,99) & - + rxt(k,140)*y(k,101) + rxt(k,143)*y(k,103) + rxt(k,380) & - *y(k,104) - mat(k,87) = rxt(k,137)*y(k,94) - mat(k,322) = rxt(k,188)*y(k,99) + rxt(k,202)*y(k,101) + rxt(k,171)*y(k,103) - mat(k,155) = rxt(k,381)*y(k,94) - mat(k,1756) = rxt(k,194)*y(k,86) + rxt(k,198)*y(k,87) + rxt(k,186)*y(k,88) & - + rxt(k,185)*y(k,90) + rxt(k,193)*y(k,91) + rxt(k,195)*y(k,92) & - + rxt(k,190)*y(k,93) + rxt(k,382)*y(k,94) + rxt(k,188)*y(k,96) & - + rxt(k,200)*y(k,107) + rxt(k,196)*y(k,108) + rxt(k,199) & - *y(k,110) + rxt(k,192)*y(k,111) + rxt(k,197)*y(k,112) & - + rxt(k,189)*y(k,124) - mat(k,1520) = rxt(k,146)*y(k,86) + rxt(k,163)*y(k,87) + rxt(k,180)*y(k,88) + ( & - + rxt(k,169)+rxt(k,257))*y(k,90) + (rxt(k,246)+rxt(k,270)) & - *y(k,91) + (rxt(k,157)+rxt(k,259))*y(k,92) + rxt(k,224)*y(k,93) & - + rxt(k,140)*y(k,94) + rxt(k,202)*y(k,96) + rxt(k,165)*y(k,107) & - + rxt(k,161)*y(k,108) + rxt(k,164)*y(k,110) + (rxt(k,235) & - +rxt(k,261))*y(k,111) + rxt(k,162)*y(k,112) + rxt(k,213) & - *y(k,124) - mat(k,1064) = rxt(k,176)*y(k,86) + rxt(k,181)*y(k,87) + rxt(k,168)*y(k,88) + ( & - + rxt(k,167)+rxt(k,264))*y(k,90) + (rxt(k,175)+rxt(k,258)) & - *y(k,91) + (rxt(k,177)+rxt(k,260))*y(k,92) + rxt(k,173)*y(k,93) & - + rxt(k,143)*y(k,94) + rxt(k,171)*y(k,96) + rxt(k,183)*y(k,107) & - + rxt(k,178)*y(k,108) + rxt(k,182)*y(k,110) + (rxt(k,174) & - +rxt(k,262))*y(k,111) + rxt(k,179)*y(k,112) + rxt(k,172) & - *y(k,124) - mat(k,184) = rxt(k,380)*y(k,94) - mat(k,1647) = mat(k,1647) + rxt(k,200)*y(k,99) + rxt(k,165)*y(k,101) & - + rxt(k,183)*y(k,103) - mat(k,410) = rxt(k,196)*y(k,99) + rxt(k,161)*y(k,101) + rxt(k,178)*y(k,103) - mat(k,508) = rxt(k,199)*y(k,99) + rxt(k,164)*y(k,101) + rxt(k,182)*y(k,103) - mat(k,548) = rxt(k,192)*y(k,99) + (rxt(k,235)+rxt(k,261))*y(k,101) + ( & - + rxt(k,174)+rxt(k,262))*y(k,103) - mat(k,440) = rxt(k,197)*y(k,99) + rxt(k,162)*y(k,101) + rxt(k,179)*y(k,103) - mat(k,626) = rxt(k,388)*y(k,39) + rxt(k,505)*y(k,43) + rxt(k,482)*y(k,47) - mat(k,1388) = mat(k,1388) + rxt(k,189)*y(k,99) + rxt(k,213)*y(k,101) & - + rxt(k,172)*y(k,103) - mat(k,783) = rxt(k,531)*y(k,16) + rxt(k,540)*y(k,29) + rxt(k,414)*y(k,39) & - + rxt(k,437)*y(k,54) + rxt(k,417)*y(k,67) + rxt(k,542)*y(k,71) & - + rxt(k,547)*y(k,74) + rxt(k,552)*y(k,75) - mat(k,1714) = rxt(k,353)*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,465) = -((rxt(k,352) + rxt(k,353)) * y(k,132) + rxt(k,388)*y(k,121) & - + rxt(k,405)*y(k,67) + rxt(k,414)*y(k,130) + rxt(k,451)*y(k,85) & - + rxt(k,507)*y(k,37)) - mat(k,1697) = -(rxt(k,352) + rxt(k,353)) * y(k,39) - mat(k,615) = -rxt(k,388)*y(k,39) - mat(k,1599) = -rxt(k,405)*y(k,39) - mat(k,770) = -rxt(k,414)*y(k,39) - mat(k,875) = -rxt(k,451)*y(k,39) - mat(k,211) = -rxt(k,507)*y(k,39) - mat(k,1205) = rxt(k,407)*y(k,97) - mat(k,724) = rxt(k,407)*y(k,38) - mat(k,145) = -(rxt(k,406)*y(k,67) + rxt(k,415)*y(k,130) + rxt(k,452)*y(k,85)) - mat(k,1583) = -rxt(k,406)*y(k,41) - mat(k,757) = -rxt(k,415)*y(k,41) - mat(k,869) = -rxt(k,452)*y(k,41) - mat(k,717) = 2.000_r8*rxt(k,421)*y(k,97) - mat(k,757) = mat(k,757) + 2.000_r8*rxt(k,420)*y(k,130) - mat(k,45) = rxt(k,554)*y(k,134) - mat(k,1771) = rxt(k,554)*y(k,77) - mat(k,226) = -(rxt(k,498)*y(k,67) + rxt(k,499)*y(k,130) + (rxt(k,504) & - + rxt(k,505)) * y(k,121)) - mat(k,1588) = -rxt(k,498)*y(k,43) - mat(k,762) = -rxt(k,499)*y(k,43) - mat(k,610) = -(rxt(k,504) + rxt(k,505)) * y(k,43) - mat(k,583) = rxt(k,485)*y(k,84) - mat(k,450) = rxt(k,485)*y(k,16) + rxt(k,486)*y(k,97) - mat(k,720) = rxt(k,486)*y(k,84) - mat(k,1316) = -(rxt(k,105)*y(k,87) + rxt(k,107)*y(k,86) + rxt(k,129)*y(k,93) & - + (rxt(k,275) + rxt(k,297)) * y(k,109) + rxt(k,288)*y(k,107) & - + rxt(k,317)*y(k,124) + rxt(k,344)*y(k,131) + rxt(k,355) & - *y(k,132) + rxt(k,469)*y(k,67) + rxt(k,470)*y(k,130) + (rxt(k,481) & - + rxt(k,482)) * y(k,121) + (rxt(k,563) + rxt(k,569) + rxt(k,574) & - ) * y(k,52) + (rxt(k,568) + rxt(k,573) + rxt(k,578)) * y(k,27) & - + (rxt(k,570) + rxt(k,575)) * y(k,51)) - mat(k,399) = -rxt(k,105)*y(k,47) - mat(k,681) = -rxt(k,107)*y(k,47) - mat(k,657) = -rxt(k,129)*y(k,47) - mat(k,705) = -(rxt(k,275) + rxt(k,297)) * y(k,47) - mat(k,1649) = -rxt(k,288)*y(k,47) - mat(k,1390) = -rxt(k,317)*y(k,47) - mat(k,1681) = -rxt(k,344)*y(k,47) - mat(k,1716) = -rxt(k,355)*y(k,47) - mat(k,1620) = -rxt(k,469)*y(k,47) - mat(k,785) = -rxt(k,470)*y(k,47) - mat(k,628) = -(rxt(k,481) + rxt(k,482)) * y(k,47) - mat(k,239) = -(rxt(k,563) + rxt(k,569) + rxt(k,574)) * y(k,47) - mat(k,264) = -(rxt(k,568) + rxt(k,573) + rxt(k,578)) * y(k,47) - mat(k,223) = -(rxt(k,570) + rxt(k,575)) * y(k,47) - mat(k,598) = rxt(k,449)*y(k,85) - mat(k,1110) = rxt(k,468)*y(k,130) - mat(k,1225) = rxt(k,104)*y(k,86) - mat(k,476) = rxt(k,451)*y(k,85) - mat(k,149) = rxt(k,452)*y(k,85) - mat(k,1355) = rxt(k,108)*y(k,86) + rxt(k,298)*y(k,112) - mat(k,239) = mat(k,239) + rxt(k,471)*y(k,85) - mat(k,896) = rxt(k,449)*y(k,16) + rxt(k,451)*y(k,39) + rxt(k,452)*y(k,41) & - + rxt(k,471)*y(k,52) + rxt(k,453)*y(k,97) - mat(k,681) = mat(k,681) + rxt(k,104)*y(k,38) + rxt(k,108)*y(k,49) - mat(k,383) = rxt(k,186)*y(k,99) + (rxt(k,180)+2.000_r8*rxt(k,266))*y(k,101) + ( & - + rxt(k,168)+2.000_r8*rxt(k,267))*y(k,103) + rxt(k,239)*y(k,114) & - + rxt(k,221)*y(k,115) + rxt(k,204)*y(k,118) + rxt(k,256) & - *y(k,125) - mat(k,738) = rxt(k,453)*y(k,85) - mat(k,1758) = rxt(k,186)*y(k,88) + rxt(k,197)*y(k,112) - mat(k,1522) = (rxt(k,180)+2.000_r8*rxt(k,266))*y(k,88) + rxt(k,162)*y(k,112) - mat(k,1066) = (rxt(k,168)+2.000_r8*rxt(k,267))*y(k,88) + rxt(k,179)*y(k,112) - mat(k,442) = rxt(k,298)*y(k,49) + rxt(k,197)*y(k,99) + rxt(k,162)*y(k,101) & - + rxt(k,179)*y(k,103) + rxt(k,250)*y(k,114) + rxt(k,232) & - *y(k,115) + rxt(k,215)*y(k,118) + rxt(k,156)*y(k,125) - mat(k,982) = rxt(k,239)*y(k,88) + rxt(k,250)*y(k,112) - mat(k,1024) = rxt(k,221)*y(k,88) + rxt(k,232)*y(k,112) - mat(k,1151) = rxt(k,204)*y(k,88) + rxt(k,215)*y(k,112) - mat(k,1434) = rxt(k,256)*y(k,88) + rxt(k,156)*y(k,112) - mat(k,785) = mat(k,785) + rxt(k,468)*y(k,26) - mat(k,208) = rxt(k,507)*y(k,39) + rxt(k,509)*y(k,49) + rxt(k,508)*y(k,134) - mat(k,462) = rxt(k,507)*y(k,37) - mat(k,1329) = rxt(k,509)*y(k,37) - mat(k,1772) = rxt(k,508)*y(k,37) - mat(k,1356) = -(rxt(k,108)*y(k,86) + rxt(k,123)*y(k,90) + rxt(k,289)*y(k,107) & - + rxt(k,294)*y(k,111) + rxt(k,298)*y(k,112) + rxt(k,299) & - *y(k,109) + rxt(k,318)*y(k,124) + rxt(k,356)*y(k,132) + rxt(k,446) & - *y(k,130) + rxt(k,509)*y(k,37)) - mat(k,682) = -rxt(k,108)*y(k,49) - mat(k,816) = -rxt(k,123)*y(k,49) - mat(k,1650) = -rxt(k,289)*y(k,49) - mat(k,550) = -rxt(k,294)*y(k,49) - mat(k,443) = -rxt(k,298)*y(k,49) - mat(k,706) = -rxt(k,299)*y(k,49) - mat(k,1391) = -rxt(k,318)*y(k,49) - mat(k,1717) = -rxt(k,356)*y(k,49) - mat(k,786) = -rxt(k,446)*y(k,49) - mat(k,215) = -rxt(k,509)*y(k,49) - mat(k,599) = rxt(k,529)*y(k,62) - mat(k,265) = (rxt(k,568)+rxt(k,573)+rxt(k,578))*y(k,47) - mat(k,63) = rxt(k,555)*y(k,62) - mat(k,1317) = (rxt(k,568)+rxt(k,573)+rxt(k,578))*y(k,27) + rxt(k,297) & - *y(k,109) - mat(k,285) = rxt(k,141)*y(k,101) + rxt(k,144)*y(k,103) + rxt(k,292)*y(k,110) & - + rxt(k,296)*y(k,111) - mat(k,1481) = rxt(k,445)*y(k,130) - mat(k,1191) = rxt(k,529)*y(k,16) + rxt(k,555)*y(k,33) - mat(k,1759) = rxt(k,187)*y(k,109) + 2.000_r8*rxt(k,184)*y(k,113) - mat(k,51) = rxt(k,139)*y(k,134) - mat(k,1523) = rxt(k,141)*y(k,56) + (rxt(k,191)+rxt(k,263))*y(k,109) + ( & - + 2.000_r8*rxt(k,145)+2.000_r8*rxt(k,268))*y(k,113) - mat(k,56) = rxt(k,142)*y(k,134) - mat(k,1067) = rxt(k,144)*y(k,56) + (rxt(k,170)+rxt(k,265))*y(k,109) + ( & - + 2.000_r8*rxt(k,166)+2.000_r8*rxt(k,269))*y(k,113) - mat(k,706) = mat(k,706) + rxt(k,297)*y(k,47) + rxt(k,187)*y(k,99) + ( & - + rxt(k,191)+rxt(k,263))*y(k,101) + (rxt(k,170)+rxt(k,265)) & - *y(k,103) - mat(k,510) = rxt(k,292)*y(k,56) - mat(k,550) = mat(k,550) + rxt(k,296)*y(k,56) - mat(k,492) = 2.000_r8*rxt(k,184)*y(k,99) + (2.000_r8*rxt(k,145) & - +2.000_r8*rxt(k,268))*y(k,101) + (2.000_r8*rxt(k,166) & - +2.000_r8*rxt(k,269))*y(k,103) + rxt(k,237)*y(k,114) & - + rxt(k,219)*y(k,115) + rxt(k,201)*y(k,118) + rxt(k,254) & - *y(k,125) - mat(k,983) = rxt(k,237)*y(k,113) - mat(k,1025) = rxt(k,219)*y(k,113) - mat(k,1152) = rxt(k,201)*y(k,113) - mat(k,1435) = rxt(k,254)*y(k,113) - mat(k,786) = mat(k,786) + rxt(k,445)*y(k,61) - mat(k,1817) = rxt(k,139)*y(k,100) + rxt(k,142)*y(k,102) - mat(k,101) = -(rxt(k,422)*y(k,130)) - mat(k,755) = -rxt(k,422)*y(k,50) - mat(k,1447) = rxt(k,443)*y(k,97) - mat(k,716) = rxt(k,443)*y(k,61) - mat(k,218) = -(rxt(k,500)*y(k,67) + (rxt(k,570) + rxt(k,575)) * y(k,47)) - mat(k,1587) = -rxt(k,500)*y(k,51) - mat(k,1288) = -(rxt(k,570) + rxt(k,575)) * y(k,51) - mat(k,561) = rxt(k,492)*y(k,97) - mat(k,719) = rxt(k,492)*y(k,4) - mat(k,235) = -(rxt(k,471)*y(k,85) + rxt(k,472)*y(k,67) + rxt(k,473)*y(k,130) & - + (rxt(k,563) + rxt(k,569) + rxt(k,574)) * y(k,47)) - mat(k,870) = -rxt(k,471)*y(k,52) - mat(k,1589) = -rxt(k,472)*y(k,52) - mat(k,763) = -rxt(k,473)*y(k,52) - mat(k,1289) = -(rxt(k,563) + rxt(k,569) + rxt(k,574)) * y(k,52) - mat(k,1083) = rxt(k,460)*y(k,97) - mat(k,258) = rxt(k,465)*y(k,130) - mat(k,721) = rxt(k,460)*y(k,26) - mat(k,763) = mat(k,763) + rxt(k,465)*y(k,27) - mat(k,176) = -(rxt(k,339)*y(k,130)) - mat(k,759) = -rxt(k,339)*y(k,53) - mat(k,1287) = rxt(k,288)*y(k,107) - mat(k,1330) = rxt(k,289)*y(k,107) - mat(k,1535) = rxt(k,348)*y(k,130) - mat(k,1633) = rxt(k,288)*y(k,47) + rxt(k,289)*y(k,49) - mat(k,90) = rxt(k,304)*y(k,134) - mat(k,759) = mat(k,759) + rxt(k,348)*y(k,60) - mat(k,1781) = rxt(k,304)*y(k,116) - mat(k,293) = -(rxt(k,425)*y(k,60) + (rxt(k,426) + rxt(k,427) + rxt(k,428) & - ) * y(k,61) + rxt(k,429)*y(k,68) + rxt(k,437)*y(k,130) + rxt(k,588) & - *y(k,125)) - mat(k,1537) = -rxt(k,425)*y(k,54) - mat(k,1453) = -(rxt(k,426) + rxt(k,427) + rxt(k,428)) * y(k,54) - mat(k,1247) = -rxt(k,429)*y(k,54) - mat(k,766) = -rxt(k,437)*y(k,54) - mat(k,1404) = -rxt(k,588)*y(k,54) - mat(k,1594) = rxt(k,423)*y(k,105) + rxt(k,585)*y(k,120) - mat(k,1247) = mat(k,1247) + rxt(k,586)*y(k,120) - mat(k,839) = 1.100_r8*rxt(k,581)*y(k,106) + .200_r8*rxt(k,579)*y(k,114) - mat(k,129) = rxt(k,423)*y(k,67) - mat(k,161) = 1.100_r8*rxt(k,581)*y(k,94) - mat(k,953) = .200_r8*rxt(k,579)*y(k,94) - mat(k,123) = rxt(k,585)*y(k,67) + rxt(k,586)*y(k,68) - mat(k,279) = -(rxt(k,141)*y(k,101) + rxt(k,144)*y(k,103) + rxt(k,292) & - *y(k,110) + rxt(k,296)*y(k,111)) - mat(k,1494) = -rxt(k,141)*y(k,56) - mat(k,1038) = -rxt(k,144)*y(k,56) - mat(k,498) = -rxt(k,292)*y(k,56) - mat(k,538) = -rxt(k,296)*y(k,56) - mat(k,1452) = rxt(k,444)*y(k,62) - mat(k,1167) = rxt(k,444)*y(k,61) - mat(k,1569) = -((rxt(k,110) + rxt(k,111)) * y(k,89) + (rxt(k,121) + rxt(k,122) & - ) * y(k,92) + rxt(k,135)*y(k,132) + (rxt(k,271) + rxt(k,278) & - ) * y(k,127) + rxt(k,279)*y(k,90) + rxt(k,348)*y(k,130) & - + rxt(k,425)*y(k,54) + rxt(k,434)*y(k,62) + rxt(k,438)*y(k,97) & - + rxt(k,439)*y(k,69) + rxt(k,440)*y(k,67) + rxt(k,461)*y(k,26) & - + rxt(k,493)*y(k,4) + rxt(k,533)*y(k,20) + rxt(k,590)*y(k,125)) - mat(k,274) = -(rxt(k,110) + rxt(k,111)) * y(k,60) - mat(k,533) = -(rxt(k,121) + rxt(k,122)) * y(k,60) - mat(k,1722) = -rxt(k,135)*y(k,60) - mat(k,428) = -(rxt(k,271) + rxt(k,278)) * y(k,60) - mat(k,821) = -rxt(k,279)*y(k,60) - mat(k,790) = -rxt(k,348)*y(k,60) - mat(k,302) = -rxt(k,425)*y(k,60) - mat(k,1196) = -rxt(k,434)*y(k,60) - mat(k,743) = -rxt(k,438)*y(k,60) - mat(k,943) = -rxt(k,439)*y(k,60) - mat(k,1626) = -rxt(k,440)*y(k,60) - mat(k,1116) = -rxt(k,461)*y(k,60) - mat(k,579) = -rxt(k,493)*y(k,60) - mat(k,314) = -rxt(k,533)*y(k,60) - mat(k,1440) = -rxt(k,590)*y(k,60) - mat(k,1231) = rxt(k,286)*y(k,107) + rxt(k,308)*y(k,118) - mat(k,302) = mat(k,302) + 2.000_r8*rxt(k,427)*y(k,61) + rxt(k,429)*y(k,68) & - + rxt(k,437)*y(k,130) - mat(k,1486) = 2.000_r8*rxt(k,427)*y(k,54) + rxt(k,430)*y(k,67) + rxt(k,548) & - *y(k,75) + rxt(k,290)*y(k,107) - mat(k,1626) = mat(k,1626) + rxt(k,430)*y(k,61) - mat(k,1278) = rxt(k,429)*y(k,54) + rxt(k,424)*y(k,105) - mat(k,371) = rxt(k,548)*y(k,61) - mat(k,686) = rxt(k,247)*y(k,114) + rxt(k,229)*y(k,115) + rxt(k,211)*y(k,118) - mat(k,402) = rxt(k,251)*y(k,114) + rxt(k,233)*y(k,115) + rxt(k,216)*y(k,118) - mat(k,386) = rxt(k,239)*y(k,114) + rxt(k,221)*y(k,115) + rxt(k,204)*y(k,118) - mat(k,821) = mat(k,821) + rxt(k,238)*y(k,114) + rxt(k,220)*y(k,115) & - + rxt(k,203)*y(k,118) - mat(k,353) = rxt(k,245)*y(k,114) + rxt(k,228)*y(k,115) + rxt(k,210)*y(k,118) - mat(k,533) = mat(k,533) + rxt(k,248)*y(k,114) + rxt(k,230)*y(k,115) & - + rxt(k,212)*y(k,118) - mat(k,662) = rxt(k,243)*y(k,114) + rxt(k,226)*y(k,115) + rxt(k,208)*y(k,118) - mat(k,861) = rxt(k,302)*y(k,115) + rxt(k,303)*y(k,116) + rxt(k,305)*y(k,117) & - + rxt(k,307)*y(k,118) + rxt(k,383)*y(k,119) - mat(k,326) = rxt(k,241)*y(k,114) + rxt(k,223)*y(k,115) + rxt(k,206)*y(k,118) - mat(k,132) = rxt(k,424)*y(k,68) - mat(k,1655) = rxt(k,286)*y(k,38) + rxt(k,290)*y(k,61) + rxt(k,253)*y(k,114) & - + rxt(k,236)*y(k,115) + rxt(k,218)*y(k,118) - mat(k,415) = rxt(k,249)*y(k,114) + rxt(k,231)*y(k,115) + rxt(k,214)*y(k,118) - mat(k,710) = rxt(k,240)*y(k,114) + rxt(k,222)*y(k,115) + rxt(k,205)*y(k,118) - mat(k,514) = rxt(k,252)*y(k,114) + rxt(k,234)*y(k,115) + rxt(k,217)*y(k,118) - mat(k,554) = rxt(k,244)*y(k,114) + rxt(k,227)*y(k,115) + rxt(k,209)*y(k,118) - mat(k,446) = rxt(k,250)*y(k,114) + rxt(k,232)*y(k,115) + rxt(k,215)*y(k,118) - mat(k,495) = rxt(k,237)*y(k,114) + rxt(k,219)*y(k,115) + rxt(k,201)*y(k,118) - mat(k,988) = rxt(k,247)*y(k,86) + rxt(k,251)*y(k,87) + rxt(k,239)*y(k,88) & - + rxt(k,238)*y(k,90) + rxt(k,245)*y(k,91) + rxt(k,248)*y(k,92) & - + rxt(k,243)*y(k,93) + rxt(k,241)*y(k,96) + rxt(k,253)*y(k,107) & - + rxt(k,249)*y(k,108) + rxt(k,240)*y(k,109) + rxt(k,252) & - *y(k,110) + rxt(k,244)*y(k,111) + rxt(k,250)*y(k,112) & - + rxt(k,237)*y(k,113) + rxt(k,242)*y(k,124) - mat(k,1030) = rxt(k,229)*y(k,86) + rxt(k,233)*y(k,87) + rxt(k,221)*y(k,88) & - + rxt(k,220)*y(k,90) + rxt(k,228)*y(k,91) + rxt(k,230)*y(k,92) & - + rxt(k,226)*y(k,93) + rxt(k,302)*y(k,94) + rxt(k,223)*y(k,96) & - + rxt(k,236)*y(k,107) + rxt(k,231)*y(k,108) + rxt(k,222) & - *y(k,109) + rxt(k,234)*y(k,110) + rxt(k,227)*y(k,111) & - + rxt(k,232)*y(k,112) + rxt(k,219)*y(k,113) + rxt(k,225) & - *y(k,124) - mat(k,92) = rxt(k,303)*y(k,94) - mat(k,119) = rxt(k,305)*y(k,94) - mat(k,1157) = rxt(k,308)*y(k,38) + rxt(k,211)*y(k,86) + rxt(k,216)*y(k,87) & - + rxt(k,204)*y(k,88) + rxt(k,203)*y(k,90) + rxt(k,210)*y(k,91) & - + rxt(k,212)*y(k,92) + rxt(k,208)*y(k,93) + rxt(k,307)*y(k,94) & - + rxt(k,206)*y(k,96) + rxt(k,218)*y(k,107) + rxt(k,214)*y(k,108) & - + rxt(k,205)*y(k,109) + rxt(k,217)*y(k,110) + rxt(k,209) & - *y(k,111) + rxt(k,215)*y(k,112) + rxt(k,201)*y(k,113) & - + rxt(k,207)*y(k,124) - mat(k,113) = rxt(k,383)*y(k,94) - mat(k,1396) = rxt(k,242)*y(k,114) + rxt(k,225)*y(k,115) + rxt(k,207)*y(k,118) - mat(k,790) = mat(k,790) + rxt(k,437)*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,1484) = -(rxt(k,109)*y(k,86) + (rxt(k,119) + rxt(k,120)) * y(k,92) & - + (rxt(k,276) + rxt(k,277)) * y(k,127) + rxt(k,280)*y(k,90) & - + rxt(k,290)*y(k,107) + rxt(k,319)*y(k,124) + rxt(k,345) & - *y(k,131) + rxt(k,358)*y(k,132) + (rxt(k,426) + rxt(k,427) & - + rxt(k,428)) * y(k,54) + (rxt(k,430) + rxt(k,432)) * y(k,67) & - + rxt(k,431)*y(k,69) + rxt(k,443)*y(k,97) + rxt(k,444)*y(k,62) & - + rxt(k,445)*y(k,130) + rxt(k,463)*y(k,26) + rxt(k,494)*y(k,4) & - + rxt(k,548)*y(k,75)) - mat(k,684) = -rxt(k,109)*y(k,61) - mat(k,531) = -(rxt(k,119) + rxt(k,120)) * y(k,61) - mat(k,427) = -(rxt(k,276) + rxt(k,277)) * y(k,61) - mat(k,819) = -rxt(k,280)*y(k,61) - mat(k,1653) = -rxt(k,290)*y(k,61) - mat(k,1394) = -rxt(k,319)*y(k,61) - mat(k,1685) = -rxt(k,345)*y(k,61) - mat(k,1720) = -rxt(k,358)*y(k,61) - mat(k,301) = -(rxt(k,426) + rxt(k,427) + rxt(k,428)) * y(k,61) - mat(k,1624) = -(rxt(k,430) + rxt(k,432)) * y(k,61) - mat(k,941) = -rxt(k,431)*y(k,61) - mat(k,742) = -rxt(k,443)*y(k,61) - mat(k,1194) = -rxt(k,444)*y(k,61) - mat(k,789) = -rxt(k,445)*y(k,61) - mat(k,1114) = -rxt(k,463)*y(k,61) - mat(k,578) = -rxt(k,494)*y(k,61) - mat(k,370) = -rxt(k,548)*y(k,61) - mat(k,578) = mat(k,578) + rxt(k,493)*y(k,60) - mat(k,313) = rxt(k,533)*y(k,60) - mat(k,1114) = mat(k,1114) + rxt(k,461)*y(k,60) - mat(k,106) = rxt(k,422)*y(k,130) - mat(k,178) = rxt(k,339)*y(k,130) - mat(k,1567) = rxt(k,493)*y(k,4) + rxt(k,533)*y(k,20) + rxt(k,461)*y(k,26) & - + 2.000_r8*rxt(k,434)*y(k,62) + rxt(k,440)*y(k,67) + rxt(k,439) & - *y(k,69) + rxt(k,111)*y(k,89) + rxt(k,438)*y(k,97) + rxt(k,135) & - *y(k,132) - mat(k,1194) = mat(k,1194) + 2.000_r8*rxt(k,434)*y(k,60) + rxt(k,435)*y(k,67) & - + rxt(k,433)*y(k,97) + rxt(k,436)*y(k,130) - mat(k,1624) = mat(k,1624) + rxt(k,440)*y(k,60) + rxt(k,435)*y(k,62) - mat(k,941) = mat(k,941) + rxt(k,439)*y(k,60) - mat(k,900) = rxt(k,284)*y(k,107) - mat(k,273) = rxt(k,111)*y(k,60) - mat(k,742) = mat(k,742) + rxt(k,438)*y(k,60) + rxt(k,433)*y(k,62) - mat(k,1762) = rxt(k,200)*y(k,107) + rxt(k,196)*y(k,108) - mat(k,1526) = rxt(k,165)*y(k,107) + rxt(k,161)*y(k,108) - mat(k,1070) = rxt(k,183)*y(k,107) + rxt(k,178)*y(k,108) - mat(k,1653) = mat(k,1653) + rxt(k,284)*y(k,85) + rxt(k,200)*y(k,99) & - + rxt(k,165)*y(k,101) + rxt(k,183)*y(k,103) + rxt(k,253) & - *y(k,114) + rxt(k,236)*y(k,115) + rxt(k,218)*y(k,118) & - + rxt(k,160)*y(k,125) - mat(k,413) = rxt(k,196)*y(k,99) + rxt(k,161)*y(k,101) + rxt(k,178)*y(k,103) & - + rxt(k,249)*y(k,114) + rxt(k,231)*y(k,115) + rxt(k,214) & - *y(k,118) + rxt(k,155)*y(k,125) - mat(k,986) = rxt(k,253)*y(k,107) + rxt(k,249)*y(k,108) - mat(k,1028) = rxt(k,236)*y(k,107) + rxt(k,231)*y(k,108) - mat(k,1155) = rxt(k,218)*y(k,107) + rxt(k,214)*y(k,108) + rxt(k,310)*y(k,130) - mat(k,1438) = rxt(k,160)*y(k,107) + rxt(k,155)*y(k,108) - mat(k,789) = mat(k,789) + rxt(k,422)*y(k,50) + rxt(k,339)*y(k,53) & - + rxt(k,436)*y(k,62) + rxt(k,310)*y(k,118) - mat(k,1720) = mat(k,1720) + rxt(k,135)*y(k,60) - mat(k,1187) = -(rxt(k,433)*y(k,97) + rxt(k,434)*y(k,60) + rxt(k,435)*y(k,67) & - + rxt(k,436)*y(k,130) + rxt(k,444)*y(k,61) + rxt(k,529)*y(k,16) & - + rxt(k,555)*y(k,33)) - mat(k,735) = -rxt(k,433)*y(k,62) - mat(k,1560) = -rxt(k,434)*y(k,62) - mat(k,1617) = -rxt(k,435)*y(k,62) - mat(k,782) = -rxt(k,436)*y(k,62) - mat(k,1477) = -rxt(k,444)*y(k,62) - mat(k,595) = -rxt(k,529)*y(k,62) - mat(k,62) = -rxt(k,555)*y(k,62) - mat(k,141) = rxt(k,495)*y(k,67) - mat(k,1107) = rxt(k,285)*y(k,107) - mat(k,263) = rxt(k,464)*y(k,67) + rxt(k,462)*y(k,85) + rxt(k,465)*y(k,130) - mat(k,213) = rxt(k,509)*y(k,49) - mat(k,1352) = rxt(k,509)*y(k,37) + rxt(k,446)*y(k,130) - mat(k,1477) = mat(k,1477) + rxt(k,432)*y(k,67) + rxt(k,431)*y(k,69) - mat(k,1617) = mat(k,1617) + rxt(k,495)*y(k,5) + rxt(k,464)*y(k,27) & - + rxt(k,432)*y(k,61) - mat(k,934) = rxt(k,431)*y(k,61) - mat(k,893) = rxt(k,462)*y(k,27) - mat(k,735) = mat(k,735) + rxt(k,309)*y(k,118) - mat(k,1755) = rxt(k,199)*y(k,110) + rxt(k,192)*y(k,111) + rxt(k,197)*y(k,112) - mat(k,1519) = rxt(k,164)*y(k,110) + (rxt(k,235)+rxt(k,261))*y(k,111) & - + rxt(k,162)*y(k,112) - mat(k,1063) = rxt(k,182)*y(k,110) + (rxt(k,174)+rxt(k,262))*y(k,111) & - + rxt(k,179)*y(k,112) - mat(k,1646) = rxt(k,285)*y(k,26) - mat(k,702) = rxt(k,240)*y(k,114) + rxt(k,222)*y(k,115) + rxt(k,205)*y(k,118) & - + rxt(k,147)*y(k,125) - mat(k,507) = rxt(k,199)*y(k,99) + rxt(k,164)*y(k,101) + rxt(k,182)*y(k,103) & - + rxt(k,252)*y(k,114) + rxt(k,234)*y(k,115) + rxt(k,217) & - *y(k,118) + rxt(k,159)*y(k,125) - mat(k,547) = rxt(k,192)*y(k,99) + (rxt(k,235)+rxt(k,261))*y(k,101) + ( & - + rxt(k,174)+rxt(k,262))*y(k,103) + rxt(k,244)*y(k,114) & - + rxt(k,227)*y(k,115) + rxt(k,209)*y(k,118) + rxt(k,151) & - *y(k,125) - mat(k,439) = rxt(k,197)*y(k,99) + rxt(k,162)*y(k,101) + rxt(k,179)*y(k,103) & - + rxt(k,250)*y(k,114) + rxt(k,232)*y(k,115) + rxt(k,215) & - *y(k,118) + rxt(k,156)*y(k,125) - mat(k,490) = rxt(k,237)*y(k,114) + rxt(k,219)*y(k,115) + rxt(k,201)*y(k,118) & - + rxt(k,254)*y(k,125) - mat(k,979) = rxt(k,240)*y(k,109) + rxt(k,252)*y(k,110) + rxt(k,244)*y(k,111) & - + rxt(k,250)*y(k,112) + rxt(k,237)*y(k,113) - mat(k,1021) = rxt(k,222)*y(k,109) + rxt(k,234)*y(k,110) + rxt(k,227)*y(k,111) & - + rxt(k,232)*y(k,112) + rxt(k,219)*y(k,113) - mat(k,1148) = rxt(k,309)*y(k,97) + rxt(k,205)*y(k,109) + rxt(k,217)*y(k,110) & - + rxt(k,209)*y(k,111) + rxt(k,215)*y(k,112) + rxt(k,201) & - *y(k,113) - mat(k,1431) = rxt(k,147)*y(k,109) + rxt(k,159)*y(k,110) + rxt(k,151)*y(k,111) & - + rxt(k,156)*y(k,112) + rxt(k,254)*y(k,113) - mat(k,782) = mat(k,782) + rxt(k,465)*y(k,27) + rxt(k,446)*y(k,49) - mat(k,1627) = -(rxt(k,112)*y(k,89) + rxt(k,124)*y(k,90) + rxt(k,130)*y(k,93) & - + rxt(k,300)*y(k,109) + (rxt(k,323) + rxt(k,324)) * y(k,124) & - + (rxt(k,332) + rxt(k,333)) * y(k,127) + rxt(k,335)*y(k,128) & - + rxt(k,337)*y(k,129) + rxt(k,346)*y(k,131) + rxt(k,359) & - *y(k,132) + rxt(k,402)*y(k,69) + 4._r8*rxt(k,403)*y(k,67) & - + rxt(k,404)*y(k,68) + rxt(k,405)*y(k,39) + rxt(k,406)*y(k,41) & - + rxt(k,411)*y(k,97) + rxt(k,417)*y(k,130) + (rxt(k,430) & - + rxt(k,432)) * y(k,61) + rxt(k,435)*y(k,62) + rxt(k,440) & - *y(k,60) + rxt(k,464)*y(k,27) + rxt(k,466)*y(k,26) + rxt(k,469) & - *y(k,47) + rxt(k,472)*y(k,52) + rxt(k,495)*y(k,5) + rxt(k,496) & - *y(k,4) + rxt(k,498)*y(k,43) + rxt(k,500)*y(k,51) + rxt(k,530) & - *y(k,16) + rxt(k,541)*y(k,71) + (rxt(k,583) + rxt(k,584) & - ) * y(k,106) + rxt(k,585)*y(k,120)) - mat(k,275) = -rxt(k,112)*y(k,67) - mat(k,822) = -rxt(k,124)*y(k,67) - mat(k,663) = -rxt(k,130)*y(k,67) - mat(k,711) = -rxt(k,300)*y(k,67) - mat(k,1397) = -(rxt(k,323) + rxt(k,324)) * y(k,67) - mat(k,429) = -(rxt(k,332) + rxt(k,333)) * y(k,67) - mat(k,100) = -rxt(k,335)*y(k,67) - mat(k,339) = -rxt(k,337)*y(k,67) - mat(k,1688) = -rxt(k,346)*y(k,67) - mat(k,1723) = -rxt(k,359)*y(k,67) - mat(k,944) = -rxt(k,402)*y(k,67) - mat(k,1279) = -rxt(k,404)*y(k,67) - mat(k,480) = -rxt(k,405)*y(k,67) - mat(k,150) = -rxt(k,406)*y(k,67) - mat(k,744) = -rxt(k,411)*y(k,67) - mat(k,791) = -rxt(k,417)*y(k,67) - mat(k,1487) = -(rxt(k,430) + rxt(k,432)) * y(k,67) - mat(k,1197) = -rxt(k,435)*y(k,67) - mat(k,1570) = -rxt(k,440)*y(k,67) - mat(k,267) = -rxt(k,464)*y(k,67) - mat(k,1117) = -rxt(k,466)*y(k,67) - mat(k,1323) = -rxt(k,469)*y(k,67) - mat(k,240) = -rxt(k,472)*y(k,67) - mat(k,144) = -rxt(k,495)*y(k,67) - mat(k,580) = -rxt(k,496)*y(k,67) - mat(k,232) = -rxt(k,498)*y(k,67) - mat(k,224) = -rxt(k,500)*y(k,67) - mat(k,602) = -rxt(k,530)*y(k,67) - mat(k,76) = -rxt(k,541)*y(k,67) - mat(k,168) = -(rxt(k,583) + rxt(k,584)) * y(k,67) - mat(k,127) = -rxt(k,585)*y(k,67) - mat(k,1232) = rxt(k,409)*y(k,97) - mat(k,303) = rxt(k,425)*y(k,60) + rxt(k,426)*y(k,61) + rxt(k,429)*y(k,68) & - + rxt(k,588)*y(k,125) - mat(k,1570) = mat(k,1570) + rxt(k,425)*y(k,54) + rxt(k,271)*y(k,127) - mat(k,1487) = mat(k,1487) + rxt(k,426)*y(k,54) + rxt(k,358)*y(k,132) - mat(k,1279) = mat(k,1279) + rxt(k,429)*y(k,54) + rxt(k,543)*y(k,74) & - + rxt(k,549)*y(k,75) + rxt(k,587)*y(k,120) + (rxt(k,391) & - +rxt(k,392))*y(k,121) + rxt(k,593)*y(k,133) - mat(k,944) = mat(k,944) + rxt(k,362)*y(k,132) - mat(k,175) = rxt(k,543)*y(k,68) - mat(k,372) = rxt(k,549)*y(k,68) - mat(k,903) = rxt(k,113)*y(k,90) + rxt(k,349)*y(k,132) - mat(k,822) = mat(k,822) + rxt(k,113)*y(k,85) + rxt(k,185)*y(k,99) + ( & - + rxt(k,169)+rxt(k,257))*y(k,101) + (rxt(k,167)+rxt(k,264)) & - *y(k,103) + rxt(k,238)*y(k,114) + rxt(k,220)*y(k,115) & - + rxt(k,203)*y(k,118) + rxt(k,255)*y(k,125) - mat(k,354) = rxt(k,193)*y(k,99) + (rxt(k,246)+rxt(k,270))*y(k,101) + ( & - + rxt(k,175)+rxt(k,258))*y(k,103) + rxt(k,245)*y(k,114) & - + rxt(k,228)*y(k,115) + rxt(k,210)*y(k,118) + rxt(k,152) & - *y(k,125) - mat(k,534) = rxt(k,195)*y(k,99) + (rxt(k,157)+rxt(k,259))*y(k,101) + ( & - + rxt(k,177)+rxt(k,260))*y(k,103) + rxt(k,248)*y(k,114) & - + rxt(k,230)*y(k,115) + rxt(k,212)*y(k,118) + rxt(k,154) & - *y(k,125) - mat(k,862) = rxt(k,579)*y(k,114) + 1.150_r8*rxt(k,580)*y(k,125) - mat(k,744) = mat(k,744) + rxt(k,409)*y(k,38) - mat(k,1765) = rxt(k,185)*y(k,90) + rxt(k,193)*y(k,91) + rxt(k,195)*y(k,92) - mat(k,1529) = (rxt(k,169)+rxt(k,257))*y(k,90) + (rxt(k,246)+rxt(k,270)) & - *y(k,91) + (rxt(k,157)+rxt(k,259))*y(k,92) - mat(k,1073) = (rxt(k,167)+rxt(k,264))*y(k,90) + (rxt(k,175)+rxt(k,258)) & - *y(k,91) + (rxt(k,177)+rxt(k,260))*y(k,92) - mat(k,989) = rxt(k,238)*y(k,90) + rxt(k,245)*y(k,91) + rxt(k,248)*y(k,92) & - + rxt(k,579)*y(k,94) - mat(k,1031) = rxt(k,220)*y(k,90) + rxt(k,228)*y(k,91) + rxt(k,230)*y(k,92) - mat(k,1158) = rxt(k,203)*y(k,90) + rxt(k,210)*y(k,91) + rxt(k,212)*y(k,92) - mat(k,127) = mat(k,127) + rxt(k,587)*y(k,68) - mat(k,634) = (rxt(k,391)+rxt(k,392))*y(k,68) - mat(k,1441) = rxt(k,588)*y(k,54) + rxt(k,255)*y(k,90) + rxt(k,152)*y(k,91) & - + rxt(k,154)*y(k,92) + 1.150_r8*rxt(k,580)*y(k,94) - mat(k,429) = mat(k,429) + rxt(k,271)*y(k,60) - mat(k,791) = mat(k,791) + 2.000_r8*rxt(k,419)*y(k,130) - mat(k,1723) = mat(k,1723) + rxt(k,358)*y(k,61) + rxt(k,362)*y(k,69) & - + rxt(k,349)*y(k,85) - mat(k,207) = rxt(k,593)*y(k,68) - mat(k,1271) = -(rxt(k,125)*y(k,90) + (rxt(k,132) + rxt(k,134)) * y(k,94) & - + rxt(k,321)*y(k,124) + rxt(k,361)*y(k,132) + rxt(k,363) & - *y(k,125) + rxt(k,391)*y(k,121) + rxt(k,396)*y(k,122) + rxt(k,404) & - *y(k,67) + rxt(k,410)*y(k,38) + rxt(k,424)*y(k,105) + rxt(k,429) & - *y(k,54) + rxt(k,543)*y(k,74) + rxt(k,549)*y(k,75) + rxt(k,582) & - *y(k,106) + (rxt(k,586) + rxt(k,587)) * y(k,120) + rxt(k,593) & - *y(k,133)) - mat(k,814) = -rxt(k,125)*y(k,68) - mat(k,854) = -(rxt(k,132) + rxt(k,134)) * y(k,68) - mat(k,1389) = -rxt(k,321)*y(k,68) - mat(k,1715) = -rxt(k,361)*y(k,68) - mat(k,1433) = -rxt(k,363)*y(k,68) - mat(k,627) = -rxt(k,391)*y(k,68) - mat(k,246) = -rxt(k,396)*y(k,68) - mat(k,1619) = -rxt(k,404)*y(k,68) - mat(k,1224) = -rxt(k,410)*y(k,68) - mat(k,131) = -rxt(k,424)*y(k,68) - mat(k,299) = -rxt(k,429)*y(k,68) - mat(k,174) = -rxt(k,543)*y(k,68) - mat(k,369) = -rxt(k,549)*y(k,68) - mat(k,165) = -rxt(k,582)*y(k,68) - mat(k,125) = -(rxt(k,586) + rxt(k,587)) * y(k,68) - mat(k,205) = -rxt(k,593)*y(k,68) - mat(k,575) = 2.000_r8*rxt(k,488)*y(k,4) + (rxt(k,490)+rxt(k,491))*y(k,26) & - + rxt(k,496)*y(k,67) + rxt(k,492)*y(k,97) - mat(k,312) = rxt(k,532)*y(k,97) - mat(k,1109) = (rxt(k,490)+rxt(k,491))*y(k,4) + (2.000_r8*rxt(k,457) & - +2.000_r8*rxt(k,458))*y(k,26) + rxt(k,466)*y(k,67) + rxt(k,115) & - *y(k,90) + rxt(k,127)*y(k,93) + rxt(k,460)*y(k,97) + rxt(k,314) & - *y(k,124) + rxt(k,468)*y(k,130) + rxt(k,350)*y(k,132) - mat(k,1224) = mat(k,1224) + rxt(k,413)*y(k,69) + rxt(k,407)*y(k,97) & - + rxt(k,330)*y(k,127) - mat(k,105) = rxt(k,422)*y(k,130) - mat(k,299) = mat(k,299) + rxt(k,428)*y(k,61) - mat(k,1562) = rxt(k,439)*y(k,69) + rxt(k,590)*y(k,125) + rxt(k,278)*y(k,127) - mat(k,1479) = rxt(k,428)*y(k,54) + rxt(k,430)*y(k,67) + rxt(k,431)*y(k,69) & - + rxt(k,319)*y(k,124) + rxt(k,276)*y(k,127) - mat(k,1189) = rxt(k,435)*y(k,67) + rxt(k,433)*y(k,97) - mat(k,1619) = mat(k,1619) + rxt(k,496)*y(k,4) + rxt(k,466)*y(k,26) & - + rxt(k,430)*y(k,61) + rxt(k,435)*y(k,62) + 2.000_r8*rxt(k,403) & - *y(k,67) + 2.000_r8*rxt(k,402)*y(k,69) + rxt(k,112)*y(k,89) & - + rxt(k,130)*y(k,93) + rxt(k,411)*y(k,97) + rxt(k,300)*y(k,109) & - + rxt(k,395)*y(k,122) + rxt(k,324)*y(k,124) + ( & - + 2.000_r8*rxt(k,332)+rxt(k,333))*y(k,127) + rxt(k,335)*y(k,128) & - + rxt(k,417)*y(k,130) + rxt(k,359)*y(k,132) - mat(k,1271) = mat(k,1271) + 2.000_r8*rxt(k,396)*y(k,122) - mat(k,936) = rxt(k,413)*y(k,38) + rxt(k,439)*y(k,60) + rxt(k,431)*y(k,61) & - + 2.000_r8*rxt(k,402)*y(k,67) + rxt(k,544)*y(k,74) + rxt(k,550) & - *y(k,75) + rxt(k,487)*y(k,84) + rxt(k,455)*y(k,85) + rxt(k,131) & - *y(k,93) + rxt(k,133)*y(k,94) + 2.000_r8*rxt(k,412)*y(k,97) & - + rxt(k,291)*y(k,107) + 2.000_r8*rxt(k,301)*y(k,109) & - + 2.000_r8*rxt(k,393)*y(k,121) + rxt(k,322)*y(k,124) & - + 3.000_r8*rxt(k,331)*y(k,127) + rxt(k,418)*y(k,130) - mat(k,174) = mat(k,174) + rxt(k,544)*y(k,69) - mat(k,369) = mat(k,369) + rxt(k,550)*y(k,69) - mat(k,459) = rxt(k,487)*y(k,69) + rxt(k,486)*y(k,97) - mat(k,895) = rxt(k,455)*y(k,69) + rxt(k,126)*y(k,93) + rxt(k,453)*y(k,97) & - + rxt(k,313)*y(k,124) - mat(k,680) = rxt(k,153)*y(k,125) - mat(k,398) = rxt(k,158)*y(k,125) - mat(k,382) = rxt(k,256)*y(k,125) - mat(k,272) = rxt(k,112)*y(k,67) - mat(k,814) = mat(k,814) + rxt(k,115)*y(k,26) + rxt(k,255)*y(k,125) - mat(k,350) = rxt(k,152)*y(k,125) - mat(k,529) = rxt(k,154)*y(k,125) - mat(k,656) = rxt(k,127)*y(k,26) + rxt(k,130)*y(k,67) + rxt(k,131)*y(k,69) & - + rxt(k,126)*y(k,85) + rxt(k,190)*y(k,99) + rxt(k,224)*y(k,101) & - + rxt(k,173)*y(k,103) + rxt(k,243)*y(k,114) + rxt(k,226) & - *y(k,115) + rxt(k,208)*y(k,118) + 2.000_r8*rxt(k,150)*y(k,125) - mat(k,854) = mat(k,854) + rxt(k,133)*y(k,69) + rxt(k,325)*y(k,126) & - + 2.000_r8*rxt(k,379)*y(k,129) - mat(k,323) = rxt(k,148)*y(k,125) - mat(k,737) = rxt(k,492)*y(k,4) + rxt(k,532)*y(k,20) + rxt(k,460)*y(k,26) & - + rxt(k,407)*y(k,38) + rxt(k,433)*y(k,62) + rxt(k,411)*y(k,67) & - + 2.000_r8*rxt(k,412)*y(k,69) + rxt(k,486)*y(k,84) + rxt(k,453) & - *y(k,85) + 2.000_r8*rxt(k,421)*y(k,97) + rxt(k,416)*y(k,130) - mat(k,1757) = rxt(k,190)*y(k,93) + rxt(k,189)*y(k,124) - mat(k,1521) = rxt(k,224)*y(k,93) + rxt(k,213)*y(k,124) - mat(k,1065) = rxt(k,173)*y(k,93) + rxt(k,172)*y(k,124) - mat(k,1648) = rxt(k,291)*y(k,69) + rxt(k,160)*y(k,125) - mat(k,411) = rxt(k,155)*y(k,125) - mat(k,704) = rxt(k,300)*y(k,67) + 2.000_r8*rxt(k,301)*y(k,69) + rxt(k,147) & - *y(k,125) - mat(k,509) = rxt(k,159)*y(k,125) - mat(k,549) = rxt(k,151)*y(k,125) - mat(k,441) = rxt(k,156)*y(k,125) - mat(k,491) = rxt(k,254)*y(k,125) - mat(k,981) = rxt(k,243)*y(k,93) + rxt(k,242)*y(k,124) - mat(k,1023) = rxt(k,226)*y(k,93) + rxt(k,225)*y(k,124) - mat(k,1150) = rxt(k,208)*y(k,93) + rxt(k,207)*y(k,124) - mat(k,627) = mat(k,627) + 2.000_r8*rxt(k,393)*y(k,69) - mat(k,246) = mat(k,246) + rxt(k,395)*y(k,67) + 2.000_r8*rxt(k,396)*y(k,68) & - + 2.000_r8*rxt(k,320)*y(k,124) + 2.000_r8*rxt(k,338)*y(k,129) - mat(k,1389) = mat(k,1389) + rxt(k,314)*y(k,26) + rxt(k,319)*y(k,61) & - + rxt(k,324)*y(k,67) + rxt(k,322)*y(k,69) + rxt(k,313)*y(k,85) & - + rxt(k,189)*y(k,99) + rxt(k,213)*y(k,101) + rxt(k,172)*y(k,103) & - + rxt(k,242)*y(k,114) + rxt(k,225)*y(k,115) + rxt(k,207) & - *y(k,118) + 2.000_r8*rxt(k,320)*y(k,122) - mat(k,1433) = mat(k,1433) + rxt(k,590)*y(k,60) + rxt(k,153)*y(k,86) & - + rxt(k,158)*y(k,87) + rxt(k,256)*y(k,88) + rxt(k,255)*y(k,90) & - + rxt(k,152)*y(k,91) + rxt(k,154)*y(k,92) + 2.000_r8*rxt(k,150) & - *y(k,93) + rxt(k,148)*y(k,96) + rxt(k,160)*y(k,107) + rxt(k,155) & - *y(k,108) + rxt(k,147)*y(k,109) + rxt(k,159)*y(k,110) & - + rxt(k,151)*y(k,111) + rxt(k,156)*y(k,112) + rxt(k,254) & - *y(k,113) - mat(k,194) = rxt(k,325)*y(k,94) + (rxt(k,326)+rxt(k,327))*y(k,134) - mat(k,425) = rxt(k,330)*y(k,38) + rxt(k,278)*y(k,60) + rxt(k,276)*y(k,61) + ( & - + 2.000_r8*rxt(k,332)+rxt(k,333))*y(k,67) + 3.000_r8*rxt(k,331) & - *y(k,69) - mat(k,98) = rxt(k,335)*y(k,67) - mat(k,336) = 2.000_r8*rxt(k,379)*y(k,94) + 2.000_r8*rxt(k,338)*y(k,122) & - + rxt(k,336)*y(k,134) - mat(k,784) = rxt(k,468)*y(k,26) + rxt(k,422)*y(k,50) + rxt(k,417)*y(k,67) & - + rxt(k,418)*y(k,69) + rxt(k,416)*y(k,97) - mat(k,1715) = mat(k,1715) + rxt(k,350)*y(k,26) + rxt(k,359)*y(k,67) - mat(k,1815) = (rxt(k,326)+rxt(k,327))*y(k,126) + rxt(k,336)*y(k,129) - 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,928) = -(rxt(k,131)*y(k,93) + rxt(k,133)*y(k,94) + rxt(k,291)*y(k,107) & - + rxt(k,301)*y(k,109) + rxt(k,322)*y(k,124) + rxt(k,331) & - *y(k,127) + rxt(k,347)*y(k,131) + rxt(k,362)*y(k,132) + rxt(k,393) & - *y(k,121) + rxt(k,402)*y(k,67) + rxt(k,412)*y(k,97) + rxt(k,413) & - *y(k,38) + rxt(k,418)*y(k,130) + rxt(k,431)*y(k,61) + rxt(k,439) & - *y(k,60) + rxt(k,455)*y(k,85) + rxt(k,487)*y(k,84) + rxt(k,544) & - *y(k,74) + rxt(k,550)*y(k,75)) - mat(k,649) = -rxt(k,131)*y(k,69) - mat(k,846) = -rxt(k,133)*y(k,69) - mat(k,1640) = -rxt(k,291)*y(k,69) - mat(k,697) = -rxt(k,301)*y(k,69) - mat(k,1381) = -rxt(k,322)*y(k,69) - mat(k,423) = -rxt(k,331)*y(k,69) - mat(k,1672) = -rxt(k,347)*y(k,69) - mat(k,1707) = -rxt(k,362)*y(k,69) - mat(k,623) = -rxt(k,393)*y(k,69) - mat(k,1611) = -rxt(k,402)*y(k,69) - mat(k,732) = -rxt(k,412)*y(k,69) - mat(k,1216) = -rxt(k,413)*y(k,69) - mat(k,778) = -rxt(k,418)*y(k,69) - mat(k,1471) = -rxt(k,431)*y(k,69) - mat(k,1554) = -rxt(k,439)*y(k,69) - mat(k,887) = -rxt(k,455)*y(k,69) - mat(k,457) = -rxt(k,487)*y(k,69) - mat(k,172) = -rxt(k,544)*y(k,69) - mat(k,366) = -rxt(k,550)*y(k,69) - mat(k,1471) = mat(k,1471) + rxt(k,277)*y(k,127) - mat(k,1611) = mat(k,1611) + rxt(k,404)*y(k,68) + rxt(k,323)*y(k,124) & - + rxt(k,337)*y(k,129) - mat(k,1263) = rxt(k,404)*y(k,67) - mat(k,245) = rxt(k,360)*y(k,132) - mat(k,1381) = mat(k,1381) + rxt(k,323)*y(k,67) - mat(k,423) = mat(k,423) + rxt(k,277)*y(k,61) - mat(k,334) = rxt(k,337)*y(k,67) - mat(k,1707) = mat(k,1707) + rxt(k,360)*y(k,122) - mat(k,64) = -(rxt(k,551)*y(k,75)) - mat(k,357) = -rxt(k,551)*y(k,70) - mat(k,559) = rxt(k,489)*y(k,26) - mat(k,1082) = rxt(k,489)*y(k,4) + 2.000_r8*rxt(k,459)*y(k,26) - mat(k,69) = -(rxt(k,541)*y(k,67) + rxt(k,542)*y(k,130)) - mat(k,1577) = -rxt(k,541)*y(k,71) - mat(k,753) = -rxt(k,542)*y(k,71) - mat(k,169) = -(rxt(k,543)*y(k,68) + rxt(k,544)*y(k,69) + rxt(k,547)*y(k,130)) - mat(k,1243) = -rxt(k,543)*y(k,74) - mat(k,910) = -rxt(k,544)*y(k,74) - mat(k,758) = -rxt(k,547)*y(k,74) - mat(k,360) = -(rxt(k,545)*y(k,4) + rxt(k,546)*y(k,26) + rxt(k,548)*y(k,61) & - + rxt(k,549)*y(k,68) + rxt(k,550)*y(k,69) + rxt(k,551)*y(k,70) & - + rxt(k,552)*y(k,130)) - mat(k,563) = -rxt(k,545)*y(k,75) - mat(k,1088) = -rxt(k,546)*y(k,75) - mat(k,1454) = -rxt(k,548)*y(k,75) - mat(k,1249) = -rxt(k,549)*y(k,75) - mat(k,914) = -rxt(k,550)*y(k,75) - mat(k,66) = -rxt(k,551)*y(k,75) - mat(k,768) = -rxt(k,552)*y(k,75) - mat(k,1596) = rxt(k,541)*y(k,71) - mat(k,1249) = mat(k,1249) + rxt(k,543)*y(k,74) - mat(k,914) = mat(k,914) + rxt(k,544)*y(k,74) - mat(k,73) = rxt(k,541)*y(k,67) - mat(k,170) = rxt(k,543)*y(k,68) + rxt(k,544)*y(k,69) + rxt(k,547)*y(k,130) - mat(k,768) = mat(k,768) + rxt(k,547)*y(k,74) - mat(k,251) = -(rxt(k,553)*y(k,130)) - mat(k,764) = -rxt(k,553)*y(k,76) - mat(k,562) = rxt(k,545)*y(k,75) - mat(k,1084) = rxt(k,546)*y(k,75) - mat(k,59) = rxt(k,555)*y(k,62) + (rxt(k,556)+.500_r8*rxt(k,557))*y(k,130) - mat(k,1450) = rxt(k,548)*y(k,75) - mat(k,1166) = rxt(k,555)*y(k,33) - mat(k,1246) = rxt(k,549)*y(k,75) - mat(k,912) = rxt(k,550)*y(k,75) - mat(k,65) = rxt(k,551)*y(k,75) - mat(k,72) = rxt(k,542)*y(k,130) - mat(k,359) = rxt(k,545)*y(k,4) + rxt(k,546)*y(k,26) + rxt(k,548)*y(k,61) & - + rxt(k,549)*y(k,68) + rxt(k,550)*y(k,69) + rxt(k,551)*y(k,70) & - + rxt(k,552)*y(k,130) - mat(k,764) = mat(k,764) + (rxt(k,556)+.500_r8*rxt(k,557))*y(k,33) & - + rxt(k,542)*y(k,71) + rxt(k,552)*y(k,75) - mat(k,46) = -(rxt(k,554)*y(k,134)) - mat(k,1773) = -rxt(k,554)*y(k,77) - mat(k,250) = rxt(k,553)*y(k,130) - mat(k,751) = rxt(k,553)*y(k,76) - mat(k,451) = -(rxt(k,485)*y(k,16) + rxt(k,486)*y(k,97) + rxt(k,487)*y(k,69)) - mat(k,584) = -rxt(k,485)*y(k,84) - mat(k,723) = -rxt(k,486)*y(k,84) - mat(k,916) = -rxt(k,487)*y(k,84) - mat(k,564) = 4.000_r8*rxt(k,488)*y(k,4) + (rxt(k,489)+rxt(k,490))*y(k,26) & - + rxt(k,493)*y(k,60) + rxt(k,496)*y(k,67) + rxt(k,545)*y(k,75) & - + rxt(k,497)*y(k,130) - mat(k,1089) = (rxt(k,489)+rxt(k,490))*y(k,4) - mat(k,227) = rxt(k,498)*y(k,67) + rxt(k,504)*y(k,121) + rxt(k,499)*y(k,130) - mat(k,1541) = rxt(k,493)*y(k,4) - mat(k,1598) = rxt(k,496)*y(k,4) + rxt(k,498)*y(k,43) - mat(k,361) = rxt(k,545)*y(k,4) - mat(k,614) = rxt(k,504)*y(k,43) - mat(k,769) = rxt(k,497)*y(k,4) + rxt(k,499)*y(k,43) - mat(k,886) = -((rxt(k,113) + rxt(k,114)) * y(k,90) + rxt(k,126)*y(k,93) & - + rxt(k,284)*y(k,107) + rxt(k,313)*y(k,124) + rxt(k,340) & - *y(k,131) + rxt(k,349)*y(k,132) + rxt(k,449)*y(k,16) + rxt(k,451) & - *y(k,39) + rxt(k,452)*y(k,41) + (rxt(k,453) + rxt(k,454) & - ) * y(k,97) + rxt(k,455)*y(k,69) + rxt(k,462)*y(k,27) + rxt(k,471) & - *y(k,52)) - mat(k,805) = -(rxt(k,113) + rxt(k,114)) * y(k,85) - mat(k,648) = -rxt(k,126)*y(k,85) - mat(k,1639) = -rxt(k,284)*y(k,85) - mat(k,1380) = -rxt(k,313)*y(k,85) - mat(k,1671) = -rxt(k,340)*y(k,85) - mat(k,1706) = -rxt(k,349)*y(k,85) - mat(k,592) = -rxt(k,449)*y(k,85) - mat(k,471) = -rxt(k,451)*y(k,85) - mat(k,148) = -rxt(k,452)*y(k,85) - mat(k,731) = -(rxt(k,453) + rxt(k,454)) * y(k,85) - mat(k,927) = -rxt(k,455)*y(k,85) - mat(k,261) = -rxt(k,462)*y(k,85) - mat(k,237) = -rxt(k,471)*y(k,85) - mat(k,570) = rxt(k,490)*y(k,26) - mat(k,309) = rxt(k,456)*y(k,26) - mat(k,1100) = rxt(k,490)*y(k,4) + rxt(k,456)*y(k,20) + (4.000_r8*rxt(k,457) & - +2.000_r8*rxt(k,459))*y(k,26) + rxt(k,461)*y(k,60) + rxt(k,466) & - *y(k,67) + rxt(k,546)*y(k,75) + rxt(k,467)*y(k,130) - mat(k,35) = rxt(k,511)*y(k,121) - mat(k,1306) = rxt(k,469)*y(k,67) + rxt(k,481)*y(k,121) + rxt(k,470)*y(k,130) - mat(k,1553) = rxt(k,461)*y(k,26) + rxt(k,110)*y(k,89) - mat(k,1470) = rxt(k,109)*y(k,86) - mat(k,1610) = rxt(k,466)*y(k,26) + rxt(k,469)*y(k,47) - mat(k,365) = rxt(k,546)*y(k,26) - mat(k,674) = rxt(k,109)*y(k,61) + rxt(k,194)*y(k,99) + rxt(k,146)*y(k,101) & - + rxt(k,176)*y(k,103) + rxt(k,247)*y(k,114) + rxt(k,229) & - *y(k,115) + rxt(k,211)*y(k,118) + rxt(k,153)*y(k,125) - mat(k,392) = rxt(k,198)*y(k,99) + rxt(k,163)*y(k,101) + rxt(k,181)*y(k,103) & - + rxt(k,251)*y(k,114) + rxt(k,233)*y(k,115) + rxt(k,216) & - *y(k,118) + rxt(k,158)*y(k,125) - mat(k,376) = rxt(k,186)*y(k,99) + rxt(k,180)*y(k,101) + rxt(k,168)*y(k,103) & - + rxt(k,239)*y(k,114) + rxt(k,221)*y(k,115) + rxt(k,204) & - *y(k,118) + rxt(k,256)*y(k,125) - mat(k,271) = rxt(k,110)*y(k,60) - mat(k,1748) = rxt(k,194)*y(k,86) + rxt(k,198)*y(k,87) + rxt(k,186)*y(k,88) - mat(k,1512) = rxt(k,146)*y(k,86) + rxt(k,163)*y(k,87) + rxt(k,180)*y(k,88) - mat(k,1056) = rxt(k,176)*y(k,86) + rxt(k,181)*y(k,87) + rxt(k,168)*y(k,88) - mat(k,972) = rxt(k,247)*y(k,86) + rxt(k,251)*y(k,87) + rxt(k,239)*y(k,88) - mat(k,1014) = rxt(k,229)*y(k,86) + rxt(k,233)*y(k,87) + rxt(k,221)*y(k,88) - mat(k,1141) = rxt(k,211)*y(k,86) + rxt(k,216)*y(k,87) + rxt(k,204)*y(k,88) - mat(k,622) = rxt(k,511)*y(k,32) + rxt(k,481)*y(k,47) - mat(k,1424) = rxt(k,153)*y(k,86) + rxt(k,158)*y(k,87) + rxt(k,256)*y(k,88) - mat(k,777) = rxt(k,467)*y(k,26) + rxt(k,470)*y(k,47) - mat(k,671) = -(rxt(k,104)*y(k,38) + rxt(k,106)*y(k,134) + rxt(k,107)*y(k,47) & - + rxt(k,108)*y(k,49) + rxt(k,109)*y(k,61) + rxt(k,146)*y(k,101) & - + rxt(k,153)*y(k,125) + rxt(k,176)*y(k,103) + rxt(k,194)*y(k,99) & - + rxt(k,211)*y(k,118) + rxt(k,229)*y(k,115) + rxt(k,247) & - *y(k,114)) - mat(k,1209) = -rxt(k,104)*y(k,86) - mat(k,1800) = -rxt(k,106)*y(k,86) - mat(k,1300) = -rxt(k,107)*y(k,86) - mat(k,1339) = -rxt(k,108)*y(k,86) - mat(k,1464) = -rxt(k,109)*y(k,86) - mat(k,1506) = -rxt(k,146)*y(k,86) - mat(k,1418) = -rxt(k,153)*y(k,86) - mat(k,1050) = -rxt(k,176)*y(k,86) - mat(k,1742) = -rxt(k,194)*y(k,86) - mat(k,1135) = -rxt(k,211)*y(k,86) - mat(k,1008) = -rxt(k,229)*y(k,86) - mat(k,966) = -rxt(k,247)*y(k,86) - mat(k,1094) = rxt(k,115)*y(k,90) + rxt(k,285)*y(k,107) + rxt(k,350)*y(k,132) - mat(k,1300) = mat(k,1300) + rxt(k,129)*y(k,93) + rxt(k,288)*y(k,107) & - + rxt(k,297)*y(k,109) + rxt(k,317)*y(k,124) + rxt(k,344) & - *y(k,131) + rxt(k,355)*y(k,132) - mat(k,1547) = rxt(k,111)*y(k,89) - mat(k,1604) = rxt(k,112)*y(k,89) - mat(k,880) = rxt(k,113)*y(k,90) + rxt(k,126)*y(k,93) + rxt(k,284)*y(k,107) & - + rxt(k,313)*y(k,124) + rxt(k,340)*y(k,131) + rxt(k,349) & - *y(k,132) - mat(k,270) = rxt(k,111)*y(k,60) + rxt(k,112)*y(k,67) - mat(k,800) = rxt(k,115)*y(k,26) + rxt(k,113)*y(k,85) - mat(k,642) = rxt(k,129)*y(k,47) + rxt(k,126)*y(k,85) - mat(k,1635) = rxt(k,285)*y(k,26) + rxt(k,288)*y(k,47) + rxt(k,284)*y(k,85) - mat(k,693) = rxt(k,297)*y(k,47) - mat(k,1374) = rxt(k,317)*y(k,47) + rxt(k,313)*y(k,85) - mat(k,1665) = rxt(k,344)*y(k,47) + rxt(k,340)*y(k,85) - mat(k,1700) = rxt(k,350)*y(k,26) + rxt(k,355)*y(k,47) + rxt(k,349)*y(k,85) - mat(k,390) = -(rxt(k,105)*y(k,47) + rxt(k,158)*y(k,125) + rxt(k,163)*y(k,101) & - + rxt(k,181)*y(k,103) + rxt(k,198)*y(k,99) + rxt(k,216)*y(k,118) & - + rxt(k,233)*y(k,115) + rxt(k,251)*y(k,114)) - mat(k,1292) = -rxt(k,105)*y(k,87) - mat(k,1409) = -rxt(k,158)*y(k,87) - mat(k,1498) = -rxt(k,163)*y(k,87) - mat(k,1042) = -rxt(k,181)*y(k,87) - mat(k,1734) = -rxt(k,198)*y(k,87) - mat(k,1127) = -rxt(k,216)*y(k,87) - mat(k,1000) = -rxt(k,233)*y(k,87) - mat(k,957) = -rxt(k,251)*y(k,87) - mat(k,670) = rxt(k,106)*y(k,134) - mat(k,1790) = rxt(k,106)*y(k,86) - mat(k,374) = -((rxt(k,168) + rxt(k,267)) * y(k,103) + (rxt(k,180) + rxt(k,266) & - ) * y(k,101) + rxt(k,186)*y(k,99) + rxt(k,204)*y(k,118) & - + rxt(k,221)*y(k,115) + rxt(k,239)*y(k,114) + rxt(k,256) & - *y(k,125)) - mat(k,1041) = -(rxt(k,168) + rxt(k,267)) * y(k,88) - mat(k,1497) = -(rxt(k,180) + rxt(k,266)) * y(k,88) - mat(k,1733) = -rxt(k,186)*y(k,88) - mat(k,1126) = -rxt(k,204)*y(k,88) - mat(k,999) = -rxt(k,221)*y(k,88) - mat(k,956) = -rxt(k,239)*y(k,88) - mat(k,1408) = -rxt(k,256)*y(k,88) - mat(k,1291) = rxt(k,107)*y(k,86) + rxt(k,105)*y(k,87) - mat(k,669) = rxt(k,107)*y(k,47) - mat(k,389) = rxt(k,105)*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,269) = -((rxt(k,110) + rxt(k,111)) * y(k,60) + rxt(k,112)*y(k,67)) - mat(k,1536) = -(rxt(k,110) + rxt(k,111)) * y(k,89) - mat(k,1593) = -rxt(k,112)*y(k,89) - mat(k,1086) = rxt(k,127)*y(k,93) + rxt(k,314)*y(k,124) + rxt(k,341)*y(k,131) - mat(k,872) = rxt(k,114)*y(k,90) - mat(k,796) = rxt(k,114)*y(k,85) - mat(k,639) = rxt(k,127)*y(k,26) - mat(k,1370) = rxt(k,314)*y(k,26) - mat(k,1662) = rxt(k,341)*y(k,26) - mat(k,803) = -((rxt(k,113) + rxt(k,114)) * y(k,85) + rxt(k,115)*y(k,26) & - + rxt(k,116)*y(k,38) + rxt(k,118)*y(k,134) + rxt(k,123)*y(k,49) & - + rxt(k,124)*y(k,67) + rxt(k,125)*y(k,68) + (rxt(k,167) & - + rxt(k,264)) * y(k,103) + (rxt(k,169) + rxt(k,257)) * y(k,101) & - + rxt(k,185)*y(k,99) + rxt(k,203)*y(k,118) + rxt(k,220)*y(k,115) & - + rxt(k,238)*y(k,114) + rxt(k,255)*y(k,125) + rxt(k,279)*y(k,60) & - + rxt(k,280)*y(k,61)) - mat(k,884) = -(rxt(k,113) + rxt(k,114)) * y(k,90) - mat(k,1098) = -rxt(k,115)*y(k,90) - mat(k,1213) = -rxt(k,116)*y(k,90) - mat(k,1804) = -rxt(k,118)*y(k,90) - mat(k,1343) = -rxt(k,123)*y(k,90) - mat(k,1608) = -rxt(k,124)*y(k,90) - mat(k,1260) = -rxt(k,125)*y(k,90) - mat(k,1054) = -(rxt(k,167) + rxt(k,264)) * y(k,90) - mat(k,1510) = -(rxt(k,169) + rxt(k,257)) * y(k,90) - mat(k,1746) = -rxt(k,185)*y(k,90) - mat(k,1139) = -rxt(k,203)*y(k,90) - mat(k,1012) = -rxt(k,220)*y(k,90) - mat(k,970) = -rxt(k,238)*y(k,90) - mat(k,1422) = -rxt(k,255)*y(k,90) - mat(k,1551) = -rxt(k,279)*y(k,90) - mat(k,1468) = -rxt(k,280)*y(k,90) - mat(k,1213) = mat(k,1213) + rxt(k,128)*y(k,93) - mat(k,1608) = mat(k,1608) + rxt(k,130)*y(k,93) - mat(k,646) = rxt(k,128)*y(k,38) + rxt(k,130)*y(k,67) - mat(k,343) = -(rxt(k,152)*y(k,125) + (rxt(k,175) + rxt(k,258)) * y(k,103) & - + rxt(k,193)*y(k,99) + rxt(k,210)*y(k,118) + rxt(k,228)*y(k,115) & - + rxt(k,245)*y(k,114) + (rxt(k,246) + rxt(k,270)) * y(k,101)) - mat(k,1407) = -rxt(k,152)*y(k,91) - mat(k,1040) = -(rxt(k,175) + rxt(k,258)) * y(k,91) - mat(k,1732) = -rxt(k,193)*y(k,91) - mat(k,1125) = -rxt(k,210)*y(k,91) - mat(k,998) = -rxt(k,228)*y(k,91) - mat(k,955) = -rxt(k,245)*y(k,91) - mat(k,1496) = -(rxt(k,246) + rxt(k,270)) * y(k,91) - mat(k,518) = rxt(k,117)*y(k,134) - mat(k,1788) = rxt(k,117)*y(k,92) - mat(k,520) = -(rxt(k,117)*y(k,134) + (rxt(k,119) + rxt(k,120)) * y(k,61) & - + (rxt(k,121) + rxt(k,122)) * y(k,60) + rxt(k,154)*y(k,125) & - + (rxt(k,157) + rxt(k,259)) * y(k,101) + (rxt(k,177) + rxt(k,260) & - ) * y(k,103) + rxt(k,195)*y(k,99) + rxt(k,212)*y(k,118) & - + rxt(k,230)*y(k,115) + rxt(k,248)*y(k,114)) - mat(k,1795) = -rxt(k,117)*y(k,92) - mat(k,1459) = -(rxt(k,119) + rxt(k,120)) * y(k,92) - mat(k,1542) = -(rxt(k,121) + rxt(k,122)) * y(k,92) - mat(k,1414) = -rxt(k,154)*y(k,92) - mat(k,1503) = -(rxt(k,157) + rxt(k,259)) * y(k,92) - mat(k,1047) = -(rxt(k,177) + rxt(k,260)) * y(k,92) - mat(k,1739) = -rxt(k,195)*y(k,92) - mat(k,1132) = -rxt(k,212)*y(k,92) - mat(k,1005) = -rxt(k,230)*y(k,92) - mat(k,962) = -rxt(k,248)*y(k,92) - mat(k,798) = rxt(k,118)*y(k,134) - mat(k,1795) = mat(k,1795) + rxt(k,118)*y(k,90) - mat(k,641) = -(rxt(k,126)*y(k,85) + rxt(k,127)*y(k,26) + rxt(k,128)*y(k,38) & - + rxt(k,129)*y(k,47) + rxt(k,130)*y(k,67) + rxt(k,131)*y(k,69) & - + rxt(k,150)*y(k,125) + rxt(k,173)*y(k,103) + rxt(k,190)*y(k,99) & - + rxt(k,208)*y(k,118) + rxt(k,224)*y(k,101) + rxt(k,226) & - *y(k,115) + rxt(k,243)*y(k,114)) - mat(k,879) = -rxt(k,126)*y(k,93) - mat(k,1093) = -rxt(k,127)*y(k,93) - mat(k,1208) = -rxt(k,128)*y(k,93) - mat(k,1299) = -rxt(k,129)*y(k,93) - mat(k,1603) = -rxt(k,130)*y(k,93) - mat(k,920) = -rxt(k,131)*y(k,93) - mat(k,1417) = -rxt(k,150)*y(k,93) - mat(k,1049) = -rxt(k,173)*y(k,93) - mat(k,1741) = -rxt(k,190)*y(k,93) - mat(k,1134) = -rxt(k,208)*y(k,93) - mat(k,1505) = -rxt(k,224)*y(k,93) - mat(k,1007) = -rxt(k,226)*y(k,93) - mat(k,965) = -rxt(k,243)*y(k,93) - mat(k,844) = -((rxt(k,132) + rxt(k,134)) * y(k,68) + rxt(k,133)*y(k,69) & - + rxt(k,137)*y(k,95) + rxt(k,140)*y(k,101) + rxt(k,143)*y(k,103) & - + rxt(k,302)*y(k,115) + rxt(k,303)*y(k,116) + rxt(k,305) & - *y(k,117) + rxt(k,307)*y(k,118) + rxt(k,325)*y(k,126) + rxt(k,379) & - *y(k,129) + rxt(k,380)*y(k,104) + rxt(k,381)*y(k,98) + rxt(k,382) & - *y(k,99) + rxt(k,383)*y(k,119) + rxt(k,579)*y(k,114) + rxt(k,580) & - *y(k,125) + rxt(k,581)*y(k,106)) - mat(k,1261) = -(rxt(k,132) + rxt(k,134)) * y(k,94) - mat(k,926) = -rxt(k,133)*y(k,94) - mat(k,86) = -rxt(k,137)*y(k,94) - mat(k,1511) = -rxt(k,140)*y(k,94) - mat(k,1055) = -rxt(k,143)*y(k,94) - mat(k,1013) = -rxt(k,302)*y(k,94) - mat(k,91) = -rxt(k,303)*y(k,94) - mat(k,116) = -rxt(k,305)*y(k,94) - mat(k,1140) = -rxt(k,307)*y(k,94) - mat(k,192) = -rxt(k,325)*y(k,94) - mat(k,333) = -rxt(k,379)*y(k,94) - mat(k,183) = -rxt(k,380)*y(k,94) - mat(k,154) = -rxt(k,381)*y(k,94) - mat(k,1747) = -rxt(k,382)*y(k,94) - mat(k,110) = -rxt(k,383)*y(k,94) - mat(k,971) = -rxt(k,579)*y(k,94) - mat(k,1423) = -rxt(k,580)*y(k,94) - mat(k,163) = -rxt(k,581)*y(k,94) - mat(k,1214) = rxt(k,104)*y(k,86) + rxt(k,316)*y(k,124) + rxt(k,343)*y(k,131) - mat(k,470) = rxt(k,352)*y(k,132) - mat(k,1552) = rxt(k,135)*y(k,132) - mat(k,1609) = rxt(k,323)*y(k,124) + rxt(k,332)*y(k,127) + rxt(k,346)*y(k,131) & - + rxt(k,359)*y(k,132) - mat(k,926) = mat(k,926) + rxt(k,331)*y(k,127) - mat(k,673) = rxt(k,104)*y(k,38) - mat(k,244) = rxt(k,320)*y(k,124) + rxt(k,360)*y(k,132) - mat(k,1379) = rxt(k,316)*y(k,38) + rxt(k,323)*y(k,67) + rxt(k,320)*y(k,122) - mat(k,422) = rxt(k,332)*y(k,67) + rxt(k,331)*y(k,69) - mat(k,1670) = rxt(k,343)*y(k,38) + rxt(k,346)*y(k,67) - mat(k,1705) = rxt(k,352)*y(k,39) + rxt(k,135)*y(k,60) + rxt(k,359)*y(k,67) & - + rxt(k,360)*y(k,122) - mat(k,83) = -(rxt(k,137)*y(k,94) + rxt(k,138)*y(k,134)) - mat(k,828) = -rxt(k,137)*y(k,95) - mat(k,1776) = -rxt(k,138)*y(k,95) - mat(k,187) = rxt(k,326)*y(k,134) - mat(k,1776) = mat(k,1776) + rxt(k,326)*y(k,126) - mat(k,316) = -(rxt(k,148)*y(k,125) + rxt(k,171)*y(k,103) + rxt(k,188)*y(k,99) & - + rxt(k,202)*y(k,101) + rxt(k,206)*y(k,118) + rxt(k,223) & - *y(k,115) + rxt(k,241)*y(k,114)) - mat(k,1405) = -rxt(k,148)*y(k,96) - mat(k,1039) = -rxt(k,171)*y(k,96) - mat(k,1731) = -rxt(k,188)*y(k,96) - mat(k,1495) = -rxt(k,202)*y(k,96) - mat(k,1124) = -rxt(k,206)*y(k,96) - mat(k,997) = -rxt(k,223)*y(k,96) - mat(k,954) = -rxt(k,241)*y(k,96) - mat(k,728) = -(rxt(k,309)*y(k,118) + (rxt(k,407) + rxt(k,408) + rxt(k,409) & - ) * y(k,38) + rxt(k,411)*y(k,67) + rxt(k,412)*y(k,69) + rxt(k,416) & - *y(k,130) + 4._r8*rxt(k,421)*y(k,97) + rxt(k,433)*y(k,62) & - + rxt(k,438)*y(k,60) + rxt(k,443)*y(k,61) + (rxt(k,453) & - + rxt(k,454)) * y(k,85) + rxt(k,460)*y(k,26) + rxt(k,486) & - *y(k,84) + rxt(k,492)*y(k,4) + rxt(k,532)*y(k,20)) - mat(k,1137) = -rxt(k,309)*y(k,97) - mat(k,1211) = -(rxt(k,407) + rxt(k,408) + rxt(k,409)) * y(k,97) - mat(k,1606) = -rxt(k,411)*y(k,97) - mat(k,923) = -rxt(k,412)*y(k,97) - mat(k,774) = -rxt(k,416)*y(k,97) - mat(k,1177) = -rxt(k,433)*y(k,97) - mat(k,1549) = -rxt(k,438)*y(k,97) - mat(k,1466) = -rxt(k,443)*y(k,97) - mat(k,882) = -(rxt(k,453) + rxt(k,454)) * y(k,97) - mat(k,1096) = -rxt(k,460)*y(k,97) - mat(k,455) = -rxt(k,486)*y(k,97) - mat(k,568) = -rxt(k,492)*y(k,97) - mat(k,307) = -rxt(k,532)*y(k,97) - mat(k,568) = mat(k,568) + rxt(k,497)*y(k,130) - mat(k,589) = rxt(k,529)*y(k,62) + rxt(k,530)*y(k,67) + rxt(k,485)*y(k,84) & - + rxt(k,449)*y(k,85) - mat(k,307) = mat(k,307) + rxt(k,456)*y(k,26) + rxt(k,533)*y(k,60) - mat(k,1096) = mat(k,1096) + rxt(k,456)*y(k,20) + rxt(k,467)*y(k,130) - mat(k,134) = rxt(k,536)*y(k,130) - mat(k,60) = .500_r8*rxt(k,557)*y(k,130) - mat(k,1211) = mat(k,1211) + rxt(k,410)*y(k,68) + rxt(k,316)*y(k,124) - mat(k,146) = rxt(k,406)*y(k,67) + rxt(k,452)*y(k,85) + rxt(k,415)*y(k,130) - mat(k,1302) = rxt(k,129)*y(k,93) + rxt(k,317)*y(k,124) - mat(k,1341) = rxt(k,318)*y(k,124) - mat(k,1549) = mat(k,1549) + rxt(k,533)*y(k,20) - mat(k,1177) = mat(k,1177) + rxt(k,529)*y(k,16) + rxt(k,436)*y(k,130) - mat(k,1606) = mat(k,1606) + rxt(k,530)*y(k,16) + rxt(k,406)*y(k,41) & - + rxt(k,346)*y(k,131) - mat(k,1258) = rxt(k,410)*y(k,38) - mat(k,923) = mat(k,923) + rxt(k,418)*y(k,130) - mat(k,253) = rxt(k,553)*y(k,130) - mat(k,455) = mat(k,455) + rxt(k,485)*y(k,16) - mat(k,882) = mat(k,882) + rxt(k,449)*y(k,16) + rxt(k,452)*y(k,41) - mat(k,644) = rxt(k,129)*y(k,47) - mat(k,1376) = rxt(k,316)*y(k,38) + rxt(k,317)*y(k,47) + rxt(k,318)*y(k,49) - mat(k,774) = mat(k,774) + rxt(k,497)*y(k,4) + rxt(k,467)*y(k,26) + rxt(k,536) & - *y(k,29) + .500_r8*rxt(k,557)*y(k,33) + rxt(k,415)*y(k,41) & - + rxt(k,436)*y(k,62) + rxt(k,418)*y(k,69) + rxt(k,553)*y(k,76) - mat(k,1667) = rxt(k,346)*y(k,67) - mat(k,152) = -(rxt(k,373)*y(k,134) + rxt(k,381)*y(k,94)) - mat(k,1780) = -rxt(k,373)*y(k,98) - mat(k,833) = -rxt(k,381)*y(k,98) - mat(k,84) = rxt(k,138)*y(k,134) - mat(k,181) = rxt(k,371)*y(k,134) - mat(k,1780) = mat(k,1780) + rxt(k,138)*y(k,95) + rxt(k,371)*y(k,104) - mat(k,1769) = -(rxt(k,184)*y(k,113) + rxt(k,185)*y(k,90) + rxt(k,186)*y(k,88) & - + rxt(k,187)*y(k,109) + rxt(k,188)*y(k,96) + rxt(k,189)*y(k,124) & - + rxt(k,190)*y(k,93) + rxt(k,192)*y(k,111) + rxt(k,193)*y(k,91) & - + rxt(k,194)*y(k,86) + rxt(k,195)*y(k,92) + rxt(k,196)*y(k,108) & - + rxt(k,197)*y(k,112) + rxt(k,198)*y(k,87) + rxt(k,199)*y(k,110) & - + rxt(k,200)*y(k,107) + rxt(k,375)*y(k,134) + rxt(k,382)*y(k,94)) - mat(k,496) = -rxt(k,184)*y(k,99) - mat(k,826) = -rxt(k,185)*y(k,99) - mat(k,387) = -rxt(k,186)*y(k,99) - mat(k,713) = -rxt(k,187)*y(k,99) - mat(k,327) = -rxt(k,188)*y(k,99) - mat(k,1401) = -rxt(k,189)*y(k,99) - mat(k,667) = -rxt(k,190)*y(k,99) - mat(k,556) = -rxt(k,192)*y(k,99) - mat(k,355) = -rxt(k,193)*y(k,99) - mat(k,688) = -rxt(k,194)*y(k,99) - mat(k,536) = -rxt(k,195)*y(k,99) - mat(k,417) = -rxt(k,196)*y(k,99) - mat(k,447) = -rxt(k,197)*y(k,99) - mat(k,403) = -rxt(k,198)*y(k,99) - mat(k,516) = -rxt(k,199)*y(k,99) - mat(k,1660) = -rxt(k,200)*y(k,99) - mat(k,1827) = -rxt(k,375)*y(k,99) - mat(k,865) = -rxt(k,382)*y(k,99) - mat(k,156) = rxt(k,373)*y(k,134) - mat(k,93) = rxt(k,304)*y(k,134) - mat(k,1827) = mat(k,1827) + rxt(k,373)*y(k,98) + rxt(k,304)*y(k,116) - 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,139)*y(k,134)) - mat(k,1774) = -rxt(k,139)*y(k,100) - mat(k,277) = rxt(k,141)*y(k,101) - mat(k,1493) = rxt(k,141)*y(k,56) - mat(k,1527) = -(rxt(k,140)*y(k,94) + rxt(k,141)*y(k,56) + (rxt(k,145) & - + rxt(k,268)) * y(k,113) + rxt(k,146)*y(k,86) + (rxt(k,157) & - + rxt(k,259)) * y(k,92) + rxt(k,161)*y(k,108) + rxt(k,162) & - *y(k,112) + rxt(k,163)*y(k,87) + rxt(k,164)*y(k,110) + rxt(k,165) & - *y(k,107) + (rxt(k,169) + rxt(k,257)) * y(k,90) + (rxt(k,180) & - + rxt(k,266)) * y(k,88) + (rxt(k,191) + rxt(k,263)) * y(k,109) & - + rxt(k,202)*y(k,96) + rxt(k,213)*y(k,124) + rxt(k,224)*y(k,93) & - + (rxt(k,235) + rxt(k,261)) * y(k,111) + (rxt(k,246) + rxt(k,270) & - ) * y(k,91) + rxt(k,377)*y(k,134)) - mat(k,860) = -rxt(k,140)*y(k,101) - mat(k,287) = -rxt(k,141)*y(k,101) - mat(k,494) = -(rxt(k,145) + rxt(k,268)) * y(k,101) - mat(k,685) = -rxt(k,146)*y(k,101) - mat(k,532) = -(rxt(k,157) + rxt(k,259)) * y(k,101) - mat(k,414) = -rxt(k,161)*y(k,101) - mat(k,445) = -rxt(k,162)*y(k,101) - mat(k,401) = -rxt(k,163)*y(k,101) - mat(k,513) = -rxt(k,164)*y(k,101) - mat(k,1654) = -rxt(k,165)*y(k,101) - mat(k,820) = -(rxt(k,169) + rxt(k,257)) * y(k,101) - mat(k,385) = -(rxt(k,180) + rxt(k,266)) * y(k,101) - mat(k,709) = -(rxt(k,191) + rxt(k,263)) * y(k,101) - mat(k,325) = -rxt(k,202)*y(k,101) - mat(k,1395) = -rxt(k,213)*y(k,101) - mat(k,661) = -rxt(k,224)*y(k,101) - mat(k,553) = -(rxt(k,235) + rxt(k,261)) * y(k,101) - mat(k,352) = -(rxt(k,246) + rxt(k,270)) * y(k,101) - mat(k,1821) = -rxt(k,377)*y(k,101) - mat(k,1763) = rxt(k,375)*y(k,134) - mat(k,52) = rxt(k,139)*y(k,134) - mat(k,1821) = mat(k,1821) + rxt(k,375)*y(k,99) + rxt(k,139)*y(k,100) - mat(k,54) = -(rxt(k,142)*y(k,134)) - mat(k,1775) = -rxt(k,142)*y(k,102) - mat(k,278) = rxt(k,144)*y(k,103) - mat(k,1037) = rxt(k,144)*y(k,56) - mat(k,1060) = -(rxt(k,143)*y(k,94) + rxt(k,144)*y(k,56) + (rxt(k,166) & - + rxt(k,269)) * y(k,113) + (rxt(k,167) + rxt(k,264)) * y(k,90) & - + (rxt(k,168) + rxt(k,267)) * y(k,88) + (rxt(k,170) + rxt(k,265) & - ) * y(k,109) + rxt(k,171)*y(k,96) + rxt(k,172)*y(k,124) & - + rxt(k,173)*y(k,93) + (rxt(k,174) + rxt(k,262)) * y(k,111) & - + (rxt(k,175) + rxt(k,258)) * y(k,91) + rxt(k,176)*y(k,86) & - + (rxt(k,177) + rxt(k,260)) * y(k,92) + rxt(k,178)*y(k,108) & - + rxt(k,179)*y(k,112) + rxt(k,181)*y(k,87) + rxt(k,182)*y(k,110) & - + rxt(k,183)*y(k,107)) - mat(k,849) = -rxt(k,143)*y(k,103) - mat(k,283) = -rxt(k,144)*y(k,103) - mat(k,488) = -(rxt(k,166) + rxt(k,269)) * y(k,103) - mat(k,809) = -(rxt(k,167) + rxt(k,264)) * y(k,103) - mat(k,379) = -(rxt(k,168) + rxt(k,267)) * y(k,103) - mat(k,700) = -(rxt(k,170) + rxt(k,265)) * y(k,103) - mat(k,320) = -rxt(k,171)*y(k,103) - mat(k,1384) = -rxt(k,172)*y(k,103) - mat(k,652) = -rxt(k,173)*y(k,103) - mat(k,545) = -(rxt(k,174) + rxt(k,262)) * y(k,103) - mat(k,347) = -(rxt(k,175) + rxt(k,258)) * y(k,103) - mat(k,677) = -rxt(k,176)*y(k,103) - mat(k,526) = -(rxt(k,177) + rxt(k,260)) * y(k,103) - mat(k,408) = -rxt(k,178)*y(k,103) - mat(k,437) = -rxt(k,179)*y(k,103) - mat(k,395) = -rxt(k,181)*y(k,103) - mat(k,505) = -rxt(k,182)*y(k,103) - mat(k,1643) = -rxt(k,183)*y(k,103) - mat(k,1516) = rxt(k,377)*y(k,134) - mat(k,55) = rxt(k,142)*y(k,134) - mat(k,1810) = rxt(k,377)*y(k,101) + rxt(k,142)*y(k,102) - mat(k,182) = -(rxt(k,371)*y(k,134) + rxt(k,380)*y(k,94)) - mat(k,1782) = -rxt(k,371)*y(k,104) - mat(k,836) = -rxt(k,380)*y(k,104) - mat(k,1203) = rxt(k,308)*y(k,118) - mat(k,718) = rxt(k,309)*y(k,118) - mat(k,1123) = rxt(k,308)*y(k,38) + rxt(k,309)*y(k,97) + rxt(k,310)*y(k,130) - mat(k,189) = rxt(k,327)*y(k,134) - mat(k,760) = rxt(k,310)*y(k,118) - mat(k,1782) = mat(k,1782) + rxt(k,327)*y(k,126) - mat(k,128) = -(rxt(k,423)*y(k,67) + rxt(k,424)*y(k,68)) - mat(k,1580) = -rxt(k,423)*y(k,105) - mat(k,1241) = -rxt(k,424)*y(k,105) - mat(k,1580) = mat(k,1580) + rxt(k,583)*y(k,106) - mat(k,832) = .900_r8*rxt(k,581)*y(k,106) + .800_r8*rxt(k,579)*y(k,114) - mat(k,158) = rxt(k,583)*y(k,67) + .900_r8*rxt(k,581)*y(k,94) - mat(k,952) = .800_r8*rxt(k,579)*y(k,94) - mat(k,159) = -(rxt(k,581)*y(k,94) + rxt(k,582)*y(k,68) + (rxt(k,583) & - + rxt(k,584)) * y(k,67)) - mat(k,834) = -rxt(k,581)*y(k,106) - mat(k,1242) = -rxt(k,582)*y(k,106) - mat(k,1584) = -(rxt(k,583) + rxt(k,584)) * y(k,106) - mat(k,1657) = -(rxt(k,160)*y(k,125) + rxt(k,165)*y(k,101) + rxt(k,183) & - *y(k,103) + rxt(k,200)*y(k,99) + rxt(k,218)*y(k,118) + rxt(k,236) & - *y(k,115) + rxt(k,253)*y(k,114) + rxt(k,284)*y(k,85) + rxt(k,285) & - *y(k,26) + rxt(k,286)*y(k,38) + rxt(k,287)*y(k,134) + rxt(k,288) & - *y(k,47) + rxt(k,289)*y(k,49) + rxt(k,290)*y(k,61) + rxt(k,291) & - *y(k,69)) - mat(k,1442) = -rxt(k,160)*y(k,107) - mat(k,1530) = -rxt(k,165)*y(k,107) - mat(k,1074) = -rxt(k,183)*y(k,107) - mat(k,1766) = -rxt(k,200)*y(k,107) - mat(k,1159) = -rxt(k,218)*y(k,107) - mat(k,1032) = -rxt(k,236)*y(k,107) - mat(k,990) = -rxt(k,253)*y(k,107) - mat(k,904) = -rxt(k,284)*y(k,107) - mat(k,1118) = -rxt(k,285)*y(k,107) - mat(k,1233) = -rxt(k,286)*y(k,107) - mat(k,1824) = -rxt(k,287)*y(k,107) - mat(k,1324) = -rxt(k,288)*y(k,107) - mat(k,1363) = -rxt(k,289)*y(k,107) - mat(k,1488) = -rxt(k,290)*y(k,107) - mat(k,945) = -rxt(k,291)*y(k,107) - mat(k,1571) = rxt(k,110)*y(k,89) + rxt(k,279)*y(k,90) + rxt(k,122)*y(k,92) & - + rxt(k,278)*y(k,127) - mat(k,1488) = mat(k,1488) + rxt(k,109)*y(k,86) + rxt(k,319)*y(k,124) & - + rxt(k,277)*y(k,127) + rxt(k,345)*y(k,131) + rxt(k,358) & - *y(k,132) - mat(k,1628) = rxt(k,300)*y(k,109) - mat(k,945) = mat(k,945) + rxt(k,301)*y(k,109) - mat(k,687) = rxt(k,109)*y(k,61) - mat(k,276) = rxt(k,110)*y(k,60) - mat(k,823) = rxt(k,279)*y(k,60) - mat(k,535) = rxt(k,122)*y(k,60) - mat(k,712) = rxt(k,300)*y(k,67) + rxt(k,301)*y(k,69) - mat(k,1398) = rxt(k,319)*y(k,61) - mat(k,430) = rxt(k,278)*y(k,60) + rxt(k,277)*y(k,61) - mat(k,1689) = rxt(k,345)*y(k,61) - mat(k,1724) = rxt(k,358)*y(k,61) - mat(k,405) = -(rxt(k,155)*y(k,125) + rxt(k,161)*y(k,101) + rxt(k,178) & - *y(k,103) + rxt(k,196)*y(k,99) + rxt(k,214)*y(k,118) + rxt(k,231) & - *y(k,115) + rxt(k,249)*y(k,114)) - mat(k,1410) = -rxt(k,155)*y(k,108) - mat(k,1499) = -rxt(k,161)*y(k,108) - mat(k,1043) = -rxt(k,178)*y(k,108) - mat(k,1735) = -rxt(k,196)*y(k,108) - mat(k,1128) = -rxt(k,214)*y(k,108) - mat(k,1001) = -rxt(k,231)*y(k,108) - mat(k,958) = -rxt(k,249)*y(k,108) - mat(k,1539) = rxt(k,121)*y(k,92) - mat(k,519) = rxt(k,121)*y(k,60) - mat(k,1634) = rxt(k,287)*y(k,134) - mat(k,1791) = rxt(k,287)*y(k,107) - mat(k,694) = -(rxt(k,147)*y(k,125) + (rxt(k,170) + rxt(k,265)) * y(k,103) & - + rxt(k,187)*y(k,99) + (rxt(k,191) + rxt(k,263)) * y(k,101) & - + rxt(k,205)*y(k,118) + rxt(k,222)*y(k,115) + rxt(k,240) & - *y(k,114) + (rxt(k,275) + rxt(k,297)) * y(k,47) + rxt(k,295) & - *y(k,134) + rxt(k,299)*y(k,49) + rxt(k,300)*y(k,67) + rxt(k,301) & - *y(k,69)) - mat(k,1419) = -rxt(k,147)*y(k,109) - mat(k,1051) = -(rxt(k,170) + rxt(k,265)) * y(k,109) - mat(k,1743) = -rxt(k,187)*y(k,109) - mat(k,1507) = -(rxt(k,191) + rxt(k,263)) * y(k,109) - mat(k,1136) = -rxt(k,205)*y(k,109) - mat(k,1009) = -rxt(k,222)*y(k,109) - mat(k,967) = -rxt(k,240)*y(k,109) - mat(k,1301) = -(rxt(k,275) + rxt(k,297)) * y(k,109) - mat(k,1801) = -rxt(k,295)*y(k,109) - mat(k,1340) = -rxt(k,299)*y(k,109) - mat(k,1605) = -rxt(k,300)*y(k,109) - mat(k,922) = -rxt(k,301)*y(k,109) - mat(k,1340) = mat(k,1340) + rxt(k,108)*y(k,86) + rxt(k,123)*y(k,90) & - + rxt(k,289)*y(k,107) + rxt(k,318)*y(k,124) + rxt(k,356) & - *y(k,132) - mat(k,1548) = rxt(k,271)*y(k,127) - mat(k,1465) = rxt(k,280)*y(k,90) + rxt(k,119)*y(k,92) + rxt(k,290)*y(k,107) & - + rxt(k,276)*y(k,127) - mat(k,922) = mat(k,922) + rxt(k,291)*y(k,107) - mat(k,672) = rxt(k,108)*y(k,49) - mat(k,801) = rxt(k,123)*y(k,49) + rxt(k,280)*y(k,61) - mat(k,522) = rxt(k,119)*y(k,61) - mat(k,1636) = rxt(k,289)*y(k,49) + rxt(k,290)*y(k,61) + rxt(k,291)*y(k,69) - mat(k,1375) = rxt(k,318)*y(k,49) - mat(k,420) = rxt(k,271)*y(k,60) + rxt(k,276)*y(k,61) - mat(k,1701) = rxt(k,356)*y(k,49) - mat(k,500) = -(rxt(k,159)*y(k,125) + rxt(k,164)*y(k,101) + rxt(k,182) & - *y(k,103) + rxt(k,199)*y(k,99) + rxt(k,217)*y(k,118) + rxt(k,234) & - *y(k,115) + rxt(k,252)*y(k,114) + rxt(k,292)*y(k,56)) - mat(k,1413) = -rxt(k,159)*y(k,110) - mat(k,1502) = -rxt(k,164)*y(k,110) - mat(k,1046) = -rxt(k,182)*y(k,110) - mat(k,1738) = -rxt(k,199)*y(k,110) - mat(k,1131) = -rxt(k,217)*y(k,110) - mat(k,1004) = -rxt(k,234)*y(k,110) - mat(k,961) = -rxt(k,252)*y(k,110) - mat(k,281) = -rxt(k,292)*y(k,110) - mat(k,540) = rxt(k,293)*y(k,134) - mat(k,1794) = rxt(k,293)*y(k,111) - mat(k,541) = -(rxt(k,151)*y(k,125) + (rxt(k,174) + rxt(k,262)) * y(k,103) & - + rxt(k,192)*y(k,99) + rxt(k,209)*y(k,118) + rxt(k,227)*y(k,115) & - + (rxt(k,235) + rxt(k,261)) * y(k,101) + rxt(k,244)*y(k,114) & - + rxt(k,293)*y(k,134) + rxt(k,294)*y(k,49) + rxt(k,296)*y(k,56)) - mat(k,1415) = -rxt(k,151)*y(k,111) - mat(k,1048) = -(rxt(k,174) + rxt(k,262)) * y(k,111) - mat(k,1740) = -rxt(k,192)*y(k,111) - mat(k,1133) = -rxt(k,209)*y(k,111) - mat(k,1006) = -rxt(k,227)*y(k,111) - mat(k,1504) = -(rxt(k,235) + rxt(k,261)) * y(k,111) - mat(k,963) = -rxt(k,244)*y(k,111) - mat(k,1796) = -rxt(k,293)*y(k,111) - mat(k,1336) = -rxt(k,294)*y(k,111) - mat(k,282) = -rxt(k,296)*y(k,111) - mat(k,1460) = rxt(k,120)*y(k,92) - mat(k,521) = rxt(k,120)*y(k,61) - mat(k,692) = rxt(k,295)*y(k,134) - mat(k,1796) = mat(k,1796) + rxt(k,295)*y(k,109) - 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,433) = -(rxt(k,156)*y(k,125) + rxt(k,162)*y(k,101) + rxt(k,179) & - *y(k,103) + rxt(k,197)*y(k,99) + rxt(k,215)*y(k,118) + rxt(k,232) & - *y(k,115) + rxt(k,250)*y(k,114) + rxt(k,298)*y(k,49)) - mat(k,1411) = -rxt(k,156)*y(k,112) - mat(k,1500) = -rxt(k,162)*y(k,112) - mat(k,1044) = -rxt(k,179)*y(k,112) - mat(k,1736) = -rxt(k,197)*y(k,112) - mat(k,1129) = -rxt(k,215)*y(k,112) - mat(k,1002) = -rxt(k,232)*y(k,112) - mat(k,959) = -rxt(k,250)*y(k,112) - mat(k,1333) = -rxt(k,298)*y(k,112) - mat(k,1293) = rxt(k,275)*y(k,109) - mat(k,690) = rxt(k,275)*y(k,47) - mat(k,484) = -((rxt(k,145) + rxt(k,268)) * y(k,101) + (rxt(k,166) + rxt(k,269) & - ) * y(k,103) + rxt(k,184)*y(k,99) + rxt(k,201)*y(k,118) & - + rxt(k,219)*y(k,115) + rxt(k,237)*y(k,114) + rxt(k,254) & - *y(k,125)) - mat(k,1501) = -(rxt(k,145) + rxt(k,268)) * y(k,113) - mat(k,1045) = -(rxt(k,166) + rxt(k,269)) * y(k,113) - mat(k,1737) = -rxt(k,184)*y(k,113) - mat(k,1130) = -rxt(k,201)*y(k,113) - mat(k,1003) = -rxt(k,219)*y(k,113) - mat(k,960) = -rxt(k,237)*y(k,113) - mat(k,1412) = -rxt(k,254)*y(k,113) - mat(k,1335) = rxt(k,299)*y(k,109) + rxt(k,294)*y(k,111) + rxt(k,298)*y(k,112) - mat(k,280) = rxt(k,292)*y(k,110) + rxt(k,296)*y(k,111) - mat(k,691) = rxt(k,299)*y(k,49) - mat(k,499) = rxt(k,292)*y(k,56) - mat(k,539) = rxt(k,294)*y(k,49) + rxt(k,296)*y(k,56) - mat(k,434) = rxt(k,298)*y(k,49) - mat(k,974) = -(rxt(k,237)*y(k,113) + rxt(k,238)*y(k,90) + rxt(k,239)*y(k,88) & - + rxt(k,240)*y(k,109) + rxt(k,241)*y(k,96) + rxt(k,242)*y(k,124) & - + rxt(k,243)*y(k,93) + rxt(k,244)*y(k,111) + rxt(k,245)*y(k,91) & - + rxt(k,247)*y(k,86) + rxt(k,248)*y(k,92) + rxt(k,249)*y(k,108) & - + rxt(k,250)*y(k,112) + rxt(k,251)*y(k,87) + rxt(k,252)*y(k,110) & - + rxt(k,253)*y(k,107) + rxt(k,364)*y(k,134) + rxt(k,579)*y(k,94)) - mat(k,486) = -rxt(k,237)*y(k,114) - mat(k,807) = -rxt(k,238)*y(k,114) - mat(k,377) = -rxt(k,239)*y(k,114) - mat(k,698) = -rxt(k,240)*y(k,114) - mat(k,318) = -rxt(k,241)*y(k,114) - mat(k,1382) = -rxt(k,242)*y(k,114) - mat(k,650) = -rxt(k,243)*y(k,114) - mat(k,543) = -rxt(k,244)*y(k,114) - mat(k,345) = -rxt(k,245)*y(k,114) - mat(k,675) = -rxt(k,247)*y(k,114) - mat(k,524) = -rxt(k,248)*y(k,114) - mat(k,406) = -rxt(k,249)*y(k,114) - mat(k,435) = -rxt(k,250)*y(k,114) - mat(k,393) = -rxt(k,251)*y(k,114) - mat(k,503) = -rxt(k,252)*y(k,114) - mat(k,1641) = -rxt(k,253)*y(k,114) - mat(k,1808) = -rxt(k,364)*y(k,114) - mat(k,847) = -rxt(k,579)*y(k,114) - mat(k,297) = rxt(k,588)*y(k,125) - mat(k,1555) = rxt(k,590)*y(k,125) - mat(k,1612) = rxt(k,583)*y(k,106) - mat(k,1264) = rxt(k,587)*y(k,120) - mat(k,164) = rxt(k,583)*y(k,67) - mat(k,124) = rxt(k,587)*y(k,68) - mat(k,1426) = rxt(k,588)*y(k,54) + rxt(k,590)*y(k,60) - mat(k,1017) = -(rxt(k,219)*y(k,113) + rxt(k,220)*y(k,90) + rxt(k,221)*y(k,88) & - + rxt(k,222)*y(k,109) + rxt(k,223)*y(k,96) + rxt(k,225)*y(k,124) & - + rxt(k,226)*y(k,93) + rxt(k,227)*y(k,111) + rxt(k,228)*y(k,91) & - + rxt(k,229)*y(k,86) + rxt(k,230)*y(k,92) + rxt(k,231)*y(k,108) & - + rxt(k,232)*y(k,112) + rxt(k,233)*y(k,87) + rxt(k,234)*y(k,110) & - + rxt(k,236)*y(k,107) + rxt(k,302)*y(k,94) + rxt(k,366)*y(k,134)) - mat(k,487) = -rxt(k,219)*y(k,115) - mat(k,808) = -rxt(k,220)*y(k,115) - mat(k,378) = -rxt(k,221)*y(k,115) - mat(k,699) = -rxt(k,222)*y(k,115) - mat(k,319) = -rxt(k,223)*y(k,115) - mat(k,1383) = -rxt(k,225)*y(k,115) - mat(k,651) = -rxt(k,226)*y(k,115) - mat(k,544) = -rxt(k,227)*y(k,115) - mat(k,346) = -rxt(k,228)*y(k,115) - mat(k,676) = -rxt(k,229)*y(k,115) - mat(k,525) = -rxt(k,230)*y(k,115) - mat(k,407) = -rxt(k,231)*y(k,115) - mat(k,436) = -rxt(k,232)*y(k,115) - mat(k,394) = -rxt(k,233)*y(k,115) - mat(k,504) = -rxt(k,234)*y(k,115) - mat(k,1642) = -rxt(k,236)*y(k,115) - mat(k,848) = -rxt(k,302)*y(k,115) - mat(k,1809) = -rxt(k,366)*y(k,115) - mat(k,1144) = rxt(k,365)*y(k,134) - mat(k,1809) = mat(k,1809) + rxt(k,365)*y(k,118) - mat(k,89) = -(rxt(k,303)*y(k,94) + rxt(k,304)*y(k,134)) - mat(k,829) = -rxt(k,303)*y(k,116) - mat(k,1777) = -rxt(k,304)*y(k,116) - mat(k,995) = rxt(k,366)*y(k,134) - mat(k,1777) = mat(k,1777) + rxt(k,366)*y(k,115) - mat(k,115) = -(rxt(k,305)*y(k,94) + rxt(k,306)*y(k,134)) - mat(k,831) = -rxt(k,305)*y(k,117) - mat(k,1779) = -rxt(k,306)*y(k,117) - mat(k,1147) = -(rxt(k,201)*y(k,113) + rxt(k,203)*y(k,90) + rxt(k,204)*y(k,88) & - + rxt(k,205)*y(k,109) + rxt(k,206)*y(k,96) + rxt(k,207)*y(k,124) & - + rxt(k,208)*y(k,93) + rxt(k,209)*y(k,111) + rxt(k,210)*y(k,91) & - + rxt(k,211)*y(k,86) + rxt(k,212)*y(k,92) + rxt(k,214)*y(k,108) & - + rxt(k,215)*y(k,112) + rxt(k,216)*y(k,87) + rxt(k,217)*y(k,110) & - + rxt(k,218)*y(k,107) + rxt(k,307)*y(k,94) + rxt(k,308)*y(k,38) & - + rxt(k,309)*y(k,97) + rxt(k,310)*y(k,130) + rxt(k,365)*y(k,134)) - mat(k,489) = -rxt(k,201)*y(k,118) - mat(k,811) = -rxt(k,203)*y(k,118) - mat(k,380) = -rxt(k,204)*y(k,118) - mat(k,701) = -rxt(k,205)*y(k,118) - mat(k,321) = -rxt(k,206)*y(k,118) - mat(k,1386) = -rxt(k,207)*y(k,118) - mat(k,654) = -rxt(k,208)*y(k,118) - mat(k,546) = -rxt(k,209)*y(k,118) - mat(k,348) = -rxt(k,210)*y(k,118) - mat(k,678) = -rxt(k,211)*y(k,118) - mat(k,527) = -rxt(k,212)*y(k,118) - mat(k,409) = -rxt(k,214)*y(k,118) - mat(k,438) = -rxt(k,215)*y(k,118) - mat(k,396) = -rxt(k,216)*y(k,118) - mat(k,506) = -rxt(k,217)*y(k,118) - mat(k,1645) = -rxt(k,218)*y(k,118) - mat(k,851) = -rxt(k,307)*y(k,118) - mat(k,1221) = -rxt(k,308)*y(k,118) - mat(k,734) = -rxt(k,309)*y(k,118) - mat(k,781) = -rxt(k,310)*y(k,118) - mat(k,1812) = -rxt(k,365)*y(k,118) - mat(k,978) = rxt(k,364)*y(k,134) - mat(k,118) = rxt(k,306)*y(k,134) - mat(k,112) = rxt(k,312)*y(k,134) - mat(k,1812) = mat(k,1812) + rxt(k,364)*y(k,114) + rxt(k,306)*y(k,117) & - + rxt(k,312)*y(k,119) - mat(k,108) = -(rxt(k,312)*y(k,134) + rxt(k,383)*y(k,94)) - mat(k,1778) = -rxt(k,312)*y(k,119) - mat(k,830) = -rxt(k,383)*y(k,119) - mat(k,121) = -(rxt(k,585)*y(k,67) + (rxt(k,586) + rxt(k,587)) * y(k,68)) - mat(k,1579) = -rxt(k,585)*y(k,120) - mat(k,1240) = -(rxt(k,586) + rxt(k,587)) * y(k,120) - mat(k,618) = -(rxt(k,388)*y(k,39) + rxt(k,389)*y(k,134) + (rxt(k,391) & - + rxt(k,392)) * y(k,68) + rxt(k,393)*y(k,69) + (rxt(k,481) & - + rxt(k,482)) * y(k,47) + (rxt(k,504) + rxt(k,505)) * y(k,43) & - + rxt(k,510)*y(k,31) + rxt(k,511)*y(k,32)) - mat(k,467) = -rxt(k,388)*y(k,121) - mat(k,1799) = -rxt(k,389)*y(k,121) - mat(k,1254) = -(rxt(k,391) + rxt(k,392)) * y(k,121) - mat(k,919) = -rxt(k,393)*y(k,121) - mat(k,1298) = -(rxt(k,481) + rxt(k,482)) * y(k,121) - mat(k,229) = -(rxt(k,504) + rxt(k,505)) * y(k,121) - mat(k,29) = -rxt(k,510)*y(k,121) - mat(k,34) = -rxt(k,511)*y(k,121) - mat(k,1254) = mat(k,1254) + rxt(k,424)*y(k,105) - mat(k,841) = .850_r8*rxt(k,580)*y(k,125) - mat(k,130) = rxt(k,424)*y(k,68) - mat(k,1416) = .850_r8*rxt(k,580)*y(k,94) - mat(k,242) = -(rxt(k,320)*y(k,124) + rxt(k,338)*y(k,129) + rxt(k,360) & - *y(k,132) + rxt(k,395)*y(k,67) + rxt(k,396)*y(k,68)) - mat(k,1369) = -rxt(k,320)*y(k,122) - mat(k,330) = -rxt(k,338)*y(k,122) - mat(k,1694) = -rxt(k,360)*y(k,122) - mat(k,1590) = -rxt(k,395)*y(k,122) - mat(k,1245) = -rxt(k,396)*y(k,122) - mat(k,1590) = mat(k,1590) + rxt(k,399)*y(k,123) - mat(k,1245) = mat(k,1245) + rxt(k,400)*y(k,123) - mat(k,911) = rxt(k,401)*y(k,123) - mat(k,43) = rxt(k,399)*y(k,67) + rxt(k,400)*y(k,68) + rxt(k,401)*y(k,69) - mat(k,42) = -(rxt(k,399)*y(k,67) + rxt(k,400)*y(k,68) + rxt(k,401)*y(k,69)) - mat(k,1576) = -rxt(k,399)*y(k,123) - mat(k,1238) = -rxt(k,400)*y(k,123) - mat(k,909) = -rxt(k,401)*y(k,123) - mat(k,1238) = mat(k,1238) + rxt(k,391)*y(k,121) - mat(k,608) = rxt(k,391)*y(k,68) - mat(k,1392) = -(rxt(k,149)*y(k,125) + rxt(k,172)*y(k,103) + rxt(k,189) & - *y(k,99) + rxt(k,207)*y(k,118) + rxt(k,213)*y(k,101) + rxt(k,225) & - *y(k,115) + rxt(k,242)*y(k,114) + rxt(k,313)*y(k,85) + rxt(k,314) & - *y(k,26) + rxt(k,316)*y(k,38) + rxt(k,317)*y(k,47) + rxt(k,318) & - *y(k,49) + rxt(k,319)*y(k,61) + rxt(k,320)*y(k,122) + rxt(k,321) & - *y(k,68) + rxt(k,322)*y(k,69) + (rxt(k,323) + rxt(k,324) & - ) * y(k,67)) - mat(k,1436) = -rxt(k,149)*y(k,124) - mat(k,1068) = -rxt(k,172)*y(k,124) - mat(k,1760) = -rxt(k,189)*y(k,124) - mat(k,1153) = -rxt(k,207)*y(k,124) - mat(k,1524) = -rxt(k,213)*y(k,124) - mat(k,1026) = -rxt(k,225)*y(k,124) - mat(k,984) = -rxt(k,242)*y(k,124) - mat(k,898) = -rxt(k,313)*y(k,124) - mat(k,1112) = -rxt(k,314)*y(k,124) - mat(k,1227) = -rxt(k,316)*y(k,124) - mat(k,1318) = -rxt(k,317)*y(k,124) - mat(k,1357) = -rxt(k,318)*y(k,124) - mat(k,1482) = -rxt(k,319)*y(k,124) - mat(k,247) = -rxt(k,320)*y(k,124) - mat(k,1274) = -rxt(k,321)*y(k,124) - mat(k,939) = -rxt(k,322)*y(k,124) - mat(k,1622) = -(rxt(k,323) + rxt(k,324)) * y(k,124) - mat(k,1622) = mat(k,1622) + rxt(k,124)*y(k,90) + rxt(k,333)*y(k,127) - mat(k,1274) = mat(k,1274) + (rxt(k,132)+rxt(k,134))*y(k,94) - mat(k,817) = rxt(k,124)*y(k,67) - mat(k,857) = (rxt(k,132)+rxt(k,134))*y(k,68) - mat(k,426) = rxt(k,333)*y(k,67) - mat(k,1437) = -(rxt(k,147)*y(k,109) + rxt(k,148)*y(k,96) + rxt(k,149) & - *y(k,124) + rxt(k,150)*y(k,93) + rxt(k,151)*y(k,111) + rxt(k,152) & - *y(k,91) + rxt(k,153)*y(k,86) + rxt(k,154)*y(k,92) + rxt(k,155) & - *y(k,108) + rxt(k,156)*y(k,112) + rxt(k,158)*y(k,87) + rxt(k,159) & - *y(k,110) + rxt(k,160)*y(k,107) + rxt(k,254)*y(k,113) + rxt(k,255) & - *y(k,90) + rxt(k,256)*y(k,88) + rxt(k,328)*y(k,134) + rxt(k,363) & - *y(k,68) + rxt(k,580)*y(k,94) + rxt(k,588)*y(k,54) + rxt(k,590) & - *y(k,60)) - mat(k,707) = -rxt(k,147)*y(k,125) - mat(k,324) = -rxt(k,148)*y(k,125) - mat(k,1393) = -rxt(k,149)*y(k,125) - mat(k,659) = -rxt(k,150)*y(k,125) - mat(k,551) = -rxt(k,151)*y(k,125) - mat(k,351) = -rxt(k,152)*y(k,125) - mat(k,683) = -rxt(k,153)*y(k,125) - mat(k,530) = -rxt(k,154)*y(k,125) - mat(k,412) = -rxt(k,155)*y(k,125) - mat(k,444) = -rxt(k,156)*y(k,125) - mat(k,400) = -rxt(k,158)*y(k,125) - mat(k,511) = -rxt(k,159)*y(k,125) - mat(k,1652) = -rxt(k,160)*y(k,125) - mat(k,493) = -rxt(k,254)*y(k,125) - mat(k,818) = -rxt(k,255)*y(k,125) - mat(k,384) = -rxt(k,256)*y(k,125) - mat(k,1819) = -rxt(k,328)*y(k,125) - mat(k,1275) = -rxt(k,363)*y(k,125) - mat(k,858) = -rxt(k,580)*y(k,125) - mat(k,300) = -rxt(k,588)*y(k,125) - mat(k,1566) = -rxt(k,590)*y(k,125) - mat(k,1623) = rxt(k,337)*y(k,129) - mat(k,1275) = mat(k,1275) + rxt(k,582)*y(k,106) + rxt(k,586)*y(k,120) & - + rxt(k,593)*y(k,133) - mat(k,166) = rxt(k,582)*y(k,68) - mat(k,126) = rxt(k,586)*y(k,68) - mat(k,248) = rxt(k,338)*y(k,129) - mat(k,1393) = mat(k,1393) + 2.000_r8*rxt(k,149)*y(k,125) - mat(k,1437) = mat(k,1437) + 2.000_r8*rxt(k,149)*y(k,124) - mat(k,338) = rxt(k,337)*y(k,67) + rxt(k,338)*y(k,122) - mat(k,206) = rxt(k,593)*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,190) = -(rxt(k,325)*y(k,94) + (rxt(k,326) + rxt(k,327)) * y(k,134)) - mat(k,837) = -rxt(k,325)*y(k,126) - mat(k,1783) = -(rxt(k,326) + rxt(k,327)) * y(k,126) - mat(k,1403) = rxt(k,328)*y(k,134) - mat(k,329) = rxt(k,336)*y(k,134) - mat(k,1783) = mat(k,1783) + rxt(k,328)*y(k,125) + rxt(k,336)*y(k,129) - mat(k,419) = -((rxt(k,271) + rxt(k,278)) * y(k,60) + (rxt(k,276) + rxt(k,277) & - ) * y(k,61) + rxt(k,330)*y(k,38) + rxt(k,331)*y(k,69) + (rxt(k,332) & - + rxt(k,333)) * y(k,67)) - mat(k,1540) = -(rxt(k,271) + rxt(k,278)) * y(k,127) - mat(k,1455) = -(rxt(k,276) + rxt(k,277)) * y(k,127) - mat(k,1204) = -rxt(k,330)*y(k,127) - mat(k,915) = -rxt(k,331)*y(k,127) - mat(k,1597) = -(rxt(k,332) + rxt(k,333)) * y(k,127) - mat(k,1597) = mat(k,1597) + rxt(k,335)*y(k,128) - mat(k,1250) = rxt(k,125)*y(k,90) + rxt(k,361)*y(k,132) - mat(k,915) = mat(k,915) + rxt(k,131)*y(k,93) + rxt(k,322)*y(k,124) & - + rxt(k,347)*y(k,131) + rxt(k,362)*y(k,132) - mat(k,797) = rxt(k,125)*y(k,68) - mat(k,640) = rxt(k,131)*y(k,69) - mat(k,1372) = rxt(k,322)*y(k,69) - mat(k,96) = rxt(k,335)*y(k,67) - mat(k,1664) = rxt(k,347)*y(k,69) - mat(k,1696) = rxt(k,361)*y(k,68) + rxt(k,362)*y(k,69) - mat(k,95) = -(rxt(k,335)*y(k,67)) - mat(k,1578) = -rxt(k,335)*y(k,128) - mat(k,1239) = rxt(k,321)*y(k,124) - mat(k,1368) = rxt(k,321)*y(k,68) - mat(k,331) = -(rxt(k,336)*y(k,134) + rxt(k,337)*y(k,67) + rxt(k,338)*y(k,122) & - + rxt(k,379)*y(k,94)) - mat(k,1787) = -rxt(k,336)*y(k,129) - mat(k,1595) = -rxt(k,337)*y(k,129) - mat(k,243) = -rxt(k,338)*y(k,129) - mat(k,840) = -rxt(k,379)*y(k,129) - mat(k,1248) = rxt(k,363)*y(k,125) - mat(k,1406) = rxt(k,363)*y(k,68) - mat(k,775) = -(rxt(k,310)*y(k,118) + rxt(k,339)*y(k,53) + rxt(k,348)*y(k,60) & - + rxt(k,414)*y(k,39) + rxt(k,415)*y(k,41) + rxt(k,416)*y(k,97) & - + rxt(k,417)*y(k,67) + rxt(k,418)*y(k,69) + (4._r8*rxt(k,419) & - + 4._r8*rxt(k,420)) * y(k,130) + rxt(k,422)*y(k,50) + rxt(k,436) & - *y(k,62) + rxt(k,437)*y(k,54) + rxt(k,445)*y(k,61) + rxt(k,446) & - *y(k,49) + rxt(k,465)*y(k,27) + (rxt(k,467) + rxt(k,468) & - ) * y(k,26) + rxt(k,470)*y(k,47) + rxt(k,473)*y(k,52) + rxt(k,497) & - *y(k,4) + rxt(k,499)*y(k,43) + rxt(k,531)*y(k,16) + rxt(k,534) & - *y(k,21) + (rxt(k,536) + rxt(k,540)) * y(k,29) + rxt(k,542) & - *y(k,71) + rxt(k,547)*y(k,74) + rxt(k,552)*y(k,75) + rxt(k,553) & - *y(k,76) + (rxt(k,556) + rxt(k,557)) * y(k,33)) - mat(k,1138) = -rxt(k,310)*y(k,130) - mat(k,177) = -rxt(k,339)*y(k,130) - mat(k,1550) = -rxt(k,348)*y(k,130) - mat(k,469) = -rxt(k,414)*y(k,130) - mat(k,147) = -rxt(k,415)*y(k,130) - mat(k,729) = -rxt(k,416)*y(k,130) - mat(k,1607) = -rxt(k,417)*y(k,130) - mat(k,924) = -rxt(k,418)*y(k,130) - mat(k,103) = -rxt(k,422)*y(k,130) - mat(k,1178) = -rxt(k,436)*y(k,130) - mat(k,295) = -rxt(k,437)*y(k,130) - mat(k,1467) = -rxt(k,445)*y(k,130) - mat(k,1342) = -rxt(k,446)*y(k,130) - mat(k,260) = -rxt(k,465)*y(k,130) - mat(k,1097) = -(rxt(k,467) + rxt(k,468)) * y(k,130) - mat(k,1303) = -rxt(k,470)*y(k,130) - mat(k,236) = -rxt(k,473)*y(k,130) - mat(k,569) = -rxt(k,497)*y(k,130) - mat(k,230) = -rxt(k,499)*y(k,130) - mat(k,590) = -rxt(k,531)*y(k,130) - mat(k,80) = -rxt(k,534)*y(k,130) - mat(k,135) = -(rxt(k,536) + rxt(k,540)) * y(k,130) - mat(k,74) = -rxt(k,542)*y(k,130) - mat(k,171) = -rxt(k,547)*y(k,130) - mat(k,364) = -rxt(k,552)*y(k,130) - mat(k,254) = -rxt(k,553)*y(k,130) - mat(k,61) = -(rxt(k,556) + rxt(k,557)) * y(k,130) - mat(k,590) = mat(k,590) + rxt(k,530)*y(k,67) - mat(k,80) = mat(k,80) + .300_r8*rxt(k,534)*y(k,130) - mat(k,1097) = mat(k,1097) + rxt(k,341)*y(k,131) - mat(k,212) = rxt(k,508)*y(k,134) - mat(k,1212) = rxt(k,413)*y(k,69) + rxt(k,128)*y(k,93) + 2.000_r8*rxt(k,408) & - *y(k,97) - mat(k,469) = mat(k,469) + rxt(k,405)*y(k,67) + rxt(k,388)*y(k,121) - mat(k,147) = mat(k,147) + rxt(k,406)*y(k,67) - mat(k,230) = mat(k,230) + rxt(k,498)*y(k,67) + rxt(k,504)*y(k,121) - mat(k,1303) = mat(k,1303) + rxt(k,469)*y(k,67) + rxt(k,481)*y(k,121) & - + rxt(k,355)*y(k,132) - mat(k,1342) = mat(k,1342) + rxt(k,123)*y(k,90) + rxt(k,356)*y(k,132) - mat(k,221) = rxt(k,500)*y(k,67) - mat(k,236) = mat(k,236) + rxt(k,472)*y(k,67) - mat(k,1550) = mat(k,1550) + rxt(k,438)*y(k,97) - mat(k,1467) = mat(k,1467) + rxt(k,345)*y(k,131) - mat(k,1178) = mat(k,1178) + rxt(k,433)*y(k,97) - mat(k,1607) = mat(k,1607) + rxt(k,530)*y(k,16) + rxt(k,405)*y(k,39) & - + rxt(k,406)*y(k,41) + rxt(k,498)*y(k,43) + rxt(k,469)*y(k,47) & - + rxt(k,500)*y(k,51) + rxt(k,472)*y(k,52) + rxt(k,411)*y(k,97) - mat(k,924) = mat(k,924) + rxt(k,413)*y(k,38) + rxt(k,412)*y(k,97) & - + rxt(k,347)*y(k,131) - mat(k,883) = rxt(k,454)*y(k,97) + rxt(k,340)*y(k,131) - mat(k,802) = rxt(k,123)*y(k,49) - mat(k,645) = rxt(k,128)*y(k,38) - mat(k,843) = rxt(k,137)*y(k,95) - mat(k,85) = rxt(k,137)*y(k,94) + rxt(k,138)*y(k,134) - mat(k,317) = rxt(k,188)*y(k,99) + rxt(k,202)*y(k,101) + rxt(k,171)*y(k,103) & - + rxt(k,241)*y(k,114) + rxt(k,223)*y(k,115) + rxt(k,206) & - *y(k,118) + rxt(k,148)*y(k,125) - mat(k,729) = mat(k,729) + 2.000_r8*rxt(k,408)*y(k,38) + rxt(k,438)*y(k,60) & - + rxt(k,433)*y(k,62) + rxt(k,411)*y(k,67) + rxt(k,412)*y(k,69) & - + rxt(k,454)*y(k,85) - mat(k,1745) = rxt(k,188)*y(k,96) - mat(k,1509) = rxt(k,202)*y(k,96) - mat(k,1053) = rxt(k,171)*y(k,96) - mat(k,969) = rxt(k,241)*y(k,96) - mat(k,1011) = rxt(k,223)*y(k,96) - mat(k,1138) = mat(k,1138) + rxt(k,206)*y(k,96) - mat(k,620) = rxt(k,388)*y(k,39) + rxt(k,504)*y(k,43) + rxt(k,481)*y(k,47) & - + 2.000_r8*rxt(k,389)*y(k,134) - mat(k,1421) = rxt(k,148)*y(k,96) - mat(k,191) = rxt(k,327)*y(k,134) - mat(k,775) = mat(k,775) + .300_r8*rxt(k,534)*y(k,21) - mat(k,1668) = rxt(k,341)*y(k,26) + rxt(k,345)*y(k,61) + rxt(k,347)*y(k,69) & - + rxt(k,340)*y(k,85) - mat(k,1703) = rxt(k,355)*y(k,47) + rxt(k,356)*y(k,49) + rxt(k,354)*y(k,134) - mat(k,1803) = rxt(k,508)*y(k,37) + rxt(k,138)*y(k,95) + 2.000_r8*rxt(k,389) & - *y(k,121) + rxt(k,327)*y(k,126) + rxt(k,354)*y(k,132) - mat(k,1690) = -(rxt(k,340)*y(k,85) + rxt(k,341)*y(k,26) + rxt(k,343)*y(k,38) & - + rxt(k,344)*y(k,47) + rxt(k,345)*y(k,61) + rxt(k,346)*y(k,67) & - + rxt(k,347)*y(k,69)) - mat(k,905) = -rxt(k,340)*y(k,131) - mat(k,1119) = -rxt(k,341)*y(k,131) - mat(k,1234) = -rxt(k,343)*y(k,131) - mat(k,1325) = -rxt(k,344)*y(k,131) - mat(k,1489) = -rxt(k,345)*y(k,131) - mat(k,1629) = -rxt(k,346)*y(k,131) - mat(k,946) = -rxt(k,347)*y(k,131) - mat(k,1234) = mat(k,1234) + rxt(k,116)*y(k,90) + rxt(k,286)*y(k,107) & - + rxt(k,330)*y(k,127) - mat(k,481) = rxt(k,353)*y(k,132) - mat(k,824) = rxt(k,116)*y(k,38) - mat(k,1658) = rxt(k,286)*y(k,38) - mat(k,431) = rxt(k,330)*y(k,38) - mat(k,1725) = rxt(k,353)*y(k,39) + rxt(k,354)*y(k,134) - mat(k,1825) = rxt(k,354)*y(k,132) - mat(k,1726) = -(rxt(k,135)*y(k,60) + rxt(k,349)*y(k,85) + rxt(k,350)*y(k,26) & - + (rxt(k,352) + rxt(k,353)) * y(k,39) + rxt(k,354)*y(k,134) & - + rxt(k,355)*y(k,47) + rxt(k,356)*y(k,49) + rxt(k,358)*y(k,61) & - + rxt(k,359)*y(k,67) + rxt(k,360)*y(k,122) + rxt(k,361)*y(k,68) & - + rxt(k,362)*y(k,69)) - mat(k,1573) = -rxt(k,135)*y(k,132) - mat(k,906) = -rxt(k,349)*y(k,132) - mat(k,1120) = -rxt(k,350)*y(k,132) - mat(k,482) = -(rxt(k,352) + rxt(k,353)) * y(k,132) - mat(k,1826) = -rxt(k,354)*y(k,132) - mat(k,1326) = -rxt(k,355)*y(k,132) - mat(k,1365) = -rxt(k,356)*y(k,132) - mat(k,1490) = -rxt(k,358)*y(k,132) - mat(k,1630) = -rxt(k,359)*y(k,132) - mat(k,249) = -rxt(k,360)*y(k,132) - mat(k,1282) = -rxt(k,361)*y(k,132) - mat(k,947) = -rxt(k,362)*y(k,132) - mat(k,1630) = mat(k,1630) + rxt(k,324)*y(k,124) - mat(k,947) = mat(k,947) + rxt(k,133)*y(k,94) - mat(k,864) = rxt(k,133)*y(k,69) - mat(k,1400) = rxt(k,324)*y(k,67) - mat(k,199) = -(rxt(k,593)*y(k,68)) - mat(k,1244) = -rxt(k,593)*y(k,133) - mat(k,1586) = rxt(k,584)*y(k,106) + rxt(k,585)*y(k,120) - mat(k,160) = rxt(k,584)*y(k,67) - mat(k,122) = rxt(k,585)*y(k,67) - mat(k,1828) = -(rxt(k,106)*y(k,86) + rxt(k,117)*y(k,92) + rxt(k,118)*y(k,90) & - + rxt(k,138)*y(k,95) + rxt(k,139)*y(k,100) + rxt(k,142)*y(k,102) & - + rxt(k,287)*y(k,107) + rxt(k,293)*y(k,111) + rxt(k,295) & - *y(k,109) + rxt(k,304)*y(k,116) + rxt(k,306)*y(k,117) + rxt(k,312) & - *y(k,119) + (rxt(k,326) + rxt(k,327)) * y(k,126) + rxt(k,328) & - *y(k,125) + rxt(k,336)*y(k,129) + rxt(k,354)*y(k,132) + rxt(k,364) & - *y(k,114) + rxt(k,365)*y(k,118) + rxt(k,366)*y(k,115) + rxt(k,371) & - *y(k,104) + rxt(k,373)*y(k,98) + rxt(k,375)*y(k,99) + rxt(k,377) & - *y(k,101) + rxt(k,389)*y(k,121) + rxt(k,508)*y(k,37) + rxt(k,554) & - *y(k,77)) - mat(k,689) = -rxt(k,106)*y(k,134) - mat(k,537) = -rxt(k,117)*y(k,134) - mat(k,827) = -rxt(k,118)*y(k,134) - mat(k,88) = -rxt(k,138)*y(k,134) - mat(k,53) = -rxt(k,139)*y(k,134) - mat(k,57) = -rxt(k,142)*y(k,134) - mat(k,1661) = -rxt(k,287)*y(k,134) - mat(k,557) = -rxt(k,293)*y(k,134) - mat(k,714) = -rxt(k,295)*y(k,134) - mat(k,94) = -rxt(k,304)*y(k,134) - mat(k,120) = -rxt(k,306)*y(k,134) - mat(k,114) = -rxt(k,312)*y(k,134) - mat(k,197) = -(rxt(k,326) + rxt(k,327)) * y(k,134) - mat(k,1446) = -rxt(k,328)*y(k,134) - mat(k,342) = -rxt(k,336)*y(k,134) - mat(k,1728) = -rxt(k,354)*y(k,134) - mat(k,994) = -rxt(k,364)*y(k,134) - mat(k,1163) = -rxt(k,365)*y(k,134) - mat(k,1036) = -rxt(k,366)*y(k,134) - mat(k,186) = -rxt(k,371)*y(k,134) - mat(k,157) = -rxt(k,373)*y(k,134) - mat(k,1770) = -rxt(k,375)*y(k,134) - mat(k,1534) = -rxt(k,377)*y(k,134) - mat(k,638) = -rxt(k,389)*y(k,134) - mat(k,216) = -rxt(k,508)*y(k,134) - mat(k,49) = -rxt(k,554)*y(k,134) - mat(k,605) = rxt(k,531)*y(k,130) - mat(k,82) = rxt(k,534)*y(k,130) - mat(k,1237) = rxt(k,409)*y(k,97) + rxt(k,343)*y(k,131) - mat(k,483) = rxt(k,414)*y(k,130) + rxt(k,352)*y(k,132) - mat(k,151) = rxt(k,415)*y(k,130) - mat(k,233) = rxt(k,499)*y(k,130) - mat(k,1328) = (rxt(k,570)+rxt(k,575))*y(k,51) + (rxt(k,563)+rxt(k,569) & - +rxt(k,574))*y(k,52) + rxt(k,105)*y(k,87) + rxt(k,470)*y(k,130) & - + rxt(k,344)*y(k,131) - mat(k,1367) = rxt(k,294)*y(k,111) + rxt(k,446)*y(k,130) - mat(k,107) = rxt(k,422)*y(k,130) - mat(k,225) = (rxt(k,570)+rxt(k,575))*y(k,47) - mat(k,241) = (rxt(k,563)+rxt(k,569)+rxt(k,574))*y(k,47) + rxt(k,473)*y(k,130) - mat(k,180) = rxt(k,339)*y(k,130) - mat(k,290) = rxt(k,292)*y(k,110) - mat(k,1575) = rxt(k,122)*y(k,92) - mat(k,1492) = rxt(k,119)*y(k,92) - mat(k,689) = mat(k,689) + 3.000_r8*rxt(k,194)*y(k,99) + 4.000_r8*rxt(k,146) & - *y(k,101) + 5.000_r8*rxt(k,176)*y(k,103) + 2.000_r8*rxt(k,229) & - *y(k,115) + rxt(k,211)*y(k,118) - mat(k,404) = rxt(k,105)*y(k,47) + 4.000_r8*rxt(k,198)*y(k,99) & - + 5.000_r8*rxt(k,163)*y(k,101) + 6.000_r8*rxt(k,181)*y(k,103) & - + rxt(k,251)*y(k,114) + 3.000_r8*rxt(k,233)*y(k,115) & - + 2.000_r8*rxt(k,216)*y(k,118) + rxt(k,158)*y(k,125) - mat(k,388) = 3.000_r8*rxt(k,186)*y(k,99) + (4.000_r8*rxt(k,180) & - +4.000_r8*rxt(k,266))*y(k,101) + (5.000_r8*rxt(k,168) & - +5.000_r8*rxt(k,267))*y(k,103) + 2.000_r8*rxt(k,221)*y(k,115) & - + rxt(k,204)*y(k,118) - mat(k,827) = mat(k,827) + 3.000_r8*rxt(k,185)*y(k,99) + (4.000_r8*rxt(k,169) & - +4.000_r8*rxt(k,257))*y(k,101) + (5.000_r8*rxt(k,167) & - +5.000_r8*rxt(k,264))*y(k,103) + 2.000_r8*rxt(k,220)*y(k,115) & - + rxt(k,203)*y(k,118) - mat(k,356) = 5.000_r8*rxt(k,193)*y(k,99) + (6.000_r8*rxt(k,246) & - +6.000_r8*rxt(k,270))*y(k,101) + (7.000_r8*rxt(k,175) & - +7.000_r8*rxt(k,258))*y(k,103) + 2.000_r8*rxt(k,245)*y(k,114) & - + 4.000_r8*rxt(k,228)*y(k,115) + 3.000_r8*rxt(k,210)*y(k,118) & - + 2.000_r8*rxt(k,152)*y(k,125) - mat(k,537) = mat(k,537) + rxt(k,122)*y(k,60) + rxt(k,119)*y(k,61) & - + 4.000_r8*rxt(k,195)*y(k,99) + (5.000_r8*rxt(k,157) & - +5.000_r8*rxt(k,259))*y(k,101) + (6.000_r8*rxt(k,177) & - +6.000_r8*rxt(k,260))*y(k,103) + rxt(k,248)*y(k,114) & - + 3.000_r8*rxt(k,230)*y(k,115) + 2.000_r8*rxt(k,212)*y(k,118) & - + rxt(k,154)*y(k,125) - mat(k,668) = 3.000_r8*rxt(k,190)*y(k,99) + 4.000_r8*rxt(k,224)*y(k,101) & - + 5.000_r8*rxt(k,173)*y(k,103) + 2.000_r8*rxt(k,226)*y(k,115) & - + rxt(k,208)*y(k,118) - mat(k,866) = rxt(k,137)*y(k,95) + 2.000_r8*rxt(k,381)*y(k,98) & - + 3.000_r8*rxt(k,382)*y(k,99) + 4.000_r8*rxt(k,140)*y(k,101) & - + 5.000_r8*rxt(k,143)*y(k,103) + rxt(k,380)*y(k,104) & - + 2.000_r8*rxt(k,302)*y(k,115) + 3.000_r8*rxt(k,303)*y(k,116) & - + rxt(k,307)*y(k,118) + rxt(k,325)*y(k,126) - mat(k,88) = mat(k,88) + rxt(k,137)*y(k,94) - mat(k,328) = 3.000_r8*rxt(k,188)*y(k,99) + 4.000_r8*rxt(k,202)*y(k,101) & - + 5.000_r8*rxt(k,171)*y(k,103) + 2.000_r8*rxt(k,223)*y(k,115) & - + rxt(k,206)*y(k,118) - mat(k,748) = rxt(k,409)*y(k,38) + rxt(k,416)*y(k,130) - mat(k,157) = mat(k,157) + 2.000_r8*rxt(k,381)*y(k,94) - mat(k,1770) = mat(k,1770) + 3.000_r8*rxt(k,194)*y(k,86) + 4.000_r8*rxt(k,198) & - *y(k,87) + 3.000_r8*rxt(k,186)*y(k,88) + 3.000_r8*rxt(k,185) & - *y(k,90) + 5.000_r8*rxt(k,193)*y(k,91) + 4.000_r8*rxt(k,195) & - *y(k,92) + 3.000_r8*rxt(k,190)*y(k,93) + 3.000_r8*rxt(k,382) & - *y(k,94) + 3.000_r8*rxt(k,188)*y(k,96) + 3.000_r8*rxt(k,200) & - *y(k,107) + 4.000_r8*rxt(k,196)*y(k,108) + 3.000_r8*rxt(k,187) & - *y(k,109) + 5.000_r8*rxt(k,199)*y(k,110) + 4.000_r8*rxt(k,192) & - *y(k,111) + 3.000_r8*rxt(k,197)*y(k,112) + 3.000_r8*rxt(k,184) & - *y(k,113) + 3.000_r8*rxt(k,189)*y(k,124) - mat(k,1534) = mat(k,1534) + 4.000_r8*rxt(k,146)*y(k,86) + 5.000_r8*rxt(k,163) & - *y(k,87) + (4.000_r8*rxt(k,180)+4.000_r8*rxt(k,266))*y(k,88) + ( & - + 4.000_r8*rxt(k,169)+4.000_r8*rxt(k,257))*y(k,90) + ( & - + 6.000_r8*rxt(k,246)+6.000_r8*rxt(k,270))*y(k,91) + ( & - + 5.000_r8*rxt(k,157)+5.000_r8*rxt(k,259))*y(k,92) & - + 4.000_r8*rxt(k,224)*y(k,93) + 4.000_r8*rxt(k,140)*y(k,94) & - + 4.000_r8*rxt(k,202)*y(k,96) + 4.000_r8*rxt(k,165)*y(k,107) & - + 5.000_r8*rxt(k,161)*y(k,108) + (4.000_r8*rxt(k,191) & - +4.000_r8*rxt(k,263))*y(k,109) + 6.000_r8*rxt(k,164)*y(k,110) + ( & - + 5.000_r8*rxt(k,235)+5.000_r8*rxt(k,261))*y(k,111) & - + 4.000_r8*rxt(k,162)*y(k,112) + (4.000_r8*rxt(k,145) & - +4.000_r8*rxt(k,268))*y(k,113) + 4.000_r8*rxt(k,213)*y(k,124) - mat(k,1078) = 5.000_r8*rxt(k,176)*y(k,86) + 6.000_r8*rxt(k,181)*y(k,87) + ( & - + 5.000_r8*rxt(k,168)+5.000_r8*rxt(k,267))*y(k,88) + ( & - + 5.000_r8*rxt(k,167)+5.000_r8*rxt(k,264))*y(k,90) + ( & - + 7.000_r8*rxt(k,175)+7.000_r8*rxt(k,258))*y(k,91) + ( & - + 6.000_r8*rxt(k,177)+6.000_r8*rxt(k,260))*y(k,92) & - + 5.000_r8*rxt(k,173)*y(k,93) + 5.000_r8*rxt(k,143)*y(k,94) & - + 5.000_r8*rxt(k,171)*y(k,96) + 5.000_r8*rxt(k,183)*y(k,107) & - + 6.000_r8*rxt(k,178)*y(k,108) + (5.000_r8*rxt(k,170) & - +5.000_r8*rxt(k,265))*y(k,109) + 7.000_r8*rxt(k,182)*y(k,110) + ( & - + 6.000_r8*rxt(k,174)+6.000_r8*rxt(k,262))*y(k,111) & - + 5.000_r8*rxt(k,179)*y(k,112) + (5.000_r8*rxt(k,166) & - +5.000_r8*rxt(k,269))*y(k,113) + 5.000_r8*rxt(k,172)*y(k,124) - mat(k,186) = mat(k,186) + rxt(k,380)*y(k,94) - mat(k,1661) = mat(k,1661) + 3.000_r8*rxt(k,200)*y(k,99) + 4.000_r8*rxt(k,165) & - *y(k,101) + 5.000_r8*rxt(k,183)*y(k,103) + 2.000_r8*rxt(k,236) & - *y(k,115) + rxt(k,218)*y(k,118) - mat(k,418) = 4.000_r8*rxt(k,196)*y(k,99) + 5.000_r8*rxt(k,161)*y(k,101) & - + 6.000_r8*rxt(k,178)*y(k,103) + rxt(k,249)*y(k,114) & - + 3.000_r8*rxt(k,231)*y(k,115) + 2.000_r8*rxt(k,214)*y(k,118) & - + rxt(k,155)*y(k,125) - mat(k,714) = mat(k,714) + 3.000_r8*rxt(k,187)*y(k,99) + (4.000_r8*rxt(k,191) & - +4.000_r8*rxt(k,263))*y(k,101) + (5.000_r8*rxt(k,170) & - +5.000_r8*rxt(k,265))*y(k,103) + 2.000_r8*rxt(k,222)*y(k,115) & - + rxt(k,205)*y(k,118) - mat(k,517) = rxt(k,292)*y(k,56) + 5.000_r8*rxt(k,199)*y(k,99) & - + 6.000_r8*rxt(k,164)*y(k,101) + 7.000_r8*rxt(k,182)*y(k,103) & - + 2.000_r8*rxt(k,252)*y(k,114) + 4.000_r8*rxt(k,234)*y(k,115) & - + 3.000_r8*rxt(k,217)*y(k,118) + 2.000_r8*rxt(k,159)*y(k,125) - mat(k,557) = mat(k,557) + rxt(k,294)*y(k,49) + 4.000_r8*rxt(k,192)*y(k,99) + ( & - + 5.000_r8*rxt(k,235)+5.000_r8*rxt(k,261))*y(k,101) + ( & - + 6.000_r8*rxt(k,174)+6.000_r8*rxt(k,262))*y(k,103) + rxt(k,244) & - *y(k,114) + 3.000_r8*rxt(k,227)*y(k,115) + 2.000_r8*rxt(k,209) & - *y(k,118) + rxt(k,151)*y(k,125) - mat(k,448) = 3.000_r8*rxt(k,197)*y(k,99) + 4.000_r8*rxt(k,162)*y(k,101) & - + 5.000_r8*rxt(k,179)*y(k,103) + 2.000_r8*rxt(k,232)*y(k,115) & - + rxt(k,215)*y(k,118) - mat(k,497) = 3.000_r8*rxt(k,184)*y(k,99) + (4.000_r8*rxt(k,145) & - +4.000_r8*rxt(k,268))*y(k,101) + (5.000_r8*rxt(k,166) & - +5.000_r8*rxt(k,269))*y(k,103) + 2.000_r8*rxt(k,219)*y(k,115) & - + rxt(k,201)*y(k,118) - mat(k,994) = mat(k,994) + rxt(k,251)*y(k,87) + 2.000_r8*rxt(k,245)*y(k,91) & - + rxt(k,248)*y(k,92) + rxt(k,249)*y(k,108) + 2.000_r8*rxt(k,252) & - *y(k,110) + rxt(k,244)*y(k,111) - mat(k,1036) = mat(k,1036) + 2.000_r8*rxt(k,229)*y(k,86) + 3.000_r8*rxt(k,233) & - *y(k,87) + 2.000_r8*rxt(k,221)*y(k,88) + 2.000_r8*rxt(k,220) & - *y(k,90) + 4.000_r8*rxt(k,228)*y(k,91) + 3.000_r8*rxt(k,230) & - *y(k,92) + 2.000_r8*rxt(k,226)*y(k,93) + 2.000_r8*rxt(k,302) & - *y(k,94) + 2.000_r8*rxt(k,223)*y(k,96) + 2.000_r8*rxt(k,236) & - *y(k,107) + 3.000_r8*rxt(k,231)*y(k,108) + 2.000_r8*rxt(k,222) & - *y(k,109) + 4.000_r8*rxt(k,234)*y(k,110) + 3.000_r8*rxt(k,227) & - *y(k,111) + 2.000_r8*rxt(k,232)*y(k,112) + 2.000_r8*rxt(k,219) & - *y(k,113) + 2.000_r8*rxt(k,225)*y(k,124) - mat(k,94) = mat(k,94) + 3.000_r8*rxt(k,303)*y(k,94) - mat(k,1163) = mat(k,1163) + rxt(k,211)*y(k,86) + 2.000_r8*rxt(k,216)*y(k,87) & - + rxt(k,204)*y(k,88) + rxt(k,203)*y(k,90) + 3.000_r8*rxt(k,210) & - *y(k,91) + 2.000_r8*rxt(k,212)*y(k,92) + rxt(k,208)*y(k,93) & - + rxt(k,307)*y(k,94) + rxt(k,206)*y(k,96) + rxt(k,218)*y(k,107) & - + 2.000_r8*rxt(k,214)*y(k,108) + rxt(k,205)*y(k,109) & - + 3.000_r8*rxt(k,217)*y(k,110) + 2.000_r8*rxt(k,209)*y(k,111) & - + rxt(k,215)*y(k,112) + rxt(k,201)*y(k,113) + rxt(k,207) & - *y(k,124) - mat(k,1402) = 3.000_r8*rxt(k,189)*y(k,99) + 4.000_r8*rxt(k,213)*y(k,101) & - + 5.000_r8*rxt(k,172)*y(k,103) + 2.000_r8*rxt(k,225)*y(k,115) & - + rxt(k,207)*y(k,118) - mat(k,1446) = mat(k,1446) + rxt(k,158)*y(k,87) + 2.000_r8*rxt(k,152)*y(k,91) & - + rxt(k,154)*y(k,92) + rxt(k,155)*y(k,108) + 2.000_r8*rxt(k,159) & - *y(k,110) + rxt(k,151)*y(k,111) - mat(k,197) = mat(k,197) + rxt(k,325)*y(k,94) - mat(k,795) = rxt(k,531)*y(k,16) + rxt(k,534)*y(k,21) + rxt(k,414)*y(k,39) & - + rxt(k,415)*y(k,41) + rxt(k,499)*y(k,43) + rxt(k,470)*y(k,47) & - + rxt(k,446)*y(k,49) + rxt(k,422)*y(k,50) + rxt(k,473)*y(k,52) & - + rxt(k,339)*y(k,53) + rxt(k,416)*y(k,97) + 2.000_r8*rxt(k,419) & - *y(k,130) - mat(k,1693) = rxt(k,343)*y(k,38) + rxt(k,344)*y(k,47) - mat(k,1728) = mat(k,1728) + rxt(k,352)*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) = mat(k, 67) + lmat(k, 67) - 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) = lmat(k, 104) - mat(k, 106) = mat(k, 106) + lmat(k, 106) - mat(k, 108) = mat(k, 108) + lmat(k, 108) - mat(k, 109) = lmat(k, 109) - mat(k, 111) = lmat(k, 111) - mat(k, 115) = mat(k, 115) + lmat(k, 115) - mat(k, 117) = lmat(k, 117) - mat(k, 121) = mat(k, 121) + lmat(k, 121) - mat(k, 128) = mat(k, 128) + lmat(k, 128) - mat(k, 133) = mat(k, 133) + lmat(k, 133) - mat(k, 137) = mat(k, 137) + lmat(k, 137) - mat(k, 138) = lmat(k, 138) - mat(k, 139) = lmat(k, 139) - mat(k, 140) = mat(k, 140) + lmat(k, 140) - mat(k, 141) = mat(k, 141) + lmat(k, 141) - mat(k, 142) = lmat(k, 142) - mat(k, 143) = lmat(k, 143) - mat(k, 145) = mat(k, 145) + lmat(k, 145) - mat(k, 147) = mat(k, 147) + lmat(k, 147) - mat(k, 152) = mat(k, 152) + lmat(k, 152) - mat(k, 153) = lmat(k, 153) - mat(k, 157) = mat(k, 157) + lmat(k, 157) - mat(k, 159) = mat(k, 159) + lmat(k, 159) - mat(k, 169) = mat(k, 169) + lmat(k, 169) - mat(k, 176) = mat(k, 176) + lmat(k, 176) - mat(k, 177) = mat(k, 177) + lmat(k, 177) - mat(k, 179) = lmat(k, 179) - mat(k, 182) = mat(k, 182) + lmat(k, 182) - mat(k, 190) = mat(k, 190) + lmat(k, 190) - mat(k, 195) = lmat(k, 195) - mat(k, 197) = mat(k, 197) + lmat(k, 197) - mat(k, 198) = lmat(k, 198) - mat(k, 199) = mat(k, 199) + lmat(k, 199) - mat(k, 200) = lmat(k, 200) - mat(k, 203) = lmat(k, 203) - 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, 210) = lmat(k, 210) - mat(k, 218) = mat(k, 218) + lmat(k, 218) - mat(k, 219) = lmat(k, 219) - mat(k, 221) = mat(k, 221) + lmat(k, 221) - mat(k, 226) = mat(k, 226) + lmat(k, 226) - mat(k, 227) = mat(k, 227) + lmat(k, 227) - mat(k, 231) = mat(k, 231) + lmat(k, 231) - mat(k, 235) = mat(k, 235) + lmat(k, 235) - mat(k, 236) = mat(k, 236) + lmat(k, 236) - mat(k, 237) = mat(k, 237) + lmat(k, 237) - mat(k, 242) = mat(k, 242) + lmat(k, 242) - mat(k, 246) = mat(k, 246) + lmat(k, 246) - mat(k, 251) = mat(k, 251) + lmat(k, 251) - mat(k, 252) = lmat(k, 252) - mat(k, 255) = lmat(k, 255) - mat(k, 258) = mat(k, 258) + lmat(k, 258) - mat(k, 259) = mat(k, 259) + lmat(k, 259) - mat(k, 261) = mat(k, 261) + lmat(k, 261) - mat(k, 262) = mat(k, 262) + lmat(k, 262) - mat(k, 263) = mat(k, 263) + lmat(k, 263) - mat(k, 265) = mat(k, 265) + lmat(k, 265) - mat(k, 266) = lmat(k, 266) - mat(k, 269) = mat(k, 269) + lmat(k, 269) - mat(k, 279) = mat(k, 279) + lmat(k, 279) - mat(k, 284) = lmat(k, 284) - mat(k, 285) = mat(k, 285) + lmat(k, 285) - mat(k, 286) = lmat(k, 286) - mat(k, 288) = lmat(k, 288) - mat(k, 289) = lmat(k, 289) - mat(k, 291) = lmat(k, 291) - mat(k, 293) = mat(k, 293) + lmat(k, 293) - mat(k, 296) = lmat(k, 296) - mat(k, 305) = mat(k, 305) + lmat(k, 305) - mat(k, 316) = mat(k, 316) + lmat(k, 316) - mat(k, 331) = mat(k, 331) + lmat(k, 331) - mat(k, 343) = mat(k, 343) + lmat(k, 343) - mat(k, 344) = lmat(k, 344) - mat(k, 356) = mat(k, 356) + lmat(k, 356) - mat(k, 358) = lmat(k, 358) - mat(k, 360) = mat(k, 360) + lmat(k, 360) - mat(k, 372) = mat(k, 372) + lmat(k, 372) - mat(k, 374) = mat(k, 374) + lmat(k, 374) - mat(k, 375) = lmat(k, 375) - mat(k, 383) = mat(k, 383) + lmat(k, 383) - mat(k, 390) = mat(k, 390) + lmat(k, 390) - mat(k, 391) = lmat(k, 391) - mat(k, 404) = mat(k, 404) + lmat(k, 404) - mat(k, 405) = mat(k, 405) + lmat(k, 405) - mat(k, 416) = lmat(k, 416) - mat(k, 418) = mat(k, 418) + lmat(k, 418) - mat(k, 419) = mat(k, 419) + lmat(k, 419) - mat(k, 421) = lmat(k, 421) - mat(k, 422) = mat(k, 422) + lmat(k, 422) - mat(k, 423) = mat(k, 423) + lmat(k, 423) - mat(k, 425) = mat(k, 425) + lmat(k, 425) - mat(k, 432) = lmat(k, 432) - mat(k, 433) = mat(k, 433) + lmat(k, 433) - mat(k, 451) = mat(k, 451) + lmat(k, 451) - mat(k, 465) = mat(k, 465) + lmat(k, 465) - mat(k, 484) = mat(k, 484) + lmat(k, 484) - mat(k, 485) = lmat(k, 485) - mat(k, 492) = mat(k, 492) + lmat(k, 492) - mat(k, 500) = mat(k, 500) + lmat(k, 500) - mat(k, 501) = lmat(k, 501) - mat(k, 517) = mat(k, 517) + lmat(k, 517) - mat(k, 520) = mat(k, 520) + lmat(k, 520) - mat(k, 523) = lmat(k, 523) - mat(k, 537) = mat(k, 537) + lmat(k, 537) - mat(k, 541) = mat(k, 541) + lmat(k, 541) - mat(k, 542) = lmat(k, 542) - mat(k, 557) = mat(k, 557) + lmat(k, 557) - mat(k, 564) = mat(k, 564) + lmat(k, 564) - mat(k, 565) = mat(k, 565) + lmat(k, 565) - mat(k, 580) = mat(k, 580) + lmat(k, 580) - mat(k, 582) = mat(k, 582) + lmat(k, 582) - mat(k, 585) = lmat(k, 585) - mat(k, 587) = mat(k, 587) + lmat(k, 587) - mat(k, 596) = mat(k, 596) + lmat(k, 596) - mat(k, 606) = mat(k, 606) + lmat(k, 606) - mat(k, 607) = mat(k, 607) + lmat(k, 607) - mat(k, 609) = mat(k, 609) + lmat(k, 609) - mat(k, 612) = lmat(k, 612) - mat(k, 614) = mat(k, 614) + lmat(k, 614) - mat(k, 615) = mat(k, 615) + lmat(k, 615) - mat(k, 617) = lmat(k, 617) - mat(k, 618) = mat(k, 618) + lmat(k, 618) - mat(k, 619) = lmat(k, 619) - mat(k, 620) = mat(k, 620) + lmat(k, 620) - mat(k, 622) = mat(k, 622) + lmat(k, 622) - mat(k, 626) = mat(k, 626) + lmat(k, 626) - mat(k, 627) = mat(k, 627) + lmat(k, 627) - mat(k, 633) = lmat(k, 633) - mat(k, 634) = mat(k, 634) + lmat(k, 634) - mat(k, 641) = mat(k, 641) + lmat(k, 641) - mat(k, 658) = lmat(k, 658) - mat(k, 671) = mat(k, 671) + lmat(k, 671) - mat(k, 694) = mat(k, 694) + lmat(k, 694) - mat(k, 695) = lmat(k, 695) - mat(k, 702) = mat(k, 702) + lmat(k, 702) - mat(k, 717) = mat(k, 717) + lmat(k, 717) - mat(k, 728) = mat(k, 728) + lmat(k, 728) - mat(k, 749) = lmat(k, 749) - mat(k, 750) = lmat(k, 750) - mat(k, 767) = mat(k, 767) + lmat(k, 767) - mat(k, 769) = mat(k, 769) + lmat(k, 769) - mat(k, 774) = mat(k, 774) + lmat(k, 774) - mat(k, 775) = mat(k, 775) + lmat(k, 775) - mat(k, 777) = mat(k, 777) + lmat(k, 777) - mat(k, 795) = mat(k, 795) + lmat(k, 795) - mat(k, 803) = mat(k, 803) + lmat(k, 803) - mat(k, 825) = lmat(k, 825) - mat(k, 844) = mat(k, 844) + lmat(k, 844) - mat(k, 868) = mat(k, 868) + lmat(k, 868) - mat(k, 873) = lmat(k, 873) - mat(k, 874) = lmat(k, 874) - mat(k, 882) = mat(k, 882) + lmat(k, 882) - mat(k, 886) = mat(k, 886) + lmat(k, 886) - mat(k, 896) = mat(k, 896) + lmat(k, 896) - mat(k, 911) = mat(k, 911) + lmat(k, 911) - mat(k, 919) = mat(k, 919) + lmat(k, 919) - mat(k, 928) = mat(k, 928) + lmat(k, 928) - mat(k, 936) = mat(k, 936) + lmat(k, 936) - mat(k, 944) = mat(k, 944) + lmat(k, 944) - mat(k, 950) = lmat(k, 950) - mat(k, 951) = lmat(k, 951) - mat(k, 974) = mat(k, 974) + lmat(k, 974) - mat(k,1017) = mat(k,1017) + lmat(k,1017) - mat(k,1060) = mat(k,1060) + lmat(k,1060) - mat(k,1071) = lmat(k,1071) - mat(k,1078) = mat(k,1078) + lmat(k,1078) - mat(k,1100) = mat(k,1100) + lmat(k,1100) - mat(k,1105) = mat(k,1105) + lmat(k,1105) - mat(k,1117) = mat(k,1117) + lmat(k,1117) - mat(k,1147) = mat(k,1147) + lmat(k,1147) - mat(k,1187) = mat(k,1187) + lmat(k,1187) - mat(k,1189) = mat(k,1189) + lmat(k,1189) - mat(k,1191) = mat(k,1191) + lmat(k,1191) - mat(k,1194) = mat(k,1194) + lmat(k,1194) - mat(k,1196) = mat(k,1196) + lmat(k,1196) - mat(k,1197) = mat(k,1197) + lmat(k,1197) - mat(k,1223) = mat(k,1223) + lmat(k,1223) - mat(k,1244) = mat(k,1244) + lmat(k,1244) - mat(k,1254) = mat(k,1254) + lmat(k,1254) - mat(k,1261) = mat(k,1261) + lmat(k,1261) - mat(k,1271) = mat(k,1271) + lmat(k,1271) - mat(k,1275) = mat(k,1275) + lmat(k,1275) - mat(k,1279) = mat(k,1279) + lmat(k,1279) - mat(k,1306) = mat(k,1306) + lmat(k,1306) - mat(k,1314) = mat(k,1314) + lmat(k,1314) - mat(k,1316) = mat(k,1316) + lmat(k,1316) - mat(k,1342) = mat(k,1342) + lmat(k,1342) - mat(k,1356) = mat(k,1356) + lmat(k,1356) - mat(k,1359) = lmat(k,1359) - mat(k,1373) = lmat(k,1373) - mat(k,1379) = mat(k,1379) + lmat(k,1379) - mat(k,1389) = mat(k,1389) + lmat(k,1389) - mat(k,1392) = mat(k,1392) + lmat(k,1392) - mat(k,1426) = mat(k,1426) + lmat(k,1426) - mat(k,1437) = mat(k,1437) + lmat(k,1437) - mat(k,1440) = mat(k,1440) + lmat(k,1440) - mat(k,1467) = mat(k,1467) + lmat(k,1467) - mat(k,1481) = mat(k,1481) + lmat(k,1481) - mat(k,1484) = mat(k,1484) + lmat(k,1484) - mat(k,1486) = mat(k,1486) + lmat(k,1486) - mat(k,1487) = mat(k,1487) + lmat(k,1487) - mat(k,1527) = mat(k,1527) + lmat(k,1527) - mat(k,1533) = lmat(k,1533) - mat(k,1534) = mat(k,1534) + lmat(k,1534) - mat(k,1537) = mat(k,1537) + lmat(k,1537) - mat(k,1552) = mat(k,1552) + lmat(k,1552) - mat(k,1555) = mat(k,1555) + lmat(k,1555) - mat(k,1569) = mat(k,1569) + lmat(k,1569) - mat(k,1570) = mat(k,1570) + lmat(k,1570) - mat(k,1586) = mat(k,1586) + lmat(k,1586) - mat(k,1609) = mat(k,1609) + lmat(k,1609) - mat(k,1627) = mat(k,1627) + lmat(k,1627) - mat(k,1638) = lmat(k,1638) - mat(k,1653) = mat(k,1653) + lmat(k,1653) - mat(k,1657) = mat(k,1657) + lmat(k,1657) - mat(k,1663) = lmat(k,1663) - mat(k,1668) = mat(k,1668) + lmat(k,1668) - mat(k,1670) = mat(k,1670) + lmat(k,1670) - mat(k,1690) = mat(k,1690) + lmat(k,1690) - mat(k,1704) = lmat(k,1704) - mat(k,1705) = mat(k,1705) + lmat(k,1705) - mat(k,1723) = mat(k,1723) + lmat(k,1723) - mat(k,1726) = mat(k,1726) + lmat(k,1726) - mat(k,1729) = lmat(k,1729) - mat(k,1769) = mat(k,1769) + lmat(k,1769) - mat(k,1770) = mat(k,1770) + lmat(k,1770) - mat(k,1793) = lmat(k,1793) - mat(k,1799) = mat(k,1799) + lmat(k,1799) - mat(k,1803) = mat(k,1803) + lmat(k,1803) - mat(k,1814) = lmat(k,1814) - mat(k,1823) = lmat(k,1823) - mat(k,1828) = mat(k,1828) + lmat(k,1828) - mat(k, 162) = 0._r8 - mat(k, 167) = 0._r8 - mat(k, 185) = 0._r8 - mat(k, 188) = 0._r8 - mat(k, 193) = 0._r8 - mat(k, 196) = 0._r8 - mat(k, 201) = 0._r8 - mat(k, 202) = 0._r8 - mat(k, 204) = 0._r8 - mat(k, 222) = 0._r8 - mat(k, 256) = 0._r8 - mat(k, 268) = 0._r8 - mat(k, 292) = 0._r8 - mat(k, 294) = 0._r8 - mat(k, 308) = 0._r8 - mat(k, 311) = 0._r8 - mat(k, 315) = 0._r8 - mat(k, 332) = 0._r8 - mat(k, 335) = 0._r8 - mat(k, 337) = 0._r8 - mat(k, 340) = 0._r8 - mat(k, 341) = 0._r8 - mat(k, 363) = 0._r8 - mat(k, 373) = 0._r8 - mat(k, 454) = 0._r8 - mat(k, 456) = 0._r8 - mat(k, 458) = 0._r8 - mat(k, 460) = 0._r8 - mat(k, 461) = 0._r8 - mat(k, 464) = 0._r8 - mat(k, 466) = 0._r8 - mat(k, 468) = 0._r8 - mat(k, 472) = 0._r8 - mat(k, 473) = 0._r8 - mat(k, 475) = 0._r8 - mat(k, 477) = 0._r8 - mat(k, 478) = 0._r8 - mat(k, 479) = 0._r8 - mat(k, 502) = 0._r8 - mat(k, 512) = 0._r8 - mat(k, 515) = 0._r8 - mat(k, 552) = 0._r8 - mat(k, 555) = 0._r8 - mat(k, 566) = 0._r8 - mat(k, 567) = 0._r8 - mat(k, 571) = 0._r8 - mat(k, 573) = 0._r8 - mat(k, 574) = 0._r8 - mat(k, 576) = 0._r8 - mat(k, 577) = 0._r8 - mat(k, 581) = 0._r8 - mat(k, 586) = 0._r8 - mat(k, 588) = 0._r8 - mat(k, 591) = 0._r8 - mat(k, 593) = 0._r8 - mat(k, 594) = 0._r8 - mat(k, 597) = 0._r8 - mat(k, 600) = 0._r8 - mat(k, 601) = 0._r8 - mat(k, 603) = 0._r8 - mat(k, 604) = 0._r8 - mat(k, 611) = 0._r8 - mat(k, 613) = 0._r8 - mat(k, 621) = 0._r8 - mat(k, 625) = 0._r8 - mat(k, 629) = 0._r8 - mat(k, 630) = 0._r8 - mat(k, 631) = 0._r8 - mat(k, 632) = 0._r8 - mat(k, 635) = 0._r8 - mat(k, 636) = 0._r8 - mat(k, 637) = 0._r8 - mat(k, 643) = 0._r8 - mat(k, 647) = 0._r8 - mat(k, 660) = 0._r8 - mat(k, 664) = 0._r8 - mat(k, 665) = 0._r8 - mat(k, 666) = 0._r8 - mat(k, 696) = 0._r8 - mat(k, 703) = 0._r8 - mat(k, 708) = 0._r8 - mat(k, 726) = 0._r8 - mat(k, 727) = 0._r8 - mat(k, 730) = 0._r8 - mat(k, 739) = 0._r8 - mat(k, 740) = 0._r8 - mat(k, 741) = 0._r8 - mat(k, 745) = 0._r8 - mat(k, 746) = 0._r8 - mat(k, 747) = 0._r8 - mat(k, 761) = 0._r8 - mat(k, 773) = 0._r8 - mat(k, 776) = 0._r8 - mat(k, 779) = 0._r8 - mat(k, 787) = 0._r8 - mat(k, 788) = 0._r8 - mat(k, 792) = 0._r8 - mat(k, 793) = 0._r8 - mat(k, 794) = 0._r8 - mat(k, 799) = 0._r8 - mat(k, 804) = 0._r8 - mat(k, 806) = 0._r8 - mat(k, 812) = 0._r8 - mat(k, 815) = 0._r8 - mat(k, 835) = 0._r8 - mat(k, 838) = 0._r8 - mat(k, 842) = 0._r8 - mat(k, 845) = 0._r8 - mat(k, 850) = 0._r8 - mat(k, 852) = 0._r8 - mat(k, 855) = 0._r8 - mat(k, 856) = 0._r8 - mat(k, 859) = 0._r8 - mat(k, 863) = 0._r8 - mat(k, 876) = 0._r8 - mat(k, 878) = 0._r8 - mat(k, 881) = 0._r8 - mat(k, 885) = 0._r8 - mat(k, 888) = 0._r8 - mat(k, 889) = 0._r8 - mat(k, 890) = 0._r8 - mat(k, 892) = 0._r8 - mat(k, 897) = 0._r8 - mat(k, 899) = 0._r8 - mat(k, 901) = 0._r8 - mat(k, 902) = 0._r8 - mat(k, 907) = 0._r8 - mat(k, 908) = 0._r8 - mat(k, 913) = 0._r8 - mat(k, 918) = 0._r8 - mat(k, 921) = 0._r8 - mat(k, 925) = 0._r8 - mat(k, 929) = 0._r8 - mat(k, 930) = 0._r8 - mat(k, 931) = 0._r8 - mat(k, 933) = 0._r8 - mat(k, 937) = 0._r8 - mat(k, 938) = 0._r8 - mat(k, 940) = 0._r8 - mat(k, 942) = 0._r8 - mat(k, 948) = 0._r8 - mat(k, 949) = 0._r8 - mat(k, 964) = 0._r8 - mat(k, 968) = 0._r8 - mat(k, 973) = 0._r8 - mat(k, 975) = 0._r8 - mat(k, 976) = 0._r8 - mat(k, 977) = 0._r8 - mat(k, 980) = 0._r8 - mat(k, 985) = 0._r8 - mat(k, 987) = 0._r8 - mat(k, 991) = 0._r8 - mat(k, 992) = 0._r8 - mat(k, 993) = 0._r8 - mat(k, 996) = 0._r8 - mat(k,1010) = 0._r8 - mat(k,1015) = 0._r8 - mat(k,1016) = 0._r8 - mat(k,1018) = 0._r8 - mat(k,1019) = 0._r8 - mat(k,1020) = 0._r8 - mat(k,1022) = 0._r8 - mat(k,1027) = 0._r8 - mat(k,1029) = 0._r8 - mat(k,1033) = 0._r8 - mat(k,1034) = 0._r8 - mat(k,1035) = 0._r8 - mat(k,1052) = 0._r8 - mat(k,1057) = 0._r8 - mat(k,1058) = 0._r8 - mat(k,1059) = 0._r8 - mat(k,1061) = 0._r8 - mat(k,1062) = 0._r8 - mat(k,1069) = 0._r8 - mat(k,1072) = 0._r8 - mat(k,1075) = 0._r8 - mat(k,1076) = 0._r8 - mat(k,1077) = 0._r8 - mat(k,1092) = 0._r8 - mat(k,1095) = 0._r8 - mat(k,1099) = 0._r8 - mat(k,1101) = 0._r8 - mat(k,1102) = 0._r8 - mat(k,1103) = 0._r8 - mat(k,1104) = 0._r8 - mat(k,1106) = 0._r8 - mat(k,1108) = 0._r8 - mat(k,1111) = 0._r8 - mat(k,1113) = 0._r8 - mat(k,1115) = 0._r8 - mat(k,1121) = 0._r8 - mat(k,1122) = 0._r8 - mat(k,1142) = 0._r8 - mat(k,1143) = 0._r8 - mat(k,1145) = 0._r8 - mat(k,1146) = 0._r8 - mat(k,1154) = 0._r8 - mat(k,1156) = 0._r8 - mat(k,1160) = 0._r8 - mat(k,1161) = 0._r8 - mat(k,1162) = 0._r8 - mat(k,1168) = 0._r8 - mat(k,1169) = 0._r8 - mat(k,1170) = 0._r8 - mat(k,1171) = 0._r8 - mat(k,1172) = 0._r8 - mat(k,1173) = 0._r8 - mat(k,1175) = 0._r8 - mat(k,1176) = 0._r8 - mat(k,1179) = 0._r8 - mat(k,1180) = 0._r8 - mat(k,1181) = 0._r8 - mat(k,1182) = 0._r8 - mat(k,1183) = 0._r8 - mat(k,1184) = 0._r8 - mat(k,1185) = 0._r8 - mat(k,1186) = 0._r8 - mat(k,1188) = 0._r8 - mat(k,1190) = 0._r8 - mat(k,1192) = 0._r8 - mat(k,1193) = 0._r8 - mat(k,1195) = 0._r8 - mat(k,1198) = 0._r8 - mat(k,1199) = 0._r8 - mat(k,1200) = 0._r8 - mat(k,1201) = 0._r8 - mat(k,1202) = 0._r8 - mat(k,1206) = 0._r8 - mat(k,1207) = 0._r8 - mat(k,1210) = 0._r8 - mat(k,1215) = 0._r8 - mat(k,1217) = 0._r8 - mat(k,1218) = 0._r8 - mat(k,1219) = 0._r8 - mat(k,1220) = 0._r8 - mat(k,1222) = 0._r8 - mat(k,1226) = 0._r8 - mat(k,1228) = 0._r8 - mat(k,1229) = 0._r8 - mat(k,1230) = 0._r8 - mat(k,1235) = 0._r8 - mat(k,1236) = 0._r8 - mat(k,1251) = 0._r8 - mat(k,1252) = 0._r8 - mat(k,1253) = 0._r8 - mat(k,1255) = 0._r8 - mat(k,1256) = 0._r8 - mat(k,1257) = 0._r8 - mat(k,1259) = 0._r8 - mat(k,1262) = 0._r8 - mat(k,1265) = 0._r8 - mat(k,1266) = 0._r8 - mat(k,1267) = 0._r8 - mat(k,1268) = 0._r8 - mat(k,1269) = 0._r8 - mat(k,1272) = 0._r8 - mat(k,1273) = 0._r8 - mat(k,1276) = 0._r8 - mat(k,1277) = 0._r8 - mat(k,1280) = 0._r8 - mat(k,1281) = 0._r8 - mat(k,1283) = 0._r8 - mat(k,1284) = 0._r8 - mat(k,1294) = 0._r8 - mat(k,1295) = 0._r8 - mat(k,1296) = 0._r8 - mat(k,1297) = 0._r8 - mat(k,1304) = 0._r8 - mat(k,1305) = 0._r8 - mat(k,1307) = 0._r8 - mat(k,1308) = 0._r8 - mat(k,1309) = 0._r8 - mat(k,1310) = 0._r8 - mat(k,1312) = 0._r8 - mat(k,1313) = 0._r8 - mat(k,1315) = 0._r8 - mat(k,1319) = 0._r8 - mat(k,1320) = 0._r8 - mat(k,1321) = 0._r8 - mat(k,1322) = 0._r8 - mat(k,1327) = 0._r8 - mat(k,1332) = 0._r8 - mat(k,1334) = 0._r8 - mat(k,1337) = 0._r8 - mat(k,1338) = 0._r8 - mat(k,1344) = 0._r8 - mat(k,1345) = 0._r8 - mat(k,1346) = 0._r8 - mat(k,1347) = 0._r8 - mat(k,1348) = 0._r8 - mat(k,1349) = 0._r8 - mat(k,1350) = 0._r8 - mat(k,1351) = 0._r8 - mat(k,1353) = 0._r8 - mat(k,1354) = 0._r8 - mat(k,1358) = 0._r8 - mat(k,1360) = 0._r8 - mat(k,1361) = 0._r8 - mat(k,1362) = 0._r8 - mat(k,1364) = 0._r8 - mat(k,1366) = 0._r8 - mat(k,1371) = 0._r8 - mat(k,1377) = 0._r8 - mat(k,1378) = 0._r8 - mat(k,1387) = 0._r8 - mat(k,1399) = 0._r8 - mat(k,1420) = 0._r8 - mat(k,1425) = 0._r8 - mat(k,1427) = 0._r8 - mat(k,1428) = 0._r8 - mat(k,1429) = 0._r8 - mat(k,1430) = 0._r8 - mat(k,1432) = 0._r8 - mat(k,1439) = 0._r8 - mat(k,1443) = 0._r8 - mat(k,1444) = 0._r8 - mat(k,1445) = 0._r8 - mat(k,1449) = 0._r8 - mat(k,1456) = 0._r8 - mat(k,1457) = 0._r8 - mat(k,1458) = 0._r8 - mat(k,1462) = 0._r8 - mat(k,1463) = 0._r8 - mat(k,1469) = 0._r8 - mat(k,1472) = 0._r8 - mat(k,1473) = 0._r8 - mat(k,1474) = 0._r8 - mat(k,1476) = 0._r8 - mat(k,1478) = 0._r8 - mat(k,1480) = 0._r8 - mat(k,1483) = 0._r8 - mat(k,1485) = 0._r8 - mat(k,1491) = 0._r8 - mat(k,1508) = 0._r8 - mat(k,1513) = 0._r8 - mat(k,1514) = 0._r8 - mat(k,1515) = 0._r8 - mat(k,1517) = 0._r8 - mat(k,1518) = 0._r8 - mat(k,1525) = 0._r8 - mat(k,1528) = 0._r8 - mat(k,1531) = 0._r8 - mat(k,1532) = 0._r8 - mat(k,1543) = 0._r8 - mat(k,1546) = 0._r8 - mat(k,1556) = 0._r8 - mat(k,1557) = 0._r8 - mat(k,1559) = 0._r8 - mat(k,1561) = 0._r8 - mat(k,1563) = 0._r8 - mat(k,1564) = 0._r8 - mat(k,1565) = 0._r8 - mat(k,1568) = 0._r8 - mat(k,1572) = 0._r8 - mat(k,1574) = 0._r8 - mat(k,1585) = 0._r8 - mat(k,1591) = 0._r8 - mat(k,1602) = 0._r8 - mat(k,1613) = 0._r8 - mat(k,1614) = 0._r8 - mat(k,1616) = 0._r8 - mat(k,1621) = 0._r8 - mat(k,1625) = 0._r8 - mat(k,1631) = 0._r8 - mat(k,1632) = 0._r8 - mat(k,1637) = 0._r8 - mat(k,1651) = 0._r8 - mat(k,1656) = 0._r8 - mat(k,1659) = 0._r8 - mat(k,1666) = 0._r8 - mat(k,1669) = 0._r8 - mat(k,1673) = 0._r8 - mat(k,1674) = 0._r8 - mat(k,1675) = 0._r8 - mat(k,1677) = 0._r8 - mat(k,1678) = 0._r8 - mat(k,1680) = 0._r8 - mat(k,1682) = 0._r8 - mat(k,1683) = 0._r8 - mat(k,1684) = 0._r8 - mat(k,1686) = 0._r8 - mat(k,1687) = 0._r8 - mat(k,1691) = 0._r8 - mat(k,1692) = 0._r8 - mat(k,1695) = 0._r8 - mat(k,1698) = 0._r8 - mat(k,1699) = 0._r8 - mat(k,1702) = 0._r8 - mat(k,1708) = 0._r8 - mat(k,1709) = 0._r8 - mat(k,1710) = 0._r8 - mat(k,1712) = 0._r8 - mat(k,1713) = 0._r8 - mat(k,1718) = 0._r8 - mat(k,1719) = 0._r8 - mat(k,1721) = 0._r8 - mat(k,1727) = 0._r8 - mat(k,1730) = 0._r8 - mat(k,1744) = 0._r8 - mat(k,1749) = 0._r8 - mat(k,1750) = 0._r8 - mat(k,1751) = 0._r8 - mat(k,1752) = 0._r8 - mat(k,1753) = 0._r8 - mat(k,1754) = 0._r8 - mat(k,1761) = 0._r8 - mat(k,1764) = 0._r8 - mat(k,1767) = 0._r8 - mat(k,1768) = 0._r8 - mat(k,1785) = 0._r8 - mat(k,1786) = 0._r8 - mat(k,1789) = 0._r8 - mat(k,1792) = 0._r8 - mat(k,1797) = 0._r8 - mat(k,1798) = 0._r8 - mat(k,1802) = 0._r8 - mat(k,1805) = 0._r8 - mat(k,1806) = 0._r8 - mat(k,1807) = 0._r8 - mat(k,1811) = 0._r8 - mat(k,1813) = 0._r8 - mat(k,1816) = 0._r8 - mat(k,1818) = 0._r8 - mat(k,1820) = 0._r8 - mat(k,1822) = 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, 133) = mat(k, 133) - dti(k) - mat(k, 137) = mat(k, 137) - dti(k) - mat(k, 145) = mat(k, 145) - dti(k) - mat(k, 152) = mat(k, 152) - dti(k) - mat(k, 159) = mat(k, 159) - dti(k) - mat(k, 169) = mat(k, 169) - dti(k) - mat(k, 176) = mat(k, 176) - dti(k) - mat(k, 182) = mat(k, 182) - dti(k) - mat(k, 190) = mat(k, 190) - dti(k) - mat(k, 199) = mat(k, 199) - dti(k) - mat(k, 209) = mat(k, 209) - dti(k) - mat(k, 218) = mat(k, 218) - dti(k) - mat(k, 226) = mat(k, 226) - dti(k) - mat(k, 235) = mat(k, 235) - dti(k) - mat(k, 242) = mat(k, 242) - dti(k) - mat(k, 251) = mat(k, 251) - dti(k) - mat(k, 259) = mat(k, 259) - dti(k) - mat(k, 269) = mat(k, 269) - dti(k) - mat(k, 279) = mat(k, 279) - dti(k) - mat(k, 293) = mat(k, 293) - dti(k) - mat(k, 305) = mat(k, 305) - dti(k) - mat(k, 316) = mat(k, 316) - dti(k) - mat(k, 331) = mat(k, 331) - dti(k) - mat(k, 343) = mat(k, 343) - dti(k) - mat(k, 360) = mat(k, 360) - dti(k) - mat(k, 374) = mat(k, 374) - dti(k) - mat(k, 390) = mat(k, 390) - dti(k) - mat(k, 405) = mat(k, 405) - dti(k) - mat(k, 419) = mat(k, 419) - dti(k) - mat(k, 433) = mat(k, 433) - dti(k) - mat(k, 451) = mat(k, 451) - dti(k) - mat(k, 465) = mat(k, 465) - dti(k) - mat(k, 484) = mat(k, 484) - dti(k) - mat(k, 500) = mat(k, 500) - dti(k) - mat(k, 520) = mat(k, 520) - dti(k) - mat(k, 541) = mat(k, 541) - dti(k) - mat(k, 565) = mat(k, 565) - dti(k) - mat(k, 587) = mat(k, 587) - dti(k) - mat(k, 618) = mat(k, 618) - dti(k) - mat(k, 641) = mat(k, 641) - dti(k) - mat(k, 671) = mat(k, 671) - dti(k) - mat(k, 694) = mat(k, 694) - dti(k) - mat(k, 728) = mat(k, 728) - dti(k) - mat(k, 775) = mat(k, 775) - dti(k) - mat(k, 803) = mat(k, 803) - dti(k) - mat(k, 844) = mat(k, 844) - dti(k) - mat(k, 886) = mat(k, 886) - dti(k) - mat(k, 928) = mat(k, 928) - dti(k) - mat(k, 974) = mat(k, 974) - dti(k) - mat(k,1017) = mat(k,1017) - dti(k) - mat(k,1060) = mat(k,1060) - dti(k) - mat(k,1105) = mat(k,1105) - dti(k) - mat(k,1147) = mat(k,1147) - dti(k) - mat(k,1187) = mat(k,1187) - dti(k) - mat(k,1223) = mat(k,1223) - dti(k) - mat(k,1271) = mat(k,1271) - dti(k) - mat(k,1316) = mat(k,1316) - dti(k) - mat(k,1356) = mat(k,1356) - dti(k) - mat(k,1392) = mat(k,1392) - dti(k) - mat(k,1437) = mat(k,1437) - dti(k) - mat(k,1484) = mat(k,1484) - dti(k) - mat(k,1527) = mat(k,1527) - dti(k) - mat(k,1569) = mat(k,1569) - dti(k) - mat(k,1627) = mat(k,1627) - dti(k) - mat(k,1657) = mat(k,1657) - dti(k) - mat(k,1690) = mat(k,1690) - dti(k) - mat(k,1726) = mat(k,1726) - dti(k) - mat(k,1769) = mat(k,1769) - dti(k) - mat(k,1828) = mat(k,1828) - 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_phtadj.F90 b/src/chemistry/pp_waccm_mad_mam4/mo_phtadj.F90 index c37061b525..e53b559a64 100644 --- a/src/chemistry/pp_waccm_mad_mam4/mo_phtadj.F90 +++ b/src/chemistry/pp_waccm_mad_mam4/mo_phtadj.F90 @@ -20,7 +20,6 @@ subroutine phtadj( p_rate, inv, m, ncol, nlev ) real(r8) :: im(ncol,nlev) do k = 1,nlev im(:ncol,k) = 1._r8 / m(:ncol,k) - p_rate(:,k, 66) = p_rate(:,k, 66) * inv(:,k, 2) * im(:,k) p_rate(:,k, 67) = p_rate(:,k, 67) * inv(:,k, 2) * im(:,k) p_rate(:,k, 68) = p_rate(:,k, 68) * inv(:,k, 2) * im(:,k) p_rate(:,k, 69) = p_rate(:,k, 69) * inv(:,k, 2) * im(:,k) @@ -28,6 +27,7 @@ subroutine phtadj( p_rate, inv, m, ncol, nlev ) p_rate(:,k, 71) = p_rate(:,k, 71) * inv(:,k, 2) * im(:,k) p_rate(:,k, 72) = p_rate(:,k, 72) * inv(:,k, 2) * im(:,k) p_rate(:,k, 73) = p_rate(:,k, 73) * inv(:,k, 2) * im(:,k) + p_rate(:,k, 74) = p_rate(:,k, 74) * inv(:,k, 2) * im(:,k) end do end subroutine phtadj end module mo_phtadj 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 eea2e957b2..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,1013 +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,474)* y(k,121) + rxt(k,31) + het_rates(k,7))* y(k,7) - prod(k,2) = 0._r8 - loss(k,3) = (rxt(k,475)* y(k,121) + rxt(k,32) + het_rates(k,8))* y(k,8) - prod(k,3) = 0._r8 - loss(k,4) = (rxt(k,501)* y(k,121) + rxt(k,33) + het_rates(k,9))* y(k,9) - prod(k,4) = 0._r8 - loss(k,5) = (rxt(k,476)* y(k,121) + rxt(k,34) + het_rates(k,10))* y(k,10) - prod(k,5) = 0._r8 - loss(k,6) = (rxt(k,477)* y(k,121) + rxt(k,35) + het_rates(k,11))* y(k,11) - prod(k,6) = 0._r8 - loss(k,7) = (rxt(k,478)* y(k,121) + rxt(k,36) + het_rates(k,12))* y(k,12) - prod(k,7) = 0._r8 - loss(k,8) = (rxt(k,479)* y(k,121) + rxt(k,37) + het_rates(k,13))* y(k,13) - prod(k,8) = 0._r8 - loss(k,9) = (rxt(k,480)* y(k,121) + rxt(k,38) + het_rates(k,14))* y(k,14) - prod(k,9) = 0._r8 - loss(k,10) = (rxt(k,512)* y(k,85) +rxt(k,524)* y(k,121) +rxt(k,513)* y(k,130) & - + rxt(k,39) + het_rates(k,15))* y(k,15) - prod(k,10) = 0._r8 - loss(k,11) = (rxt(k,514)* y(k,85) +rxt(k,525)* y(k,121) +rxt(k,515)* y(k,130) & - + rxt(k,40) + het_rates(k,17))* y(k,17) - prod(k,11) = 0._r8 - loss(k,12) = (rxt(k,516)* y(k,130) + rxt(k,41) + het_rates(k,18))* y(k,18) - prod(k,12) = 0._r8 - loss(k,13) = (rxt(k,517)* y(k,85) +rxt(k,518)* y(k,130) + rxt(k,42) & - + het_rates(k,19))* y(k,19) - prod(k,13) = 0._r8 - loss(k,14) = (rxt(k,506)* y(k,37) +rxt(k,450)* y(k,85) + (rxt(k,537) + & - rxt(k,538) +rxt(k,539))* y(k,121) +rxt(k,535)* y(k,130) + rxt(k,24) & - + rxt(k,25) + het_rates(k,22))* y(k,22) - prod(k,14) = 0._r8 - loss(k,15) = (rxt(k,519)* y(k,85) +rxt(k,502)* y(k,121) +rxt(k,520)* y(k,130) & - + 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,367)* y(k,114) +rxt(k,311)* y(k,119) +rxt(k,315) & - * y(k,124) +rxt(k,329)* y(k,127) +rxt(k,334)* y(k,128) +rxt(k,342) & - * y(k,131) +rxt(k,351)* y(k,132) +rxt(k,591)* y(k,133) + rxt(k,26) & - + rxt(k,61) + het_rates(k,30))* y(k,30) - prod(k,17) =.440_r8*rxt(k,25)*y(k,22) - loss(k,18) = (rxt(k,503)* y(k,121) + rxt(k,51) + het_rates(k,40))* y(k,40) - prod(k,18) = 0._r8 - loss(k,19) = (rxt(k,526)* y(k,121) +rxt(k,521)* y(k,130) + rxt(k,53) & - + het_rates(k,44))* y(k,44) - prod(k,19) = 0._r8 - loss(k,20) = (rxt(k,527)* y(k,121) +rxt(k,522)* y(k,130) + rxt(k,54) & - + het_rates(k,45))* y(k,45) - prod(k,20) = 0._r8 - loss(k,21) = (rxt(k,528)* y(k,121) +rxt(k,523)* y(k,130) + rxt(k,55) & - + het_rates(k,46))* y(k,46) - prod(k,21) = 0._r8 - loss(k,22) = ((rxt(k,441) +rxt(k,442))* y(k,121) + rxt(k,13) & - + het_rates(k,55))* y(k,55) - prod(k,22) = 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,570)*y(k,51) +rxt(k,575)*y(k,51))*y(k,47) & - +rxt(k,491)*y(k,26)*y(k,4) - loss(k,80) = (2._r8*rxt(k,488)* y(k,4) + (rxt(k,489) +rxt(k,490) +rxt(k,491)) & - * y(k,26) +rxt(k,493)* y(k,60) +rxt(k,494)* y(k,61) +rxt(k,496) & - * y(k,67) +rxt(k,545)* y(k,75) +rxt(k,492)* y(k,97) +rxt(k,497) & - * y(k,130) + rxt(k,28) + het_rates(k,4))* y(k,4) - prod(k,80) = (rxt(k,29) +rxt(k,495)*y(k,67))*y(k,5) +rxt(k,505)*y(k,121) & - *y(k,43) +rxt(k,500)*y(k,67)*y(k,51) +rxt(k,487)*y(k,84)*y(k,69) - loss(k,45) = (rxt(k,495)* y(k,67) + rxt(k,29) + rxt(k,30) + rxt(k,564) & - + rxt(k,567) + rxt(k,572) + het_rates(k,5))* y(k,5) - prod(k,45) =rxt(k,494)*y(k,61)*y(k,4) - loss(k,81) = (rxt(k,529)* y(k,62) +rxt(k,530)* y(k,67) +rxt(k,485)* y(k,84) & - +rxt(k,449)* y(k,85) +rxt(k,531)* y(k,130) + rxt(k,21) + rxt(k,22) & - + het_rates(k,16))* y(k,16) - prod(k,81) = (rxt(k,456)*y(k,26) +rxt(k,533)*y(k,60))*y(k,20) + (rxt(k,23) + & - .300_r8*rxt(k,534)*y(k,130))*y(k,21) + (rxt(k,538)*y(k,121) + & - rxt(k,539)*y(k,121))*y(k,22) - loss(k,64) = (rxt(k,456)* y(k,26) +rxt(k,533)* y(k,60) +rxt(k,532)* y(k,97) & - + het_rates(k,20))* y(k,20) - prod(k,64) = (rxt(k,450)*y(k,85) +rxt(k,506)*y(k,37) +rxt(k,535)*y(k,130) + & - rxt(k,537)*y(k,121))*y(k,22) +.700_r8*rxt(k,534)*y(k,130)*y(k,21) - loss(k,35) = (rxt(k,534)* y(k,130) + rxt(k,23) + het_rates(k,21))* y(k,21) - prod(k,35) =rxt(k,532)*y(k,97)*y(k,20) - loss(k,24) = ( + rxt(k,44) + het_rates(k,24))* y(k,24) - prod(k,24) = (rxt(k,563)*y(k,52) +rxt(k,568)*y(k,27) +rxt(k,569)*y(k,52) + & - rxt(k,573)*y(k,27) +rxt(k,574)*y(k,52) +rxt(k,578)*y(k,27))*y(k,47) & - +rxt(k,458)*y(k,26)*y(k,26) +rxt(k,462)*y(k,85)*y(k,27) - loss(k,21) = ( + rxt(k,45) + rxt(k,484) + het_rates(k,25))* y(k,25) - prod(k,21) =rxt(k,483)*y(k,26)*y(k,26) - loss(k,95) = ((rxt(k,489) +rxt(k,490) +rxt(k,491))* y(k,4) +rxt(k,456) & - * y(k,20) + 2._r8*(rxt(k,457) +rxt(k,458) +rxt(k,459) +rxt(k,483)) & - * y(k,26) +rxt(k,461)* y(k,60) +rxt(k,463)* y(k,61) +rxt(k,466) & - * y(k,67) +rxt(k,546)* y(k,75) +rxt(k,115)* y(k,90) +rxt(k,127) & - * y(k,93) +rxt(k,460)* y(k,97) +rxt(k,285)* y(k,107) +rxt(k,314) & - * y(k,124) + (rxt(k,467) +rxt(k,468))* y(k,130) +rxt(k,341)* y(k,131) & - +rxt(k,350)* y(k,132) + rxt(k,46) + het_rates(k,26))* y(k,26) - prod(k,95) = (rxt(k,471)*y(k,85) +rxt(k,472)*y(k,67) +rxt(k,473)*y(k,130)) & - *y(k,52) + (rxt(k,48) +rxt(k,464)*y(k,67))*y(k,27) + (rxt(k,60) + & - rxt(k,551)*y(k,75))*y(k,70) + (rxt(k,454)*y(k,97) + & - rxt(k,455)*y(k,69))*y(k,85) +2.000_r8*rxt(k,484)*y(k,25) & - +rxt(k,482)*y(k,121)*y(k,47) - loss(k,60) = ((rxt(k,568) +rxt(k,573) +rxt(k,578))* y(k,47) +rxt(k,464) & - * y(k,67) +rxt(k,462)* y(k,85) +rxt(k,465)* y(k,130) + rxt(k,47) & - + rxt(k,48) + rxt(k,566) + rxt(k,571) + rxt(k,577) & - + het_rates(k,27))* y(k,27) - prod(k,60) =rxt(k,463)*y(k,61)*y(k,26) - loss(k,44) = ((rxt(k,536) +rxt(k,540))* y(k,130) + het_rates(k,29))* y(k,29) - prod(k,44) = (rxt(k,21) +rxt(k,22) +rxt(k,449)*y(k,85) +rxt(k,485)*y(k,84) + & - rxt(k,529)*y(k,62) +rxt(k,530)*y(k,67) +rxt(k,531)*y(k,130))*y(k,16) & - + (rxt(k,100) +rxt(k,541)*y(k,67) +rxt(k,542)*y(k,130))*y(k,71) & - +rxt(k,517)*y(k,85)*y(k,19) +rxt(k,591)*y(k,133)*y(k,30) - loss(k,23) = (rxt(k,510)* y(k,121) + rxt(k,49) + het_rates(k,31))* y(k,31) - prod(k,23) = (rxt(k,475)*y(k,8) +rxt(k,477)*y(k,11) + & - 2.000_r8*rxt(k,478)*y(k,12) +2.000_r8*rxt(k,479)*y(k,13) + & - rxt(k,480)*y(k,14) +rxt(k,501)*y(k,9) +2.000_r8*rxt(k,503)*y(k,40) + & - rxt(k,527)*y(k,45) +rxt(k,528)*y(k,46))*y(k,121) & - + (rxt(k,522)*y(k,45) +rxt(k,523)*y(k,46))*y(k,130) - loss(k,25) = (rxt(k,511)* y(k,121) + rxt(k,50) + het_rates(k,32))* y(k,32) - prod(k,25) = (rxt(k,476)*y(k,10) +rxt(k,477)*y(k,11) +rxt(k,526)*y(k,44)) & - *y(k,121) +rxt(k,521)*y(k,130)*y(k,44) - loss(k,32) = (rxt(k,555)* y(k,62) + (rxt(k,556) +rxt(k,557))* y(k,130) & - + 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,54) = (rxt(k,506)* y(k,22) +rxt(k,507)* y(k,39) +rxt(k,509)* y(k,49) & - +rxt(k,508)* y(k,134) + het_rates(k,37))* y(k,37) - prod(k,54) = (rxt(k,479)*y(k,13) +rxt(k,501)*y(k,9) + & - 2.000_r8*rxt(k,510)*y(k,31) +rxt(k,511)*y(k,32))*y(k,121) & - +2.000_r8*rxt(k,49)*y(k,31) +rxt(k,50)*y(k,32) +rxt(k,57)*y(k,48) - loss(k,98) = (rxt(k,410)* y(k,68) +rxt(k,413)* y(k,69) +rxt(k,104)* y(k,86) & - +rxt(k,116)* y(k,90) +rxt(k,128)* y(k,93) + (rxt(k,407) + & - rxt(k,408) +rxt(k,409))* y(k,97) +rxt(k,286)* y(k,107) +rxt(k,308) & - * y(k,118) +rxt(k,316)* y(k,124) +rxt(k,330)* y(k,127) +rxt(k,343) & - * y(k,131) + het_rates(k,38))* y(k,38) - prod(k,98) = (rxt(k,140)*y(k,94) +rxt(k,146)*y(k,86) +rxt(k,157)*y(k,92) + & - rxt(k,161)*y(k,108) +rxt(k,162)*y(k,112) +rxt(k,163)*y(k,87) + & - rxt(k,164)*y(k,110) +rxt(k,165)*y(k,107) +rxt(k,169)*y(k,90) + & - rxt(k,180)*y(k,88) +rxt(k,202)*y(k,96) +rxt(k,213)*y(k,124) + & - rxt(k,224)*y(k,93) +rxt(k,235)*y(k,111) +rxt(k,246)*y(k,91) + & - rxt(k,257)*y(k,90) +rxt(k,259)*y(k,92) +rxt(k,261)*y(k,111) + & - rxt(k,270)*y(k,91))*y(k,101) + (rxt(k,143)*y(k,94) + & - rxt(k,167)*y(k,90) +rxt(k,168)*y(k,88) +rxt(k,171)*y(k,96) + & - rxt(k,172)*y(k,124) +rxt(k,173)*y(k,93) +rxt(k,174)*y(k,111) + & - rxt(k,175)*y(k,91) +rxt(k,176)*y(k,86) +rxt(k,177)*y(k,92) + & - rxt(k,178)*y(k,108) +rxt(k,179)*y(k,112) +rxt(k,181)*y(k,87) + & - rxt(k,182)*y(k,110) +rxt(k,183)*y(k,107) +rxt(k,258)*y(k,91) + & - rxt(k,260)*y(k,92) +rxt(k,262)*y(k,111) +rxt(k,264)*y(k,90))*y(k,103) & - + (rxt(k,185)*y(k,90) +rxt(k,186)*y(k,88) +rxt(k,188)*y(k,96) + & - rxt(k,189)*y(k,124) +rxt(k,190)*y(k,93) +rxt(k,192)*y(k,111) + & - rxt(k,193)*y(k,91) +rxt(k,194)*y(k,86) +rxt(k,195)*y(k,92) + & - rxt(k,196)*y(k,108) +rxt(k,197)*y(k,112) +rxt(k,198)*y(k,87) + & - rxt(k,199)*y(k,110) +rxt(k,200)*y(k,107) +rxt(k,382)*y(k,94))*y(k,99) & - + (rxt(k,414)*y(k,39) +rxt(k,417)*y(k,67) +rxt(k,437)*y(k,54) + & - rxt(k,531)*y(k,16) +rxt(k,540)*y(k,29) +rxt(k,542)*y(k,71) + & - rxt(k,547)*y(k,74) +rxt(k,552)*y(k,75))*y(k,130) & - + (rxt(k,353)*y(k,132) +rxt(k,388)*y(k,121) +rxt(k,405)*y(k,67) + & - rxt(k,451)*y(k,85) +rxt(k,507)*y(k,37))*y(k,39) & - + (rxt(k,137)*y(k,95) +rxt(k,380)*y(k,104) +rxt(k,381)*y(k,98)) & - *y(k,94) + (rxt(k,538)*y(k,22) +rxt(k,482)*y(k,47) + & - rxt(k,505)*y(k,43))*y(k,121) + (2.000_r8*rxt(k,2) +rxt(k,3))*y(k,134) & - +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,75) = (rxt(k,507)* y(k,37) +rxt(k,405)* y(k,67) +rxt(k,451)* y(k,85) & - +rxt(k,388)* y(k,121) +rxt(k,414)* y(k,130) + (rxt(k,352) + & - rxt(k,353))* y(k,132) + het_rates(k,39))* y(k,39) - prod(k,75) =rxt(k,22)*y(k,16) +rxt(k,539)*y(k,121)*y(k,22) & - +rxt(k,407)*y(k,97)*y(k,38) +rxt(k,1)*y(k,134) - loss(k,46) = (rxt(k,406)* y(k,67) +rxt(k,452)* y(k,85) +rxt(k,415)* y(k,130) & - + rxt(k,4) + het_rates(k,41))* y(k,41) - prod(k,46) = (.500_r8*rxt(k,558) +rxt(k,421)*y(k,97))*y(k,97) & - +rxt(k,420)*y(k,130)*y(k,130) - loss(k,22) = ( + rxt(k,99) + het_rates(k,42))* y(k,42) - prod(k,22) =rxt(k,554)*y(k,134)*y(k,77) - loss(k,56) = (rxt(k,498)* y(k,67) + (rxt(k,504) +rxt(k,505))* y(k,121) & - +rxt(k,499)* y(k,130) + rxt(k,52) + het_rates(k,43))* y(k,43) - prod(k,56) = (rxt(k,485)*y(k,16) +rxt(k,486)*y(k,97))*y(k,84) - loss(k,100) = ((rxt(k,568) +rxt(k,573) +rxt(k,578))* y(k,27) + (rxt(k,570) + & - rxt(k,575))* y(k,51) + (rxt(k,563) +rxt(k,569) +rxt(k,574))* y(k,52) & - +rxt(k,469)* y(k,67) +rxt(k,107)* y(k,86) +rxt(k,105)* y(k,87) & - +rxt(k,129)* y(k,93) +rxt(k,288)* y(k,107) + (rxt(k,275) + & - rxt(k,297))* y(k,109) + (rxt(k,481) +rxt(k,482))* y(k,121) & - +rxt(k,317)* y(k,124) +rxt(k,470)* y(k,130) +rxt(k,344)* y(k,131) & - +rxt(k,355)* y(k,132) + rxt(k,56) + het_rates(k,47))* y(k,47) - prod(k,100) = (rxt(k,450)*y(k,22) +rxt(k,512)*y(k,15) +rxt(k,514)*y(k,17) + & - 2.000_r8*rxt(k,517)*y(k,19) +rxt(k,519)*y(k,23) +rxt(k,449)*y(k,16) + & - rxt(k,451)*y(k,39) +rxt(k,452)*y(k,41) +rxt(k,453)*y(k,97) + & - rxt(k,471)*y(k,52))*y(k,85) + (rxt(k,385) +rxt(k,168)*y(k,103) + & - rxt(k,180)*y(k,101) +rxt(k,186)*y(k,99) +rxt(k,204)*y(k,118) + & - rxt(k,221)*y(k,115) +rxt(k,239)*y(k,114) +rxt(k,256)*y(k,125) + & - 2.000_r8*rxt(k,266)*y(k,101) +2.000_r8*rxt(k,267)*y(k,103))*y(k,88) & - + (rxt(k,156)*y(k,125) +rxt(k,162)*y(k,101) +rxt(k,179)*y(k,103) + & - rxt(k,197)*y(k,99) +rxt(k,215)*y(k,118) +rxt(k,232)*y(k,115) + & - rxt(k,250)*y(k,114) +rxt(k,298)*y(k,49))*y(k,112) & - + (rxt(k,104)*y(k,38) +rxt(k,108)*y(k,49))*y(k,86) & - +rxt(k,468)*y(k,130)*y(k,26) - loss(k,26) = ( + rxt(k,57) + het_rates(k,48))* y(k,48) - prod(k,26) = (rxt(k,506)*y(k,22) +rxt(k,507)*y(k,39) +rxt(k,508)*y(k,134) + & - rxt(k,509)*y(k,49))*y(k,37) - loss(k,101) = (rxt(k,509)* y(k,37) +rxt(k,108)* y(k,86) +rxt(k,123)* y(k,90) & - +rxt(k,289)* y(k,107) +rxt(k,299)* y(k,109) +rxt(k,294)* y(k,111) & - +rxt(k,298)* y(k,112) +rxt(k,318)* y(k,124) +rxt(k,446)* y(k,130) & - +rxt(k,356)* y(k,132) + rxt(k,9) + het_rates(k,49))* y(k,49) - prod(k,101) = (rxt(k,274) +2.000_r8*rxt(k,145)*y(k,101) + & - 2.000_r8*rxt(k,166)*y(k,103) +2.000_r8*rxt(k,184)*y(k,99) + & - rxt(k,201)*y(k,118) +rxt(k,219)*y(k,115) +rxt(k,237)*y(k,114) + & - rxt(k,254)*y(k,125) +2.000_r8*rxt(k,268)*y(k,101) + & - 2.000_r8*rxt(k,269)*y(k,103))*y(k,113) + (2.000_r8*rxt(k,559) + & - 2.000_r8*rxt(k,562) +2.000_r8*rxt(k,565) +2.000_r8*rxt(k,576) + & - rxt(k,141)*y(k,101) +rxt(k,144)*y(k,103) +rxt(k,292)*y(k,110) + & - rxt(k,296)*y(k,111))*y(k,56) + (rxt(k,566) +rxt(k,571) +rxt(k,577) + & - rxt(k,568)*y(k,47) +rxt(k,573)*y(k,47) +rxt(k,578)*y(k,47))*y(k,27) & - + (rxt(k,170)*y(k,103) +rxt(k,187)*y(k,99) +rxt(k,191)*y(k,101) + & - rxt(k,263)*y(k,101) +rxt(k,265)*y(k,103) +rxt(k,297)*y(k,47)) & - *y(k,109) + (rxt(k,564) +rxt(k,567) +rxt(k,572))*y(k,5) & - + (rxt(k,561) +rxt(k,529)*y(k,16) +rxt(k,555)*y(k,33))*y(k,62) & - + (.500_r8*rxt(k,560) +rxt(k,445)*y(k,130))*y(k,61) & - + (rxt(k,139)*y(k,100) +rxt(k,142)*y(k,102))*y(k,134) - loss(k,39) = (rxt(k,422)* y(k,130) + rxt(k,10) + rxt(k,11) + rxt(k,447) & - + het_rates(k,50))* y(k,50) - prod(k,39) =rxt(k,443)*y(k,97)*y(k,61) - loss(k,55) = ((rxt(k,570) +rxt(k,575))* y(k,47) +rxt(k,500)* y(k,67) & - + rxt(k,58) + het_rates(k,51))* y(k,51) - prod(k,55) = (rxt(k,564) +rxt(k,567) +rxt(k,572))*y(k,5) +rxt(k,492)*y(k,97) & - *y(k,4) - loss(k,57) = ((rxt(k,563) +rxt(k,569) +rxt(k,574))* y(k,47) +rxt(k,472) & - * y(k,67) +rxt(k,471)* y(k,85) +rxt(k,473)* y(k,130) + rxt(k,59) & - + het_rates(k,52))* y(k,52) - prod(k,57) = (rxt(k,566) +rxt(k,571) +rxt(k,577) +rxt(k,465)*y(k,130)) & - *y(k,27) +rxt(k,460)*y(k,97)*y(k,26) - loss(k,50) = (rxt(k,339)* y(k,130) + rxt(k,12) + het_rates(k,53))* y(k,53) - prod(k,50) = (rxt(k,288)*y(k,47) +rxt(k,289)*y(k,49))*y(k,107) & - +rxt(k,348)*y(k,130)*y(k,60) +rxt(k,304)*y(k,134)*y(k,116) - loss(k,63) = (rxt(k,425)* y(k,60) + (rxt(k,426) +rxt(k,427) +rxt(k,428)) & - * y(k,61) +rxt(k,429)* y(k,68) +rxt(k,588)* y(k,125) +rxt(k,437) & - * y(k,130) + rxt(k,65) + het_rates(k,54))* y(k,54) - prod(k,63) = (rxt(k,423)*y(k,105) +rxt(k,585)*y(k,120))*y(k,67) & - + (.200_r8*rxt(k,579)*y(k,114) +1.100_r8*rxt(k,581)*y(k,106)) & - *y(k,94) +rxt(k,17)*y(k,60) +rxt(k,586)*y(k,120)*y(k,68) +rxt(k,592) & - *y(k,133) - loss(k,62) = (rxt(k,141)* y(k,101) +rxt(k,144)* y(k,103) +rxt(k,292) & - * y(k,110) +rxt(k,296)* y(k,111) + rxt(k,14) + rxt(k,15) + rxt(k,448) & - + rxt(k,559) + rxt(k,562) + rxt(k,565) + rxt(k,576) & - + het_rates(k,56))* y(k,56) - prod(k,62) =rxt(k,444)*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,493)* y(k,4) +rxt(k,533)* y(k,20) +rxt(k,461)* y(k,26) & - +rxt(k,425)* y(k,54) +rxt(k,434)* y(k,62) +rxt(k,440)* y(k,67) & - +rxt(k,439)* y(k,69) + (rxt(k,110) +rxt(k,111))* y(k,89) +rxt(k,279) & - * y(k,90) + (rxt(k,121) +rxt(k,122))* y(k,92) +rxt(k,438)* y(k,97) & - +rxt(k,590)* y(k,125) + (rxt(k,271) +rxt(k,278))* y(k,127) & - +rxt(k,348)* y(k,130) +rxt(k,135)* y(k,132) + rxt(k,16) + rxt(k,17) & - + het_rates(k,60))* y(k,60) - prod(k,106) = (rxt(k,201)*y(k,113) +rxt(k,203)*y(k,90) +rxt(k,204)*y(k,88) + & - rxt(k,205)*y(k,109) +rxt(k,206)*y(k,96) +rxt(k,207)*y(k,124) + & - rxt(k,208)*y(k,93) +rxt(k,209)*y(k,111) +rxt(k,210)*y(k,91) + & - rxt(k,211)*y(k,86) +rxt(k,212)*y(k,92) +rxt(k,214)*y(k,108) + & - rxt(k,215)*y(k,112) +rxt(k,216)*y(k,87) +rxt(k,217)*y(k,110) + & - rxt(k,218)*y(k,107) +rxt(k,307)*y(k,94) +rxt(k,308)*y(k,38))*y(k,118) & - + (rxt(k,219)*y(k,113) +rxt(k,220)*y(k,90) +rxt(k,221)*y(k,88) + & - rxt(k,222)*y(k,109) +rxt(k,223)*y(k,96) +rxt(k,225)*y(k,124) + & - rxt(k,226)*y(k,93) +rxt(k,227)*y(k,111) +rxt(k,228)*y(k,91) + & - rxt(k,229)*y(k,86) +rxt(k,230)*y(k,92) +rxt(k,231)*y(k,108) + & - rxt(k,232)*y(k,112) +rxt(k,233)*y(k,87) +rxt(k,234)*y(k,110) + & - rxt(k,236)*y(k,107) +rxt(k,302)*y(k,94))*y(k,115) & - + (rxt(k,237)*y(k,113) +rxt(k,238)*y(k,90) +rxt(k,239)*y(k,88) + & - rxt(k,240)*y(k,109) +rxt(k,241)*y(k,96) +rxt(k,242)*y(k,124) + & - rxt(k,243)*y(k,93) +rxt(k,244)*y(k,111) +rxt(k,245)*y(k,91) + & - rxt(k,247)*y(k,86) +rxt(k,248)*y(k,92) +rxt(k,249)*y(k,108) + & - rxt(k,250)*y(k,112) +rxt(k,251)*y(k,87) +rxt(k,252)*y(k,110) + & - rxt(k,253)*y(k,107))*y(k,114) + (rxt(k,18) +.500_r8*rxt(k,560) + & - rxt(k,290)*y(k,107) +2.000_r8*rxt(k,427)*y(k,54) + & - rxt(k,430)*y(k,67) +rxt(k,548)*y(k,75))*y(k,61) & - + (rxt(k,303)*y(k,116) +rxt(k,305)*y(k,117) +rxt(k,383)*y(k,119)) & - *y(k,94) + (rxt(k,429)*y(k,68) +rxt(k,437)*y(k,130))*y(k,54) & - +rxt(k,286)*y(k,107)*y(k,38) +rxt(k,12)*y(k,53) & - +2.000_r8*rxt(k,441)*y(k,121)*y(k,55) +rxt(k,15)*y(k,56) +rxt(k,20) & - *y(k,62) +rxt(k,424)*y(k,105)*y(k,68) +rxt(k,589)*y(k,125) - loss(k,104) = (rxt(k,494)* y(k,4) +rxt(k,463)* y(k,26) + (rxt(k,426) + & - rxt(k,427) +rxt(k,428))* y(k,54) +rxt(k,444)* y(k,62) + (rxt(k,430) + & - rxt(k,432))* y(k,67) +rxt(k,431)* y(k,69) +rxt(k,548)* y(k,75) & - +rxt(k,109)* y(k,86) +rxt(k,280)* y(k,90) + (rxt(k,119) +rxt(k,120)) & - * y(k,92) +rxt(k,443)* y(k,97) +rxt(k,290)* y(k,107) +rxt(k,319) & - * y(k,124) + (rxt(k,276) +rxt(k,277))* y(k,127) +rxt(k,445)* y(k,130) & - +rxt(k,345)* y(k,131) +rxt(k,358)* y(k,132) + rxt(k,18) + rxt(k,560) & - + het_rates(k,61))* y(k,61) - prod(k,104) = (rxt(k,111)*y(k,89) +rxt(k,135)*y(k,132) + & - 2.000_r8*rxt(k,434)*y(k,62) +rxt(k,438)*y(k,97) +rxt(k,439)*y(k,69) + & - rxt(k,440)*y(k,67) +rxt(k,461)*y(k,26) +rxt(k,493)*y(k,4) + & - rxt(k,533)*y(k,20))*y(k,60) + (rxt(k,74) +rxt(k,160)*y(k,125) + & - rxt(k,165)*y(k,101) +rxt(k,183)*y(k,103) +rxt(k,200)*y(k,99) + & - rxt(k,218)*y(k,118) +rxt(k,236)*y(k,115) +rxt(k,253)*y(k,114) + & - rxt(k,284)*y(k,85))*y(k,107) + (rxt(k,155)*y(k,125) + & - rxt(k,161)*y(k,101) +rxt(k,178)*y(k,103) +rxt(k,196)*y(k,99) + & - rxt(k,214)*y(k,118) +rxt(k,231)*y(k,115) +rxt(k,249)*y(k,114)) & - *y(k,108) + (rxt(k,19) +rxt(k,433)*y(k,97) +rxt(k,435)*y(k,67) + & - rxt(k,436)*y(k,130))*y(k,62) + (rxt(k,11) +rxt(k,447) + & - rxt(k,422)*y(k,130))*y(k,50) + (rxt(k,14) +rxt(k,448))*y(k,56) & - + (rxt(k,310)*y(k,118) +rxt(k,339)*y(k,53))*y(k,130) +rxt(k,29) & - *y(k,5) +rxt(k,48)*y(k,27) +rxt(k,9)*y(k,49) - loss(k,97) = (rxt(k,529)* y(k,16) +rxt(k,555)* y(k,33) +rxt(k,434)* y(k,60) & - +rxt(k,444)* y(k,61) +rxt(k,435)* y(k,67) +rxt(k,433)* y(k,97) & - +rxt(k,436)* y(k,130) + rxt(k,19) + rxt(k,20) + rxt(k,561) & - + het_rates(k,62))* y(k,62) - prod(k,97) = (rxt(k,151)*y(k,125) +rxt(k,174)*y(k,103) +rxt(k,192)*y(k,99) + & - rxt(k,209)*y(k,118) +rxt(k,227)*y(k,115) +rxt(k,235)*y(k,101) + & - rxt(k,244)*y(k,114) +rxt(k,261)*y(k,101) +rxt(k,262)*y(k,103)) & - *y(k,111) + (rxt(k,159)*y(k,125) +rxt(k,164)*y(k,101) + & - rxt(k,182)*y(k,103) +rxt(k,199)*y(k,99) +rxt(k,217)*y(k,118) + & - rxt(k,234)*y(k,115) +rxt(k,252)*y(k,114))*y(k,110) & - + (rxt(k,156)*y(k,125) +rxt(k,162)*y(k,101) +rxt(k,179)*y(k,103) + & - rxt(k,197)*y(k,99) +rxt(k,215)*y(k,118) +rxt(k,232)*y(k,115) + & - rxt(k,250)*y(k,114))*y(k,112) + (rxt(k,75) +rxt(k,147)*y(k,125) + & - rxt(k,205)*y(k,118) +rxt(k,222)*y(k,115) +rxt(k,240)*y(k,114)) & - *y(k,109) + (rxt(k,47) +rxt(k,462)*y(k,85) +rxt(k,464)*y(k,67) + & - rxt(k,465)*y(k,130))*y(k,27) + (rxt(k,201)*y(k,118) + & - rxt(k,219)*y(k,115) +rxt(k,237)*y(k,114) +rxt(k,254)*y(k,125)) & - *y(k,113) + (rxt(k,14) +rxt(k,15) +rxt(k,448))*y(k,56) + (rxt(k,30) + & - rxt(k,495)*y(k,67))*y(k,5) + (rxt(k,446)*y(k,130) + & - rxt(k,509)*y(k,37))*y(k,49) + (rxt(k,431)*y(k,69) + & - rxt(k,432)*y(k,67))*y(k,61) +rxt(k,285)*y(k,107)*y(k,26) +rxt(k,10) & - *y(k,50) +rxt(k,309)*y(k,118)*y(k,97) - 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,107) = (rxt(k,496)* y(k,4) +rxt(k,495)* y(k,5) +rxt(k,530)* y(k,16) & - +rxt(k,466)* y(k,26) +rxt(k,464)* y(k,27) +rxt(k,405)* y(k,39) & - +rxt(k,406)* y(k,41) +rxt(k,498)* y(k,43) +rxt(k,469)* y(k,47) & - +rxt(k,500)* y(k,51) +rxt(k,472)* y(k,52) +rxt(k,440)* y(k,60) & - + (rxt(k,430) +rxt(k,432))* y(k,61) +rxt(k,435)* y(k,62) & - + 2._r8*rxt(k,403)* y(k,67) +rxt(k,404)* y(k,68) +rxt(k,402) & - * y(k,69) +rxt(k,541)* y(k,71) +rxt(k,112)* y(k,89) +rxt(k,124) & - * y(k,90) +rxt(k,130)* y(k,93) +rxt(k,411)* y(k,97) + (rxt(k,583) + & - rxt(k,584))* y(k,106) +rxt(k,300)* y(k,109) +rxt(k,585)* y(k,120) & - + (rxt(k,323) +rxt(k,324))* y(k,124) + (rxt(k,332) +rxt(k,333)) & - * y(k,127) +rxt(k,335)* y(k,128) +rxt(k,337)* y(k,129) +rxt(k,417) & - * y(k,130) +rxt(k,346)* y(k,131) +rxt(k,359)* y(k,132) + rxt(k,76) & - + rxt(k,77) + rxt(k,78) + rxt(k,79) + rxt(k,80) + rxt(k,81) & - + het_rates(k,67))* y(k,67) - prod(k,107) = (2.000_r8*rxt(k,5) +rxt(k,6) +rxt(k,82) +rxt(k,84) + & - 2.000_r8*rxt(k,85) +rxt(k,86) +rxt(k,88) +2.000_r8*rxt(k,89) + & - rxt(k,90) +rxt(k,91) +rxt(k,391)*y(k,121) +rxt(k,392)*y(k,121) + & - rxt(k,429)*y(k,54) +rxt(k,543)*y(k,74) +rxt(k,549)*y(k,75) + & - rxt(k,587)*y(k,120) +rxt(k,593)*y(k,133))*y(k,68) & - + (rxt(k,113)*y(k,85) +rxt(k,167)*y(k,103) +rxt(k,169)*y(k,101) + & - rxt(k,185)*y(k,99) +rxt(k,203)*y(k,118) +rxt(k,220)*y(k,115) + & - rxt(k,238)*y(k,114) +rxt(k,255)*y(k,125) +rxt(k,257)*y(k,101) + & - rxt(k,264)*y(k,103))*y(k,90) + (rxt(k,152)*y(k,125) + & - rxt(k,175)*y(k,103) +rxt(k,193)*y(k,99) +rxt(k,210)*y(k,118) + & - rxt(k,228)*y(k,115) +rxt(k,245)*y(k,114) +rxt(k,246)*y(k,101) + & - rxt(k,258)*y(k,103) +rxt(k,270)*y(k,101))*y(k,91) & - + (rxt(k,154)*y(k,125) +rxt(k,157)*y(k,101) +rxt(k,177)*y(k,103) + & - rxt(k,195)*y(k,99) +rxt(k,212)*y(k,118) +rxt(k,230)*y(k,115) + & - rxt(k,248)*y(k,114) +rxt(k,259)*y(k,101) +rxt(k,260)*y(k,103)) & - *y(k,92) + (rxt(k,98) +rxt(k,357) +rxt(k,349)*y(k,85) + & - rxt(k,358)*y(k,61) +rxt(k,362)*y(k,69))*y(k,132) & - + (rxt(k,425)*y(k,60) +rxt(k,426)*y(k,61) +rxt(k,588)*y(k,125)) & - *y(k,54) + (rxt(k,17) +rxt(k,271)*y(k,127))*y(k,60) & - + (rxt(k,579)*y(k,114) +1.150_r8*rxt(k,580)*y(k,125))*y(k,94) & - +rxt(k,28)*y(k,4) +rxt(k,46)*y(k,26) +rxt(k,409)*y(k,97)*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,101)*y(k,75) +rxt(k,102)*y(k,76) & - +rxt(k,103)*y(k,77) +rxt(k,390)*y(k,121) +rxt(k,419)*y(k,130) & - *y(k,130) +rxt(k,2)*y(k,134) - loss(k,99) = (rxt(k,410)* y(k,38) +rxt(k,429)* y(k,54) +rxt(k,404)* y(k,67) & - +rxt(k,543)* y(k,74) +rxt(k,549)* y(k,75) +rxt(k,125)* y(k,90) & - + (rxt(k,132) +rxt(k,134))* y(k,94) +rxt(k,424)* y(k,105) & - +rxt(k,582)* y(k,106) + (rxt(k,586) +rxt(k,587))* y(k,120) & - +rxt(k,391)* y(k,121) +rxt(k,396)* y(k,122) +rxt(k,321)* y(k,124) & - +rxt(k,363)* y(k,125) +rxt(k,361)* y(k,132) +rxt(k,593)* y(k,133) & - + rxt(k,5) + rxt(k,6) + rxt(k,82) + 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) + het_rates(k,68))* y(k,68) - prod(k,99) = (rxt(k,8) +rxt(k,131)*y(k,93) +rxt(k,133)*y(k,94) + & - rxt(k,291)*y(k,107) +2.000_r8*rxt(k,301)*y(k,109) + & - rxt(k,322)*y(k,124) +3.000_r8*rxt(k,331)*y(k,127) + & - 2.000_r8*rxt(k,393)*y(k,121) +2.000_r8*rxt(k,402)*y(k,67) + & - 2.000_r8*rxt(k,412)*y(k,97) +rxt(k,413)*y(k,38) + & - rxt(k,418)*y(k,130) +rxt(k,431)*y(k,61) +rxt(k,439)*y(k,60) + & - rxt(k,455)*y(k,85) +rxt(k,487)*y(k,84) +rxt(k,544)*y(k,74) + & - rxt(k,550)*y(k,75))*y(k,69) + (rxt(k,112)*y(k,89) + & - rxt(k,130)*y(k,93) +rxt(k,300)*y(k,109) +rxt(k,324)*y(k,124) + & - 2.000_r8*rxt(k,332)*y(k,127) +rxt(k,333)*y(k,127) + & - rxt(k,335)*y(k,128) +rxt(k,359)*y(k,132) +rxt(k,395)*y(k,122) + & - rxt(k,403)*y(k,67) +rxt(k,411)*y(k,97) +rxt(k,417)*y(k,130) + & - rxt(k,430)*y(k,61) +rxt(k,435)*y(k,62) +rxt(k,466)*y(k,26) + & - rxt(k,496)*y(k,4))*y(k,67) + (rxt(k,147)*y(k,109) + & - rxt(k,148)*y(k,96) +2.000_r8*rxt(k,150)*y(k,93) + & - rxt(k,151)*y(k,111) +rxt(k,152)*y(k,91) +rxt(k,153)*y(k,86) + & - rxt(k,154)*y(k,92) +rxt(k,155)*y(k,108) +rxt(k,156)*y(k,112) + & - rxt(k,158)*y(k,87) +rxt(k,159)*y(k,110) +rxt(k,160)*y(k,107) + & - rxt(k,254)*y(k,113) +rxt(k,255)*y(k,90) +rxt(k,256)*y(k,88) + & - rxt(k,590)*y(k,60))*y(k,125) + (rxt(k,92) +rxt(k,136) + & - rxt(k,172)*y(k,103) +rxt(k,189)*y(k,99) +rxt(k,207)*y(k,118) + & - rxt(k,213)*y(k,101) +rxt(k,225)*y(k,115) +rxt(k,242)*y(k,114) + & - rxt(k,313)*y(k,85) +rxt(k,314)*y(k,26) +rxt(k,319)*y(k,61) + & - 2.000_r8*rxt(k,320)*y(k,122))*y(k,124) + (rxt(k,115)*y(k,90) + & - rxt(k,127)*y(k,93) +rxt(k,350)*y(k,132) +rxt(k,457)*y(k,26) + & - rxt(k,458)*y(k,26) +rxt(k,460)*y(k,97) +rxt(k,468)*y(k,130) + & - rxt(k,490)*y(k,4) +rxt(k,491)*y(k,4))*y(k,26) + (rxt(k,407)*y(k,38) + & - rxt(k,416)*y(k,130) +rxt(k,421)*y(k,97) +rxt(k,433)*y(k,62) + & - rxt(k,453)*y(k,85) +rxt(k,486)*y(k,84) +rxt(k,492)*y(k,4) + & - rxt(k,532)*y(k,20))*y(k,97) + (rxt(k,126)*y(k,85) + & - rxt(k,173)*y(k,103) +rxt(k,190)*y(k,99) +rxt(k,208)*y(k,118) + & - rxt(k,224)*y(k,101) +rxt(k,226)*y(k,115) +rxt(k,243)*y(k,114)) & - *y(k,93) + (rxt(k,95) +rxt(k,329)*y(k,30) +rxt(k,276)*y(k,61) + & - rxt(k,278)*y(k,60) +rxt(k,330)*y(k,38))*y(k,127) + (rxt(k,386) + & - rxt(k,394) +2.000_r8*rxt(k,338)*y(k,129) + & - 2.000_r8*rxt(k,396)*y(k,68))*y(k,122) + (rxt(k,325)*y(k,94) + & - rxt(k,326)*y(k,134) +rxt(k,327)*y(k,134))*y(k,126) + (rxt(k,96) + & - rxt(k,334)*y(k,30))*y(k,128) + (rxt(k,336)*y(k,134) + & - 2.000_r8*rxt(k,379)*y(k,94))*y(k,129) +rxt(k,488)*y(k,4)*y(k,4) & - +rxt(k,422)*y(k,130)*y(k,50) +rxt(k,428)*y(k,61)*y(k,54) & - +rxt(k,442)*y(k,121)*y(k,55) +rxt(k,20)*y(k,62) +rxt(k,387)*y(k,123) - loss(k,91) = (rxt(k,413)* y(k,38) +rxt(k,439)* y(k,60) +rxt(k,431)* y(k,61) & - +rxt(k,402)* y(k,67) +rxt(k,544)* y(k,74) +rxt(k,550)* y(k,75) & - +rxt(k,487)* y(k,84) +rxt(k,455)* y(k,85) +rxt(k,131)* y(k,93) & - +rxt(k,133)* y(k,94) +rxt(k,412)* y(k,97) +rxt(k,291)* y(k,107) & - +rxt(k,301)* y(k,109) +rxt(k,393)* y(k,121) +rxt(k,322)* y(k,124) & - +rxt(k,331)* y(k,127) +rxt(k,418)* y(k,130) +rxt(k,347)* y(k,131) & - +rxt(k,362)* y(k,132) + rxt(k,7) + rxt(k,8) + het_rates(k,69)) & - * y(k,69) - prod(k,91) = (rxt(k,323)*y(k,124) +rxt(k,337)*y(k,129) +rxt(k,404)*y(k,68)) & - *y(k,67) + (rxt(k,94) +rxt(k,277)*y(k,61))*y(k,127) & - +rxt(k,360)*y(k,132)*y(k,122) - loss(k,33) = (rxt(k,551)* y(k,75) + rxt(k,60) + het_rates(k,70))* y(k,70) - prod(k,33) = (rxt(k,459)*y(k,26) +rxt(k,489)*y(k,4))*y(k,26) - loss(k,34) = (rxt(k,541)* y(k,67) +rxt(k,542)* y(k,130) + rxt(k,100) & - + 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,543)* y(k,68) +rxt(k,544)* y(k,69) +rxt(k,547)* y(k,130) & - + het_rates(k,74))* y(k,74) - prod(k,49) =rxt(k,100)*y(k,71) +rxt(k,101)*y(k,75) - loss(k,68) = (rxt(k,545)* y(k,4) +rxt(k,546)* y(k,26) +rxt(k,548)* y(k,61) & - +rxt(k,549)* y(k,68) +rxt(k,550)* y(k,69) +rxt(k,551)* y(k,70) & - +rxt(k,552)* y(k,130) + rxt(k,101) + het_rates(k,75))* y(k,75) - prod(k,68) = (rxt(k,543)*y(k,68) +rxt(k,544)*y(k,69) +rxt(k,547)*y(k,130)) & - *y(k,74) +rxt(k,541)*y(k,71)*y(k,67) +rxt(k,102)*y(k,76) - loss(k,59) = (rxt(k,553)* y(k,130) + rxt(k,102) + het_rates(k,76))* y(k,76) - prod(k,59) = (rxt(k,545)*y(k,4) +rxt(k,546)*y(k,26) +rxt(k,548)*y(k,61) + & - rxt(k,549)*y(k,68) +rxt(k,550)*y(k,69) +rxt(k,551)*y(k,70) + & - rxt(k,552)*y(k,130))*y(k,75) + (rxt(k,555)*y(k,62) + & - rxt(k,556)*y(k,130) +.500_r8*rxt(k,557)*y(k,130))*y(k,33) & - +rxt(k,542)*y(k,130)*y(k,71) +rxt(k,103)*y(k,77) - loss(k,29) = (rxt(k,554)* y(k,134) + rxt(k,103) + het_rates(k,77))* y(k,77) - prod(k,29) =rxt(k,99)*y(k,42) +rxt(k,553)*y(k,130)*y(k,76) - loss(k,15) = ( + het_rates(k,78))* y(k,78) - prod(k,15) = 0._r8 - loss(k,16) = ( + het_rates(k,79))* y(k,79) - prod(k,16) = 0._r8 - loss(k,17) = ( + het_rates(k,80))* y(k,80) - prod(k,17) = 0._r8 - loss(k,18) = ( + het_rates(k,81))* y(k,81) - prod(k,18) = 0._r8 - loss(k,19) = ( + het_rates(k,82))* y(k,82) - prod(k,19) = 0._r8 - loss(k,20) = ( + het_rates(k,83))* y(k,83) - prod(k,20) = 0._r8 - loss(k,74) = (rxt(k,485)* y(k,16) +rxt(k,487)* y(k,69) +rxt(k,486)* y(k,97) & - + het_rates(k,84))* y(k,84) - prod(k,74) = (rxt(k,28) +2.000_r8*rxt(k,488)*y(k,4) +rxt(k,489)*y(k,26) + & - rxt(k,490)*y(k,26) +rxt(k,493)*y(k,60) +rxt(k,496)*y(k,67) + & - rxt(k,497)*y(k,130) +rxt(k,545)*y(k,75))*y(k,4) & - + (rxt(k,475)*y(k,8) +rxt(k,501)*y(k,9) + & - 3.000_r8*rxt(k,502)*y(k,23) +2.000_r8*rxt(k,503)*y(k,40) + & - 2.000_r8*rxt(k,524)*y(k,15) +rxt(k,525)*y(k,17) +rxt(k,504)*y(k,43)) & - *y(k,121) + (2.000_r8*rxt(k,513)*y(k,15) +rxt(k,515)*y(k,17) + & - 3.000_r8*rxt(k,520)*y(k,23) +rxt(k,499)*y(k,43))*y(k,130) & - + (2.000_r8*rxt(k,512)*y(k,15) +rxt(k,514)*y(k,17) + & - 3.000_r8*rxt(k,519)*y(k,23))*y(k,85) + (rxt(k,52) + & - rxt(k,498)*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,90) = (rxt(k,512)* y(k,15) +rxt(k,449)* y(k,16) +rxt(k,514)* y(k,17) & - +rxt(k,517)* y(k,19) +rxt(k,450)* y(k,22) +rxt(k,519)* y(k,23) & - +rxt(k,462)* y(k,27) +rxt(k,451)* y(k,39) +rxt(k,452)* y(k,41) & - +rxt(k,471)* y(k,52) +rxt(k,455)* y(k,69) + (rxt(k,113) +rxt(k,114)) & - * y(k,90) +rxt(k,126)* y(k,93) + (rxt(k,453) +rxt(k,454))* y(k,97) & - +rxt(k,284)* y(k,107) +rxt(k,313)* y(k,124) +rxt(k,340)* y(k,131) & - +rxt(k,349)* y(k,132) + het_rates(k,85))* y(k,85) - prod(k,90) = (4.000_r8*rxt(k,474)*y(k,7) +rxt(k,475)*y(k,8) + & - 2.000_r8*rxt(k,476)*y(k,10) +2.000_r8*rxt(k,477)*y(k,11) + & - 2.000_r8*rxt(k,478)*y(k,12) +rxt(k,479)*y(k,13) + & - 2.000_r8*rxt(k,480)*y(k,14) +rxt(k,526)*y(k,44) +rxt(k,527)*y(k,45) + & - rxt(k,528)*y(k,46) +rxt(k,481)*y(k,47) +rxt(k,511)*y(k,32))*y(k,121) & - + (rxt(k,46) +rxt(k,456)*y(k,20) +2.000_r8*rxt(k,457)*y(k,26) + & - rxt(k,459)*y(k,26) +rxt(k,461)*y(k,60) +rxt(k,466)*y(k,67) + & - rxt(k,467)*y(k,130) +rxt(k,490)*y(k,4) +rxt(k,546)*y(k,75))*y(k,26) & - + (rxt(k,109)*y(k,61) +rxt(k,146)*y(k,101) +rxt(k,153)*y(k,125) + & - rxt(k,176)*y(k,103) +rxt(k,194)*y(k,99) +rxt(k,211)*y(k,118) + & - rxt(k,229)*y(k,115) +rxt(k,247)*y(k,114))*y(k,86) & - + (rxt(k,158)*y(k,125) +rxt(k,163)*y(k,101) +rxt(k,181)*y(k,103) + & - rxt(k,198)*y(k,99) +rxt(k,216)*y(k,118) +rxt(k,233)*y(k,115) + & - rxt(k,251)*y(k,114))*y(k,87) + (rxt(k,168)*y(k,103) + & - rxt(k,180)*y(k,101) +rxt(k,186)*y(k,99) +rxt(k,204)*y(k,118) + & - rxt(k,221)*y(k,115) +rxt(k,239)*y(k,114) +rxt(k,256)*y(k,125)) & - *y(k,88) + (3.000_r8*rxt(k,516)*y(k,18) +rxt(k,518)*y(k,19) + & - rxt(k,521)*y(k,44) +rxt(k,522)*y(k,45) +rxt(k,523)*y(k,46) + & - rxt(k,470)*y(k,47))*y(k,130) + (rxt(k,56) +rxt(k,469)*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,110)*y(k,89)*y(k,60) - loss(k,84) = (rxt(k,104)* y(k,38) +rxt(k,107)* y(k,47) +rxt(k,108)* y(k,49) & - +rxt(k,109)* y(k,61) +rxt(k,194)* y(k,99) +rxt(k,146)* y(k,101) & - +rxt(k,176)* y(k,103) +rxt(k,247)* y(k,114) +rxt(k,229)* y(k,115) & - +rxt(k,211)* y(k,118) +rxt(k,153)* y(k,125) +rxt(k,106)* y(k,134) & - + het_rates(k,86))* y(k,86) - prod(k,84) = (rxt(k,129)*y(k,93) +rxt(k,288)*y(k,107) +rxt(k,297)*y(k,109) + & - rxt(k,317)*y(k,124) +rxt(k,344)*y(k,131) +rxt(k,355)*y(k,132)) & - *y(k,47) + (rxt(k,113)*y(k,90) +rxt(k,126)*y(k,93) + & - rxt(k,284)*y(k,107) +rxt(k,313)*y(k,124) +rxt(k,340)*y(k,131) + & - rxt(k,349)*y(k,132))*y(k,85) + (rxt(k,115)*y(k,90) + & - rxt(k,285)*y(k,107) +rxt(k,350)*y(k,132))*y(k,26) & - + (rxt(k,111)*y(k,60) +rxt(k,112)*y(k,67))*y(k,89) +rxt(k,384) & - *y(k,87) +rxt(k,385)*y(k,88) - loss(k,70) = (rxt(k,105)* y(k,47) +rxt(k,198)* y(k,99) +rxt(k,163)* y(k,101) & - +rxt(k,181)* y(k,103) +rxt(k,251)* y(k,114) +rxt(k,233)* y(k,115) & - +rxt(k,216)* y(k,118) +rxt(k,158)* y(k,125) + rxt(k,384) & - + het_rates(k,87))* y(k,87) - prod(k,70) =rxt(k,106)*y(k,134)*y(k,86) - loss(k,69) = (rxt(k,186)* y(k,99) + (rxt(k,180) +rxt(k,266))* y(k,101) & - + (rxt(k,168) +rxt(k,267))* y(k,103) +rxt(k,239)* y(k,114) & - +rxt(k,221)* y(k,115) +rxt(k,204)* y(k,118) +rxt(k,256)* y(k,125) & - + rxt(k,385) + het_rates(k,88))* y(k,88) - prod(k,69) = (rxt(k,105)*y(k,87) +rxt(k,107)*y(k,86))*y(k,47) - loss(k,61) = ((rxt(k,110) +rxt(k,111))* y(k,60) +rxt(k,112)* y(k,67) & - + het_rates(k,89))* y(k,89) - prod(k,61) = (rxt(k,127)*y(k,93) +rxt(k,314)*y(k,124) +rxt(k,341)*y(k,131)) & - *y(k,26) +rxt(k,114)*y(k,90)*y(k,85) - loss(k,88) = (rxt(k,115)* y(k,26) +rxt(k,116)* y(k,38) +rxt(k,123)* y(k,49) & - +rxt(k,279)* y(k,60) +rxt(k,280)* y(k,61) +rxt(k,124)* y(k,67) & - +rxt(k,125)* y(k,68) + (rxt(k,113) +rxt(k,114))* y(k,85) +rxt(k,185) & - * y(k,99) + (rxt(k,169) +rxt(k,257))* y(k,101) + (rxt(k,167) + & - rxt(k,264))* y(k,103) +rxt(k,238)* y(k,114) +rxt(k,220)* y(k,115) & - +rxt(k,203)* y(k,118) +rxt(k,255)* y(k,125) +rxt(k,118)* y(k,134) & - + rxt(k,62) + het_rates(k,90))* y(k,90) - prod(k,88) = (rxt(k,329)*y(k,127) +rxt(k,351)*y(k,132))*y(k,30) & - + (rxt(k,63) +rxt(k,282))*y(k,92) + (rxt(k,128)*y(k,38) + & - rxt(k,130)*y(k,67))*y(k,93) - loss(k,67) = (rxt(k,193)* y(k,99) + (rxt(k,246) +rxt(k,270))* y(k,101) & - + (rxt(k,175) +rxt(k,258))* y(k,103) +rxt(k,245)* y(k,114) & - +rxt(k,228)* y(k,115) +rxt(k,210)* y(k,118) +rxt(k,152)* y(k,125) & - + rxt(k,283) + het_rates(k,91))* y(k,91) - prod(k,67) =rxt(k,117)*y(k,134)*y(k,92) - loss(k,78) = ((rxt(k,121) +rxt(k,122))* y(k,60) + (rxt(k,119) +rxt(k,120)) & - * y(k,61) +rxt(k,195)* y(k,99) + (rxt(k,157) +rxt(k,259))* y(k,101) & - + (rxt(k,177) +rxt(k,260))* y(k,103) +rxt(k,248)* y(k,114) & - +rxt(k,230)* y(k,115) +rxt(k,212)* y(k,118) +rxt(k,154)* y(k,125) & - +rxt(k,117)* y(k,134) + rxt(k,63) + rxt(k,282) + het_rates(k,92)) & - * y(k,92) - prod(k,78) =rxt(k,118)*y(k,134)*y(k,90) +rxt(k,283)*y(k,91) - loss(k,83) = (rxt(k,127)* y(k,26) +rxt(k,128)* y(k,38) +rxt(k,129)* y(k,47) & - +rxt(k,130)* y(k,67) +rxt(k,131)* y(k,69) +rxt(k,126)* y(k,85) & - +rxt(k,190)* y(k,99) +rxt(k,224)* y(k,101) +rxt(k,173)* y(k,103) & - +rxt(k,243)* y(k,114) +rxt(k,226)* y(k,115) +rxt(k,208)* y(k,118) & - +rxt(k,150)* y(k,125) + rxt(k,64) + het_rates(k,93))* y(k,93) - prod(k,83) = (rxt(k,315)*y(k,124) +rxt(k,334)*y(k,128))*y(k,30) - loss(k,89) = ((rxt(k,132) +rxt(k,134))* y(k,68) +rxt(k,133)* y(k,69) & - +rxt(k,137)* y(k,95) +rxt(k,381)* y(k,98) +rxt(k,382)* y(k,99) & - +rxt(k,140)* y(k,101) +rxt(k,143)* y(k,103) +rxt(k,380)* y(k,104) & - +rxt(k,581)* y(k,106) +rxt(k,579)* y(k,114) +rxt(k,302)* y(k,115) & - +rxt(k,303)* y(k,116) +rxt(k,305)* y(k,117) +rxt(k,307)* y(k,118) & - +rxt(k,383)* y(k,119) +rxt(k,580)* y(k,125) +rxt(k,325)* y(k,126) & - +rxt(k,379)* y(k,129) + het_rates(k,94))* y(k,94) - prod(k,89) = (rxt(k,76) +rxt(k,77) +rxt(k,78) +rxt(k,79) +rxt(k,80) + & - rxt(k,81) +rxt(k,323)*y(k,124) +rxt(k,332)*y(k,127) + & - rxt(k,346)*y(k,131) +rxt(k,359)*y(k,132))*y(k,67) + (rxt(k,82) + & - rxt(k,83) +rxt(k,84) +rxt(k,86) +rxt(k,87) +rxt(k,88) +rxt(k,90) + & - rxt(k,91))*y(k,68) + (rxt(k,98) +rxt(k,357) +rxt(k,135)*y(k,60) + & - rxt(k,352)*y(k,39) +rxt(k,360)*y(k,122))*y(k,132) + (rxt(k,92) + & - rxt(k,136) +rxt(k,316)*y(k,38) +rxt(k,320)*y(k,122))*y(k,124) & - + (rxt(k,104)*y(k,86) +rxt(k,343)*y(k,131))*y(k,38) + (rxt(k,94) + & - rxt(k,331)*y(k,69))*y(k,127) +rxt(k,65)*y(k,54) +rxt(k,16)*y(k,60) & - +rxt(k,74)*y(k,107) +rxt(k,75)*y(k,109) +rxt(k,97)*y(k,131) - loss(k,36) = (rxt(k,137)* y(k,94) +rxt(k,138)* y(k,134) + het_rates(k,95)) & - * y(k,95) - prod(k,36) =rxt(k,326)*y(k,134)*y(k,126) - loss(k,65) = (rxt(k,188)* y(k,99) +rxt(k,202)* y(k,101) +rxt(k,171)* y(k,103) & - +rxt(k,241)* y(k,114) +rxt(k,223)* y(k,115) +rxt(k,206)* y(k,118) & - +rxt(k,148)* y(k,125) + het_rates(k,96))* y(k,96) - prod(k,65) =rxt(k,342)*y(k,131)*y(k,30) - loss(k,86) = (rxt(k,492)* y(k,4) +rxt(k,532)* y(k,20) +rxt(k,460)* y(k,26) & - + (rxt(k,407) +rxt(k,408) +rxt(k,409))* y(k,38) +rxt(k,438)* y(k,60) & - +rxt(k,443)* y(k,61) +rxt(k,433)* y(k,62) +rxt(k,411)* y(k,67) & - +rxt(k,412)* y(k,69) +rxt(k,486)* y(k,84) + (rxt(k,453) +rxt(k,454)) & - * y(k,85) + 2._r8*rxt(k,421)* y(k,97) +rxt(k,309)* y(k,118) & - +rxt(k,416)* y(k,130) + rxt(k,558) + het_rates(k,97))* y(k,97) - prod(k,86) = (rxt(k,515)*y(k,17) +rxt(k,518)*y(k,19) +rxt(k,415)*y(k,41) + & - rxt(k,418)*y(k,69) +rxt(k,436)*y(k,62) +rxt(k,467)*y(k,26) + & - rxt(k,497)*y(k,4) +rxt(k,536)*y(k,29) +rxt(k,553)*y(k,76) + & - .500_r8*rxt(k,557)*y(k,33))*y(k,130) + (rxt(k,449)*y(k,85) + & - rxt(k,485)*y(k,84) +rxt(k,529)*y(k,62) +rxt(k,530)*y(k,67))*y(k,16) & - + (rxt(k,514)*y(k,17) +rxt(k,517)*y(k,19) +rxt(k,452)*y(k,41)) & - *y(k,85) + (rxt(k,316)*y(k,38) +rxt(k,317)*y(k,47) + & - rxt(k,318)*y(k,49))*y(k,124) + (rxt(k,456)*y(k,26) + & - rxt(k,533)*y(k,60))*y(k,20) + (rxt(k,11) +rxt(k,447))*y(k,50) & - + (rxt(k,346)*y(k,131) +rxt(k,406)*y(k,41))*y(k,67) & - +rxt(k,538)*y(k,121)*y(k,22) +rxt(k,410)*y(k,68)*y(k,38) & - +rxt(k,129)*y(k,93)*y(k,47) - loss(k,47) = (rxt(k,381)* y(k,94) +rxt(k,373)* y(k,134) + rxt(k,372) & - + het_rates(k,98))* y(k,98) - prod(k,47) = (rxt(k,138)*y(k,95) +rxt(k,371)*y(k,104))*y(k,134) +rxt(k,374) & - *y(k,99) - loss(k,111) = (rxt(k,194)* y(k,86) +rxt(k,198)* y(k,87) +rxt(k,186)* y(k,88) & - +rxt(k,185)* y(k,90) +rxt(k,193)* y(k,91) +rxt(k,195)* y(k,92) & - +rxt(k,190)* y(k,93) +rxt(k,382)* y(k,94) +rxt(k,188)* y(k,96) & - +rxt(k,200)* y(k,107) +rxt(k,196)* y(k,108) +rxt(k,187)* y(k,109) & - +rxt(k,199)* y(k,110) +rxt(k,192)* y(k,111) +rxt(k,197)* y(k,112) & - +rxt(k,184)* y(k,113) +rxt(k,189)* y(k,124) +rxt(k,375)* y(k,134) & - + rxt(k,374) + het_rates(k,99))* y(k,99) - prod(k,111) = (rxt(k,304)*y(k,116) +rxt(k,373)*y(k,98))*y(k,134) +rxt(k,376) & - *y(k,101) - loss(k,30) = (rxt(k,139)* y(k,134) + het_rates(k,100))* y(k,100) - prod(k,30) =rxt(k,141)*y(k,101)*y(k,56) - loss(k,105) = (rxt(k,141)* y(k,56) +rxt(k,146)* y(k,86) +rxt(k,163)* y(k,87) & - + (rxt(k,180) +rxt(k,266))* y(k,88) + (rxt(k,169) +rxt(k,257)) & - * y(k,90) + (rxt(k,246) +rxt(k,270))* y(k,91) + (rxt(k,157) + & - rxt(k,259))* y(k,92) +rxt(k,224)* y(k,93) +rxt(k,140)* y(k,94) & - +rxt(k,202)* y(k,96) +rxt(k,165)* y(k,107) +rxt(k,161)* y(k,108) & - + (rxt(k,191) +rxt(k,263))* y(k,109) +rxt(k,164)* y(k,110) & - + (rxt(k,235) +rxt(k,261))* y(k,111) +rxt(k,162)* y(k,112) & - + (rxt(k,145) +rxt(k,268))* y(k,113) +rxt(k,213)* y(k,124) & - +rxt(k,377)* y(k,134) + rxt(k,376) + het_rates(k,101))* y(k,101) - prod(k,105) = (rxt(k,139)*y(k,100) +rxt(k,375)*y(k,99))*y(k,134) +rxt(k,378) & - *y(k,103) - loss(k,31) = (rxt(k,142)* y(k,134) + het_rates(k,102))* y(k,102) - prod(k,31) =rxt(k,144)*y(k,103)*y(k,56) - loss(k,94) = (rxt(k,144)* y(k,56) +rxt(k,176)* y(k,86) +rxt(k,181)* y(k,87) & - + (rxt(k,168) +rxt(k,267))* y(k,88) + (rxt(k,167) +rxt(k,264)) & - * y(k,90) + (rxt(k,175) +rxt(k,258))* y(k,91) + (rxt(k,177) + & - rxt(k,260))* y(k,92) +rxt(k,173)* y(k,93) +rxt(k,143)* y(k,94) & - +rxt(k,171)* y(k,96) +rxt(k,183)* y(k,107) +rxt(k,178)* y(k,108) & - + (rxt(k,170) +rxt(k,265))* y(k,109) +rxt(k,182)* y(k,110) & - + (rxt(k,174) +rxt(k,262))* y(k,111) +rxt(k,179)* y(k,112) & - + (rxt(k,166) +rxt(k,269))* y(k,113) +rxt(k,172)* y(k,124) & - + rxt(k,378) + het_rates(k,103))* y(k,103) - prod(k,94) = (rxt(k,142)*y(k,102) +rxt(k,377)*y(k,101))*y(k,134) - loss(k,51) = (rxt(k,380)* y(k,94) +rxt(k,371)* y(k,134) + het_rates(k,104)) & - * y(k,104) - prod(k,51) = (rxt(k,308)*y(k,38) +rxt(k,309)*y(k,97) +rxt(k,310)*y(k,130)) & - *y(k,118) +rxt(k,372)*y(k,98) +rxt(k,327)*y(k,134)*y(k,126) - loss(k,43) = (rxt(k,423)* y(k,67) +rxt(k,424)* y(k,68) + het_rates(k,105)) & - * y(k,105) - prod(k,43) = (.800_r8*rxt(k,579)*y(k,114) +.900_r8*rxt(k,581)*y(k,106)) & - *y(k,94) +rxt(k,583)*y(k,106)*y(k,67) - loss(k,48) = ((rxt(k,583) +rxt(k,584))* y(k,67) +rxt(k,582)* y(k,68) & - +rxt(k,581)* y(k,94) + het_rates(k,106))* y(k,106) - prod(k,48) = 0._r8 - loss(k,108) = (rxt(k,285)* y(k,26) +rxt(k,286)* y(k,38) +rxt(k,288)* y(k,47) & - +rxt(k,289)* y(k,49) +rxt(k,290)* y(k,61) +rxt(k,291)* y(k,69) & - +rxt(k,284)* y(k,85) +rxt(k,200)* y(k,99) +rxt(k,165)* y(k,101) & - +rxt(k,183)* y(k,103) +rxt(k,253)* y(k,114) +rxt(k,236)* y(k,115) & - +rxt(k,218)* y(k,118) +rxt(k,160)* y(k,125) +rxt(k,287)* y(k,134) & - + rxt(k,74) + het_rates(k,107))* y(k,107) - prod(k,108) = (rxt(k,109)*y(k,86) +rxt(k,277)*y(k,127) +rxt(k,319)*y(k,124) + & - rxt(k,345)*y(k,131) +rxt(k,358)*y(k,132))*y(k,61) & - + (rxt(k,110)*y(k,89) +rxt(k,122)*y(k,92) +rxt(k,278)*y(k,127) + & - rxt(k,279)*y(k,90))*y(k,60) + (rxt(k,300)*y(k,67) + & - rxt(k,301)*y(k,69))*y(k,109) +rxt(k,272)*y(k,108) - loss(k,71) = (rxt(k,196)* y(k,99) +rxt(k,161)* y(k,101) +rxt(k,178)* y(k,103) & - +rxt(k,249)* y(k,114) +rxt(k,231)* y(k,115) +rxt(k,214)* y(k,118) & - +rxt(k,155)* y(k,125) + rxt(k,272) + het_rates(k,108))* y(k,108) - prod(k,71) =rxt(k,121)*y(k,92)*y(k,60) +rxt(k,287)*y(k,134)*y(k,107) - loss(k,85) = ((rxt(k,275) +rxt(k,297))* y(k,47) +rxt(k,299)* y(k,49) & - +rxt(k,300)* y(k,67) +rxt(k,301)* y(k,69) +rxt(k,187)* y(k,99) & - + (rxt(k,191) +rxt(k,263))* y(k,101) + (rxt(k,170) +rxt(k,265)) & - * y(k,103) +rxt(k,240)* y(k,114) +rxt(k,222)* y(k,115) +rxt(k,205) & - * y(k,118) +rxt(k,147)* y(k,125) +rxt(k,295)* y(k,134) + rxt(k,75) & - + het_rates(k,109))* y(k,109) - prod(k,85) = (rxt(k,108)*y(k,86) +rxt(k,123)*y(k,90) +rxt(k,289)*y(k,107) + & - rxt(k,318)*y(k,124) +rxt(k,356)*y(k,132))*y(k,49) & - + (rxt(k,119)*y(k,92) +rxt(k,276)*y(k,127) +rxt(k,280)*y(k,90) + & - rxt(k,290)*y(k,107))*y(k,61) +rxt(k,271)*y(k,127)*y(k,60) & - +rxt(k,291)*y(k,107)*y(k,69) +rxt(k,281)*y(k,111) +rxt(k,274) & - *y(k,113) - loss(k,77) = (rxt(k,292)* y(k,56) +rxt(k,199)* y(k,99) +rxt(k,164)* y(k,101) & - +rxt(k,182)* y(k,103) +rxt(k,252)* y(k,114) +rxt(k,234)* y(k,115) & - +rxt(k,217)* y(k,118) +rxt(k,159)* y(k,125) + rxt(k,273) & - + het_rates(k,110))* y(k,110) - prod(k,77) =rxt(k,293)*y(k,134)*y(k,111) - loss(k,79) = (rxt(k,294)* y(k,49) +rxt(k,296)* y(k,56) +rxt(k,192)* y(k,99) & - + (rxt(k,235) +rxt(k,261))* y(k,101) + (rxt(k,174) +rxt(k,262)) & - * y(k,103) +rxt(k,244)* y(k,114) +rxt(k,227)* y(k,115) +rxt(k,209) & - * y(k,118) +rxt(k,151)* y(k,125) +rxt(k,293)* y(k,134) + rxt(k,281) & - + het_rates(k,111))* y(k,111) - prod(k,79) =rxt(k,120)*y(k,92)*y(k,61) +rxt(k,295)*y(k,134)*y(k,109) & - +rxt(k,273)*y(k,110) - loss(k,73) = (rxt(k,298)* y(k,49) +rxt(k,197)* y(k,99) +rxt(k,162)* y(k,101) & - +rxt(k,179)* y(k,103) +rxt(k,250)* y(k,114) +rxt(k,232)* y(k,115) & - +rxt(k,215)* y(k,118) +rxt(k,156)* y(k,125) + het_rates(k,112)) & - * y(k,112) - prod(k,73) =rxt(k,275)*y(k,109)*y(k,47) - loss(k,76) = (rxt(k,184)* y(k,99) + (rxt(k,145) +rxt(k,268))* y(k,101) & - + (rxt(k,166) +rxt(k,269))* y(k,103) +rxt(k,237)* y(k,114) & - +rxt(k,219)* y(k,115) +rxt(k,201)* y(k,118) +rxt(k,254)* y(k,125) & - + rxt(k,274) + het_rates(k,113))* y(k,113) - prod(k,76) = (rxt(k,294)*y(k,111) +rxt(k,298)*y(k,112) +rxt(k,299)*y(k,109)) & - *y(k,49) + (rxt(k,292)*y(k,110) +rxt(k,296)*y(k,111))*y(k,56) - loss(k,92) = (rxt(k,367)* y(k,30) +rxt(k,247)* y(k,86) +rxt(k,251)* y(k,87) & - +rxt(k,239)* y(k,88) +rxt(k,238)* y(k,90) +rxt(k,245)* y(k,91) & - +rxt(k,248)* y(k,92) +rxt(k,243)* y(k,93) +rxt(k,579)* y(k,94) & - +rxt(k,241)* y(k,96) +rxt(k,253)* y(k,107) +rxt(k,249)* y(k,108) & - +rxt(k,240)* y(k,109) +rxt(k,252)* y(k,110) +rxt(k,244)* y(k,111) & - +rxt(k,250)* y(k,112) +rxt(k,237)* y(k,113) +rxt(k,242)* y(k,124) & - +rxt(k,364)* y(k,134) + rxt(k,369) + het_rates(k,114))* y(k,114) - prod(k,92) = (rxt(k,589) +rxt(k,588)*y(k,54) +rxt(k,590)*y(k,60))*y(k,125) & - +rxt(k,16)*y(k,60) +rxt(k,583)*y(k,106)*y(k,67) +rxt(k,587)*y(k,120) & - *y(k,68) +rxt(k,368)*y(k,117) +rxt(k,370)*y(k,119) +rxt(k,592) & - *y(k,133) - loss(k,93) = (rxt(k,229)* y(k,86) +rxt(k,233)* y(k,87) +rxt(k,221)* y(k,88) & - +rxt(k,220)* y(k,90) +rxt(k,228)* y(k,91) +rxt(k,230)* y(k,92) & - +rxt(k,226)* y(k,93) +rxt(k,302)* y(k,94) +rxt(k,223)* y(k,96) & - +rxt(k,236)* y(k,107) +rxt(k,231)* y(k,108) +rxt(k,222)* y(k,109) & - +rxt(k,234)* y(k,110) +rxt(k,227)* y(k,111) +rxt(k,232)* y(k,112) & - +rxt(k,219)* y(k,113) +rxt(k,225)* y(k,124) +rxt(k,366)* y(k,134) & - + het_rates(k,115))* y(k,115) - prod(k,93) =rxt(k,365)*y(k,134)*y(k,118) - loss(k,37) = (rxt(k,303)* y(k,94) +rxt(k,304)* y(k,134) + het_rates(k,116)) & - * y(k,116) - prod(k,37) =rxt(k,366)*y(k,134)*y(k,115) - loss(k,41) = (rxt(k,305)* y(k,94) +rxt(k,306)* y(k,134) + rxt(k,368) & - + het_rates(k,117))* y(k,117) - prod(k,41) = (rxt(k,311)*y(k,119) +rxt(k,367)*y(k,114))*y(k,30) - loss(k,96) = (rxt(k,308)* y(k,38) +rxt(k,211)* y(k,86) +rxt(k,216)* y(k,87) & - +rxt(k,204)* y(k,88) +rxt(k,203)* y(k,90) +rxt(k,210)* y(k,91) & - +rxt(k,212)* y(k,92) +rxt(k,208)* y(k,93) +rxt(k,307)* y(k,94) & - +rxt(k,206)* y(k,96) +rxt(k,309)* y(k,97) +rxt(k,218)* y(k,107) & - +rxt(k,214)* y(k,108) +rxt(k,205)* y(k,109) +rxt(k,217)* y(k,110) & - +rxt(k,209)* y(k,111) +rxt(k,215)* y(k,112) +rxt(k,201)* y(k,113) & - +rxt(k,207)* y(k,124) +rxt(k,310)* y(k,130) +rxt(k,365)* y(k,134) & - + het_rates(k,118))* y(k,118) - prod(k,96) = (rxt(k,306)*y(k,117) +rxt(k,312)*y(k,119) +rxt(k,364)*y(k,114)) & - *y(k,134) - loss(k,40) = (rxt(k,311)* y(k,30) +rxt(k,383)* y(k,94) +rxt(k,312)* y(k,134) & - + rxt(k,370) + het_rates(k,119))* y(k,119) - prod(k,40) =rxt(k,369)*y(k,114) - loss(k,42) = (rxt(k,585)* y(k,67) + (rxt(k,586) +rxt(k,587))* y(k,68) & - + het_rates(k,120))* y(k,120) - prod(k,42) =rxt(k,65)*y(k,54) - loss(k,82) = (rxt(k,474)* y(k,7) +rxt(k,475)* y(k,8) +rxt(k,501)* y(k,9) & - +rxt(k,476)* y(k,10) +rxt(k,477)* y(k,11) +rxt(k,478)* y(k,12) & - +rxt(k,479)* y(k,13) +rxt(k,480)* y(k,14) +rxt(k,524)* y(k,15) & - +rxt(k,525)* y(k,17) + (rxt(k,537) +rxt(k,538) +rxt(k,539))* y(k,22) & - +rxt(k,502)* y(k,23) +rxt(k,510)* y(k,31) +rxt(k,511)* y(k,32) & - +rxt(k,388)* y(k,39) +rxt(k,503)* y(k,40) + (rxt(k,504) +rxt(k,505)) & - * y(k,43) +rxt(k,526)* y(k,44) +rxt(k,527)* y(k,45) +rxt(k,528) & - * y(k,46) + (rxt(k,481) +rxt(k,482))* y(k,47) + (rxt(k,441) + & - rxt(k,442))* y(k,55) + (rxt(k,391) +rxt(k,392))* y(k,68) +rxt(k,393) & - * y(k,69) +rxt(k,389)* y(k,134) + rxt(k,390) + het_rates(k,121)) & - * y(k,121) - prod(k,82) = (rxt(k,6) +rxt(k,424)*y(k,105))*y(k,68) +rxt(k,7)*y(k,69) & - +.850_r8*rxt(k,580)*y(k,125)*y(k,94) +rxt(k,1)*y(k,134) - loss(k,58) = (rxt(k,395)* y(k,67) +rxt(k,396)* y(k,68) +rxt(k,320)* y(k,124) & - +rxt(k,338)* y(k,129) +rxt(k,360)* y(k,132) + rxt(k,386) & - + rxt(k,394) + het_rates(k,122))* y(k,122) - prod(k,58) = (rxt(k,398) +rxt(k,397)*y(k,30) +rxt(k,399)*y(k,67) + & - rxt(k,400)*y(k,68) +rxt(k,401)*y(k,69))*y(k,123) +rxt(k,7)*y(k,69) - loss(k,28) = (rxt(k,397)* y(k,30) +rxt(k,399)* y(k,67) +rxt(k,400)* y(k,68) & - +rxt(k,401)* y(k,69) + rxt(k,387) + rxt(k,398) + het_rates(k,123)) & - * y(k,123) - prod(k,28) =rxt(k,391)*y(k,121)*y(k,68) - loss(k,102) = (rxt(k,314)* y(k,26) +rxt(k,315)* y(k,30) +rxt(k,316)* y(k,38) & - +rxt(k,317)* y(k,47) +rxt(k,318)* y(k,49) +rxt(k,319)* y(k,61) & - + (rxt(k,323) +rxt(k,324))* y(k,67) +rxt(k,321)* y(k,68) +rxt(k,322) & - * y(k,69) +rxt(k,313)* y(k,85) +rxt(k,189)* y(k,99) +rxt(k,213) & - * y(k,101) +rxt(k,172)* y(k,103) +rxt(k,242)* y(k,114) +rxt(k,225) & - * y(k,115) +rxt(k,207)* y(k,118) +rxt(k,320)* y(k,122) +rxt(k,149) & - * y(k,125) + rxt(k,92) + rxt(k,136) + het_rates(k,124))* y(k,124) - prod(k,102) = (rxt(k,124)*y(k,90) +rxt(k,333)*y(k,127))*y(k,67) & - + (rxt(k,132)*y(k,94) +rxt(k,134)*y(k,94))*y(k,68) +rxt(k,64) & - *y(k,93) +rxt(k,96)*y(k,128) - loss(k,103) = (rxt(k,588)* y(k,54) +rxt(k,590)* y(k,60) +rxt(k,363)* y(k,68) & - +rxt(k,153)* y(k,86) +rxt(k,158)* y(k,87) +rxt(k,256)* y(k,88) & - +rxt(k,255)* y(k,90) +rxt(k,152)* y(k,91) +rxt(k,154)* y(k,92) & - +rxt(k,150)* y(k,93) +rxt(k,580)* y(k,94) +rxt(k,148)* y(k,96) & - +rxt(k,160)* y(k,107) +rxt(k,155)* y(k,108) +rxt(k,147)* y(k,109) & - +rxt(k,159)* y(k,110) +rxt(k,151)* y(k,111) +rxt(k,156)* y(k,112) & - +rxt(k,254)* y(k,113) +rxt(k,149)* y(k,124) +rxt(k,328)* y(k,134) & - + rxt(k,589) + het_rates(k,125))* y(k,125) - prod(k,103) = (rxt(k,83) +rxt(k,87) +rxt(k,582)*y(k,106) + & - rxt(k,586)*y(k,120) +rxt(k,593)*y(k,133))*y(k,68) & - + (rxt(k,337)*y(k,67) +rxt(k,338)*y(k,122))*y(k,129) & - +rxt(k,591)*y(k,133)*y(k,30) +2.000_r8*rxt(k,149)*y(k,125)*y(k,124) & - +rxt(k,93)*y(k,126) - loss(k,52) = (rxt(k,325)* y(k,94) + (rxt(k,326) +rxt(k,327))* y(k,134) & - + rxt(k,93) + het_rates(k,126))* y(k,126) - prod(k,52) = (rxt(k,328)*y(k,125) +rxt(k,336)*y(k,129))*y(k,134) - loss(k,72) = (rxt(k,329)* y(k,30) +rxt(k,330)* y(k,38) + (rxt(k,271) + & - rxt(k,278))* y(k,60) + (rxt(k,276) +rxt(k,277))* y(k,61) & - + (rxt(k,332) +rxt(k,333))* y(k,67) +rxt(k,331)* y(k,69) + rxt(k,94) & - + rxt(k,95) + het_rates(k,127))* y(k,127) - prod(k,72) = (rxt(k,131)*y(k,93) +rxt(k,322)*y(k,124) +rxt(k,347)*y(k,131) + & - rxt(k,362)*y(k,132))*y(k,69) + (rxt(k,125)*y(k,90) + & - rxt(k,361)*y(k,132))*y(k,68) +rxt(k,335)*y(k,128)*y(k,67) - loss(k,38) = (rxt(k,334)* y(k,30) +rxt(k,335)* y(k,67) + rxt(k,96) & - + het_rates(k,128))* y(k,128) - prod(k,38) =rxt(k,321)*y(k,124)*y(k,68) - loss(k,66) = (rxt(k,337)* y(k,67) +rxt(k,379)* y(k,94) +rxt(k,338)* y(k,122) & - +rxt(k,336)* y(k,134) + het_rates(k,129))* y(k,129) - prod(k,66) =rxt(k,363)*y(k,125)*y(k,68) - loss(k,87) = (rxt(k,497)* y(k,4) +rxt(k,513)* y(k,15) +rxt(k,531)* y(k,16) & - +rxt(k,515)* y(k,17) +rxt(k,516)* y(k,18) +rxt(k,518)* y(k,19) & - +rxt(k,534)* y(k,21) +rxt(k,535)* y(k,22) +rxt(k,520)* y(k,23) & - + (rxt(k,467) +rxt(k,468))* y(k,26) +rxt(k,465)* y(k,27) & - + (rxt(k,536) +rxt(k,540))* y(k,29) + (rxt(k,556) +rxt(k,557)) & - * y(k,33) +rxt(k,414)* y(k,39) +rxt(k,415)* y(k,41) +rxt(k,499) & - * y(k,43) +rxt(k,521)* y(k,44) +rxt(k,522)* y(k,45) +rxt(k,523) & - * y(k,46) +rxt(k,470)* y(k,47) +rxt(k,446)* y(k,49) +rxt(k,422) & - * y(k,50) +rxt(k,473)* y(k,52) +rxt(k,339)* y(k,53) +rxt(k,437) & - * y(k,54) +rxt(k,348)* y(k,60) +rxt(k,445)* y(k,61) +rxt(k,436) & - * y(k,62) +rxt(k,417)* y(k,67) +rxt(k,418)* y(k,69) +rxt(k,542) & - * y(k,71) +rxt(k,547)* y(k,74) +rxt(k,552)* y(k,75) +rxt(k,553) & - * y(k,76) +rxt(k,416)* y(k,97) +rxt(k,310)* y(k,118) & - + 2._r8*(rxt(k,419) +rxt(k,420))* y(k,130) + het_rates(k,130)) & - * y(k,130) - prod(k,87) = (rxt(k,405)*y(k,39) +rxt(k,406)*y(k,41) +rxt(k,411)*y(k,97) + & - rxt(k,469)*y(k,47) +rxt(k,472)*y(k,52) +rxt(k,498)*y(k,43) + & - rxt(k,500)*y(k,51) +rxt(k,530)*y(k,16))*y(k,67) & - + (rxt(k,148)*y(k,125) +rxt(k,171)*y(k,103) +rxt(k,188)*y(k,99) + & - rxt(k,202)*y(k,101) +rxt(k,206)*y(k,118) +rxt(k,223)*y(k,115) + & - rxt(k,241)*y(k,114))*y(k,96) + (rxt(k,3) +rxt(k,138)*y(k,95) + & - rxt(k,327)*y(k,126) +rxt(k,354)*y(k,132) + & - 2.000_r8*rxt(k,389)*y(k,121) +rxt(k,508)*y(k,37))*y(k,134) & - + (2.000_r8*rxt(k,408)*y(k,38) +rxt(k,412)*y(k,69) + & - rxt(k,433)*y(k,62) +rxt(k,438)*y(k,60) +rxt(k,454)*y(k,85))*y(k,97) & - + (rxt(k,97) +rxt(k,340)*y(k,85) +rxt(k,341)*y(k,26) + & - rxt(k,345)*y(k,61) +rxt(k,347)*y(k,69))*y(k,131) & - + (rxt(k,537)*y(k,22) +rxt(k,388)*y(k,39) +rxt(k,481)*y(k,47) + & - rxt(k,504)*y(k,43))*y(k,121) + (rxt(k,9) +rxt(k,123)*y(k,90) + & - rxt(k,356)*y(k,132))*y(k,49) + (rxt(k,23) + & - .300_r8*rxt(k,534)*y(k,130))*y(k,21) + (rxt(k,128)*y(k,93) + & - rxt(k,413)*y(k,69))*y(k,38) +2.000_r8*rxt(k,4)*y(k,41) & - +rxt(k,355)*y(k,132)*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,560)*y(k,61) & - +rxt(k,137)*y(k,95)*y(k,94) - loss(k,109) = (rxt(k,341)* y(k,26) +rxt(k,342)* y(k,30) +rxt(k,343)* y(k,38) & - +rxt(k,344)* y(k,47) +rxt(k,345)* y(k,61) +rxt(k,346)* y(k,67) & - +rxt(k,347)* y(k,69) +rxt(k,340)* y(k,85) + rxt(k,97) & - + het_rates(k,131))* y(k,131) - prod(k,109) = (rxt(k,116)*y(k,90) +rxt(k,286)*y(k,107) +rxt(k,330)*y(k,127)) & - *y(k,38) + (rxt(k,353)*y(k,39) +rxt(k,354)*y(k,134))*y(k,132) - loss(k,110) = (rxt(k,350)* y(k,26) +rxt(k,351)* y(k,30) + (rxt(k,352) + & - rxt(k,353))* y(k,39) +rxt(k,355)* y(k,47) +rxt(k,356)* y(k,49) & - +rxt(k,135)* y(k,60) +rxt(k,358)* y(k,61) +rxt(k,359)* y(k,67) & - +rxt(k,361)* y(k,68) +rxt(k,362)* y(k,69) +rxt(k,349)* y(k,85) & - +rxt(k,360)* y(k,122) +rxt(k,354)* y(k,134) + rxt(k,98) + rxt(k,357) & - + het_rates(k,132))* y(k,132) - prod(k,110) =rxt(k,324)*y(k,124)*y(k,67) +rxt(k,133)*y(k,94)*y(k,69) & - +rxt(k,62)*y(k,90) +rxt(k,95)*y(k,127) - loss(k,53) = (rxt(k,591)* y(k,30) +rxt(k,593)* y(k,68) + rxt(k,592) & - + het_rates(k,133))* y(k,133) - prod(k,53) = (rxt(k,76) +rxt(k,77) +rxt(k,78) +rxt(k,79) +rxt(k,80) + & - rxt(k,81) +rxt(k,584)*y(k,106) +rxt(k,585)*y(k,120))*y(k,67) & - + (rxt(k,82) +rxt(k,84) +rxt(k,86) +rxt(k,88) +rxt(k,90) +rxt(k,91)) & - *y(k,68) - loss(k,112) = (rxt(k,508)* y(k,37) +rxt(k,554)* y(k,77) +rxt(k,106)* y(k,86) & - +rxt(k,118)* y(k,90) +rxt(k,117)* y(k,92) +rxt(k,138)* y(k,95) & - +rxt(k,373)* y(k,98) +rxt(k,375)* y(k,99) +rxt(k,139)* y(k,100) & - +rxt(k,377)* y(k,101) +rxt(k,142)* y(k,102) +rxt(k,371)* y(k,104) & - +rxt(k,287)* y(k,107) +rxt(k,295)* y(k,109) +rxt(k,293)* y(k,111) & - +rxt(k,364)* y(k,114) +rxt(k,366)* y(k,115) +rxt(k,304)* y(k,116) & - +rxt(k,306)* y(k,117) +rxt(k,365)* y(k,118) +rxt(k,312)* y(k,119) & - +rxt(k,389)* y(k,121) +rxt(k,328)* y(k,125) + (rxt(k,326) + & - rxt(k,327))* y(k,126) +rxt(k,336)* y(k,129) +rxt(k,354)* y(k,132) & - + rxt(k,1) + rxt(k,2) + rxt(k,3) + het_rates(k,134))* y(k,134) - prod(k,112) = (rxt(k,376) +4.000_r8*rxt(k,140)*y(k,94) + & - 4.000_r8*rxt(k,145)*y(k,113) +4.000_r8*rxt(k,146)*y(k,86) + & - 5.000_r8*rxt(k,157)*y(k,92) +5.000_r8*rxt(k,161)*y(k,108) + & - 4.000_r8*rxt(k,162)*y(k,112) +5.000_r8*rxt(k,163)*y(k,87) + & - 6.000_r8*rxt(k,164)*y(k,110) +4.000_r8*rxt(k,165)*y(k,107) + & - 4.000_r8*rxt(k,169)*y(k,90) +4.000_r8*rxt(k,180)*y(k,88) + & - 4.000_r8*rxt(k,191)*y(k,109) +4.000_r8*rxt(k,202)*y(k,96) + & - 4.000_r8*rxt(k,213)*y(k,124) +4.000_r8*rxt(k,224)*y(k,93) + & - 5.000_r8*rxt(k,235)*y(k,111) +6.000_r8*rxt(k,246)*y(k,91) + & - 4.000_r8*rxt(k,257)*y(k,90) +5.000_r8*rxt(k,259)*y(k,92) + & - 5.000_r8*rxt(k,261)*y(k,111) +4.000_r8*rxt(k,263)*y(k,109) + & - 4.000_r8*rxt(k,266)*y(k,88) +4.000_r8*rxt(k,268)*y(k,113) + & - 6.000_r8*rxt(k,270)*y(k,91))*y(k,101) + (rxt(k,378) + & - 5.000_r8*rxt(k,143)*y(k,94) +5.000_r8*rxt(k,166)*y(k,113) + & - 5.000_r8*rxt(k,167)*y(k,90) +5.000_r8*rxt(k,168)*y(k,88) + & - 5.000_r8*rxt(k,170)*y(k,109) +5.000_r8*rxt(k,171)*y(k,96) + & - 5.000_r8*rxt(k,172)*y(k,124) +5.000_r8*rxt(k,173)*y(k,93) + & - 6.000_r8*rxt(k,174)*y(k,111) +7.000_r8*rxt(k,175)*y(k,91) + & - 5.000_r8*rxt(k,176)*y(k,86) +6.000_r8*rxt(k,177)*y(k,92) + & - 6.000_r8*rxt(k,178)*y(k,108) +5.000_r8*rxt(k,179)*y(k,112) + & - 6.000_r8*rxt(k,181)*y(k,87) +7.000_r8*rxt(k,182)*y(k,110) + & - 5.000_r8*rxt(k,183)*y(k,107) +7.000_r8*rxt(k,258)*y(k,91) + & - 6.000_r8*rxt(k,260)*y(k,92) +6.000_r8*rxt(k,262)*y(k,111) + & - 5.000_r8*rxt(k,264)*y(k,90) +5.000_r8*rxt(k,265)*y(k,109) + & - 5.000_r8*rxt(k,267)*y(k,88) +5.000_r8*rxt(k,269)*y(k,113))*y(k,103) & - + (rxt(k,374) +3.000_r8*rxt(k,184)*y(k,113) + & - 3.000_r8*rxt(k,185)*y(k,90) +3.000_r8*rxt(k,186)*y(k,88) + & - 3.000_r8*rxt(k,187)*y(k,109) +3.000_r8*rxt(k,188)*y(k,96) + & - 3.000_r8*rxt(k,189)*y(k,124) +3.000_r8*rxt(k,190)*y(k,93) + & - 4.000_r8*rxt(k,192)*y(k,111) +5.000_r8*rxt(k,193)*y(k,91) + & - 3.000_r8*rxt(k,194)*y(k,86) +4.000_r8*rxt(k,195)*y(k,92) + & - 4.000_r8*rxt(k,196)*y(k,108) +3.000_r8*rxt(k,197)*y(k,112) + & - 4.000_r8*rxt(k,198)*y(k,87) +5.000_r8*rxt(k,199)*y(k,110) + & - 3.000_r8*rxt(k,200)*y(k,107) +3.000_r8*rxt(k,382)*y(k,94))*y(k,99) & - + (rxt(k,513)*y(k,15) +rxt(k,515)*y(k,17) +rxt(k,516)*y(k,18) + & - rxt(k,518)*y(k,19) +rxt(k,523)*y(k,46) +rxt(k,535)*y(k,22) + & - rxt(k,339)*y(k,53) +rxt(k,414)*y(k,39) +rxt(k,415)*y(k,41) + & - rxt(k,416)*y(k,97) +rxt(k,419)*y(k,130) +rxt(k,422)*y(k,50) + & - rxt(k,446)*y(k,49) +rxt(k,470)*y(k,47) +rxt(k,473)*y(k,52) + & - rxt(k,499)*y(k,43) +rxt(k,531)*y(k,16) +rxt(k,534)*y(k,21))*y(k,130) & - + (2.000_r8*rxt(k,219)*y(k,113) +2.000_r8*rxt(k,220)*y(k,90) + & - 2.000_r8*rxt(k,221)*y(k,88) +2.000_r8*rxt(k,222)*y(k,109) + & - 2.000_r8*rxt(k,223)*y(k,96) +2.000_r8*rxt(k,225)*y(k,124) + & - 2.000_r8*rxt(k,226)*y(k,93) +3.000_r8*rxt(k,227)*y(k,111) + & - 4.000_r8*rxt(k,228)*y(k,91) +2.000_r8*rxt(k,229)*y(k,86) + & - 3.000_r8*rxt(k,230)*y(k,92) +3.000_r8*rxt(k,231)*y(k,108) + & - 2.000_r8*rxt(k,232)*y(k,112) +3.000_r8*rxt(k,233)*y(k,87) + & - 4.000_r8*rxt(k,234)*y(k,110) +2.000_r8*rxt(k,236)*y(k,107) + & - 2.000_r8*rxt(k,302)*y(k,94))*y(k,115) + (rxt(k,201)*y(k,113) + & - rxt(k,203)*y(k,90) +rxt(k,204)*y(k,88) +rxt(k,205)*y(k,109) + & - rxt(k,206)*y(k,96) +rxt(k,207)*y(k,124) +rxt(k,208)*y(k,93) + & - 2.000_r8*rxt(k,209)*y(k,111) +3.000_r8*rxt(k,210)*y(k,91) + & - rxt(k,211)*y(k,86) +2.000_r8*rxt(k,212)*y(k,92) + & - 2.000_r8*rxt(k,214)*y(k,108) +rxt(k,215)*y(k,112) + & - 2.000_r8*rxt(k,216)*y(k,87) +3.000_r8*rxt(k,217)*y(k,110) + & - rxt(k,218)*y(k,107) +rxt(k,307)*y(k,94))*y(k,118) & - + (rxt(k,105)*y(k,87) +rxt(k,344)*y(k,131) +rxt(k,563)*y(k,52) + & - rxt(k,569)*y(k,52) +rxt(k,570)*y(k,51) +rxt(k,574)*y(k,52) + & - rxt(k,575)*y(k,51))*y(k,47) + (rxt(k,63) +rxt(k,282) + & - rxt(k,119)*y(k,61) +rxt(k,122)*y(k,60) +rxt(k,154)*y(k,125) + & - rxt(k,248)*y(k,114))*y(k,92) + (rxt(k,137)*y(k,95) + & - 3.000_r8*rxt(k,303)*y(k,116) +rxt(k,325)*y(k,126) + & - rxt(k,380)*y(k,104) +2.000_r8*rxt(k,381)*y(k,98))*y(k,94) & - + (rxt(k,244)*y(k,111) +2.000_r8*rxt(k,245)*y(k,91) + & - rxt(k,249)*y(k,108) +rxt(k,251)*y(k,87) + & - 2.000_r8*rxt(k,252)*y(k,110))*y(k,114) + (rxt(k,151)*y(k,111) + & - 2.000_r8*rxt(k,152)*y(k,91) +rxt(k,155)*y(k,108) + & - rxt(k,158)*y(k,87) +2.000_r8*rxt(k,159)*y(k,110))*y(k,125) & - + (rxt(k,343)*y(k,131) +rxt(k,409)*y(k,97))*y(k,38) + (rxt(k,273) + & - rxt(k,292)*y(k,56))*y(k,110) + (rxt(k,281) +rxt(k,294)*y(k,49)) & - *y(k,111) +rxt(k,352)*y(k,132)*y(k,39) +rxt(k,99)*y(k,42) +rxt(k,384) & - *y(k,87) +rxt(k,283)*y(k,91) +rxt(k,372)*y(k,98) +rxt(k,272)*y(k,108) & - +rxt(k,93)*y(k,126) - 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 6d6a518d63..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 @@ -8,71 +8,72 @@ subroutine set_rates( rxt_rates, sol, ncol ) real(r8), intent(inout) :: rxt_rates(:,:,:) real(r8), intent(in) :: sol(:,:,:) integer, intent(in) :: ncol - rxt_rates(:ncol,:, 1) = rxt_rates(:ncol,:, 1)*sol(:ncol,:, 134) ! rate_const*H2O - rxt_rates(:ncol,:, 2) = rxt_rates(:ncol,:, 2)*sol(:ncol,:, 134) ! rate_const*H2O - rxt_rates(:ncol,:, 3) = rxt_rates(:ncol,:, 3)*sol(:ncol,:, 134) ! 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,:, 30) ! rate_const*CO2 - rxt_rates(:ncol,:, 62) = rxt_rates(:ncol,:, 62)*sol(:ncol,:, 90) ! rate_const*CO3m - rxt_rates(:ncol,:, 63) = rxt_rates(:ncol,:, 63)*sol(:ncol,:, 92) ! rate_const*CO3m_H2O - rxt_rates(:ncol,:, 64) = rxt_rates(:ncol,:, 64)*sol(:ncol,:, 93) ! rate_const*CO4m - rxt_rates(:ncol,:, 65) = rxt_rates(:ncol,:, 65)*sol(:ncol,:, 54) ! rate_const*N + 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,:, 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 @@ -81,525 +82,538 @@ subroutine set_rates( rxt_rates, sol, ncol ) ! rate_const*N2 ! rate_const*N2 ! rate_const*N2 - rxt_rates(:ncol,:, 74) = rxt_rates(:ncol,:, 74)*sol(:ncol,:, 107) ! rate_const*NO2m - rxt_rates(:ncol,:, 75) = rxt_rates(:ncol,:, 75)*sol(:ncol,:, 109) ! rate_const*NO3m - rxt_rates(:ncol,:, 76) = rxt_rates(:ncol,:, 76)*sol(:ncol,:, 67) ! rate_const*O - 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,:, 68) ! rate_const*O2 - 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,:, 124) ! rate_const*O2m - rxt_rates(:ncol,:, 93) = rxt_rates(:ncol,:, 93)*sol(:ncol,:, 126) ! rate_const*O2p_H2O - rxt_rates(:ncol,:, 94) = rxt_rates(:ncol,:, 94)*sol(:ncol,:, 127) ! rate_const*O3m - rxt_rates(:ncol,:, 95) = rxt_rates(:ncol,:, 95)*sol(:ncol,:, 127) ! rate_const*O3m - rxt_rates(:ncol,:, 96) = rxt_rates(:ncol,:, 96)*sol(:ncol,:, 128) ! rate_const*O4m - rxt_rates(:ncol,:, 97) = rxt_rates(:ncol,:, 97)*sol(:ncol,:, 131) ! rate_const*OHm - rxt_rates(:ncol,:, 98) = rxt_rates(:ncol,:, 98)*sol(:ncol,:, 132) ! rate_const*Om - rxt_rates(:ncol,:, 99) = rxt_rates(:ncol,:, 99)*sol(:ncol,:, 42) ! rate_const*H2SO4 - rxt_rates(:ncol,:, 100) = rxt_rates(:ncol,:, 100)*sol(:ncol,:, 71) ! rate_const*OCS - rxt_rates(:ncol,:, 101) = rxt_rates(:ncol,:, 101)*sol(:ncol,:, 75) ! rate_const*SO - rxt_rates(:ncol,:, 102) = rxt_rates(:ncol,:, 102)*sol(:ncol,:, 76) ! rate_const*SO2 - rxt_rates(:ncol,:, 103) = rxt_rates(:ncol,:, 103)*sol(:ncol,:, 77) ! rate_const*SO3 - rxt_rates(:ncol,:, 104) = rxt_rates(:ncol,:, 104)*sol(:ncol,:, 86)*sol(:ncol,:, 38) ! rate_const*CLm*H - rxt_rates(:ncol,:, 105) = rxt_rates(:ncol,:, 105)*sol(:ncol,:, 87)*sol(:ncol,:, 47) ! rate_const*CLm_H2O*HCL - rxt_rates(:ncol,:, 106) = rxt_rates(:ncol,:, 106)*sol(:ncol,:, 86)*sol(:ncol,:, 134) ! rate_const*M*CLm*H2O - rxt_rates(:ncol,:, 107) = rxt_rates(:ncol,:, 107)*sol(:ncol,:, 47)*sol(:ncol,:, 86) ! rate_const*M*HCL*CLm - rxt_rates(:ncol,:, 108) = rxt_rates(:ncol,:, 108)*sol(:ncol,:, 86)*sol(:ncol,:, 49) ! rate_const*CLm*HNO3 - rxt_rates(:ncol,:, 109) = rxt_rates(:ncol,:, 109)*sol(:ncol,:, 86)*sol(:ncol,:, 61) ! rate_const*CLm*NO2 - rxt_rates(:ncol,:, 110) = rxt_rates(:ncol,:, 110)*sol(:ncol,:, 89)*sol(:ncol,:, 60) ! rate_const*CLOm*NO - rxt_rates(:ncol,:, 111) = rxt_rates(:ncol,:, 111)*sol(:ncol,:, 89)*sol(:ncol,:, 60) ! rate_const*CLOm*NO - rxt_rates(:ncol,:, 112) = rxt_rates(:ncol,:, 112)*sol(:ncol,:, 89)*sol(:ncol,:, 67) ! rate_const*CLOm*O - rxt_rates(:ncol,:, 113) = rxt_rates(:ncol,:, 113)*sol(:ncol,:, 85)*sol(:ncol,:, 90) ! rate_const*CL*CO3m - rxt_rates(:ncol,:, 114) = rxt_rates(:ncol,:, 114)*sol(:ncol,:, 85)*sol(:ncol,:, 90) ! rate_const*CL*CO3m - rxt_rates(:ncol,:, 115) = rxt_rates(:ncol,:, 115)*sol(:ncol,:, 26)*sol(:ncol,:, 90) ! rate_const*CLO*CO3m - rxt_rates(:ncol,:, 116) = rxt_rates(:ncol,:, 116)*sol(:ncol,:, 38)*sol(:ncol,:, 90) ! rate_const*H*CO3m - rxt_rates(:ncol,:, 117) = rxt_rates(:ncol,:, 117)*sol(:ncol,:, 92)*sol(:ncol,:, 134) ! rate_const*M*CO3m_H2O*H2O - rxt_rates(:ncol,:, 118) = rxt_rates(:ncol,:, 118)*sol(:ncol,:, 90)*sol(:ncol,:, 134) ! rate_const*M*CO3m*H2O - rxt_rates(:ncol,:, 119) = rxt_rates(:ncol,:, 119)*sol(:ncol,:, 92)*sol(:ncol,:, 61) ! rate_const*CO3m_H2O*NO2 - rxt_rates(:ncol,:, 120) = rxt_rates(:ncol,:, 120)*sol(:ncol,:, 92)*sol(:ncol,:, 61) ! rate_const*CO3m_H2O*NO2 - rxt_rates(:ncol,:, 121) = rxt_rates(:ncol,:, 121)*sol(:ncol,:, 92)*sol(:ncol,:, 60) ! rate_const*CO3m_H2O*NO - rxt_rates(:ncol,:, 122) = rxt_rates(:ncol,:, 122)*sol(:ncol,:, 92)*sol(:ncol,:, 60) ! rate_const*CO3m_H2O*NO - rxt_rates(:ncol,:, 123) = rxt_rates(:ncol,:, 123)*sol(:ncol,:, 90)*sol(:ncol,:, 49) ! rate_const*CO3m*HNO3 - rxt_rates(:ncol,:, 124) = rxt_rates(:ncol,:, 124)*sol(:ncol,:, 90)*sol(:ncol,:, 67) ! rate_const*CO3m*O - rxt_rates(:ncol,:, 125) = rxt_rates(:ncol,:, 125)*sol(:ncol,:, 68)*sol(:ncol,:, 90) ! rate_const*O2*CO3m - rxt_rates(:ncol,:, 126) = rxt_rates(:ncol,:, 126)*sol(:ncol,:, 85)*sol(:ncol,:, 93) ! rate_const*CL*CO4m - rxt_rates(:ncol,:, 127) = rxt_rates(:ncol,:, 127)*sol(:ncol,:, 26)*sol(:ncol,:, 93) ! rate_const*CLO*CO4m - rxt_rates(:ncol,:, 128) = rxt_rates(:ncol,:, 128)*sol(:ncol,:, 93)*sol(:ncol,:, 38) ! rate_const*CO4m*H - rxt_rates(:ncol,:, 129) = rxt_rates(:ncol,:, 129)*sol(:ncol,:, 93)*sol(:ncol,:, 47) ! rate_const*CO4m*HCL - rxt_rates(:ncol,:, 130) = rxt_rates(:ncol,:, 130)*sol(:ncol,:, 93)*sol(:ncol,:, 67) ! rate_const*CO4m*O - rxt_rates(:ncol,:, 131) = rxt_rates(:ncol,:, 131)*sol(:ncol,:, 93)*sol(:ncol,:, 69) ! rate_const*CO4m*O3 - rxt_rates(:ncol,:, 132) = rxt_rates(:ncol,:, 132)*sol(:ncol,:, 94)*sol(:ncol,:, 68) ! rate_const*N2*e*O2 - rxt_rates(:ncol,:, 133) = rxt_rates(:ncol,:, 133)*sol(:ncol,:, 69)*sol(:ncol,:, 94) ! rate_const*O3*e - rxt_rates(:ncol,:, 134) = rxt_rates(:ncol,:, 134)*sol(:ncol,:, 68)*sol(:ncol,:, 94) ! rate_const*M*O2*e - rxt_rates(:ncol,:, 135) = rxt_rates(:ncol,:, 135)*sol(:ncol,:, 60)*sol(:ncol,:, 132) ! rate_const*NO*Om - rxt_rates(:ncol,:, 136) = rxt_rates(:ncol,:, 136)*sol(:ncol,:, 124) ! rate_const*N2*O2m - rxt_rates(:ncol,:, 137) = rxt_rates(:ncol,:, 137)*sol(:ncol,:, 95)*sol(:ncol,:, 94) ! rate_const*H3Op_OH*e - rxt_rates(:ncol,:, 138) = rxt_rates(:ncol,:, 138)*sol(:ncol,:, 134)*sol(:ncol,:, 95) ! rate_const*H2O*H3Op_OH - rxt_rates(:ncol,:, 139) = rxt_rates(:ncol,:, 139)*sol(:ncol,:, 134)*sol(:ncol,:, 100) ! rate_const*H2O*Hp_3N1 - rxt_rates(:ncol,:, 140) = rxt_rates(:ncol,:, 140)*sol(:ncol,:, 101)*sol(:ncol,:, 94) ! rate_const*Hp_4H2O*e - rxt_rates(:ncol,:, 141) = rxt_rates(:ncol,:, 141)*sol(:ncol,:, 101)*sol(:ncol,:, 56) ! rate_const*Hp_4H2O*N2O5 - rxt_rates(:ncol,:, 142) = rxt_rates(:ncol,:, 142)*sol(:ncol,:, 134)*sol(:ncol,:, 102) ! rate_const*H2O*Hp_4N1 - rxt_rates(:ncol,:, 143) = rxt_rates(:ncol,:, 143)*sol(:ncol,:, 103)*sol(:ncol,:, 94) ! rate_const*Hp_5H2O*e - rxt_rates(:ncol,:, 144) = rxt_rates(:ncol,:, 144)*sol(:ncol,:, 103)*sol(:ncol,:, 56) ! rate_const*Hp_5H2O*N2O5 - rxt_rates(:ncol,:, 145) = rxt_rates(:ncol,:, 145)*sol(:ncol,:, 101)*sol(:ncol,:, 113) ! rate_const*Hp_4H2O*NO3mHNO3 - rxt_rates(:ncol,:, 146) = rxt_rates(:ncol,:, 146)*sol(:ncol,:, 86)*sol(:ncol,:, 101) ! rate_const*CLm*Hp_4H2O - rxt_rates(:ncol,:, 147) = rxt_rates(:ncol,:, 147)*sol(:ncol,:, 109)*sol(:ncol,:, 125) ! rate_const*NO3m*O2p - rxt_rates(:ncol,:, 148) = rxt_rates(:ncol,:, 148)*sol(:ncol,:, 96)*sol(:ncol,:, 125) ! rate_const*HCO3m*O2p - rxt_rates(:ncol,:, 149) = rxt_rates(:ncol,:, 149)*sol(:ncol,:, 124)*sol(:ncol,:, 125) ! rate_const*O2m*O2p - rxt_rates(:ncol,:, 150) = rxt_rates(:ncol,:, 150)*sol(:ncol,:, 93)*sol(:ncol,:, 125) ! rate_const*CO4m*O2p - rxt_rates(:ncol,:, 151) = rxt_rates(:ncol,:, 151)*sol(:ncol,:, 111)*sol(:ncol,:, 125) ! rate_const*NO3m_H2O*O2p - rxt_rates(:ncol,:, 152) = rxt_rates(:ncol,:, 152)*sol(:ncol,:, 91)*sol(:ncol,:, 125) ! rate_const*CO3m2H2O*O2p - rxt_rates(:ncol,:, 153) = rxt_rates(:ncol,:, 153)*sol(:ncol,:, 86)*sol(:ncol,:, 125) ! rate_const*CLm*O2p - rxt_rates(:ncol,:, 154) = rxt_rates(:ncol,:, 154)*sol(:ncol,:, 92)*sol(:ncol,:, 125) ! rate_const*CO3m_H2O*O2p - rxt_rates(:ncol,:, 155) = rxt_rates(:ncol,:, 155)*sol(:ncol,:, 108)*sol(:ncol,:, 125) ! rate_const*NO2m_H2O*O2p - rxt_rates(:ncol,:, 156) = rxt_rates(:ncol,:, 156)*sol(:ncol,:, 112)*sol(:ncol,:, 125) ! rate_const*NO3m_HCL*O2p - rxt_rates(:ncol,:, 157) = rxt_rates(:ncol,:, 157)*sol(:ncol,:, 92)*sol(:ncol,:, 101) ! rate_const*CO3m_H2O*Hp_4H2O - rxt_rates(:ncol,:, 158) = rxt_rates(:ncol,:, 158)*sol(:ncol,:, 125)*sol(:ncol,:, 87) ! rate_const*O2p*CLm_H2O - rxt_rates(:ncol,:, 159) = rxt_rates(:ncol,:, 159)*sol(:ncol,:, 110)*sol(:ncol,:, 125) ! rate_const*NO3m2H2O*O2p - rxt_rates(:ncol,:, 160) = rxt_rates(:ncol,:, 160)*sol(:ncol,:, 107)*sol(:ncol,:, 125) ! rate_const*NO2m*O2p - rxt_rates(:ncol,:, 161) = rxt_rates(:ncol,:, 161)*sol(:ncol,:, 101)*sol(:ncol,:, 108) ! rate_const*Hp_4H2O*NO2m_H2O - rxt_rates(:ncol,:, 162) = rxt_rates(:ncol,:, 162)*sol(:ncol,:, 101)*sol(:ncol,:, 112) ! rate_const*Hp_4H2O*NO3m_HCL - rxt_rates(:ncol,:, 163) = rxt_rates(:ncol,:, 163)*sol(:ncol,:, 87)*sol(:ncol,:, 101) ! rate_const*CLm_H2O*Hp_4H2O - rxt_rates(:ncol,:, 164) = rxt_rates(:ncol,:, 164)*sol(:ncol,:, 110)*sol(:ncol,:, 101) ! rate_const*NO3m2H2O*Hp_4H2O - rxt_rates(:ncol,:, 165) = rxt_rates(:ncol,:, 165)*sol(:ncol,:, 101)*sol(:ncol,:, 107) ! rate_const*Hp_4H2O*NO2m - rxt_rates(:ncol,:, 166) = rxt_rates(:ncol,:, 166)*sol(:ncol,:, 103)*sol(:ncol,:, 113) ! rate_const*Hp_5H2O*NO3mHNO3 - rxt_rates(:ncol,:, 167) = rxt_rates(:ncol,:, 167)*sol(:ncol,:, 90)*sol(:ncol,:, 103) ! rate_const*CO3m*Hp_5H2O - rxt_rates(:ncol,:, 168) = rxt_rates(:ncol,:, 168)*sol(:ncol,:, 88)*sol(:ncol,:, 103) ! rate_const*CLm_HCL*Hp_5H2O - rxt_rates(:ncol,:, 169) = rxt_rates(:ncol,:, 169)*sol(:ncol,:, 90)*sol(:ncol,:, 101) ! rate_const*CO3m*Hp_4H2O - rxt_rates(:ncol,:, 170) = rxt_rates(:ncol,:, 170)*sol(:ncol,:, 109)*sol(:ncol,:, 103) ! rate_const*NO3m*Hp_5H2O - rxt_rates(:ncol,:, 171) = rxt_rates(:ncol,:, 171)*sol(:ncol,:, 96)*sol(:ncol,:, 103) ! rate_const*HCO3m*Hp_5H2O - rxt_rates(:ncol,:, 172) = rxt_rates(:ncol,:, 172)*sol(:ncol,:, 103)*sol(:ncol,:, 124) ! rate_const*Hp_5H2O*O2m - rxt_rates(:ncol,:, 173) = rxt_rates(:ncol,:, 173)*sol(:ncol,:, 93)*sol(:ncol,:, 103) ! rate_const*CO4m*Hp_5H2O - rxt_rates(:ncol,:, 174) = rxt_rates(:ncol,:, 174)*sol(:ncol,:, 103)*sol(:ncol,:, 111) ! rate_const*Hp_5H2O*NO3m_H2O - rxt_rates(:ncol,:, 175) = rxt_rates(:ncol,:, 175)*sol(:ncol,:, 91)*sol(:ncol,:, 103) ! rate_const*CO3m2H2O*Hp_5H2O - rxt_rates(:ncol,:, 176) = rxt_rates(:ncol,:, 176)*sol(:ncol,:, 86)*sol(:ncol,:, 103) ! rate_const*CLm*Hp_5H2O - rxt_rates(:ncol,:, 177) = rxt_rates(:ncol,:, 177)*sol(:ncol,:, 92)*sol(:ncol,:, 103) ! rate_const*CO3m_H2O*Hp_5H2O - rxt_rates(:ncol,:, 178) = rxt_rates(:ncol,:, 178)*sol(:ncol,:, 108)*sol(:ncol,:, 103) ! rate_const*NO2m_H2O*Hp_5H2O - rxt_rates(:ncol,:, 179) = rxt_rates(:ncol,:, 179)*sol(:ncol,:, 103)*sol(:ncol,:, 112) ! rate_const*Hp_5H2O*NO3m_HCL - rxt_rates(:ncol,:, 180) = rxt_rates(:ncol,:, 180)*sol(:ncol,:, 88)*sol(:ncol,:, 101) ! rate_const*CLm_HCL*Hp_4H2O - rxt_rates(:ncol,:, 181) = rxt_rates(:ncol,:, 181)*sol(:ncol,:, 87)*sol(:ncol,:, 103) ! rate_const*CLm_H2O*Hp_5H2O - rxt_rates(:ncol,:, 182) = rxt_rates(:ncol,:, 182)*sol(:ncol,:, 103)*sol(:ncol,:, 110) ! rate_const*Hp_5H2O*NO3m2H2O - rxt_rates(:ncol,:, 183) = rxt_rates(:ncol,:, 183)*sol(:ncol,:, 103)*sol(:ncol,:, 107) ! rate_const*Hp_5H2O*NO2m - rxt_rates(:ncol,:, 184) = rxt_rates(:ncol,:, 184)*sol(:ncol,:, 99)*sol(:ncol,:, 113) ! rate_const*Hp_3H2O*NO3mHNO3 - rxt_rates(:ncol,:, 185) = rxt_rates(:ncol,:, 185)*sol(:ncol,:, 99)*sol(:ncol,:, 90) ! rate_const*Hp_3H2O*CO3m - rxt_rates(:ncol,:, 186) = rxt_rates(:ncol,:, 186)*sol(:ncol,:, 88)*sol(:ncol,:, 99) ! rate_const*CLm_HCL*Hp_3H2O - rxt_rates(:ncol,:, 187) = rxt_rates(:ncol,:, 187)*sol(:ncol,:, 99)*sol(:ncol,:, 109) ! rate_const*Hp_3H2O*NO3m - rxt_rates(:ncol,:, 188) = rxt_rates(:ncol,:, 188)*sol(:ncol,:, 96)*sol(:ncol,:, 99) ! rate_const*HCO3m*Hp_3H2O - rxt_rates(:ncol,:, 189) = rxt_rates(:ncol,:, 189)*sol(:ncol,:, 99)*sol(:ncol,:, 124) ! rate_const*Hp_3H2O*O2m - rxt_rates(:ncol,:, 190) = rxt_rates(:ncol,:, 190)*sol(:ncol,:, 93)*sol(:ncol,:, 99) ! rate_const*CO4m*Hp_3H2O - rxt_rates(:ncol,:, 191) = rxt_rates(:ncol,:, 191)*sol(:ncol,:, 101)*sol(:ncol,:, 109) ! rate_const*Hp_4H2O*NO3m - rxt_rates(:ncol,:, 192) = rxt_rates(:ncol,:, 192)*sol(:ncol,:, 99)*sol(:ncol,:, 111) ! rate_const*Hp_3H2O*NO3m_H2O - rxt_rates(:ncol,:, 193) = rxt_rates(:ncol,:, 193)*sol(:ncol,:, 91)*sol(:ncol,:, 99) ! rate_const*CO3m2H2O*Hp_3H2O - rxt_rates(:ncol,:, 194) = rxt_rates(:ncol,:, 194)*sol(:ncol,:, 86)*sol(:ncol,:, 99) ! rate_const*CLm*Hp_3H2O - rxt_rates(:ncol,:, 195) = rxt_rates(:ncol,:, 195)*sol(:ncol,:, 92)*sol(:ncol,:, 99) ! rate_const*CO3m_H2O*Hp_3H2O - rxt_rates(:ncol,:, 196) = rxt_rates(:ncol,:, 196)*sol(:ncol,:, 99)*sol(:ncol,:, 108) ! rate_const*Hp_3H2O*NO2m_H2O - rxt_rates(:ncol,:, 197) = rxt_rates(:ncol,:, 197)*sol(:ncol,:, 99)*sol(:ncol,:, 112) ! rate_const*Hp_3H2O*NO3m_HCL - rxt_rates(:ncol,:, 198) = rxt_rates(:ncol,:, 198)*sol(:ncol,:, 87)*sol(:ncol,:, 99) ! rate_const*CLm_H2O*Hp_3H2O - rxt_rates(:ncol,:, 199) = rxt_rates(:ncol,:, 199)*sol(:ncol,:, 99)*sol(:ncol,:, 110) ! rate_const*Hp_3H2O*NO3m2H2O - rxt_rates(:ncol,:, 200) = rxt_rates(:ncol,:, 200)*sol(:ncol,:, 99)*sol(:ncol,:, 107) ! rate_const*Hp_3H2O*NO2m - rxt_rates(:ncol,:, 201) = rxt_rates(:ncol,:, 201)*sol(:ncol,:, 113)*sol(:ncol,:, 118) ! rate_const*NO3mHNO3*NOp_H2O - rxt_rates(:ncol,:, 202) = rxt_rates(:ncol,:, 202)*sol(:ncol,:, 96)*sol(:ncol,:, 101) ! rate_const*HCO3m*Hp_4H2O - rxt_rates(:ncol,:, 203) = rxt_rates(:ncol,:, 203)*sol(:ncol,:, 90)*sol(:ncol,:, 118) ! rate_const*CO3m*NOp_H2O - rxt_rates(:ncol,:, 204) = rxt_rates(:ncol,:, 204)*sol(:ncol,:, 88)*sol(:ncol,:, 118) ! rate_const*CLm_HCL*NOp_H2O - rxt_rates(:ncol,:, 205) = rxt_rates(:ncol,:, 205)*sol(:ncol,:, 109)*sol(:ncol,:, 118) ! rate_const*NO3m*NOp_H2O - rxt_rates(:ncol,:, 206) = rxt_rates(:ncol,:, 206)*sol(:ncol,:, 96)*sol(:ncol,:, 118) ! rate_const*HCO3m*NOp_H2O - rxt_rates(:ncol,:, 207) = rxt_rates(:ncol,:, 207)*sol(:ncol,:, 118)*sol(:ncol,:, 124) ! rate_const*NOp_H2O*O2m - rxt_rates(:ncol,:, 208) = rxt_rates(:ncol,:, 208)*sol(:ncol,:, 93)*sol(:ncol,:, 118) ! rate_const*CO4m*NOp_H2O - rxt_rates(:ncol,:, 209) = rxt_rates(:ncol,:, 209)*sol(:ncol,:, 111)*sol(:ncol,:, 118) ! rate_const*NO3m_H2O*NOp_H2O - rxt_rates(:ncol,:, 210) = rxt_rates(:ncol,:, 210)*sol(:ncol,:, 91)*sol(:ncol,:, 118) ! rate_const*CO3m2H2O*NOp_H2O - rxt_rates(:ncol,:, 211) = rxt_rates(:ncol,:, 211)*sol(:ncol,:, 86)*sol(:ncol,:, 118) ! rate_const*CLm*NOp_H2O - rxt_rates(:ncol,:, 212) = rxt_rates(:ncol,:, 212)*sol(:ncol,:, 92)*sol(:ncol,:, 118) ! rate_const*CO3m_H2O*NOp_H2O - rxt_rates(:ncol,:, 213) = rxt_rates(:ncol,:, 213)*sol(:ncol,:, 101)*sol(:ncol,:, 124) ! rate_const*Hp_4H2O*O2m - rxt_rates(:ncol,:, 214) = rxt_rates(:ncol,:, 214)*sol(:ncol,:, 108)*sol(:ncol,:, 118) ! rate_const*NO2m_H2O*NOp_H2O - rxt_rates(:ncol,:, 215) = rxt_rates(:ncol,:, 215)*sol(:ncol,:, 112)*sol(:ncol,:, 118) ! rate_const*NO3m_HCL*NOp_H2O - rxt_rates(:ncol,:, 216) = rxt_rates(:ncol,:, 216)*sol(:ncol,:, 87)*sol(:ncol,:, 118) ! rate_const*CLm_H2O*NOp_H2O - rxt_rates(:ncol,:, 217) = rxt_rates(:ncol,:, 217)*sol(:ncol,:, 110)*sol(:ncol,:, 118) ! rate_const*NO3m2H2O*NOp_H2O - rxt_rates(:ncol,:, 218) = rxt_rates(:ncol,:, 218)*sol(:ncol,:, 107)*sol(:ncol,:, 118) ! rate_const*NO2m*NOp_H2O - rxt_rates(:ncol,:, 219) = rxt_rates(:ncol,:, 219)*sol(:ncol,:, 113)*sol(:ncol,:, 115) ! rate_const*NO3mHNO3*NOp_2H2O - rxt_rates(:ncol,:, 220) = rxt_rates(:ncol,:, 220)*sol(:ncol,:, 90)*sol(:ncol,:, 115) ! rate_const*CO3m*NOp_2H2O - rxt_rates(:ncol,:, 221) = rxt_rates(:ncol,:, 221)*sol(:ncol,:, 88)*sol(:ncol,:, 115) ! rate_const*CLm_HCL*NOp_2H2O - rxt_rates(:ncol,:, 222) = rxt_rates(:ncol,:, 222)*sol(:ncol,:, 115)*sol(:ncol,:, 109) ! rate_const*NOp_2H2O*NO3m - rxt_rates(:ncol,:, 223) = rxt_rates(:ncol,:, 223)*sol(:ncol,:, 96)*sol(:ncol,:, 115) ! rate_const*HCO3m*NOp_2H2O - rxt_rates(:ncol,:, 224) = rxt_rates(:ncol,:, 224)*sol(:ncol,:, 93)*sol(:ncol,:, 101) ! rate_const*CO4m*Hp_4H2O - rxt_rates(:ncol,:, 225) = rxt_rates(:ncol,:, 225)*sol(:ncol,:, 115)*sol(:ncol,:, 124) ! rate_const*NOp_2H2O*O2m - rxt_rates(:ncol,:, 226) = rxt_rates(:ncol,:, 226)*sol(:ncol,:, 115)*sol(:ncol,:, 93) ! rate_const*NOp_2H2O*CO4m - rxt_rates(:ncol,:, 227) = rxt_rates(:ncol,:, 227)*sol(:ncol,:, 111)*sol(:ncol,:, 115) ! rate_const*NO3m_H2O*NOp_2H2O - rxt_rates(:ncol,:, 228) = rxt_rates(:ncol,:, 228)*sol(:ncol,:, 91)*sol(:ncol,:, 115) ! rate_const*CO3m2H2O*NOp_2H2O - rxt_rates(:ncol,:, 229) = rxt_rates(:ncol,:, 229)*sol(:ncol,:, 86)*sol(:ncol,:, 115) ! rate_const*CLm*NOp_2H2O - rxt_rates(:ncol,:, 230) = rxt_rates(:ncol,:, 230)*sol(:ncol,:, 92)*sol(:ncol,:, 115) ! rate_const*CO3m_H2O*NOp_2H2O - rxt_rates(:ncol,:, 231) = rxt_rates(:ncol,:, 231)*sol(:ncol,:, 115)*sol(:ncol,:, 108) ! rate_const*NOp_2H2O*NO2m_H2O - rxt_rates(:ncol,:, 232) = rxt_rates(:ncol,:, 232)*sol(:ncol,:, 112)*sol(:ncol,:, 115) ! rate_const*NO3m_HCL*NOp_2H2O - rxt_rates(:ncol,:, 233) = rxt_rates(:ncol,:, 233)*sol(:ncol,:, 115)*sol(:ncol,:, 87) ! rate_const*NOp_2H2O*CLm_H2O - rxt_rates(:ncol,:, 234) = rxt_rates(:ncol,:, 234)*sol(:ncol,:, 115)*sol(:ncol,:, 110) ! rate_const*NOp_2H2O*NO3m2H2O - rxt_rates(:ncol,:, 235) = rxt_rates(:ncol,:, 235)*sol(:ncol,:, 101)*sol(:ncol,:, 111) ! rate_const*Hp_4H2O*NO3m_H2O - rxt_rates(:ncol,:, 236) = rxt_rates(:ncol,:, 236)*sol(:ncol,:, 115)*sol(:ncol,:, 107) ! rate_const*NOp_2H2O*NO2m - rxt_rates(:ncol,:, 237) = rxt_rates(:ncol,:, 237)*sol(:ncol,:, 114)*sol(:ncol,:, 113) ! rate_const*NOp*NO3mHNO3 - rxt_rates(:ncol,:, 238) = rxt_rates(:ncol,:, 238)*sol(:ncol,:, 114)*sol(:ncol,:, 90) ! rate_const*NOp*CO3m - rxt_rates(:ncol,:, 239) = rxt_rates(:ncol,:, 239)*sol(:ncol,:, 114)*sol(:ncol,:, 88) ! rate_const*NOp*CLm_HCL - rxt_rates(:ncol,:, 240) = rxt_rates(:ncol,:, 240)*sol(:ncol,:, 109)*sol(:ncol,:, 114) ! rate_const*NO3m*NOp - rxt_rates(:ncol,:, 241) = rxt_rates(:ncol,:, 241)*sol(:ncol,:, 114)*sol(:ncol,:, 96) ! rate_const*NOp*HCO3m - rxt_rates(:ncol,:, 242) = rxt_rates(:ncol,:, 242)*sol(:ncol,:, 124)*sol(:ncol,:, 114) ! rate_const*O2m*NOp - rxt_rates(:ncol,:, 243) = rxt_rates(:ncol,:, 243)*sol(:ncol,:, 114)*sol(:ncol,:, 93) ! rate_const*NOp*CO4m - rxt_rates(:ncol,:, 244) = rxt_rates(:ncol,:, 244)*sol(:ncol,:, 114)*sol(:ncol,:, 111) ! rate_const*NOp*NO3m_H2O - rxt_rates(:ncol,:, 245) = rxt_rates(:ncol,:, 245)*sol(:ncol,:, 114)*sol(:ncol,:, 91) ! rate_const*NOp*CO3m2H2O - rxt_rates(:ncol,:, 246) = rxt_rates(:ncol,:, 246)*sol(:ncol,:, 91)*sol(:ncol,:, 101) ! rate_const*CO3m2H2O*Hp_4H2O - rxt_rates(:ncol,:, 247) = rxt_rates(:ncol,:, 247)*sol(:ncol,:, 86)*sol(:ncol,:, 114) ! rate_const*CLm*NOp - rxt_rates(:ncol,:, 248) = rxt_rates(:ncol,:, 248)*sol(:ncol,:, 92)*sol(:ncol,:, 114) ! rate_const*CO3m_H2O*NOp - rxt_rates(:ncol,:, 249) = rxt_rates(:ncol,:, 249)*sol(:ncol,:, 108)*sol(:ncol,:, 114) ! rate_const*NO2m_H2O*NOp - rxt_rates(:ncol,:, 250) = rxt_rates(:ncol,:, 250)*sol(:ncol,:, 112)*sol(:ncol,:, 114) ! rate_const*NO3m_HCL*NOp - rxt_rates(:ncol,:, 251) = rxt_rates(:ncol,:, 251)*sol(:ncol,:, 87)*sol(:ncol,:, 114) ! rate_const*CLm_H2O*NOp - rxt_rates(:ncol,:, 252) = rxt_rates(:ncol,:, 252)*sol(:ncol,:, 114)*sol(:ncol,:, 110) ! rate_const*NOp*NO3m2H2O - rxt_rates(:ncol,:, 253) = rxt_rates(:ncol,:, 253)*sol(:ncol,:, 114)*sol(:ncol,:, 107) ! rate_const*NOp*NO2m - rxt_rates(:ncol,:, 254) = rxt_rates(:ncol,:, 254)*sol(:ncol,:, 113)*sol(:ncol,:, 125) ! rate_const*NO3mHNO3*O2p - rxt_rates(:ncol,:, 255) = rxt_rates(:ncol,:, 255)*sol(:ncol,:, 125)*sol(:ncol,:, 90) ! rate_const*O2p*CO3m - rxt_rates(:ncol,:, 256) = rxt_rates(:ncol,:, 256)*sol(:ncol,:, 125)*sol(:ncol,:, 88) ! rate_const*O2p*CLm_HCL - rxt_rates(:ncol,:, 257) = rxt_rates(:ncol,:, 257)*sol(:ncol,:, 101)*sol(:ncol,:, 90) ! rate_const*M*Hp_4H2O*CO3m - rxt_rates(:ncol,:, 258) = rxt_rates(:ncol,:, 258)*sol(:ncol,:, 103)*sol(:ncol,:, 91) ! rate_const*M*Hp_5H2O*CO3m2H2O - rxt_rates(:ncol,:, 259) = rxt_rates(:ncol,:, 259)*sol(:ncol,:, 92)*sol(:ncol,:, 101) ! rate_const*M*CO3m_H2O*Hp_4H2O - rxt_rates(:ncol,:, 260) = rxt_rates(:ncol,:, 260)*sol(:ncol,:, 103)*sol(:ncol,:, 92) ! rate_const*M*Hp_5H2O*CO3m_H2O - rxt_rates(:ncol,:, 261) = rxt_rates(:ncol,:, 261)*sol(:ncol,:, 111)*sol(:ncol,:, 101) ! rate_const*M*NO3m_H2O*Hp_4H2O - rxt_rates(:ncol,:, 262) = rxt_rates(:ncol,:, 262)*sol(:ncol,:, 111)*sol(:ncol,:, 103) ! rate_const*M*NO3m_H2O*Hp_5H2O - rxt_rates(:ncol,:, 263) = rxt_rates(:ncol,:, 263)*sol(:ncol,:, 109)*sol(:ncol,:, 101) ! rate_const*M*NO3m*Hp_4H2O - rxt_rates(:ncol,:, 264) = rxt_rates(:ncol,:, 264)*sol(:ncol,:, 103)*sol(:ncol,:, 90) ! rate_const*M*Hp_5H2O*CO3m - rxt_rates(:ncol,:, 265) = rxt_rates(:ncol,:, 265)*sol(:ncol,:, 103)*sol(:ncol,:, 109) ! rate_const*M*Hp_5H2O*NO3m - rxt_rates(:ncol,:, 266) = rxt_rates(:ncol,:, 266)*sol(:ncol,:, 88)*sol(:ncol,:, 101) ! rate_const*M*CLm_HCL*Hp_4H2O - rxt_rates(:ncol,:, 267) = rxt_rates(:ncol,:, 267)*sol(:ncol,:, 103)*sol(:ncol,:, 88) ! rate_const*M*Hp_5H2O*CLm_HCL - rxt_rates(:ncol,:, 268) = rxt_rates(:ncol,:, 268)*sol(:ncol,:, 113)*sol(:ncol,:, 101) ! rate_const*M*NO3mHNO3*Hp_4H2O - rxt_rates(:ncol,:, 269) = rxt_rates(:ncol,:, 269)*sol(:ncol,:, 103)*sol(:ncol,:, 113) ! rate_const*M*Hp_5H2O*NO3mHNO3 - rxt_rates(:ncol,:, 270) = rxt_rates(:ncol,:, 270)*sol(:ncol,:, 91)*sol(:ncol,:, 101) ! rate_const*M*CO3m2H2O*Hp_4H2O - rxt_rates(:ncol,:, 271) = rxt_rates(:ncol,:, 271)*sol(:ncol,:, 60)*sol(:ncol,:, 127) ! rate_const*NO*O3m - rxt_rates(:ncol,:, 272) = rxt_rates(:ncol,:, 272)*sol(:ncol,:, 108) ! rate_const*M*NO2m_H2O - rxt_rates(:ncol,:, 273) = rxt_rates(:ncol,:, 273)*sol(:ncol,:, 110) ! rate_const*M*NO3m2H2O - rxt_rates(:ncol,:, 274) = rxt_rates(:ncol,:, 274)*sol(:ncol,:, 113) ! rate_const*M*NO3mHNO3 - rxt_rates(:ncol,:, 275) = rxt_rates(:ncol,:, 275)*sol(:ncol,:, 47)*sol(:ncol,:, 109) ! rate_const*M*HCL*NO3m - rxt_rates(:ncol,:, 276) = rxt_rates(:ncol,:, 276)*sol(:ncol,:, 61)*sol(:ncol,:, 127) ! rate_const*NO2*O3m - rxt_rates(:ncol,:, 277) = rxt_rates(:ncol,:, 277)*sol(:ncol,:, 61)*sol(:ncol,:, 127) ! rate_const*NO2*O3m - rxt_rates(:ncol,:, 278) = rxt_rates(:ncol,:, 278)*sol(:ncol,:, 60)*sol(:ncol,:, 127) ! rate_const*NO*O3m - rxt_rates(:ncol,:, 279) = rxt_rates(:ncol,:, 279)*sol(:ncol,:, 90)*sol(:ncol,:, 60) ! rate_const*CO3m*NO - rxt_rates(:ncol,:, 280) = rxt_rates(:ncol,:, 280)*sol(:ncol,:, 90)*sol(:ncol,:, 61) ! rate_const*CO3m*NO2 - rxt_rates(:ncol,:, 281) = rxt_rates(:ncol,:, 281)*sol(:ncol,:, 111) ! rate_const*M*NO3m_H2O - rxt_rates(:ncol,:, 282) = rxt_rates(:ncol,:, 282)*sol(:ncol,:, 92) ! rate_const*M*CO3m_H2O - rxt_rates(:ncol,:, 283) = rxt_rates(:ncol,:, 283)*sol(:ncol,:, 91) ! rate_const*M*CO3m2H2O - rxt_rates(:ncol,:, 284) = rxt_rates(:ncol,:, 284)*sol(:ncol,:, 85)*sol(:ncol,:, 107) ! rate_const*CL*NO2m - rxt_rates(:ncol,:, 285) = rxt_rates(:ncol,:, 285)*sol(:ncol,:, 26)*sol(:ncol,:, 107) ! rate_const*CLO*NO2m - rxt_rates(:ncol,:, 286) = rxt_rates(:ncol,:, 286)*sol(:ncol,:, 38)*sol(:ncol,:, 107) ! rate_const*H*NO2m - rxt_rates(:ncol,:, 287) = rxt_rates(:ncol,:, 287)*sol(:ncol,:, 107)*sol(:ncol,:, 134) ! rate_const*M*NO2m*H2O - rxt_rates(:ncol,:, 288) = rxt_rates(:ncol,:, 288)*sol(:ncol,:, 47)*sol(:ncol,:, 107) ! rate_const*HCL*NO2m - rxt_rates(:ncol,:, 289) = rxt_rates(:ncol,:, 289)*sol(:ncol,:, 49)*sol(:ncol,:, 107) ! rate_const*HNO3*NO2m - rxt_rates(:ncol,:, 290) = rxt_rates(:ncol,:, 290)*sol(:ncol,:, 61)*sol(:ncol,:, 107) ! rate_const*NO2*NO2m - rxt_rates(:ncol,:, 291) = rxt_rates(:ncol,:, 291)*sol(:ncol,:, 107)*sol(:ncol,:, 69) ! rate_const*NO2m*O3 - rxt_rates(:ncol,:, 292) = rxt_rates(:ncol,:, 292)*sol(:ncol,:, 110)*sol(:ncol,:, 56) ! rate_const*NO3m2H2O*N2O5 - rxt_rates(:ncol,:, 293) = rxt_rates(:ncol,:, 293)*sol(:ncol,:, 111)*sol(:ncol,:, 134) ! rate_const*M*NO3m_H2O*H2O - rxt_rates(:ncol,:, 294) = rxt_rates(:ncol,:, 294)*sol(:ncol,:, 49)*sol(:ncol,:, 111) ! rate_const*HNO3*NO3m_H2O - rxt_rates(:ncol,:, 295) = rxt_rates(:ncol,:, 295)*sol(:ncol,:, 134)*sol(:ncol,:, 109) ! rate_const*M*H2O*NO3m - rxt_rates(:ncol,:, 296) = rxt_rates(:ncol,:, 296)*sol(:ncol,:, 111)*sol(:ncol,:, 56) ! rate_const*NO3m_H2O*N2O5 - rxt_rates(:ncol,:, 297) = rxt_rates(:ncol,:, 297)*sol(:ncol,:, 47)*sol(:ncol,:, 109) ! rate_const*HCL*NO3m - rxt_rates(:ncol,:, 298) = rxt_rates(:ncol,:, 298)*sol(:ncol,:, 49)*sol(:ncol,:, 112) ! rate_const*HNO3*NO3m_HCL - rxt_rates(:ncol,:, 299) = rxt_rates(:ncol,:, 299)*sol(:ncol,:, 109)*sol(:ncol,:, 49) ! rate_const*M*NO3m*HNO3 - rxt_rates(:ncol,:, 300) = rxt_rates(:ncol,:, 300)*sol(:ncol,:, 109)*sol(:ncol,:, 67) ! rate_const*NO3m*O - rxt_rates(:ncol,:, 301) = rxt_rates(:ncol,:, 301)*sol(:ncol,:, 69)*sol(:ncol,:, 109) ! rate_const*O3*NO3m - rxt_rates(:ncol,:, 302) = rxt_rates(:ncol,:, 302)*sol(:ncol,:, 115)*sol(:ncol,:, 94) ! rate_const*NOp_2H2O*e - rxt_rates(:ncol,:, 303) = rxt_rates(:ncol,:, 303)*sol(:ncol,:, 116)*sol(:ncol,:, 94) ! rate_const*NOp_3H2O*e - rxt_rates(:ncol,:, 304) = rxt_rates(:ncol,:, 304)*sol(:ncol,:, 134)*sol(:ncol,:, 116) ! rate_const*H2O*NOp_3H2O - rxt_rates(:ncol,:, 305) = rxt_rates(:ncol,:, 305)*sol(:ncol,:, 117)*sol(:ncol,:, 94) ! rate_const*NOp_CO2*e - rxt_rates(:ncol,:, 306) = rxt_rates(:ncol,:, 306)*sol(:ncol,:, 117)*sol(:ncol,:, 134) ! rate_const*NOp_CO2*H2O - rxt_rates(:ncol,:, 307) = rxt_rates(:ncol,:, 307)*sol(:ncol,:, 118)*sol(:ncol,:, 94) ! rate_const*NOp_H2O*e - rxt_rates(:ncol,:, 308) = rxt_rates(:ncol,:, 308)*sol(:ncol,:, 38)*sol(:ncol,:, 118) ! rate_const*H*NOp_H2O - rxt_rates(:ncol,:, 309) = rxt_rates(:ncol,:, 309)*sol(:ncol,:, 118)*sol(:ncol,:, 97) ! rate_const*NOp_H2O*HO2 - rxt_rates(:ncol,:, 310) = rxt_rates(:ncol,:, 310)*sol(:ncol,:, 118)*sol(:ncol,:, 130) ! rate_const*NOp_H2O*OH - rxt_rates(:ncol,:, 311) = rxt_rates(:ncol,:, 311)*sol(:ncol,:, 30)*sol(:ncol,:, 119) ! rate_const*CO2*NOp_N2 - rxt_rates(:ncol,:, 312) = rxt_rates(:ncol,:, 312)*sol(:ncol,:, 119)*sol(:ncol,:, 134) ! rate_const*NOp_N2*H2O - rxt_rates(:ncol,:, 313) = rxt_rates(:ncol,:, 313)*sol(:ncol,:, 124)*sol(:ncol,:, 85) ! rate_const*O2m*CL - rxt_rates(:ncol,:, 314) = rxt_rates(:ncol,:, 314)*sol(:ncol,:, 26)*sol(:ncol,:, 124) ! rate_const*CLO*O2m - rxt_rates(:ncol,:, 315) = rxt_rates(:ncol,:, 315)*sol(:ncol,:, 30)*sol(:ncol,:, 124) ! rate_const*M*CO2*O2m - rxt_rates(:ncol,:, 316) = rxt_rates(:ncol,:, 316)*sol(:ncol,:, 38)*sol(:ncol,:, 124) ! rate_const*H*O2m - rxt_rates(:ncol,:, 317) = rxt_rates(:ncol,:, 317)*sol(:ncol,:, 124)*sol(:ncol,:, 47) ! rate_const*O2m*HCL - rxt_rates(:ncol,:, 318) = rxt_rates(:ncol,:, 318)*sol(:ncol,:, 124)*sol(:ncol,:, 49) ! rate_const*O2m*HNO3 - rxt_rates(:ncol,:, 319) = rxt_rates(:ncol,:, 319)*sol(:ncol,:, 61)*sol(:ncol,:, 124) ! rate_const*NO2*O2m - rxt_rates(:ncol,:, 320) = rxt_rates(:ncol,:, 320)*sol(:ncol,:, 122)*sol(:ncol,:, 124) ! rate_const*O2_1D*O2m - rxt_rates(:ncol,:, 321) = rxt_rates(:ncol,:, 321)*sol(:ncol,:, 68)*sol(:ncol,:, 124) ! rate_const*M*O2*O2m - rxt_rates(:ncol,:, 322) = rxt_rates(:ncol,:, 322)*sol(:ncol,:, 69)*sol(:ncol,:, 124) ! rate_const*O3*O2m - rxt_rates(:ncol,:, 323) = rxt_rates(:ncol,:, 323)*sol(:ncol,:, 67)*sol(:ncol,:, 124) ! rate_const*O*O2m - rxt_rates(:ncol,:, 324) = rxt_rates(:ncol,:, 324)*sol(:ncol,:, 124)*sol(:ncol,:, 67) ! rate_const*O2m*O - rxt_rates(:ncol,:, 325) = rxt_rates(:ncol,:, 325)*sol(:ncol,:, 126)*sol(:ncol,:, 94) ! rate_const*O2p_H2O*e - rxt_rates(:ncol,:, 326) = rxt_rates(:ncol,:, 326)*sol(:ncol,:, 126)*sol(:ncol,:, 134) ! rate_const*O2p_H2O*H2O - rxt_rates(:ncol,:, 327) = rxt_rates(:ncol,:, 327)*sol(:ncol,:, 126)*sol(:ncol,:, 134) ! rate_const*O2p_H2O*H2O - rxt_rates(:ncol,:, 328) = rxt_rates(:ncol,:, 328)*sol(:ncol,:, 134)*sol(:ncol,:, 125) ! rate_const*M*H2O*O2p - rxt_rates(:ncol,:, 329) = rxt_rates(:ncol,:, 329)*sol(:ncol,:, 127)*sol(:ncol,:, 30) ! rate_const*O3m*CO2 - rxt_rates(:ncol,:, 330) = rxt_rates(:ncol,:, 330)*sol(:ncol,:, 127)*sol(:ncol,:, 38) ! rate_const*O3m*H - rxt_rates(:ncol,:, 331) = rxt_rates(:ncol,:, 331)*sol(:ncol,:, 69)*sol(:ncol,:, 127) ! rate_const*O3*O3m - rxt_rates(:ncol,:, 332) = rxt_rates(:ncol,:, 332)*sol(:ncol,:, 127)*sol(:ncol,:, 67) ! rate_const*O3m*O - rxt_rates(:ncol,:, 333) = rxt_rates(:ncol,:, 333)*sol(:ncol,:, 67)*sol(:ncol,:, 127) ! rate_const*O*O3m - rxt_rates(:ncol,:, 334) = rxt_rates(:ncol,:, 334)*sol(:ncol,:, 30)*sol(:ncol,:, 128) ! rate_const*CO2*O4m - rxt_rates(:ncol,:, 335) = rxt_rates(:ncol,:, 335)*sol(:ncol,:, 67)*sol(:ncol,:, 128) ! rate_const*O*O4m - rxt_rates(:ncol,:, 336) = rxt_rates(:ncol,:, 336)*sol(:ncol,:, 134)*sol(:ncol,:, 129) ! rate_const*H2O*O4p - rxt_rates(:ncol,:, 337) = rxt_rates(:ncol,:, 337)*sol(:ncol,:, 129)*sol(:ncol,:, 67) ! rate_const*O4p*O - rxt_rates(:ncol,:, 338) = rxt_rates(:ncol,:, 338)*sol(:ncol,:, 129)*sol(:ncol,:, 122) ! rate_const*O4p*O2_1D - rxt_rates(:ncol,:, 339) = rxt_rates(:ncol,:, 339)*sol(:ncol,:, 53)*sol(:ncol,:, 130) ! rate_const*HONO*OH - rxt_rates(:ncol,:, 340) = rxt_rates(:ncol,:, 340)*sol(:ncol,:, 85)*sol(:ncol,:, 131) ! rate_const*CL*OHm - rxt_rates(:ncol,:, 341) = rxt_rates(:ncol,:, 341)*sol(:ncol,:, 26)*sol(:ncol,:, 131) ! rate_const*CLO*OHm - rxt_rates(:ncol,:, 342) = rxt_rates(:ncol,:, 342)*sol(:ncol,:, 30)*sol(:ncol,:, 131) ! rate_const*M*CO2*OHm - rxt_rates(:ncol,:, 343) = rxt_rates(:ncol,:, 343)*sol(:ncol,:, 38)*sol(:ncol,:, 131) ! rate_const*H*OHm - rxt_rates(:ncol,:, 344) = rxt_rates(:ncol,:, 344)*sol(:ncol,:, 131)*sol(:ncol,:, 47) ! rate_const*OHm*HCL - rxt_rates(:ncol,:, 345) = rxt_rates(:ncol,:, 345)*sol(:ncol,:, 61)*sol(:ncol,:, 131) ! rate_const*NO2*OHm - rxt_rates(:ncol,:, 346) = rxt_rates(:ncol,:, 346)*sol(:ncol,:, 131)*sol(:ncol,:, 67) ! rate_const*OHm*O - rxt_rates(:ncol,:, 347) = rxt_rates(:ncol,:, 347)*sol(:ncol,:, 131)*sol(:ncol,:, 69) ! rate_const*OHm*O3 - rxt_rates(:ncol,:, 348) = rxt_rates(:ncol,:, 348)*sol(:ncol,:, 130)*sol(:ncol,:, 60) ! rate_const*M*OH*NO - rxt_rates(:ncol,:, 349) = rxt_rates(:ncol,:, 349)*sol(:ncol,:, 132)*sol(:ncol,:, 85) ! rate_const*Om*CL - rxt_rates(:ncol,:, 350) = rxt_rates(:ncol,:, 350)*sol(:ncol,:, 26)*sol(:ncol,:, 132) ! rate_const*CLO*Om - rxt_rates(:ncol,:, 351) = rxt_rates(:ncol,:, 351)*sol(:ncol,:, 132)*sol(:ncol,:, 30) ! rate_const*M*Om*CO2 - rxt_rates(:ncol,:, 352) = rxt_rates(:ncol,:, 352)*sol(:ncol,:, 39)*sol(:ncol,:, 132) ! rate_const*H2*Om - rxt_rates(:ncol,:, 353) = rxt_rates(:ncol,:, 353)*sol(:ncol,:, 132)*sol(:ncol,:, 39) ! rate_const*Om*H2 - rxt_rates(:ncol,:, 354) = rxt_rates(:ncol,:, 354)*sol(:ncol,:, 132)*sol(:ncol,:, 134) ! rate_const*Om*H2O - rxt_rates(:ncol,:, 355) = rxt_rates(:ncol,:, 355)*sol(:ncol,:, 132)*sol(:ncol,:, 47) ! rate_const*Om*HCL - rxt_rates(:ncol,:, 356) = rxt_rates(:ncol,:, 356)*sol(:ncol,:, 132)*sol(:ncol,:, 49) ! rate_const*Om*HNO3 - rxt_rates(:ncol,:, 357) = rxt_rates(:ncol,:, 357)*sol(:ncol,:, 132) ! rate_const*M*Om - rxt_rates(:ncol,:, 358) = rxt_rates(:ncol,:, 358)*sol(:ncol,:, 61)*sol(:ncol,:, 132) ! rate_const*NO2*Om - rxt_rates(:ncol,:, 359) = rxt_rates(:ncol,:, 359)*sol(:ncol,:, 132)*sol(:ncol,:, 67) ! rate_const*Om*O - rxt_rates(:ncol,:, 360) = rxt_rates(:ncol,:, 360)*sol(:ncol,:, 132)*sol(:ncol,:, 122) ! rate_const*Om*O2_1D - rxt_rates(:ncol,:, 361) = rxt_rates(:ncol,:, 361)*sol(:ncol,:, 132)*sol(:ncol,:, 68) ! rate_const*M*Om*O2 - rxt_rates(:ncol,:, 362) = rxt_rates(:ncol,:, 362)*sol(:ncol,:, 69)*sol(:ncol,:, 132) ! rate_const*O3*Om - rxt_rates(:ncol,:, 363) = rxt_rates(:ncol,:, 363)*sol(:ncol,:, 125)*sol(:ncol,:, 68) ! rate_const*M*O2p*O2 - rxt_rates(:ncol,:, 364) = rxt_rates(:ncol,:, 364)*sol(:ncol,:, 134)*sol(:ncol,:, 114) ! rate_const*M*H2O*NOp - rxt_rates(:ncol,:, 365) = rxt_rates(:ncol,:, 365)*sol(:ncol,:, 134)*sol(:ncol,:, 118) ! rate_const*M*H2O*NOp_H2O - rxt_rates(:ncol,:, 366) = rxt_rates(:ncol,:, 366)*sol(:ncol,:, 134)*sol(:ncol,:, 115) ! rate_const*M*H2O*NOp_2H2O - rxt_rates(:ncol,:, 367) = rxt_rates(:ncol,:, 367)*sol(:ncol,:, 114)*sol(:ncol,:, 30) ! rate_const*M*NOp*CO2 - rxt_rates(:ncol,:, 368) = rxt_rates(:ncol,:, 368)*sol(:ncol,:, 117) ! rate_const*M*NOp_CO2 - rxt_rates(:ncol,:, 369) = rxt_rates(:ncol,:, 369)*sol(:ncol,:, 114) ! rate_const*N2*M*NOp - rxt_rates(:ncol,:, 370) = rxt_rates(:ncol,:, 370)*sol(:ncol,:, 119) ! rate_const*M*NOp_N2 - rxt_rates(:ncol,:, 371) = rxt_rates(:ncol,:, 371)*sol(:ncol,:, 104)*sol(:ncol,:, 134) ! rate_const*M*Hp_H2O*H2O - rxt_rates(:ncol,:, 372) = rxt_rates(:ncol,:, 372)*sol(:ncol,:, 98) ! rate_const*M*Hp_2H2O - rxt_rates(:ncol,:, 373) = rxt_rates(:ncol,:, 373)*sol(:ncol,:, 134)*sol(:ncol,:, 98) ! rate_const*M*H2O*Hp_2H2O - rxt_rates(:ncol,:, 374) = rxt_rates(:ncol,:, 374)*sol(:ncol,:, 99) ! rate_const*M*Hp_3H2O - rxt_rates(:ncol,:, 375) = rxt_rates(:ncol,:, 375)*sol(:ncol,:, 99)*sol(:ncol,:, 134) ! rate_const*M*Hp_3H2O*H2O - rxt_rates(:ncol,:, 376) = rxt_rates(:ncol,:, 376)*sol(:ncol,:, 101) ! rate_const*M*Hp_4H2O - rxt_rates(:ncol,:, 377) = rxt_rates(:ncol,:, 377)*sol(:ncol,:, 101)*sol(:ncol,:, 134) ! rate_const*M*Hp_4H2O*H2O - rxt_rates(:ncol,:, 378) = rxt_rates(:ncol,:, 378)*sol(:ncol,:, 103) ! rate_const*M*Hp_5H2O - rxt_rates(:ncol,:, 379) = rxt_rates(:ncol,:, 379)*sol(:ncol,:, 94)*sol(:ncol,:, 129) ! rate_const*e*O4p - rxt_rates(:ncol,:, 380) = rxt_rates(:ncol,:, 380)*sol(:ncol,:, 104)*sol(:ncol,:, 94) ! rate_const*Hp_H2O*e - rxt_rates(:ncol,:, 381) = rxt_rates(:ncol,:, 381)*sol(:ncol,:, 98)*sol(:ncol,:, 94) ! rate_const*Hp_2H2O*e - rxt_rates(:ncol,:, 382) = rxt_rates(:ncol,:, 382)*sol(:ncol,:, 99)*sol(:ncol,:, 94) ! rate_const*Hp_3H2O*e - rxt_rates(:ncol,:, 383) = rxt_rates(:ncol,:, 383)*sol(:ncol,:, 94)*sol(:ncol,:, 119) ! rate_const*e*NOp_N2 - rxt_rates(:ncol,:, 384) = rxt_rates(:ncol,:, 384)*sol(:ncol,:, 87) ! rate_const*M*CLm_H2O - rxt_rates(:ncol,:, 385) = rxt_rates(:ncol,:, 385)*sol(:ncol,:, 88) ! rate_const*M*CLm_HCL - rxt_rates(:ncol,:, 386) = rxt_rates(:ncol,:, 386)*sol(:ncol,:, 122) ! rate_const*O2_1D - rxt_rates(:ncol,:, 387) = rxt_rates(:ncol,:, 387)*sol(:ncol,:, 123) ! rate_const*O2_1S - rxt_rates(:ncol,:, 388) = rxt_rates(:ncol,:, 388)*sol(:ncol,:, 121)*sol(:ncol,:, 39) ! rate_const*O1D*H2 - rxt_rates(:ncol,:, 389) = rxt_rates(:ncol,:, 389)*sol(:ncol,:, 121)*sol(:ncol,:, 134) ! rate_const*O1D*H2O - rxt_rates(:ncol,:, 390) = rxt_rates(:ncol,:, 390)*sol(:ncol,:, 121) ! rate_const*N2*O1D - rxt_rates(:ncol,:, 391) = rxt_rates(:ncol,:, 391)*sol(:ncol,:, 121)*sol(:ncol,:, 68) ! rate_const*O1D*O2 - rxt_rates(:ncol,:, 392) = rxt_rates(:ncol,:, 392)*sol(:ncol,:, 121)*sol(:ncol,:, 68) ! rate_const*O1D*O2 - rxt_rates(:ncol,:, 393) = rxt_rates(:ncol,:, 393)*sol(:ncol,:, 121)*sol(:ncol,:, 69) ! rate_const*O1D*O3 - rxt_rates(:ncol,:, 394) = rxt_rates(:ncol,:, 394)*sol(:ncol,:, 122) ! rate_const*N2*O2_1D - rxt_rates(:ncol,:, 395) = rxt_rates(:ncol,:, 395)*sol(:ncol,:, 122)*sol(:ncol,:, 67) ! rate_const*O2_1D*O - rxt_rates(:ncol,:, 396) = rxt_rates(:ncol,:, 396)*sol(:ncol,:, 122)*sol(:ncol,:, 68) ! rate_const*O2_1D*O2 - rxt_rates(:ncol,:, 397) = rxt_rates(:ncol,:, 397)*sol(:ncol,:, 123)*sol(:ncol,:, 30) ! rate_const*O2_1S*CO2 - rxt_rates(:ncol,:, 398) = rxt_rates(:ncol,:, 398)*sol(:ncol,:, 123) ! rate_const*N2*O2_1S - rxt_rates(:ncol,:, 399) = rxt_rates(:ncol,:, 399)*sol(:ncol,:, 123)*sol(:ncol,:, 67) ! rate_const*O2_1S*O - rxt_rates(:ncol,:, 400) = rxt_rates(:ncol,:, 400)*sol(:ncol,:, 123)*sol(:ncol,:, 68) ! rate_const*O2_1S*O2 - rxt_rates(:ncol,:, 401) = rxt_rates(:ncol,:, 401)*sol(:ncol,:, 123)*sol(:ncol,:, 69) ! rate_const*O2_1S*O3 - rxt_rates(:ncol,:, 402) = rxt_rates(:ncol,:, 402)*sol(:ncol,:, 67)*sol(:ncol,:, 69) ! rate_const*O*O3 - rxt_rates(:ncol,:, 403) = rxt_rates(:ncol,:, 403)*sol(:ncol,:, 67)*sol(:ncol,:, 67) ! rate_const*M*O*O - rxt_rates(:ncol,:, 404) = rxt_rates(:ncol,:, 404)*sol(:ncol,:, 67)*sol(:ncol,:, 68) ! rate_const*M*O*O2 - rxt_rates(:ncol,:, 405) = rxt_rates(:ncol,:, 405)*sol(:ncol,:, 39)*sol(:ncol,:, 67) ! rate_const*H2*O - rxt_rates(:ncol,:, 406) = rxt_rates(:ncol,:, 406)*sol(:ncol,:, 41)*sol(:ncol,:, 67) ! rate_const*H2O2*O - rxt_rates(:ncol,:, 407) = rxt_rates(:ncol,:, 407)*sol(:ncol,:, 38)*sol(:ncol,:, 97) ! rate_const*H*HO2 - rxt_rates(:ncol,:, 408) = rxt_rates(:ncol,:, 408)*sol(:ncol,:, 38)*sol(:ncol,:, 97) ! rate_const*H*HO2 - rxt_rates(:ncol,:, 409) = rxt_rates(:ncol,:, 409)*sol(:ncol,:, 38)*sol(:ncol,:, 97) ! rate_const*H*HO2 - rxt_rates(:ncol,:, 410) = rxt_rates(:ncol,:, 410)*sol(:ncol,:, 38)*sol(:ncol,:, 68) ! rate_const*M*H*O2 - rxt_rates(:ncol,:, 411) = rxt_rates(:ncol,:, 411)*sol(:ncol,:, 97)*sol(:ncol,:, 67) ! rate_const*HO2*O - rxt_rates(:ncol,:, 412) = rxt_rates(:ncol,:, 412)*sol(:ncol,:, 97)*sol(:ncol,:, 69) ! rate_const*HO2*O3 - rxt_rates(:ncol,:, 413) = rxt_rates(:ncol,:, 413)*sol(:ncol,:, 38)*sol(:ncol,:, 69) ! rate_const*H*O3 - rxt_rates(:ncol,:, 414) = rxt_rates(:ncol,:, 414)*sol(:ncol,:, 130)*sol(:ncol,:, 39) ! rate_const*OH*H2 - rxt_rates(:ncol,:, 415) = rxt_rates(:ncol,:, 415)*sol(:ncol,:, 130)*sol(:ncol,:, 41) ! rate_const*OH*H2O2 - rxt_rates(:ncol,:, 416) = rxt_rates(:ncol,:, 416)*sol(:ncol,:, 130)*sol(:ncol,:, 97) ! rate_const*OH*HO2 - rxt_rates(:ncol,:, 417) = rxt_rates(:ncol,:, 417)*sol(:ncol,:, 130)*sol(:ncol,:, 67) ! rate_const*OH*O - rxt_rates(:ncol,:, 418) = rxt_rates(:ncol,:, 418)*sol(:ncol,:, 130)*sol(:ncol,:, 69) ! rate_const*OH*O3 - rxt_rates(:ncol,:, 419) = rxt_rates(:ncol,:, 419)*sol(:ncol,:, 130)*sol(:ncol,:, 130) ! rate_const*OH*OH - rxt_rates(:ncol,:, 420) = rxt_rates(:ncol,:, 420)*sol(:ncol,:, 130)*sol(:ncol,:, 130) ! rate_const*M*OH*OH - rxt_rates(:ncol,:, 421) = rxt_rates(:ncol,:, 421)*sol(:ncol,:, 97)*sol(:ncol,:, 97) ! rate_const*HO2*HO2 - rxt_rates(:ncol,:, 422) = rxt_rates(:ncol,:, 422)*sol(:ncol,:, 50)*sol(:ncol,:, 130) ! rate_const*HO2NO2*OH - rxt_rates(:ncol,:, 423) = rxt_rates(:ncol,:, 423)*sol(:ncol,:, 105)*sol(:ncol,:, 67) ! rate_const*N2D*O - rxt_rates(:ncol,:, 424) = rxt_rates(:ncol,:, 424)*sol(:ncol,:, 105)*sol(:ncol,:, 68) ! rate_const*N2D*O2 - rxt_rates(:ncol,:, 425) = rxt_rates(:ncol,:, 425)*sol(:ncol,:, 54)*sol(:ncol,:, 60) ! rate_const*N*NO - rxt_rates(:ncol,:, 426) = rxt_rates(:ncol,:, 426)*sol(:ncol,:, 54)*sol(:ncol,:, 61) ! rate_const*N*NO2 - 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,:, 68) ! rate_const*N*O2 - rxt_rates(:ncol,:, 430) = rxt_rates(:ncol,:, 430)*sol(:ncol,:, 61)*sol(:ncol,:, 67) ! rate_const*NO2*O - rxt_rates(:ncol,:, 431) = rxt_rates(:ncol,:, 431)*sol(:ncol,:, 61)*sol(:ncol,:, 69) ! rate_const*NO2*O3 - rxt_rates(:ncol,:, 432) = rxt_rates(:ncol,:, 432)*sol(:ncol,:, 61)*sol(:ncol,:, 67) ! rate_const*M*NO2*O - rxt_rates(:ncol,:, 433) = rxt_rates(:ncol,:, 433)*sol(:ncol,:, 62)*sol(:ncol,:, 97) ! rate_const*NO3*HO2 - rxt_rates(:ncol,:, 434) = rxt_rates(:ncol,:, 434)*sol(:ncol,:, 62)*sol(:ncol,:, 60) ! rate_const*NO3*NO - rxt_rates(:ncol,:, 435) = rxt_rates(:ncol,:, 435)*sol(:ncol,:, 62)*sol(:ncol,:, 67) ! rate_const*NO3*O - rxt_rates(:ncol,:, 436) = rxt_rates(:ncol,:, 436)*sol(:ncol,:, 62)*sol(:ncol,:, 130) ! rate_const*NO3*OH - rxt_rates(:ncol,:, 437) = rxt_rates(:ncol,:, 437)*sol(:ncol,:, 54)*sol(:ncol,:, 130) ! rate_const*N*OH - rxt_rates(:ncol,:, 438) = rxt_rates(:ncol,:, 438)*sol(:ncol,:, 60)*sol(:ncol,:, 97) ! rate_const*NO*HO2 - rxt_rates(:ncol,:, 439) = rxt_rates(:ncol,:, 439)*sol(:ncol,:, 60)*sol(:ncol,:, 69) ! rate_const*NO*O3 - rxt_rates(:ncol,:, 440) = rxt_rates(:ncol,:, 440)*sol(:ncol,:, 60)*sol(:ncol,:, 67) ! rate_const*M*NO*O - rxt_rates(:ncol,:, 441) = rxt_rates(:ncol,:, 441)*sol(:ncol,:, 121)*sol(:ncol,:, 55) ! rate_const*O1D*N2O - rxt_rates(:ncol,:, 442) = rxt_rates(:ncol,:, 442)*sol(:ncol,:, 121)*sol(:ncol,:, 55) ! rate_const*O1D*N2O - rxt_rates(:ncol,:, 443) = rxt_rates(:ncol,:, 443)*sol(:ncol,:, 61)*sol(:ncol,:, 97) ! rate_const*M*NO2*HO2 - rxt_rates(:ncol,:, 444) = rxt_rates(:ncol,:, 444)*sol(:ncol,:, 61)*sol(:ncol,:, 62) ! rate_const*M*NO2*NO3 - rxt_rates(:ncol,:, 445) = rxt_rates(:ncol,:, 445)*sol(:ncol,:, 61)*sol(:ncol,:, 130) ! rate_const*M*NO2*OH - rxt_rates(:ncol,:, 446) = rxt_rates(:ncol,:, 446)*sol(:ncol,:, 49)*sol(:ncol,:, 130) ! rate_const*HNO3*OH - rxt_rates(:ncol,:, 447) = rxt_rates(:ncol,:, 447)*sol(:ncol,:, 50) ! rate_const*M*HO2NO2 - rxt_rates(:ncol,:, 448) = rxt_rates(:ncol,:, 448)*sol(:ncol,:, 56) ! rate_const*M*N2O5 - rxt_rates(:ncol,:, 449) = rxt_rates(:ncol,:, 449)*sol(:ncol,:, 85)*sol(:ncol,:, 16) ! rate_const*CL*CH2O - rxt_rates(:ncol,:, 450) = rxt_rates(:ncol,:, 450)*sol(:ncol,:, 85)*sol(:ncol,:, 22) ! rate_const*CL*CH4 - rxt_rates(:ncol,:, 451) = rxt_rates(:ncol,:, 451)*sol(:ncol,:, 85)*sol(:ncol,:, 39) ! rate_const*CL*H2 - rxt_rates(:ncol,:, 452) = rxt_rates(:ncol,:, 452)*sol(:ncol,:, 85)*sol(:ncol,:, 41) ! rate_const*CL*H2O2 - rxt_rates(:ncol,:, 453) = rxt_rates(:ncol,:, 453)*sol(:ncol,:, 85)*sol(:ncol,:, 97) ! rate_const*CL*HO2 - rxt_rates(:ncol,:, 454) = rxt_rates(:ncol,:, 454)*sol(:ncol,:, 85)*sol(:ncol,:, 97) ! rate_const*CL*HO2 - rxt_rates(:ncol,:, 455) = rxt_rates(:ncol,:, 455)*sol(:ncol,:, 85)*sol(:ncol,:, 69) ! rate_const*CL*O3 - rxt_rates(:ncol,:, 456) = rxt_rates(:ncol,:, 456)*sol(:ncol,:, 26)*sol(:ncol,:, 20) ! rate_const*CLO*CH3O2 - rxt_rates(:ncol,:, 457) = rxt_rates(:ncol,:, 457)*sol(:ncol,:, 26)*sol(:ncol,:, 26) ! rate_const*CLO*CLO - 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,:, 97) ! rate_const*CLO*HO2 - rxt_rates(:ncol,:, 461) = rxt_rates(:ncol,:, 461)*sol(:ncol,:, 26)*sol(:ncol,:, 60) ! rate_const*CLO*NO - rxt_rates(:ncol,:, 462) = rxt_rates(:ncol,:, 462)*sol(:ncol,:, 27)*sol(:ncol,:, 85) ! rate_const*CLONO2*CL - rxt_rates(:ncol,:, 463) = rxt_rates(:ncol,:, 463)*sol(:ncol,:, 26)*sol(:ncol,:, 61) ! rate_const*M*CLO*NO2 - rxt_rates(:ncol,:, 464) = rxt_rates(:ncol,:, 464)*sol(:ncol,:, 27)*sol(:ncol,:, 67) ! rate_const*CLONO2*O - rxt_rates(:ncol,:, 465) = rxt_rates(:ncol,:, 465)*sol(:ncol,:, 27)*sol(:ncol,:, 130) ! rate_const*CLONO2*OH - rxt_rates(:ncol,:, 466) = rxt_rates(:ncol,:, 466)*sol(:ncol,:, 26)*sol(:ncol,:, 67) ! rate_const*CLO*O - rxt_rates(:ncol,:, 467) = rxt_rates(:ncol,:, 467)*sol(:ncol,:, 26)*sol(:ncol,:, 130) ! rate_const*CLO*OH - rxt_rates(:ncol,:, 468) = rxt_rates(:ncol,:, 468)*sol(:ncol,:, 26)*sol(:ncol,:, 130) ! rate_const*CLO*OH - rxt_rates(:ncol,:, 469) = rxt_rates(:ncol,:, 469)*sol(:ncol,:, 47)*sol(:ncol,:, 67) ! rate_const*HCL*O - rxt_rates(:ncol,:, 470) = rxt_rates(:ncol,:, 470)*sol(:ncol,:, 47)*sol(:ncol,:, 130) ! rate_const*HCL*OH - rxt_rates(:ncol,:, 471) = rxt_rates(:ncol,:, 471)*sol(:ncol,:, 52)*sol(:ncol,:, 85) ! rate_const*HOCL*CL - rxt_rates(:ncol,:, 472) = rxt_rates(:ncol,:, 472)*sol(:ncol,:, 52)*sol(:ncol,:, 67) ! rate_const*HOCL*O - rxt_rates(:ncol,:, 473) = rxt_rates(:ncol,:, 473)*sol(:ncol,:, 52)*sol(:ncol,:, 130) ! rate_const*HOCL*OH - rxt_rates(:ncol,:, 474) = rxt_rates(:ncol,:, 474)*sol(:ncol,:, 121)*sol(:ncol,:, 7) ! rate_const*O1D*CCL4 - rxt_rates(:ncol,:, 475) = rxt_rates(:ncol,:, 475)*sol(:ncol,:, 121)*sol(:ncol,:, 8) ! rate_const*O1D*CF2CLBR - rxt_rates(:ncol,:, 476) = rxt_rates(:ncol,:, 476)*sol(:ncol,:, 121)*sol(:ncol,:, 10) ! rate_const*O1D*CFC11 - rxt_rates(:ncol,:, 477) = rxt_rates(:ncol,:, 477)*sol(:ncol,:, 121)*sol(:ncol,:, 11) ! rate_const*O1D*CFC113 - rxt_rates(:ncol,:, 478) = rxt_rates(:ncol,:, 478)*sol(:ncol,:, 121)*sol(:ncol,:, 12) ! rate_const*O1D*CFC114 - rxt_rates(:ncol,:, 479) = rxt_rates(:ncol,:, 479)*sol(:ncol,:, 121)*sol(:ncol,:, 13) ! rate_const*O1D*CFC115 - rxt_rates(:ncol,:, 480) = rxt_rates(:ncol,:, 480)*sol(:ncol,:, 121)*sol(:ncol,:, 14) ! rate_const*O1D*CFC12 - rxt_rates(:ncol,:, 481) = rxt_rates(:ncol,:, 481)*sol(:ncol,:, 121)*sol(:ncol,:, 47) ! rate_const*O1D*HCL - rxt_rates(:ncol,:, 482) = rxt_rates(:ncol,:, 482)*sol(:ncol,:, 121)*sol(:ncol,:, 47) ! rate_const*O1D*HCL - rxt_rates(:ncol,:, 483) = rxt_rates(:ncol,:, 483)*sol(:ncol,:, 26)*sol(:ncol,:, 26) ! rate_const*M*CLO*CLO - rxt_rates(:ncol,:, 484) = rxt_rates(:ncol,:, 484)*sol(:ncol,:, 25) ! rate_const*M*CL2O2 - rxt_rates(:ncol,:, 485) = rxt_rates(:ncol,:, 485)*sol(:ncol,:, 84)*sol(:ncol,:, 16) ! rate_const*BR*CH2O - rxt_rates(:ncol,:, 486) = rxt_rates(:ncol,:, 486)*sol(:ncol,:, 84)*sol(:ncol,:, 97) ! rate_const*BR*HO2 - rxt_rates(:ncol,:, 487) = rxt_rates(:ncol,:, 487)*sol(:ncol,:, 84)*sol(:ncol,:, 69) ! rate_const*BR*O3 - rxt_rates(:ncol,:, 488) = rxt_rates(:ncol,:, 488)*sol(:ncol,:, 4)*sol(:ncol,:, 4) ! rate_const*BRO*BRO - rxt_rates(:ncol,:, 489) = rxt_rates(:ncol,:, 489)*sol(:ncol,:, 4)*sol(:ncol,:, 26) ! rate_const*BRO*CLO - 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,:, 97) ! rate_const*BRO*HO2 - rxt_rates(:ncol,:, 493) = rxt_rates(:ncol,:, 493)*sol(:ncol,:, 4)*sol(:ncol,:, 60) ! rate_const*BRO*NO - rxt_rates(:ncol,:, 494) = rxt_rates(:ncol,:, 494)*sol(:ncol,:, 4)*sol(:ncol,:, 61) ! rate_const*M*BRO*NO2 - rxt_rates(:ncol,:, 495) = rxt_rates(:ncol,:, 495)*sol(:ncol,:, 5)*sol(:ncol,:, 67) ! rate_const*BRONO2*O - rxt_rates(:ncol,:, 496) = rxt_rates(:ncol,:, 496)*sol(:ncol,:, 4)*sol(:ncol,:, 67) ! rate_const*BRO*O - rxt_rates(:ncol,:, 497) = rxt_rates(:ncol,:, 497)*sol(:ncol,:, 4)*sol(:ncol,:, 130) ! rate_const*BRO*OH - rxt_rates(:ncol,:, 498) = rxt_rates(:ncol,:, 498)*sol(:ncol,:, 43)*sol(:ncol,:, 67) ! rate_const*HBR*O - rxt_rates(:ncol,:, 499) = rxt_rates(:ncol,:, 499)*sol(:ncol,:, 43)*sol(:ncol,:, 130) ! rate_const*HBR*OH - rxt_rates(:ncol,:, 500) = rxt_rates(:ncol,:, 500)*sol(:ncol,:, 51)*sol(:ncol,:, 67) ! rate_const*HOBR*O - rxt_rates(:ncol,:, 501) = rxt_rates(:ncol,:, 501)*sol(:ncol,:, 121)*sol(:ncol,:, 9) ! rate_const*O1D*CF3BR - rxt_rates(:ncol,:, 502) = rxt_rates(:ncol,:, 502)*sol(:ncol,:, 121)*sol(:ncol,:, 23) ! rate_const*O1D*CHBR3 - rxt_rates(:ncol,:, 503) = rxt_rates(:ncol,:, 503)*sol(:ncol,:, 121)*sol(:ncol,:, 40) ! rate_const*O1D*H2402 - rxt_rates(:ncol,:, 504) = rxt_rates(:ncol,:, 504)*sol(:ncol,:, 121)*sol(:ncol,:, 43) ! rate_const*O1D*HBR - rxt_rates(:ncol,:, 505) = rxt_rates(:ncol,:, 505)*sol(:ncol,:, 121)*sol(:ncol,:, 43) ! rate_const*O1D*HBR - rxt_rates(:ncol,:, 506) = rxt_rates(:ncol,:, 506)*sol(:ncol,:, 37)*sol(:ncol,:, 22) ! rate_const*F*CH4 - rxt_rates(:ncol,:, 507) = rxt_rates(:ncol,:, 507)*sol(:ncol,:, 37)*sol(:ncol,:, 39) ! rate_const*F*H2 - rxt_rates(:ncol,:, 508) = rxt_rates(:ncol,:, 508)*sol(:ncol,:, 37)*sol(:ncol,:, 134) ! rate_const*F*H2O - rxt_rates(:ncol,:, 509) = rxt_rates(:ncol,:, 509)*sol(:ncol,:, 37)*sol(:ncol,:, 49) ! rate_const*F*HNO3 - rxt_rates(:ncol,:, 510) = rxt_rates(:ncol,:, 510)*sol(:ncol,:, 121)*sol(:ncol,:, 31) ! rate_const*O1D*COF2 - rxt_rates(:ncol,:, 511) = rxt_rates(:ncol,:, 511)*sol(:ncol,:, 121)*sol(:ncol,:, 32) ! rate_const*O1D*COFCL - rxt_rates(:ncol,:, 512) = rxt_rates(:ncol,:, 512)*sol(:ncol,:, 15)*sol(:ncol,:, 85) ! rate_const*CH2BR2*CL - rxt_rates(:ncol,:, 513) = rxt_rates(:ncol,:, 513)*sol(:ncol,:, 15)*sol(:ncol,:, 130) ! rate_const*CH2BR2*OH - rxt_rates(:ncol,:, 514) = rxt_rates(:ncol,:, 514)*sol(:ncol,:, 17)*sol(:ncol,:, 85) ! rate_const*CH3BR*CL - rxt_rates(:ncol,:, 515) = rxt_rates(:ncol,:, 515)*sol(:ncol,:, 17)*sol(:ncol,:, 130) ! rate_const*CH3BR*OH - rxt_rates(:ncol,:, 516) = rxt_rates(:ncol,:, 516)*sol(:ncol,:, 18)*sol(:ncol,:, 130) ! rate_const*CH3CCL3*OH - rxt_rates(:ncol,:, 517) = rxt_rates(:ncol,:, 517)*sol(:ncol,:, 19)*sol(:ncol,:, 85) ! rate_const*CH3CL*CL - rxt_rates(:ncol,:, 518) = rxt_rates(:ncol,:, 518)*sol(:ncol,:, 19)*sol(:ncol,:, 130) ! rate_const*CH3CL*OH - rxt_rates(:ncol,:, 519) = rxt_rates(:ncol,:, 519)*sol(:ncol,:, 23)*sol(:ncol,:, 85) ! rate_const*CHBR3*CL - rxt_rates(:ncol,:, 520) = rxt_rates(:ncol,:, 520)*sol(:ncol,:, 23)*sol(:ncol,:, 130) ! rate_const*CHBR3*OH - rxt_rates(:ncol,:, 521) = rxt_rates(:ncol,:, 521)*sol(:ncol,:, 44)*sol(:ncol,:, 130) ! rate_const*HCFC141B*OH - rxt_rates(:ncol,:, 522) = rxt_rates(:ncol,:, 522)*sol(:ncol,:, 45)*sol(:ncol,:, 130) ! rate_const*HCFC142B*OH - rxt_rates(:ncol,:, 523) = rxt_rates(:ncol,:, 523)*sol(:ncol,:, 46)*sol(:ncol,:, 130) ! rate_const*HCFC22*OH - rxt_rates(:ncol,:, 524) = rxt_rates(:ncol,:, 524)*sol(:ncol,:, 121)*sol(:ncol,:, 15) ! rate_const*O1D*CH2BR2 - rxt_rates(:ncol,:, 525) = rxt_rates(:ncol,:, 525)*sol(:ncol,:, 121)*sol(:ncol,:, 17) ! rate_const*O1D*CH3BR - rxt_rates(:ncol,:, 526) = rxt_rates(:ncol,:, 526)*sol(:ncol,:, 121)*sol(:ncol,:, 44) ! rate_const*O1D*HCFC141B - rxt_rates(:ncol,:, 527) = rxt_rates(:ncol,:, 527)*sol(:ncol,:, 121)*sol(:ncol,:, 45) ! rate_const*O1D*HCFC142B - rxt_rates(:ncol,:, 528) = rxt_rates(:ncol,:, 528)*sol(:ncol,:, 121)*sol(:ncol,:, 46) ! rate_const*O1D*HCFC22 - rxt_rates(:ncol,:, 529) = rxt_rates(:ncol,:, 529)*sol(:ncol,:, 16)*sol(:ncol,:, 62) ! rate_const*CH2O*NO3 - rxt_rates(:ncol,:, 530) = rxt_rates(:ncol,:, 530)*sol(:ncol,:, 16)*sol(:ncol,:, 67) ! rate_const*CH2O*O - rxt_rates(:ncol,:, 531) = rxt_rates(:ncol,:, 531)*sol(:ncol,:, 16)*sol(:ncol,:, 130) ! rate_const*CH2O*OH - rxt_rates(:ncol,:, 532) = rxt_rates(:ncol,:, 532)*sol(:ncol,:, 20)*sol(:ncol,:, 97) ! rate_const*CH3O2*HO2 - rxt_rates(:ncol,:, 533) = rxt_rates(:ncol,:, 533)*sol(:ncol,:, 20)*sol(:ncol,:, 60) ! rate_const*CH3O2*NO - rxt_rates(:ncol,:, 534) = rxt_rates(:ncol,:, 534)*sol(:ncol,:, 21)*sol(:ncol,:, 130) ! rate_const*CH3OOH*OH - rxt_rates(:ncol,:, 535) = rxt_rates(:ncol,:, 535)*sol(:ncol,:, 22)*sol(:ncol,:, 130) ! rate_const*CH4*OH - rxt_rates(:ncol,:, 536) = rxt_rates(:ncol,:, 536)*sol(:ncol,:, 29)*sol(:ncol,:, 130) ! rate_const*M*CO*OH - rxt_rates(:ncol,:, 537) = rxt_rates(:ncol,:, 537)*sol(:ncol,:, 121)*sol(:ncol,:, 22) ! rate_const*O1D*CH4 - rxt_rates(:ncol,:, 538) = rxt_rates(:ncol,:, 538)*sol(:ncol,:, 121)*sol(:ncol,:, 22) ! rate_const*O1D*CH4 - rxt_rates(:ncol,:, 539) = rxt_rates(:ncol,:, 539)*sol(:ncol,:, 121)*sol(:ncol,:, 22) ! rate_const*O1D*CH4 - rxt_rates(:ncol,:, 540) = rxt_rates(:ncol,:, 540)*sol(:ncol,:, 29)*sol(:ncol,:, 130) ! rate_const*CO*OH - rxt_rates(:ncol,:, 541) = rxt_rates(:ncol,:, 541)*sol(:ncol,:, 71)*sol(:ncol,:, 67) ! rate_const*OCS*O - rxt_rates(:ncol,:, 542) = rxt_rates(:ncol,:, 542)*sol(:ncol,:, 71)*sol(:ncol,:, 130) ! rate_const*OCS*OH - rxt_rates(:ncol,:, 543) = rxt_rates(:ncol,:, 543)*sol(:ncol,:, 74)*sol(:ncol,:, 68) ! rate_const*S*O2 - rxt_rates(:ncol,:, 544) = rxt_rates(:ncol,:, 544)*sol(:ncol,:, 74)*sol(:ncol,:, 69) ! rate_const*S*O3 - rxt_rates(:ncol,:, 545) = rxt_rates(:ncol,:, 545)*sol(:ncol,:, 75)*sol(:ncol,:, 4) ! rate_const*SO*BRO - rxt_rates(:ncol,:, 546) = rxt_rates(:ncol,:, 546)*sol(:ncol,:, 75)*sol(:ncol,:, 26) ! rate_const*SO*CLO - rxt_rates(:ncol,:, 547) = rxt_rates(:ncol,:, 547)*sol(:ncol,:, 74)*sol(:ncol,:, 130) ! rate_const*S*OH - rxt_rates(:ncol,:, 548) = rxt_rates(:ncol,:, 548)*sol(:ncol,:, 75)*sol(:ncol,:, 61) ! rate_const*SO*NO2 - rxt_rates(:ncol,:, 549) = rxt_rates(:ncol,:, 549)*sol(:ncol,:, 75)*sol(:ncol,:, 68) ! rate_const*SO*O2 - rxt_rates(:ncol,:, 550) = rxt_rates(:ncol,:, 550)*sol(:ncol,:, 75)*sol(:ncol,:, 69) ! rate_const*SO*O3 - rxt_rates(:ncol,:, 551) = rxt_rates(:ncol,:, 551)*sol(:ncol,:, 75)*sol(:ncol,:, 70) ! rate_const*SO*OCLO - rxt_rates(:ncol,:, 552) = rxt_rates(:ncol,:, 552)*sol(:ncol,:, 75)*sol(:ncol,:, 130) ! rate_const*SO*OH - rxt_rates(:ncol,:, 553) = rxt_rates(:ncol,:, 553)*sol(:ncol,:, 76)*sol(:ncol,:, 130) ! rate_const*SO2*OH - rxt_rates(:ncol,:, 554) = rxt_rates(:ncol,:, 554)*sol(:ncol,:, 77)*sol(:ncol,:, 134) ! rate_const*SO3*H2O - rxt_rates(:ncol,:, 555) = rxt_rates(:ncol,:, 555)*sol(:ncol,:, 33)*sol(:ncol,:, 62) ! rate_const*DMS*NO3 - rxt_rates(:ncol,:, 556) = rxt_rates(:ncol,:, 556)*sol(:ncol,:, 33)*sol(:ncol,:, 130) ! rate_const*DMS*OH - rxt_rates(:ncol,:, 557) = rxt_rates(:ncol,:, 557)*sol(:ncol,:, 33)*sol(:ncol,:, 130) ! rate_const*DMS*OH - rxt_rates(:ncol,:, 558) = rxt_rates(:ncol,:, 558)*sol(:ncol,:, 97) ! rate_const*HO2 - rxt_rates(:ncol,:, 559) = rxt_rates(:ncol,:, 559)*sol(:ncol,:, 56) ! rate_const*N2O5 - rxt_rates(:ncol,:, 560) = rxt_rates(:ncol,:, 560)*sol(:ncol,:, 61) ! rate_const*NO2 - rxt_rates(:ncol,:, 561) = rxt_rates(:ncol,:, 561)*sol(:ncol,:, 62) ! rate_const*NO3 - rxt_rates(:ncol,:, 562) = rxt_rates(:ncol,:, 562)*sol(:ncol,:, 56) ! rate_const*N2O5 - rxt_rates(:ncol,:, 563) = rxt_rates(:ncol,:, 563)*sol(:ncol,:, 52)*sol(:ncol,:, 47) ! rate_const*HOCL*HCL - rxt_rates(:ncol,:, 564) = rxt_rates(:ncol,:, 564)*sol(:ncol,:, 5) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 565) = rxt_rates(:ncol,:, 565)*sol(:ncol,:, 56) ! rate_const*N2O5 - rxt_rates(:ncol,:, 566) = rxt_rates(:ncol,:, 566)*sol(:ncol,:, 27) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 567) = rxt_rates(:ncol,:, 567)*sol(:ncol,:, 5) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 568) = rxt_rates(:ncol,:, 568)*sol(:ncol,:, 27)*sol(:ncol,:, 47) ! rate_const*CLONO2*HCL - rxt_rates(:ncol,:, 569) = rxt_rates(:ncol,:, 569)*sol(:ncol,:, 52)*sol(:ncol,:, 47) ! rate_const*HOCL*HCL - rxt_rates(:ncol,:, 570) = rxt_rates(:ncol,:, 570)*sol(:ncol,:, 51)*sol(:ncol,:, 47) ! rate_const*HOBR*HCL - rxt_rates(:ncol,:, 571) = rxt_rates(:ncol,:, 571)*sol(:ncol,:, 27) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 572) = rxt_rates(:ncol,:, 572)*sol(:ncol,:, 5) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 573) = rxt_rates(:ncol,:, 573)*sol(:ncol,:, 27)*sol(:ncol,:, 47) ! rate_const*CLONO2*HCL - rxt_rates(:ncol,:, 574) = rxt_rates(:ncol,:, 574)*sol(:ncol,:, 52)*sol(:ncol,:, 47) ! rate_const*HOCL*HCL - rxt_rates(:ncol,:, 575) = rxt_rates(:ncol,:, 575)*sol(:ncol,:, 51)*sol(:ncol,:, 47) ! rate_const*HOBR*HCL - rxt_rates(:ncol,:, 576) = rxt_rates(:ncol,:, 576)*sol(:ncol,:, 56) ! rate_const*N2O5 - rxt_rates(:ncol,:, 577) = rxt_rates(:ncol,:, 577)*sol(:ncol,:, 27) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 578) = rxt_rates(:ncol,:, 578)*sol(:ncol,:, 27)*sol(:ncol,:, 47) ! rate_const*CLONO2*HCL - rxt_rates(:ncol,:, 579) = rxt_rates(:ncol,:, 579)*sol(:ncol,:, 114)*sol(:ncol,:, 94) ! rate_const*NOp*e - rxt_rates(:ncol,:, 580) = rxt_rates(:ncol,:, 580)*sol(:ncol,:, 125)*sol(:ncol,:, 94) ! rate_const*O2p*e - rxt_rates(:ncol,:, 581) = rxt_rates(:ncol,:, 581)*sol(:ncol,:, 106)*sol(:ncol,:, 94) ! rate_const*N2p*e - rxt_rates(:ncol,:, 582) = rxt_rates(:ncol,:, 582)*sol(:ncol,:, 106)*sol(:ncol,:, 68) ! rate_const*N2p*O2 - rxt_rates(:ncol,:, 583) = rxt_rates(:ncol,:, 583)*sol(:ncol,:, 106)*sol(:ncol,:, 67) ! rate_const*N2p*O - rxt_rates(:ncol,:, 584) = rxt_rates(:ncol,:, 584)*sol(:ncol,:, 106)*sol(:ncol,:, 67) ! rate_const*N2p*O - rxt_rates(:ncol,:, 585) = rxt_rates(:ncol,:, 585)*sol(:ncol,:, 120)*sol(:ncol,:, 67) ! rate_const*Np*O - rxt_rates(:ncol,:, 586) = rxt_rates(:ncol,:, 586)*sol(:ncol,:, 120)*sol(:ncol,:, 68) ! rate_const*Np*O2 - rxt_rates(:ncol,:, 587) = rxt_rates(:ncol,:, 587)*sol(:ncol,:, 120)*sol(:ncol,:, 68) ! rate_const*Np*O2 - rxt_rates(:ncol,:, 588) = rxt_rates(:ncol,:, 588)*sol(:ncol,:, 125)*sol(:ncol,:, 54) ! rate_const*O2p*N - rxt_rates(:ncol,:, 589) = rxt_rates(:ncol,:, 589)*sol(:ncol,:, 125) ! rate_const*N2*O2p - rxt_rates(:ncol,:, 590) = rxt_rates(:ncol,:, 590)*sol(:ncol,:, 125)*sol(:ncol,:, 60) ! rate_const*O2p*NO - rxt_rates(:ncol,:, 591) = rxt_rates(:ncol,:, 591)*sol(:ncol,:, 133)*sol(:ncol,:, 30) ! rate_const*Op*CO2 - rxt_rates(:ncol,:, 592) = rxt_rates(:ncol,:, 592)*sol(:ncol,:, 133) ! rate_const*N2*Op - rxt_rates(:ncol,:, 593) = rxt_rates(:ncol,:, 593)*sol(:ncol,:, 133)*sol(:ncol,:, 68) ! rate_const*Op*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 + rxt_rates(:ncol,:, 96) = rxt_rates(:ncol,:, 96)*sol(:ncol,:, 128) ! rate_const*O3m + 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,:, 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,:, 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,:, 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,:, 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,:, 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,:, 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,:, 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,:, 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,:, 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,:, 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,:, 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,:, 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,:, 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,:, 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,:, 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,:, 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,:, 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,:, 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,:, 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 b5d863d9aa..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,400 +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(:,104) = 9.6e-10_r8 - rate(:,105) = 1.3e-09_r8 - rate(:,106) = 2e-29_r8 - rate(:,107) = 1e-27_r8 - rate(:,108) = 1.6e-09_r8 - rate(:,109) = 6e-12_r8 - rate(:,110) = 2.9e-12_r8 - rate(:,111) = 2.9e-11_r8 - rate(:,112) = 2e-10_r8 - rate(:,113) = 1e-10_r8 - rate(:,114) = 1e-10_r8 - rate(:,115) = 1e-11_r8 - rate(:,116) = 1.7e-10_r8 - rate(:,117) = 1e-28_r8 - rate(:,118) = 1e-28_r8 - rate(:,119) = 4e-11_r8 - rate(:,120) = 4e-11_r8 - rate(:,121) = 3.5e-12_r8 - rate(:,122) = 3.5e-12_r8 - rate(:,123) = 3.51e-10_r8 - rate(:,124) = 1.1e-10_r8 - rate(:,125) = 6e-15_r8 - rate(:,126) = 1e-10_r8 - rate(:,127) = 1e-10_r8 - rate(:,128) = 2.2e-10_r8 - rate(:,129) = 1.2e-09_r8 - rate(:,130) = 1.4e-10_r8 - rate(:,131) = 1.3e-10_r8 - rate(:,137) = 1.5e-06_r8 - rate(:,138) = 2e-09_r8 - rate(:,139) = 1e-09_r8 - rate(:,140) = 3.6e-06_r8 - rate(:,141) = 4e-12_r8 - rate(:,142) = 1e-09_r8 - rate(:,143) = 5e-06_r8 - rate(:,144) = 7e-12_r8 - rate(:,284) = 1e-10_r8 - rate(:,285) = 1e-10_r8 - rate(:,286) = 3e-10_r8 - rate(:,287) = 1.6e-28_r8 - rate(:,288) = 1.4e-09_r8 - rate(:,289) = 1.6e-09_r8 - rate(:,290) = 2e-13_r8 - rate(:,291) = 1.2e-10_r8 - rate(:,292) = 7e-10_r8 - rate(:,293) = 1.6e-28_r8 - rate(:,294) = 1.6e-09_r8 - rate(:,295) = 1.6e-28_r8 - rate(:,296) = 7e-10_r8 - rate(:,297) = 1e-12_r8 - rate(:,298) = 7.6e-10_r8 - rate(:,299) = 1.45e-26_r8 - rate(:,300) = 5e-12_r8 - rate(:,301) = 1e-13_r8 - rate(:,302) = 2e-06_r8 - rate(:,303) = 2e-06_r8 - rate(:,304) = 7e-11_r8 - rate(:,305) = 1.5e-06_r8 - rate(:,306) = 1e-09_r8 - rate(:,307) = 1.5e-06_r8 - rate(:,308) = 7e-12_r8 - rate(:,309) = 5e-10_r8 - rate(:,310) = 1e-10_r8 - rate(:,311) = 1e-09_r8 - rate(:,312) = 1e-09_r8 - rate(:,313) = 1e-10_r8 - rate(:,314) = 1e-10_r8 - rate(:,315) = 9.9e-30_r8 - rate(:,316) = 1.4e-09_r8 - rate(:,317) = 1.6e-09_r8 - rate(:,318) = 2.9e-09_r8 - rate(:,319) = 7e-10_r8 - rate(:,320) = 2e-10_r8 - rate(:,321) = 3.4e-31_r8 - rate(:,322) = 7.8e-10_r8 - rate(:,323) = 1.5e-10_r8 - rate(:,324) = 1.5e-10_r8 - rate(:,325) = 2e-06_r8 - rate(:,326) = 9e-10_r8 - rate(:,327) = 2.4e-10_r8 - rate(:,328) = 2.8e-28_r8 - rate(:,329) = 5.5e-10_r8 - rate(:,330) = 8.4e-10_r8 - rate(:,331) = 1e-10_r8 - rate(:,332) = 1e-10_r8 - rate(:,333) = 2.5e-10_r8 - rate(:,334) = 4.3e-10_r8 - rate(:,335) = 4e-10_r8 - rate(:,336) = 1.7e-09_r8 - rate(:,337) = 3e-10_r8 - rate(:,338) = 1.5e-10_r8 - rate(:,340) = 1e-10_r8 - rate(:,341) = 1e-10_r8 - rate(:,342) = 7.6e-28_r8 - rate(:,343) = 1.4e-09_r8 - rate(:,344) = 1e-09_r8 - rate(:,345) = 1.1e-09_r8 - rate(:,346) = 2e-10_r8 - rate(:,347) = 9e-10_r8 - rate(:,349) = 1e-10_r8 - rate(:,350) = 1e-10_r8 - rate(:,351) = 2e-28_r8 - rate(:,352) = 5.8e-10_r8 - rate(:,353) = 3.2e-11_r8 - rate(:,354) = 6e-13_r8 - rate(:,355) = 2e-09_r8 - rate(:,356) = 3.6e-09_r8 - rate(:,357) = 5e-13_r8 - rate(:,358) = 1e-09_r8 - rate(:,359) = 1.9e-10_r8 - rate(:,360) = 3e-10_r8 - rate(:,361) = 2.9e-31_r8 - rate(:,362) = 8e-10_r8 - rate(:,386) = 0.000258_r8 - rate(:,387) = 0.085_r8 - rate(:,388) = 1.2e-10_r8 - rate(:,393) = 1.2e-10_r8 - rate(:,394) = 1e-20_r8 - rate(:,395) = 1.3e-16_r8 - rate(:,397) = 4.2e-13_r8 - rate(:,399) = 8e-14_r8 - rate(:,400) = 3.9e-17_r8 - rate(:,407) = 6.9e-12_r8 - rate(:,408) = 7.2e-11_r8 - rate(:,409) = 1.6e-12_r8 - rate(:,415) = 1.8e-12_r8 - rate(:,419) = 1.8e-12_r8 - rate(:,423) = 7e-13_r8 - rate(:,424) = 5e-12_r8 - rate(:,433) = 3.5e-12_r8 - rate(:,435) = 1e-11_r8 - rate(:,436) = 2.2e-11_r8 - rate(:,437) = 5e-11_r8 - rate(:,472) = 1.7e-13_r8 - rate(:,474) = 2.607e-10_r8 - rate(:,475) = 9.75e-11_r8 - rate(:,476) = 2.07e-10_r8 - rate(:,477) = 2.088e-10_r8 - rate(:,478) = 1.17e-10_r8 - rate(:,479) = 4.644e-11_r8 - rate(:,480) = 1.204e-10_r8 - rate(:,481) = 9.9e-11_r8 - rate(:,482) = 3.3e-12_r8 - rate(:,501) = 4.5e-11_r8 - rate(:,502) = 4.62e-10_r8 - rate(:,503) = 1.2e-10_r8 - rate(:,504) = 9e-11_r8 - rate(:,505) = 3e-11_r8 - rate(:,510) = 2.14e-11_r8 - rate(:,511) = 1.9e-10_r8 - rate(:,524) = 2.57e-10_r8 - rate(:,525) = 1.8e-10_r8 - rate(:,526) = 1.794e-10_r8 - rate(:,527) = 1.3e-10_r8 - rate(:,528) = 7.65e-11_r8 - rate(:,537) = 1.31e-10_r8 - rate(:,538) = 3.5e-11_r8 - rate(:,539) = 9e-12_r8 - rate(:,543) = 2.3e-12_r8 - rate(:,544) = 1.2e-11_r8 - rate(:,545) = 5.7e-11_r8 - rate(:,546) = 2.8e-11_r8 - rate(:,547) = 6.6e-11_r8 - rate(:,548) = 1.4e-11_r8 - rate(:,551) = 1.9e-12_r8 - rate(:,582) = 6e-11_r8 - rate(:,585) = 1e-12_r8 - rate(:,586) = 4e-10_r8 - rate(:,587) = 2e-10_r8 - rate(:,588) = 1e-10_r8 - rate(:,589) = 5e-16_r8 - rate(:,590) = 4.4e-10_r8 - rate(:,591) = 9e-10_r8 - - do n = 1,pver - offset = (n-1)*ncol - itemp(offset+1:offset+ncol) = 1._r8 / temp(:ncol,n) - end do - - rate(:,339) = 1.8e-11_r8 * exp( 390._r8 * itemp(:) ) - rate(:,389) = 1.63e-10_r8 * exp( 60._r8 * itemp(:) ) - rate(:,390) = 2.15e-11_r8 * exp( 110._r8 * itemp(:) ) - exp_fac(:) = exp( 55._r8 * itemp(:) ) - rate(:,391) = 2.64e-11_r8 * exp_fac(:) - rate(:,392) = 6.6e-12_r8 * exp_fac(:) - rate(:,396) = 3.6e-18_r8 * exp( -220._r8 * itemp(:) ) - rate(:,398) = 1.8e-15_r8 * exp( 45._r8 * itemp(:) ) - rate(:,401) = 3.5e-11_r8 * exp( -135._r8 * itemp(:) ) - rate(:,402) = 8e-12_r8 * exp( -2060._r8 * itemp(:) ) - rate(:,405) = 1.6e-11_r8 * exp( -4570._r8 * itemp(:) ) - rate(:,406) = 1.4e-12_r8 * exp( -2000._r8 * itemp(:) ) - exp_fac(:) = exp( 200._r8 * itemp(:) ) - rate(:,411) = 3e-11_r8 * exp_fac(:) - rate(:,499) = 5.5e-12_r8 * exp_fac(:) - rate(:,534) = 3.8e-12_r8 * exp_fac(:) - rate(:,412) = 1e-14_r8 * exp( -490._r8 * itemp(:) ) - rate(:,413) = 1.4e-10_r8 * exp( -470._r8 * itemp(:) ) - rate(:,414) = 2.8e-12_r8 * exp( -1800._r8 * itemp(:) ) - exp_fac(:) = exp( 250._r8 * itemp(:) ) - rate(:,416) = 4.8e-11_r8 * exp_fac(:) - rate(:,497) = 1.7e-11_r8 * exp_fac(:) - rate(:,417) = 1.8e-11_r8 * exp( 180._r8 * itemp(:) ) - rate(:,418) = 1.7e-12_r8 * exp( -940._r8 * itemp(:) ) - rate(:,422) = 1.3e-12_r8 * exp( 380._r8 * itemp(:) ) - rate(:,425) = 2.1e-11_r8 * exp( 100._r8 * itemp(:) ) - exp_fac(:) = exp( 220._r8 * itemp(:) ) - rate(:,426) = 2.9e-12_r8 * exp_fac(:) - rate(:,427) = 1.45e-12_r8 * exp_fac(:) - rate(:,428) = 1.45e-12_r8 * exp_fac(:) - rate(:,429) = 1.5e-11_r8 * exp( -3600._r8 * itemp(:) ) - rate(:,430) = 5.1e-12_r8 * exp( 210._r8 * itemp(:) ) - exp_fac(:) = exp( -2450._r8 * itemp(:) ) - rate(:,431) = 1.2e-13_r8 * exp_fac(:) - rate(:,457) = 3e-11_r8 * exp_fac(:) - rate(:,434) = 1.5e-11_r8 * exp( 170._r8 * itemp(:) ) - exp_fac(:) = exp( 270._r8 * itemp(:) ) - rate(:,438) = 3.3e-12_r8 * exp_fac(:) - rate(:,453) = 1.4e-11_r8 * exp_fac(:) - rate(:,467) = 7.4e-12_r8 * exp_fac(:) - exp_fac(:) = exp( -1500._r8 * itemp(:) ) - rate(:,439) = 3e-12_r8 * exp_fac(:) - rate(:,498) = 5.8e-12_r8 * exp_fac(:) - exp_fac(:) = exp( 20._r8 * itemp(:) ) - rate(:,441) = 7.26e-11_r8 * exp_fac(:) - rate(:,442) = 4.64e-11_r8 * exp_fac(:) - rate(:,449) = 8.1e-11_r8 * exp( -30._r8 * itemp(:) ) - rate(:,450) = 7.1e-12_r8 * exp( -1270._r8 * itemp(:) ) - rate(:,451) = 3.05e-11_r8 * exp( -2270._r8 * itemp(:) ) - rate(:,452) = 1.1e-11_r8 * exp( -980._r8 * itemp(:) ) - rate(:,454) = 3.6e-11_r8 * exp( -375._r8 * itemp(:) ) - rate(:,455) = 2.3e-11_r8 * exp( -200._r8 * itemp(:) ) - rate(:,456) = 3.3e-12_r8 * exp( -115._r8 * itemp(:) ) - rate(:,458) = 1e-12_r8 * exp( -1590._r8 * itemp(:) ) - rate(:,459) = 3.5e-13_r8 * exp( -1370._r8 * itemp(:) ) - exp_fac(:) = exp( 290._r8 * itemp(:) ) - rate(:,460) = 2.6e-12_r8 * exp_fac(:) - rate(:,461) = 6.4e-12_r8 * exp_fac(:) - rate(:,491) = 4.1e-13_r8 * exp_fac(:) - rate(:,462) = 6.5e-12_r8 * exp( 135._r8 * itemp(:) ) - exp_fac(:) = exp( -840._r8 * itemp(:) ) - rate(:,464) = 3.6e-12_r8 * exp_fac(:) - rate(:,513) = 2e-12_r8 * exp_fac(:) - rate(:,465) = 1.2e-12_r8 * exp( -330._r8 * itemp(:) ) - rate(:,466) = 2.8e-11_r8 * exp( 85._r8 * itemp(:) ) - exp_fac(:) = exp( 230._r8 * itemp(:) ) - rate(:,468) = 6e-13_r8 * exp_fac(:) - rate(:,488) = 1.5e-12_r8 * exp_fac(:) - rate(:,496) = 1.9e-11_r8 * exp_fac(:) - rate(:,469) = 1e-11_r8 * exp( -3300._r8 * itemp(:) ) - rate(:,470) = 1.8e-12_r8 * exp( -250._r8 * itemp(:) ) - rate(:,471) = 3.4e-12_r8 * exp( -130._r8 * itemp(:) ) - exp_fac(:) = exp( -500._r8 * itemp(:) ) - rate(:,473) = 3e-12_r8 * exp_fac(:) - rate(:,507) = 1.4e-10_r8 * exp_fac(:) - exp_fac(:) = exp( -800._r8 * itemp(:) ) - rate(:,485) = 1.7e-11_r8 * exp_fac(:) - rate(:,512) = 6.3e-12_r8 * exp_fac(:) - rate(:,486) = 4.8e-12_r8 * exp( -310._r8 * itemp(:) ) - rate(:,487) = 1.6e-11_r8 * exp( -780._r8 * itemp(:) ) - rate(:,489) = 9.5e-13_r8 * exp( 550._r8 * itemp(:) ) - exp_fac(:) = exp( 260._r8 * itemp(:) ) - rate(:,490) = 2.3e-12_r8 * exp_fac(:) - rate(:,493) = 8.8e-12_r8 * exp_fac(:) - rate(:,492) = 4.5e-12_r8 * exp( 460._r8 * itemp(:) ) - rate(:,495) = 1.9e-11_r8 * exp( 215._r8 * itemp(:) ) - rate(:,500) = 1.2e-10_r8 * exp( -430._r8 * itemp(:) ) - rate(:,506) = 1.6e-10_r8 * exp( -260._r8 * itemp(:) ) - exp_fac(:) = exp( 0._r8 * itemp(:) ) - rate(:,508) = 1.4e-11_r8 * exp_fac(:) - rate(:,510) = 2.14e-11_r8 * exp_fac(:) - rate(:,511) = 1.9e-10_r8 * exp_fac(:) - rate(:,524) = 2.57e-10_r8 * exp_fac(:) - rate(:,525) = 1.8e-10_r8 * exp_fac(:) - rate(:,526) = 1.794e-10_r8 * exp_fac(:) - rate(:,527) = 1.3e-10_r8 * exp_fac(:) - rate(:,528) = 7.65e-11_r8 * exp_fac(:) - rate(:,537) = 1.31e-10_r8 * exp_fac(:) - rate(:,538) = 3.5e-11_r8 * exp_fac(:) - rate(:,539) = 9e-12_r8 * exp_fac(:) - rate(:,543) = 2.3e-12_r8 * exp_fac(:) - rate(:,544) = 1.2e-11_r8 * exp_fac(:) - rate(:,545) = 5.7e-11_r8 * exp_fac(:) - rate(:,546) = 2.8e-11_r8 * exp_fac(:) - rate(:,547) = 6.6e-11_r8 * exp_fac(:) - rate(:,548) = 1.4e-11_r8 * exp_fac(:) - rate(:,551) = 1.9e-12_r8 * exp_fac(:) - rate(:,582) = 6e-11_r8 * exp_fac(:) - rate(:,585) = 1e-12_r8 * exp_fac(:) - rate(:,586) = 4e-10_r8 * exp_fac(:) - rate(:,587) = 2e-10_r8 * exp_fac(:) - rate(:,588) = 1e-10_r8 * exp_fac(:) - rate(:,589) = 5e-16_r8 * exp_fac(:) - rate(:,590) = 4.4e-10_r8 * exp_fac(:) - rate(:,591) = 9e-10_r8 * exp_fac(:) - rate(:,509) = 6e-12_r8 * exp( 400._r8 * itemp(:) ) - rate(:,514) = 1.46e-11_r8 * exp( -1040._r8 * itemp(:) ) - rate(:,515) = 1.42e-12_r8 * exp( -1150._r8 * itemp(:) ) - rate(:,516) = 1.64e-12_r8 * exp( -1520._r8 * itemp(:) ) - exp_fac(:) = exp( -1100._r8 * itemp(:) ) - rate(:,517) = 2.03e-11_r8 * exp_fac(:) - rate(:,550) = 3.4e-12_r8 * exp_fac(:) - rate(:,518) = 1.96e-12_r8 * exp( -1200._r8 * itemp(:) ) - rate(:,519) = 4.85e-12_r8 * exp( -850._r8 * itemp(:) ) - rate(:,520) = 9e-13_r8 * exp( -360._r8 * itemp(:) ) - exp_fac(:) = exp( -1600._r8 * itemp(:) ) - rate(:,521) = 1.25e-12_r8 * exp_fac(:) - rate(:,530) = 3.4e-11_r8 * exp_fac(:) - rate(:,522) = 1.3e-12_r8 * exp( -1770._r8 * itemp(:) ) - rate(:,523) = 9.2e-13_r8 * exp( -1560._r8 * itemp(:) ) - rate(:,529) = 6e-13_r8 * exp( -2058._r8 * itemp(:) ) - rate(:,531) = 5.5e-12_r8 * exp( 125._r8 * itemp(:) ) - rate(:,532) = 4.1e-13_r8 * exp( 750._r8 * itemp(:) ) - rate(:,533) = 2.8e-12_r8 * exp( 300._r8 * itemp(:) ) - rate(:,535) = 2.45e-12_r8 * exp( -1775._r8 * itemp(:) ) - rate(:,541) = 2.1e-11_r8 * exp( -2200._r8 * itemp(:) ) - rate(:,542) = 7.2e-14_r8 * exp( -1070._r8 * itemp(:) ) - rate(:,549) = 1.6e-13_r8 * exp( -2280._r8 * itemp(:) ) - rate(:,552) = 2.7e-11_r8 * exp( 335._r8 * itemp(:) ) - rate(:,555) = 1.9e-13_r8 * exp( 520._r8 * itemp(:) ) - rate(:,556) = 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(:,348), 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(:,410), m, 0.6_r8, ko, kinf, n ) - - ko(:) = 6.9e-31_r8 * itemp(:)**1._r8 - kinf(:) = 2.6e-11_r8 - call jpl( rate(:,420), 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(:,432), m, 0.6_r8, ko, kinf, n ) - - ko(:) = 9e-32_r8 * itemp(:)**1.5_r8 - kinf(:) = 3e-11_r8 - call jpl( rate(:,440), m, 0.6_r8, ko, kinf, n ) - - ko(:) = 1.9e-31_r8 * itemp(:)**3.4_r8 - kinf(:) = 4e-12_r8 * itemp(:)**0.3_r8 - call jpl( rate(:,443), m, 0.6_r8, ko, kinf, n ) - - ko(:) = 2.4e-30_r8 * itemp(:)**3._r8 - kinf(:) = 1.6e-12_r8 * itemp(:)**(-0.1_r8) - call jpl( rate(:,444), m, 0.6_r8, ko, kinf, n ) - - ko(:) = 1.8e-30_r8 * itemp(:)**3._r8 - kinf(:) = 2.8e-11_r8 - call jpl( rate(:,445), m, 0.6_r8, ko, kinf, n ) - - ko(:) = 1.8e-31_r8 * itemp(:)**3.4_r8 - kinf(:) = 1.5e-11_r8 * itemp(:)**1.9_r8 - call jpl( rate(:,463), 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(:,483), 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(:,494), 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(:,536), 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 @@ -429,69 +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,394) = 1e-20_r8 - rate(:n,395) = 1.3e-16_r8 - rate(:n,399) = 8e-14_r8 - rate(:n,400) = 3.9e-17_r8 - rate(:n,407) = 6.9e-12_r8 - rate(:n,423) = 7e-13_r8 - rate(:n,424) = 5e-12_r8 - rate(:n,582) = 6e-11_r8 - rate(:n,585) = 1e-12_r8 - rate(:n,586) = 4e-10_r8 - rate(:n,587) = 2e-10_r8 - rate(:n,588) = 1e-10_r8 - rate(:n,590) = 4.4e-10_r8 - - do k = 1,kbot - offset = (k-1)*ncol - itemp(offset+1:offset+ncol) = 1._r8 / temp(:ncol,k) - end do - - rate(:n,390) = 2.15e-11_r8 * exp( 110._r8 * itemp(:) ) - exp_fac(:) = exp( 55._r8 * itemp(:) ) - rate(:n,391) = 2.64e-11_r8 * exp_fac(:) - rate(:n,392) = 6.6e-12_r8 * exp_fac(:) - rate(:n,396) = 3.6e-18_r8 * exp( -220._r8 * itemp(:) ) - rate(:n,398) = 1.8e-15_r8 * exp( 45._r8 * itemp(:) ) - rate(:n,401) = 3.5e-11_r8 * exp( -135._r8 * itemp(:) ) - rate(:n,402) = 8e-12_r8 * exp( -2060._r8 * itemp(:) ) - rate(:n,411) = 3e-11_r8 * exp( 200._r8 * itemp(:) ) - rate(:n,412) = 1e-14_r8 * exp( -490._r8 * itemp(:) ) - rate(:n,413) = 1.4e-10_r8 * exp( -470._r8 * itemp(:) ) - rate(:n,416) = 4.8e-11_r8 * exp( 250._r8 * itemp(:) ) - rate(:n,417) = 1.8e-11_r8 * exp( 180._r8 * itemp(:) ) - rate(:n,418) = 1.7e-12_r8 * exp( -940._r8 * itemp(:) ) - rate(:n,425) = 2.1e-11_r8 * exp( 100._r8 * itemp(:) ) - rate(:n,429) = 1.5e-11_r8 * exp( -3600._r8 * itemp(:) ) - rate(:n,430) = 5.1e-12_r8 * exp( 210._r8 * itemp(:) ) - rate(:n,438) = 3.3e-12_r8 * exp( 270._r8 * itemp(:) ) - rate(:n,439) = 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,410) = 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 340f15870f..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,141 +28,144 @@ subroutine set_sim_dat !-------------------------------------------------------------- integer :: ios - is_scalar = .false. - is_vector = .true. + is_scalar = .true. + is_vector = .false. - clscnt(:) = (/ 22, 0, 0, 112, 0 /) + clscnt(:) = (/ 23, 0, 0, 114, 0 /) - cls_rxt_cnt(:,1) = (/ 66, 65, 0, 22 /) - cls_rxt_cnt(:,4) = (/ 30, 157, 406, 112 /) + cls_rxt_cnt(:,1) = (/ 66, 66, 0, 23 /) + cls_rxt_cnt(:,4) = (/ 30, 163, 413, 114 /) - solsym(:134) = (/ '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 ','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 ','O2p ', & - 'O2p_H2O ','O3m ','O4m ','O4p ','OH ', & - 'OHm ','Om ','Op ','H2O ' /) + 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(:134) = (/ 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, 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, 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, 18.014200_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(:134) = (/ 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, & + crb_mass(:137) = (/ 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, & + 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, 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, & - 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, & + 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, 12.011000_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, 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 /) fix_mass(: 2) = (/ 0.00000000_r8, 28.0134800_r8 /) - clsmap(: 22,1) = (/ 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, & - 17, 18, 19, 22, 23, 28, 30, 40, 44, 45, & - 46, 55 /) - clsmap(:112,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, 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, 111, 112, & - 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, & - 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, & - 133, 134 /) + 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, & + 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, & + 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, & + 134, 135, 136, 137 /) - permute(:112,4) = (/ 1, 2, 27, 80, 45, 81, 64, 35, 24, 21, & - 95, 60, 44, 23, 25, 32, 3, 4, 5, 54, & - 98, 75, 46, 22, 56, 100, 26, 101, 39, 55, & - 57, 50, 63, 62, 6, 7, 8, 106, 104, 97, & - 9, 10, 11, 12, 107, 99, 91, 33, 34, 13, & - 14, 49, 68, 59, 29, 15, 16, 17, 18, 19, & - 20, 74, 90, 84, 70, 69, 61, 88, 67, 78, & - 83, 89, 36, 65, 86, 47, 111, 30, 105, 31, & - 94, 51, 43, 48, 108, 71, 85, 77, 79, 73, & - 76, 92, 93, 37, 41, 96, 40, 42, 82, 58, & - 28, 102, 103, 52, 72, 38, 66, 87, 109, 110, & - 53, 112 /) + 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 /) - diag_map(:112) = (/ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & + diag_map(:114) = (/ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, & 21, 24, 27, 30, 32, 36, 39, 42, 46, 50, & 54, 58, 64, 69, 77, 83, 89, 95, 101, 108, & - 115, 121, 128, 133, 137, 145, 152, 159, 169, 176, & - 182, 190, 199, 209, 218, 226, 235, 242, 251, 259, & - 269, 279, 293, 305, 316, 331, 343, 360, 374, 390, & - 405, 419, 433, 451, 465, 484, 500, 520, 541, 565, & - 587, 618, 641, 671, 694, 728, 775, 803, 844, 886, & - 928, 974,1017,1060,1105,1147,1187,1223,1271,1316, & - 1356,1392,1437,1484,1527,1569,1627,1657,1690,1726, & - 1769,1828 /) + 115, 121, 128, 134, 138, 146, 153, 162, 168, 175, & + 181, 189, 198, 207, 215, 223, 230, 239, 246, 255, & + 264, 277, 287, 297, 311, 324, 335, 350, 362, 379, & + 393, 409, 424, 438, 452, 470, 484, 503, 519, 539, & + 560, 584, 606, 637, 660, 690, 713, 747, 794, 822, & + 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 ', & @@ -178,16 +181,16 @@ subroutine set_sim_dat inv_lst(: 2) = (/ 'M ', 'N2 ' /) - slvd_lst(: 50) = (/ '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 ' /) + 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 ) @@ -235,265 +238,267 @@ subroutine set_sim_dat 'jhcfc22 ', 'jhcl ', & 'jhf ', 'jhobr ', & 'jhocl ', 'joclo ', & - 'jeuv_26 ', 'jpni3 ', & - 'jpni5 ', 'jpni4 ', & - 'jeuv_4 ', 'jeuv_25 ', & - 'jeuv_18 ', 'jeuv_13 ', & - 'jeuv_23 ', 'jeuv_11 ', & - 'jeuv_6 ', 'jeuv_10 ', & - 'jeuv_22 ', 'jepn6 ', & - 'jepn7 ', 'jeuv_16 ', & - 'jeuv_1 ', 'jeuv_14 ', & - 'jeuv_15 ', 'jeuv_2 ', & - 'jeuv_3 ', 'jeuv_21 ', & - 'jeuv_17 ', 'jeuv_9 ', & - 'jeuv_24 ', 'jeuv_19 ', & - 'jeuv_5 ', 'jeuv_7 ', & - 'jeuv_12 ', 'jeuv_20 ', & - 'jeuv_8 ', 'jepn2 ', & - 'jppi ', 'jepn3 ', & - 'jpni1 ', 'jpni2 ', & - 'jepn4 ', 'jepn1 ', & - 'jh2so4 ', 'jocs ', & - 'jso ', 'jso2 ', & - 'jso3 ', 'CLm_H ', & - 'CLmH2O_HCL ', 'CLm_H2O_Ma ', & - 'CLmHCL_M ', 'CLm_HNO3 ', & - 'CLm_NO2 ', 'CLOm_NOa ', & - 'CLOm_NOb ', 'CLOm_O ', & - 'CO3m_CLa ', 'CO3m_CLb ', & - 'CO3m_CLO ', 'CO3m_H ', & - 'CO3mH2O_H2O_M ', 'CO3m_H2O_M ', & - 'CO3mH2O_NO2a ', 'CO3mH2O_NO2b ', & - 'CO3mH2O_NOa ', 'CO3mH2O_NOb ', & - 'CO3m_HNO3 ', 'CO3m_O ', & - 'CO3m_O2 ', 'CO4m_CL ', & - 'CO4m_CLO ', 'CO4m_H ', & - 'CO4m_HCL ', 'CO4m_O ', & - 'CO4m_O3 ', 'ean1 ', & - 'ean2 ', 'ean3 ', & - 'edn1 ', 'edn2 ', & - 'H3OpOH_e ', 'H3OpOH_H2O ', & - 'Hp3N1_H2O ', 'Hp4H2O_e ', & - 'Hp4H2O_N2O5 ', 'Hp4N1_H2O ', & - 'Hp5H2O_e ', 'Hp5H2O_N2O5 ', & - 'iira1 ', 'iira10 ', & - 'iira100 ', 'iira101 ', & - 'iira102 ', 'iira103 ', & - 'iira104 ', 'iira105 ', & - 'iira106 ', 'iira107 ', & - 'iira108 ', 'iira109 ', & - 'iira11 ', 'iira110 ', & - 'iira111 ', 'iira112 ', & - 'iira12 ', 'iira13 ', & - 'iira14 ', 'iira15 ', & - 'iira16 ', 'iira17 ', & - 'iira18 ', 'iira19 ', & - 'iira2 ', 'iira20 ', & - 'iira21 ', 'iira22 ', & - 'iira23 ', 'iira24 ', & - 'iira25 ', 'iira26 ', & - 'iira27 ', 'iira28 ', & - 'iira29 ', 'iira3 ', & - 'iira30 ', 'iira31 ', & - 'iira32 ', 'iira33 ', & - 'iira34 ', 'iira35 ', & - 'iira36 ', 'iira37 ', & - 'iira38 ', 'iira39 ', & - 'iira4 ', 'iira40 ', & - 'iira41 ', 'iira42 ', & - 'iira43 ', 'iira44 ', & - 'iira45 ', 'iira46 ', & - 'iira47 ', 'iira48 ' /) - rxt_tag_lst( 201: 400) = (/ 'iira49 ', 'iira5 ', & - 'iira50 ', 'iira51 ', & - 'iira52 ', 'iira53 ', & - 'iira54 ', 'iira55 ', & - 'iira56 ', 'iira57 ', & - 'iira58 ', 'iira59 ', & - 'iira6 ', 'iira60 ', & - 'iira61 ', 'iira62 ', & - 'iira63 ', 'iira64 ', & - 'iira65 ', 'iira66 ', & - 'iira67 ', 'iira68 ', & - 'iira69 ', 'iira7 ', & - 'iira70 ', 'iira71 ', & - 'iira72 ', 'iira73 ', & - 'iira74 ', 'iira75 ', & - 'iira76 ', 'iira77 ', & - 'iira78 ', 'iira79 ', & - 'iira8 ', 'iira80 ', & - 'iira81 ', 'iira82 ', & - 'iira83 ', 'iira84 ', & - 'iira85 ', 'iira86 ', & - 'iira87 ', 'iira88 ', & - 'iira89 ', 'iira9 ', & - 'iira90 ', 'iira91 ', & - 'iira92 ', 'iira93 ', & - 'iira94 ', 'iira95 ', & - 'iira96 ', 'iira97 ', & - 'iira98 ', 'iira99 ', & - 'iirb1 ', 'iirb10 ', & - 'iirb11 ', 'iirb12 ', & - 'iirb13 ', 'iirb14 ', & - 'iirb2 ', 'iirb3 ', & - 'iirb4 ', 'iirb5 ', & - 'iirb6 ', 'iirb7 ', & - 'iirb8 ', 'iirb9 ', & - 'nir1 ', 'nir10 ', & - 'nir11 ', 'nir12 ', & - 'nir13 ', 'nir2 ', & - 'nir3 ', 'nir4 ', & - 'nir5 ', 'nir6 ', & - 'nir7 ', 'nir8 ', & - 'nir9 ', 'NO2m_CL ', & - 'NO2m_CLO ', 'NO2m_H ', & - 'NO2m_H2O_M ', 'NO2m_HCL ', & - 'NO2m_HNO3 ', 'NO2m_NO2 ', & - 'NO2m_O3 ', 'NO3m2H2O_N2O5 ', & - 'NO3mH2O_H2O_M ', 'NO3mH2O_HNO3 ', & - 'NO3m_H2O_M ', 'NO3mH2O_N2O5 ', & - 'NO3m_HCLa ', 'NO3mHCL_HNO3 ', & - 'NO3m_HNO3_M ', 'NO3m_O ', & - 'NO3m_O3 ', 'NOp2H2O_e ', & - 'NOp3H2O_e ', 'NOp3H2O_H2O ', & - 'NOpCO2_e ', 'NOpCO2_H2O ', & - 'NOpH2O_e ', 'NOpH2O_H ', & - 'NOpH2O_HO2 ', 'NOpH2O_OH ', & - 'NOpN2_CO2 ', 'NOpN2_H2O ', & - 'O2m_CL ', 'O2m_CLO ', & - 'O2m_CO2_M ', 'O2m_H ', & - 'O2m_HCL ', 'O2m_HNO3 ', & - 'O2m_NO2 ', 'O2m_O21D ', & - 'O2m_O2_M ', 'O2m_O3 ', & - 'O2m_O_a ', 'O2m_O_b ', & - 'O2pH2O_e ', 'O2pH2O_H2Oa ', & - 'O2pH2O_H2Ob ', 'O2p_H2O_M ', & - 'O3m_CO2 ', 'O3m_H ', & - 'O3m_O3 ', 'O3m_O_a ', & - 'O3m_O_b ', 'O4m_CO2 ', & - 'O4m_O ', 'O4p_H2O ', & - 'O4p_O ', 'O4p_O21D ', & - 'OH_HONO ', 'OHm_CL ', & - 'OHm_CLO ', 'OHm_CO2 ', & - 'OHm_H ', 'OHm_HCL ', & - 'OHm_NO2 ', 'OHm_O ', & - 'OHm_O3 ', 'OH_NO_M ', & - 'Om_CL ', 'Om_CLO ', & - 'Om_CO2_M ', 'Om_H2_a ', & - 'Om_H2_b ', 'Om_H2O ', & - 'Om_HCL ', 'Om_HNO3 ', & - 'Om_M ', 'Om_NO2 ', & - 'Om_O ', 'Om_O21D ', & - 'Om_O2_M ', 'Om_O3 ', & - 'pir1 ', 'pir10 ', & - 'pir11 ', 'pir12 ', & - 'pir13 ', 'pir14 ', & - 'pir15 ', 'pir16 ', & - 'pir2 ', 'pir3 ', & - 'pir4 ', 'pir5 ', & - 'pir6 ', 'pir7 ', & - 'pir8 ', 'pir9 ', & - 'rpe1 ', 'rpe2 ', & - 'rpe3 ', 'rpe4 ', & - 'rpe5 ', 'usr_CLm_H2O_M ', & - 'usr_CLm_HCL_M ', 'ag1 ', & - 'ag2 ', 'O1D_H2 ', & - 'O1D_H2O ', 'O1D_N2 ', & - 'O1D_O2 ', 'O1D_O2b ', & - 'O1D_O3 ', 'O2_1D_N2 ', & - 'O2_1D_O ', 'O2_1D_O2 ', & - 'O2_1S_CO2 ', 'O2_1S_N2 ', & - 'O2_1S_O ', 'O2_1S_O2 ' /) - rxt_tag_lst( 401: 593) = (/ 'O2_1S_O3 ', 'O_O3 ', & - 'usr_O_O ', 'usr_O_O2 ', & - 'H2_O ', 'H2O2_O ', & - 'H_HO2 ', 'H_HO2a ', & - 'H_HO2b ', 'H_O2 ', & - 'HO2_O ', 'HO2_O3 ', & - 'H_O3 ', 'OH_H2 ', & - 'OH_H2O2 ', 'OH_HO2 ', & - 'OH_O ', 'OH_O3 ', & - 'OH_OH ', 'OH_OH_M ', & - 'usr_HO2_HO2 ', 'HO2NO2_OH ', & - 'N2D_O ', 'N2D_O2 ', & - 'N_NO ', 'N_NO2a ', & - 'N_NO2b ', 'N_NO2c ', & - 'N_O2 ', 'NO2_O ', & - 'NO2_O3 ', 'NO2_O_M ', & - 'NO3_HO2 ', 'NO3_NO ', & - 'NO3_O ', 'NO3_OH ', & - 'N_OH ', 'NO_HO2 ', & - 'NO_O3 ', 'NO_O_M ', & - 'O1D_N2Oa ', 'O1D_N2Ob ', & - 'tag_NO2_HO2 ', 'tag_NO2_NO3 ', & - 'tag_NO2_OH ', 'usr_HNO3_OH ', & - 'usr_HO2NO2_M ', 'usr_N2O5_M ', & - 'CL_CH2O ', 'CL_CH4 ', & - 'CL_H2 ', 'CL_H2O2 ', & - 'CL_HO2a ', 'CL_HO2b ', & - 'CL_O3 ', 'CLO_CH3O2 ', & - 'CLO_CLOa ', 'CLO_CLOb ', & - 'CLO_CLOc ', 'CLO_HO2 ', & - 'CLO_NO ', 'CLONO2_CL ', & - 'CLO_NO2_M ', 'CLONO2_O ', & - 'CLONO2_OH ', 'CLO_O ', & - 'CLO_OHa ', 'CLO_OHb ', & - 'HCL_O ', 'HCL_OH ', & - 'HOCL_CL ', 'HOCL_O ', & - 'HOCL_OH ', 'O1D_CCL4 ', & - 'O1D_CF2CLBR ', 'O1D_CFC11 ', & - 'O1D_CFC113 ', 'O1D_CFC114 ', & - 'O1D_CFC115 ', 'O1D_CFC12 ', & - 'O1D_HCLa ', 'O1D_HCLb ', & - 'tag_CLO_CLO_M ', 'usr_CL2O2_M ', & - 'BR_CH2O ', 'BR_HO2 ', & - 'BR_O3 ', 'BRO_BRO ', & - 'BRO_CLOa ', 'BRO_CLOb ', & - 'BRO_CLOc ', 'BRO_HO2 ', & - 'BRO_NO ', 'BRO_NO2_M ', & - 'BRONO2_O ', 'BRO_O ', & - 'BRO_OH ', 'HBR_O ', & - 'HBR_OH ', 'HOBR_O ', & - 'O1D_CF3BR ', 'O1D_CHBR3 ', & - 'O1D_H2402 ', 'O1D_HBRa ', & - 'O1D_HBRb ', 'F_CH4 ', & - 'F_H2 ', 'F_H2O ', & - 'F_HNO3 ', 'O1D_COF2 ', & - 'O1D_COFCL ', 'CH2BR2_CL ', & - 'CH2BR2_OH ', 'CH3BR_CL ', & - 'CH3BR_OH ', 'CH3CCL3_OH ', & - 'CH3CL_CL ', 'CH3CL_OH ', & - 'CHBR3_CL ', 'CHBR3_OH ', & - 'HCFC141B_OH ', 'HCFC142B_OH ', & - 'HCFC22_OH ', 'O1D_CH2BR2 ', & - 'O1D_CH3BR ', 'O1D_HCFC141B ', & - 'O1D_HCFC142B ', 'O1D_HCFC22 ', & - 'CH2O_NO3 ', 'CH2O_O ', & - 'CH2O_OH ', 'CH3O2_HO2 ', & - 'CH3O2_NO ', 'CH3OOH_OH ', & - 'CH4_OH ', 'CO_OH_M ', & - 'O1D_CH4a ', 'O1D_CH4b ', & - 'O1D_CH4c ', 'usr_CO_OH_b ', & - 'OCS_O ', 'OCS_OH ', & - 'S_O2 ', 'S_O3 ', & - 'SO_BRO ', 'SO_CLO ', & - 'S_OH ', 'SO_NO2 ', & - 'SO_O2 ', 'SO_O3 ', & - 'SO_OCLO ', 'SO_OH ', & + 'jsf6 ', 'jeuv_26 ', & + 'jpni3 ', 'jpni5 ', & + 'jpni4 ', 'jeuv_4 ', & + 'jeuv_18 ', 'jeuv_11 ', & + 'jeuv_10 ', 'jeuv_22 ', & + 'jeuv_23 ', 'jeuv_25 ', & + 'jeuv_13 ', 'jeuv_6 ', & + 'jepn6 ', 'jepn7 ', & + 'jeuv_1 ', 'jeuv_2 ', & + 'jeuv_16 ', 'jeuv_3 ', & + 'jeuv_14 ', 'jeuv_15 ', & + 'jeuv_8 ', 'jeuv_17 ', & + 'jeuv_7 ', 'jeuv_5 ', & + 'jeuv_19 ', 'jeuv_24 ', & + 'jeuv_12 ', 'jeuv_21 ', & + 'jeuv_9 ', 'jeuv_20 ', & + 'jepn2 ', 'jppi ', & + 'jpni1 ', 'jepn3 ', & + 'jpni2 ', 'jepn4 ', & + 'jepn1 ', 'jh2so4 ', & + 'jocs ', 'jso ', & + 'jso2 ', 'jso3 ', & + 'CLm_H ', 'CLmH2O_HCL ', & + 'CLm_H2O_Ma ', 'CLmHCL_M ', & + 'CLm_HNO3 ', 'CLm_NO2 ', & + 'CLOm_NOa ', 'CLOm_NOb ', & + 'CLOm_O ', 'CO3m_CLa ', & + 'CO3m_CLb ', 'CO3m_CLO ', & + 'CO3m_H ', 'CO3mH2O_H2O_M ', & + 'CO3m_H2O_M ', 'CO3mH2O_NO2a ', & + 'CO3mH2O_NO2b ', 'CO3mH2O_NOa ', & + 'CO3mH2O_NOb ', 'CO3m_HNO3 ', & + 'CO3m_O ', 'CO3m_O2 ', & + 'CO4m_CL ', 'CO4m_CLO ', & + 'CO4m_H ', 'CO4m_HCL ', & + 'CO4m_O ', 'CO4m_O3 ', & + 'ean1 ', 'ean2 ', & + 'ean3 ', 'edn1 ', & + 'edn2 ', 'H3OpOH_e ', & + 'H3OpOH_H2O ', 'Hp3N1_H2O ', & + 'Hp4H2O_e ', 'Hp4H2O_N2O5 ', & + 'Hp4N1_H2O ', 'Hp5H2O_e ', & + 'Hp5H2O_N2O5 ', 'iira1 ', & + 'iira10 ', 'iira100 ', & + 'iira101 ', 'iira102 ', & + 'iira103 ', 'iira104 ', & + 'iira105 ', 'iira106 ', & + 'iira107 ', 'iira108 ', & + 'iira109 ', 'iira11 ', & + 'iira110 ', 'iira111 ', & + 'iira112 ', 'iira12 ', & + 'iira13 ', 'iira14 ', & + 'iira15 ', 'iira16 ', & + 'iira17 ', 'iira18 ', & + 'iira19 ', 'iira2 ', & + 'iira20 ', 'iira21 ', & + 'iira22 ', 'iira23 ', & + 'iira24 ', 'iira25 ', & + 'iira26 ', 'iira27 ', & + 'iira28 ', 'iira29 ', & + 'iira3 ', 'iira30 ', & + 'iira31 ', 'iira32 ', & + 'iira33 ', 'iira34 ', & + 'iira35 ', 'iira36 ', & + 'iira37 ', 'iira38 ', & + 'iira39 ', 'iira4 ', & + 'iira40 ', 'iira41 ', & + 'iira42 ', 'iira43 ', & + 'iira44 ', 'iira45 ', & + 'iira46 ', 'iira47 ' /) + rxt_tag_lst( 201: 400) = (/ 'iira48 ', 'iira49 ', & + 'iira5 ', 'iira50 ', & + 'iira51 ', 'iira52 ', & + 'iira53 ', 'iira54 ', & + 'iira55 ', 'iira56 ', & + 'iira57 ', 'iira58 ', & + 'iira59 ', 'iira6 ', & + 'iira60 ', 'iira61 ', & + 'iira62 ', 'iira63 ', & + 'iira64 ', 'iira65 ', & + 'iira66 ', 'iira67 ', & + 'iira68 ', 'iira69 ', & + 'iira7 ', 'iira70 ', & + 'iira71 ', 'iira72 ', & + 'iira73 ', 'iira74 ', & + 'iira75 ', 'iira76 ', & + 'iira77 ', 'iira78 ', & + 'iira79 ', 'iira8 ', & + 'iira80 ', 'iira81 ', & + 'iira82 ', 'iira83 ', & + 'iira84 ', 'iira85 ', & + 'iira86 ', 'iira87 ', & + 'iira88 ', 'iira89 ', & + 'iira9 ', 'iira90 ', & + 'iira91 ', 'iira92 ', & + 'iira93 ', 'iira94 ', & + 'iira95 ', 'iira96 ', & + 'iira97 ', 'iira98 ', & + 'iira99 ', 'iirb1 ', & + 'iirb10 ', 'iirb11 ', & + 'iirb12 ', 'iirb13 ', & + 'iirb14 ', 'iirb2 ', & + 'iirb3 ', 'iirb4 ', & + 'iirb5 ', 'iirb6 ', & + 'iirb7 ', 'iirb8 ', & + 'iirb9 ', 'nir1 ', & + 'nir10 ', 'nir11 ', & + 'nir12 ', 'nir13 ', & + 'nir2 ', 'nir3 ', & + 'nir4 ', 'nir5 ', & + 'nir6 ', 'nir7 ', & + 'nir8 ', 'nir9 ', & + 'NO2m_CL ', 'NO2m_CLO ', & + 'NO2m_H ', 'NO2m_H2O_M ', & + 'NO2m_HCL ', 'NO2m_HNO3 ', & + 'NO2m_NO2 ', 'NO2m_O3 ', & + 'NO3m2H2O_N2O5 ', 'NO3mH2O_H2O_M ', & + 'NO3mH2O_HNO3 ', 'NO3m_H2O_M ', & + 'NO3mH2O_N2O5 ', 'NO3m_HCLa ', & + 'NO3mHCL_HNO3 ', 'NO3m_HNO3_M ', & + 'NO3m_O ', 'NO3m_O3 ', & + 'NOp2H2O_e ', 'NOp3H2O_e ', & + 'NOp3H2O_H2O ', 'NOpCO2_e ', & + 'NOpCO2_H2O ', 'NOpH2O_e ', & + 'NOpH2O_H ', 'NOpH2O_HO2 ', & + 'NOpH2O_OH ', 'NOpN2_CO2 ', & + 'NOpN2_H2O ', 'O2m_CL ', & + 'O2m_CLO ', 'O2m_CO2_M ', & + 'O2m_H ', 'O2m_HCL ', & + 'O2m_HNO3 ', 'O2m_NO2 ', & + 'O2m_O21D ', 'O2m_O2_M ', & + 'O2m_O3 ', 'O2m_O_a ', & + 'O2m_O_b ', 'O2pH2O_e ', & + 'O2pH2O_H2Oa ', 'O2pH2O_H2Ob ', & + 'O2p_H2O_M ', 'O3m_CO2 ', & + 'O3m_H ', 'O3m_O3 ', & + 'O3m_O_a ', 'O3m_O_b ', & + 'O4m_CO2 ', 'O4m_O ', & + 'O4p_H2O ', 'O4p_O ', & + 'O4p_O21D ', 'OH_HONO ', & + 'OHm_CL ', 'OHm_CLO ', & + 'OHm_CO2 ', 'OHm_H ', & + 'OHm_HCL ', 'OHm_NO2 ', & + 'OHm_O ', 'OHm_O3 ', & + 'OH_NO_M ', 'Om_CL ', & + 'Om_CLO ', 'Om_CO2_M ', & + 'Om_H2_a ', 'Om_H2_b ', & + 'Om_H2O ', 'Om_HCL ', & + 'Om_HNO3 ', 'Om_M ', & + 'Om_NO2 ', 'Om_O ', & + 'Om_O21D ', 'Om_O2_M ', & + 'Om_O3 ', 'pir1 ', & + 'pir10 ', 'pir11 ', & + 'pir12 ', 'pir13 ', & + 'pir14 ', 'pir15 ', & + 'pir16 ', 'pir2 ', & + 'pir3 ', 'pir4 ', & + 'pir5 ', 'pir6 ', & + 'pir7 ', 'pir8 ', & + 'pir9 ', 'rpe1 ', & + 'rpe2 ', 'rpe3 ', & + 'rpe4 ', 'rpe5 ', & + 'usr_CLm_H2O_M ', 'usr_CLm_HCL_M ', & + 'ag1 ', 'ag2 ', & + 'O1D_H2 ', 'O1D_H2O ', & + 'O1D_N2 ', 'O1D_O2 ', & + 'O1D_O2b ', 'O1D_O3 ', & + 'O2_1D_N2 ', 'O2_1D_O ', & + 'O2_1D_O2 ', 'O2_1S_CO2 ', & + 'O2_1S_N2 ', 'O2_1S_O ' /) + rxt_tag_lst( 401: 600) = (/ 'O2_1S_O2 ', 'O2_1S_O3 ', & + 'O_O3 ', 'usr_O_O ', & + 'usr_O_O2 ', 'H2_O ', & + 'H2O2_O ', 'H_HO2 ', & + 'H_HO2a ', 'H_HO2b ', & + 'H_O2 ', 'HO2_O ', & + 'HO2_O3 ', 'H_O3 ', & + 'OH_H2 ', 'OH_H2O2 ', & + 'OH_HO2 ', 'OH_O ', & + 'OH_O3 ', 'OH_OH ', & + 'OH_OH_M ', 'usr_HO2_HO2 ', & + 'HO2NO2_OH ', 'N2D_O ', & + 'N2D_O2 ', 'N_NO ', & + 'N_NO2a ', 'N_NO2b ', & + 'N_NO2c ', 'N_O2 ', & + 'NO2_O ', 'NO2_O3 ', & + 'NO2_O_M ', 'NO3_HO2 ', & + 'NO3_NO ', 'NO3_O ', & + 'NO3_OH ', 'N_OH ', & + 'NO_HO2 ', 'NO_O3 ', & + 'NO_O_M ', 'O1D_N2Oa ', & + 'O1D_N2Ob ', 'tag_NO2_HO2 ', & + 'tag_NO2_NO3 ', 'tag_NO2_OH ', & + 'usr_HNO3_OH ', 'usr_HO2NO2_M ', & + 'usr_N2O5_M ', 'CL_CH2O ', & + 'CL_CH4 ', 'CL_H2 ', & + 'CL_H2O2 ', 'CL_HO2a ', & + 'CL_HO2b ', 'CL_O3 ', & + 'CLO_CH3O2 ', 'CLO_CLOa ', & + 'CLO_CLOb ', 'CLO_CLOc ', & + 'CLO_HO2 ', 'CLO_NO ', & + 'CLONO2_CL ', 'CLO_NO2_M ', & + 'CLONO2_O ', 'CLONO2_OH ', & + 'CLO_O ', 'CLO_OHa ', & + 'CLO_OHb ', 'HCL_O ', & + 'HCL_OH ', 'HOCL_CL ', & + 'HOCL_O ', 'HOCL_OH ', & + 'O1D_CCL4 ', 'O1D_CF2CLBR ', & + 'O1D_CFC11 ', 'O1D_CFC113 ', & + 'O1D_CFC114 ', 'O1D_CFC115 ', & + 'O1D_CFC12 ', 'O1D_HCLa ', & + 'O1D_HCLb ', 'tag_CLO_CLO_M ', & + 'usr_CL2O2_M ', 'BR_CH2O ', & + 'BR_HO2 ', 'BR_O3 ', & + 'BRO_BRO ', 'BRO_CLOa ', & + 'BRO_CLOb ', 'BRO_CLOc ', & + 'BRO_HO2 ', 'BRO_NO ', & + 'BRO_NO2_M ', 'BRONO2_O ', & + 'BRO_O ', 'BRO_OH ', & + 'HBR_O ', 'HBR_OH ', & + 'HOBR_O ', 'O1D_CF3BR ', & + 'O1D_CHBR3 ', 'O1D_H2402 ', & + 'O1D_HBRa ', 'O1D_HBRb ', & + 'F_CH4 ', 'F_H2 ', & + 'F_H2O ', 'F_HNO3 ', & + 'O1D_COF2 ', 'O1D_COFCL ', & + 'CH2BR2_CL ', 'CH2BR2_OH ', & + 'CH3BR_CL ', 'CH3BR_OH ', & + 'CH3CCL3_OH ', 'CH3CL_CL ', & + 'CH3CL_OH ', 'CHBR3_CL ', & + 'CHBR3_OH ', 'HCFC141B_OH ', & + 'HCFC142B_OH ', 'HCFC22_OH ', & + 'O1D_CH2BR2 ', 'O1D_CH3BR ', & + 'O1D_HCFC141B ', 'O1D_HCFC142B ', & + 'O1D_HCFC22 ', 'CH2O_NO3 ', & + 'CH2O_O ', 'CH2O_OH ', & + 'CH3O2_HO2 ', 'CH3O2_NO ', & + 'CH3OOH_OH ', '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_DMS_OH ', & 'usr_SO2_OH ', 'usr_SO3_H2O ', & - 'DMS_NO3 ', 'DMS_OHa ', & - 'usr_DMS_OH ', 'usr_HO2_aer ', & - 'usr_N2O5_aer ', 'usr_NO2_aer ', & - 'usr_NO3_aer ', 'het1 ', & - 'het10 ', 'het11 ', & - 'het12 ', 'het13 ', & - 'het14 ', 'het15 ', & - 'het16 ', 'het17 ', & - 'het2 ', 'het3 ', & - 'het4 ', 'het5 ', & - 'het6 ', 'het7 ', & - 'het8 ', 'het9 ', & + 'usr_HO2_aer ', 'usr_N2O5_aer ', & + 'usr_NO2_aer ', 'usr_NO3_aer ', & + 'het1 ', 'het10 ', & + 'het11 ', 'het12 ', & + 'het13 ', 'het14 ', & + 'het15 ', 'het16 ', & + 'het17 ', 'het2 ', & + 'het3 ', 'het4 ', & + 'het5 ', 'het6 ', & + 'het7 ', 'het8 ', & + 'het9 ', 'ag247nm ', & + 'ag373nm ', 'ag732nm ', & 'elec1 ', 'elec2 ', & 'elec3 ', 'ion_N2p_O2 ', & 'ion_N2p_Oa ', 'ion_N2p_Ob ', & @@ -501,7 +506,12 @@ subroutine set_sim_dat 'ion_Np_O2b ', 'ion_O2p_N ', & 'ion_O2p_N2 ', 'ion_O2p_NO ', & 'ion_Op_CO2 ', 'ion_Op_N2 ', & - 'ion_Op_O2 ' /) + 'ion_Op_N2D ', 'ion_Op_O2 ', & + 'Op2D_e ', 'Op2D_N2 ' /) + rxt_tag_lst( 601: 607) = (/ 'Op2D_O ', 'Op2D_O2 ', & + 'Op2P_ea ', 'Op2P_eb ', & + 'Op2P_N2a ', 'Op2P_N2b ', & + 'Op2P_O ' /) rxt_tag_map(:rxt_tag_cnt) = (/ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, & 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, & @@ -561,7 +571,8 @@ subroutine set_sim_dat 561, 562, 563, 564, 565, 566, 567, 568, 569, 570, & 571, 572, 573, 574, 575, 576, 577, 578, 579, 580, & 581, 582, 583, 584, 585, 586, 587, 588, 589, 590, & - 591, 592, 593 /) + 591, 592, 593, 594, 595, 596, 597, 598, 599, 600, & + 601, 602, 603, 604, 605, 606, 607 /) if( allocated( pht_alias_lst ) ) then deallocate( pht_alias_lst ) end if @@ -593,6 +604,7 @@ subroutine set_sim_dat ' ', ' ', ' ', ' ', & ' ', ' ', ' ', ' ', & ' ', ' ', ' ', ' ', & + ' ', 'userdefined ', 'userdefined ', 'userdefined ', & 'userdefined ', 'userdefined ', 'userdefined ', 'userdefined ', & 'userdefined ', 'userdefined ', 'userdefined ', 'userdefined ', & 'userdefined ', 'userdefined ', 'userdefined ', 'userdefined ', & @@ -601,9 +613,8 @@ subroutine set_sim_dat 'userdefined ', 'userdefined ', 'userdefined ', 'userdefined ', & 'userdefined ', 'userdefined ', 'userdefined ', 'userdefined ', & 'userdefined ', 'userdefined ', 'userdefined ', 'userdefined ', & - 'userdefined ', 'userdefined ', 'userdefined ', 'userdefined ', & - 'userdefined ', 'userdefined ', ' ', ' ', & - ' ', ' ', ' ' /) + 'userdefined ', 'userdefined ', 'userdefined ', ' ', & + ' ', ' ', ' ', ' ' /) pht_alias_lst(:,2) = (/ ' ', ' ', ' ', ' ', & ' ', ' ', ' ', ' ', & ' ', ' ', ' ', ' ', & @@ -619,17 +630,17 @@ subroutine set_sim_dat ' ', ' ', ' ', ' ', & ' ', ' ', ' ', ' ', & ' ', ' ', ' ', ' ', & - 'userdefined ', ' ', ' ', ' ', & + ' ', 'userdefined ', ' ', ' ', & + ' ', 'userdefined ', 'userdefined ', 'userdefined ', & 'userdefined ', 'userdefined ', 'userdefined ', 'userdefined ', & + 'userdefined ', 'userdefined ', ' ', ' ', & 'userdefined ', 'userdefined ', 'userdefined ', 'userdefined ', & - 'userdefined ', ' ', ' ', 'userdefined ', & 'userdefined ', 'userdefined ', 'userdefined ', 'userdefined ', & 'userdefined ', 'userdefined ', 'userdefined ', 'userdefined ', & 'userdefined ', 'userdefined ', 'userdefined ', 'userdefined ', & - 'userdefined ', 'userdefined ', 'userdefined ', ' ', & ' ', ' ', ' ', ' ', & ' ', ' ', ' ', ' ', & - ' ', ' ', ' ' /) + ' ', ' ', ' ', ' ' /) pht_alias_mult(:,1) = (/ 1._r8, 1._r8, 1._r8, 1._r8, 1._r8, & 1._r8, 1._r8, 1._r8, 1._r8, 1._r8, & 1._r8, 1._r8, 1._r8, 1._r8, 1._r8, & @@ -650,7 +661,7 @@ subroutine set_sim_dat 1._r8, 1._r8, 1._r8, 1._r8, 1._r8, & 1._r8, 1._r8, 1._r8, 1._r8, 1._r8, & 1._r8, 1._r8, 1._r8, 1._r8, 1._r8, & - 1._r8, 1._r8, 1._r8 /) + 1._r8, 1._r8, 1._r8, 1._r8 /) pht_alias_mult(:,2) = (/ 1._r8, 1._r8, 1._r8, 1._r8, 1._r8, & 1._r8, 1._r8, 1._r8, 1._r8, 1._r8, & 1._r8, 1._r8, 1._r8, 1._r8, 1._r8, & @@ -671,7 +682,7 @@ subroutine set_sim_dat 1._r8, 1._r8, 1._r8, 1._r8, 1._r8, & 1._r8, 1._r8, 1._r8, 1._r8, 1._r8, & 1._r8, 1._r8, 1._r8, 1._r8, 1._r8, & - 1._r8, 1._r8, 1._r8 /) + 1._r8, 1._r8, 1._r8, 1._r8 /) allocate( cph_enthalpy(enthalpy_cnt),stat=ios ) if( ios /= 0 ) then write(iulog,*) 'set_sim_dat: failed to allocate cph_enthalpy; error = ',ios @@ -682,24 +693,28 @@ subroutine set_sim_dat write(iulog,*) 'set_sim_dat: failed to allocate cph_rid; error = ',ios call endrun end if - cph_rid(:) = (/ 390, 391, 392, 394, 395, & - 396, 398, 399, 400, 401, & - 402, 403, 404, 407, 410, & - 411, 412, 413, 416, 417, & - 418, 421, 423, 424, 425, & - 429, 430, 438, 439, 579, & - 580, 581, 582, 583, 585, & - 586, 587, 588, 590, 592, & - 593 /) + cph_rid(:) = (/ 391, 392, 393, 395, 396, & + 397, 399, 400, 401, 402, & + 403, 404, 405, 408, 411, & + 412, 413, 414, 417, 418, & + 419, 422, 424, 425, 426, & + 430, 431, 439, 440, 580, & + 581, 582, 583, 584, 585, & + 586, 587, 589, 590, 591, & + 592, 594, 596, 597, 598, & + 599, 600, 601, 602, 603, & + 604, 605, 606, 607 /) cph_enthalpy(:) = (/ 189.810000_r8, 32.910000_r8, 189.810000_r8, 94.300000_r8, 94.300000_r8, & 94.300000_r8, 62.600000_r8, 62.600000_r8, 62.600000_r8, 62.600000_r8, & 392.190000_r8, 493.580000_r8, 101.390000_r8, 232.590000_r8, 203.400000_r8, & 226.580000_r8, 120.100000_r8, 194.710000_r8, 293.620000_r8, 67.670000_r8, & 165.300000_r8, 165.510000_r8, 229.610000_r8, 177.510000_r8, 313.750000_r8, & - 133.750000_r8, 193.020000_r8, 34.470000_r8, 199.170000_r8, 82.389000_r8, & - 508.950000_r8, 354.830000_r8, 339.590000_r8, 67.530000_r8, 95.550000_r8, & - 239.840000_r8, 646.280000_r8, 406.160000_r8, 271.380000_r8, 105.040000_r8, & - 150.110000_r8 /) + 133.750000_r8, 193.020000_r8, 34.470000_r8, 199.170000_r8, 483.390000_r8, & + 321.300000_r8, 163.060000_r8, 82.389000_r8, 508.950000_r8, 354.830000_r8, & + 339.590000_r8, 67.530000_r8, 95.550000_r8, 239.840000_r8, 646.280000_r8, & + 406.160000_r8, 271.380000_r8, 105.040000_r8, 139.900000_r8, 150.110000_r8, & + 319.370000_r8, 128.320000_r8, 319.360000_r8, 469.400000_r8, 163.060000_r8, & + 482.430000_r8, 291.380000_r8, 67.540000_r8, 501.720000_r8 /) allocate( num_rnts(rxntot-phtcnt),stat=ios ) if( ios /= 0 ) then write(iulog,*) 'set_sim_dat: failed to allocate num_rnts; error = ',ios @@ -752,8 +767,10 @@ subroutine set_sim_dat 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & 2, 2, 2, 2, 1, 1, 1, 1, 1, 2, & 1, 1, 1, 1, 2, 2, 2, 1, 1, 2, & - 2, 2, 1, 1, 2, 2, 2, 2, 2, 2, & - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2 /) + 2, 2, 1, 1, 2, 1, 1, 1, 2, 2, & + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & + 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & + 2, 2, 2 /) end subroutine set_sim_dat From dec7137a923745d1a445e6894e8903a9ea31b7fc Mon Sep 17 00:00:00 2001 From: Francis Vitt Date: Wed, 27 Jan 2021 08:18:37 -0700 Subject: [PATCH 2/8] update solar forcing file for FWma*SD and FWma*HIST compsets modified: sd_waccm_ma_cam6.xml modified: sd_waccm_mad_cam6.xml modified: waccm_ma_hist_cam6.xml --- bld/namelist_files/use_cases/sd_waccm_ma_cam6.xml | 8 ++++---- bld/namelist_files/use_cases/sd_waccm_mad_cam6.xml | 10 +++++----- bld/namelist_files/use_cases/waccm_ma_hist_cam6.xml | 10 +++++----- 3 files changed, 14 insertions(+), 14 deletions(-) diff --git a/bld/namelist_files/use_cases/sd_waccm_ma_cam6.xml b/bld/namelist_files/use_cases/sd_waccm_ma_cam6.xml index 8fbc0e65fa..2c6902f906 100644 --- a/bld/namelist_files/use_cases/sd_waccm_ma_cam6.xml +++ b/bld/namelist_files/use_cases/sd_waccm_ma_cam6.xml @@ -2,14 +2,14 @@ - -atm/cam/solar/SolarForcingNRLSSI2_daily_s18820101_e20171231_c180702.nc + +atm/cam/solar/SolarForcingCCMI2022REFD1_19491230-20200101_sumEPP_c20210113.nc -atm/cam/solar/SolarParmsEPP_CMIP6_daily_s18491230_e20150101_c190109.nc +atm/cam/solar/SolarForcingCCMI2022REFD1_19491230-20200101_sumEPP_c20210113.nc -atm/cam/solar/SolarParmsEPP_CMIP6_daily_s18491230_e20150101_c190109.nc +atm/cam/solar/SolarForcingCCMI2022REFD1_19491230-20200101_sumEPP_c20210113.nc 'epp_ion_rates' diff --git a/bld/namelist_files/use_cases/sd_waccm_mad_cam6.xml b/bld/namelist_files/use_cases/sd_waccm_mad_cam6.xml index c3e1dee2b3..2464c7fc36 100644 --- a/bld/namelist_files/use_cases/sd_waccm_mad_cam6.xml +++ b/bld/namelist_files/use_cases/sd_waccm_mad_cam6.xml @@ -4,14 +4,14 @@ 20050101 - -atm/cam/solar/SolarForcingNRLSSI2_daily_s18820101_e20171231_c180702.nc + +atm/cam/solar/SolarForcingCCMI2022REFD1_19491230-20200101_sumEPP_c20210113.nc -atm/cam/solar/SolarParmsEPP_CMIP6_daily_s18491230_e20150101_c190109.nc +atm/cam/solar/SolarForcingCCMI2022REFD1_19491230-20200101_sumEPP_c20210113.nc -atm/cam/solar/SolarParmsEPP_CMIP6_daily_s18491230_e20150101_c190109.nc +atm/cam/solar/SolarForcingCCMI2022REFD1_19491230-20200101_sumEPP_c20210113.nc 'epp_ion_rates' @@ -82,7 +82,7 @@ 'BURDENPOMdn', 'bc_a1', 'bc_a4', 'dst_a1', 'dst_a2', 'dst_a3', 'ncl_a1', 'ncl_a1', 'ncl_a2', 'ncl_a3', 'pom_a1', 'pom_a4', 'so4_a1', 'so4_a2', 'so4_a3', 'soa_a1', 'soa_a2', 'bc_c1', 'bc_c4', 'dst_c1', 'dst_c2', 'dst_c3', 'ncl_c1', 'ncl_c1', - 'ncl_c2', 'ncl_c3', 'pom_c1', 'pom_c4', 'so4_c1', 'so4_c2', 'so4_c3', 'soa_c1', 'soa_c2', + 'ncl_c2', 'ncl_c3', 'pom_c1', 'pom_c4', 'so4_c1', 'so4_c2', 'so4_c3', 'soa_c1', 'soa_c2', 'num_a1','num_a2','num_a3','num_a4','num_c1','num_c2','num_c3','num_c4', 'dgnumwet1', 'dgnumwet2', 'dgnumwet3', 'LNO_PROD', 'LNO_COL_PROD', 'dry_deposition_NHx_as_N', 'dry_deposition_NOy_as_N', 'wet_deposition_NHx_as_N', 'wet_deposition_NOy_as_N' diff --git a/bld/namelist_files/use_cases/waccm_ma_hist_cam6.xml b/bld/namelist_files/use_cases/waccm_ma_hist_cam6.xml index 763957beeb..c09c1bb587 100644 --- a/bld/namelist_files/use_cases/waccm_ma_hist_cam6.xml +++ b/bld/namelist_files/use_cases/waccm_ma_hist_cam6.xml @@ -4,14 +4,14 @@ 19790101 - -atm/cam/solar/SolarForcingCMIP6_18491230-23000102_c20200615.nc + +atm/cam/solar/SolarForcingCCMI2022REFD1_19491230-20200101_sumEPP_c20210113.nc -atm/cam/solar/SolarForcingCMIP6_18491230-23000102_c20200615.nc +atm/cam/solar/SolarForcingCCMI2022REFD1_19491230-20200101_sumEPP_c20210113.nc -atm/cam/solar/SolarForcingCMIP6_18491230-23000102_c20200615.nc +atm/cam/solar/SolarForcingCCMI2022REFD1_19491230-20200101_sumEPP_c20210113.nc 'epp_ion_rates' @@ -75,7 +75,7 @@ 'BURDENPOMdn', 'bc_a1', 'bc_a4', 'dst_a1', 'dst_a2', 'dst_a3', 'ncl_a1', 'ncl_a1', 'ncl_a2', 'ncl_a3', 'pom_a1', 'pom_a4', 'so4_a1', 'so4_a2', 'so4_a3', 'soa_a1', 'soa_a2', 'bc_c1', 'bc_c4', 'dst_c1', 'dst_c2', 'dst_c3', 'ncl_c1', 'ncl_c1', - 'ncl_c2', 'ncl_c3', 'pom_c1', 'pom_c4', 'so4_c1', 'so4_c2', 'so4_c3', 'soa_c1', 'soa_c2', + 'ncl_c2', 'ncl_c3', 'pom_c1', 'pom_c4', 'so4_c1', 'so4_c2', 'so4_c3', 'soa_c1', 'soa_c2', 'num_a1','num_a2','num_a3','num_a4','num_c1','num_c2','num_c3','num_c4', 'CO2', 'H2O', 'N2O', 'CH4', 'N2O5', 'NO2', 'NO', 'dgnumwet1', 'dgnumwet2', 'dgnumwet3', 'LNO_PROD', 'LNO_COL_PROD', 'dry_deposition_NHx_as_N', 'dry_deposition_NOy_as_N', From d24ab140a6ecd8bdfd51a6325590ae88d929a17a Mon Sep 17 00:00:00 2001 From: Francis Vitt Date: Fri, 10 Sep 2021 15:51:44 -0600 Subject: [PATCH 3/8] revert solar forcing file in waccm-ma use cases --- bld/namelist_files/use_cases/sd_waccm_ma_cam6.xml | 8 ++++---- bld/namelist_files/use_cases/sd_waccm_mad_cam6.xml | 10 +++++----- bld/namelist_files/use_cases/waccm_ma_hist_cam6.xml | 10 +++++----- 3 files changed, 14 insertions(+), 14 deletions(-) diff --git a/bld/namelist_files/use_cases/sd_waccm_ma_cam6.xml b/bld/namelist_files/use_cases/sd_waccm_ma_cam6.xml index 2c6902f906..8fbc0e65fa 100644 --- a/bld/namelist_files/use_cases/sd_waccm_ma_cam6.xml +++ b/bld/namelist_files/use_cases/sd_waccm_ma_cam6.xml @@ -2,14 +2,14 @@ - -atm/cam/solar/SolarForcingCCMI2022REFD1_19491230-20200101_sumEPP_c20210113.nc + +atm/cam/solar/SolarForcingNRLSSI2_daily_s18820101_e20171231_c180702.nc -atm/cam/solar/SolarForcingCCMI2022REFD1_19491230-20200101_sumEPP_c20210113.nc +atm/cam/solar/SolarParmsEPP_CMIP6_daily_s18491230_e20150101_c190109.nc -atm/cam/solar/SolarForcingCCMI2022REFD1_19491230-20200101_sumEPP_c20210113.nc +atm/cam/solar/SolarParmsEPP_CMIP6_daily_s18491230_e20150101_c190109.nc 'epp_ion_rates' diff --git a/bld/namelist_files/use_cases/sd_waccm_mad_cam6.xml b/bld/namelist_files/use_cases/sd_waccm_mad_cam6.xml index 2464c7fc36..c3e1dee2b3 100644 --- a/bld/namelist_files/use_cases/sd_waccm_mad_cam6.xml +++ b/bld/namelist_files/use_cases/sd_waccm_mad_cam6.xml @@ -4,14 +4,14 @@ 20050101 - -atm/cam/solar/SolarForcingCCMI2022REFD1_19491230-20200101_sumEPP_c20210113.nc + +atm/cam/solar/SolarForcingNRLSSI2_daily_s18820101_e20171231_c180702.nc -atm/cam/solar/SolarForcingCCMI2022REFD1_19491230-20200101_sumEPP_c20210113.nc +atm/cam/solar/SolarParmsEPP_CMIP6_daily_s18491230_e20150101_c190109.nc -atm/cam/solar/SolarForcingCCMI2022REFD1_19491230-20200101_sumEPP_c20210113.nc +atm/cam/solar/SolarParmsEPP_CMIP6_daily_s18491230_e20150101_c190109.nc 'epp_ion_rates' @@ -82,7 +82,7 @@ 'BURDENPOMdn', 'bc_a1', 'bc_a4', 'dst_a1', 'dst_a2', 'dst_a3', 'ncl_a1', 'ncl_a1', 'ncl_a2', 'ncl_a3', 'pom_a1', 'pom_a4', 'so4_a1', 'so4_a2', 'so4_a3', 'soa_a1', 'soa_a2', 'bc_c1', 'bc_c4', 'dst_c1', 'dst_c2', 'dst_c3', 'ncl_c1', 'ncl_c1', - 'ncl_c2', 'ncl_c3', 'pom_c1', 'pom_c4', 'so4_c1', 'so4_c2', 'so4_c3', 'soa_c1', 'soa_c2', + 'ncl_c2', 'ncl_c3', 'pom_c1', 'pom_c4', 'so4_c1', 'so4_c2', 'so4_c3', 'soa_c1', 'soa_c2', 'num_a1','num_a2','num_a3','num_a4','num_c1','num_c2','num_c3','num_c4', 'dgnumwet1', 'dgnumwet2', 'dgnumwet3', 'LNO_PROD', 'LNO_COL_PROD', 'dry_deposition_NHx_as_N', 'dry_deposition_NOy_as_N', 'wet_deposition_NHx_as_N', 'wet_deposition_NOy_as_N' diff --git a/bld/namelist_files/use_cases/waccm_ma_hist_cam6.xml b/bld/namelist_files/use_cases/waccm_ma_hist_cam6.xml index c09c1bb587..763957beeb 100644 --- a/bld/namelist_files/use_cases/waccm_ma_hist_cam6.xml +++ b/bld/namelist_files/use_cases/waccm_ma_hist_cam6.xml @@ -4,14 +4,14 @@ 19790101 - -atm/cam/solar/SolarForcingCCMI2022REFD1_19491230-20200101_sumEPP_c20210113.nc + +atm/cam/solar/SolarForcingCMIP6_18491230-23000102_c20200615.nc -atm/cam/solar/SolarForcingCCMI2022REFD1_19491230-20200101_sumEPP_c20210113.nc +atm/cam/solar/SolarForcingCMIP6_18491230-23000102_c20200615.nc -atm/cam/solar/SolarForcingCCMI2022REFD1_19491230-20200101_sumEPP_c20210113.nc +atm/cam/solar/SolarForcingCMIP6_18491230-23000102_c20200615.nc 'epp_ion_rates' @@ -75,7 +75,7 @@ 'BURDENPOMdn', 'bc_a1', 'bc_a4', 'dst_a1', 'dst_a2', 'dst_a3', 'ncl_a1', 'ncl_a1', 'ncl_a2', 'ncl_a3', 'pom_a1', 'pom_a4', 'so4_a1', 'so4_a2', 'so4_a3', 'soa_a1', 'soa_a2', 'bc_c1', 'bc_c4', 'dst_c1', 'dst_c2', 'dst_c3', 'ncl_c1', 'ncl_c1', - 'ncl_c2', 'ncl_c3', 'pom_c1', 'pom_c4', 'so4_c1', 'so4_c2', 'so4_c3', 'soa_c1', 'soa_c2', + 'ncl_c2', 'ncl_c3', 'pom_c1', 'pom_c4', 'so4_c1', 'so4_c2', 'so4_c3', 'soa_c1', 'soa_c2', 'num_a1','num_a2','num_a3','num_a4','num_c1','num_c2','num_c3','num_c4', 'CO2', 'H2O', 'N2O', 'CH4', 'N2O5', 'NO2', 'NO', 'dgnumwet1', 'dgnumwet2', 'dgnumwet3', 'LNO_PROD', 'LNO_COL_PROD', 'dry_deposition_NHx_as_N', 'dry_deposition_NOy_as_N', From 92548535fd5f966392ee4818e848b5dff6b1b8e5 Mon Sep 17 00:00:00 2001 From: Francis Vitt Date: Wed, 4 Jan 2023 16:10:31 -0700 Subject: [PATCH 4/8] use -V qsub option to export user env to job on cheyenne --- test/system/test_driver.sh | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/test/system/test_driver.sh b/test/system/test_driver.sh index 3feef77558..66806b43d4 100755 --- a/test/system/test_driver.sh +++ b/test/system/test_driver.sh @@ -937,7 +937,7 @@ if [ -n "${submit_script_cb}" ]; then case $hostname in # cheyenne chey* | r* ) - batch_queue_submit='qsub ' + batch_queue_submit='qsub -V ' ;; *) echo "ERROR: machine $hostname not currently supported for batch builds" @@ -1082,7 +1082,7 @@ if [ "${cesm_test_suite}" != "none" -a -n "${cesm_test_mach}" ]; then echo "cd ${script_dir}" >> ${submit_script_cime} echo './create_test' ${testargs} >> ${submit_script_cime} chmod u+x ${submit_script_cime} - qsub ${submit_script_cime} + qsub -V ${submit_script_cime} fi if [ "${hostname:0:6}" == "hobart" ]; then @@ -1116,7 +1116,7 @@ if $run_cam_regression; then case $hostname in ##cheyenne ch* | r* ) - qsub ${submit_script_cb} + qsub -V ${submit_script_cb} ;; ##hobart From 1fddd307e968c6af70fda2ff896d6727dfb369c3 Mon Sep 17 00:00:00 2001 From: Francis Vitt Date: Wed, 4 Jan 2023 16:37:06 -0700 Subject: [PATCH 5/8] ChangeLog draft --- doc/ChangeLog | 147 ++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 147 insertions(+) diff --git a/doc/ChangeLog b/doc/ChangeLog index 0cc87fedd2..2de78a93b0 100644 --- a/doc/ChangeLog +++ b/doc/ChangeLog @@ -1,5 +1,152 @@ =============================================================== +Tag name: cam_cesm2_1_rel_57 +Originator(s): fvitt +Date: +One-line Summary: Transport CL and BR in WACCM-MA chemistry mechanisms +Github PR URL: https://github.com/ESCOMP/CAM/pull/435 + +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 to be consistent with other waccm mechanisms + - change order of species + +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 + - change order of species and reactions + +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 to be consistent with other waccm mechanisms + - explicitly solve CO2 to be consistent with other waccm mechanisms + - use scalar solver for d-region ion chemistry mechanisms (mad) + - change order of species + +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) + - change order of species and reactions + +M test/system/test_driver.sh + - use "qsub -V" on cheyenne to export user evn to batch job + +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: + +cheyenne/intel/aux_cam: + +izumi/nag: + +izumi/pgi: + +CAM tag used for the baseline comparison tests if different than previous +tag: + +Summarize any changes to answers, i.e., +- what code configurations: +- what platforms/compilers: +- nature of change (roundoff; larger than roundoff but same climate; new + climate): + +If bitwise differences were observed, how did you show they were no worse +than roundoff? + +If this tag changes climate describe the run(s) done to evaluate the new +climate in enough detail that it(they) could be reproduced, i.e., +- source tag (all code used must be in the repository): +- platform/compilers: +- configure commandline: +- build-namelist command (or complete namelist): +- MSS location of output: + +MSS location of control simulations used to validate new climate: + +URL for AMWG diagnostics output used to validate new climate: + +=============================================================== +=============================================================== + Tag name: cam_cesm2_1_rel_56 Originator(s): fvitt Date: 13 Sep 2022 From cef527ea6557c33b235cd2f3f3f938c7da289a5f Mon Sep 17 00:00:00 2001 From: Francis Vitt Date: Wed, 4 Jan 2023 21:27:33 -0700 Subject: [PATCH 6/8] ChangeLog updates --- doc/ChangeLog | 43 ++++++++++++++++++------------------------- 1 file changed, 18 insertions(+), 25 deletions(-) diff --git a/doc/ChangeLog b/doc/ChangeLog index 2de78a93b0..7eaef38382 100644 --- a/doc/ChangeLog +++ b/doc/ChangeLog @@ -2,7 +2,7 @@ Tag name: cam_cesm2_1_rel_57 Originator(s): fvitt -Date: +Date: 5 Jan 2023 One-line Summary: Transport CL and BR in WACCM-MA chemistry mechanisms Github PR URL: https://github.com/ESCOMP/CAM/pull/435 @@ -113,36 +113,29 @@ 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: +021 bl390 TBL.sh f1.9c4aqwmxdh outfrq3s+waccmx_ma_2000_cam4 9s ................................FAIL! rc= 7 at Wed Jan 4 17:11:16 MST 2023 +024 bl391 TBL.sh f1.9c4aqwmxidh outfrq3s 9s ...................................................FAIL! rc= 7 at Wed Jan 4 17:29:27 MST 2023 cheyenne/intel/aux_cam: + ERP_Ld3.f19_f19_mg16.FW4madSD.cheyenne_intel.cam-outfrq3d (Overall: DIFF) details: + FAIL ERP_Ld3.f19_f19_mg16.FW4madSD.cheyenne_intel.cam-outfrq3d NLCOMP + FAIL ERP_Ld3.f19_f19_mg16.FW4madSD.cheyenne_intel.cam-outfrq3d BASELINE /glade/p/cesm/amwg/cesm_baselines/cam_cesm2_1_rel_56 + ERS_Ln9.f19_f19_mg16.FXHIST.cheyenne_intel.cam-outfrq9s (Overall: DIFF) details: + FAIL ERS_Ln9.f19_f19_mg16.FXHIST.cheyenne_intel.cam-outfrq9s NLCOMP + FAIL ERS_Ln9.f19_f19_mg16.FXHIST.cheyenne_intel.cam-outfrq9s BASELINE /glade/p/cesm/amwg/cesm_baselines/cam_cesm2_1_rel_56 + SMS_D_Ln9.f19_f19_mg16.FXHIST.cheyenne_intel.cam-outfrq9s_amie (Overall: DIFF) details: + FAIL SMS_D_Ln9.f19_f19_mg16.FXHIST.cheyenne_intel.cam-outfrq9s_amie NLCOMP + FAIL SMS_D_Ln9.f19_f19_mg16.FXHIST.cheyenne_intel.cam-outfrq9s_amie BASELINE /glade/p/cesm/amwg/cesm_baselines/cam_cesm2_1_rel_56 + - expected failures due to change in chemistry mechanisms izumi/nag: +050 bl426 TBL.sh f10c4aqwmxdm outfrq3s_newyear 9s .............................................FAIL! rc= 7 at Wed Jan 4 21:10:48 MST 2023 +056 bl471 TBL.sh f10c6aqwmadm outfrq3s 9s .....................................................FAIL! rc= 7 at Wed Jan 4 21:16:05 MST 2023 + - expected failures due to change in chemistry mechanisms -izumi/pgi: - -CAM tag used for the baseline comparison tests if different than previous -tag: - -Summarize any changes to answers, i.e., -- what code configurations: -- what platforms/compilers: -- nature of change (roundoff; larger than roundoff but same climate; new - climate): - -If bitwise differences were observed, how did you show they were no worse -than roundoff? - -If this tag changes climate describe the run(s) done to evaluate the new -climate in enough detail that it(they) could be reproduced, i.e., -- source tag (all code used must be in the repository): -- platform/compilers: -- configure commandline: -- build-namelist command (or complete namelist): -- MSS location of output: - -MSS location of control simulations used to validate new climate: +izumi/pgi: All PASS -URL for AMWG diagnostics output used to validate new climate: +Summarize any changes to answers: Larger than roundoff for WACCM-MA configurations =============================================================== =============================================================== From 1e64110d1a08f785cca6c6fe612efde72958d231 Mon Sep 17 00:00:00 2001 From: Francis Vitt Date: Thu, 5 Jan 2023 09:13:44 -0700 Subject: [PATCH 7/8] ChangeLog updates --- doc/ChangeLog | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/doc/ChangeLog b/doc/ChangeLog index 7eaef38382..1928b46c6a 100644 --- a/doc/ChangeLog +++ b/doc/ChangeLog @@ -29,6 +29,7 @@ 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_rxt_id.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 @@ -38,10 +39,10 @@ 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_setrxt.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 to be consistent with other waccm mechanisms - - change order of species + - 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 @@ -54,16 +55,18 @@ 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_phtadj.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 - - change order of species and reactions + - include Op2D, Op2P, and SF6 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_rxt_id.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 @@ -78,10 +81,9 @@ 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 to be consistent with other waccm mechanisms + - 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) - - change order of species M src/chemistry/pp_waccm_mad_mam4/chem_mech.doc M src/chemistry/pp_waccm_mad_mam4/chem_mech.in @@ -96,16 +98,17 @@ 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_phtadj.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 + - include Op2D, Op2P, and SF6 - use scalar solver for d-region ion chemistry mechanisms (mad) - - change order of species and reactions M test/system/test_driver.sh - - use "qsub -V" on cheyenne to export user evn to batch job + - use "qsub -V" on cheyenne to export user environment to batch job 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, From 03cfe210cc3bf767b8c095d9e4eddc894f774e58 Mon Sep 17 00:00:00 2001 From: Francis Vitt Date: Thu, 5 Jan 2023 13:05:23 -0700 Subject: [PATCH 8/8] revert test_driver.sh fix --- doc/ChangeLog | 3 --- test/system/test_driver.sh | 6 +++--- 2 files changed, 3 insertions(+), 6 deletions(-) diff --git a/doc/ChangeLog b/doc/ChangeLog index 1928b46c6a..ee680df1f1 100644 --- a/doc/ChangeLog +++ b/doc/ChangeLog @@ -107,9 +107,6 @@ M src/chemistry/pp_waccm_mad_mam4/mo_sim_dat.F90 - include Op2D, Op2P, and SF6 - use scalar solver for d-region ion chemistry mechanisms (mad) -M test/system/test_driver.sh - - use "qsub -V" on cheyenne to export user environment to batch job - 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 diff --git a/test/system/test_driver.sh b/test/system/test_driver.sh index 66806b43d4..3feef77558 100755 --- a/test/system/test_driver.sh +++ b/test/system/test_driver.sh @@ -937,7 +937,7 @@ if [ -n "${submit_script_cb}" ]; then case $hostname in # cheyenne chey* | r* ) - batch_queue_submit='qsub -V ' + batch_queue_submit='qsub ' ;; *) echo "ERROR: machine $hostname not currently supported for batch builds" @@ -1082,7 +1082,7 @@ if [ "${cesm_test_suite}" != "none" -a -n "${cesm_test_mach}" ]; then echo "cd ${script_dir}" >> ${submit_script_cime} echo './create_test' ${testargs} >> ${submit_script_cime} chmod u+x ${submit_script_cime} - qsub -V ${submit_script_cime} + qsub ${submit_script_cime} fi if [ "${hostname:0:6}" == "hobart" ]; then @@ -1116,7 +1116,7 @@ if $run_cam_regression; then case $hostname in ##cheyenne ch* | r* ) - qsub -V ${submit_script_cb} + qsub ${submit_script_cb} ;; ##hobart