diff --git a/CHANGELOG.md b/CHANGELOG.md index 7eb2bfe47..19ee7b3bc 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -4,6 +4,13 @@ This file documents all notable changes to the GEOS-Chem repository starting in The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/), and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0.html). +## [Unreleased] -TBD +### Added +- Added multiphase sulfate chemistry and cloud Hplus diagnostic for Travis et al. (2025) + +### Changed +- Renamed `State_Chm%Isorrop*` fields to `State_Chm%Ate*` (aerosol thermodynamical equilibrium), as ISORROPIA is no longer used + ## [14.7.0] - 2026-02-05 ### Added - Added entries for FINNv25 biomass burning emissions to template HEMCO configuration files diff --git a/GeosCore/aerosol_thermodynamics_mod.F90 b/GeosCore/aerosol_thermodynamics_mod.F90 index dcf99d83d..96c14166b 100644 --- a/GeosCore/aerosol_thermodynamics_mod.F90 +++ b/GeosCore/aerosol_thermodynamics_mod.F90 @@ -213,7 +213,7 @@ SUBROUTINE DO_ATE( Input_Opt, State_Chm, State_Diag, & REAL(f8) :: HETP_HCl, HETP_Na, HETP_Ca, HETP_K REAL(f8) :: HETP_Mg, HETP_H, HETP_OH, HETP_LWC REAL(f8) :: HETP_frNa, HETP_frCa, HETP_frK, HETP_frMg - REAL(f8) :: HETP_frSO4, HETP_num + REAL(f8) :: HETP_frSO4, HETP_num, HETP_IONIC ! Strings CHARACTER(LEN=15) :: SCASI @@ -268,14 +268,15 @@ SUBROUTINE DO_ATE( Input_Opt, State_Chm, State_Diag, & ! Zero State_Chm arrays to avoid leftover values from hanging ! around between calls -- especially up near the tropopause - State_Chm%IsorropAeropH = 0.0_fp - State_Chm%IsorropHplus = 0.0_fp - State_Chm%IsorropAeroH2O = 0.0_fp - State_Chm%IsorropSulfate = 0.0_fp - State_Chm%IsorropNitrate = 0.0_fp - State_Chm%IsorropBisulfate = 0.0_fp - State_Chm%IsorropChloride = 0.0_fp - + State_Chm%AteAeropH = 0.0_fp + State_Chm%AteHplus = 0.0_fp + State_Chm%AteAeroH2O = 0.0_fp + State_Chm%AteSulfate = 0.0_fp + State_Chm%AteNitrate = 0.0_fp + State_Chm%AteBisulfate = 0.0_fp + State_Chm%AteChloride = 0.0_fp + State_Chm%AteIONIC = 0.0_fp + State_Chm%AteOH = 0.0_fp ! First-time initialization IF ( FIRST ) THEN @@ -492,7 +493,7 @@ SUBROUTINE DO_ATE( Input_Opt, State_Chm, State_Diag, & !$OMP PRIVATE( HETP_HCl, HETP_Na, HETP_Ca, HETP_K ) & !$OMP PRIVATE( HETP_Mg, HETP_H, HETP_OH, HETP_LWC ) & !$OMP PRIVATE( HETP_frNa, HETP_frCa, HETP_frK, HETP_frMg ) & - !$OMP PRIVATE( HETP_frSO4, HETP_num ) & + !$OMP PRIVATE( HETP_frSO4, HETP_num, HETP_IONIC ) & !$OMP COLLAPSE( 3 ) & !$OMP SCHEDULE( DYNAMIC, 8 ) DO L = 1, State_Grid%NZ @@ -818,6 +819,7 @@ SUBROUTINE DO_ATE( Input_Opt, State_Chm, State_Diag, & ! For safety GAS = 0.0d0 AERLIQ = 0.0d0 + OTHER = 0.0d0 Call MACH_HETP_Main_15Cases( WI(2), WI(3), WI(4), WI(1), WI(5), & WI(6), WI(7), WI(8), TEMPI, RHI, & HETP_SO4, HETP_HSO4, HETP_CaSO4, HETP_NH4, & @@ -825,7 +827,7 @@ SUBROUTINE DO_ATE( Input_Opt, State_Chm, State_Diag, & HETP_HCl, HETP_Na, HETP_Ca, HETP_K, & HETP_Mg, HETP_H, HETP_OH, HETP_LWC, & HETP_frNa, HETP_frCa, HETP_frK, HETP_frMg, & - HETP_frSO4, HETP_num ) + HETP_frSO4, HETP_IONIC, HETP_num ) ! Spoof ISORROPIA outputs which are still used GAS(1) = HETP_NH3 GAS(2) = HETP_HNO3 @@ -838,7 +840,8 @@ SUBROUTINE DO_ATE( Input_Opt, State_Chm, State_Diag, & AERLIQ( 5) = HETP_SO4 AERLIQ( 6) = HETP_HSO4 AERLIQ( 7) = HETP_NO3 - AERLIQ( 8) = HETP_LWC + AERLIQ( 8) = HETP_LWC + OTHER( 5) = HETP_IONIC ! WT is used below but is identical to WI for a forward case WT(:) = WI(:) @@ -954,15 +957,15 @@ SUBROUTINE DO_ATE( Input_Opt, State_Chm, State_Diag, & IF ( AERLIQ(8) < 1e-18_fp ) THEN ! Aerosol is dry so HPLUSTEMP and PH_SAV are undefined ! We force HPLUSTEMP to 1d20 (hotp, ccc, 12/18/09) - ! Force IsorropAeropH to 20e0 (X. Wang, 6/27/19) + ! Force AteAeropH to 20e0 (X. Wang, 6/27/19) !HPLUSTEMP = 1e+20_fp HPLUSTEMP = 1.0e-30_fp SULFTEMP = 1.0e-30_fp BISULTEMP = 1.0e-30_fp NITRTEMP = 1.0e-30_fp CLTEMP = 1.0e-30_fp - !State_Chm%IsorropAeropH(I,J,L,N) = -999e+0_fp - State_Chm%IsorropAeropH(I,J,L,N) = 20.0_fp + !State_Chm%AteAeropH(I,J,L,N) = -999e+0_fp + State_Chm%AteAeropH(I,J,L,N) = 20.0_fp ELSE HPLUSTEMP = AERLIQ(1) / AERLIQ(8) * 1.0e+3_fp / 18.0_fp SULFTEMP = AERLIQ(5) / AERLIQ(8) * 1.0e+3_fp / 18.0_fp @@ -971,19 +974,21 @@ SUBROUTINE DO_ATE( Input_Opt, State_Chm, State_Diag, & CLTEMP = AERLIQ(4) / AERLIQ(8) * 1.0e+3_fp / 18.0_fp ! Use SAFELOG10 to prevent NAN - State_Chm%IsorropAeropH(I,J,L,N)=-1.0_fp*SAFELOG10(HPLUSTEMP) + State_Chm%AteAeropH(I,J,L,N)=-1.0_fp*SAFELOG10(HPLUSTEMP) ENDIF ! Additional Info - State_Chm%IsorropHplus(I,J,L,N) = MAX(HPLUSTEMP, 1e-30_fp) - State_Chm%IsorropAeroH2O(I,J,L,N) = MAX((AERLIQ(8)*18e+6_fp),1e-30_fp) ! mol/m3 -> ug/m3 - State_Chm%IsorropNitrate(I,J,L,N) = MAX(NITRTEMP, 1e-30_fp) - State_Chm%IsorropChloride(I,J,L,N)= MAX(CLTEMP, 1e-30_fp) + State_Chm%AteHplus(I,J,L,N) = MAX(HPLUSTEMP, 1e-30_fp) + State_Chm%AteAeroH2O(I,J,L,N) = MAX((AERLIQ(8)*18e+6_fp),1e-30_fp) ! mol/m3 -> ug/m3 + State_Chm%AteNitrate(I,J,L,N) = MAX(NITRTEMP, 1e-30_fp) + State_Chm%AteChloride(I,J,L,N)= MAX(CLTEMP, 1e-30_fp) IF (N==1) THEN - State_Chm%IsorropSulfate(I,J,L) = MAX(SULFTEMP, 1e-30_fp) - State_Chm%IsorropBisulfate(I,J,L)= MAX(BISULTEMP, 1e-30_fp) + State_Chm%AteSulfate(I,J,L) = MAX(SULFTEMP, 1e-30_fp) + State_Chm%AteBisulfate(I,J,L)= MAX(BISULTEMP, 1e-30_fp) State_Chm%AeroH2O(I,J,L,1+NDUST) = AERLIQ(8) * 18e+0_fp ! mol/m3 -> g/m3 - + State_Chm%AteIONIC(I,J,L) = max(OTHER(5), 1e-30_fp) ! mol/m3 + State_Chm%AteOH(I,J,L) = max(OTHER(4), 1E-30_fp) ! mol/m3 + NUM_SAV = ( Spc(id_NH3 )%Conc(I,J,L) / 17.0_fp & + Spc(id_NH4 )%Conc(I,J,L) / 18.0_fp & + Spc(id_SALA)%Conc(I,J,L) * 0.3061_fp / 23.0_fp ) diff --git a/GeosCore/planeflight_mod.F90 b/GeosCore/planeflight_mod.F90 index 24e72513c..6812e19b4 100644 --- a/GeosCore/planeflight_mod.F90 +++ b/GeosCore/planeflight_mod.F90 @@ -2174,16 +2174,16 @@ SUBROUTINE PLANEFLIGHT( Input_Opt, State_Chm, State_Diag, & ! ISORROPIA/HETP H+ and pH (eam, 06/2015) !--------------------------------------------------------------- CASE( 5001 ) - VARI(V) = State_Chm%IsorropHplus(I,J,L,1) + VARI(V) = State_Chm%AteHplus(I,J,L,1) CASE( 5002 ) - VARI(V) = State_Chm%IsorropAeropH(I,J,L,1) + VARI(V) = State_Chm%AteAeropH(I,J,L,1) CASE( 5003 ) - VARI(V) = State_Chm%IsorropAeroH2O(I,J,L,1) + VARI(V) = State_Chm%AteAeroH2O(I,J,L,1) CASE( 5004 ) - VARI(V) = State_Chm%IsorropBisulfate(I,J,L) + VARI(V) = State_Chm%AteBisulfate(I,J,L) !--------------------------------------------------------------- ! Local Time (eam, 06/2015) diff --git a/Headers/state_chm_mod.F90 b/Headers/state_chm_mod.F90 index 0ed0b8f71..4007e5c9e 100644 --- a/Headers/state_chm_mod.F90 +++ b/Headers/state_chm_mod.F90 @@ -21,7 +21,7 @@ MODULE State_Chm_Mod ! ! USES: ! - USE AerMass_Container_Mod ! Aerosol mass object + USE AerMass_Container_Mod ! Aerosol mass object USE Dictionary_M, ONLY : dictionary_t ! Fortran hash table type USE ErrCode_Mod ! Error handling USE Phot_Container_Mod ! For photolysis state object @@ -152,6 +152,7 @@ MODULE State_Chm_Mod REAL(fp), POINTER :: WetAeroRadi(:,:,:,:) ! Aerosol Radius [cm] REAL(fp), POINTER :: AeroH2O (:,:,:,:) ! Aerosol water [cm3/cm3] REAL(fp), POINTER :: GammaN2O5 (:,:,:,:) ! N2O5 aerosol uptake [unitless] + REAL(fp), POINTER :: GammaSO2 (:,:,:,:) ! SO2 aerosol uptake [unitless] REAL(fp), POINTER :: SSAlk (:,:,:,:) ! Sea-salt alkalinity[-] REAL(fp), POINTER :: H2O2AfterChem(:,:,:) ! H2O2, SO2 [v/v] REAL(fp), POINTER :: SO2AfterChem (:,:,:) ! after sulfate chem @@ -175,6 +176,7 @@ MODULE State_Chm_Mod !----------------------------------------------------------------------- REAL(fp), POINTER :: pHCloud (:,:,: ) ! Cloud pH [-] REAL(fp), POINTER :: isCloud (:,:,: ) ! Cloud presence [-] + REAL(fp), POINTER :: HPlusCloud (:,:,: ) ! Cloud H+ !----------------------------------------------------------------------- ! Fields for KPP solver @@ -192,13 +194,15 @@ MODULE State_Chm_Mod !----------------------------------------------------------------------- ! For isoprene SOA via ISORROPIA/HETP !----------------------------------------------------------------------- - REAL(fp), POINTER :: IsorropAeropH (:,:,:,:) ! ISORROPIA aero pH - REAL(fp), POINTER :: IsorropHplus (:,:,:,:) ! H+ conc [M] - REAL(fp), POINTER :: IsorropAeroH2O (:,:,:,:) ! ISORROPIA aero H2O - REAL(fp), POINTER :: IsorropSulfate (:,:,: ) ! Sulfate conc [M] - REAL(fp), POINTER :: IsorropNitrate (:,:,:,:) ! Nitrate conc [M] - REAL(fp), POINTER :: IsorropChloride(:,:,:,:) ! Chloride conc [M] - REAL(fp), POINTER :: IsorropBisulfate(:,:,: )! Bisulfate conc [M] + REAL(fp), POINTER :: AteAeropH (:,:,:,:) ! ISORROPIA aero pH + REAL(fp), POINTER :: AteHplus (:,:,:,:) ! H+ conc [M] + REAL(fp), POINTER :: AteIONIC (:,:,:) ! ISORROPIA aero IONIC + REAL(fp), POINTER :: AteOH (:,:,:) ! ISORROPIA aero OH + REAL(fp), POINTER :: AteAeroH2O (:,:,:,:) ! ISORROPIA aero H2O + REAL(fp), POINTER :: AteSulfate (:,:,: ) ! Sulfate conc [M] + REAL(fp), POINTER :: AteNitrate (:,:,:,:) ! Nitrate conc [M] + REAL(fp), POINTER :: AteChloride(:,:,:,:) ! Chloride conc [M] + REAL(fp), POINTER :: AteBisulfate(:,:,: )! Bisulfate conc [M] !----------------------------------------------------------------------- ! For the tagged Hg simulation @@ -214,6 +218,16 @@ MODULE State_Chm_Mod ! snowpack on ocean REAL(fp), POINTER :: SnowHgLandStored(:,:) ! Non-reducible Hg ! snowpack on land + !---------------------------------------------------------------------- + ! For SO2 aerosol heterogeneous chemistry + !---------------------------------------------------------------------- + REAL(fp), POINTER :: HSO3_AQ_A (:,:,: ) ! Aerosol bisulfite!/SO2 ratio + REAL(fp), POINTER :: SO3_AQ_A (:,:,: ) ! Aerosol sulfite!/SO2 ratio + REAL(fp), POINTER :: SO2_AQ_A (:,:,: ) ! Aerosol SO2 + REAL(fp), POINTER :: FeIII_A (:,:,: ) ! Aerosol FeIII [M] + REAL(fp), POINTER :: MnII_A (:,:,: ) ! Aerosol MnII [M] + REAL(fp), POINTER :: FeIII_AMAX (:,:,: ) ! Aerosol FeIII [M] + REAL(fp), POINTER :: MnII_AMAX (:,:,: ) ! Aerosol MnII [M] !---------------------------------------------------------------------- ! For HOBr + S(IV) heterogeneous chemistry @@ -353,11 +367,11 @@ MODULE State_Chm_Mod TYPE(dictionary_t) :: RegDict ! Registry lookup table !----------------------------------------------------------------------- - ! GEOS specific fields + ! GEOS specific fields !----------------------------------------------------------------------- #if defined( MODEL_GEOS ) ! CO mesosphere boundary - INTEGER :: COmesosphere + INTEGER :: COmesosphere CHARACTER(LEN=255) :: impCOmeso ! CO2 photolysis INTEGER :: CO2fromGOCART @@ -517,6 +531,7 @@ SUBROUTINE Zero_State_Chm( State_Chm, RC ) State_Chm%WetAeroRadi => NULL() State_Chm%AeroH2O => NULL() State_Chm%GammaN2O5 => NULL() + State_Chm%GammaSO2 => NULL() State_Chm%SSAlk => NULL() State_Chm%OMOC => NULL() State_Chm%OMOC_POA => NULL() @@ -524,6 +539,7 @@ SUBROUTINE Zero_State_Chm( State_Chm, RC ) State_Chm%DryDepNitrogen => NULL() State_Chm%WetDepNitrogen => NULL() State_Chm%pHCloud => NULL() + State_Chm%HPlusCloud => NULL() State_Chm%isCloud => NULL() State_Chm%QLxpHCloud => NULL() State_Chm%ORVCsesq => NULL() @@ -535,6 +551,13 @@ SUBROUTINE Zero_State_Chm( State_Chm, RC ) State_Chm%SoilDust => NULL() State_Chm%HSO3_AQ => NULL() State_Chm%SO3_AQ => NULL() + State_Chm%HSO3_AQ_A => NULL() + State_Chm%SO3_AQ_A => NULL() + State_Chm%SO2_AQ_A => NULL() + State_Chm%FeIII_A => NULL() + State_Chm%MnII_A => NULL() + State_Chm%FeIII_AMAX => NULL() + State_Chm%MnII_AMAX => NULL() State_Chm%fupdateHOBr => NULL() State_Chm%fupdateHOCl => NULL() State_Chm%TLSTT => NULL() @@ -584,13 +607,15 @@ SUBROUTINE Zero_State_Chm( State_Chm, RC ) State_Chm%QQRain => NULL() ! Isoprene SOA - State_Chm%IsorropAeropH => NULL() - State_Chm%IsorropHplus => NULL() - State_Chm%IsorropAeroH2O => NULL() - State_Chm%IsorropSulfate => NULL() - State_Chm%IsorropNitrate => NULL() - State_Chm%IsorropChloride => NULL() - State_Chm%IsorropBisulfate => NULL() + State_Chm%AteAeropH => NULL() + State_Chm%AteHplus => NULL() + State_Chm%AteAeroH2O => NULL() + State_Chm%AteIONIC => NULL() + State_Chm%AteOH => NULL() + State_Chm%AteSulfate => NULL() + State_Chm%AteNitrate => NULL() + State_Chm%AteChloride => NULL() + State_Chm%AteBisulfate => NULL() ! Hg simulation quantities State_Chm%OceanHg0 => NULL() @@ -615,9 +640,9 @@ SUBROUTINE Zero_State_Chm( State_Chm, RC ) #if defined( MODEL_GEOS ) State_Chm%COmesosphere = .FALSE. - State_Chm%impCOmeso = "unknown" + State_Chm%impCOmeso = "unknown" State_Chm%CO2fromGOCART = .FALSE. - State_Chm%impCO2name = "unknown" + State_Chm%impCO2name = "unknown" State_Chm%numphoto = 0 State_Chm%nxdo = 0 State_Chm%nlam = 0 @@ -1043,7 +1068,7 @@ SUBROUTINE Init_State_Chm( Input_Opt, State_Chm, State_Grid, & CALL GC_Error( errMsg, RC, thisLoc ) RETURN ENDIF - + !--------------------------------------------------------------------- ! AeroArea !--------------------------------------------------------------------- @@ -1260,6 +1285,32 @@ SUBROUTINE Init_State_Chm( Input_Opt, State_Chm, State_Grid, & RETURN ENDIF + !--------------------------------------------------------------------- + ! Gamma SO2 + !--------------------------------------------------------------------- + + fieldId(1) = 'GammaSO2TMI' + fieldId(2) = 'GammaSO2O3' + fieldId(3) = 'GammaSO2H2O2' + fieldId(4) = 'GammaSO2NO2' + fieldId(5) = 'GammaSO2CH2O' + DO N=1,5 + CALL Init_and_Register( & + Input_Opt = Input_Opt, & + State_Chm = State_Chm, & + State_Grid = State_Grid, & + chmId = TRIM( fieldId(N) ), & + Ptr2Data = State_Chm%GammaSO2, & + nSlots = 5, & + nCat = N, & + RC = RC ) + + IF ( RC /= GC_SUCCESS ) THEN + errMsg = TRIM( errMsg_ir ) // TRIM( chmId ) + CALL GC_Error( errMsg, RC, thisLoc ) + RETURN + ENDIF + ENDDO !--------------------------------------------------------------------- ! GammaN2O5 !--------------------------------------------------------------------- @@ -1335,10 +1386,10 @@ SUBROUTINE Init_State_Chm( Input_Opt, State_Chm, State_Grid, & ENDIF !--------------------------------------------------------------------- - ! IsorropAeropH + ! AteAeropH !--------------------------------------------------------------------- - fieldId(1) = 'IsorropAeropHAccum' - fieldId(2) = 'IsorropAeropHCoarse' + fieldId(1) = 'AteAeropHAccum' + fieldId(2) = 'AteAeropHCoarse' ! Allocate and register each field individually DO N = 1, 2 @@ -1347,7 +1398,7 @@ SUBROUTINE Init_State_Chm( Input_Opt, State_Chm, State_Grid, & State_Chm = State_Chm, & State_Grid = State_Grid, & chmId = TRIM( fieldId(N) ), & - Ptr2Data = State_Chm%IsorropAeropH, & + Ptr2Data = State_Chm%AteAeropH, & nSlots = 2, & nCat = N, & RC = RC ) @@ -1360,10 +1411,10 @@ SUBROUTINE Init_State_Chm( Input_Opt, State_Chm, State_Grid, & ENDDO !--------------------------------------------------------------------- - ! IsorropHplus + ! AteHplus !--------------------------------------------------------------------- - fieldId(1) = 'IsorropHplusAccum' - fieldId(2) = 'IsorropHplusCoarse' + fieldId(1) = 'AteHplusAccum' + fieldId(2) = 'AteHplusCoarse' ! Allocate and register each field individually DO N = 1, 2 @@ -1372,7 +1423,7 @@ SUBROUTINE Init_State_Chm( Input_Opt, State_Chm, State_Grid, & State_Chm = State_Chm, & State_Grid = State_Grid, & chmId = TRIM( fieldId(N) ), & - Ptr2Data = State_Chm%IsorropHplus, & + Ptr2Data = State_Chm%AteHplus, & nSlots = 2, & nCat = N, & RC = RC ) @@ -1385,10 +1436,10 @@ SUBROUTINE Init_State_Chm( Input_Opt, State_Chm, State_Grid, & ENDDO !--------------------------------------------------------------------- - ! IsorropAeroH2O + ! AteAeroH2O !--------------------------------------------------------------------- - fieldId(1) = 'IsorropAeroH2OAccum' - fieldId(2) = 'IsorropAeroH2OCoarse' + fieldId(1) = 'AteAeroH2OAccum' + fieldId(2) = 'AteAeroH2OCoarse' ! Allocate and register each field individually DO N = 1, 2 @@ -1397,7 +1448,7 @@ SUBROUTINE Init_State_Chm( Input_Opt, State_Chm, State_Grid, & State_Chm = State_Chm, & State_Grid = State_Grid, & chmId = TRIM( fieldId(N) ), & - Ptr2Data = State_Chm%IsorropAeroH2O, & + Ptr2Data = State_Chm%AteAeroH2O, & nSlots = 2, & nCat = N, & RC = RC ) @@ -1410,15 +1461,49 @@ SUBROUTINE Init_State_Chm( Input_Opt, State_Chm, State_Grid, & ENDDO !--------------------------------------------------------------------- - ! IsorropSulfate + ! AteIONIC + !--------------------------------------------------------------------- + chmId = 'AteIONIC' + CALL Init_and_Register( & + Input_Opt = Input_Opt, & + State_Chm = State_Chm, & + State_Grid = State_Grid, & + chmId = chmId, & + Ptr2Data = State_Chm%AteIONIC, & + RC = RC ) + + IF ( RC /= GC_SUCCESS ) THEN + errMsg = TRIM( errMsg_ir ) // TRIM( chmId ) + CALL GC_Error( errMsg, RC, thisLoc ) + RETURN + ENDIF + !--------------------------------------------------------------------- + ! AteOH + !--------------------------------------------------------------------- + chmId = 'AteOH' + CALL Init_and_Register( & + Input_Opt = Input_Opt, & + State_Chm = State_Chm, & + State_Grid = State_Grid, & + chmId = chmId, & + Ptr2Data = State_Chm%AteOH, & + RC = RC ) + + IF ( RC /= GC_SUCCESS ) THEN + errMsg = TRIM( errMsg_ir ) // TRIM( chmId ) + CALL GC_Error( errMsg, RC, thisLoc ) + RETURN + ENDIF + !--------------------------------------------------------------------- + ! AteSulfate !--------------------------------------------------------------------- - chmId = 'IsorropSulfate' + chmId = 'AteSulfate' CALL Init_and_Register( & Input_Opt = Input_Opt, & State_Chm = State_Chm, & State_Grid = State_Grid, & chmId = chmId, & - Ptr2Data = State_Chm%IsorropSulfate, & + Ptr2Data = State_Chm%AteSulfate, & RC = RC ) IF ( RC /= GC_SUCCESS ) THEN @@ -1429,10 +1514,10 @@ SUBROUTINE Init_State_Chm( Input_Opt, State_Chm, State_Grid, & !--------------------------------------------------------------------- - ! IsorropNitrate + ! AteNitrate !--------------------------------------------------------------------- - fieldId(1) = 'IsorropNitrateAccum' - fieldId(2) = 'IsorropNitrateCoarse' + fieldId(1) = 'AteNitrateAccum' + fieldId(2) = 'AteNitrateCoarse' ! Allocate and register each field individually DO N = 1, 2 @@ -1441,7 +1526,7 @@ SUBROUTINE Init_State_Chm( Input_Opt, State_Chm, State_Grid, & State_Chm = State_Chm, & State_Grid = State_Grid, & chmId = TRIM( fieldId(N) ), & - Ptr2Data = State_Chm%IsorropNitrate, & + Ptr2Data = State_Chm%AteNitrate, & nSlots = 2, & nCat = N, & RC = RC ) @@ -1454,10 +1539,10 @@ SUBROUTINE Init_State_Chm( Input_Opt, State_Chm, State_Grid, & ENDDO !--------------------------------------------------------------------- - ! IsorropChloride + ! AteChloride !--------------------------------------------------------------------- - fieldId(1) = 'IsorropChlorideAccum' - fieldId(2) = 'IsorropChlorideCoarse' + fieldId(1) = 'AteChlorideAccum' + fieldId(2) = 'AteChlorideCoarse' ! Allocate and register each field individually DO N = 1, 2 @@ -1466,7 +1551,7 @@ SUBROUTINE Init_State_Chm( Input_Opt, State_Chm, State_Grid, & State_Chm = State_Chm, & State_Grid = State_Grid, & chmId = TRIM( fieldId(N) ), & - Ptr2Data = State_Chm%IsorropChloride, & + Ptr2Data = State_Chm%AteChloride, & nSlots = 2, & nCat = N, & RC = RC ) @@ -1479,15 +1564,15 @@ SUBROUTINE Init_State_Chm( Input_Opt, State_Chm, State_Grid, & ENDDO !--------------------------------------------------------------------- - ! IsorropBisulfate + ! AteBisulfate !--------------------------------------------------------------------- - chmId = 'IsorropBisulfate' + chmId = 'AteBisulfate' CALL Init_and_Register( & Input_Opt = Input_Opt, & State_Chm = State_Chm, & State_Grid = State_Grid, & chmId = chmId, & - Ptr2Data = State_Chm%IsorropBisulfate, & + Ptr2Data = State_Chm%AteBisulfate, & RC = RC ) IF ( RC /= GC_SUCCESS ) THEN @@ -1605,6 +1690,129 @@ SUBROUTINE Init_State_Chm( Input_Opt, State_Chm, State_Grid, & Ptr2Data = State_Chm%SO3_AQ, & RC = RC ) + IF ( RC /= GC_SUCCESS ) THEN + errMsg = TRIM( errMsg_ir ) // TRIM( chmId ) + CALL GC_Error( errMsg, RC, thisLoc ) + RETURN + ENDIF + !--------------------------------------------------------------------- + ! HSO3_AQ_A + !--------------------------------------------------------------------- + chmId = 'HSO3_AQ_A' + CALL Init_and_Register( & + Input_Opt = Input_Opt, & + State_Chm = State_Chm, & + State_Grid = State_Grid, & + chmId = chmId, & + Ptr2Data = State_Chm%HSO3_AQ_A, & + RC = RC ) + + IF ( RC /= GC_SUCCESS ) THEN + errMsg = TRIM( errMsg_ir ) // TRIM( chmId ) + CALL GC_Error( errMsg, RC, thisLoc ) + RETURN + ENDIF + !--------------------------------------------------------------------- + ! SO2_AQ_A + !--------------------------------------------------------------------- + chmId = 'SO2_AQ_A' + CALL Init_and_Register( & + Input_Opt = Input_Opt, & + State_Chm = State_Chm, & + State_Grid = State_Grid, & + chmId = chmId, & + Ptr2Data = State_Chm%SO2_AQ_A, & + RC = RC ) + + IF ( RC /= GC_SUCCESS ) THEN + errMsg = TRIM( errMsg_ir ) // TRIM( chmId ) + CALL GC_Error( errMsg, RC, thisLoc ) + RETURN + ENDIF + + !--------------------------------------------------------------------- + ! SO3_AQ_A + !--------------------------------------------------------------------- + chmId = 'SO3_AQ_A' + CALL Init_and_Register( & + Input_Opt = Input_Opt, & + State_Chm = State_Chm, & + State_Grid = State_Grid, & + chmId = chmId, & + Ptr2Data = State_Chm%SO3_AQ_A, & + RC = RC ) + + IF ( RC /= GC_SUCCESS ) THEN + errMsg = TRIM( errMsg_ir ) // TRIM( chmId ) + CALL GC_Error( errMsg, RC, thisLoc ) + RETURN + ENDIF + + !--------------------------------------------------------------------- + ! FeIII_A + !--------------------------------------------------------------------- + chmId = 'FeIII_A' + CALL Init_and_Register( & + Input_Opt = Input_Opt, & + State_Chm = State_Chm, & + State_Grid = State_Grid, & + chmId = chmId, & + Ptr2Data = State_Chm%FeIII_A, & + RC = RC ) + + IF ( RC /= GC_SUCCESS ) THEN + errMsg = TRIM( errMsg_ir ) // TRIM( chmId ) + CALL GC_Error( errMsg, RC, thisLoc ) + RETURN + ENDIF + + !--------------------------------------------------------------------- + ! MnII_A + !--------------------------------------------------------------------- + chmId = 'MnII_A' + CALL Init_and_Register( & + Input_Opt = Input_Opt, & + State_Chm = State_Chm, & + State_Grid = State_Grid, & + chmId = chmId, & + Ptr2Data = State_Chm%MnII_A, & + RC = RC ) + + IF ( RC /= GC_SUCCESS ) THEN + errMsg = TRIM( errMsg_ir ) // TRIM( chmId ) + CALL GC_Error( errMsg, RC, thisLoc ) + RETURN + ENDIF + !--------------------------------------------------------------------- + ! FeIII_A + !--------------------------------------------------------------------- + chmId = 'FeIII_AMAX' + CALL Init_and_Register( & + Input_Opt = Input_Opt, & + State_Chm = State_Chm, & + State_Grid = State_Grid, & + chmId = chmId, & + Ptr2Data = State_Chm%FeIII_AMAX, & + RC = RC ) + + IF ( RC /= GC_SUCCESS ) THEN + errMsg = TRIM( errMsg_ir ) // TRIM( chmId ) + CALL GC_Error( errMsg, RC, thisLoc ) + RETURN + ENDIF + + !--------------------------------------------------------------------- + ! MnII_A + !--------------------------------------------------------------------- + chmId = 'MnII_AMAX' + CALL Init_and_Register( & + Input_Opt = Input_Opt, & + State_Chm = State_Chm, & + State_Grid = State_Grid, & + chmId = chmId, & + Ptr2Data = State_Chm%MnII_AMAX, & + RC = RC ) + IF ( RC /= GC_SUCCESS ) THEN errMsg = TRIM( errMsg_ir ) // TRIM( chmId ) CALL GC_Error( errMsg, RC, thisLoc ) @@ -1902,6 +2110,23 @@ SUBROUTINE Init_State_Chm( Input_Opt, State_Chm, State_Grid, & Ptr2Data = State_Chm%SO2AfterChem, & RC = RC ) + IF ( RC /= GC_SUCCESS ) THEN + errMsg = TRIM( errMsg_ir ) // TRIM( chmId ) + CALL GC_Error( errMsg, RC, thisLoc ) + RETURN + ENDIF + !------------------------------------------------------------------------ + ! HPlusCloud + !------------------------------------------------------------------------ + chmId = 'HPlusCloud' + CALL Init_and_Register( & + Input_Opt = Input_Opt, & + State_Chm = State_Chm, & + State_Grid = State_Grid, & + chmId = chmId, & + Ptr2Data = State_Chm%HPlusCloud, & + RC = RC ) + IF ( RC /= GC_SUCCESS ) THEN errMsg = TRIM( errMsg_ir ) // TRIM( chmId ) CALL GC_Error( errMsg, RC, thisLoc ) @@ -2341,7 +2566,7 @@ SUBROUTINE Init_State_Chm( Input_Opt, State_Chm, State_Grid, & WRITE( 6, 10 ) 10 FORMAT( /, 'Registered variables contained within the State_Chm object:') WRITE( 6, '(a)' ) REPEAT( '=', 79 ) - + ! Print registered fields CALL Registry_Print( Input_Opt = Input_Opt, & Registry = State_Chm%Registry, & @@ -2501,7 +2726,7 @@ SUBROUTINE Init_Mapping_Vectors( Input_Opt, State_Chm, TaggedDiag_List, RC ) IF ( RC /= GC_SUCCESS ) RETURN State_Chm%Map_KppVar = 0 - ! + ! ALLOCATE( State_Chm%KPP_AbsTol( N ), STAT=RC ) CALL GC_CheckVar( 'State_Chm%Kpp_AbsTol', 0, RC ) IF ( RC /= GC_SUCCESS ) RETURN @@ -3308,6 +3533,13 @@ SUBROUTINE Cleanup_State_Chm( State_Chm, RC ) State_Chm%GammaN2O5 => NULL() ENDIF + IF ( ASSOCIATED( State_Chm%GammaSO2 ) ) THEN + DEALLOCATE( State_Chm%GammaSO2, STAT=RC ) + CALL GC_CheckVar( 'State_Chm%GammaSO2', 2, RC ) + IF ( RC /= GC_SUCCESS ) RETURN + State_Chm%GammaSO2 => NULL() + ENDIF + IF ( ASSOCIATED( State_Chm%OMOC ) ) THEN DEALLOCATE( State_Chm%OMOC, STAT=RC ) CALL GC_CheckVar( 'State_Chm%OMOC', 2, RC ) @@ -3329,53 +3561,67 @@ SUBROUTINE Cleanup_State_Chm( State_Chm, RC ) State_Chm%OMOC_OPOA => NULL() ENDIF - IF ( ASSOCIATED( State_Chm%IsorropAeropH ) ) THEN - DEALLOCATE( State_Chm%IsorropAeropH, STAT=RC ) - CALL GC_CheckVar( 'State_Chm%IsorropAeropH', 2, RC ) + IF ( ASSOCIATED( State_Chm%AteAeropH ) ) THEN + DEALLOCATE( State_Chm%AteAeropH, STAT=RC ) + CALL GC_CheckVar( 'State_Chm%AteAeropH', 2, RC ) + IF ( RC /= GC_SUCCESS ) RETURN + State_Chm%AteAeropH => NULL() + ENDIF + + IF ( ASSOCIATED( State_Chm%AteHplus ) ) THEN + DEALLOCATE( State_Chm%AteHplus, STAT=RC ) + CALL GC_CheckVar( 'State_Chm%AteHplus', 2, RC ) IF ( RC /= GC_SUCCESS ) RETURN - State_Chm%IsorropAeropH => NULL() + State_Chm%AteHplus => NULL() ENDIF - IF ( ASSOCIATED( State_Chm%IsorropHplus ) ) THEN - DEALLOCATE( State_Chm%IsorropHplus, STAT=RC ) - CALL GC_CheckVar( 'State_Chm%IsorropHplus', 2, RC ) + IF ( ASSOCIATED( State_Chm%AteOH ) ) THEN + DEALLOCATE( State_Chm%AteOH, STAT=RC ) + CALL GC_CheckVar( 'State_Chm%AteOH', 2, RC ) IF ( RC /= GC_SUCCESS ) RETURN - State_Chm%IsorropHplus => NULL() + State_Chm%AteOH => NULL() ENDIF - IF ( ASSOCIATED( State_Chm%IsorropAeroH2O ) ) THEN - DEALLOCATE( State_Chm%IsorropAeroH2O, STAT=RC ) - CALL GC_CheckVar( 'State_Chm%IsorropAeroH2O', 2, RC ) + IF ( ASSOCIATED( State_Chm%AteAeroH2O ) ) THEN + DEALLOCATE( State_Chm%AteAeroH2O, STAT=RC ) + CALL GC_CheckVar( 'State_Chm%AteAeroH2O', 2, RC ) IF ( RC /= GC_SUCCESS ) RETURN - State_Chm%IsorropAeroH2O => NULL() + State_Chm%AteAeroH2O => NULL() ENDIF - IF ( ASSOCIATED( State_Chm%IsorropSulfate ) ) THEN - DEALLOCATE( State_Chm%IsorropSulfate, STAT=RC ) - CALL GC_CheckVar( 'State_Chm%IsorropSulfate', 2, RC ) + IF ( ASSOCIATED( State_Chm%AteSulfate ) ) THEN + DEALLOCATE( State_Chm%AteSulfate, STAT=RC ) + CALL GC_CheckVar( 'State_Chm%AteSulfate', 2, RC ) IF ( RC /= GC_SUCCESS ) RETURN - State_Chm%IsorropSulfate => NULL() + State_Chm%AteSulfate => NULL() ENDIF - IF ( ASSOCIATED( State_Chm%IsorropNitrate ) ) THEN - DEALLOCATE( State_Chm%IsorropNitrate, STAT=RC ) - CALL GC_CheckVar( 'State_Chm%IsorropNitrate', 2, RC ) + IF ( ASSOCIATED( State_Chm%AteNitrate ) ) THEN + DEALLOCATE( State_Chm%AteNitrate, STAT=RC ) + CALL GC_CheckVar( 'State_Chm%AteNitrate', 2, RC ) IF ( RC /= GC_SUCCESS ) RETURN - State_Chm%IsorropNitrate => NULL() + State_Chm%AteNitrate => NULL() ENDIF - IF ( ASSOCIATED( State_Chm%IsorropChloride ) ) THEN - DEALLOCATE( State_Chm%IsorropChloride, STAT=RC ) - CALL GC_CheckVar( 'State_Chm%IsorropChloride', 2, RC ) + IF ( ASSOCIATED( State_Chm%AteChloride ) ) THEN + DEALLOCATE( State_Chm%AteChloride, STAT=RC ) + CALL GC_CheckVar( 'State_Chm%AteChloride', 2, RC ) IF ( RC /= GC_SUCCESS ) RETURN - State_Chm%IsorropChloride => NULL() + State_Chm%AteChloride => NULL() ENDIF - IF ( ASSOCIATED( State_Chm%IsorropBisulfate ) ) THEN - DEALLOCATE( State_Chm%IsorropBisulfate, STAT=RC ) - CALL GC_CheckVar( 'State_Chm%IsorropBisulfate', 2, RC ) + IF ( ASSOCIATED( State_Chm%AteBisulfate ) ) THEN + DEALLOCATE( State_Chm%AteBisulfate, STAT=RC ) + CALL GC_CheckVar( 'State_Chm%AteBisulfate', 2, RC ) IF ( RC /= GC_SUCCESS ) RETURN - State_Chm%IsorropBisulfate => NULL() + State_Chm%AteBisulfate => NULL() + ENDIF + + IF ( ASSOCIATED( State_Chm%HPlusCloud ) ) THEN + DEALLOCATE( State_Chm%HPlusCloud, STAT=RC ) + CALL GC_CheckVar( 'State_Chm%HPlusCloud', 2, RC ) + IF ( RC /= GC_SUCCESS ) RETURN + State_Chm%HPlusCloud => NULL() ENDIF IF ( ASSOCIATED( State_Chm%pHCloud ) ) THEN @@ -3472,6 +3718,53 @@ SUBROUTINE Cleanup_State_Chm( State_Chm, RC ) IF ( RC /= GC_SUCCESS ) RETURN State_Chm%SO3_AQ => NULL() ENDIF + IF ( ASSOCIATED( State_Chm%FeIII_A ) ) THEN + DEALLOCATE( State_Chm%FeIII_A, STAT=RC ) + CALL GC_CheckVar( 'State_Chm%FeIII_A', 3, RC ) + IF ( RC /= GC_SUCCESS ) RETURN + State_Chm%FeIII_A => NULL() + ENDIF + + IF ( ASSOCIATED( State_Chm%MnII_A ) ) THEN + DEALLOCATE( State_Chm%MnII_A, STAT=RC ) + CALL GC_CheckVar( 'State_Chm%MnII_A', 3, RC ) + IF ( RC /= GC_SUCCESS ) RETURN + State_Chm%MnII_A => NULL() + ENDIF + IF ( ASSOCIATED( State_Chm%FeIII_AMAX ) ) THEN + DEALLOCATE( State_Chm%FeIII_AMAX, STAT=RC ) + CALL GC_CheckVar( 'State_Chm%FeIII_AMAX', 3, RC ) + IF ( RC /= GC_SUCCESS ) RETURN + State_Chm%FeIII_AMAX => NULL() + ENDIF + + IF ( ASSOCIATED( State_Chm%MnII_AMAX ) ) THEN + DEALLOCATE( State_Chm%MnII_AMAX, STAT=RC ) + CALL GC_CheckVar( 'State_Chm%MnII_AMAX', 3, RC ) + IF ( RC /= GC_SUCCESS ) RETURN + State_Chm%MnII_AMAX => NULL() + ENDIF + + IF ( ASSOCIATED( State_Chm%HSO3_AQ_A ) ) THEN + DEALLOCATE( State_Chm%HSO3_AQ_A, STAT=RC ) + CALL GC_CheckVar( 'State_Chm%HSO3_AQ_A', 3, RC ) + IF ( RC /= GC_SUCCESS ) RETURN + State_Chm%HSO3_AQ_A => NULL() + ENDIF + + IF ( ASSOCIATED( State_Chm%SO3_AQ_A ) ) THEN + DEALLOCATE( State_Chm%SO3_AQ_A, STAT=RC ) + CALL GC_CheckVar( 'State_Chm%SO3_AQ_A', 3, RC ) + IF ( RC /= GC_SUCCESS ) RETURN + State_Chm%SO3_AQ_A => NULL() + ENDIF + + IF ( ASSOCIATED( State_Chm%SO2_AQ_A ) ) THEN + DEALLOCATE( State_Chm%SO2_AQ_A, STAT=RC ) + CALL GC_CheckVar( 'State_Chm%SO2_AQ_A', 3, RC ) + IF ( RC /= GC_SUCCESS ) RETURN + State_Chm%SO2_AQ_A => NULL() + ENDIF IF ( ASSOCIATED( State_Chm%fupdateHOBr ) ) THEN DEALLOCATE( State_Chm%fupdateHOBr, STAT=RC ) @@ -4444,6 +4737,31 @@ SUBROUTINE Get_Metadata_State_Chm( am_I_Root, metadataID, Found, & IF ( isUnits ) Units = 'l' IF ( isRank ) Rank = 3 + CASE ( 'GAMMASO2TMI' ) + IF ( isDesc ) Desc = 'Sticking coefficient for Gamma SO2+TMI/O2' + IF ( isUnits ) Units = 'l' + IF ( isRank ) Rank = 3 + + CASE ( 'GAMMASO2O3' ) + IF ( isDesc ) Desc = 'Sticking coefficient for Gamma SO2+O3' + IF ( isUnits ) Units = 'l' + IF ( isRank ) Rank = 3 + + CASE ( 'GAMMASO2H2O2' ) + IF ( isDesc ) Desc = 'Sticking coefficient for Gamma SO2+H2O2' + IF ( isUnits ) Units = 'l' + IF ( isRank ) Rank = 3 + + CASE ( 'GAMMASO2NO2' ) + IF ( isDesc ) Desc = 'Sticking coefficient for Gamma SO2+NO2' + IF ( isUnits ) Units = 'l' + IF ( isRank ) Rank = 3 + + CASE ( 'GAMMASO2CH2O' ) + IF ( isDesc ) Desc = 'Sticking coefficient for Gamma SO2+CH2O' + IF ( isUnits ) Units = 'l' + IF ( isRank ) Rank = 3 + CASE ( 'KPPHVALUE' ) IF ( isDesc ) Desc = 'H-value for Rosenbrock solver' IF ( isUnits ) Units = '1' @@ -4542,6 +4860,18 @@ SUBROUTINE Get_Metadata_State_Chm( am_I_Root, metadataID, Found, & IF ( isUnits ) Units = 'mol L-1' IF ( isRank ) Rank = 3 + CASE( 'ISORROPIONIC' ) + IF ( isDesc ) Desc = & + 'ISORROPIA IONIC strength' + IF ( isUnits ) Units = 'mol L-1' ! check + IF ( isRank ) Rank = 3 + + CASE( 'ISORROPOH' ) + IF ( isDesc ) Desc = & + 'ISORROPIA hydroxide' + IF ( isUnits ) Units = 'mol L-1' ! check + IF ( isRank ) Rank = 3 + CASE( 'ISORROPHPLUSCOARSE' ) IF ( isDesc ) Desc = 'ISORROPIA H+ concentration, coarse mode' IF ( isUnits ) Units = 'mol L-1' @@ -4599,6 +4929,11 @@ SUBROUTINE Get_Metadata_State_Chm( am_I_Root, metadataID, Found, & IF ( isUnits ) Units = '1' IF ( isRank ) Rank = 3 + CASE( 'HPLUSCLOUD' ) + IF ( isDesc ) Desc = 'Cloud H+' + IF ( isUnits ) Units = '1' + IF ( isRank ) Rank = 3 + CASE( 'QLXPHCLOUD' ) IF ( isDesc ) Desc = 'Cloud pH * Met_QL' IF ( isUnits ) Units = '1' @@ -4634,6 +4969,41 @@ SUBROUTINE Get_Metadata_State_Chm( am_I_Root, metadataID, Found, & IF ( isUnits ) Units = 'mol L-1' IF ( isRank ) Rank = 3 + CASE ( 'HSO3_AQ_A' ) + IF ( isDesc ) Desc = 'Aerosol bisulfite concentration' + IF ( isUnits ) Units = 'mol L-1' + IF ( isRank ) Rank = 3 + + CASE ( 'SO3_AQ_A' ) + IF ( isDesc ) Desc = 'Aerosol sulfite concentration' + IF ( isUnits ) Units = 'mol L-1' + IF ( isRank ) Rank = 3 + + CASE ( 'SO2_AQ_A' ) + IF ( isDesc ) Desc = 'Aerosol SO2aq concentration' + IF ( isUnits ) Units = 'mol L-1' + IF ( isRank ) Rank = 3 + + CASE ( 'FEIII_A' ) + IF ( isDesc ) Desc = 'Aerosol FeIII concentration' + IF ( isUnits ) Units = 'mol L-1' + IF ( isRank ) Rank = 3 + + CASE ( 'MNII_A' ) + IF ( isDesc ) Desc = 'Aerosol MnII concentration' + IF ( isUnits ) Units = 'mol L-1' + IF ( isRank ) Rank = 3 + + CASE ( 'FEIII_AMAX' ) + IF ( isDesc ) Desc = 'Aerosol FeIII max concentration' + IF ( isUnits ) Units = 'mol L-1' + IF ( isRank ) Rank = 3 + + CASE ( 'MNII_AMAX' ) + IF ( isDesc ) Desc = 'Aerosol MnII max concentration' + IF ( isUnits ) Units = 'mol L-1' + IF ( isRank ) Rank = 3 + CASE ( 'FUPDATEHOBR' ) IF ( isDesc ) Desc = 'Correction factor for HOBr removal by SO2' IF ( isUnits ) Units = '1' @@ -5561,7 +5931,7 @@ SUBROUTINE Get_Diagnostic_Name( State_Chm, perSpc, N, name, & modelId = N IF ( PerSpc == 'DRY' ) modelId = State_Chm%Map_DryDep(N) IF ( PerSpc == 'WET' ) modelId = State_Chm%Map_WetDep(N) - + ! Point to the proper species, by modelId ThisSpc => State_Chm%SpcData(modelId)%Info diff --git a/KPP/custom/custom.eqn b/KPP/custom/custom.eqn index 94e99c44d..e5868ed80 100644 --- a/KPP/custom/custom.eqn +++ b/KPP/custom/custom.eqn @@ -11,7 +11,7 @@ GEOS-Chem KPP file containing species and equations for the full chemistry FILE HISTORY =============================================================================== -Version: 14.5.0 +Version: 14.8.0 Please see "CHANGELOG_fullchem.md" in this folder for the revision history of the fullchem mechanism. @@ -103,7 +103,8 @@ REFERENCES (alphabetical order) * Sherwen2017 : https://doi.org/10.1039/C7FD00026J * StClair2016 : https://doi.org/10.1021/acs.jpca.5b065322016 * Travis2016 : https://doi.org/10.5194/acp-16-13561-2016 -* Travis2024 : https://doi.org/10.5194/egusphere-2024-951 +* Travis2024 : https://doi.org/10.5194/acp-24-9555-2024 +* Travis2025 : https://doi.org/10.1021/acsestair.5c00136 * Wolfe2012 : https://doi.org/ 10.1039/C2CP40388A, 2012 * Xie2013 : https://doi.org/10.5194/acp-13-8439-2013 @@ -471,6 +472,9 @@ XYLE = IGNORE; {C8H10; Xylene} XRO2 = IGNORE; {Peroxy radical from XYLE oxidation} PH2SO4 = IGNORE; {SO4 from gas-phase chemistry} PSO4AQ = IGNORE; {SO4 from cloud chemistry} +PSO4MP = IGNORE; {SO4 from aerosol multiphase chemistry} +PHMSAQ = IGNORE; {HMS from cloud chemistry} +PHMSMP = IGNORE; {HMS from aerosol multiphase chemistry} ZRO2 = IGNORE; {Lumped RO2 from aromatics} #DEFFIX @@ -493,12 +497,12 @@ HNO3 + SALCAL = NITs : K_MT(6); // // Cloud // S(IV) --> S(VI) -SO2 + H2O2 = SO4 : K_CLD(1); -SO2 + O3 = SO4 : K_CLD(2); -SO2 {+O2} = SO4 : K_CLD(3); {Mn & Fe catalysis + HET_DROP_CHEM()} +SO2 + H2O2 = SO4 + PSO4AQ : K_CLD(1); +SO2 + O3 = SO4 + PSO4AQ : K_CLD(2); +SO2 {+O2} = SO4 + PSO4AQ : K_CLD(3); {Mn & Fe catalysis + HET_DROP_CHEM()} // // HMS -CH2O + SO2 = HMS : K_CLD(4); {Sep 2021; Moch2020; MSL} +CH2O + SO2 = HMS + PHMSAQ : K_CLD(4); {Sep 2021; Moch2020; MSL} HMS = SO2 + CH2O : K_CLD(5); {Sep 2021; Moch2020; MSL} HMS + OH + SO2 = 2SO4 + CH2O + 2PSO4AQ : K_CLD(6); {Sep 2021; Moch2020; MSL} // @@ -1792,6 +1796,14 @@ ITHN = IONITA : VOCuptk1stOrd( SR_MW(ind_ITHN), 5.0E-3_dp, State_ MCRHNB = IONITA : VOCuptk1stOrd( SR_MW(ind_MCRHNB), 5.0E-3_dp, State_Het ); {2019/11/06; Bates2019; KHB} MCRHN = IONITA : VOCuptk1stOrd( SR_MW(ind_MCRHN), 5.0E-3_dp, State_Het ); {2019/11/06; Bates2019; KHB} NPHEN = AONITA : VOCuptk1stOrd( SR_MW(ind_NPHEN), 1.0E-2_dp, State_Het ); {2021/09/29; Bates2021b; KHB,MSL} +SO2 + H2O2 = SO4 + PSO4MP : SO2uptkbyH2O2(State_Het); {2026/03/02; Travis2025; KRT} +SO2 + O3 = SO4 + PSO4MP : SO2uptkbyO3(State_Het); {2026/03/02; Travis2025; KRT} +SO2 {+O2} = SO4 + PSO4MP : SO2uptkbyTMIO2(State_Het); {2026/03/02; Travis2025; KRT} +SO2 + NO2 = SO4 + PSO4MP : SO2uptkbyNO2(State_Het); {2026/03/02; Travis2025; KRT} +SO2 + CH2O = HMS + PSO4MP : SO2uptkbyCH2O(State_Het); {2026/03/02; Travis2025; KRT} +HMS = SO2 + CH2O + PHMSMP : HMSDecomp(State_Het); {2026/03/02; Travis2025; KRT} +HMS + OH + SO2 = 2SO4 + CH2O + 2PSO4MP : HMSOxidation(State_Het); {2026/03/02; Travis2025; KRT} +// // // %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% // %%%%% Photolysis reactions %%%%% diff --git a/KPP/fullchem/CHANGELOG_fullchem.md b/KPP/fullchem/CHANGELOG_fullchem.md index 086efe3d6..ba1abcc87 100644 --- a/KPP/fullchem/CHANGELOG_fullchem.md +++ b/KPP/fullchem/CHANGELOG_fullchem.md @@ -3,6 +3,9 @@ This file documents all notable changes to the GEOS-Chem `fullchem` chemistry me The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/), and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0.html). # Mechanism history +## [Unreleased] - TBD +- Added PSO4MP to track multi-phase production of SO4 in aerosol per Travis et al., 2025 +- Added PHMSMP and PHMSAQ to differentiate HMS production from cloud and aerosol chemistry per Travis et al., 2025 ## [14.5.0] - TBD - Added four new species ALK4N1, ALK4N2, ALK4O2, and ALK4P to address issues in ALK4 and R4N2 chemistry following Brewer et al. (2023, JGR) diff --git a/KPP/fullchem/commonIncludeVars.H b/KPP/fullchem/commonIncludeVars.H index ea4dfc164..3e2ab56bd 100644 --- a/KPP/fullchem/commonIncludeVars.H +++ b/KPP/fullchem/commonIncludeVars.H @@ -147,9 +147,18 @@ REAL(dp) :: frac_HSO3_aq ! HSO3_aq / ( HSO3_aq + SO3_aq ) REAL(dp) :: frac_SALACL ! Frac of SALACL / total fine sea salt REAL(dp) :: frac_SO3_aq ! SO3_aq / ( HSO3_aq + SO3_aq ) + REAL(dp) :: FeIII_a ! FeIII in aerosol water + REAL(dp) :: MnII_a ! MnI in aerosol water REAL(dp) :: fupdateHOBr ! Correction factor - HOBr REAL(dp) :: fupdateHOCl ! Correction factor - HOCl - REAL(dp) :: gamma_HO2 ! Uptake probability for HO2 [1] + REAL(dp) :: gamma_HO2 ! Sticking coefficient for HO2 [1] + REAL(dp) :: gamma_SO2_TMI ! Sticking coefficient for SO2+TMI/O2 + REAL(dp) :: gamma_SO2_H2O2 ! Sticking coefficient for SO2+H2O2 + REAL(dp) :: gamma_SO2_O3 ! Sticking coefficient for SO2+O3 + REAL(dp) :: gamma_SO2_NO2 ! Sticking coefficient for SO2+NO2 + REAL(dp) :: gamma_SO2_CH2O ! Sticking coefficient for SO2+CH2O + REAL(dp) :: KaqHMS ! HMS back to CH2O + SO2 + REAL(dp) :: KaqHMS2 ! HMS to 2SO4 + CH2O REAL(dp) :: H2O ! H2O concentration REAL(dp) :: HBr_theta ! HBr theta for uptake on ice REAL(dp) :: HCl_theta ! HCl theta for uptake on ice @@ -158,13 +167,19 @@ REAL(dp) :: H_conc_SSA ! Liquid phase pH, fine sea salt REAL(dp) :: H_conc_SSC ! Liquid phase pH, coarse sea salt REAL(dp) :: H_conc_Sul ! Liquid phase pH, sulfate + REAL(dp) :: HEFF_a ! HEFF sulfate REAL(dp) :: HNO3_theta ! HNO3 theta for uptake on ice REAL(dp) :: HSO3_aq ! Cloud bisulfite (aka HSO3-) [mol/L] REAL(dp) :: SO3_aq ! Cloud sulfite (aka SO3--) [mol/L] + REAL(dp) :: HSO3_aq_a ! Aerosol bisulfite (aka HSO3-) [mol/L] + REAL(dp) :: SO3_aq_a ! Aerosol sulfite (aka SO3--) [mol/L] + REAL(dp) :: SO2_aq_a ! Aerosol so2 [mol/L] REAL(dp) :: HSO3m ! HSO3-/SO2 ratio [1] REAL(dp) :: SO3mm ! SO3--/SO2 ratio [1] REAL(dp) :: TSO3_aq ! Cloud sulfite + bisulfite [mol/L] REAL(dp) :: H_plus ! Proton activity [1] and H+ conc [M] + REAL(dp) :: SO2 ! SO2 conc + REAL(dp) :: IONIC ! Aerosol ionic strength REAL(dp) :: KHETI_SLA(11) ! Probs for PSC uptk rxns on SLA [1] REAL(dp) :: HSO4_molal ! Bisulfate concentration [M] REAL(dp) :: NO3_molal ! Nitrate concentration [M] @@ -180,6 +195,7 @@ REAL(dp) :: qLIq ! Water mixing ratio [kg/kg] REAL(dp) :: rIce ! Ice radius REAL(dp) :: rLiq ! Liquid radius + REAL(dp) :: speed ! Molecular speed for SO2 (cm s-1) REAL(dp) :: f_Acid_SSA ! Fraction of fine sea salt that is acidic REAL(dp) :: f_Acid_SSC ! Fraction of coarse sea salt that is acidic REAL(dp) :: f_Alk_SSA ! Fraction of fine sea salt that is alkaline diff --git a/KPP/fullchem/fullchem.eqn b/KPP/fullchem/fullchem.eqn index 4f3b0a307..3168b38e9 100644 --- a/KPP/fullchem/fullchem.eqn +++ b/KPP/fullchem/fullchem.eqn @@ -11,7 +11,7 @@ GEOS-Chem KPP file containing species and equations for the full chemistry FILE HISTORY =============================================================================== -Version: 14.5.0 +Version: 14.8.0 Please see "CHANGELOG_fullchem.md" in this folder for the revision history of the fullchem mechanism. @@ -103,7 +103,8 @@ REFERENCES (alphabetical order) * Sherwen2017 : https://doi.org/10.1039/C7FD00026J * StClair2016 : https://doi.org/10.1021/acs.jpca.5b065322016 * Travis2016 : https://doi.org/10.5194/acp-16-13561-2016 -* Travis2024 : https://doi.org/10.5194/egusphere-2024-951 +* Travis2024 : https://doi.org/10.5194/acp-24-9555-2024 +* Travis2025 : https://doi.org/10.1021/acsestair.5c00136 * Wolfe2012 : https://doi.org/ 10.1039/C2CP40388A, 2012 * Xie2013 : https://doi.org/10.5194/acp-13-8439-2013 @@ -471,6 +472,9 @@ XYLE = IGNORE; {C8H10; Xylene} XRO2 = IGNORE; {Peroxy radical from XYLE oxidation} PH2SO4 = IGNORE; {SO4 from gas-phase chemistry} PSO4AQ = IGNORE; {SO4 from cloud chemistry} +PSO4MP = IGNORE; {SO4 from aerosol multiphase chemistry} +PHMSAQ = IGNORE; {HMS from cloud chemistry} +PHMSMP = IGNORE; {HMS from aerosol multiphase chemistry} ZRO2 = IGNORE; {Lumped RO2 from aromatics} #DEFFIX @@ -493,12 +497,12 @@ HNO3 + SALCAL = NITs : K_MT(6); // // Cloud // S(IV) --> S(VI) -SO2 + H2O2 = SO4 : K_CLD(1); -SO2 + O3 = SO4 : K_CLD(2); -SO2 {+O2} = SO4 : K_CLD(3); {Mn & Fe catalysis + HET_DROP_CHEM()} +SO2 + H2O2 = SO4 + PSO4AQ : K_CLD(1); +SO2 + O3 = SO4 + PSO4AQ : K_CLD(2); +SO2 {+O2} = SO4 + PSO4AQ : K_CLD(3); {Mn & Fe catalysis + HET_DROP_CHEM()} // // HMS -CH2O + SO2 = HMS : K_CLD(4); {Sep 2021; Moch2020; MSL} +CH2O + SO2 = HMS + PHMSAQ : K_CLD(4); {Sep 2021; Moch2020; MSL} HMS = SO2 + CH2O : K_CLD(5); {Sep 2021; Moch2020; MSL} HMS + OH + SO2 = 2SO4 + CH2O + 2PSO4AQ : K_CLD(6); {Sep 2021; Moch2020; MSL} // @@ -1792,6 +1796,14 @@ ITHN = IONITA : VOCuptk1stOrd( SR_MW(ind_ITHN), 5.0E-3_dp, State_ MCRHNB = IONITA : VOCuptk1stOrd( SR_MW(ind_MCRHNB), 5.0E-3_dp, State_Het ); {2019/11/06; Bates2019; KHB} MCRHN = IONITA : VOCuptk1stOrd( SR_MW(ind_MCRHN), 5.0E-3_dp, State_Het ); {2019/11/06; Bates2019; KHB} NPHEN = AONITA : VOCuptk1stOrd( SR_MW(ind_NPHEN), 1.0E-2_dp, State_Het ); {2021/09/29; Bates2021b; KHB,MSL} +SO2 + H2O2 = SO4 + PSO4MP : SO2uptkbyH2O2(State_Het); {2026/03/02; Travis2025; KRT} +SO2 + O3 = SO4 + PSO4MP : SO2uptkbyO3(State_Het); {2026/03/02; Travis2025; KRT} +SO2 {+O2} = SO4 + PSO4MP : SO2uptkbyTMIO2(State_Het); {2026/03/02; Travis2025; KRT} +SO2 + NO2 = SO4 + PSO4MP : SO2uptkbyNO2(State_Het); {2026/03/02; Travis2025; KRT} +SO2 + CH2O = HMS + PSO4MP : SO2uptkbyCH2O(State_Het); {2026/03/02; Travis2025; KRT} +HMS = SO2 + CH2O + PHMSMP : HMSDecomp(State_Het); {2026/03/02; Travis2025; KRT} +HMS + OH + SO2 = 2SO4 + CH2O + 2PSO4MP : HMSOxidation(State_Het); {2026/03/02; Travis2025; KRT} +// // // %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% // %%%%% Photolysis reactions %%%%% diff --git a/KPP/fullchem/fullchem_HetStateFuncs.F90 b/KPP/fullchem/fullchem_HetStateFuncs.F90 index 1c95bf343..149236c48 100644 --- a/KPP/fullchem/fullchem_HetStateFuncs.F90 +++ b/KPP/fullchem/fullchem_HetStateFuncs.F90 @@ -16,6 +16,7 @@ MODULE fullchem_HetStateFuncs ! !USES: ! USE GcKpp_Precision + USE PhysConstants IMPLICIT NONE PRIVATE @@ -55,12 +56,15 @@ SUBROUTINE fullChem_SetStateHet( I, J, L, & USE ErrCode_Mod USE GcKpp_Global USE GcKpp_Parameters - USE PhysConstants, ONLY : AVO, PI + USE PhysConstants, ONLY : AVO, PI, AIRMW USE Input_Opt_Mod, ONLY : OptInput USE rateLawUtilFuncs USE State_Chm_Mod, ONLY : ChmState, Ind_ USE State_Met_Mod, ONLY : MetState - + USE Henry_Mod, ONLY : Calc_KH + USE Henry_Mod, ONLY : Calc_Heff + USE Species_Mod, ONLY : SpcConc + ! Species ID flags ! ! !INPUT PARAMETERS: @@ -91,7 +95,48 @@ SUBROUTINE fullChem_SetStateHet( I, J, L, & ! !LOCAL VARIABLES: ! INTEGER :: NA - + REAL(dp), PARAMETER :: R = 0.08205e+0_dp + INTEGER, PARAMETER :: SUL = 8 ! Tropospheric Sulfate! + REAL(dp) :: K0, TK + REAL(dp) :: FeIII, MnII + REAL(dp) :: XSO2aq_a, XSO3_a, XHSO3_a + REAL(dp) :: DUST, Mn_ant, Mn_nat + REAL(dp) :: Mn_tot, Mn_d, Fe_d + REAL(dp) :: Fe_ant, Fe_nat, Fe_tot + REAL(dp) :: Fe_d_ant, Fe_d_nat + REAL(dp) :: HSO3aq_a, SO3aq_a, Hplus_a, pH_a, ALWC + REAL(dp) :: SO2aq_a, FeIII_a, MnII_a, Mn_d_a, Fe_d_a + REAL(dp) :: Fe_d_ant_a, Fe_d_nat_a + REAL(dp) :: MACOEFF_SO2, MACOEFF_H2O2, MACOEFF_O3, MACOEFF_NO2 + REAL(dp) :: MACOEFF_CH2O + REAL(dp) :: val1NO2, val1O3, val1H2O2, val1TMI, val1CH2O + REAL(dp) :: val2NO2, val2O3, val2H2O2, val2TMI, val2CH2O + REAL(dp) :: val3NO2, val3O3, val3H2O2, val3TMI, val3CH2O + REAL(dp) :: kchemNO2, kchemO3, kchemH2O2, kchemTMI, kchemCH2O + REAL(dp) :: gammaO3, gammaH2O2, gammaNO2, gammaTMI, gammaCH2O + REAL(dp) :: Kw1, KHMS, KHMS2, dOH + REAL(dp) :: f_x, y, corr, x, xradi, l_r + REAL(dp) :: D_aSO2, D_aO3, D_aNO2, D_aCH2O + REAL(dp) :: HEFF, HEFF_H2O2, speed, M_SO2 + !REAL(dp) :: Eff_Fe, Eff_Mn, Eff_H2O2 + REAL(dp) :: pKa, CR, KH_NO2, KH_O3, KH_SO2, KH_H2O2 + REAL(dp) :: IONIC_a, IONIC_aMAX, IONIC_bMAX, IONIC_cMAX, IONIC_eMAX + REAL(dp) :: kH2O2,kH_CH2O, Khc1, kNO2, kTMI6, kTMI7 + REAL(dp) :: KO0, KO1, KO2, KspFeOH3, KspMnOH2 + REAL(dp) :: hydroxide, FeIII_max, MnII_max, SIV_a + REAL(dp) :: Ks1, Ks2, HCSO2_a + REAL(dp) :: XSO2g_a, PATM, SO2, CNVFAC, RHO,RHO_num, id_pFe + REAL(dp) :: ff, k9, k10,A, B, Beta, b1 + INTEGER :: id_NO2, id_O3, id_SO2, id_DSTbin1, id_DSTbin2, id_DSTbin3 + INTEGER :: id_DSTbin4, id_DSTbin5, id_DSTbin6, id_DSTbin7 + + ! Pointers + TYPE(SpcConc), POINTER :: Spc(:) + pH_a = State_Chm%AteAeropH(I,J,L,1) + Hplus_a = 10**(-1.0_dp * pH_a) + hydroxide = 10.0_fp**(-14.0_fp + pH_a) ! OH- concentration, M + KspFeOH3 = 2.6e-38_fp + KspMnOH2 = 1.6e-13_fp !======================================================================== ! Populate fields of the HetState object in gckpp_Global !======================================================================== @@ -99,10 +144,22 @@ SUBROUTINE fullChem_SetStateHet( I, J, L, & ! Initialization RC = GC_SUCCESS NA = State_Chm%nAeroType - + Spc => State_Chm%Species + RHO = State_Met%AIRDEN(I,J,L) + RHO_num = State_Met%AIRNUMDEN(I,J,L) + CNVFAC = 1.E3_fp * AIRMW / ( RHO * AVO ) !mcl/cm3->v/v !======================================================================== ! Populate fields of the HetState object in gckpp_Global !======================================================================== + id_SO2 = Ind_( 'SO2' ) + id_DSTbin1 = Ind_( 'DSTbin1' ) + id_DSTbin2 = Ind_( 'DSTbin2' ) + id_DSTbin3 = Ind_( 'DSTbin3' ) + id_DSTbin4 = Ind_( 'DSTbin4' ) + id_DSTbin1 = Ind_( 'DSTbin5' ) + id_DSTbin2 = Ind_( 'DSTbin6' ) + id_DSTbin3 = Ind_( 'DSTbin7' ) + id_pFe = Ind_( 'pFe' ) ! Identify a box for debug printout within rate-law functions debugBox = .FALSE. @@ -123,7 +180,8 @@ SUBROUTINE fullChem_SetStateHet( I, J, L, & H%aClArea = State_Chm%aClArea(I,J,L) H%aClRadi = State_Chm%aClRadi(I,J,L) H%aClVol = H%aClArea * H%aClRadi / 3.0_dp - H%AWATER(:) = State_Chm%IsorropAeroH2O(I,J,L,:) + H%AWATER(:) = State_Chm%AteAeroH2O(I,J,L,:) + H%IONIC = State_Chm%AteIONIC(I,J,L) H%xArea(1:NA) = State_Chm%AeroArea(I,J,L,1:NA) H%xRadi(1:NA) = State_Chm%AeroRadi(I,J,L,1:NA) H%xVol(1:NA) = H%xArea(1:NA) * H%xRadi(1:NA) / 3.0_dp @@ -140,14 +198,14 @@ SUBROUTINE fullChem_SetStateHet( I, J, L, & H%frac_SO3_aq = SafeDiv( H%SO3_aq, H%TSO3_aq, 0.0_dp ) ! Concentrations from ISORROPIA/HETP - H%HSO4_molal = State_Chm%IsorropBisulfate(I,J,L) - H%NO3_molal = State_Chm%IsorropNitrate(I,J,L,1) - H%SO4_molal = State_Chm%IsorropSulfate(I,J,L) + H%HSO4_molal = State_Chm%AteBisulfate(I,J,L) + H%NO3_molal = State_Chm%AteNitrate(I,J,L,1) + H%SO4_molal = State_Chm%AteSulfate(I,J,L) ! pH and alkalinity fields - H%H_plus = State_Chm%IsorropHplus(I,J,L,1) + !H%H_plus = State_Chm%AteHplus(I,J,L,1) H%pHCloud = State_Chm%pHCloud(I,J,L) - H%pHSSA(:) = State_Chm%IsorropAeropH(I,J,L,:) + H%pHSSA(:) = State_Chm%AteAeropH(I,J,L,:) H%H_conc_Sul = 10.0**( -1.0_dp * H%pHSSA(1) ) H%H_conc_LCl = 10.0**( -1.0_dp * H%pHCloud ) H%H_conc_ICl = 10.0**( -4.5_dp ) @@ -168,13 +226,455 @@ SUBROUTINE fullChem_SetStateHet( I, J, L, & H%SSC_is_Alk = ( ABS( H%f_Alk_SSC ) > 0.01_dp ) H%SSC_is_Acid = ( .not. H%SSC_is_Alk ) + ! Aerosol fields: HSO3 and SO3 concentrations in aerosol [mol/L] + H%HSO3_aq_a = State_Chm%HSO3_aq_a(I,J,L) + H%SO3_aq_a = State_Chm%SO3_aq_a(I,J,L) + H%SO2_aq_a = State_Chm%SO2_aq_a(I,J,L) + + H%SO2 = C(ind_SO2)*CNVFAC + ! Other fields H%gamma_HO2 = Input_Opt%gamma_HO2 + ! Get Henry's law parameters + K0 = HENRY_K0(ind_SO2)!SpcInfo%Henry_K0 + CR = HENRY_CR(ind_SO2)!SpcInfo%Henry_CR + pKa = 1.81_dp + TK = State_Met%T(I,J,L) + + ! Calculate the Henry's law constant + ! CALL CALC_KH( K0, CR, TK, K0, RC ) + + ! Calculate effective Henry's law constant, corrected for pH + ! (for those species that have a defined pKa value) + ! CALL CALC_HEFF( pKa, H%pHSSA(1), K0, HEFF, RC ) + ! H%HEFF_a = HEFF + Ks1 = 1.30e-2_dp * EXP( 6.75e+0_dp * ( 298.15e+0_dp / TK - 1.e+0_dp ) ) + Ks2 = 6.31e-8_dp * EXP( 5.05e+0_dp * ( 298.15e+0_dp / TK - 1.e+0_dp ) ) + + ! Henry's constant [mol/l-atm] and Effective Henry's constant for SO2 + HCSO2_a = 1.22e+0_dp * EXP( 10.55e+0_dp * ( 298.15e+0_dp / Tk - 1.e+0_dp) ) + H%HEFF_a = HCSO2_a * (1.e+0_dp + (Ks1/Hplus_a) + (Ks1*Ks2 / (Hplus_a*Hplus_a))) + + !=============================================================== + ! Do sulfur fraction for aerosols (krt, 1/11/24) + !================================================================= + PATM = State_Met%PMID_DRY( I, J, L ) / ( ATM * 1.e-2_dp ) ! Press, dry [atm] + ! SIV Fraction for aerosols + XSO2aq_a = 1.e+0_dp/(1.e+0_dp + Ks1/Hplus_a + Ks1*Ks2/(Hplus_a*Hplus_a)) + XHSO3_a = 1.e+0_dp/(1.e+0_dp + Hplus_a/Ks1 + Ks2/Hplus_a) + XSO3_a = 1.e+0_dp/(1.e+0_dp + Hplus_a/Ks2 + Hplus_a*Hplus_a/(Ks1*Ks2)) + + ! For aerosols (krt) + ALWC = State_Chm%AteAeroH2O(I,J,L,1) ! ug/m3 air + ! convert ALWC from ug/m3 to m3/m3 + ALWC = ALWC * 1e-9_dp * 1e-3_dp + + ! QL can sometimes be negative, so force LWC to be positive + ALWC = MAX( 0.0_dp, ALWC ) + + XSO2g_a = 1.e+0_dp / ( 1.e+0_dp + ( H%HEFF_a * R * Tk * ALWC ) ) + SIV_a = H%HEFF_a * XSO2g_a * H%SO2 * PATM + + ! Effective HSO3aq + HSO3aq_a = SIV_a * XHSO3_a ! unit: M (qjc, 06/10/16) + + ! Effective SO3aq for HOBr+SO3 + SO3aq_a = SIV_a * XSO3_a ! unit: M (qjc, 06/10/16) + + SO2aq_a = SIV_a * XSO2aq_a + ! == Calculate gamma for uptake of SO2 to Sulfate and organic aerosol ==== + MACOEFF_SO2 = 0.11_dp + MACOEFF_NO2 = 2e-4_dp + MACOEFF_O3 = 2e-3_dp + MACOEFF_H2O2 = 0.11_dp + MACOEFF_CH2O = 0.04_dp + ! Ionic strength from HETP (M) + IONIC_a = State_Chm%AteIONIC(I,J,L) + ! Molecular speed + M_SO2 = State_Chm%SpcData(id_SO2)%Info%MW_g * 1.0e-3_dp + speed = ( SQRT( EIGHT_RSTARG_T / ( PI * M_SO2 ) ))*100.0_dp + ! Aqueous phase diffusion + D_aSO2 = 1.32e-5_dp + D_aO3 = 1.10e-2_dp*exp(-1896_dp/Tk) + D_aNO2 = 2.0e-5_dp + D_aCH2O = 1.52e-6_dp ! no idea + + ! Get FeIII + FeIII_a = 0.0 + FeIII_Max = 0.0 + MnII_a = 0.0 + MnII_Max = 0.0 + ! Metal catalyzed oxidation of SO2 pathway + !-------------------------------------------------------- + ! Get dust concentrations [MND -> ng/m3] + ! Get the MW_g from DSTbin1, all dust bins have the same MW + DUST = ( Spc(id_DSTbin1)%Conc(I,J,L) + & + Spc(id_DSTbin2)%Conc(I,J,L) + & + Spc(id_DSTbin3)%Conc(I,J,L) + & + Spc(id_DSTbin4)%Conc(I,J,L) + & + Spc(id_DSTbin5)%Conc(I,J,L) + & + Spc(id_DSTbin6)%Conc(I,J,L) + & + Spc(id_DSTbin7)%Conc(I,J,L) ) & + * 1.e+15_dp & + * State_Chm%SpcData(id_DSTbin1)%Info%MW_g & + / AVO + + ! Calculate Fe and Mn natural [ng m-3] + ! Assume that Fe is 3.5% of total dust mass based on + ! Taylor and McLennan [1985] + Fe_nat = DUST * 35e-3_dp + ! and Mn is 50 times less than Fe based on Desbouefs et al.[2005] + !Mn_nat = Fe_nat / 50e+0_dp + ! Use Cai et al + Mn_nat = DUST * 3E-3_dp + + ! Anthropogenic Fe concentrations [mcl/cm3 -> ng/m3] + Fe_ant = Spc(id_pFe)%Conc(I,J,L) * CNVFAC * & + 1.e+12_dp * State_Met%AD(I,J,L) & + / ( AIRMW / State_Chm%SpcData(id_pFe)%Info%MW_g ) & + / State_Met%AIRVOL(I,J,L) + ! Fe_ant = Spc(id_pFe)%Conc(I,J,L) * 1.e+15_fp * & + ! State_Chm%SpcData(id_DST1)%Info%MW_g / AVO + + ! Calculate Mn anthropogenic [ng m-3] + ! assume anthropogenic Mn is 1/30 times anthropogenic Fe + Mn_ant = Fe_ant / 10e+0_dp + + ! Calculate total Mn and Fe [ng m-3] + Mn_tot = Mn_ant + Mn_nat + Fe_tot = Fe_ant + Fe_nat + + ! Convert Mn and Fe [ng m-3] to [mole l-1] + ! Below I guess we are making the assumption that we wont have LWC and ALWC at the same time in one grid box? + ! Are the aerosols scavenged before this occurs? Are we double counting? + !krt, for aerosols + + Mn_d_a = 0e+0_dp + IF (ALWC > 0e+0_dp) THEN + ! Units: ng/m3 * (g/ng) / (g/mol) / (m3 H2O / m3 air) * (m3/L) + ! max possible dissolved Mn + MnII_max = Mn_tot * 1.0e-9_dp / 54.94e+0_dp / ALWC * 1.0e-3_dp + MnII_max = MnII_max *0.5e+0_fp ! Maximum fractional solubility + + Mn_d_a = KspMnOH2/(hydroxide**2.0_dp) + ! can't have more dissolved Mn than available in gas phase + Mn_d_a = MIN(Mn_d_a, MnII_max) ! can't have more dissolved Mn than available in gas phase + + ENDIF + + ! Solubility of Fe is 10% for anthropogenic, and 1% for dust + Fe_d_a = 0e+0_fp + IF ( ALWC > 0e+0_fp ) THEN + Fe_d_ant_a = Fe_ant * 1e-9_fp / & + State_Chm%SpcData(id_pFe)%Info%MW_g / & + ALWC * 1.0e-3_fp + Fe_d_nat_a = Fe_nat * 1.0e-9_fp / & + State_Chm%SpcData(id_pFe)%Info%MW_g / & + ALWC * 1.0e-3_fp + ! currently not sure how to account for different + ! solubility between anthropogenic and natural + ! Max possible solubility + FeIII_Max = Fe_d_ant_a*0.1e+0_fp + Fe_d_nat_a*0.1e+0_fp + + IF ( State_Met%SUNCOS(I,J) > 0e+0_fp ) THEN + ! Assume 10% of dissolved Fe is in Fe(III) + !oxidation state during the daytime + FeIII_Max = FeIII_Max * 0.1e+0_fp + ELSE + ! Assume 90% of dissolved Fe is in Fe(III) + ! oxidation state during the nighttime + FeIII_Max = FeIII_Max * 0.9e+0_fp + ENDIF + + Fe_d_a = KspFeOH3/(hydroxide**3.0_fp) + Fe_d_a = MIN(Fe_d_a, FeIII_Max) + ENDIF + + ! Assume that dissolved Mn is in Mn(II) oxidation state all of + ! the time + MnII = Mn_d + MnII_a = Mn_d_a + FeIII_a = Fe_d_a + + ! Add to diagnostic + State_Chm%FeIII_A(I,J,L) = FeIII_a + State_Chm%MnII_A(I,J,L) = MnII_a + State_Chm%FeIII_AMAX(I,J,L) = FeIII_Max + State_Chm%MnII_AMAX(I,J,L) = MnII_Max + H%FeIII_a = State_Chm%FEIII_A(I,J,L) + H%MnII_a = State_Chm%MNII_A(I,J,L) + + ! ==== TMI/O2 ==== + ! First order in SO2 + val1TMI = ( 1.0_dp / MACOEFF_SO2 ) + + !IF (IONIC_a .gt. 2.0e+0_fp ) THEN + ! IONIC_aMAX = 2.0e+0_fp + !ENDIF + IONIC_aMAX = IONIC_a + IF (IONIC_a .gt. 1.0e+0_fp ) THEN + IONIC_aMAX = 1.0e+0_fp + ENDIF + + ! Ionic strenght correction + !Eff_Mn = 10.0_dp**(-4.0_dp*(SQRT(IONIC_aMAX)/(1.0_dp+SQRT(IONIC_aMAX)))) + !Eff_Fe = 10.0_dp**(-4.0_dp*(SQRT(IONIC_aMAX)/(1.0_dp+SQRT(IONIC_aMAX)))) + + ff = 10.0_dp**(-4.0_dp*(SQRT(IONIC_aMAX)/(1.0_dp+SQRT(IONIC_aMAX)))) + + kTMI6 = 3.72e+7_dp*exp(-8431.6_dp*(1.0e+0_dp/Tk - 1.0e+0_dp/297.0_dp)) ! M-2 s-1 + kTMI7 = 2.51e+13_dp* exp(-8431.6_dp*(1.0e+0_dp/Tk - 1.0e+0_dp/297.0_dp)) + + !IF ( pH_a .le. 4.2_dp ) THEN + ! kchemTMI = kTMI6*Hplus_a**(-0.74_dp)* & + ! (MnII_a*FeIII_a*Eff_Fe*Eff_Mn) + !ELSE + ! kchemTMI = kTMI7*Hplus_a**(0.67_dp)* & + ! (MnII_a*FeIII_a*Eff_Fe*Eff_Mn) + !ENDIF + IF ( pH_a .le. 4.2_dp ) THEN + kchemTMI = kTMI6*Hplus_a**(-0.74_dp)*(MnII_a*FeIII_a) + ELSE + kchemTMI = kTMI7*Hplus_a**(0.67_dp)*(MnII_a*FeIII_a) + ENDIF + + ! IONIC strength impact + kchemTMI = kchemTMI * ff + + M_SO2 = State_Chm%SpcData(id_SO2)%Info%MW_g * 1.0e-3_dp + + ! Get Henry's law parameters + ! No idea why this is not working so hard coding... + K0 = 1.22_dp! HENRY_K0(ind_SO2)!SpcInfo%Henry_K0 + CR = 3100.0_dp!HENRY_CR(ind_SO2)!SpcInfo%Henry_CR + pKa = 1.81_dp + D_aSO2 = 1.32e-5_dp + + !CALL CALC_KH( K0, CR, TK, K0, RC ) + !CALL CALC_HEFF( pKa, pH_a, K0, HEFF, RC ) + + Ks1 = 1.30e-2_fp * EXP( 6.75e+0_fp * ( 298.15e+0_fp / TK - 1.e+0_fp ) ) + Ks2 = 6.31e-8_fp * EXP( 5.05e+0_fp * ( 298.15e+0_fp / TK - 1.e+0_fp ) ) + + ! Henry's constant [mol/l-atm] and Effective Henry's constant for SO2 + HCSO2_a = 1.22e+0_fp * EXP( 10.55e+0_fp * ( 298.15e+0_fp / TK - 1.e+0_fp) ) + HEFF = HCSO2_a * (1.e+0_fp + (Ks1/Hplus_a) + (Ks1*Ks2 / (Hplus_a*Hplus_a))) + + val2TMI = speed/((FOUR_RGASLATM_T * HEFF)*SQRT(D_aSO2*kchemTMI)) + + l_r = SQRT(D_aSO2/kchemTMI) + xRadi = State_Chm%AeroRadi(I,J,L,SUL) + val3TMI = ReactoDiff_Corr(xRadi, l_r) + + gammaTMI = 1.0_dp/(val1TMI + val2TMI*1/val3TMI) ! Uptake by various aerosol types + + ! ===== H2O2 ===== + IONIC_eMAX = IONIC_a + IF (IONIC_eMAX .gt. 5.0e+0_fp ) THEN + IONIC_eMAX = 5.0e+0_fp + ENDIF + + ! First order in SO2 + val1H2O2 = (1.0e+0_dp / MACOEFF_SO2) + + kH2O2 = 7.45e+7_dp *exp(-4430_dp*(1.0_dp/Tk - 1.0_dp/298.0_dp)) + kchemH2O2 =(kH2O2*Hplus_a*HSO3aq_a)/(1.0_dp+13.0_dp*Hplus_a) + + ! IONIC strength impact (Cai et al., 2024) + A = 0.509_dp + B = 0.17_dp + Beta = 0.18_dp + ff = 10.0_dp**(-(2.0_dp*A*sqrt(IONIC_eMAX))/(1+B*sqrt(IONIC_eMAX)) + 2.0_dp*Beta*IONIC_eMAX) + kchemH2O2 = kchemH2O2 * ff + + l_r = SQRT(D_aSO2/kchemH2O2) + xRadi = State_Chm%AeroRadi(I,J,L,SUL) + + val3H2O2 = ReactoDiff_Corr(xRadi, l_r) + + ! Calculate the Henry's law constant + K0 = 8.3e+4_dp! HENRY_K0(ind_H2O2)!SpcInfo%Henry_K0 + CR = 7400.0_dp!HENRY_CR(ind_H2O2)!SpcInfo%Henry_CR + pKa = 11.75_dp + CALL CALC_KH( K0, CR, TK, KH_H2O2, RC ) + ! Calculate effective Henry's law constant, corrected for pH + ! (for those species that have a defined pKa value) + CALL CALC_HEFF( pKa, pH_a, KH_H2O2, HEFF_H2O2, RC ) + + ! Calculate the second uptake parameterization term: + val2H2O2 = speed/((FOUR_RGASLATM_T * HEFF_H2O2)*SQRT(D_aSO2*kchemH2O2)) + gammaH2O2 = 1.0_dp/(val1H2O2 + val2H2O2*1/val3H2O2) ! Uptake by various aerosol ty + + ! ==== O3 ==== + IONIC_cMAX = IONIC_a + IF (IONIC_cMAX .gt. 1.2e+0_fp ) THEN + IONIC_cMAX = 1.2e+0_fp + ENDIF + + ! First order in O3 + val1O3 = ( 1.0e+0_dp / MACOEFF_O3 ) + + K0 = 0.0101325e+0_dp!SpcInfo%Henry_K0 + CR = 2800e+0_dp !SpcInfo%Henry_CR + + CALL CALC_KH( K0, CR, TK, KH_O3, RC ) + + KO0 = 2.40e+4_dp + kO1 = 3.49e+12_dp * EXP( -4.83e+3_dp / Tk ) + kO2 = 7.32e+14_dp * EXP( -4.03e+3_dp / Tk ) + + kchemO3 = KO0*SO2aq_a + KO1*HSO3aq_a + KO2*SO3aq_a + ! IONIC strength impact (Cai et al., 2024) + b1 = 1.94_dp + ff = 1.0_dp + b1 * IONIC_cMAX + kchemO3 = kchemO3 * ff + + val2O3 = speed/((FOUR_RGASLATM_T * KH_O3)*SQRT(D_aO3*kchemO3)) + + l_r = SQRT(D_aO3/kchemO3) + + xRadi = State_Chm%AeroRadi(I,J,L,SUL) + + val3O3 = ReactoDiff_Corr(xRadi, l_r) + + gammaO3 = 1.0_dp/(val1O3 + val2O3*1/val3O3) ! Uptake by various aerosol ty + + ! ==== NO2 ==== + ! First order in NO2 + val1NO2 = (1.0e+0_dp / MACOEFF_NO2) + + K0 = 0.012159e+0_dp!SpcInfo%Henry_K0 + CR = 2400e+0_dp !SpcInfo%Henry_CR + + CALL CALC_KH( K0, CR, TK, KH_NO2, RC ) + + kNO2 = 0.0_dp + IF ( pH_a .lt. 5.0_dp ) THEN + kNO2 = 2.0e+6_dp + ELSE IF (pH_a .gt. 5.8_dp ) THEN + kNO2 = 1.67e+7_dp + ELSE + ! linearly interpolate + kNO2 = 2.0E+6_dp + (pH_a - 5.0_dp) * & + (1.67E+7_dp-2.0E+6_dp)/(5.8_dp-5.0_dp) + ENDIF + + kchemNO2 =(kNO2*SIV_a) + + l_r = SQRT(D_aNO2/kchemNO2) + + xRadi = State_Chm%AeroRadi(I,J,L,SUL) + + val3NO2 = ReactoDiff_Corr(xRadi, l_r) + + val2NO2 = speed/((FOUR_RGASLATM_T * KH_NO2)*SQRT(D_aNO2*kchemNO2)) + + gammaNO2 = 1.0_dp/(val1NO2 + val2NO2*1/val3NO2) ! Uptake by various aerosol ty + + ! ==== CH2O ==== + ! First order in CH2O + IONIC_bMAX = IONIC_a + IF (IONIC_bMAX .gt. 16.0e+0_fp ) THEN + IONIC_bMAX = 16.0e+0_fp + ENDIF + + val1CH2O = ( 1.0e+0_dp / MACOEFF_CH2O ) + + !K0 = 3.24e+3_dp!SpcInfo%Henry_K0 + !CR = 6800.0e+0_dp !SpcInfo%Henry_CR + !CALL CALC_KH( K0, CR, TK, KH_CH2O, RC ) + + ! I was using too high a value, not considering that most HCHO is the diol + KH_CH2O = 2.5e+0_fp * EXP( 21.6e+0_fp & + * (298.15e+0_fp / Tk - 1.e+0_fp) ) + + !================================================================= + ! Ratio of methanediol to aqeuous HCHO if I want to include this chemistry + ! HCHO equilibrium reaction + ! HCHO(aq) + H2O = HCH(OH)2 + ! + ! Reaction rate dependent on Temperature is given + ! H = A exp ( B (T./T - 1) ) + ! + ! For equilibrium reactions of HCHO + ! Ah1 Bh1 + ! Sienfeld and Pandis 2.53E3 13.48 [2016] + ! + ! (jmm, 06/15/18) + !================================================================= + Khc1 = 2.53e+3_fp * EXP( 13.48e+0_fp & + * ( 298.15e+0_fp / Tk - 1.e+0_fp ) ) + + ! not sure where I got this from! + ! Initial rates are from Cai et al. But T dependence? + k9 = 7.9e+2_dp * EXP( -4.9e+3_dp / Tk ) ! M/s + k10 = 2.5e+7_dp * EXP( -1.8e+3_dp / Tk ) ! M/s + ! Now taken from HMS implementation in fullchem_SulfurChemFuncs.F90 + !k9 = 7.9e+2_fp * EXP( -16.44e+0_fp & ! L/mol/s + ! * ( 298.15e+0_fp / Tk - 1.e+0_fp ) ) + !k10 = 2.5e+7_fp * EXP( -6.04e+0_fp & ! L/mol/s + ! * ( 298.15e+0_fp / Tk - 1.e+0_fp ) ) + + kchemCH2O = k9*HSO3aq_a + k10*SO3aq_a + ! IONIC strength impact (Cai et al., 2024) + A = 0.509_dp + B = 0.17_dp + Beta = 0.18_dp + ff = 10.0_dp**(-(2.0_dp*A*sqrt(IONIC_bMAX))/ & + (1.0_dp+B*sqrt(IONIC_bMAX)) + 2.0_dp*Beta*IONIC_bMAX) + kchemCH2O = kchemCH2O * ff + + val2CH2O = speed/((FOUR_RGASLATM_T * KH_CH2O)*SQRT(D_aCH2O*kchemCH2O)) + + l_r = SQRT(D_aCH2O/kchemCH2O) + + xRadi = State_Chm%AeroRadi(I,J,L,SUL) + + val3CH2O = ReactoDiff_Corr(xRadi, l_r) + + gammaCH2O = 1.0_dp/(val1CH2O + val2CH2O*1/val3CH2O) ! Uptake by various aerosol ty + + ! Now do rate for HMS decomposition back to SO2 + CH2O + Kw1 = 1e-14_fp * EXP( -22.51e+0_fp & + * ( 298.15e+0_fp / Tk - 1.e+0_fp ) ) + + ! Conversion rate from HMS to SO2 via reaction with OH- + ! (jmm, 06/15/18; MSL 1/18/22) + KHMS = 3.6e+3_fp * EXP( -15.09e+0_fp & ! L/mol/s + * ( 298.15e+0_fp / Tk - 1.e+0_fp ) ) + H%KaqHMS = KHMS * ( Kw1 / Hplus_a ) ! unit is allegedly [s-1] + + ! Now do rate of HMS + OH --> 2SO4 + CH2O - SO2 + KHMS2 = 2.65e+8_fp * EXP( -5.03e+0_fp & ! L/mol/s + * ( 298.15e+0_fp / Tk - 1.e+0_fp ) ) + + dOH = hydroxide/RHO_num ! M cm3 molec -1 + H%KaqHMS2 = KHMS2 * dOH ! [cm3/molec/s] + + IF ( RELHUM >= 50.0_dp ) THEN + State_Chm%GammaSO2(I,J,L,1) = gammaTMI ! TMI + State_Chm%GammaSO2(I,J,L,2) = gammaO3 ! O3 + State_Chm%GammaSO2(I,J,L,3) = gammaH2O2 ! H2O2 + State_Chm%GammaSO2(I,J,L,4) = gammaNO2 ! NO2 + State_Chm%GammaSO2(I,J,L,5) = gammaCH2O ! CH2O + ENDIF + + H%gamma_SO2_TMI = gammaTMI + H%gamma_SO2_O3 = gammaO3 + H%gamma_SO2_H2O2 = gammaH2O2 + H%gamma_SO2_NO2 = gammaNO2 + H%gamma_SO2_CH2O = gammaCH2O + ! =========================================================== + ! Correction factors for HOBr and HOCl removal by SO2 [1] H%fupdateHOBr = State_Chm%fupdateHOBr(I,J,L) H%fupdateHOCl = State_Chm%fupdateHOCl(I,J,L) + ! ! mean molecular speed [cm s-1] + ! sqrt( 8RT / (pi M) ) M_SO2 = MW(ind_SO2) * 1.0e-3_dp + H%speed = ( SQRT( EIGHT_RSTARG_T / ( H%PI * M_SO2 ) )) *100.0_dp + ! Aqueous S(IV) in cloudwater ! ! -- This is the ratio of HSO3-/SO2, both in units of molec/cm3. diff --git a/KPP/fullchem/fullchem_RateLawFuncs.F90 b/KPP/fullchem/fullchem_RateLawFuncs.F90 index 246289eee..712dc310c 100644 --- a/KPP/fullchem/fullchem_RateLawFuncs.F90 +++ b/KPP/fullchem/fullchem_RateLawFuncs.F90 @@ -60,6 +60,8 @@ MODULE fullchem_RateLawFuncs ! Critical RH [%] for uptake of GLYX, MGLYX, and GLYC: REAL(dp), PRIVATE, PARAMETER :: CRITRH = 35.0_dp + ! Critical RH [%] for uptake of SO2: + REAL(dp), PRIVATE, PARAMETER :: CRITRH2 = 50.0_dp ! Conversion factor from atm to bar REAL(dp), PRIVATE, PARAMETER :: CON_ATM_BAR = 1.0_dp / 1.01325_dp @@ -1169,6 +1171,157 @@ SUBROUTINE Gam_ClNO3_Ice( H, gamma, brHCl, brHBr, brH2O ) brH2O = g3 / gamma END SUBROUTINE Gam_ClNO3_Ice + FUNCTION HMSDecomp( H ) RESULT(k) + ! Computes the reaction rate [1/s] for HMS decomposition + TYPE(HetState), INTENT(IN) :: H ! HetChem State + REAL(dp) :: k + k = H%KaqHMS + END FUNCTION HMSDecomp + + FUNCTION HMSOxidation( H ) RESULT(k) + ! Computes the reaction rate [1/s] for HMS oxidation + TYPE(HetState), INTENT(IN) :: H ! HetChem State + REAL(dp) :: k + k = H%KaqHMS2 + END FUNCTION HMSOxidation + + FUNCTION SO2uptkbyTMIO2( H ) RESULT (k) + ! + ! Computes the reaction rate [1/s] for 1st order uptake of SO2 and rx with TMI/O2. + ! + TYPE(HetState), INTENT(IN) :: H ! HetChem State + REAL(dp) :: srMw, k, k_ex1 ! sqrt(mol wt), rxn rate [1/s] + REAL(dp) :: gammaKT + + ! + ! Initialize + k = 0.0_dp + gammaKT = 0.0_dp + k_ex1 = 0.0_dp + + srMw = SR_MW(ind_SO2) + ! Uptake by tropospheric sulfate + IF ( RELHUM >= CRITRH2 ) THEN + + gammaKT = H%gamma_SO2_TMI + + k_ex1 = k_ex1 + Ars_L1k( H%xArea(SUL), H%xRadi(SUL), gammaKT, srMw ) + k = k_ex1 + Ars_L1k( H%xArea(ORC), H%xRadi(ORC), gammaKT, srMw ) + + ENDIF + + END FUNCTION SO2uptkbyTMIO2 + + FUNCTION SO2uptkbyH2O2( H) RESULT ( k ) + ! + ! Computes the hydrolysis reaction rate [1/s] of ClNO3 + H2O. + ! + TYPE(HetState), INTENT(IN) :: H ! Hetchem State + REAL(dp) :: k ! Rxn rate [1/s] + ! + + REAL(dp) :: gammaKT, srMw, k_ex1 + + + ! Initialize + k = 0.0_dp + gammaKT = 0.0_dp + k_ex1 = 0.0_dp + + srMw = SR_MW(ind_SO2) + + ! Uptake by tropospheric sulfate + IF ( RELHUM .ge. CRITRH2 ) THEN + + gammaKT = H%gamma_SO2_H2O2 + k_ex1 = k_ex1 + Ars_L1k( H%xArea(SUL), H%xRadi(SUL), gammaKT, srMw ) + k_ex1 = k_ex1 + Ars_L1k( H%xArea(ORC), H%xRadi(ORC), gammaKT, srMw ) + + ! Assume H2O2 is limiting, so recompute reaction rate accordingly + k = kIIR1Ltd( C(ind_H2O2), C(ind_SO2), k_ex1 ) + + ENDIF + + END FUNCTION SO2uptkbyH2O2 + + FUNCTION SO2uptkbyNO2( H) RESULT ( k ) + ! + ! + TYPE(HetState), INTENT(IN) :: H ! Hetchem State + REAL(dp) :: k ! Rxn rate [1/s] + ! + + REAL(dp) :: gammaKT, srMw, k_ex1 + + ! Initialize + k = 0.0_dp + gammaKT = 0.0_dp + k_ex1 = 0.0_dp + + srMw = SR_MW(ind_SO2) + + ! Uptake by tropospheric sulfate + IF ( RELHUM >= CRITRH2 ) THEN + gammaKT = H%gamma_SO2_NO2 + k_ex1 = k_ex1 + Ars_L1k( H%xArea(SUL), H%xRadi(SUL), gammaKT, srMw ) + k_ex1 = k_ex1 + Ars_L1k( H%xArea(ORC), H%xRadi(ORC), gammaKT, srMw ) + + ! Assume NO2 is limiting, so recompute reaction rate accordingly + k = kIIR1Ltd( C(ind_NO2), C(ind_SO2), k_ex1 ) + + ENDIF + END FUNCTION SO2uptkbyNO2 + + FUNCTION SO2uptkbyO3( H ) RESULT (k) + ! + ! Computes the reaction rate [1/s] for 1st order uptake of SO2 and rx with O3. + ! + TYPE(HetState), INTENT(IN) :: H ! HetChem State + REAL(dp) :: srMw, k, k_ex1 ! sqrt(mol wt), rxn rate [1/s] + REAL(dp) :: gammaKT + ! + ! Initialize + k = 0.0_dp + gammaKT = 0.0_dp + k_ex1 = 0.0_dp + + srMw = SR_MW(ind_SO2) + + ! Uptake by tropospheric sulfate + IF ( RELHUM >= CRITRH2 ) THEN + + gammaKT = H%gamma_SO2_O3 + + k_ex1 = k_ex1 + Ars_L1k( H%xArea(SUL), H%xRadi(SUL), gammaKT, srMw ) + k_ex1 = k_ex1 + Ars_L1k( H%xArea(ORC), H%xRadi(ORC), gammaKT, srMw ) + + ! Assume O3 is limiting, so recompute reaction rate accordingly + k = kIIR1Ltd( C(ind_O3), C(ind_SO2), k_ex1 ) + + ENDIF + + END FUNCTION SO2uptkbyO3 + + FUNCTION SO2uptkbyCH2O( H) RESULT ( k ) + ! + ! + TYPE(HetState), INTENT(IN) :: H ! Hetchem State + REAL(dp) :: k ! Rxn rate [1/s] + REAL(dp) :: gammaKT, srMw, k_ex1 + + srMw = SR_MW(ind_SO2) + gammaKT = H%gamma_SO2_CH2O + IF ( RELHUM >= CRITRH2 ) THEN + + k_ex1 = k_ex1 + Ars_L1k( H%xArea(SUL), H%xRadi(SUL), gammaKT, srMw ) + k_ex1 = k_ex1 + Ars_L1k( H%xArea(ORC), H%xRadi(ORC), gammaKT, srMw ) + + ! Assume CH2O is limiting, so recompute reaction rate accordingly + k = kIIR1Ltd( C(ind_CH2O), C(ind_SO2), k_ex1 ) + ENDIF + END FUNCTION SO2uptkbyCH2O + +!!$ FUNCTION ClNO3uptkByH2O( H ) RESULT( k ) ! ! Computes the hydrolysis reaction rate [1/s] of ClNO3 + H2O. diff --git a/KPP/fullchem/fullchem_SulfurChemFuncs.F90 b/KPP/fullchem/fullchem_SulfurChemFuncs.F90 index d228bb3c6..e9b28f10b 100644 --- a/KPP/fullchem/fullchem_SulfurChemFuncs.F90 +++ b/KPP/fullchem/fullchem_SulfurChemFuncs.F90 @@ -1004,9 +1004,16 @@ SUBROUTINE SET_SO2( I, J, L, Input_Opt, & SSAlk => State_Chm%SSAlk(I,J,L,:) State_Chm%isCloud(I,J,L) = 0.0_fp State_Chm%pHCloud(I,J,L) = 0.0_fp + State_Chm%HPlusCloud(I,J,L) = 0.0_fp State_Chm%QLxpHCloud(I,J,L) = 0.0_fp State_Chm%HSO3_aq(I,J,L) = 1.0e-32_fp State_Chm%SO3_aq(I,J,L) = 1.0e-32_fp + State_Chm%HSO3_aq_a(I,J,L) = 0.0_fp + State_Chm%SO3_aq_a(I,J,L) = 0.0_fp + State_Chm%SO2_aq_a(I,J,L) = 0.0_fp + State_Chm%FEIII_A(I,J,L) = 0.0_fp + State_Chm%MNII_A(I,J,L) = 0.0_fp + State_Chm%GammaSO2(I,J,L,:) = 0.0_dp DTCHEM = GET_TS_CHEM() ! Timestep [s] IS_FULLCHEM = Input_Opt%ITS_A_FULLCHEM_SIM IS_OFFLINE = ( .not. IS_FULLCHEM ) @@ -1215,11 +1222,17 @@ SUBROUTINE SET_SO2( I, J, L, Input_Opt, & ! jmm (12/3/18) ! ! Get dust concentrations [MND -> ng/m3] - - DUST = ( Spc(id_DSTbin1)%Conc(I,J,L) + Spc(id_DSTbin2)%Conc(I,J,L) + Spc(id_DSTbin3)%Conc(I,J,L) + & - Spc(id_DSTbin4)%Conc(I,J,L) + Spc(id_DSTbin5)%Conc(I,J,L) + & - Spc(id_DSTbin6)%Conc(I,J,L) + Spc(id_DSTbin7)%Conc(I,J,L) ) * 1.e+15_fp * & - State_Chm%SpcData(id_DSTbin1)%Info%MW_g / AVO + ! Get the MW in g from DSTbin1 (all dust bins have the same MW) + DUST = ( Spc(id_DSTbin1)%Conc(I,J,L) + & + Spc(id_DSTbin2)%Conc(I,J,L) + & + Spc(id_DSTbin3)%Conc(I,J,L) + & + Spc(id_DSTbin4)%Conc(I,J,L) + & + Spc(id_DSTbin5)%Conc(I,J,L) + & + Spc(id_DSTbin6)%Conc(I,J,L) + & + Spc(id_DSTbin7)%Conc(I,J,L) ) & + * 1.e+15_dp & + * State_Chm%SpcData(id_DSTbin1)%Info%MW_g & + / AVO ! Conversion from dust mass to Ca2+ and Mg2+ mol: ! 0.071*(1/40.08)+0.011*(1/24.31) = 2.22e-3 @@ -1240,6 +1253,7 @@ SUBROUTINE SET_SO2( I, J, L, Input_Opt, & ! Store the cloud pH quantities State_Chm%isCloud(I,J,L) = 1.0_fp + State_Chm%HplusCloud(I,J,L) = HPLUS State_Chm%pHCloud(I,J,L) = -1.0_fp * log10(HPLUS) State_Chm%QLxpHCloud(I,J,L) = State_Chm%pHCloud(I,J,L) & * State_Met%QL(I,J,L) diff --git a/KPP/fullchem/gckpp_Function.F90 b/KPP/fullchem/gckpp_Function.F90 index 2572b0da2..bf62948d1 100644 --- a/KPP/fullchem/gckpp_Function.F90 +++ b/KPP/fullchem/gckpp_Function.F90 @@ -2,7 +2,7 @@ ! ! The ODE Function of Chemical Model File ! -! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor +! Generated by KPP-3.3.0 symbolic chemistry Kinetics PreProcessor ! (https:/github.com/KineticPreProcessor/KPP ! KPP is distributed under GPL, the general public licence ! (http://www.gnu.org/copyleft/gpl.html) @@ -63,1075 +63,1082 @@ SUBROUTINE Fun ( V, F, RCT, Vdot, Aout ) ! Computation of equation rates - A(1) = RCT(1)*V(179)*V(341)*V(348) - A(2) = RCT(2)*V(179)*V(339) - A(3) = RCT(3)*V(179)*V(327) - A(4) = RCT(4)*V(166)*V(341)*V(348) - A(5) = RCT(5)*V(166)*V(339) - A(6) = RCT(6)*V(166)*V(327) - A(7) = RCT(7)*V(264)*V(348) - A(8) = RCT(8)*V(341)*V(348) - A(9) = RCT(9)*V(348) - A(10) = RCT(10)*V(325)*V(348) - A(11) = RCT(11)*V(89) - A(12) = RCT(12)*V(89)*V(345)*V(348) - A(13) = RCT(13)*V(341)*V(346) - A(14) = RCT(14)*V(341)*V(345) - A(15) = RCT(15)*V(337)*V(341) - A(16) = RCT(16)*V(335)*V(341) - A(17) = RCT(17)*V(328)*V(341) - A(18) = RCT(18)*V(345)*V(345) - A(19) = RCT(19)*V(345)*V(345) - A(20) = RCT(20)*V(337)*V(345) - A(21) = RCT(21)*V(264)*V(345) - A(22) = RCT(22)*V(337)*V(346) - A(23) = RCT(23)*V(337)*V(337) - A(24) = RCT(24)*V(329)*V(345) - A(25) = RCT(25)*V(228)*V(345) - A(26) = RCT(26)*V(328)*V(346) - A(27) = RCT(27)*V(328)*V(346) - A(28) = RCT(28)*V(328)*V(337) - A(29) = RCT(29)*V(328)*V(328) - A(30) = RCT(30)*V(328)*V(328) - A(31) = RCT(31)*V(328)*V(345) - A(32) = RCT(32)*V(164)*V(345) - A(33) = RCT(33)*V(244)*V(345) - A(34) = RCT(34)*V(325)*V(345) - A(35) = RCT(35)*V(335)*V(345) - A(36) = RCT(36)*V(327)*V(345) - A(37) = RCT(37)*V(345)*V(346) - A(38) = RCT(38)*V(239)*V(345) - A(39) = RCT(39)*V(335)*V(337) - A(40) = RCT(40)*V(108) - A(41) = RCT(41)*V(108)*V(345) - A(42) = RCT(42)*V(337)*V(351) - A(43) = RCT(43)*V(346)*V(351) - A(44) = RCT(44)*V(345)*V(351) - A(45) = RCT(45)*V(335)*V(351) - A(46) = RCT(46)*V(214) - A(47) = RCT(47)*V(265)*V(345) - A(48) = RCT(48)*V(282)*V(345) - A(49) = RCT(49)*V(335)*V(351) - A(50) = RCT(50)*V(325)*V(351) - A(51) = RCT(51)*V(326)*V(345) - A(52) = RCT(52)*V(326)*V(351) - A(53) = RCT(53)*V(324)*V(335) - A(54) = RCT(54)*V(139) - A(55) = RCT(55)*V(139)*V(345) - A(56) = RCT(56)*V(324)*V(346) - A(57) = RCT(57)*V(183)*V(345) - A(58) = RCT(58)*V(296)*V(346) - A(59) = RCT(59)*V(296)*V(346) - A(60) = RCT(60)*V(315)*V(346) - A(61) = RCT(61)*V(141)*V(345) - A(62) = RCT(62)*V(141)*V(345) - A(63) = RCT(63)*V(321)*V(346) - A(64) = RCT(64)*V(321)*V(346) - A(65) = RCT(65)*V(260)*V(346) - A(66) = RCT(66)*V(69)*V(345) - A(67) = RCT(67)*V(69)*V(351) - A(68) = RCT(68)*V(178)*V(346) - A(69) = RCT(69)*V(178)*V(346) - A(70) = RCT(70)*V(178)*V(337) - A(71) = RCT(71)*V(98)*V(345) - A(72) = RCT(72)*V(196)*V(345) - A(73) = RCT(73)*V(165)*V(346) - A(74) = RCT(74)*V(165)*V(337) - A(75) = RCT(75)*V(140)*V(345) - A(76) = RCT(76)*V(140)*V(351) - A(77) = RCT(77)*V(140)*V(341) - A(78) = RCT(78)*V(212)*V(346) - A(79) = RCT(79)*V(212)*V(337) - A(80) = RCT(80)*V(127)*V(345) - A(81) = RCT(81)*V(233)*V(345) - A(82) = RCT(82)*V(132)*V(346) - A(83) = RCT(83)*V(132)*V(337) - A(84) = RCT(84)*V(197)*V(337) - A(85) = RCT(85)*V(197)*V(346) - A(86) = RCT(86)*V(197)*V(335) - A(87) = RCT(87)*V(126) - A(88) = RCT(88)*V(126)*V(345) - A(89) = RCT(89)*V(142)*V(345) - A(90) = RCT(90)*V(300)*V(346) - A(91) = RCT(91)*V(300)*V(346) - A(92) = RCT(92)*V(249)*V(346) - A(93) = RCT(93)*V(319)*V(346) - A(94) = RCT(94)*V(319)*V(346) - A(95) = RCT(95)*V(318)*V(346) - A(96) = RCT(96)*V(313)*V(346) - A(97) = RCT(97)*V(320)*V(346) - A(98) = RCT(98)*V(323)*V(346) - A(99) = RCT(99)*V(323)*V(346) - A(100) = RCT(100)*V(250)*V(346) - A(101) = RCT(101)*V(142)*V(351) - A(102) = RCT(102)*V(251)*V(345) - A(103) = RCT(103)*V(279)*V(345) - A(104) = RCT(104)*V(283)*V(345) - A(105) = RCT(105)*V(298)*V(345) - A(106) = RCT(106)*V(322)*V(335) - A(107) = RCT(107)*V(124) - A(108) = RCT(108)*V(124)*V(345) - A(109) = RCT(109)*V(322)*V(346) - A(110) = RCT(110)*V(298)*V(351) - A(111) = RCT(111)*V(295)*V(345) - A(112) = RCT(112)*V(321)*V(328) - A(113) = RCT(113)*V(260)*V(328) - A(114) = RCT(114)*V(319)*V(337) - A(115) = RCT(115)*V(318)*V(337) - A(116) = RCT(116)*V(300)*V(337) - A(117) = RCT(117)*V(249)*V(337) - A(118) = RCT(118)*V(313)*V(337) - A(119) = RCT(119)*V(320)*V(337) - A(120) = RCT(120)*V(323)*V(337) - A(121) = RCT(121)*V(250)*V(337) - A(122) = RCT(122)*V(292)*V(345) - A(123) = RCT(123)*V(320)*V(346) - A(124) = RCT(124)*V(246)*V(335) + A(1) = RCT(1)*V(183)*V(355)*V(356) + A(2) = RCT(2)*V(183)*V(340) + A(3) = RCT(3)*V(183)*V(333) + A(4) = RCT(4)*V(169)*V(355)*V(356) + A(5) = RCT(5)*V(169)*V(340) + A(6) = RCT(6)*V(169)*V(333) + A(7) = RCT(7)*V(267)*V(355) + A(8) = RCT(8)*V(355)*V(356) + A(9) = RCT(9)*V(355) + A(10) = RCT(10)*V(329)*V(355) + A(11) = RCT(11)*V(93) + A(12) = RCT(12)*V(93)*V(343)*V(355) + A(13) = RCT(13)*V(338)*V(356) + A(14) = RCT(14)*V(343)*V(356) + A(15) = RCT(15)*V(341)*V(356) + A(16) = RCT(16)*V(345)*V(356) + A(17) = RCT(17)*V(334)*V(356) + A(18) = RCT(18)*V(343)*V(343) + A(19) = RCT(19)*V(343)*V(343) + A(20) = RCT(20)*V(341)*V(343) + A(21) = RCT(21)*V(267)*V(343) + A(22) = RCT(22)*V(338)*V(341) + A(23) = RCT(23)*V(341)*V(341) + A(24) = RCT(24)*V(335)*V(343) + A(25) = RCT(25)*V(232)*V(343) + A(26) = RCT(26)*V(334)*V(338) + A(27) = RCT(27)*V(334)*V(338) + A(28) = RCT(28)*V(334)*V(341) + A(29) = RCT(29)*V(334)*V(334) + A(30) = RCT(30)*V(334)*V(334) + A(31) = RCT(31)*V(334)*V(343) + A(32) = RCT(32)*V(167)*V(343) + A(33) = RCT(33)*V(247)*V(343) + A(34) = RCT(34)*V(329)*V(343) + A(35) = RCT(35)*V(343)*V(345) + A(36) = RCT(36)*V(333)*V(343) + A(37) = RCT(37)*V(338)*V(343) + A(38) = RCT(38)*V(240)*V(343) + A(39) = RCT(39)*V(341)*V(345) + A(40) = RCT(40)*V(110) + A(41) = RCT(41)*V(110)*V(343) + A(42) = RCT(42)*V(341)*V(348) + A(43) = RCT(43)*V(338)*V(348) + A(44) = RCT(44)*V(343)*V(348) + A(45) = RCT(45)*V(345)*V(348) + A(46) = RCT(46)*V(217) + A(47) = RCT(47)*V(268)*V(343) + A(48) = RCT(48)*V(285)*V(343) + A(49) = RCT(49)*V(345)*V(348) + A(50) = RCT(50)*V(329)*V(348) + A(51) = RCT(51)*V(330)*V(343) + A(52) = RCT(52)*V(330)*V(348) + A(53) = RCT(53)*V(328)*V(345) + A(54) = RCT(54)*V(143) + A(55) = RCT(55)*V(143)*V(343) + A(56) = RCT(56)*V(328)*V(338) + A(57) = RCT(57)*V(187)*V(343) + A(58) = RCT(58)*V(300)*V(338) + A(59) = RCT(59)*V(300)*V(338) + A(60) = RCT(60)*V(319)*V(338) + A(61) = RCT(61)*V(142)*V(343) + A(62) = RCT(62)*V(142)*V(343) + A(63) = RCT(63)*V(326)*V(338) + A(64) = RCT(64)*V(326)*V(338) + A(65) = RCT(65)*V(264)*V(338) + A(66) = RCT(66)*V(72)*V(343) + A(67) = RCT(67)*V(72)*V(348) + A(68) = RCT(68)*V(182)*V(338) + A(69) = RCT(69)*V(182)*V(338) + A(70) = RCT(70)*V(182)*V(341) + A(71) = RCT(71)*V(100)*V(343) + A(72) = RCT(72)*V(200)*V(343) + A(73) = RCT(73)*V(168)*V(338) + A(74) = RCT(74)*V(168)*V(341) + A(75) = RCT(75)*V(140)*V(343) + A(76) = RCT(76)*V(140)*V(348) + A(77) = RCT(77)*V(140)*V(356) + A(78) = RCT(78)*V(215)*V(338) + A(79) = RCT(79)*V(215)*V(341) + A(80) = RCT(80)*V(130)*V(343) + A(81) = RCT(81)*V(229)*V(343) + A(82) = RCT(82)*V(133)*V(338) + A(83) = RCT(83)*V(133)*V(341) + A(84) = RCT(84)*V(201)*V(341) + A(85) = RCT(85)*V(201)*V(338) + A(86) = RCT(86)*V(201)*V(345) + A(87) = RCT(87)*V(129) + A(88) = RCT(88)*V(129)*V(343) + A(89) = RCT(89)*V(144)*V(343) + A(90) = RCT(90)*V(304)*V(338) + A(91) = RCT(91)*V(304)*V(338) + A(92) = RCT(92)*V(252)*V(338) + A(93) = RCT(93)*V(323)*V(338) + A(94) = RCT(94)*V(323)*V(338) + A(95) = RCT(95)*V(322)*V(338) + A(96) = RCT(96)*V(316)*V(338) + A(97) = RCT(97)*V(324)*V(338) + A(98) = RCT(98)*V(327)*V(338) + A(99) = RCT(99)*V(327)*V(338) + A(100) = RCT(100)*V(253)*V(338) + A(101) = RCT(101)*V(144)*V(348) + A(102) = RCT(102)*V(255)*V(343) + A(103) = RCT(103)*V(283)*V(343) + A(104) = RCT(104)*V(286)*V(343) + A(105) = RCT(105)*V(302)*V(343) + A(106) = RCT(106)*V(325)*V(345) + A(107) = RCT(107)*V(127) + A(108) = RCT(108)*V(127)*V(343) + A(109) = RCT(109)*V(325)*V(338) + A(110) = RCT(110)*V(302)*V(348) + A(111) = RCT(111)*V(297)*V(343) + A(112) = RCT(112)*V(326)*V(334) + A(113) = RCT(113)*V(264)*V(334) + A(114) = RCT(114)*V(323)*V(341) + A(115) = RCT(115)*V(322)*V(341) + A(116) = RCT(116)*V(304)*V(341) + A(117) = RCT(117)*V(252)*V(341) + A(118) = RCT(118)*V(316)*V(341) + A(119) = RCT(119)*V(324)*V(341) + A(120) = RCT(120)*V(327)*V(341) + A(121) = RCT(121)*V(253)*V(341) + A(122) = RCT(122)*V(295)*V(343) + A(123) = RCT(123)*V(324)*V(338) + A(124) = RCT(124)*V(250)*V(345) A(125) = RCT(125)*V(113) - A(126) = 4.51e-12*V(113)*V(345) - A(127) = RCT(127)*V(246)*V(346) - A(128) = RCT(128)*V(246)*V(337) - A(129) = RCT(129)*V(296)*V(328) - A(130) = RCT(130)*V(315)*V(328) - A(131) = RCT(131)*V(292)*V(351) - A(132) = RCT(132)*V(319)*V(328) - A(133) = RCT(133)*V(318)*V(328) - A(134) = RCT(134)*V(300)*V(328) - A(135) = RCT(135)*V(249)*V(328) - A(136) = RCT(136)*V(313)*V(328) - A(137) = RCT(137)*V(320)*V(328) - A(138) = RCT(138)*V(323)*V(328) - A(139) = RCT(139)*V(250)*V(328) - A(140) = RCT(140)*V(156)*V(345) - A(141) = RCT(141)*V(188)*V(345) - A(142) = RCT(142)*V(296)*V(296) - A(143) = RCT(143)*V(315)*V(315) - A(144) = RCT(144)*V(296)*V(337) - A(145) = RCT(145)*V(315)*V(337) - A(146) = RCT(146)*V(321)*V(337) - A(147) = RCT(147)*V(260)*V(337) - A(148) = RCT(148)*V(322)*V(337) - A(149) = RCT(149)*V(290)*V(345) - A(150) = RCT(150)*V(290)*V(341) - A(151) = RCT(151)*V(306)*V(345) - A(152) = RCT(152)*V(306)*V(345) - A(153) = RCT(153)*V(306)*V(345) - A(154) = RCT(154)*V(306)*V(351) - A(155) = RCT(155)*V(213)*V(335) - A(156) = RCT(156)*V(114) - A(157) = RCT(157)*V(213)*V(346) - A(158) = RCT(158)*V(213)*V(337) - A(159) = RCT(159)*V(213)*V(351) - A(160) = RCT(160)*V(114)*V(345) - A(161) = RCT(161)*V(72)*V(345) - A(162) = RCT(162)*V(290)*V(351) - A(163) = RCT(163)*V(270)*V(345) - A(164) = RCT(164)*V(294)*V(345) - A(165) = RCT(165)*V(270)*V(351) - A(166) = RCT(166)*V(294)*V(351) - A(167) = RCT(167)*V(307)*V(345) - A(168) = RCT(168)*V(307)*V(345) - A(169) = RCT(169)*V(125)*V(345) - A(170) = RCT(170)*V(118)*V(345) - A(171) = RCT(171)*V(99)*V(345) - A(172) = RCT(172)*V(100)*V(345) - A(173) = RCT(173)*V(97)*V(345) - A(174) = RCT(174)*V(102)*V(345) - A(175) = RCT(175)*V(155)*V(345) - A(176) = RCT(176)*V(123)*V(345) - A(177) = RCT(177)*V(24)*V(345) - A(178) = RCT(178)*V(92)*V(345) - A(179) = RCT(179)*V(183)*V(351) - A(180) = RCT(180)*V(324)*V(324) - A(181) = RCT(181)*V(324)*V(328) - A(182) = RCT(182)*V(319)*V(324) - A(183) = RCT(183)*V(300)*V(324) - A(184) = RCT(184)*V(313)*V(324) - A(185) = RCT(185)*V(320)*V(324) - A(186) = RCT(186)*V(323)*V(324) - A(187) = RCT(187)*V(318)*V(324) - A(188) = RCT(188)*V(249)*V(324) - A(189) = RCT(189)*V(250)*V(324) - A(190) = RCT(190)*V(296)*V(324) - A(191) = RCT(191)*V(315)*V(324) - A(192) = RCT(192)*V(260)*V(324) - A(193) = RCT(193)*V(321)*V(324) - A(194) = RCT(194)*V(322)*V(324) - A(195) = RCT(195)*V(322)*V(328) - A(196) = RCT(196)*V(351)*V(351) - A(197) = RCT(197)*V(328)*V(335) - A(198) = RCT(198)*V(80) - A(199) = RCT(199)*V(94)*V(345) - A(200) = RCT(200)*V(94)*V(345) - A(201) = RCT(201)*V(94)*V(351) - A(202) = RCT(202)*V(345)*V(348) - A(203) = RCT(203)*V(341)*V(342) - A(204) = RCT(204)*V(337)*V(347) - A(205) = RCT(205)*V(337)*V(342) - A(206) = RCT(206)*V(345)*V(352) + A(126) = 4.51e-12*V(113)*V(343) + A(127) = RCT(127)*V(250)*V(338) + A(128) = RCT(128)*V(250)*V(341) + A(129) = RCT(129)*V(300)*V(334) + A(130) = RCT(130)*V(319)*V(334) + A(131) = RCT(131)*V(295)*V(348) + A(132) = RCT(132)*V(323)*V(334) + A(133) = RCT(133)*V(322)*V(334) + A(134) = RCT(134)*V(304)*V(334) + A(135) = RCT(135)*V(252)*V(334) + A(136) = RCT(136)*V(316)*V(334) + A(137) = RCT(137)*V(324)*V(334) + A(138) = RCT(138)*V(327)*V(334) + A(139) = RCT(139)*V(253)*V(334) + A(140) = RCT(140)*V(154)*V(343) + A(141) = RCT(141)*V(192)*V(343) + A(142) = RCT(142)*V(300)*V(300) + A(143) = RCT(143)*V(319)*V(319) + A(144) = RCT(144)*V(300)*V(341) + A(145) = RCT(145)*V(319)*V(341) + A(146) = RCT(146)*V(326)*V(341) + A(147) = RCT(147)*V(264)*V(341) + A(148) = RCT(148)*V(325)*V(341) + A(149) = RCT(149)*V(293)*V(343) + A(150) = RCT(150)*V(293)*V(356) + A(151) = RCT(151)*V(309)*V(343) + A(152) = RCT(152)*V(309)*V(343) + A(153) = RCT(153)*V(309)*V(343) + A(154) = RCT(154)*V(309)*V(348) + A(155) = RCT(155)*V(216)*V(345) + A(156) = RCT(156)*V(115) + A(157) = RCT(157)*V(216)*V(338) + A(158) = RCT(158)*V(216)*V(341) + A(159) = RCT(159)*V(216)*V(348) + A(160) = RCT(160)*V(115)*V(343) + A(161) = RCT(161)*V(74)*V(343) + A(162) = RCT(162)*V(293)*V(348) + A(163) = RCT(163)*V(274)*V(343) + A(164) = RCT(164)*V(298)*V(343) + A(165) = RCT(165)*V(274)*V(348) + A(166) = RCT(166)*V(298)*V(348) + A(167) = RCT(167)*V(311)*V(343) + A(168) = RCT(168)*V(311)*V(343) + A(169) = RCT(169)*V(128)*V(343) + A(170) = RCT(170)*V(121)*V(343) + A(171) = RCT(171)*V(101)*V(343) + A(172) = RCT(172)*V(102)*V(343) + A(173) = RCT(173)*V(99)*V(343) + A(174) = RCT(174)*V(104)*V(343) + A(175) = RCT(175)*V(158)*V(343) + A(176) = RCT(176)*V(126)*V(343) + A(177) = RCT(177)*V(24)*V(343) + A(178) = RCT(178)*V(95)*V(343) + A(179) = RCT(179)*V(187)*V(348) + A(180) = RCT(180)*V(328)*V(328) + A(181) = RCT(181)*V(328)*V(334) + A(182) = RCT(182)*V(323)*V(328) + A(183) = RCT(183)*V(304)*V(328) + A(184) = RCT(184)*V(316)*V(328) + A(185) = RCT(185)*V(324)*V(328) + A(186) = RCT(186)*V(327)*V(328) + A(187) = RCT(187)*V(322)*V(328) + A(188) = RCT(188)*V(252)*V(328) + A(189) = RCT(189)*V(253)*V(328) + A(190) = RCT(190)*V(300)*V(328) + A(191) = RCT(191)*V(319)*V(328) + A(192) = RCT(192)*V(264)*V(328) + A(193) = RCT(193)*V(326)*V(328) + A(194) = RCT(194)*V(325)*V(328) + A(195) = RCT(195)*V(325)*V(334) + A(196) = RCT(196)*V(348)*V(348) + A(197) = RCT(197)*V(334)*V(345) + A(198) = RCT(198)*V(83) + A(199) = RCT(199)*V(87)*V(343) + A(200) = RCT(200)*V(87)*V(343) + A(201) = RCT(201)*V(87)*V(348) + A(202) = RCT(202)*V(343)*V(355) + A(203) = RCT(203)*V(342)*V(356) + A(204) = RCT(204)*V(341)*V(347) + A(205) = RCT(205)*V(341)*V(342) + A(206) = RCT(206)*V(343)*V(354) A(207) = RCT(207)*V(347)*V(347) A(208) = RCT(208)*V(347)*V(347) - A(209) = RCT(209)*V(346)*V(347) - A(210) = RCT(210)*V(218)*V(342) - A(211) = RCT(211)*V(148)*V(345) - A(212) = RCT(212)*V(316)*V(343) - A(213) = RCT(213)*V(343)*V(352) - A(214) = RCT(214)*V(345)*V(347) - A(215) = RCT(215)*V(342)*V(351) - A(216) = RCT(216)*V(325)*V(342) - A(217) = RCT(217)*V(326)*V(342) - A(218) = RCT(218)*V(295)*V(342) - A(219) = RCT(219)*V(183)*V(342) - A(220) = RCT(220)*V(141)*V(342) - A(221) = RCT(221)*V(335)*V(342) - A(222) = RCT(222)*V(335)*V(347) - A(223) = RCT(223)*V(81)*V(345) - A(224) = RCT(224)*V(78)*V(345) - A(225) = RCT(225)*V(105)*V(345) - A(226) = RCT(226)*V(334)*V(336) - A(227) = RCT(227)*V(334)*F(2) - A(228) = RCT(228)*V(334)*F(3) - A(229) = RCT(229)*V(334)*F(1) - A(230) = RCT(230)*V(63)*V(334) - A(231) = RCT(231)*V(228)*V(334) - A(232) = RCT(232)*V(343)*F(3) - A(233) = RCT(233)*V(341)*V(343) - A(234) = RCT(234)*V(345)*F(1) - A(235) = RCT(235)*V(343)*V(345) - A(236) = RCT(236)*V(337)*V(343) - A(237) = RCT(237)*V(334)*V(341) - A(238) = RCT(238)*V(68)*V(343) - A(239) = RCT(239)*V(68)*V(345) - A(240) = RCT(240)*V(335)*V(343) - A(241) = RCT(241)*V(343)*V(351) - A(242) = RCT(242)*V(343)*V(346) - A(243) = RCT(243)*V(335)*V(343) - A(244) = RCT(244)*V(264)*V(343) - A(245) = RCT(245)*V(217)*F(3) - A(246) = RCT(246)*V(217)*V(341) - A(247) = RCT(247)*V(217)*V(337) - A(248) = RCT(248)*V(67)*F(3) - A(249) = RCT(249)*V(67)*V(346) - A(250) = RCT(250)*V(67)*V(335) - A(251) = RCT(251)*V(343)*V(347) - A(252) = RCT(252)*V(325)*V(343) - A(253) = RCT(253)*V(334)*V(339) - A(254) = RCT(254)*V(334)*V(352) - A(255) = RCT(255)*V(245)*V(334) - A(256) = RCT(256)*V(46)*V(334) - A(257) = RCT(257)*V(181)*V(334) - A(258) = RCT(258)*V(105)*V(334) - A(259) = RCT(259)*V(78)*V(334) - A(260) = RCT(260)*V(81)*V(334) - A(261) = RCT(261)*V(87)*V(334) - A(262) = RCT(262)*V(47)*V(334) - A(263) = RCT(263)*V(48)*V(334) - A(264) = RCT(264)*V(61)*V(334) - A(265) = RCT(265)*V(53)*V(334) - A(266) = RCT(266)*V(85)*V(334) - A(267) = RCT(267)*V(86)*V(334) - A(268) = RCT(268)*V(84)*V(334) - A(269) = RCT(269)*V(49)*V(334) - A(270) = RCT(270)*V(50)*V(334) - A(271) = RCT(271)*V(51)*V(334) - A(272) = RCT(272)*V(54)*V(334) - A(273) = RCT(273)*V(245)*V(345) - A(274) = RCT(274)*V(328)*V(338) - A(275) = RCT(275)*V(338)*V(345) - A(276) = RCT(276)*V(338)*V(345) - A(277) = RCT(277)*V(120)*V(345) - A(278) = RCT(278)*V(76)*V(345) - A(279) = RCT(279)*V(339)*V(345) - A(280) = RCT(280)*V(333)*V(345) - A(281) = RCT(281)*V(297)*V(345) - A(282) = RCT(282)*V(317)*V(345) - A(283) = RCT(283)*V(181)*V(345) - A(284) = RCT(284)*V(79)*V(345) - A(285) = RCT(285)*V(75)*V(345) - A(286) = RCT(286)*V(43)*V(345) - A(287) = RCT(287)*V(87)*V(345) - A(288) = RCT(288)*V(85)*V(345) - A(289) = RCT(289)*V(86)*V(345) - A(290) = RCT(290)*V(84)*V(345) - A(291) = RCT(291)*V(228)*V(340) - A(292) = RCT(292)*V(325)*V(340) - A(293) = RCT(293)*V(340)*V(341) - A(294) = RCT(294)*V(340)*F(1) - A(295) = RCT(295)*V(264)*V(340) - A(296) = RCT(296)*V(337)*V(340) - A(297) = RCT(297)*V(337)*V(340) - A(298) = RCT(298)*V(338)*V(343) - A(299) = RCT(299)*V(337)*V(338) - A(300) = RCT(300)*V(338)*V(346) - A(301) = RCT(301)*V(335)*V(338) - A(302) = RCT(302)*V(338)*V(338) - A(303) = RCT(303)*V(338)*V(338) - A(304) = RCT(304)*V(338)*V(338) - A(305) = RCT(305)*V(340)*F(3) - A(306) = RCT(306)*V(110) - A(307) = RCT(307)*V(338)*V(338) - A(308) = RCT(308)*V(76) - A(309) = RCT(309)*V(110)*V(340) - A(310) = RCT(310)*V(338)*V(347) - A(311) = RCT(311)*V(338)*V(347) - A(312) = RCT(312)*V(338)*V(347) - A(313) = RCT(313)*V(317)*V(343) - A(314) = RCT(314)*V(317)*V(340) - A(315) = RCT(315)*V(181)*V(340) - A(316) = RCT(316)*V(79)*V(340) - A(317) = RCT(317)*V(75)*V(340) - A(318) = RCT(318)*V(265)*V(340) - A(319) = RCT(319)*V(328)*V(340) - A(320) = RCT(320)*V(164)*V(340) - A(321) = RCT(321)*V(183)*V(340) - A(322) = RCT(322)*V(296)*V(340) - A(323) = RCT(323)*V(315)*V(340) - A(324) = RCT(324)*V(282)*V(340) - A(325) = RCT(325)*V(156)*V(340) - A(326) = RCT(326)*V(283)*V(340) - A(327) = RCT(327)*V(141)*V(340) - A(328) = RCT(328)*V(141)*V(340) - A(329) = RCT(329)*V(295)*V(340) - A(330) = RCT(330)*V(276)*V(340) - A(331) = RCT(331)*V(142)*V(340) - A(332) = RCT(332)*V(290)*V(340) - A(333) = RCT(333)*V(290)*V(342) - A(334) = RCT(334)*V(331)*V(346) - A(335) = RCT(335)*V(62)*V(62) - A(336) = RCT(336)*V(331)*V(335) - A(337) = RCT(337)*V(252) - A(338) = RCT(338)*V(252)*V(252) - A(339) = RCT(339)*V(170)*V(351) - A(340) = RCT(340)*V(284)*V(335) - A(341) = RCT(341)*V(332) - A(342) = RCT(342)*V(331)*V(332) + A(209) = RCT(209)*V(338)*V(347) + A(210) = RCT(210)*V(221)*V(342) + A(211) = RCT(211)*V(153)*V(343) + A(212) = RCT(212)*V(320)*V(351) + A(213) = RCT(213)*V(351)*V(354) + A(214) = RCT(214)*V(343)*V(347) + A(215) = RCT(215)*V(342)*V(348) + A(216) = RCT(216)*V(329)*V(342) + A(217) = RCT(217)*V(330)*V(342) + A(218) = RCT(218)*V(297)*V(342) + A(219) = RCT(219)*V(187)*V(342) + A(220) = RCT(220)*V(142)*V(342) + A(221) = RCT(221)*V(342)*V(345) + A(222) = RCT(222)*V(345)*V(347) + A(223) = RCT(223)*V(82)*V(343) + A(224) = RCT(224)*V(79)*V(343) + A(225) = RCT(225)*V(108)*V(343) + A(226) = RCT(226)*V(337)*V(353) + A(227) = RCT(227)*V(337)*F(2) + A(228) = RCT(228)*V(337)*F(3) + A(229) = RCT(229)*V(337)*F(1) + A(230) = RCT(230)*V(66)*V(337) + A(231) = RCT(231)*V(232)*V(337) + A(232) = RCT(232)*V(351)*F(3) + A(233) = RCT(233)*V(351)*V(356) + A(234) = RCT(234)*V(343)*F(1) + A(235) = RCT(235)*V(343)*V(351) + A(236) = RCT(236)*V(341)*V(351) + A(237) = RCT(237)*V(337)*V(356) + A(238) = RCT(238)*V(71)*V(351) + A(239) = RCT(239)*V(71)*V(343) + A(240) = RCT(240)*V(345)*V(351) + A(241) = RCT(241)*V(348)*V(351) + A(242) = RCT(242)*V(338)*V(351) + A(243) = RCT(243)*V(345)*V(351) + A(244) = RCT(244)*V(267)*V(351) + A(245) = RCT(245)*V(219)*F(3) + A(246) = RCT(246)*V(219)*V(356) + A(247) = RCT(247)*V(219)*V(341) + A(248) = RCT(248)*V(70)*F(3) + A(249) = RCT(249)*V(70)*V(338) + A(250) = RCT(250)*V(70)*V(345) + A(251) = RCT(251)*V(347)*V(351) + A(252) = RCT(252)*V(329)*V(351) + A(253) = RCT(253)*V(337)*V(340) + A(254) = RCT(254)*V(337)*V(354) + A(255) = RCT(255)*V(248)*V(337) + A(256) = RCT(256)*V(49)*V(337) + A(257) = RCT(257)*V(184)*V(337) + A(258) = RCT(258)*V(108)*V(337) + A(259) = RCT(259)*V(79)*V(337) + A(260) = RCT(260)*V(82)*V(337) + A(261) = RCT(261)*V(91)*V(337) + A(262) = RCT(262)*V(50)*V(337) + A(263) = RCT(263)*V(51)*V(337) + A(264) = RCT(264)*V(64)*V(337) + A(265) = RCT(265)*V(56)*V(337) + A(266) = RCT(266)*V(89)*V(337) + A(267) = RCT(267)*V(90)*V(337) + A(268) = RCT(268)*V(88)*V(337) + A(269) = RCT(269)*V(52)*V(337) + A(270) = RCT(270)*V(53)*V(337) + A(271) = RCT(271)*V(54)*V(337) + A(272) = RCT(272)*V(57)*V(337) + A(273) = RCT(273)*V(248)*V(343) + A(274) = RCT(274)*V(334)*V(344) + A(275) = RCT(275)*V(343)*V(344) + A(276) = RCT(276)*V(343)*V(344) + A(277) = RCT(277)*V(123)*V(343) + A(278) = RCT(278)*V(78)*V(343) + A(279) = RCT(279)*V(340)*V(343) + A(280) = RCT(280)*V(332)*V(343) + A(281) = RCT(281)*V(301)*V(343) + A(282) = RCT(282)*V(321)*V(343) + A(283) = RCT(283)*V(184)*V(343) + A(284) = RCT(284)*V(80)*V(343) + A(285) = RCT(285)*V(84)*V(343) + A(286) = RCT(286)*V(46)*V(343) + A(287) = RCT(287)*V(91)*V(343) + A(288) = RCT(288)*V(89)*V(343) + A(289) = RCT(289)*V(90)*V(343) + A(290) = RCT(290)*V(88)*V(343) + A(291) = RCT(291)*V(232)*V(352) + A(292) = RCT(292)*V(329)*V(352) + A(293) = RCT(293)*V(352)*V(356) + A(294) = RCT(294)*V(352)*F(1) + A(295) = RCT(295)*V(267)*V(352) + A(296) = RCT(296)*V(341)*V(352) + A(297) = RCT(297)*V(341)*V(352) + A(298) = RCT(298)*V(344)*V(351) + A(299) = RCT(299)*V(341)*V(344) + A(300) = RCT(300)*V(338)*V(344) + A(301) = RCT(301)*V(344)*V(345) + A(302) = RCT(302)*V(344)*V(344) + A(303) = RCT(303)*V(344)*V(344) + A(304) = RCT(304)*V(344)*V(344) + A(305) = RCT(305)*V(352)*F(3) + A(306) = RCT(306)*V(119) + A(307) = RCT(307)*V(344)*V(344) + A(308) = RCT(308)*V(78) + A(309) = RCT(309)*V(119)*V(352) + A(310) = RCT(310)*V(344)*V(347) + A(311) = RCT(311)*V(344)*V(347) + A(312) = RCT(312)*V(344)*V(347) + A(313) = RCT(313)*V(321)*V(351) + A(314) = RCT(314)*V(321)*V(352) + A(315) = RCT(315)*V(184)*V(352) + A(316) = RCT(316)*V(80)*V(352) + A(317) = RCT(317)*V(84)*V(352) + A(318) = RCT(318)*V(268)*V(352) + A(319) = RCT(319)*V(334)*V(352) + A(320) = RCT(320)*V(167)*V(352) + A(321) = RCT(321)*V(187)*V(352) + A(322) = RCT(322)*V(300)*V(352) + A(323) = RCT(323)*V(319)*V(352) + A(324) = RCT(324)*V(285)*V(352) + A(325) = RCT(325)*V(154)*V(352) + A(326) = RCT(326)*V(286)*V(352) + A(327) = RCT(327)*V(142)*V(352) + A(328) = RCT(328)*V(142)*V(352) + A(329) = RCT(329)*V(297)*V(352) + A(330) = RCT(330)*V(279)*V(352) + A(331) = RCT(331)*V(144)*V(352) + A(332) = RCT(332)*V(293)*V(352) + A(333) = RCT(333)*V(293)*V(342) + A(334) = RCT(334)*V(331)*V(338) + A(335) = RCT(335)*V(65)*V(65) + A(336) = RCT(336)*V(331)*V(345) + A(337) = RCT(337)*V(254) + A(338) = RCT(338)*V(254)*V(254) + A(339) = RCT(339)*V(172)*V(348) + A(340) = RCT(340)*V(336)*V(345) + A(341) = RCT(341)*V(296) + A(342) = RCT(342)*V(296)*V(331) A(343) = RCT(343)*V(331)*V(347) - A(344) = RCT(344)*V(284)*V(347) - A(345) = RCT(345)*V(96)*V(284) - A(346) = RCT(346)*V(96)*V(96) - A(347) = RCT(347)*V(42) - A(348) = RCT(348)*V(96)*V(346) - A(349) = RCT(349)*V(284)*V(338) - A(350) = RCT(350)*V(331)*V(341) - A(351) = RCT(351)*V(331)*V(337) - A(352) = RCT(352)*V(170)*V(345) - A(353) = RCT(353)*V(73)*V(345) - A(354) = RCT(354)*V(330)*V(345) - A(355) = RCT(355)*V(284)*V(337) - A(356) = RCT(356)*V(284)*V(346) - A(357) = RCT(357)*V(284)*V(284) - A(358) = RCT(358)*V(44) - A(359) = RCT(359)*V(52)*V(345) - A(360) = RCT(360)*V(261)*V(345) - A(361) = RCT(361)*V(247)*V(345) - A(362) = RCT(362)*V(312)*V(329) - A(363) = RCT(363)*V(312)*V(346) - A(364) = RCT(364)*V(312)*V(335) - A(365) = RCT(365)*V(312)*V(336) - A(366) = RCT(366)*V(312)*V(336)*V(336) - A(367) = RCT(367)*V(312)*V(341) - A(368) = RCT(368)*V(312)*V(348) - A(369) = RCT(369)*V(241)*V(329) - A(370) = RCT(370)*V(241)*V(346) - A(371) = RCT(371)*V(241)*V(335) - A(372) = RCT(372)*V(241)*V(348) - A(373) = RCT(373)*V(241)*V(336) - A(374) = RCT(374)*V(241)*V(336) - A(375) = RCT(375)*V(191)*V(351) - A(376) = RCT(376)*V(219)*V(351) - A(377) = RCT(377)*V(167)*V(351) - A(378) = RCT(378)*V(167)*V(345) - A(379) = RCT(379)*V(167)*V(341) - A(380) = RCT(380)*V(219)*V(345) - A(381) = RCT(381)*V(219)*V(341) - A(382) = RCT(382)*V(191)*V(345) - A(383) = RCT(383)*V(191)*V(341) - A(384) = RCT(384)*V(277)*V(337) - A(385) = RCT(385)*V(277)*V(346) - A(386) = RCT(386)*V(277)*V(351) - A(387) = RCT(387)*V(111)*V(345) - A(388) = RCT(388)*V(137)*V(345) - A(389) = RCT(389)*V(225)*V(351) - A(390) = RCT(390)*V(225)*V(345) - A(391) = RCT(391)*V(257)*V(337) - A(392) = RCT(392)*V(257)*V(346) - A(393) = RCT(393)*V(257)*V(335) - A(394) = RCT(394)*V(56) - A(395) = RCT(395)*V(257)*V(351) - A(396) = RCT(396)*V(74)*V(345) - A(397) = RCT(397)*V(66)*V(345) - A(398) = RCT(398)*V(278)*V(337) - A(399) = RCT(399)*V(278)*V(346) - A(400) = RCT(400)*V(278)*V(351) - A(401) = RCT(401)*V(278)*V(328) - A(402) = RCT(402)*V(160)*V(345) - A(403) = RCT(403)*V(176)*V(345) - A(404) = RCT(404)*V(275)*V(337) - A(405) = RCT(405)*V(275)*V(346) - A(406) = RCT(406)*V(275)*V(351) - A(407) = RCT(407)*V(138)*V(345) - A(408) = RCT(408)*V(112)*V(345) - A(409) = RCT(409)*V(129)*V(345) - A(410) = RCT(410)*V(273)*V(337) - A(411) = RCT(411)*V(273)*V(346) - A(412) = RCT(412)*V(273)*V(346) - A(413) = RCT(413)*V(273)*V(328) - A(414) = RCT(414)*V(273)*V(351) - A(415) = RCT(415)*V(161)*V(345) - A(416) = RCT(416)*V(162)*V(345) - A(417) = RCT(417)*V(281)*V(337) - A(418) = RCT(418)*V(281)*V(346) - A(419) = RCT(419)*V(281)*V(351) - A(420) = RCT(420)*V(255)*V(345) - A(421) = RCT(421)*V(255)*V(341) - A(422) = RCT(422)*V(255)*V(351) - A(423) = RCT(423)*V(237)*V(345) - A(424) = RCT(424)*V(237)*V(341) - A(425) = RCT(425)*V(237)*V(351) - A(426) = RCT(426)*V(211)*V(345) - A(427) = RCT(427)*V(211)*V(341) - A(428) = RCT(428)*V(211)*V(351) - A(429) = RCT(429)*V(272)*V(346) - A(430) = RCT(430)*V(272)*V(337) - A(431) = RCT(431)*V(272)*V(351) - A(432) = RCT(432)*V(272)*V(328) - A(433) = RCT(433)*V(163)*V(345) - A(434) = RCT(434)*V(163)*V(351) - A(435) = RCT(435)*V(177)*V(345) - A(436) = RCT(436)*V(274)*V(337) - A(437) = RCT(437)*V(274)*V(346) - A(438) = RCT(438)*V(274)*V(335) - A(439) = RCT(439)*V(57) - A(440) = RCT(440)*V(274)*V(351) - A(441) = RCT(441)*V(169)*V(345) - A(442) = RCT(442)*V(130)*V(345) - A(443) = RCT(443)*V(291)*V(337) - A(444) = RCT(444)*V(291)*V(346) - A(445) = RCT(445)*V(291)*V(346) - A(446) = RCT(446)*V(291)*V(351) - A(447) = RCT(447)*V(229)*V(345) - A(448) = RCT(448)*V(229)*V(341) - A(449) = RCT(449)*V(229)*V(351) - A(450) = RCT(450)*V(193)*V(345) - A(451) = RCT(451)*V(193)*V(341) - A(452) = RCT(452)*V(193)*V(351) - A(453) = RCT(453)*V(262)*V(345) - A(454) = RCT(454)*V(262)*V(341) - A(455) = RCT(455)*V(262)*V(351) - A(456) = RCT(456)*V(277)*V(328) - A(457) = RCT(457)*V(277)*V(324) - A(458) = RCT(458)*V(275)*V(328) - A(459) = RCT(459)*V(275)*V(324) - A(460) = RCT(460)*V(281)*V(328) - A(461) = RCT(461)*V(281)*V(324) - A(462) = RCT(462)*V(291)*V(328) - A(463) = RCT(463)*V(291)*V(324) - A(464) = RCT(464)*V(257)*V(328) - A(465) = RCT(465)*V(257)*V(324) - A(466) = RCT(466)*V(274)*V(328) - A(467) = RCT(467)*V(274)*V(324) - A(468) = RCT(468)*V(280)*V(346) - A(469) = RCT(469)*V(289)*V(346) - A(470) = RCT(470)*V(280)*V(337) - A(471) = RCT(471)*V(289)*V(337) - A(472) = RCT(472)*V(280)*V(328) - A(473) = RCT(473)*V(289)*V(328) - A(474) = RCT(474)*V(280)*V(324) - A(475) = RCT(475)*V(289)*V(324) - A(476) = RCT(476)*V(280)*V(351) - A(477) = RCT(477)*V(289)*V(351) + A(344) = RCT(344)*V(336)*V(347) + A(345) = RCT(345)*V(98)*V(336) + A(346) = RCT(346)*V(98)*V(98) + A(347) = RCT(347)*V(45) + A(348) = RCT(348)*V(98)*V(338) + A(349) = RCT(349)*V(336)*V(344) + A(350) = RCT(350)*V(331)*V(356) + A(351) = RCT(351)*V(331)*V(341) + A(352) = RCT(352)*V(172)*V(343) + A(353) = RCT(353)*V(75)*V(343) + A(354) = RCT(354)*V(287)*V(343) + A(355) = RCT(355)*V(336)*V(341) + A(356) = RCT(356)*V(336)*V(338) + A(357) = RCT(357)*V(336)*V(336) + A(358) = RCT(358)*V(47) + A(359) = RCT(359)*V(55)*V(343) + A(360) = RCT(360)*V(265)*V(343) + A(361) = RCT(361)*V(249)*V(343) + A(362) = RCT(362)*V(317)*V(335) + A(363) = RCT(363)*V(317)*V(338) + A(364) = RCT(364)*V(317)*V(345) + A(365) = RCT(365)*V(317)*V(353) + A(366) = RCT(366)*V(317)*V(353)*V(353) + A(367) = RCT(367)*V(317)*V(356) + A(368) = RCT(368)*V(317)*V(355) + A(369) = RCT(369)*V(244)*V(335) + A(370) = RCT(370)*V(244)*V(338) + A(371) = RCT(371)*V(244)*V(345) + A(372) = RCT(372)*V(244)*V(355) + A(373) = RCT(373)*V(244)*V(353) + A(374) = RCT(374)*V(244)*V(353) + A(375) = RCT(375)*V(194)*V(348) + A(376) = RCT(376)*V(222)*V(348) + A(377) = RCT(377)*V(170)*V(348) + A(378) = RCT(378)*V(170)*V(343) + A(379) = RCT(379)*V(170)*V(356) + A(380) = RCT(380)*V(222)*V(343) + A(381) = RCT(381)*V(222)*V(356) + A(382) = RCT(382)*V(194)*V(343) + A(383) = RCT(383)*V(194)*V(356) + A(384) = RCT(384)*V(281)*V(341) + A(385) = RCT(385)*V(281)*V(338) + A(386) = RCT(386)*V(281)*V(348) + A(387) = RCT(387)*V(111)*V(343) + A(388) = RCT(388)*V(139)*V(343) + A(389) = RCT(389)*V(227)*V(348) + A(390) = RCT(390)*V(227)*V(343) + A(391) = RCT(391)*V(261)*V(341) + A(392) = RCT(392)*V(261)*V(338) + A(393) = RCT(393)*V(261)*V(345) + A(394) = RCT(394)*V(59) + A(395) = RCT(395)*V(261)*V(348) + A(396) = RCT(396)*V(76)*V(343) + A(397) = RCT(397)*V(69)*V(343) + A(398) = RCT(398)*V(282)*V(341) + A(399) = RCT(399)*V(282)*V(338) + A(400) = RCT(400)*V(282)*V(348) + A(401) = RCT(401)*V(282)*V(334) + A(402) = RCT(402)*V(163)*V(343) + A(403) = RCT(403)*V(179)*V(343) + A(404) = RCT(404)*V(276)*V(341) + A(405) = RCT(405)*V(276)*V(338) + A(406) = RCT(406)*V(276)*V(348) + A(407) = RCT(407)*V(141)*V(343) + A(408) = RCT(408)*V(112)*V(343) + A(409) = RCT(409)*V(132)*V(343) + A(410) = RCT(410)*V(275)*V(341) + A(411) = RCT(411)*V(275)*V(338) + A(412) = RCT(412)*V(275)*V(338) + A(413) = RCT(413)*V(275)*V(334) + A(414) = RCT(414)*V(275)*V(348) + A(415) = RCT(415)*V(164)*V(343) + A(416) = RCT(416)*V(165)*V(343) + A(417) = RCT(417)*V(284)*V(341) + A(418) = RCT(418)*V(284)*V(338) + A(419) = RCT(419)*V(284)*V(348) + A(420) = RCT(420)*V(256)*V(343) + A(421) = RCT(421)*V(256)*V(356) + A(422) = RCT(422)*V(256)*V(348) + A(423) = RCT(423)*V(241)*V(343) + A(424) = RCT(424)*V(241)*V(356) + A(425) = RCT(425)*V(241)*V(348) + A(426) = RCT(426)*V(212)*V(343) + A(427) = RCT(427)*V(212)*V(356) + A(428) = RCT(428)*V(212)*V(348) + A(429) = RCT(429)*V(278)*V(338) + A(430) = RCT(430)*V(278)*V(341) + A(431) = RCT(431)*V(278)*V(348) + A(432) = RCT(432)*V(278)*V(334) + A(433) = RCT(433)*V(166)*V(343) + A(434) = RCT(434)*V(166)*V(348) + A(435) = RCT(435)*V(180)*V(343) + A(436) = RCT(436)*V(277)*V(341) + A(437) = RCT(437)*V(277)*V(338) + A(438) = RCT(438)*V(277)*V(345) + A(439) = RCT(439)*V(60) + A(440) = RCT(440)*V(277)*V(348) + A(441) = RCT(441)*V(171)*V(343) + A(442) = RCT(442)*V(134)*V(343) + A(443) = RCT(443)*V(294)*V(341) + A(444) = RCT(444)*V(294)*V(338) + A(445) = RCT(445)*V(294)*V(338) + A(446) = RCT(446)*V(294)*V(348) + A(447) = RCT(447)*V(234)*V(343) + A(448) = RCT(448)*V(234)*V(356) + A(449) = RCT(449)*V(234)*V(348) + A(450) = RCT(450)*V(196)*V(343) + A(451) = RCT(451)*V(196)*V(356) + A(452) = RCT(452)*V(196)*V(348) + A(453) = RCT(453)*V(263)*V(343) + A(454) = RCT(454)*V(263)*V(356) + A(455) = RCT(455)*V(263)*V(348) + A(456) = RCT(456)*V(281)*V(334) + A(457) = RCT(457)*V(281)*V(328) + A(458) = RCT(458)*V(276)*V(334) + A(459) = RCT(459)*V(276)*V(328) + A(460) = RCT(460)*V(284)*V(334) + A(461) = RCT(461)*V(284)*V(328) + A(462) = RCT(462)*V(294)*V(334) + A(463) = RCT(463)*V(294)*V(328) + A(464) = RCT(464)*V(261)*V(334) + A(465) = RCT(465)*V(261)*V(328) + A(466) = RCT(466)*V(277)*V(334) + A(467) = RCT(467)*V(277)*V(328) + A(468) = RCT(468)*V(280)*V(338) + A(469) = RCT(469)*V(292)*V(338) + A(470) = RCT(470)*V(280)*V(341) + A(471) = RCT(471)*V(292)*V(341) + A(472) = RCT(472)*V(280)*V(334) + A(473) = RCT(473)*V(292)*V(334) + A(474) = RCT(474)*V(280)*V(328) + A(475) = RCT(475)*V(292)*V(328) + A(476) = RCT(476)*V(280)*V(348) + A(477) = RCT(477)*V(292)*V(348) A(478) = RCT(478)*V(280)*V(280) - A(479) = RCT(479)*V(280)*V(289) - A(480) = RCT(480)*V(289)*V(289) - A(481) = RCT(481)*V(256)*V(345) - A(482) = RCT(482)*V(242)*V(345) - A(483) = RCT(483)*V(242)*V(341) - A(484) = RCT(484)*V(242)*V(351) - A(485) = RCT(485)*V(256)*V(351) - A(486) = RCT(486)*V(103) - A(487) = RCT(487)*V(45) - A(488) = RCT(488)*V(154)*V(345) - A(489) = RCT(489)*V(93)*V(345) - A(490) = RCT(490)*V(83)*V(345) - A(491) = RCT(491)*V(91)*V(345) - A(492) = RCT(492)*V(95)*V(345) - A(493) = RCT(493)*V(276)*V(341) - A(494) = RCT(494)*V(276)*V(345) - A(495) = RCT(495)*V(276)*V(345) - A(496) = RCT(496)*V(276)*V(345) - A(497) = RCT(497)*V(276)*V(345) - A(498) = RCT(498)*V(305)*V(337) - A(499) = RCT(499)*V(305)*V(337) - A(500) = RCT(500)*V(304)*V(337) - A(501) = RCT(501)*V(304)*V(337) - A(502) = RCT(502)*V(305) - A(503) = RCT(503)*V(305) - A(504) = RCT(504)*V(304) - A(505) = RCT(505)*V(304) - A(506) = RCT(506)*V(305)*V(305) - A(507) = RCT(507)*V(304)*V(304) - A(508) = RCT(508)*V(304)*V(305) - A(509) = RCT(509)*V(305)*V(305) - A(510) = RCT(510)*V(304)*V(304) - A(511) = RCT(511)*V(304)*V(305) - A(512) = RCT(512)*V(305)*V(328) - A(513) = RCT(513)*V(305)*V(328) - A(514) = RCT(514)*V(304)*V(328) - A(515) = RCT(515)*V(304)*V(328) - A(516) = RCT(516)*V(305)*V(346) - A(517) = RCT(517)*V(305)*V(346) - A(518) = RCT(518)*V(305)*V(346) - A(519) = RCT(519)*V(305)*V(346) - A(520) = RCT(520)*V(304)*V(346) - A(521) = RCT(521)*V(304)*V(346) - A(522) = RCT(522)*V(304)*V(346) - A(523) = RCT(523)*V(304)*V(346) - A(524) = RCT(524)*V(230)*V(345) - A(525) = RCT(525)*V(231)*V(345) - A(526) = RCT(526)*V(150)*V(345) - A(527) = RCT(527)*V(144)*V(345) - A(528) = RCT(528)*V(238)*V(345) - A(529) = RCT(529)*V(215)*V(345) - A(530) = RCT(530)*V(119)*V(345) - A(531) = RCT(531)*V(187)*V(345) - A(532) = RCT(532)*V(187)*V(345) - A(533) = RCT(533)*V(192)*V(345) - A(534) = RCT(534)*V(192)*V(345) - A(535) = RCT(535)*V(187)*V(345) - A(536) = RCT(536)*V(192)*V(345) - A(537) = RCT(537)*V(209)*V(345) - A(538) = RCT(538)*V(199)*V(345) - A(539) = RCT(539)*V(223) - A(540) = RCT(540)*V(223)*V(346) - A(541) = RCT(541)*V(223)*V(346) - A(542) = RCT(542)*V(223)*V(337) - A(543) = RCT(543)*V(224) - A(544) = RCT(544)*V(224)*V(346) - A(545) = RCT(545)*V(224)*V(346) - A(546) = RCT(546)*V(224)*V(337) - A(547) = RCT(547)*V(232) - A(548) = RCT(548)*V(232)*V(346) - A(549) = RCT(549)*V(232)*V(346) - A(550) = RCT(550)*V(232)*V(337) - A(551) = RCT(551)*V(128)*V(345) - A(552) = RCT(552)*V(151)*V(345) - A(553) = RCT(553)*V(151)*V(345) - A(554) = RCT(554)*V(152)*V(345) - A(555) = RCT(555)*V(152)*V(345) - A(556) = RCT(556)*V(286) - A(557) = RCT(557)*V(286) - A(558) = RCT(558)*V(286)*V(337) - A(559) = RCT(559)*V(286)*V(346) - A(560) = RCT(560)*V(286)*V(346) - A(561) = RCT(561)*V(285) - A(562) = RCT(562)*V(285) - A(563) = RCT(563)*V(285)*V(346) - A(564) = RCT(564)*V(285)*V(346) - A(565) = RCT(565)*V(285)*V(337) - A(566) = RCT(566)*V(243)*V(337) - A(567) = RCT(567)*V(243)*V(346) - A(568) = RCT(568)*V(243)*V(346) - A(569) = RCT(569)*V(243) - A(570) = RCT(570)*V(133)*V(346) - A(571) = RCT(571)*V(133)*V(337) - A(572) = RCT(572)*V(135)*V(346) - A(573) = RCT(573)*V(135)*V(337) - A(574) = RCT(574)*V(175)*V(345) - A(575) = RCT(575)*V(175)*V(345) - A(576) = RCT(576)*V(168)*V(345) - A(577) = RCT(577)*V(168)*V(345) - A(578) = RCT(578)*V(268)*V(345) - A(579) = RCT(579)*V(268)*V(345) - A(580) = RCT(580)*V(267)*V(345) - A(581) = RCT(581)*V(267)*V(345) - A(582) = RCT(582)*V(268)*V(345) - A(583) = RCT(583)*V(267)*V(345) - A(584) = RCT(584)*V(205) - A(585) = RCT(585)*V(205)*V(337) - A(586) = RCT(586)*V(205)*V(346) - A(587) = RCT(587)*V(205)*V(346) - A(588) = RCT(588)*V(190) - A(589) = RCT(589)*V(190)*V(337) - A(590) = RCT(590)*V(190)*V(346) - A(591) = RCT(591)*V(190)*V(346) - A(592) = RCT(592)*V(206) - A(593) = RCT(593)*V(207) - A(594) = RCT(594)*V(206)*V(337) - A(595) = RCT(595)*V(206)*V(346) - A(596) = RCT(596)*V(206)*V(346) - A(597) = RCT(597)*V(207)*V(337) - A(598) = RCT(598)*V(207)*V(346) - A(599) = RCT(599)*V(207)*V(346) - A(600) = RCT(600)*V(293)*V(337) - A(601) = RCT(601)*V(293)*V(346) - A(602) = RCT(602)*V(293)*V(346) - A(603) = RCT(603)*V(276)*V(351) - A(604) = RCT(604)*V(310)*V(337) - A(605) = RCT(605)*V(311)*V(337) - A(606) = RCT(606)*V(310)*V(310) - A(607) = RCT(607)*V(310)*V(311) - A(608) = RCT(608)*V(311)*V(311) - A(609) = RCT(609)*V(311)*V(328) - A(610) = RCT(610)*V(310)*V(328) - A(611) = RCT(611)*V(310)*V(324) - A(612) = RCT(612)*V(311)*V(324) - A(613) = RCT(613)*V(310)*V(351) - A(614) = RCT(614)*V(311)*V(351) - A(615) = RCT(615)*V(310)*V(346) - A(616) = RCT(616)*V(310)*V(346) - A(617) = RCT(617)*V(311)*V(346) - A(618) = RCT(618)*V(311)*V(346) - A(619) = RCT(619)*V(145)*F(3) - A(620) = RCT(620)*V(145) - A(621) = RCT(621)*V(222)*V(345) - A(622) = RCT(622)*V(186)*V(345) - A(623) = RCT(623)*V(222)*V(345) - A(624) = RCT(624)*V(186)*V(345) - A(625) = RCT(625)*V(186)*V(345) - A(626) = RCT(626)*V(222)*V(345) - A(627) = RCT(627)*V(186)*V(345) - A(628) = RCT(628)*V(186)*V(345) - A(629) = RCT(629)*V(226) - A(630) = RCT(630)*V(271) - A(631) = RCT(631)*V(271)*V(337) - A(632) = RCT(632)*V(226)*V(337) - A(633) = RCT(633)*V(271)*V(346) - A(634) = RCT(634)*V(271)*V(346) - A(635) = RCT(635)*V(226)*V(346) - A(636) = RCT(636)*V(226)*V(346) - A(637) = RCT(637)*V(301)*V(345) - A(638) = RCT(638)*V(301)*V(345) - A(639) = RCT(639)*V(182)*V(346) - A(640) = RCT(640)*V(182)*V(337) - A(641) = RCT(641)*V(299)*V(345) - A(642) = RCT(642)*V(180)*V(346) - A(643) = RCT(643)*V(180)*V(337) - A(644) = RCT(644)*V(314)*V(345) - A(645) = RCT(645)*V(314)*V(341) - A(646) = RCT(646)*V(309)*V(345) - A(647) = RCT(647)*V(309)*V(345) - A(648) = RCT(648)*V(309)*V(341) - A(649) = RCT(649)*V(309)*V(351) - A(650) = RCT(650)*V(302)*V(345) - A(651) = RCT(651)*V(288)*V(345) - A(652) = RCT(652)*V(287)*V(345) - A(653) = RCT(653)*V(248)*V(345) - A(654) = RCT(654)*V(216)*V(345) - A(655) = RCT(655)*V(171)*V(346) - A(656) = RCT(656)*V(171)*V(337) - A(657) = RCT(657)*V(171)*V(335) - A(658) = RCT(658)*V(172)*V(346) - A(659) = RCT(659)*V(172)*V(337) - A(660) = RCT(660)*V(172)*V(335) - A(661) = RCT(661)*V(194)*V(345) - A(662) = RCT(662)*V(185)*V(345) - A(663) = RCT(663)*V(131)*V(345) - A(664) = RCT(664)*V(227)*V(345) - A(665) = RCT(665)*V(208)*V(345) - A(666) = RCT(666)*V(153)*V(345) - A(667) = RCT(667)*V(254)*V(337) - A(668) = RCT(668)*V(254)*V(346) - A(669) = RCT(669)*V(254)*V(346) - A(670) = RCT(670)*V(253)*V(337) - A(671) = RCT(671)*V(259)*V(337) - A(672) = RCT(672)*V(159)*V(345) - A(673) = RCT(673)*V(253) - A(674) = RCT(674)*V(253)*V(346) - A(675) = RCT(675)*V(253)*V(346) - A(676) = RCT(676)*V(259)*V(346) - A(677) = RCT(677)*V(259)*V(335) - A(678) = RCT(678)*V(308)*V(337) - A(679) = RCT(679)*V(308)*V(346) - A(680) = RCT(680)*V(308)*V(335) - A(681) = RCT(681)*V(308)*V(351) - A(682) = RCT(682)*V(308)*V(328) - A(683) = RCT(683)*V(184) - A(684) = RCT(684)*V(184)*V(345) - A(685) = RCT(685)*V(107)*V(345) - A(686) = RCT(686)*V(258)*V(345) - A(687) = RCT(687)*V(147)*V(345) - A(688) = RCT(688)*V(174)*V(345) - A(689) = RCT(689)*V(198)*V(345) - A(690) = RCT(690)*V(266)*V(345) - A(691) = RCT(691)*V(303)*V(345) - A(692) = RCT(692)*V(261)*V(351) - A(693) = RCT(693)*V(115)*V(345) - A(694) = RCT(694)*V(88)*V(345) - A(695) = RCT(695)*V(324)*V(337) - A(696) = RCT(696)*V(210)*V(345) - A(697) = RCT(697)*V(210)*V(345) - A(698) = RCT(698)*V(19)*V(345) - A(699) = RCT(699)*V(18)*V(337) - A(700) = RCT(700)*V(18)*V(346) - A(701) = RCT(701)*V(173)*V(345) - A(702) = RCT(702)*V(220)*V(345) - A(703) = RCT(703)*V(220)*V(351) - A(704) = RCT(704)*V(220)*V(341) - A(705) = RCT(705)*V(149)*V(345) - A(706) = RCT(706)*V(149)*V(351) - A(707) = RCT(707)*V(200)*V(345) - A(708) = RCT(708)*V(200)*V(351) - A(709) = RCT(709)*V(189)*V(346) - A(710) = RCT(710)*V(189)*V(337) - A(711) = RCT(711)*V(116)*V(345) - A(712) = RCT(712)*V(109)*V(341) - A(713) = RCT(713)*V(109)*V(345) - A(714) = RCT(714)*V(60)*V(345) - A(715) = RCT(715)*V(234)*V(337) - A(716) = RCT(716)*V(234)*V(346) - A(717) = RCT(717)*V(234)*V(351) - A(718) = RCT(718)*V(234)*V(328) - A(719) = RCT(719)*V(106) - A(720) = RCT(720)*V(106)*F(3) - A(721) = RCT(721)*V(70)*V(345) - A(722) = RCT(722)*V(136)*V(345) - A(723) = RCT(723)*V(136)*V(345) - A(724) = RCT(724)*V(143)*V(345) - A(725) = RCT(725)*V(82)*V(345) - A(726) = RCT(726)*V(101)*V(345) - A(727) = RCT(727)*V(263)*V(337) - A(728) = RCT(728)*V(263)*V(346) - A(729) = RCT(729)*V(263)*V(351) - A(730) = RCT(730)*V(263)*V(328) - A(731) = RCT(731)*V(263)*V(324) - A(732) = RCT(732)*V(58)*V(345) - A(733) = RCT(733)*V(121)*V(346) - A(734) = RCT(734)*V(121)*V(337) - A(735) = 7.09e-11*V(146)*V(345) - A(736) = RCT(736)*V(240)*V(346) - A(737) = RCT(737)*V(240)*V(337) - A(738) = RCT(738)*V(240)*V(335) - A(739) = RCT(739)*V(122) - A(740) = RCT(740)*V(122)*V(345) - A(741) = RCT(741)*V(195)*V(345) - A(742) = RCT(742)*V(195)*V(351) - A(743) = RCT(743)*V(158)*V(345) - A(744) = RCT(744)*V(158)*V(351) - A(745) = RCT(745)*V(202)*V(345) - A(746) = RCT(746)*V(202)*V(341) - A(747) = RCT(747)*V(202)*V(351) - A(748) = RCT(748)*V(204)*V(345) - A(749) = RCT(749)*V(204)*V(351) - A(750) = RCT(750)*V(235)*V(337) - A(751) = RCT(751)*V(235)*V(346) - A(752) = RCT(752)*V(235)*V(335) - A(753) = RCT(753)*V(71)*V(345) - A(754) = RCT(754)*V(90) - A(755) = RCT(755)*V(90)*V(345) - A(756) = RCT(756)*V(236)*V(335) - A(757) = RCT(757)*V(236)*V(346) - A(758) = RCT(758)*V(236)*V(351) - A(759) = RCT(759)*V(236)*V(337) - A(760) = RCT(760)*V(117)*V(345) - A(761) = RCT(761)*V(203)*V(341) - A(762) = RCT(762)*V(203)*V(335) - A(763) = RCT(763)*V(269)*V(345) - A(764) = RCT(764)*V(269)*V(351) - A(765) = RCT(765)*V(236)*V(328) - A(766) = RCT(766)*V(235)*V(328) - A(767) = RCT(767)*V(221)*V(345) - A(768) = RCT(768)*V(221)*V(341) - A(769) = RCT(769)*V(221) - A(770) = RCT(770)*V(201)*V(345) - A(771) = RCT(771)*V(201)*V(341) - A(772) = RCT(772)*V(201) - A(773) = RCT(773)*V(13)*V(337) - A(774) = RCT(774)*V(13)*V(346) - A(775) = RCT(775)*V(22)*V(337) - A(776) = RCT(776)*V(22)*V(346) - A(777) = RCT(777)*V(27)*V(337) - A(778) = RCT(778)*V(27)*V(346) - A(779) = RCT(779)*V(328)*V(351) - A(780) = RCT(780)*V(41)*V(345) - A(781) = RCT(781)*V(337) - A(782) = RCT(782)*V(335) - A(783) = RCT(783)*V(351) - A(784) = RCT(784)*V(351) - A(785) = RCT(785)*V(351) - A(786) = RCT(786)*V(214)*V(336) - A(787) = RCT(787)*V(214)*V(339) - A(788) = RCT(788)*V(214) - A(789) = RCT(789)*V(214)*V(353) - A(790) = RCT(790)*V(214)*V(344) - A(791) = RCT(791)*V(345)*V(353) - A(792) = RCT(792)*V(344)*V(345) - A(793) = RCT(793)*V(218)*V(336) - A(794) = RCT(794)*V(218)*V(339) - A(795) = RCT(795)*V(317)*V(336) - A(796) = RCT(796)*V(317)*V(339) - A(797) = RCT(797)*V(317)*V(352) - A(798) = RCT(798)*V(317)*V(349) - A(799) = RCT(799)*V(317)*V(350) - A(800) = RCT(800)*V(317)*V(353) - A(801) = RCT(801)*V(317)*V(344) - A(802) = RCT(802)*V(297)*V(353) - A(803) = RCT(803)*V(297)*V(344) - A(804) = RCT(804)*V(297)*V(339) - A(805) = RCT(805)*V(297)*V(349) - A(806) = RCT(806)*V(297)*V(350) - A(807) = RCT(807)*V(297)*V(352) - A(808) = RCT(808)*V(333)*V(339) - A(809) = RCT(809)*V(333)*V(352) - A(810) = RCT(810)*V(333)*V(353) - A(811) = RCT(811)*V(333)*V(344) - A(812) = RCT(812)*V(333)*V(348) - A(813) = RCT(813)*V(316)*V(352) - A(814) = RCT(814)*V(316)*V(339) - A(815) = RCT(815)*V(316)*V(353) - A(816) = RCT(816)*V(316)*V(344) - A(817) = RCT(817)*V(316)*V(349) - A(818) = RCT(818)*V(316)*V(350) - A(819) = RCT(819)*V(316)*V(348) - A(820) = RCT(820)*V(341)*V(352) - A(821) = RCT(821)*V(341)*V(349) - A(822) = RCT(822)*V(341)*V(350) - A(823) = RCT(823)*V(352) - A(824) = RCT(824)*V(352) - A(825) = RCT(825)*V(73) - A(826) = RCT(826)*V(73) - A(827) = RCT(827)*V(73) - A(828) = RCT(828)*V(330) - A(829) = RCT(829)*V(330) - A(830) = RCT(830)*V(44) - A(831) = RCT(831)*V(44) - A(832) = RCT(832)*V(44) - A(833) = RCT(833)*V(55) - A(834) = RCT(834)*V(55) - A(835) = RCT(835)*V(55) - A(836) = RCT(836)*V(42) - A(837) = RCT(837)*V(42) - A(838) = RCT(838)*V(42) - A(839) = RCT(839)*V(252) - A(840) = RCT(840)*V(252) - A(841) = RCT(841)*V(332) - A(842) = RCT(842)*V(332) - A(843) = RCT(843)*V(332)*V(336) - A(844) = RCT(844)*V(252)*V(349) - A(845) = RCT(845)*V(252)*V(350) - A(846) = RCT(846)*V(252)*V(353) - A(847) = RCT(847)*V(252)*V(344) - A(848) = RCT(848)*V(332)*V(349) - A(849) = RCT(849)*V(332)*V(350) - A(850) = RCT(850)*V(332)*V(353) - A(851) = RCT(851)*V(332)*V(344) - A(852) = RCT(852)*V(330)*V(349) - A(853) = RCT(853)*V(330)*V(350) - A(854) = RCT(854)*V(330)*V(353) - A(855) = RCT(855)*V(330)*V(344) - A(856) = RCT(856)*V(270) - A(857) = RCT(857)*V(294) - A(858) = RCT(858)*V(151) - A(859) = RCT(859)*V(152) - A(860) = RCT(860)*V(128) + A(479) = RCT(479)*V(280)*V(292) + A(480) = RCT(480)*V(292)*V(292) + A(481) = RCT(481)*V(260)*V(343) + A(482) = RCT(482)*V(246)*V(343) + A(483) = RCT(483)*V(246)*V(356) + A(484) = RCT(484)*V(246)*V(348) + A(485) = RCT(485)*V(260)*V(348) + A(486) = RCT(486)*V(106) + A(487) = RCT(487)*V(48) + A(488) = RCT(488)*V(156)*V(343) + A(489) = RCT(489)*V(96)*V(343) + A(490) = RCT(490)*V(86)*V(343) + A(491) = RCT(491)*V(94)*V(343) + A(492) = RCT(492)*V(97)*V(343) + A(493) = RCT(493)*V(279)*V(356) + A(494) = RCT(494)*V(279)*V(343) + A(495) = RCT(495)*V(279)*V(343) + A(496) = RCT(496)*V(279)*V(343) + A(497) = RCT(497)*V(279)*V(343) + A(498) = RCT(498)*V(314)*V(341) + A(499) = RCT(499)*V(314)*V(341) + A(500) = RCT(500)*V(315)*V(341) + A(501) = RCT(501)*V(315)*V(341) + A(502) = RCT(502)*V(314) + A(503) = RCT(503)*V(314) + A(504) = RCT(504)*V(315) + A(505) = RCT(505)*V(315) + A(506) = RCT(506)*V(314)*V(314) + A(507) = RCT(507)*V(315)*V(315) + A(508) = RCT(508)*V(314)*V(315) + A(509) = RCT(509)*V(314)*V(314) + A(510) = RCT(510)*V(315)*V(315) + A(511) = RCT(511)*V(314)*V(315) + A(512) = RCT(512)*V(314)*V(334) + A(513) = RCT(513)*V(314)*V(334) + A(514) = RCT(514)*V(315)*V(334) + A(515) = RCT(515)*V(315)*V(334) + A(516) = RCT(516)*V(314)*V(338) + A(517) = RCT(517)*V(314)*V(338) + A(518) = RCT(518)*V(314)*V(338) + A(519) = RCT(519)*V(314)*V(338) + A(520) = RCT(520)*V(315)*V(338) + A(521) = RCT(521)*V(315)*V(338) + A(522) = RCT(522)*V(315)*V(338) + A(523) = RCT(523)*V(315)*V(338) + A(524) = RCT(524)*V(233)*V(343) + A(525) = RCT(525)*V(231)*V(343) + A(526) = RCT(526)*V(150)*V(343) + A(527) = RCT(527)*V(151)*V(343) + A(528) = RCT(528)*V(242)*V(343) + A(529) = RCT(529)*V(218)*V(343) + A(530) = RCT(530)*V(122)*V(343) + A(531) = RCT(531)*V(191)*V(343) + A(532) = RCT(532)*V(191)*V(343) + A(533) = RCT(533)*V(195)*V(343) + A(534) = RCT(534)*V(195)*V(343) + A(535) = RCT(535)*V(191)*V(343) + A(536) = RCT(536)*V(195)*V(343) + A(537) = RCT(537)*V(213)*V(343) + A(538) = RCT(538)*V(202)*V(343) + A(539) = RCT(539)*V(228) + A(540) = RCT(540)*V(228)*V(338) + A(541) = RCT(541)*V(228)*V(338) + A(542) = RCT(542)*V(228)*V(341) + A(543) = RCT(543)*V(226) + A(544) = RCT(544)*V(226)*V(338) + A(545) = RCT(545)*V(226)*V(338) + A(546) = RCT(546)*V(226)*V(341) + A(547) = RCT(547)*V(235) + A(548) = RCT(548)*V(235)*V(338) + A(549) = RCT(549)*V(235)*V(338) + A(550) = RCT(550)*V(235)*V(341) + A(551) = RCT(551)*V(131)*V(343) + A(552) = RCT(552)*V(157)*V(343) + A(553) = RCT(553)*V(157)*V(343) + A(554) = RCT(554)*V(159)*V(343) + A(555) = RCT(555)*V(159)*V(343) + A(556) = RCT(556)*V(289) + A(557) = RCT(557)*V(289) + A(558) = RCT(558)*V(289)*V(341) + A(559) = RCT(559)*V(289)*V(338) + A(560) = RCT(560)*V(289)*V(338) + A(561) = RCT(561)*V(288) + A(562) = RCT(562)*V(288) + A(563) = RCT(563)*V(288)*V(338) + A(564) = RCT(564)*V(288)*V(338) + A(565) = RCT(565)*V(288)*V(341) + A(566) = RCT(566)*V(245)*V(341) + A(567) = RCT(567)*V(245)*V(338) + A(568) = RCT(568)*V(245)*V(338) + A(569) = RCT(569)*V(245) + A(570) = RCT(570)*V(137)*V(338) + A(571) = RCT(571)*V(137)*V(341) + A(572) = RCT(572)*V(136)*V(338) + A(573) = RCT(573)*V(136)*V(341) + A(574) = RCT(574)*V(175)*V(343) + A(575) = RCT(575)*V(175)*V(343) + A(576) = RCT(576)*V(177)*V(343) + A(577) = RCT(577)*V(177)*V(343) + A(578) = RCT(578)*V(271)*V(343) + A(579) = RCT(579)*V(271)*V(343) + A(580) = RCT(580)*V(270)*V(343) + A(581) = RCT(581)*V(270)*V(343) + A(582) = RCT(582)*V(271)*V(343) + A(583) = RCT(583)*V(270)*V(343) + A(584) = RCT(584)*V(210) + A(585) = RCT(585)*V(210)*V(341) + A(586) = RCT(586)*V(210)*V(338) + A(587) = RCT(587)*V(210)*V(338) + A(588) = RCT(588)*V(186) + A(589) = RCT(589)*V(186)*V(341) + A(590) = RCT(590)*V(186)*V(338) + A(591) = RCT(591)*V(186)*V(338) + A(592) = RCT(592)*V(209) + A(593) = RCT(593)*V(208) + A(594) = RCT(594)*V(209)*V(341) + A(595) = RCT(595)*V(209)*V(338) + A(596) = RCT(596)*V(209)*V(338) + A(597) = RCT(597)*V(208)*V(341) + A(598) = RCT(598)*V(208)*V(338) + A(599) = RCT(599)*V(208)*V(338) + A(600) = RCT(600)*V(299)*V(341) + A(601) = RCT(601)*V(299)*V(338) + A(602) = RCT(602)*V(299)*V(338) + A(603) = RCT(603)*V(279)*V(348) + A(604) = RCT(604)*V(308)*V(341) + A(605) = RCT(605)*V(310)*V(341) + A(606) = RCT(606)*V(308)*V(308) + A(607) = RCT(607)*V(308)*V(310) + A(608) = RCT(608)*V(310)*V(310) + A(609) = RCT(609)*V(310)*V(334) + A(610) = RCT(610)*V(308)*V(334) + A(611) = RCT(611)*V(308)*V(328) + A(612) = RCT(612)*V(310)*V(328) + A(613) = RCT(613)*V(308)*V(348) + A(614) = RCT(614)*V(310)*V(348) + A(615) = RCT(615)*V(308)*V(338) + A(616) = RCT(616)*V(308)*V(338) + A(617) = RCT(617)*V(310)*V(338) + A(618) = RCT(618)*V(310)*V(338) + A(619) = RCT(619)*V(147)*F(3) + A(620) = RCT(620)*V(147) + A(621) = RCT(621)*V(225)*V(343) + A(622) = RCT(622)*V(188)*V(343) + A(623) = RCT(623)*V(225)*V(343) + A(624) = RCT(624)*V(188)*V(343) + A(625) = RCT(625)*V(188)*V(343) + A(626) = RCT(626)*V(225)*V(343) + A(627) = RCT(627)*V(188)*V(343) + A(628) = RCT(628)*V(188)*V(343) + A(629) = RCT(629)*V(236) + A(630) = RCT(630)*V(273) + A(631) = RCT(631)*V(273)*V(341) + A(632) = RCT(632)*V(236)*V(341) + A(633) = RCT(633)*V(273)*V(338) + A(634) = RCT(634)*V(273)*V(338) + A(635) = RCT(635)*V(236)*V(338) + A(636) = RCT(636)*V(236)*V(338) + A(637) = RCT(637)*V(305)*V(343) + A(638) = RCT(638)*V(305)*V(343) + A(639) = RCT(639)*V(185)*V(338) + A(640) = RCT(640)*V(185)*V(341) + A(641) = RCT(641)*V(303)*V(343) + A(642) = RCT(642)*V(181)*V(338) + A(643) = RCT(643)*V(181)*V(341) + A(644) = RCT(644)*V(318)*V(343) + A(645) = RCT(645)*V(318)*V(356) + A(646) = RCT(646)*V(313)*V(343) + A(647) = RCT(647)*V(313)*V(343) + A(648) = RCT(648)*V(313)*V(356) + A(649) = RCT(649)*V(313)*V(348) + A(650) = RCT(650)*V(306)*V(343) + A(651) = RCT(651)*V(291)*V(343) + A(652) = RCT(652)*V(290)*V(343) + A(653) = RCT(653)*V(251)*V(343) + A(654) = RCT(654)*V(220)*V(343) + A(655) = RCT(655)*V(173)*V(338) + A(656) = RCT(656)*V(173)*V(341) + A(657) = RCT(657)*V(173)*V(345) + A(658) = RCT(658)*V(174)*V(338) + A(659) = RCT(659)*V(174)*V(341) + A(660) = RCT(660)*V(174)*V(345) + A(661) = RCT(661)*V(197)*V(343) + A(662) = RCT(662)*V(190)*V(343) + A(663) = RCT(663)*V(135)*V(343) + A(664) = RCT(664)*V(230)*V(343) + A(665) = RCT(665)*V(211)*V(343) + A(666) = RCT(666)*V(155)*V(343) + A(667) = RCT(667)*V(258)*V(341) + A(668) = RCT(668)*V(258)*V(338) + A(669) = RCT(669)*V(258)*V(338) + A(670) = RCT(670)*V(257)*V(341) + A(671) = RCT(671)*V(262)*V(341) + A(672) = RCT(672)*V(161)*V(343) + A(673) = RCT(673)*V(257) + A(674) = RCT(674)*V(257)*V(338) + A(675) = RCT(675)*V(257)*V(338) + A(676) = RCT(676)*V(262)*V(338) + A(677) = RCT(677)*V(262)*V(345) + A(678) = RCT(678)*V(312)*V(341) + A(679) = RCT(679)*V(312)*V(338) + A(680) = RCT(680)*V(312)*V(345) + A(681) = RCT(681)*V(312)*V(348) + A(682) = RCT(682)*V(312)*V(334) + A(683) = RCT(683)*V(189) + A(684) = RCT(684)*V(189)*V(343) + A(685) = RCT(685)*V(109)*V(343) + A(686) = RCT(686)*V(259)*V(343) + A(687) = RCT(687)*V(149)*V(343) + A(688) = RCT(688)*V(178)*V(343) + A(689) = RCT(689)*V(198)*V(343) + A(690) = RCT(690)*V(269)*V(343) + A(691) = RCT(691)*V(307)*V(343) + A(692) = RCT(692)*V(265)*V(348) + A(693) = RCT(693)*V(116)*V(343) + A(694) = RCT(694)*V(92)*V(343) + A(695) = RCT(695)*V(328)*V(341) + A(696) = RCT(696)*V(214)*V(343) + A(697) = RCT(697)*V(214)*V(343) + A(698) = RCT(698)*V(19)*V(343) + A(699) = RCT(699)*V(18)*V(341) + A(700) = RCT(700)*V(18)*V(338) + A(701) = RCT(701)*V(176)*V(343) + A(702) = RCT(702)*V(223)*V(343) + A(703) = RCT(703)*V(223)*V(348) + A(704) = RCT(704)*V(223)*V(356) + A(705) = RCT(705)*V(148)*V(343) + A(706) = RCT(706)*V(148)*V(348) + A(707) = RCT(707)*V(203)*V(343) + A(708) = RCT(708)*V(203)*V(348) + A(709) = RCT(709)*V(193)*V(338) + A(710) = RCT(710)*V(193)*V(341) + A(711) = RCT(711)*V(117)*V(343) + A(712) = RCT(712)*V(120)*V(356) + A(713) = RCT(713)*V(120)*V(343) + A(714) = RCT(714)*V(63)*V(343) + A(715) = RCT(715)*V(239)*V(341) + A(716) = RCT(716)*V(239)*V(338) + A(717) = RCT(717)*V(239)*V(348) + A(718) = RCT(718)*V(239)*V(334) + A(719) = RCT(719)*V(114) + A(720) = RCT(720)*V(114)*F(3) + A(721) = RCT(721)*V(73)*V(343) + A(722) = RCT(722)*V(138)*V(343) + A(723) = RCT(723)*V(138)*V(343) + A(724) = RCT(724)*V(145)*V(343) + A(725) = RCT(725)*V(85)*V(343) + A(726) = RCT(726)*V(103)*V(343) + A(727) = RCT(727)*V(266)*V(341) + A(728) = RCT(728)*V(266)*V(338) + A(729) = RCT(729)*V(266)*V(348) + A(730) = RCT(730)*V(266)*V(334) + A(731) = RCT(731)*V(266)*V(328) + A(732) = RCT(732)*V(61)*V(343) + A(733) = RCT(733)*V(124)*V(338) + A(734) = RCT(734)*V(124)*V(341) + A(735) = 7.09e-11*V(152)*V(343) + A(736) = RCT(736)*V(243)*V(338) + A(737) = RCT(737)*V(243)*V(341) + A(738) = RCT(738)*V(243)*V(345) + A(739) = RCT(739)*V(125) + A(740) = RCT(740)*V(125)*V(343) + A(741) = RCT(741)*V(199)*V(343) + A(742) = RCT(742)*V(199)*V(348) + A(743) = RCT(743)*V(162)*V(343) + A(744) = RCT(744)*V(162)*V(348) + A(745) = RCT(745)*V(205)*V(343) + A(746) = RCT(746)*V(205)*V(356) + A(747) = RCT(747)*V(205)*V(348) + A(748) = RCT(748)*V(207)*V(343) + A(749) = RCT(749)*V(207)*V(348) + A(750) = RCT(750)*V(237)*V(341) + A(751) = RCT(751)*V(237)*V(338) + A(752) = RCT(752)*V(237)*V(345) + A(753) = RCT(753)*V(77)*V(343) + A(754) = RCT(754)*V(105) + A(755) = RCT(755)*V(105)*V(343) + A(756) = RCT(756)*V(238)*V(345) + A(757) = RCT(757)*V(238)*V(338) + A(758) = RCT(758)*V(238)*V(348) + A(759) = RCT(759)*V(238)*V(341) + A(760) = RCT(760)*V(118)*V(343) + A(761) = RCT(761)*V(206)*V(356) + A(762) = RCT(762)*V(206)*V(345) + A(763) = RCT(763)*V(272)*V(343) + A(764) = RCT(764)*V(272)*V(348) + A(765) = RCT(765)*V(238)*V(334) + A(766) = RCT(766)*V(237)*V(334) + A(767) = RCT(767)*V(224)*V(343) + A(768) = RCT(768)*V(224)*V(356) + A(769) = RCT(769)*V(224) + A(770) = RCT(770)*V(204)*V(343) + A(771) = RCT(771)*V(204)*V(356) + A(772) = RCT(772)*V(204) + A(773) = RCT(773)*V(13)*V(341) + A(774) = RCT(774)*V(13)*V(338) + A(775) = RCT(775)*V(22)*V(341) + A(776) = RCT(776)*V(22)*V(338) + A(777) = RCT(777)*V(27)*V(341) + A(778) = RCT(778)*V(27)*V(338) + A(779) = RCT(779)*V(334)*V(348) + A(780) = RCT(780)*V(44)*V(343) + A(781) = RCT(781)*V(341) + A(782) = RCT(782)*V(345) + A(783) = RCT(783)*V(348) + A(784) = RCT(784)*V(348) + A(785) = RCT(785)*V(348) + A(786) = RCT(786)*V(217)*V(353) + A(787) = RCT(787)*V(217)*V(340) + A(788) = RCT(788)*V(217) + A(789) = RCT(789)*V(217)*V(339) + A(790) = RCT(790)*V(217)*V(346) + A(791) = RCT(791)*V(339)*V(343) + A(792) = RCT(792)*V(343)*V(346) + A(793) = RCT(793)*V(221)*V(353) + A(794) = RCT(794)*V(221)*V(340) + A(795) = RCT(795)*V(321)*V(353) + A(796) = RCT(796)*V(321)*V(340) + A(797) = RCT(797)*V(321)*V(354) + A(798) = RCT(798)*V(321)*V(349) + A(799) = RCT(799)*V(321)*V(350) + A(800) = RCT(800)*V(321)*V(339) + A(801) = RCT(801)*V(321)*V(346) + A(802) = RCT(802)*V(301)*V(339) + A(803) = RCT(803)*V(301)*V(346) + A(804) = RCT(804)*V(301)*V(340) + A(805) = RCT(805)*V(301)*V(349) + A(806) = RCT(806)*V(301)*V(350) + A(807) = RCT(807)*V(301)*V(354) + A(808) = RCT(808)*V(332)*V(340) + A(809) = RCT(809)*V(332)*V(354) + A(810) = RCT(810)*V(332)*V(339) + A(811) = RCT(811)*V(332)*V(346) + A(812) = RCT(812)*V(332)*V(355) + A(813) = RCT(813)*V(320)*V(354) + A(814) = RCT(814)*V(320)*V(340) + A(815) = RCT(815)*V(320)*V(339) + A(816) = RCT(816)*V(320)*V(346) + A(817) = RCT(817)*V(320)*V(349) + A(818) = RCT(818)*V(320)*V(350) + A(819) = RCT(819)*V(320)*V(355) + A(820) = RCT(820)*V(354)*V(356) + A(821) = RCT(821)*V(349)*V(356) + A(822) = RCT(822)*V(350)*V(356) + A(823) = RCT(823)*V(354) + A(824) = RCT(824)*V(354) + A(825) = RCT(825)*V(75) + A(826) = RCT(826)*V(75) + A(827) = RCT(827)*V(75) + A(828) = RCT(828)*V(287) + A(829) = RCT(829)*V(287) + A(830) = RCT(830)*V(47) + A(831) = RCT(831)*V(47) + A(832) = RCT(832)*V(47) + A(833) = RCT(833)*V(58) + A(834) = RCT(834)*V(58) + A(835) = RCT(835)*V(58) + A(836) = RCT(836)*V(45) + A(837) = RCT(837)*V(45) + A(838) = RCT(838)*V(45) + A(839) = RCT(839)*V(254) + A(840) = RCT(840)*V(254) + A(841) = RCT(841)*V(296) + A(842) = RCT(842)*V(296) + A(843) = RCT(843)*V(296)*V(353) + A(844) = RCT(844)*V(254)*V(349) + A(845) = RCT(845)*V(254)*V(350) + A(846) = RCT(846)*V(254)*V(339) + A(847) = RCT(847)*V(254)*V(346) + A(848) = RCT(848)*V(296)*V(349) + A(849) = RCT(849)*V(296)*V(350) + A(850) = RCT(850)*V(296)*V(339) + A(851) = RCT(851)*V(296)*V(346) + A(852) = RCT(852)*V(287)*V(349) + A(853) = RCT(853)*V(287)*V(350) + A(854) = RCT(854)*V(287)*V(339) + A(855) = RCT(855)*V(287)*V(346) + A(856) = RCT(856)*V(274) + A(857) = RCT(857)*V(298) + A(858) = RCT(858)*V(157) + A(859) = RCT(859)*V(159) + A(860) = RCT(860)*V(131) A(861) = RCT(861)*V(24) - A(862) = RCT(862)*V(302) - A(863) = RCT(863)*V(251) - A(864) = RCT(864)*V(256) - A(865) = RCT(865)*V(242) - A(866) = RCT(866)*V(154) - A(867) = RCT(867)*V(115) - A(868) = RCT(868)*V(107) - A(869) = RCT(869)*V(268) + A(862) = RCT(862)*V(306) + A(863) = RCT(863)*V(255) + A(864) = RCT(864)*V(260) + A(865) = RCT(865)*V(246) + A(866) = RCT(866)*V(156) + A(867) = RCT(867)*V(116) + A(868) = RCT(868)*V(109) + A(869) = RCT(869)*V(271) A(870) = RCT(870)*V(175) - A(871) = RCT(871)*V(168) - A(872) = RCT(872)*V(267) - A(873) = RCT(873)*V(215) - A(874) = RCT(874)*V(186) - A(875) = RCT(875)*V(222) - A(876) = RCT(876)*V(299) - A(877) = RCT(877)*V(266) - A(878) = RCT(878)*V(303) - A(879) = RCT(879)*V(216) - A(880) = RCT(880)*V(248) - A(881) = RCT(881)*V(269) - A(882) = RCT(882)*V(341) - A(883) = RCT(883)*V(341) - A(884) = RCT(884)*F(3) - A(885) = RCT(885)*V(335) - A(886) = RCT(886)*V(264) - A(887) = RCT(887)*V(164) - A(888) = RCT(888)*V(325) - A(889) = RCT(889)*V(325) - A(890) = RCT(890)*V(327) - A(891) = RCT(891)*V(239) - A(892) = RCT(892)*V(108) - A(893) = RCT(893)*V(108) - A(894) = RCT(894)*V(351) - A(895) = RCT(895)*V(351) - A(896) = RCT(896)*V(214) - A(897) = RCT(897)*V(326) - A(898) = RCT(898)*V(326) - A(899) = RCT(899)*V(139) - A(900) = RCT(900)*V(126) - A(901) = RCT(901)*V(233) - A(902) = RCT(902)*V(146) - A(903) = RCT(903)*V(298) - A(904) = RCT(904)*V(295) - A(905) = RCT(905)*V(295) - A(906) = RCT(906)*V(292) - A(907) = RCT(907)*V(306) - A(908) = RCT(908)*V(270) - A(909) = RCT(909)*V(270) - A(910) = RCT(910)*V(270) - A(911) = RCT(911)*V(294) - A(912) = RCT(912)*V(314) - A(913) = RCT(913)*V(314) - A(914) = RCT(914)*V(314) - A(915) = RCT(915)*V(309) - A(916) = RCT(916)*V(307) - A(917) = RCT(917)*V(125) - A(918) = RCT(918)*V(118) - A(919) = RCT(919)*V(99) - A(920) = RCT(920)*V(100) - A(921) = RCT(921)*V(97) - A(922) = RCT(922)*V(98) - A(923) = RCT(923)*V(102) - A(924) = RCT(924)*V(123) - A(925) = RCT(925)*V(155) - A(926) = RCT(926)*V(251) - A(927) = RCT(927)*V(196) - A(928) = RCT(928)*V(116) - A(929) = RCT(929)*V(279) - A(930) = RCT(930)*V(92) - A(931) = RCT(931)*V(148) - A(932) = RCT(932)*V(347) - A(933) = RCT(933)*V(316) - A(934) = RCT(934)*V(218) - A(935) = RCT(935)*V(218) - A(936) = RCT(936)*V(59) - A(937) = RCT(937)*V(81) - A(938) = RCT(938)*V(78) - A(939) = RCT(939)*V(105) - A(940) = RCT(940)*V(181) - A(941) = RCT(941)*V(79) - A(942) = RCT(942)*V(157) - A(943) = RCT(943)*V(245) - A(944) = RCT(944)*V(338) - A(945) = RCT(945)*V(120) - A(946) = RCT(946)*V(76) - A(947) = RCT(947)*V(297) - A(948) = RCT(948)*V(317) - A(949) = RCT(949)*V(317) - A(950) = RCT(950)*V(333) - A(951) = RCT(951)*V(43) - A(952) = RCT(952)*V(46) - A(953) = RCT(953)*V(47) - A(954) = RCT(954)*V(48) - A(955) = RCT(955)*V(49) - A(956) = RCT(956)*V(50) - A(957) = RCT(957)*V(51) - A(958) = RCT(958)*V(84) - A(959) = RCT(959)*V(85) - A(960) = RCT(960)*V(86) - A(961) = RCT(961)*V(87) - A(962) = RCT(962)*V(53) - A(963) = RCT(963)*V(61) + A(871) = RCT(871)*V(177) + A(872) = RCT(872)*V(270) + A(873) = RCT(873)*V(218) + A(874) = RCT(874)*V(188) + A(875) = RCT(875)*V(225) + A(876) = RCT(876)*V(303) + A(877) = RCT(877)*V(269) + A(878) = RCT(878)*V(307) + A(879) = RCT(879)*V(220) + A(880) = RCT(880)*V(251) + A(881) = RCT(881)*V(272) + A(882) = RCT(882)*V(267)*V(355) + A(883) = RCT(883)*V(355)*V(356) + A(884) = RCT(884)*V(355) + A(885) = RCT(885)*V(345)*V(355) + A(886) = RCT(886)*V(329)*V(355) + A(887) = RCT(887)*V(93) + A(888) = RCT(888)*V(93)*V(343)*V(355) + A(889) = RCT(889)*V(356) + A(890) = RCT(890)*V(356) + A(891) = RCT(891)*F(3) + A(892) = RCT(892)*V(345) + A(893) = RCT(893)*V(267) + A(894) = RCT(894)*V(167) + A(895) = RCT(895)*V(329) + A(896) = RCT(896)*V(329) + A(897) = RCT(897)*V(333) + A(898) = RCT(898)*V(240) + A(899) = RCT(899)*V(110) + A(900) = RCT(900)*V(110) + A(901) = RCT(901)*V(348) + A(902) = RCT(902)*V(348) + A(903) = RCT(903)*V(217) + A(904) = RCT(904)*V(330) + A(905) = RCT(905)*V(330) + A(906) = RCT(906)*V(143) + A(907) = RCT(907)*V(129) + A(908) = RCT(908)*V(229) + A(909) = RCT(909)*V(152) + A(910) = RCT(910)*V(302) + A(911) = RCT(911)*V(297) + A(912) = RCT(912)*V(297) + A(913) = RCT(913)*V(295) + A(914) = RCT(914)*V(309) + A(915) = RCT(915)*V(274) + A(916) = RCT(916)*V(274) + A(917) = RCT(917)*V(274) + A(918) = RCT(918)*V(298) + A(919) = RCT(919)*V(318) + A(920) = RCT(920)*V(318) + A(921) = RCT(921)*V(318) + A(922) = RCT(922)*V(313) + A(923) = RCT(923)*V(311) + A(924) = RCT(924)*V(128) + A(925) = RCT(925)*V(121) + A(926) = RCT(926)*V(101) + A(927) = RCT(927)*V(102) + A(928) = RCT(928)*V(99) + A(929) = RCT(929)*V(100) + A(930) = RCT(930)*V(104) + A(931) = RCT(931)*V(126) + A(932) = RCT(932)*V(158) + A(933) = RCT(933)*V(255) + A(934) = RCT(934)*V(200) + A(935) = RCT(935)*V(117) + A(936) = RCT(936)*V(283) + A(937) = RCT(937)*V(95) + A(938) = RCT(938)*V(153) + A(939) = RCT(939)*V(347) + A(940) = RCT(940)*V(320) + A(941) = RCT(941)*V(221) + A(942) = RCT(942)*V(221) + A(943) = RCT(943)*V(62) + A(944) = RCT(944)*V(82) + A(945) = RCT(945)*V(79) + A(946) = RCT(946)*V(108) + A(947) = RCT(947)*V(184) + A(948) = RCT(948)*V(80) + A(949) = RCT(949)*V(160) + A(950) = RCT(950)*V(248) + A(951) = RCT(951)*V(344) + A(952) = RCT(952)*V(123) + A(953) = RCT(953)*V(78) + A(954) = RCT(954)*V(301) + A(955) = RCT(955)*V(321) + A(956) = RCT(956)*V(321) + A(957) = RCT(957)*V(332) + A(958) = RCT(958)*V(46) + A(959) = RCT(959)*V(49) + A(960) = RCT(960)*V(50) + A(961) = RCT(961)*V(51) + A(962) = RCT(962)*V(52) + A(963) = RCT(963)*V(53) A(964) = RCT(964)*V(54) - A(965) = RCT(965)*V(110) - A(966) = RCT(966)*V(170) - A(967) = RCT(967)*V(330) - A(968) = RCT(968)*V(284) - A(969) = RCT(969)*V(96) - A(970) = RCT(970)*V(62) - A(971) = RCT(971)*V(252) - A(972) = RCT(972)*V(332) - A(973) = RCT(973)*V(44) - A(974) = RCT(974)*V(52) - A(975) = RCT(975)*V(1) - A(976) = RCT(976)*V(3) - A(977) = RCT(977)*V(2) - A(978) = RCT(978)*V(42) - A(979) = RCT(979)*V(55) - A(980) = RCT(980)*V(77) - A(981) = RCT(981)*V(104) - A(982) = RCT(982)*V(80) - A(983) = RCT(983)*V(80) - A(984) = RCT(984)*V(244) - A(985) = RCT(985)*V(63) - A(986) = RCT(986)*V(68) - A(987) = RCT(987)*V(134) - A(988) = RCT(988)*V(346) - A(989) = RCT(989)*V(229) - A(990) = RCT(990)*V(261) - A(991) = RCT(991)*V(256) - A(992) = RCT(992)*V(242) - A(993) = RCT(993)*V(154) - A(994) = RCT(994)*V(65) - A(995) = RCT(995)*V(65) - A(996) = RCT(996)*V(64) - A(997) = RCT(997)*V(64) - A(998) = RCT(998)*V(93) - A(999) = RCT(999)*V(83) - A(1000) = RCT(1000)*V(91) - A(1001) = RCT(1001)*V(95) - A(1002) = RCT(1002)*V(88) - A(1003) = RCT(1003)*V(210) - A(1004) = RCT(1004)*V(115) - A(1005) = RCT(1005)*V(247) - A(1006) = RCT(1006)*V(208) - A(1007) = RCT(1007)*V(227) - A(1008) = RCT(1008)*V(288) - A(1009) = RCT(1009)*V(185) - A(1010) = RCT(1010)*V(194) - A(1011) = RCT(1011)*V(287) - A(1012) = RCT(1012)*V(159) - A(1013) = RCT(1013)*V(302) - A(1014) = RCT(1014)*V(248) - A(1015) = RCT(1015)*V(216) - A(1016) = RCT(1016)*V(187) - A(1017) = RCT(1017)*V(192) - A(1018) = RCT(1018)*V(209) - A(1019) = RCT(1019)*V(199) - A(1020) = RCT(1020)*V(230) - A(1021) = RCT(1021)*V(231) - A(1022) = RCT(1022)*V(150) - A(1023) = RCT(1023)*V(144) - A(1024) = RCT(1024)*V(268) - A(1025) = RCT(1025)*V(175) - A(1026) = RCT(1026)*V(168) - A(1027) = RCT(1027)*V(267) - A(1028) = RCT(1028)*V(222) - A(1029) = RCT(1029)*V(186) - A(1030) = RCT(1030)*V(186) - A(1031) = RCT(1031)*V(301) - A(1032) = RCT(1032)*V(299) - A(1033) = RCT(1033)*V(258) - A(1034) = RCT(1034)*V(258) - A(1035) = RCT(1035)*V(174) - A(1036) = RCT(1036)*V(198) - A(1037) = RCT(1037)*V(147) - A(1038) = RCT(1038)*V(303) + A(965) = RCT(965)*V(88) + A(966) = RCT(966)*V(89) + A(967) = RCT(967)*V(90) + A(968) = RCT(968)*V(91) + A(969) = RCT(969)*V(56) + A(970) = RCT(970)*V(64) + A(971) = RCT(971)*V(57) + A(972) = RCT(972)*V(119) + A(973) = RCT(973)*V(172) + A(974) = RCT(974)*V(287) + A(975) = RCT(975)*V(336) + A(976) = RCT(976)*V(98) + A(977) = RCT(977)*V(65) + A(978) = RCT(978)*V(254) + A(979) = RCT(979)*V(296) + A(980) = RCT(980)*V(47) + A(981) = RCT(981)*V(55) + A(982) = RCT(982)*V(1) + A(983) = RCT(983)*V(3) + A(984) = RCT(984)*V(2) + A(985) = RCT(985)*V(45) + A(986) = RCT(986)*V(58) + A(987) = RCT(987)*V(81) + A(988) = RCT(988)*V(107) + A(989) = RCT(989)*V(83) + A(990) = RCT(990)*V(83) + A(991) = RCT(991)*V(247) + A(992) = RCT(992)*V(66) + A(993) = RCT(993)*V(71) + A(994) = RCT(994)*V(146) + A(995) = RCT(995)*V(338) + A(996) = RCT(996)*V(234) + A(997) = RCT(997)*V(265) + A(998) = RCT(998)*V(260) + A(999) = RCT(999)*V(246) + A(1000) = RCT(1000)*V(156) + A(1001) = RCT(1001)*V(68) + A(1002) = RCT(1002)*V(68) + A(1003) = RCT(1003)*V(67) + A(1004) = RCT(1004)*V(67) + A(1005) = RCT(1005)*V(96) + A(1006) = RCT(1006)*V(86) + A(1007) = RCT(1007)*V(94) + A(1008) = RCT(1008)*V(97) + A(1009) = RCT(1009)*V(92) + A(1010) = RCT(1010)*V(214) + A(1011) = RCT(1011)*V(116) + A(1012) = RCT(1012)*V(249) + A(1013) = RCT(1013)*V(211) + A(1014) = RCT(1014)*V(230) + A(1015) = RCT(1015)*V(291) + A(1016) = RCT(1016)*V(190) + A(1017) = RCT(1017)*V(197) + A(1018) = RCT(1018)*V(290) + A(1019) = RCT(1019)*V(161) + A(1020) = RCT(1020)*V(306) + A(1021) = RCT(1021)*V(251) + A(1022) = RCT(1022)*V(220) + A(1023) = RCT(1023)*V(191) + A(1024) = RCT(1024)*V(195) + A(1025) = RCT(1025)*V(213) + A(1026) = RCT(1026)*V(202) + A(1027) = RCT(1027)*V(233) + A(1028) = RCT(1028)*V(231) + A(1029) = RCT(1029)*V(150) + A(1030) = RCT(1030)*V(151) + A(1031) = RCT(1031)*V(271) + A(1032) = RCT(1032)*V(175) + A(1033) = RCT(1033)*V(177) + A(1034) = RCT(1034)*V(270) + A(1035) = RCT(1035)*V(225) + A(1036) = RCT(1036)*V(188) + A(1037) = RCT(1037)*V(188) + A(1038) = RCT(1038)*V(305) A(1039) = RCT(1039)*V(303) - A(1040) = RCT(1040)*V(266) - A(1041) = RCT(1041)*V(266) - A(1042) = RCT(1042)*V(136) - A(1043) = RCT(1043)*V(204) - A(1044) = RCT(1044)*V(71) - A(1045) = RCT(1045)*V(117) - A(1046) = RCT(1046)*V(269) - A(1047) = RCT(1047)*V(124) - A(1048) = RCT(1048)*V(111) - A(1049) = RCT(1049)*V(225) - A(1050) = RCT(1050)*V(74) - A(1051) = RCT(1051)*V(66) - A(1052) = RCT(1052)*V(160) - A(1053) = RCT(1053)*V(112) - A(1054) = RCT(1054)*V(161) - A(1055) = RCT(1055)*V(169) - A(1056) = RCT(1056)*V(130) - A(1057) = RCT(1057)*V(229) - A(1058) = RCT(1058)*V(255) + A(1040) = RCT(1040)*V(259) + A(1041) = RCT(1041)*V(259) + A(1042) = RCT(1042)*V(178) + A(1043) = RCT(1043)*V(198) + A(1044) = RCT(1044)*V(149) + A(1045) = RCT(1045)*V(307) + A(1046) = RCT(1046)*V(307) + A(1047) = RCT(1047)*V(269) + A(1048) = RCT(1048)*V(269) + A(1049) = RCT(1049)*V(138) + A(1050) = RCT(1050)*V(207) + A(1051) = RCT(1051)*V(77) + A(1052) = RCT(1052)*V(118) + A(1053) = RCT(1053)*V(272) + A(1054) = RCT(1054)*V(127) + A(1055) = RCT(1055)*V(111) + A(1056) = RCT(1056)*V(227) + A(1057) = RCT(1057)*V(76) + A(1058) = RCT(1058)*V(69) + A(1059) = RCT(1059)*V(163) + A(1060) = RCT(1060)*V(112) + A(1061) = RCT(1061)*V(164) + A(1062) = RCT(1062)*V(171) + A(1063) = RCT(1063)*V(134) + A(1064) = RCT(1064)*V(234) + A(1065) = RCT(1065)*V(256) !### Use Aout to return equation rates IF ( PRESENT( Aout ) ) Aout = A ! Aggregate function IF (DO_FUN(1)) & - Vdot(1) = -A(975) + Vdot(1) = -A(982) IF (DO_FUN(2)) & - Vdot(2) = -A(977) + Vdot(2) = -A(984) IF (DO_FUN(3)) & - Vdot(3) = -A(976) + Vdot(3) = -A(983) IF (DO_FUN(4)) & Vdot(4) = A(825)+2*A(830)+2*A(833)+2*A(836) IF (DO_FUN(5)) & @@ -1146,8 +1153,8 @@ SUBROUTINE Fun ( V, F, RCT, Vdot, Aout ) &*A(459)+0.9*A(461)+0.9*A(463)+0.75*A(464)+2*A(465)+0.75*A(466)+A(467)+A(474)+0.407*A(493)+0.355*A(528)+A(570)& &+A(571)+A(572)+A(573)+A(611)+A(612)+0.429*A(639)+0.429*A(640)+0.23*A(652)+0.75*A(654)+0.097*A(661)+0.5*A(671)& &+0.41*A(672)+A(676)+0.5*A(678)+A(679)+A(681)+0.7*A(682)+A(689)+A(693)+0.5*A(695)+A(701)+A(731)+2*A(736)+0.44& - &*A(737)+0.35*A(750)+A(751)+A(755)+A(766)+0.3*A(899)+A(930)+A(1004)+1.238*A(1012)+A(1044)+A(1046)+A(1050)& - &+A(1051)+A(1055)+A(1056) + &*A(737)+0.35*A(750)+A(751)+A(755)+A(766)+0.3*A(906)+A(937)+A(1011)+1.238*A(1019)+A(1051)+A(1053)+A(1057)& + &+A(1058)+A(1062)+A(1063) IF (DO_FUN(8)) & Vdot(8) = A(486)+A(487) IF (DO_FUN(9)) & @@ -1200,9 +1207,15 @@ SUBROUTINE Fun ( V, F, RCT, Vdot, Aout ) IF (DO_FUN(32)) & Vdot(32) = A(202)+A(368)+A(372) IF (DO_FUN(33)) & - Vdot(33) = 2*A(12) + Vdot(33) = A(7)+A(8)+A(9)+2*A(12) IF (DO_FUN(34)) & - Vdot(34) = A(18)+A(22)+A(26)+A(36)+A(38)+A(56)+A(58)+A(60)+A(63)+A(65)+A(68)+2*A(73)+0.942*A(78)+A(80)+A(82)+A(85)& + Vdot(34) = A(882)+A(883)+A(884)+A(885)+A(886)+2*A(888) +IF (DO_FUN(35)) & + Vdot(35) = A(10) +IF (DO_FUN(36)) & + Vdot(36) = A(887) +IF (DO_FUN(37)) & + Vdot(37) = A(18)+A(22)+A(26)+A(36)+A(38)+A(56)+A(58)+A(60)+A(63)+A(65)+A(68)+2*A(73)+0.942*A(78)+A(80)+A(82)+A(85)& &+A(87)+2*A(88)+A(90)+A(91)+A(92)+A(93)+A(94)+A(95)+A(96)+A(97)+A(98)+A(100)+A(109)+A(123)+A(125)+A(126)& &+A(127)+0.15*A(128)+0.15*A(148)+A(156)+A(157)+0.15*A(158)+A(160)+A(211)+0.02*A(247)+A(248)+A(249)+A(273)& &+A(281)+A(282)+A(297)+0.1*A(309)+A(319)+A(322)+A(323)+A(352)+A(363)+A(364)+A(370)+A(371)+0.75*A(385)+0.5& @@ -1213,10 +1226,10 @@ SUBROUTINE Fun ( V, F, RCT, Vdot, Aout ) &+A(596)+A(598)+A(599)+A(601)+A(602)+A(615)+A(616)+A(617)+A(618)+A(633)+A(634)+A(635)+A(636)+A(639)+A(642)& &+0.69*A(650)+A(655)+A(658)+A(668)+A(669)+0.13*A(671)+A(674)+A(675)+A(676)+0.13*A(678)+A(679)+A(684)+0.13& &*A(695)+0.89*A(709)+A(711)+0.995*A(716)+A(721)+A(728)+A(733)+A(736)+0.15*A(737)+A(739)+A(740)+0.15*A(750)& - &+A(751)+A(754)+A(755)+A(756)+A(757)+A(763)+2*A(884)+A(892)+0.3*A(899)+A(900)+A(927)+A(928)+A(982)+A(985)& - &+A(988)+A(998)+A(999)+A(1000)+A(1001)+0.3*A(1047) -IF (DO_FUN(35)) & - Vdot(35) = A(1)+A(4)+A(8)+A(14)+A(15)+A(17)+A(42)+A(44)+2*A(49)+A(50)+A(52)+A(67)+A(76)+A(77)+A(86)+A(101)+A(110)& + &+A(751)+A(754)+A(755)+A(756)+A(757)+A(763)+2*A(891)+A(899)+0.3*A(906)+A(907)+A(934)+A(935)+A(989)+A(992)& + &+A(995)+A(1005)+A(1006)+A(1007)+A(1008)+0.3*A(1054) +IF (DO_FUN(38)) & + Vdot(38) = A(1)+A(4)+A(8)+A(14)+A(15)+A(17)+A(42)+A(44)+2*A(49)+A(50)+A(52)+A(67)+A(76)+A(77)+A(86)+A(101)+A(110)& &+A(124)+A(131)+A(150)+A(154)+A(155)+A(159)+A(162)+A(165)+A(166)+A(179)+2*A(196)+A(201)+2*A(207)+2*A(208)& &+A(212)+A(213)+A(214)+A(226)+A(229)+A(230)+A(231)+2*A(233)+A(235)+A(236)+A(237)+A(238)+2*A(240)+2*A(241)& &+A(244)+A(246)+2*A(251)+A(252)+0.66*A(253)+0.6*A(254)+0.44*A(257)+0.56*A(258)+0.19*A(261)+0.1*A(269)+0.05& @@ -1231,9 +1244,9 @@ SUBROUTINE Fun ( V, F, RCT, Vdot, Aout ) &+A(829)+2*A(830)+2*A(831)+2*A(832)+3*A(833)+3*A(834)+3*A(835)+4*A(836)+4*A(837)+4*A(838)+A(839)+A(840)& &+A(841)+A(842)+A(844)+A(845)+A(846)+A(847)+A(848)+A(849)+A(850)+A(851)+A(852)+A(853)+A(854)+A(855)+A(862)& &+A(863)+A(864)+A(865)+A(866)+A(869)+A(870)+A(871)+A(872)+A(874)+A(875)+2*A(876)+A(877)+A(878)+A(879)+A(880)& - &+2*A(895)+A(933)+2*A(946)+A(950)+A(967)+2*A(969)+A(994)+A(996) -IF (DO_FUN(36)) & - Vdot(36) = A(34)+A(50)+0.05*A(51)+A(55)+A(80)+A(82)+A(83)+A(84)+A(85)+A(88)+A(108)+A(126)+0.56*A(150)+0.505*A(151)& + &+A(883)+A(885)+2*A(902)+A(940)+2*A(953)+A(957)+A(974)+2*A(976)+A(1001)+A(1003) +IF (DO_FUN(39)) & + Vdot(39) = A(34)+A(50)+0.05*A(51)+A(55)+A(80)+A(82)+A(83)+A(84)+A(85)+A(88)+A(108)+A(126)+0.56*A(150)+0.505*A(151)& &+A(152)+A(160)+2*A(163)+A(164)+2*A(165)+A(166)+0.5*A(168)+A(216)+A(238)+A(252)+A(292)+A(315)+A(316)+A(317)& &+0.15*A(379)+0.1*A(383)+0.407*A(493)+0.6*A(496)+0.9*A(497)+0.6*A(503)+0.9*A(505)+A(509)+A(510)+A(511)+0.5& &*A(513)+0.5*A(515)+0.55*A(519)+0.55*A(523)+0.45*A(524)+0.37*A(525)+0.42*A(526)+0.23*A(527)+0.638*A(528)+1.5& @@ -1242,680 +1255,682 @@ SUBROUTINE Fun ( V, F, RCT, Vdot, Aout ) &*A(640)+0.28*A(645)+0.036*A(646)+0.12*A(648)+0.68*A(649)+0.77*A(652)+0.25*A(654)+0.75*A(661)+A(662)+A(664)+2& &*A(665)+0.84*A(666)+0.507*A(670)+0.325*A(671)+0.488*A(672)+A(673)+0.86*A(674)+0.65*A(676)+0.25*A(684)+A(685)& &+A(686)+0.888*A(687)+A(690)+A(696)+0.18*A(704)+0.12*A(707)+0.364*A(714)+0.2*A(724)+0.27*A(725)+0.3*A(726)+2& - &*A(740)+0.15*A(763)+0.15*A(764)+0.26*A(767)+0.5*A(768)+0.25*A(770)+0.5*A(771)+0.05*A(772)+A(888)+A(889)+0.88& - &*A(897)+A(898)+0.7*A(901)+A(902)+A(903)+A(905)+A(907)+2*A(908)+2*A(909)+A(910)+A(911)+A(912)+A(913)+A(915)& - &+A(986)+A(990)+A(1003)+A(1006)+0.5*A(1007)+0.571*A(1009)+0.875*A(1010)+0.77*A(1011)+A(1014)+A(1015)+0.888& - &*A(1020)+0.818*A(1021)+A(1022)+A(1023)+0.55*A(1024)+0.55*A(1027)+0.839*A(1031)+A(1033)+0.163*A(1034)+A(1037)& - &+A(1041)+A(1043)+A(1046)+A(1049)+A(1058) -IF (DO_FUN(37)) & - Vdot(37) = A(24)+A(362)+A(369) -IF (DO_FUN(38)) & - Vdot(38) = A(1)+A(7)+A(8)+A(9)+2*A(12)+A(202)+A(368)+A(372)+A(812)+A(819) -IF (DO_FUN(39)) & - Vdot(39) = A(25)+A(231)+A(291) + &*A(740)+0.15*A(763)+0.15*A(764)+0.26*A(767)+0.5*A(768)+0.25*A(770)+0.5*A(771)+0.05*A(772)+A(895)+A(896)+0.88& + &*A(904)+A(905)+0.7*A(908)+A(909)+A(910)+A(912)+A(914)+2*A(915)+2*A(916)+A(917)+A(918)+A(919)+A(920)+A(922)& + &+A(993)+A(997)+A(1010)+A(1013)+0.5*A(1014)+0.571*A(1016)+0.875*A(1017)+0.77*A(1018)+A(1021)+A(1022)+0.888& + &*A(1027)+0.818*A(1028)+A(1029)+A(1030)+0.55*A(1031)+0.55*A(1034)+0.839*A(1038)+A(1040)+0.163*A(1041)+A(1044)& + &+A(1048)+A(1050)+A(1053)+A(1056)+A(1065) IF (DO_FUN(40)) & - Vdot(40) = A(19)+A(23)+0.06*A(365)+0.06*A(366)+A(373)+0.013*A(493)+0.045*A(645) + Vdot(40) = A(24)+A(362)+A(369) IF (DO_FUN(41)) & - Vdot(41) = -A(780) + Vdot(41) = A(1)+A(7)+A(8)+A(9)+2*A(12)+A(202)+A(368)+A(372)+A(812)+A(819)+A(882)+A(883)+A(884)+A(885)+2*A(888) IF (DO_FUN(42)) & - Vdot(42) = A(346)-A(347)-A(836)-A(837)-A(838)-A(978) + Vdot(42) = A(25)+A(231)+A(291) IF (DO_FUN(43)) & - Vdot(43) = -A(286)-A(951) + Vdot(43) = A(19)+A(23)+0.06*A(365)+0.06*A(366)+A(373)+0.013*A(493)+0.045*A(645) IF (DO_FUN(44)) & - Vdot(44) = 0.6*A(357)-A(358)-A(830)-A(831)-A(832)-A(973) + Vdot(44) = -A(780) IF (DO_FUN(45)) & - Vdot(45) = -A(487)+A(864)+A(865)+A(866) + Vdot(45) = A(346)-A(347)-A(836)-A(837)-A(838)-A(985) IF (DO_FUN(46)) & - Vdot(46) = -0.79*A(256)-A(952) + Vdot(46) = -A(286)-A(958) IF (DO_FUN(47)) & - Vdot(47) = -0.9*A(262)-A(953) + Vdot(47) = 0.6*A(357)-A(358)-A(830)-A(831)-A(832)-A(980) IF (DO_FUN(48)) & - Vdot(48) = -0.86*A(263)-A(954) + Vdot(48) = -A(487)+A(864)+A(865)+A(866) IF (DO_FUN(49)) & - Vdot(49) = -0.9*A(269)-A(955) + Vdot(49) = -0.79*A(256)-A(959) IF (DO_FUN(50)) & - Vdot(50) = -0.9*A(270)-A(956) + Vdot(50) = -0.9*A(262)-A(960) IF (DO_FUN(51)) & - Vdot(51) = -0.86*A(271)-A(957) + Vdot(51) = -0.86*A(263)-A(961) IF (DO_FUN(52)) & - Vdot(52) = -A(359)-A(974) + Vdot(52) = -0.9*A(269)-A(962) IF (DO_FUN(53)) & - Vdot(53) = -0.45*A(265)-A(962) + Vdot(53) = -0.9*A(270)-A(963) IF (DO_FUN(54)) & - Vdot(54) = -0.75*A(272)-A(964) + Vdot(54) = -0.86*A(271)-A(964) IF (DO_FUN(55)) & - Vdot(55) = A(345)-A(833)-A(834)-A(835)-A(979) + Vdot(55) = -A(359)-A(981) IF (DO_FUN(56)) & - Vdot(56) = A(393)-A(394) + Vdot(56) = -0.45*A(265)-A(969) IF (DO_FUN(57)) & - Vdot(57) = A(438)-A(439) + Vdot(57) = -0.75*A(272)-A(971) IF (DO_FUN(58)) & - Vdot(58) = 0.15*A(707)-A(732) + Vdot(58) = A(345)-A(833)-A(834)-A(835)-A(986) IF (DO_FUN(59)) & - Vdot(59) = A(221)-A(936) + Vdot(59) = A(393)-A(394) IF (DO_FUN(60)) & - Vdot(60) = -A(714) + Vdot(60) = A(438)-A(439) IF (DO_FUN(61)) & - Vdot(61) = -0.65*A(264)-A(963) + Vdot(61) = 0.15*A(707)-A(732) IF (DO_FUN(62)) & - Vdot(62) = A(334)-2*A(335)-A(970) + Vdot(62) = A(221)-A(943) IF (DO_FUN(63)) & - Vdot(63) = -A(230)+A(250)-A(985) + Vdot(63) = -A(714) IF (DO_FUN(64)) & - Vdot(64) = A(3)+A(784)-A(996)-A(997) + Vdot(64) = -0.65*A(264)-A(970) IF (DO_FUN(65)) & - Vdot(65) = A(6)+A(785)-A(994)-A(995) + Vdot(65) = A(334)-2*A(335)-A(977) IF (DO_FUN(66)) & - Vdot(66) = 0.15*A(391)-A(397)+0.25*A(464)-A(1051) + Vdot(66) = -A(230)+A(250)-A(992) IF (DO_FUN(67)) & - Vdot(67) = -A(248)-A(249)-A(250)+A(988) + Vdot(67) = A(3)+A(784)-A(1003)-A(1004) IF (DO_FUN(68)) & - Vdot(68) = -A(238)-A(239)-A(986) + Vdot(68) = A(6)+A(785)-A(1001)-A(1002) IF (DO_FUN(69)) & - Vdot(69) = -A(66)-A(67) + Vdot(69) = 0.15*A(391)-A(397)+0.25*A(464)-A(1058) IF (DO_FUN(70)) & - Vdot(70) = 0.005*A(716)-A(721) + Vdot(70) = -A(248)-A(249)-A(250)+A(995) IF (DO_FUN(71)) & - Vdot(71) = 0.65*A(750)-A(753)-A(1044) + Vdot(71) = -A(238)-A(239)-A(993) IF (DO_FUN(72)) & - Vdot(72) = 0.56*A(158)-A(161) + Vdot(72) = -A(66)-A(67) IF (DO_FUN(73)) & - Vdot(73) = A(351)-A(353)-A(825)-A(826)-A(827) + Vdot(73) = 0.005*A(716)-A(721) IF (DO_FUN(74)) & - Vdot(74) = 0.41*A(391)-A(396)-A(1050) + Vdot(74) = 0.56*A(158)-A(161) IF (DO_FUN(75)) & - Vdot(75) = -A(285)-A(317) + Vdot(75) = A(351)-A(353)-A(825)-A(826)-A(827) IF (DO_FUN(76)) & - Vdot(76) = -A(278)+A(307)-A(308)-A(946) + Vdot(76) = 0.41*A(391)-A(396)-A(1057) IF (DO_FUN(77)) & - Vdot(77) = A(844)+A(845)+A(848)+A(849)+A(852)+A(853)-A(980) + Vdot(77) = 0.65*A(750)-A(753)-A(1051) IF (DO_FUN(78)) & - Vdot(78) = -A(224)-0.95*A(259)-A(938) + Vdot(78) = -A(278)+A(307)-A(308)-A(953) IF (DO_FUN(79)) & - Vdot(79) = -A(284)-A(316)-A(941) + Vdot(79) = -A(224)-0.95*A(259)-A(945) IF (DO_FUN(80)) & - Vdot(80) = A(197)-A(198)-A(982)-A(983) + Vdot(80) = -A(284)-A(316)-A(948) IF (DO_FUN(81)) & - Vdot(81) = -A(223)-0.7*A(260)-A(937) + Vdot(81) = A(844)+A(845)+A(848)+A(849)+A(852)+A(853)-A(987) IF (DO_FUN(82)) & - Vdot(82) = -A(725) + Vdot(82) = -A(223)-0.7*A(260)-A(944) IF (DO_FUN(83)) & - Vdot(83) = A(59)-A(490)-A(999) + Vdot(83) = A(197)-A(198)-A(989)-A(990) IF (DO_FUN(84)) & - Vdot(84) = -0.79*A(268)-A(290)-A(958) + Vdot(84) = -A(285)-A(317) IF (DO_FUN(85)) & - Vdot(85) = -0.69*A(266)-A(288)-A(959) + Vdot(85) = -A(725) IF (DO_FUN(86)) & - Vdot(86) = -0.65*A(267)-A(289)-A(960) + Vdot(86) = A(59)-A(490)-A(1006) IF (DO_FUN(87)) & - Vdot(87) = -0.75*A(261)-A(287)-A(961) + Vdot(87) = -A(199)-A(200)-A(201) IF (DO_FUN(88)) & - Vdot(88) = 0.73*A(365)+0.4*A(366)-A(694)-A(1002) + Vdot(88) = -0.79*A(268)-A(290)-A(965) IF (DO_FUN(89)) & - Vdot(89) = A(10)-A(11)-A(12) + Vdot(89) = -0.69*A(266)-A(288)-A(966) IF (DO_FUN(90)) & - Vdot(90) = A(752)-A(754)-A(755) + Vdot(90) = -0.65*A(267)-A(289)-A(967) IF (DO_FUN(91)) & - Vdot(91) = A(99)-A(491)-A(1000) + Vdot(91) = -0.75*A(261)-A(287)-A(968) IF (DO_FUN(92)) & - Vdot(92) = -A(178)+0.37*A(695)-A(930) + Vdot(92) = 0.73*A(365)+0.4*A(366)-A(694)-A(1009) IF (DO_FUN(93)) & - Vdot(93) = A(27)-A(489)-A(998) + Vdot(93) = A(10)-A(11)-A(12)+A(886)-A(887)-A(888) IF (DO_FUN(94)) & - Vdot(94) = -A(199)-A(200)-A(201) + Vdot(94) = A(99)-A(491)-A(1007) IF (DO_FUN(95)) & - Vdot(95) = A(64)-A(492)-A(1001) + Vdot(95) = -A(178)+0.37*A(695)-A(937) IF (DO_FUN(96)) & - Vdot(96) = 0.8*A(344)-A(345)-2*A(346)+2*A(347)-A(348)+0.4*A(357)+0.996*A(358)-A(969)+A(973)+2*A(978)+A(979) + Vdot(96) = A(27)-A(489)-A(1005) IF (DO_FUN(97)) & - Vdot(97) = A(114)-A(173)-A(921) + Vdot(97) = A(64)-A(492)-A(1008) IF (DO_FUN(98)) & - Vdot(98) = A(70)-A(71)-A(922) + Vdot(98) = 0.8*A(344)-A(345)-2*A(346)+2*A(347)-A(348)+0.4*A(357)+0.996*A(358)-A(976)+A(980)+2*A(985)+A(986) IF (DO_FUN(99)) & - Vdot(99) = A(146)-A(171)-A(919) + Vdot(99) = A(114)-A(173)-A(928) IF (DO_FUN(100)) & - Vdot(100) = A(120)-A(172)-A(920) + Vdot(100) = A(70)-A(71)-A(929) IF (DO_FUN(101)) & - Vdot(101) = -A(726) + Vdot(101) = A(146)-A(171)-A(926) IF (DO_FUN(102)) & - Vdot(102) = A(116)-A(174)-A(923) + Vdot(102) = A(120)-A(172)-A(927) IF (DO_FUN(103)) & - Vdot(103) = -A(486)+A(862)+A(863)+A(869)+A(870)+A(871)+A(872)+A(874)+A(875)+A(876)+A(877)+A(878)+A(879)+A(880) + Vdot(103) = -A(726) IF (DO_FUN(104)) & - Vdot(104) = 0.191*A(349)+A(846)+A(847)+A(850)+A(851)+A(854)+A(855)-A(981) + Vdot(104) = A(116)-A(174)-A(930) IF (DO_FUN(105)) & - Vdot(105) = -A(225)-A(258)-A(939) + Vdot(105) = A(752)-A(754)-A(755) IF (DO_FUN(106)) & - Vdot(106) = 0.995*A(716)+A(717)+0.6*A(718)-A(719)-A(720)+A(1042) + Vdot(106) = -A(486)+A(862)+A(863)+A(869)+A(870)+A(871)+A(872)+A(874)+A(875)+A(876)+A(877)+A(878)+A(879)+A(880) IF (DO_FUN(107)) & - Vdot(107) = 0.098*A(672)+0.75*A(684)-A(685)-A(868) + Vdot(107) = 0.191*A(349)+A(846)+A(847)+A(850)+A(851)+A(854)+A(855)-A(988) IF (DO_FUN(108)) & - Vdot(108) = A(39)-A(40)-A(41)-A(892)-A(893) + Vdot(108) = -A(225)-A(258)-A(946) IF (DO_FUN(109)) & - Vdot(109) = -A(712)-A(713)+0.4*A(901) + Vdot(109) = 0.098*A(672)+0.75*A(684)-A(685)-A(868) IF (DO_FUN(110)) & - Vdot(110) = A(274)+A(278)+A(303)+A(305)-A(306)-A(309)+A(311)+A(946)-A(965) + Vdot(110) = A(39)-A(40)-A(41)-A(899)-A(900) IF (DO_FUN(111)) & - Vdot(111) = A(384)-A(387)-A(1048) + Vdot(111) = A(384)-A(387)-A(1055) IF (DO_FUN(112)) & - Vdot(112) = A(404)-A(408)-A(1053) + Vdot(112) = A(404)-A(408)-A(1060) IF (DO_FUN(113)) & Vdot(113) = A(124)-A(125)-A(126) IF (DO_FUN(114)) & - Vdot(114) = A(155)-A(156)-A(160) + Vdot(114) = 0.995*A(716)+A(717)+0.6*A(718)-A(719)-A(720)+A(1049) IF (DO_FUN(115)) & - Vdot(115) = 0.075*A(645)+0.241*A(650)+0.653*A(661)-A(693)-A(867)-A(1004)+0.75*A(1010) + Vdot(115) = A(155)-A(156)-A(160) IF (DO_FUN(116)) & - Vdot(116) = 0.11*A(709)-A(711)-A(928) + Vdot(116) = 0.075*A(645)+0.241*A(650)+0.653*A(661)-A(693)-A(867)-A(1011)+0.75*A(1017) IF (DO_FUN(117)) & - Vdot(117) = 0.15*A(750)+A(755)+A(759)-A(760)-A(1045) + Vdot(117) = 0.11*A(709)-A(711)-A(935) IF (DO_FUN(118)) & - Vdot(118) = A(144)+A(145)-A(170)-A(918) + Vdot(118) = 0.15*A(750)+A(755)+A(759)-A(760)-A(1052) IF (DO_FUN(119)) & - Vdot(119) = 0.15*A(524)+0.15*A(525)-A(530)+0.112*A(1020)+0.182*A(1021)+0.161*A(1031) + Vdot(119) = A(274)+A(278)+A(303)+A(305)-A(306)-A(309)+A(311)+A(953)-A(972) IF (DO_FUN(120)) & - Vdot(120) = -A(277)+A(304)+A(310)+0.56*A(349)-A(945) + Vdot(120) = -A(712)-A(713)+0.4*A(908) IF (DO_FUN(121)) & - Vdot(121) = A(732)-A(733)-A(734) + Vdot(121) = A(144)+A(145)-A(170)-A(925) IF (DO_FUN(122)) & - Vdot(122) = A(738)-A(739)-A(740) + Vdot(122) = 0.15*A(524)+0.15*A(525)-A(530)+0.112*A(1027)+0.182*A(1028)+0.161*A(1038) IF (DO_FUN(123)) & - Vdot(123) = A(147)-A(176)-A(924) + Vdot(123) = -A(277)+A(304)+A(310)+0.56*A(349)-A(952) IF (DO_FUN(124)) & - Vdot(124) = A(106)-A(107)-A(108)-A(1047) + Vdot(124) = A(732)-A(733)-A(734) IF (DO_FUN(125)) & - Vdot(125) = A(121)-A(169)-A(917) + Vdot(125) = A(738)-A(739)-A(740) IF (DO_FUN(126)) & - Vdot(126) = A(86)-A(87)-A(88)-A(900) + Vdot(126) = A(147)-A(176)-A(931) IF (DO_FUN(127)) & - Vdot(127) = 0.058*A(78)-A(80) + Vdot(127) = A(106)-A(107)-A(108)-A(1054) IF (DO_FUN(128)) & - Vdot(128) = 0.255*A(537)+0.595*A(538)-A(551)+A(578)+A(580)-A(860) + Vdot(128) = A(121)-A(169)-A(924) IF (DO_FUN(129)) & - Vdot(129) = 0.2*A(383)+0.75*A(405)+A(406)+0.5*A(407)-A(409)+A(458)+A(459)+A(1053) + Vdot(129) = A(86)-A(87)-A(88)-A(907) IF (DO_FUN(130)) & - Vdot(130) = 0.15*A(436)-A(442)+0.25*A(466)-A(1056) + Vdot(130) = 0.058*A(78)-A(80) IF (DO_FUN(131)) & - Vdot(131) = A(557)+0.13*A(558)+0.2*A(559)-A(663)+0.35*A(686)+0.35*A(1033) + Vdot(131) = 0.255*A(537)+0.595*A(538)-A(551)+A(578)+A(580)-A(860) IF (DO_FUN(132)) & - Vdot(132) = 0.255*A(81)-A(82)-A(83) + Vdot(132) = 0.2*A(383)+0.75*A(405)+A(406)+0.5*A(407)-A(409)+A(458)+A(459)+A(1060) IF (DO_FUN(133)) & - Vdot(133) = 0.315*A(524)-A(570)-A(571) + Vdot(133) = 0.255*A(81)-A(82)-A(83) IF (DO_FUN(134)) & - Vdot(134) = A(1)+A(7)+A(8)+A(9)+2*A(12)+A(202)+A(368)+A(372)+A(812)+A(819)-A(987) + Vdot(134) = 0.15*A(436)-A(442)+0.25*A(466)-A(1063) IF (DO_FUN(135)) & - Vdot(135) = 0.315*A(525)-A(572)-A(573) + Vdot(135) = A(557)+0.13*A(558)+0.2*A(559)-A(663)+0.35*A(686)+0.35*A(1040) IF (DO_FUN(136)) & - Vdot(136) = A(715)+0.2*A(718)-A(722)-A(723)-A(1042) + Vdot(136) = 0.315*A(525)-A(572)-A(573) IF (DO_FUN(137)) & - Vdot(137) = 0.25*A(385)-A(388) + Vdot(137) = 0.315*A(524)-A(570)-A(571) IF (DO_FUN(138)) & - Vdot(138) = 0.25*A(405)-A(407) + Vdot(138) = A(715)+0.2*A(718)-A(722)-A(723)-A(1049) IF (DO_FUN(139)) & - Vdot(139) = A(53)-A(54)-A(55)-A(899) + Vdot(139) = 0.25*A(385)-A(388) IF (DO_FUN(140)) & Vdot(140) = -A(75)-A(76)-A(77) IF (DO_FUN(141)) & - Vdot(141) = -A(61)-A(62)-A(220)-A(327)-A(328) + Vdot(141) = 0.25*A(405)-A(407) IF (DO_FUN(142)) & - Vdot(142) = -A(89)-A(101)-A(331) + Vdot(142) = -A(61)-A(62)-A(220)-A(327)-A(328) IF (DO_FUN(143)) & - Vdot(143) = 0.1*A(704)-A(724) + Vdot(143) = A(53)-A(54)-A(55)-A(906) IF (DO_FUN(144)) & - Vdot(144) = 0.15*A(497)+0.15*A(505)-A(527)+0.009*A(538)-A(1023) + Vdot(144) = -A(89)-A(101)-A(331) IF (DO_FUN(145)) & - Vdot(145) = 0.474*A(607)+0.34*A(608)+0.244*A(609)+0.841*A(612)+0.841*A(614)+0.841*A(617)-A(619)-A(620)+0.841*A(1029)& - &+0.222*A(1032) + Vdot(145) = 0.1*A(704)-A(724) IF (DO_FUN(146)) & - Vdot(146) = A(733)+A(734)-A(735)-A(902) + Vdot(146) = A(1)+A(7)+A(8)+A(9)+2*A(12)+A(202)+A(368)+A(372)+A(812)+A(819)+A(882)+A(883)+A(884)+A(885)+2*A(888)-A(994) IF (DO_FUN(147)) & - Vdot(147) = A(556)+A(561)-A(687)-A(1037) + Vdot(147) = 0.474*A(607)+0.34*A(608)+0.244*A(609)+0.841*A(612)+0.841*A(614)+0.841*A(617)-A(619)-A(620)+0.841*A(1036)& + &+0.222*A(1039) IF (DO_FUN(148)) & - Vdot(148) = A(208)+A(210)-A(211)+A(813)+A(817)+A(818)-A(931) + Vdot(148) = -A(705)-A(706) IF (DO_FUN(149)) & - Vdot(149) = -A(705)-A(706) + Vdot(149) = A(556)+A(561)-A(687)-A(1044) IF (DO_FUN(150)) & - Vdot(150) = 0.15*A(496)+0.15*A(503)-A(526)+0.009*A(537)-A(1022) + Vdot(150) = 0.15*A(496)+0.15*A(503)-A(526)+0.009*A(537)-A(1029) IF (DO_FUN(151)) & - Vdot(151) = 0.67*A(532)+0.68*A(534)-A(552)-A(553)+0.67*A(575)+0.67*A(577)-A(858) + Vdot(151) = 0.15*A(497)+0.15*A(505)-A(527)+0.009*A(538)-A(1030) IF (DO_FUN(152)) & - Vdot(152) = 0.33*A(532)+0.32*A(534)-A(554)-A(555)+0.33*A(575)+0.33*A(577)-A(859) + Vdot(152) = A(733)+A(734)-A(735)-A(909) IF (DO_FUN(153)) & - Vdot(153) = A(562)+0.2*A(563)+0.13*A(565)-A(666)+0.15*A(686)+0.15*A(1033)+0.163*A(1034) + Vdot(153) = A(208)+A(210)-A(211)+A(813)+A(817)+A(818)-A(938) IF (DO_FUN(154)) & - Vdot(154) = A(481)+A(482)+A(483)+A(484)+A(485)-A(488)-A(866)-A(993) + Vdot(154) = 0.25*A(129)+0.25*A(130)-A(140)+0.4*A(142)+0.4*A(143)-A(325) IF (DO_FUN(155)) & - Vdot(155) = 0.41*A(128)+0.41*A(148)-A(175)+0.41*A(737)-A(925) + Vdot(155) = A(562)+0.2*A(563)+0.13*A(565)-A(666)+0.15*A(686)+0.15*A(1040)+0.163*A(1041) IF (DO_FUN(156)) & - Vdot(156) = 0.25*A(129)+0.25*A(130)-A(140)+0.4*A(142)+0.4*A(143)-A(325) + Vdot(156) = A(481)+A(482)+A(483)+A(484)+A(485)-A(488)-A(866)-A(1000) IF (DO_FUN(157)) & - Vdot(157) = A(312)+A(794)+A(797)+A(798)+A(799)+A(805)+A(806)+A(807)+A(809)+A(814)+A(815)+A(816)-A(942) + Vdot(157) = 0.67*A(532)+0.68*A(534)-A(552)-A(553)+0.67*A(575)+0.67*A(577)-A(858) IF (DO_FUN(158)) & - Vdot(158) = 0.18*A(705)+0.03*A(707)+0.19*A(725)+0.15*A(726)-A(743)-A(744) + Vdot(158) = 0.41*A(128)+0.41*A(148)-A(175)+0.41*A(737)-A(932) IF (DO_FUN(159)) & - Vdot(159) = 0.5*A(671)-A(672)-0.75*A(1012) + Vdot(159) = 0.33*A(532)+0.32*A(534)-A(554)-A(555)+0.33*A(575)+0.33*A(577)-A(859) IF (DO_FUN(160)) & - Vdot(160) = A(398)+0.25*A(401)-A(402)-A(1052) + Vdot(160) = A(312)+A(794)+A(797)+A(798)+A(799)+A(805)+A(806)+A(807)+A(809)+A(814)+A(815)+A(816)-A(949) IF (DO_FUN(161)) & - Vdot(161) = A(410)+0.25*A(413)-A(415)-A(1054) + Vdot(161) = 0.5*A(671)-A(672)-0.75*A(1019) IF (DO_FUN(162)) & - Vdot(162) = 0.5*A(407)+A(411)-A(416) + Vdot(162) = 0.18*A(705)+0.03*A(707)+0.19*A(725)+0.15*A(726)-A(743)-A(744) IF (DO_FUN(163)) & - Vdot(163) = 0.3*A(421)+0.84*A(429)+A(431)+0.75*A(432)-A(433)-A(434) + Vdot(163) = A(398)+0.25*A(401)-A(402)-A(1059) IF (DO_FUN(164)) & - Vdot(164) = A(28)-A(32)-A(320)-A(887) + Vdot(164) = A(410)+0.25*A(413)-A(415)-A(1061) IF (DO_FUN(165)) & - Vdot(165) = A(72)-A(73)-A(74) + Vdot(165) = 0.5*A(407)+A(411)-A(416) IF (DO_FUN(166)) & - Vdot(166) = -2*A(4)-A(5)-A(6) + Vdot(166) = 0.3*A(421)+0.84*A(429)+A(431)+0.75*A(432)-A(433)-A(434) IF (DO_FUN(167)) & - Vdot(167) = -A(377)-A(378)-A(379) + Vdot(167) = A(28)-A(32)-A(320)-A(894) IF (DO_FUN(168)) & - Vdot(168) = A(520)-A(576)-A(577)-A(871)-A(1026) + Vdot(168) = A(72)-A(73)-A(74) IF (DO_FUN(169)) & - Vdot(169) = A(430)+0.25*A(432)+0.41*A(436)-A(441)-A(1055) + Vdot(169) = -2*A(4)-A(5)-A(6) IF (DO_FUN(170)) & - Vdot(170) = A(335)+A(338)-A(339)+A(342)-A(352)-A(966) + Vdot(170) = -A(377)-A(378)-A(379) IF (DO_FUN(171)) & - Vdot(171) = -A(655)-A(656)-A(657)+0.224*A(1020)+0.068*A(1031) + Vdot(171) = A(430)+0.25*A(432)+0.41*A(436)-A(441)-A(1062) IF (DO_FUN(172)) & - Vdot(172) = -A(658)-A(659)-A(660)+0.182*A(1021)+0.128*A(1031) + Vdot(172) = A(335)+A(338)-A(339)+A(342)-A(352)-A(973) IF (DO_FUN(173)) & - Vdot(173) = 0.15*A(128)+0.15*A(148)+0.5*A(475)-A(701)+0.5*A(707)+0.45*A(726)+0.15*A(737)+0.43*A(767)+0.52*A(770) + Vdot(173) = -A(655)-A(656)-A(657)+0.224*A(1027)+0.068*A(1038) IF (DO_FUN(174)) & - Vdot(174) = 0.725*A(542)+0.725*A(546)+0.35*A(550)-A(688)-A(1035) + Vdot(174) = -A(658)-A(659)-A(660)+0.182*A(1028)+0.128*A(1038) IF (DO_FUN(175)) & - Vdot(175) = A(516)-A(574)-A(575)-A(870)-A(1025) + Vdot(175) = A(516)-A(574)-A(575)-A(870)-A(1032) IF (DO_FUN(176)) & - Vdot(176) = 0.5*A(388)+0.16*A(399)-A(403) + Vdot(176) = 0.15*A(128)+0.15*A(148)+0.5*A(475)-A(701)+0.5*A(707)+0.45*A(726)+0.15*A(737)+0.43*A(767)+0.52*A(770) IF (DO_FUN(177)) & - Vdot(177) = A(422)+A(425)+0.5*A(426)+0.5*A(427)+A(428)+0.16*A(429)-A(435) + Vdot(177) = A(520)-A(576)-A(577)-A(871)-A(1033) IF (DO_FUN(178)) & - Vdot(178) = A(66)+A(67)-A(68)-A(69)-A(70)+0.5*A(71) + Vdot(178) = 0.725*A(542)+0.725*A(546)+0.35*A(550)-A(688)-A(1042) IF (DO_FUN(179)) & - Vdot(179) = -2*A(1)-A(2)-A(3) + Vdot(179) = 0.5*A(388)+0.16*A(399)-A(403) IF (DO_FUN(180)) & - Vdot(180) = 0.435*A(641)-A(642)-A(643) + Vdot(180) = A(422)+A(425)+0.5*A(426)+0.5*A(427)+A(428)+0.16*A(429)-A(435) IF (DO_FUN(181)) & - Vdot(181) = -0.9*A(257)-A(283)-A(315)-A(940) + Vdot(181) = 0.435*A(641)-A(642)-A(643) IF (DO_FUN(182)) & - Vdot(182) = 0.461*A(638)-0.33*A(639)-0.33*A(640)+0.041*A(691) + Vdot(182) = A(66)+A(67)-A(68)-A(69)-A(70)+0.5*A(71) IF (DO_FUN(183)) & - Vdot(183) = -A(57)-A(179)-A(219)-A(321) + Vdot(183) = -2*A(1)-A(2)-A(3) IF (DO_FUN(184)) & - Vdot(184) = A(677)+A(680)-A(683)-A(684) + Vdot(184) = -0.9*A(257)-A(283)-A(315)-A(947) IF (DO_FUN(185)) & - Vdot(185) = A(530)-A(662)+0.444*A(687)-A(1009)+0.112*A(1020)+0.182*A(1021)+0.162*A(1031)+0.454*A(1037) + Vdot(185) = 0.461*A(638)-0.33*A(639)-0.33*A(640)+0.041*A(691) IF (DO_FUN(186)) & - Vdot(186) = A(605)-A(622)-A(624)-A(625)-A(627)-A(628)-A(874)-A(1029)-A(1030) + Vdot(186) = A(576)-A(588)-A(589)-A(590)-A(591) IF (DO_FUN(187)) & - Vdot(187) = 0.937*A(498)-A(531)-A(532)-A(535)-A(1016) + Vdot(187) = -A(57)-A(179)-A(219)-A(321) IF (DO_FUN(188)) & - Vdot(188) = 0.25*A(112)+0.25*A(113)+0.38*A(132)+0.375*A(133)+0.38*A(134)+0.375*A(135)+0.25*A(137)+0.25*A(138)+0.25& - &*A(139)-A(141)+0.25*A(473) + Vdot(188) = A(605)-A(622)-A(624)-A(625)-A(627)-A(628)-A(874)-A(1036)-A(1037) IF (DO_FUN(189)) & - Vdot(189) = 0.3*A(702)+0.07*A(705)+0.05*A(707)-A(709)-A(710) + Vdot(189) = A(677)+A(680)-A(683)-A(684) IF (DO_FUN(190)) & - Vdot(190) = A(576)-A(588)-A(589)-A(590)-A(591) + Vdot(190) = A(530)-A(662)+0.444*A(687)-A(1016)+0.112*A(1027)+0.182*A(1028)+0.162*A(1038)+0.454*A(1044) IF (DO_FUN(191)) & - Vdot(191) = -A(375)-A(382)-A(383) + Vdot(191) = 0.937*A(498)-A(531)-A(532)-A(535)-A(1023) IF (DO_FUN(192)) & - Vdot(192) = 0.937*A(500)-A(533)-A(534)-A(536)-A(1017) + Vdot(192) = 0.25*A(112)+0.25*A(113)+0.38*A(132)+0.375*A(133)+0.38*A(134)+0.375*A(135)+0.25*A(137)+0.25*A(138)+0.25& + &*A(139)-A(141)+0.25*A(473) IF (DO_FUN(193)) & - Vdot(193) = A(444)-A(450)-A(451)-A(452) + Vdot(193) = 0.3*A(702)+0.07*A(705)+0.05*A(707)-A(709)-A(710) IF (DO_FUN(194)) & - Vdot(194) = -A(661)+0.022*A(691)-A(1010)+0.552*A(1020)+0.454*A(1021)+0.481*A(1031) + Vdot(194) = -A(375)-A(382)-A(383) IF (DO_FUN(195)) & - Vdot(195) = 0.54*A(724)-A(741)-A(742) + Vdot(195) = 0.937*A(500)-A(533)-A(534)-A(536)-A(1024) IF (DO_FUN(196)) & - Vdot(196) = A(69)-A(72)+A(74)-A(927) + Vdot(196) = A(444)-A(450)-A(451)-A(452) IF (DO_FUN(197)) & - Vdot(197) = 0.68*A(81)-A(84)-A(85)-A(86)+A(87)+A(900)+0.3*A(901) + Vdot(197) = -A(661)+0.022*A(691)-A(1017)+0.552*A(1027)+0.454*A(1028)+0.481*A(1038) IF (DO_FUN(198)) & - Vdot(198) = 0.824*A(539)+0.452*A(543)+A(547)+0.667*A(688)-A(689)-A(1036) + Vdot(198) = 0.824*A(539)+0.452*A(543)+A(547)+0.667*A(688)-A(689)-A(1043) IF (DO_FUN(199)) & - Vdot(199) = A(501)-A(538)-A(1019) + Vdot(199) = 0.54*A(724)-A(741)-A(742) IF (DO_FUN(200)) & - Vdot(200) = -A(707)-A(708) + Vdot(200) = A(69)-A(72)+A(74)-A(934) IF (DO_FUN(201)) & - Vdot(201) = 0.4*A(705)+0.6*A(707)+0.4*A(708)+0.3*A(725)+0.56*A(726)+0.44*A(743)+0.44*A(744)-A(770)-A(771)-A(772) + Vdot(201) = 0.68*A(81)-A(84)-A(85)-A(86)+A(87)+A(907)+0.3*A(908) IF (DO_FUN(202)) & - Vdot(202) = 0.8*A(741)+0.727*A(743)-A(745)-A(746)-A(747) + Vdot(202) = A(501)-A(538)-A(1026) IF (DO_FUN(203)) & - Vdot(203) = 0.06*A(741)+0.742*A(742)+0.073*A(743)+0.3*A(744)+0.3*A(745)+0.3*A(747)+A(756)+A(757)+A(758)-A(761)-A(762)& - &+A(765)+A(1045) + Vdot(203) = -A(707)-A(708) IF (DO_FUN(204)) & - Vdot(204) = 0.7*A(702)+A(703)+0.62*A(704)+A(706)+A(708)+0.89*A(709)+A(710)+A(711)+0.06*A(725)+0.06*A(726)-A(748)& - &-A(749)+A(928)-A(1043) + Vdot(204) = 0.4*A(705)+0.6*A(707)+0.4*A(708)+0.3*A(725)+0.56*A(726)+0.44*A(743)+0.44*A(744)-A(770)-A(771)-A(772) IF (DO_FUN(205)) & - Vdot(205) = A(574)-A(584)-A(585)-A(586)-A(587) + Vdot(205) = 0.8*A(741)+0.727*A(743)-A(745)-A(746)-A(747) IF (DO_FUN(206)) & - Vdot(206) = A(579)-A(592)-A(594)-A(595)-A(596) + Vdot(206) = 0.06*A(741)+0.742*A(742)+0.073*A(743)+0.3*A(744)+0.3*A(745)+0.3*A(747)+A(756)+A(757)+A(758)-A(761)-A(762)& + &+A(765)+A(1052) IF (DO_FUN(207)) & - Vdot(207) = A(581)-A(593)-A(597)-A(598)-A(599) + Vdot(207) = 0.7*A(702)+A(703)+0.62*A(704)+A(706)+A(708)+0.89*A(709)+A(710)+A(711)+0.06*A(725)+0.06*A(726)-A(748)& + &-A(749)+A(935)-A(1050) IF (DO_FUN(208)) & - Vdot(208) = 0.13*A(566)+0.2*A(568)+0.53*A(651)+0.6*A(663)-A(665)+0.255*A(667)+0.318*A(687)-A(1006)+0.391*A(1037) + Vdot(208) = A(581)-A(593)-A(597)-A(598)-A(599) IF (DO_FUN(209)) & - Vdot(209) = A(499)-A(537)-A(1018) + Vdot(209) = A(579)-A(592)-A(594)-A(595)-A(596) IF (DO_FUN(210)) & - Vdot(210) = 0.3*A(496)+0.3*A(503)+0.018*A(537)+0.284*A(540)+0.135*A(542)+0.249*A(631)+0.471*A(632)+0.303*A(633)+0.59& - &*A(635)-A(696)-A(697)-A(1003)+0.5*A(1039) + Vdot(210) = A(574)-A(584)-A(585)-A(586)-A(587) IF (DO_FUN(211)) & - Vdot(211) = 0.25*A(418)-A(426)-A(427)-A(428) + Vdot(211) = 0.13*A(566)+0.2*A(568)+0.53*A(651)+0.6*A(663)-A(665)+0.255*A(667)+0.318*A(687)-A(1013)+0.391*A(1044) IF (DO_FUN(212)) & - Vdot(212) = A(75)-A(78)-A(79) + Vdot(212) = 0.25*A(418)-A(426)-A(427)-A(428) IF (DO_FUN(213)) & - Vdot(213) = 0.8*A(153)+A(154)-A(155)+A(156)-A(157)-A(158)-A(159) + Vdot(213) = A(499)-A(537)-A(1025) IF (DO_FUN(214)) & - Vdot(214) = A(45)-A(46)-A(786)-A(787)-A(788)-A(789)-A(790)-A(896) + Vdot(214) = 0.3*A(496)+0.3*A(503)+0.018*A(537)+0.284*A(540)+0.135*A(542)+0.249*A(631)+0.471*A(632)+0.303*A(633)+0.59& + &*A(635)-A(696)-A(697)-A(1010)+0.5*A(1046) IF (DO_FUN(215)) & - Vdot(215) = 0.085*A(524)+0.165*A(525)+0.58*A(526)+0.77*A(527)-A(529)+0.75*A(551)+A(552)+A(554)+A(625)+A(637)-A(873) + Vdot(215) = A(75)-A(78)-A(79) IF (DO_FUN(216)) & - Vdot(216) = 0.6*A(582)+0.031*A(594)+0.065*A(595)+0.094*A(600)+0.355*A(601)+0.06*A(631)+0.073*A(632)+0.17*A(633)+0.291& - &*A(635)+0.378*A(638)-A(654)+0.13*A(678)+0.3*A(682)-A(879)-A(1015) + Vdot(216) = 0.8*A(153)+A(154)-A(155)+A(156)-A(157)-A(158)-A(159) IF (DO_FUN(217)) & - Vdot(217) = A(229)+0.2*A(231)+A(234)+A(235)-A(245)-A(246)-A(247)+0.22*A(253)+0.2*A(254)+0.09*A(257)+A(294)+A(888) + Vdot(217) = A(45)-A(46)-A(786)-A(787)-A(788)-A(789)-A(790)-A(903) IF (DO_FUN(218)) & - Vdot(218) = -A(210)+A(222)-A(793)-A(794)-A(934)-A(935) + Vdot(218) = 0.085*A(524)+0.165*A(525)+0.58*A(526)+0.77*A(527)-A(529)+0.75*A(551)+A(552)+A(554)+A(625)+A(637)-A(873) IF (DO_FUN(219)) & - Vdot(219) = -A(376)-A(380)-A(381) + Vdot(219) = A(229)+0.2*A(231)+A(234)+A(235)-A(245)-A(246)-A(247)+0.22*A(253)+0.2*A(254)+0.09*A(257)+A(294)+A(895) IF (DO_FUN(220)) & - Vdot(220) = -A(702)-A(703)-A(704) + Vdot(220) = 0.6*A(582)+0.031*A(594)+0.065*A(595)+0.094*A(600)+0.355*A(601)+0.06*A(631)+0.073*A(632)+0.17*A(633)+0.291& + &*A(635)+0.378*A(638)-A(654)+0.13*A(678)+0.3*A(682)-A(879)-A(1022) IF (DO_FUN(221)) & - Vdot(221) = 0.8*A(705)+0.375*A(707)+0.55*A(724)+0.68*A(725)+0.28*A(726)+0.18*A(741)+1.05*A(745)+A(746)+0.3*A(747)+0.9& - &*A(763)+0.9*A(764)-A(767)-A(768)-A(769)+A(1046) + Vdot(221) = -A(210)+A(222)-A(793)-A(794)-A(941)-A(942) IF (DO_FUN(222)) & - Vdot(222) = 0.473*A(604)+0.07*A(606)+0.399*A(607)+0.355*A(610)-A(621)-A(623)-A(626)-A(875)-A(1028) + Vdot(222) = -A(376)-A(380)-A(381) IF (DO_FUN(223)) & - Vdot(223) = 0.345*A(531)+0.595*A(537)-A(539)-A(540)-A(541)-A(542) + Vdot(223) = -A(702)-A(703)-A(704) IF (DO_FUN(224)) & - Vdot(224) = 0.345*A(533)+0.255*A(538)-A(543)-A(544)-A(545)-A(546) + Vdot(224) = 0.8*A(705)+0.375*A(707)+0.55*A(724)+0.68*A(725)+0.28*A(726)+0.18*A(741)+1.05*A(745)+A(746)+0.3*A(747)+0.9& + &*A(763)+0.9*A(764)-A(767)-A(768)-A(769)+A(1053) IF (DO_FUN(225)) & - Vdot(225) = 0.2*A(383)+0.75*A(385)+A(386)+0.5*A(388)-A(389)-A(390)+A(456)+A(457)+A(1048)-A(1049) + Vdot(225) = 0.473*A(604)+0.07*A(606)+0.399*A(607)+0.355*A(610)-A(621)-A(623)-A(626)-A(875)-A(1035) IF (DO_FUN(226)) & - Vdot(226) = A(622)-A(629)-A(632)-A(635)-A(636) + Vdot(226) = 0.345*A(533)+0.255*A(538)-A(543)-A(544)-A(545)-A(546) IF (DO_FUN(227)) & - Vdot(227) = 0.29*A(650)+0.47*A(651)+0.063*A(661)+0.4*A(663)-A(664)+0.16*A(666)+0.126*A(687)-A(1007)+0.133*A(1034)& - &+0.155*A(1037) + Vdot(227) = 0.2*A(383)+0.75*A(385)+A(386)+0.5*A(388)-A(389)-A(390)+A(456)+A(457)+A(1055)-A(1056) IF (DO_FUN(228)) & - Vdot(228) = -A(25)+0.1*A(150)-A(231)-A(291)+A(898) + Vdot(228) = 0.345*A(531)+0.595*A(537)-A(539)-A(540)-A(541)-A(542) IF (DO_FUN(229)) & - Vdot(229) = A(443)-A(447)-A(448)-A(449)-A(989)-A(1057) + Vdot(229) = A(76)+A(77)+0.73*A(78)-A(81)-A(908) IF (DO_FUN(230)) & - Vdot(230) = 0.25*A(496)+0.25*A(503)-A(524)+0.015*A(537)-A(1020) + Vdot(230) = 0.29*A(650)+0.47*A(651)+0.063*A(661)+0.4*A(663)-A(664)+0.16*A(666)+0.126*A(687)-A(1014)+0.133*A(1041)& + &+0.155*A(1044) IF (DO_FUN(231)) & - Vdot(231) = 0.25*A(497)+0.25*A(505)-A(525)+0.015*A(538)-A(1021) + Vdot(231) = 0.25*A(497)+0.25*A(505)-A(525)+0.015*A(538)-A(1028) IF (DO_FUN(232)) & - Vdot(232) = 0.655*A(531)+0.655*A(533)-A(547)-A(548)-A(549)-A(550) + Vdot(232) = -A(25)+0.1*A(150)-A(231)-A(291)+A(905) IF (DO_FUN(233)) & - Vdot(233) = A(76)+A(77)+0.73*A(78)-A(81)-A(901) + Vdot(233) = 0.25*A(496)+0.25*A(503)-A(524)+0.015*A(537)-A(1027) IF (DO_FUN(234)) & - Vdot(234) = A(127)+0.44*A(128)+A(713)-A(715)-A(716)-A(717)-A(718)+A(722) + Vdot(234) = A(443)-A(447)-A(448)-A(449)-A(996)-A(1064) IF (DO_FUN(235)) & - Vdot(235) = A(748)+A(749)-A(750)-A(751)-A(752)+A(753)+A(754)-A(766) + Vdot(235) = 0.655*A(531)+0.655*A(533)-A(547)-A(548)-A(549)-A(550) IF (DO_FUN(236)) & - Vdot(236) = 0.28*A(704)+0.2*A(750)+A(751)-A(756)-A(757)-A(758)-A(759)+A(760)+A(761)-A(765)+A(766)+A(1043)+A(1044) + Vdot(236) = A(622)-A(629)-A(632)-A(635)-A(636) IF (DO_FUN(237)) & - Vdot(237) = 0.37*A(417)+0.28*A(418)+0.37*A(419)-A(423)-A(424)-A(425)+0.37*A(460)+0.37*A(461) + Vdot(237) = A(748)+A(749)-A(750)-A(751)-A(752)+A(753)+A(754)-A(766) IF (DO_FUN(238)) & - Vdot(238) = A(509)+A(510)+A(511)+0.5*A(513)+0.5*A(515)+0.45*A(519)+0.45*A(523)-A(528)+0.06*A(537)+0.06*A(538)+A(1018)& - &+A(1019)+0.45*A(1024)+0.45*A(1027) + Vdot(238) = 0.28*A(704)+0.2*A(750)+A(751)-A(756)-A(757)-A(758)-A(759)+A(760)+A(761)-A(765)+A(766)+A(1050)+A(1051) IF (DO_FUN(239)) & - Vdot(239) = A(37)-A(38)+0.5*A(782)+A(802)+A(803)+A(804)+A(805)+A(806)+A(807)+A(839)+A(840)+A(844)+A(845)+A(846)+A(847)& - &-A(891)+A(994)+A(996)+A(1046) + Vdot(239) = A(127)+0.44*A(128)+A(713)-A(715)-A(716)-A(717)-A(718)+A(722) IF (DO_FUN(240)) & - Vdot(240) = A(735)-A(736)-A(737)-A(738)+A(739) + Vdot(240) = A(37)-A(38)+0.5*A(782)+A(802)+A(803)+A(804)+A(805)+A(806)+A(807)+A(839)+A(840)+A(844)+A(845)+A(846)+A(847)& + &-A(898)+A(1001)+A(1003)+A(1053) IF (DO_FUN(241)) & - Vdot(241) = 0.12*A(150)-A(369)-A(370)-A(371)-A(372)-A(373)-A(374) + Vdot(241) = 0.37*A(417)+0.28*A(418)+0.37*A(419)-A(423)-A(424)-A(425)+0.37*A(460)+0.37*A(461) IF (DO_FUN(242)) & - Vdot(242) = 0.7*A(450)+0.7*A(451)+0.35*A(452)+0.3*A(470)+0.3*A(471)+0.3*A(472)+0.15*A(473)+0.3*A(474)+0.3*A(476)+0.6& - &*A(478)+0.45*A(479)+0.3*A(480)-A(482)-A(483)-A(484)-A(865)-A(992) + Vdot(242) = A(509)+A(510)+A(511)+0.5*A(513)+0.5*A(515)+0.45*A(519)+0.45*A(523)-A(528)+0.06*A(537)+0.06*A(538)+A(1025)& + &+A(1026)+0.45*A(1031)+0.45*A(1034) IF (DO_FUN(243)) & - Vdot(243) = 0.16*A(536)+0.25*A(551)-A(566)-A(567)-A(568)-A(569) + Vdot(243) = A(735)-A(736)-A(737)-A(738)+A(739) IF (DO_FUN(244)) & - Vdot(244) = -A(33)+0.85*A(118)+0.85*A(119)+0.3*A(497)+0.3*A(505)+0.018*A(538)+0.294*A(544)+0.135*A(546)+0.009*A(631)& - &+0.054*A(632)+0.013*A(633)+0.07*A(635)+0.036*A(646)+0.23*A(652)-A(984)+0.05*A(1039) + Vdot(244) = 0.12*A(150)-A(369)-A(370)-A(371)-A(372)-A(373)-A(374) IF (DO_FUN(245)) & - Vdot(245) = -0.75*A(255)-A(273)+A(302)+0.95*A(309)+A(314)+0.5*A(791)+0.5*A(792)+A(796)+A(800)+A(801)+A(802)+A(803)& - &+A(804)+A(808)+A(810)+A(811)-A(943) + Vdot(245) = 0.16*A(536)+0.25*A(551)-A(566)-A(567)-A(568)-A(569) IF (DO_FUN(246)) & - Vdot(246) = 0.31*A(123)-A(124)+A(125)-A(127)-A(128) + Vdot(246) = 0.7*A(450)+0.7*A(451)+0.35*A(452)+0.3*A(470)+0.3*A(471)+0.3*A(472)+0.15*A(473)+0.3*A(474)+0.3*A(476)+0.6& + &*A(478)+0.45*A(479)+0.3*A(480)-A(482)-A(483)-A(484)-A(865)-A(999) IF (DO_FUN(247)) & - Vdot(247) = 0.791*A(169)-A(361)+0.551*A(594)+0.935*A(595)+0.242*A(600)+0.546*A(601)+0.589*A(631)+0.471*A(632)+0.687& - &*A(633)+0.59*A(635)+0.231*A(639)+0.231*A(640)+A(642)+0.82*A(643)+0.68*A(649)+A(654)-A(1005)+A(1015) + Vdot(247) = -A(33)+0.85*A(118)+0.85*A(119)+0.3*A(497)+0.3*A(505)+0.018*A(538)+0.294*A(544)+0.135*A(546)+0.009*A(631)& + &+0.054*A(632)+0.013*A(633)+0.07*A(635)+0.036*A(646)+0.23*A(652)-A(991)+0.05*A(1046) IF (DO_FUN(248)) & - Vdot(248) = 0.059*A(585)+0.272*A(586)-A(653)+A(660)+A(675)+0.37*A(678)-A(880)-A(1014)+0.5*A(1038) + Vdot(248) = -0.75*A(255)-A(273)+A(302)+0.95*A(309)+A(314)+0.5*A(791)+0.5*A(792)+A(796)+A(800)+A(801)+A(802)+A(803)& + &+A(804)+A(808)+A(810)+A(811)-A(950) IF (DO_FUN(249)) & - Vdot(249) = -A(92)+A(103)-A(117)-A(135)-A(188) + Vdot(249) = 0.791*A(169)-A(361)+0.551*A(594)+0.935*A(595)+0.242*A(600)+0.546*A(601)+0.589*A(631)+0.471*A(632)+0.687& + &*A(633)+0.59*A(635)+0.231*A(639)+0.231*A(640)+A(642)+0.82*A(643)+0.68*A(649)+A(654)-A(1012)+A(1022) IF (DO_FUN(250)) & - Vdot(250) = -A(100)-A(121)-A(139)+A(162)+0.209*A(169)-A(189) + Vdot(250) = 0.31*A(123)-A(124)+A(125)-A(127)-A(128) IF (DO_FUN(251)) & - Vdot(251) = A(94)-A(102)+A(115)+0.07*A(123)-A(863)-A(926) + Vdot(251) = 0.059*A(585)+0.272*A(586)-A(653)+A(660)+A(675)+0.37*A(678)-A(880)-A(1021)+0.5*A(1045) IF (DO_FUN(252)) & - Vdot(252) = A(336)-A(337)-2*A(338)-A(839)-A(840)-A(844)-A(845)-A(846)-A(847)-A(971) + Vdot(252) = -A(92)+A(103)-A(117)-A(135)-A(188) IF (DO_FUN(253)) & - Vdot(253) = 0.964*A(646)+A(658)+A(659)-A(670)-A(673)-A(674)-A(675) + Vdot(253) = -A(100)-A(121)-A(139)+A(162)+0.209*A(169)-A(189) IF (DO_FUN(254)) & - Vdot(254) = A(644)+A(655)+A(656)-A(667)-A(668)-A(669) + Vdot(254) = A(336)-A(337)-2*A(338)-A(839)-A(840)-A(844)-A(845)-A(846)-A(847)-A(978) IF (DO_FUN(255)) & - Vdot(255) = 0.27*A(379)+0.63*A(417)+0.47*A(418)+0.63*A(419)-A(420)-A(421)-A(422)+0.63*A(460)+0.63*A(461)-A(1058) + Vdot(255) = A(94)-A(102)+A(115)+0.07*A(123)-A(863)-A(933) IF (DO_FUN(256)) & - Vdot(256) = 0.5*A(403)+0.5*A(416)+0.5*A(435)+A(468)+0.7*A(470)+0.7*A(471)+0.7*A(472)+0.35*A(473)+0.7*A(474)+0.7*A(476)& - &+1.4*A(478)+1.05*A(479)+0.7*A(480)-A(481)-A(485)-A(864)-A(991) + Vdot(256) = 0.27*A(379)+0.63*A(417)+0.47*A(418)+0.63*A(419)-A(420)-A(421)-A(422)+0.63*A(460)+0.63*A(461)-A(1065) IF (DO_FUN(257)) & - Vdot(257) = 0.4*A(387)+A(389)+A(390)-A(391)-A(392)-A(393)+A(394)-A(395)+A(396)-A(464)-A(465) + Vdot(257) = 0.964*A(646)+A(658)+A(659)-A(670)-A(673)-A(674)-A(675) IF (DO_FUN(258)) & - Vdot(258) = 0.176*A(539)+0.548*A(543)+0.35*A(558)+0.35*A(565)+0.35*A(566)-A(686)+0.333*A(688)-A(1033)-A(1034)+0.75& - &*A(1035) + Vdot(258) = A(644)+A(655)+A(656)-A(667)-A(668)-A(669) IF (DO_FUN(259)) & - Vdot(259) = A(647)+0.32*A(649)-A(671)+0.165*A(672)-A(676)-A(677)+A(683) + Vdot(259) = 0.176*A(539)+0.548*A(543)+0.35*A(558)+0.35*A(565)+0.35*A(566)-A(686)+0.333*A(688)-A(1040)-A(1041)+0.75& + &*A(1042) IF (DO_FUN(260)) & - Vdot(260) = -A(65)-A(113)-A(147)+A(149)+0.209*A(176)-A(192)+A(332)+A(333) + Vdot(260) = 0.5*A(403)+0.5*A(416)+0.5*A(435)+A(468)+0.7*A(470)+0.7*A(471)+0.7*A(472)+0.35*A(473)+0.7*A(474)+0.7*A(476)& + &+1.4*A(478)+1.05*A(479)+0.7*A(480)-A(481)-A(485)-A(864)-A(998) IF (DO_FUN(261)) & - Vdot(261) = -A(360)+0.441*A(597)+0.858*A(598)+0.033*A(600)+0.071*A(601)+0.051*A(631)+0.054*A(632)+0.064*A(633)+0.07& - &*A(635)+0.099*A(639)+0.099*A(640)+0.89*A(642)+0.73*A(643)-A(692)-A(990)+0.3*A(1013)+0.15*A(1038) + Vdot(261) = 0.4*A(387)+A(389)+A(390)-A(391)-A(392)-A(393)+A(394)-A(395)+A(396)-A(464)-A(465) IF (DO_FUN(262)) & - Vdot(262) = 0.4*A(381)+0.675*A(445)+0.675*A(446)+0.78*A(447)+0.78*A(448)+0.39*A(449)+0.3*A(450)+0.3*A(451)+0.15*A(452)& - &-A(453)-A(454)-A(455)+0.675*A(462)+0.675*A(463)+0.675*A(1057) + Vdot(262) = A(647)+0.32*A(649)-A(671)+0.165*A(672)-A(676)-A(677)+A(683) IF (DO_FUN(263)) & - Vdot(263) = 0.15*A(379)+0.5*A(381)+0.5*A(388)+0.84*A(399)+A(400)+0.75*A(401)+0.5*A(402)+0.55*A(403)+0.5*A(407)+A(422)& - &+A(425)+A(428)+0.7*A(447)+0.7*A(448)+0.35*A(449)+0.7*A(450)+0.7*A(451)+0.35*A(452)+A(453)+A(454)+0.5*A(455)& - &+0.7*A(702)+A(703)+0.813*A(705)+A(706)+0.93*A(707)+A(708)+0.46*A(724)+0.81*A(725)+0.85*A(726)-A(727)-A(728)& - &-A(729)-A(730)-A(731)+0.14*A(741)+0.2*A(743)+0.2*A(744)+0.7*A(745)+0.2*A(747)+A(1052) + Vdot(263) = 0.4*A(381)+0.675*A(445)+0.675*A(446)+0.78*A(447)+0.78*A(448)+0.39*A(449)+0.3*A(450)+0.3*A(451)+0.15*A(452)& + &-A(453)-A(454)-A(455)+0.675*A(462)+0.675*A(463)+0.675*A(1064) IF (DO_FUN(264)) & - Vdot(264) = -A(7)+A(19)-A(21)+A(23)-A(244)-A(295)+0.06*A(365)+0.06*A(366)+A(373)+0.013*A(493)+0.045*A(645)-A(886) + Vdot(264) = -A(65)-A(113)-A(147)+A(149)+0.209*A(176)-A(192)+A(332)+A(333) IF (DO_FUN(265)) & - Vdot(265) = -A(47)+0.134*A(151)+A(152)+0.5*A(168)-A(318)+0.21*A(365)+0.54*A(366)+0.449*A(650)+0.187*A(661)+0.3*A(685)& - &+0.5*A(694)+0.364*A(714)+0.26*A(767)+0.5*A(768)+0.1*A(770)+0.2*A(771) + Vdot(265) = -A(360)+0.441*A(597)+0.858*A(598)+0.033*A(600)+0.071*A(601)+0.051*A(631)+0.054*A(632)+0.064*A(633)+0.07& + &*A(635)+0.099*A(639)+0.099*A(640)+0.89*A(642)+0.73*A(643)-A(692)-A(997)+0.3*A(1020)+0.15*A(1045) IF (DO_FUN(266)) & - Vdot(266) = A(560)+A(564)+A(567)+A(584)+A(588)+A(592)+A(593)+A(629)+0.5*A(630)-A(690)+0.9*A(691)-A(877)-A(1040)& - &-A(1041) + Vdot(266) = 0.15*A(379)+0.5*A(381)+0.5*A(388)+0.84*A(399)+A(400)+0.75*A(401)+0.5*A(402)+0.55*A(403)+0.5*A(407)+A(422)& + &+A(425)+A(428)+0.7*A(447)+0.7*A(448)+0.35*A(449)+0.7*A(450)+0.7*A(451)+0.35*A(452)+A(453)+A(454)+0.5*A(455)& + &+0.7*A(702)+A(703)+0.813*A(705)+A(706)+0.93*A(707)+A(708)+0.46*A(724)+0.81*A(725)+0.85*A(726)-A(727)-A(728)& + &-A(729)-A(730)-A(731)+0.14*A(741)+0.2*A(743)+0.2*A(744)+0.7*A(745)+0.2*A(747)+A(1059) IF (DO_FUN(267)) & - Vdot(267) = A(518)-A(580)-A(581)-A(583)+0.127*A(608)+0.057*A(609)-A(872)-A(1027) + Vdot(267) = -A(7)+A(19)-A(21)+A(23)-A(244)-A(295)+0.06*A(365)+0.06*A(366)+A(373)+0.013*A(493)+0.045*A(645)-A(882)& + &-A(893) IF (DO_FUN(268)) & - Vdot(268) = A(522)-A(578)-A(579)-A(582)+0.032*A(607)+0.671*A(608)+0.298*A(609)-A(869)-A(1024) + Vdot(268) = -A(47)+0.134*A(151)+A(152)+0.5*A(168)-A(318)+0.21*A(365)+0.54*A(366)+0.449*A(650)+0.187*A(661)+0.3*A(685)& + &+0.5*A(694)+0.364*A(714)+0.26*A(767)+0.5*A(768)+0.1*A(770)+0.2*A(771) IF (DO_FUN(269)) & - Vdot(269) = 0.258*A(742)+0.5*A(744)+0.5*A(747)+A(762)-A(763)-A(764)-A(881)-A(1046) + Vdot(269) = A(560)+A(564)+A(567)+A(584)+A(588)+A(592)+A(593)+A(629)+0.5*A(630)-A(690)+0.9*A(691)-A(877)-A(1047)& + &-A(1048) IF (DO_FUN(270)) & - Vdot(270) = 0.065*A(81)+0.134*A(151)+0.2*A(153)-A(163)-A(165)+0.8*A(563)+0.52*A(565)+A(697)+0.1*A(707)+0.636*A(714)& - &+0.18*A(724)+0.12*A(725)+0.1*A(726)+0.06*A(741)+0.6*A(767)+0.6*A(768)+0.2*A(769)-A(856)-A(908)-A(909)& - &-A(910)+0.5*A(1007)+0.429*A(1009)+0.125*A(1010)+0.586*A(1034)+0.571*A(1036) + Vdot(270) = A(518)-A(580)-A(581)-A(583)+0.127*A(608)+0.057*A(609)-A(872)-A(1034) IF (DO_FUN(271)) & - Vdot(271) = 0.67*A(621)-A(630)-A(631)-A(633)-A(634) + Vdot(271) = A(522)-A(578)-A(579)-A(582)+0.032*A(607)+0.671*A(608)+0.298*A(609)-A(869)-A(1031) IF (DO_FUN(272)) & - Vdot(272) = A(423)+0.27*A(424)+0.18*A(426)-A(429)-A(430)-A(431)-A(432) + Vdot(272) = 0.258*A(742)+0.5*A(744)+0.5*A(747)+A(762)-A(763)-A(764)-A(881)-A(1053) IF (DO_FUN(273)) & - Vdot(273) = 0.1*A(383)+A(409)-A(410)-A(411)-A(412)-A(413)-A(414)+A(415) + Vdot(273) = 0.67*A(621)-A(630)-A(631)-A(633)-A(634) IF (DO_FUN(274)) & - Vdot(274) = 0.715*A(379)+0.27*A(412)+0.23*A(413)+0.27*A(414)+0.085*A(416)+A(420)+0.6*A(421)+0.73*A(424)+0.32*A(426)& - &+0.4*A(427)+A(433)+A(434)+0.5*A(435)-A(436)-A(437)-A(438)+A(439)-A(440)+A(441)-A(466)-A(467)+0.27*A(1054)& - &+0.9*A(1058) + Vdot(274) = 0.065*A(81)+0.134*A(151)+0.2*A(153)-A(163)-A(165)+0.8*A(563)+0.52*A(565)+A(697)+0.1*A(707)+0.636*A(714)& + &+0.18*A(724)+0.12*A(725)+0.1*A(726)+0.06*A(741)+0.6*A(767)+0.6*A(768)+0.2*A(769)-A(856)-A(915)-A(916)& + &-A(917)+0.5*A(1014)+0.429*A(1016)+0.125*A(1017)+0.586*A(1041)+0.571*A(1043) IF (DO_FUN(275)) & - Vdot(275) = 0.15*A(380)+0.255*A(382)-A(404)-A(405)-A(406)+A(408)-A(458)-A(459) + Vdot(275) = 0.1*A(383)+A(409)-A(410)-A(411)-A(412)-A(413)-A(414)+A(415) IF (DO_FUN(276)) & - Vdot(276) = -A(330)-A(493)-A(494)-A(495)-A(496)-A(497)-A(603) + Vdot(276) = 0.15*A(380)+0.255*A(382)-A(404)-A(405)-A(406)+A(408)-A(458)-A(459) IF (DO_FUN(277)) & - Vdot(277) = 0.15*A(380)+0.67*A(382)+0.5*A(383)-A(384)-A(385)-A(386)+0.6*A(387)-A(456)-A(457) + Vdot(277) = 0.715*A(379)+0.27*A(412)+0.23*A(413)+0.27*A(414)+0.085*A(416)+A(420)+0.6*A(421)+0.73*A(424)+0.32*A(426)& + &+0.4*A(427)+A(433)+A(434)+0.5*A(435)-A(436)-A(437)-A(438)+A(439)-A(440)+A(441)-A(466)-A(467)+0.27*A(1061)& + &+0.9*A(1065) IF (DO_FUN(278)) & - Vdot(278) = 0.44*A(391)+A(392)+A(395)+A(397)-A(398)-A(399)-A(400)-A(401)+0.5*A(402)+0.75*A(464)+A(465)+A(1049)+A(1050)& - &+A(1051) + Vdot(278) = A(423)+0.27*A(424)+0.18*A(426)-A(429)-A(430)-A(431)-A(432) IF (DO_FUN(279)) & - Vdot(279) = A(91)+0.072*A(97)-A(103)+A(117)-A(929) + Vdot(279) = -A(330)-A(493)-A(494)-A(495)-A(496)-A(497)-A(603) IF (DO_FUN(280)) & Vdot(280) = 0.1*A(375)+0.1*A(376)+0.5*A(377)+0.5*A(449)+0.5*A(452)+0.5*A(455)-A(468)-A(470)-A(472)-A(474)-A(476)-2& &*A(478)-A(479) IF (DO_FUN(281)) & - Vdot(281) = A(378)+0.2*A(380)+0.075*A(382)-A(417)-A(418)-A(419)-A(460)-A(461) + Vdot(281) = 0.15*A(380)+0.67*A(382)+0.5*A(383)-A(384)-A(385)-A(386)+0.6*A(387)-A(456)-A(457) IF (DO_FUN(282)) & - Vdot(282) = A(29)+0.13*A(31)-A(48)+0.25*A(112)+0.25*A(113)+0.25*A(129)+0.25*A(130)+0.25*A(132)+0.25*A(133)+0.25*A(134)& - &+0.25*A(135)+0.5*A(136)+0.25*A(137)+0.25*A(138)+0.25*A(139)-A(324)+0.25*A(401)+0.25*A(413)+0.25*A(432)+0.25& - &*A(456)+0.25*A(458)+0.25*A(460)+0.25*A(462)+0.25*A(473)+0.355*A(609)+0.034*A(610)+0.2*A(718)+0.1*A(907) + Vdot(282) = 0.44*A(391)+A(392)+A(395)+A(397)-A(398)-A(399)-A(400)-A(401)+0.5*A(402)+0.75*A(464)+A(465)+A(1056)+A(1057)& + &+A(1058) IF (DO_FUN(283)) & - Vdot(283) = -A(104)+0.5*A(168)+0.1*A(181)+0.1*A(182)+0.1*A(183)+0.1*A(184)+0.1*A(185)+0.1*A(186)+0.1*A(187)+0.1*A(188)& - &+0.1*A(189)+0.1*A(190)+0.1*A(191)+0.1*A(192)+0.1*A(193)-A(326)+A(374)+0.1*A(457)+0.1*A(459)+0.1*A(461)+0.1& - &*A(463)+0.13*A(695)+0.15*A(770)+0.3*A(771) + Vdot(283) = A(91)+0.072*A(97)-A(103)+A(117)-A(936) IF (DO_FUN(284)) & - Vdot(284) = -A(340)+A(341)+A(343)-A(344)-A(345)+A(348)-A(349)+A(350)+A(354)-A(355)-A(356)-2*A(357)+0.008*A(358)-A(968)& - &+A(979) + Vdot(284) = A(378)+0.2*A(380)+0.075*A(382)-A(417)-A(418)-A(419)-A(460)-A(461) IF (DO_FUN(285)) & - Vdot(285) = 0.068*A(528)+0.33*A(553)+0.19*A(555)-A(561)-A(562)-A(563)-A(564)-A(565)+0.032*A(687) + Vdot(285) = A(29)+0.13*A(31)-A(48)+0.25*A(112)+0.25*A(113)+0.25*A(129)+0.25*A(130)+0.25*A(132)+0.25*A(133)+0.25*A(134)& + &+0.25*A(135)+0.5*A(136)+0.25*A(137)+0.25*A(138)+0.25*A(139)-A(324)+0.25*A(401)+0.25*A(413)+0.25*A(432)+0.25& + &*A(456)+0.25*A(458)+0.25*A(460)+0.25*A(462)+0.25*A(473)+0.355*A(609)+0.034*A(610)+0.2*A(718)+0.1*A(914) IF (DO_FUN(286)) & - Vdot(286) = 0.294*A(528)+0.67*A(553)+0.81*A(555)-A(556)-A(557)-A(558)-A(559)-A(560)+0.08*A(687) + Vdot(286) = -A(104)+0.5*A(168)+0.1*A(181)+0.1*A(182)+0.1*A(183)+0.1*A(184)+0.1*A(185)+0.1*A(186)+0.1*A(187)+0.1*A(188)& + &+0.1*A(189)+0.1*A(190)+0.1*A(191)+0.1*A(192)+0.1*A(193)-A(326)+A(374)+0.1*A(457)+0.1*A(459)+0.1*A(461)+0.1& + &*A(463)+0.13*A(695)+0.15*A(770)+0.3*A(771) IF (DO_FUN(287)) & - Vdot(287) = A(510)+0.5*A(511)+0.5*A(515)+0.55*A(523)+0.17*A(525)+0.09*A(527)+0.158*A(528)+0.165*A(536)+0.716*A(540)& - &+0.14*A(542)+0.004*A(631)+0.006*A(633)-A(652)+0.41*A(670)+0.5*A(686)+0.571*A(689)+0.25*A(690)-A(1011)+0.55& - &*A(1027)+0.5*A(1033)+0.15*A(1039)+0.5*A(1041) + Vdot(287) = A(352)-A(354)+A(355)-A(828)-A(829)+A(843)-A(852)-A(853)-A(854)-A(855)-A(974) IF (DO_FUN(288)) & - Vdot(288) = A(509)+0.5*A(511)+0.5*A(513)+0.55*A(519)+0.33*A(524)+0.19*A(526)+0.125*A(528)+0.125*A(535)+0.706*A(544)& - &+0.14*A(546)+0.054*A(631)+0.059*A(633)-A(651)+0.335*A(667)+0.429*A(689)+0.75*A(690)-A(1008)+0.55*A(1024)& - &+0.5*A(1041) + Vdot(288) = 0.068*A(528)+0.33*A(553)+0.19*A(555)-A(561)-A(562)-A(563)-A(564)-A(565)+0.032*A(687) IF (DO_FUN(289)) & - Vdot(289) = 0.9*A(375)+0.9*A(376)+0.5*A(377)-A(469)-A(471)-A(473)-A(475)-A(477)-A(479)-2*A(480) + Vdot(289) = 0.294*A(528)+0.67*A(553)+0.81*A(555)-A(556)-A(557)-A(558)-A(559)-A(560)+0.08*A(687) IF (DO_FUN(290)) & - Vdot(290) = -A(149)-A(150)-A(162)-A(332)-A(333)+A(912) + Vdot(290) = A(510)+0.5*A(511)+0.5*A(515)+0.55*A(523)+0.17*A(525)+0.09*A(527)+0.158*A(528)+0.165*A(536)+0.716*A(540)& + &+0.14*A(542)+0.004*A(631)+0.006*A(633)-A(652)+0.41*A(670)+0.5*A(686)+0.571*A(689)+0.25*A(690)-A(1018)+0.55& + &*A(1034)+0.5*A(1040)+0.15*A(1046)+0.5*A(1048) IF (DO_FUN(291)) & - Vdot(291) = 0.5*A(380)-A(443)-A(444)-A(445)-A(446)-A(462)-A(463) + Vdot(291) = A(509)+0.5*A(511)+0.5*A(513)+0.55*A(519)+0.33*A(524)+0.19*A(526)+0.125*A(528)+0.125*A(535)+0.706*A(544)& + &+0.14*A(546)+0.054*A(631)+0.059*A(633)-A(651)+0.335*A(667)+0.429*A(689)+0.75*A(690)-A(1015)+0.55*A(1031)& + &+0.5*A(1048) IF (DO_FUN(292)) & - Vdot(292) = 0.25*A(68)+0.19*A(90)+0.19*A(93)-A(122)-A(131)+0.35*A(132)+0.35*A(134)+0.25*A(137)+0.271*A(182)+0.271& - &*A(183)+0.1*A(185)+0.5*A(381)+0.42*A(399)+0.5*A(400)+0.375*A(401)+0.25*A(402)+0.3*A(403)+A(453)+A(454)+0.5& - &*A(455)+0.464*A(469)+0.34*A(473)+0.464*A(475)+0.464*A(477)+0.149*A(479)+0.285*A(480)-A(906)+0.19*A(926)& - &+0.19*A(929)+A(991)+0.5*A(1052) + Vdot(292) = 0.9*A(375)+0.9*A(376)+0.5*A(377)-A(469)-A(471)-A(473)-A(475)-A(477)-A(479)-2*A(480) IF (DO_FUN(293)) & - Vdot(293) = -A(600)-A(601)-A(602)+A(620)+0.33*A(621)+0.037*A(691) + Vdot(293) = -A(149)-A(150)-A(162)-A(332)-A(333)+A(919) IF (DO_FUN(294)) & - Vdot(294) = 0.3*A(33)+0.5*A(136)-A(164)-A(166)+A(167)+0.1*A(184)+A(361)+0.3*A(496)+0.3*A(497)+0.3*A(503)+0.3*A(505)& - &+0.085*A(524)+0.165*A(525)+0.355*A(528)+0.5*A(529)+0.018*A(537)+0.018*A(538)+0.52*A(558)+0.8*A(559)+0.545& - &*A(645)+0.88*A(648)+0.449*A(650)+0.187*A(661)+A(662)+A(664)+0.05*A(667)+0.242*A(668)+0.083*A(670)+0.14& - &*A(674)+0.7*A(685)+0.25*A(707)+0.12*A(725)+0.2*A(726)+0.6*A(770)+0.6*A(771)+0.2*A(772)-A(857)-A(911)+0.5& - &*A(1007)+0.47*A(1008)+0.571*A(1009)+0.125*A(1010)+0.23*A(1011)+0.118*A(1034)+0.429*A(1036)+A(1040) + Vdot(294) = 0.5*A(380)-A(443)-A(444)-A(445)-A(446)-A(462)-A(463) IF (DO_FUN(295)) & - Vdot(295) = 0.34*A(90)+0.34*A(93)+A(98)-A(111)+0.16*A(132)+0.16*A(134)+0.75*A(138)+0.791*A(172)+0.29*A(182)+0.29& - &*A(183)+A(186)-A(218)-A(329)+0.5*A(381)+0.84*A(399)+A(400)+0.75*A(401)+0.5*A(402)+0.4*A(403)+0.6*A(412)+0.4& - &*A(413)+0.6*A(414)+0.3*A(416)+0.45*A(445)+0.45*A(446)+0.3*A(447)+0.3*A(448)+0.15*A(449)+0.5*A(453)+0.5& - &*A(454)+0.25*A(455)+0.45*A(462)+0.45*A(463)+A(491)-A(904)-A(905)+A(920)+0.34*A(926)+0.34*A(929)+A(1000)& - &+A(1052)+0.6*A(1054)+0.45*A(1057) + Vdot(295) = 0.25*A(68)+0.19*A(90)+0.19*A(93)-A(122)-A(131)+0.35*A(132)+0.35*A(134)+0.25*A(137)+0.271*A(182)+0.271& + &*A(183)+0.1*A(185)+0.5*A(381)+0.42*A(399)+0.5*A(400)+0.375*A(401)+0.25*A(402)+0.3*A(403)+A(453)+A(454)+0.5& + &*A(455)+0.464*A(469)+0.34*A(473)+0.464*A(475)+0.464*A(477)+0.149*A(479)+0.285*A(480)-A(913)+0.19*A(933)& + &+0.19*A(936)+A(998)+0.5*A(1059) IF (DO_FUN(296)) & - Vdot(296) = A(57)-A(58)-A(59)-A(129)-2*A(142)-A(144)+A(179)-A(190)+A(219)+A(321)-A(322)+A(701) + Vdot(296) = A(339)+A(340)-A(341)-A(342)-A(841)-A(842)-A(843)-A(848)-A(849)-A(850)-A(851)-A(979) IF (DO_FUN(297)) & - Vdot(297) = -A(281)+A(787)+A(789)+A(790)-A(802)-A(803)-A(804)-A(805)-A(806)-A(807)-A(947) + Vdot(297) = 0.34*A(90)+0.34*A(93)+A(98)-A(111)+0.16*A(132)+0.16*A(134)+0.75*A(138)+0.791*A(172)+0.29*A(182)+0.29& + &*A(183)+A(186)-A(218)-A(329)+0.5*A(381)+0.84*A(399)+A(400)+0.75*A(401)+0.5*A(402)+0.4*A(403)+0.6*A(412)+0.4& + &*A(413)+0.6*A(414)+0.3*A(416)+0.45*A(445)+0.45*A(446)+0.3*A(447)+0.3*A(448)+0.15*A(449)+0.5*A(453)+0.5& + &*A(454)+0.25*A(455)+0.45*A(462)+0.45*A(463)+A(491)-A(911)-A(912)+A(927)+0.34*A(933)+0.34*A(936)+A(1007)& + &+A(1059)+0.6*A(1061)+0.45*A(1064) IF (DO_FUN(298)) & - Vdot(298) = A(63)+0.75*A(68)+0.5*A(71)+1.24*A(73)+0.326*A(78)+0.894*A(79)+0.15*A(90)+0.64*A(92)+0.15*A(93)+0.64*A(95)& - &-A(105)-A(110)+0.75*A(112)+0.09*A(113)+0.13*A(132)+0.58*A(133)+0.13*A(134)+0.58*A(135)+0.25*A(139)+A(141)& - &+0.64*A(171)+1.185*A(173)+1.185*A(174)+0.255*A(182)+0.255*A(183)+0.613*A(187)+0.613*A(188)+0.1*A(189)+0.035& - &*A(192)+A(193)+0.3*A(381)+0.6*A(412)+0.4*A(413)+0.6*A(414)+0.3*A(416)+0.44*A(436)+A(437)+A(440)+A(442)+0.75& - &*A(466)+A(467)+1.24*A(469)+0.93*A(473)+1.24*A(475)+1.24*A(477)+0.64*A(479)+1.21*A(480)+A(492)+1.2*A(769)& - &+1.15*A(772)-A(903)+A(917)+A(919)+1.5*A(921)+A(922)+1.5*A(923)+0.15*A(926)+1.558*A(927)+0.15*A(929)+A(989)& - &+A(992)+A(1001)+0.6*A(1054)+A(1055)+A(1056) + Vdot(298) = 0.3*A(33)+0.5*A(136)-A(164)-A(166)+A(167)+0.1*A(184)+A(361)+0.3*A(496)+0.3*A(497)+0.3*A(503)+0.3*A(505)& + &+0.085*A(524)+0.165*A(525)+0.355*A(528)+0.5*A(529)+0.018*A(537)+0.018*A(538)+0.52*A(558)+0.8*A(559)+0.545& + &*A(645)+0.88*A(648)+0.449*A(650)+0.187*A(661)+A(662)+A(664)+0.05*A(667)+0.242*A(668)+0.083*A(670)+0.14& + &*A(674)+0.7*A(685)+0.25*A(707)+0.12*A(725)+0.2*A(726)+0.6*A(770)+0.6*A(771)+0.2*A(772)-A(857)-A(918)+0.5& + &*A(1014)+0.47*A(1015)+0.571*A(1016)+0.125*A(1017)+0.23*A(1018)+0.118*A(1041)+0.429*A(1043)+A(1047) IF (DO_FUN(299)) & - Vdot(299) = A(587)+A(591)+A(596)+A(599)+A(602)+A(616)+A(618)+A(634)+A(636)-A(641)+0.18*A(643)-A(876)-A(1032) + Vdot(299) = -A(600)-A(601)-A(602)+A(620)+0.33*A(621)+0.037*A(691) IF (DO_FUN(300)) & - Vdot(300) = -A(90)-A(91)+A(101)-A(116)-A(134)+0.21*A(174)-A(183)+A(331)+0.2*A(772) + Vdot(300) = A(57)-A(58)-A(59)-A(129)-2*A(142)-A(144)+A(179)-A(190)+A(219)+A(321)-A(322)+A(701) IF (DO_FUN(301)) & - Vdot(301) = 0.4*A(582)+0.4*A(583)+0.07*A(606)+0.532*A(607)+0.862*A(608)+0.401*A(609)+0.034*A(610)+0.159*A(612)+0.159& - &*A(614)+0.159*A(617)+A(619)+A(628)-A(637)-A(638)+0.159*A(1029)-A(1031)+0.223*A(1032) + Vdot(301) = -A(281)+A(787)+A(789)+A(790)-A(802)-A(803)-A(804)-A(805)-A(806)-A(807)-A(954) IF (DO_FUN(302)) & - Vdot(302) = 0.6*A(583)+0.599*A(589)+A(590)+0.065*A(597)+0.142*A(598)+0.01*A(600)+0.028*A(601)+0.008*A(631)+0.015& - &*A(632)+0.014*A(633)+0.049*A(635)+0.161*A(638)-A(650)+A(657)+A(669)-A(862)-A(1013)+0.05*A(1038) + Vdot(302) = A(63)+0.75*A(68)+0.5*A(71)+1.24*A(73)+0.326*A(78)+0.894*A(79)+0.15*A(90)+0.64*A(92)+0.15*A(93)+0.64*A(95)& + &-A(105)-A(110)+0.75*A(112)+0.09*A(113)+0.13*A(132)+0.58*A(133)+0.13*A(134)+0.58*A(135)+0.25*A(139)+A(141)& + &+0.64*A(171)+1.185*A(173)+1.185*A(174)+0.255*A(182)+0.255*A(183)+0.613*A(187)+0.613*A(188)+0.1*A(189)+0.035& + &*A(192)+A(193)+0.3*A(381)+0.6*A(412)+0.4*A(413)+0.6*A(414)+0.3*A(416)+0.44*A(436)+A(437)+A(440)+A(442)+0.75& + &*A(466)+A(467)+1.24*A(469)+0.93*A(473)+1.24*A(475)+1.24*A(477)+0.64*A(479)+1.21*A(480)+A(492)+1.2*A(769)& + &+1.15*A(772)-A(910)+A(924)+A(926)+1.5*A(928)+A(929)+1.5*A(930)+0.15*A(933)+1.558*A(934)+0.15*A(936)+A(996)& + &+A(999)+A(1008)+0.6*A(1061)+A(1062)+A(1063) IF (DO_FUN(303)) & - Vdot(303) = A(541)+A(545)+A(549)+0.482*A(585)+0.401*A(589)+0.418*A(594)+0.494*A(597)+0.621*A(600)+A(623)+A(624)+0.5& - &*A(630)+0.234*A(631)+0.387*A(632)+0.565*A(641)-A(691)-A(878)-A(1038)-A(1039) + Vdot(303) = A(587)+A(591)+A(596)+A(599)+A(602)+A(616)+A(618)+A(634)+A(636)-A(641)+0.18*A(643)-A(876)-A(1039) IF (DO_FUN(304)) & - Vdot(304) = 0.5*A(330)+A(495)-A(500)-A(501)-A(504)-A(505)-2*A(507)-A(508)-2*A(510)-A(511)-A(514)-A(515)-A(520)-A(521)& - &-A(522)-A(523)+0.51*A(536)+0.03*A(538)+0.159*A(1030) + Vdot(304) = -A(90)-A(91)+A(101)-A(116)-A(134)+0.21*A(174)-A(183)+A(331)+0.2*A(772) IF (DO_FUN(305)) & - Vdot(305) = 0.5*A(330)+A(494)-A(498)-A(499)-A(502)-A(503)-2*A(506)-A(508)-2*A(509)-A(511)-A(512)-A(513)-A(516)-A(517)& - &-A(518)-A(519)+0.75*A(535)+0.03*A(537)+0.841*A(1030) + Vdot(305) = 0.4*A(582)+0.4*A(583)+0.07*A(606)+0.532*A(607)+0.862*A(608)+0.401*A(609)+0.034*A(610)+0.159*A(612)+0.159& + &*A(614)+0.159*A(617)+A(619)+A(628)-A(637)-A(638)+0.159*A(1036)-A(1038)+0.223*A(1039) IF (DO_FUN(306)) & - Vdot(306) = 0.659*A(79)+A(80)+A(82)+A(83)+0.5*A(84)+A(88)+A(126)-A(151)-A(152)-A(153)-A(154)+0.5*A(453)+0.5*A(454)& - &+0.25*A(455)+0.294*A(544)+0.135*A(546)+A(548)+0.65*A(550)+0.52*A(558)+0.8*A(559)+0.459*A(585)+0.728*A(586)& - &+0.551*A(594)+0.935*A(595)+0.242*A(600)+0.546*A(601)+0.34*A(631)+0.384*A(633)+0.11*A(642)+0.09*A(643)+0.36& - &*A(667)+0.758*A(668)+0.2*A(718)+A(720)+A(721)+A(723)+A(746)+0.9*A(768)+0.95*A(771)-A(907)+0.53*A(1008)+0.69& - &*A(1013)+0.5*A(1032)+0.118*A(1034)+0.25*A(1035)+0.429*A(1036)+0.3*A(1038)+0.35*A(1039)+A(1040) + Vdot(306) = 0.6*A(583)+0.599*A(589)+A(590)+0.065*A(597)+0.142*A(598)+0.01*A(600)+0.028*A(601)+0.008*A(631)+0.015& + &*A(632)+0.014*A(633)+0.049*A(635)+0.161*A(638)-A(650)+A(657)+A(669)-A(862)-A(1020)+0.05*A(1045) IF (DO_FUN(307)) & - Vdot(307) = 0.16*A(113)+0.2*A(136)-A(167)-A(168)+0.791*A(176)+0.065*A(192)+A(488)+0.5*A(529)+0.284*A(540)+0.135*A(542)& - &+A(548)+0.65*A(550)+0.8*A(563)+0.52*A(565)+0.52*A(566)+0.8*A(568)+A(569)+0.459*A(585)+0.728*A(586)+0.441& - &*A(597)+0.858*A(598)+0.033*A(600)+0.071*A(601)+0.042*A(631)+0.051*A(633)+0.77*A(652)+0.84*A(666)+0.507& - &*A(670)+0.488*A(672)+A(673)+0.86*A(674)+0.5*A(678)+A(679)+A(681)+0.7*A(682)+0.25*A(684)-A(916)+A(993)+0.77& - &*A(1011)+A(1014)+0.5*A(1032)+0.586*A(1034)+0.25*A(1035)+0.571*A(1036)+0.45*A(1038)+0.8*A(1039) + Vdot(307) = A(541)+A(545)+A(549)+0.482*A(585)+0.401*A(589)+0.418*A(594)+0.494*A(597)+0.621*A(600)+A(623)+A(624)+0.5& + &*A(630)+0.234*A(631)+0.387*A(632)+0.565*A(641)-A(691)-A(878)-A(1045)-A(1046) IF (DO_FUN(308)) & - Vdot(308) = A(653)-A(678)-A(679)-A(680)-A(681)-A(682) + Vdot(308) = 0.465*A(603)-A(604)-2*A(606)-A(607)-A(610)-A(611)-A(613)-A(615)-A(616)+A(626) IF (DO_FUN(309)) & - Vdot(309) = 0.416*A(493)+0.063*A(500)+A(504)+2*A(507)+A(508)+A(514)+A(521)+0.035*A(525)+0.14*A(527)+0.165*A(536)& - &+A(572)+A(573)+0.048*A(604)+0.123*A(606)+0.019*A(607)+0.028*A(610)+0.097*A(611)+0.097*A(613)+0.096*A(615)& - &-A(646)-A(647)-A(648)-A(649)-A(915)+A(1017)+A(1023)+A(1026)+0.097*A(1028)+0.005*A(1032) + Vdot(309) = 0.659*A(79)+A(80)+A(82)+A(83)+0.5*A(84)+A(88)+A(126)-A(151)-A(152)-A(153)-A(154)+0.5*A(453)+0.5*A(454)& + &+0.25*A(455)+0.294*A(544)+0.135*A(546)+A(548)+0.65*A(550)+0.52*A(558)+0.8*A(559)+0.459*A(585)+0.728*A(586)& + &+0.551*A(594)+0.935*A(595)+0.242*A(600)+0.546*A(601)+0.34*A(631)+0.384*A(633)+0.11*A(642)+0.09*A(643)+0.36& + &*A(667)+0.758*A(668)+0.2*A(718)+A(720)+A(721)+A(723)+A(746)+0.9*A(768)+0.95*A(771)-A(914)+0.53*A(1015)+0.69& + &*A(1020)+0.5*A(1039)+0.118*A(1041)+0.25*A(1042)+0.429*A(1043)+0.3*A(1045)+0.35*A(1046)+A(1047) IF (DO_FUN(310)) & - Vdot(310) = 0.465*A(603)-A(604)-2*A(606)-A(607)-A(610)-A(611)-A(613)-A(615)-A(616)+A(626) + Vdot(310) = 0.535*A(603)-A(605)-A(607)-2*A(608)-A(609)-A(612)-A(614)-A(617)-A(618)+A(627) IF (DO_FUN(311)) & - Vdot(311) = 0.535*A(603)-A(605)-A(607)-2*A(608)-A(609)-A(612)-A(614)-A(617)-A(618)+A(627) + Vdot(311) = 0.16*A(113)+0.2*A(136)-A(167)-A(168)+0.791*A(176)+0.065*A(192)+A(488)+0.5*A(529)+0.284*A(540)+0.135*A(542)& + &+A(548)+0.65*A(550)+0.8*A(563)+0.52*A(565)+0.52*A(566)+0.8*A(568)+A(569)+0.459*A(585)+0.728*A(586)+0.441& + &*A(597)+0.858*A(598)+0.033*A(600)+0.071*A(601)+0.042*A(631)+0.051*A(633)+0.77*A(652)+0.84*A(666)+0.507& + &*A(670)+0.488*A(672)+A(673)+0.86*A(674)+0.5*A(678)+A(679)+A(681)+0.7*A(682)+0.25*A(684)-A(923)+A(1000)+0.77& + &*A(1018)+A(1021)+0.5*A(1039)+0.586*A(1041)+0.25*A(1042)+0.571*A(1043)+0.45*A(1045)+0.8*A(1046) IF (DO_FUN(312)) & - Vdot(312) = 0.22*A(150)-A(362)-A(363)-A(364)-A(365)-A(366)-A(367)-A(368)+0.1*A(383)+0.33*A(421)+0.58*A(493)+0.5*A(645)& - &+0.88*A(648)+0.5*A(704)+A(712) + Vdot(312) = A(653)-A(678)-A(679)-A(680)-A(681)-A(682) IF (DO_FUN(313)) & - Vdot(313) = 0.7*A(33)-A(96)+A(111)-A(118)-A(136)-A(184)+A(218)+A(329) + Vdot(313) = 0.416*A(493)+0.063*A(500)+A(504)+2*A(507)+A(508)+A(514)+A(521)+0.035*A(525)+0.14*A(527)+0.165*A(536)& + &+A(572)+A(573)+0.048*A(604)+0.123*A(606)+0.019*A(607)+0.028*A(610)+0.097*A(611)+0.097*A(613)+0.096*A(615)& + &-A(646)-A(647)-A(648)-A(649)-A(922)+A(1024)+A(1030)+A(1033)+0.097*A(1035)+0.005*A(1039) IF (DO_FUN(314)) & - Vdot(314) = 0.15*A(381)+0.45*A(445)+0.45*A(446)+0.3*A(447)+0.3*A(448)+0.15*A(449)+0.5*A(453)+0.5*A(454)+0.25*A(455)& - &+0.45*A(462)+0.45*A(463)+0.177*A(493)+0.063*A(498)+A(502)+2*A(506)+A(508)+A(512)+A(517)+0.035*A(524)+0.23& - &*A(526)+0.125*A(535)+A(570)+A(571)+0.479*A(604)+1.737*A(606)+0.544*A(607)+0.583*A(610)+0.903*A(611)+0.903& - &*A(613)+0.904*A(615)-A(644)-A(645)+0.04*A(725)+0.04*A(726)-A(912)-A(913)-A(914)+A(1016)+A(1022)+A(1025)& - &+0.903*A(1028)+0.05*A(1032)+0.45*A(1057) + Vdot(314) = 0.5*A(330)+A(494)-A(498)-A(499)-A(502)-A(503)-2*A(506)-A(508)-2*A(509)-A(511)-A(512)-A(513)-A(516)-A(517)& + &-A(518)-A(519)+0.75*A(535)+0.03*A(537)+0.841*A(1037) IF (DO_FUN(315)) & - Vdot(315) = -A(60)+0.34*A(90)+0.34*A(93)+0.49*A(109)-A(130)+0.16*A(132)+0.16*A(134)-2*A(143)-A(145)+0.22*A(148)+0.36& - &*A(170)+0.29*A(182)+0.29*A(183)-A(191)+0.49*A(194)+0.49*A(195)-A(323)+0.49*A(903)+0.415*A(906)+0.34*A(926)& - &+0.34*A(929) + Vdot(315) = 0.5*A(330)+A(495)-A(500)-A(501)-A(504)-A(505)-2*A(507)-A(508)-2*A(510)-A(511)-A(514)-A(515)-A(520)-A(521)& + &-A(522)-A(523)+0.51*A(536)+0.03*A(538)+0.159*A(1037) IF (DO_FUN(316)) & - Vdot(316) = A(204)+A(211)-A(212)+A(793)-A(813)-A(814)-A(815)-A(816)-A(817)-A(818)-A(819)+A(820)+A(821)+A(822)-A(933) + Vdot(316) = 0.7*A(33)-A(96)+A(111)-A(118)-A(136)-A(184)+A(218)+A(329) IF (DO_FUN(317)) & - Vdot(317) = -A(282)+A(301)-A(313)-A(314)-A(795)-A(796)-A(797)-A(798)-A(799)-A(800)-A(801)-A(948)-A(949) + Vdot(317) = 0.22*A(150)-A(362)-A(363)-A(364)-A(365)-A(366)-A(367)-A(368)+0.1*A(383)+0.33*A(421)+0.58*A(493)+0.5*A(645)& + &+0.88*A(648)+0.5*A(704)+A(712) IF (DO_FUN(318)) & - Vdot(318) = -A(95)+A(102)-A(115)-A(133)-A(187)+0.5*A(763)+0.5*A(764) + Vdot(318) = 0.15*A(381)+0.45*A(445)+0.45*A(446)+0.3*A(447)+0.3*A(448)+0.15*A(449)+0.5*A(453)+0.5*A(454)+0.25*A(455)& + &+0.45*A(462)+0.45*A(463)+0.177*A(493)+0.063*A(498)+A(502)+2*A(506)+A(508)+A(512)+A(517)+0.035*A(524)+0.23& + &*A(526)+0.125*A(535)+A(570)+A(571)+0.479*A(604)+1.737*A(606)+0.544*A(607)+0.583*A(610)+0.903*A(611)+0.903& + &*A(613)+0.904*A(615)-A(644)-A(645)+0.04*A(725)+0.04*A(726)-A(919)-A(920)-A(921)+A(1023)+A(1029)+A(1032)& + &+0.903*A(1035)+0.05*A(1039)+0.45*A(1064) IF (DO_FUN(319)) & - Vdot(319) = 0.25*A(68)+A(89)-A(93)-A(94)-A(114)-A(132)+0.15*A(133)+0.15*A(135)+0.21*A(173)-A(182)+0.27*A(187)+0.27& - &*A(188)+0.6*A(412)+0.4*A(413)+0.6*A(414)+0.3*A(416)+0.352*A(436)+0.8*A(437)+0.8*A(440)+0.8*A(442)+0.6& - &*A(466)+0.8*A(467)+0.6*A(1054)+0.8*A(1055)+0.8*A(1056) + Vdot(319) = -A(60)+0.34*A(90)+0.34*A(93)+0.49*A(109)-A(130)+0.16*A(132)+0.16*A(134)-2*A(143)-A(145)+0.22*A(148)+0.36& + &*A(170)+0.29*A(182)+0.29*A(183)-A(191)+0.49*A(194)+0.49*A(195)-A(323)+0.49*A(910)+0.415*A(913)+0.34*A(933)& + &+0.34*A(936) IF (DO_FUN(320)) & - Vdot(320) = -A(97)-A(119)+A(122)-A(123)+A(131)-A(137)-A(185)+0.3*A(381) + Vdot(320) = A(204)+A(211)-A(212)+A(793)-A(813)-A(814)-A(815)-A(816)-A(817)-A(818)-A(819)+A(820)+A(821)+A(822)-A(940) IF (DO_FUN(321)) & - Vdot(321) = A(62)-A(63)-A(64)+0.05*A(90)+0.05*A(93)+0.07*A(109)-A(112)+0.03*A(132)+0.03*A(134)-A(146)+0.03*A(148)+0.36& - &*A(171)+0.045*A(182)+0.045*A(183)-A(193)+0.07*A(194)+0.07*A(195)+A(220)+A(328)+0.07*A(903)+0.06*A(906)+0.05& - &*A(926)+0.05*A(929) + Vdot(321) = -A(282)+A(301)-A(313)-A(314)-A(795)-A(796)-A(797)-A(798)-A(799)-A(800)-A(801)-A(955)-A(956) IF (DO_FUN(322)) & - Vdot(322) = A(105)-A(106)+A(107)-A(109)+A(110)-A(148)+A(175)-A(194)-A(195)+0.84*A(399)+A(400)+0.75*A(401)+0.5*A(402)& - &+0.4*A(403)+A(736)+0.44*A(737)+0.33*A(767)+0.33*A(770)+0.15*A(906)+A(914)+0.326*A(927)+0.7*A(1047)+A(1052) + Vdot(322) = -A(95)+A(102)-A(115)-A(133)-A(187)+0.5*A(763)+0.5*A(764) IF (DO_FUN(323)) & - Vdot(323) = A(61)+0.19*A(90)+0.19*A(93)-A(98)-A(99)+0.27*A(109)-A(120)+0.09*A(132)+0.09*A(134)-A(138)+0.12*A(148)& - &+0.209*A(172)+0.162*A(182)+0.162*A(183)-A(186)+0.27*A(194)+0.27*A(195)+A(327)+0.27*A(903)+0.23*A(906)+0.19& - &*A(926)+0.19*A(929) + Vdot(323) = 0.25*A(68)+A(89)-A(93)-A(94)-A(114)-A(132)+0.15*A(133)+0.15*A(135)+0.21*A(173)-A(182)+0.27*A(187)+0.27& + &*A(188)+0.6*A(412)+0.4*A(413)+0.6*A(414)+0.3*A(416)+0.352*A(436)+0.8*A(437)+0.8*A(440)+0.8*A(442)+0.6& + &*A(466)+0.8*A(467)+0.6*A(1061)+0.8*A(1062)+0.8*A(1063) IF (DO_FUN(324)) & - Vdot(324) = 0.95*A(51)+A(52)-A(53)+A(54)-A(56)+A(96)+0.919*A(97)+0.15*A(118)+0.15*A(119)+0.62*A(123)+0.3*A(136)+0.5& + Vdot(324) = -A(97)-A(119)+A(122)-A(123)+A(131)-A(137)-A(185)+0.3*A(381) +IF (DO_FUN(325)) & + Vdot(325) = A(105)-A(106)+A(107)-A(109)+A(110)-A(148)+A(175)-A(194)-A(195)+0.84*A(399)+A(400)+0.75*A(401)+0.5*A(402)& + &+0.4*A(403)+A(736)+0.44*A(737)+0.33*A(767)+0.33*A(770)+0.15*A(913)+A(921)+0.326*A(934)+0.7*A(1054)+A(1059) +IF (DO_FUN(326)) & + Vdot(326) = A(62)-A(63)-A(64)+0.05*A(90)+0.05*A(93)+0.07*A(109)-A(112)+0.03*A(132)+0.03*A(134)-A(146)+0.03*A(148)+0.36& + &*A(171)+0.045*A(182)+0.045*A(183)-A(193)+0.07*A(194)+0.07*A(195)+A(220)+A(328)+0.07*A(910)+0.06*A(913)+0.05& + &*A(933)+0.05*A(936) +IF (DO_FUN(327)) & + Vdot(327) = A(61)+0.19*A(90)+0.19*A(93)-A(98)-A(99)+0.27*A(109)-A(120)+0.09*A(132)+0.09*A(134)-A(138)+0.12*A(148)& + &+0.209*A(172)+0.162*A(182)+0.162*A(183)-A(186)+0.27*A(194)+0.27*A(195)+A(327)+0.27*A(910)+0.23*A(913)+0.19& + &*A(933)+0.19*A(936) +IF (DO_FUN(328)) & + Vdot(328) = 0.95*A(51)+A(52)-A(53)+A(54)-A(56)+A(96)+0.919*A(97)+0.15*A(118)+0.15*A(119)+0.62*A(123)+0.3*A(136)+0.5& &*A(137)+A(164)+A(166)+0.78*A(178)-2*A(180)-A(181)-A(182)-A(183)-0.1*A(184)-0.1*A(185)-A(186)-A(187)-A(188)& &-A(189)-A(190)-A(191)-A(192)-A(193)-A(194)+A(217)+0.44*A(436)+A(437)+A(440)+A(442)-A(457)-A(459)-A(461)& &-A(463)-A(465)+0.75*A(466)-A(474)-A(475)+0.3*A(496)+0.3*A(503)+0.018*A(537)-A(611)-A(612)+0.38*A(645)+0.12& &*A(648)+0.04*A(650)+0.097*A(661)+A(665)+0.36*A(667)+0.758*A(668)+0.175*A(671)+0.087*A(672)+0.35*A(676)+0.3& - &*A(685)+A(692)+A(693)-A(695)-A(731)+A(740)+0.12*A(897)+0.7*A(899)+A(902)+A(904)+0.85*A(906)+A(911)+A(913)& - &+A(915)+A(916)+0.326*A(927)+A(984)+A(1004)+A(1005)+A(1006)+0.5*A(1007)+0.53*A(1008)+0.429*A(1009)+0.125& - &*A(1010)+0.262*A(1012)+1.01*A(1013)+A(1055)+A(1056) -IF (DO_FUN(325)) & - Vdot(325) = -A(10)+A(11)+A(12)+A(17)+A(26)+A(29)+2*A(30)+0.87*A(31)+0.3*A(32)-A(34)+A(48)-A(50)+0.05*A(51)+A(55)+A(65)& + &*A(685)+A(692)+A(693)-A(695)-A(731)+A(740)+0.12*A(904)+0.7*A(906)+A(909)+A(911)+0.85*A(913)+A(918)+A(920)& + &+A(922)+A(923)+0.326*A(934)+A(991)+A(1011)+A(1012)+A(1013)+0.5*A(1014)+0.53*A(1015)+0.429*A(1016)+0.125& + &*A(1017)+0.262*A(1019)+1.01*A(1020)+A(1062)+A(1063) +IF (DO_FUN(329)) & + Vdot(329) = -A(10)+A(11)+A(12)+A(17)+A(26)+A(29)+2*A(30)+0.87*A(31)+0.3*A(32)-A(34)+A(48)-A(50)+0.05*A(51)+A(55)+A(65)& &+0.98*A(73)+A(76)+A(77)+0.603*A(78)+A(80)+0.065*A(81)+A(84)+A(85)+0.64*A(92)+0.64*A(95)+A(96)+A(100)+0.75& &*A(112)+1.25*A(113)+0.15*A(118)+0.31*A(123)+0.75*A(129)+0.75*A(130)+0.75*A(132)+0.95*A(133)+0.75*A(134)& &+0.95*A(135)+0.5*A(136)+0.75*A(137)+0.75*A(138)+1.25*A(139)+0.5*A(150)+0.732*A(151)+A(157)+0.44*A(158)& @@ -1933,35 +1948,42 @@ SUBROUTINE Fun ( V, F, RCT, Vdot, Aout ) &+0.527*A(604)+1.86*A(606)+0.563*A(607)+0.645*A(609)+1.577*A(610)+A(611)+A(613)+A(615)+0.126*A(631)+0.088& &*A(632)+0.249*A(633)+0.34*A(635)+0.6*A(645)+0.12*A(648)+0.241*A(650)+0.05*A(667)+0.242*A(668)+0.083*A(670)& &+0.5*A(671)+0.25*A(672)+0.14*A(674)+A(676)+A(682)+0.022*A(691)+0.5*A(694)+A(696)+A(702)+A(703)+0.5*A(704)& - &+0.25*A(705)+A(706)+0.12*A(707)+A(712)+0.8*A(718)+2*A(719)+A(730)+A(740)+A(765)+A(766)+A(779)+A(887)-A(888)& - &-A(889)+0.3*A(901)+A(902)+0.9*A(907)+A(910)+A(913)+A(915)+A(916)+A(924)+A(982)+A(984)+A(990)+A(998)+A(1002)& - &+A(1003)+A(1005)+A(1006)+0.47*A(1008)+0.23*A(1011)+0.75*A(1012)+A(1016)+A(1017)+A(1025)+A(1026)+A(1028)& - &+0.055*A(1032)+0.133*A(1034)+0.55*A(1038)+0.15*A(1039)+A(1052)+A(1053)+0.4*A(1055)+0.4*A(1056)+0.1*A(1057) -IF (DO_FUN(326)) & - Vdot(326) = -A(51)-A(52)+A(58)+A(60)+A(65)+0.65*A(73)+0.34*A(90)+0.97*A(92)+0.34*A(93)+0.97*A(95)+0.919*A(97)+A(100)& + &+0.25*A(705)+A(706)+0.12*A(707)+A(712)+0.8*A(718)+2*A(719)+A(730)+A(740)+A(765)+A(766)+A(779)-A(886)+A(887)& + &+A(888)+A(894)-A(895)-A(896)+0.3*A(908)+A(909)+0.9*A(914)+A(917)+A(920)+A(922)+A(923)+A(931)+A(989)+A(991)& + &+A(997)+A(1005)+A(1009)+A(1010)+A(1012)+A(1013)+0.47*A(1015)+0.23*A(1018)+0.75*A(1019)+A(1023)+A(1024)& + &+A(1032)+A(1033)+A(1035)+0.055*A(1039)+0.133*A(1041)+0.55*A(1045)+0.15*A(1046)+A(1059)+A(1060)+0.4*A(1062)& + &+0.4*A(1063)+0.1*A(1064) +IF (DO_FUN(330)) & + Vdot(330) = -A(51)-A(52)+A(58)+A(60)+A(65)+0.65*A(73)+0.34*A(90)+0.97*A(92)+0.34*A(93)+0.97*A(95)+0.919*A(97)+A(100)& &+A(108)+0.5*A(113)+0.15*A(119)+0.62*A(123)+0.75*A(129)+0.75*A(130)+0.16*A(132)+0.38*A(133)+0.16*A(134)+0.38& &*A(135)+0.5*A(137)+0.5*A(139)+A(140)+1.6*A(142)+1.6*A(143)+0.5*A(150)+0.64*A(170)+0.29*A(182)+0.29*A(183)& &+0.9*A(185)+0.675*A(187)+0.675*A(188)+0.9*A(189)+A(190)+A(191)+0.9*A(192)-A(217)+A(322)+A(323)+A(325)& - &+A(369)+A(370)+A(371)+A(372)+A(373)+A(490)+0.4*A(705)-A(897)-A(898)+A(918)+A(924)+A(925)+0.34*A(926)+0.348& - &*A(927)+0.34*A(929)+A(999) -IF (DO_FUN(327)) & - Vdot(327) = -A(3)-A(6)+A(35)-A(36)+A(50)+A(52)+A(67)+A(101)+A(110)+A(131)+A(154)+A(165)+A(166)+A(179)+A(201)+A(389)& + &+A(369)+A(370)+A(371)+A(372)+A(373)+A(490)+0.4*A(705)-A(904)-A(905)+A(925)+A(931)+A(932)+0.34*A(933)+0.348& + &*A(934)+0.34*A(936)+A(1006) +IF (DO_FUN(331)) & + Vdot(331) = -A(334)-A(336)+A(337)+A(339)-A(342)-A(343)+0.2*A(344)+0.809*A(349)-A(350)-A(351)+A(352)+A(353)+A(356)+0.4& + &*A(357)+0.996*A(358)+A(359)+2*A(973)+A(974)+A(975)+A(976)+A(977)+A(978)+A(979)+A(980)+A(981)+2*A(982)& + &+A(983)+A(984)+A(987)+A(988) +IF (DO_FUN(332)) & + Vdot(332) = A(273)+A(277)+A(278)-A(280)+A(281)+A(282)+A(299)+A(795)-A(808)-A(809)-A(810)-A(811)-A(812)-A(957) +IF (DO_FUN(333)) & + Vdot(333) = -A(3)-A(6)+A(35)-A(36)+A(50)+A(52)+A(67)+A(101)+A(110)+A(131)+A(154)+A(165)+A(166)+A(179)+A(201)+A(389)& &+A(486)+A(487)+0.32*A(649)+A(692)+A(706)+A(708)+0.742*A(742)+0.5*A(744)+0.5*A(747)+A(749)+0.5*A(764)+0.5& &*A(782)+A(783)+2*A(786)+A(787)+2*A(788)+A(789)+A(790)+A(793)+A(794)+A(795)+A(796)+A(797)+A(798)+A(799)& - &+A(800)+A(801)+A(841)+A(842)+A(843)+A(848)+A(849)+A(850)+A(851)-A(890) -IF (DO_FUN(328)) & - Vdot(328) = -A(17)+A(25)-A(26)-A(27)-A(28)-2*A(29)-2*A(30)-A(31)+0.7*A(32)+A(56)+0.19*A(90)+0.19*A(93)+A(104)-A(112)& + &+A(800)+A(801)+A(841)+A(842)+A(843)+A(848)+A(849)+A(850)+A(851)-A(897) +IF (DO_FUN(334)) & + Vdot(334) = -A(17)+A(25)-A(26)-A(27)-A(28)-2*A(29)-2*A(30)-A(31)+0.7*A(32)+A(56)+0.19*A(90)+0.19*A(93)+A(104)-A(112)& &-A(113)+0.85*A(119)-A(129)-A(130)-0.91*A(132)-A(133)-0.91*A(134)-A(135)-A(136)-0.75*A(137)-A(138)-A(139)& &+0.28*A(150)+0.5*A(168)+2*A(180)-0.1*A(181)+0.9*A(182)+0.9*A(183)+0.9*A(184)+0.9*A(185)+0.9*A(186)+0.9& &*A(187)+0.9*A(188)+0.9*A(189)+0.9*A(190)+0.9*A(191)+0.9*A(192)+0.9*A(193)+A(194)-A(195)-A(197)+A(198)& &+A(199)+A(200)+A(201)+0.75*A(231)+0.9*A(257)+A(258)-A(274)+A(291)-A(319)+A(320)+A(326)+A(359)-A(401)-A(413)& &-A(432)-A(456)+0.9*A(457)-A(458)+0.9*A(459)-A(460)+0.9*A(461)-A(462)+0.9*A(463)-A(464)+A(465)-A(466)+A(467)& &-A(472)-A(473)+A(474)+0.5*A(475)+0.407*A(493)-A(512)-A(513)-A(514)-A(515)-A(609)-A(610)+A(611)+A(612)+0.325& - &*A(671)+0.162*A(672)+0.65*A(676)-A(682)+0.5*A(695)-A(718)-A(730)+A(731)-A(765)-A(766)-A(779)+0.88*A(897)& - &+0.3*A(899)+A(904)+2*A(905)+0.15*A(906)+A(914)+A(925)+0.19*A(926)+0.19*A(929)+A(930)+A(939)+A(940)+A(983)& - &+0.488*A(1012) -IF (DO_FUN(329)) & - Vdot(329) = -A(24)+A(34)+A(50)+0.05*A(51)+A(55)+A(80)+A(82)+A(83)+A(84)+A(85)+A(88)+A(108)+A(126)+0.56*A(150)+0.505& + &*A(671)+0.162*A(672)+0.65*A(676)-A(682)+0.5*A(695)-A(718)-A(730)+A(731)-A(765)-A(766)-A(779)+0.88*A(904)& + &+0.3*A(906)+A(911)+2*A(912)+0.15*A(913)+A(921)+A(932)+0.19*A(933)+0.19*A(936)+A(937)+A(946)+A(947)+A(990)& + &+0.488*A(1019) +IF (DO_FUN(335)) & + Vdot(335) = -A(24)+A(34)+A(50)+0.05*A(51)+A(55)+A(80)+A(82)+A(83)+A(84)+A(85)+A(88)+A(108)+A(126)+0.56*A(150)+0.505& &*A(151)+A(152)+A(160)+2*A(163)+A(164)+2*A(165)+A(166)+0.5*A(168)+A(216)+A(238)+A(252)+A(292)+A(315)+A(316)& &+A(317)-A(362)-A(369)+0.15*A(379)+0.1*A(383)+0.407*A(493)+0.6*A(496)+0.9*A(497)+0.6*A(503)+0.9*A(505)& &+A(509)+A(510)+A(511)+0.5*A(513)+0.5*A(515)+0.55*A(519)+0.55*A(523)+0.45*A(524)+0.37*A(525)+0.42*A(526)& @@ -1971,51 +1993,33 @@ SUBROUTINE Fun ( V, F, RCT, Vdot, Aout ) &*A(654)+0.75*A(661)+A(662)+A(664)+2*A(665)+0.84*A(666)+0.507*A(670)+0.325*A(671)+0.488*A(672)+A(673)+0.86& &*A(674)+0.65*A(676)+0.25*A(684)+A(685)+A(686)+0.888*A(687)+A(690)+A(696)+0.18*A(704)+0.12*A(707)+0.364& &*A(714)+0.2*A(724)+0.27*A(725)+0.3*A(726)+2*A(740)+0.15*A(763)+0.15*A(764)+0.26*A(767)+0.5*A(768)+0.25& - &*A(770)+0.5*A(771)+0.05*A(772)+A(888)+A(889)+0.88*A(897)+A(898)+0.7*A(901)+A(902)+A(903)+A(905)+A(907)+2& - &*A(908)+2*A(909)+A(910)+A(911)+A(912)+A(913)+A(915)+A(986)+A(990)+A(1003)+A(1006)+0.5*A(1007)+0.571*A(1009)& - &+0.875*A(1010)+0.77*A(1011)+A(1014)+A(1015)+0.888*A(1020)+0.818*A(1021)+A(1022)+A(1023)+0.55*A(1024)+0.55& - &*A(1027)+0.839*A(1031)+A(1033)+0.163*A(1034)+A(1037)+A(1041)+A(1043)+A(1046)+A(1049)+A(1058) -IF (DO_FUN(330)) & - Vdot(330) = A(352)-A(354)+A(355)-A(828)-A(829)+A(843)-A(852)-A(853)-A(854)-A(855)-A(967) -IF (DO_FUN(331)) & - Vdot(331) = -A(334)-A(336)+A(337)+A(339)-A(342)-A(343)+0.2*A(344)+0.809*A(349)-A(350)-A(351)+A(352)+A(353)+A(356)+0.4& - &*A(357)+0.996*A(358)+A(359)+2*A(966)+A(967)+A(968)+A(969)+A(970)+A(971)+A(972)+A(973)+A(974)+2*A(975)& - &+A(976)+A(977)+A(980)+A(981) -IF (DO_FUN(332)) & - Vdot(332) = A(339)+A(340)-A(341)-A(342)-A(841)-A(842)-A(843)-A(848)-A(849)-A(850)-A(851)-A(972) -IF (DO_FUN(333)) & - Vdot(333) = A(273)+A(277)+A(278)-A(280)+A(281)+A(282)+A(299)+A(795)-A(808)-A(809)-A(810)-A(811)-A(812)-A(950) -IF (DO_FUN(334)) & - Vdot(334) = -A(226)-A(227)-A(228)-A(229)-A(230)-A(231)-A(237)-A(253)-A(254)-A(255)-A(256)-A(257)-A(258)-A(259)-A(260)& - &-A(261)-A(262)-A(263)-A(264)-A(265)-A(266)-A(267)-A(268)-A(269)-A(270)-A(271)-A(272)+A(883)+A(985) -IF (DO_FUN(335)) & - Vdot(335) = A(13)-A(16)+A(22)+A(26)-A(35)+A(38)-A(39)+A(40)+A(41)+A(42)+2*A(43)+A(44)-A(45)+A(46)-A(53)+A(54)+A(55)& - &+A(56)+A(58)+A(60)+A(63)+A(65)+A(68)+2*A(73)+A(76)+0.942*A(78)+A(80)+A(82)+A(85)-A(86)+A(87)+A(90)+2*A(92)& - &+A(93)+2*A(95)+A(96)+0.928*A(97)+A(98)+2*A(100)-A(106)+A(107)+A(108)+A(109)+0.93*A(123)-A(124)+A(125)& - &+A(126)+A(127)+A(133)+A(135)+A(139)-A(155)+A(156)+A(157)+A(159)+A(160)+A(187)+A(188)+A(189)+2*A(196)-A(197)& - &+A(198)+A(209)+A(215)-A(221)-A(222)-A(240)+A(241)+A(242)-A(243)-A(250)+A(281)+A(300)-A(301)-A(336)+A(337)+2& - &*A(338)-A(340)+A(341)+A(348)+A(356)+A(360)+A(361)+A(363)-A(364)+A(370)-A(371)+0.75*A(385)+A(386)+0.5*A(388)& - &+A(392)-A(393)+A(394)+A(395)+0.84*A(399)+A(400)+0.5*A(403)+0.75*A(405)+A(406)+0.5*A(407)+A(412)+A(414)+0.5& - &*A(416)+0.75*A(418)+A(419)+0.5*A(426)+0.5*A(427)+A(428)+0.84*A(429)+A(431)+A(434)+0.5*A(435)+A(437)-A(438)& - &+A(439)+A(440)+A(445)+A(446)+0.5*A(449)+0.3*A(450)+0.3*A(451)+1.15*A(452)+0.5*A(455)+A(468)+2*A(469)+0.5& - &*A(473)+A(475)+A(476)+2*A(477)+0.5*A(479)+A(480)+A(489)+A(490)+A(491)+A(492)+A(517)+A(519)+A(521)+A(523)& - &+A(540)+A(544)+A(548)+A(559)+A(563)+A(568)+A(570)+A(572)+A(575)+A(577)+A(578)+A(580)+0.459*A(585)+1.728& - &*A(586)+A(590)+A(595)+A(598)+A(601)+0.527*A(604)+1.86*A(606)+0.563*A(607)+0.611*A(610)+A(611)+2*A(613)& - &+A(614)+2*A(615)+A(617)+A(625)+0.058*A(631)+1.065*A(633)+A(635)+A(637)+A(639)+0.565*A(641)+1.11*A(642)+0.09& - &*A(643)+0.31*A(650)+A(655)-A(657)+A(658)-A(660)+A(668)+A(674)+A(676)-A(677)+0.5*A(678)+2*A(679)+2*A(681)& - &+0.7*A(682)+A(683)+A(690)+0.022*A(691)+A(692)+A(703)+0.89*A(709)+A(711)+0.995*A(716)+A(717)+A(721)+A(728)& - &+A(729)+A(733)+A(736)-A(738)+A(739)+A(740)+A(751)-A(752)+A(754)+A(755)-A(756)+A(757)+A(758)-A(762)+0.5& - &*A(763)+A(764)+A(779)-A(782)-A(885)+A(890)+A(893)+A(894)+A(896)+0.7*A(899)+A(900)+A(917)+A(926)+A(927)& - &+A(928)+A(929)+A(935)+A(936)+A(947)+A(949)+A(971)+A(983)+A(990)+A(991)+A(992)+A(993)+A(995)+A(997)+A(998)& - &+A(999)+A(1000)+A(1001)+A(1005)+0.7*A(1013)+A(1014)+A(1024)+A(1025)+A(1026)+A(1027)+A(1028)+A(1030)+A(1031)& - &+1.555*A(1032)+0.3*A(1038)+A(1039)+A(1040)+A(1041)+0.7*A(1047) + &*A(770)+0.5*A(771)+0.05*A(772)+A(895)+A(896)+0.88*A(904)+A(905)+0.7*A(908)+A(909)+A(910)+A(912)+A(914)+2& + &*A(915)+2*A(916)+A(917)+A(918)+A(919)+A(920)+A(922)+A(993)+A(997)+A(1010)+A(1013)+0.5*A(1014)+0.571*A(1016)& + &+0.875*A(1017)+0.77*A(1018)+A(1021)+A(1022)+0.888*A(1027)+0.818*A(1028)+A(1029)+A(1030)+0.55*A(1031)+0.55& + &*A(1034)+0.839*A(1038)+A(1040)+0.163*A(1041)+A(1044)+A(1048)+A(1050)+A(1053)+A(1056)+A(1065) IF (DO_FUN(336)) & - Vdot(336) = A(18)+A(20)+A(21)+A(25)+A(32)+A(33)+A(34)+A(36)+A(38)+A(41)+A(47)+A(51)+A(57)+A(72)+A(102)+A(103)+A(104)& - &+A(105)+A(111)+A(122)+A(206)+A(225)-A(226)+A(234)+0.02*A(247)+A(279)+A(280)+A(283)+A(286)+A(287)+A(288)& - &+A(289)+A(290)+A(318)+A(353)+A(354)+A(359)-A(365)-2*A(366)-A(373)-A(374)+A(701)+A(781)-A(786)-A(793)-A(795)& - &+A(808)+A(809)+A(810)+A(811)+A(813)+A(814)+A(815)+A(816)-A(843)+A(928) + Vdot(336) = -A(340)+A(341)+A(343)-A(344)-A(345)+A(348)-A(349)+A(350)+A(354)-A(355)-A(356)-2*A(357)+0.008*A(358)-A(975)& + &+A(986) IF (DO_FUN(337)) & - Vdot(337) = A(14)-A(15)+A(17)-A(20)+A(21)-A(22)-2*A(23)+A(24)+A(26)-A(28)+2*A(30)+1.74*A(31)+A(34)-A(39)+A(40)-A(42)& + Vdot(337) = -A(226)-A(227)-A(228)-A(229)-A(230)-A(231)-A(237)-A(253)-A(254)-A(255)-A(256)-A(257)-A(258)-A(259)-A(260)& + &-A(261)-A(262)-A(263)-A(264)-A(265)-A(266)-A(267)-A(268)-A(269)-A(270)-A(271)-A(272)+A(890)+A(992) +IF (DO_FUN(338)) & + Vdot(338) = -A(13)-A(22)-A(26)-A(27)-A(37)-A(43)+A(49)-A(56)-A(58)-A(59)-A(60)-A(63)-A(64)-A(65)-A(68)-A(69)-A(73)& + &-A(78)-A(82)-A(85)-A(90)-A(91)-A(92)-A(93)-A(94)-A(95)-A(96)-A(97)-A(98)-A(99)-A(100)-A(109)-A(123)-A(127)& + &-A(157)-A(209)+1.22*A(230)+A(240)-A(242)+A(248)-A(249)-A(300)-A(334)+2*A(335)-A(348)-A(356)-A(363)-A(370)& + &-A(385)-A(392)-A(399)-A(405)-A(411)-A(412)-A(418)-A(429)-A(437)-A(444)-A(445)-A(468)-A(469)-A(516)-A(517)& + &-A(518)-A(519)-A(520)-A(521)-A(522)-A(523)-A(540)-A(541)-A(544)-A(545)-A(548)-A(549)-A(559)-A(560)-A(563)& + &-A(564)-A(567)-A(568)-A(570)-A(572)-A(586)-A(587)-A(590)-A(591)-A(595)-A(596)-A(598)-A(599)-A(601)-A(602)& + &-A(615)-A(616)-A(617)-A(618)-A(633)-A(634)-A(635)-A(636)-A(639)-A(642)-A(655)-A(658)-A(668)-A(669)-A(674)& + &-A(675)-A(676)-A(679)-A(709)-A(716)-A(728)-A(733)-A(736)-A(751)-A(757)+A(892)+A(898)+A(902)+A(977)-A(995) +IF (DO_FUN(339)) & + Vdot(339) = A(2)-A(789)-A(791)-A(800)-A(802)-A(810)-A(815)-A(846)-A(850)-A(854) +IF (DO_FUN(340)) & + Vdot(340) = -A(2)-A(5)-0.88*A(253)+A(276)-A(279)+A(291)+A(292)+A(294)+A(295)+A(296)+2*A(315)+A(316)+A(317)+A(318)& + &+A(320)+A(321)+A(324)+A(325)+A(326)+A(327)+A(328)+A(329)+A(330)+A(331)+A(332)-A(787)-A(794)-A(796)-A(804)& + &-A(808)+A(812)-A(814) +IF (DO_FUN(341)) & + Vdot(341) = A(14)-A(15)+A(17)-A(20)+A(21)-A(22)-2*A(23)+A(24)+A(26)-A(28)+2*A(30)+1.74*A(31)+A(34)-A(39)+A(40)-A(42)& &+A(44)+A(47)+A(48)+A(50)+0.05*A(51)+A(58)+A(60)+A(63)+A(65)+0.75*A(68)-A(70)-A(74)+0.513*A(78)-A(79)+A(80)& &+0.425*A(81)+A(82)-0.75*A(84)+A(85)+0.27*A(90)+0.27*A(93)+A(98)+A(112)+A(113)-A(114)-A(115)-A(116)-A(117)& &-A(118)-A(119)-A(120)-A(121)-A(128)+A(129)+A(130)+0.64*A(132)+0.5*A(133)+0.64*A(134)+0.5*A(135)+0.3*A(136)& @@ -2041,51 +2045,21 @@ SUBROUTINE Fun ( V, F, RCT, Vdot, Aout ) &+0.5*A(694)-A(695)+0.7*A(702)+0.1*A(704)+0.18*A(705)+0.03*A(707)+A(709)-A(710)+A(711)+0.364*A(714)-A(715)& &+0.6*A(718)+A(719)+A(720)+0.54*A(724)+0.19*A(725)+0.15*A(726)+A(728)+A(729)+2*A(730)+A(731)+A(733)-A(734)& &-A(737)+0.8*A(741)+0.727*A(743)+A(746)-A(750)-A(759)+A(765)+A(766)+0.33*A(767)+0.1*A(768)+0.2*A(769)+0.33& - &*A(770)+0.1*A(771)+0.2*A(772)+A(779)-A(781)+A(887)+A(888)+A(893)+A(897)+0.3*A(901)+A(902)+A(903)+1.73& - &*A(907)+2*A(908)+A(911)+A(913)+A(915)+A(916)+A(917)+A(918)+A(919)+A(920)+A(921)+A(922)+A(923)+A(924)+A(925)& - &+0.27*A(926)+0.326*A(927)+A(928)+0.27*A(929)+A(982)+A(989)+A(990)+A(998)+A(999)+A(1000)+A(1001)+A(1003)& - &+A(1004)+A(1006)+1.5*A(1007)+0.47*A(1008)+0.571*A(1009)+0.125*A(1010)+A(1011)+0.29*A(1013)+A(1014)+A(1015)& - &+A(1016)+A(1017)+A(1018)+A(1019)+0.112*A(1020)+0.182*A(1021)+A(1022)+A(1023)+0.45*A(1024)+A(1025)+A(1026)& - &+0.45*A(1027)+0.33*A(1028)+0.159*A(1029)+0.161*A(1031)+0.228*A(1032)+1.5*A(1033)+A(1034)+0.75*A(1035)& - &+A(1036)+1.454*A(1037)+0.7*A(1038)+0.7*A(1039)+A(1041)+A(1043)+A(1046)+A(1048)+A(1049)+A(1053)+A(1054)& - &+A(1057)+A(1058) -IF (DO_FUN(338)) & - Vdot(338) = 0.22*A(253)+0.75*A(255)+0.79*A(256)+0.46*A(257)+0.56*A(261)+0.9*A(262)+0.86*A(263)+0.34*A(264)+0.69*A(266)& - &+0.65*A(267)+0.79*A(268)+0.8*A(269)+0.85*A(270)+0.86*A(271)-A(274)-A(275)-A(276)+A(280)+A(293)+A(297)& - &-A(298)-A(299)-A(300)-A(301)-2*A(302)-2*A(303)-2*A(304)-2*A(307)+2*A(308)+0.1*A(309)-A(310)-A(311)-A(312)& - &+A(313)+A(319)+A(322)+A(323)-A(349)-A(944)+A(945)+A(949) -IF (DO_FUN(339)) & - Vdot(339) = -A(2)-A(5)-0.88*A(253)+A(276)-A(279)+A(291)+A(292)+A(294)+A(295)+A(296)+2*A(315)+A(316)+A(317)+A(318)& - &+A(320)+A(321)+A(324)+A(325)+A(326)+A(327)+A(328)+A(329)+A(330)+A(331)+A(332)-A(787)-A(794)-A(796)-A(804)& - &-A(808)+A(812)-A(814) -IF (DO_FUN(340)) & - Vdot(340) = 0.66*A(253)+0.75*A(255)+2.37*A(256)+0.35*A(257)+0.19*A(261)+1.8*A(262)+0.86*A(263)+0.31*A(264)+0.69*A(266)& - &+0.79*A(268)+1.9*A(269)+0.95*A(270)+A(273)+A(275)+A(279)+A(283)+2*A(284)+3*A(285)+3*A(286)+A(287)+2*A(288)& - &+A(289)+2*A(290)-A(291)-A(292)-A(293)-A(294)-A(295)-A(296)-A(297)+A(298)+A(300)+A(303)+A(304)-A(305)+A(306)& - &-A(309)-A(314)-A(315)+A(316)+2*A(317)-A(318)-A(319)-A(320)-A(321)-A(322)-A(323)-A(324)-A(325)-A(326)-A(327)& - &-A(328)-A(329)-A(330)-A(331)-A(332)+0.249*A(349)+A(940)+2*A(941)+A(942)+2*A(943)+A(944)+A(946)+A(947)& - &+A(948)+A(950)+3*A(951)+4*A(952)+3*A(953)+2*A(954)+3*A(955)+2*A(956)+A(957)+2*A(958)+2*A(959)+A(960)+A(961)& - &+A(963)+A(965)+A(976)+A(981) -IF (DO_FUN(341)) & - Vdot(341) = -A(1)-A(4)-A(8)-A(13)-A(14)-A(15)-A(16)-A(17)-A(77)+0.15*A(128)+0.15*A(148)-A(150)+0.15*A(158)-A(203)& - &+A(232)-A(233)-A(237)-A(246)-A(293)-A(350)-A(367)-A(379)-A(381)-A(383)+0.15*A(391)-A(421)-A(424)-A(427)& - &+0.15*A(436)-A(448)-A(451)-A(454)-A(483)-A(493)-A(645)-A(648)+0.13*A(671)+0.13*A(678)+0.13*A(695)-A(704)& - &-A(712)+0.15*A(737)-A(746)+0.15*A(750)-A(761)-A(768)-A(771)-A(820)-A(821)-A(822)-A(882)-A(883) + &*A(770)+0.1*A(771)+0.2*A(772)+A(779)-A(781)+A(894)+A(895)+A(900)+A(904)+0.3*A(908)+A(909)+A(910)+1.73& + &*A(914)+2*A(915)+A(918)+A(920)+A(922)+A(923)+A(924)+A(925)+A(926)+A(927)+A(928)+A(929)+A(930)+A(931)+A(932)& + &+0.27*A(933)+0.326*A(934)+A(935)+0.27*A(936)+A(989)+A(996)+A(997)+A(1005)+A(1006)+A(1007)+A(1008)+A(1010)& + &+A(1011)+A(1013)+1.5*A(1014)+0.47*A(1015)+0.571*A(1016)+0.125*A(1017)+A(1018)+0.29*A(1020)+A(1021)+A(1022)& + &+A(1023)+A(1024)+A(1025)+A(1026)+0.112*A(1027)+0.182*A(1028)+A(1029)+A(1030)+0.45*A(1031)+A(1032)+A(1033)& + &+0.45*A(1034)+0.33*A(1035)+0.159*A(1036)+0.161*A(1038)+0.228*A(1039)+1.5*A(1040)+A(1041)+0.75*A(1042)& + &+A(1043)+1.454*A(1044)+0.7*A(1045)+0.7*A(1046)+A(1048)+A(1050)+A(1053)+A(1055)+A(1056)+A(1060)+A(1061)& + &+A(1064)+A(1065) IF (DO_FUN(342)) & Vdot(342) = -A(203)-A(205)+A(206)+2*A(207)+A(209)-A(210)+A(211)+A(213)+A(214)-A(215)-A(216)-A(217)-A(218)-A(219)& &-A(220)-A(221)+3*A(223)+2*A(224)+A(225)+A(251)+0.6*A(254)+0.56*A(258)+0.95*A(259)+1.4*A(260)+0.34*A(264)& - &+0.75*A(272)+A(310)+A(311)-A(333)+A(343)+A(344)+2*A(931)+A(932)+A(933)+A(934)+A(936)+3*A(937)+2*A(938)& - &+A(939)+A(942)+A(962)+A(963)+2*A(964)+A(977)+A(980) + &+0.75*A(272)+A(310)+A(311)-A(333)+A(343)+A(344)+2*A(938)+A(939)+A(940)+A(941)+A(943)+3*A(944)+2*A(945)& + &+A(946)+A(949)+A(969)+A(970)+2*A(971)+A(984)+A(987) IF (DO_FUN(343)) & - Vdot(343) = A(18)-A(212)-A(213)+A(227)+A(228)-A(232)-A(233)-A(235)-A(236)+A(237)-A(238)-A(240)-A(241)-A(242)-A(243)& - &-A(244)+0.02*A(247)+A(248)+A(249)+A(250)-A(251)-A(252)+0.12*A(253)+0.2*A(254)+0.25*A(255)+0.21*A(256)+0.1& - &*A(257)+0.05*A(259)+0.3*A(260)+0.25*A(261)+0.1*A(262)+0.14*A(263)+0.35*A(264)+0.55*A(265)+0.31*A(266)+0.35& - &*A(267)+0.21*A(268)+0.1*A(269)+0.1*A(270)+0.14*A(271)+0.25*A(272)-A(298)-A(313)+A(882)+2*A(884)+A(885)& - &+A(894)+A(932)+A(944)+A(945)+A(968)+A(988) -IF (DO_FUN(344)) & - Vdot(344) = A(5)-A(790)-A(792)-A(801)-A(803)-A(811)-A(816)-A(847)-A(851)-A(855) -IF (DO_FUN(345)) & - Vdot(345) = -A(12)-A(14)+A(15)-2*A(18)-2*A(19)-A(20)-A(21)+A(22)-A(24)-A(25)-A(31)-0.7*A(32)-0.7*A(33)-A(34)-A(35)& + Vdot(343) = -A(12)-A(14)+A(15)-2*A(18)-2*A(19)-A(20)-A(21)+A(22)-A(24)-A(25)-A(31)-0.7*A(32)-0.7*A(33)-A(34)-A(35)& &-A(36)-A(37)-A(38)-A(41)+A(42)-A(44)-A(47)-A(48)-A(51)-A(55)-A(57)-A(61)-A(62)-A(66)-0.5*A(71)-A(72)-A(75)& &-A(80)-A(81)+0.25*A(84)-A(88)-A(89)-A(102)-A(103)-A(104)-A(105)-A(108)-A(111)+0.15*A(118)+0.15*A(119)& &-A(122)-A(126)+0.44*A(128)-A(140)-A(141)+0.44*A(148)-A(149)+0.36*A(150)-0.773*A(151)-A(153)+0.44*A(158)& @@ -2109,45 +2083,86 @@ SUBROUTINE Fun ( V, F, RCT, Vdot, Aout ) &-0.415*A(672)+A(673)+0.5*A(678)-A(684)-0.3*A(685)-0.5*A(686)-0.556*A(687)-A(690)-0.7*A(691)-A(693)-0.5& &*A(694)+0.5*A(695)-A(701)-A(702)+0.18*A(704)-A(705)-A(707)+A(710)-A(711)-A(713)-0.364*A(714)-A(721)-A(722)& &-A(724)-A(725)-A(726)+A(727)-A(732)-A(735)+0.44*A(737)-A(740)-A(741)-A(743)-A(745)+A(746)-A(748)+0.2*A(750)& - &-A(753)-A(755)-A(760)-A(763)-0.75*A(767)+0.1*A(768)-0.75*A(770)+0.1*A(771)-A(780)-A(791)-A(792)+2*A(886)& - &+A(887)+A(890)+A(891)+A(892)+0.07*A(907)+A(917)+A(918)+A(919)+A(920)+A(921)+A(922)+A(923)+A(924)+A(925)& - &+A(930)+A(933)+A(950)+A(967)+A(984)+2*A(987)+A(989)+2*A(1002)+A(1003)+A(1008)+A(1009)+1.75*A(1010)+A(1011)& - &+0.75*A(1012)+0.01*A(1013)+A(1015)+A(1016)+A(1017)+A(1018)+A(1019)+1.662*A(1020)+1.637*A(1021)+A(1022)& - &+A(1023)+0.55*A(1024)+0.55*A(1027)+0.67*A(1028)+A(1029)+0.645*A(1031)+0.5*A(1033)+A(1034)+1.25*A(1035)& - &+A(1036)+0.546*A(1037)+A(1038)+0.3*A(1039)+A(1040)+A(1042)+A(1044)+A(1048)+A(1050)+A(1051)+A(1052)+A(1053)& - &+A(1054)+A(1055)+A(1056)+A(1057) + &-A(753)-A(755)-A(760)-A(763)-0.75*A(767)+0.1*A(768)-0.75*A(770)+0.1*A(771)-A(780)-A(791)-A(792)-A(888)+2& + &*A(893)+A(894)+A(897)+A(898)+A(899)+0.07*A(914)+A(924)+A(925)+A(926)+A(927)+A(928)+A(929)+A(930)+A(931)& + &+A(932)+A(937)+A(940)+A(957)+A(974)+A(991)+2*A(994)+A(996)+2*A(1009)+A(1010)+A(1015)+A(1016)+1.75*A(1017)& + &+A(1018)+0.75*A(1019)+0.01*A(1020)+A(1022)+A(1023)+A(1024)+A(1025)+A(1026)+1.662*A(1027)+1.637*A(1028)& + &+A(1029)+A(1030)+0.55*A(1031)+0.55*A(1034)+0.67*A(1035)+A(1036)+0.645*A(1038)+0.5*A(1040)+A(1041)+1.25& + &*A(1042)+A(1043)+0.546*A(1044)+A(1045)+0.3*A(1046)+A(1047)+A(1049)+A(1051)+A(1055)+A(1057)+A(1058)+A(1059)& + &+A(1060)+A(1061)+A(1062)+A(1063)+A(1064) +IF (DO_FUN(344)) & + Vdot(344) = 0.22*A(253)+0.75*A(255)+0.79*A(256)+0.46*A(257)+0.56*A(261)+0.9*A(262)+0.86*A(263)+0.34*A(264)+0.69*A(266)& + &+0.65*A(267)+0.79*A(268)+0.8*A(269)+0.85*A(270)+0.86*A(271)-A(274)-A(275)-A(276)+A(280)+A(293)+A(297)& + &-A(298)-A(299)-A(300)-A(301)-2*A(302)-2*A(303)-2*A(304)-2*A(307)+2*A(308)+0.1*A(309)-A(310)-A(311)-A(312)& + &+A(313)+A(319)+A(322)+A(323)-A(349)-A(951)+A(952)+A(956) +IF (DO_FUN(345)) & + Vdot(345) = A(13)-A(16)+A(22)+A(26)-A(35)+A(38)-A(39)+A(40)+A(41)+A(42)+2*A(43)+A(44)-A(45)+A(46)-A(53)+A(54)+A(55)& + &+A(56)+A(58)+A(60)+A(63)+A(65)+A(68)+2*A(73)+A(76)+0.942*A(78)+A(80)+A(82)+A(85)-A(86)+A(87)+A(90)+2*A(92)& + &+A(93)+2*A(95)+A(96)+0.928*A(97)+A(98)+2*A(100)-A(106)+A(107)+A(108)+A(109)+0.93*A(123)-A(124)+A(125)& + &+A(126)+A(127)+A(133)+A(135)+A(139)-A(155)+A(156)+A(157)+A(159)+A(160)+A(187)+A(188)+A(189)+2*A(196)-A(197)& + &+A(198)+A(209)+A(215)-A(221)-A(222)-A(240)+A(241)+A(242)-A(243)-A(250)+A(281)+A(300)-A(301)-A(336)+A(337)+2& + &*A(338)-A(340)+A(341)+A(348)+A(356)+A(360)+A(361)+A(363)-A(364)+A(370)-A(371)+0.75*A(385)+A(386)+0.5*A(388)& + &+A(392)-A(393)+A(394)+A(395)+0.84*A(399)+A(400)+0.5*A(403)+0.75*A(405)+A(406)+0.5*A(407)+A(412)+A(414)+0.5& + &*A(416)+0.75*A(418)+A(419)+0.5*A(426)+0.5*A(427)+A(428)+0.84*A(429)+A(431)+A(434)+0.5*A(435)+A(437)-A(438)& + &+A(439)+A(440)+A(445)+A(446)+0.5*A(449)+0.3*A(450)+0.3*A(451)+1.15*A(452)+0.5*A(455)+A(468)+2*A(469)+0.5& + &*A(473)+A(475)+A(476)+2*A(477)+0.5*A(479)+A(480)+A(489)+A(490)+A(491)+A(492)+A(517)+A(519)+A(521)+A(523)& + &+A(540)+A(544)+A(548)+A(559)+A(563)+A(568)+A(570)+A(572)+A(575)+A(577)+A(578)+A(580)+0.459*A(585)+1.728& + &*A(586)+A(590)+A(595)+A(598)+A(601)+0.527*A(604)+1.86*A(606)+0.563*A(607)+0.611*A(610)+A(611)+2*A(613)& + &+A(614)+2*A(615)+A(617)+A(625)+0.058*A(631)+1.065*A(633)+A(635)+A(637)+A(639)+0.565*A(641)+1.11*A(642)+0.09& + &*A(643)+0.31*A(650)+A(655)-A(657)+A(658)-A(660)+A(668)+A(674)+A(676)-A(677)+0.5*A(678)+2*A(679)+2*A(681)& + &+0.7*A(682)+A(683)+A(690)+0.022*A(691)+A(692)+A(703)+0.89*A(709)+A(711)+0.995*A(716)+A(717)+A(721)+A(728)& + &+A(729)+A(733)+A(736)-A(738)+A(739)+A(740)+A(751)-A(752)+A(754)+A(755)-A(756)+A(757)+A(758)-A(762)+0.5& + &*A(763)+A(764)+A(779)-A(782)-A(885)-A(892)+A(897)+A(900)+A(901)+A(903)+0.7*A(906)+A(907)+A(924)+A(933)& + &+A(934)+A(935)+A(936)+A(942)+A(943)+A(954)+A(956)+A(978)+A(990)+A(997)+A(998)+A(999)+A(1000)+A(1002)& + &+A(1004)+A(1005)+A(1006)+A(1007)+A(1008)+A(1012)+0.7*A(1020)+A(1021)+A(1031)+A(1032)+A(1033)+A(1034)& + &+A(1035)+A(1037)+A(1038)+1.555*A(1039)+0.3*A(1045)+A(1046)+A(1047)+A(1048)+0.7*A(1054) IF (DO_FUN(346)) & - Vdot(346) = -A(13)-A(22)-A(26)-A(27)-A(37)-A(43)+A(49)-A(56)-A(58)-A(59)-A(60)-A(63)-A(64)-A(65)-A(68)-A(69)-A(73)& - &-A(78)-A(82)-A(85)-A(90)-A(91)-A(92)-A(93)-A(94)-A(95)-A(96)-A(97)-A(98)-A(99)-A(100)-A(109)-A(123)-A(127)& - &-A(157)-A(209)+1.22*A(230)+A(240)-A(242)+A(248)-A(249)-A(300)-A(334)+2*A(335)-A(348)-A(356)-A(363)-A(370)& - &-A(385)-A(392)-A(399)-A(405)-A(411)-A(412)-A(418)-A(429)-A(437)-A(444)-A(445)-A(468)-A(469)-A(516)-A(517)& - &-A(518)-A(519)-A(520)-A(521)-A(522)-A(523)-A(540)-A(541)-A(544)-A(545)-A(548)-A(549)-A(559)-A(560)-A(563)& - &-A(564)-A(567)-A(568)-A(570)-A(572)-A(586)-A(587)-A(590)-A(591)-A(595)-A(596)-A(598)-A(599)-A(601)-A(602)& - &-A(615)-A(616)-A(617)-A(618)-A(633)-A(634)-A(635)-A(636)-A(639)-A(642)-A(655)-A(658)-A(668)-A(669)-A(674)& - &-A(675)-A(676)-A(679)-A(709)-A(716)-A(728)-A(733)-A(736)-A(751)-A(757)+A(885)+A(891)+A(895)+A(970)-A(988) + Vdot(346) = A(5)-A(790)-A(792)-A(801)-A(803)-A(811)-A(816)-A(847)-A(851)-A(855) IF (DO_FUN(347)) & Vdot(347) = A(203)-A(204)-2*A(207)-2*A(208)-A(209)+A(212)-A(214)+A(215)-A(222)-A(251)+0.2*A(254)+0.44*A(258)+0.95& - &*A(259)+0.7*A(260)+0.31*A(264)+0.45*A(265)+0.75*A(272)-A(310)-A(311)-A(312)-A(343)-A(344)-A(932)+A(935) + &*A(259)+0.7*A(260)+0.31*A(264)+0.45*A(265)+0.75*A(272)-A(310)-A(311)-A(312)-A(343)-A(344)-A(939)+A(942) IF (DO_FUN(348)) & - Vdot(348) = -A(1)-A(4)-A(7)-A(8)-A(9)-A(10)+A(11)-A(12)+A(199)+0.75*A(200)+A(201)-A(202)+A(238)+A(239)-A(368)-A(372)& - &-A(812)-A(819)+A(986)+A(987) + Vdot(348) = A(16)+A(36)-A(42)-A(43)-A(44)-A(45)+A(46)-A(49)-A(50)-A(52)-A(67)-A(76)+A(88)-A(101)-A(110)-A(131)-A(154)& + &-A(159)-A(162)-A(165)-A(166)-A(179)-2*A(196)-A(201)+A(210)-A(215)-A(241)+A(243)+A(282)+A(313)+A(314)-A(339)& + &+A(342)+A(364)+A(371)-A(375)-A(376)-A(377)-A(386)-A(389)-A(395)-A(400)-A(406)-A(414)-A(419)-A(422)-A(425)& + &-A(428)-A(431)-A(434)-A(440)-A(446)-A(449)-A(452)-A(455)-A(476)-A(477)-A(484)-A(485)+A(488)-A(603)-A(613)& + &-A(614)-A(649)+0.69*A(650)-A(681)+A(684)-A(692)-A(703)-A(706)-A(708)-A(717)-A(729)-A(742)-A(744)-A(747)& + &-A(749)+A(756)-A(758)-A(764)-A(779)-A(783)-A(784)-A(785)+A(899)-A(901)-A(902)+A(903)+0.3*A(906)+A(941)& + &+A(955)+A(979)+A(989)+0.3*A(1054) IF (DO_FUN(349)) & Vdot(349) = -A(798)-A(805)-A(817)-A(821)+A(823)-A(844)-A(848)-A(852) IF (DO_FUN(350)) & Vdot(350) = -A(799)-A(806)-A(818)-A(822)+A(824)-A(845)-A(849)-A(853) IF (DO_FUN(351)) & - Vdot(351) = A(16)+A(36)-A(42)-A(43)-A(44)-A(45)+A(46)-A(49)-A(50)-A(52)-A(67)-A(76)+A(88)-A(101)-A(110)-A(131)-A(154)& - &-A(159)-A(162)-A(165)-A(166)-A(179)-2*A(196)-A(201)+A(210)-A(215)-A(241)+A(243)+A(282)+A(313)+A(314)-A(339)& - &+A(342)+A(364)+A(371)-A(375)-A(376)-A(377)-A(386)-A(389)-A(395)-A(400)-A(406)-A(414)-A(419)-A(422)-A(425)& - &-A(428)-A(431)-A(434)-A(440)-A(446)-A(449)-A(452)-A(455)-A(476)-A(477)-A(484)-A(485)+A(488)-A(603)-A(613)& - &-A(614)-A(649)+0.69*A(650)-A(681)+A(684)-A(692)-A(703)-A(706)-A(708)-A(717)-A(729)-A(742)-A(744)-A(747)& - &-A(749)+A(756)-A(758)-A(764)-A(779)-A(783)-A(784)-A(785)+A(892)-A(894)-A(895)+A(896)+0.3*A(899)+A(934)& - &+A(948)+A(972)+A(982)+0.3*A(1047) + Vdot(351) = A(18)-A(212)-A(213)+A(227)+A(228)-A(232)-A(233)-A(235)-A(236)+A(237)-A(238)-A(240)-A(241)-A(242)-A(243)& + &-A(244)+0.02*A(247)+A(248)+A(249)+A(250)-A(251)-A(252)+0.12*A(253)+0.2*A(254)+0.25*A(255)+0.21*A(256)+0.1& + &*A(257)+0.05*A(259)+0.3*A(260)+0.25*A(261)+0.1*A(262)+0.14*A(263)+0.35*A(264)+0.55*A(265)+0.31*A(266)+0.35& + &*A(267)+0.21*A(268)+0.1*A(269)+0.1*A(270)+0.14*A(271)+0.25*A(272)-A(298)-A(313)+A(889)+2*A(891)+A(892)& + &+A(901)+A(939)+A(951)+A(952)+A(975)+A(995) IF (DO_FUN(352)) & - Vdot(352) = A(205)-A(206)-A(213)+A(216)+A(217)+A(218)+A(219)+A(220)-0.8*A(254)+A(333)-A(797)-A(807)-A(809)-A(813)& - &+A(819)-A(820)-A(823)-A(824) + Vdot(352) = 0.66*A(253)+0.75*A(255)+2.37*A(256)+0.35*A(257)+0.19*A(261)+1.8*A(262)+0.86*A(263)+0.31*A(264)+0.69*A(266)& + &+0.79*A(268)+1.9*A(269)+0.95*A(270)+A(273)+A(275)+A(279)+A(283)+2*A(284)+3*A(285)+3*A(286)+A(287)+2*A(288)& + &+A(289)+2*A(290)-A(291)-A(292)-A(293)-A(294)-A(295)-A(296)-A(297)+A(298)+A(300)+A(303)+A(304)-A(305)+A(306)& + &-A(309)-A(314)-A(315)+A(316)+2*A(317)-A(318)-A(319)-A(320)-A(321)-A(322)-A(323)-A(324)-A(325)-A(326)-A(327)& + &-A(328)-A(329)-A(330)-A(331)-A(332)+0.249*A(349)+A(947)+2*A(948)+A(949)+2*A(950)+A(951)+A(953)+A(954)& + &+A(955)+A(957)+3*A(958)+4*A(959)+3*A(960)+2*A(961)+3*A(962)+2*A(963)+A(964)+2*A(965)+2*A(966)+A(967)+A(968)& + &+A(970)+A(972)+A(983)+A(988) IF (DO_FUN(353)) & - Vdot(353) = A(2)-A(789)-A(791)-A(800)-A(802)-A(810)-A(815)-A(846)-A(850)-A(854) + Vdot(353) = A(18)+A(20)+A(21)+A(25)+A(32)+A(33)+A(34)+A(36)+A(38)+A(41)+A(47)+A(51)+A(57)+A(72)+A(102)+A(103)+A(104)& + &+A(105)+A(111)+A(122)+A(206)+A(225)-A(226)+A(234)+0.02*A(247)+A(279)+A(280)+A(283)+A(286)+A(287)+A(288)& + &+A(289)+A(290)+A(318)+A(353)+A(354)+A(359)-A(365)-2*A(366)-A(373)-A(374)+A(701)+A(781)-A(786)-A(793)-A(795)& + &+A(808)+A(809)+A(810)+A(811)+A(813)+A(814)+A(815)+A(816)-A(843)+A(935) +IF (DO_FUN(354)) & + Vdot(354) = A(205)-A(206)-A(213)+A(216)+A(217)+A(218)+A(219)+A(220)-0.8*A(254)+A(333)-A(797)-A(807)-A(809)-A(813)& + &+A(819)-A(820)-A(823)-A(824) +IF (DO_FUN(355)) & + Vdot(355) = -A(1)-A(4)-A(7)-A(8)-A(9)-A(10)+A(11)-A(12)+A(199)+0.75*A(200)+A(201)-A(202)+A(238)+A(239)-A(368)-A(372)& + &-A(812)-A(819)-A(882)-A(883)-A(884)-A(885)-A(886)+A(887)-A(888)+A(993)+A(994) +IF (DO_FUN(356)) & + Vdot(356) = -A(1)-A(4)-A(8)-A(13)-A(14)-A(15)-A(16)-A(17)-A(77)+0.15*A(128)+0.15*A(148)-A(150)+0.15*A(158)-A(203)& + &+A(232)-A(233)-A(237)-A(246)-A(293)-A(350)-A(367)-A(379)-A(381)-A(383)+0.15*A(391)-A(421)-A(424)-A(427)& + &+0.15*A(436)-A(448)-A(451)-A(454)-A(483)-A(493)-A(645)-A(648)+0.13*A(671)+0.13*A(678)+0.13*A(695)-A(704)& + &-A(712)+0.15*A(737)-A(746)+0.15*A(750)-A(761)-A(768)-A(771)-A(820)-A(821)-A(822)-A(883)-A(889)-A(890) END SUBROUTINE Fun @@ -2188,1064 +2203,1071 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, Vdot, P_VAR, D_VAR, Aout ) ! Computation of equation rates - A(1) = RCT(1)*V(179)*V(341)*V(348) - A(2) = RCT(2)*V(179)*V(339) - A(3) = RCT(3)*V(179)*V(327) - A(4) = RCT(4)*V(166)*V(341)*V(348) - A(5) = RCT(5)*V(166)*V(339) - A(6) = RCT(6)*V(166)*V(327) - A(7) = RCT(7)*V(264)*V(348) - A(8) = RCT(8)*V(341)*V(348) - A(9) = RCT(9)*V(348) - A(10) = RCT(10)*V(325)*V(348) - A(11) = RCT(11)*V(89) - A(12) = RCT(12)*V(89)*V(345)*V(348) - A(13) = RCT(13)*V(341)*V(346) - A(14) = RCT(14)*V(341)*V(345) - A(15) = RCT(15)*V(337)*V(341) - A(16) = RCT(16)*V(335)*V(341) - A(17) = RCT(17)*V(328)*V(341) - A(18) = RCT(18)*V(345)*V(345) - A(19) = RCT(19)*V(345)*V(345) - A(20) = RCT(20)*V(337)*V(345) - A(21) = RCT(21)*V(264)*V(345) - A(22) = RCT(22)*V(337)*V(346) - A(23) = RCT(23)*V(337)*V(337) - A(24) = RCT(24)*V(329)*V(345) - A(25) = RCT(25)*V(228)*V(345) - A(26) = RCT(26)*V(328)*V(346) - A(27) = RCT(27)*V(328)*V(346) - A(28) = RCT(28)*V(328)*V(337) - A(29) = RCT(29)*V(328)*V(328) - A(30) = RCT(30)*V(328)*V(328) - A(31) = RCT(31)*V(328)*V(345) - A(32) = RCT(32)*V(164)*V(345) - A(33) = RCT(33)*V(244)*V(345) - A(34) = RCT(34)*V(325)*V(345) - A(35) = RCT(35)*V(335)*V(345) - A(36) = RCT(36)*V(327)*V(345) - A(37) = RCT(37)*V(345)*V(346) - A(38) = RCT(38)*V(239)*V(345) - A(39) = RCT(39)*V(335)*V(337) - A(40) = RCT(40)*V(108) - A(41) = RCT(41)*V(108)*V(345) - A(42) = RCT(42)*V(337)*V(351) - A(43) = RCT(43)*V(346)*V(351) - A(44) = RCT(44)*V(345)*V(351) - A(45) = RCT(45)*V(335)*V(351) - A(46) = RCT(46)*V(214) - A(47) = RCT(47)*V(265)*V(345) - A(48) = RCT(48)*V(282)*V(345) - A(49) = RCT(49)*V(335)*V(351) - A(50) = RCT(50)*V(325)*V(351) - A(51) = RCT(51)*V(326)*V(345) - A(52) = RCT(52)*V(326)*V(351) - A(53) = RCT(53)*V(324)*V(335) - A(54) = RCT(54)*V(139) - A(55) = RCT(55)*V(139)*V(345) - A(56) = RCT(56)*V(324)*V(346) - A(57) = RCT(57)*V(183)*V(345) - A(58) = RCT(58)*V(296)*V(346) - A(59) = RCT(59)*V(296)*V(346) - A(60) = RCT(60)*V(315)*V(346) - A(61) = RCT(61)*V(141)*V(345) - A(62) = RCT(62)*V(141)*V(345) - A(63) = RCT(63)*V(321)*V(346) - A(64) = RCT(64)*V(321)*V(346) - A(65) = RCT(65)*V(260)*V(346) - A(66) = RCT(66)*V(69)*V(345) - A(67) = RCT(67)*V(69)*V(351) - A(68) = RCT(68)*V(178)*V(346) - A(69) = RCT(69)*V(178)*V(346) - A(70) = RCT(70)*V(178)*V(337) - A(71) = RCT(71)*V(98)*V(345) - A(72) = RCT(72)*V(196)*V(345) - A(73) = RCT(73)*V(165)*V(346) - A(74) = RCT(74)*V(165)*V(337) - A(75) = RCT(75)*V(140)*V(345) - A(76) = RCT(76)*V(140)*V(351) - A(77) = RCT(77)*V(140)*V(341) - A(78) = RCT(78)*V(212)*V(346) - A(79) = RCT(79)*V(212)*V(337) - A(80) = RCT(80)*V(127)*V(345) - A(81) = RCT(81)*V(233)*V(345) - A(82) = RCT(82)*V(132)*V(346) - A(83) = RCT(83)*V(132)*V(337) - A(84) = RCT(84)*V(197)*V(337) - A(85) = RCT(85)*V(197)*V(346) - A(86) = RCT(86)*V(197)*V(335) - A(87) = RCT(87)*V(126) - A(88) = RCT(88)*V(126)*V(345) - A(89) = RCT(89)*V(142)*V(345) - A(90) = RCT(90)*V(300)*V(346) - A(91) = RCT(91)*V(300)*V(346) - A(92) = RCT(92)*V(249)*V(346) - A(93) = RCT(93)*V(319)*V(346) - A(94) = RCT(94)*V(319)*V(346) - A(95) = RCT(95)*V(318)*V(346) - A(96) = RCT(96)*V(313)*V(346) - A(97) = RCT(97)*V(320)*V(346) - A(98) = RCT(98)*V(323)*V(346) - A(99) = RCT(99)*V(323)*V(346) - A(100) = RCT(100)*V(250)*V(346) - A(101) = RCT(101)*V(142)*V(351) - A(102) = RCT(102)*V(251)*V(345) - A(103) = RCT(103)*V(279)*V(345) - A(104) = RCT(104)*V(283)*V(345) - A(105) = RCT(105)*V(298)*V(345) - A(106) = RCT(106)*V(322)*V(335) - A(107) = RCT(107)*V(124) - A(108) = RCT(108)*V(124)*V(345) - A(109) = RCT(109)*V(322)*V(346) - A(110) = RCT(110)*V(298)*V(351) - A(111) = RCT(111)*V(295)*V(345) - A(112) = RCT(112)*V(321)*V(328) - A(113) = RCT(113)*V(260)*V(328) - A(114) = RCT(114)*V(319)*V(337) - A(115) = RCT(115)*V(318)*V(337) - A(116) = RCT(116)*V(300)*V(337) - A(117) = RCT(117)*V(249)*V(337) - A(118) = RCT(118)*V(313)*V(337) - A(119) = RCT(119)*V(320)*V(337) - A(120) = RCT(120)*V(323)*V(337) - A(121) = RCT(121)*V(250)*V(337) - A(122) = RCT(122)*V(292)*V(345) - A(123) = RCT(123)*V(320)*V(346) - A(124) = RCT(124)*V(246)*V(335) + A(1) = RCT(1)*V(183)*V(355)*V(356) + A(2) = RCT(2)*V(183)*V(340) + A(3) = RCT(3)*V(183)*V(333) + A(4) = RCT(4)*V(169)*V(355)*V(356) + A(5) = RCT(5)*V(169)*V(340) + A(6) = RCT(6)*V(169)*V(333) + A(7) = RCT(7)*V(267)*V(355) + A(8) = RCT(8)*V(355)*V(356) + A(9) = RCT(9)*V(355) + A(10) = RCT(10)*V(329)*V(355) + A(11) = RCT(11)*V(93) + A(12) = RCT(12)*V(93)*V(343)*V(355) + A(13) = RCT(13)*V(338)*V(356) + A(14) = RCT(14)*V(343)*V(356) + A(15) = RCT(15)*V(341)*V(356) + A(16) = RCT(16)*V(345)*V(356) + A(17) = RCT(17)*V(334)*V(356) + A(18) = RCT(18)*V(343)*V(343) + A(19) = RCT(19)*V(343)*V(343) + A(20) = RCT(20)*V(341)*V(343) + A(21) = RCT(21)*V(267)*V(343) + A(22) = RCT(22)*V(338)*V(341) + A(23) = RCT(23)*V(341)*V(341) + A(24) = RCT(24)*V(335)*V(343) + A(25) = RCT(25)*V(232)*V(343) + A(26) = RCT(26)*V(334)*V(338) + A(27) = RCT(27)*V(334)*V(338) + A(28) = RCT(28)*V(334)*V(341) + A(29) = RCT(29)*V(334)*V(334) + A(30) = RCT(30)*V(334)*V(334) + A(31) = RCT(31)*V(334)*V(343) + A(32) = RCT(32)*V(167)*V(343) + A(33) = RCT(33)*V(247)*V(343) + A(34) = RCT(34)*V(329)*V(343) + A(35) = RCT(35)*V(343)*V(345) + A(36) = RCT(36)*V(333)*V(343) + A(37) = RCT(37)*V(338)*V(343) + A(38) = RCT(38)*V(240)*V(343) + A(39) = RCT(39)*V(341)*V(345) + A(40) = RCT(40)*V(110) + A(41) = RCT(41)*V(110)*V(343) + A(42) = RCT(42)*V(341)*V(348) + A(43) = RCT(43)*V(338)*V(348) + A(44) = RCT(44)*V(343)*V(348) + A(45) = RCT(45)*V(345)*V(348) + A(46) = RCT(46)*V(217) + A(47) = RCT(47)*V(268)*V(343) + A(48) = RCT(48)*V(285)*V(343) + A(49) = RCT(49)*V(345)*V(348) + A(50) = RCT(50)*V(329)*V(348) + A(51) = RCT(51)*V(330)*V(343) + A(52) = RCT(52)*V(330)*V(348) + A(53) = RCT(53)*V(328)*V(345) + A(54) = RCT(54)*V(143) + A(55) = RCT(55)*V(143)*V(343) + A(56) = RCT(56)*V(328)*V(338) + A(57) = RCT(57)*V(187)*V(343) + A(58) = RCT(58)*V(300)*V(338) + A(59) = RCT(59)*V(300)*V(338) + A(60) = RCT(60)*V(319)*V(338) + A(61) = RCT(61)*V(142)*V(343) + A(62) = RCT(62)*V(142)*V(343) + A(63) = RCT(63)*V(326)*V(338) + A(64) = RCT(64)*V(326)*V(338) + A(65) = RCT(65)*V(264)*V(338) + A(66) = RCT(66)*V(72)*V(343) + A(67) = RCT(67)*V(72)*V(348) + A(68) = RCT(68)*V(182)*V(338) + A(69) = RCT(69)*V(182)*V(338) + A(70) = RCT(70)*V(182)*V(341) + A(71) = RCT(71)*V(100)*V(343) + A(72) = RCT(72)*V(200)*V(343) + A(73) = RCT(73)*V(168)*V(338) + A(74) = RCT(74)*V(168)*V(341) + A(75) = RCT(75)*V(140)*V(343) + A(76) = RCT(76)*V(140)*V(348) + A(77) = RCT(77)*V(140)*V(356) + A(78) = RCT(78)*V(215)*V(338) + A(79) = RCT(79)*V(215)*V(341) + A(80) = RCT(80)*V(130)*V(343) + A(81) = RCT(81)*V(229)*V(343) + A(82) = RCT(82)*V(133)*V(338) + A(83) = RCT(83)*V(133)*V(341) + A(84) = RCT(84)*V(201)*V(341) + A(85) = RCT(85)*V(201)*V(338) + A(86) = RCT(86)*V(201)*V(345) + A(87) = RCT(87)*V(129) + A(88) = RCT(88)*V(129)*V(343) + A(89) = RCT(89)*V(144)*V(343) + A(90) = RCT(90)*V(304)*V(338) + A(91) = RCT(91)*V(304)*V(338) + A(92) = RCT(92)*V(252)*V(338) + A(93) = RCT(93)*V(323)*V(338) + A(94) = RCT(94)*V(323)*V(338) + A(95) = RCT(95)*V(322)*V(338) + A(96) = RCT(96)*V(316)*V(338) + A(97) = RCT(97)*V(324)*V(338) + A(98) = RCT(98)*V(327)*V(338) + A(99) = RCT(99)*V(327)*V(338) + A(100) = RCT(100)*V(253)*V(338) + A(101) = RCT(101)*V(144)*V(348) + A(102) = RCT(102)*V(255)*V(343) + A(103) = RCT(103)*V(283)*V(343) + A(104) = RCT(104)*V(286)*V(343) + A(105) = RCT(105)*V(302)*V(343) + A(106) = RCT(106)*V(325)*V(345) + A(107) = RCT(107)*V(127) + A(108) = RCT(108)*V(127)*V(343) + A(109) = RCT(109)*V(325)*V(338) + A(110) = RCT(110)*V(302)*V(348) + A(111) = RCT(111)*V(297)*V(343) + A(112) = RCT(112)*V(326)*V(334) + A(113) = RCT(113)*V(264)*V(334) + A(114) = RCT(114)*V(323)*V(341) + A(115) = RCT(115)*V(322)*V(341) + A(116) = RCT(116)*V(304)*V(341) + A(117) = RCT(117)*V(252)*V(341) + A(118) = RCT(118)*V(316)*V(341) + A(119) = RCT(119)*V(324)*V(341) + A(120) = RCT(120)*V(327)*V(341) + A(121) = RCT(121)*V(253)*V(341) + A(122) = RCT(122)*V(295)*V(343) + A(123) = RCT(123)*V(324)*V(338) + A(124) = RCT(124)*V(250)*V(345) A(125) = RCT(125)*V(113) - A(126) = 4.51e-12*V(113)*V(345) - A(127) = RCT(127)*V(246)*V(346) - A(128) = RCT(128)*V(246)*V(337) - A(129) = RCT(129)*V(296)*V(328) - A(130) = RCT(130)*V(315)*V(328) - A(131) = RCT(131)*V(292)*V(351) - A(132) = RCT(132)*V(319)*V(328) - A(133) = RCT(133)*V(318)*V(328) - A(134) = RCT(134)*V(300)*V(328) - A(135) = RCT(135)*V(249)*V(328) - A(136) = RCT(136)*V(313)*V(328) - A(137) = RCT(137)*V(320)*V(328) - A(138) = RCT(138)*V(323)*V(328) - A(139) = RCT(139)*V(250)*V(328) - A(140) = RCT(140)*V(156)*V(345) - A(141) = RCT(141)*V(188)*V(345) - A(142) = RCT(142)*V(296)*V(296) - A(143) = RCT(143)*V(315)*V(315) - A(144) = RCT(144)*V(296)*V(337) - A(145) = RCT(145)*V(315)*V(337) - A(146) = RCT(146)*V(321)*V(337) - A(147) = RCT(147)*V(260)*V(337) - A(148) = RCT(148)*V(322)*V(337) - A(149) = RCT(149)*V(290)*V(345) - A(150) = RCT(150)*V(290)*V(341) - A(151) = RCT(151)*V(306)*V(345) - A(152) = RCT(152)*V(306)*V(345) - A(153) = RCT(153)*V(306)*V(345) - A(154) = RCT(154)*V(306)*V(351) - A(155) = RCT(155)*V(213)*V(335) - A(156) = RCT(156)*V(114) - A(157) = RCT(157)*V(213)*V(346) - A(158) = RCT(158)*V(213)*V(337) - A(159) = RCT(159)*V(213)*V(351) - A(160) = RCT(160)*V(114)*V(345) - A(161) = RCT(161)*V(72)*V(345) - A(162) = RCT(162)*V(290)*V(351) - A(163) = RCT(163)*V(270)*V(345) - A(164) = RCT(164)*V(294)*V(345) - A(165) = RCT(165)*V(270)*V(351) - A(166) = RCT(166)*V(294)*V(351) - A(167) = RCT(167)*V(307)*V(345) - A(168) = RCT(168)*V(307)*V(345) - A(169) = RCT(169)*V(125)*V(345) - A(170) = RCT(170)*V(118)*V(345) - A(171) = RCT(171)*V(99)*V(345) - A(172) = RCT(172)*V(100)*V(345) - A(173) = RCT(173)*V(97)*V(345) - A(174) = RCT(174)*V(102)*V(345) - A(175) = RCT(175)*V(155)*V(345) - A(176) = RCT(176)*V(123)*V(345) - A(177) = RCT(177)*V(24)*V(345) - A(178) = RCT(178)*V(92)*V(345) - A(179) = RCT(179)*V(183)*V(351) - A(180) = RCT(180)*V(324)*V(324) - A(181) = RCT(181)*V(324)*V(328) - A(182) = RCT(182)*V(319)*V(324) - A(183) = RCT(183)*V(300)*V(324) - A(184) = RCT(184)*V(313)*V(324) - A(185) = RCT(185)*V(320)*V(324) - A(186) = RCT(186)*V(323)*V(324) - A(187) = RCT(187)*V(318)*V(324) - A(188) = RCT(188)*V(249)*V(324) - A(189) = RCT(189)*V(250)*V(324) - A(190) = RCT(190)*V(296)*V(324) - A(191) = RCT(191)*V(315)*V(324) - A(192) = RCT(192)*V(260)*V(324) - A(193) = RCT(193)*V(321)*V(324) - A(194) = RCT(194)*V(322)*V(324) - A(195) = RCT(195)*V(322)*V(328) - A(196) = RCT(196)*V(351)*V(351) - A(197) = RCT(197)*V(328)*V(335) - A(198) = RCT(198)*V(80) - A(199) = RCT(199)*V(94)*V(345) - A(200) = RCT(200)*V(94)*V(345) - A(201) = RCT(201)*V(94)*V(351) - A(202) = RCT(202)*V(345)*V(348) - A(203) = RCT(203)*V(341)*V(342) - A(204) = RCT(204)*V(337)*V(347) - A(205) = RCT(205)*V(337)*V(342) - A(206) = RCT(206)*V(345)*V(352) + A(126) = 4.51e-12*V(113)*V(343) + A(127) = RCT(127)*V(250)*V(338) + A(128) = RCT(128)*V(250)*V(341) + A(129) = RCT(129)*V(300)*V(334) + A(130) = RCT(130)*V(319)*V(334) + A(131) = RCT(131)*V(295)*V(348) + A(132) = RCT(132)*V(323)*V(334) + A(133) = RCT(133)*V(322)*V(334) + A(134) = RCT(134)*V(304)*V(334) + A(135) = RCT(135)*V(252)*V(334) + A(136) = RCT(136)*V(316)*V(334) + A(137) = RCT(137)*V(324)*V(334) + A(138) = RCT(138)*V(327)*V(334) + A(139) = RCT(139)*V(253)*V(334) + A(140) = RCT(140)*V(154)*V(343) + A(141) = RCT(141)*V(192)*V(343) + A(142) = RCT(142)*V(300)*V(300) + A(143) = RCT(143)*V(319)*V(319) + A(144) = RCT(144)*V(300)*V(341) + A(145) = RCT(145)*V(319)*V(341) + A(146) = RCT(146)*V(326)*V(341) + A(147) = RCT(147)*V(264)*V(341) + A(148) = RCT(148)*V(325)*V(341) + A(149) = RCT(149)*V(293)*V(343) + A(150) = RCT(150)*V(293)*V(356) + A(151) = RCT(151)*V(309)*V(343) + A(152) = RCT(152)*V(309)*V(343) + A(153) = RCT(153)*V(309)*V(343) + A(154) = RCT(154)*V(309)*V(348) + A(155) = RCT(155)*V(216)*V(345) + A(156) = RCT(156)*V(115) + A(157) = RCT(157)*V(216)*V(338) + A(158) = RCT(158)*V(216)*V(341) + A(159) = RCT(159)*V(216)*V(348) + A(160) = RCT(160)*V(115)*V(343) + A(161) = RCT(161)*V(74)*V(343) + A(162) = RCT(162)*V(293)*V(348) + A(163) = RCT(163)*V(274)*V(343) + A(164) = RCT(164)*V(298)*V(343) + A(165) = RCT(165)*V(274)*V(348) + A(166) = RCT(166)*V(298)*V(348) + A(167) = RCT(167)*V(311)*V(343) + A(168) = RCT(168)*V(311)*V(343) + A(169) = RCT(169)*V(128)*V(343) + A(170) = RCT(170)*V(121)*V(343) + A(171) = RCT(171)*V(101)*V(343) + A(172) = RCT(172)*V(102)*V(343) + A(173) = RCT(173)*V(99)*V(343) + A(174) = RCT(174)*V(104)*V(343) + A(175) = RCT(175)*V(158)*V(343) + A(176) = RCT(176)*V(126)*V(343) + A(177) = RCT(177)*V(24)*V(343) + A(178) = RCT(178)*V(95)*V(343) + A(179) = RCT(179)*V(187)*V(348) + A(180) = RCT(180)*V(328)*V(328) + A(181) = RCT(181)*V(328)*V(334) + A(182) = RCT(182)*V(323)*V(328) + A(183) = RCT(183)*V(304)*V(328) + A(184) = RCT(184)*V(316)*V(328) + A(185) = RCT(185)*V(324)*V(328) + A(186) = RCT(186)*V(327)*V(328) + A(187) = RCT(187)*V(322)*V(328) + A(188) = RCT(188)*V(252)*V(328) + A(189) = RCT(189)*V(253)*V(328) + A(190) = RCT(190)*V(300)*V(328) + A(191) = RCT(191)*V(319)*V(328) + A(192) = RCT(192)*V(264)*V(328) + A(193) = RCT(193)*V(326)*V(328) + A(194) = RCT(194)*V(325)*V(328) + A(195) = RCT(195)*V(325)*V(334) + A(196) = RCT(196)*V(348)*V(348) + A(197) = RCT(197)*V(334)*V(345) + A(198) = RCT(198)*V(83) + A(199) = RCT(199)*V(87)*V(343) + A(200) = RCT(200)*V(87)*V(343) + A(201) = RCT(201)*V(87)*V(348) + A(202) = RCT(202)*V(343)*V(355) + A(203) = RCT(203)*V(342)*V(356) + A(204) = RCT(204)*V(341)*V(347) + A(205) = RCT(205)*V(341)*V(342) + A(206) = RCT(206)*V(343)*V(354) A(207) = RCT(207)*V(347)*V(347) A(208) = RCT(208)*V(347)*V(347) - A(209) = RCT(209)*V(346)*V(347) - A(210) = RCT(210)*V(218)*V(342) - A(211) = RCT(211)*V(148)*V(345) - A(212) = RCT(212)*V(316)*V(343) - A(213) = RCT(213)*V(343)*V(352) - A(214) = RCT(214)*V(345)*V(347) - A(215) = RCT(215)*V(342)*V(351) - A(216) = RCT(216)*V(325)*V(342) - A(217) = RCT(217)*V(326)*V(342) - A(218) = RCT(218)*V(295)*V(342) - A(219) = RCT(219)*V(183)*V(342) - A(220) = RCT(220)*V(141)*V(342) - A(221) = RCT(221)*V(335)*V(342) - A(222) = RCT(222)*V(335)*V(347) - A(223) = RCT(223)*V(81)*V(345) - A(224) = RCT(224)*V(78)*V(345) - A(225) = RCT(225)*V(105)*V(345) - A(226) = RCT(226)*V(334)*V(336) - A(227) = RCT(227)*V(334)*F(2) - A(228) = RCT(228)*V(334)*F(3) - A(229) = RCT(229)*V(334)*F(1) - A(230) = RCT(230)*V(63)*V(334) - A(231) = RCT(231)*V(228)*V(334) - A(232) = RCT(232)*V(343)*F(3) - A(233) = RCT(233)*V(341)*V(343) - A(234) = RCT(234)*V(345)*F(1) - A(235) = RCT(235)*V(343)*V(345) - A(236) = RCT(236)*V(337)*V(343) - A(237) = RCT(237)*V(334)*V(341) - A(238) = RCT(238)*V(68)*V(343) - A(239) = RCT(239)*V(68)*V(345) - A(240) = RCT(240)*V(335)*V(343) - A(241) = RCT(241)*V(343)*V(351) - A(242) = RCT(242)*V(343)*V(346) - A(243) = RCT(243)*V(335)*V(343) - A(244) = RCT(244)*V(264)*V(343) - A(245) = RCT(245)*V(217)*F(3) - A(246) = RCT(246)*V(217)*V(341) - A(247) = RCT(247)*V(217)*V(337) - A(248) = RCT(248)*V(67)*F(3) - A(249) = RCT(249)*V(67)*V(346) - A(250) = RCT(250)*V(67)*V(335) - A(251) = RCT(251)*V(343)*V(347) - A(252) = RCT(252)*V(325)*V(343) - A(253) = RCT(253)*V(334)*V(339) - A(254) = RCT(254)*V(334)*V(352) - A(255) = RCT(255)*V(245)*V(334) - A(256) = RCT(256)*V(46)*V(334) - A(257) = RCT(257)*V(181)*V(334) - A(258) = RCT(258)*V(105)*V(334) - A(259) = RCT(259)*V(78)*V(334) - A(260) = RCT(260)*V(81)*V(334) - A(261) = RCT(261)*V(87)*V(334) - A(262) = RCT(262)*V(47)*V(334) - A(263) = RCT(263)*V(48)*V(334) - A(264) = RCT(264)*V(61)*V(334) - A(265) = RCT(265)*V(53)*V(334) - A(266) = RCT(266)*V(85)*V(334) - A(267) = RCT(267)*V(86)*V(334) - A(268) = RCT(268)*V(84)*V(334) - A(269) = RCT(269)*V(49)*V(334) - A(270) = RCT(270)*V(50)*V(334) - A(271) = RCT(271)*V(51)*V(334) - A(272) = RCT(272)*V(54)*V(334) - A(273) = RCT(273)*V(245)*V(345) - A(274) = RCT(274)*V(328)*V(338) - A(275) = RCT(275)*V(338)*V(345) - A(276) = RCT(276)*V(338)*V(345) - A(277) = RCT(277)*V(120)*V(345) - A(278) = RCT(278)*V(76)*V(345) - A(279) = RCT(279)*V(339)*V(345) - A(280) = RCT(280)*V(333)*V(345) - A(281) = RCT(281)*V(297)*V(345) - A(282) = RCT(282)*V(317)*V(345) - A(283) = RCT(283)*V(181)*V(345) - A(284) = RCT(284)*V(79)*V(345) - A(285) = RCT(285)*V(75)*V(345) - A(286) = RCT(286)*V(43)*V(345) - A(287) = RCT(287)*V(87)*V(345) - A(288) = RCT(288)*V(85)*V(345) - A(289) = RCT(289)*V(86)*V(345) - A(290) = RCT(290)*V(84)*V(345) - A(291) = RCT(291)*V(228)*V(340) - A(292) = RCT(292)*V(325)*V(340) - A(293) = RCT(293)*V(340)*V(341) - A(294) = RCT(294)*V(340)*F(1) - A(295) = RCT(295)*V(264)*V(340) - A(296) = RCT(296)*V(337)*V(340) - A(297) = RCT(297)*V(337)*V(340) - A(298) = RCT(298)*V(338)*V(343) - A(299) = RCT(299)*V(337)*V(338) - A(300) = RCT(300)*V(338)*V(346) - A(301) = RCT(301)*V(335)*V(338) - A(302) = RCT(302)*V(338)*V(338) - A(303) = RCT(303)*V(338)*V(338) - A(304) = RCT(304)*V(338)*V(338) - A(305) = RCT(305)*V(340)*F(3) - A(306) = RCT(306)*V(110) - A(307) = RCT(307)*V(338)*V(338) - A(308) = RCT(308)*V(76) - A(309) = RCT(309)*V(110)*V(340) - A(310) = RCT(310)*V(338)*V(347) - A(311) = RCT(311)*V(338)*V(347) - A(312) = RCT(312)*V(338)*V(347) - A(313) = RCT(313)*V(317)*V(343) - A(314) = RCT(314)*V(317)*V(340) - A(315) = RCT(315)*V(181)*V(340) - A(316) = RCT(316)*V(79)*V(340) - A(317) = RCT(317)*V(75)*V(340) - A(318) = RCT(318)*V(265)*V(340) - A(319) = RCT(319)*V(328)*V(340) - A(320) = RCT(320)*V(164)*V(340) - A(321) = RCT(321)*V(183)*V(340) - A(322) = RCT(322)*V(296)*V(340) - A(323) = RCT(323)*V(315)*V(340) - A(324) = RCT(324)*V(282)*V(340) - A(325) = RCT(325)*V(156)*V(340) - A(326) = RCT(326)*V(283)*V(340) - A(327) = RCT(327)*V(141)*V(340) - A(328) = RCT(328)*V(141)*V(340) - A(329) = RCT(329)*V(295)*V(340) - A(330) = RCT(330)*V(276)*V(340) - A(331) = RCT(331)*V(142)*V(340) - A(332) = RCT(332)*V(290)*V(340) - A(333) = RCT(333)*V(290)*V(342) - A(334) = RCT(334)*V(331)*V(346) - A(335) = RCT(335)*V(62)*V(62) - A(336) = RCT(336)*V(331)*V(335) - A(337) = RCT(337)*V(252) - A(338) = RCT(338)*V(252)*V(252) - A(339) = RCT(339)*V(170)*V(351) - A(340) = RCT(340)*V(284)*V(335) - A(341) = RCT(341)*V(332) - A(342) = RCT(342)*V(331)*V(332) + A(209) = RCT(209)*V(338)*V(347) + A(210) = RCT(210)*V(221)*V(342) + A(211) = RCT(211)*V(153)*V(343) + A(212) = RCT(212)*V(320)*V(351) + A(213) = RCT(213)*V(351)*V(354) + A(214) = RCT(214)*V(343)*V(347) + A(215) = RCT(215)*V(342)*V(348) + A(216) = RCT(216)*V(329)*V(342) + A(217) = RCT(217)*V(330)*V(342) + A(218) = RCT(218)*V(297)*V(342) + A(219) = RCT(219)*V(187)*V(342) + A(220) = RCT(220)*V(142)*V(342) + A(221) = RCT(221)*V(342)*V(345) + A(222) = RCT(222)*V(345)*V(347) + A(223) = RCT(223)*V(82)*V(343) + A(224) = RCT(224)*V(79)*V(343) + A(225) = RCT(225)*V(108)*V(343) + A(226) = RCT(226)*V(337)*V(353) + A(227) = RCT(227)*V(337)*F(2) + A(228) = RCT(228)*V(337)*F(3) + A(229) = RCT(229)*V(337)*F(1) + A(230) = RCT(230)*V(66)*V(337) + A(231) = RCT(231)*V(232)*V(337) + A(232) = RCT(232)*V(351)*F(3) + A(233) = RCT(233)*V(351)*V(356) + A(234) = RCT(234)*V(343)*F(1) + A(235) = RCT(235)*V(343)*V(351) + A(236) = RCT(236)*V(341)*V(351) + A(237) = RCT(237)*V(337)*V(356) + A(238) = RCT(238)*V(71)*V(351) + A(239) = RCT(239)*V(71)*V(343) + A(240) = RCT(240)*V(345)*V(351) + A(241) = RCT(241)*V(348)*V(351) + A(242) = RCT(242)*V(338)*V(351) + A(243) = RCT(243)*V(345)*V(351) + A(244) = RCT(244)*V(267)*V(351) + A(245) = RCT(245)*V(219)*F(3) + A(246) = RCT(246)*V(219)*V(356) + A(247) = RCT(247)*V(219)*V(341) + A(248) = RCT(248)*V(70)*F(3) + A(249) = RCT(249)*V(70)*V(338) + A(250) = RCT(250)*V(70)*V(345) + A(251) = RCT(251)*V(347)*V(351) + A(252) = RCT(252)*V(329)*V(351) + A(253) = RCT(253)*V(337)*V(340) + A(254) = RCT(254)*V(337)*V(354) + A(255) = RCT(255)*V(248)*V(337) + A(256) = RCT(256)*V(49)*V(337) + A(257) = RCT(257)*V(184)*V(337) + A(258) = RCT(258)*V(108)*V(337) + A(259) = RCT(259)*V(79)*V(337) + A(260) = RCT(260)*V(82)*V(337) + A(261) = RCT(261)*V(91)*V(337) + A(262) = RCT(262)*V(50)*V(337) + A(263) = RCT(263)*V(51)*V(337) + A(264) = RCT(264)*V(64)*V(337) + A(265) = RCT(265)*V(56)*V(337) + A(266) = RCT(266)*V(89)*V(337) + A(267) = RCT(267)*V(90)*V(337) + A(268) = RCT(268)*V(88)*V(337) + A(269) = RCT(269)*V(52)*V(337) + A(270) = RCT(270)*V(53)*V(337) + A(271) = RCT(271)*V(54)*V(337) + A(272) = RCT(272)*V(57)*V(337) + A(273) = RCT(273)*V(248)*V(343) + A(274) = RCT(274)*V(334)*V(344) + A(275) = RCT(275)*V(343)*V(344) + A(276) = RCT(276)*V(343)*V(344) + A(277) = RCT(277)*V(123)*V(343) + A(278) = RCT(278)*V(78)*V(343) + A(279) = RCT(279)*V(340)*V(343) + A(280) = RCT(280)*V(332)*V(343) + A(281) = RCT(281)*V(301)*V(343) + A(282) = RCT(282)*V(321)*V(343) + A(283) = RCT(283)*V(184)*V(343) + A(284) = RCT(284)*V(80)*V(343) + A(285) = RCT(285)*V(84)*V(343) + A(286) = RCT(286)*V(46)*V(343) + A(287) = RCT(287)*V(91)*V(343) + A(288) = RCT(288)*V(89)*V(343) + A(289) = RCT(289)*V(90)*V(343) + A(290) = RCT(290)*V(88)*V(343) + A(291) = RCT(291)*V(232)*V(352) + A(292) = RCT(292)*V(329)*V(352) + A(293) = RCT(293)*V(352)*V(356) + A(294) = RCT(294)*V(352)*F(1) + A(295) = RCT(295)*V(267)*V(352) + A(296) = RCT(296)*V(341)*V(352) + A(297) = RCT(297)*V(341)*V(352) + A(298) = RCT(298)*V(344)*V(351) + A(299) = RCT(299)*V(341)*V(344) + A(300) = RCT(300)*V(338)*V(344) + A(301) = RCT(301)*V(344)*V(345) + A(302) = RCT(302)*V(344)*V(344) + A(303) = RCT(303)*V(344)*V(344) + A(304) = RCT(304)*V(344)*V(344) + A(305) = RCT(305)*V(352)*F(3) + A(306) = RCT(306)*V(119) + A(307) = RCT(307)*V(344)*V(344) + A(308) = RCT(308)*V(78) + A(309) = RCT(309)*V(119)*V(352) + A(310) = RCT(310)*V(344)*V(347) + A(311) = RCT(311)*V(344)*V(347) + A(312) = RCT(312)*V(344)*V(347) + A(313) = RCT(313)*V(321)*V(351) + A(314) = RCT(314)*V(321)*V(352) + A(315) = RCT(315)*V(184)*V(352) + A(316) = RCT(316)*V(80)*V(352) + A(317) = RCT(317)*V(84)*V(352) + A(318) = RCT(318)*V(268)*V(352) + A(319) = RCT(319)*V(334)*V(352) + A(320) = RCT(320)*V(167)*V(352) + A(321) = RCT(321)*V(187)*V(352) + A(322) = RCT(322)*V(300)*V(352) + A(323) = RCT(323)*V(319)*V(352) + A(324) = RCT(324)*V(285)*V(352) + A(325) = RCT(325)*V(154)*V(352) + A(326) = RCT(326)*V(286)*V(352) + A(327) = RCT(327)*V(142)*V(352) + A(328) = RCT(328)*V(142)*V(352) + A(329) = RCT(329)*V(297)*V(352) + A(330) = RCT(330)*V(279)*V(352) + A(331) = RCT(331)*V(144)*V(352) + A(332) = RCT(332)*V(293)*V(352) + A(333) = RCT(333)*V(293)*V(342) + A(334) = RCT(334)*V(331)*V(338) + A(335) = RCT(335)*V(65)*V(65) + A(336) = RCT(336)*V(331)*V(345) + A(337) = RCT(337)*V(254) + A(338) = RCT(338)*V(254)*V(254) + A(339) = RCT(339)*V(172)*V(348) + A(340) = RCT(340)*V(336)*V(345) + A(341) = RCT(341)*V(296) + A(342) = RCT(342)*V(296)*V(331) A(343) = RCT(343)*V(331)*V(347) - A(344) = RCT(344)*V(284)*V(347) - A(345) = RCT(345)*V(96)*V(284) - A(346) = RCT(346)*V(96)*V(96) - A(347) = RCT(347)*V(42) - A(348) = RCT(348)*V(96)*V(346) - A(349) = RCT(349)*V(284)*V(338) - A(350) = RCT(350)*V(331)*V(341) - A(351) = RCT(351)*V(331)*V(337) - A(352) = RCT(352)*V(170)*V(345) - A(353) = RCT(353)*V(73)*V(345) - A(354) = RCT(354)*V(330)*V(345) - A(355) = RCT(355)*V(284)*V(337) - A(356) = RCT(356)*V(284)*V(346) - A(357) = RCT(357)*V(284)*V(284) - A(358) = RCT(358)*V(44) - A(359) = RCT(359)*V(52)*V(345) - A(360) = RCT(360)*V(261)*V(345) - A(361) = RCT(361)*V(247)*V(345) - A(362) = RCT(362)*V(312)*V(329) - A(363) = RCT(363)*V(312)*V(346) - A(364) = RCT(364)*V(312)*V(335) - A(365) = RCT(365)*V(312)*V(336) - A(366) = RCT(366)*V(312)*V(336)*V(336) - A(367) = RCT(367)*V(312)*V(341) - A(368) = RCT(368)*V(312)*V(348) - A(369) = RCT(369)*V(241)*V(329) - A(370) = RCT(370)*V(241)*V(346) - A(371) = RCT(371)*V(241)*V(335) - A(372) = RCT(372)*V(241)*V(348) - A(373) = RCT(373)*V(241)*V(336) - A(374) = RCT(374)*V(241)*V(336) - A(375) = RCT(375)*V(191)*V(351) - A(376) = RCT(376)*V(219)*V(351) - A(377) = RCT(377)*V(167)*V(351) - A(378) = RCT(378)*V(167)*V(345) - A(379) = RCT(379)*V(167)*V(341) - A(380) = RCT(380)*V(219)*V(345) - A(381) = RCT(381)*V(219)*V(341) - A(382) = RCT(382)*V(191)*V(345) - A(383) = RCT(383)*V(191)*V(341) - A(384) = RCT(384)*V(277)*V(337) - A(385) = RCT(385)*V(277)*V(346) - A(386) = RCT(386)*V(277)*V(351) - A(387) = RCT(387)*V(111)*V(345) - A(388) = RCT(388)*V(137)*V(345) - A(389) = RCT(389)*V(225)*V(351) - A(390) = RCT(390)*V(225)*V(345) - A(391) = RCT(391)*V(257)*V(337) - A(392) = RCT(392)*V(257)*V(346) - A(393) = RCT(393)*V(257)*V(335) - A(394) = RCT(394)*V(56) - A(395) = RCT(395)*V(257)*V(351) - A(396) = RCT(396)*V(74)*V(345) - A(397) = RCT(397)*V(66)*V(345) - A(398) = RCT(398)*V(278)*V(337) - A(399) = RCT(399)*V(278)*V(346) - A(400) = RCT(400)*V(278)*V(351) - A(401) = RCT(401)*V(278)*V(328) - A(402) = RCT(402)*V(160)*V(345) - A(403) = RCT(403)*V(176)*V(345) - A(404) = RCT(404)*V(275)*V(337) - A(405) = RCT(405)*V(275)*V(346) - A(406) = RCT(406)*V(275)*V(351) - A(407) = RCT(407)*V(138)*V(345) - A(408) = RCT(408)*V(112)*V(345) - A(409) = RCT(409)*V(129)*V(345) - A(410) = RCT(410)*V(273)*V(337) - A(411) = RCT(411)*V(273)*V(346) - A(412) = RCT(412)*V(273)*V(346) - A(413) = RCT(413)*V(273)*V(328) - A(414) = RCT(414)*V(273)*V(351) - A(415) = RCT(415)*V(161)*V(345) - A(416) = RCT(416)*V(162)*V(345) - A(417) = RCT(417)*V(281)*V(337) - A(418) = RCT(418)*V(281)*V(346) - A(419) = RCT(419)*V(281)*V(351) - A(420) = RCT(420)*V(255)*V(345) - A(421) = RCT(421)*V(255)*V(341) - A(422) = RCT(422)*V(255)*V(351) - A(423) = RCT(423)*V(237)*V(345) - A(424) = RCT(424)*V(237)*V(341) - A(425) = RCT(425)*V(237)*V(351) - A(426) = RCT(426)*V(211)*V(345) - A(427) = RCT(427)*V(211)*V(341) - A(428) = RCT(428)*V(211)*V(351) - A(429) = RCT(429)*V(272)*V(346) - A(430) = RCT(430)*V(272)*V(337) - A(431) = RCT(431)*V(272)*V(351) - A(432) = RCT(432)*V(272)*V(328) - A(433) = RCT(433)*V(163)*V(345) - A(434) = RCT(434)*V(163)*V(351) - A(435) = RCT(435)*V(177)*V(345) - A(436) = RCT(436)*V(274)*V(337) - A(437) = RCT(437)*V(274)*V(346) - A(438) = RCT(438)*V(274)*V(335) - A(439) = RCT(439)*V(57) - A(440) = RCT(440)*V(274)*V(351) - A(441) = RCT(441)*V(169)*V(345) - A(442) = RCT(442)*V(130)*V(345) - A(443) = RCT(443)*V(291)*V(337) - A(444) = RCT(444)*V(291)*V(346) - A(445) = RCT(445)*V(291)*V(346) - A(446) = RCT(446)*V(291)*V(351) - A(447) = RCT(447)*V(229)*V(345) - A(448) = RCT(448)*V(229)*V(341) - A(449) = RCT(449)*V(229)*V(351) - A(450) = RCT(450)*V(193)*V(345) - A(451) = RCT(451)*V(193)*V(341) - A(452) = RCT(452)*V(193)*V(351) - A(453) = RCT(453)*V(262)*V(345) - A(454) = RCT(454)*V(262)*V(341) - A(455) = RCT(455)*V(262)*V(351) - A(456) = RCT(456)*V(277)*V(328) - A(457) = RCT(457)*V(277)*V(324) - A(458) = RCT(458)*V(275)*V(328) - A(459) = RCT(459)*V(275)*V(324) - A(460) = RCT(460)*V(281)*V(328) - A(461) = RCT(461)*V(281)*V(324) - A(462) = RCT(462)*V(291)*V(328) - A(463) = RCT(463)*V(291)*V(324) - A(464) = RCT(464)*V(257)*V(328) - A(465) = RCT(465)*V(257)*V(324) - A(466) = RCT(466)*V(274)*V(328) - A(467) = RCT(467)*V(274)*V(324) - A(468) = RCT(468)*V(280)*V(346) - A(469) = RCT(469)*V(289)*V(346) - A(470) = RCT(470)*V(280)*V(337) - A(471) = RCT(471)*V(289)*V(337) - A(472) = RCT(472)*V(280)*V(328) - A(473) = RCT(473)*V(289)*V(328) - A(474) = RCT(474)*V(280)*V(324) - A(475) = RCT(475)*V(289)*V(324) - A(476) = RCT(476)*V(280)*V(351) - A(477) = RCT(477)*V(289)*V(351) + A(344) = RCT(344)*V(336)*V(347) + A(345) = RCT(345)*V(98)*V(336) + A(346) = RCT(346)*V(98)*V(98) + A(347) = RCT(347)*V(45) + A(348) = RCT(348)*V(98)*V(338) + A(349) = RCT(349)*V(336)*V(344) + A(350) = RCT(350)*V(331)*V(356) + A(351) = RCT(351)*V(331)*V(341) + A(352) = RCT(352)*V(172)*V(343) + A(353) = RCT(353)*V(75)*V(343) + A(354) = RCT(354)*V(287)*V(343) + A(355) = RCT(355)*V(336)*V(341) + A(356) = RCT(356)*V(336)*V(338) + A(357) = RCT(357)*V(336)*V(336) + A(358) = RCT(358)*V(47) + A(359) = RCT(359)*V(55)*V(343) + A(360) = RCT(360)*V(265)*V(343) + A(361) = RCT(361)*V(249)*V(343) + A(362) = RCT(362)*V(317)*V(335) + A(363) = RCT(363)*V(317)*V(338) + A(364) = RCT(364)*V(317)*V(345) + A(365) = RCT(365)*V(317)*V(353) + A(366) = RCT(366)*V(317)*V(353)*V(353) + A(367) = RCT(367)*V(317)*V(356) + A(368) = RCT(368)*V(317)*V(355) + A(369) = RCT(369)*V(244)*V(335) + A(370) = RCT(370)*V(244)*V(338) + A(371) = RCT(371)*V(244)*V(345) + A(372) = RCT(372)*V(244)*V(355) + A(373) = RCT(373)*V(244)*V(353) + A(374) = RCT(374)*V(244)*V(353) + A(375) = RCT(375)*V(194)*V(348) + A(376) = RCT(376)*V(222)*V(348) + A(377) = RCT(377)*V(170)*V(348) + A(378) = RCT(378)*V(170)*V(343) + A(379) = RCT(379)*V(170)*V(356) + A(380) = RCT(380)*V(222)*V(343) + A(381) = RCT(381)*V(222)*V(356) + A(382) = RCT(382)*V(194)*V(343) + A(383) = RCT(383)*V(194)*V(356) + A(384) = RCT(384)*V(281)*V(341) + A(385) = RCT(385)*V(281)*V(338) + A(386) = RCT(386)*V(281)*V(348) + A(387) = RCT(387)*V(111)*V(343) + A(388) = RCT(388)*V(139)*V(343) + A(389) = RCT(389)*V(227)*V(348) + A(390) = RCT(390)*V(227)*V(343) + A(391) = RCT(391)*V(261)*V(341) + A(392) = RCT(392)*V(261)*V(338) + A(393) = RCT(393)*V(261)*V(345) + A(394) = RCT(394)*V(59) + A(395) = RCT(395)*V(261)*V(348) + A(396) = RCT(396)*V(76)*V(343) + A(397) = RCT(397)*V(69)*V(343) + A(398) = RCT(398)*V(282)*V(341) + A(399) = RCT(399)*V(282)*V(338) + A(400) = RCT(400)*V(282)*V(348) + A(401) = RCT(401)*V(282)*V(334) + A(402) = RCT(402)*V(163)*V(343) + A(403) = RCT(403)*V(179)*V(343) + A(404) = RCT(404)*V(276)*V(341) + A(405) = RCT(405)*V(276)*V(338) + A(406) = RCT(406)*V(276)*V(348) + A(407) = RCT(407)*V(141)*V(343) + A(408) = RCT(408)*V(112)*V(343) + A(409) = RCT(409)*V(132)*V(343) + A(410) = RCT(410)*V(275)*V(341) + A(411) = RCT(411)*V(275)*V(338) + A(412) = RCT(412)*V(275)*V(338) + A(413) = RCT(413)*V(275)*V(334) + A(414) = RCT(414)*V(275)*V(348) + A(415) = RCT(415)*V(164)*V(343) + A(416) = RCT(416)*V(165)*V(343) + A(417) = RCT(417)*V(284)*V(341) + A(418) = RCT(418)*V(284)*V(338) + A(419) = RCT(419)*V(284)*V(348) + A(420) = RCT(420)*V(256)*V(343) + A(421) = RCT(421)*V(256)*V(356) + A(422) = RCT(422)*V(256)*V(348) + A(423) = RCT(423)*V(241)*V(343) + A(424) = RCT(424)*V(241)*V(356) + A(425) = RCT(425)*V(241)*V(348) + A(426) = RCT(426)*V(212)*V(343) + A(427) = RCT(427)*V(212)*V(356) + A(428) = RCT(428)*V(212)*V(348) + A(429) = RCT(429)*V(278)*V(338) + A(430) = RCT(430)*V(278)*V(341) + A(431) = RCT(431)*V(278)*V(348) + A(432) = RCT(432)*V(278)*V(334) + A(433) = RCT(433)*V(166)*V(343) + A(434) = RCT(434)*V(166)*V(348) + A(435) = RCT(435)*V(180)*V(343) + A(436) = RCT(436)*V(277)*V(341) + A(437) = RCT(437)*V(277)*V(338) + A(438) = RCT(438)*V(277)*V(345) + A(439) = RCT(439)*V(60) + A(440) = RCT(440)*V(277)*V(348) + A(441) = RCT(441)*V(171)*V(343) + A(442) = RCT(442)*V(134)*V(343) + A(443) = RCT(443)*V(294)*V(341) + A(444) = RCT(444)*V(294)*V(338) + A(445) = RCT(445)*V(294)*V(338) + A(446) = RCT(446)*V(294)*V(348) + A(447) = RCT(447)*V(234)*V(343) + A(448) = RCT(448)*V(234)*V(356) + A(449) = RCT(449)*V(234)*V(348) + A(450) = RCT(450)*V(196)*V(343) + A(451) = RCT(451)*V(196)*V(356) + A(452) = RCT(452)*V(196)*V(348) + A(453) = RCT(453)*V(263)*V(343) + A(454) = RCT(454)*V(263)*V(356) + A(455) = RCT(455)*V(263)*V(348) + A(456) = RCT(456)*V(281)*V(334) + A(457) = RCT(457)*V(281)*V(328) + A(458) = RCT(458)*V(276)*V(334) + A(459) = RCT(459)*V(276)*V(328) + A(460) = RCT(460)*V(284)*V(334) + A(461) = RCT(461)*V(284)*V(328) + A(462) = RCT(462)*V(294)*V(334) + A(463) = RCT(463)*V(294)*V(328) + A(464) = RCT(464)*V(261)*V(334) + A(465) = RCT(465)*V(261)*V(328) + A(466) = RCT(466)*V(277)*V(334) + A(467) = RCT(467)*V(277)*V(328) + A(468) = RCT(468)*V(280)*V(338) + A(469) = RCT(469)*V(292)*V(338) + A(470) = RCT(470)*V(280)*V(341) + A(471) = RCT(471)*V(292)*V(341) + A(472) = RCT(472)*V(280)*V(334) + A(473) = RCT(473)*V(292)*V(334) + A(474) = RCT(474)*V(280)*V(328) + A(475) = RCT(475)*V(292)*V(328) + A(476) = RCT(476)*V(280)*V(348) + A(477) = RCT(477)*V(292)*V(348) A(478) = RCT(478)*V(280)*V(280) - A(479) = RCT(479)*V(280)*V(289) - A(480) = RCT(480)*V(289)*V(289) - A(481) = RCT(481)*V(256)*V(345) - A(482) = RCT(482)*V(242)*V(345) - A(483) = RCT(483)*V(242)*V(341) - A(484) = RCT(484)*V(242)*V(351) - A(485) = RCT(485)*V(256)*V(351) - A(486) = RCT(486)*V(103) - A(487) = RCT(487)*V(45) - A(488) = RCT(488)*V(154)*V(345) - A(489) = RCT(489)*V(93)*V(345) - A(490) = RCT(490)*V(83)*V(345) - A(491) = RCT(491)*V(91)*V(345) - A(492) = RCT(492)*V(95)*V(345) - A(493) = RCT(493)*V(276)*V(341) - A(494) = RCT(494)*V(276)*V(345) - A(495) = RCT(495)*V(276)*V(345) - A(496) = RCT(496)*V(276)*V(345) - A(497) = RCT(497)*V(276)*V(345) - A(498) = RCT(498)*V(305)*V(337) - A(499) = RCT(499)*V(305)*V(337) - A(500) = RCT(500)*V(304)*V(337) - A(501) = RCT(501)*V(304)*V(337) - A(502) = RCT(502)*V(305) - A(503) = RCT(503)*V(305) - A(504) = RCT(504)*V(304) - A(505) = RCT(505)*V(304) - A(506) = RCT(506)*V(305)*V(305) - A(507) = RCT(507)*V(304)*V(304) - A(508) = RCT(508)*V(304)*V(305) - A(509) = RCT(509)*V(305)*V(305) - A(510) = RCT(510)*V(304)*V(304) - A(511) = RCT(511)*V(304)*V(305) - A(512) = RCT(512)*V(305)*V(328) - A(513) = RCT(513)*V(305)*V(328) - A(514) = RCT(514)*V(304)*V(328) - A(515) = RCT(515)*V(304)*V(328) - A(516) = RCT(516)*V(305)*V(346) - A(517) = RCT(517)*V(305)*V(346) - A(518) = RCT(518)*V(305)*V(346) - A(519) = RCT(519)*V(305)*V(346) - A(520) = RCT(520)*V(304)*V(346) - A(521) = RCT(521)*V(304)*V(346) - A(522) = RCT(522)*V(304)*V(346) - A(523) = RCT(523)*V(304)*V(346) - A(524) = RCT(524)*V(230)*V(345) - A(525) = RCT(525)*V(231)*V(345) - A(526) = RCT(526)*V(150)*V(345) - A(527) = RCT(527)*V(144)*V(345) - A(528) = RCT(528)*V(238)*V(345) - A(529) = RCT(529)*V(215)*V(345) - A(530) = RCT(530)*V(119)*V(345) - A(531) = RCT(531)*V(187)*V(345) - A(532) = RCT(532)*V(187)*V(345) - A(533) = RCT(533)*V(192)*V(345) - A(534) = RCT(534)*V(192)*V(345) - A(535) = RCT(535)*V(187)*V(345) - A(536) = RCT(536)*V(192)*V(345) - A(537) = RCT(537)*V(209)*V(345) - A(538) = RCT(538)*V(199)*V(345) - A(539) = RCT(539)*V(223) - A(540) = RCT(540)*V(223)*V(346) - A(541) = RCT(541)*V(223)*V(346) - A(542) = RCT(542)*V(223)*V(337) - A(543) = RCT(543)*V(224) - A(544) = RCT(544)*V(224)*V(346) - A(545) = RCT(545)*V(224)*V(346) - A(546) = RCT(546)*V(224)*V(337) - A(547) = RCT(547)*V(232) - A(548) = RCT(548)*V(232)*V(346) - A(549) = RCT(549)*V(232)*V(346) - A(550) = RCT(550)*V(232)*V(337) - A(551) = RCT(551)*V(128)*V(345) - A(552) = RCT(552)*V(151)*V(345) - A(553) = RCT(553)*V(151)*V(345) - A(554) = RCT(554)*V(152)*V(345) - A(555) = RCT(555)*V(152)*V(345) - A(556) = RCT(556)*V(286) - A(557) = RCT(557)*V(286) - A(558) = RCT(558)*V(286)*V(337) - A(559) = RCT(559)*V(286)*V(346) - A(560) = RCT(560)*V(286)*V(346) - A(561) = RCT(561)*V(285) - A(562) = RCT(562)*V(285) - A(563) = RCT(563)*V(285)*V(346) - A(564) = RCT(564)*V(285)*V(346) - A(565) = RCT(565)*V(285)*V(337) - A(566) = RCT(566)*V(243)*V(337) - A(567) = RCT(567)*V(243)*V(346) - A(568) = RCT(568)*V(243)*V(346) - A(569) = RCT(569)*V(243) - A(570) = RCT(570)*V(133)*V(346) - A(571) = RCT(571)*V(133)*V(337) - A(572) = RCT(572)*V(135)*V(346) - A(573) = RCT(573)*V(135)*V(337) - A(574) = RCT(574)*V(175)*V(345) - A(575) = RCT(575)*V(175)*V(345) - A(576) = RCT(576)*V(168)*V(345) - A(577) = RCT(577)*V(168)*V(345) - A(578) = RCT(578)*V(268)*V(345) - A(579) = RCT(579)*V(268)*V(345) - A(580) = RCT(580)*V(267)*V(345) - A(581) = RCT(581)*V(267)*V(345) - A(582) = RCT(582)*V(268)*V(345) - A(583) = RCT(583)*V(267)*V(345) - A(584) = RCT(584)*V(205) - A(585) = RCT(585)*V(205)*V(337) - A(586) = RCT(586)*V(205)*V(346) - A(587) = RCT(587)*V(205)*V(346) - A(588) = RCT(588)*V(190) - A(589) = RCT(589)*V(190)*V(337) - A(590) = RCT(590)*V(190)*V(346) - A(591) = RCT(591)*V(190)*V(346) - A(592) = RCT(592)*V(206) - A(593) = RCT(593)*V(207) - A(594) = RCT(594)*V(206)*V(337) - A(595) = RCT(595)*V(206)*V(346) - A(596) = RCT(596)*V(206)*V(346) - A(597) = RCT(597)*V(207)*V(337) - A(598) = RCT(598)*V(207)*V(346) - A(599) = RCT(599)*V(207)*V(346) - A(600) = RCT(600)*V(293)*V(337) - A(601) = RCT(601)*V(293)*V(346) - A(602) = RCT(602)*V(293)*V(346) - A(603) = RCT(603)*V(276)*V(351) - A(604) = RCT(604)*V(310)*V(337) - A(605) = RCT(605)*V(311)*V(337) - A(606) = RCT(606)*V(310)*V(310) - A(607) = RCT(607)*V(310)*V(311) - A(608) = RCT(608)*V(311)*V(311) - A(609) = RCT(609)*V(311)*V(328) - A(610) = RCT(610)*V(310)*V(328) - A(611) = RCT(611)*V(310)*V(324) - A(612) = RCT(612)*V(311)*V(324) - A(613) = RCT(613)*V(310)*V(351) - A(614) = RCT(614)*V(311)*V(351) - A(615) = RCT(615)*V(310)*V(346) - A(616) = RCT(616)*V(310)*V(346) - A(617) = RCT(617)*V(311)*V(346) - A(618) = RCT(618)*V(311)*V(346) - A(619) = RCT(619)*V(145)*F(3) - A(620) = RCT(620)*V(145) - A(621) = RCT(621)*V(222)*V(345) - A(622) = RCT(622)*V(186)*V(345) - A(623) = RCT(623)*V(222)*V(345) - A(624) = RCT(624)*V(186)*V(345) - A(625) = RCT(625)*V(186)*V(345) - A(626) = RCT(626)*V(222)*V(345) - A(627) = RCT(627)*V(186)*V(345) - A(628) = RCT(628)*V(186)*V(345) - A(629) = RCT(629)*V(226) - A(630) = RCT(630)*V(271) - A(631) = RCT(631)*V(271)*V(337) - A(632) = RCT(632)*V(226)*V(337) - A(633) = RCT(633)*V(271)*V(346) - A(634) = RCT(634)*V(271)*V(346) - A(635) = RCT(635)*V(226)*V(346) - A(636) = RCT(636)*V(226)*V(346) - A(637) = RCT(637)*V(301)*V(345) - A(638) = RCT(638)*V(301)*V(345) - A(639) = RCT(639)*V(182)*V(346) - A(640) = RCT(640)*V(182)*V(337) - A(641) = RCT(641)*V(299)*V(345) - A(642) = RCT(642)*V(180)*V(346) - A(643) = RCT(643)*V(180)*V(337) - A(644) = RCT(644)*V(314)*V(345) - A(645) = RCT(645)*V(314)*V(341) - A(646) = RCT(646)*V(309)*V(345) - A(647) = RCT(647)*V(309)*V(345) - A(648) = RCT(648)*V(309)*V(341) - A(649) = RCT(649)*V(309)*V(351) - A(650) = RCT(650)*V(302)*V(345) - A(651) = RCT(651)*V(288)*V(345) - A(652) = RCT(652)*V(287)*V(345) - A(653) = RCT(653)*V(248)*V(345) - A(654) = RCT(654)*V(216)*V(345) - A(655) = RCT(655)*V(171)*V(346) - A(656) = RCT(656)*V(171)*V(337) - A(657) = RCT(657)*V(171)*V(335) - A(658) = RCT(658)*V(172)*V(346) - A(659) = RCT(659)*V(172)*V(337) - A(660) = RCT(660)*V(172)*V(335) - A(661) = RCT(661)*V(194)*V(345) - A(662) = RCT(662)*V(185)*V(345) - A(663) = RCT(663)*V(131)*V(345) - A(664) = RCT(664)*V(227)*V(345) - A(665) = RCT(665)*V(208)*V(345) - A(666) = RCT(666)*V(153)*V(345) - A(667) = RCT(667)*V(254)*V(337) - A(668) = RCT(668)*V(254)*V(346) - A(669) = RCT(669)*V(254)*V(346) - A(670) = RCT(670)*V(253)*V(337) - A(671) = RCT(671)*V(259)*V(337) - A(672) = RCT(672)*V(159)*V(345) - A(673) = RCT(673)*V(253) - A(674) = RCT(674)*V(253)*V(346) - A(675) = RCT(675)*V(253)*V(346) - A(676) = RCT(676)*V(259)*V(346) - A(677) = RCT(677)*V(259)*V(335) - A(678) = RCT(678)*V(308)*V(337) - A(679) = RCT(679)*V(308)*V(346) - A(680) = RCT(680)*V(308)*V(335) - A(681) = RCT(681)*V(308)*V(351) - A(682) = RCT(682)*V(308)*V(328) - A(683) = RCT(683)*V(184) - A(684) = RCT(684)*V(184)*V(345) - A(685) = RCT(685)*V(107)*V(345) - A(686) = RCT(686)*V(258)*V(345) - A(687) = RCT(687)*V(147)*V(345) - A(688) = RCT(688)*V(174)*V(345) - A(689) = RCT(689)*V(198)*V(345) - A(690) = RCT(690)*V(266)*V(345) - A(691) = RCT(691)*V(303)*V(345) - A(692) = RCT(692)*V(261)*V(351) - A(693) = RCT(693)*V(115)*V(345) - A(694) = RCT(694)*V(88)*V(345) - A(695) = RCT(695)*V(324)*V(337) - A(696) = RCT(696)*V(210)*V(345) - A(697) = RCT(697)*V(210)*V(345) - A(698) = RCT(698)*V(19)*V(345) - A(699) = RCT(699)*V(18)*V(337) - A(700) = RCT(700)*V(18)*V(346) - A(701) = RCT(701)*V(173)*V(345) - A(702) = RCT(702)*V(220)*V(345) - A(703) = RCT(703)*V(220)*V(351) - A(704) = RCT(704)*V(220)*V(341) - A(705) = RCT(705)*V(149)*V(345) - A(706) = RCT(706)*V(149)*V(351) - A(707) = RCT(707)*V(200)*V(345) - A(708) = RCT(708)*V(200)*V(351) - A(709) = RCT(709)*V(189)*V(346) - A(710) = RCT(710)*V(189)*V(337) - A(711) = RCT(711)*V(116)*V(345) - A(712) = RCT(712)*V(109)*V(341) - A(713) = RCT(713)*V(109)*V(345) - A(714) = RCT(714)*V(60)*V(345) - A(715) = RCT(715)*V(234)*V(337) - A(716) = RCT(716)*V(234)*V(346) - A(717) = RCT(717)*V(234)*V(351) - A(718) = RCT(718)*V(234)*V(328) - A(719) = RCT(719)*V(106) - A(720) = RCT(720)*V(106)*F(3) - A(721) = RCT(721)*V(70)*V(345) - A(722) = RCT(722)*V(136)*V(345) - A(723) = RCT(723)*V(136)*V(345) - A(724) = RCT(724)*V(143)*V(345) - A(725) = RCT(725)*V(82)*V(345) - A(726) = RCT(726)*V(101)*V(345) - A(727) = RCT(727)*V(263)*V(337) - A(728) = RCT(728)*V(263)*V(346) - A(729) = RCT(729)*V(263)*V(351) - A(730) = RCT(730)*V(263)*V(328) - A(731) = RCT(731)*V(263)*V(324) - A(732) = RCT(732)*V(58)*V(345) - A(733) = RCT(733)*V(121)*V(346) - A(734) = RCT(734)*V(121)*V(337) - A(735) = 7.09e-11*V(146)*V(345) - A(736) = RCT(736)*V(240)*V(346) - A(737) = RCT(737)*V(240)*V(337) - A(738) = RCT(738)*V(240)*V(335) - A(739) = RCT(739)*V(122) - A(740) = RCT(740)*V(122)*V(345) - A(741) = RCT(741)*V(195)*V(345) - A(742) = RCT(742)*V(195)*V(351) - A(743) = RCT(743)*V(158)*V(345) - A(744) = RCT(744)*V(158)*V(351) - A(745) = RCT(745)*V(202)*V(345) - A(746) = RCT(746)*V(202)*V(341) - A(747) = RCT(747)*V(202)*V(351) - A(748) = RCT(748)*V(204)*V(345) - A(749) = RCT(749)*V(204)*V(351) - A(750) = RCT(750)*V(235)*V(337) - A(751) = RCT(751)*V(235)*V(346) - A(752) = RCT(752)*V(235)*V(335) - A(753) = RCT(753)*V(71)*V(345) - A(754) = RCT(754)*V(90) - A(755) = RCT(755)*V(90)*V(345) - A(756) = RCT(756)*V(236)*V(335) - A(757) = RCT(757)*V(236)*V(346) - A(758) = RCT(758)*V(236)*V(351) - A(759) = RCT(759)*V(236)*V(337) - A(760) = RCT(760)*V(117)*V(345) - A(761) = RCT(761)*V(203)*V(341) - A(762) = RCT(762)*V(203)*V(335) - A(763) = RCT(763)*V(269)*V(345) - A(764) = RCT(764)*V(269)*V(351) - A(765) = RCT(765)*V(236)*V(328) - A(766) = RCT(766)*V(235)*V(328) - A(767) = RCT(767)*V(221)*V(345) - A(768) = RCT(768)*V(221)*V(341) - A(769) = RCT(769)*V(221) - A(770) = RCT(770)*V(201)*V(345) - A(771) = RCT(771)*V(201)*V(341) - A(772) = RCT(772)*V(201) - A(773) = RCT(773)*V(13)*V(337) - A(774) = RCT(774)*V(13)*V(346) - A(775) = RCT(775)*V(22)*V(337) - A(776) = RCT(776)*V(22)*V(346) - A(777) = RCT(777)*V(27)*V(337) - A(778) = RCT(778)*V(27)*V(346) - A(779) = RCT(779)*V(328)*V(351) - A(780) = RCT(780)*V(41)*V(345) - A(781) = RCT(781)*V(337) - A(782) = RCT(782)*V(335) - A(783) = RCT(783)*V(351) - A(784) = RCT(784)*V(351) - A(785) = RCT(785)*V(351) - A(786) = RCT(786)*V(214)*V(336) - A(787) = RCT(787)*V(214)*V(339) - A(788) = RCT(788)*V(214) - A(789) = RCT(789)*V(214)*V(353) - A(790) = RCT(790)*V(214)*V(344) - A(791) = RCT(791)*V(345)*V(353) - A(792) = RCT(792)*V(344)*V(345) - A(793) = RCT(793)*V(218)*V(336) - A(794) = RCT(794)*V(218)*V(339) - A(795) = RCT(795)*V(317)*V(336) - A(796) = RCT(796)*V(317)*V(339) - A(797) = RCT(797)*V(317)*V(352) - A(798) = RCT(798)*V(317)*V(349) - A(799) = RCT(799)*V(317)*V(350) - A(800) = RCT(800)*V(317)*V(353) - A(801) = RCT(801)*V(317)*V(344) - A(802) = RCT(802)*V(297)*V(353) - A(803) = RCT(803)*V(297)*V(344) - A(804) = RCT(804)*V(297)*V(339) - A(805) = RCT(805)*V(297)*V(349) - A(806) = RCT(806)*V(297)*V(350) - A(807) = RCT(807)*V(297)*V(352) - A(808) = RCT(808)*V(333)*V(339) - A(809) = RCT(809)*V(333)*V(352) - A(810) = RCT(810)*V(333)*V(353) - A(811) = RCT(811)*V(333)*V(344) - A(812) = RCT(812)*V(333)*V(348) - A(813) = RCT(813)*V(316)*V(352) - A(814) = RCT(814)*V(316)*V(339) - A(815) = RCT(815)*V(316)*V(353) - A(816) = RCT(816)*V(316)*V(344) - A(817) = RCT(817)*V(316)*V(349) - A(818) = RCT(818)*V(316)*V(350) - A(819) = RCT(819)*V(316)*V(348) - A(820) = RCT(820)*V(341)*V(352) - A(821) = RCT(821)*V(341)*V(349) - A(822) = RCT(822)*V(341)*V(350) - A(823) = RCT(823)*V(352) - A(824) = RCT(824)*V(352) - A(825) = RCT(825)*V(73) - A(826) = RCT(826)*V(73) - A(827) = RCT(827)*V(73) - A(828) = RCT(828)*V(330) - A(829) = RCT(829)*V(330) - A(830) = RCT(830)*V(44) - A(831) = RCT(831)*V(44) - A(832) = RCT(832)*V(44) - A(833) = RCT(833)*V(55) - A(834) = RCT(834)*V(55) - A(835) = RCT(835)*V(55) - A(836) = RCT(836)*V(42) - A(837) = RCT(837)*V(42) - A(838) = RCT(838)*V(42) - A(839) = RCT(839)*V(252) - A(840) = RCT(840)*V(252) - A(841) = RCT(841)*V(332) - A(842) = RCT(842)*V(332) - A(843) = RCT(843)*V(332)*V(336) - A(844) = RCT(844)*V(252)*V(349) - A(845) = RCT(845)*V(252)*V(350) - A(846) = RCT(846)*V(252)*V(353) - A(847) = RCT(847)*V(252)*V(344) - A(848) = RCT(848)*V(332)*V(349) - A(849) = RCT(849)*V(332)*V(350) - A(850) = RCT(850)*V(332)*V(353) - A(851) = RCT(851)*V(332)*V(344) - A(852) = RCT(852)*V(330)*V(349) - A(853) = RCT(853)*V(330)*V(350) - A(854) = RCT(854)*V(330)*V(353) - A(855) = RCT(855)*V(330)*V(344) - A(856) = RCT(856)*V(270) - A(857) = RCT(857)*V(294) - A(858) = RCT(858)*V(151) - A(859) = RCT(859)*V(152) - A(860) = RCT(860)*V(128) + A(479) = RCT(479)*V(280)*V(292) + A(480) = RCT(480)*V(292)*V(292) + A(481) = RCT(481)*V(260)*V(343) + A(482) = RCT(482)*V(246)*V(343) + A(483) = RCT(483)*V(246)*V(356) + A(484) = RCT(484)*V(246)*V(348) + A(485) = RCT(485)*V(260)*V(348) + A(486) = RCT(486)*V(106) + A(487) = RCT(487)*V(48) + A(488) = RCT(488)*V(156)*V(343) + A(489) = RCT(489)*V(96)*V(343) + A(490) = RCT(490)*V(86)*V(343) + A(491) = RCT(491)*V(94)*V(343) + A(492) = RCT(492)*V(97)*V(343) + A(493) = RCT(493)*V(279)*V(356) + A(494) = RCT(494)*V(279)*V(343) + A(495) = RCT(495)*V(279)*V(343) + A(496) = RCT(496)*V(279)*V(343) + A(497) = RCT(497)*V(279)*V(343) + A(498) = RCT(498)*V(314)*V(341) + A(499) = RCT(499)*V(314)*V(341) + A(500) = RCT(500)*V(315)*V(341) + A(501) = RCT(501)*V(315)*V(341) + A(502) = RCT(502)*V(314) + A(503) = RCT(503)*V(314) + A(504) = RCT(504)*V(315) + A(505) = RCT(505)*V(315) + A(506) = RCT(506)*V(314)*V(314) + A(507) = RCT(507)*V(315)*V(315) + A(508) = RCT(508)*V(314)*V(315) + A(509) = RCT(509)*V(314)*V(314) + A(510) = RCT(510)*V(315)*V(315) + A(511) = RCT(511)*V(314)*V(315) + A(512) = RCT(512)*V(314)*V(334) + A(513) = RCT(513)*V(314)*V(334) + A(514) = RCT(514)*V(315)*V(334) + A(515) = RCT(515)*V(315)*V(334) + A(516) = RCT(516)*V(314)*V(338) + A(517) = RCT(517)*V(314)*V(338) + A(518) = RCT(518)*V(314)*V(338) + A(519) = RCT(519)*V(314)*V(338) + A(520) = RCT(520)*V(315)*V(338) + A(521) = RCT(521)*V(315)*V(338) + A(522) = RCT(522)*V(315)*V(338) + A(523) = RCT(523)*V(315)*V(338) + A(524) = RCT(524)*V(233)*V(343) + A(525) = RCT(525)*V(231)*V(343) + A(526) = RCT(526)*V(150)*V(343) + A(527) = RCT(527)*V(151)*V(343) + A(528) = RCT(528)*V(242)*V(343) + A(529) = RCT(529)*V(218)*V(343) + A(530) = RCT(530)*V(122)*V(343) + A(531) = RCT(531)*V(191)*V(343) + A(532) = RCT(532)*V(191)*V(343) + A(533) = RCT(533)*V(195)*V(343) + A(534) = RCT(534)*V(195)*V(343) + A(535) = RCT(535)*V(191)*V(343) + A(536) = RCT(536)*V(195)*V(343) + A(537) = RCT(537)*V(213)*V(343) + A(538) = RCT(538)*V(202)*V(343) + A(539) = RCT(539)*V(228) + A(540) = RCT(540)*V(228)*V(338) + A(541) = RCT(541)*V(228)*V(338) + A(542) = RCT(542)*V(228)*V(341) + A(543) = RCT(543)*V(226) + A(544) = RCT(544)*V(226)*V(338) + A(545) = RCT(545)*V(226)*V(338) + A(546) = RCT(546)*V(226)*V(341) + A(547) = RCT(547)*V(235) + A(548) = RCT(548)*V(235)*V(338) + A(549) = RCT(549)*V(235)*V(338) + A(550) = RCT(550)*V(235)*V(341) + A(551) = RCT(551)*V(131)*V(343) + A(552) = RCT(552)*V(157)*V(343) + A(553) = RCT(553)*V(157)*V(343) + A(554) = RCT(554)*V(159)*V(343) + A(555) = RCT(555)*V(159)*V(343) + A(556) = RCT(556)*V(289) + A(557) = RCT(557)*V(289) + A(558) = RCT(558)*V(289)*V(341) + A(559) = RCT(559)*V(289)*V(338) + A(560) = RCT(560)*V(289)*V(338) + A(561) = RCT(561)*V(288) + A(562) = RCT(562)*V(288) + A(563) = RCT(563)*V(288)*V(338) + A(564) = RCT(564)*V(288)*V(338) + A(565) = RCT(565)*V(288)*V(341) + A(566) = RCT(566)*V(245)*V(341) + A(567) = RCT(567)*V(245)*V(338) + A(568) = RCT(568)*V(245)*V(338) + A(569) = RCT(569)*V(245) + A(570) = RCT(570)*V(137)*V(338) + A(571) = RCT(571)*V(137)*V(341) + A(572) = RCT(572)*V(136)*V(338) + A(573) = RCT(573)*V(136)*V(341) + A(574) = RCT(574)*V(175)*V(343) + A(575) = RCT(575)*V(175)*V(343) + A(576) = RCT(576)*V(177)*V(343) + A(577) = RCT(577)*V(177)*V(343) + A(578) = RCT(578)*V(271)*V(343) + A(579) = RCT(579)*V(271)*V(343) + A(580) = RCT(580)*V(270)*V(343) + A(581) = RCT(581)*V(270)*V(343) + A(582) = RCT(582)*V(271)*V(343) + A(583) = RCT(583)*V(270)*V(343) + A(584) = RCT(584)*V(210) + A(585) = RCT(585)*V(210)*V(341) + A(586) = RCT(586)*V(210)*V(338) + A(587) = RCT(587)*V(210)*V(338) + A(588) = RCT(588)*V(186) + A(589) = RCT(589)*V(186)*V(341) + A(590) = RCT(590)*V(186)*V(338) + A(591) = RCT(591)*V(186)*V(338) + A(592) = RCT(592)*V(209) + A(593) = RCT(593)*V(208) + A(594) = RCT(594)*V(209)*V(341) + A(595) = RCT(595)*V(209)*V(338) + A(596) = RCT(596)*V(209)*V(338) + A(597) = RCT(597)*V(208)*V(341) + A(598) = RCT(598)*V(208)*V(338) + A(599) = RCT(599)*V(208)*V(338) + A(600) = RCT(600)*V(299)*V(341) + A(601) = RCT(601)*V(299)*V(338) + A(602) = RCT(602)*V(299)*V(338) + A(603) = RCT(603)*V(279)*V(348) + A(604) = RCT(604)*V(308)*V(341) + A(605) = RCT(605)*V(310)*V(341) + A(606) = RCT(606)*V(308)*V(308) + A(607) = RCT(607)*V(308)*V(310) + A(608) = RCT(608)*V(310)*V(310) + A(609) = RCT(609)*V(310)*V(334) + A(610) = RCT(610)*V(308)*V(334) + A(611) = RCT(611)*V(308)*V(328) + A(612) = RCT(612)*V(310)*V(328) + A(613) = RCT(613)*V(308)*V(348) + A(614) = RCT(614)*V(310)*V(348) + A(615) = RCT(615)*V(308)*V(338) + A(616) = RCT(616)*V(308)*V(338) + A(617) = RCT(617)*V(310)*V(338) + A(618) = RCT(618)*V(310)*V(338) + A(619) = RCT(619)*V(147)*F(3) + A(620) = RCT(620)*V(147) + A(621) = RCT(621)*V(225)*V(343) + A(622) = RCT(622)*V(188)*V(343) + A(623) = RCT(623)*V(225)*V(343) + A(624) = RCT(624)*V(188)*V(343) + A(625) = RCT(625)*V(188)*V(343) + A(626) = RCT(626)*V(225)*V(343) + A(627) = RCT(627)*V(188)*V(343) + A(628) = RCT(628)*V(188)*V(343) + A(629) = RCT(629)*V(236) + A(630) = RCT(630)*V(273) + A(631) = RCT(631)*V(273)*V(341) + A(632) = RCT(632)*V(236)*V(341) + A(633) = RCT(633)*V(273)*V(338) + A(634) = RCT(634)*V(273)*V(338) + A(635) = RCT(635)*V(236)*V(338) + A(636) = RCT(636)*V(236)*V(338) + A(637) = RCT(637)*V(305)*V(343) + A(638) = RCT(638)*V(305)*V(343) + A(639) = RCT(639)*V(185)*V(338) + A(640) = RCT(640)*V(185)*V(341) + A(641) = RCT(641)*V(303)*V(343) + A(642) = RCT(642)*V(181)*V(338) + A(643) = RCT(643)*V(181)*V(341) + A(644) = RCT(644)*V(318)*V(343) + A(645) = RCT(645)*V(318)*V(356) + A(646) = RCT(646)*V(313)*V(343) + A(647) = RCT(647)*V(313)*V(343) + A(648) = RCT(648)*V(313)*V(356) + A(649) = RCT(649)*V(313)*V(348) + A(650) = RCT(650)*V(306)*V(343) + A(651) = RCT(651)*V(291)*V(343) + A(652) = RCT(652)*V(290)*V(343) + A(653) = RCT(653)*V(251)*V(343) + A(654) = RCT(654)*V(220)*V(343) + A(655) = RCT(655)*V(173)*V(338) + A(656) = RCT(656)*V(173)*V(341) + A(657) = RCT(657)*V(173)*V(345) + A(658) = RCT(658)*V(174)*V(338) + A(659) = RCT(659)*V(174)*V(341) + A(660) = RCT(660)*V(174)*V(345) + A(661) = RCT(661)*V(197)*V(343) + A(662) = RCT(662)*V(190)*V(343) + A(663) = RCT(663)*V(135)*V(343) + A(664) = RCT(664)*V(230)*V(343) + A(665) = RCT(665)*V(211)*V(343) + A(666) = RCT(666)*V(155)*V(343) + A(667) = RCT(667)*V(258)*V(341) + A(668) = RCT(668)*V(258)*V(338) + A(669) = RCT(669)*V(258)*V(338) + A(670) = RCT(670)*V(257)*V(341) + A(671) = RCT(671)*V(262)*V(341) + A(672) = RCT(672)*V(161)*V(343) + A(673) = RCT(673)*V(257) + A(674) = RCT(674)*V(257)*V(338) + A(675) = RCT(675)*V(257)*V(338) + A(676) = RCT(676)*V(262)*V(338) + A(677) = RCT(677)*V(262)*V(345) + A(678) = RCT(678)*V(312)*V(341) + A(679) = RCT(679)*V(312)*V(338) + A(680) = RCT(680)*V(312)*V(345) + A(681) = RCT(681)*V(312)*V(348) + A(682) = RCT(682)*V(312)*V(334) + A(683) = RCT(683)*V(189) + A(684) = RCT(684)*V(189)*V(343) + A(685) = RCT(685)*V(109)*V(343) + A(686) = RCT(686)*V(259)*V(343) + A(687) = RCT(687)*V(149)*V(343) + A(688) = RCT(688)*V(178)*V(343) + A(689) = RCT(689)*V(198)*V(343) + A(690) = RCT(690)*V(269)*V(343) + A(691) = RCT(691)*V(307)*V(343) + A(692) = RCT(692)*V(265)*V(348) + A(693) = RCT(693)*V(116)*V(343) + A(694) = RCT(694)*V(92)*V(343) + A(695) = RCT(695)*V(328)*V(341) + A(696) = RCT(696)*V(214)*V(343) + A(697) = RCT(697)*V(214)*V(343) + A(698) = RCT(698)*V(19)*V(343) + A(699) = RCT(699)*V(18)*V(341) + A(700) = RCT(700)*V(18)*V(338) + A(701) = RCT(701)*V(176)*V(343) + A(702) = RCT(702)*V(223)*V(343) + A(703) = RCT(703)*V(223)*V(348) + A(704) = RCT(704)*V(223)*V(356) + A(705) = RCT(705)*V(148)*V(343) + A(706) = RCT(706)*V(148)*V(348) + A(707) = RCT(707)*V(203)*V(343) + A(708) = RCT(708)*V(203)*V(348) + A(709) = RCT(709)*V(193)*V(338) + A(710) = RCT(710)*V(193)*V(341) + A(711) = RCT(711)*V(117)*V(343) + A(712) = RCT(712)*V(120)*V(356) + A(713) = RCT(713)*V(120)*V(343) + A(714) = RCT(714)*V(63)*V(343) + A(715) = RCT(715)*V(239)*V(341) + A(716) = RCT(716)*V(239)*V(338) + A(717) = RCT(717)*V(239)*V(348) + A(718) = RCT(718)*V(239)*V(334) + A(719) = RCT(719)*V(114) + A(720) = RCT(720)*V(114)*F(3) + A(721) = RCT(721)*V(73)*V(343) + A(722) = RCT(722)*V(138)*V(343) + A(723) = RCT(723)*V(138)*V(343) + A(724) = RCT(724)*V(145)*V(343) + A(725) = RCT(725)*V(85)*V(343) + A(726) = RCT(726)*V(103)*V(343) + A(727) = RCT(727)*V(266)*V(341) + A(728) = RCT(728)*V(266)*V(338) + A(729) = RCT(729)*V(266)*V(348) + A(730) = RCT(730)*V(266)*V(334) + A(731) = RCT(731)*V(266)*V(328) + A(732) = RCT(732)*V(61)*V(343) + A(733) = RCT(733)*V(124)*V(338) + A(734) = RCT(734)*V(124)*V(341) + A(735) = 7.09e-11*V(152)*V(343) + A(736) = RCT(736)*V(243)*V(338) + A(737) = RCT(737)*V(243)*V(341) + A(738) = RCT(738)*V(243)*V(345) + A(739) = RCT(739)*V(125) + A(740) = RCT(740)*V(125)*V(343) + A(741) = RCT(741)*V(199)*V(343) + A(742) = RCT(742)*V(199)*V(348) + A(743) = RCT(743)*V(162)*V(343) + A(744) = RCT(744)*V(162)*V(348) + A(745) = RCT(745)*V(205)*V(343) + A(746) = RCT(746)*V(205)*V(356) + A(747) = RCT(747)*V(205)*V(348) + A(748) = RCT(748)*V(207)*V(343) + A(749) = RCT(749)*V(207)*V(348) + A(750) = RCT(750)*V(237)*V(341) + A(751) = RCT(751)*V(237)*V(338) + A(752) = RCT(752)*V(237)*V(345) + A(753) = RCT(753)*V(77)*V(343) + A(754) = RCT(754)*V(105) + A(755) = RCT(755)*V(105)*V(343) + A(756) = RCT(756)*V(238)*V(345) + A(757) = RCT(757)*V(238)*V(338) + A(758) = RCT(758)*V(238)*V(348) + A(759) = RCT(759)*V(238)*V(341) + A(760) = RCT(760)*V(118)*V(343) + A(761) = RCT(761)*V(206)*V(356) + A(762) = RCT(762)*V(206)*V(345) + A(763) = RCT(763)*V(272)*V(343) + A(764) = RCT(764)*V(272)*V(348) + A(765) = RCT(765)*V(238)*V(334) + A(766) = RCT(766)*V(237)*V(334) + A(767) = RCT(767)*V(224)*V(343) + A(768) = RCT(768)*V(224)*V(356) + A(769) = RCT(769)*V(224) + A(770) = RCT(770)*V(204)*V(343) + A(771) = RCT(771)*V(204)*V(356) + A(772) = RCT(772)*V(204) + A(773) = RCT(773)*V(13)*V(341) + A(774) = RCT(774)*V(13)*V(338) + A(775) = RCT(775)*V(22)*V(341) + A(776) = RCT(776)*V(22)*V(338) + A(777) = RCT(777)*V(27)*V(341) + A(778) = RCT(778)*V(27)*V(338) + A(779) = RCT(779)*V(334)*V(348) + A(780) = RCT(780)*V(44)*V(343) + A(781) = RCT(781)*V(341) + A(782) = RCT(782)*V(345) + A(783) = RCT(783)*V(348) + A(784) = RCT(784)*V(348) + A(785) = RCT(785)*V(348) + A(786) = RCT(786)*V(217)*V(353) + A(787) = RCT(787)*V(217)*V(340) + A(788) = RCT(788)*V(217) + A(789) = RCT(789)*V(217)*V(339) + A(790) = RCT(790)*V(217)*V(346) + A(791) = RCT(791)*V(339)*V(343) + A(792) = RCT(792)*V(343)*V(346) + A(793) = RCT(793)*V(221)*V(353) + A(794) = RCT(794)*V(221)*V(340) + A(795) = RCT(795)*V(321)*V(353) + A(796) = RCT(796)*V(321)*V(340) + A(797) = RCT(797)*V(321)*V(354) + A(798) = RCT(798)*V(321)*V(349) + A(799) = RCT(799)*V(321)*V(350) + A(800) = RCT(800)*V(321)*V(339) + A(801) = RCT(801)*V(321)*V(346) + A(802) = RCT(802)*V(301)*V(339) + A(803) = RCT(803)*V(301)*V(346) + A(804) = RCT(804)*V(301)*V(340) + A(805) = RCT(805)*V(301)*V(349) + A(806) = RCT(806)*V(301)*V(350) + A(807) = RCT(807)*V(301)*V(354) + A(808) = RCT(808)*V(332)*V(340) + A(809) = RCT(809)*V(332)*V(354) + A(810) = RCT(810)*V(332)*V(339) + A(811) = RCT(811)*V(332)*V(346) + A(812) = RCT(812)*V(332)*V(355) + A(813) = RCT(813)*V(320)*V(354) + A(814) = RCT(814)*V(320)*V(340) + A(815) = RCT(815)*V(320)*V(339) + A(816) = RCT(816)*V(320)*V(346) + A(817) = RCT(817)*V(320)*V(349) + A(818) = RCT(818)*V(320)*V(350) + A(819) = RCT(819)*V(320)*V(355) + A(820) = RCT(820)*V(354)*V(356) + A(821) = RCT(821)*V(349)*V(356) + A(822) = RCT(822)*V(350)*V(356) + A(823) = RCT(823)*V(354) + A(824) = RCT(824)*V(354) + A(825) = RCT(825)*V(75) + A(826) = RCT(826)*V(75) + A(827) = RCT(827)*V(75) + A(828) = RCT(828)*V(287) + A(829) = RCT(829)*V(287) + A(830) = RCT(830)*V(47) + A(831) = RCT(831)*V(47) + A(832) = RCT(832)*V(47) + A(833) = RCT(833)*V(58) + A(834) = RCT(834)*V(58) + A(835) = RCT(835)*V(58) + A(836) = RCT(836)*V(45) + A(837) = RCT(837)*V(45) + A(838) = RCT(838)*V(45) + A(839) = RCT(839)*V(254) + A(840) = RCT(840)*V(254) + A(841) = RCT(841)*V(296) + A(842) = RCT(842)*V(296) + A(843) = RCT(843)*V(296)*V(353) + A(844) = RCT(844)*V(254)*V(349) + A(845) = RCT(845)*V(254)*V(350) + A(846) = RCT(846)*V(254)*V(339) + A(847) = RCT(847)*V(254)*V(346) + A(848) = RCT(848)*V(296)*V(349) + A(849) = RCT(849)*V(296)*V(350) + A(850) = RCT(850)*V(296)*V(339) + A(851) = RCT(851)*V(296)*V(346) + A(852) = RCT(852)*V(287)*V(349) + A(853) = RCT(853)*V(287)*V(350) + A(854) = RCT(854)*V(287)*V(339) + A(855) = RCT(855)*V(287)*V(346) + A(856) = RCT(856)*V(274) + A(857) = RCT(857)*V(298) + A(858) = RCT(858)*V(157) + A(859) = RCT(859)*V(159) + A(860) = RCT(860)*V(131) A(861) = RCT(861)*V(24) - A(862) = RCT(862)*V(302) - A(863) = RCT(863)*V(251) - A(864) = RCT(864)*V(256) - A(865) = RCT(865)*V(242) - A(866) = RCT(866)*V(154) - A(867) = RCT(867)*V(115) - A(868) = RCT(868)*V(107) - A(869) = RCT(869)*V(268) + A(862) = RCT(862)*V(306) + A(863) = RCT(863)*V(255) + A(864) = RCT(864)*V(260) + A(865) = RCT(865)*V(246) + A(866) = RCT(866)*V(156) + A(867) = RCT(867)*V(116) + A(868) = RCT(868)*V(109) + A(869) = RCT(869)*V(271) A(870) = RCT(870)*V(175) - A(871) = RCT(871)*V(168) - A(872) = RCT(872)*V(267) - A(873) = RCT(873)*V(215) - A(874) = RCT(874)*V(186) - A(875) = RCT(875)*V(222) - A(876) = RCT(876)*V(299) - A(877) = RCT(877)*V(266) - A(878) = RCT(878)*V(303) - A(879) = RCT(879)*V(216) - A(880) = RCT(880)*V(248) - A(881) = RCT(881)*V(269) - A(882) = RCT(882)*V(341) - A(883) = RCT(883)*V(341) - A(884) = RCT(884)*F(3) - A(885) = RCT(885)*V(335) - A(886) = RCT(886)*V(264) - A(887) = RCT(887)*V(164) - A(888) = RCT(888)*V(325) - A(889) = RCT(889)*V(325) - A(890) = RCT(890)*V(327) - A(891) = RCT(891)*V(239) - A(892) = RCT(892)*V(108) - A(893) = RCT(893)*V(108) - A(894) = RCT(894)*V(351) - A(895) = RCT(895)*V(351) - A(896) = RCT(896)*V(214) - A(897) = RCT(897)*V(326) - A(898) = RCT(898)*V(326) - A(899) = RCT(899)*V(139) - A(900) = RCT(900)*V(126) - A(901) = RCT(901)*V(233) - A(902) = RCT(902)*V(146) - A(903) = RCT(903)*V(298) - A(904) = RCT(904)*V(295) - A(905) = RCT(905)*V(295) - A(906) = RCT(906)*V(292) - A(907) = RCT(907)*V(306) - A(908) = RCT(908)*V(270) - A(909) = RCT(909)*V(270) - A(910) = RCT(910)*V(270) - A(911) = RCT(911)*V(294) - A(912) = RCT(912)*V(314) - A(913) = RCT(913)*V(314) - A(914) = RCT(914)*V(314) - A(915) = RCT(915)*V(309) - A(916) = RCT(916)*V(307) - A(917) = RCT(917)*V(125) - A(918) = RCT(918)*V(118) - A(919) = RCT(919)*V(99) - A(920) = RCT(920)*V(100) - A(921) = RCT(921)*V(97) - A(922) = RCT(922)*V(98) - A(923) = RCT(923)*V(102) - A(924) = RCT(924)*V(123) - A(925) = RCT(925)*V(155) - A(926) = RCT(926)*V(251) - A(927) = RCT(927)*V(196) - A(928) = RCT(928)*V(116) - A(929) = RCT(929)*V(279) - A(930) = RCT(930)*V(92) - A(931) = RCT(931)*V(148) - A(932) = RCT(932)*V(347) - A(933) = RCT(933)*V(316) - A(934) = RCT(934)*V(218) - A(935) = RCT(935)*V(218) - A(936) = RCT(936)*V(59) - A(937) = RCT(937)*V(81) - A(938) = RCT(938)*V(78) - A(939) = RCT(939)*V(105) - A(940) = RCT(940)*V(181) - A(941) = RCT(941)*V(79) - A(942) = RCT(942)*V(157) - A(943) = RCT(943)*V(245) - A(944) = RCT(944)*V(338) - A(945) = RCT(945)*V(120) - A(946) = RCT(946)*V(76) - A(947) = RCT(947)*V(297) - A(948) = RCT(948)*V(317) - A(949) = RCT(949)*V(317) - A(950) = RCT(950)*V(333) - A(951) = RCT(951)*V(43) - A(952) = RCT(952)*V(46) - A(953) = RCT(953)*V(47) - A(954) = RCT(954)*V(48) - A(955) = RCT(955)*V(49) - A(956) = RCT(956)*V(50) - A(957) = RCT(957)*V(51) - A(958) = RCT(958)*V(84) - A(959) = RCT(959)*V(85) - A(960) = RCT(960)*V(86) - A(961) = RCT(961)*V(87) - A(962) = RCT(962)*V(53) - A(963) = RCT(963)*V(61) + A(871) = RCT(871)*V(177) + A(872) = RCT(872)*V(270) + A(873) = RCT(873)*V(218) + A(874) = RCT(874)*V(188) + A(875) = RCT(875)*V(225) + A(876) = RCT(876)*V(303) + A(877) = RCT(877)*V(269) + A(878) = RCT(878)*V(307) + A(879) = RCT(879)*V(220) + A(880) = RCT(880)*V(251) + A(881) = RCT(881)*V(272) + A(882) = RCT(882)*V(267)*V(355) + A(883) = RCT(883)*V(355)*V(356) + A(884) = RCT(884)*V(355) + A(885) = RCT(885)*V(345)*V(355) + A(886) = RCT(886)*V(329)*V(355) + A(887) = RCT(887)*V(93) + A(888) = RCT(888)*V(93)*V(343)*V(355) + A(889) = RCT(889)*V(356) + A(890) = RCT(890)*V(356) + A(891) = RCT(891)*F(3) + A(892) = RCT(892)*V(345) + A(893) = RCT(893)*V(267) + A(894) = RCT(894)*V(167) + A(895) = RCT(895)*V(329) + A(896) = RCT(896)*V(329) + A(897) = RCT(897)*V(333) + A(898) = RCT(898)*V(240) + A(899) = RCT(899)*V(110) + A(900) = RCT(900)*V(110) + A(901) = RCT(901)*V(348) + A(902) = RCT(902)*V(348) + A(903) = RCT(903)*V(217) + A(904) = RCT(904)*V(330) + A(905) = RCT(905)*V(330) + A(906) = RCT(906)*V(143) + A(907) = RCT(907)*V(129) + A(908) = RCT(908)*V(229) + A(909) = RCT(909)*V(152) + A(910) = RCT(910)*V(302) + A(911) = RCT(911)*V(297) + A(912) = RCT(912)*V(297) + A(913) = RCT(913)*V(295) + A(914) = RCT(914)*V(309) + A(915) = RCT(915)*V(274) + A(916) = RCT(916)*V(274) + A(917) = RCT(917)*V(274) + A(918) = RCT(918)*V(298) + A(919) = RCT(919)*V(318) + A(920) = RCT(920)*V(318) + A(921) = RCT(921)*V(318) + A(922) = RCT(922)*V(313) + A(923) = RCT(923)*V(311) + A(924) = RCT(924)*V(128) + A(925) = RCT(925)*V(121) + A(926) = RCT(926)*V(101) + A(927) = RCT(927)*V(102) + A(928) = RCT(928)*V(99) + A(929) = RCT(929)*V(100) + A(930) = RCT(930)*V(104) + A(931) = RCT(931)*V(126) + A(932) = RCT(932)*V(158) + A(933) = RCT(933)*V(255) + A(934) = RCT(934)*V(200) + A(935) = RCT(935)*V(117) + A(936) = RCT(936)*V(283) + A(937) = RCT(937)*V(95) + A(938) = RCT(938)*V(153) + A(939) = RCT(939)*V(347) + A(940) = RCT(940)*V(320) + A(941) = RCT(941)*V(221) + A(942) = RCT(942)*V(221) + A(943) = RCT(943)*V(62) + A(944) = RCT(944)*V(82) + A(945) = RCT(945)*V(79) + A(946) = RCT(946)*V(108) + A(947) = RCT(947)*V(184) + A(948) = RCT(948)*V(80) + A(949) = RCT(949)*V(160) + A(950) = RCT(950)*V(248) + A(951) = RCT(951)*V(344) + A(952) = RCT(952)*V(123) + A(953) = RCT(953)*V(78) + A(954) = RCT(954)*V(301) + A(955) = RCT(955)*V(321) + A(956) = RCT(956)*V(321) + A(957) = RCT(957)*V(332) + A(958) = RCT(958)*V(46) + A(959) = RCT(959)*V(49) + A(960) = RCT(960)*V(50) + A(961) = RCT(961)*V(51) + A(962) = RCT(962)*V(52) + A(963) = RCT(963)*V(53) A(964) = RCT(964)*V(54) - A(965) = RCT(965)*V(110) - A(966) = RCT(966)*V(170) - A(967) = RCT(967)*V(330) - A(968) = RCT(968)*V(284) - A(969) = RCT(969)*V(96) - A(970) = RCT(970)*V(62) - A(971) = RCT(971)*V(252) - A(972) = RCT(972)*V(332) - A(973) = RCT(973)*V(44) - A(974) = RCT(974)*V(52) - A(975) = RCT(975)*V(1) - A(976) = RCT(976)*V(3) - A(977) = RCT(977)*V(2) - A(978) = RCT(978)*V(42) - A(979) = RCT(979)*V(55) - A(980) = RCT(980)*V(77) - A(981) = RCT(981)*V(104) - A(982) = RCT(982)*V(80) - A(983) = RCT(983)*V(80) - A(984) = RCT(984)*V(244) - A(985) = RCT(985)*V(63) - A(986) = RCT(986)*V(68) - A(987) = RCT(987)*V(134) - A(988) = RCT(988)*V(346) - A(989) = RCT(989)*V(229) - A(990) = RCT(990)*V(261) - A(991) = RCT(991)*V(256) - A(992) = RCT(992)*V(242) - A(993) = RCT(993)*V(154) - A(994) = RCT(994)*V(65) - A(995) = RCT(995)*V(65) - A(996) = RCT(996)*V(64) - A(997) = RCT(997)*V(64) - A(998) = RCT(998)*V(93) - A(999) = RCT(999)*V(83) - A(1000) = RCT(1000)*V(91) - A(1001) = RCT(1001)*V(95) - A(1002) = RCT(1002)*V(88) - A(1003) = RCT(1003)*V(210) - A(1004) = RCT(1004)*V(115) - A(1005) = RCT(1005)*V(247) - A(1006) = RCT(1006)*V(208) - A(1007) = RCT(1007)*V(227) - A(1008) = RCT(1008)*V(288) - A(1009) = RCT(1009)*V(185) - A(1010) = RCT(1010)*V(194) - A(1011) = RCT(1011)*V(287) - A(1012) = RCT(1012)*V(159) - A(1013) = RCT(1013)*V(302) - A(1014) = RCT(1014)*V(248) - A(1015) = RCT(1015)*V(216) - A(1016) = RCT(1016)*V(187) - A(1017) = RCT(1017)*V(192) - A(1018) = RCT(1018)*V(209) - A(1019) = RCT(1019)*V(199) - A(1020) = RCT(1020)*V(230) - A(1021) = RCT(1021)*V(231) - A(1022) = RCT(1022)*V(150) - A(1023) = RCT(1023)*V(144) - A(1024) = RCT(1024)*V(268) - A(1025) = RCT(1025)*V(175) - A(1026) = RCT(1026)*V(168) - A(1027) = RCT(1027)*V(267) - A(1028) = RCT(1028)*V(222) - A(1029) = RCT(1029)*V(186) - A(1030) = RCT(1030)*V(186) - A(1031) = RCT(1031)*V(301) - A(1032) = RCT(1032)*V(299) - A(1033) = RCT(1033)*V(258) - A(1034) = RCT(1034)*V(258) - A(1035) = RCT(1035)*V(174) - A(1036) = RCT(1036)*V(198) - A(1037) = RCT(1037)*V(147) - A(1038) = RCT(1038)*V(303) + A(965) = RCT(965)*V(88) + A(966) = RCT(966)*V(89) + A(967) = RCT(967)*V(90) + A(968) = RCT(968)*V(91) + A(969) = RCT(969)*V(56) + A(970) = RCT(970)*V(64) + A(971) = RCT(971)*V(57) + A(972) = RCT(972)*V(119) + A(973) = RCT(973)*V(172) + A(974) = RCT(974)*V(287) + A(975) = RCT(975)*V(336) + A(976) = RCT(976)*V(98) + A(977) = RCT(977)*V(65) + A(978) = RCT(978)*V(254) + A(979) = RCT(979)*V(296) + A(980) = RCT(980)*V(47) + A(981) = RCT(981)*V(55) + A(982) = RCT(982)*V(1) + A(983) = RCT(983)*V(3) + A(984) = RCT(984)*V(2) + A(985) = RCT(985)*V(45) + A(986) = RCT(986)*V(58) + A(987) = RCT(987)*V(81) + A(988) = RCT(988)*V(107) + A(989) = RCT(989)*V(83) + A(990) = RCT(990)*V(83) + A(991) = RCT(991)*V(247) + A(992) = RCT(992)*V(66) + A(993) = RCT(993)*V(71) + A(994) = RCT(994)*V(146) + A(995) = RCT(995)*V(338) + A(996) = RCT(996)*V(234) + A(997) = RCT(997)*V(265) + A(998) = RCT(998)*V(260) + A(999) = RCT(999)*V(246) + A(1000) = RCT(1000)*V(156) + A(1001) = RCT(1001)*V(68) + A(1002) = RCT(1002)*V(68) + A(1003) = RCT(1003)*V(67) + A(1004) = RCT(1004)*V(67) + A(1005) = RCT(1005)*V(96) + A(1006) = RCT(1006)*V(86) + A(1007) = RCT(1007)*V(94) + A(1008) = RCT(1008)*V(97) + A(1009) = RCT(1009)*V(92) + A(1010) = RCT(1010)*V(214) + A(1011) = RCT(1011)*V(116) + A(1012) = RCT(1012)*V(249) + A(1013) = RCT(1013)*V(211) + A(1014) = RCT(1014)*V(230) + A(1015) = RCT(1015)*V(291) + A(1016) = RCT(1016)*V(190) + A(1017) = RCT(1017)*V(197) + A(1018) = RCT(1018)*V(290) + A(1019) = RCT(1019)*V(161) + A(1020) = RCT(1020)*V(306) + A(1021) = RCT(1021)*V(251) + A(1022) = RCT(1022)*V(220) + A(1023) = RCT(1023)*V(191) + A(1024) = RCT(1024)*V(195) + A(1025) = RCT(1025)*V(213) + A(1026) = RCT(1026)*V(202) + A(1027) = RCT(1027)*V(233) + A(1028) = RCT(1028)*V(231) + A(1029) = RCT(1029)*V(150) + A(1030) = RCT(1030)*V(151) + A(1031) = RCT(1031)*V(271) + A(1032) = RCT(1032)*V(175) + A(1033) = RCT(1033)*V(177) + A(1034) = RCT(1034)*V(270) + A(1035) = RCT(1035)*V(225) + A(1036) = RCT(1036)*V(188) + A(1037) = RCT(1037)*V(188) + A(1038) = RCT(1038)*V(305) A(1039) = RCT(1039)*V(303) - A(1040) = RCT(1040)*V(266) - A(1041) = RCT(1041)*V(266) - A(1042) = RCT(1042)*V(136) - A(1043) = RCT(1043)*V(204) - A(1044) = RCT(1044)*V(71) - A(1045) = RCT(1045)*V(117) - A(1046) = RCT(1046)*V(269) - A(1047) = RCT(1047)*V(124) - A(1048) = RCT(1048)*V(111) - A(1049) = RCT(1049)*V(225) - A(1050) = RCT(1050)*V(74) - A(1051) = RCT(1051)*V(66) - A(1052) = RCT(1052)*V(160) - A(1053) = RCT(1053)*V(112) - A(1054) = RCT(1054)*V(161) - A(1055) = RCT(1055)*V(169) - A(1056) = RCT(1056)*V(130) - A(1057) = RCT(1057)*V(229) - A(1058) = RCT(1058)*V(255) + A(1040) = RCT(1040)*V(259) + A(1041) = RCT(1041)*V(259) + A(1042) = RCT(1042)*V(178) + A(1043) = RCT(1043)*V(198) + A(1044) = RCT(1044)*V(149) + A(1045) = RCT(1045)*V(307) + A(1046) = RCT(1046)*V(307) + A(1047) = RCT(1047)*V(269) + A(1048) = RCT(1048)*V(269) + A(1049) = RCT(1049)*V(138) + A(1050) = RCT(1050)*V(207) + A(1051) = RCT(1051)*V(77) + A(1052) = RCT(1052)*V(118) + A(1053) = RCT(1053)*V(272) + A(1054) = RCT(1054)*V(127) + A(1055) = RCT(1055)*V(111) + A(1056) = RCT(1056)*V(227) + A(1057) = RCT(1057)*V(76) + A(1058) = RCT(1058)*V(69) + A(1059) = RCT(1059)*V(163) + A(1060) = RCT(1060)*V(112) + A(1061) = RCT(1061)*V(164) + A(1062) = RCT(1062)*V(171) + A(1063) = RCT(1063)*V(134) + A(1064) = RCT(1064)*V(234) + A(1065) = RCT(1065)*V(256) !### Use Aout to return equation rates IF ( PRESENT( Aout ) ) Aout = A @@ -3271,8 +3293,8 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, Vdot, P_VAR, D_VAR, Aout ) &*A(459)+0.9*A(461)+0.9*A(463)+0.75*A(464)+2*A(465)+0.75*A(466)+A(467)+A(474)+0.407*A(493)+0.355*A(528)& &+A(570)+A(571)+A(572)+A(573)+A(611)+A(612)+0.429*A(639)+0.429*A(640)+0.23*A(652)+0.75*A(654)+0.097*A(661)& &+0.5*A(671)+0.41*A(672)+A(676)+0.5*A(678)+A(679)+A(681)+0.7*A(682)+A(689)+A(693)+0.5*A(695)+A(701)+A(731)+2& - &*A(736)+0.44*A(737)+0.35*A(750)+A(751)+A(755)+A(766)+0.3*A(899)+A(930)+A(1004)+1.238*A(1012)+A(1044)+A(1046)& - &+A(1050)+A(1051)+A(1055)+A(1056) + &*A(736)+0.44*A(737)+0.35*A(750)+A(751)+A(755)+A(766)+0.3*A(906)+A(937)+A(1011)+1.238*A(1019)+A(1051)+A(1053)& + &+A(1057)+A(1058)+A(1062)+A(1063) IF (DO_FUN(8)) & P_VAR(8) = A(486)+A(487) IF (DO_FUN(9)) & @@ -3324,9 +3346,15 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, Vdot, P_VAR, D_VAR, Aout ) IF (DO_FUN(32)) & P_VAR(32) = A(202)+A(368)+A(372) IF (DO_FUN(33)) & - P_VAR(33) = 2*A(12) + P_VAR(33) = A(7)+A(8)+A(9)+2*A(12) IF (DO_FUN(34)) & - P_VAR(34) = A(18)+A(22)+A(26)+A(36)+A(38)+A(56)+A(58)+A(60)+A(63)+A(65)+A(68)+2*A(73)+0.942*A(78)+A(80)+A(82)+A(85)& + P_VAR(34) = A(882)+A(883)+A(884)+A(885)+A(886)+2*A(888) +IF (DO_FUN(35)) & + P_VAR(35) = A(10) +IF (DO_FUN(36)) & + P_VAR(36) = A(887) +IF (DO_FUN(37)) & + P_VAR(37) = A(18)+A(22)+A(26)+A(36)+A(38)+A(56)+A(58)+A(60)+A(63)+A(65)+A(68)+2*A(73)+0.942*A(78)+A(80)+A(82)+A(85)& &+A(87)+2*A(88)+A(90)+A(91)+A(92)+A(93)+A(94)+A(95)+A(96)+A(97)+A(98)+A(100)+A(109)+A(123)+A(125)+A(126)& &+A(127)+0.15*A(128)+0.15*A(148)+A(156)+A(157)+0.15*A(158)+A(160)+A(211)+0.02*A(247)+A(248)+A(249)+A(273)& &+A(281)+A(282)+A(297)+0.1*A(309)+A(319)+A(322)+A(323)+A(352)+A(363)+A(364)+A(370)+A(371)+0.75*A(385)+0.5& @@ -3337,10 +3365,10 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, Vdot, P_VAR, D_VAR, Aout ) &+A(595)+A(596)+A(598)+A(599)+A(601)+A(602)+A(615)+A(616)+A(617)+A(618)+A(633)+A(634)+A(635)+A(636)+A(639)& &+A(642)+0.69*A(650)+A(655)+A(658)+A(668)+A(669)+0.13*A(671)+A(674)+A(675)+A(676)+0.13*A(678)+A(679)+A(684)& &+0.13*A(695)+0.89*A(709)+A(711)+0.995*A(716)+A(721)+A(728)+A(733)+A(736)+0.15*A(737)+A(739)+A(740)+0.15& - &*A(750)+A(751)+A(754)+A(755)+A(756)+A(757)+A(763)+2*A(884)+A(892)+0.3*A(899)+A(900)+A(927)+A(928)+A(982)& - &+A(985)+A(988)+A(998)+A(999)+A(1000)+A(1001)+0.3*A(1047) -IF (DO_FUN(35)) & - P_VAR(35) = A(1)+A(4)+A(8)+A(14)+A(15)+A(17)+A(42)+A(44)+2*A(49)+A(50)+A(52)+A(67)+A(76)+A(77)+A(86)+A(101)+A(110)& + &*A(750)+A(751)+A(754)+A(755)+A(756)+A(757)+A(763)+2*A(891)+A(899)+0.3*A(906)+A(907)+A(934)+A(935)+A(989)& + &+A(992)+A(995)+A(1005)+A(1006)+A(1007)+A(1008)+0.3*A(1054) +IF (DO_FUN(38)) & + P_VAR(38) = A(1)+A(4)+A(8)+A(14)+A(15)+A(17)+A(42)+A(44)+2*A(49)+A(50)+A(52)+A(67)+A(76)+A(77)+A(86)+A(101)+A(110)& &+A(124)+A(131)+A(150)+A(154)+A(155)+A(159)+A(162)+A(165)+A(166)+A(179)+2*A(196)+A(201)+2*A(207)+2*A(208)& &+A(212)+A(213)+A(214)+A(226)+A(229)+A(230)+A(231)+2*A(233)+A(235)+A(236)+A(237)+A(238)+2*A(240)+2*A(241)& &+A(244)+A(246)+2*A(251)+A(252)+0.66*A(253)+0.6*A(254)+0.44*A(257)+0.56*A(258)+0.19*A(261)+0.1*A(269)+0.05& @@ -3355,9 +3383,9 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, Vdot, P_VAR, D_VAR, Aout ) &+A(829)+2*A(830)+2*A(831)+2*A(832)+3*A(833)+3*A(834)+3*A(835)+4*A(836)+4*A(837)+4*A(838)+A(839)+A(840)& &+A(841)+A(842)+A(844)+A(845)+A(846)+A(847)+A(848)+A(849)+A(850)+A(851)+A(852)+A(853)+A(854)+A(855)+A(862)& &+A(863)+A(864)+A(865)+A(866)+A(869)+A(870)+A(871)+A(872)+A(874)+A(875)+2*A(876)+A(877)+A(878)+A(879)+A(880)& - &+2*A(895)+A(933)+2*A(946)+A(950)+A(967)+2*A(969)+A(994)+A(996) -IF (DO_FUN(36)) & - P_VAR(36) = A(34)+A(50)+0.05*A(51)+A(55)+A(80)+A(82)+A(83)+A(84)+A(85)+A(88)+A(108)+A(126)+0.56*A(150)+0.505*A(151)& + &+A(883)+A(885)+2*A(902)+A(940)+2*A(953)+A(957)+A(974)+2*A(976)+A(1001)+A(1003) +IF (DO_FUN(39)) & + P_VAR(39) = A(34)+A(50)+0.05*A(51)+A(55)+A(80)+A(82)+A(83)+A(84)+A(85)+A(88)+A(108)+A(126)+0.56*A(150)+0.505*A(151)& &+A(152)+A(160)+2*A(163)+A(164)+2*A(165)+A(166)+0.5*A(168)+A(216)+A(238)+A(252)+A(292)+A(315)+A(316)+A(317)& &+0.15*A(379)+0.1*A(383)+0.407*A(493)+0.6*A(496)+0.9*A(497)+0.6*A(503)+0.9*A(505)+A(509)+A(510)+A(511)+0.5& &*A(513)+0.5*A(515)+0.55*A(519)+0.55*A(523)+0.45*A(524)+0.37*A(525)+0.42*A(526)+0.23*A(527)+0.638*A(528)+1.5& @@ -3366,159 +3394,153 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, Vdot, P_VAR, D_VAR, Aout ) &*A(640)+0.28*A(645)+0.036*A(646)+0.12*A(648)+0.68*A(649)+0.77*A(652)+0.25*A(654)+0.75*A(661)+A(662)+A(664)& &+2*A(665)+0.84*A(666)+0.507*A(670)+0.325*A(671)+0.488*A(672)+A(673)+0.86*A(674)+0.65*A(676)+0.25*A(684)& &+A(685)+A(686)+0.888*A(687)+A(690)+A(696)+0.18*A(704)+0.12*A(707)+0.364*A(714)+0.2*A(724)+0.27*A(725)+0.3& - &*A(726)+2*A(740)+0.15*A(763)+0.15*A(764)+0.26*A(767)+0.5*A(768)+0.25*A(770)+0.5*A(771)+0.05*A(772)+A(888)& - &+A(889)+0.88*A(897)+A(898)+0.7*A(901)+A(902)+A(903)+A(905)+A(907)+2*A(908)+2*A(909)+A(910)+A(911)+A(912)& - &+A(913)+A(915)+A(986)+A(990)+A(1003)+A(1006)+0.5*A(1007)+0.571*A(1009)+0.875*A(1010)+0.77*A(1011)+A(1014)& - &+A(1015)+0.888*A(1020)+0.818*A(1021)+A(1022)+A(1023)+0.55*A(1024)+0.55*A(1027)+0.839*A(1031)+A(1033)+0.163& - &*A(1034)+A(1037)+A(1041)+A(1043)+A(1046)+A(1049)+A(1058) -IF (DO_FUN(37)) & - P_VAR(37) = A(24)+A(362)+A(369) -IF (DO_FUN(38)) & - P_VAR(38) = A(1)+A(7)+A(8)+A(9)+2*A(12)+A(202)+A(368)+A(372)+A(812)+A(819) -IF (DO_FUN(39)) & - P_VAR(39) = A(25)+A(231)+A(291) + &*A(726)+2*A(740)+0.15*A(763)+0.15*A(764)+0.26*A(767)+0.5*A(768)+0.25*A(770)+0.5*A(771)+0.05*A(772)+A(895)& + &+A(896)+0.88*A(904)+A(905)+0.7*A(908)+A(909)+A(910)+A(912)+A(914)+2*A(915)+2*A(916)+A(917)+A(918)+A(919)& + &+A(920)+A(922)+A(993)+A(997)+A(1010)+A(1013)+0.5*A(1014)+0.571*A(1016)+0.875*A(1017)+0.77*A(1018)+A(1021)& + &+A(1022)+0.888*A(1027)+0.818*A(1028)+A(1029)+A(1030)+0.55*A(1031)+0.55*A(1034)+0.839*A(1038)+A(1040)+0.163& + &*A(1041)+A(1044)+A(1048)+A(1050)+A(1053)+A(1056)+A(1065) IF (DO_FUN(40)) & - P_VAR(40) = A(19)+A(23)+0.06*A(365)+0.06*A(366)+A(373)+0.013*A(493)+0.045*A(645) + P_VAR(40) = A(24)+A(362)+A(369) IF (DO_FUN(41)) & - P_VAR(41) = 0 + P_VAR(41) = A(1)+A(7)+A(8)+A(9)+2*A(12)+A(202)+A(368)+A(372)+A(812)+A(819)+A(882)+A(883)+A(884)+A(885)+2*A(888) IF (DO_FUN(42)) & - P_VAR(42) = A(346) + P_VAR(42) = A(25)+A(231)+A(291) IF (DO_FUN(43)) & - P_VAR(43) = 0 + P_VAR(43) = A(19)+A(23)+0.06*A(365)+0.06*A(366)+A(373)+0.013*A(493)+0.045*A(645) IF (DO_FUN(44)) & - P_VAR(44) = 0.6*A(357) + P_VAR(44) = 0 IF (DO_FUN(45)) & - P_VAR(45) = A(864)+A(865)+A(866) + P_VAR(45) = A(346) IF (DO_FUN(46)) & - P_VAR(46) = 0.21*A(256) + P_VAR(46) = 0 IF (DO_FUN(47)) & - P_VAR(47) = 0.1*A(262) + P_VAR(47) = 0.6*A(357) IF (DO_FUN(48)) & - P_VAR(48) = 0.14*A(263) + P_VAR(48) = A(864)+A(865)+A(866) IF (DO_FUN(49)) & - P_VAR(49) = 0.1*A(269) + P_VAR(49) = 0.21*A(256) IF (DO_FUN(50)) & - P_VAR(50) = 0.1*A(270) + P_VAR(50) = 0.1*A(262) IF (DO_FUN(51)) & - P_VAR(51) = 0.14*A(271) + P_VAR(51) = 0.14*A(263) IF (DO_FUN(52)) & - P_VAR(52) = 0 + P_VAR(52) = 0.1*A(269) IF (DO_FUN(53)) & - P_VAR(53) = 0.55*A(265) + P_VAR(53) = 0.1*A(270) IF (DO_FUN(54)) & - P_VAR(54) = 0.25*A(272) + P_VAR(54) = 0.14*A(271) IF (DO_FUN(55)) & - P_VAR(55) = A(345) + P_VAR(55) = 0 IF (DO_FUN(56)) & - P_VAR(56) = A(393) + P_VAR(56) = 0.55*A(265) IF (DO_FUN(57)) & - P_VAR(57) = A(438) + P_VAR(57) = 0.25*A(272) IF (DO_FUN(58)) & - P_VAR(58) = 0.15*A(707) + P_VAR(58) = A(345) IF (DO_FUN(59)) & - P_VAR(59) = A(221) + P_VAR(59) = A(393) IF (DO_FUN(60)) & - P_VAR(60) = 0 + P_VAR(60) = A(438) IF (DO_FUN(61)) & - P_VAR(61) = 0.35*A(264) + P_VAR(61) = 0.15*A(707) IF (DO_FUN(62)) & - P_VAR(62) = A(334) + P_VAR(62) = A(221) IF (DO_FUN(63)) & - P_VAR(63) = A(250) + P_VAR(63) = 0 IF (DO_FUN(64)) & - P_VAR(64) = A(3)+A(784) + P_VAR(64) = 0.35*A(264) IF (DO_FUN(65)) & - P_VAR(65) = A(6)+A(785) + P_VAR(65) = A(334) IF (DO_FUN(66)) & - P_VAR(66) = 0.15*A(391)+0.25*A(464) + P_VAR(66) = A(250) IF (DO_FUN(67)) & - P_VAR(67) = A(988) + P_VAR(67) = A(3)+A(784) IF (DO_FUN(68)) & - P_VAR(68) = 0 + P_VAR(68) = A(6)+A(785) IF (DO_FUN(69)) & - P_VAR(69) = 0 + P_VAR(69) = 0.15*A(391)+0.25*A(464) IF (DO_FUN(70)) & - P_VAR(70) = 0.005*A(716) + P_VAR(70) = A(995) IF (DO_FUN(71)) & - P_VAR(71) = 0.65*A(750) + P_VAR(71) = 0 IF (DO_FUN(72)) & - P_VAR(72) = 0.56*A(158) + P_VAR(72) = 0 IF (DO_FUN(73)) & - P_VAR(73) = A(351) + P_VAR(73) = 0.005*A(716) IF (DO_FUN(74)) & - P_VAR(74) = 0.41*A(391) + P_VAR(74) = 0.56*A(158) IF (DO_FUN(75)) & - P_VAR(75) = 0 + P_VAR(75) = A(351) IF (DO_FUN(76)) & - P_VAR(76) = A(307) + P_VAR(76) = 0.41*A(391) IF (DO_FUN(77)) & - P_VAR(77) = A(844)+A(845)+A(848)+A(849)+A(852)+A(853) + P_VAR(77) = 0.65*A(750) IF (DO_FUN(78)) & - P_VAR(78) = 0.05*A(259) + P_VAR(78) = A(307) IF (DO_FUN(79)) & - P_VAR(79) = 0 + P_VAR(79) = 0.05*A(259) IF (DO_FUN(80)) & - P_VAR(80) = A(197) + P_VAR(80) = 0 IF (DO_FUN(81)) & - P_VAR(81) = 0.3*A(260) + P_VAR(81) = A(844)+A(845)+A(848)+A(849)+A(852)+A(853) IF (DO_FUN(82)) & - P_VAR(82) = 0 + P_VAR(82) = 0.3*A(260) IF (DO_FUN(83)) & - P_VAR(83) = A(59) + P_VAR(83) = A(197) IF (DO_FUN(84)) & - P_VAR(84) = 0.21*A(268) + P_VAR(84) = 0 IF (DO_FUN(85)) & - P_VAR(85) = 0.31*A(266) + P_VAR(85) = 0 IF (DO_FUN(86)) & - P_VAR(86) = 0.35*A(267) + P_VAR(86) = A(59) IF (DO_FUN(87)) & - P_VAR(87) = 0.25*A(261) + P_VAR(87) = 0 IF (DO_FUN(88)) & - P_VAR(88) = 0.73*A(365)+0.4*A(366) + P_VAR(88) = 0.21*A(268) IF (DO_FUN(89)) & - P_VAR(89) = A(10) + P_VAR(89) = 0.31*A(266) IF (DO_FUN(90)) & - P_VAR(90) = A(752) + P_VAR(90) = 0.35*A(267) IF (DO_FUN(91)) & - P_VAR(91) = A(99) + P_VAR(91) = 0.25*A(261) IF (DO_FUN(92)) & - P_VAR(92) = 0.37*A(695) + P_VAR(92) = 0.73*A(365)+0.4*A(366) IF (DO_FUN(93)) & - P_VAR(93) = A(27) + P_VAR(93) = A(10)+A(886) IF (DO_FUN(94)) & - P_VAR(94) = 0 + P_VAR(94) = A(99) IF (DO_FUN(95)) & - P_VAR(95) = A(64) + P_VAR(95) = 0.37*A(695) IF (DO_FUN(96)) & - P_VAR(96) = 0.8*A(344)+2*A(347)+0.4*A(357)+0.996*A(358)+A(973)+2*A(978)+A(979) + P_VAR(96) = A(27) IF (DO_FUN(97)) & - P_VAR(97) = A(114) + P_VAR(97) = A(64) IF (DO_FUN(98)) & - P_VAR(98) = A(70) + P_VAR(98) = 0.8*A(344)+2*A(347)+0.4*A(357)+0.996*A(358)+A(980)+2*A(985)+A(986) IF (DO_FUN(99)) & - P_VAR(99) = A(146) + P_VAR(99) = A(114) IF (DO_FUN(100)) & - P_VAR(100) = A(120) + P_VAR(100) = A(70) IF (DO_FUN(101)) & - P_VAR(101) = 0 + P_VAR(101) = A(146) IF (DO_FUN(102)) & - P_VAR(102) = A(116) + P_VAR(102) = A(120) IF (DO_FUN(103)) & - P_VAR(103) = A(862)+A(863)+A(869)+A(870)+A(871)+A(872)+A(874)+A(875)+A(876)+A(877)+A(878)+A(879)+A(880) + P_VAR(103) = 0 IF (DO_FUN(104)) & - P_VAR(104) = 0.191*A(349)+A(846)+A(847)+A(850)+A(851)+A(854)+A(855) + P_VAR(104) = A(116) IF (DO_FUN(105)) & - P_VAR(105) = 0 + P_VAR(105) = A(752) IF (DO_FUN(106)) & - P_VAR(106) = 0.995*A(716)+A(717)+0.6*A(718)+A(1042) + P_VAR(106) = A(862)+A(863)+A(869)+A(870)+A(871)+A(872)+A(874)+A(875)+A(876)+A(877)+A(878)+A(879)+A(880) IF (DO_FUN(107)) & - P_VAR(107) = 0.098*A(672)+0.75*A(684) + P_VAR(107) = 0.191*A(349)+A(846)+A(847)+A(850)+A(851)+A(854)+A(855) IF (DO_FUN(108)) & - P_VAR(108) = A(39) + P_VAR(108) = 0 IF (DO_FUN(109)) & - P_VAR(109) = 0.4*A(901) + P_VAR(109) = 0.098*A(672)+0.75*A(684) IF (DO_FUN(110)) & - P_VAR(110) = A(274)+A(278)+A(303)+A(305)+A(311)+A(946) + P_VAR(110) = A(39) IF (DO_FUN(111)) & P_VAR(111) = A(384) IF (DO_FUN(112)) & @@ -3526,501 +3548,509 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, Vdot, P_VAR, D_VAR, Aout ) IF (DO_FUN(113)) & P_VAR(113) = A(124) IF (DO_FUN(114)) & - P_VAR(114) = A(155) + P_VAR(114) = 0.995*A(716)+A(717)+0.6*A(718)+A(1049) IF (DO_FUN(115)) & - P_VAR(115) = 0.075*A(645)+0.241*A(650)+0.653*A(661)+0.75*A(1010) + P_VAR(115) = A(155) IF (DO_FUN(116)) & - P_VAR(116) = 0.11*A(709) + P_VAR(116) = 0.075*A(645)+0.241*A(650)+0.653*A(661)+0.75*A(1017) IF (DO_FUN(117)) & - P_VAR(117) = 0.15*A(750)+A(755)+A(759) + P_VAR(117) = 0.11*A(709) IF (DO_FUN(118)) & - P_VAR(118) = A(144)+A(145) + P_VAR(118) = 0.15*A(750)+A(755)+A(759) IF (DO_FUN(119)) & - P_VAR(119) = 0.15*A(524)+0.15*A(525)+0.112*A(1020)+0.182*A(1021)+0.161*A(1031) + P_VAR(119) = A(274)+A(278)+A(303)+A(305)+A(311)+A(953) IF (DO_FUN(120)) & - P_VAR(120) = A(304)+A(310)+0.56*A(349) + P_VAR(120) = 0.4*A(908) IF (DO_FUN(121)) & - P_VAR(121) = A(732) + P_VAR(121) = A(144)+A(145) IF (DO_FUN(122)) & - P_VAR(122) = A(738) + P_VAR(122) = 0.15*A(524)+0.15*A(525)+0.112*A(1027)+0.182*A(1028)+0.161*A(1038) IF (DO_FUN(123)) & - P_VAR(123) = A(147) + P_VAR(123) = A(304)+A(310)+0.56*A(349) IF (DO_FUN(124)) & - P_VAR(124) = A(106) + P_VAR(124) = A(732) IF (DO_FUN(125)) & - P_VAR(125) = A(121) + P_VAR(125) = A(738) IF (DO_FUN(126)) & - P_VAR(126) = A(86) + P_VAR(126) = A(147) IF (DO_FUN(127)) & - P_VAR(127) = 0.058*A(78) + P_VAR(127) = A(106) IF (DO_FUN(128)) & - P_VAR(128) = 0.255*A(537)+0.595*A(538)+A(578)+A(580) + P_VAR(128) = A(121) IF (DO_FUN(129)) & - P_VAR(129) = 0.2*A(383)+0.75*A(405)+A(406)+0.5*A(407)+A(458)+A(459)+A(1053) + P_VAR(129) = A(86) IF (DO_FUN(130)) & - P_VAR(130) = 0.15*A(436)+0.25*A(466) + P_VAR(130) = 0.058*A(78) IF (DO_FUN(131)) & - P_VAR(131) = A(557)+0.13*A(558)+0.2*A(559)+0.35*A(686)+0.35*A(1033) + P_VAR(131) = 0.255*A(537)+0.595*A(538)+A(578)+A(580) IF (DO_FUN(132)) & - P_VAR(132) = 0.255*A(81) + P_VAR(132) = 0.2*A(383)+0.75*A(405)+A(406)+0.5*A(407)+A(458)+A(459)+A(1060) IF (DO_FUN(133)) & - P_VAR(133) = 0.315*A(524) + P_VAR(133) = 0.255*A(81) IF (DO_FUN(134)) & - P_VAR(134) = A(1)+A(7)+A(8)+A(9)+2*A(12)+A(202)+A(368)+A(372)+A(812)+A(819) + P_VAR(134) = 0.15*A(436)+0.25*A(466) IF (DO_FUN(135)) & - P_VAR(135) = 0.315*A(525) + P_VAR(135) = A(557)+0.13*A(558)+0.2*A(559)+0.35*A(686)+0.35*A(1040) IF (DO_FUN(136)) & - P_VAR(136) = A(715)+0.2*A(718) + P_VAR(136) = 0.315*A(525) IF (DO_FUN(137)) & - P_VAR(137) = 0.25*A(385) + P_VAR(137) = 0.315*A(524) IF (DO_FUN(138)) & - P_VAR(138) = 0.25*A(405) + P_VAR(138) = A(715)+0.2*A(718) IF (DO_FUN(139)) & - P_VAR(139) = A(53) + P_VAR(139) = 0.25*A(385) IF (DO_FUN(140)) & P_VAR(140) = 0 IF (DO_FUN(141)) & - P_VAR(141) = 0 + P_VAR(141) = 0.25*A(405) IF (DO_FUN(142)) & P_VAR(142) = 0 IF (DO_FUN(143)) & - P_VAR(143) = 0.1*A(704) + P_VAR(143) = A(53) IF (DO_FUN(144)) & - P_VAR(144) = 0.15*A(497)+0.15*A(505)+0.009*A(538) + P_VAR(144) = 0 IF (DO_FUN(145)) & - P_VAR(145) = 0.474*A(607)+0.34*A(608)+0.244*A(609)+0.841*A(612)+0.841*A(614)+0.841*A(617)+0.841*A(1029)+0.222*A(1032) + P_VAR(145) = 0.1*A(704) IF (DO_FUN(146)) & - P_VAR(146) = A(733)+A(734) + P_VAR(146) = A(1)+A(7)+A(8)+A(9)+2*A(12)+A(202)+A(368)+A(372)+A(812)+A(819)+A(882)+A(883)+A(884)+A(885)+2*A(888) IF (DO_FUN(147)) & - P_VAR(147) = A(556)+A(561) + P_VAR(147) = 0.474*A(607)+0.34*A(608)+0.244*A(609)+0.841*A(612)+0.841*A(614)+0.841*A(617)+0.841*A(1036)+0.222*A(1039) IF (DO_FUN(148)) & - P_VAR(148) = A(208)+A(210)+A(813)+A(817)+A(818) + P_VAR(148) = 0 IF (DO_FUN(149)) & - P_VAR(149) = 0 + P_VAR(149) = A(556)+A(561) IF (DO_FUN(150)) & P_VAR(150) = 0.15*A(496)+0.15*A(503)+0.009*A(537) IF (DO_FUN(151)) & - P_VAR(151) = 0.67*A(532)+0.68*A(534)+0.67*A(575)+0.67*A(577) + P_VAR(151) = 0.15*A(497)+0.15*A(505)+0.009*A(538) IF (DO_FUN(152)) & - P_VAR(152) = 0.33*A(532)+0.32*A(534)+0.33*A(575)+0.33*A(577) + P_VAR(152) = A(733)+A(734) IF (DO_FUN(153)) & - P_VAR(153) = A(562)+0.2*A(563)+0.13*A(565)+0.15*A(686)+0.15*A(1033)+0.163*A(1034) + P_VAR(153) = A(208)+A(210)+A(813)+A(817)+A(818) IF (DO_FUN(154)) & - P_VAR(154) = A(481)+A(482)+A(483)+A(484)+A(485) + P_VAR(154) = 0.25*A(129)+0.25*A(130)+0.4*A(142)+0.4*A(143) IF (DO_FUN(155)) & - P_VAR(155) = 0.41*A(128)+0.41*A(148)+0.41*A(737) + P_VAR(155) = A(562)+0.2*A(563)+0.13*A(565)+0.15*A(686)+0.15*A(1040)+0.163*A(1041) IF (DO_FUN(156)) & - P_VAR(156) = 0.25*A(129)+0.25*A(130)+0.4*A(142)+0.4*A(143) + P_VAR(156) = A(481)+A(482)+A(483)+A(484)+A(485) IF (DO_FUN(157)) & - P_VAR(157) = A(312)+A(794)+A(797)+A(798)+A(799)+A(805)+A(806)+A(807)+A(809)+A(814)+A(815)+A(816) + P_VAR(157) = 0.67*A(532)+0.68*A(534)+0.67*A(575)+0.67*A(577) IF (DO_FUN(158)) & - P_VAR(158) = 0.18*A(705)+0.03*A(707)+0.19*A(725)+0.15*A(726) + P_VAR(158) = 0.41*A(128)+0.41*A(148)+0.41*A(737) IF (DO_FUN(159)) & - P_VAR(159) = 0.5*A(671)+0.25*A(1012) + P_VAR(159) = 0.33*A(532)+0.32*A(534)+0.33*A(575)+0.33*A(577) IF (DO_FUN(160)) & - P_VAR(160) = A(398)+0.25*A(401) + P_VAR(160) = A(312)+A(794)+A(797)+A(798)+A(799)+A(805)+A(806)+A(807)+A(809)+A(814)+A(815)+A(816) IF (DO_FUN(161)) & - P_VAR(161) = A(410)+0.25*A(413) + P_VAR(161) = 0.5*A(671)+0.25*A(1019) IF (DO_FUN(162)) & - P_VAR(162) = 0.5*A(407)+A(411) + P_VAR(162) = 0.18*A(705)+0.03*A(707)+0.19*A(725)+0.15*A(726) IF (DO_FUN(163)) & - P_VAR(163) = 0.3*A(421)+0.84*A(429)+A(431)+0.75*A(432) + P_VAR(163) = A(398)+0.25*A(401) IF (DO_FUN(164)) & - P_VAR(164) = A(28) + P_VAR(164) = A(410)+0.25*A(413) IF (DO_FUN(165)) & - P_VAR(165) = A(72) + P_VAR(165) = 0.5*A(407)+A(411) IF (DO_FUN(166)) & - P_VAR(166) = -A(4) + P_VAR(166) = 0.3*A(421)+0.84*A(429)+A(431)+0.75*A(432) IF (DO_FUN(167)) & - P_VAR(167) = 0 + P_VAR(167) = A(28) IF (DO_FUN(168)) & - P_VAR(168) = A(520) + P_VAR(168) = A(72) IF (DO_FUN(169)) & - P_VAR(169) = A(430)+0.25*A(432)+0.41*A(436) + P_VAR(169) = -A(4) IF (DO_FUN(170)) & - P_VAR(170) = A(335)+A(338)+A(342) + P_VAR(170) = 0 IF (DO_FUN(171)) & - P_VAR(171) = 0.224*A(1020)+0.068*A(1031) + P_VAR(171) = A(430)+0.25*A(432)+0.41*A(436) IF (DO_FUN(172)) & - P_VAR(172) = 0.182*A(1021)+0.128*A(1031) + P_VAR(172) = A(335)+A(338)+A(342) IF (DO_FUN(173)) & - P_VAR(173) = 0.15*A(128)+0.15*A(148)+0.5*A(475)+0.5*A(707)+0.45*A(726)+0.15*A(737)+0.43*A(767)+0.52*A(770) + P_VAR(173) = 0.224*A(1027)+0.068*A(1038) IF (DO_FUN(174)) & - P_VAR(174) = 0.725*A(542)+0.725*A(546)+0.35*A(550) + P_VAR(174) = 0.182*A(1028)+0.128*A(1038) IF (DO_FUN(175)) & P_VAR(175) = A(516) IF (DO_FUN(176)) & - P_VAR(176) = 0.5*A(388)+0.16*A(399) + P_VAR(176) = 0.15*A(128)+0.15*A(148)+0.5*A(475)+0.5*A(707)+0.45*A(726)+0.15*A(737)+0.43*A(767)+0.52*A(770) IF (DO_FUN(177)) & - P_VAR(177) = A(422)+A(425)+0.5*A(426)+0.5*A(427)+A(428)+0.16*A(429) + P_VAR(177) = A(520) IF (DO_FUN(178)) & - P_VAR(178) = A(66)+A(67)+0.5*A(71) + P_VAR(178) = 0.725*A(542)+0.725*A(546)+0.35*A(550) IF (DO_FUN(179)) & - P_VAR(179) = -A(1) + P_VAR(179) = 0.5*A(388)+0.16*A(399) IF (DO_FUN(180)) & - P_VAR(180) = 0.435*A(641) + P_VAR(180) = A(422)+A(425)+0.5*A(426)+0.5*A(427)+A(428)+0.16*A(429) IF (DO_FUN(181)) & - P_VAR(181) = 0.1*A(257) + P_VAR(181) = 0.435*A(641) IF (DO_FUN(182)) & - P_VAR(182) = 0.461*A(638)+0.67*A(639)+0.67*A(640)+0.041*A(691) + P_VAR(182) = A(66)+A(67)+0.5*A(71) IF (DO_FUN(183)) & - P_VAR(183) = 0 + P_VAR(183) = -A(1) IF (DO_FUN(184)) & - P_VAR(184) = A(677)+A(680) + P_VAR(184) = 0.1*A(257) IF (DO_FUN(185)) & - P_VAR(185) = A(530)+0.444*A(687)+0.112*A(1020)+0.182*A(1021)+0.162*A(1031)+0.454*A(1037) + P_VAR(185) = 0.461*A(638)+0.67*A(639)+0.67*A(640)+0.041*A(691) IF (DO_FUN(186)) & - P_VAR(186) = A(605) + P_VAR(186) = A(576) IF (DO_FUN(187)) & - P_VAR(187) = 0.937*A(498) + P_VAR(187) = 0 IF (DO_FUN(188)) & - P_VAR(188) = 0.25*A(112)+0.25*A(113)+0.38*A(132)+0.375*A(133)+0.38*A(134)+0.375*A(135)+0.25*A(137)+0.25*A(138)+0.25& - &*A(139)+0.25*A(473) + P_VAR(188) = A(605) IF (DO_FUN(189)) & - P_VAR(189) = 0.3*A(702)+0.07*A(705)+0.05*A(707) + P_VAR(189) = A(677)+A(680) IF (DO_FUN(190)) & - P_VAR(190) = A(576) + P_VAR(190) = A(530)+0.444*A(687)+0.112*A(1027)+0.182*A(1028)+0.162*A(1038)+0.454*A(1044) IF (DO_FUN(191)) & - P_VAR(191) = 0 + P_VAR(191) = 0.937*A(498) IF (DO_FUN(192)) & - P_VAR(192) = 0.937*A(500) + P_VAR(192) = 0.25*A(112)+0.25*A(113)+0.38*A(132)+0.375*A(133)+0.38*A(134)+0.375*A(135)+0.25*A(137)+0.25*A(138)+0.25& + &*A(139)+0.25*A(473) IF (DO_FUN(193)) & - P_VAR(193) = A(444) + P_VAR(193) = 0.3*A(702)+0.07*A(705)+0.05*A(707) IF (DO_FUN(194)) & - P_VAR(194) = 0.022*A(691)+0.552*A(1020)+0.454*A(1021)+0.481*A(1031) + P_VAR(194) = 0 IF (DO_FUN(195)) & - P_VAR(195) = 0.54*A(724) + P_VAR(195) = 0.937*A(500) IF (DO_FUN(196)) & - P_VAR(196) = A(69)+A(74) + P_VAR(196) = A(444) IF (DO_FUN(197)) & - P_VAR(197) = 0.68*A(81)+A(87)+A(900)+0.3*A(901) + P_VAR(197) = 0.022*A(691)+0.552*A(1027)+0.454*A(1028)+0.481*A(1038) IF (DO_FUN(198)) & P_VAR(198) = 0.824*A(539)+0.452*A(543)+A(547)+0.667*A(688) IF (DO_FUN(199)) & - P_VAR(199) = A(501) + P_VAR(199) = 0.54*A(724) IF (DO_FUN(200)) & - P_VAR(200) = 0 + P_VAR(200) = A(69)+A(74) IF (DO_FUN(201)) & - P_VAR(201) = 0.4*A(705)+0.6*A(707)+0.4*A(708)+0.3*A(725)+0.56*A(726)+0.44*A(743)+0.44*A(744) + P_VAR(201) = 0.68*A(81)+A(87)+A(907)+0.3*A(908) IF (DO_FUN(202)) & - P_VAR(202) = 0.8*A(741)+0.727*A(743) + P_VAR(202) = A(501) IF (DO_FUN(203)) & - P_VAR(203) = 0.06*A(741)+0.742*A(742)+0.073*A(743)+0.3*A(744)+0.3*A(745)+0.3*A(747)+A(756)+A(757)+A(758)+A(765)& - &+A(1045) + P_VAR(203) = 0 IF (DO_FUN(204)) & - P_VAR(204) = 0.7*A(702)+A(703)+0.62*A(704)+A(706)+A(708)+0.89*A(709)+A(710)+A(711)+0.06*A(725)+0.06*A(726)+A(928) + P_VAR(204) = 0.4*A(705)+0.6*A(707)+0.4*A(708)+0.3*A(725)+0.56*A(726)+0.44*A(743)+0.44*A(744) IF (DO_FUN(205)) & - P_VAR(205) = A(574) + P_VAR(205) = 0.8*A(741)+0.727*A(743) IF (DO_FUN(206)) & - P_VAR(206) = A(579) + P_VAR(206) = 0.06*A(741)+0.742*A(742)+0.073*A(743)+0.3*A(744)+0.3*A(745)+0.3*A(747)+A(756)+A(757)+A(758)+A(765)& + &+A(1052) IF (DO_FUN(207)) & - P_VAR(207) = A(581) + P_VAR(207) = 0.7*A(702)+A(703)+0.62*A(704)+A(706)+A(708)+0.89*A(709)+A(710)+A(711)+0.06*A(725)+0.06*A(726)+A(935) IF (DO_FUN(208)) & - P_VAR(208) = 0.13*A(566)+0.2*A(568)+0.53*A(651)+0.6*A(663)+0.255*A(667)+0.318*A(687)+0.391*A(1037) + P_VAR(208) = A(581) IF (DO_FUN(209)) & - P_VAR(209) = A(499) + P_VAR(209) = A(579) IF (DO_FUN(210)) & - P_VAR(210) = 0.3*A(496)+0.3*A(503)+0.018*A(537)+0.284*A(540)+0.135*A(542)+0.249*A(631)+0.471*A(632)+0.303*A(633)+0.59& - &*A(635)+0.5*A(1039) + P_VAR(210) = A(574) IF (DO_FUN(211)) & - P_VAR(211) = 0.25*A(418) + P_VAR(211) = 0.13*A(566)+0.2*A(568)+0.53*A(651)+0.6*A(663)+0.255*A(667)+0.318*A(687)+0.391*A(1044) IF (DO_FUN(212)) & - P_VAR(212) = A(75) + P_VAR(212) = 0.25*A(418) IF (DO_FUN(213)) & - P_VAR(213) = 0.8*A(153)+A(154)+A(156) + P_VAR(213) = A(499) IF (DO_FUN(214)) & - P_VAR(214) = A(45) + P_VAR(214) = 0.3*A(496)+0.3*A(503)+0.018*A(537)+0.284*A(540)+0.135*A(542)+0.249*A(631)+0.471*A(632)+0.303*A(633)+0.59& + &*A(635)+0.5*A(1046) IF (DO_FUN(215)) & - P_VAR(215) = 0.085*A(524)+0.165*A(525)+0.58*A(526)+0.77*A(527)+0.75*A(551)+A(552)+A(554)+A(625)+A(637) + P_VAR(215) = A(75) IF (DO_FUN(216)) & - P_VAR(216) = 0.6*A(582)+0.031*A(594)+0.065*A(595)+0.094*A(600)+0.355*A(601)+0.06*A(631)+0.073*A(632)+0.17*A(633)+0.291& - &*A(635)+0.378*A(638)+0.13*A(678)+0.3*A(682) + P_VAR(216) = 0.8*A(153)+A(154)+A(156) IF (DO_FUN(217)) & - P_VAR(217) = A(229)+0.2*A(231)+A(234)+A(235)+0.22*A(253)+0.2*A(254)+0.09*A(257)+A(294)+A(888) + P_VAR(217) = A(45) IF (DO_FUN(218)) & - P_VAR(218) = A(222) + P_VAR(218) = 0.085*A(524)+0.165*A(525)+0.58*A(526)+0.77*A(527)+0.75*A(551)+A(552)+A(554)+A(625)+A(637) IF (DO_FUN(219)) & - P_VAR(219) = 0 + P_VAR(219) = A(229)+0.2*A(231)+A(234)+A(235)+0.22*A(253)+0.2*A(254)+0.09*A(257)+A(294)+A(895) IF (DO_FUN(220)) & - P_VAR(220) = 0 + P_VAR(220) = 0.6*A(582)+0.031*A(594)+0.065*A(595)+0.094*A(600)+0.355*A(601)+0.06*A(631)+0.073*A(632)+0.17*A(633)+0.291& + &*A(635)+0.378*A(638)+0.13*A(678)+0.3*A(682) IF (DO_FUN(221)) & - P_VAR(221) = 0.8*A(705)+0.375*A(707)+0.55*A(724)+0.68*A(725)+0.28*A(726)+0.18*A(741)+1.05*A(745)+A(746)+0.3*A(747)+0.9& - &*A(763)+0.9*A(764)+A(1046) + P_VAR(221) = A(222) IF (DO_FUN(222)) & - P_VAR(222) = 0.473*A(604)+0.07*A(606)+0.399*A(607)+0.355*A(610) + P_VAR(222) = 0 IF (DO_FUN(223)) & - P_VAR(223) = 0.345*A(531)+0.595*A(537) + P_VAR(223) = 0 IF (DO_FUN(224)) & - P_VAR(224) = 0.345*A(533)+0.255*A(538) + P_VAR(224) = 0.8*A(705)+0.375*A(707)+0.55*A(724)+0.68*A(725)+0.28*A(726)+0.18*A(741)+1.05*A(745)+A(746)+0.3*A(747)+0.9& + &*A(763)+0.9*A(764)+A(1053) IF (DO_FUN(225)) & - P_VAR(225) = 0.2*A(383)+0.75*A(385)+A(386)+0.5*A(388)+A(456)+A(457)+A(1048) + P_VAR(225) = 0.473*A(604)+0.07*A(606)+0.399*A(607)+0.355*A(610) IF (DO_FUN(226)) & - P_VAR(226) = A(622) + P_VAR(226) = 0.345*A(533)+0.255*A(538) IF (DO_FUN(227)) & - P_VAR(227) = 0.29*A(650)+0.47*A(651)+0.063*A(661)+0.4*A(663)+0.16*A(666)+0.126*A(687)+0.133*A(1034)+0.155*A(1037) + P_VAR(227) = 0.2*A(383)+0.75*A(385)+A(386)+0.5*A(388)+A(456)+A(457)+A(1055) IF (DO_FUN(228)) & - P_VAR(228) = 0.1*A(150)+A(898) + P_VAR(228) = 0.345*A(531)+0.595*A(537) IF (DO_FUN(229)) & - P_VAR(229) = A(443) + P_VAR(229) = A(76)+A(77)+0.73*A(78) IF (DO_FUN(230)) & - P_VAR(230) = 0.25*A(496)+0.25*A(503)+0.015*A(537) + P_VAR(230) = 0.29*A(650)+0.47*A(651)+0.063*A(661)+0.4*A(663)+0.16*A(666)+0.126*A(687)+0.133*A(1041)+0.155*A(1044) IF (DO_FUN(231)) & P_VAR(231) = 0.25*A(497)+0.25*A(505)+0.015*A(538) IF (DO_FUN(232)) & - P_VAR(232) = 0.655*A(531)+0.655*A(533) + P_VAR(232) = 0.1*A(150)+A(905) IF (DO_FUN(233)) & - P_VAR(233) = A(76)+A(77)+0.73*A(78) + P_VAR(233) = 0.25*A(496)+0.25*A(503)+0.015*A(537) IF (DO_FUN(234)) & - P_VAR(234) = A(127)+0.44*A(128)+A(713)+A(722) + P_VAR(234) = A(443) IF (DO_FUN(235)) & - P_VAR(235) = A(748)+A(749)+A(753)+A(754) + P_VAR(235) = 0.655*A(531)+0.655*A(533) IF (DO_FUN(236)) & - P_VAR(236) = 0.28*A(704)+0.2*A(750)+A(751)+A(760)+A(761)+A(766)+A(1043)+A(1044) + P_VAR(236) = A(622) IF (DO_FUN(237)) & - P_VAR(237) = 0.37*A(417)+0.28*A(418)+0.37*A(419)+0.37*A(460)+0.37*A(461) + P_VAR(237) = A(748)+A(749)+A(753)+A(754) IF (DO_FUN(238)) & - P_VAR(238) = A(509)+A(510)+A(511)+0.5*A(513)+0.5*A(515)+0.45*A(519)+0.45*A(523)+0.06*A(537)+0.06*A(538)+A(1018)& - &+A(1019)+0.45*A(1024)+0.45*A(1027) + P_VAR(238) = 0.28*A(704)+0.2*A(750)+A(751)+A(760)+A(761)+A(766)+A(1050)+A(1051) IF (DO_FUN(239)) & - P_VAR(239) = A(37)+0.5*A(782)+A(802)+A(803)+A(804)+A(805)+A(806)+A(807)+A(839)+A(840)+A(844)+A(845)+A(846)+A(847)& - &+A(994)+A(996)+A(1046) + P_VAR(239) = A(127)+0.44*A(128)+A(713)+A(722) IF (DO_FUN(240)) & - P_VAR(240) = A(735)+A(739) + P_VAR(240) = A(37)+0.5*A(782)+A(802)+A(803)+A(804)+A(805)+A(806)+A(807)+A(839)+A(840)+A(844)+A(845)+A(846)+A(847)& + &+A(1001)+A(1003)+A(1053) IF (DO_FUN(241)) & - P_VAR(241) = 0.12*A(150) + P_VAR(241) = 0.37*A(417)+0.28*A(418)+0.37*A(419)+0.37*A(460)+0.37*A(461) IF (DO_FUN(242)) & - P_VAR(242) = 0.7*A(450)+0.7*A(451)+0.35*A(452)+0.3*A(470)+0.3*A(471)+0.3*A(472)+0.15*A(473)+0.3*A(474)+0.3*A(476)+0.6& - &*A(478)+0.45*A(479)+0.3*A(480) + P_VAR(242) = A(509)+A(510)+A(511)+0.5*A(513)+0.5*A(515)+0.45*A(519)+0.45*A(523)+0.06*A(537)+0.06*A(538)+A(1025)& + &+A(1026)+0.45*A(1031)+0.45*A(1034) IF (DO_FUN(243)) & - P_VAR(243) = 0.16*A(536)+0.25*A(551) + P_VAR(243) = A(735)+A(739) IF (DO_FUN(244)) & - P_VAR(244) = 0.85*A(118)+0.85*A(119)+0.3*A(497)+0.3*A(505)+0.018*A(538)+0.294*A(544)+0.135*A(546)+0.009*A(631)+0.054& - &*A(632)+0.013*A(633)+0.07*A(635)+0.036*A(646)+0.23*A(652)+0.05*A(1039) + P_VAR(244) = 0.12*A(150) IF (DO_FUN(245)) & - P_VAR(245) = 0.25*A(255)+A(302)+0.95*A(309)+A(314)+0.5*A(791)+0.5*A(792)+A(796)+A(800)+A(801)+A(802)+A(803)+A(804)& - &+A(808)+A(810)+A(811) + P_VAR(245) = 0.16*A(536)+0.25*A(551) IF (DO_FUN(246)) & - P_VAR(246) = 0.31*A(123)+A(125) + P_VAR(246) = 0.7*A(450)+0.7*A(451)+0.35*A(452)+0.3*A(470)+0.3*A(471)+0.3*A(472)+0.15*A(473)+0.3*A(474)+0.3*A(476)+0.6& + &*A(478)+0.45*A(479)+0.3*A(480) IF (DO_FUN(247)) & - P_VAR(247) = 0.791*A(169)+0.551*A(594)+0.935*A(595)+0.242*A(600)+0.546*A(601)+0.589*A(631)+0.471*A(632)+0.687*A(633)& - &+0.59*A(635)+0.231*A(639)+0.231*A(640)+A(642)+0.82*A(643)+0.68*A(649)+A(654)+A(1015) + P_VAR(247) = 0.85*A(118)+0.85*A(119)+0.3*A(497)+0.3*A(505)+0.018*A(538)+0.294*A(544)+0.135*A(546)+0.009*A(631)+0.054& + &*A(632)+0.013*A(633)+0.07*A(635)+0.036*A(646)+0.23*A(652)+0.05*A(1046) IF (DO_FUN(248)) & - P_VAR(248) = 0.059*A(585)+0.272*A(586)+A(660)+A(675)+0.37*A(678)+0.5*A(1038) + P_VAR(248) = 0.25*A(255)+A(302)+0.95*A(309)+A(314)+0.5*A(791)+0.5*A(792)+A(796)+A(800)+A(801)+A(802)+A(803)+A(804)& + &+A(808)+A(810)+A(811) IF (DO_FUN(249)) & - P_VAR(249) = A(103) + P_VAR(249) = 0.791*A(169)+0.551*A(594)+0.935*A(595)+0.242*A(600)+0.546*A(601)+0.589*A(631)+0.471*A(632)+0.687*A(633)& + &+0.59*A(635)+0.231*A(639)+0.231*A(640)+A(642)+0.82*A(643)+0.68*A(649)+A(654)+A(1022) IF (DO_FUN(250)) & - P_VAR(250) = A(162)+0.209*A(169) + P_VAR(250) = 0.31*A(123)+A(125) IF (DO_FUN(251)) & - P_VAR(251) = A(94)+A(115)+0.07*A(123) + P_VAR(251) = 0.059*A(585)+0.272*A(586)+A(660)+A(675)+0.37*A(678)+0.5*A(1045) IF (DO_FUN(252)) & - P_VAR(252) = A(336) + P_VAR(252) = A(103) IF (DO_FUN(253)) & - P_VAR(253) = 0.964*A(646)+A(658)+A(659) + P_VAR(253) = A(162)+0.209*A(169) IF (DO_FUN(254)) & - P_VAR(254) = A(644)+A(655)+A(656) + P_VAR(254) = A(336) IF (DO_FUN(255)) & - P_VAR(255) = 0.27*A(379)+0.63*A(417)+0.47*A(418)+0.63*A(419)+0.63*A(460)+0.63*A(461) + P_VAR(255) = A(94)+A(115)+0.07*A(123) IF (DO_FUN(256)) & - P_VAR(256) = 0.5*A(403)+0.5*A(416)+0.5*A(435)+A(468)+0.7*A(470)+0.7*A(471)+0.7*A(472)+0.35*A(473)+0.7*A(474)+0.7& - &*A(476)+1.4*A(478)+1.05*A(479)+0.7*A(480) + P_VAR(256) = 0.27*A(379)+0.63*A(417)+0.47*A(418)+0.63*A(419)+0.63*A(460)+0.63*A(461) IF (DO_FUN(257)) & - P_VAR(257) = 0.4*A(387)+A(389)+A(390)+A(394)+A(396) + P_VAR(257) = 0.964*A(646)+A(658)+A(659) IF (DO_FUN(258)) & - P_VAR(258) = 0.176*A(539)+0.548*A(543)+0.35*A(558)+0.35*A(565)+0.35*A(566)+0.333*A(688)+0.75*A(1035) + P_VAR(258) = A(644)+A(655)+A(656) IF (DO_FUN(259)) & - P_VAR(259) = A(647)+0.32*A(649)+0.165*A(672)+A(683) + P_VAR(259) = 0.176*A(539)+0.548*A(543)+0.35*A(558)+0.35*A(565)+0.35*A(566)+0.333*A(688)+0.75*A(1042) IF (DO_FUN(260)) & - P_VAR(260) = A(149)+0.209*A(176)+A(332)+A(333) + P_VAR(260) = 0.5*A(403)+0.5*A(416)+0.5*A(435)+A(468)+0.7*A(470)+0.7*A(471)+0.7*A(472)+0.35*A(473)+0.7*A(474)+0.7& + &*A(476)+1.4*A(478)+1.05*A(479)+0.7*A(480) IF (DO_FUN(261)) & - P_VAR(261) = 0.441*A(597)+0.858*A(598)+0.033*A(600)+0.071*A(601)+0.051*A(631)+0.054*A(632)+0.064*A(633)+0.07*A(635)& - &+0.099*A(639)+0.099*A(640)+0.89*A(642)+0.73*A(643)+0.3*A(1013)+0.15*A(1038) + P_VAR(261) = 0.4*A(387)+A(389)+A(390)+A(394)+A(396) IF (DO_FUN(262)) & - P_VAR(262) = 0.4*A(381)+0.675*A(445)+0.675*A(446)+0.78*A(447)+0.78*A(448)+0.39*A(449)+0.3*A(450)+0.3*A(451)+0.15& - &*A(452)+0.675*A(462)+0.675*A(463)+0.675*A(1057) + P_VAR(262) = A(647)+0.32*A(649)+0.165*A(672)+A(683) IF (DO_FUN(263)) & - P_VAR(263) = 0.15*A(379)+0.5*A(381)+0.5*A(388)+0.84*A(399)+A(400)+0.75*A(401)+0.5*A(402)+0.55*A(403)+0.5*A(407)+A(422)& - &+A(425)+A(428)+0.7*A(447)+0.7*A(448)+0.35*A(449)+0.7*A(450)+0.7*A(451)+0.35*A(452)+A(453)+A(454)+0.5& - &*A(455)+0.7*A(702)+A(703)+0.813*A(705)+A(706)+0.93*A(707)+A(708)+0.46*A(724)+0.81*A(725)+0.85*A(726)+0.14& - &*A(741)+0.2*A(743)+0.2*A(744)+0.7*A(745)+0.2*A(747)+A(1052) + P_VAR(263) = 0.4*A(381)+0.675*A(445)+0.675*A(446)+0.78*A(447)+0.78*A(448)+0.39*A(449)+0.3*A(450)+0.3*A(451)+0.15& + &*A(452)+0.675*A(462)+0.675*A(463)+0.675*A(1064) IF (DO_FUN(264)) & - P_VAR(264) = A(19)+A(23)+0.06*A(365)+0.06*A(366)+A(373)+0.013*A(493)+0.045*A(645) + P_VAR(264) = A(149)+0.209*A(176)+A(332)+A(333) IF (DO_FUN(265)) & - P_VAR(265) = 0.134*A(151)+A(152)+0.5*A(168)+0.21*A(365)+0.54*A(366)+0.449*A(650)+0.187*A(661)+0.3*A(685)+0.5*A(694)& - &+0.364*A(714)+0.26*A(767)+0.5*A(768)+0.1*A(770)+0.2*A(771) + P_VAR(265) = 0.441*A(597)+0.858*A(598)+0.033*A(600)+0.071*A(601)+0.051*A(631)+0.054*A(632)+0.064*A(633)+0.07*A(635)& + &+0.099*A(639)+0.099*A(640)+0.89*A(642)+0.73*A(643)+0.3*A(1020)+0.15*A(1045) IF (DO_FUN(266)) & - P_VAR(266) = A(560)+A(564)+A(567)+A(584)+A(588)+A(592)+A(593)+A(629)+0.5*A(630)+0.9*A(691) + P_VAR(266) = 0.15*A(379)+0.5*A(381)+0.5*A(388)+0.84*A(399)+A(400)+0.75*A(401)+0.5*A(402)+0.55*A(403)+0.5*A(407)+A(422)& + &+A(425)+A(428)+0.7*A(447)+0.7*A(448)+0.35*A(449)+0.7*A(450)+0.7*A(451)+0.35*A(452)+A(453)+A(454)+0.5& + &*A(455)+0.7*A(702)+A(703)+0.813*A(705)+A(706)+0.93*A(707)+A(708)+0.46*A(724)+0.81*A(725)+0.85*A(726)+0.14& + &*A(741)+0.2*A(743)+0.2*A(744)+0.7*A(745)+0.2*A(747)+A(1059) IF (DO_FUN(267)) & - P_VAR(267) = A(518)+0.127*A(608)+0.057*A(609) + P_VAR(267) = A(19)+A(23)+0.06*A(365)+0.06*A(366)+A(373)+0.013*A(493)+0.045*A(645) IF (DO_FUN(268)) & - P_VAR(268) = A(522)+0.032*A(607)+0.671*A(608)+0.298*A(609) + P_VAR(268) = 0.134*A(151)+A(152)+0.5*A(168)+0.21*A(365)+0.54*A(366)+0.449*A(650)+0.187*A(661)+0.3*A(685)+0.5*A(694)& + &+0.364*A(714)+0.26*A(767)+0.5*A(768)+0.1*A(770)+0.2*A(771) IF (DO_FUN(269)) & - P_VAR(269) = 0.258*A(742)+0.5*A(744)+0.5*A(747)+A(762) + P_VAR(269) = A(560)+A(564)+A(567)+A(584)+A(588)+A(592)+A(593)+A(629)+0.5*A(630)+0.9*A(691) IF (DO_FUN(270)) & - P_VAR(270) = 0.065*A(81)+0.134*A(151)+0.2*A(153)+0.8*A(563)+0.52*A(565)+A(697)+0.1*A(707)+0.636*A(714)+0.18*A(724)& - &+0.12*A(725)+0.1*A(726)+0.06*A(741)+0.6*A(767)+0.6*A(768)+0.2*A(769)+0.5*A(1007)+0.429*A(1009)+0.125& - &*A(1010)+0.586*A(1034)+0.571*A(1036) + P_VAR(270) = A(518)+0.127*A(608)+0.057*A(609) IF (DO_FUN(271)) & - P_VAR(271) = 0.67*A(621) + P_VAR(271) = A(522)+0.032*A(607)+0.671*A(608)+0.298*A(609) IF (DO_FUN(272)) & - P_VAR(272) = A(423)+0.27*A(424)+0.18*A(426) + P_VAR(272) = 0.258*A(742)+0.5*A(744)+0.5*A(747)+A(762) IF (DO_FUN(273)) & - P_VAR(273) = 0.1*A(383)+A(409)+A(415) + P_VAR(273) = 0.67*A(621) IF (DO_FUN(274)) & - P_VAR(274) = 0.715*A(379)+0.27*A(412)+0.23*A(413)+0.27*A(414)+0.085*A(416)+A(420)+0.6*A(421)+0.73*A(424)+0.32*A(426)& - &+0.4*A(427)+A(433)+A(434)+0.5*A(435)+A(439)+A(441)+0.27*A(1054)+0.9*A(1058) + P_VAR(274) = 0.065*A(81)+0.134*A(151)+0.2*A(153)+0.8*A(563)+0.52*A(565)+A(697)+0.1*A(707)+0.636*A(714)+0.18*A(724)& + &+0.12*A(725)+0.1*A(726)+0.06*A(741)+0.6*A(767)+0.6*A(768)+0.2*A(769)+0.5*A(1014)+0.429*A(1016)+0.125& + &*A(1017)+0.586*A(1041)+0.571*A(1043) IF (DO_FUN(275)) & - P_VAR(275) = 0.15*A(380)+0.255*A(382)+A(408) + P_VAR(275) = 0.1*A(383)+A(409)+A(415) IF (DO_FUN(276)) & - P_VAR(276) = 0 + P_VAR(276) = 0.15*A(380)+0.255*A(382)+A(408) IF (DO_FUN(277)) & - P_VAR(277) = 0.15*A(380)+0.67*A(382)+0.5*A(383)+0.6*A(387) + P_VAR(277) = 0.715*A(379)+0.27*A(412)+0.23*A(413)+0.27*A(414)+0.085*A(416)+A(420)+0.6*A(421)+0.73*A(424)+0.32*A(426)& + &+0.4*A(427)+A(433)+A(434)+0.5*A(435)+A(439)+A(441)+0.27*A(1061)+0.9*A(1065) IF (DO_FUN(278)) & - P_VAR(278) = 0.44*A(391)+A(392)+A(395)+A(397)+0.5*A(402)+0.75*A(464)+A(465)+A(1049)+A(1050)+A(1051) + P_VAR(278) = A(423)+0.27*A(424)+0.18*A(426) IF (DO_FUN(279)) & - P_VAR(279) = A(91)+0.072*A(97)+A(117) + P_VAR(279) = 0 IF (DO_FUN(280)) & P_VAR(280) = 0.1*A(375)+0.1*A(376)+0.5*A(377)+0.5*A(449)+0.5*A(452)+0.5*A(455) IF (DO_FUN(281)) & - P_VAR(281) = A(378)+0.2*A(380)+0.075*A(382) + P_VAR(281) = 0.15*A(380)+0.67*A(382)+0.5*A(383)+0.6*A(387) IF (DO_FUN(282)) & - P_VAR(282) = A(29)+0.13*A(31)+0.25*A(112)+0.25*A(113)+0.25*A(129)+0.25*A(130)+0.25*A(132)+0.25*A(133)+0.25*A(134)+0.25& - &*A(135)+0.5*A(136)+0.25*A(137)+0.25*A(138)+0.25*A(139)+0.25*A(401)+0.25*A(413)+0.25*A(432)+0.25*A(456)& - &+0.25*A(458)+0.25*A(460)+0.25*A(462)+0.25*A(473)+0.355*A(609)+0.034*A(610)+0.2*A(718)+0.1*A(907) + P_VAR(282) = 0.44*A(391)+A(392)+A(395)+A(397)+0.5*A(402)+0.75*A(464)+A(465)+A(1056)+A(1057)+A(1058) IF (DO_FUN(283)) & - P_VAR(283) = 0.5*A(168)+0.1*A(181)+0.1*A(182)+0.1*A(183)+0.1*A(184)+0.1*A(185)+0.1*A(186)+0.1*A(187)+0.1*A(188)+0.1& - &*A(189)+0.1*A(190)+0.1*A(191)+0.1*A(192)+0.1*A(193)+A(374)+0.1*A(457)+0.1*A(459)+0.1*A(461)+0.1*A(463)& - &+0.13*A(695)+0.15*A(770)+0.3*A(771) + P_VAR(283) = A(91)+0.072*A(97)+A(117) IF (DO_FUN(284)) & - P_VAR(284) = A(341)+A(343)+A(348)+A(350)+A(354)+0.008*A(358)+A(979) + P_VAR(284) = A(378)+0.2*A(380)+0.075*A(382) IF (DO_FUN(285)) & - P_VAR(285) = 0.068*A(528)+0.33*A(553)+0.19*A(555)+0.032*A(687) + P_VAR(285) = A(29)+0.13*A(31)+0.25*A(112)+0.25*A(113)+0.25*A(129)+0.25*A(130)+0.25*A(132)+0.25*A(133)+0.25*A(134)+0.25& + &*A(135)+0.5*A(136)+0.25*A(137)+0.25*A(138)+0.25*A(139)+0.25*A(401)+0.25*A(413)+0.25*A(432)+0.25*A(456)& + &+0.25*A(458)+0.25*A(460)+0.25*A(462)+0.25*A(473)+0.355*A(609)+0.034*A(610)+0.2*A(718)+0.1*A(914) IF (DO_FUN(286)) & - P_VAR(286) = 0.294*A(528)+0.67*A(553)+0.81*A(555)+0.08*A(687) + P_VAR(286) = 0.5*A(168)+0.1*A(181)+0.1*A(182)+0.1*A(183)+0.1*A(184)+0.1*A(185)+0.1*A(186)+0.1*A(187)+0.1*A(188)+0.1& + &*A(189)+0.1*A(190)+0.1*A(191)+0.1*A(192)+0.1*A(193)+A(374)+0.1*A(457)+0.1*A(459)+0.1*A(461)+0.1*A(463)& + &+0.13*A(695)+0.15*A(770)+0.3*A(771) IF (DO_FUN(287)) & - P_VAR(287) = A(510)+0.5*A(511)+0.5*A(515)+0.55*A(523)+0.17*A(525)+0.09*A(527)+0.158*A(528)+0.165*A(536)+0.716*A(540)& - &+0.14*A(542)+0.004*A(631)+0.006*A(633)+0.41*A(670)+0.5*A(686)+0.571*A(689)+0.25*A(690)+0.55*A(1027)+0.5& - &*A(1033)+0.15*A(1039)+0.5*A(1041) + P_VAR(287) = A(352)+A(355)+A(843) IF (DO_FUN(288)) & - P_VAR(288) = A(509)+0.5*A(511)+0.5*A(513)+0.55*A(519)+0.33*A(524)+0.19*A(526)+0.125*A(528)+0.125*A(535)+0.706*A(544)& - &+0.14*A(546)+0.054*A(631)+0.059*A(633)+0.335*A(667)+0.429*A(689)+0.75*A(690)+0.55*A(1024)+0.5*A(1041) + P_VAR(288) = 0.068*A(528)+0.33*A(553)+0.19*A(555)+0.032*A(687) IF (DO_FUN(289)) & - P_VAR(289) = 0.9*A(375)+0.9*A(376)+0.5*A(377) + P_VAR(289) = 0.294*A(528)+0.67*A(553)+0.81*A(555)+0.08*A(687) IF (DO_FUN(290)) & - P_VAR(290) = A(912) + P_VAR(290) = A(510)+0.5*A(511)+0.5*A(515)+0.55*A(523)+0.17*A(525)+0.09*A(527)+0.158*A(528)+0.165*A(536)+0.716*A(540)& + &+0.14*A(542)+0.004*A(631)+0.006*A(633)+0.41*A(670)+0.5*A(686)+0.571*A(689)+0.25*A(690)+0.55*A(1034)+0.5& + &*A(1040)+0.15*A(1046)+0.5*A(1048) IF (DO_FUN(291)) & - P_VAR(291) = 0.5*A(380) + P_VAR(291) = A(509)+0.5*A(511)+0.5*A(513)+0.55*A(519)+0.33*A(524)+0.19*A(526)+0.125*A(528)+0.125*A(535)+0.706*A(544)& + &+0.14*A(546)+0.054*A(631)+0.059*A(633)+0.335*A(667)+0.429*A(689)+0.75*A(690)+0.55*A(1031)+0.5*A(1048) IF (DO_FUN(292)) & - P_VAR(292) = 0.25*A(68)+0.19*A(90)+0.19*A(93)+0.35*A(132)+0.35*A(134)+0.25*A(137)+0.271*A(182)+0.271*A(183)+0.1*A(185)& - &+0.5*A(381)+0.42*A(399)+0.5*A(400)+0.375*A(401)+0.25*A(402)+0.3*A(403)+A(453)+A(454)+0.5*A(455)+0.464& - &*A(469)+0.34*A(473)+0.464*A(475)+0.464*A(477)+0.149*A(479)+0.285*A(480)+0.19*A(926)+0.19*A(929)+A(991)+0.5& - &*A(1052) + P_VAR(292) = 0.9*A(375)+0.9*A(376)+0.5*A(377) IF (DO_FUN(293)) & - P_VAR(293) = A(620)+0.33*A(621)+0.037*A(691) + P_VAR(293) = A(919) IF (DO_FUN(294)) & - P_VAR(294) = 0.3*A(33)+0.5*A(136)+A(167)+0.1*A(184)+A(361)+0.3*A(496)+0.3*A(497)+0.3*A(503)+0.3*A(505)+0.085*A(524)& - &+0.165*A(525)+0.355*A(528)+0.5*A(529)+0.018*A(537)+0.018*A(538)+0.52*A(558)+0.8*A(559)+0.545*A(645)+0.88& - &*A(648)+0.449*A(650)+0.187*A(661)+A(662)+A(664)+0.05*A(667)+0.242*A(668)+0.083*A(670)+0.14*A(674)+0.7& - &*A(685)+0.25*A(707)+0.12*A(725)+0.2*A(726)+0.6*A(770)+0.6*A(771)+0.2*A(772)+0.5*A(1007)+0.47*A(1008)+0.571& - &*A(1009)+0.125*A(1010)+0.23*A(1011)+0.118*A(1034)+0.429*A(1036)+A(1040) + P_VAR(294) = 0.5*A(380) IF (DO_FUN(295)) & - P_VAR(295) = 0.34*A(90)+0.34*A(93)+A(98)+0.16*A(132)+0.16*A(134)+0.75*A(138)+0.791*A(172)+0.29*A(182)+0.29*A(183)& - &+A(186)+0.5*A(381)+0.84*A(399)+A(400)+0.75*A(401)+0.5*A(402)+0.4*A(403)+0.6*A(412)+0.4*A(413)+0.6*A(414)& - &+0.3*A(416)+0.45*A(445)+0.45*A(446)+0.3*A(447)+0.3*A(448)+0.15*A(449)+0.5*A(453)+0.5*A(454)+0.25*A(455)& - &+0.45*A(462)+0.45*A(463)+A(491)+A(920)+0.34*A(926)+0.34*A(929)+A(1000)+A(1052)+0.6*A(1054)+0.45*A(1057) + P_VAR(295) = 0.25*A(68)+0.19*A(90)+0.19*A(93)+0.35*A(132)+0.35*A(134)+0.25*A(137)+0.271*A(182)+0.271*A(183)+0.1*A(185)& + &+0.5*A(381)+0.42*A(399)+0.5*A(400)+0.375*A(401)+0.25*A(402)+0.3*A(403)+A(453)+A(454)+0.5*A(455)+0.464& + &*A(469)+0.34*A(473)+0.464*A(475)+0.464*A(477)+0.149*A(479)+0.285*A(480)+0.19*A(933)+0.19*A(936)+A(998)+0.5& + &*A(1059) IF (DO_FUN(296)) & - P_VAR(296) = A(57)+A(179)+A(219)+A(321)+A(701) + P_VAR(296) = A(339)+A(340) IF (DO_FUN(297)) & - P_VAR(297) = A(787)+A(789)+A(790) + P_VAR(297) = 0.34*A(90)+0.34*A(93)+A(98)+0.16*A(132)+0.16*A(134)+0.75*A(138)+0.791*A(172)+0.29*A(182)+0.29*A(183)& + &+A(186)+0.5*A(381)+0.84*A(399)+A(400)+0.75*A(401)+0.5*A(402)+0.4*A(403)+0.6*A(412)+0.4*A(413)+0.6*A(414)& + &+0.3*A(416)+0.45*A(445)+0.45*A(446)+0.3*A(447)+0.3*A(448)+0.15*A(449)+0.5*A(453)+0.5*A(454)+0.25*A(455)& + &+0.45*A(462)+0.45*A(463)+A(491)+A(927)+0.34*A(933)+0.34*A(936)+A(1007)+A(1059)+0.6*A(1061)+0.45*A(1064) IF (DO_FUN(298)) & - P_VAR(298) = A(63)+0.75*A(68)+0.5*A(71)+1.24*A(73)+0.326*A(78)+0.894*A(79)+0.15*A(90)+0.64*A(92)+0.15*A(93)+0.64*A(95)& - &+0.75*A(112)+0.09*A(113)+0.13*A(132)+0.58*A(133)+0.13*A(134)+0.58*A(135)+0.25*A(139)+A(141)+0.64*A(171)& - &+1.185*A(173)+1.185*A(174)+0.255*A(182)+0.255*A(183)+0.613*A(187)+0.613*A(188)+0.1*A(189)+0.035*A(192)& - &+A(193)+0.3*A(381)+0.6*A(412)+0.4*A(413)+0.6*A(414)+0.3*A(416)+0.44*A(436)+A(437)+A(440)+A(442)+0.75& - &*A(466)+A(467)+1.24*A(469)+0.93*A(473)+1.24*A(475)+1.24*A(477)+0.64*A(479)+1.21*A(480)+A(492)+1.2*A(769)& - &+1.15*A(772)+A(917)+A(919)+1.5*A(921)+A(922)+1.5*A(923)+0.15*A(926)+1.558*A(927)+0.15*A(929)+A(989)+A(992)& - &+A(1001)+0.6*A(1054)+A(1055)+A(1056) + P_VAR(298) = 0.3*A(33)+0.5*A(136)+A(167)+0.1*A(184)+A(361)+0.3*A(496)+0.3*A(497)+0.3*A(503)+0.3*A(505)+0.085*A(524)& + &+0.165*A(525)+0.355*A(528)+0.5*A(529)+0.018*A(537)+0.018*A(538)+0.52*A(558)+0.8*A(559)+0.545*A(645)+0.88& + &*A(648)+0.449*A(650)+0.187*A(661)+A(662)+A(664)+0.05*A(667)+0.242*A(668)+0.083*A(670)+0.14*A(674)+0.7& + &*A(685)+0.25*A(707)+0.12*A(725)+0.2*A(726)+0.6*A(770)+0.6*A(771)+0.2*A(772)+0.5*A(1014)+0.47*A(1015)+0.571& + &*A(1016)+0.125*A(1017)+0.23*A(1018)+0.118*A(1041)+0.429*A(1043)+A(1047) IF (DO_FUN(299)) & - P_VAR(299) = A(587)+A(591)+A(596)+A(599)+A(602)+A(616)+A(618)+A(634)+A(636)+0.18*A(643) + P_VAR(299) = A(620)+0.33*A(621)+0.037*A(691) IF (DO_FUN(300)) & - P_VAR(300) = A(101)+0.21*A(174)+A(331)+0.2*A(772) + P_VAR(300) = A(57)+A(179)+A(219)+A(321)+A(701) IF (DO_FUN(301)) & - P_VAR(301) = 0.4*A(582)+0.4*A(583)+0.07*A(606)+0.532*A(607)+0.862*A(608)+0.401*A(609)+0.034*A(610)+0.159*A(612)+0.159& - &*A(614)+0.159*A(617)+A(619)+A(628)+0.159*A(1029)+0.223*A(1032) + P_VAR(301) = A(787)+A(789)+A(790) IF (DO_FUN(302)) & - P_VAR(302) = 0.6*A(583)+0.599*A(589)+A(590)+0.065*A(597)+0.142*A(598)+0.01*A(600)+0.028*A(601)+0.008*A(631)+0.015& - &*A(632)+0.014*A(633)+0.049*A(635)+0.161*A(638)+A(657)+A(669)+0.05*A(1038) + P_VAR(302) = A(63)+0.75*A(68)+0.5*A(71)+1.24*A(73)+0.326*A(78)+0.894*A(79)+0.15*A(90)+0.64*A(92)+0.15*A(93)+0.64*A(95)& + &+0.75*A(112)+0.09*A(113)+0.13*A(132)+0.58*A(133)+0.13*A(134)+0.58*A(135)+0.25*A(139)+A(141)+0.64*A(171)& + &+1.185*A(173)+1.185*A(174)+0.255*A(182)+0.255*A(183)+0.613*A(187)+0.613*A(188)+0.1*A(189)+0.035*A(192)& + &+A(193)+0.3*A(381)+0.6*A(412)+0.4*A(413)+0.6*A(414)+0.3*A(416)+0.44*A(436)+A(437)+A(440)+A(442)+0.75& + &*A(466)+A(467)+1.24*A(469)+0.93*A(473)+1.24*A(475)+1.24*A(477)+0.64*A(479)+1.21*A(480)+A(492)+1.2*A(769)& + &+1.15*A(772)+A(924)+A(926)+1.5*A(928)+A(929)+1.5*A(930)+0.15*A(933)+1.558*A(934)+0.15*A(936)+A(996)+A(999)& + &+A(1008)+0.6*A(1061)+A(1062)+A(1063) IF (DO_FUN(303)) & - P_VAR(303) = A(541)+A(545)+A(549)+0.482*A(585)+0.401*A(589)+0.418*A(594)+0.494*A(597)+0.621*A(600)+A(623)+A(624)+0.5& - &*A(630)+0.234*A(631)+0.387*A(632)+0.565*A(641) + P_VAR(303) = A(587)+A(591)+A(596)+A(599)+A(602)+A(616)+A(618)+A(634)+A(636)+0.18*A(643) IF (DO_FUN(304)) & - P_VAR(304) = 0.5*A(330)+A(495)+0.51*A(536)+0.03*A(538)+0.159*A(1030) + P_VAR(304) = A(101)+0.21*A(174)+A(331)+0.2*A(772) IF (DO_FUN(305)) & - P_VAR(305) = 0.5*A(330)+A(494)+0.75*A(535)+0.03*A(537)+0.841*A(1030) + P_VAR(305) = 0.4*A(582)+0.4*A(583)+0.07*A(606)+0.532*A(607)+0.862*A(608)+0.401*A(609)+0.034*A(610)+0.159*A(612)+0.159& + &*A(614)+0.159*A(617)+A(619)+A(628)+0.159*A(1036)+0.223*A(1039) IF (DO_FUN(306)) & - P_VAR(306) = 0.659*A(79)+A(80)+A(82)+A(83)+0.5*A(84)+A(88)+A(126)+0.5*A(453)+0.5*A(454)+0.25*A(455)+0.294*A(544)+0.135& - &*A(546)+A(548)+0.65*A(550)+0.52*A(558)+0.8*A(559)+0.459*A(585)+0.728*A(586)+0.551*A(594)+0.935*A(595)& - &+0.242*A(600)+0.546*A(601)+0.34*A(631)+0.384*A(633)+0.11*A(642)+0.09*A(643)+0.36*A(667)+0.758*A(668)+0.2& - &*A(718)+A(720)+A(721)+A(723)+A(746)+0.9*A(768)+0.95*A(771)+0.53*A(1008)+0.69*A(1013)+0.5*A(1032)+0.118& - &*A(1034)+0.25*A(1035)+0.429*A(1036)+0.3*A(1038)+0.35*A(1039)+A(1040) + P_VAR(306) = 0.6*A(583)+0.599*A(589)+A(590)+0.065*A(597)+0.142*A(598)+0.01*A(600)+0.028*A(601)+0.008*A(631)+0.015& + &*A(632)+0.014*A(633)+0.049*A(635)+0.161*A(638)+A(657)+A(669)+0.05*A(1045) IF (DO_FUN(307)) & - P_VAR(307) = 0.16*A(113)+0.2*A(136)+0.791*A(176)+0.065*A(192)+A(488)+0.5*A(529)+0.284*A(540)+0.135*A(542)+A(548)+0.65& - &*A(550)+0.8*A(563)+0.52*A(565)+0.52*A(566)+0.8*A(568)+A(569)+0.459*A(585)+0.728*A(586)+0.441*A(597)+0.858& - &*A(598)+0.033*A(600)+0.071*A(601)+0.042*A(631)+0.051*A(633)+0.77*A(652)+0.84*A(666)+0.507*A(670)+0.488& - &*A(672)+A(673)+0.86*A(674)+0.5*A(678)+A(679)+A(681)+0.7*A(682)+0.25*A(684)+A(993)+0.77*A(1011)+A(1014)+0.5& - &*A(1032)+0.586*A(1034)+0.25*A(1035)+0.571*A(1036)+0.45*A(1038)+0.8*A(1039) + P_VAR(307) = A(541)+A(545)+A(549)+0.482*A(585)+0.401*A(589)+0.418*A(594)+0.494*A(597)+0.621*A(600)+A(623)+A(624)+0.5& + &*A(630)+0.234*A(631)+0.387*A(632)+0.565*A(641) IF (DO_FUN(308)) & - P_VAR(308) = A(653) + P_VAR(308) = 0.465*A(603)+A(626) IF (DO_FUN(309)) & - P_VAR(309) = 0.416*A(493)+0.063*A(500)+A(504)+2*A(507)+A(508)+A(514)+A(521)+0.035*A(525)+0.14*A(527)+0.165*A(536)& - &+A(572)+A(573)+0.048*A(604)+0.123*A(606)+0.019*A(607)+0.028*A(610)+0.097*A(611)+0.097*A(613)+0.096*A(615)& - &+A(1017)+A(1023)+A(1026)+0.097*A(1028)+0.005*A(1032) + P_VAR(309) = 0.659*A(79)+A(80)+A(82)+A(83)+0.5*A(84)+A(88)+A(126)+0.5*A(453)+0.5*A(454)+0.25*A(455)+0.294*A(544)+0.135& + &*A(546)+A(548)+0.65*A(550)+0.52*A(558)+0.8*A(559)+0.459*A(585)+0.728*A(586)+0.551*A(594)+0.935*A(595)& + &+0.242*A(600)+0.546*A(601)+0.34*A(631)+0.384*A(633)+0.11*A(642)+0.09*A(643)+0.36*A(667)+0.758*A(668)+0.2& + &*A(718)+A(720)+A(721)+A(723)+A(746)+0.9*A(768)+0.95*A(771)+0.53*A(1015)+0.69*A(1020)+0.5*A(1039)+0.118& + &*A(1041)+0.25*A(1042)+0.429*A(1043)+0.3*A(1045)+0.35*A(1046)+A(1047) IF (DO_FUN(310)) & - P_VAR(310) = 0.465*A(603)+A(626) + P_VAR(310) = 0.535*A(603)+A(627) IF (DO_FUN(311)) & - P_VAR(311) = 0.535*A(603)+A(627) + P_VAR(311) = 0.16*A(113)+0.2*A(136)+0.791*A(176)+0.065*A(192)+A(488)+0.5*A(529)+0.284*A(540)+0.135*A(542)+A(548)+0.65& + &*A(550)+0.8*A(563)+0.52*A(565)+0.52*A(566)+0.8*A(568)+A(569)+0.459*A(585)+0.728*A(586)+0.441*A(597)+0.858& + &*A(598)+0.033*A(600)+0.071*A(601)+0.042*A(631)+0.051*A(633)+0.77*A(652)+0.84*A(666)+0.507*A(670)+0.488& + &*A(672)+A(673)+0.86*A(674)+0.5*A(678)+A(679)+A(681)+0.7*A(682)+0.25*A(684)+A(1000)+0.77*A(1018)+A(1021)& + &+0.5*A(1039)+0.586*A(1041)+0.25*A(1042)+0.571*A(1043)+0.45*A(1045)+0.8*A(1046) IF (DO_FUN(312)) & - P_VAR(312) = 0.22*A(150)+0.1*A(383)+0.33*A(421)+0.58*A(493)+0.5*A(645)+0.88*A(648)+0.5*A(704)+A(712) + P_VAR(312) = A(653) IF (DO_FUN(313)) & - P_VAR(313) = 0.7*A(33)+A(111)+A(218)+A(329) + P_VAR(313) = 0.416*A(493)+0.063*A(500)+A(504)+2*A(507)+A(508)+A(514)+A(521)+0.035*A(525)+0.14*A(527)+0.165*A(536)& + &+A(572)+A(573)+0.048*A(604)+0.123*A(606)+0.019*A(607)+0.028*A(610)+0.097*A(611)+0.097*A(613)+0.096*A(615)& + &+A(1024)+A(1030)+A(1033)+0.097*A(1035)+0.005*A(1039) IF (DO_FUN(314)) & - P_VAR(314) = 0.15*A(381)+0.45*A(445)+0.45*A(446)+0.3*A(447)+0.3*A(448)+0.15*A(449)+0.5*A(453)+0.5*A(454)+0.25*A(455)& - &+0.45*A(462)+0.45*A(463)+0.177*A(493)+0.063*A(498)+A(502)+2*A(506)+A(508)+A(512)+A(517)+0.035*A(524)+0.23& - &*A(526)+0.125*A(535)+A(570)+A(571)+0.479*A(604)+1.737*A(606)+0.544*A(607)+0.583*A(610)+0.903*A(611)+0.903& - &*A(613)+0.904*A(615)+0.04*A(725)+0.04*A(726)+A(1016)+A(1022)+A(1025)+0.903*A(1028)+0.05*A(1032)+0.45& - &*A(1057) + P_VAR(314) = 0.5*A(330)+A(494)+0.75*A(535)+0.03*A(537)+0.841*A(1037) IF (DO_FUN(315)) & - P_VAR(315) = 0.34*A(90)+0.34*A(93)+0.49*A(109)+0.16*A(132)+0.16*A(134)+0.22*A(148)+0.36*A(170)+0.29*A(182)+0.29*A(183)& - &+0.49*A(194)+0.49*A(195)+0.49*A(903)+0.415*A(906)+0.34*A(926)+0.34*A(929) + P_VAR(315) = 0.5*A(330)+A(495)+0.51*A(536)+0.03*A(538)+0.159*A(1037) IF (DO_FUN(316)) & - P_VAR(316) = A(204)+A(211)+A(793)+A(820)+A(821)+A(822) + P_VAR(316) = 0.7*A(33)+A(111)+A(218)+A(329) IF (DO_FUN(317)) & - P_VAR(317) = A(301) + P_VAR(317) = 0.22*A(150)+0.1*A(383)+0.33*A(421)+0.58*A(493)+0.5*A(645)+0.88*A(648)+0.5*A(704)+A(712) IF (DO_FUN(318)) & - P_VAR(318) = A(102)+0.5*A(763)+0.5*A(764) + P_VAR(318) = 0.15*A(381)+0.45*A(445)+0.45*A(446)+0.3*A(447)+0.3*A(448)+0.15*A(449)+0.5*A(453)+0.5*A(454)+0.25*A(455)& + &+0.45*A(462)+0.45*A(463)+0.177*A(493)+0.063*A(498)+A(502)+2*A(506)+A(508)+A(512)+A(517)+0.035*A(524)+0.23& + &*A(526)+0.125*A(535)+A(570)+A(571)+0.479*A(604)+1.737*A(606)+0.544*A(607)+0.583*A(610)+0.903*A(611)+0.903& + &*A(613)+0.904*A(615)+0.04*A(725)+0.04*A(726)+A(1023)+A(1029)+A(1032)+0.903*A(1035)+0.05*A(1039)+0.45& + &*A(1064) IF (DO_FUN(319)) & - P_VAR(319) = 0.25*A(68)+A(89)+0.15*A(133)+0.15*A(135)+0.21*A(173)+0.27*A(187)+0.27*A(188)+0.6*A(412)+0.4*A(413)+0.6& - &*A(414)+0.3*A(416)+0.352*A(436)+0.8*A(437)+0.8*A(440)+0.8*A(442)+0.6*A(466)+0.8*A(467)+0.6*A(1054)+0.8& - &*A(1055)+0.8*A(1056) + P_VAR(319) = 0.34*A(90)+0.34*A(93)+0.49*A(109)+0.16*A(132)+0.16*A(134)+0.22*A(148)+0.36*A(170)+0.29*A(182)+0.29*A(183)& + &+0.49*A(194)+0.49*A(195)+0.49*A(910)+0.415*A(913)+0.34*A(933)+0.34*A(936) IF (DO_FUN(320)) & - P_VAR(320) = A(122)+A(131)+0.3*A(381) + P_VAR(320) = A(204)+A(211)+A(793)+A(820)+A(821)+A(822) IF (DO_FUN(321)) & - P_VAR(321) = A(62)+0.05*A(90)+0.05*A(93)+0.07*A(109)+0.03*A(132)+0.03*A(134)+0.03*A(148)+0.36*A(171)+0.045*A(182)& - &+0.045*A(183)+0.07*A(194)+0.07*A(195)+A(220)+A(328)+0.07*A(903)+0.06*A(906)+0.05*A(926)+0.05*A(929) + P_VAR(321) = A(301) IF (DO_FUN(322)) & - P_VAR(322) = A(105)+A(107)+A(110)+A(175)+0.84*A(399)+A(400)+0.75*A(401)+0.5*A(402)+0.4*A(403)+A(736)+0.44*A(737)+0.33& - &*A(767)+0.33*A(770)+0.15*A(906)+A(914)+0.326*A(927)+0.7*A(1047)+A(1052) + P_VAR(322) = A(102)+0.5*A(763)+0.5*A(764) IF (DO_FUN(323)) & - P_VAR(323) = A(61)+0.19*A(90)+0.19*A(93)+0.27*A(109)+0.09*A(132)+0.09*A(134)+0.12*A(148)+0.209*A(172)+0.162*A(182)& - &+0.162*A(183)+0.27*A(194)+0.27*A(195)+A(327)+0.27*A(903)+0.23*A(906)+0.19*A(926)+0.19*A(929) + P_VAR(323) = 0.25*A(68)+A(89)+0.15*A(133)+0.15*A(135)+0.21*A(173)+0.27*A(187)+0.27*A(188)+0.6*A(412)+0.4*A(413)+0.6& + &*A(414)+0.3*A(416)+0.352*A(436)+0.8*A(437)+0.8*A(440)+0.8*A(442)+0.6*A(466)+0.8*A(467)+0.6*A(1061)+0.8& + &*A(1062)+0.8*A(1063) IF (DO_FUN(324)) & - P_VAR(324) = 0.95*A(51)+A(52)+A(54)+A(96)+0.919*A(97)+0.15*A(118)+0.15*A(119)+0.62*A(123)+0.3*A(136)+0.5*A(137)+A(164)& + P_VAR(324) = A(122)+A(131)+0.3*A(381) +IF (DO_FUN(325)) & + P_VAR(325) = A(105)+A(107)+A(110)+A(175)+0.84*A(399)+A(400)+0.75*A(401)+0.5*A(402)+0.4*A(403)+A(736)+0.44*A(737)+0.33& + &*A(767)+0.33*A(770)+0.15*A(913)+A(921)+0.326*A(934)+0.7*A(1054)+A(1059) +IF (DO_FUN(326)) & + P_VAR(326) = A(62)+0.05*A(90)+0.05*A(93)+0.07*A(109)+0.03*A(132)+0.03*A(134)+0.03*A(148)+0.36*A(171)+0.045*A(182)& + &+0.045*A(183)+0.07*A(194)+0.07*A(195)+A(220)+A(328)+0.07*A(910)+0.06*A(913)+0.05*A(933)+0.05*A(936) +IF (DO_FUN(327)) & + P_VAR(327) = A(61)+0.19*A(90)+0.19*A(93)+0.27*A(109)+0.09*A(132)+0.09*A(134)+0.12*A(148)+0.209*A(172)+0.162*A(182)& + &+0.162*A(183)+0.27*A(194)+0.27*A(195)+A(327)+0.27*A(910)+0.23*A(913)+0.19*A(933)+0.19*A(936) +IF (DO_FUN(328)) & + P_VAR(328) = 0.95*A(51)+A(52)+A(54)+A(96)+0.919*A(97)+0.15*A(118)+0.15*A(119)+0.62*A(123)+0.3*A(136)+0.5*A(137)+A(164)& &+A(166)+0.78*A(178)+0.9*A(184)+0.9*A(185)+A(217)+0.44*A(436)+A(437)+A(440)+A(442)+0.75*A(466)+A(467)+0.3& &*A(496)+0.3*A(503)+0.018*A(537)+0.38*A(645)+0.12*A(648)+0.04*A(650)+0.097*A(661)+A(665)+0.36*A(667)+0.758& - &*A(668)+0.175*A(671)+0.087*A(672)+0.35*A(676)+0.3*A(685)+A(692)+A(693)+A(740)+0.12*A(897)+0.7*A(899)& - &+A(902)+A(904)+0.85*A(906)+A(911)+A(913)+A(915)+A(916)+0.326*A(927)+A(984)+A(1004)+A(1005)+A(1006)+0.5& - &*A(1007)+0.53*A(1008)+0.429*A(1009)+0.125*A(1010)+0.262*A(1012)+1.01*A(1013)+A(1055)+A(1056) -IF (DO_FUN(325)) & - P_VAR(325) = A(11)+A(12)+A(17)+A(26)+A(29)+2*A(30)+0.87*A(31)+0.3*A(32)+A(48)+0.05*A(51)+A(55)+A(65)+0.98*A(73)+A(76)& + &*A(668)+0.175*A(671)+0.087*A(672)+0.35*A(676)+0.3*A(685)+A(692)+A(693)+A(740)+0.12*A(904)+0.7*A(906)& + &+A(909)+A(911)+0.85*A(913)+A(918)+A(920)+A(922)+A(923)+0.326*A(934)+A(991)+A(1011)+A(1012)+A(1013)+0.5& + &*A(1014)+0.53*A(1015)+0.429*A(1016)+0.125*A(1017)+0.262*A(1019)+1.01*A(1020)+A(1062)+A(1063) +IF (DO_FUN(329)) & + P_VAR(329) = A(11)+A(12)+A(17)+A(26)+A(29)+2*A(30)+0.87*A(31)+0.3*A(32)+A(48)+0.05*A(51)+A(55)+A(65)+0.98*A(73)+A(76)& &+A(77)+0.603*A(78)+A(80)+0.065*A(81)+A(84)+A(85)+0.64*A(92)+0.64*A(95)+A(96)+A(100)+0.75*A(112)+1.25& &*A(113)+0.15*A(118)+0.31*A(123)+0.75*A(129)+0.75*A(130)+0.75*A(132)+0.95*A(133)+0.75*A(134)+0.95*A(135)& &+0.5*A(136)+0.75*A(137)+0.75*A(138)+1.25*A(139)+0.5*A(150)+0.732*A(151)+A(157)+0.44*A(158)+A(159)+A(160)& @@ -4038,31 +4068,36 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, Vdot, P_VAR, D_VAR, Aout ) &+0.563*A(607)+0.645*A(609)+1.577*A(610)+A(611)+A(613)+A(615)+0.126*A(631)+0.088*A(632)+0.249*A(633)+0.34& &*A(635)+0.6*A(645)+0.12*A(648)+0.241*A(650)+0.05*A(667)+0.242*A(668)+0.083*A(670)+0.5*A(671)+0.25*A(672)& &+0.14*A(674)+A(676)+A(682)+0.022*A(691)+0.5*A(694)+A(696)+A(702)+A(703)+0.5*A(704)+0.25*A(705)+A(706)+0.12& - &*A(707)+A(712)+0.8*A(718)+2*A(719)+A(730)+A(740)+A(765)+A(766)+A(779)+A(887)+0.3*A(901)+A(902)+0.9*A(907)& - &+A(910)+A(913)+A(915)+A(916)+A(924)+A(982)+A(984)+A(990)+A(998)+A(1002)+A(1003)+A(1005)+A(1006)+0.47& - &*A(1008)+0.23*A(1011)+0.75*A(1012)+A(1016)+A(1017)+A(1025)+A(1026)+A(1028)+0.055*A(1032)+0.133*A(1034)& - &+0.55*A(1038)+0.15*A(1039)+A(1052)+A(1053)+0.4*A(1055)+0.4*A(1056)+0.1*A(1057) -IF (DO_FUN(326)) & - P_VAR(326) = A(58)+A(60)+A(65)+0.65*A(73)+0.34*A(90)+0.97*A(92)+0.34*A(93)+0.97*A(95)+0.919*A(97)+A(100)+A(108)+0.5& + &*A(707)+A(712)+0.8*A(718)+2*A(719)+A(730)+A(740)+A(765)+A(766)+A(779)+A(887)+A(888)+A(894)+0.3*A(908)& + &+A(909)+0.9*A(914)+A(917)+A(920)+A(922)+A(923)+A(931)+A(989)+A(991)+A(997)+A(1005)+A(1009)+A(1010)+A(1012)& + &+A(1013)+0.47*A(1015)+0.23*A(1018)+0.75*A(1019)+A(1023)+A(1024)+A(1032)+A(1033)+A(1035)+0.055*A(1039)& + &+0.133*A(1041)+0.55*A(1045)+0.15*A(1046)+A(1059)+A(1060)+0.4*A(1062)+0.4*A(1063)+0.1*A(1064) +IF (DO_FUN(330)) & + P_VAR(330) = A(58)+A(60)+A(65)+0.65*A(73)+0.34*A(90)+0.97*A(92)+0.34*A(93)+0.97*A(95)+0.919*A(97)+A(100)+A(108)+0.5& &*A(113)+0.15*A(119)+0.62*A(123)+0.75*A(129)+0.75*A(130)+0.16*A(132)+0.38*A(133)+0.16*A(134)+0.38*A(135)& &+0.5*A(137)+0.5*A(139)+A(140)+1.6*A(142)+1.6*A(143)+0.5*A(150)+0.64*A(170)+0.29*A(182)+0.29*A(183)+0.9& &*A(185)+0.675*A(187)+0.675*A(188)+0.9*A(189)+A(190)+A(191)+0.9*A(192)+A(322)+A(323)+A(325)+A(369)+A(370)& - &+A(371)+A(372)+A(373)+A(490)+0.4*A(705)+A(918)+A(924)+A(925)+0.34*A(926)+0.348*A(927)+0.34*A(929)+A(999) -IF (DO_FUN(327)) & - P_VAR(327) = A(35)+A(50)+A(52)+A(67)+A(101)+A(110)+A(131)+A(154)+A(165)+A(166)+A(179)+A(201)+A(389)+A(486)+A(487)+0.32& + &+A(371)+A(372)+A(373)+A(490)+0.4*A(705)+A(925)+A(931)+A(932)+0.34*A(933)+0.348*A(934)+0.34*A(936)+A(1006) +IF (DO_FUN(331)) & + P_VAR(331) = A(337)+A(339)+0.2*A(344)+0.809*A(349)+A(352)+A(353)+A(356)+0.4*A(357)+0.996*A(358)+A(359)+2*A(973)+A(974)& + &+A(975)+A(976)+A(977)+A(978)+A(979)+A(980)+A(981)+2*A(982)+A(983)+A(984)+A(987)+A(988) +IF (DO_FUN(332)) & + P_VAR(332) = A(273)+A(277)+A(278)+A(281)+A(282)+A(299)+A(795) +IF (DO_FUN(333)) & + P_VAR(333) = A(35)+A(50)+A(52)+A(67)+A(101)+A(110)+A(131)+A(154)+A(165)+A(166)+A(179)+A(201)+A(389)+A(486)+A(487)+0.32& &*A(649)+A(692)+A(706)+A(708)+0.742*A(742)+0.5*A(744)+0.5*A(747)+A(749)+0.5*A(764)+0.5*A(782)+A(783)+2& &*A(786)+A(787)+2*A(788)+A(789)+A(790)+A(793)+A(794)+A(795)+A(796)+A(797)+A(798)+A(799)+A(800)+A(801)& &+A(841)+A(842)+A(843)+A(848)+A(849)+A(850)+A(851) -IF (DO_FUN(328)) & - P_VAR(328) = A(25)+0.7*A(32)+A(56)+0.19*A(90)+0.19*A(93)+A(104)+0.85*A(119)+0.09*A(132)+0.09*A(134)+0.25*A(137)+0.28& +IF (DO_FUN(334)) & + P_VAR(334) = A(25)+0.7*A(32)+A(56)+0.19*A(90)+0.19*A(93)+A(104)+0.85*A(119)+0.09*A(132)+0.09*A(134)+0.25*A(137)+0.28& &*A(150)+0.5*A(168)+2*A(180)+0.9*A(181)+0.9*A(182)+0.9*A(183)+0.9*A(184)+0.9*A(185)+0.9*A(186)+0.9*A(187)& &+0.9*A(188)+0.9*A(189)+0.9*A(190)+0.9*A(191)+0.9*A(192)+0.9*A(193)+A(194)+A(198)+A(199)+A(200)+A(201)+0.75& &*A(231)+0.9*A(257)+A(258)+A(291)+A(320)+A(326)+A(359)+0.9*A(457)+0.9*A(459)+0.9*A(461)+0.9*A(463)+A(465)& &+A(467)+A(474)+0.5*A(475)+0.407*A(493)+A(611)+A(612)+0.325*A(671)+0.162*A(672)+0.65*A(676)+0.5*A(695)& - &+A(731)+0.88*A(897)+0.3*A(899)+A(904)+2*A(905)+0.15*A(906)+A(914)+A(925)+0.19*A(926)+0.19*A(929)+A(930)& - &+A(939)+A(940)+A(983)+0.488*A(1012) -IF (DO_FUN(329)) & - P_VAR(329) = A(34)+A(50)+0.05*A(51)+A(55)+A(80)+A(82)+A(83)+A(84)+A(85)+A(88)+A(108)+A(126)+0.56*A(150)+0.505*A(151)& + &+A(731)+0.88*A(904)+0.3*A(906)+A(911)+2*A(912)+0.15*A(913)+A(921)+A(932)+0.19*A(933)+0.19*A(936)+A(937)& + &+A(946)+A(947)+A(990)+0.488*A(1019) +IF (DO_FUN(335)) & + P_VAR(335) = A(34)+A(50)+0.05*A(51)+A(55)+A(80)+A(82)+A(83)+A(84)+A(85)+A(88)+A(108)+A(126)+0.56*A(150)+0.505*A(151)& &+A(152)+A(160)+2*A(163)+A(164)+2*A(165)+A(166)+0.5*A(168)+A(216)+A(238)+A(252)+A(292)+A(315)+A(316)+A(317)& &+0.15*A(379)+0.1*A(383)+0.407*A(493)+0.6*A(496)+0.9*A(497)+0.6*A(503)+0.9*A(505)+A(509)+A(510)+A(511)+0.5& &*A(513)+0.5*A(515)+0.55*A(519)+0.55*A(523)+0.45*A(524)+0.37*A(525)+0.42*A(526)+0.23*A(527)+0.638*A(528)& @@ -4072,47 +4107,23 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, Vdot, P_VAR, D_VAR, Aout ) &+A(664)+2*A(665)+0.84*A(666)+0.507*A(670)+0.325*A(671)+0.488*A(672)+A(673)+0.86*A(674)+0.65*A(676)+0.25& &*A(684)+A(685)+A(686)+0.888*A(687)+A(690)+A(696)+0.18*A(704)+0.12*A(707)+0.364*A(714)+0.2*A(724)+0.27& &*A(725)+0.3*A(726)+2*A(740)+0.15*A(763)+0.15*A(764)+0.26*A(767)+0.5*A(768)+0.25*A(770)+0.5*A(771)+0.05& - &*A(772)+A(888)+A(889)+0.88*A(897)+A(898)+0.7*A(901)+A(902)+A(903)+A(905)+A(907)+2*A(908)+2*A(909)+A(910)& - &+A(911)+A(912)+A(913)+A(915)+A(986)+A(990)+A(1003)+A(1006)+0.5*A(1007)+0.571*A(1009)+0.875*A(1010)+0.77& - &*A(1011)+A(1014)+A(1015)+0.888*A(1020)+0.818*A(1021)+A(1022)+A(1023)+0.55*A(1024)+0.55*A(1027)+0.839& - &*A(1031)+A(1033)+0.163*A(1034)+A(1037)+A(1041)+A(1043)+A(1046)+A(1049)+A(1058) -IF (DO_FUN(330)) & - P_VAR(330) = A(352)+A(355)+A(843) -IF (DO_FUN(331)) & - P_VAR(331) = A(337)+A(339)+0.2*A(344)+0.809*A(349)+A(352)+A(353)+A(356)+0.4*A(357)+0.996*A(358)+A(359)+2*A(966)+A(967)& - &+A(968)+A(969)+A(970)+A(971)+A(972)+A(973)+A(974)+2*A(975)+A(976)+A(977)+A(980)+A(981) -IF (DO_FUN(332)) & - P_VAR(332) = A(339)+A(340) -IF (DO_FUN(333)) & - P_VAR(333) = A(273)+A(277)+A(278)+A(281)+A(282)+A(299)+A(795) -IF (DO_FUN(334)) & - P_VAR(334) = A(883)+A(985) -IF (DO_FUN(335)) & - P_VAR(335) = A(13)+A(22)+A(26)+A(38)+A(40)+A(41)+A(42)+2*A(43)+A(44)+A(46)+A(49)+A(54)+A(55)+A(56)+A(58)+A(60)+A(63)& - &+A(65)+A(68)+2*A(73)+A(76)+0.942*A(78)+A(80)+A(82)+A(85)+A(87)+A(90)+2*A(92)+A(93)+2*A(95)+A(96)+0.928& - &*A(97)+A(98)+2*A(100)+A(107)+A(108)+A(109)+0.93*A(123)+A(125)+A(126)+A(127)+A(133)+A(135)+A(139)+A(156)& - &+A(157)+A(159)+A(160)+A(187)+A(188)+A(189)+2*A(196)+A(198)+A(209)+A(215)+A(241)+A(242)+A(281)+A(300)& - &+A(337)+2*A(338)+A(341)+A(348)+A(356)+A(360)+A(361)+A(363)+A(370)+0.75*A(385)+A(386)+0.5*A(388)+A(392)& - &+A(394)+A(395)+0.84*A(399)+A(400)+0.5*A(403)+0.75*A(405)+A(406)+0.5*A(407)+A(412)+A(414)+0.5*A(416)+0.75& - &*A(418)+A(419)+0.5*A(426)+0.5*A(427)+A(428)+0.84*A(429)+A(431)+A(434)+0.5*A(435)+A(437)+A(439)+A(440)& - &+A(445)+A(446)+0.5*A(449)+0.3*A(450)+0.3*A(451)+1.15*A(452)+0.5*A(455)+A(468)+2*A(469)+0.5*A(473)+A(475)& - &+A(476)+2*A(477)+0.5*A(479)+A(480)+A(489)+A(490)+A(491)+A(492)+A(517)+A(519)+A(521)+A(523)+A(540)+A(544)& - &+A(548)+A(559)+A(563)+A(568)+A(570)+A(572)+A(575)+A(577)+A(578)+A(580)+0.459*A(585)+1.728*A(586)+A(590)& - &+A(595)+A(598)+A(601)+0.527*A(604)+1.86*A(606)+0.563*A(607)+0.611*A(610)+A(611)+2*A(613)+A(614)+2*A(615)& - &+A(617)+A(625)+0.058*A(631)+1.065*A(633)+A(635)+A(637)+A(639)+0.565*A(641)+1.11*A(642)+0.09*A(643)+0.31& - &*A(650)+A(655)+A(658)+A(668)+A(674)+A(676)+0.5*A(678)+2*A(679)+A(680)+2*A(681)+0.7*A(682)+A(683)+A(690)& - &+0.022*A(691)+A(692)+A(703)+0.89*A(709)+A(711)+0.995*A(716)+A(717)+A(721)+A(728)+A(729)+A(733)+A(736)& - &+A(739)+A(740)+A(751)+A(754)+A(755)+A(757)+A(758)+0.5*A(763)+A(764)+A(779)+A(890)+A(893)+A(894)+A(896)+0.7& - &*A(899)+A(900)+A(917)+A(926)+A(927)+A(928)+A(929)+A(935)+A(936)+A(947)+A(949)+A(971)+A(983)+A(990)+A(991)& - &+A(992)+A(993)+A(995)+A(997)+A(998)+A(999)+A(1000)+A(1001)+A(1005)+0.7*A(1013)+A(1014)+A(1024)+A(1025)& - &+A(1026)+A(1027)+A(1028)+A(1030)+A(1031)+1.555*A(1032)+0.3*A(1038)+A(1039)+A(1040)+A(1041)+0.7*A(1047) + &*A(772)+A(895)+A(896)+0.88*A(904)+A(905)+0.7*A(908)+A(909)+A(910)+A(912)+A(914)+2*A(915)+2*A(916)+A(917)& + &+A(918)+A(919)+A(920)+A(922)+A(993)+A(997)+A(1010)+A(1013)+0.5*A(1014)+0.571*A(1016)+0.875*A(1017)+0.77& + &*A(1018)+A(1021)+A(1022)+0.888*A(1027)+0.818*A(1028)+A(1029)+A(1030)+0.55*A(1031)+0.55*A(1034)+0.839& + &*A(1038)+A(1040)+0.163*A(1041)+A(1044)+A(1048)+A(1050)+A(1053)+A(1056)+A(1065) IF (DO_FUN(336)) & - P_VAR(336) = A(18)+A(20)+A(21)+A(25)+A(32)+A(33)+A(34)+A(36)+A(38)+A(41)+A(47)+A(51)+A(57)+A(72)+A(102)+A(103)+A(104)& - &+A(105)+A(111)+A(122)+A(206)+A(225)+A(234)+0.02*A(247)+A(279)+A(280)+A(283)+A(286)+A(287)+A(288)+A(289)& - &+A(290)+A(318)+A(353)+A(354)+A(359)+A(701)+A(781)+A(808)+A(809)+A(810)+A(811)+A(813)+A(814)+A(815)+A(816)& - &+A(928) + P_VAR(336) = A(341)+A(343)+A(348)+A(350)+A(354)+0.008*A(358)+A(986) IF (DO_FUN(337)) & - P_VAR(337) = A(14)+A(17)+A(21)+A(24)+A(26)+2*A(30)+1.74*A(31)+A(34)+A(40)+A(44)+A(47)+A(48)+A(50)+0.05*A(51)+A(58)& + P_VAR(337) = A(890)+A(992) +IF (DO_FUN(338)) & + P_VAR(338) = A(49)+1.22*A(230)+A(240)+A(248)+2*A(335)+A(700)+A(774)+A(776)+A(778)+A(892)+A(898)+A(902)+A(977) +IF (DO_FUN(339)) & + P_VAR(339) = A(2) +IF (DO_FUN(340)) & + P_VAR(340) = 0.12*A(253)+A(276)+A(291)+A(292)+A(294)+A(295)+A(296)+2*A(315)+A(316)+A(317)+A(318)+A(320)+A(321)+A(324)& + &+A(325)+A(326)+A(327)+A(328)+A(329)+A(330)+A(331)+A(332)+A(812) +IF (DO_FUN(341)) & + P_VAR(341) = A(14)+A(17)+A(21)+A(24)+A(26)+2*A(30)+1.74*A(31)+A(34)+A(40)+A(44)+A(47)+A(48)+A(50)+0.05*A(51)+A(58)& &+A(60)+A(63)+A(65)+0.75*A(68)+0.513*A(78)+A(80)+0.425*A(81)+A(82)+A(83)+0.25*A(84)+A(85)+0.27*A(90)+0.27& &*A(93)+A(98)+A(112)+A(113)+A(129)+A(130)+0.64*A(132)+0.5*A(133)+0.64*A(134)+0.5*A(135)+0.3*A(136)+0.5& &*A(137)+A(138)+0.5*A(139)+A(140)+A(141)+1.2*A(142)+1.2*A(143)+0.28*A(150)+0.773*A(151)+0.2*A(153)+A(157)& @@ -4135,42 +4146,19 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, Vdot, P_VAR, D_VAR, Aout ) &*A(704)+0.18*A(705)+0.03*A(707)+A(709)+A(711)+0.364*A(714)+0.6*A(718)+A(719)+A(720)+0.54*A(724)+0.19& &*A(725)+0.15*A(726)+A(727)+A(728)+A(729)+2*A(730)+A(731)+A(733)+0.8*A(741)+0.727*A(743)+A(746)+A(765)& &+A(766)+0.33*A(767)+0.1*A(768)+0.2*A(769)+0.33*A(770)+0.1*A(771)+0.2*A(772)+A(773)+A(775)+A(777)+A(779)& - &+A(887)+A(888)+A(893)+A(897)+0.3*A(901)+A(902)+A(903)+1.73*A(907)+2*A(908)+A(911)+A(913)+A(915)+A(916)& - &+A(917)+A(918)+A(919)+A(920)+A(921)+A(922)+A(923)+A(924)+A(925)+0.27*A(926)+0.326*A(927)+A(928)+0.27& - &*A(929)+A(982)+A(989)+A(990)+A(998)+A(999)+A(1000)+A(1001)+A(1003)+A(1004)+A(1006)+1.5*A(1007)+0.47& - &*A(1008)+0.571*A(1009)+0.125*A(1010)+A(1011)+0.29*A(1013)+A(1014)+A(1015)+A(1016)+A(1017)+A(1018)+A(1019)& - &+0.112*A(1020)+0.182*A(1021)+A(1022)+A(1023)+0.45*A(1024)+A(1025)+A(1026)+0.45*A(1027)+0.33*A(1028)+0.159& - &*A(1029)+0.161*A(1031)+0.228*A(1032)+1.5*A(1033)+A(1034)+0.75*A(1035)+A(1036)+1.454*A(1037)+0.7*A(1038)& - &+0.7*A(1039)+A(1041)+A(1043)+A(1046)+A(1048)+A(1049)+A(1053)+A(1054)+A(1057)+A(1058) -IF (DO_FUN(338)) & - P_VAR(338) = 0.22*A(253)+0.75*A(255)+0.79*A(256)+0.46*A(257)+0.56*A(261)+0.9*A(262)+0.86*A(263)+0.34*A(264)+0.69& - &*A(266)+0.65*A(267)+0.79*A(268)+0.8*A(269)+0.85*A(270)+0.86*A(271)+A(280)+A(293)+A(297)+2*A(308)+0.1& - &*A(309)+A(313)+A(319)+A(322)+A(323)+A(945)+A(949) -IF (DO_FUN(339)) & - P_VAR(339) = 0.12*A(253)+A(276)+A(291)+A(292)+A(294)+A(295)+A(296)+2*A(315)+A(316)+A(317)+A(318)+A(320)+A(321)+A(324)& - &+A(325)+A(326)+A(327)+A(328)+A(329)+A(330)+A(331)+A(332)+A(812) -IF (DO_FUN(340)) & - P_VAR(340) = 0.66*A(253)+0.75*A(255)+2.37*A(256)+0.35*A(257)+0.19*A(261)+1.8*A(262)+0.86*A(263)+0.31*A(264)+0.69& - &*A(266)+0.79*A(268)+1.9*A(269)+0.95*A(270)+A(273)+A(275)+A(279)+A(283)+2*A(284)+3*A(285)+3*A(286)+A(287)+2& - &*A(288)+A(289)+2*A(290)+A(298)+A(300)+A(303)+A(304)+A(306)+2*A(316)+3*A(317)+0.249*A(349)+A(940)+2*A(941)& - &+A(942)+2*A(943)+A(944)+A(946)+A(947)+A(948)+A(950)+3*A(951)+4*A(952)+3*A(953)+2*A(954)+3*A(955)+2*A(956)& - &+A(957)+2*A(958)+2*A(959)+A(960)+A(961)+A(963)+A(965)+A(976)+A(981) -IF (DO_FUN(341)) & - P_VAR(341) = 0.15*A(128)+0.15*A(148)+0.15*A(158)+A(232)+0.15*A(391)+0.15*A(436)+0.13*A(671)+0.13*A(678)+0.13*A(695)& - &+0.15*A(737)+0.15*A(750) + &+A(894)+A(895)+A(900)+A(904)+0.3*A(908)+A(909)+A(910)+1.73*A(914)+2*A(915)+A(918)+A(920)+A(922)+A(923)& + &+A(924)+A(925)+A(926)+A(927)+A(928)+A(929)+A(930)+A(931)+A(932)+0.27*A(933)+0.326*A(934)+A(935)+0.27& + &*A(936)+A(989)+A(996)+A(997)+A(1005)+A(1006)+A(1007)+A(1008)+A(1010)+A(1011)+A(1013)+1.5*A(1014)+0.47& + &*A(1015)+0.571*A(1016)+0.125*A(1017)+A(1018)+0.29*A(1020)+A(1021)+A(1022)+A(1023)+A(1024)+A(1025)+A(1026)& + &+0.112*A(1027)+0.182*A(1028)+A(1029)+A(1030)+0.45*A(1031)+A(1032)+A(1033)+0.45*A(1034)+0.33*A(1035)+0.159& + &*A(1036)+0.161*A(1038)+0.228*A(1039)+1.5*A(1040)+A(1041)+0.75*A(1042)+A(1043)+1.454*A(1044)+0.7*A(1045)& + &+0.7*A(1046)+A(1048)+A(1050)+A(1053)+A(1055)+A(1056)+A(1060)+A(1061)+A(1064)+A(1065) IF (DO_FUN(342)) & P_VAR(342) = A(206)+2*A(207)+A(209)+A(211)+A(213)+A(214)+3*A(223)+2*A(224)+A(225)+A(251)+0.6*A(254)+0.56*A(258)+0.95& - &*A(259)+1.4*A(260)+0.34*A(264)+0.75*A(272)+A(310)+A(311)+A(343)+A(344)+2*A(931)+A(932)+A(933)+A(934)& - &+A(936)+3*A(937)+2*A(938)+A(939)+A(942)+A(962)+A(963)+2*A(964)+A(977)+A(980) + &*A(259)+1.4*A(260)+0.34*A(264)+0.75*A(272)+A(310)+A(311)+A(343)+A(344)+2*A(938)+A(939)+A(940)+A(941)& + &+A(943)+3*A(944)+2*A(945)+A(946)+A(949)+A(969)+A(970)+2*A(971)+A(984)+A(987) IF (DO_FUN(343)) & - P_VAR(343) = A(18)+A(227)+A(228)+A(237)+0.02*A(247)+A(248)+A(249)+A(250)+0.12*A(253)+0.2*A(254)+0.25*A(255)+0.21& - &*A(256)+0.1*A(257)+0.05*A(259)+0.3*A(260)+0.25*A(261)+0.1*A(262)+0.14*A(263)+0.35*A(264)+0.55*A(265)+0.31& - &*A(266)+0.35*A(267)+0.21*A(268)+0.1*A(269)+0.1*A(270)+0.14*A(271)+0.25*A(272)+A(882)+2*A(884)+A(885)& - &+A(894)+A(932)+A(944)+A(945)+A(968)+A(988) -IF (DO_FUN(344)) & - P_VAR(344) = A(5) -IF (DO_FUN(345)) & - P_VAR(345) = A(15)+A(22)+0.3*A(32)+0.3*A(33)+A(42)+0.5*A(71)+0.25*A(84)+0.15*A(118)+0.15*A(119)+0.44*A(128)+0.44& + P_VAR(343) = A(15)+A(22)+0.3*A(32)+0.3*A(33)+A(42)+0.5*A(71)+0.25*A(84)+0.15*A(118)+0.15*A(119)+0.44*A(128)+0.44& &*A(148)+0.36*A(150)+0.227*A(151)+A(152)+0.44*A(158)+A(168)+0.791*A(169)+0.64*A(170)+0.64*A(171)+0.791& &*A(172)+0.79*A(173)+0.79*A(174)+0.791*A(176)+A(177)+0.22*A(178)+A(212)+A(213)+2*A(226)+A(229)+0.75*A(231)& &+A(236)+A(244)+A(246)+1.788*A(247)+A(252)+0.66*A(253)+0.6*A(254)+0.05*A(261)+A(297)+0.865*A(379)+0.8& @@ -4185,38 +4173,79 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, Vdot, P_VAR, D_VAR, Aout ) &+A(659)+0.285*A(661)+A(662)+A(664)+0.665*A(667)+0.59*A(670)+0.5*A(671)+0.585*A(672)+A(673)+0.5*A(678)+0.7& &*A(685)+0.5*A(686)+0.444*A(687)+A(688)+A(689)+0.3*A(691)+0.5*A(694)+0.5*A(695)+A(696)+A(697)+A(698)+0.18& &*A(704)+A(710)+0.636*A(714)+A(723)+A(727)+0.44*A(737)+A(746)+0.2*A(750)+0.25*A(767)+0.1*A(768)+0.25*A(770)& - &+0.1*A(771)+2*A(886)+A(887)+A(890)+A(891)+A(892)+0.07*A(907)+A(917)+A(918)+A(919)+A(920)+A(921)+A(922)& - &+A(923)+A(924)+A(925)+A(930)+A(933)+A(950)+A(967)+A(984)+2*A(987)+A(989)+2*A(1002)+A(1003)+A(1008)+A(1009)& - &+1.75*A(1010)+A(1011)+0.75*A(1012)+0.01*A(1013)+A(1015)+A(1016)+A(1017)+A(1018)+A(1019)+1.662*A(1020)& - &+1.637*A(1021)+A(1022)+A(1023)+0.55*A(1024)+0.55*A(1027)+0.67*A(1028)+A(1029)+0.645*A(1031)+0.5*A(1033)& - &+A(1034)+1.25*A(1035)+A(1036)+0.546*A(1037)+A(1038)+0.3*A(1039)+A(1040)+A(1042)+A(1044)+A(1048)+A(1050)& - &+A(1051)+A(1052)+A(1053)+A(1054)+A(1055)+A(1056)+A(1057) + &+0.1*A(771)+2*A(893)+A(894)+A(897)+A(898)+A(899)+0.07*A(914)+A(924)+A(925)+A(926)+A(927)+A(928)+A(929)& + &+A(930)+A(931)+A(932)+A(937)+A(940)+A(957)+A(974)+A(991)+2*A(994)+A(996)+2*A(1009)+A(1010)+A(1015)+A(1016)& + &+1.75*A(1017)+A(1018)+0.75*A(1019)+0.01*A(1020)+A(1022)+A(1023)+A(1024)+A(1025)+A(1026)+1.662*A(1027)& + &+1.637*A(1028)+A(1029)+A(1030)+0.55*A(1031)+0.55*A(1034)+0.67*A(1035)+A(1036)+0.645*A(1038)+0.5*A(1040)& + &+A(1041)+1.25*A(1042)+A(1043)+0.546*A(1044)+A(1045)+0.3*A(1046)+A(1047)+A(1049)+A(1051)+A(1055)+A(1057)& + &+A(1058)+A(1059)+A(1060)+A(1061)+A(1062)+A(1063)+A(1064) +IF (DO_FUN(344)) & + P_VAR(344) = 0.22*A(253)+0.75*A(255)+0.79*A(256)+0.46*A(257)+0.56*A(261)+0.9*A(262)+0.86*A(263)+0.34*A(264)+0.69& + &*A(266)+0.65*A(267)+0.79*A(268)+0.8*A(269)+0.85*A(270)+0.86*A(271)+A(280)+A(293)+A(297)+2*A(308)+0.1& + &*A(309)+A(313)+A(319)+A(322)+A(323)+A(952)+A(956) +IF (DO_FUN(345)) & + P_VAR(345) = A(13)+A(22)+A(26)+A(38)+A(40)+A(41)+A(42)+2*A(43)+A(44)+A(46)+A(49)+A(54)+A(55)+A(56)+A(58)+A(60)+A(63)& + &+A(65)+A(68)+2*A(73)+A(76)+0.942*A(78)+A(80)+A(82)+A(85)+A(87)+A(90)+2*A(92)+A(93)+2*A(95)+A(96)+0.928& + &*A(97)+A(98)+2*A(100)+A(107)+A(108)+A(109)+0.93*A(123)+A(125)+A(126)+A(127)+A(133)+A(135)+A(139)+A(156)& + &+A(157)+A(159)+A(160)+A(187)+A(188)+A(189)+2*A(196)+A(198)+A(209)+A(215)+A(241)+A(242)+A(281)+A(300)& + &+A(337)+2*A(338)+A(341)+A(348)+A(356)+A(360)+A(361)+A(363)+A(370)+0.75*A(385)+A(386)+0.5*A(388)+A(392)& + &+A(394)+A(395)+0.84*A(399)+A(400)+0.5*A(403)+0.75*A(405)+A(406)+0.5*A(407)+A(412)+A(414)+0.5*A(416)+0.75& + &*A(418)+A(419)+0.5*A(426)+0.5*A(427)+A(428)+0.84*A(429)+A(431)+A(434)+0.5*A(435)+A(437)+A(439)+A(440)& + &+A(445)+A(446)+0.5*A(449)+0.3*A(450)+0.3*A(451)+1.15*A(452)+0.5*A(455)+A(468)+2*A(469)+0.5*A(473)+A(475)& + &+A(476)+2*A(477)+0.5*A(479)+A(480)+A(489)+A(490)+A(491)+A(492)+A(517)+A(519)+A(521)+A(523)+A(540)+A(544)& + &+A(548)+A(559)+A(563)+A(568)+A(570)+A(572)+A(575)+A(577)+A(578)+A(580)+0.459*A(585)+1.728*A(586)+A(590)& + &+A(595)+A(598)+A(601)+0.527*A(604)+1.86*A(606)+0.563*A(607)+0.611*A(610)+A(611)+2*A(613)+A(614)+2*A(615)& + &+A(617)+A(625)+0.058*A(631)+1.065*A(633)+A(635)+A(637)+A(639)+0.565*A(641)+1.11*A(642)+0.09*A(643)+0.31& + &*A(650)+A(655)+A(658)+A(668)+A(674)+A(676)+0.5*A(678)+2*A(679)+A(680)+2*A(681)+0.7*A(682)+A(683)+A(690)& + &+0.022*A(691)+A(692)+A(703)+0.89*A(709)+A(711)+0.995*A(716)+A(717)+A(721)+A(728)+A(729)+A(733)+A(736)& + &+A(739)+A(740)+A(751)+A(754)+A(755)+A(757)+A(758)+0.5*A(763)+A(764)+A(779)+A(897)+A(900)+A(901)+A(903)+0.7& + &*A(906)+A(907)+A(924)+A(933)+A(934)+A(935)+A(936)+A(942)+A(943)+A(954)+A(956)+A(978)+A(990)+A(997)+A(998)& + &+A(999)+A(1000)+A(1002)+A(1004)+A(1005)+A(1006)+A(1007)+A(1008)+A(1012)+0.7*A(1020)+A(1021)+A(1031)& + &+A(1032)+A(1033)+A(1034)+A(1035)+A(1037)+A(1038)+1.555*A(1039)+0.3*A(1045)+A(1046)+A(1047)+A(1048)+0.7& + &*A(1054) IF (DO_FUN(346)) & - P_VAR(346) = A(49)+1.22*A(230)+A(240)+A(248)+2*A(335)+A(700)+A(774)+A(776)+A(778)+A(885)+A(891)+A(895)+A(970) + P_VAR(346) = A(5) IF (DO_FUN(347)) & P_VAR(347) = A(203)+A(212)+A(215)+0.2*A(254)+0.44*A(258)+0.95*A(259)+0.7*A(260)+0.31*A(264)+0.45*A(265)+0.75*A(272)& - &+A(935) + &+A(942) IF (DO_FUN(348)) & - P_VAR(348) = A(11)+A(199)+0.75*A(200)+A(201)+A(238)+A(239)+A(986)+A(987) + P_VAR(348) = A(16)+A(36)+A(46)+A(88)+A(210)+A(243)+A(282)+A(313)+A(314)+A(342)+A(364)+A(371)+A(488)+0.69*A(650)+A(684)& + &+A(756)+A(899)+A(903)+0.3*A(906)+A(941)+A(955)+A(979)+A(989)+0.3*A(1054) IF (DO_FUN(349)) & P_VAR(349) = A(823) IF (DO_FUN(350)) & P_VAR(350) = A(824) IF (DO_FUN(351)) & - P_VAR(351) = A(16)+A(36)+A(46)+A(88)+A(210)+A(243)+A(282)+A(313)+A(314)+A(342)+A(364)+A(371)+A(488)+0.69*A(650)+A(684)& - &+A(756)+A(892)+A(896)+0.3*A(899)+A(934)+A(948)+A(972)+A(982)+0.3*A(1047) + P_VAR(351) = A(18)+A(227)+A(228)+A(237)+0.02*A(247)+A(248)+A(249)+A(250)+0.12*A(253)+0.2*A(254)+0.25*A(255)+0.21& + &*A(256)+0.1*A(257)+0.05*A(259)+0.3*A(260)+0.25*A(261)+0.1*A(262)+0.14*A(263)+0.35*A(264)+0.55*A(265)+0.31& + &*A(266)+0.35*A(267)+0.21*A(268)+0.1*A(269)+0.1*A(270)+0.14*A(271)+0.25*A(272)+A(889)+2*A(891)+A(892)& + &+A(901)+A(939)+A(951)+A(952)+A(975)+A(995) IF (DO_FUN(352)) & - P_VAR(352) = A(205)+A(216)+A(217)+A(218)+A(219)+A(220)+0.2*A(254)+A(333)+A(819) + P_VAR(352) = 0.66*A(253)+0.75*A(255)+2.37*A(256)+0.35*A(257)+0.19*A(261)+1.8*A(262)+0.86*A(263)+0.31*A(264)+0.69& + &*A(266)+0.79*A(268)+1.9*A(269)+0.95*A(270)+A(273)+A(275)+A(279)+A(283)+2*A(284)+3*A(285)+3*A(286)+A(287)+2& + &*A(288)+A(289)+2*A(290)+A(298)+A(300)+A(303)+A(304)+A(306)+2*A(316)+3*A(317)+0.249*A(349)+A(947)+2*A(948)& + &+A(949)+2*A(950)+A(951)+A(953)+A(954)+A(955)+A(957)+3*A(958)+4*A(959)+3*A(960)+2*A(961)+3*A(962)+2*A(963)& + &+A(964)+2*A(965)+2*A(966)+A(967)+A(968)+A(970)+A(972)+A(983)+A(988) IF (DO_FUN(353)) & - P_VAR(353) = A(2) + P_VAR(353) = A(18)+A(20)+A(21)+A(25)+A(32)+A(33)+A(34)+A(36)+A(38)+A(41)+A(47)+A(51)+A(57)+A(72)+A(102)+A(103)+A(104)& + &+A(105)+A(111)+A(122)+A(206)+A(225)+A(234)+0.02*A(247)+A(279)+A(280)+A(283)+A(286)+A(287)+A(288)+A(289)& + &+A(290)+A(318)+A(353)+A(354)+A(359)+A(701)+A(781)+A(808)+A(809)+A(810)+A(811)+A(813)+A(814)+A(815)+A(816)& + &+A(935) +IF (DO_FUN(354)) & + P_VAR(354) = A(205)+A(216)+A(217)+A(218)+A(219)+A(220)+0.2*A(254)+A(333)+A(819) +IF (DO_FUN(355)) & + P_VAR(355) = A(11)+A(199)+0.75*A(200)+A(201)+A(238)+A(239)+A(887)+A(993)+A(994) +IF (DO_FUN(356)) & + P_VAR(356) = 0.15*A(128)+0.15*A(148)+0.15*A(158)+A(232)+0.15*A(391)+0.15*A(436)+0.13*A(671)+0.13*A(678)+0.13*A(695)& + &+0.15*A(737)+0.15*A(750) ! Destruction function IF (DO_FUN(1)) & - D_VAR(1) = RCT(975) + D_VAR(1) = RCT(982) IF (DO_FUN(2)) & - D_VAR(2) = RCT(977) + D_VAR(2) = RCT(984) IF (DO_FUN(3)) & - D_VAR(3) = RCT(976) + D_VAR(3) = RCT(983) IF (DO_FUN(4)) & D_VAR(4) = 0 IF (DO_FUN(5)) & @@ -4236,7 +4265,7 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, Vdot, P_VAR, D_VAR, Aout ) IF (DO_FUN(12)) & D_VAR(12) = 0 IF (DO_FUN(13)) & - D_VAR(13) = RCT(773)*V(337)+RCT(774)*V(346) + D_VAR(13) = RCT(773)*V(341)+RCT(774)*V(338) IF (DO_FUN(14)) & D_VAR(14) = 0 IF (DO_FUN(15)) & @@ -4246,25 +4275,25 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, Vdot, P_VAR, D_VAR, Aout ) IF (DO_FUN(17)) & D_VAR(17) = 0 IF (DO_FUN(18)) & - D_VAR(18) = RCT(699)*V(337)+RCT(700)*V(346) + D_VAR(18) = RCT(699)*V(341)+RCT(700)*V(338) IF (DO_FUN(19)) & - D_VAR(19) = RCT(698)*V(345) + D_VAR(19) = RCT(698)*V(343) IF (DO_FUN(20)) & D_VAR(20) = 0 IF (DO_FUN(21)) & D_VAR(21) = 0 IF (DO_FUN(22)) & - D_VAR(22) = RCT(775)*V(337)+RCT(776)*V(346) + D_VAR(22) = RCT(775)*V(341)+RCT(776)*V(338) IF (DO_FUN(23)) & D_VAR(23) = 0 IF (DO_FUN(24)) & - D_VAR(24) = RCT(177)*V(345)+RCT(861) + D_VAR(24) = RCT(177)*V(343)+RCT(861) IF (DO_FUN(25)) & D_VAR(25) = 0 IF (DO_FUN(26)) & D_VAR(26) = 0 IF (DO_FUN(27)) & - D_VAR(27) = RCT(777)*V(337)+RCT(778)*V(346) + D_VAR(27) = RCT(777)*V(341)+RCT(778)*V(338) IF (DO_FUN(28)) & D_VAR(28) = 0 IF (DO_FUN(29)) & @@ -4292,768 +4321,775 @@ SUBROUTINE Fun_SPLIT ( V, F, RCT, Vdot, P_VAR, D_VAR, Aout ) IF (DO_FUN(40)) & D_VAR(40) = 0 IF (DO_FUN(41)) & - D_VAR(41) = RCT(780)*V(345) + D_VAR(41) = 0 IF (DO_FUN(42)) & - D_VAR(42) = RCT(347)+RCT(836)+RCT(837)+RCT(838)+RCT(978) + D_VAR(42) = 0 IF (DO_FUN(43)) & - D_VAR(43) = RCT(286)*V(345)+RCT(951) + D_VAR(43) = 0 IF (DO_FUN(44)) & - D_VAR(44) = RCT(358)+RCT(830)+RCT(831)+RCT(832)+RCT(973) + D_VAR(44) = RCT(780)*V(343) IF (DO_FUN(45)) & - D_VAR(45) = RCT(487) + D_VAR(45) = RCT(347)+RCT(836)+RCT(837)+RCT(838)+RCT(985) IF (DO_FUN(46)) & - D_VAR(46) = RCT(256)*V(334)+RCT(952) + D_VAR(46) = RCT(286)*V(343)+RCT(958) IF (DO_FUN(47)) & - D_VAR(47) = RCT(262)*V(334)+RCT(953) + D_VAR(47) = RCT(358)+RCT(830)+RCT(831)+RCT(832)+RCT(980) IF (DO_FUN(48)) & - D_VAR(48) = RCT(263)*V(334)+RCT(954) + D_VAR(48) = RCT(487) IF (DO_FUN(49)) & - D_VAR(49) = RCT(269)*V(334)+RCT(955) + D_VAR(49) = RCT(256)*V(337)+RCT(959) IF (DO_FUN(50)) & - D_VAR(50) = RCT(270)*V(334)+RCT(956) + D_VAR(50) = RCT(262)*V(337)+RCT(960) IF (DO_FUN(51)) & - D_VAR(51) = RCT(271)*V(334)+RCT(957) + D_VAR(51) = RCT(263)*V(337)+RCT(961) IF (DO_FUN(52)) & - D_VAR(52) = RCT(359)*V(345)+RCT(974) + D_VAR(52) = RCT(269)*V(337)+RCT(962) IF (DO_FUN(53)) & - D_VAR(53) = RCT(265)*V(334)+RCT(962) + D_VAR(53) = RCT(270)*V(337)+RCT(963) IF (DO_FUN(54)) & - D_VAR(54) = RCT(272)*V(334)+RCT(964) + D_VAR(54) = RCT(271)*V(337)+RCT(964) IF (DO_FUN(55)) & - D_VAR(55) = RCT(833)+RCT(834)+RCT(835)+RCT(979) + D_VAR(55) = RCT(359)*V(343)+RCT(981) IF (DO_FUN(56)) & - D_VAR(56) = RCT(394) + D_VAR(56) = RCT(265)*V(337)+RCT(969) IF (DO_FUN(57)) & - D_VAR(57) = RCT(439) + D_VAR(57) = RCT(272)*V(337)+RCT(971) IF (DO_FUN(58)) & - D_VAR(58) = RCT(732)*V(345) + D_VAR(58) = RCT(833)+RCT(834)+RCT(835)+RCT(986) IF (DO_FUN(59)) & - D_VAR(59) = RCT(936) + D_VAR(59) = RCT(394) IF (DO_FUN(60)) & - D_VAR(60) = RCT(714)*V(345) + D_VAR(60) = RCT(439) IF (DO_FUN(61)) & - D_VAR(61) = RCT(264)*V(334)+RCT(963) + D_VAR(61) = RCT(732)*V(343) IF (DO_FUN(62)) & - D_VAR(62) = RCT(335)*2*V(62)+RCT(970) + D_VAR(62) = RCT(943) IF (DO_FUN(63)) & - D_VAR(63) = RCT(230)*V(334)+RCT(985) + D_VAR(63) = RCT(714)*V(343) IF (DO_FUN(64)) & - D_VAR(64) = RCT(996)+RCT(997) + D_VAR(64) = RCT(264)*V(337)+RCT(970) IF (DO_FUN(65)) & - D_VAR(65) = RCT(994)+RCT(995) + D_VAR(65) = RCT(335)*2*V(65)+RCT(977) IF (DO_FUN(66)) & - D_VAR(66) = RCT(397)*V(345)+RCT(1051) + D_VAR(66) = RCT(230)*V(337)+RCT(992) IF (DO_FUN(67)) & - D_VAR(67) = RCT(248)*F(3)+RCT(249)*V(346)+RCT(250)*V(335) + D_VAR(67) = RCT(1003)+RCT(1004) IF (DO_FUN(68)) & - D_VAR(68) = RCT(238)*V(343)+RCT(239)*V(345)+RCT(986) + D_VAR(68) = RCT(1001)+RCT(1002) IF (DO_FUN(69)) & - D_VAR(69) = RCT(66)*V(345)+RCT(67)*V(351) + D_VAR(69) = RCT(397)*V(343)+RCT(1058) IF (DO_FUN(70)) & - D_VAR(70) = RCT(721)*V(345) + D_VAR(70) = RCT(248)*F(3)+RCT(249)*V(338)+RCT(250)*V(345) IF (DO_FUN(71)) & - D_VAR(71) = RCT(753)*V(345)+RCT(1044) + D_VAR(71) = RCT(238)*V(351)+RCT(239)*V(343)+RCT(993) IF (DO_FUN(72)) & - D_VAR(72) = RCT(161)*V(345) + D_VAR(72) = RCT(66)*V(343)+RCT(67)*V(348) IF (DO_FUN(73)) & - D_VAR(73) = RCT(353)*V(345)+RCT(825)+RCT(826)+RCT(827) + D_VAR(73) = RCT(721)*V(343) IF (DO_FUN(74)) & - D_VAR(74) = RCT(396)*V(345)+RCT(1050) + D_VAR(74) = RCT(161)*V(343) IF (DO_FUN(75)) & - D_VAR(75) = RCT(285)*V(345)+RCT(317)*V(340) + D_VAR(75) = RCT(353)*V(343)+RCT(825)+RCT(826)+RCT(827) IF (DO_FUN(76)) & - D_VAR(76) = RCT(278)*V(345)+RCT(308)+RCT(946) + D_VAR(76) = RCT(396)*V(343)+RCT(1057) IF (DO_FUN(77)) & - D_VAR(77) = RCT(980) + D_VAR(77) = RCT(753)*V(343)+RCT(1051) IF (DO_FUN(78)) & - D_VAR(78) = RCT(224)*V(345)+RCT(259)*V(334)+RCT(938) + D_VAR(78) = RCT(278)*V(343)+RCT(308)+RCT(953) IF (DO_FUN(79)) & - D_VAR(79) = RCT(284)*V(345)+RCT(316)*V(340)+RCT(941) + D_VAR(79) = RCT(224)*V(343)+RCT(259)*V(337)+RCT(945) IF (DO_FUN(80)) & - D_VAR(80) = RCT(198)+RCT(982)+RCT(983) + D_VAR(80) = RCT(284)*V(343)+RCT(316)*V(352)+RCT(948) IF (DO_FUN(81)) & - D_VAR(81) = RCT(223)*V(345)+RCT(260)*V(334)+RCT(937) + D_VAR(81) = RCT(987) IF (DO_FUN(82)) & - D_VAR(82) = RCT(725)*V(345) + D_VAR(82) = RCT(223)*V(343)+RCT(260)*V(337)+RCT(944) IF (DO_FUN(83)) & - D_VAR(83) = RCT(490)*V(345)+RCT(999) + D_VAR(83) = RCT(198)+RCT(989)+RCT(990) IF (DO_FUN(84)) & - D_VAR(84) = RCT(268)*V(334)+RCT(290)*V(345)+RCT(958) + D_VAR(84) = RCT(285)*V(343)+RCT(317)*V(352) IF (DO_FUN(85)) & - D_VAR(85) = RCT(266)*V(334)+RCT(288)*V(345)+RCT(959) + D_VAR(85) = RCT(725)*V(343) IF (DO_FUN(86)) & - D_VAR(86) = RCT(267)*V(334)+RCT(289)*V(345)+RCT(960) + D_VAR(86) = RCT(490)*V(343)+RCT(1006) IF (DO_FUN(87)) & - D_VAR(87) = RCT(261)*V(334)+RCT(287)*V(345)+RCT(961) + D_VAR(87) = RCT(199)*V(343)+RCT(200)*V(343)+RCT(201)*V(348) IF (DO_FUN(88)) & - D_VAR(88) = RCT(694)*V(345)+RCT(1002) + D_VAR(88) = RCT(268)*V(337)+RCT(290)*V(343)+RCT(965) IF (DO_FUN(89)) & - D_VAR(89) = RCT(11)+RCT(12)*V(345)*V(348) + D_VAR(89) = RCT(266)*V(337)+RCT(288)*V(343)+RCT(966) IF (DO_FUN(90)) & - D_VAR(90) = RCT(754)+RCT(755)*V(345) + D_VAR(90) = RCT(267)*V(337)+RCT(289)*V(343)+RCT(967) IF (DO_FUN(91)) & - D_VAR(91) = RCT(491)*V(345)+RCT(1000) + D_VAR(91) = RCT(261)*V(337)+RCT(287)*V(343)+RCT(968) IF (DO_FUN(92)) & - D_VAR(92) = RCT(178)*V(345)+RCT(930) + D_VAR(92) = RCT(694)*V(343)+RCT(1009) IF (DO_FUN(93)) & - D_VAR(93) = RCT(489)*V(345)+RCT(998) + D_VAR(93) = RCT(11)+RCT(12)*V(343)*V(355)+RCT(887)+RCT(888)*V(343)*V(355) IF (DO_FUN(94)) & - D_VAR(94) = RCT(199)*V(345)+RCT(200)*V(345)+RCT(201)*V(351) + D_VAR(94) = RCT(491)*V(343)+RCT(1007) IF (DO_FUN(95)) & - D_VAR(95) = RCT(492)*V(345)+RCT(1001) + D_VAR(95) = RCT(178)*V(343)+RCT(937) IF (DO_FUN(96)) & - D_VAR(96) = RCT(345)*V(284)+RCT(346)*2*V(96)+RCT(348)*V(346)+RCT(969) + D_VAR(96) = RCT(489)*V(343)+RCT(1005) IF (DO_FUN(97)) & - D_VAR(97) = RCT(173)*V(345)+RCT(921) + D_VAR(97) = RCT(492)*V(343)+RCT(1008) IF (DO_FUN(98)) & - D_VAR(98) = RCT(71)*V(345)+RCT(922) + D_VAR(98) = RCT(345)*V(336)+RCT(346)*2*V(98)+RCT(348)*V(338)+RCT(976) IF (DO_FUN(99)) & - D_VAR(99) = RCT(171)*V(345)+RCT(919) + D_VAR(99) = RCT(173)*V(343)+RCT(928) IF (DO_FUN(100)) & - D_VAR(100) = RCT(172)*V(345)+RCT(920) + D_VAR(100) = RCT(71)*V(343)+RCT(929) IF (DO_FUN(101)) & - D_VAR(101) = RCT(726)*V(345) + D_VAR(101) = RCT(171)*V(343)+RCT(926) IF (DO_FUN(102)) & - D_VAR(102) = RCT(174)*V(345)+RCT(923) + D_VAR(102) = RCT(172)*V(343)+RCT(927) IF (DO_FUN(103)) & - D_VAR(103) = RCT(486) + D_VAR(103) = RCT(726)*V(343) IF (DO_FUN(104)) & - D_VAR(104) = RCT(981) + D_VAR(104) = RCT(174)*V(343)+RCT(930) IF (DO_FUN(105)) & - D_VAR(105) = RCT(225)*V(345)+RCT(258)*V(334)+RCT(939) + D_VAR(105) = RCT(754)+RCT(755)*V(343) IF (DO_FUN(106)) & - D_VAR(106) = RCT(719)+RCT(720)*F(3) + D_VAR(106) = RCT(486) IF (DO_FUN(107)) & - D_VAR(107) = RCT(685)*V(345)+RCT(868) + D_VAR(107) = RCT(988) IF (DO_FUN(108)) & - D_VAR(108) = RCT(40)+RCT(41)*V(345)+RCT(892)+RCT(893) + D_VAR(108) = RCT(225)*V(343)+RCT(258)*V(337)+RCT(946) IF (DO_FUN(109)) & - D_VAR(109) = RCT(712)*V(341)+RCT(713)*V(345) + D_VAR(109) = RCT(685)*V(343)+RCT(868) IF (DO_FUN(110)) & - D_VAR(110) = RCT(306)+RCT(309)*V(340)+RCT(965) + D_VAR(110) = RCT(40)+RCT(41)*V(343)+RCT(899)+RCT(900) IF (DO_FUN(111)) & - D_VAR(111) = RCT(387)*V(345)+RCT(1048) + D_VAR(111) = RCT(387)*V(343)+RCT(1055) IF (DO_FUN(112)) & - D_VAR(112) = RCT(408)*V(345)+RCT(1053) + D_VAR(112) = RCT(408)*V(343)+RCT(1060) IF (DO_FUN(113)) & - D_VAR(113) = RCT(125)+4.51e-12*V(345) + D_VAR(113) = RCT(125)+4.51e-12*V(343) IF (DO_FUN(114)) & - D_VAR(114) = RCT(156)+RCT(160)*V(345) + D_VAR(114) = RCT(719)+RCT(720)*F(3) IF (DO_FUN(115)) & - D_VAR(115) = RCT(693)*V(345)+RCT(867)+RCT(1004) + D_VAR(115) = RCT(156)+RCT(160)*V(343) IF (DO_FUN(116)) & - D_VAR(116) = RCT(711)*V(345)+RCT(928) + D_VAR(116) = RCT(693)*V(343)+RCT(867)+RCT(1011) IF (DO_FUN(117)) & - D_VAR(117) = RCT(760)*V(345)+RCT(1045) + D_VAR(117) = RCT(711)*V(343)+RCT(935) IF (DO_FUN(118)) & - D_VAR(118) = RCT(170)*V(345)+RCT(918) + D_VAR(118) = RCT(760)*V(343)+RCT(1052) IF (DO_FUN(119)) & - D_VAR(119) = RCT(530)*V(345) + D_VAR(119) = RCT(306)+RCT(309)*V(352)+RCT(972) IF (DO_FUN(120)) & - D_VAR(120) = RCT(277)*V(345)+RCT(945) + D_VAR(120) = RCT(712)*V(356)+RCT(713)*V(343) IF (DO_FUN(121)) & - D_VAR(121) = RCT(733)*V(346)+RCT(734)*V(337) + D_VAR(121) = RCT(170)*V(343)+RCT(925) IF (DO_FUN(122)) & - D_VAR(122) = RCT(739)+RCT(740)*V(345) + D_VAR(122) = RCT(530)*V(343) IF (DO_FUN(123)) & - D_VAR(123) = RCT(176)*V(345)+RCT(924) + D_VAR(123) = RCT(277)*V(343)+RCT(952) IF (DO_FUN(124)) & - D_VAR(124) = RCT(107)+RCT(108)*V(345)+RCT(1047) + D_VAR(124) = RCT(733)*V(338)+RCT(734)*V(341) IF (DO_FUN(125)) & - D_VAR(125) = RCT(169)*V(345)+RCT(917) + D_VAR(125) = RCT(739)+RCT(740)*V(343) IF (DO_FUN(126)) & - D_VAR(126) = RCT(87)+RCT(88)*V(345)+RCT(900) + D_VAR(126) = RCT(176)*V(343)+RCT(931) IF (DO_FUN(127)) & - D_VAR(127) = RCT(80)*V(345) + D_VAR(127) = RCT(107)+RCT(108)*V(343)+RCT(1054) IF (DO_FUN(128)) & - D_VAR(128) = RCT(551)*V(345)+RCT(860) + D_VAR(128) = RCT(169)*V(343)+RCT(924) IF (DO_FUN(129)) & - D_VAR(129) = RCT(409)*V(345) + D_VAR(129) = RCT(87)+RCT(88)*V(343)+RCT(907) IF (DO_FUN(130)) & - D_VAR(130) = RCT(442)*V(345)+RCT(1056) + D_VAR(130) = RCT(80)*V(343) IF (DO_FUN(131)) & - D_VAR(131) = RCT(663)*V(345) + D_VAR(131) = RCT(551)*V(343)+RCT(860) IF (DO_FUN(132)) & - D_VAR(132) = RCT(82)*V(346)+RCT(83)*V(337) + D_VAR(132) = RCT(409)*V(343) IF (DO_FUN(133)) & - D_VAR(133) = RCT(570)*V(346)+RCT(571)*V(337) + D_VAR(133) = RCT(82)*V(338)+RCT(83)*V(341) IF (DO_FUN(134)) & - D_VAR(134) = RCT(987) + D_VAR(134) = RCT(442)*V(343)+RCT(1063) IF (DO_FUN(135)) & - D_VAR(135) = RCT(572)*V(346)+RCT(573)*V(337) + D_VAR(135) = RCT(663)*V(343) IF (DO_FUN(136)) & - D_VAR(136) = RCT(722)*V(345)+RCT(723)*V(345)+RCT(1042) + D_VAR(136) = RCT(572)*V(338)+RCT(573)*V(341) IF (DO_FUN(137)) & - D_VAR(137) = RCT(388)*V(345) + D_VAR(137) = RCT(570)*V(338)+RCT(571)*V(341) IF (DO_FUN(138)) & - D_VAR(138) = RCT(407)*V(345) + D_VAR(138) = RCT(722)*V(343)+RCT(723)*V(343)+RCT(1049) IF (DO_FUN(139)) & - D_VAR(139) = RCT(54)+RCT(55)*V(345)+RCT(899) + D_VAR(139) = RCT(388)*V(343) IF (DO_FUN(140)) & - D_VAR(140) = RCT(75)*V(345)+RCT(76)*V(351)+RCT(77)*V(341) + D_VAR(140) = RCT(75)*V(343)+RCT(76)*V(348)+RCT(77)*V(356) IF (DO_FUN(141)) & - D_VAR(141) = RCT(61)*V(345)+RCT(62)*V(345)+RCT(220)*V(342)+RCT(327)*V(340)+RCT(328)*V(340) + D_VAR(141) = RCT(407)*V(343) IF (DO_FUN(142)) & - D_VAR(142) = RCT(89)*V(345)+RCT(101)*V(351)+RCT(331)*V(340) + D_VAR(142) = RCT(61)*V(343)+RCT(62)*V(343)+RCT(220)*V(342)+RCT(327)*V(352)+RCT(328)*V(352) IF (DO_FUN(143)) & - D_VAR(143) = RCT(724)*V(345) + D_VAR(143) = RCT(54)+RCT(55)*V(343)+RCT(906) IF (DO_FUN(144)) & - D_VAR(144) = RCT(527)*V(345)+RCT(1023) + D_VAR(144) = RCT(89)*V(343)+RCT(101)*V(348)+RCT(331)*V(352) IF (DO_FUN(145)) & - D_VAR(145) = RCT(619)*F(3)+RCT(620) + D_VAR(145) = RCT(724)*V(343) IF (DO_FUN(146)) & - D_VAR(146) = 7.09e-11*V(345)+RCT(902) + D_VAR(146) = RCT(994) IF (DO_FUN(147)) & - D_VAR(147) = RCT(687)*V(345)+RCT(1037) + D_VAR(147) = RCT(619)*F(3)+RCT(620) IF (DO_FUN(148)) & - D_VAR(148) = RCT(211)*V(345)+RCT(931) + D_VAR(148) = RCT(705)*V(343)+RCT(706)*V(348) IF (DO_FUN(149)) & - D_VAR(149) = RCT(705)*V(345)+RCT(706)*V(351) + D_VAR(149) = RCT(687)*V(343)+RCT(1044) IF (DO_FUN(150)) & - D_VAR(150) = RCT(526)*V(345)+RCT(1022) + D_VAR(150) = RCT(526)*V(343)+RCT(1029) IF (DO_FUN(151)) & - D_VAR(151) = RCT(552)*V(345)+RCT(553)*V(345)+RCT(858) + D_VAR(151) = RCT(527)*V(343)+RCT(1030) IF (DO_FUN(152)) & - D_VAR(152) = RCT(554)*V(345)+RCT(555)*V(345)+RCT(859) + D_VAR(152) = 7.09e-11*V(343)+RCT(909) IF (DO_FUN(153)) & - D_VAR(153) = RCT(666)*V(345) + D_VAR(153) = RCT(211)*V(343)+RCT(938) IF (DO_FUN(154)) & - D_VAR(154) = RCT(488)*V(345)+RCT(866)+RCT(993) + D_VAR(154) = RCT(140)*V(343)+RCT(325)*V(352) IF (DO_FUN(155)) & - D_VAR(155) = RCT(175)*V(345)+RCT(925) + D_VAR(155) = RCT(666)*V(343) IF (DO_FUN(156)) & - D_VAR(156) = RCT(140)*V(345)+RCT(325)*V(340) + D_VAR(156) = RCT(488)*V(343)+RCT(866)+RCT(1000) IF (DO_FUN(157)) & - D_VAR(157) = RCT(942) + D_VAR(157) = RCT(552)*V(343)+RCT(553)*V(343)+RCT(858) IF (DO_FUN(158)) & - D_VAR(158) = RCT(743)*V(345)+RCT(744)*V(351) + D_VAR(158) = RCT(175)*V(343)+RCT(932) IF (DO_FUN(159)) & - D_VAR(159) = RCT(672)*V(345)+RCT(1012) + D_VAR(159) = RCT(554)*V(343)+RCT(555)*V(343)+RCT(859) IF (DO_FUN(160)) & - D_VAR(160) = RCT(402)*V(345)+RCT(1052) + D_VAR(160) = RCT(949) IF (DO_FUN(161)) & - D_VAR(161) = RCT(415)*V(345)+RCT(1054) + D_VAR(161) = RCT(672)*V(343)+RCT(1019) IF (DO_FUN(162)) & - D_VAR(162) = RCT(416)*V(345) + D_VAR(162) = RCT(743)*V(343)+RCT(744)*V(348) IF (DO_FUN(163)) & - D_VAR(163) = RCT(433)*V(345)+RCT(434)*V(351) + D_VAR(163) = RCT(402)*V(343)+RCT(1059) IF (DO_FUN(164)) & - D_VAR(164) = RCT(32)*V(345)+RCT(320)*V(340)+RCT(887) + D_VAR(164) = RCT(415)*V(343)+RCT(1061) IF (DO_FUN(165)) & - D_VAR(165) = RCT(73)*V(346)+RCT(74)*V(337) + D_VAR(165) = RCT(416)*V(343) IF (DO_FUN(166)) & - D_VAR(166) = RCT(4)*V(341)*V(348)+RCT(5)*V(339)+RCT(6)*V(327) + D_VAR(166) = RCT(433)*V(343)+RCT(434)*V(348) IF (DO_FUN(167)) & - D_VAR(167) = RCT(377)*V(351)+RCT(378)*V(345)+RCT(379)*V(341) + D_VAR(167) = RCT(32)*V(343)+RCT(320)*V(352)+RCT(894) IF (DO_FUN(168)) & - D_VAR(168) = RCT(576)*V(345)+RCT(577)*V(345)+RCT(871)+RCT(1026) + D_VAR(168) = RCT(73)*V(338)+RCT(74)*V(341) IF (DO_FUN(169)) & - D_VAR(169) = RCT(441)*V(345)+RCT(1055) + D_VAR(169) = RCT(4)*V(355)*V(356)+RCT(5)*V(340)+RCT(6)*V(333) IF (DO_FUN(170)) & - D_VAR(170) = RCT(339)*V(351)+RCT(352)*V(345)+RCT(966) + D_VAR(170) = RCT(377)*V(348)+RCT(378)*V(343)+RCT(379)*V(356) IF (DO_FUN(171)) & - D_VAR(171) = RCT(655)*V(346)+RCT(656)*V(337)+RCT(657)*V(335) + D_VAR(171) = RCT(441)*V(343)+RCT(1062) IF (DO_FUN(172)) & - D_VAR(172) = RCT(658)*V(346)+RCT(659)*V(337)+RCT(660)*V(335) + D_VAR(172) = RCT(339)*V(348)+RCT(352)*V(343)+RCT(973) IF (DO_FUN(173)) & - D_VAR(173) = RCT(701)*V(345) + D_VAR(173) = RCT(655)*V(338)+RCT(656)*V(341)+RCT(657)*V(345) IF (DO_FUN(174)) & - D_VAR(174) = RCT(688)*V(345)+RCT(1035) + D_VAR(174) = RCT(658)*V(338)+RCT(659)*V(341)+RCT(660)*V(345) IF (DO_FUN(175)) & - D_VAR(175) = RCT(574)*V(345)+RCT(575)*V(345)+RCT(870)+RCT(1025) + D_VAR(175) = RCT(574)*V(343)+RCT(575)*V(343)+RCT(870)+RCT(1032) IF (DO_FUN(176)) & - D_VAR(176) = RCT(403)*V(345) + D_VAR(176) = RCT(701)*V(343) IF (DO_FUN(177)) & - D_VAR(177) = RCT(435)*V(345) + D_VAR(177) = RCT(576)*V(343)+RCT(577)*V(343)+RCT(871)+RCT(1033) IF (DO_FUN(178)) & - D_VAR(178) = RCT(68)*V(346)+RCT(69)*V(346)+RCT(70)*V(337) + D_VAR(178) = RCT(688)*V(343)+RCT(1042) IF (DO_FUN(179)) & - D_VAR(179) = RCT(1)*V(341)*V(348)+RCT(2)*V(339)+RCT(3)*V(327) + D_VAR(179) = RCT(403)*V(343) IF (DO_FUN(180)) & - D_VAR(180) = RCT(642)*V(346)+RCT(643)*V(337) + D_VAR(180) = RCT(435)*V(343) IF (DO_FUN(181)) & - D_VAR(181) = RCT(257)*V(334)+RCT(283)*V(345)+RCT(315)*V(340)+RCT(940) + D_VAR(181) = RCT(642)*V(338)+RCT(643)*V(341) IF (DO_FUN(182)) & - D_VAR(182) = RCT(639)*V(346)+RCT(640)*V(337) + D_VAR(182) = RCT(68)*V(338)+RCT(69)*V(338)+RCT(70)*V(341) IF (DO_FUN(183)) & - D_VAR(183) = RCT(57)*V(345)+RCT(179)*V(351)+RCT(219)*V(342)+RCT(321)*V(340) + D_VAR(183) = RCT(1)*V(355)*V(356)+RCT(2)*V(340)+RCT(3)*V(333) IF (DO_FUN(184)) & - D_VAR(184) = RCT(683)+RCT(684)*V(345) + D_VAR(184) = RCT(257)*V(337)+RCT(283)*V(343)+RCT(315)*V(352)+RCT(947) IF (DO_FUN(185)) & - D_VAR(185) = RCT(662)*V(345)+RCT(1009) + D_VAR(185) = RCT(639)*V(338)+RCT(640)*V(341) IF (DO_FUN(186)) & - D_VAR(186) = RCT(622)*V(345)+RCT(624)*V(345)+RCT(625)*V(345)+RCT(627)*V(345)+RCT(628)*V(345)+RCT(874)+RCT(1029)& - &+RCT(1030) + D_VAR(186) = RCT(588)+RCT(589)*V(341)+RCT(590)*V(338)+RCT(591)*V(338) IF (DO_FUN(187)) & - D_VAR(187) = RCT(531)*V(345)+RCT(532)*V(345)+RCT(535)*V(345)+RCT(1016) + D_VAR(187) = RCT(57)*V(343)+RCT(179)*V(348)+RCT(219)*V(342)+RCT(321)*V(352) IF (DO_FUN(188)) & - D_VAR(188) = RCT(141)*V(345) + D_VAR(188) = RCT(622)*V(343)+RCT(624)*V(343)+RCT(625)*V(343)+RCT(627)*V(343)+RCT(628)*V(343)+RCT(874)+RCT(1036)& + &+RCT(1037) IF (DO_FUN(189)) & - D_VAR(189) = RCT(709)*V(346)+RCT(710)*V(337) + D_VAR(189) = RCT(683)+RCT(684)*V(343) IF (DO_FUN(190)) & - D_VAR(190) = RCT(588)+RCT(589)*V(337)+RCT(590)*V(346)+RCT(591)*V(346) + D_VAR(190) = RCT(662)*V(343)+RCT(1016) IF (DO_FUN(191)) & - D_VAR(191) = RCT(375)*V(351)+RCT(382)*V(345)+RCT(383)*V(341) + D_VAR(191) = RCT(531)*V(343)+RCT(532)*V(343)+RCT(535)*V(343)+RCT(1023) IF (DO_FUN(192)) & - D_VAR(192) = RCT(533)*V(345)+RCT(534)*V(345)+RCT(536)*V(345)+RCT(1017) + D_VAR(192) = RCT(141)*V(343) IF (DO_FUN(193)) & - D_VAR(193) = RCT(450)*V(345)+RCT(451)*V(341)+RCT(452)*V(351) + D_VAR(193) = RCT(709)*V(338)+RCT(710)*V(341) IF (DO_FUN(194)) & - D_VAR(194) = RCT(661)*V(345)+RCT(1010) + D_VAR(194) = RCT(375)*V(348)+RCT(382)*V(343)+RCT(383)*V(356) IF (DO_FUN(195)) & - D_VAR(195) = RCT(741)*V(345)+RCT(742)*V(351) + D_VAR(195) = RCT(533)*V(343)+RCT(534)*V(343)+RCT(536)*V(343)+RCT(1024) IF (DO_FUN(196)) & - D_VAR(196) = RCT(72)*V(345)+RCT(927) + D_VAR(196) = RCT(450)*V(343)+RCT(451)*V(356)+RCT(452)*V(348) IF (DO_FUN(197)) & - D_VAR(197) = RCT(84)*V(337)+RCT(85)*V(346)+RCT(86)*V(335) + D_VAR(197) = RCT(661)*V(343)+RCT(1017) IF (DO_FUN(198)) & - D_VAR(198) = RCT(689)*V(345)+RCT(1036) + D_VAR(198) = RCT(689)*V(343)+RCT(1043) IF (DO_FUN(199)) & - D_VAR(199) = RCT(538)*V(345)+RCT(1019) + D_VAR(199) = RCT(741)*V(343)+RCT(742)*V(348) IF (DO_FUN(200)) & - D_VAR(200) = RCT(707)*V(345)+RCT(708)*V(351) + D_VAR(200) = RCT(72)*V(343)+RCT(934) IF (DO_FUN(201)) & - D_VAR(201) = RCT(770)*V(345)+RCT(771)*V(341)+RCT(772) + D_VAR(201) = RCT(84)*V(341)+RCT(85)*V(338)+RCT(86)*V(345) IF (DO_FUN(202)) & - D_VAR(202) = RCT(745)*V(345)+RCT(746)*V(341)+RCT(747)*V(351) + D_VAR(202) = RCT(538)*V(343)+RCT(1026) IF (DO_FUN(203)) & - D_VAR(203) = RCT(761)*V(341)+RCT(762)*V(335) + D_VAR(203) = RCT(707)*V(343)+RCT(708)*V(348) IF (DO_FUN(204)) & - D_VAR(204) = RCT(748)*V(345)+RCT(749)*V(351)+RCT(1043) + D_VAR(204) = RCT(770)*V(343)+RCT(771)*V(356)+RCT(772) IF (DO_FUN(205)) & - D_VAR(205) = RCT(584)+RCT(585)*V(337)+RCT(586)*V(346)+RCT(587)*V(346) + D_VAR(205) = RCT(745)*V(343)+RCT(746)*V(356)+RCT(747)*V(348) IF (DO_FUN(206)) & - D_VAR(206) = RCT(592)+RCT(594)*V(337)+RCT(595)*V(346)+RCT(596)*V(346) + D_VAR(206) = RCT(761)*V(356)+RCT(762)*V(345) IF (DO_FUN(207)) & - D_VAR(207) = RCT(593)+RCT(597)*V(337)+RCT(598)*V(346)+RCT(599)*V(346) + D_VAR(207) = RCT(748)*V(343)+RCT(749)*V(348)+RCT(1050) IF (DO_FUN(208)) & - D_VAR(208) = RCT(665)*V(345)+RCT(1006) + D_VAR(208) = RCT(593)+RCT(597)*V(341)+RCT(598)*V(338)+RCT(599)*V(338) IF (DO_FUN(209)) & - D_VAR(209) = RCT(537)*V(345)+RCT(1018) + D_VAR(209) = RCT(592)+RCT(594)*V(341)+RCT(595)*V(338)+RCT(596)*V(338) IF (DO_FUN(210)) & - D_VAR(210) = RCT(696)*V(345)+RCT(697)*V(345)+RCT(1003) + D_VAR(210) = RCT(584)+RCT(585)*V(341)+RCT(586)*V(338)+RCT(587)*V(338) IF (DO_FUN(211)) & - D_VAR(211) = RCT(426)*V(345)+RCT(427)*V(341)+RCT(428)*V(351) + D_VAR(211) = RCT(665)*V(343)+RCT(1013) IF (DO_FUN(212)) & - D_VAR(212) = RCT(78)*V(346)+RCT(79)*V(337) + D_VAR(212) = RCT(426)*V(343)+RCT(427)*V(356)+RCT(428)*V(348) IF (DO_FUN(213)) & - D_VAR(213) = RCT(155)*V(335)+RCT(157)*V(346)+RCT(158)*V(337)+RCT(159)*V(351) + D_VAR(213) = RCT(537)*V(343)+RCT(1025) IF (DO_FUN(214)) & - D_VAR(214) = RCT(46)+RCT(786)*V(336)+RCT(787)*V(339)+RCT(788)+RCT(789)*V(353)+RCT(790)*V(344)+RCT(896) + D_VAR(214) = RCT(696)*V(343)+RCT(697)*V(343)+RCT(1010) IF (DO_FUN(215)) & - D_VAR(215) = RCT(529)*V(345)+RCT(873) + D_VAR(215) = RCT(78)*V(338)+RCT(79)*V(341) IF (DO_FUN(216)) & - D_VAR(216) = RCT(654)*V(345)+RCT(879)+RCT(1015) + D_VAR(216) = RCT(155)*V(345)+RCT(157)*V(338)+RCT(158)*V(341)+RCT(159)*V(348) IF (DO_FUN(217)) & - D_VAR(217) = RCT(245)*F(3)+RCT(246)*V(341)+RCT(247)*V(337) + D_VAR(217) = RCT(46)+RCT(786)*V(353)+RCT(787)*V(340)+RCT(788)+RCT(789)*V(339)+RCT(790)*V(346)+RCT(903) IF (DO_FUN(218)) & - D_VAR(218) = RCT(210)*V(342)+RCT(793)*V(336)+RCT(794)*V(339)+RCT(934)+RCT(935) + D_VAR(218) = RCT(529)*V(343)+RCT(873) IF (DO_FUN(219)) & - D_VAR(219) = RCT(376)*V(351)+RCT(380)*V(345)+RCT(381)*V(341) + D_VAR(219) = RCT(245)*F(3)+RCT(246)*V(356)+RCT(247)*V(341) IF (DO_FUN(220)) & - D_VAR(220) = RCT(702)*V(345)+RCT(703)*V(351)+RCT(704)*V(341) + D_VAR(220) = RCT(654)*V(343)+RCT(879)+RCT(1022) IF (DO_FUN(221)) & - D_VAR(221) = RCT(767)*V(345)+RCT(768)*V(341)+RCT(769) + D_VAR(221) = RCT(210)*V(342)+RCT(793)*V(353)+RCT(794)*V(340)+RCT(941)+RCT(942) IF (DO_FUN(222)) & - D_VAR(222) = RCT(621)*V(345)+RCT(623)*V(345)+RCT(626)*V(345)+RCT(875)+RCT(1028) + D_VAR(222) = RCT(376)*V(348)+RCT(380)*V(343)+RCT(381)*V(356) IF (DO_FUN(223)) & - D_VAR(223) = RCT(539)+RCT(540)*V(346)+RCT(541)*V(346)+RCT(542)*V(337) + D_VAR(223) = RCT(702)*V(343)+RCT(703)*V(348)+RCT(704)*V(356) IF (DO_FUN(224)) & - D_VAR(224) = RCT(543)+RCT(544)*V(346)+RCT(545)*V(346)+RCT(546)*V(337) + D_VAR(224) = RCT(767)*V(343)+RCT(768)*V(356)+RCT(769) IF (DO_FUN(225)) & - D_VAR(225) = RCT(389)*V(351)+RCT(390)*V(345)+RCT(1049) + D_VAR(225) = RCT(621)*V(343)+RCT(623)*V(343)+RCT(626)*V(343)+RCT(875)+RCT(1035) IF (DO_FUN(226)) & - D_VAR(226) = RCT(629)+RCT(632)*V(337)+RCT(635)*V(346)+RCT(636)*V(346) + D_VAR(226) = RCT(543)+RCT(544)*V(338)+RCT(545)*V(338)+RCT(546)*V(341) IF (DO_FUN(227)) & - D_VAR(227) = RCT(664)*V(345)+RCT(1007) + D_VAR(227) = RCT(389)*V(348)+RCT(390)*V(343)+RCT(1056) IF (DO_FUN(228)) & - D_VAR(228) = RCT(25)*V(345)+RCT(231)*V(334)+RCT(291)*V(340) + D_VAR(228) = RCT(539)+RCT(540)*V(338)+RCT(541)*V(338)+RCT(542)*V(341) IF (DO_FUN(229)) & - D_VAR(229) = RCT(447)*V(345)+RCT(448)*V(341)+RCT(449)*V(351)+RCT(989)+RCT(1057) + D_VAR(229) = RCT(81)*V(343)+RCT(908) IF (DO_FUN(230)) & - D_VAR(230) = RCT(524)*V(345)+RCT(1020) + D_VAR(230) = RCT(664)*V(343)+RCT(1014) IF (DO_FUN(231)) & - D_VAR(231) = RCT(525)*V(345)+RCT(1021) + D_VAR(231) = RCT(525)*V(343)+RCT(1028) IF (DO_FUN(232)) & - D_VAR(232) = RCT(547)+RCT(548)*V(346)+RCT(549)*V(346)+RCT(550)*V(337) + D_VAR(232) = RCT(25)*V(343)+RCT(231)*V(337)+RCT(291)*V(352) IF (DO_FUN(233)) & - D_VAR(233) = RCT(81)*V(345)+RCT(901) + D_VAR(233) = RCT(524)*V(343)+RCT(1027) IF (DO_FUN(234)) & - D_VAR(234) = RCT(715)*V(337)+RCT(716)*V(346)+RCT(717)*V(351)+RCT(718)*V(328) + D_VAR(234) = RCT(447)*V(343)+RCT(448)*V(356)+RCT(449)*V(348)+RCT(996)+RCT(1064) IF (DO_FUN(235)) & - D_VAR(235) = RCT(750)*V(337)+RCT(751)*V(346)+RCT(752)*V(335)+RCT(766)*V(328) + D_VAR(235) = RCT(547)+RCT(548)*V(338)+RCT(549)*V(338)+RCT(550)*V(341) IF (DO_FUN(236)) & - D_VAR(236) = RCT(756)*V(335)+RCT(757)*V(346)+RCT(758)*V(351)+RCT(759)*V(337)+RCT(765)*V(328) + D_VAR(236) = RCT(629)+RCT(632)*V(341)+RCT(635)*V(338)+RCT(636)*V(338) IF (DO_FUN(237)) & - D_VAR(237) = RCT(423)*V(345)+RCT(424)*V(341)+RCT(425)*V(351) + D_VAR(237) = RCT(750)*V(341)+RCT(751)*V(338)+RCT(752)*V(345)+RCT(766)*V(334) IF (DO_FUN(238)) & - D_VAR(238) = RCT(528)*V(345) + D_VAR(238) = RCT(756)*V(345)+RCT(757)*V(338)+RCT(758)*V(348)+RCT(759)*V(341)+RCT(765)*V(334) IF (DO_FUN(239)) & - D_VAR(239) = RCT(38)*V(345)+RCT(891) + D_VAR(239) = RCT(715)*V(341)+RCT(716)*V(338)+RCT(717)*V(348)+RCT(718)*V(334) IF (DO_FUN(240)) & - D_VAR(240) = RCT(736)*V(346)+RCT(737)*V(337)+RCT(738)*V(335) + D_VAR(240) = RCT(38)*V(343)+RCT(898) IF (DO_FUN(241)) & - D_VAR(241) = RCT(369)*V(329)+RCT(370)*V(346)+RCT(371)*V(335)+RCT(372)*V(348)+RCT(373)*V(336)+RCT(374)*V(336) + D_VAR(241) = RCT(423)*V(343)+RCT(424)*V(356)+RCT(425)*V(348) IF (DO_FUN(242)) & - D_VAR(242) = RCT(482)*V(345)+RCT(483)*V(341)+RCT(484)*V(351)+RCT(865)+RCT(992) + D_VAR(242) = RCT(528)*V(343) IF (DO_FUN(243)) & - D_VAR(243) = RCT(566)*V(337)+RCT(567)*V(346)+RCT(568)*V(346)+RCT(569) + D_VAR(243) = RCT(736)*V(338)+RCT(737)*V(341)+RCT(738)*V(345) IF (DO_FUN(244)) & - D_VAR(244) = RCT(33)*V(345)+RCT(984) + D_VAR(244) = RCT(369)*V(335)+RCT(370)*V(338)+RCT(371)*V(345)+RCT(372)*V(355)+RCT(373)*V(353)+RCT(374)*V(353) IF (DO_FUN(245)) & - D_VAR(245) = RCT(255)*V(334)+RCT(273)*V(345)+RCT(943) + D_VAR(245) = RCT(566)*V(341)+RCT(567)*V(338)+RCT(568)*V(338)+RCT(569) IF (DO_FUN(246)) & - D_VAR(246) = RCT(124)*V(335)+RCT(127)*V(346)+RCT(128)*V(337) + D_VAR(246) = RCT(482)*V(343)+RCT(483)*V(356)+RCT(484)*V(348)+RCT(865)+RCT(999) IF (DO_FUN(247)) & - D_VAR(247) = RCT(361)*V(345)+RCT(1005) + D_VAR(247) = RCT(33)*V(343)+RCT(991) IF (DO_FUN(248)) & - D_VAR(248) = RCT(653)*V(345)+RCT(880)+RCT(1014) + D_VAR(248) = RCT(255)*V(337)+RCT(273)*V(343)+RCT(950) IF (DO_FUN(249)) & - D_VAR(249) = RCT(92)*V(346)+RCT(117)*V(337)+RCT(135)*V(328)+RCT(188)*V(324) + D_VAR(249) = RCT(361)*V(343)+RCT(1012) IF (DO_FUN(250)) & - D_VAR(250) = RCT(100)*V(346)+RCT(121)*V(337)+RCT(139)*V(328)+RCT(189)*V(324) + D_VAR(250) = RCT(124)*V(345)+RCT(127)*V(338)+RCT(128)*V(341) IF (DO_FUN(251)) & - D_VAR(251) = RCT(102)*V(345)+RCT(863)+RCT(926) + D_VAR(251) = RCT(653)*V(343)+RCT(880)+RCT(1021) IF (DO_FUN(252)) & - D_VAR(252) = RCT(337)+RCT(338)*2*V(252)+RCT(839)+RCT(840)+RCT(844)*V(349)+RCT(845)*V(350)+RCT(846)*V(353)+RCT(847)& - &*V(344)+RCT(971) + D_VAR(252) = RCT(92)*V(338)+RCT(117)*V(341)+RCT(135)*V(334)+RCT(188)*V(328) IF (DO_FUN(253)) & - D_VAR(253) = RCT(670)*V(337)+RCT(673)+RCT(674)*V(346)+RCT(675)*V(346) + D_VAR(253) = RCT(100)*V(338)+RCT(121)*V(341)+RCT(139)*V(334)+RCT(189)*V(328) IF (DO_FUN(254)) & - D_VAR(254) = RCT(667)*V(337)+RCT(668)*V(346)+RCT(669)*V(346) + D_VAR(254) = RCT(337)+RCT(338)*2*V(254)+RCT(839)+RCT(840)+RCT(844)*V(349)+RCT(845)*V(350)+RCT(846)*V(339)+RCT(847)& + &*V(346)+RCT(978) IF (DO_FUN(255)) & - D_VAR(255) = RCT(420)*V(345)+RCT(421)*V(341)+RCT(422)*V(351)+RCT(1058) + D_VAR(255) = RCT(102)*V(343)+RCT(863)+RCT(933) IF (DO_FUN(256)) & - D_VAR(256) = RCT(481)*V(345)+RCT(485)*V(351)+RCT(864)+RCT(991) + D_VAR(256) = RCT(420)*V(343)+RCT(421)*V(356)+RCT(422)*V(348)+RCT(1065) IF (DO_FUN(257)) & - D_VAR(257) = RCT(391)*V(337)+RCT(392)*V(346)+RCT(393)*V(335)+RCT(395)*V(351)+RCT(464)*V(328)+RCT(465)*V(324) + D_VAR(257) = RCT(670)*V(341)+RCT(673)+RCT(674)*V(338)+RCT(675)*V(338) IF (DO_FUN(258)) & - D_VAR(258) = RCT(686)*V(345)+RCT(1033)+RCT(1034) + D_VAR(258) = RCT(667)*V(341)+RCT(668)*V(338)+RCT(669)*V(338) IF (DO_FUN(259)) & - D_VAR(259) = RCT(671)*V(337)+RCT(676)*V(346)+RCT(677)*V(335) + D_VAR(259) = RCT(686)*V(343)+RCT(1040)+RCT(1041) IF (DO_FUN(260)) & - D_VAR(260) = RCT(65)*V(346)+RCT(113)*V(328)+RCT(147)*V(337)+RCT(192)*V(324) + D_VAR(260) = RCT(481)*V(343)+RCT(485)*V(348)+RCT(864)+RCT(998) IF (DO_FUN(261)) & - D_VAR(261) = RCT(360)*V(345)+RCT(692)*V(351)+RCT(990) + D_VAR(261) = RCT(391)*V(341)+RCT(392)*V(338)+RCT(393)*V(345)+RCT(395)*V(348)+RCT(464)*V(334)+RCT(465)*V(328) IF (DO_FUN(262)) & - D_VAR(262) = RCT(453)*V(345)+RCT(454)*V(341)+RCT(455)*V(351) + D_VAR(262) = RCT(671)*V(341)+RCT(676)*V(338)+RCT(677)*V(345) IF (DO_FUN(263)) & - D_VAR(263) = RCT(727)*V(337)+RCT(728)*V(346)+RCT(729)*V(351)+RCT(730)*V(328)+RCT(731)*V(324) + D_VAR(263) = RCT(453)*V(343)+RCT(454)*V(356)+RCT(455)*V(348) IF (DO_FUN(264)) & - D_VAR(264) = RCT(7)*V(348)+RCT(21)*V(345)+RCT(244)*V(343)+RCT(295)*V(340)+RCT(886) + D_VAR(264) = RCT(65)*V(338)+RCT(113)*V(334)+RCT(147)*V(341)+RCT(192)*V(328) IF (DO_FUN(265)) & - D_VAR(265) = RCT(47)*V(345)+RCT(318)*V(340) + D_VAR(265) = RCT(360)*V(343)+RCT(692)*V(348)+RCT(997) IF (DO_FUN(266)) & - D_VAR(266) = RCT(690)*V(345)+RCT(877)+RCT(1040)+RCT(1041) + D_VAR(266) = RCT(727)*V(341)+RCT(728)*V(338)+RCT(729)*V(348)+RCT(730)*V(334)+RCT(731)*V(328) IF (DO_FUN(267)) & - D_VAR(267) = RCT(580)*V(345)+RCT(581)*V(345)+RCT(583)*V(345)+RCT(872)+RCT(1027) + D_VAR(267) = RCT(7)*V(355)+RCT(21)*V(343)+RCT(244)*V(351)+RCT(295)*V(352)+RCT(882)*V(355)+RCT(893) IF (DO_FUN(268)) & - D_VAR(268) = RCT(578)*V(345)+RCT(579)*V(345)+RCT(582)*V(345)+RCT(869)+RCT(1024) + D_VAR(268) = RCT(47)*V(343)+RCT(318)*V(352) IF (DO_FUN(269)) & - D_VAR(269) = RCT(763)*V(345)+RCT(764)*V(351)+RCT(881)+RCT(1046) + D_VAR(269) = RCT(690)*V(343)+RCT(877)+RCT(1047)+RCT(1048) IF (DO_FUN(270)) & - D_VAR(270) = RCT(163)*V(345)+RCT(165)*V(351)+RCT(856)+RCT(908)+RCT(909)+RCT(910) + D_VAR(270) = RCT(580)*V(343)+RCT(581)*V(343)+RCT(583)*V(343)+RCT(872)+RCT(1034) IF (DO_FUN(271)) & - D_VAR(271) = RCT(630)+RCT(631)*V(337)+RCT(633)*V(346)+RCT(634)*V(346) + D_VAR(271) = RCT(578)*V(343)+RCT(579)*V(343)+RCT(582)*V(343)+RCT(869)+RCT(1031) IF (DO_FUN(272)) & - D_VAR(272) = RCT(429)*V(346)+RCT(430)*V(337)+RCT(431)*V(351)+RCT(432)*V(328) + D_VAR(272) = RCT(763)*V(343)+RCT(764)*V(348)+RCT(881)+RCT(1053) IF (DO_FUN(273)) & - D_VAR(273) = RCT(410)*V(337)+RCT(411)*V(346)+RCT(412)*V(346)+RCT(413)*V(328)+RCT(414)*V(351) + D_VAR(273) = RCT(630)+RCT(631)*V(341)+RCT(633)*V(338)+RCT(634)*V(338) IF (DO_FUN(274)) & - D_VAR(274) = RCT(436)*V(337)+RCT(437)*V(346)+RCT(438)*V(335)+RCT(440)*V(351)+RCT(466)*V(328)+RCT(467)*V(324) + D_VAR(274) = RCT(163)*V(343)+RCT(165)*V(348)+RCT(856)+RCT(915)+RCT(916)+RCT(917) IF (DO_FUN(275)) & - D_VAR(275) = RCT(404)*V(337)+RCT(405)*V(346)+RCT(406)*V(351)+RCT(458)*V(328)+RCT(459)*V(324) + D_VAR(275) = RCT(410)*V(341)+RCT(411)*V(338)+RCT(412)*V(338)+RCT(413)*V(334)+RCT(414)*V(348) IF (DO_FUN(276)) & - D_VAR(276) = RCT(330)*V(340)+RCT(493)*V(341)+RCT(494)*V(345)+RCT(495)*V(345)+RCT(496)*V(345)+RCT(497)*V(345)+RCT(603)& - &*V(351) + D_VAR(276) = RCT(404)*V(341)+RCT(405)*V(338)+RCT(406)*V(348)+RCT(458)*V(334)+RCT(459)*V(328) IF (DO_FUN(277)) & - D_VAR(277) = RCT(384)*V(337)+RCT(385)*V(346)+RCT(386)*V(351)+RCT(456)*V(328)+RCT(457)*V(324) + D_VAR(277) = RCT(436)*V(341)+RCT(437)*V(338)+RCT(438)*V(345)+RCT(440)*V(348)+RCT(466)*V(334)+RCT(467)*V(328) IF (DO_FUN(278)) & - D_VAR(278) = RCT(398)*V(337)+RCT(399)*V(346)+RCT(400)*V(351)+RCT(401)*V(328) + D_VAR(278) = RCT(429)*V(338)+RCT(430)*V(341)+RCT(431)*V(348)+RCT(432)*V(334) IF (DO_FUN(279)) & - D_VAR(279) = RCT(103)*V(345)+RCT(929) + D_VAR(279) = RCT(330)*V(352)+RCT(493)*V(356)+RCT(494)*V(343)+RCT(495)*V(343)+RCT(496)*V(343)+RCT(497)*V(343)+RCT(603)& + &*V(348) IF (DO_FUN(280)) & - D_VAR(280) = RCT(468)*V(346)+RCT(470)*V(337)+RCT(472)*V(328)+RCT(474)*V(324)+RCT(476)*V(351)+RCT(478)*2*V(280)& - &+RCT(479)*V(289) + D_VAR(280) = RCT(468)*V(338)+RCT(470)*V(341)+RCT(472)*V(334)+RCT(474)*V(328)+RCT(476)*V(348)+RCT(478)*2*V(280)& + &+RCT(479)*V(292) IF (DO_FUN(281)) & - D_VAR(281) = RCT(417)*V(337)+RCT(418)*V(346)+RCT(419)*V(351)+RCT(460)*V(328)+RCT(461)*V(324) + D_VAR(281) = RCT(384)*V(341)+RCT(385)*V(338)+RCT(386)*V(348)+RCT(456)*V(334)+RCT(457)*V(328) IF (DO_FUN(282)) & - D_VAR(282) = RCT(48)*V(345)+RCT(324)*V(340) + D_VAR(282) = RCT(398)*V(341)+RCT(399)*V(338)+RCT(400)*V(348)+RCT(401)*V(334) IF (DO_FUN(283)) & - D_VAR(283) = RCT(104)*V(345)+RCT(326)*V(340) + D_VAR(283) = RCT(103)*V(343)+RCT(936) IF (DO_FUN(284)) & - D_VAR(284) = RCT(340)*V(335)+RCT(344)*V(347)+RCT(345)*V(96)+RCT(349)*V(338)+RCT(355)*V(337)+RCT(356)*V(346)+RCT(357)*2& - &*V(284)+RCT(968) + D_VAR(284) = RCT(417)*V(341)+RCT(418)*V(338)+RCT(419)*V(348)+RCT(460)*V(334)+RCT(461)*V(328) IF (DO_FUN(285)) & - D_VAR(285) = RCT(561)+RCT(562)+RCT(563)*V(346)+RCT(564)*V(346)+RCT(565)*V(337) + D_VAR(285) = RCT(48)*V(343)+RCT(324)*V(352) IF (DO_FUN(286)) & - D_VAR(286) = RCT(556)+RCT(557)+RCT(558)*V(337)+RCT(559)*V(346)+RCT(560)*V(346) + D_VAR(286) = RCT(104)*V(343)+RCT(326)*V(352) IF (DO_FUN(287)) & - D_VAR(287) = RCT(652)*V(345)+RCT(1011) + D_VAR(287) = RCT(354)*V(343)+RCT(828)+RCT(829)+RCT(852)*V(349)+RCT(853)*V(350)+RCT(854)*V(339)+RCT(855)*V(346)& + &+RCT(974) IF (DO_FUN(288)) & - D_VAR(288) = RCT(651)*V(345)+RCT(1008) + D_VAR(288) = RCT(561)+RCT(562)+RCT(563)*V(338)+RCT(564)*V(338)+RCT(565)*V(341) IF (DO_FUN(289)) & - D_VAR(289) = RCT(469)*V(346)+RCT(471)*V(337)+RCT(473)*V(328)+RCT(475)*V(324)+RCT(477)*V(351)+RCT(479)*V(280)+RCT(480)& - &*2*V(289) + D_VAR(289) = RCT(556)+RCT(557)+RCT(558)*V(341)+RCT(559)*V(338)+RCT(560)*V(338) IF (DO_FUN(290)) & - D_VAR(290) = RCT(149)*V(345)+RCT(150)*V(341)+RCT(162)*V(351)+RCT(332)*V(340)+RCT(333)*V(342) + D_VAR(290) = RCT(652)*V(343)+RCT(1018) IF (DO_FUN(291)) & - D_VAR(291) = RCT(443)*V(337)+RCT(444)*V(346)+RCT(445)*V(346)+RCT(446)*V(351)+RCT(462)*V(328)+RCT(463)*V(324) + D_VAR(291) = RCT(651)*V(343)+RCT(1015) IF (DO_FUN(292)) & - D_VAR(292) = RCT(122)*V(345)+RCT(131)*V(351)+RCT(906) + D_VAR(292) = RCT(469)*V(338)+RCT(471)*V(341)+RCT(473)*V(334)+RCT(475)*V(328)+RCT(477)*V(348)+RCT(479)*V(280)+RCT(480)& + &*2*V(292) IF (DO_FUN(293)) & - D_VAR(293) = RCT(600)*V(337)+RCT(601)*V(346)+RCT(602)*V(346) + D_VAR(293) = RCT(149)*V(343)+RCT(150)*V(356)+RCT(162)*V(348)+RCT(332)*V(352)+RCT(333)*V(342) IF (DO_FUN(294)) & - D_VAR(294) = RCT(164)*V(345)+RCT(166)*V(351)+RCT(857)+RCT(911) + D_VAR(294) = RCT(443)*V(341)+RCT(444)*V(338)+RCT(445)*V(338)+RCT(446)*V(348)+RCT(462)*V(334)+RCT(463)*V(328) IF (DO_FUN(295)) & - D_VAR(295) = RCT(111)*V(345)+RCT(218)*V(342)+RCT(329)*V(340)+RCT(904)+RCT(905) + D_VAR(295) = RCT(122)*V(343)+RCT(131)*V(348)+RCT(913) IF (DO_FUN(296)) & - D_VAR(296) = RCT(58)*V(346)+RCT(59)*V(346)+RCT(129)*V(328)+RCT(142)*2*V(296)+RCT(144)*V(337)+RCT(190)*V(324)+RCT(322)& - &*V(340) + D_VAR(296) = RCT(341)+RCT(342)*V(331)+RCT(841)+RCT(842)+RCT(843)*V(353)+RCT(848)*V(349)+RCT(849)*V(350)+RCT(850)& + &*V(339)+RCT(851)*V(346)+RCT(979) IF (DO_FUN(297)) & - D_VAR(297) = RCT(281)*V(345)+RCT(802)*V(353)+RCT(803)*V(344)+RCT(804)*V(339)+RCT(805)*V(349)+RCT(806)*V(350)+RCT(807)& - &*V(352)+RCT(947) + D_VAR(297) = RCT(111)*V(343)+RCT(218)*V(342)+RCT(329)*V(352)+RCT(911)+RCT(912) IF (DO_FUN(298)) & - D_VAR(298) = RCT(105)*V(345)+RCT(110)*V(351)+RCT(903) + D_VAR(298) = RCT(164)*V(343)+RCT(166)*V(348)+RCT(857)+RCT(918) IF (DO_FUN(299)) & - D_VAR(299) = RCT(641)*V(345)+RCT(876)+RCT(1032) + D_VAR(299) = RCT(600)*V(341)+RCT(601)*V(338)+RCT(602)*V(338) IF (DO_FUN(300)) & - D_VAR(300) = RCT(90)*V(346)+RCT(91)*V(346)+RCT(116)*V(337)+RCT(134)*V(328)+RCT(183)*V(324) + D_VAR(300) = RCT(58)*V(338)+RCT(59)*V(338)+RCT(129)*V(334)+RCT(142)*2*V(300)+RCT(144)*V(341)+RCT(190)*V(328)+RCT(322)& + &*V(352) IF (DO_FUN(301)) & - D_VAR(301) = RCT(637)*V(345)+RCT(638)*V(345)+RCT(1031) + D_VAR(301) = RCT(281)*V(343)+RCT(802)*V(339)+RCT(803)*V(346)+RCT(804)*V(340)+RCT(805)*V(349)+RCT(806)*V(350)+RCT(807)& + &*V(354)+RCT(954) IF (DO_FUN(302)) & - D_VAR(302) = RCT(650)*V(345)+RCT(862)+RCT(1013) + D_VAR(302) = RCT(105)*V(343)+RCT(110)*V(348)+RCT(910) IF (DO_FUN(303)) & - D_VAR(303) = RCT(691)*V(345)+RCT(878)+RCT(1038)+RCT(1039) + D_VAR(303) = RCT(641)*V(343)+RCT(876)+RCT(1039) IF (DO_FUN(304)) & - D_VAR(304) = RCT(500)*V(337)+RCT(501)*V(337)+RCT(504)+RCT(505)+RCT(507)*2*V(304)+RCT(508)*V(305)+RCT(510)*2*V(304)& - &+RCT(511)*V(305)+RCT(514)*V(328)+RCT(515)*V(328)+RCT(520)*V(346)+RCT(521)*V(346)+RCT(522)*V(346)+RCT(523)& - &*V(346) + D_VAR(304) = RCT(90)*V(338)+RCT(91)*V(338)+RCT(116)*V(341)+RCT(134)*V(334)+RCT(183)*V(328) IF (DO_FUN(305)) & - D_VAR(305) = RCT(498)*V(337)+RCT(499)*V(337)+RCT(502)+RCT(503)+RCT(506)*2*V(305)+RCT(508)*V(304)+RCT(509)*2*V(305)& - &+RCT(511)*V(304)+RCT(512)*V(328)+RCT(513)*V(328)+RCT(516)*V(346)+RCT(517)*V(346)+RCT(518)*V(346)+RCT(519)& - &*V(346) + D_VAR(305) = RCT(637)*V(343)+RCT(638)*V(343)+RCT(1038) IF (DO_FUN(306)) & - D_VAR(306) = RCT(151)*V(345)+RCT(152)*V(345)+RCT(153)*V(345)+RCT(154)*V(351)+RCT(907) + D_VAR(306) = RCT(650)*V(343)+RCT(862)+RCT(1020) IF (DO_FUN(307)) & - D_VAR(307) = RCT(167)*V(345)+RCT(168)*V(345)+RCT(916) + D_VAR(307) = RCT(691)*V(343)+RCT(878)+RCT(1045)+RCT(1046) IF (DO_FUN(308)) & - D_VAR(308) = RCT(678)*V(337)+RCT(679)*V(346)+RCT(680)*V(335)+RCT(681)*V(351)+RCT(682)*V(328) + D_VAR(308) = RCT(604)*V(341)+RCT(606)*2*V(308)+RCT(607)*V(310)+RCT(610)*V(334)+RCT(611)*V(328)+RCT(613)*V(348)& + &+RCT(615)*V(338)+RCT(616)*V(338) IF (DO_FUN(309)) & - D_VAR(309) = RCT(646)*V(345)+RCT(647)*V(345)+RCT(648)*V(341)+RCT(649)*V(351)+RCT(915) + D_VAR(309) = RCT(151)*V(343)+RCT(152)*V(343)+RCT(153)*V(343)+RCT(154)*V(348)+RCT(914) IF (DO_FUN(310)) & - D_VAR(310) = RCT(604)*V(337)+RCT(606)*2*V(310)+RCT(607)*V(311)+RCT(610)*V(328)+RCT(611)*V(324)+RCT(613)*V(351)& - &+RCT(615)*V(346)+RCT(616)*V(346) + D_VAR(310) = RCT(605)*V(341)+RCT(607)*V(308)+RCT(608)*2*V(310)+RCT(609)*V(334)+RCT(612)*V(328)+RCT(614)*V(348)& + &+RCT(617)*V(338)+RCT(618)*V(338) IF (DO_FUN(311)) & - D_VAR(311) = RCT(605)*V(337)+RCT(607)*V(310)+RCT(608)*2*V(311)+RCT(609)*V(328)+RCT(612)*V(324)+RCT(614)*V(351)& - &+RCT(617)*V(346)+RCT(618)*V(346) + D_VAR(311) = RCT(167)*V(343)+RCT(168)*V(343)+RCT(923) IF (DO_FUN(312)) & - D_VAR(312) = RCT(362)*V(329)+RCT(363)*V(346)+RCT(364)*V(335)+RCT(365)*V(336)+RCT(366)*V(336)*V(336)+RCT(367)*V(341)& - &+RCT(368)*V(348) + D_VAR(312) = RCT(678)*V(341)+RCT(679)*V(338)+RCT(680)*V(345)+RCT(681)*V(348)+RCT(682)*V(334) IF (DO_FUN(313)) & - D_VAR(313) = RCT(96)*V(346)+RCT(118)*V(337)+RCT(136)*V(328)+RCT(184)*V(324) + D_VAR(313) = RCT(646)*V(343)+RCT(647)*V(343)+RCT(648)*V(356)+RCT(649)*V(348)+RCT(922) IF (DO_FUN(314)) & - D_VAR(314) = RCT(644)*V(345)+RCT(645)*V(341)+RCT(912)+RCT(913)+RCT(914) + D_VAR(314) = RCT(498)*V(341)+RCT(499)*V(341)+RCT(502)+RCT(503)+RCT(506)*2*V(314)+RCT(508)*V(315)+RCT(509)*2*V(314)& + &+RCT(511)*V(315)+RCT(512)*V(334)+RCT(513)*V(334)+RCT(516)*V(338)+RCT(517)*V(338)+RCT(518)*V(338)+RCT(519)& + &*V(338) IF (DO_FUN(315)) & - D_VAR(315) = RCT(60)*V(346)+RCT(130)*V(328)+RCT(143)*2*V(315)+RCT(145)*V(337)+RCT(191)*V(324)+RCT(323)*V(340) + D_VAR(315) = RCT(500)*V(341)+RCT(501)*V(341)+RCT(504)+RCT(505)+RCT(507)*2*V(315)+RCT(508)*V(314)+RCT(510)*2*V(315)& + &+RCT(511)*V(314)+RCT(514)*V(334)+RCT(515)*V(334)+RCT(520)*V(338)+RCT(521)*V(338)+RCT(522)*V(338)+RCT(523)& + &*V(338) IF (DO_FUN(316)) & - D_VAR(316) = RCT(212)*V(343)+RCT(813)*V(352)+RCT(814)*V(339)+RCT(815)*V(353)+RCT(816)*V(344)+RCT(817)*V(349)+RCT(818)& - &*V(350)+RCT(819)*V(348)+RCT(933) + D_VAR(316) = RCT(96)*V(338)+RCT(118)*V(341)+RCT(136)*V(334)+RCT(184)*V(328) IF (DO_FUN(317)) & - D_VAR(317) = RCT(282)*V(345)+RCT(313)*V(343)+RCT(314)*V(340)+RCT(795)*V(336)+RCT(796)*V(339)+RCT(797)*V(352)+RCT(798)& - &*V(349)+RCT(799)*V(350)+RCT(800)*V(353)+RCT(801)*V(344)+RCT(948)+RCT(949) + D_VAR(317) = RCT(362)*V(335)+RCT(363)*V(338)+RCT(364)*V(345)+RCT(365)*V(353)+RCT(366)*V(353)*V(353)+RCT(367)*V(356)& + &+RCT(368)*V(355) IF (DO_FUN(318)) & - D_VAR(318) = RCT(95)*V(346)+RCT(115)*V(337)+RCT(133)*V(328)+RCT(187)*V(324) + D_VAR(318) = RCT(644)*V(343)+RCT(645)*V(356)+RCT(919)+RCT(920)+RCT(921) IF (DO_FUN(319)) & - D_VAR(319) = RCT(93)*V(346)+RCT(94)*V(346)+RCT(114)*V(337)+RCT(132)*V(328)+RCT(182)*V(324) + D_VAR(319) = RCT(60)*V(338)+RCT(130)*V(334)+RCT(143)*2*V(319)+RCT(145)*V(341)+RCT(191)*V(328)+RCT(323)*V(352) IF (DO_FUN(320)) & - D_VAR(320) = RCT(97)*V(346)+RCT(119)*V(337)+RCT(123)*V(346)+RCT(137)*V(328)+RCT(185)*V(324) + D_VAR(320) = RCT(212)*V(351)+RCT(813)*V(354)+RCT(814)*V(340)+RCT(815)*V(339)+RCT(816)*V(346)+RCT(817)*V(349)+RCT(818)& + &*V(350)+RCT(819)*V(355)+RCT(940) IF (DO_FUN(321)) & - D_VAR(321) = RCT(63)*V(346)+RCT(64)*V(346)+RCT(112)*V(328)+RCT(146)*V(337)+RCT(193)*V(324) + D_VAR(321) = RCT(282)*V(343)+RCT(313)*V(351)+RCT(314)*V(352)+RCT(795)*V(353)+RCT(796)*V(340)+RCT(797)*V(354)+RCT(798)& + &*V(349)+RCT(799)*V(350)+RCT(800)*V(339)+RCT(801)*V(346)+RCT(955)+RCT(956) IF (DO_FUN(322)) & - D_VAR(322) = RCT(106)*V(335)+RCT(109)*V(346)+RCT(148)*V(337)+RCT(194)*V(324)+RCT(195)*V(328) + D_VAR(322) = RCT(95)*V(338)+RCT(115)*V(341)+RCT(133)*V(334)+RCT(187)*V(328) IF (DO_FUN(323)) & - D_VAR(323) = RCT(98)*V(346)+RCT(99)*V(346)+RCT(120)*V(337)+RCT(138)*V(328)+RCT(186)*V(324) + D_VAR(323) = RCT(93)*V(338)+RCT(94)*V(338)+RCT(114)*V(341)+RCT(132)*V(334)+RCT(182)*V(328) IF (DO_FUN(324)) & - D_VAR(324) = RCT(53)*V(335)+RCT(56)*V(346)+RCT(180)*2*V(324)+RCT(181)*V(328)+RCT(182)*V(319)+RCT(183)*V(300)+RCT(184)& - &*V(313)+RCT(185)*V(320)+RCT(186)*V(323)+RCT(187)*V(318)+RCT(188)*V(249)+RCT(189)*V(250)+RCT(190)*V(296)& - &+RCT(191)*V(315)+RCT(192)*V(260)+RCT(193)*V(321)+RCT(194)*V(322)+RCT(457)*V(277)+RCT(459)*V(275)+RCT(461)& - &*V(281)+RCT(463)*V(291)+RCT(465)*V(257)+RCT(467)*V(274)+RCT(474)*V(280)+RCT(475)*V(289)+RCT(611)*V(310)& - &+RCT(612)*V(311)+RCT(695)*V(337)+RCT(731)*V(263) + D_VAR(324) = RCT(97)*V(338)+RCT(119)*V(341)+RCT(123)*V(338)+RCT(137)*V(334)+RCT(185)*V(328) IF (DO_FUN(325)) & - D_VAR(325) = RCT(10)*V(348)+RCT(34)*V(345)+RCT(50)*V(351)+RCT(216)*V(342)+RCT(252)*V(343)+RCT(292)*V(340)+RCT(888)& - &+RCT(889) + D_VAR(325) = RCT(106)*V(345)+RCT(109)*V(338)+RCT(148)*V(341)+RCT(194)*V(328)+RCT(195)*V(334) IF (DO_FUN(326)) & - D_VAR(326) = RCT(51)*V(345)+RCT(52)*V(351)+RCT(217)*V(342)+RCT(897)+RCT(898) + D_VAR(326) = RCT(63)*V(338)+RCT(64)*V(338)+RCT(112)*V(334)+RCT(146)*V(341)+RCT(193)*V(328) IF (DO_FUN(327)) & - D_VAR(327) = RCT(3)*V(179)+RCT(6)*V(166)+RCT(36)*V(345)+RCT(890) + D_VAR(327) = RCT(98)*V(338)+RCT(99)*V(338)+RCT(120)*V(341)+RCT(138)*V(334)+RCT(186)*V(328) IF (DO_FUN(328)) & - D_VAR(328) = RCT(17)*V(341)+RCT(26)*V(346)+RCT(27)*V(346)+RCT(28)*V(337)+RCT(29)*2*V(328)+RCT(30)*2*V(328)+RCT(31)& - &*V(345)+RCT(112)*V(321)+RCT(113)*V(260)+RCT(129)*V(296)+RCT(130)*V(315)+RCT(132)*V(319)+RCT(133)*V(318)& - &+RCT(134)*V(300)+RCT(135)*V(249)+RCT(136)*V(313)+RCT(137)*V(320)+RCT(138)*V(323)+RCT(139)*V(250)+RCT(181)& - &*V(324)+RCT(195)*V(322)+RCT(197)*V(335)+RCT(274)*V(338)+RCT(319)*V(340)+RCT(401)*V(278)+RCT(413)*V(273)& - &+RCT(432)*V(272)+RCT(456)*V(277)+RCT(458)*V(275)+RCT(460)*V(281)+RCT(462)*V(291)+RCT(464)*V(257)+RCT(466)& - &*V(274)+RCT(472)*V(280)+RCT(473)*V(289)+RCT(512)*V(305)+RCT(513)*V(305)+RCT(514)*V(304)+RCT(515)*V(304)& - &+RCT(609)*V(311)+RCT(610)*V(310)+RCT(682)*V(308)+RCT(718)*V(234)+RCT(730)*V(263)+RCT(765)*V(236)+RCT(766)& - &*V(235)+RCT(779)*V(351) + D_VAR(328) = RCT(53)*V(345)+RCT(56)*V(338)+RCT(180)*2*V(328)+RCT(181)*V(334)+RCT(182)*V(323)+RCT(183)*V(304)+RCT(184)& + &*V(316)+RCT(185)*V(324)+RCT(186)*V(327)+RCT(187)*V(322)+RCT(188)*V(252)+RCT(189)*V(253)+RCT(190)*V(300)& + &+RCT(191)*V(319)+RCT(192)*V(264)+RCT(193)*V(326)+RCT(194)*V(325)+RCT(457)*V(281)+RCT(459)*V(276)+RCT(461)& + &*V(284)+RCT(463)*V(294)+RCT(465)*V(261)+RCT(467)*V(277)+RCT(474)*V(280)+RCT(475)*V(292)+RCT(611)*V(308)& + &+RCT(612)*V(310)+RCT(695)*V(341)+RCT(731)*V(266) IF (DO_FUN(329)) & - D_VAR(329) = RCT(24)*V(345)+RCT(362)*V(312)+RCT(369)*V(241) + D_VAR(329) = RCT(10)*V(355)+RCT(34)*V(343)+RCT(50)*V(348)+RCT(216)*V(342)+RCT(252)*V(351)+RCT(292)*V(352)+RCT(886)& + &*V(355)+RCT(895)+RCT(896) IF (DO_FUN(330)) & - D_VAR(330) = RCT(354)*V(345)+RCT(828)+RCT(829)+RCT(852)*V(349)+RCT(853)*V(350)+RCT(854)*V(353)+RCT(855)*V(344)& - &+RCT(967) + D_VAR(330) = RCT(51)*V(343)+RCT(52)*V(348)+RCT(217)*V(342)+RCT(904)+RCT(905) IF (DO_FUN(331)) & - D_VAR(331) = RCT(334)*V(346)+RCT(336)*V(335)+RCT(342)*V(332)+RCT(343)*V(347)+RCT(350)*V(341)+RCT(351)*V(337) + D_VAR(331) = RCT(334)*V(338)+RCT(336)*V(345)+RCT(342)*V(296)+RCT(343)*V(347)+RCT(350)*V(356)+RCT(351)*V(341) IF (DO_FUN(332)) & - D_VAR(332) = RCT(341)+RCT(342)*V(331)+RCT(841)+RCT(842)+RCT(843)*V(336)+RCT(848)*V(349)+RCT(849)*V(350)+RCT(850)& - &*V(353)+RCT(851)*V(344)+RCT(972) + D_VAR(332) = RCT(280)*V(343)+RCT(808)*V(340)+RCT(809)*V(354)+RCT(810)*V(339)+RCT(811)*V(346)+RCT(812)*V(355)+RCT(957) IF (DO_FUN(333)) & - D_VAR(333) = RCT(280)*V(345)+RCT(808)*V(339)+RCT(809)*V(352)+RCT(810)*V(353)+RCT(811)*V(344)+RCT(812)*V(348)+RCT(950) + D_VAR(333) = RCT(3)*V(183)+RCT(6)*V(169)+RCT(36)*V(343)+RCT(897) IF (DO_FUN(334)) & - D_VAR(334) = RCT(226)*V(336)+RCT(227)*F(2)+RCT(228)*F(3)+RCT(229)*F(1)+RCT(230)*V(63)+RCT(231)*V(228)+RCT(237)*V(341)& - &+RCT(253)*V(339)+RCT(254)*V(352)+RCT(255)*V(245)+RCT(256)*V(46)+RCT(257)*V(181)+RCT(258)*V(105)+RCT(259)& - &*V(78)+RCT(260)*V(81)+RCT(261)*V(87)+RCT(262)*V(47)+RCT(263)*V(48)+RCT(264)*V(61)+RCT(265)*V(53)+RCT(266)& - &*V(85)+RCT(267)*V(86)+RCT(268)*V(84)+RCT(269)*V(49)+RCT(270)*V(50)+RCT(271)*V(51)+RCT(272)*V(54) + D_VAR(334) = RCT(17)*V(356)+RCT(26)*V(338)+RCT(27)*V(338)+RCT(28)*V(341)+RCT(29)*2*V(334)+RCT(30)*2*V(334)+RCT(31)& + &*V(343)+RCT(112)*V(326)+RCT(113)*V(264)+RCT(129)*V(300)+RCT(130)*V(319)+RCT(132)*V(323)+RCT(133)*V(322)& + &+RCT(134)*V(304)+RCT(135)*V(252)+RCT(136)*V(316)+RCT(137)*V(324)+RCT(138)*V(327)+RCT(139)*V(253)+RCT(181)& + &*V(328)+RCT(195)*V(325)+RCT(197)*V(345)+RCT(274)*V(344)+RCT(319)*V(352)+RCT(401)*V(282)+RCT(413)*V(275)& + &+RCT(432)*V(278)+RCT(456)*V(281)+RCT(458)*V(276)+RCT(460)*V(284)+RCT(462)*V(294)+RCT(464)*V(261)+RCT(466)& + &*V(277)+RCT(472)*V(280)+RCT(473)*V(292)+RCT(512)*V(314)+RCT(513)*V(314)+RCT(514)*V(315)+RCT(515)*V(315)& + &+RCT(609)*V(310)+RCT(610)*V(308)+RCT(682)*V(312)+RCT(718)*V(239)+RCT(730)*V(266)+RCT(765)*V(238)+RCT(766)& + &*V(237)+RCT(779)*V(348) IF (DO_FUN(335)) & - D_VAR(335) = RCT(16)*V(341)+RCT(35)*V(345)+RCT(39)*V(337)+RCT(45)*V(351)+RCT(49)*V(351)+RCT(53)*V(324)+RCT(86)*V(197)& - &+RCT(106)*V(322)+RCT(124)*V(246)+RCT(155)*V(213)+RCT(197)*V(328)+RCT(221)*V(342)+RCT(222)*V(347)+RCT(240)& - &*V(343)+RCT(243)*V(343)+RCT(250)*V(67)+RCT(301)*V(338)+RCT(336)*V(331)+RCT(340)*V(284)+RCT(364)*V(312)& - &+RCT(371)*V(241)+RCT(393)*V(257)+RCT(438)*V(274)+RCT(657)*V(171)+RCT(660)*V(172)+RCT(677)*V(259)+RCT(680)& - &*V(308)+RCT(738)*V(240)+RCT(752)*V(235)+RCT(756)*V(236)+RCT(762)*V(203)+RCT(782)+RCT(885) + D_VAR(335) = RCT(24)*V(343)+RCT(362)*V(317)+RCT(369)*V(244) IF (DO_FUN(336)) & - D_VAR(336) = RCT(226)*V(334)+RCT(365)*V(312)+RCT(366)*2*V(312)*V(336)+RCT(373)*V(241)+RCT(374)*V(241)+RCT(786)*V(214)& - &+RCT(793)*V(218)+RCT(795)*V(317)+RCT(843)*V(332) + D_VAR(336) = RCT(340)*V(345)+RCT(344)*V(347)+RCT(345)*V(98)+RCT(349)*V(344)+RCT(355)*V(341)+RCT(356)*V(338)+RCT(357)*2& + &*V(336)+RCT(975) IF (DO_FUN(337)) & - D_VAR(337) = RCT(15)*V(341)+RCT(20)*V(345)+RCT(22)*V(346)+RCT(23)*2*V(337)+RCT(28)*V(328)+RCT(39)*V(335)+RCT(42)& - &*V(351)+RCT(70)*V(178)+RCT(74)*V(165)+RCT(79)*V(212)+RCT(83)*V(132)+RCT(84)*V(197)+RCT(114)*V(319)& - &+RCT(115)*V(318)+RCT(116)*V(300)+RCT(117)*V(249)+RCT(118)*V(313)+RCT(119)*V(320)+RCT(120)*V(323)+RCT(121)& - &*V(250)+RCT(128)*V(246)+RCT(144)*V(296)+RCT(145)*V(315)+RCT(146)*V(321)+RCT(147)*V(260)+RCT(148)*V(322)& - &+RCT(158)*V(213)+RCT(204)*V(347)+RCT(205)*V(342)+RCT(236)*V(343)+RCT(247)*V(217)+RCT(296)*V(340)+RCT(297)& - &*V(340)+RCT(299)*V(338)+RCT(351)*V(331)+RCT(355)*V(284)+RCT(384)*V(277)+RCT(391)*V(257)+RCT(398)*V(278)& - &+RCT(404)*V(275)+RCT(410)*V(273)+RCT(417)*V(281)+RCT(430)*V(272)+RCT(436)*V(274)+RCT(443)*V(291)+RCT(470)& - &*V(280)+RCT(471)*V(289)+RCT(498)*V(305)+RCT(499)*V(305)+RCT(500)*V(304)+RCT(501)*V(304)+RCT(542)*V(223)& - &+RCT(546)*V(224)+RCT(550)*V(232)+RCT(558)*V(286)+RCT(565)*V(285)+RCT(566)*V(243)+RCT(571)*V(133)+RCT(573)& - &*V(135)+RCT(585)*V(205)+RCT(589)*V(190)+RCT(594)*V(206)+RCT(597)*V(207)+RCT(600)*V(293)+RCT(604)*V(310)& - &+RCT(605)*V(311)+RCT(631)*V(271)+RCT(632)*V(226)+RCT(640)*V(182)+RCT(643)*V(180)+RCT(656)*V(171)+RCT(659)& - &*V(172)+RCT(667)*V(254)+RCT(670)*V(253)+RCT(671)*V(259)+RCT(678)*V(308)+RCT(695)*V(324)+RCT(699)*V(18)& - &+RCT(710)*V(189)+RCT(715)*V(234)+RCT(727)*V(263)+RCT(734)*V(121)+RCT(737)*V(240)+RCT(750)*V(235)+RCT(759)& - &*V(236)+RCT(773)*V(13)+RCT(775)*V(22)+RCT(777)*V(27)+RCT(781) + D_VAR(337) = RCT(226)*V(353)+RCT(227)*F(2)+RCT(228)*F(3)+RCT(229)*F(1)+RCT(230)*V(66)+RCT(231)*V(232)+RCT(237)*V(356)& + &+RCT(253)*V(340)+RCT(254)*V(354)+RCT(255)*V(248)+RCT(256)*V(49)+RCT(257)*V(184)+RCT(258)*V(108)+RCT(259)& + &*V(79)+RCT(260)*V(82)+RCT(261)*V(91)+RCT(262)*V(50)+RCT(263)*V(51)+RCT(264)*V(64)+RCT(265)*V(56)+RCT(266)& + &*V(89)+RCT(267)*V(90)+RCT(268)*V(88)+RCT(269)*V(52)+RCT(270)*V(53)+RCT(271)*V(54)+RCT(272)*V(57) IF (DO_FUN(338)) & - D_VAR(338) = RCT(274)*V(328)+RCT(275)*V(345)+RCT(276)*V(345)+RCT(298)*V(343)+RCT(299)*V(337)+RCT(300)*V(346)+RCT(301)& - &*V(335)+RCT(302)*2*V(338)+RCT(303)*2*V(338)+RCT(304)*2*V(338)+RCT(307)*2*V(338)+RCT(310)*V(347)+RCT(311)& - &*V(347)+RCT(312)*V(347)+RCT(349)*V(284)+RCT(944) + D_VAR(338) = RCT(13)*V(356)+RCT(22)*V(341)+RCT(26)*V(334)+RCT(27)*V(334)+RCT(37)*V(343)+RCT(43)*V(348)+RCT(56)*V(328)& + &+RCT(58)*V(300)+RCT(59)*V(300)+RCT(60)*V(319)+RCT(63)*V(326)+RCT(64)*V(326)+RCT(65)*V(264)+RCT(68)*V(182)& + &+RCT(69)*V(182)+RCT(73)*V(168)+RCT(78)*V(215)+RCT(82)*V(133)+RCT(85)*V(201)+RCT(90)*V(304)+RCT(91)*V(304)& + &+RCT(92)*V(252)+RCT(93)*V(323)+RCT(94)*V(323)+RCT(95)*V(322)+RCT(96)*V(316)+RCT(97)*V(324)+RCT(98)*V(327)& + &+RCT(99)*V(327)+RCT(100)*V(253)+RCT(109)*V(325)+RCT(123)*V(324)+RCT(127)*V(250)+RCT(157)*V(216)+RCT(209)& + &*V(347)+RCT(242)*V(351)+RCT(249)*V(70)+RCT(300)*V(344)+RCT(334)*V(331)+RCT(348)*V(98)+RCT(356)*V(336)& + &+RCT(363)*V(317)+RCT(370)*V(244)+RCT(385)*V(281)+RCT(392)*V(261)+RCT(399)*V(282)+RCT(405)*V(276)+RCT(411)& + &*V(275)+RCT(412)*V(275)+RCT(418)*V(284)+RCT(429)*V(278)+RCT(437)*V(277)+RCT(444)*V(294)+RCT(445)*V(294)& + &+RCT(468)*V(280)+RCT(469)*V(292)+RCT(516)*V(314)+RCT(517)*V(314)+RCT(518)*V(314)+RCT(519)*V(314)+RCT(520)& + &*V(315)+RCT(521)*V(315)+RCT(522)*V(315)+RCT(523)*V(315)+RCT(540)*V(228)+RCT(541)*V(228)+RCT(544)*V(226)& + &+RCT(545)*V(226)+RCT(548)*V(235)+RCT(549)*V(235)+RCT(559)*V(289)+RCT(560)*V(289)+RCT(563)*V(288)+RCT(564)& + &*V(288)+RCT(567)*V(245)+RCT(568)*V(245)+RCT(570)*V(137)+RCT(572)*V(136)+RCT(586)*V(210)+RCT(587)*V(210)& + &+RCT(590)*V(186)+RCT(591)*V(186)+RCT(595)*V(209)+RCT(596)*V(209)+RCT(598)*V(208)+RCT(599)*V(208)+RCT(601)& + &*V(299)+RCT(602)*V(299)+RCT(615)*V(308)+RCT(616)*V(308)+RCT(617)*V(310)+RCT(618)*V(310)+RCT(633)*V(273)& + &+RCT(634)*V(273)+RCT(635)*V(236)+RCT(636)*V(236)+RCT(639)*V(185)+RCT(642)*V(181)+RCT(655)*V(173)+RCT(658)& + &*V(174)+RCT(668)*V(258)+RCT(669)*V(258)+RCT(674)*V(257)+RCT(675)*V(257)+RCT(676)*V(262)+RCT(679)*V(312)& + &+RCT(700)*V(18)+RCT(709)*V(193)+RCT(716)*V(239)+RCT(728)*V(266)+RCT(733)*V(124)+RCT(736)*V(243)+RCT(751)& + &*V(237)+RCT(757)*V(238)+RCT(774)*V(13)+RCT(776)*V(22)+RCT(778)*V(27)+RCT(995) IF (DO_FUN(339)) & - D_VAR(339) = RCT(2)*V(179)+RCT(5)*V(166)+RCT(253)*V(334)+RCT(279)*V(345)+RCT(787)*V(214)+RCT(794)*V(218)+RCT(796)& - &*V(317)+RCT(804)*V(297)+RCT(808)*V(333)+RCT(814)*V(316) + D_VAR(339) = RCT(789)*V(217)+RCT(791)*V(343)+RCT(800)*V(321)+RCT(802)*V(301)+RCT(810)*V(332)+RCT(815)*V(320)+RCT(846)& + &*V(254)+RCT(850)*V(296)+RCT(854)*V(287) IF (DO_FUN(340)) & - D_VAR(340) = RCT(291)*V(228)+RCT(292)*V(325)+RCT(293)*V(341)+RCT(294)*F(1)+RCT(295)*V(264)+RCT(296)*V(337)+RCT(297)& - &*V(337)+RCT(305)*F(3)+RCT(309)*V(110)+RCT(314)*V(317)+RCT(315)*V(181)+RCT(316)*V(79)+RCT(317)*V(75)& - &+RCT(318)*V(265)+RCT(319)*V(328)+RCT(320)*V(164)+RCT(321)*V(183)+RCT(322)*V(296)+RCT(323)*V(315)+RCT(324)& - &*V(282)+RCT(325)*V(156)+RCT(326)*V(283)+RCT(327)*V(141)+RCT(328)*V(141)+RCT(329)*V(295)+RCT(330)*V(276)& - &+RCT(331)*V(142)+RCT(332)*V(290) + D_VAR(340) = RCT(2)*V(183)+RCT(5)*V(169)+RCT(253)*V(337)+RCT(279)*V(343)+RCT(787)*V(217)+RCT(794)*V(221)+RCT(796)& + &*V(321)+RCT(804)*V(301)+RCT(808)*V(332)+RCT(814)*V(320) IF (DO_FUN(341)) & - D_VAR(341) = RCT(1)*V(179)*V(348)+RCT(4)*V(166)*V(348)+RCT(8)*V(348)+RCT(13)*V(346)+RCT(14)*V(345)+RCT(15)*V(337)& - &+RCT(16)*V(335)+RCT(17)*V(328)+RCT(77)*V(140)+RCT(150)*V(290)+RCT(203)*V(342)+RCT(233)*V(343)+RCT(237)& - &*V(334)+RCT(246)*V(217)+RCT(293)*V(340)+RCT(350)*V(331)+RCT(367)*V(312)+RCT(379)*V(167)+RCT(381)*V(219)& - &+RCT(383)*V(191)+RCT(421)*V(255)+RCT(424)*V(237)+RCT(427)*V(211)+RCT(448)*V(229)+RCT(451)*V(193)+RCT(454)& - &*V(262)+RCT(483)*V(242)+RCT(493)*V(276)+RCT(645)*V(314)+RCT(648)*V(309)+RCT(704)*V(220)+RCT(712)*V(109)& - &+RCT(746)*V(202)+RCT(761)*V(203)+RCT(768)*V(221)+RCT(771)*V(201)+RCT(820)*V(352)+RCT(821)*V(349)+RCT(822)& - &*V(350)+RCT(882)+RCT(883) + D_VAR(341) = RCT(15)*V(356)+RCT(20)*V(343)+RCT(22)*V(338)+RCT(23)*2*V(341)+RCT(28)*V(334)+RCT(39)*V(345)+RCT(42)& + &*V(348)+RCT(70)*V(182)+RCT(74)*V(168)+RCT(79)*V(215)+RCT(83)*V(133)+RCT(84)*V(201)+RCT(114)*V(323)& + &+RCT(115)*V(322)+RCT(116)*V(304)+RCT(117)*V(252)+RCT(118)*V(316)+RCT(119)*V(324)+RCT(120)*V(327)+RCT(121)& + &*V(253)+RCT(128)*V(250)+RCT(144)*V(300)+RCT(145)*V(319)+RCT(146)*V(326)+RCT(147)*V(264)+RCT(148)*V(325)& + &+RCT(158)*V(216)+RCT(204)*V(347)+RCT(205)*V(342)+RCT(236)*V(351)+RCT(247)*V(219)+RCT(296)*V(352)+RCT(297)& + &*V(352)+RCT(299)*V(344)+RCT(351)*V(331)+RCT(355)*V(336)+RCT(384)*V(281)+RCT(391)*V(261)+RCT(398)*V(282)& + &+RCT(404)*V(276)+RCT(410)*V(275)+RCT(417)*V(284)+RCT(430)*V(278)+RCT(436)*V(277)+RCT(443)*V(294)+RCT(470)& + &*V(280)+RCT(471)*V(292)+RCT(498)*V(314)+RCT(499)*V(314)+RCT(500)*V(315)+RCT(501)*V(315)+RCT(542)*V(228)& + &+RCT(546)*V(226)+RCT(550)*V(235)+RCT(558)*V(289)+RCT(565)*V(288)+RCT(566)*V(245)+RCT(571)*V(137)+RCT(573)& + &*V(136)+RCT(585)*V(210)+RCT(589)*V(186)+RCT(594)*V(209)+RCT(597)*V(208)+RCT(600)*V(299)+RCT(604)*V(308)& + &+RCT(605)*V(310)+RCT(631)*V(273)+RCT(632)*V(236)+RCT(640)*V(185)+RCT(643)*V(181)+RCT(656)*V(173)+RCT(659)& + &*V(174)+RCT(667)*V(258)+RCT(670)*V(257)+RCT(671)*V(262)+RCT(678)*V(312)+RCT(695)*V(328)+RCT(699)*V(18)& + &+RCT(710)*V(193)+RCT(715)*V(239)+RCT(727)*V(266)+RCT(734)*V(124)+RCT(737)*V(243)+RCT(750)*V(237)+RCT(759)& + &*V(238)+RCT(773)*V(13)+RCT(775)*V(22)+RCT(777)*V(27)+RCT(781) IF (DO_FUN(342)) & - D_VAR(342) = RCT(203)*V(341)+RCT(205)*V(337)+RCT(210)*V(218)+RCT(215)*V(351)+RCT(216)*V(325)+RCT(217)*V(326)+RCT(218)& - &*V(295)+RCT(219)*V(183)+RCT(220)*V(141)+RCT(221)*V(335)+RCT(333)*V(290) + D_VAR(342) = RCT(203)*V(356)+RCT(205)*V(341)+RCT(210)*V(221)+RCT(215)*V(348)+RCT(216)*V(329)+RCT(217)*V(330)+RCT(218)& + &*V(297)+RCT(219)*V(187)+RCT(220)*V(142)+RCT(221)*V(345)+RCT(333)*V(293) IF (DO_FUN(343)) & - D_VAR(343) = RCT(212)*V(316)+RCT(213)*V(352)+RCT(232)*F(3)+RCT(233)*V(341)+RCT(235)*V(345)+RCT(236)*V(337)+RCT(238)& - &*V(68)+RCT(240)*V(335)+RCT(241)*V(351)+RCT(242)*V(346)+RCT(243)*V(335)+RCT(244)*V(264)+RCT(251)*V(347)& - &+RCT(252)*V(325)+RCT(298)*V(338)+RCT(313)*V(317) + D_VAR(343) = RCT(12)*V(93)*V(355)+RCT(14)*V(356)+RCT(18)*2*V(343)+RCT(19)*2*V(343)+RCT(20)*V(341)+RCT(21)*V(267)& + &+RCT(24)*V(335)+RCT(25)*V(232)+RCT(31)*V(334)+RCT(32)*V(167)+RCT(33)*V(247)+RCT(34)*V(329)+RCT(35)*V(345)& + &+RCT(36)*V(333)+RCT(37)*V(338)+RCT(38)*V(240)+RCT(41)*V(110)+RCT(44)*V(348)+RCT(47)*V(268)+RCT(48)*V(285)& + &+RCT(51)*V(330)+RCT(55)*V(143)+RCT(57)*V(187)+RCT(61)*V(142)+RCT(62)*V(142)+RCT(66)*V(72)+RCT(71)*V(100)& + &+RCT(72)*V(200)+RCT(75)*V(140)+RCT(80)*V(130)+RCT(81)*V(229)+RCT(88)*V(129)+RCT(89)*V(144)+RCT(102)*V(255)& + &+RCT(103)*V(283)+RCT(104)*V(286)+RCT(105)*V(302)+RCT(108)*V(127)+RCT(111)*V(297)+RCT(122)*V(295)+4.51e-12& + &*V(113)+RCT(140)*V(154)+RCT(141)*V(192)+RCT(149)*V(293)+RCT(151)*V(309)+RCT(152)*V(309)+RCT(153)*V(309)& + &+RCT(160)*V(115)+RCT(161)*V(74)+RCT(163)*V(274)+RCT(164)*V(298)+RCT(167)*V(311)+RCT(168)*V(311)+RCT(169)& + &*V(128)+RCT(170)*V(121)+RCT(171)*V(101)+RCT(172)*V(102)+RCT(173)*V(99)+RCT(174)*V(104)+RCT(175)*V(158)& + &+RCT(176)*V(126)+RCT(177)*V(24)+RCT(178)*V(95)+RCT(199)*V(87)+RCT(200)*V(87)+RCT(202)*V(355)+RCT(206)& + &*V(354)+RCT(211)*V(153)+RCT(214)*V(347)+RCT(223)*V(82)+RCT(224)*V(79)+RCT(225)*V(108)+RCT(234)*F(1)& + &+RCT(235)*V(351)+RCT(239)*V(71)+RCT(273)*V(248)+RCT(275)*V(344)+RCT(276)*V(344)+RCT(277)*V(123)+RCT(278)& + &*V(78)+RCT(279)*V(340)+RCT(280)*V(332)+RCT(281)*V(301)+RCT(282)*V(321)+RCT(283)*V(184)+RCT(284)*V(80)& + &+RCT(285)*V(84)+RCT(286)*V(46)+RCT(287)*V(91)+RCT(288)*V(89)+RCT(289)*V(90)+RCT(290)*V(88)+RCT(352)*V(172)& + &+RCT(353)*V(75)+RCT(354)*V(287)+RCT(359)*V(55)+RCT(360)*V(265)+RCT(361)*V(249)+RCT(378)*V(170)+RCT(380)& + &*V(222)+RCT(382)*V(194)+RCT(387)*V(111)+RCT(388)*V(139)+RCT(390)*V(227)+RCT(396)*V(76)+RCT(397)*V(69)& + &+RCT(402)*V(163)+RCT(403)*V(179)+RCT(407)*V(141)+RCT(408)*V(112)+RCT(409)*V(132)+RCT(415)*V(164)+RCT(416)& + &*V(165)+RCT(420)*V(256)+RCT(423)*V(241)+RCT(426)*V(212)+RCT(433)*V(166)+RCT(435)*V(180)+RCT(441)*V(171)& + &+RCT(442)*V(134)+RCT(447)*V(234)+RCT(450)*V(196)+RCT(453)*V(263)+RCT(481)*V(260)+RCT(482)*V(246)+RCT(488)& + &*V(156)+RCT(489)*V(96)+RCT(490)*V(86)+RCT(491)*V(94)+RCT(492)*V(97)+RCT(494)*V(279)+RCT(495)*V(279)& + &+RCT(496)*V(279)+RCT(497)*V(279)+RCT(524)*V(233)+RCT(525)*V(231)+RCT(526)*V(150)+RCT(527)*V(151)+RCT(528)& + &*V(242)+RCT(529)*V(218)+RCT(530)*V(122)+RCT(531)*V(191)+RCT(532)*V(191)+RCT(533)*V(195)+RCT(534)*V(195)& + &+RCT(535)*V(191)+RCT(536)*V(195)+RCT(537)*V(213)+RCT(538)*V(202)+RCT(551)*V(131)+RCT(552)*V(157)+RCT(553)& + &*V(157)+RCT(554)*V(159)+RCT(555)*V(159)+RCT(574)*V(175)+RCT(575)*V(175)+RCT(576)*V(177)+RCT(577)*V(177)& + &+RCT(578)*V(271)+RCT(579)*V(271)+RCT(580)*V(270)+RCT(581)*V(270)+RCT(582)*V(271)+RCT(583)*V(270)+RCT(621)& + &*V(225)+RCT(622)*V(188)+RCT(623)*V(225)+RCT(624)*V(188)+RCT(625)*V(188)+RCT(626)*V(225)+RCT(627)*V(188)& + &+RCT(628)*V(188)+RCT(637)*V(305)+RCT(638)*V(305)+RCT(641)*V(303)+RCT(644)*V(318)+RCT(646)*V(313)+RCT(647)& + &*V(313)+RCT(650)*V(306)+RCT(651)*V(291)+RCT(652)*V(290)+RCT(653)*V(251)+RCT(654)*V(220)+RCT(661)*V(197)& + &+RCT(662)*V(190)+RCT(663)*V(135)+RCT(664)*V(230)+RCT(665)*V(211)+RCT(666)*V(155)+RCT(672)*V(161)+RCT(684)& + &*V(189)+RCT(685)*V(109)+RCT(686)*V(259)+RCT(687)*V(149)+RCT(688)*V(178)+RCT(689)*V(198)+RCT(690)*V(269)& + &+RCT(691)*V(307)+RCT(693)*V(116)+RCT(694)*V(92)+RCT(696)*V(214)+RCT(697)*V(214)+RCT(698)*V(19)+RCT(701)& + &*V(176)+RCT(702)*V(223)+RCT(705)*V(148)+RCT(707)*V(203)+RCT(711)*V(117)+RCT(713)*V(120)+RCT(714)*V(63)& + &+RCT(721)*V(73)+RCT(722)*V(138)+RCT(723)*V(138)+RCT(724)*V(145)+RCT(725)*V(85)+RCT(726)*V(103)+RCT(732)& + &*V(61)+7.09e-11*V(152)+RCT(740)*V(125)+RCT(741)*V(199)+RCT(743)*V(162)+RCT(745)*V(205)+RCT(748)*V(207)& + &+RCT(753)*V(77)+RCT(755)*V(105)+RCT(760)*V(118)+RCT(763)*V(272)+RCT(767)*V(224)+RCT(770)*V(204)+RCT(780)& + &*V(44)+RCT(791)*V(339)+RCT(792)*V(346)+RCT(888)*V(93)*V(355) IF (DO_FUN(344)) & - D_VAR(344) = RCT(790)*V(214)+RCT(792)*V(345)+RCT(801)*V(317)+RCT(803)*V(297)+RCT(811)*V(333)+RCT(816)*V(316)+RCT(847)& - &*V(252)+RCT(851)*V(332)+RCT(855)*V(330) + D_VAR(344) = RCT(274)*V(334)+RCT(275)*V(343)+RCT(276)*V(343)+RCT(298)*V(351)+RCT(299)*V(341)+RCT(300)*V(338)+RCT(301)& + &*V(345)+RCT(302)*2*V(344)+RCT(303)*2*V(344)+RCT(304)*2*V(344)+RCT(307)*2*V(344)+RCT(310)*V(347)+RCT(311)& + &*V(347)+RCT(312)*V(347)+RCT(349)*V(336)+RCT(951) IF (DO_FUN(345)) & - D_VAR(345) = RCT(12)*V(89)*V(348)+RCT(14)*V(341)+RCT(18)*2*V(345)+RCT(19)*2*V(345)+RCT(20)*V(337)+RCT(21)*V(264)& - &+RCT(24)*V(329)+RCT(25)*V(228)+RCT(31)*V(328)+RCT(32)*V(164)+RCT(33)*V(244)+RCT(34)*V(325)+RCT(35)*V(335)& - &+RCT(36)*V(327)+RCT(37)*V(346)+RCT(38)*V(239)+RCT(41)*V(108)+RCT(44)*V(351)+RCT(47)*V(265)+RCT(48)*V(282)& - &+RCT(51)*V(326)+RCT(55)*V(139)+RCT(57)*V(183)+RCT(61)*V(141)+RCT(62)*V(141)+RCT(66)*V(69)+RCT(71)*V(98)& - &+RCT(72)*V(196)+RCT(75)*V(140)+RCT(80)*V(127)+RCT(81)*V(233)+RCT(88)*V(126)+RCT(89)*V(142)+RCT(102)*V(251)& - &+RCT(103)*V(279)+RCT(104)*V(283)+RCT(105)*V(298)+RCT(108)*V(124)+RCT(111)*V(295)+RCT(122)*V(292)+4.51e-12& - &*V(113)+RCT(140)*V(156)+RCT(141)*V(188)+RCT(149)*V(290)+RCT(151)*V(306)+RCT(152)*V(306)+RCT(153)*V(306)& - &+RCT(160)*V(114)+RCT(161)*V(72)+RCT(163)*V(270)+RCT(164)*V(294)+RCT(167)*V(307)+RCT(168)*V(307)+RCT(169)& - &*V(125)+RCT(170)*V(118)+RCT(171)*V(99)+RCT(172)*V(100)+RCT(173)*V(97)+RCT(174)*V(102)+RCT(175)*V(155)& - &+RCT(176)*V(123)+RCT(177)*V(24)+RCT(178)*V(92)+RCT(199)*V(94)+RCT(200)*V(94)+RCT(202)*V(348)+RCT(206)& - &*V(352)+RCT(211)*V(148)+RCT(214)*V(347)+RCT(223)*V(81)+RCT(224)*V(78)+RCT(225)*V(105)+RCT(234)*F(1)& - &+RCT(235)*V(343)+RCT(239)*V(68)+RCT(273)*V(245)+RCT(275)*V(338)+RCT(276)*V(338)+RCT(277)*V(120)+RCT(278)& - &*V(76)+RCT(279)*V(339)+RCT(280)*V(333)+RCT(281)*V(297)+RCT(282)*V(317)+RCT(283)*V(181)+RCT(284)*V(79)& - &+RCT(285)*V(75)+RCT(286)*V(43)+RCT(287)*V(87)+RCT(288)*V(85)+RCT(289)*V(86)+RCT(290)*V(84)+RCT(352)*V(170)& - &+RCT(353)*V(73)+RCT(354)*V(330)+RCT(359)*V(52)+RCT(360)*V(261)+RCT(361)*V(247)+RCT(378)*V(167)+RCT(380)& - &*V(219)+RCT(382)*V(191)+RCT(387)*V(111)+RCT(388)*V(137)+RCT(390)*V(225)+RCT(396)*V(74)+RCT(397)*V(66)& - &+RCT(402)*V(160)+RCT(403)*V(176)+RCT(407)*V(138)+RCT(408)*V(112)+RCT(409)*V(129)+RCT(415)*V(161)+RCT(416)& - &*V(162)+RCT(420)*V(255)+RCT(423)*V(237)+RCT(426)*V(211)+RCT(433)*V(163)+RCT(435)*V(177)+RCT(441)*V(169)& - &+RCT(442)*V(130)+RCT(447)*V(229)+RCT(450)*V(193)+RCT(453)*V(262)+RCT(481)*V(256)+RCT(482)*V(242)+RCT(488)& - &*V(154)+RCT(489)*V(93)+RCT(490)*V(83)+RCT(491)*V(91)+RCT(492)*V(95)+RCT(494)*V(276)+RCT(495)*V(276)& - &+RCT(496)*V(276)+RCT(497)*V(276)+RCT(524)*V(230)+RCT(525)*V(231)+RCT(526)*V(150)+RCT(527)*V(144)+RCT(528)& - &*V(238)+RCT(529)*V(215)+RCT(530)*V(119)+RCT(531)*V(187)+RCT(532)*V(187)+RCT(533)*V(192)+RCT(534)*V(192)& - &+RCT(535)*V(187)+RCT(536)*V(192)+RCT(537)*V(209)+RCT(538)*V(199)+RCT(551)*V(128)+RCT(552)*V(151)+RCT(553)& - &*V(151)+RCT(554)*V(152)+RCT(555)*V(152)+RCT(574)*V(175)+RCT(575)*V(175)+RCT(576)*V(168)+RCT(577)*V(168)& - &+RCT(578)*V(268)+RCT(579)*V(268)+RCT(580)*V(267)+RCT(581)*V(267)+RCT(582)*V(268)+RCT(583)*V(267)+RCT(621)& - &*V(222)+RCT(622)*V(186)+RCT(623)*V(222)+RCT(624)*V(186)+RCT(625)*V(186)+RCT(626)*V(222)+RCT(627)*V(186)& - &+RCT(628)*V(186)+RCT(637)*V(301)+RCT(638)*V(301)+RCT(641)*V(299)+RCT(644)*V(314)+RCT(646)*V(309)+RCT(647)& - &*V(309)+RCT(650)*V(302)+RCT(651)*V(288)+RCT(652)*V(287)+RCT(653)*V(248)+RCT(654)*V(216)+RCT(661)*V(194)& - &+RCT(662)*V(185)+RCT(663)*V(131)+RCT(664)*V(227)+RCT(665)*V(208)+RCT(666)*V(153)+RCT(672)*V(159)+RCT(684)& - &*V(184)+RCT(685)*V(107)+RCT(686)*V(258)+RCT(687)*V(147)+RCT(688)*V(174)+RCT(689)*V(198)+RCT(690)*V(266)& - &+RCT(691)*V(303)+RCT(693)*V(115)+RCT(694)*V(88)+RCT(696)*V(210)+RCT(697)*V(210)+RCT(698)*V(19)+RCT(701)& - &*V(173)+RCT(702)*V(220)+RCT(705)*V(149)+RCT(707)*V(200)+RCT(711)*V(116)+RCT(713)*V(109)+RCT(714)*V(60)& - &+RCT(721)*V(70)+RCT(722)*V(136)+RCT(723)*V(136)+RCT(724)*V(143)+RCT(725)*V(82)+RCT(726)*V(101)+RCT(732)& - &*V(58)+7.09e-11*V(146)+RCT(740)*V(122)+RCT(741)*V(195)+RCT(743)*V(158)+RCT(745)*V(202)+RCT(748)*V(204)& - &+RCT(753)*V(71)+RCT(755)*V(90)+RCT(760)*V(117)+RCT(763)*V(269)+RCT(767)*V(221)+RCT(770)*V(201)+RCT(780)& - &*V(41)+RCT(791)*V(353)+RCT(792)*V(344) + D_VAR(345) = RCT(16)*V(356)+RCT(35)*V(343)+RCT(39)*V(341)+RCT(45)*V(348)+RCT(49)*V(348)+RCT(53)*V(328)+RCT(86)*V(201)& + &+RCT(106)*V(325)+RCT(124)*V(250)+RCT(155)*V(216)+RCT(197)*V(334)+RCT(221)*V(342)+RCT(222)*V(347)+RCT(240)& + &*V(351)+RCT(243)*V(351)+RCT(250)*V(70)+RCT(301)*V(344)+RCT(336)*V(331)+RCT(340)*V(336)+RCT(364)*V(317)& + &+RCT(371)*V(244)+RCT(393)*V(261)+RCT(438)*V(277)+RCT(657)*V(173)+RCT(660)*V(174)+RCT(677)*V(262)+RCT(680)& + &*V(312)+RCT(738)*V(243)+RCT(752)*V(237)+RCT(756)*V(238)+RCT(762)*V(206)+RCT(782)+RCT(885)*V(355)+RCT(892) IF (DO_FUN(346)) & - D_VAR(346) = RCT(13)*V(341)+RCT(22)*V(337)+RCT(26)*V(328)+RCT(27)*V(328)+RCT(37)*V(345)+RCT(43)*V(351)+RCT(56)*V(324)& - &+RCT(58)*V(296)+RCT(59)*V(296)+RCT(60)*V(315)+RCT(63)*V(321)+RCT(64)*V(321)+RCT(65)*V(260)+RCT(68)*V(178)& - &+RCT(69)*V(178)+RCT(73)*V(165)+RCT(78)*V(212)+RCT(82)*V(132)+RCT(85)*V(197)+RCT(90)*V(300)+RCT(91)*V(300)& - &+RCT(92)*V(249)+RCT(93)*V(319)+RCT(94)*V(319)+RCT(95)*V(318)+RCT(96)*V(313)+RCT(97)*V(320)+RCT(98)*V(323)& - &+RCT(99)*V(323)+RCT(100)*V(250)+RCT(109)*V(322)+RCT(123)*V(320)+RCT(127)*V(246)+RCT(157)*V(213)+RCT(209)& - &*V(347)+RCT(242)*V(343)+RCT(249)*V(67)+RCT(300)*V(338)+RCT(334)*V(331)+RCT(348)*V(96)+RCT(356)*V(284)& - &+RCT(363)*V(312)+RCT(370)*V(241)+RCT(385)*V(277)+RCT(392)*V(257)+RCT(399)*V(278)+RCT(405)*V(275)+RCT(411)& - &*V(273)+RCT(412)*V(273)+RCT(418)*V(281)+RCT(429)*V(272)+RCT(437)*V(274)+RCT(444)*V(291)+RCT(445)*V(291)& - &+RCT(468)*V(280)+RCT(469)*V(289)+RCT(516)*V(305)+RCT(517)*V(305)+RCT(518)*V(305)+RCT(519)*V(305)+RCT(520)& - &*V(304)+RCT(521)*V(304)+RCT(522)*V(304)+RCT(523)*V(304)+RCT(540)*V(223)+RCT(541)*V(223)+RCT(544)*V(224)& - &+RCT(545)*V(224)+RCT(548)*V(232)+RCT(549)*V(232)+RCT(559)*V(286)+RCT(560)*V(286)+RCT(563)*V(285)+RCT(564)& - &*V(285)+RCT(567)*V(243)+RCT(568)*V(243)+RCT(570)*V(133)+RCT(572)*V(135)+RCT(586)*V(205)+RCT(587)*V(205)& - &+RCT(590)*V(190)+RCT(591)*V(190)+RCT(595)*V(206)+RCT(596)*V(206)+RCT(598)*V(207)+RCT(599)*V(207)+RCT(601)& - &*V(293)+RCT(602)*V(293)+RCT(615)*V(310)+RCT(616)*V(310)+RCT(617)*V(311)+RCT(618)*V(311)+RCT(633)*V(271)& - &+RCT(634)*V(271)+RCT(635)*V(226)+RCT(636)*V(226)+RCT(639)*V(182)+RCT(642)*V(180)+RCT(655)*V(171)+RCT(658)& - &*V(172)+RCT(668)*V(254)+RCT(669)*V(254)+RCT(674)*V(253)+RCT(675)*V(253)+RCT(676)*V(259)+RCT(679)*V(308)& - &+RCT(700)*V(18)+RCT(709)*V(189)+RCT(716)*V(234)+RCT(728)*V(263)+RCT(733)*V(121)+RCT(736)*V(240)+RCT(751)& - &*V(235)+RCT(757)*V(236)+RCT(774)*V(13)+RCT(776)*V(22)+RCT(778)*V(27)+RCT(988) + D_VAR(346) = RCT(790)*V(217)+RCT(792)*V(343)+RCT(801)*V(321)+RCT(803)*V(301)+RCT(811)*V(332)+RCT(816)*V(320)+RCT(847)& + &*V(254)+RCT(851)*V(296)+RCT(855)*V(287) IF (DO_FUN(347)) & - D_VAR(347) = RCT(204)*V(337)+RCT(207)*2*V(347)+RCT(208)*2*V(347)+RCT(209)*V(346)+RCT(214)*V(345)+RCT(222)*V(335)& - &+RCT(251)*V(343)+RCT(310)*V(338)+RCT(311)*V(338)+RCT(312)*V(338)+RCT(343)*V(331)+RCT(344)*V(284)+RCT(932) + D_VAR(347) = RCT(204)*V(341)+RCT(207)*2*V(347)+RCT(208)*2*V(347)+RCT(209)*V(338)+RCT(214)*V(343)+RCT(222)*V(345)& + &+RCT(251)*V(351)+RCT(310)*V(344)+RCT(311)*V(344)+RCT(312)*V(344)+RCT(343)*V(331)+RCT(344)*V(336)+RCT(939) IF (DO_FUN(348)) & - D_VAR(348) = RCT(1)*V(179)*V(341)+RCT(4)*V(166)*V(341)+RCT(7)*V(264)+RCT(8)*V(341)+RCT(9)+RCT(10)*V(325)+RCT(12)*V(89)& - &*V(345)+RCT(202)*V(345)+RCT(368)*V(312)+RCT(372)*V(241)+RCT(812)*V(333)+RCT(819)*V(316) + D_VAR(348) = RCT(42)*V(341)+RCT(43)*V(338)+RCT(44)*V(343)+RCT(45)*V(345)+RCT(49)*V(345)+RCT(50)*V(329)+RCT(52)*V(330)& + &+RCT(67)*V(72)+RCT(76)*V(140)+RCT(101)*V(144)+RCT(110)*V(302)+RCT(131)*V(295)+RCT(154)*V(309)+RCT(159)& + &*V(216)+RCT(162)*V(293)+RCT(165)*V(274)+RCT(166)*V(298)+RCT(179)*V(187)+RCT(196)*2*V(348)+RCT(201)*V(87)& + &+RCT(215)*V(342)+RCT(241)*V(351)+RCT(339)*V(172)+RCT(375)*V(194)+RCT(376)*V(222)+RCT(377)*V(170)+RCT(386)& + &*V(281)+RCT(389)*V(227)+RCT(395)*V(261)+RCT(400)*V(282)+RCT(406)*V(276)+RCT(414)*V(275)+RCT(419)*V(284)& + &+RCT(422)*V(256)+RCT(425)*V(241)+RCT(428)*V(212)+RCT(431)*V(278)+RCT(434)*V(166)+RCT(440)*V(277)+RCT(446)& + &*V(294)+RCT(449)*V(234)+RCT(452)*V(196)+RCT(455)*V(263)+RCT(476)*V(280)+RCT(477)*V(292)+RCT(484)*V(246)& + &+RCT(485)*V(260)+RCT(603)*V(279)+RCT(613)*V(308)+RCT(614)*V(310)+RCT(649)*V(313)+RCT(681)*V(312)+RCT(692)& + &*V(265)+RCT(703)*V(223)+RCT(706)*V(148)+RCT(708)*V(203)+RCT(717)*V(239)+RCT(729)*V(266)+RCT(742)*V(199)& + &+RCT(744)*V(162)+RCT(747)*V(205)+RCT(749)*V(207)+RCT(758)*V(238)+RCT(764)*V(272)+RCT(779)*V(334)+RCT(783)& + &+RCT(784)+RCT(785)+RCT(901)+RCT(902) IF (DO_FUN(349)) & - D_VAR(349) = RCT(798)*V(317)+RCT(805)*V(297)+RCT(817)*V(316)+RCT(821)*V(341)+RCT(844)*V(252)+RCT(848)*V(332)+RCT(852)& - &*V(330) + D_VAR(349) = RCT(798)*V(321)+RCT(805)*V(301)+RCT(817)*V(320)+RCT(821)*V(356)+RCT(844)*V(254)+RCT(848)*V(296)+RCT(852)& + &*V(287) IF (DO_FUN(350)) & - D_VAR(350) = RCT(799)*V(317)+RCT(806)*V(297)+RCT(818)*V(316)+RCT(822)*V(341)+RCT(845)*V(252)+RCT(849)*V(332)+RCT(853)& - &*V(330) + D_VAR(350) = RCT(799)*V(321)+RCT(806)*V(301)+RCT(818)*V(320)+RCT(822)*V(356)+RCT(845)*V(254)+RCT(849)*V(296)+RCT(853)& + &*V(287) IF (DO_FUN(351)) & - D_VAR(351) = RCT(42)*V(337)+RCT(43)*V(346)+RCT(44)*V(345)+RCT(45)*V(335)+RCT(49)*V(335)+RCT(50)*V(325)+RCT(52)*V(326)& - &+RCT(67)*V(69)+RCT(76)*V(140)+RCT(101)*V(142)+RCT(110)*V(298)+RCT(131)*V(292)+RCT(154)*V(306)+RCT(159)& - &*V(213)+RCT(162)*V(290)+RCT(165)*V(270)+RCT(166)*V(294)+RCT(179)*V(183)+RCT(196)*2*V(351)+RCT(201)*V(94)& - &+RCT(215)*V(342)+RCT(241)*V(343)+RCT(339)*V(170)+RCT(375)*V(191)+RCT(376)*V(219)+RCT(377)*V(167)+RCT(386)& - &*V(277)+RCT(389)*V(225)+RCT(395)*V(257)+RCT(400)*V(278)+RCT(406)*V(275)+RCT(414)*V(273)+RCT(419)*V(281)& - &+RCT(422)*V(255)+RCT(425)*V(237)+RCT(428)*V(211)+RCT(431)*V(272)+RCT(434)*V(163)+RCT(440)*V(274)+RCT(446)& - &*V(291)+RCT(449)*V(229)+RCT(452)*V(193)+RCT(455)*V(262)+RCT(476)*V(280)+RCT(477)*V(289)+RCT(484)*V(242)& - &+RCT(485)*V(256)+RCT(603)*V(276)+RCT(613)*V(310)+RCT(614)*V(311)+RCT(649)*V(309)+RCT(681)*V(308)+RCT(692)& - &*V(261)+RCT(703)*V(220)+RCT(706)*V(149)+RCT(708)*V(200)+RCT(717)*V(234)+RCT(729)*V(263)+RCT(742)*V(195)& - &+RCT(744)*V(158)+RCT(747)*V(202)+RCT(749)*V(204)+RCT(758)*V(236)+RCT(764)*V(269)+RCT(779)*V(328)+RCT(783)& - &+RCT(784)+RCT(785)+RCT(894)+RCT(895) + D_VAR(351) = RCT(212)*V(320)+RCT(213)*V(354)+RCT(232)*F(3)+RCT(233)*V(356)+RCT(235)*V(343)+RCT(236)*V(341)+RCT(238)& + &*V(71)+RCT(240)*V(345)+RCT(241)*V(348)+RCT(242)*V(338)+RCT(243)*V(345)+RCT(244)*V(267)+RCT(251)*V(347)& + &+RCT(252)*V(329)+RCT(298)*V(344)+RCT(313)*V(321) IF (DO_FUN(352)) & - D_VAR(352) = RCT(206)*V(345)+RCT(213)*V(343)+RCT(254)*V(334)+RCT(797)*V(317)+RCT(807)*V(297)+RCT(809)*V(333)+RCT(813)& - &*V(316)+RCT(820)*V(341)+RCT(823)+RCT(824) + D_VAR(352) = RCT(291)*V(232)+RCT(292)*V(329)+RCT(293)*V(356)+RCT(294)*F(1)+RCT(295)*V(267)+RCT(296)*V(341)+RCT(297)& + &*V(341)+RCT(305)*F(3)+RCT(309)*V(119)+RCT(314)*V(321)+RCT(315)*V(184)+RCT(316)*V(80)+RCT(317)*V(84)& + &+RCT(318)*V(268)+RCT(319)*V(334)+RCT(320)*V(167)+RCT(321)*V(187)+RCT(322)*V(300)+RCT(323)*V(319)+RCT(324)& + &*V(285)+RCT(325)*V(154)+RCT(326)*V(286)+RCT(327)*V(142)+RCT(328)*V(142)+RCT(329)*V(297)+RCT(330)*V(279)& + &+RCT(331)*V(144)+RCT(332)*V(293) IF (DO_FUN(353)) & - D_VAR(353) = RCT(789)*V(214)+RCT(791)*V(345)+RCT(800)*V(317)+RCT(802)*V(297)+RCT(810)*V(333)+RCT(815)*V(316)+RCT(846)& - &*V(252)+RCT(850)*V(332)+RCT(854)*V(330) + D_VAR(353) = RCT(226)*V(337)+RCT(365)*V(317)+RCT(366)*2*V(317)*V(353)+RCT(373)*V(244)+RCT(374)*V(244)+RCT(786)*V(217)& + &+RCT(793)*V(221)+RCT(795)*V(321)+RCT(843)*V(296) +IF (DO_FUN(354)) & + D_VAR(354) = RCT(206)*V(343)+RCT(213)*V(351)+RCT(254)*V(337)+RCT(797)*V(321)+RCT(807)*V(301)+RCT(809)*V(332)+RCT(813)& + &*V(320)+RCT(820)*V(356)+RCT(823)+RCT(824) +IF (DO_FUN(355)) & + D_VAR(355) = RCT(1)*V(183)*V(356)+RCT(4)*V(169)*V(356)+RCT(7)*V(267)+RCT(8)*V(356)+RCT(9)+RCT(10)*V(329)+RCT(12)*V(93)& + &*V(343)+RCT(202)*V(343)+RCT(368)*V(317)+RCT(372)*V(244)+RCT(812)*V(332)+RCT(819)*V(320)+RCT(882)*V(267)& + &+RCT(883)*V(356)+RCT(884)+RCT(885)*V(345)+RCT(886)*V(329)+RCT(888)*V(93)*V(343) +IF (DO_FUN(356)) & + D_VAR(356) = RCT(1)*V(183)*V(355)+RCT(4)*V(169)*V(355)+RCT(8)*V(355)+RCT(13)*V(338)+RCT(14)*V(343)+RCT(15)*V(341)& + &+RCT(16)*V(345)+RCT(17)*V(334)+RCT(77)*V(140)+RCT(150)*V(293)+RCT(203)*V(342)+RCT(233)*V(351)+RCT(237)& + &*V(337)+RCT(246)*V(219)+RCT(293)*V(352)+RCT(350)*V(331)+RCT(367)*V(317)+RCT(379)*V(170)+RCT(381)*V(222)& + &+RCT(383)*V(194)+RCT(421)*V(256)+RCT(424)*V(241)+RCT(427)*V(212)+RCT(448)*V(234)+RCT(451)*V(196)+RCT(454)& + &*V(263)+RCT(483)*V(246)+RCT(493)*V(279)+RCT(645)*V(318)+RCT(648)*V(313)+RCT(704)*V(223)+RCT(712)*V(120)& + &+RCT(746)*V(205)+RCT(761)*V(206)+RCT(768)*V(224)+RCT(771)*V(204)+RCT(820)*V(354)+RCT(821)*V(349)+RCT(822)& + &*V(350)+RCT(883)*V(355)+RCT(889)+RCT(890) Vdot = P_VAR - D_VAR*V @@ -5094,1064 +5130,1071 @@ SUBROUTINE Fun_SPLITF ( V, F, RCT, P_VAR, D_VAR, Aout ) REAL(kind=dp), OPTIONAL :: Aout(NREACT) ! Computation of equation rates - A(1) = RCT(1)*V(179)*V(341)*V(348) - A(2) = RCT(2)*V(179)*V(339) - A(3) = RCT(3)*V(179)*V(327) - A(4) = RCT(4)*V(166)*V(341)*V(348) - A(5) = RCT(5)*V(166)*V(339) - A(6) = RCT(6)*V(166)*V(327) - A(7) = RCT(7)*V(264)*V(348) - A(8) = RCT(8)*V(341)*V(348) - A(9) = RCT(9)*V(348) - A(10) = RCT(10)*V(325)*V(348) - A(11) = RCT(11)*V(89) - A(12) = RCT(12)*V(89)*V(345)*V(348) - A(13) = RCT(13)*V(341)*V(346) - A(14) = RCT(14)*V(341)*V(345) - A(15) = RCT(15)*V(337)*V(341) - A(16) = RCT(16)*V(335)*V(341) - A(17) = RCT(17)*V(328)*V(341) - A(18) = RCT(18)*V(345)*V(345) - A(19) = RCT(19)*V(345)*V(345) - A(20) = RCT(20)*V(337)*V(345) - A(21) = RCT(21)*V(264)*V(345) - A(22) = RCT(22)*V(337)*V(346) - A(23) = RCT(23)*V(337)*V(337) - A(24) = RCT(24)*V(329)*V(345) - A(25) = RCT(25)*V(228)*V(345) - A(26) = RCT(26)*V(328)*V(346) - A(27) = RCT(27)*V(328)*V(346) - A(28) = RCT(28)*V(328)*V(337) - A(29) = RCT(29)*V(328)*V(328) - A(30) = RCT(30)*V(328)*V(328) - A(31) = RCT(31)*V(328)*V(345) - A(32) = RCT(32)*V(164)*V(345) - A(33) = RCT(33)*V(244)*V(345) - A(34) = RCT(34)*V(325)*V(345) - A(35) = RCT(35)*V(335)*V(345) - A(36) = RCT(36)*V(327)*V(345) - A(37) = RCT(37)*V(345)*V(346) - A(38) = RCT(38)*V(239)*V(345) - A(39) = RCT(39)*V(335)*V(337) - A(40) = RCT(40)*V(108) - A(41) = RCT(41)*V(108)*V(345) - A(42) = RCT(42)*V(337)*V(351) - A(43) = RCT(43)*V(346)*V(351) - A(44) = RCT(44)*V(345)*V(351) - A(45) = RCT(45)*V(335)*V(351) - A(46) = RCT(46)*V(214) - A(47) = RCT(47)*V(265)*V(345) - A(48) = RCT(48)*V(282)*V(345) - A(49) = RCT(49)*V(335)*V(351) - A(50) = RCT(50)*V(325)*V(351) - A(51) = RCT(51)*V(326)*V(345) - A(52) = RCT(52)*V(326)*V(351) - A(53) = RCT(53)*V(324)*V(335) - A(54) = RCT(54)*V(139) - A(55) = RCT(55)*V(139)*V(345) - A(56) = RCT(56)*V(324)*V(346) - A(57) = RCT(57)*V(183)*V(345) - A(58) = RCT(58)*V(296)*V(346) - A(59) = RCT(59)*V(296)*V(346) - A(60) = RCT(60)*V(315)*V(346) - A(61) = RCT(61)*V(141)*V(345) - A(62) = RCT(62)*V(141)*V(345) - A(63) = RCT(63)*V(321)*V(346) - A(64) = RCT(64)*V(321)*V(346) - A(65) = RCT(65)*V(260)*V(346) - A(66) = RCT(66)*V(69)*V(345) - A(67) = RCT(67)*V(69)*V(351) - A(68) = RCT(68)*V(178)*V(346) - A(69) = RCT(69)*V(178)*V(346) - A(70) = RCT(70)*V(178)*V(337) - A(71) = RCT(71)*V(98)*V(345) - A(72) = RCT(72)*V(196)*V(345) - A(73) = RCT(73)*V(165)*V(346) - A(74) = RCT(74)*V(165)*V(337) - A(75) = RCT(75)*V(140)*V(345) - A(76) = RCT(76)*V(140)*V(351) - A(77) = RCT(77)*V(140)*V(341) - A(78) = RCT(78)*V(212)*V(346) - A(79) = RCT(79)*V(212)*V(337) - A(80) = RCT(80)*V(127)*V(345) - A(81) = RCT(81)*V(233)*V(345) - A(82) = RCT(82)*V(132)*V(346) - A(83) = RCT(83)*V(132)*V(337) - A(84) = RCT(84)*V(197)*V(337) - A(85) = RCT(85)*V(197)*V(346) - A(86) = RCT(86)*V(197)*V(335) - A(87) = RCT(87)*V(126) - A(88) = RCT(88)*V(126)*V(345) - A(89) = RCT(89)*V(142)*V(345) - A(90) = RCT(90)*V(300)*V(346) - A(91) = RCT(91)*V(300)*V(346) - A(92) = RCT(92)*V(249)*V(346) - A(93) = RCT(93)*V(319)*V(346) - A(94) = RCT(94)*V(319)*V(346) - A(95) = RCT(95)*V(318)*V(346) - A(96) = RCT(96)*V(313)*V(346) - A(97) = RCT(97)*V(320)*V(346) - A(98) = RCT(98)*V(323)*V(346) - A(99) = RCT(99)*V(323)*V(346) - A(100) = RCT(100)*V(250)*V(346) - A(101) = RCT(101)*V(142)*V(351) - A(102) = RCT(102)*V(251)*V(345) - A(103) = RCT(103)*V(279)*V(345) - A(104) = RCT(104)*V(283)*V(345) - A(105) = RCT(105)*V(298)*V(345) - A(106) = RCT(106)*V(322)*V(335) - A(107) = RCT(107)*V(124) - A(108) = RCT(108)*V(124)*V(345) - A(109) = RCT(109)*V(322)*V(346) - A(110) = RCT(110)*V(298)*V(351) - A(111) = RCT(111)*V(295)*V(345) - A(112) = RCT(112)*V(321)*V(328) - A(113) = RCT(113)*V(260)*V(328) - A(114) = RCT(114)*V(319)*V(337) - A(115) = RCT(115)*V(318)*V(337) - A(116) = RCT(116)*V(300)*V(337) - A(117) = RCT(117)*V(249)*V(337) - A(118) = RCT(118)*V(313)*V(337) - A(119) = RCT(119)*V(320)*V(337) - A(120) = RCT(120)*V(323)*V(337) - A(121) = RCT(121)*V(250)*V(337) - A(122) = RCT(122)*V(292)*V(345) - A(123) = RCT(123)*V(320)*V(346) - A(124) = RCT(124)*V(246)*V(335) + A(1) = RCT(1)*V(183)*V(355)*V(356) + A(2) = RCT(2)*V(183)*V(340) + A(3) = RCT(3)*V(183)*V(333) + A(4) = RCT(4)*V(169)*V(355)*V(356) + A(5) = RCT(5)*V(169)*V(340) + A(6) = RCT(6)*V(169)*V(333) + A(7) = RCT(7)*V(267)*V(355) + A(8) = RCT(8)*V(355)*V(356) + A(9) = RCT(9)*V(355) + A(10) = RCT(10)*V(329)*V(355) + A(11) = RCT(11)*V(93) + A(12) = RCT(12)*V(93)*V(343)*V(355) + A(13) = RCT(13)*V(338)*V(356) + A(14) = RCT(14)*V(343)*V(356) + A(15) = RCT(15)*V(341)*V(356) + A(16) = RCT(16)*V(345)*V(356) + A(17) = RCT(17)*V(334)*V(356) + A(18) = RCT(18)*V(343)*V(343) + A(19) = RCT(19)*V(343)*V(343) + A(20) = RCT(20)*V(341)*V(343) + A(21) = RCT(21)*V(267)*V(343) + A(22) = RCT(22)*V(338)*V(341) + A(23) = RCT(23)*V(341)*V(341) + A(24) = RCT(24)*V(335)*V(343) + A(25) = RCT(25)*V(232)*V(343) + A(26) = RCT(26)*V(334)*V(338) + A(27) = RCT(27)*V(334)*V(338) + A(28) = RCT(28)*V(334)*V(341) + A(29) = RCT(29)*V(334)*V(334) + A(30) = RCT(30)*V(334)*V(334) + A(31) = RCT(31)*V(334)*V(343) + A(32) = RCT(32)*V(167)*V(343) + A(33) = RCT(33)*V(247)*V(343) + A(34) = RCT(34)*V(329)*V(343) + A(35) = RCT(35)*V(343)*V(345) + A(36) = RCT(36)*V(333)*V(343) + A(37) = RCT(37)*V(338)*V(343) + A(38) = RCT(38)*V(240)*V(343) + A(39) = RCT(39)*V(341)*V(345) + A(40) = RCT(40)*V(110) + A(41) = RCT(41)*V(110)*V(343) + A(42) = RCT(42)*V(341)*V(348) + A(43) = RCT(43)*V(338)*V(348) + A(44) = RCT(44)*V(343)*V(348) + A(45) = RCT(45)*V(345)*V(348) + A(46) = RCT(46)*V(217) + A(47) = RCT(47)*V(268)*V(343) + A(48) = RCT(48)*V(285)*V(343) + A(49) = RCT(49)*V(345)*V(348) + A(50) = RCT(50)*V(329)*V(348) + A(51) = RCT(51)*V(330)*V(343) + A(52) = RCT(52)*V(330)*V(348) + A(53) = RCT(53)*V(328)*V(345) + A(54) = RCT(54)*V(143) + A(55) = RCT(55)*V(143)*V(343) + A(56) = RCT(56)*V(328)*V(338) + A(57) = RCT(57)*V(187)*V(343) + A(58) = RCT(58)*V(300)*V(338) + A(59) = RCT(59)*V(300)*V(338) + A(60) = RCT(60)*V(319)*V(338) + A(61) = RCT(61)*V(142)*V(343) + A(62) = RCT(62)*V(142)*V(343) + A(63) = RCT(63)*V(326)*V(338) + A(64) = RCT(64)*V(326)*V(338) + A(65) = RCT(65)*V(264)*V(338) + A(66) = RCT(66)*V(72)*V(343) + A(67) = RCT(67)*V(72)*V(348) + A(68) = RCT(68)*V(182)*V(338) + A(69) = RCT(69)*V(182)*V(338) + A(70) = RCT(70)*V(182)*V(341) + A(71) = RCT(71)*V(100)*V(343) + A(72) = RCT(72)*V(200)*V(343) + A(73) = RCT(73)*V(168)*V(338) + A(74) = RCT(74)*V(168)*V(341) + A(75) = RCT(75)*V(140)*V(343) + A(76) = RCT(76)*V(140)*V(348) + A(77) = RCT(77)*V(140)*V(356) + A(78) = RCT(78)*V(215)*V(338) + A(79) = RCT(79)*V(215)*V(341) + A(80) = RCT(80)*V(130)*V(343) + A(81) = RCT(81)*V(229)*V(343) + A(82) = RCT(82)*V(133)*V(338) + A(83) = RCT(83)*V(133)*V(341) + A(84) = RCT(84)*V(201)*V(341) + A(85) = RCT(85)*V(201)*V(338) + A(86) = RCT(86)*V(201)*V(345) + A(87) = RCT(87)*V(129) + A(88) = RCT(88)*V(129)*V(343) + A(89) = RCT(89)*V(144)*V(343) + A(90) = RCT(90)*V(304)*V(338) + A(91) = RCT(91)*V(304)*V(338) + A(92) = RCT(92)*V(252)*V(338) + A(93) = RCT(93)*V(323)*V(338) + A(94) = RCT(94)*V(323)*V(338) + A(95) = RCT(95)*V(322)*V(338) + A(96) = RCT(96)*V(316)*V(338) + A(97) = RCT(97)*V(324)*V(338) + A(98) = RCT(98)*V(327)*V(338) + A(99) = RCT(99)*V(327)*V(338) + A(100) = RCT(100)*V(253)*V(338) + A(101) = RCT(101)*V(144)*V(348) + A(102) = RCT(102)*V(255)*V(343) + A(103) = RCT(103)*V(283)*V(343) + A(104) = RCT(104)*V(286)*V(343) + A(105) = RCT(105)*V(302)*V(343) + A(106) = RCT(106)*V(325)*V(345) + A(107) = RCT(107)*V(127) + A(108) = RCT(108)*V(127)*V(343) + A(109) = RCT(109)*V(325)*V(338) + A(110) = RCT(110)*V(302)*V(348) + A(111) = RCT(111)*V(297)*V(343) + A(112) = RCT(112)*V(326)*V(334) + A(113) = RCT(113)*V(264)*V(334) + A(114) = RCT(114)*V(323)*V(341) + A(115) = RCT(115)*V(322)*V(341) + A(116) = RCT(116)*V(304)*V(341) + A(117) = RCT(117)*V(252)*V(341) + A(118) = RCT(118)*V(316)*V(341) + A(119) = RCT(119)*V(324)*V(341) + A(120) = RCT(120)*V(327)*V(341) + A(121) = RCT(121)*V(253)*V(341) + A(122) = RCT(122)*V(295)*V(343) + A(123) = RCT(123)*V(324)*V(338) + A(124) = RCT(124)*V(250)*V(345) A(125) = RCT(125)*V(113) - A(126) = 4.51e-12*V(113)*V(345) - A(127) = RCT(127)*V(246)*V(346) - A(128) = RCT(128)*V(246)*V(337) - A(129) = RCT(129)*V(296)*V(328) - A(130) = RCT(130)*V(315)*V(328) - A(131) = RCT(131)*V(292)*V(351) - A(132) = RCT(132)*V(319)*V(328) - A(133) = RCT(133)*V(318)*V(328) - A(134) = RCT(134)*V(300)*V(328) - A(135) = RCT(135)*V(249)*V(328) - A(136) = RCT(136)*V(313)*V(328) - A(137) = RCT(137)*V(320)*V(328) - A(138) = RCT(138)*V(323)*V(328) - A(139) = RCT(139)*V(250)*V(328) - A(140) = RCT(140)*V(156)*V(345) - A(141) = RCT(141)*V(188)*V(345) - A(142) = RCT(142)*V(296)*V(296) - A(143) = RCT(143)*V(315)*V(315) - A(144) = RCT(144)*V(296)*V(337) - A(145) = RCT(145)*V(315)*V(337) - A(146) = RCT(146)*V(321)*V(337) - A(147) = RCT(147)*V(260)*V(337) - A(148) = RCT(148)*V(322)*V(337) - A(149) = RCT(149)*V(290)*V(345) - A(150) = RCT(150)*V(290)*V(341) - A(151) = RCT(151)*V(306)*V(345) - A(152) = RCT(152)*V(306)*V(345) - A(153) = RCT(153)*V(306)*V(345) - A(154) = RCT(154)*V(306)*V(351) - A(155) = RCT(155)*V(213)*V(335) - A(156) = RCT(156)*V(114) - A(157) = RCT(157)*V(213)*V(346) - A(158) = RCT(158)*V(213)*V(337) - A(159) = RCT(159)*V(213)*V(351) - A(160) = RCT(160)*V(114)*V(345) - A(161) = RCT(161)*V(72)*V(345) - A(162) = RCT(162)*V(290)*V(351) - A(163) = RCT(163)*V(270)*V(345) - A(164) = RCT(164)*V(294)*V(345) - A(165) = RCT(165)*V(270)*V(351) - A(166) = RCT(166)*V(294)*V(351) - A(167) = RCT(167)*V(307)*V(345) - A(168) = RCT(168)*V(307)*V(345) - A(169) = RCT(169)*V(125)*V(345) - A(170) = RCT(170)*V(118)*V(345) - A(171) = RCT(171)*V(99)*V(345) - A(172) = RCT(172)*V(100)*V(345) - A(173) = RCT(173)*V(97)*V(345) - A(174) = RCT(174)*V(102)*V(345) - A(175) = RCT(175)*V(155)*V(345) - A(176) = RCT(176)*V(123)*V(345) - A(177) = RCT(177)*V(24)*V(345) - A(178) = RCT(178)*V(92)*V(345) - A(179) = RCT(179)*V(183)*V(351) - A(180) = RCT(180)*V(324)*V(324) - A(181) = RCT(181)*V(324)*V(328) - A(182) = RCT(182)*V(319)*V(324) - A(183) = RCT(183)*V(300)*V(324) - A(184) = RCT(184)*V(313)*V(324) - A(185) = RCT(185)*V(320)*V(324) - A(186) = RCT(186)*V(323)*V(324) - A(187) = RCT(187)*V(318)*V(324) - A(188) = RCT(188)*V(249)*V(324) - A(189) = RCT(189)*V(250)*V(324) - A(190) = RCT(190)*V(296)*V(324) - A(191) = RCT(191)*V(315)*V(324) - A(192) = RCT(192)*V(260)*V(324) - A(193) = RCT(193)*V(321)*V(324) - A(194) = RCT(194)*V(322)*V(324) - A(195) = RCT(195)*V(322)*V(328) - A(196) = RCT(196)*V(351)*V(351) - A(197) = RCT(197)*V(328)*V(335) - A(198) = RCT(198)*V(80) - A(199) = RCT(199)*V(94)*V(345) - A(200) = RCT(200)*V(94)*V(345) - A(201) = RCT(201)*V(94)*V(351) - A(202) = RCT(202)*V(345)*V(348) - A(203) = RCT(203)*V(341)*V(342) - A(204) = RCT(204)*V(337)*V(347) - A(205) = RCT(205)*V(337)*V(342) - A(206) = RCT(206)*V(345)*V(352) + A(126) = 4.51e-12*V(113)*V(343) + A(127) = RCT(127)*V(250)*V(338) + A(128) = RCT(128)*V(250)*V(341) + A(129) = RCT(129)*V(300)*V(334) + A(130) = RCT(130)*V(319)*V(334) + A(131) = RCT(131)*V(295)*V(348) + A(132) = RCT(132)*V(323)*V(334) + A(133) = RCT(133)*V(322)*V(334) + A(134) = RCT(134)*V(304)*V(334) + A(135) = RCT(135)*V(252)*V(334) + A(136) = RCT(136)*V(316)*V(334) + A(137) = RCT(137)*V(324)*V(334) + A(138) = RCT(138)*V(327)*V(334) + A(139) = RCT(139)*V(253)*V(334) + A(140) = RCT(140)*V(154)*V(343) + A(141) = RCT(141)*V(192)*V(343) + A(142) = RCT(142)*V(300)*V(300) + A(143) = RCT(143)*V(319)*V(319) + A(144) = RCT(144)*V(300)*V(341) + A(145) = RCT(145)*V(319)*V(341) + A(146) = RCT(146)*V(326)*V(341) + A(147) = RCT(147)*V(264)*V(341) + A(148) = RCT(148)*V(325)*V(341) + A(149) = RCT(149)*V(293)*V(343) + A(150) = RCT(150)*V(293)*V(356) + A(151) = RCT(151)*V(309)*V(343) + A(152) = RCT(152)*V(309)*V(343) + A(153) = RCT(153)*V(309)*V(343) + A(154) = RCT(154)*V(309)*V(348) + A(155) = RCT(155)*V(216)*V(345) + A(156) = RCT(156)*V(115) + A(157) = RCT(157)*V(216)*V(338) + A(158) = RCT(158)*V(216)*V(341) + A(159) = RCT(159)*V(216)*V(348) + A(160) = RCT(160)*V(115)*V(343) + A(161) = RCT(161)*V(74)*V(343) + A(162) = RCT(162)*V(293)*V(348) + A(163) = RCT(163)*V(274)*V(343) + A(164) = RCT(164)*V(298)*V(343) + A(165) = RCT(165)*V(274)*V(348) + A(166) = RCT(166)*V(298)*V(348) + A(167) = RCT(167)*V(311)*V(343) + A(168) = RCT(168)*V(311)*V(343) + A(169) = RCT(169)*V(128)*V(343) + A(170) = RCT(170)*V(121)*V(343) + A(171) = RCT(171)*V(101)*V(343) + A(172) = RCT(172)*V(102)*V(343) + A(173) = RCT(173)*V(99)*V(343) + A(174) = RCT(174)*V(104)*V(343) + A(175) = RCT(175)*V(158)*V(343) + A(176) = RCT(176)*V(126)*V(343) + A(177) = RCT(177)*V(24)*V(343) + A(178) = RCT(178)*V(95)*V(343) + A(179) = RCT(179)*V(187)*V(348) + A(180) = RCT(180)*V(328)*V(328) + A(181) = RCT(181)*V(328)*V(334) + A(182) = RCT(182)*V(323)*V(328) + A(183) = RCT(183)*V(304)*V(328) + A(184) = RCT(184)*V(316)*V(328) + A(185) = RCT(185)*V(324)*V(328) + A(186) = RCT(186)*V(327)*V(328) + A(187) = RCT(187)*V(322)*V(328) + A(188) = RCT(188)*V(252)*V(328) + A(189) = RCT(189)*V(253)*V(328) + A(190) = RCT(190)*V(300)*V(328) + A(191) = RCT(191)*V(319)*V(328) + A(192) = RCT(192)*V(264)*V(328) + A(193) = RCT(193)*V(326)*V(328) + A(194) = RCT(194)*V(325)*V(328) + A(195) = RCT(195)*V(325)*V(334) + A(196) = RCT(196)*V(348)*V(348) + A(197) = RCT(197)*V(334)*V(345) + A(198) = RCT(198)*V(83) + A(199) = RCT(199)*V(87)*V(343) + A(200) = RCT(200)*V(87)*V(343) + A(201) = RCT(201)*V(87)*V(348) + A(202) = RCT(202)*V(343)*V(355) + A(203) = RCT(203)*V(342)*V(356) + A(204) = RCT(204)*V(341)*V(347) + A(205) = RCT(205)*V(341)*V(342) + A(206) = RCT(206)*V(343)*V(354) A(207) = RCT(207)*V(347)*V(347) A(208) = RCT(208)*V(347)*V(347) - A(209) = RCT(209)*V(346)*V(347) - A(210) = RCT(210)*V(218)*V(342) - A(211) = RCT(211)*V(148)*V(345) - A(212) = RCT(212)*V(316)*V(343) - A(213) = RCT(213)*V(343)*V(352) - A(214) = RCT(214)*V(345)*V(347) - A(215) = RCT(215)*V(342)*V(351) - A(216) = RCT(216)*V(325)*V(342) - A(217) = RCT(217)*V(326)*V(342) - A(218) = RCT(218)*V(295)*V(342) - A(219) = RCT(219)*V(183)*V(342) - A(220) = RCT(220)*V(141)*V(342) - A(221) = RCT(221)*V(335)*V(342) - A(222) = RCT(222)*V(335)*V(347) - A(223) = RCT(223)*V(81)*V(345) - A(224) = RCT(224)*V(78)*V(345) - A(225) = RCT(225)*V(105)*V(345) - A(226) = RCT(226)*V(334)*V(336) - A(227) = RCT(227)*V(334)*F(2) - A(228) = RCT(228)*V(334)*F(3) - A(229) = RCT(229)*V(334)*F(1) - A(230) = RCT(230)*V(63)*V(334) - A(231) = RCT(231)*V(228)*V(334) - A(232) = RCT(232)*V(343)*F(3) - A(233) = RCT(233)*V(341)*V(343) - A(234) = RCT(234)*V(345)*F(1) - A(235) = RCT(235)*V(343)*V(345) - A(236) = RCT(236)*V(337)*V(343) - A(237) = RCT(237)*V(334)*V(341) - A(238) = RCT(238)*V(68)*V(343) - A(239) = RCT(239)*V(68)*V(345) - A(240) = RCT(240)*V(335)*V(343) - A(241) = RCT(241)*V(343)*V(351) - A(242) = RCT(242)*V(343)*V(346) - A(243) = RCT(243)*V(335)*V(343) - A(244) = RCT(244)*V(264)*V(343) - A(245) = RCT(245)*V(217)*F(3) - A(246) = RCT(246)*V(217)*V(341) - A(247) = RCT(247)*V(217)*V(337) - A(248) = RCT(248)*V(67)*F(3) - A(249) = RCT(249)*V(67)*V(346) - A(250) = RCT(250)*V(67)*V(335) - A(251) = RCT(251)*V(343)*V(347) - A(252) = RCT(252)*V(325)*V(343) - A(253) = RCT(253)*V(334)*V(339) - A(254) = RCT(254)*V(334)*V(352) - A(255) = RCT(255)*V(245)*V(334) - A(256) = RCT(256)*V(46)*V(334) - A(257) = RCT(257)*V(181)*V(334) - A(258) = RCT(258)*V(105)*V(334) - A(259) = RCT(259)*V(78)*V(334) - A(260) = RCT(260)*V(81)*V(334) - A(261) = RCT(261)*V(87)*V(334) - A(262) = RCT(262)*V(47)*V(334) - A(263) = RCT(263)*V(48)*V(334) - A(264) = RCT(264)*V(61)*V(334) - A(265) = RCT(265)*V(53)*V(334) - A(266) = RCT(266)*V(85)*V(334) - A(267) = RCT(267)*V(86)*V(334) - A(268) = RCT(268)*V(84)*V(334) - A(269) = RCT(269)*V(49)*V(334) - A(270) = RCT(270)*V(50)*V(334) - A(271) = RCT(271)*V(51)*V(334) - A(272) = RCT(272)*V(54)*V(334) - A(273) = RCT(273)*V(245)*V(345) - A(274) = RCT(274)*V(328)*V(338) - A(275) = RCT(275)*V(338)*V(345) - A(276) = RCT(276)*V(338)*V(345) - A(277) = RCT(277)*V(120)*V(345) - A(278) = RCT(278)*V(76)*V(345) - A(279) = RCT(279)*V(339)*V(345) - A(280) = RCT(280)*V(333)*V(345) - A(281) = RCT(281)*V(297)*V(345) - A(282) = RCT(282)*V(317)*V(345) - A(283) = RCT(283)*V(181)*V(345) - A(284) = RCT(284)*V(79)*V(345) - A(285) = RCT(285)*V(75)*V(345) - A(286) = RCT(286)*V(43)*V(345) - A(287) = RCT(287)*V(87)*V(345) - A(288) = RCT(288)*V(85)*V(345) - A(289) = RCT(289)*V(86)*V(345) - A(290) = RCT(290)*V(84)*V(345) - A(291) = RCT(291)*V(228)*V(340) - A(292) = RCT(292)*V(325)*V(340) - A(293) = RCT(293)*V(340)*V(341) - A(294) = RCT(294)*V(340)*F(1) - A(295) = RCT(295)*V(264)*V(340) - A(296) = RCT(296)*V(337)*V(340) - A(297) = RCT(297)*V(337)*V(340) - A(298) = RCT(298)*V(338)*V(343) - A(299) = RCT(299)*V(337)*V(338) - A(300) = RCT(300)*V(338)*V(346) - A(301) = RCT(301)*V(335)*V(338) - A(302) = RCT(302)*V(338)*V(338) - A(303) = RCT(303)*V(338)*V(338) - A(304) = RCT(304)*V(338)*V(338) - A(305) = RCT(305)*V(340)*F(3) - A(306) = RCT(306)*V(110) - A(307) = RCT(307)*V(338)*V(338) - A(308) = RCT(308)*V(76) - A(309) = RCT(309)*V(110)*V(340) - A(310) = RCT(310)*V(338)*V(347) - A(311) = RCT(311)*V(338)*V(347) - A(312) = RCT(312)*V(338)*V(347) - A(313) = RCT(313)*V(317)*V(343) - A(314) = RCT(314)*V(317)*V(340) - A(315) = RCT(315)*V(181)*V(340) - A(316) = RCT(316)*V(79)*V(340) - A(317) = RCT(317)*V(75)*V(340) - A(318) = RCT(318)*V(265)*V(340) - A(319) = RCT(319)*V(328)*V(340) - A(320) = RCT(320)*V(164)*V(340) - A(321) = RCT(321)*V(183)*V(340) - A(322) = RCT(322)*V(296)*V(340) - A(323) = RCT(323)*V(315)*V(340) - A(324) = RCT(324)*V(282)*V(340) - A(325) = RCT(325)*V(156)*V(340) - A(326) = RCT(326)*V(283)*V(340) - A(327) = RCT(327)*V(141)*V(340) - A(328) = RCT(328)*V(141)*V(340) - A(329) = RCT(329)*V(295)*V(340) - A(330) = RCT(330)*V(276)*V(340) - A(331) = RCT(331)*V(142)*V(340) - A(332) = RCT(332)*V(290)*V(340) - A(333) = RCT(333)*V(290)*V(342) - A(334) = RCT(334)*V(331)*V(346) - A(335) = RCT(335)*V(62)*V(62) - A(336) = RCT(336)*V(331)*V(335) - A(337) = RCT(337)*V(252) - A(338) = RCT(338)*V(252)*V(252) - A(339) = RCT(339)*V(170)*V(351) - A(340) = RCT(340)*V(284)*V(335) - A(341) = RCT(341)*V(332) - A(342) = RCT(342)*V(331)*V(332) + A(209) = RCT(209)*V(338)*V(347) + A(210) = RCT(210)*V(221)*V(342) + A(211) = RCT(211)*V(153)*V(343) + A(212) = RCT(212)*V(320)*V(351) + A(213) = RCT(213)*V(351)*V(354) + A(214) = RCT(214)*V(343)*V(347) + A(215) = RCT(215)*V(342)*V(348) + A(216) = RCT(216)*V(329)*V(342) + A(217) = RCT(217)*V(330)*V(342) + A(218) = RCT(218)*V(297)*V(342) + A(219) = RCT(219)*V(187)*V(342) + A(220) = RCT(220)*V(142)*V(342) + A(221) = RCT(221)*V(342)*V(345) + A(222) = RCT(222)*V(345)*V(347) + A(223) = RCT(223)*V(82)*V(343) + A(224) = RCT(224)*V(79)*V(343) + A(225) = RCT(225)*V(108)*V(343) + A(226) = RCT(226)*V(337)*V(353) + A(227) = RCT(227)*V(337)*F(2) + A(228) = RCT(228)*V(337)*F(3) + A(229) = RCT(229)*V(337)*F(1) + A(230) = RCT(230)*V(66)*V(337) + A(231) = RCT(231)*V(232)*V(337) + A(232) = RCT(232)*V(351)*F(3) + A(233) = RCT(233)*V(351)*V(356) + A(234) = RCT(234)*V(343)*F(1) + A(235) = RCT(235)*V(343)*V(351) + A(236) = RCT(236)*V(341)*V(351) + A(237) = RCT(237)*V(337)*V(356) + A(238) = RCT(238)*V(71)*V(351) + A(239) = RCT(239)*V(71)*V(343) + A(240) = RCT(240)*V(345)*V(351) + A(241) = RCT(241)*V(348)*V(351) + A(242) = RCT(242)*V(338)*V(351) + A(243) = RCT(243)*V(345)*V(351) + A(244) = RCT(244)*V(267)*V(351) + A(245) = RCT(245)*V(219)*F(3) + A(246) = RCT(246)*V(219)*V(356) + A(247) = RCT(247)*V(219)*V(341) + A(248) = RCT(248)*V(70)*F(3) + A(249) = RCT(249)*V(70)*V(338) + A(250) = RCT(250)*V(70)*V(345) + A(251) = RCT(251)*V(347)*V(351) + A(252) = RCT(252)*V(329)*V(351) + A(253) = RCT(253)*V(337)*V(340) + A(254) = RCT(254)*V(337)*V(354) + A(255) = RCT(255)*V(248)*V(337) + A(256) = RCT(256)*V(49)*V(337) + A(257) = RCT(257)*V(184)*V(337) + A(258) = RCT(258)*V(108)*V(337) + A(259) = RCT(259)*V(79)*V(337) + A(260) = RCT(260)*V(82)*V(337) + A(261) = RCT(261)*V(91)*V(337) + A(262) = RCT(262)*V(50)*V(337) + A(263) = RCT(263)*V(51)*V(337) + A(264) = RCT(264)*V(64)*V(337) + A(265) = RCT(265)*V(56)*V(337) + A(266) = RCT(266)*V(89)*V(337) + A(267) = RCT(267)*V(90)*V(337) + A(268) = RCT(268)*V(88)*V(337) + A(269) = RCT(269)*V(52)*V(337) + A(270) = RCT(270)*V(53)*V(337) + A(271) = RCT(271)*V(54)*V(337) + A(272) = RCT(272)*V(57)*V(337) + A(273) = RCT(273)*V(248)*V(343) + A(274) = RCT(274)*V(334)*V(344) + A(275) = RCT(275)*V(343)*V(344) + A(276) = RCT(276)*V(343)*V(344) + A(277) = RCT(277)*V(123)*V(343) + A(278) = RCT(278)*V(78)*V(343) + A(279) = RCT(279)*V(340)*V(343) + A(280) = RCT(280)*V(332)*V(343) + A(281) = RCT(281)*V(301)*V(343) + A(282) = RCT(282)*V(321)*V(343) + A(283) = RCT(283)*V(184)*V(343) + A(284) = RCT(284)*V(80)*V(343) + A(285) = RCT(285)*V(84)*V(343) + A(286) = RCT(286)*V(46)*V(343) + A(287) = RCT(287)*V(91)*V(343) + A(288) = RCT(288)*V(89)*V(343) + A(289) = RCT(289)*V(90)*V(343) + A(290) = RCT(290)*V(88)*V(343) + A(291) = RCT(291)*V(232)*V(352) + A(292) = RCT(292)*V(329)*V(352) + A(293) = RCT(293)*V(352)*V(356) + A(294) = RCT(294)*V(352)*F(1) + A(295) = RCT(295)*V(267)*V(352) + A(296) = RCT(296)*V(341)*V(352) + A(297) = RCT(297)*V(341)*V(352) + A(298) = RCT(298)*V(344)*V(351) + A(299) = RCT(299)*V(341)*V(344) + A(300) = RCT(300)*V(338)*V(344) + A(301) = RCT(301)*V(344)*V(345) + A(302) = RCT(302)*V(344)*V(344) + A(303) = RCT(303)*V(344)*V(344) + A(304) = RCT(304)*V(344)*V(344) + A(305) = RCT(305)*V(352)*F(3) + A(306) = RCT(306)*V(119) + A(307) = RCT(307)*V(344)*V(344) + A(308) = RCT(308)*V(78) + A(309) = RCT(309)*V(119)*V(352) + A(310) = RCT(310)*V(344)*V(347) + A(311) = RCT(311)*V(344)*V(347) + A(312) = RCT(312)*V(344)*V(347) + A(313) = RCT(313)*V(321)*V(351) + A(314) = RCT(314)*V(321)*V(352) + A(315) = RCT(315)*V(184)*V(352) + A(316) = RCT(316)*V(80)*V(352) + A(317) = RCT(317)*V(84)*V(352) + A(318) = RCT(318)*V(268)*V(352) + A(319) = RCT(319)*V(334)*V(352) + A(320) = RCT(320)*V(167)*V(352) + A(321) = RCT(321)*V(187)*V(352) + A(322) = RCT(322)*V(300)*V(352) + A(323) = RCT(323)*V(319)*V(352) + A(324) = RCT(324)*V(285)*V(352) + A(325) = RCT(325)*V(154)*V(352) + A(326) = RCT(326)*V(286)*V(352) + A(327) = RCT(327)*V(142)*V(352) + A(328) = RCT(328)*V(142)*V(352) + A(329) = RCT(329)*V(297)*V(352) + A(330) = RCT(330)*V(279)*V(352) + A(331) = RCT(331)*V(144)*V(352) + A(332) = RCT(332)*V(293)*V(352) + A(333) = RCT(333)*V(293)*V(342) + A(334) = RCT(334)*V(331)*V(338) + A(335) = RCT(335)*V(65)*V(65) + A(336) = RCT(336)*V(331)*V(345) + A(337) = RCT(337)*V(254) + A(338) = RCT(338)*V(254)*V(254) + A(339) = RCT(339)*V(172)*V(348) + A(340) = RCT(340)*V(336)*V(345) + A(341) = RCT(341)*V(296) + A(342) = RCT(342)*V(296)*V(331) A(343) = RCT(343)*V(331)*V(347) - A(344) = RCT(344)*V(284)*V(347) - A(345) = RCT(345)*V(96)*V(284) - A(346) = RCT(346)*V(96)*V(96) - A(347) = RCT(347)*V(42) - A(348) = RCT(348)*V(96)*V(346) - A(349) = RCT(349)*V(284)*V(338) - A(350) = RCT(350)*V(331)*V(341) - A(351) = RCT(351)*V(331)*V(337) - A(352) = RCT(352)*V(170)*V(345) - A(353) = RCT(353)*V(73)*V(345) - A(354) = RCT(354)*V(330)*V(345) - A(355) = RCT(355)*V(284)*V(337) - A(356) = RCT(356)*V(284)*V(346) - A(357) = RCT(357)*V(284)*V(284) - A(358) = RCT(358)*V(44) - A(359) = RCT(359)*V(52)*V(345) - A(360) = RCT(360)*V(261)*V(345) - A(361) = RCT(361)*V(247)*V(345) - A(362) = RCT(362)*V(312)*V(329) - A(363) = RCT(363)*V(312)*V(346) - A(364) = RCT(364)*V(312)*V(335) - A(365) = RCT(365)*V(312)*V(336) - A(366) = RCT(366)*V(312)*V(336)*V(336) - A(367) = RCT(367)*V(312)*V(341) - A(368) = RCT(368)*V(312)*V(348) - A(369) = RCT(369)*V(241)*V(329) - A(370) = RCT(370)*V(241)*V(346) - A(371) = RCT(371)*V(241)*V(335) - A(372) = RCT(372)*V(241)*V(348) - A(373) = RCT(373)*V(241)*V(336) - A(374) = RCT(374)*V(241)*V(336) - A(375) = RCT(375)*V(191)*V(351) - A(376) = RCT(376)*V(219)*V(351) - A(377) = RCT(377)*V(167)*V(351) - A(378) = RCT(378)*V(167)*V(345) - A(379) = RCT(379)*V(167)*V(341) - A(380) = RCT(380)*V(219)*V(345) - A(381) = RCT(381)*V(219)*V(341) - A(382) = RCT(382)*V(191)*V(345) - A(383) = RCT(383)*V(191)*V(341) - A(384) = RCT(384)*V(277)*V(337) - A(385) = RCT(385)*V(277)*V(346) - A(386) = RCT(386)*V(277)*V(351) - A(387) = RCT(387)*V(111)*V(345) - A(388) = RCT(388)*V(137)*V(345) - A(389) = RCT(389)*V(225)*V(351) - A(390) = RCT(390)*V(225)*V(345) - A(391) = RCT(391)*V(257)*V(337) - A(392) = RCT(392)*V(257)*V(346) - A(393) = RCT(393)*V(257)*V(335) - A(394) = RCT(394)*V(56) - A(395) = RCT(395)*V(257)*V(351) - A(396) = RCT(396)*V(74)*V(345) - A(397) = RCT(397)*V(66)*V(345) - A(398) = RCT(398)*V(278)*V(337) - A(399) = RCT(399)*V(278)*V(346) - A(400) = RCT(400)*V(278)*V(351) - A(401) = RCT(401)*V(278)*V(328) - A(402) = RCT(402)*V(160)*V(345) - A(403) = RCT(403)*V(176)*V(345) - A(404) = RCT(404)*V(275)*V(337) - A(405) = RCT(405)*V(275)*V(346) - A(406) = RCT(406)*V(275)*V(351) - A(407) = RCT(407)*V(138)*V(345) - A(408) = RCT(408)*V(112)*V(345) - A(409) = RCT(409)*V(129)*V(345) - A(410) = RCT(410)*V(273)*V(337) - A(411) = RCT(411)*V(273)*V(346) - A(412) = RCT(412)*V(273)*V(346) - A(413) = RCT(413)*V(273)*V(328) - A(414) = RCT(414)*V(273)*V(351) - A(415) = RCT(415)*V(161)*V(345) - A(416) = RCT(416)*V(162)*V(345) - A(417) = RCT(417)*V(281)*V(337) - A(418) = RCT(418)*V(281)*V(346) - A(419) = RCT(419)*V(281)*V(351) - A(420) = RCT(420)*V(255)*V(345) - A(421) = RCT(421)*V(255)*V(341) - A(422) = RCT(422)*V(255)*V(351) - A(423) = RCT(423)*V(237)*V(345) - A(424) = RCT(424)*V(237)*V(341) - A(425) = RCT(425)*V(237)*V(351) - A(426) = RCT(426)*V(211)*V(345) - A(427) = RCT(427)*V(211)*V(341) - A(428) = RCT(428)*V(211)*V(351) - A(429) = RCT(429)*V(272)*V(346) - A(430) = RCT(430)*V(272)*V(337) - A(431) = RCT(431)*V(272)*V(351) - A(432) = RCT(432)*V(272)*V(328) - A(433) = RCT(433)*V(163)*V(345) - A(434) = RCT(434)*V(163)*V(351) - A(435) = RCT(435)*V(177)*V(345) - A(436) = RCT(436)*V(274)*V(337) - A(437) = RCT(437)*V(274)*V(346) - A(438) = RCT(438)*V(274)*V(335) - A(439) = RCT(439)*V(57) - A(440) = RCT(440)*V(274)*V(351) - A(441) = RCT(441)*V(169)*V(345) - A(442) = RCT(442)*V(130)*V(345) - A(443) = RCT(443)*V(291)*V(337) - A(444) = RCT(444)*V(291)*V(346) - A(445) = RCT(445)*V(291)*V(346) - A(446) = RCT(446)*V(291)*V(351) - A(447) = RCT(447)*V(229)*V(345) - A(448) = RCT(448)*V(229)*V(341) - A(449) = RCT(449)*V(229)*V(351) - A(450) = RCT(450)*V(193)*V(345) - A(451) = RCT(451)*V(193)*V(341) - A(452) = RCT(452)*V(193)*V(351) - A(453) = RCT(453)*V(262)*V(345) - A(454) = RCT(454)*V(262)*V(341) - A(455) = RCT(455)*V(262)*V(351) - A(456) = RCT(456)*V(277)*V(328) - A(457) = RCT(457)*V(277)*V(324) - A(458) = RCT(458)*V(275)*V(328) - A(459) = RCT(459)*V(275)*V(324) - A(460) = RCT(460)*V(281)*V(328) - A(461) = RCT(461)*V(281)*V(324) - A(462) = RCT(462)*V(291)*V(328) - A(463) = RCT(463)*V(291)*V(324) - A(464) = RCT(464)*V(257)*V(328) - A(465) = RCT(465)*V(257)*V(324) - A(466) = RCT(466)*V(274)*V(328) - A(467) = RCT(467)*V(274)*V(324) - A(468) = RCT(468)*V(280)*V(346) - A(469) = RCT(469)*V(289)*V(346) - A(470) = RCT(470)*V(280)*V(337) - A(471) = RCT(471)*V(289)*V(337) - A(472) = RCT(472)*V(280)*V(328) - A(473) = RCT(473)*V(289)*V(328) - A(474) = RCT(474)*V(280)*V(324) - A(475) = RCT(475)*V(289)*V(324) - A(476) = RCT(476)*V(280)*V(351) - A(477) = RCT(477)*V(289)*V(351) + A(344) = RCT(344)*V(336)*V(347) + A(345) = RCT(345)*V(98)*V(336) + A(346) = RCT(346)*V(98)*V(98) + A(347) = RCT(347)*V(45) + A(348) = RCT(348)*V(98)*V(338) + A(349) = RCT(349)*V(336)*V(344) + A(350) = RCT(350)*V(331)*V(356) + A(351) = RCT(351)*V(331)*V(341) + A(352) = RCT(352)*V(172)*V(343) + A(353) = RCT(353)*V(75)*V(343) + A(354) = RCT(354)*V(287)*V(343) + A(355) = RCT(355)*V(336)*V(341) + A(356) = RCT(356)*V(336)*V(338) + A(357) = RCT(357)*V(336)*V(336) + A(358) = RCT(358)*V(47) + A(359) = RCT(359)*V(55)*V(343) + A(360) = RCT(360)*V(265)*V(343) + A(361) = RCT(361)*V(249)*V(343) + A(362) = RCT(362)*V(317)*V(335) + A(363) = RCT(363)*V(317)*V(338) + A(364) = RCT(364)*V(317)*V(345) + A(365) = RCT(365)*V(317)*V(353) + A(366) = RCT(366)*V(317)*V(353)*V(353) + A(367) = RCT(367)*V(317)*V(356) + A(368) = RCT(368)*V(317)*V(355) + A(369) = RCT(369)*V(244)*V(335) + A(370) = RCT(370)*V(244)*V(338) + A(371) = RCT(371)*V(244)*V(345) + A(372) = RCT(372)*V(244)*V(355) + A(373) = RCT(373)*V(244)*V(353) + A(374) = RCT(374)*V(244)*V(353) + A(375) = RCT(375)*V(194)*V(348) + A(376) = RCT(376)*V(222)*V(348) + A(377) = RCT(377)*V(170)*V(348) + A(378) = RCT(378)*V(170)*V(343) + A(379) = RCT(379)*V(170)*V(356) + A(380) = RCT(380)*V(222)*V(343) + A(381) = RCT(381)*V(222)*V(356) + A(382) = RCT(382)*V(194)*V(343) + A(383) = RCT(383)*V(194)*V(356) + A(384) = RCT(384)*V(281)*V(341) + A(385) = RCT(385)*V(281)*V(338) + A(386) = RCT(386)*V(281)*V(348) + A(387) = RCT(387)*V(111)*V(343) + A(388) = RCT(388)*V(139)*V(343) + A(389) = RCT(389)*V(227)*V(348) + A(390) = RCT(390)*V(227)*V(343) + A(391) = RCT(391)*V(261)*V(341) + A(392) = RCT(392)*V(261)*V(338) + A(393) = RCT(393)*V(261)*V(345) + A(394) = RCT(394)*V(59) + A(395) = RCT(395)*V(261)*V(348) + A(396) = RCT(396)*V(76)*V(343) + A(397) = RCT(397)*V(69)*V(343) + A(398) = RCT(398)*V(282)*V(341) + A(399) = RCT(399)*V(282)*V(338) + A(400) = RCT(400)*V(282)*V(348) + A(401) = RCT(401)*V(282)*V(334) + A(402) = RCT(402)*V(163)*V(343) + A(403) = RCT(403)*V(179)*V(343) + A(404) = RCT(404)*V(276)*V(341) + A(405) = RCT(405)*V(276)*V(338) + A(406) = RCT(406)*V(276)*V(348) + A(407) = RCT(407)*V(141)*V(343) + A(408) = RCT(408)*V(112)*V(343) + A(409) = RCT(409)*V(132)*V(343) + A(410) = RCT(410)*V(275)*V(341) + A(411) = RCT(411)*V(275)*V(338) + A(412) = RCT(412)*V(275)*V(338) + A(413) = RCT(413)*V(275)*V(334) + A(414) = RCT(414)*V(275)*V(348) + A(415) = RCT(415)*V(164)*V(343) + A(416) = RCT(416)*V(165)*V(343) + A(417) = RCT(417)*V(284)*V(341) + A(418) = RCT(418)*V(284)*V(338) + A(419) = RCT(419)*V(284)*V(348) + A(420) = RCT(420)*V(256)*V(343) + A(421) = RCT(421)*V(256)*V(356) + A(422) = RCT(422)*V(256)*V(348) + A(423) = RCT(423)*V(241)*V(343) + A(424) = RCT(424)*V(241)*V(356) + A(425) = RCT(425)*V(241)*V(348) + A(426) = RCT(426)*V(212)*V(343) + A(427) = RCT(427)*V(212)*V(356) + A(428) = RCT(428)*V(212)*V(348) + A(429) = RCT(429)*V(278)*V(338) + A(430) = RCT(430)*V(278)*V(341) + A(431) = RCT(431)*V(278)*V(348) + A(432) = RCT(432)*V(278)*V(334) + A(433) = RCT(433)*V(166)*V(343) + A(434) = RCT(434)*V(166)*V(348) + A(435) = RCT(435)*V(180)*V(343) + A(436) = RCT(436)*V(277)*V(341) + A(437) = RCT(437)*V(277)*V(338) + A(438) = RCT(438)*V(277)*V(345) + A(439) = RCT(439)*V(60) + A(440) = RCT(440)*V(277)*V(348) + A(441) = RCT(441)*V(171)*V(343) + A(442) = RCT(442)*V(134)*V(343) + A(443) = RCT(443)*V(294)*V(341) + A(444) = RCT(444)*V(294)*V(338) + A(445) = RCT(445)*V(294)*V(338) + A(446) = RCT(446)*V(294)*V(348) + A(447) = RCT(447)*V(234)*V(343) + A(448) = RCT(448)*V(234)*V(356) + A(449) = RCT(449)*V(234)*V(348) + A(450) = RCT(450)*V(196)*V(343) + A(451) = RCT(451)*V(196)*V(356) + A(452) = RCT(452)*V(196)*V(348) + A(453) = RCT(453)*V(263)*V(343) + A(454) = RCT(454)*V(263)*V(356) + A(455) = RCT(455)*V(263)*V(348) + A(456) = RCT(456)*V(281)*V(334) + A(457) = RCT(457)*V(281)*V(328) + A(458) = RCT(458)*V(276)*V(334) + A(459) = RCT(459)*V(276)*V(328) + A(460) = RCT(460)*V(284)*V(334) + A(461) = RCT(461)*V(284)*V(328) + A(462) = RCT(462)*V(294)*V(334) + A(463) = RCT(463)*V(294)*V(328) + A(464) = RCT(464)*V(261)*V(334) + A(465) = RCT(465)*V(261)*V(328) + A(466) = RCT(466)*V(277)*V(334) + A(467) = RCT(467)*V(277)*V(328) + A(468) = RCT(468)*V(280)*V(338) + A(469) = RCT(469)*V(292)*V(338) + A(470) = RCT(470)*V(280)*V(341) + A(471) = RCT(471)*V(292)*V(341) + A(472) = RCT(472)*V(280)*V(334) + A(473) = RCT(473)*V(292)*V(334) + A(474) = RCT(474)*V(280)*V(328) + A(475) = RCT(475)*V(292)*V(328) + A(476) = RCT(476)*V(280)*V(348) + A(477) = RCT(477)*V(292)*V(348) A(478) = RCT(478)*V(280)*V(280) - A(479) = RCT(479)*V(280)*V(289) - A(480) = RCT(480)*V(289)*V(289) - A(481) = RCT(481)*V(256)*V(345) - A(482) = RCT(482)*V(242)*V(345) - A(483) = RCT(483)*V(242)*V(341) - A(484) = RCT(484)*V(242)*V(351) - A(485) = RCT(485)*V(256)*V(351) - A(486) = RCT(486)*V(103) - A(487) = RCT(487)*V(45) - A(488) = RCT(488)*V(154)*V(345) - A(489) = RCT(489)*V(93)*V(345) - A(490) = RCT(490)*V(83)*V(345) - A(491) = RCT(491)*V(91)*V(345) - A(492) = RCT(492)*V(95)*V(345) - A(493) = RCT(493)*V(276)*V(341) - A(494) = RCT(494)*V(276)*V(345) - A(495) = RCT(495)*V(276)*V(345) - A(496) = RCT(496)*V(276)*V(345) - A(497) = RCT(497)*V(276)*V(345) - A(498) = RCT(498)*V(305)*V(337) - A(499) = RCT(499)*V(305)*V(337) - A(500) = RCT(500)*V(304)*V(337) - A(501) = RCT(501)*V(304)*V(337) - A(502) = RCT(502)*V(305) - A(503) = RCT(503)*V(305) - A(504) = RCT(504)*V(304) - A(505) = RCT(505)*V(304) - A(506) = RCT(506)*V(305)*V(305) - A(507) = RCT(507)*V(304)*V(304) - A(508) = RCT(508)*V(304)*V(305) - A(509) = RCT(509)*V(305)*V(305) - A(510) = RCT(510)*V(304)*V(304) - A(511) = RCT(511)*V(304)*V(305) - A(512) = RCT(512)*V(305)*V(328) - A(513) = RCT(513)*V(305)*V(328) - A(514) = RCT(514)*V(304)*V(328) - A(515) = RCT(515)*V(304)*V(328) - A(516) = RCT(516)*V(305)*V(346) - A(517) = RCT(517)*V(305)*V(346) - A(518) = RCT(518)*V(305)*V(346) - A(519) = RCT(519)*V(305)*V(346) - A(520) = RCT(520)*V(304)*V(346) - A(521) = RCT(521)*V(304)*V(346) - A(522) = RCT(522)*V(304)*V(346) - A(523) = RCT(523)*V(304)*V(346) - A(524) = RCT(524)*V(230)*V(345) - A(525) = RCT(525)*V(231)*V(345) - A(526) = RCT(526)*V(150)*V(345) - A(527) = RCT(527)*V(144)*V(345) - A(528) = RCT(528)*V(238)*V(345) - A(529) = RCT(529)*V(215)*V(345) - A(530) = RCT(530)*V(119)*V(345) - A(531) = RCT(531)*V(187)*V(345) - A(532) = RCT(532)*V(187)*V(345) - A(533) = RCT(533)*V(192)*V(345) - A(534) = RCT(534)*V(192)*V(345) - A(535) = RCT(535)*V(187)*V(345) - A(536) = RCT(536)*V(192)*V(345) - A(537) = RCT(537)*V(209)*V(345) - A(538) = RCT(538)*V(199)*V(345) - A(539) = RCT(539)*V(223) - A(540) = RCT(540)*V(223)*V(346) - A(541) = RCT(541)*V(223)*V(346) - A(542) = RCT(542)*V(223)*V(337) - A(543) = RCT(543)*V(224) - A(544) = RCT(544)*V(224)*V(346) - A(545) = RCT(545)*V(224)*V(346) - A(546) = RCT(546)*V(224)*V(337) - A(547) = RCT(547)*V(232) - A(548) = RCT(548)*V(232)*V(346) - A(549) = RCT(549)*V(232)*V(346) - A(550) = RCT(550)*V(232)*V(337) - A(551) = RCT(551)*V(128)*V(345) - A(552) = RCT(552)*V(151)*V(345) - A(553) = RCT(553)*V(151)*V(345) - A(554) = RCT(554)*V(152)*V(345) - A(555) = RCT(555)*V(152)*V(345) - A(556) = RCT(556)*V(286) - A(557) = RCT(557)*V(286) - A(558) = RCT(558)*V(286)*V(337) - A(559) = RCT(559)*V(286)*V(346) - A(560) = RCT(560)*V(286)*V(346) - A(561) = RCT(561)*V(285) - A(562) = RCT(562)*V(285) - A(563) = RCT(563)*V(285)*V(346) - A(564) = RCT(564)*V(285)*V(346) - A(565) = RCT(565)*V(285)*V(337) - A(566) = RCT(566)*V(243)*V(337) - A(567) = RCT(567)*V(243)*V(346) - A(568) = RCT(568)*V(243)*V(346) - A(569) = RCT(569)*V(243) - A(570) = RCT(570)*V(133)*V(346) - A(571) = RCT(571)*V(133)*V(337) - A(572) = RCT(572)*V(135)*V(346) - A(573) = RCT(573)*V(135)*V(337) - A(574) = RCT(574)*V(175)*V(345) - A(575) = RCT(575)*V(175)*V(345) - A(576) = RCT(576)*V(168)*V(345) - A(577) = RCT(577)*V(168)*V(345) - A(578) = RCT(578)*V(268)*V(345) - A(579) = RCT(579)*V(268)*V(345) - A(580) = RCT(580)*V(267)*V(345) - A(581) = RCT(581)*V(267)*V(345) - A(582) = RCT(582)*V(268)*V(345) - A(583) = RCT(583)*V(267)*V(345) - A(584) = RCT(584)*V(205) - A(585) = RCT(585)*V(205)*V(337) - A(586) = RCT(586)*V(205)*V(346) - A(587) = RCT(587)*V(205)*V(346) - A(588) = RCT(588)*V(190) - A(589) = RCT(589)*V(190)*V(337) - A(590) = RCT(590)*V(190)*V(346) - A(591) = RCT(591)*V(190)*V(346) - A(592) = RCT(592)*V(206) - A(593) = RCT(593)*V(207) - A(594) = RCT(594)*V(206)*V(337) - A(595) = RCT(595)*V(206)*V(346) - A(596) = RCT(596)*V(206)*V(346) - A(597) = RCT(597)*V(207)*V(337) - A(598) = RCT(598)*V(207)*V(346) - A(599) = RCT(599)*V(207)*V(346) - A(600) = RCT(600)*V(293)*V(337) - A(601) = RCT(601)*V(293)*V(346) - A(602) = RCT(602)*V(293)*V(346) - A(603) = RCT(603)*V(276)*V(351) - A(604) = RCT(604)*V(310)*V(337) - A(605) = RCT(605)*V(311)*V(337) - A(606) = RCT(606)*V(310)*V(310) - A(607) = RCT(607)*V(310)*V(311) - A(608) = RCT(608)*V(311)*V(311) - A(609) = RCT(609)*V(311)*V(328) - A(610) = RCT(610)*V(310)*V(328) - A(611) = RCT(611)*V(310)*V(324) - A(612) = RCT(612)*V(311)*V(324) - A(613) = RCT(613)*V(310)*V(351) - A(614) = RCT(614)*V(311)*V(351) - A(615) = RCT(615)*V(310)*V(346) - A(616) = RCT(616)*V(310)*V(346) - A(617) = RCT(617)*V(311)*V(346) - A(618) = RCT(618)*V(311)*V(346) - A(619) = RCT(619)*V(145)*F(3) - A(620) = RCT(620)*V(145) - A(621) = RCT(621)*V(222)*V(345) - A(622) = RCT(622)*V(186)*V(345) - A(623) = RCT(623)*V(222)*V(345) - A(624) = RCT(624)*V(186)*V(345) - A(625) = RCT(625)*V(186)*V(345) - A(626) = RCT(626)*V(222)*V(345) - A(627) = RCT(627)*V(186)*V(345) - A(628) = RCT(628)*V(186)*V(345) - A(629) = RCT(629)*V(226) - A(630) = RCT(630)*V(271) - A(631) = RCT(631)*V(271)*V(337) - A(632) = RCT(632)*V(226)*V(337) - A(633) = RCT(633)*V(271)*V(346) - A(634) = RCT(634)*V(271)*V(346) - A(635) = RCT(635)*V(226)*V(346) - A(636) = RCT(636)*V(226)*V(346) - A(637) = RCT(637)*V(301)*V(345) - A(638) = RCT(638)*V(301)*V(345) - A(639) = RCT(639)*V(182)*V(346) - A(640) = RCT(640)*V(182)*V(337) - A(641) = RCT(641)*V(299)*V(345) - A(642) = RCT(642)*V(180)*V(346) - A(643) = RCT(643)*V(180)*V(337) - A(644) = RCT(644)*V(314)*V(345) - A(645) = RCT(645)*V(314)*V(341) - A(646) = RCT(646)*V(309)*V(345) - A(647) = RCT(647)*V(309)*V(345) - A(648) = RCT(648)*V(309)*V(341) - A(649) = RCT(649)*V(309)*V(351) - A(650) = RCT(650)*V(302)*V(345) - A(651) = RCT(651)*V(288)*V(345) - A(652) = RCT(652)*V(287)*V(345) - A(653) = RCT(653)*V(248)*V(345) - A(654) = RCT(654)*V(216)*V(345) - A(655) = RCT(655)*V(171)*V(346) - A(656) = RCT(656)*V(171)*V(337) - A(657) = RCT(657)*V(171)*V(335) - A(658) = RCT(658)*V(172)*V(346) - A(659) = RCT(659)*V(172)*V(337) - A(660) = RCT(660)*V(172)*V(335) - A(661) = RCT(661)*V(194)*V(345) - A(662) = RCT(662)*V(185)*V(345) - A(663) = RCT(663)*V(131)*V(345) - A(664) = RCT(664)*V(227)*V(345) - A(665) = RCT(665)*V(208)*V(345) - A(666) = RCT(666)*V(153)*V(345) - A(667) = RCT(667)*V(254)*V(337) - A(668) = RCT(668)*V(254)*V(346) - A(669) = RCT(669)*V(254)*V(346) - A(670) = RCT(670)*V(253)*V(337) - A(671) = RCT(671)*V(259)*V(337) - A(672) = RCT(672)*V(159)*V(345) - A(673) = RCT(673)*V(253) - A(674) = RCT(674)*V(253)*V(346) - A(675) = RCT(675)*V(253)*V(346) - A(676) = RCT(676)*V(259)*V(346) - A(677) = RCT(677)*V(259)*V(335) - A(678) = RCT(678)*V(308)*V(337) - A(679) = RCT(679)*V(308)*V(346) - A(680) = RCT(680)*V(308)*V(335) - A(681) = RCT(681)*V(308)*V(351) - A(682) = RCT(682)*V(308)*V(328) - A(683) = RCT(683)*V(184) - A(684) = RCT(684)*V(184)*V(345) - A(685) = RCT(685)*V(107)*V(345) - A(686) = RCT(686)*V(258)*V(345) - A(687) = RCT(687)*V(147)*V(345) - A(688) = RCT(688)*V(174)*V(345) - A(689) = RCT(689)*V(198)*V(345) - A(690) = RCT(690)*V(266)*V(345) - A(691) = RCT(691)*V(303)*V(345) - A(692) = RCT(692)*V(261)*V(351) - A(693) = RCT(693)*V(115)*V(345) - A(694) = RCT(694)*V(88)*V(345) - A(695) = RCT(695)*V(324)*V(337) - A(696) = RCT(696)*V(210)*V(345) - A(697) = RCT(697)*V(210)*V(345) - A(698) = RCT(698)*V(19)*V(345) - A(699) = RCT(699)*V(18)*V(337) - A(700) = RCT(700)*V(18)*V(346) - A(701) = RCT(701)*V(173)*V(345) - A(702) = RCT(702)*V(220)*V(345) - A(703) = RCT(703)*V(220)*V(351) - A(704) = RCT(704)*V(220)*V(341) - A(705) = RCT(705)*V(149)*V(345) - A(706) = RCT(706)*V(149)*V(351) - A(707) = RCT(707)*V(200)*V(345) - A(708) = RCT(708)*V(200)*V(351) - A(709) = RCT(709)*V(189)*V(346) - A(710) = RCT(710)*V(189)*V(337) - A(711) = RCT(711)*V(116)*V(345) - A(712) = RCT(712)*V(109)*V(341) - A(713) = RCT(713)*V(109)*V(345) - A(714) = RCT(714)*V(60)*V(345) - A(715) = RCT(715)*V(234)*V(337) - A(716) = RCT(716)*V(234)*V(346) - A(717) = RCT(717)*V(234)*V(351) - A(718) = RCT(718)*V(234)*V(328) - A(719) = RCT(719)*V(106) - A(720) = RCT(720)*V(106)*F(3) - A(721) = RCT(721)*V(70)*V(345) - A(722) = RCT(722)*V(136)*V(345) - A(723) = RCT(723)*V(136)*V(345) - A(724) = RCT(724)*V(143)*V(345) - A(725) = RCT(725)*V(82)*V(345) - A(726) = RCT(726)*V(101)*V(345) - A(727) = RCT(727)*V(263)*V(337) - A(728) = RCT(728)*V(263)*V(346) - A(729) = RCT(729)*V(263)*V(351) - A(730) = RCT(730)*V(263)*V(328) - A(731) = RCT(731)*V(263)*V(324) - A(732) = RCT(732)*V(58)*V(345) - A(733) = RCT(733)*V(121)*V(346) - A(734) = RCT(734)*V(121)*V(337) - A(735) = 7.09e-11*V(146)*V(345) - A(736) = RCT(736)*V(240)*V(346) - A(737) = RCT(737)*V(240)*V(337) - A(738) = RCT(738)*V(240)*V(335) - A(739) = RCT(739)*V(122) - A(740) = RCT(740)*V(122)*V(345) - A(741) = RCT(741)*V(195)*V(345) - A(742) = RCT(742)*V(195)*V(351) - A(743) = RCT(743)*V(158)*V(345) - A(744) = RCT(744)*V(158)*V(351) - A(745) = RCT(745)*V(202)*V(345) - A(746) = RCT(746)*V(202)*V(341) - A(747) = RCT(747)*V(202)*V(351) - A(748) = RCT(748)*V(204)*V(345) - A(749) = RCT(749)*V(204)*V(351) - A(750) = RCT(750)*V(235)*V(337) - A(751) = RCT(751)*V(235)*V(346) - A(752) = RCT(752)*V(235)*V(335) - A(753) = RCT(753)*V(71)*V(345) - A(754) = RCT(754)*V(90) - A(755) = RCT(755)*V(90)*V(345) - A(756) = RCT(756)*V(236)*V(335) - A(757) = RCT(757)*V(236)*V(346) - A(758) = RCT(758)*V(236)*V(351) - A(759) = RCT(759)*V(236)*V(337) - A(760) = RCT(760)*V(117)*V(345) - A(761) = RCT(761)*V(203)*V(341) - A(762) = RCT(762)*V(203)*V(335) - A(763) = RCT(763)*V(269)*V(345) - A(764) = RCT(764)*V(269)*V(351) - A(765) = RCT(765)*V(236)*V(328) - A(766) = RCT(766)*V(235)*V(328) - A(767) = RCT(767)*V(221)*V(345) - A(768) = RCT(768)*V(221)*V(341) - A(769) = RCT(769)*V(221) - A(770) = RCT(770)*V(201)*V(345) - A(771) = RCT(771)*V(201)*V(341) - A(772) = RCT(772)*V(201) - A(773) = RCT(773)*V(13)*V(337) - A(774) = RCT(774)*V(13)*V(346) - A(775) = RCT(775)*V(22)*V(337) - A(776) = RCT(776)*V(22)*V(346) - A(777) = RCT(777)*V(27)*V(337) - A(778) = RCT(778)*V(27)*V(346) - A(779) = RCT(779)*V(328)*V(351) - A(780) = RCT(780)*V(41)*V(345) - A(781) = RCT(781)*V(337) - A(782) = RCT(782)*V(335) - A(783) = RCT(783)*V(351) - A(784) = RCT(784)*V(351) - A(785) = RCT(785)*V(351) - A(786) = RCT(786)*V(214)*V(336) - A(787) = RCT(787)*V(214)*V(339) - A(788) = RCT(788)*V(214) - A(789) = RCT(789)*V(214)*V(353) - A(790) = RCT(790)*V(214)*V(344) - A(791) = RCT(791)*V(345)*V(353) - A(792) = RCT(792)*V(344)*V(345) - A(793) = RCT(793)*V(218)*V(336) - A(794) = RCT(794)*V(218)*V(339) - A(795) = RCT(795)*V(317)*V(336) - A(796) = RCT(796)*V(317)*V(339) - A(797) = RCT(797)*V(317)*V(352) - A(798) = RCT(798)*V(317)*V(349) - A(799) = RCT(799)*V(317)*V(350) - A(800) = RCT(800)*V(317)*V(353) - A(801) = RCT(801)*V(317)*V(344) - A(802) = RCT(802)*V(297)*V(353) - A(803) = RCT(803)*V(297)*V(344) - A(804) = RCT(804)*V(297)*V(339) - A(805) = RCT(805)*V(297)*V(349) - A(806) = RCT(806)*V(297)*V(350) - A(807) = RCT(807)*V(297)*V(352) - A(808) = RCT(808)*V(333)*V(339) - A(809) = RCT(809)*V(333)*V(352) - A(810) = RCT(810)*V(333)*V(353) - A(811) = RCT(811)*V(333)*V(344) - A(812) = RCT(812)*V(333)*V(348) - A(813) = RCT(813)*V(316)*V(352) - A(814) = RCT(814)*V(316)*V(339) - A(815) = RCT(815)*V(316)*V(353) - A(816) = RCT(816)*V(316)*V(344) - A(817) = RCT(817)*V(316)*V(349) - A(818) = RCT(818)*V(316)*V(350) - A(819) = RCT(819)*V(316)*V(348) - A(820) = RCT(820)*V(341)*V(352) - A(821) = RCT(821)*V(341)*V(349) - A(822) = RCT(822)*V(341)*V(350) - A(823) = RCT(823)*V(352) - A(824) = RCT(824)*V(352) - A(825) = RCT(825)*V(73) - A(826) = RCT(826)*V(73) - A(827) = RCT(827)*V(73) - A(828) = RCT(828)*V(330) - A(829) = RCT(829)*V(330) - A(830) = RCT(830)*V(44) - A(831) = RCT(831)*V(44) - A(832) = RCT(832)*V(44) - A(833) = RCT(833)*V(55) - A(834) = RCT(834)*V(55) - A(835) = RCT(835)*V(55) - A(836) = RCT(836)*V(42) - A(837) = RCT(837)*V(42) - A(838) = RCT(838)*V(42) - A(839) = RCT(839)*V(252) - A(840) = RCT(840)*V(252) - A(841) = RCT(841)*V(332) - A(842) = RCT(842)*V(332) - A(843) = RCT(843)*V(332)*V(336) - A(844) = RCT(844)*V(252)*V(349) - A(845) = RCT(845)*V(252)*V(350) - A(846) = RCT(846)*V(252)*V(353) - A(847) = RCT(847)*V(252)*V(344) - A(848) = RCT(848)*V(332)*V(349) - A(849) = RCT(849)*V(332)*V(350) - A(850) = RCT(850)*V(332)*V(353) - A(851) = RCT(851)*V(332)*V(344) - A(852) = RCT(852)*V(330)*V(349) - A(853) = RCT(853)*V(330)*V(350) - A(854) = RCT(854)*V(330)*V(353) - A(855) = RCT(855)*V(330)*V(344) - A(856) = RCT(856)*V(270) - A(857) = RCT(857)*V(294) - A(858) = RCT(858)*V(151) - A(859) = RCT(859)*V(152) - A(860) = RCT(860)*V(128) + A(479) = RCT(479)*V(280)*V(292) + A(480) = RCT(480)*V(292)*V(292) + A(481) = RCT(481)*V(260)*V(343) + A(482) = RCT(482)*V(246)*V(343) + A(483) = RCT(483)*V(246)*V(356) + A(484) = RCT(484)*V(246)*V(348) + A(485) = RCT(485)*V(260)*V(348) + A(486) = RCT(486)*V(106) + A(487) = RCT(487)*V(48) + A(488) = RCT(488)*V(156)*V(343) + A(489) = RCT(489)*V(96)*V(343) + A(490) = RCT(490)*V(86)*V(343) + A(491) = RCT(491)*V(94)*V(343) + A(492) = RCT(492)*V(97)*V(343) + A(493) = RCT(493)*V(279)*V(356) + A(494) = RCT(494)*V(279)*V(343) + A(495) = RCT(495)*V(279)*V(343) + A(496) = RCT(496)*V(279)*V(343) + A(497) = RCT(497)*V(279)*V(343) + A(498) = RCT(498)*V(314)*V(341) + A(499) = RCT(499)*V(314)*V(341) + A(500) = RCT(500)*V(315)*V(341) + A(501) = RCT(501)*V(315)*V(341) + A(502) = RCT(502)*V(314) + A(503) = RCT(503)*V(314) + A(504) = RCT(504)*V(315) + A(505) = RCT(505)*V(315) + A(506) = RCT(506)*V(314)*V(314) + A(507) = RCT(507)*V(315)*V(315) + A(508) = RCT(508)*V(314)*V(315) + A(509) = RCT(509)*V(314)*V(314) + A(510) = RCT(510)*V(315)*V(315) + A(511) = RCT(511)*V(314)*V(315) + A(512) = RCT(512)*V(314)*V(334) + A(513) = RCT(513)*V(314)*V(334) + A(514) = RCT(514)*V(315)*V(334) + A(515) = RCT(515)*V(315)*V(334) + A(516) = RCT(516)*V(314)*V(338) + A(517) = RCT(517)*V(314)*V(338) + A(518) = RCT(518)*V(314)*V(338) + A(519) = RCT(519)*V(314)*V(338) + A(520) = RCT(520)*V(315)*V(338) + A(521) = RCT(521)*V(315)*V(338) + A(522) = RCT(522)*V(315)*V(338) + A(523) = RCT(523)*V(315)*V(338) + A(524) = RCT(524)*V(233)*V(343) + A(525) = RCT(525)*V(231)*V(343) + A(526) = RCT(526)*V(150)*V(343) + A(527) = RCT(527)*V(151)*V(343) + A(528) = RCT(528)*V(242)*V(343) + A(529) = RCT(529)*V(218)*V(343) + A(530) = RCT(530)*V(122)*V(343) + A(531) = RCT(531)*V(191)*V(343) + A(532) = RCT(532)*V(191)*V(343) + A(533) = RCT(533)*V(195)*V(343) + A(534) = RCT(534)*V(195)*V(343) + A(535) = RCT(535)*V(191)*V(343) + A(536) = RCT(536)*V(195)*V(343) + A(537) = RCT(537)*V(213)*V(343) + A(538) = RCT(538)*V(202)*V(343) + A(539) = RCT(539)*V(228) + A(540) = RCT(540)*V(228)*V(338) + A(541) = RCT(541)*V(228)*V(338) + A(542) = RCT(542)*V(228)*V(341) + A(543) = RCT(543)*V(226) + A(544) = RCT(544)*V(226)*V(338) + A(545) = RCT(545)*V(226)*V(338) + A(546) = RCT(546)*V(226)*V(341) + A(547) = RCT(547)*V(235) + A(548) = RCT(548)*V(235)*V(338) + A(549) = RCT(549)*V(235)*V(338) + A(550) = RCT(550)*V(235)*V(341) + A(551) = RCT(551)*V(131)*V(343) + A(552) = RCT(552)*V(157)*V(343) + A(553) = RCT(553)*V(157)*V(343) + A(554) = RCT(554)*V(159)*V(343) + A(555) = RCT(555)*V(159)*V(343) + A(556) = RCT(556)*V(289) + A(557) = RCT(557)*V(289) + A(558) = RCT(558)*V(289)*V(341) + A(559) = RCT(559)*V(289)*V(338) + A(560) = RCT(560)*V(289)*V(338) + A(561) = RCT(561)*V(288) + A(562) = RCT(562)*V(288) + A(563) = RCT(563)*V(288)*V(338) + A(564) = RCT(564)*V(288)*V(338) + A(565) = RCT(565)*V(288)*V(341) + A(566) = RCT(566)*V(245)*V(341) + A(567) = RCT(567)*V(245)*V(338) + A(568) = RCT(568)*V(245)*V(338) + A(569) = RCT(569)*V(245) + A(570) = RCT(570)*V(137)*V(338) + A(571) = RCT(571)*V(137)*V(341) + A(572) = RCT(572)*V(136)*V(338) + A(573) = RCT(573)*V(136)*V(341) + A(574) = RCT(574)*V(175)*V(343) + A(575) = RCT(575)*V(175)*V(343) + A(576) = RCT(576)*V(177)*V(343) + A(577) = RCT(577)*V(177)*V(343) + A(578) = RCT(578)*V(271)*V(343) + A(579) = RCT(579)*V(271)*V(343) + A(580) = RCT(580)*V(270)*V(343) + A(581) = RCT(581)*V(270)*V(343) + A(582) = RCT(582)*V(271)*V(343) + A(583) = RCT(583)*V(270)*V(343) + A(584) = RCT(584)*V(210) + A(585) = RCT(585)*V(210)*V(341) + A(586) = RCT(586)*V(210)*V(338) + A(587) = RCT(587)*V(210)*V(338) + A(588) = RCT(588)*V(186) + A(589) = RCT(589)*V(186)*V(341) + A(590) = RCT(590)*V(186)*V(338) + A(591) = RCT(591)*V(186)*V(338) + A(592) = RCT(592)*V(209) + A(593) = RCT(593)*V(208) + A(594) = RCT(594)*V(209)*V(341) + A(595) = RCT(595)*V(209)*V(338) + A(596) = RCT(596)*V(209)*V(338) + A(597) = RCT(597)*V(208)*V(341) + A(598) = RCT(598)*V(208)*V(338) + A(599) = RCT(599)*V(208)*V(338) + A(600) = RCT(600)*V(299)*V(341) + A(601) = RCT(601)*V(299)*V(338) + A(602) = RCT(602)*V(299)*V(338) + A(603) = RCT(603)*V(279)*V(348) + A(604) = RCT(604)*V(308)*V(341) + A(605) = RCT(605)*V(310)*V(341) + A(606) = RCT(606)*V(308)*V(308) + A(607) = RCT(607)*V(308)*V(310) + A(608) = RCT(608)*V(310)*V(310) + A(609) = RCT(609)*V(310)*V(334) + A(610) = RCT(610)*V(308)*V(334) + A(611) = RCT(611)*V(308)*V(328) + A(612) = RCT(612)*V(310)*V(328) + A(613) = RCT(613)*V(308)*V(348) + A(614) = RCT(614)*V(310)*V(348) + A(615) = RCT(615)*V(308)*V(338) + A(616) = RCT(616)*V(308)*V(338) + A(617) = RCT(617)*V(310)*V(338) + A(618) = RCT(618)*V(310)*V(338) + A(619) = RCT(619)*V(147)*F(3) + A(620) = RCT(620)*V(147) + A(621) = RCT(621)*V(225)*V(343) + A(622) = RCT(622)*V(188)*V(343) + A(623) = RCT(623)*V(225)*V(343) + A(624) = RCT(624)*V(188)*V(343) + A(625) = RCT(625)*V(188)*V(343) + A(626) = RCT(626)*V(225)*V(343) + A(627) = RCT(627)*V(188)*V(343) + A(628) = RCT(628)*V(188)*V(343) + A(629) = RCT(629)*V(236) + A(630) = RCT(630)*V(273) + A(631) = RCT(631)*V(273)*V(341) + A(632) = RCT(632)*V(236)*V(341) + A(633) = RCT(633)*V(273)*V(338) + A(634) = RCT(634)*V(273)*V(338) + A(635) = RCT(635)*V(236)*V(338) + A(636) = RCT(636)*V(236)*V(338) + A(637) = RCT(637)*V(305)*V(343) + A(638) = RCT(638)*V(305)*V(343) + A(639) = RCT(639)*V(185)*V(338) + A(640) = RCT(640)*V(185)*V(341) + A(641) = RCT(641)*V(303)*V(343) + A(642) = RCT(642)*V(181)*V(338) + A(643) = RCT(643)*V(181)*V(341) + A(644) = RCT(644)*V(318)*V(343) + A(645) = RCT(645)*V(318)*V(356) + A(646) = RCT(646)*V(313)*V(343) + A(647) = RCT(647)*V(313)*V(343) + A(648) = RCT(648)*V(313)*V(356) + A(649) = RCT(649)*V(313)*V(348) + A(650) = RCT(650)*V(306)*V(343) + A(651) = RCT(651)*V(291)*V(343) + A(652) = RCT(652)*V(290)*V(343) + A(653) = RCT(653)*V(251)*V(343) + A(654) = RCT(654)*V(220)*V(343) + A(655) = RCT(655)*V(173)*V(338) + A(656) = RCT(656)*V(173)*V(341) + A(657) = RCT(657)*V(173)*V(345) + A(658) = RCT(658)*V(174)*V(338) + A(659) = RCT(659)*V(174)*V(341) + A(660) = RCT(660)*V(174)*V(345) + A(661) = RCT(661)*V(197)*V(343) + A(662) = RCT(662)*V(190)*V(343) + A(663) = RCT(663)*V(135)*V(343) + A(664) = RCT(664)*V(230)*V(343) + A(665) = RCT(665)*V(211)*V(343) + A(666) = RCT(666)*V(155)*V(343) + A(667) = RCT(667)*V(258)*V(341) + A(668) = RCT(668)*V(258)*V(338) + A(669) = RCT(669)*V(258)*V(338) + A(670) = RCT(670)*V(257)*V(341) + A(671) = RCT(671)*V(262)*V(341) + A(672) = RCT(672)*V(161)*V(343) + A(673) = RCT(673)*V(257) + A(674) = RCT(674)*V(257)*V(338) + A(675) = RCT(675)*V(257)*V(338) + A(676) = RCT(676)*V(262)*V(338) + A(677) = RCT(677)*V(262)*V(345) + A(678) = RCT(678)*V(312)*V(341) + A(679) = RCT(679)*V(312)*V(338) + A(680) = RCT(680)*V(312)*V(345) + A(681) = RCT(681)*V(312)*V(348) + A(682) = RCT(682)*V(312)*V(334) + A(683) = RCT(683)*V(189) + A(684) = RCT(684)*V(189)*V(343) + A(685) = RCT(685)*V(109)*V(343) + A(686) = RCT(686)*V(259)*V(343) + A(687) = RCT(687)*V(149)*V(343) + A(688) = RCT(688)*V(178)*V(343) + A(689) = RCT(689)*V(198)*V(343) + A(690) = RCT(690)*V(269)*V(343) + A(691) = RCT(691)*V(307)*V(343) + A(692) = RCT(692)*V(265)*V(348) + A(693) = RCT(693)*V(116)*V(343) + A(694) = RCT(694)*V(92)*V(343) + A(695) = RCT(695)*V(328)*V(341) + A(696) = RCT(696)*V(214)*V(343) + A(697) = RCT(697)*V(214)*V(343) + A(698) = RCT(698)*V(19)*V(343) + A(699) = RCT(699)*V(18)*V(341) + A(700) = RCT(700)*V(18)*V(338) + A(701) = RCT(701)*V(176)*V(343) + A(702) = RCT(702)*V(223)*V(343) + A(703) = RCT(703)*V(223)*V(348) + A(704) = RCT(704)*V(223)*V(356) + A(705) = RCT(705)*V(148)*V(343) + A(706) = RCT(706)*V(148)*V(348) + A(707) = RCT(707)*V(203)*V(343) + A(708) = RCT(708)*V(203)*V(348) + A(709) = RCT(709)*V(193)*V(338) + A(710) = RCT(710)*V(193)*V(341) + A(711) = RCT(711)*V(117)*V(343) + A(712) = RCT(712)*V(120)*V(356) + A(713) = RCT(713)*V(120)*V(343) + A(714) = RCT(714)*V(63)*V(343) + A(715) = RCT(715)*V(239)*V(341) + A(716) = RCT(716)*V(239)*V(338) + A(717) = RCT(717)*V(239)*V(348) + A(718) = RCT(718)*V(239)*V(334) + A(719) = RCT(719)*V(114) + A(720) = RCT(720)*V(114)*F(3) + A(721) = RCT(721)*V(73)*V(343) + A(722) = RCT(722)*V(138)*V(343) + A(723) = RCT(723)*V(138)*V(343) + A(724) = RCT(724)*V(145)*V(343) + A(725) = RCT(725)*V(85)*V(343) + A(726) = RCT(726)*V(103)*V(343) + A(727) = RCT(727)*V(266)*V(341) + A(728) = RCT(728)*V(266)*V(338) + A(729) = RCT(729)*V(266)*V(348) + A(730) = RCT(730)*V(266)*V(334) + A(731) = RCT(731)*V(266)*V(328) + A(732) = RCT(732)*V(61)*V(343) + A(733) = RCT(733)*V(124)*V(338) + A(734) = RCT(734)*V(124)*V(341) + A(735) = 7.09e-11*V(152)*V(343) + A(736) = RCT(736)*V(243)*V(338) + A(737) = RCT(737)*V(243)*V(341) + A(738) = RCT(738)*V(243)*V(345) + A(739) = RCT(739)*V(125) + A(740) = RCT(740)*V(125)*V(343) + A(741) = RCT(741)*V(199)*V(343) + A(742) = RCT(742)*V(199)*V(348) + A(743) = RCT(743)*V(162)*V(343) + A(744) = RCT(744)*V(162)*V(348) + A(745) = RCT(745)*V(205)*V(343) + A(746) = RCT(746)*V(205)*V(356) + A(747) = RCT(747)*V(205)*V(348) + A(748) = RCT(748)*V(207)*V(343) + A(749) = RCT(749)*V(207)*V(348) + A(750) = RCT(750)*V(237)*V(341) + A(751) = RCT(751)*V(237)*V(338) + A(752) = RCT(752)*V(237)*V(345) + A(753) = RCT(753)*V(77)*V(343) + A(754) = RCT(754)*V(105) + A(755) = RCT(755)*V(105)*V(343) + A(756) = RCT(756)*V(238)*V(345) + A(757) = RCT(757)*V(238)*V(338) + A(758) = RCT(758)*V(238)*V(348) + A(759) = RCT(759)*V(238)*V(341) + A(760) = RCT(760)*V(118)*V(343) + A(761) = RCT(761)*V(206)*V(356) + A(762) = RCT(762)*V(206)*V(345) + A(763) = RCT(763)*V(272)*V(343) + A(764) = RCT(764)*V(272)*V(348) + A(765) = RCT(765)*V(238)*V(334) + A(766) = RCT(766)*V(237)*V(334) + A(767) = RCT(767)*V(224)*V(343) + A(768) = RCT(768)*V(224)*V(356) + A(769) = RCT(769)*V(224) + A(770) = RCT(770)*V(204)*V(343) + A(771) = RCT(771)*V(204)*V(356) + A(772) = RCT(772)*V(204) + A(773) = RCT(773)*V(13)*V(341) + A(774) = RCT(774)*V(13)*V(338) + A(775) = RCT(775)*V(22)*V(341) + A(776) = RCT(776)*V(22)*V(338) + A(777) = RCT(777)*V(27)*V(341) + A(778) = RCT(778)*V(27)*V(338) + A(779) = RCT(779)*V(334)*V(348) + A(780) = RCT(780)*V(44)*V(343) + A(781) = RCT(781)*V(341) + A(782) = RCT(782)*V(345) + A(783) = RCT(783)*V(348) + A(784) = RCT(784)*V(348) + A(785) = RCT(785)*V(348) + A(786) = RCT(786)*V(217)*V(353) + A(787) = RCT(787)*V(217)*V(340) + A(788) = RCT(788)*V(217) + A(789) = RCT(789)*V(217)*V(339) + A(790) = RCT(790)*V(217)*V(346) + A(791) = RCT(791)*V(339)*V(343) + A(792) = RCT(792)*V(343)*V(346) + A(793) = RCT(793)*V(221)*V(353) + A(794) = RCT(794)*V(221)*V(340) + A(795) = RCT(795)*V(321)*V(353) + A(796) = RCT(796)*V(321)*V(340) + A(797) = RCT(797)*V(321)*V(354) + A(798) = RCT(798)*V(321)*V(349) + A(799) = RCT(799)*V(321)*V(350) + A(800) = RCT(800)*V(321)*V(339) + A(801) = RCT(801)*V(321)*V(346) + A(802) = RCT(802)*V(301)*V(339) + A(803) = RCT(803)*V(301)*V(346) + A(804) = RCT(804)*V(301)*V(340) + A(805) = RCT(805)*V(301)*V(349) + A(806) = RCT(806)*V(301)*V(350) + A(807) = RCT(807)*V(301)*V(354) + A(808) = RCT(808)*V(332)*V(340) + A(809) = RCT(809)*V(332)*V(354) + A(810) = RCT(810)*V(332)*V(339) + A(811) = RCT(811)*V(332)*V(346) + A(812) = RCT(812)*V(332)*V(355) + A(813) = RCT(813)*V(320)*V(354) + A(814) = RCT(814)*V(320)*V(340) + A(815) = RCT(815)*V(320)*V(339) + A(816) = RCT(816)*V(320)*V(346) + A(817) = RCT(817)*V(320)*V(349) + A(818) = RCT(818)*V(320)*V(350) + A(819) = RCT(819)*V(320)*V(355) + A(820) = RCT(820)*V(354)*V(356) + A(821) = RCT(821)*V(349)*V(356) + A(822) = RCT(822)*V(350)*V(356) + A(823) = RCT(823)*V(354) + A(824) = RCT(824)*V(354) + A(825) = RCT(825)*V(75) + A(826) = RCT(826)*V(75) + A(827) = RCT(827)*V(75) + A(828) = RCT(828)*V(287) + A(829) = RCT(829)*V(287) + A(830) = RCT(830)*V(47) + A(831) = RCT(831)*V(47) + A(832) = RCT(832)*V(47) + A(833) = RCT(833)*V(58) + A(834) = RCT(834)*V(58) + A(835) = RCT(835)*V(58) + A(836) = RCT(836)*V(45) + A(837) = RCT(837)*V(45) + A(838) = RCT(838)*V(45) + A(839) = RCT(839)*V(254) + A(840) = RCT(840)*V(254) + A(841) = RCT(841)*V(296) + A(842) = RCT(842)*V(296) + A(843) = RCT(843)*V(296)*V(353) + A(844) = RCT(844)*V(254)*V(349) + A(845) = RCT(845)*V(254)*V(350) + A(846) = RCT(846)*V(254)*V(339) + A(847) = RCT(847)*V(254)*V(346) + A(848) = RCT(848)*V(296)*V(349) + A(849) = RCT(849)*V(296)*V(350) + A(850) = RCT(850)*V(296)*V(339) + A(851) = RCT(851)*V(296)*V(346) + A(852) = RCT(852)*V(287)*V(349) + A(853) = RCT(853)*V(287)*V(350) + A(854) = RCT(854)*V(287)*V(339) + A(855) = RCT(855)*V(287)*V(346) + A(856) = RCT(856)*V(274) + A(857) = RCT(857)*V(298) + A(858) = RCT(858)*V(157) + A(859) = RCT(859)*V(159) + A(860) = RCT(860)*V(131) A(861) = RCT(861)*V(24) - A(862) = RCT(862)*V(302) - A(863) = RCT(863)*V(251) - A(864) = RCT(864)*V(256) - A(865) = RCT(865)*V(242) - A(866) = RCT(866)*V(154) - A(867) = RCT(867)*V(115) - A(868) = RCT(868)*V(107) - A(869) = RCT(869)*V(268) + A(862) = RCT(862)*V(306) + A(863) = RCT(863)*V(255) + A(864) = RCT(864)*V(260) + A(865) = RCT(865)*V(246) + A(866) = RCT(866)*V(156) + A(867) = RCT(867)*V(116) + A(868) = RCT(868)*V(109) + A(869) = RCT(869)*V(271) A(870) = RCT(870)*V(175) - A(871) = RCT(871)*V(168) - A(872) = RCT(872)*V(267) - A(873) = RCT(873)*V(215) - A(874) = RCT(874)*V(186) - A(875) = RCT(875)*V(222) - A(876) = RCT(876)*V(299) - A(877) = RCT(877)*V(266) - A(878) = RCT(878)*V(303) - A(879) = RCT(879)*V(216) - A(880) = RCT(880)*V(248) - A(881) = RCT(881)*V(269) - A(882) = RCT(882)*V(341) - A(883) = RCT(883)*V(341) - A(884) = RCT(884)*F(3) - A(885) = RCT(885)*V(335) - A(886) = RCT(886)*V(264) - A(887) = RCT(887)*V(164) - A(888) = RCT(888)*V(325) - A(889) = RCT(889)*V(325) - A(890) = RCT(890)*V(327) - A(891) = RCT(891)*V(239) - A(892) = RCT(892)*V(108) - A(893) = RCT(893)*V(108) - A(894) = RCT(894)*V(351) - A(895) = RCT(895)*V(351) - A(896) = RCT(896)*V(214) - A(897) = RCT(897)*V(326) - A(898) = RCT(898)*V(326) - A(899) = RCT(899)*V(139) - A(900) = RCT(900)*V(126) - A(901) = RCT(901)*V(233) - A(902) = RCT(902)*V(146) - A(903) = RCT(903)*V(298) - A(904) = RCT(904)*V(295) - A(905) = RCT(905)*V(295) - A(906) = RCT(906)*V(292) - A(907) = RCT(907)*V(306) - A(908) = RCT(908)*V(270) - A(909) = RCT(909)*V(270) - A(910) = RCT(910)*V(270) - A(911) = RCT(911)*V(294) - A(912) = RCT(912)*V(314) - A(913) = RCT(913)*V(314) - A(914) = RCT(914)*V(314) - A(915) = RCT(915)*V(309) - A(916) = RCT(916)*V(307) - A(917) = RCT(917)*V(125) - A(918) = RCT(918)*V(118) - A(919) = RCT(919)*V(99) - A(920) = RCT(920)*V(100) - A(921) = RCT(921)*V(97) - A(922) = RCT(922)*V(98) - A(923) = RCT(923)*V(102) - A(924) = RCT(924)*V(123) - A(925) = RCT(925)*V(155) - A(926) = RCT(926)*V(251) - A(927) = RCT(927)*V(196) - A(928) = RCT(928)*V(116) - A(929) = RCT(929)*V(279) - A(930) = RCT(930)*V(92) - A(931) = RCT(931)*V(148) - A(932) = RCT(932)*V(347) - A(933) = RCT(933)*V(316) - A(934) = RCT(934)*V(218) - A(935) = RCT(935)*V(218) - A(936) = RCT(936)*V(59) - A(937) = RCT(937)*V(81) - A(938) = RCT(938)*V(78) - A(939) = RCT(939)*V(105) - A(940) = RCT(940)*V(181) - A(941) = RCT(941)*V(79) - A(942) = RCT(942)*V(157) - A(943) = RCT(943)*V(245) - A(944) = RCT(944)*V(338) - A(945) = RCT(945)*V(120) - A(946) = RCT(946)*V(76) - A(947) = RCT(947)*V(297) - A(948) = RCT(948)*V(317) - A(949) = RCT(949)*V(317) - A(950) = RCT(950)*V(333) - A(951) = RCT(951)*V(43) - A(952) = RCT(952)*V(46) - A(953) = RCT(953)*V(47) - A(954) = RCT(954)*V(48) - A(955) = RCT(955)*V(49) - A(956) = RCT(956)*V(50) - A(957) = RCT(957)*V(51) - A(958) = RCT(958)*V(84) - A(959) = RCT(959)*V(85) - A(960) = RCT(960)*V(86) - A(961) = RCT(961)*V(87) - A(962) = RCT(962)*V(53) - A(963) = RCT(963)*V(61) + A(871) = RCT(871)*V(177) + A(872) = RCT(872)*V(270) + A(873) = RCT(873)*V(218) + A(874) = RCT(874)*V(188) + A(875) = RCT(875)*V(225) + A(876) = RCT(876)*V(303) + A(877) = RCT(877)*V(269) + A(878) = RCT(878)*V(307) + A(879) = RCT(879)*V(220) + A(880) = RCT(880)*V(251) + A(881) = RCT(881)*V(272) + A(882) = RCT(882)*V(267)*V(355) + A(883) = RCT(883)*V(355)*V(356) + A(884) = RCT(884)*V(355) + A(885) = RCT(885)*V(345)*V(355) + A(886) = RCT(886)*V(329)*V(355) + A(887) = RCT(887)*V(93) + A(888) = RCT(888)*V(93)*V(343)*V(355) + A(889) = RCT(889)*V(356) + A(890) = RCT(890)*V(356) + A(891) = RCT(891)*F(3) + A(892) = RCT(892)*V(345) + A(893) = RCT(893)*V(267) + A(894) = RCT(894)*V(167) + A(895) = RCT(895)*V(329) + A(896) = RCT(896)*V(329) + A(897) = RCT(897)*V(333) + A(898) = RCT(898)*V(240) + A(899) = RCT(899)*V(110) + A(900) = RCT(900)*V(110) + A(901) = RCT(901)*V(348) + A(902) = RCT(902)*V(348) + A(903) = RCT(903)*V(217) + A(904) = RCT(904)*V(330) + A(905) = RCT(905)*V(330) + A(906) = RCT(906)*V(143) + A(907) = RCT(907)*V(129) + A(908) = RCT(908)*V(229) + A(909) = RCT(909)*V(152) + A(910) = RCT(910)*V(302) + A(911) = RCT(911)*V(297) + A(912) = RCT(912)*V(297) + A(913) = RCT(913)*V(295) + A(914) = RCT(914)*V(309) + A(915) = RCT(915)*V(274) + A(916) = RCT(916)*V(274) + A(917) = RCT(917)*V(274) + A(918) = RCT(918)*V(298) + A(919) = RCT(919)*V(318) + A(920) = RCT(920)*V(318) + A(921) = RCT(921)*V(318) + A(922) = RCT(922)*V(313) + A(923) = RCT(923)*V(311) + A(924) = RCT(924)*V(128) + A(925) = RCT(925)*V(121) + A(926) = RCT(926)*V(101) + A(927) = RCT(927)*V(102) + A(928) = RCT(928)*V(99) + A(929) = RCT(929)*V(100) + A(930) = RCT(930)*V(104) + A(931) = RCT(931)*V(126) + A(932) = RCT(932)*V(158) + A(933) = RCT(933)*V(255) + A(934) = RCT(934)*V(200) + A(935) = RCT(935)*V(117) + A(936) = RCT(936)*V(283) + A(937) = RCT(937)*V(95) + A(938) = RCT(938)*V(153) + A(939) = RCT(939)*V(347) + A(940) = RCT(940)*V(320) + A(941) = RCT(941)*V(221) + A(942) = RCT(942)*V(221) + A(943) = RCT(943)*V(62) + A(944) = RCT(944)*V(82) + A(945) = RCT(945)*V(79) + A(946) = RCT(946)*V(108) + A(947) = RCT(947)*V(184) + A(948) = RCT(948)*V(80) + A(949) = RCT(949)*V(160) + A(950) = RCT(950)*V(248) + A(951) = RCT(951)*V(344) + A(952) = RCT(952)*V(123) + A(953) = RCT(953)*V(78) + A(954) = RCT(954)*V(301) + A(955) = RCT(955)*V(321) + A(956) = RCT(956)*V(321) + A(957) = RCT(957)*V(332) + A(958) = RCT(958)*V(46) + A(959) = RCT(959)*V(49) + A(960) = RCT(960)*V(50) + A(961) = RCT(961)*V(51) + A(962) = RCT(962)*V(52) + A(963) = RCT(963)*V(53) A(964) = RCT(964)*V(54) - A(965) = RCT(965)*V(110) - A(966) = RCT(966)*V(170) - A(967) = RCT(967)*V(330) - A(968) = RCT(968)*V(284) - A(969) = RCT(969)*V(96) - A(970) = RCT(970)*V(62) - A(971) = RCT(971)*V(252) - A(972) = RCT(972)*V(332) - A(973) = RCT(973)*V(44) - A(974) = RCT(974)*V(52) - A(975) = RCT(975)*V(1) - A(976) = RCT(976)*V(3) - A(977) = RCT(977)*V(2) - A(978) = RCT(978)*V(42) - A(979) = RCT(979)*V(55) - A(980) = RCT(980)*V(77) - A(981) = RCT(981)*V(104) - A(982) = RCT(982)*V(80) - A(983) = RCT(983)*V(80) - A(984) = RCT(984)*V(244) - A(985) = RCT(985)*V(63) - A(986) = RCT(986)*V(68) - A(987) = RCT(987)*V(134) - A(988) = RCT(988)*V(346) - A(989) = RCT(989)*V(229) - A(990) = RCT(990)*V(261) - A(991) = RCT(991)*V(256) - A(992) = RCT(992)*V(242) - A(993) = RCT(993)*V(154) - A(994) = RCT(994)*V(65) - A(995) = RCT(995)*V(65) - A(996) = RCT(996)*V(64) - A(997) = RCT(997)*V(64) - A(998) = RCT(998)*V(93) - A(999) = RCT(999)*V(83) - A(1000) = RCT(1000)*V(91) - A(1001) = RCT(1001)*V(95) - A(1002) = RCT(1002)*V(88) - A(1003) = RCT(1003)*V(210) - A(1004) = RCT(1004)*V(115) - A(1005) = RCT(1005)*V(247) - A(1006) = RCT(1006)*V(208) - A(1007) = RCT(1007)*V(227) - A(1008) = RCT(1008)*V(288) - A(1009) = RCT(1009)*V(185) - A(1010) = RCT(1010)*V(194) - A(1011) = RCT(1011)*V(287) - A(1012) = RCT(1012)*V(159) - A(1013) = RCT(1013)*V(302) - A(1014) = RCT(1014)*V(248) - A(1015) = RCT(1015)*V(216) - A(1016) = RCT(1016)*V(187) - A(1017) = RCT(1017)*V(192) - A(1018) = RCT(1018)*V(209) - A(1019) = RCT(1019)*V(199) - A(1020) = RCT(1020)*V(230) - A(1021) = RCT(1021)*V(231) - A(1022) = RCT(1022)*V(150) - A(1023) = RCT(1023)*V(144) - A(1024) = RCT(1024)*V(268) - A(1025) = RCT(1025)*V(175) - A(1026) = RCT(1026)*V(168) - A(1027) = RCT(1027)*V(267) - A(1028) = RCT(1028)*V(222) - A(1029) = RCT(1029)*V(186) - A(1030) = RCT(1030)*V(186) - A(1031) = RCT(1031)*V(301) - A(1032) = RCT(1032)*V(299) - A(1033) = RCT(1033)*V(258) - A(1034) = RCT(1034)*V(258) - A(1035) = RCT(1035)*V(174) - A(1036) = RCT(1036)*V(198) - A(1037) = RCT(1037)*V(147) - A(1038) = RCT(1038)*V(303) + A(965) = RCT(965)*V(88) + A(966) = RCT(966)*V(89) + A(967) = RCT(967)*V(90) + A(968) = RCT(968)*V(91) + A(969) = RCT(969)*V(56) + A(970) = RCT(970)*V(64) + A(971) = RCT(971)*V(57) + A(972) = RCT(972)*V(119) + A(973) = RCT(973)*V(172) + A(974) = RCT(974)*V(287) + A(975) = RCT(975)*V(336) + A(976) = RCT(976)*V(98) + A(977) = RCT(977)*V(65) + A(978) = RCT(978)*V(254) + A(979) = RCT(979)*V(296) + A(980) = RCT(980)*V(47) + A(981) = RCT(981)*V(55) + A(982) = RCT(982)*V(1) + A(983) = RCT(983)*V(3) + A(984) = RCT(984)*V(2) + A(985) = RCT(985)*V(45) + A(986) = RCT(986)*V(58) + A(987) = RCT(987)*V(81) + A(988) = RCT(988)*V(107) + A(989) = RCT(989)*V(83) + A(990) = RCT(990)*V(83) + A(991) = RCT(991)*V(247) + A(992) = RCT(992)*V(66) + A(993) = RCT(993)*V(71) + A(994) = RCT(994)*V(146) + A(995) = RCT(995)*V(338) + A(996) = RCT(996)*V(234) + A(997) = RCT(997)*V(265) + A(998) = RCT(998)*V(260) + A(999) = RCT(999)*V(246) + A(1000) = RCT(1000)*V(156) + A(1001) = RCT(1001)*V(68) + A(1002) = RCT(1002)*V(68) + A(1003) = RCT(1003)*V(67) + A(1004) = RCT(1004)*V(67) + A(1005) = RCT(1005)*V(96) + A(1006) = RCT(1006)*V(86) + A(1007) = RCT(1007)*V(94) + A(1008) = RCT(1008)*V(97) + A(1009) = RCT(1009)*V(92) + A(1010) = RCT(1010)*V(214) + A(1011) = RCT(1011)*V(116) + A(1012) = RCT(1012)*V(249) + A(1013) = RCT(1013)*V(211) + A(1014) = RCT(1014)*V(230) + A(1015) = RCT(1015)*V(291) + A(1016) = RCT(1016)*V(190) + A(1017) = RCT(1017)*V(197) + A(1018) = RCT(1018)*V(290) + A(1019) = RCT(1019)*V(161) + A(1020) = RCT(1020)*V(306) + A(1021) = RCT(1021)*V(251) + A(1022) = RCT(1022)*V(220) + A(1023) = RCT(1023)*V(191) + A(1024) = RCT(1024)*V(195) + A(1025) = RCT(1025)*V(213) + A(1026) = RCT(1026)*V(202) + A(1027) = RCT(1027)*V(233) + A(1028) = RCT(1028)*V(231) + A(1029) = RCT(1029)*V(150) + A(1030) = RCT(1030)*V(151) + A(1031) = RCT(1031)*V(271) + A(1032) = RCT(1032)*V(175) + A(1033) = RCT(1033)*V(177) + A(1034) = RCT(1034)*V(270) + A(1035) = RCT(1035)*V(225) + A(1036) = RCT(1036)*V(188) + A(1037) = RCT(1037)*V(188) + A(1038) = RCT(1038)*V(305) A(1039) = RCT(1039)*V(303) - A(1040) = RCT(1040)*V(266) - A(1041) = RCT(1041)*V(266) - A(1042) = RCT(1042)*V(136) - A(1043) = RCT(1043)*V(204) - A(1044) = RCT(1044)*V(71) - A(1045) = RCT(1045)*V(117) - A(1046) = RCT(1046)*V(269) - A(1047) = RCT(1047)*V(124) - A(1048) = RCT(1048)*V(111) - A(1049) = RCT(1049)*V(225) - A(1050) = RCT(1050)*V(74) - A(1051) = RCT(1051)*V(66) - A(1052) = RCT(1052)*V(160) - A(1053) = RCT(1053)*V(112) - A(1054) = RCT(1054)*V(161) - A(1055) = RCT(1055)*V(169) - A(1056) = RCT(1056)*V(130) - A(1057) = RCT(1057)*V(229) - A(1058) = RCT(1058)*V(255) + A(1040) = RCT(1040)*V(259) + A(1041) = RCT(1041)*V(259) + A(1042) = RCT(1042)*V(178) + A(1043) = RCT(1043)*V(198) + A(1044) = RCT(1044)*V(149) + A(1045) = RCT(1045)*V(307) + A(1046) = RCT(1046)*V(307) + A(1047) = RCT(1047)*V(269) + A(1048) = RCT(1048)*V(269) + A(1049) = RCT(1049)*V(138) + A(1050) = RCT(1050)*V(207) + A(1051) = RCT(1051)*V(77) + A(1052) = RCT(1052)*V(118) + A(1053) = RCT(1053)*V(272) + A(1054) = RCT(1054)*V(127) + A(1055) = RCT(1055)*V(111) + A(1056) = RCT(1056)*V(227) + A(1057) = RCT(1057)*V(76) + A(1058) = RCT(1058)*V(69) + A(1059) = RCT(1059)*V(163) + A(1060) = RCT(1060)*V(112) + A(1061) = RCT(1061)*V(164) + A(1062) = RCT(1062)*V(171) + A(1063) = RCT(1063)*V(134) + A(1064) = RCT(1064)*V(234) + A(1065) = RCT(1065)*V(256) !### KPP 2.3.0_gc, Bob Yantosca (11 Feb 2021) @@ -6173,8 +6216,8 @@ SUBROUTINE Fun_SPLITF ( V, F, RCT, P_VAR, D_VAR, Aout ) &*A(459)+0.9*A(461)+0.9*A(463)+0.75*A(464)+2*A(465)+0.75*A(466)+A(467)+A(474)+0.407*A(493)+0.355*A(528)& &+A(570)+A(571)+A(572)+A(573)+A(611)+A(612)+0.429*A(639)+0.429*A(640)+0.23*A(652)+0.75*A(654)+0.097*A(661)& &+0.5*A(671)+0.41*A(672)+A(676)+0.5*A(678)+A(679)+A(681)+0.7*A(682)+A(689)+A(693)+0.5*A(695)+A(701)+A(731)+2& - &*A(736)+0.44*A(737)+0.35*A(750)+A(751)+A(755)+A(766)+0.3*A(899)+A(930)+A(1004)+1.238*A(1012)+A(1044)+A(1046)& - &+A(1050)+A(1051)+A(1055)+A(1056) + &*A(736)+0.44*A(737)+0.35*A(750)+A(751)+A(755)+A(766)+0.3*A(906)+A(937)+A(1011)+1.238*A(1019)+A(1051)+A(1053)& + &+A(1057)+A(1058)+A(1062)+A(1063) P_VAR(8) = A(486)+A(487) P_VAR(9) = A(826)+A(828)+2*A(831)+2*A(834)+2*A(837)+A(839)+A(841) P_VAR(10) = A(827)+A(829)+2*A(832)+2*A(835)+2*A(838)+A(840)+A(842) @@ -6200,8 +6243,11 @@ SUBROUTINE Fun_SPLITF ( V, F, RCT, P_VAR, D_VAR, Aout ) P_VAR(30) = A(856)+1.5*A(857)+1.5*A(867) P_VAR(31) = A(858)+A(859)+A(860)+0.8*A(868)+A(873) P_VAR(32) = A(202)+A(368)+A(372) - P_VAR(33) = 2*A(12) - P_VAR(34) = A(18)+A(22)+A(26)+A(36)+A(38)+A(56)+A(58)+A(60)+A(63)+A(65)+A(68)+2*A(73)+0.942*A(78)+A(80)+A(82)+A(85)& + P_VAR(33) = A(7)+A(8)+A(9)+2*A(12) + P_VAR(34) = A(882)+A(883)+A(884)+A(885)+A(886)+2*A(888) + P_VAR(35) = A(10) + P_VAR(36) = A(887) + P_VAR(37) = A(18)+A(22)+A(26)+A(36)+A(38)+A(56)+A(58)+A(60)+A(63)+A(65)+A(68)+2*A(73)+0.942*A(78)+A(80)+A(82)+A(85)& &+A(87)+2*A(88)+A(90)+A(91)+A(92)+A(93)+A(94)+A(95)+A(96)+A(97)+A(98)+A(100)+A(109)+A(123)+A(125)+A(126)& &+A(127)+0.15*A(128)+0.15*A(148)+A(156)+A(157)+0.15*A(158)+A(160)+A(211)+0.02*A(247)+A(248)+A(249)+A(273)& &+A(281)+A(282)+A(297)+0.1*A(309)+A(319)+A(322)+A(323)+A(352)+A(363)+A(364)+A(370)+A(371)+0.75*A(385)+0.5& @@ -6212,9 +6258,9 @@ SUBROUTINE Fun_SPLITF ( V, F, RCT, P_VAR, D_VAR, Aout ) &+A(595)+A(596)+A(598)+A(599)+A(601)+A(602)+A(615)+A(616)+A(617)+A(618)+A(633)+A(634)+A(635)+A(636)+A(639)& &+A(642)+0.69*A(650)+A(655)+A(658)+A(668)+A(669)+0.13*A(671)+A(674)+A(675)+A(676)+0.13*A(678)+A(679)+A(684)& &+0.13*A(695)+0.89*A(709)+A(711)+0.995*A(716)+A(721)+A(728)+A(733)+A(736)+0.15*A(737)+A(739)+A(740)+0.15& - &*A(750)+A(751)+A(754)+A(755)+A(756)+A(757)+A(763)+2*A(884)+A(892)+0.3*A(899)+A(900)+A(927)+A(928)+A(982)& - &+A(985)+A(988)+A(998)+A(999)+A(1000)+A(1001)+0.3*A(1047) - P_VAR(35) = A(1)+A(4)+A(8)+A(14)+A(15)+A(17)+A(42)+A(44)+2*A(49)+A(50)+A(52)+A(67)+A(76)+A(77)+A(86)+A(101)+A(110)& + &*A(750)+A(751)+A(754)+A(755)+A(756)+A(757)+A(763)+2*A(891)+A(899)+0.3*A(906)+A(907)+A(934)+A(935)+A(989)& + &+A(992)+A(995)+A(1005)+A(1006)+A(1007)+A(1008)+0.3*A(1054) + P_VAR(38) = A(1)+A(4)+A(8)+A(14)+A(15)+A(17)+A(42)+A(44)+2*A(49)+A(50)+A(52)+A(67)+A(76)+A(77)+A(86)+A(101)+A(110)& &+A(124)+A(131)+A(150)+A(154)+A(155)+A(159)+A(162)+A(165)+A(166)+A(179)+2*A(196)+A(201)+2*A(207)+2*A(208)& &+A(212)+A(213)+A(214)+A(226)+A(229)+A(230)+A(231)+2*A(233)+A(235)+A(236)+A(237)+A(238)+2*A(240)+2*A(241)& &+A(244)+A(246)+2*A(251)+A(252)+0.66*A(253)+0.6*A(254)+0.44*A(257)+0.56*A(258)+0.19*A(261)+0.1*A(269)+0.05& @@ -6229,8 +6275,8 @@ SUBROUTINE Fun_SPLITF ( V, F, RCT, P_VAR, D_VAR, Aout ) &+A(829)+2*A(830)+2*A(831)+2*A(832)+3*A(833)+3*A(834)+3*A(835)+4*A(836)+4*A(837)+4*A(838)+A(839)+A(840)& &+A(841)+A(842)+A(844)+A(845)+A(846)+A(847)+A(848)+A(849)+A(850)+A(851)+A(852)+A(853)+A(854)+A(855)+A(862)& &+A(863)+A(864)+A(865)+A(866)+A(869)+A(870)+A(871)+A(872)+A(874)+A(875)+2*A(876)+A(877)+A(878)+A(879)+A(880)& - &+2*A(895)+A(933)+2*A(946)+A(950)+A(967)+2*A(969)+A(994)+A(996) - P_VAR(36) = A(34)+A(50)+0.05*A(51)+A(55)+A(80)+A(82)+A(83)+A(84)+A(85)+A(88)+A(108)+A(126)+0.56*A(150)+0.505*A(151)& + &+A(883)+A(885)+2*A(902)+A(940)+2*A(953)+A(957)+A(974)+2*A(976)+A(1001)+A(1003) + P_VAR(39) = A(34)+A(50)+0.05*A(51)+A(55)+A(80)+A(82)+A(83)+A(84)+A(85)+A(88)+A(108)+A(126)+0.56*A(150)+0.505*A(151)& &+A(152)+A(160)+2*A(163)+A(164)+2*A(165)+A(166)+0.5*A(168)+A(216)+A(238)+A(252)+A(292)+A(315)+A(316)+A(317)& &+0.15*A(379)+0.1*A(383)+0.407*A(493)+0.6*A(496)+0.9*A(497)+0.6*A(503)+0.9*A(505)+A(509)+A(510)+A(511)+0.5& &*A(513)+0.5*A(515)+0.55*A(519)+0.55*A(523)+0.45*A(524)+0.37*A(525)+0.42*A(526)+0.23*A(527)+0.638*A(528)+1.5& @@ -6239,372 +6285,373 @@ SUBROUTINE Fun_SPLITF ( V, F, RCT, P_VAR, D_VAR, Aout ) &*A(640)+0.28*A(645)+0.036*A(646)+0.12*A(648)+0.68*A(649)+0.77*A(652)+0.25*A(654)+0.75*A(661)+A(662)+A(664)& &+2*A(665)+0.84*A(666)+0.507*A(670)+0.325*A(671)+0.488*A(672)+A(673)+0.86*A(674)+0.65*A(676)+0.25*A(684)& &+A(685)+A(686)+0.888*A(687)+A(690)+A(696)+0.18*A(704)+0.12*A(707)+0.364*A(714)+0.2*A(724)+0.27*A(725)+0.3& - &*A(726)+2*A(740)+0.15*A(763)+0.15*A(764)+0.26*A(767)+0.5*A(768)+0.25*A(770)+0.5*A(771)+0.05*A(772)+A(888)& - &+A(889)+0.88*A(897)+A(898)+0.7*A(901)+A(902)+A(903)+A(905)+A(907)+2*A(908)+2*A(909)+A(910)+A(911)+A(912)& - &+A(913)+A(915)+A(986)+A(990)+A(1003)+A(1006)+0.5*A(1007)+0.571*A(1009)+0.875*A(1010)+0.77*A(1011)+A(1014)& - &+A(1015)+0.888*A(1020)+0.818*A(1021)+A(1022)+A(1023)+0.55*A(1024)+0.55*A(1027)+0.839*A(1031)+A(1033)+0.163& - &*A(1034)+A(1037)+A(1041)+A(1043)+A(1046)+A(1049)+A(1058) - P_VAR(37) = A(24)+A(362)+A(369) - P_VAR(38) = A(1)+A(7)+A(8)+A(9)+2*A(12)+A(202)+A(368)+A(372)+A(812)+A(819) - P_VAR(39) = A(25)+A(231)+A(291) - P_VAR(40) = A(19)+A(23)+0.06*A(365)+0.06*A(366)+A(373)+0.013*A(493)+0.045*A(645) - P_VAR(41) = 0 - P_VAR(42) = A(346) - P_VAR(43) = 0 - P_VAR(44) = 0.6*A(357) - P_VAR(45) = A(864)+A(865)+A(866) - P_VAR(46) = 0.21*A(256) - P_VAR(47) = 0.1*A(262) - P_VAR(48) = 0.14*A(263) - P_VAR(49) = 0.1*A(269) - P_VAR(50) = 0.1*A(270) - P_VAR(51) = 0.14*A(271) - P_VAR(52) = 0 - P_VAR(53) = 0.55*A(265) - P_VAR(54) = 0.25*A(272) - P_VAR(55) = A(345) - P_VAR(56) = A(393) - P_VAR(57) = A(438) - P_VAR(58) = 0.15*A(707) - P_VAR(59) = A(221) - P_VAR(60) = 0 - P_VAR(61) = 0.35*A(264) - P_VAR(62) = A(334) - P_VAR(63) = A(250) - P_VAR(64) = A(3)+A(784) - P_VAR(65) = A(6)+A(785) - P_VAR(66) = 0.15*A(391)+0.25*A(464) - P_VAR(67) = A(988) - P_VAR(68) = 0 - P_VAR(69) = 0 - P_VAR(70) = 0.005*A(716) - P_VAR(71) = 0.65*A(750) - P_VAR(72) = 0.56*A(158) - P_VAR(73) = A(351) - P_VAR(74) = 0.41*A(391) - P_VAR(75) = 0 - P_VAR(76) = A(307) - P_VAR(77) = A(844)+A(845)+A(848)+A(849)+A(852)+A(853) - P_VAR(78) = 0.05*A(259) - P_VAR(79) = 0 - P_VAR(80) = A(197) - P_VAR(81) = 0.3*A(260) - P_VAR(82) = 0 - P_VAR(83) = A(59) - P_VAR(84) = 0.21*A(268) - P_VAR(85) = 0.31*A(266) - P_VAR(86) = 0.35*A(267) - P_VAR(87) = 0.25*A(261) - P_VAR(88) = 0.73*A(365)+0.4*A(366) - P_VAR(89) = A(10) - P_VAR(90) = A(752) - P_VAR(91) = A(99) - P_VAR(92) = 0.37*A(695) - P_VAR(93) = A(27) - P_VAR(94) = 0 - P_VAR(95) = A(64) - P_VAR(96) = 0.8*A(344)+2*A(347)+0.4*A(357)+0.996*A(358)+A(973)+2*A(978)+A(979) - P_VAR(97) = A(114) - P_VAR(98) = A(70) - P_VAR(99) = A(146) - P_VAR(100) = A(120) - P_VAR(101) = 0 - P_VAR(102) = A(116) - P_VAR(103) = A(862)+A(863)+A(869)+A(870)+A(871)+A(872)+A(874)+A(875)+A(876)+A(877)+A(878)+A(879)+A(880) - P_VAR(104) = 0.191*A(349)+A(846)+A(847)+A(850)+A(851)+A(854)+A(855) - P_VAR(105) = 0 - P_VAR(106) = 0.995*A(716)+A(717)+0.6*A(718)+A(1042) - P_VAR(107) = 0.098*A(672)+0.75*A(684) - P_VAR(108) = A(39) - P_VAR(109) = 0.4*A(901) - P_VAR(110) = A(274)+A(278)+A(303)+A(305)+A(311)+A(946) + &*A(726)+2*A(740)+0.15*A(763)+0.15*A(764)+0.26*A(767)+0.5*A(768)+0.25*A(770)+0.5*A(771)+0.05*A(772)+A(895)& + &+A(896)+0.88*A(904)+A(905)+0.7*A(908)+A(909)+A(910)+A(912)+A(914)+2*A(915)+2*A(916)+A(917)+A(918)+A(919)& + &+A(920)+A(922)+A(993)+A(997)+A(1010)+A(1013)+0.5*A(1014)+0.571*A(1016)+0.875*A(1017)+0.77*A(1018)+A(1021)& + &+A(1022)+0.888*A(1027)+0.818*A(1028)+A(1029)+A(1030)+0.55*A(1031)+0.55*A(1034)+0.839*A(1038)+A(1040)+0.163& + &*A(1041)+A(1044)+A(1048)+A(1050)+A(1053)+A(1056)+A(1065) + P_VAR(40) = A(24)+A(362)+A(369) + P_VAR(41) = A(1)+A(7)+A(8)+A(9)+2*A(12)+A(202)+A(368)+A(372)+A(812)+A(819)+A(882)+A(883)+A(884)+A(885)+2*A(888) + P_VAR(42) = A(25)+A(231)+A(291) + P_VAR(43) = A(19)+A(23)+0.06*A(365)+0.06*A(366)+A(373)+0.013*A(493)+0.045*A(645) + P_VAR(44) = 0 + P_VAR(45) = A(346) + P_VAR(46) = 0 + P_VAR(47) = 0.6*A(357) + P_VAR(48) = A(864)+A(865)+A(866) + P_VAR(49) = 0.21*A(256) + P_VAR(50) = 0.1*A(262) + P_VAR(51) = 0.14*A(263) + P_VAR(52) = 0.1*A(269) + P_VAR(53) = 0.1*A(270) + P_VAR(54) = 0.14*A(271) + P_VAR(55) = 0 + P_VAR(56) = 0.55*A(265) + P_VAR(57) = 0.25*A(272) + P_VAR(58) = A(345) + P_VAR(59) = A(393) + P_VAR(60) = A(438) + P_VAR(61) = 0.15*A(707) + P_VAR(62) = A(221) + P_VAR(63) = 0 + P_VAR(64) = 0.35*A(264) + P_VAR(65) = A(334) + P_VAR(66) = A(250) + P_VAR(67) = A(3)+A(784) + P_VAR(68) = A(6)+A(785) + P_VAR(69) = 0.15*A(391)+0.25*A(464) + P_VAR(70) = A(995) + P_VAR(71) = 0 + P_VAR(72) = 0 + P_VAR(73) = 0.005*A(716) + P_VAR(74) = 0.56*A(158) + P_VAR(75) = A(351) + P_VAR(76) = 0.41*A(391) + P_VAR(77) = 0.65*A(750) + P_VAR(78) = A(307) + P_VAR(79) = 0.05*A(259) + P_VAR(80) = 0 + P_VAR(81) = A(844)+A(845)+A(848)+A(849)+A(852)+A(853) + P_VAR(82) = 0.3*A(260) + P_VAR(83) = A(197) + P_VAR(84) = 0 + P_VAR(85) = 0 + P_VAR(86) = A(59) + P_VAR(87) = 0 + P_VAR(88) = 0.21*A(268) + P_VAR(89) = 0.31*A(266) + P_VAR(90) = 0.35*A(267) + P_VAR(91) = 0.25*A(261) + P_VAR(92) = 0.73*A(365)+0.4*A(366) + P_VAR(93) = A(10)+A(886) + P_VAR(94) = A(99) + P_VAR(95) = 0.37*A(695) + P_VAR(96) = A(27) + P_VAR(97) = A(64) + P_VAR(98) = 0.8*A(344)+2*A(347)+0.4*A(357)+0.996*A(358)+A(980)+2*A(985)+A(986) + P_VAR(99) = A(114) + P_VAR(100) = A(70) + P_VAR(101) = A(146) + P_VAR(102) = A(120) + P_VAR(103) = 0 + P_VAR(104) = A(116) + P_VAR(105) = A(752) + P_VAR(106) = A(862)+A(863)+A(869)+A(870)+A(871)+A(872)+A(874)+A(875)+A(876)+A(877)+A(878)+A(879)+A(880) + P_VAR(107) = 0.191*A(349)+A(846)+A(847)+A(850)+A(851)+A(854)+A(855) + P_VAR(108) = 0 + P_VAR(109) = 0.098*A(672)+0.75*A(684) + P_VAR(110) = A(39) P_VAR(111) = A(384) P_VAR(112) = A(404) P_VAR(113) = A(124) - P_VAR(114) = A(155) - P_VAR(115) = 0.075*A(645)+0.241*A(650)+0.653*A(661)+0.75*A(1010) - P_VAR(116) = 0.11*A(709) - P_VAR(117) = 0.15*A(750)+A(755)+A(759) - P_VAR(118) = A(144)+A(145) - P_VAR(119) = 0.15*A(524)+0.15*A(525)+0.112*A(1020)+0.182*A(1021)+0.161*A(1031) - P_VAR(120) = A(304)+A(310)+0.56*A(349) - P_VAR(121) = A(732) - P_VAR(122) = A(738) - P_VAR(123) = A(147) - P_VAR(124) = A(106) - P_VAR(125) = A(121) - P_VAR(126) = A(86) - P_VAR(127) = 0.058*A(78) - P_VAR(128) = 0.255*A(537)+0.595*A(538)+A(578)+A(580) - P_VAR(129) = 0.2*A(383)+0.75*A(405)+A(406)+0.5*A(407)+A(458)+A(459)+A(1053) - P_VAR(130) = 0.15*A(436)+0.25*A(466) - P_VAR(131) = A(557)+0.13*A(558)+0.2*A(559)+0.35*A(686)+0.35*A(1033) - P_VAR(132) = 0.255*A(81) - P_VAR(133) = 0.315*A(524) - P_VAR(134) = A(1)+A(7)+A(8)+A(9)+2*A(12)+A(202)+A(368)+A(372)+A(812)+A(819) - P_VAR(135) = 0.315*A(525) - P_VAR(136) = A(715)+0.2*A(718) - P_VAR(137) = 0.25*A(385) - P_VAR(138) = 0.25*A(405) - P_VAR(139) = A(53) + P_VAR(114) = 0.995*A(716)+A(717)+0.6*A(718)+A(1049) + P_VAR(115) = A(155) + P_VAR(116) = 0.075*A(645)+0.241*A(650)+0.653*A(661)+0.75*A(1017) + P_VAR(117) = 0.11*A(709) + P_VAR(118) = 0.15*A(750)+A(755)+A(759) + P_VAR(119) = A(274)+A(278)+A(303)+A(305)+A(311)+A(953) + P_VAR(120) = 0.4*A(908) + P_VAR(121) = A(144)+A(145) + P_VAR(122) = 0.15*A(524)+0.15*A(525)+0.112*A(1027)+0.182*A(1028)+0.161*A(1038) + P_VAR(123) = A(304)+A(310)+0.56*A(349) + P_VAR(124) = A(732) + P_VAR(125) = A(738) + P_VAR(126) = A(147) + P_VAR(127) = A(106) + P_VAR(128) = A(121) + P_VAR(129) = A(86) + P_VAR(130) = 0.058*A(78) + P_VAR(131) = 0.255*A(537)+0.595*A(538)+A(578)+A(580) + P_VAR(132) = 0.2*A(383)+0.75*A(405)+A(406)+0.5*A(407)+A(458)+A(459)+A(1060) + P_VAR(133) = 0.255*A(81) + P_VAR(134) = 0.15*A(436)+0.25*A(466) + P_VAR(135) = A(557)+0.13*A(558)+0.2*A(559)+0.35*A(686)+0.35*A(1040) + P_VAR(136) = 0.315*A(525) + P_VAR(137) = 0.315*A(524) + P_VAR(138) = A(715)+0.2*A(718) + P_VAR(139) = 0.25*A(385) P_VAR(140) = 0 - P_VAR(141) = 0 + P_VAR(141) = 0.25*A(405) P_VAR(142) = 0 - P_VAR(143) = 0.1*A(704) - P_VAR(144) = 0.15*A(497)+0.15*A(505)+0.009*A(538) - P_VAR(145) = 0.474*A(607)+0.34*A(608)+0.244*A(609)+0.841*A(612)+0.841*A(614)+0.841*A(617)+0.841*A(1029)+0.222*A(1032) - P_VAR(146) = A(733)+A(734) - P_VAR(147) = A(556)+A(561) - P_VAR(148) = A(208)+A(210)+A(813)+A(817)+A(818) - P_VAR(149) = 0 + P_VAR(143) = A(53) + P_VAR(144) = 0 + P_VAR(145) = 0.1*A(704) + P_VAR(146) = A(1)+A(7)+A(8)+A(9)+2*A(12)+A(202)+A(368)+A(372)+A(812)+A(819)+A(882)+A(883)+A(884)+A(885)+2*A(888) + P_VAR(147) = 0.474*A(607)+0.34*A(608)+0.244*A(609)+0.841*A(612)+0.841*A(614)+0.841*A(617)+0.841*A(1036)+0.222*A(1039) + P_VAR(148) = 0 + P_VAR(149) = A(556)+A(561) P_VAR(150) = 0.15*A(496)+0.15*A(503)+0.009*A(537) - P_VAR(151) = 0.67*A(532)+0.68*A(534)+0.67*A(575)+0.67*A(577) - P_VAR(152) = 0.33*A(532)+0.32*A(534)+0.33*A(575)+0.33*A(577) - P_VAR(153) = A(562)+0.2*A(563)+0.13*A(565)+0.15*A(686)+0.15*A(1033)+0.163*A(1034) - P_VAR(154) = A(481)+A(482)+A(483)+A(484)+A(485) - P_VAR(155) = 0.41*A(128)+0.41*A(148)+0.41*A(737) - P_VAR(156) = 0.25*A(129)+0.25*A(130)+0.4*A(142)+0.4*A(143) - P_VAR(157) = A(312)+A(794)+A(797)+A(798)+A(799)+A(805)+A(806)+A(807)+A(809)+A(814)+A(815)+A(816) - P_VAR(158) = 0.18*A(705)+0.03*A(707)+0.19*A(725)+0.15*A(726) - P_VAR(159) = 0.5*A(671)+0.25*A(1012) - P_VAR(160) = A(398)+0.25*A(401) - P_VAR(161) = A(410)+0.25*A(413) - P_VAR(162) = 0.5*A(407)+A(411) - P_VAR(163) = 0.3*A(421)+0.84*A(429)+A(431)+0.75*A(432) - P_VAR(164) = A(28) - P_VAR(165) = A(72) - P_VAR(166) = -A(4) - P_VAR(167) = 0 - P_VAR(168) = A(520) - P_VAR(169) = A(430)+0.25*A(432)+0.41*A(436) - P_VAR(170) = A(335)+A(338)+A(342) - P_VAR(171) = 0.224*A(1020)+0.068*A(1031) - P_VAR(172) = 0.182*A(1021)+0.128*A(1031) - P_VAR(173) = 0.15*A(128)+0.15*A(148)+0.5*A(475)+0.5*A(707)+0.45*A(726)+0.15*A(737)+0.43*A(767)+0.52*A(770) - P_VAR(174) = 0.725*A(542)+0.725*A(546)+0.35*A(550) + P_VAR(151) = 0.15*A(497)+0.15*A(505)+0.009*A(538) + P_VAR(152) = A(733)+A(734) + P_VAR(153) = A(208)+A(210)+A(813)+A(817)+A(818) + P_VAR(154) = 0.25*A(129)+0.25*A(130)+0.4*A(142)+0.4*A(143) + P_VAR(155) = A(562)+0.2*A(563)+0.13*A(565)+0.15*A(686)+0.15*A(1040)+0.163*A(1041) + P_VAR(156) = A(481)+A(482)+A(483)+A(484)+A(485) + P_VAR(157) = 0.67*A(532)+0.68*A(534)+0.67*A(575)+0.67*A(577) + P_VAR(158) = 0.41*A(128)+0.41*A(148)+0.41*A(737) + P_VAR(159) = 0.33*A(532)+0.32*A(534)+0.33*A(575)+0.33*A(577) + P_VAR(160) = A(312)+A(794)+A(797)+A(798)+A(799)+A(805)+A(806)+A(807)+A(809)+A(814)+A(815)+A(816) + P_VAR(161) = 0.5*A(671)+0.25*A(1019) + P_VAR(162) = 0.18*A(705)+0.03*A(707)+0.19*A(725)+0.15*A(726) + P_VAR(163) = A(398)+0.25*A(401) + P_VAR(164) = A(410)+0.25*A(413) + P_VAR(165) = 0.5*A(407)+A(411) + P_VAR(166) = 0.3*A(421)+0.84*A(429)+A(431)+0.75*A(432) + P_VAR(167) = A(28) + P_VAR(168) = A(72) + P_VAR(169) = -A(4) + P_VAR(170) = 0 + P_VAR(171) = A(430)+0.25*A(432)+0.41*A(436) + P_VAR(172) = A(335)+A(338)+A(342) + P_VAR(173) = 0.224*A(1027)+0.068*A(1038) + P_VAR(174) = 0.182*A(1028)+0.128*A(1038) P_VAR(175) = A(516) - P_VAR(176) = 0.5*A(388)+0.16*A(399) - P_VAR(177) = A(422)+A(425)+0.5*A(426)+0.5*A(427)+A(428)+0.16*A(429) - P_VAR(178) = A(66)+A(67)+0.5*A(71) - P_VAR(179) = -A(1) - P_VAR(180) = 0.435*A(641) - P_VAR(181) = 0.1*A(257) - P_VAR(182) = 0.461*A(638)+0.67*A(639)+0.67*A(640)+0.041*A(691) - P_VAR(183) = 0 - P_VAR(184) = A(677)+A(680) - P_VAR(185) = A(530)+0.444*A(687)+0.112*A(1020)+0.182*A(1021)+0.162*A(1031)+0.454*A(1037) - P_VAR(186) = A(605) - P_VAR(187) = 0.937*A(498) - P_VAR(188) = 0.25*A(112)+0.25*A(113)+0.38*A(132)+0.375*A(133)+0.38*A(134)+0.375*A(135)+0.25*A(137)+0.25*A(138)+0.25& + P_VAR(176) = 0.15*A(128)+0.15*A(148)+0.5*A(475)+0.5*A(707)+0.45*A(726)+0.15*A(737)+0.43*A(767)+0.52*A(770) + P_VAR(177) = A(520) + P_VAR(178) = 0.725*A(542)+0.725*A(546)+0.35*A(550) + P_VAR(179) = 0.5*A(388)+0.16*A(399) + P_VAR(180) = A(422)+A(425)+0.5*A(426)+0.5*A(427)+A(428)+0.16*A(429) + P_VAR(181) = 0.435*A(641) + P_VAR(182) = A(66)+A(67)+0.5*A(71) + P_VAR(183) = -A(1) + P_VAR(184) = 0.1*A(257) + P_VAR(185) = 0.461*A(638)+0.67*A(639)+0.67*A(640)+0.041*A(691) + P_VAR(186) = A(576) + P_VAR(187) = 0 + P_VAR(188) = A(605) + P_VAR(189) = A(677)+A(680) + P_VAR(190) = A(530)+0.444*A(687)+0.112*A(1027)+0.182*A(1028)+0.162*A(1038)+0.454*A(1044) + P_VAR(191) = 0.937*A(498) + P_VAR(192) = 0.25*A(112)+0.25*A(113)+0.38*A(132)+0.375*A(133)+0.38*A(134)+0.375*A(135)+0.25*A(137)+0.25*A(138)+0.25& &*A(139)+0.25*A(473) - P_VAR(189) = 0.3*A(702)+0.07*A(705)+0.05*A(707) - P_VAR(190) = A(576) - P_VAR(191) = 0 - P_VAR(192) = 0.937*A(500) - P_VAR(193) = A(444) - P_VAR(194) = 0.022*A(691)+0.552*A(1020)+0.454*A(1021)+0.481*A(1031) - P_VAR(195) = 0.54*A(724) - P_VAR(196) = A(69)+A(74) - P_VAR(197) = 0.68*A(81)+A(87)+A(900)+0.3*A(901) + P_VAR(193) = 0.3*A(702)+0.07*A(705)+0.05*A(707) + P_VAR(194) = 0 + P_VAR(195) = 0.937*A(500) + P_VAR(196) = A(444) + P_VAR(197) = 0.022*A(691)+0.552*A(1027)+0.454*A(1028)+0.481*A(1038) P_VAR(198) = 0.824*A(539)+0.452*A(543)+A(547)+0.667*A(688) - P_VAR(199) = A(501) - P_VAR(200) = 0 - P_VAR(201) = 0.4*A(705)+0.6*A(707)+0.4*A(708)+0.3*A(725)+0.56*A(726)+0.44*A(743)+0.44*A(744) - P_VAR(202) = 0.8*A(741)+0.727*A(743) - P_VAR(203) = 0.06*A(741)+0.742*A(742)+0.073*A(743)+0.3*A(744)+0.3*A(745)+0.3*A(747)+A(756)+A(757)+A(758)+A(765)& - &+A(1045) - P_VAR(204) = 0.7*A(702)+A(703)+0.62*A(704)+A(706)+A(708)+0.89*A(709)+A(710)+A(711)+0.06*A(725)+0.06*A(726)+A(928) - P_VAR(205) = A(574) - P_VAR(206) = A(579) - P_VAR(207) = A(581) - P_VAR(208) = 0.13*A(566)+0.2*A(568)+0.53*A(651)+0.6*A(663)+0.255*A(667)+0.318*A(687)+0.391*A(1037) - P_VAR(209) = A(499) - P_VAR(210) = 0.3*A(496)+0.3*A(503)+0.018*A(537)+0.284*A(540)+0.135*A(542)+0.249*A(631)+0.471*A(632)+0.303*A(633)+0.59& - &*A(635)+0.5*A(1039) - P_VAR(211) = 0.25*A(418) - P_VAR(212) = A(75) - P_VAR(213) = 0.8*A(153)+A(154)+A(156) - P_VAR(214) = A(45) - P_VAR(215) = 0.085*A(524)+0.165*A(525)+0.58*A(526)+0.77*A(527)+0.75*A(551)+A(552)+A(554)+A(625)+A(637) - P_VAR(216) = 0.6*A(582)+0.031*A(594)+0.065*A(595)+0.094*A(600)+0.355*A(601)+0.06*A(631)+0.073*A(632)+0.17*A(633)+0.291& + P_VAR(199) = 0.54*A(724) + P_VAR(200) = A(69)+A(74) + P_VAR(201) = 0.68*A(81)+A(87)+A(907)+0.3*A(908) + P_VAR(202) = A(501) + P_VAR(203) = 0 + P_VAR(204) = 0.4*A(705)+0.6*A(707)+0.4*A(708)+0.3*A(725)+0.56*A(726)+0.44*A(743)+0.44*A(744) + P_VAR(205) = 0.8*A(741)+0.727*A(743) + P_VAR(206) = 0.06*A(741)+0.742*A(742)+0.073*A(743)+0.3*A(744)+0.3*A(745)+0.3*A(747)+A(756)+A(757)+A(758)+A(765)& + &+A(1052) + P_VAR(207) = 0.7*A(702)+A(703)+0.62*A(704)+A(706)+A(708)+0.89*A(709)+A(710)+A(711)+0.06*A(725)+0.06*A(726)+A(935) + P_VAR(208) = A(581) + P_VAR(209) = A(579) + P_VAR(210) = A(574) + P_VAR(211) = 0.13*A(566)+0.2*A(568)+0.53*A(651)+0.6*A(663)+0.255*A(667)+0.318*A(687)+0.391*A(1044) + P_VAR(212) = 0.25*A(418) + P_VAR(213) = A(499) + P_VAR(214) = 0.3*A(496)+0.3*A(503)+0.018*A(537)+0.284*A(540)+0.135*A(542)+0.249*A(631)+0.471*A(632)+0.303*A(633)+0.59& + &*A(635)+0.5*A(1046) + P_VAR(215) = A(75) + P_VAR(216) = 0.8*A(153)+A(154)+A(156) + P_VAR(217) = A(45) + P_VAR(218) = 0.085*A(524)+0.165*A(525)+0.58*A(526)+0.77*A(527)+0.75*A(551)+A(552)+A(554)+A(625)+A(637) + P_VAR(219) = A(229)+0.2*A(231)+A(234)+A(235)+0.22*A(253)+0.2*A(254)+0.09*A(257)+A(294)+A(895) + P_VAR(220) = 0.6*A(582)+0.031*A(594)+0.065*A(595)+0.094*A(600)+0.355*A(601)+0.06*A(631)+0.073*A(632)+0.17*A(633)+0.291& &*A(635)+0.378*A(638)+0.13*A(678)+0.3*A(682) - P_VAR(217) = A(229)+0.2*A(231)+A(234)+A(235)+0.22*A(253)+0.2*A(254)+0.09*A(257)+A(294)+A(888) - P_VAR(218) = A(222) - P_VAR(219) = 0 - P_VAR(220) = 0 - P_VAR(221) = 0.8*A(705)+0.375*A(707)+0.55*A(724)+0.68*A(725)+0.28*A(726)+0.18*A(741)+1.05*A(745)+A(746)+0.3*A(747)+0.9& - &*A(763)+0.9*A(764)+A(1046) - P_VAR(222) = 0.473*A(604)+0.07*A(606)+0.399*A(607)+0.355*A(610) - P_VAR(223) = 0.345*A(531)+0.595*A(537) - P_VAR(224) = 0.345*A(533)+0.255*A(538) - P_VAR(225) = 0.2*A(383)+0.75*A(385)+A(386)+0.5*A(388)+A(456)+A(457)+A(1048) - P_VAR(226) = A(622) - P_VAR(227) = 0.29*A(650)+0.47*A(651)+0.063*A(661)+0.4*A(663)+0.16*A(666)+0.126*A(687)+0.133*A(1034)+0.155*A(1037) - P_VAR(228) = 0.1*A(150)+A(898) - P_VAR(229) = A(443) - P_VAR(230) = 0.25*A(496)+0.25*A(503)+0.015*A(537) + P_VAR(221) = A(222) + P_VAR(222) = 0 + P_VAR(223) = 0 + P_VAR(224) = 0.8*A(705)+0.375*A(707)+0.55*A(724)+0.68*A(725)+0.28*A(726)+0.18*A(741)+1.05*A(745)+A(746)+0.3*A(747)+0.9& + &*A(763)+0.9*A(764)+A(1053) + P_VAR(225) = 0.473*A(604)+0.07*A(606)+0.399*A(607)+0.355*A(610) + P_VAR(226) = 0.345*A(533)+0.255*A(538) + P_VAR(227) = 0.2*A(383)+0.75*A(385)+A(386)+0.5*A(388)+A(456)+A(457)+A(1055) + P_VAR(228) = 0.345*A(531)+0.595*A(537) + P_VAR(229) = A(76)+A(77)+0.73*A(78) + P_VAR(230) = 0.29*A(650)+0.47*A(651)+0.063*A(661)+0.4*A(663)+0.16*A(666)+0.126*A(687)+0.133*A(1041)+0.155*A(1044) P_VAR(231) = 0.25*A(497)+0.25*A(505)+0.015*A(538) - P_VAR(232) = 0.655*A(531)+0.655*A(533) - P_VAR(233) = A(76)+A(77)+0.73*A(78) - P_VAR(234) = A(127)+0.44*A(128)+A(713)+A(722) - P_VAR(235) = A(748)+A(749)+A(753)+A(754) - P_VAR(236) = 0.28*A(704)+0.2*A(750)+A(751)+A(760)+A(761)+A(766)+A(1043)+A(1044) - P_VAR(237) = 0.37*A(417)+0.28*A(418)+0.37*A(419)+0.37*A(460)+0.37*A(461) - P_VAR(238) = A(509)+A(510)+A(511)+0.5*A(513)+0.5*A(515)+0.45*A(519)+0.45*A(523)+0.06*A(537)+0.06*A(538)+A(1018)& - &+A(1019)+0.45*A(1024)+0.45*A(1027) - P_VAR(239) = A(37)+0.5*A(782)+A(802)+A(803)+A(804)+A(805)+A(806)+A(807)+A(839)+A(840)+A(844)+A(845)+A(846)+A(847)& - &+A(994)+A(996)+A(1046) - P_VAR(240) = A(735)+A(739) - P_VAR(241) = 0.12*A(150) - P_VAR(242) = 0.7*A(450)+0.7*A(451)+0.35*A(452)+0.3*A(470)+0.3*A(471)+0.3*A(472)+0.15*A(473)+0.3*A(474)+0.3*A(476)+0.6& + P_VAR(232) = 0.1*A(150)+A(905) + P_VAR(233) = 0.25*A(496)+0.25*A(503)+0.015*A(537) + P_VAR(234) = A(443) + P_VAR(235) = 0.655*A(531)+0.655*A(533) + P_VAR(236) = A(622) + P_VAR(237) = A(748)+A(749)+A(753)+A(754) + P_VAR(238) = 0.28*A(704)+0.2*A(750)+A(751)+A(760)+A(761)+A(766)+A(1050)+A(1051) + P_VAR(239) = A(127)+0.44*A(128)+A(713)+A(722) + P_VAR(240) = A(37)+0.5*A(782)+A(802)+A(803)+A(804)+A(805)+A(806)+A(807)+A(839)+A(840)+A(844)+A(845)+A(846)+A(847)& + &+A(1001)+A(1003)+A(1053) + P_VAR(241) = 0.37*A(417)+0.28*A(418)+0.37*A(419)+0.37*A(460)+0.37*A(461) + P_VAR(242) = A(509)+A(510)+A(511)+0.5*A(513)+0.5*A(515)+0.45*A(519)+0.45*A(523)+0.06*A(537)+0.06*A(538)+A(1025)& + &+A(1026)+0.45*A(1031)+0.45*A(1034) + P_VAR(243) = A(735)+A(739) + P_VAR(244) = 0.12*A(150) + P_VAR(245) = 0.16*A(536)+0.25*A(551) + P_VAR(246) = 0.7*A(450)+0.7*A(451)+0.35*A(452)+0.3*A(470)+0.3*A(471)+0.3*A(472)+0.15*A(473)+0.3*A(474)+0.3*A(476)+0.6& &*A(478)+0.45*A(479)+0.3*A(480) - P_VAR(243) = 0.16*A(536)+0.25*A(551) - P_VAR(244) = 0.85*A(118)+0.85*A(119)+0.3*A(497)+0.3*A(505)+0.018*A(538)+0.294*A(544)+0.135*A(546)+0.009*A(631)+0.054& - &*A(632)+0.013*A(633)+0.07*A(635)+0.036*A(646)+0.23*A(652)+0.05*A(1039) - P_VAR(245) = 0.25*A(255)+A(302)+0.95*A(309)+A(314)+0.5*A(791)+0.5*A(792)+A(796)+A(800)+A(801)+A(802)+A(803)+A(804)& + P_VAR(247) = 0.85*A(118)+0.85*A(119)+0.3*A(497)+0.3*A(505)+0.018*A(538)+0.294*A(544)+0.135*A(546)+0.009*A(631)+0.054& + &*A(632)+0.013*A(633)+0.07*A(635)+0.036*A(646)+0.23*A(652)+0.05*A(1046) + P_VAR(248) = 0.25*A(255)+A(302)+0.95*A(309)+A(314)+0.5*A(791)+0.5*A(792)+A(796)+A(800)+A(801)+A(802)+A(803)+A(804)& &+A(808)+A(810)+A(811) - P_VAR(246) = 0.31*A(123)+A(125) - P_VAR(247) = 0.791*A(169)+0.551*A(594)+0.935*A(595)+0.242*A(600)+0.546*A(601)+0.589*A(631)+0.471*A(632)+0.687*A(633)& - &+0.59*A(635)+0.231*A(639)+0.231*A(640)+A(642)+0.82*A(643)+0.68*A(649)+A(654)+A(1015) - P_VAR(248) = 0.059*A(585)+0.272*A(586)+A(660)+A(675)+0.37*A(678)+0.5*A(1038) - P_VAR(249) = A(103) - P_VAR(250) = A(162)+0.209*A(169) - P_VAR(251) = A(94)+A(115)+0.07*A(123) - P_VAR(252) = A(336) - P_VAR(253) = 0.964*A(646)+A(658)+A(659) - P_VAR(254) = A(644)+A(655)+A(656) - P_VAR(255) = 0.27*A(379)+0.63*A(417)+0.47*A(418)+0.63*A(419)+0.63*A(460)+0.63*A(461) - P_VAR(256) = 0.5*A(403)+0.5*A(416)+0.5*A(435)+A(468)+0.7*A(470)+0.7*A(471)+0.7*A(472)+0.35*A(473)+0.7*A(474)+0.7& + P_VAR(249) = 0.791*A(169)+0.551*A(594)+0.935*A(595)+0.242*A(600)+0.546*A(601)+0.589*A(631)+0.471*A(632)+0.687*A(633)& + &+0.59*A(635)+0.231*A(639)+0.231*A(640)+A(642)+0.82*A(643)+0.68*A(649)+A(654)+A(1022) + P_VAR(250) = 0.31*A(123)+A(125) + P_VAR(251) = 0.059*A(585)+0.272*A(586)+A(660)+A(675)+0.37*A(678)+0.5*A(1045) + P_VAR(252) = A(103) + P_VAR(253) = A(162)+0.209*A(169) + P_VAR(254) = A(336) + P_VAR(255) = A(94)+A(115)+0.07*A(123) + P_VAR(256) = 0.27*A(379)+0.63*A(417)+0.47*A(418)+0.63*A(419)+0.63*A(460)+0.63*A(461) + P_VAR(257) = 0.964*A(646)+A(658)+A(659) + P_VAR(258) = A(644)+A(655)+A(656) + P_VAR(259) = 0.176*A(539)+0.548*A(543)+0.35*A(558)+0.35*A(565)+0.35*A(566)+0.333*A(688)+0.75*A(1042) + P_VAR(260) = 0.5*A(403)+0.5*A(416)+0.5*A(435)+A(468)+0.7*A(470)+0.7*A(471)+0.7*A(472)+0.35*A(473)+0.7*A(474)+0.7& &*A(476)+1.4*A(478)+1.05*A(479)+0.7*A(480) - P_VAR(257) = 0.4*A(387)+A(389)+A(390)+A(394)+A(396) - P_VAR(258) = 0.176*A(539)+0.548*A(543)+0.35*A(558)+0.35*A(565)+0.35*A(566)+0.333*A(688)+0.75*A(1035) - P_VAR(259) = A(647)+0.32*A(649)+0.165*A(672)+A(683) - P_VAR(260) = A(149)+0.209*A(176)+A(332)+A(333) - P_VAR(261) = 0.441*A(597)+0.858*A(598)+0.033*A(600)+0.071*A(601)+0.051*A(631)+0.054*A(632)+0.064*A(633)+0.07*A(635)& - &+0.099*A(639)+0.099*A(640)+0.89*A(642)+0.73*A(643)+0.3*A(1013)+0.15*A(1038) - P_VAR(262) = 0.4*A(381)+0.675*A(445)+0.675*A(446)+0.78*A(447)+0.78*A(448)+0.39*A(449)+0.3*A(450)+0.3*A(451)+0.15& - &*A(452)+0.675*A(462)+0.675*A(463)+0.675*A(1057) - P_VAR(263) = 0.15*A(379)+0.5*A(381)+0.5*A(388)+0.84*A(399)+A(400)+0.75*A(401)+0.5*A(402)+0.55*A(403)+0.5*A(407)+A(422)& + P_VAR(261) = 0.4*A(387)+A(389)+A(390)+A(394)+A(396) + P_VAR(262) = A(647)+0.32*A(649)+0.165*A(672)+A(683) + P_VAR(263) = 0.4*A(381)+0.675*A(445)+0.675*A(446)+0.78*A(447)+0.78*A(448)+0.39*A(449)+0.3*A(450)+0.3*A(451)+0.15& + &*A(452)+0.675*A(462)+0.675*A(463)+0.675*A(1064) + P_VAR(264) = A(149)+0.209*A(176)+A(332)+A(333) + P_VAR(265) = 0.441*A(597)+0.858*A(598)+0.033*A(600)+0.071*A(601)+0.051*A(631)+0.054*A(632)+0.064*A(633)+0.07*A(635)& + &+0.099*A(639)+0.099*A(640)+0.89*A(642)+0.73*A(643)+0.3*A(1020)+0.15*A(1045) + P_VAR(266) = 0.15*A(379)+0.5*A(381)+0.5*A(388)+0.84*A(399)+A(400)+0.75*A(401)+0.5*A(402)+0.55*A(403)+0.5*A(407)+A(422)& &+A(425)+A(428)+0.7*A(447)+0.7*A(448)+0.35*A(449)+0.7*A(450)+0.7*A(451)+0.35*A(452)+A(453)+A(454)+0.5& &*A(455)+0.7*A(702)+A(703)+0.813*A(705)+A(706)+0.93*A(707)+A(708)+0.46*A(724)+0.81*A(725)+0.85*A(726)+0.14& - &*A(741)+0.2*A(743)+0.2*A(744)+0.7*A(745)+0.2*A(747)+A(1052) - P_VAR(264) = A(19)+A(23)+0.06*A(365)+0.06*A(366)+A(373)+0.013*A(493)+0.045*A(645) - P_VAR(265) = 0.134*A(151)+A(152)+0.5*A(168)+0.21*A(365)+0.54*A(366)+0.449*A(650)+0.187*A(661)+0.3*A(685)+0.5*A(694)& + &*A(741)+0.2*A(743)+0.2*A(744)+0.7*A(745)+0.2*A(747)+A(1059) + P_VAR(267) = A(19)+A(23)+0.06*A(365)+0.06*A(366)+A(373)+0.013*A(493)+0.045*A(645) + P_VAR(268) = 0.134*A(151)+A(152)+0.5*A(168)+0.21*A(365)+0.54*A(366)+0.449*A(650)+0.187*A(661)+0.3*A(685)+0.5*A(694)& &+0.364*A(714)+0.26*A(767)+0.5*A(768)+0.1*A(770)+0.2*A(771) - P_VAR(266) = A(560)+A(564)+A(567)+A(584)+A(588)+A(592)+A(593)+A(629)+0.5*A(630)+0.9*A(691) - P_VAR(267) = A(518)+0.127*A(608)+0.057*A(609) - P_VAR(268) = A(522)+0.032*A(607)+0.671*A(608)+0.298*A(609) - P_VAR(269) = 0.258*A(742)+0.5*A(744)+0.5*A(747)+A(762) - P_VAR(270) = 0.065*A(81)+0.134*A(151)+0.2*A(153)+0.8*A(563)+0.52*A(565)+A(697)+0.1*A(707)+0.636*A(714)+0.18*A(724)& - &+0.12*A(725)+0.1*A(726)+0.06*A(741)+0.6*A(767)+0.6*A(768)+0.2*A(769)+0.5*A(1007)+0.429*A(1009)+0.125& - &*A(1010)+0.586*A(1034)+0.571*A(1036) - P_VAR(271) = 0.67*A(621) - P_VAR(272) = A(423)+0.27*A(424)+0.18*A(426) - P_VAR(273) = 0.1*A(383)+A(409)+A(415) - P_VAR(274) = 0.715*A(379)+0.27*A(412)+0.23*A(413)+0.27*A(414)+0.085*A(416)+A(420)+0.6*A(421)+0.73*A(424)+0.32*A(426)& - &+0.4*A(427)+A(433)+A(434)+0.5*A(435)+A(439)+A(441)+0.27*A(1054)+0.9*A(1058) - P_VAR(275) = 0.15*A(380)+0.255*A(382)+A(408) - P_VAR(276) = 0 - P_VAR(277) = 0.15*A(380)+0.67*A(382)+0.5*A(383)+0.6*A(387) - P_VAR(278) = 0.44*A(391)+A(392)+A(395)+A(397)+0.5*A(402)+0.75*A(464)+A(465)+A(1049)+A(1050)+A(1051) - P_VAR(279) = A(91)+0.072*A(97)+A(117) + P_VAR(269) = A(560)+A(564)+A(567)+A(584)+A(588)+A(592)+A(593)+A(629)+0.5*A(630)+0.9*A(691) + P_VAR(270) = A(518)+0.127*A(608)+0.057*A(609) + P_VAR(271) = A(522)+0.032*A(607)+0.671*A(608)+0.298*A(609) + P_VAR(272) = 0.258*A(742)+0.5*A(744)+0.5*A(747)+A(762) + P_VAR(273) = 0.67*A(621) + P_VAR(274) = 0.065*A(81)+0.134*A(151)+0.2*A(153)+0.8*A(563)+0.52*A(565)+A(697)+0.1*A(707)+0.636*A(714)+0.18*A(724)& + &+0.12*A(725)+0.1*A(726)+0.06*A(741)+0.6*A(767)+0.6*A(768)+0.2*A(769)+0.5*A(1014)+0.429*A(1016)+0.125& + &*A(1017)+0.586*A(1041)+0.571*A(1043) + P_VAR(275) = 0.1*A(383)+A(409)+A(415) + P_VAR(276) = 0.15*A(380)+0.255*A(382)+A(408) + P_VAR(277) = 0.715*A(379)+0.27*A(412)+0.23*A(413)+0.27*A(414)+0.085*A(416)+A(420)+0.6*A(421)+0.73*A(424)+0.32*A(426)& + &+0.4*A(427)+A(433)+A(434)+0.5*A(435)+A(439)+A(441)+0.27*A(1061)+0.9*A(1065) + P_VAR(278) = A(423)+0.27*A(424)+0.18*A(426) + P_VAR(279) = 0 P_VAR(280) = 0.1*A(375)+0.1*A(376)+0.5*A(377)+0.5*A(449)+0.5*A(452)+0.5*A(455) - P_VAR(281) = A(378)+0.2*A(380)+0.075*A(382) - P_VAR(282) = A(29)+0.13*A(31)+0.25*A(112)+0.25*A(113)+0.25*A(129)+0.25*A(130)+0.25*A(132)+0.25*A(133)+0.25*A(134)+0.25& + P_VAR(281) = 0.15*A(380)+0.67*A(382)+0.5*A(383)+0.6*A(387) + P_VAR(282) = 0.44*A(391)+A(392)+A(395)+A(397)+0.5*A(402)+0.75*A(464)+A(465)+A(1056)+A(1057)+A(1058) + P_VAR(283) = A(91)+0.072*A(97)+A(117) + P_VAR(284) = A(378)+0.2*A(380)+0.075*A(382) + P_VAR(285) = A(29)+0.13*A(31)+0.25*A(112)+0.25*A(113)+0.25*A(129)+0.25*A(130)+0.25*A(132)+0.25*A(133)+0.25*A(134)+0.25& &*A(135)+0.5*A(136)+0.25*A(137)+0.25*A(138)+0.25*A(139)+0.25*A(401)+0.25*A(413)+0.25*A(432)+0.25*A(456)& - &+0.25*A(458)+0.25*A(460)+0.25*A(462)+0.25*A(473)+0.355*A(609)+0.034*A(610)+0.2*A(718)+0.1*A(907) - P_VAR(283) = 0.5*A(168)+0.1*A(181)+0.1*A(182)+0.1*A(183)+0.1*A(184)+0.1*A(185)+0.1*A(186)+0.1*A(187)+0.1*A(188)+0.1& + &+0.25*A(458)+0.25*A(460)+0.25*A(462)+0.25*A(473)+0.355*A(609)+0.034*A(610)+0.2*A(718)+0.1*A(914) + P_VAR(286) = 0.5*A(168)+0.1*A(181)+0.1*A(182)+0.1*A(183)+0.1*A(184)+0.1*A(185)+0.1*A(186)+0.1*A(187)+0.1*A(188)+0.1& &*A(189)+0.1*A(190)+0.1*A(191)+0.1*A(192)+0.1*A(193)+A(374)+0.1*A(457)+0.1*A(459)+0.1*A(461)+0.1*A(463)& &+0.13*A(695)+0.15*A(770)+0.3*A(771) - P_VAR(284) = A(341)+A(343)+A(348)+A(350)+A(354)+0.008*A(358)+A(979) - P_VAR(285) = 0.068*A(528)+0.33*A(553)+0.19*A(555)+0.032*A(687) - P_VAR(286) = 0.294*A(528)+0.67*A(553)+0.81*A(555)+0.08*A(687) - P_VAR(287) = A(510)+0.5*A(511)+0.5*A(515)+0.55*A(523)+0.17*A(525)+0.09*A(527)+0.158*A(528)+0.165*A(536)+0.716*A(540)& - &+0.14*A(542)+0.004*A(631)+0.006*A(633)+0.41*A(670)+0.5*A(686)+0.571*A(689)+0.25*A(690)+0.55*A(1027)+0.5& - &*A(1033)+0.15*A(1039)+0.5*A(1041) - P_VAR(288) = A(509)+0.5*A(511)+0.5*A(513)+0.55*A(519)+0.33*A(524)+0.19*A(526)+0.125*A(528)+0.125*A(535)+0.706*A(544)& - &+0.14*A(546)+0.054*A(631)+0.059*A(633)+0.335*A(667)+0.429*A(689)+0.75*A(690)+0.55*A(1024)+0.5*A(1041) - P_VAR(289) = 0.9*A(375)+0.9*A(376)+0.5*A(377) - P_VAR(290) = A(912) - P_VAR(291) = 0.5*A(380) - P_VAR(292) = 0.25*A(68)+0.19*A(90)+0.19*A(93)+0.35*A(132)+0.35*A(134)+0.25*A(137)+0.271*A(182)+0.271*A(183)+0.1*A(185)& + P_VAR(287) = A(352)+A(355)+A(843) + P_VAR(288) = 0.068*A(528)+0.33*A(553)+0.19*A(555)+0.032*A(687) + P_VAR(289) = 0.294*A(528)+0.67*A(553)+0.81*A(555)+0.08*A(687) + P_VAR(290) = A(510)+0.5*A(511)+0.5*A(515)+0.55*A(523)+0.17*A(525)+0.09*A(527)+0.158*A(528)+0.165*A(536)+0.716*A(540)& + &+0.14*A(542)+0.004*A(631)+0.006*A(633)+0.41*A(670)+0.5*A(686)+0.571*A(689)+0.25*A(690)+0.55*A(1034)+0.5& + &*A(1040)+0.15*A(1046)+0.5*A(1048) + P_VAR(291) = A(509)+0.5*A(511)+0.5*A(513)+0.55*A(519)+0.33*A(524)+0.19*A(526)+0.125*A(528)+0.125*A(535)+0.706*A(544)& + &+0.14*A(546)+0.054*A(631)+0.059*A(633)+0.335*A(667)+0.429*A(689)+0.75*A(690)+0.55*A(1031)+0.5*A(1048) + P_VAR(292) = 0.9*A(375)+0.9*A(376)+0.5*A(377) + P_VAR(293) = A(919) + P_VAR(294) = 0.5*A(380) + P_VAR(295) = 0.25*A(68)+0.19*A(90)+0.19*A(93)+0.35*A(132)+0.35*A(134)+0.25*A(137)+0.271*A(182)+0.271*A(183)+0.1*A(185)& &+0.5*A(381)+0.42*A(399)+0.5*A(400)+0.375*A(401)+0.25*A(402)+0.3*A(403)+A(453)+A(454)+0.5*A(455)+0.464& - &*A(469)+0.34*A(473)+0.464*A(475)+0.464*A(477)+0.149*A(479)+0.285*A(480)+0.19*A(926)+0.19*A(929)+A(991)+0.5& - &*A(1052) - P_VAR(293) = A(620)+0.33*A(621)+0.037*A(691) - P_VAR(294) = 0.3*A(33)+0.5*A(136)+A(167)+0.1*A(184)+A(361)+0.3*A(496)+0.3*A(497)+0.3*A(503)+0.3*A(505)+0.085*A(524)& - &+0.165*A(525)+0.355*A(528)+0.5*A(529)+0.018*A(537)+0.018*A(538)+0.52*A(558)+0.8*A(559)+0.545*A(645)+0.88& - &*A(648)+0.449*A(650)+0.187*A(661)+A(662)+A(664)+0.05*A(667)+0.242*A(668)+0.083*A(670)+0.14*A(674)+0.7& - &*A(685)+0.25*A(707)+0.12*A(725)+0.2*A(726)+0.6*A(770)+0.6*A(771)+0.2*A(772)+0.5*A(1007)+0.47*A(1008)+0.571& - &*A(1009)+0.125*A(1010)+0.23*A(1011)+0.118*A(1034)+0.429*A(1036)+A(1040) - P_VAR(295) = 0.34*A(90)+0.34*A(93)+A(98)+0.16*A(132)+0.16*A(134)+0.75*A(138)+0.791*A(172)+0.29*A(182)+0.29*A(183)& + &*A(469)+0.34*A(473)+0.464*A(475)+0.464*A(477)+0.149*A(479)+0.285*A(480)+0.19*A(933)+0.19*A(936)+A(998)+0.5& + &*A(1059) + P_VAR(296) = A(339)+A(340) + P_VAR(297) = 0.34*A(90)+0.34*A(93)+A(98)+0.16*A(132)+0.16*A(134)+0.75*A(138)+0.791*A(172)+0.29*A(182)+0.29*A(183)& &+A(186)+0.5*A(381)+0.84*A(399)+A(400)+0.75*A(401)+0.5*A(402)+0.4*A(403)+0.6*A(412)+0.4*A(413)+0.6*A(414)& &+0.3*A(416)+0.45*A(445)+0.45*A(446)+0.3*A(447)+0.3*A(448)+0.15*A(449)+0.5*A(453)+0.5*A(454)+0.25*A(455)& - &+0.45*A(462)+0.45*A(463)+A(491)+A(920)+0.34*A(926)+0.34*A(929)+A(1000)+A(1052)+0.6*A(1054)+0.45*A(1057) - P_VAR(296) = A(57)+A(179)+A(219)+A(321)+A(701) - P_VAR(297) = A(787)+A(789)+A(790) - P_VAR(298) = A(63)+0.75*A(68)+0.5*A(71)+1.24*A(73)+0.326*A(78)+0.894*A(79)+0.15*A(90)+0.64*A(92)+0.15*A(93)+0.64*A(95)& + &+0.45*A(462)+0.45*A(463)+A(491)+A(927)+0.34*A(933)+0.34*A(936)+A(1007)+A(1059)+0.6*A(1061)+0.45*A(1064) + P_VAR(298) = 0.3*A(33)+0.5*A(136)+A(167)+0.1*A(184)+A(361)+0.3*A(496)+0.3*A(497)+0.3*A(503)+0.3*A(505)+0.085*A(524)& + &+0.165*A(525)+0.355*A(528)+0.5*A(529)+0.018*A(537)+0.018*A(538)+0.52*A(558)+0.8*A(559)+0.545*A(645)+0.88& + &*A(648)+0.449*A(650)+0.187*A(661)+A(662)+A(664)+0.05*A(667)+0.242*A(668)+0.083*A(670)+0.14*A(674)+0.7& + &*A(685)+0.25*A(707)+0.12*A(725)+0.2*A(726)+0.6*A(770)+0.6*A(771)+0.2*A(772)+0.5*A(1014)+0.47*A(1015)+0.571& + &*A(1016)+0.125*A(1017)+0.23*A(1018)+0.118*A(1041)+0.429*A(1043)+A(1047) + P_VAR(299) = A(620)+0.33*A(621)+0.037*A(691) + P_VAR(300) = A(57)+A(179)+A(219)+A(321)+A(701) + P_VAR(301) = A(787)+A(789)+A(790) + P_VAR(302) = A(63)+0.75*A(68)+0.5*A(71)+1.24*A(73)+0.326*A(78)+0.894*A(79)+0.15*A(90)+0.64*A(92)+0.15*A(93)+0.64*A(95)& &+0.75*A(112)+0.09*A(113)+0.13*A(132)+0.58*A(133)+0.13*A(134)+0.58*A(135)+0.25*A(139)+A(141)+0.64*A(171)& &+1.185*A(173)+1.185*A(174)+0.255*A(182)+0.255*A(183)+0.613*A(187)+0.613*A(188)+0.1*A(189)+0.035*A(192)& &+A(193)+0.3*A(381)+0.6*A(412)+0.4*A(413)+0.6*A(414)+0.3*A(416)+0.44*A(436)+A(437)+A(440)+A(442)+0.75& &*A(466)+A(467)+1.24*A(469)+0.93*A(473)+1.24*A(475)+1.24*A(477)+0.64*A(479)+1.21*A(480)+A(492)+1.2*A(769)& - &+1.15*A(772)+A(917)+A(919)+1.5*A(921)+A(922)+1.5*A(923)+0.15*A(926)+1.558*A(927)+0.15*A(929)+A(989)+A(992)& - &+A(1001)+0.6*A(1054)+A(1055)+A(1056) - P_VAR(299) = A(587)+A(591)+A(596)+A(599)+A(602)+A(616)+A(618)+A(634)+A(636)+0.18*A(643) - P_VAR(300) = A(101)+0.21*A(174)+A(331)+0.2*A(772) - P_VAR(301) = 0.4*A(582)+0.4*A(583)+0.07*A(606)+0.532*A(607)+0.862*A(608)+0.401*A(609)+0.034*A(610)+0.159*A(612)+0.159& - &*A(614)+0.159*A(617)+A(619)+A(628)+0.159*A(1029)+0.223*A(1032) - P_VAR(302) = 0.6*A(583)+0.599*A(589)+A(590)+0.065*A(597)+0.142*A(598)+0.01*A(600)+0.028*A(601)+0.008*A(631)+0.015& - &*A(632)+0.014*A(633)+0.049*A(635)+0.161*A(638)+A(657)+A(669)+0.05*A(1038) - P_VAR(303) = A(541)+A(545)+A(549)+0.482*A(585)+0.401*A(589)+0.418*A(594)+0.494*A(597)+0.621*A(600)+A(623)+A(624)+0.5& + &+1.15*A(772)+A(924)+A(926)+1.5*A(928)+A(929)+1.5*A(930)+0.15*A(933)+1.558*A(934)+0.15*A(936)+A(996)+A(999)& + &+A(1008)+0.6*A(1061)+A(1062)+A(1063) + P_VAR(303) = A(587)+A(591)+A(596)+A(599)+A(602)+A(616)+A(618)+A(634)+A(636)+0.18*A(643) + P_VAR(304) = A(101)+0.21*A(174)+A(331)+0.2*A(772) + P_VAR(305) = 0.4*A(582)+0.4*A(583)+0.07*A(606)+0.532*A(607)+0.862*A(608)+0.401*A(609)+0.034*A(610)+0.159*A(612)+0.159& + &*A(614)+0.159*A(617)+A(619)+A(628)+0.159*A(1036)+0.223*A(1039) + P_VAR(306) = 0.6*A(583)+0.599*A(589)+A(590)+0.065*A(597)+0.142*A(598)+0.01*A(600)+0.028*A(601)+0.008*A(631)+0.015& + &*A(632)+0.014*A(633)+0.049*A(635)+0.161*A(638)+A(657)+A(669)+0.05*A(1045) + P_VAR(307) = A(541)+A(545)+A(549)+0.482*A(585)+0.401*A(589)+0.418*A(594)+0.494*A(597)+0.621*A(600)+A(623)+A(624)+0.5& &*A(630)+0.234*A(631)+0.387*A(632)+0.565*A(641) - P_VAR(304) = 0.5*A(330)+A(495)+0.51*A(536)+0.03*A(538)+0.159*A(1030) - P_VAR(305) = 0.5*A(330)+A(494)+0.75*A(535)+0.03*A(537)+0.841*A(1030) - P_VAR(306) = 0.659*A(79)+A(80)+A(82)+A(83)+0.5*A(84)+A(88)+A(126)+0.5*A(453)+0.5*A(454)+0.25*A(455)+0.294*A(544)+0.135& + P_VAR(308) = 0.465*A(603)+A(626) + P_VAR(309) = 0.659*A(79)+A(80)+A(82)+A(83)+0.5*A(84)+A(88)+A(126)+0.5*A(453)+0.5*A(454)+0.25*A(455)+0.294*A(544)+0.135& &*A(546)+A(548)+0.65*A(550)+0.52*A(558)+0.8*A(559)+0.459*A(585)+0.728*A(586)+0.551*A(594)+0.935*A(595)& &+0.242*A(600)+0.546*A(601)+0.34*A(631)+0.384*A(633)+0.11*A(642)+0.09*A(643)+0.36*A(667)+0.758*A(668)+0.2& - &*A(718)+A(720)+A(721)+A(723)+A(746)+0.9*A(768)+0.95*A(771)+0.53*A(1008)+0.69*A(1013)+0.5*A(1032)+0.118& - &*A(1034)+0.25*A(1035)+0.429*A(1036)+0.3*A(1038)+0.35*A(1039)+A(1040) - P_VAR(307) = 0.16*A(113)+0.2*A(136)+0.791*A(176)+0.065*A(192)+A(488)+0.5*A(529)+0.284*A(540)+0.135*A(542)+A(548)+0.65& + &*A(718)+A(720)+A(721)+A(723)+A(746)+0.9*A(768)+0.95*A(771)+0.53*A(1015)+0.69*A(1020)+0.5*A(1039)+0.118& + &*A(1041)+0.25*A(1042)+0.429*A(1043)+0.3*A(1045)+0.35*A(1046)+A(1047) + P_VAR(310) = 0.535*A(603)+A(627) + P_VAR(311) = 0.16*A(113)+0.2*A(136)+0.791*A(176)+0.065*A(192)+A(488)+0.5*A(529)+0.284*A(540)+0.135*A(542)+A(548)+0.65& &*A(550)+0.8*A(563)+0.52*A(565)+0.52*A(566)+0.8*A(568)+A(569)+0.459*A(585)+0.728*A(586)+0.441*A(597)+0.858& &*A(598)+0.033*A(600)+0.071*A(601)+0.042*A(631)+0.051*A(633)+0.77*A(652)+0.84*A(666)+0.507*A(670)+0.488& - &*A(672)+A(673)+0.86*A(674)+0.5*A(678)+A(679)+A(681)+0.7*A(682)+0.25*A(684)+A(993)+0.77*A(1011)+A(1014)+0.5& - &*A(1032)+0.586*A(1034)+0.25*A(1035)+0.571*A(1036)+0.45*A(1038)+0.8*A(1039) - P_VAR(308) = A(653) - P_VAR(309) = 0.416*A(493)+0.063*A(500)+A(504)+2*A(507)+A(508)+A(514)+A(521)+0.035*A(525)+0.14*A(527)+0.165*A(536)& + &*A(672)+A(673)+0.86*A(674)+0.5*A(678)+A(679)+A(681)+0.7*A(682)+0.25*A(684)+A(1000)+0.77*A(1018)+A(1021)& + &+0.5*A(1039)+0.586*A(1041)+0.25*A(1042)+0.571*A(1043)+0.45*A(1045)+0.8*A(1046) + P_VAR(312) = A(653) + P_VAR(313) = 0.416*A(493)+0.063*A(500)+A(504)+2*A(507)+A(508)+A(514)+A(521)+0.035*A(525)+0.14*A(527)+0.165*A(536)& &+A(572)+A(573)+0.048*A(604)+0.123*A(606)+0.019*A(607)+0.028*A(610)+0.097*A(611)+0.097*A(613)+0.096*A(615)& - &+A(1017)+A(1023)+A(1026)+0.097*A(1028)+0.005*A(1032) - P_VAR(310) = 0.465*A(603)+A(626) - P_VAR(311) = 0.535*A(603)+A(627) - P_VAR(312) = 0.22*A(150)+0.1*A(383)+0.33*A(421)+0.58*A(493)+0.5*A(645)+0.88*A(648)+0.5*A(704)+A(712) - P_VAR(313) = 0.7*A(33)+A(111)+A(218)+A(329) - P_VAR(314) = 0.15*A(381)+0.45*A(445)+0.45*A(446)+0.3*A(447)+0.3*A(448)+0.15*A(449)+0.5*A(453)+0.5*A(454)+0.25*A(455)& + &+A(1024)+A(1030)+A(1033)+0.097*A(1035)+0.005*A(1039) + P_VAR(314) = 0.5*A(330)+A(494)+0.75*A(535)+0.03*A(537)+0.841*A(1037) + P_VAR(315) = 0.5*A(330)+A(495)+0.51*A(536)+0.03*A(538)+0.159*A(1037) + P_VAR(316) = 0.7*A(33)+A(111)+A(218)+A(329) + P_VAR(317) = 0.22*A(150)+0.1*A(383)+0.33*A(421)+0.58*A(493)+0.5*A(645)+0.88*A(648)+0.5*A(704)+A(712) + P_VAR(318) = 0.15*A(381)+0.45*A(445)+0.45*A(446)+0.3*A(447)+0.3*A(448)+0.15*A(449)+0.5*A(453)+0.5*A(454)+0.25*A(455)& &+0.45*A(462)+0.45*A(463)+0.177*A(493)+0.063*A(498)+A(502)+2*A(506)+A(508)+A(512)+A(517)+0.035*A(524)+0.23& &*A(526)+0.125*A(535)+A(570)+A(571)+0.479*A(604)+1.737*A(606)+0.544*A(607)+0.583*A(610)+0.903*A(611)+0.903& - &*A(613)+0.904*A(615)+0.04*A(725)+0.04*A(726)+A(1016)+A(1022)+A(1025)+0.903*A(1028)+0.05*A(1032)+0.45& - &*A(1057) - P_VAR(315) = 0.34*A(90)+0.34*A(93)+0.49*A(109)+0.16*A(132)+0.16*A(134)+0.22*A(148)+0.36*A(170)+0.29*A(182)+0.29*A(183)& - &+0.49*A(194)+0.49*A(195)+0.49*A(903)+0.415*A(906)+0.34*A(926)+0.34*A(929) - P_VAR(316) = A(204)+A(211)+A(793)+A(820)+A(821)+A(822) - P_VAR(317) = A(301) - P_VAR(318) = A(102)+0.5*A(763)+0.5*A(764) - P_VAR(319) = 0.25*A(68)+A(89)+0.15*A(133)+0.15*A(135)+0.21*A(173)+0.27*A(187)+0.27*A(188)+0.6*A(412)+0.4*A(413)+0.6& - &*A(414)+0.3*A(416)+0.352*A(436)+0.8*A(437)+0.8*A(440)+0.8*A(442)+0.6*A(466)+0.8*A(467)+0.6*A(1054)+0.8& - &*A(1055)+0.8*A(1056) - P_VAR(320) = A(122)+A(131)+0.3*A(381) - P_VAR(321) = A(62)+0.05*A(90)+0.05*A(93)+0.07*A(109)+0.03*A(132)+0.03*A(134)+0.03*A(148)+0.36*A(171)+0.045*A(182)& - &+0.045*A(183)+0.07*A(194)+0.07*A(195)+A(220)+A(328)+0.07*A(903)+0.06*A(906)+0.05*A(926)+0.05*A(929) - P_VAR(322) = A(105)+A(107)+A(110)+A(175)+0.84*A(399)+A(400)+0.75*A(401)+0.5*A(402)+0.4*A(403)+A(736)+0.44*A(737)+0.33& - &*A(767)+0.33*A(770)+0.15*A(906)+A(914)+0.326*A(927)+0.7*A(1047)+A(1052) - P_VAR(323) = A(61)+0.19*A(90)+0.19*A(93)+0.27*A(109)+0.09*A(132)+0.09*A(134)+0.12*A(148)+0.209*A(172)+0.162*A(182)& - &+0.162*A(183)+0.27*A(194)+0.27*A(195)+A(327)+0.27*A(903)+0.23*A(906)+0.19*A(926)+0.19*A(929) - P_VAR(324) = 0.95*A(51)+A(52)+A(54)+A(96)+0.919*A(97)+0.15*A(118)+0.15*A(119)+0.62*A(123)+0.3*A(136)+0.5*A(137)+A(164)& + &*A(613)+0.904*A(615)+0.04*A(725)+0.04*A(726)+A(1023)+A(1029)+A(1032)+0.903*A(1035)+0.05*A(1039)+0.45& + &*A(1064) + P_VAR(319) = 0.34*A(90)+0.34*A(93)+0.49*A(109)+0.16*A(132)+0.16*A(134)+0.22*A(148)+0.36*A(170)+0.29*A(182)+0.29*A(183)& + &+0.49*A(194)+0.49*A(195)+0.49*A(910)+0.415*A(913)+0.34*A(933)+0.34*A(936) + P_VAR(320) = A(204)+A(211)+A(793)+A(820)+A(821)+A(822) + P_VAR(321) = A(301) + P_VAR(322) = A(102)+0.5*A(763)+0.5*A(764) + P_VAR(323) = 0.25*A(68)+A(89)+0.15*A(133)+0.15*A(135)+0.21*A(173)+0.27*A(187)+0.27*A(188)+0.6*A(412)+0.4*A(413)+0.6& + &*A(414)+0.3*A(416)+0.352*A(436)+0.8*A(437)+0.8*A(440)+0.8*A(442)+0.6*A(466)+0.8*A(467)+0.6*A(1061)+0.8& + &*A(1062)+0.8*A(1063) + P_VAR(324) = A(122)+A(131)+0.3*A(381) + P_VAR(325) = A(105)+A(107)+A(110)+A(175)+0.84*A(399)+A(400)+0.75*A(401)+0.5*A(402)+0.4*A(403)+A(736)+0.44*A(737)+0.33& + &*A(767)+0.33*A(770)+0.15*A(913)+A(921)+0.326*A(934)+0.7*A(1054)+A(1059) + P_VAR(326) = A(62)+0.05*A(90)+0.05*A(93)+0.07*A(109)+0.03*A(132)+0.03*A(134)+0.03*A(148)+0.36*A(171)+0.045*A(182)& + &+0.045*A(183)+0.07*A(194)+0.07*A(195)+A(220)+A(328)+0.07*A(910)+0.06*A(913)+0.05*A(933)+0.05*A(936) + P_VAR(327) = A(61)+0.19*A(90)+0.19*A(93)+0.27*A(109)+0.09*A(132)+0.09*A(134)+0.12*A(148)+0.209*A(172)+0.162*A(182)& + &+0.162*A(183)+0.27*A(194)+0.27*A(195)+A(327)+0.27*A(910)+0.23*A(913)+0.19*A(933)+0.19*A(936) + P_VAR(328) = 0.95*A(51)+A(52)+A(54)+A(96)+0.919*A(97)+0.15*A(118)+0.15*A(119)+0.62*A(123)+0.3*A(136)+0.5*A(137)+A(164)& &+A(166)+0.78*A(178)+0.9*A(184)+0.9*A(185)+A(217)+0.44*A(436)+A(437)+A(440)+A(442)+0.75*A(466)+A(467)+0.3& &*A(496)+0.3*A(503)+0.018*A(537)+0.38*A(645)+0.12*A(648)+0.04*A(650)+0.097*A(661)+A(665)+0.36*A(667)+0.758& - &*A(668)+0.175*A(671)+0.087*A(672)+0.35*A(676)+0.3*A(685)+A(692)+A(693)+A(740)+0.12*A(897)+0.7*A(899)& - &+A(902)+A(904)+0.85*A(906)+A(911)+A(913)+A(915)+A(916)+0.326*A(927)+A(984)+A(1004)+A(1005)+A(1006)+0.5& - &*A(1007)+0.53*A(1008)+0.429*A(1009)+0.125*A(1010)+0.262*A(1012)+1.01*A(1013)+A(1055)+A(1056) - P_VAR(325) = A(11)+A(12)+A(17)+A(26)+A(29)+2*A(30)+0.87*A(31)+0.3*A(32)+A(48)+0.05*A(51)+A(55)+A(65)+0.98*A(73)+A(76)& + &*A(668)+0.175*A(671)+0.087*A(672)+0.35*A(676)+0.3*A(685)+A(692)+A(693)+A(740)+0.12*A(904)+0.7*A(906)& + &+A(909)+A(911)+0.85*A(913)+A(918)+A(920)+A(922)+A(923)+0.326*A(934)+A(991)+A(1011)+A(1012)+A(1013)+0.5& + &*A(1014)+0.53*A(1015)+0.429*A(1016)+0.125*A(1017)+0.262*A(1019)+1.01*A(1020)+A(1062)+A(1063) + P_VAR(329) = A(11)+A(12)+A(17)+A(26)+A(29)+2*A(30)+0.87*A(31)+0.3*A(32)+A(48)+0.05*A(51)+A(55)+A(65)+0.98*A(73)+A(76)& &+A(77)+0.603*A(78)+A(80)+0.065*A(81)+A(84)+A(85)+0.64*A(92)+0.64*A(95)+A(96)+A(100)+0.75*A(112)+1.25& &*A(113)+0.15*A(118)+0.31*A(123)+0.75*A(129)+0.75*A(130)+0.75*A(132)+0.95*A(133)+0.75*A(134)+0.95*A(135)& &+0.5*A(136)+0.75*A(137)+0.75*A(138)+1.25*A(139)+0.5*A(150)+0.732*A(151)+A(157)+0.44*A(158)+A(159)+A(160)& @@ -6622,27 +6669,30 @@ SUBROUTINE Fun_SPLITF ( V, F, RCT, P_VAR, D_VAR, Aout ) &+0.563*A(607)+0.645*A(609)+1.577*A(610)+A(611)+A(613)+A(615)+0.126*A(631)+0.088*A(632)+0.249*A(633)+0.34& &*A(635)+0.6*A(645)+0.12*A(648)+0.241*A(650)+0.05*A(667)+0.242*A(668)+0.083*A(670)+0.5*A(671)+0.25*A(672)& &+0.14*A(674)+A(676)+A(682)+0.022*A(691)+0.5*A(694)+A(696)+A(702)+A(703)+0.5*A(704)+0.25*A(705)+A(706)+0.12& - &*A(707)+A(712)+0.8*A(718)+2*A(719)+A(730)+A(740)+A(765)+A(766)+A(779)+A(887)+0.3*A(901)+A(902)+0.9*A(907)& - &+A(910)+A(913)+A(915)+A(916)+A(924)+A(982)+A(984)+A(990)+A(998)+A(1002)+A(1003)+A(1005)+A(1006)+0.47& - &*A(1008)+0.23*A(1011)+0.75*A(1012)+A(1016)+A(1017)+A(1025)+A(1026)+A(1028)+0.055*A(1032)+0.133*A(1034)& - &+0.55*A(1038)+0.15*A(1039)+A(1052)+A(1053)+0.4*A(1055)+0.4*A(1056)+0.1*A(1057) - P_VAR(326) = A(58)+A(60)+A(65)+0.65*A(73)+0.34*A(90)+0.97*A(92)+0.34*A(93)+0.97*A(95)+0.919*A(97)+A(100)+A(108)+0.5& + &*A(707)+A(712)+0.8*A(718)+2*A(719)+A(730)+A(740)+A(765)+A(766)+A(779)+A(887)+A(888)+A(894)+0.3*A(908)& + &+A(909)+0.9*A(914)+A(917)+A(920)+A(922)+A(923)+A(931)+A(989)+A(991)+A(997)+A(1005)+A(1009)+A(1010)+A(1012)& + &+A(1013)+0.47*A(1015)+0.23*A(1018)+0.75*A(1019)+A(1023)+A(1024)+A(1032)+A(1033)+A(1035)+0.055*A(1039)& + &+0.133*A(1041)+0.55*A(1045)+0.15*A(1046)+A(1059)+A(1060)+0.4*A(1062)+0.4*A(1063)+0.1*A(1064) + P_VAR(330) = A(58)+A(60)+A(65)+0.65*A(73)+0.34*A(90)+0.97*A(92)+0.34*A(93)+0.97*A(95)+0.919*A(97)+A(100)+A(108)+0.5& &*A(113)+0.15*A(119)+0.62*A(123)+0.75*A(129)+0.75*A(130)+0.16*A(132)+0.38*A(133)+0.16*A(134)+0.38*A(135)& &+0.5*A(137)+0.5*A(139)+A(140)+1.6*A(142)+1.6*A(143)+0.5*A(150)+0.64*A(170)+0.29*A(182)+0.29*A(183)+0.9& &*A(185)+0.675*A(187)+0.675*A(188)+0.9*A(189)+A(190)+A(191)+0.9*A(192)+A(322)+A(323)+A(325)+A(369)+A(370)& - &+A(371)+A(372)+A(373)+A(490)+0.4*A(705)+A(918)+A(924)+A(925)+0.34*A(926)+0.348*A(927)+0.34*A(929)+A(999) - P_VAR(327) = A(35)+A(50)+A(52)+A(67)+A(101)+A(110)+A(131)+A(154)+A(165)+A(166)+A(179)+A(201)+A(389)+A(486)+A(487)+0.32& + &+A(371)+A(372)+A(373)+A(490)+0.4*A(705)+A(925)+A(931)+A(932)+0.34*A(933)+0.348*A(934)+0.34*A(936)+A(1006) + P_VAR(331) = A(337)+A(339)+0.2*A(344)+0.809*A(349)+A(352)+A(353)+A(356)+0.4*A(357)+0.996*A(358)+A(359)+2*A(973)+A(974)& + &+A(975)+A(976)+A(977)+A(978)+A(979)+A(980)+A(981)+2*A(982)+A(983)+A(984)+A(987)+A(988) + P_VAR(332) = A(273)+A(277)+A(278)+A(281)+A(282)+A(299)+A(795) + P_VAR(333) = A(35)+A(50)+A(52)+A(67)+A(101)+A(110)+A(131)+A(154)+A(165)+A(166)+A(179)+A(201)+A(389)+A(486)+A(487)+0.32& &*A(649)+A(692)+A(706)+A(708)+0.742*A(742)+0.5*A(744)+0.5*A(747)+A(749)+0.5*A(764)+0.5*A(782)+A(783)+2& &*A(786)+A(787)+2*A(788)+A(789)+A(790)+A(793)+A(794)+A(795)+A(796)+A(797)+A(798)+A(799)+A(800)+A(801)& &+A(841)+A(842)+A(843)+A(848)+A(849)+A(850)+A(851) - P_VAR(328) = A(25)+0.7*A(32)+A(56)+0.19*A(90)+0.19*A(93)+A(104)+0.85*A(119)+0.09*A(132)+0.09*A(134)+0.25*A(137)+0.28& + P_VAR(334) = A(25)+0.7*A(32)+A(56)+0.19*A(90)+0.19*A(93)+A(104)+0.85*A(119)+0.09*A(132)+0.09*A(134)+0.25*A(137)+0.28& &*A(150)+0.5*A(168)+2*A(180)+0.9*A(181)+0.9*A(182)+0.9*A(183)+0.9*A(184)+0.9*A(185)+0.9*A(186)+0.9*A(187)& &+0.9*A(188)+0.9*A(189)+0.9*A(190)+0.9*A(191)+0.9*A(192)+0.9*A(193)+A(194)+A(198)+A(199)+A(200)+A(201)+0.75& &*A(231)+0.9*A(257)+A(258)+A(291)+A(320)+A(326)+A(359)+0.9*A(457)+0.9*A(459)+0.9*A(461)+0.9*A(463)+A(465)& &+A(467)+A(474)+0.5*A(475)+0.407*A(493)+A(611)+A(612)+0.325*A(671)+0.162*A(672)+0.65*A(676)+0.5*A(695)& - &+A(731)+0.88*A(897)+0.3*A(899)+A(904)+2*A(905)+0.15*A(906)+A(914)+A(925)+0.19*A(926)+0.19*A(929)+A(930)& - &+A(939)+A(940)+A(983)+0.488*A(1012) - P_VAR(329) = A(34)+A(50)+0.05*A(51)+A(55)+A(80)+A(82)+A(83)+A(84)+A(85)+A(88)+A(108)+A(126)+0.56*A(150)+0.505*A(151)& + &+A(731)+0.88*A(904)+0.3*A(906)+A(911)+2*A(912)+0.15*A(913)+A(921)+A(932)+0.19*A(933)+0.19*A(936)+A(937)& + &+A(946)+A(947)+A(990)+0.488*A(1019) + P_VAR(335) = A(34)+A(50)+0.05*A(51)+A(55)+A(80)+A(82)+A(83)+A(84)+A(85)+A(88)+A(108)+A(126)+0.56*A(150)+0.505*A(151)& &+A(152)+A(160)+2*A(163)+A(164)+2*A(165)+A(166)+0.5*A(168)+A(216)+A(238)+A(252)+A(292)+A(315)+A(316)+A(317)& &+0.15*A(379)+0.1*A(383)+0.407*A(493)+0.6*A(496)+0.9*A(497)+0.6*A(503)+0.9*A(505)+A(509)+A(510)+A(511)+0.5& &*A(513)+0.5*A(515)+0.55*A(519)+0.55*A(523)+0.45*A(524)+0.37*A(525)+0.42*A(526)+0.23*A(527)+0.638*A(528)& @@ -6652,39 +6702,17 @@ SUBROUTINE Fun_SPLITF ( V, F, RCT, P_VAR, D_VAR, Aout ) &+A(664)+2*A(665)+0.84*A(666)+0.507*A(670)+0.325*A(671)+0.488*A(672)+A(673)+0.86*A(674)+0.65*A(676)+0.25& &*A(684)+A(685)+A(686)+0.888*A(687)+A(690)+A(696)+0.18*A(704)+0.12*A(707)+0.364*A(714)+0.2*A(724)+0.27& &*A(725)+0.3*A(726)+2*A(740)+0.15*A(763)+0.15*A(764)+0.26*A(767)+0.5*A(768)+0.25*A(770)+0.5*A(771)+0.05& - &*A(772)+A(888)+A(889)+0.88*A(897)+A(898)+0.7*A(901)+A(902)+A(903)+A(905)+A(907)+2*A(908)+2*A(909)+A(910)& - &+A(911)+A(912)+A(913)+A(915)+A(986)+A(990)+A(1003)+A(1006)+0.5*A(1007)+0.571*A(1009)+0.875*A(1010)+0.77& - &*A(1011)+A(1014)+A(1015)+0.888*A(1020)+0.818*A(1021)+A(1022)+A(1023)+0.55*A(1024)+0.55*A(1027)+0.839& - &*A(1031)+A(1033)+0.163*A(1034)+A(1037)+A(1041)+A(1043)+A(1046)+A(1049)+A(1058) - P_VAR(330) = A(352)+A(355)+A(843) - P_VAR(331) = A(337)+A(339)+0.2*A(344)+0.809*A(349)+A(352)+A(353)+A(356)+0.4*A(357)+0.996*A(358)+A(359)+2*A(966)+A(967)& - &+A(968)+A(969)+A(970)+A(971)+A(972)+A(973)+A(974)+2*A(975)+A(976)+A(977)+A(980)+A(981) - P_VAR(332) = A(339)+A(340) - P_VAR(333) = A(273)+A(277)+A(278)+A(281)+A(282)+A(299)+A(795) - P_VAR(334) = A(883)+A(985) - P_VAR(335) = A(13)+A(22)+A(26)+A(38)+A(40)+A(41)+A(42)+2*A(43)+A(44)+A(46)+A(49)+A(54)+A(55)+A(56)+A(58)+A(60)+A(63)& - &+A(65)+A(68)+2*A(73)+A(76)+0.942*A(78)+A(80)+A(82)+A(85)+A(87)+A(90)+2*A(92)+A(93)+2*A(95)+A(96)+0.928& - &*A(97)+A(98)+2*A(100)+A(107)+A(108)+A(109)+0.93*A(123)+A(125)+A(126)+A(127)+A(133)+A(135)+A(139)+A(156)& - &+A(157)+A(159)+A(160)+A(187)+A(188)+A(189)+2*A(196)+A(198)+A(209)+A(215)+A(241)+A(242)+A(281)+A(300)& - &+A(337)+2*A(338)+A(341)+A(348)+A(356)+A(360)+A(361)+A(363)+A(370)+0.75*A(385)+A(386)+0.5*A(388)+A(392)& - &+A(394)+A(395)+0.84*A(399)+A(400)+0.5*A(403)+0.75*A(405)+A(406)+0.5*A(407)+A(412)+A(414)+0.5*A(416)+0.75& - &*A(418)+A(419)+0.5*A(426)+0.5*A(427)+A(428)+0.84*A(429)+A(431)+A(434)+0.5*A(435)+A(437)+A(439)+A(440)& - &+A(445)+A(446)+0.5*A(449)+0.3*A(450)+0.3*A(451)+1.15*A(452)+0.5*A(455)+A(468)+2*A(469)+0.5*A(473)+A(475)& - &+A(476)+2*A(477)+0.5*A(479)+A(480)+A(489)+A(490)+A(491)+A(492)+A(517)+A(519)+A(521)+A(523)+A(540)+A(544)& - &+A(548)+A(559)+A(563)+A(568)+A(570)+A(572)+A(575)+A(577)+A(578)+A(580)+0.459*A(585)+1.728*A(586)+A(590)& - &+A(595)+A(598)+A(601)+0.527*A(604)+1.86*A(606)+0.563*A(607)+0.611*A(610)+A(611)+2*A(613)+A(614)+2*A(615)& - &+A(617)+A(625)+0.058*A(631)+1.065*A(633)+A(635)+A(637)+A(639)+0.565*A(641)+1.11*A(642)+0.09*A(643)+0.31& - &*A(650)+A(655)+A(658)+A(668)+A(674)+A(676)+0.5*A(678)+2*A(679)+A(680)+2*A(681)+0.7*A(682)+A(683)+A(690)& - &+0.022*A(691)+A(692)+A(703)+0.89*A(709)+A(711)+0.995*A(716)+A(717)+A(721)+A(728)+A(729)+A(733)+A(736)& - &+A(739)+A(740)+A(751)+A(754)+A(755)+A(757)+A(758)+0.5*A(763)+A(764)+A(779)+A(890)+A(893)+A(894)+A(896)+0.7& - &*A(899)+A(900)+A(917)+A(926)+A(927)+A(928)+A(929)+A(935)+A(936)+A(947)+A(949)+A(971)+A(983)+A(990)+A(991)& - &+A(992)+A(993)+A(995)+A(997)+A(998)+A(999)+A(1000)+A(1001)+A(1005)+0.7*A(1013)+A(1014)+A(1024)+A(1025)& - &+A(1026)+A(1027)+A(1028)+A(1030)+A(1031)+1.555*A(1032)+0.3*A(1038)+A(1039)+A(1040)+A(1041)+0.7*A(1047) - P_VAR(336) = A(18)+A(20)+A(21)+A(25)+A(32)+A(33)+A(34)+A(36)+A(38)+A(41)+A(47)+A(51)+A(57)+A(72)+A(102)+A(103)+A(104)& - &+A(105)+A(111)+A(122)+A(206)+A(225)+A(234)+0.02*A(247)+A(279)+A(280)+A(283)+A(286)+A(287)+A(288)+A(289)& - &+A(290)+A(318)+A(353)+A(354)+A(359)+A(701)+A(781)+A(808)+A(809)+A(810)+A(811)+A(813)+A(814)+A(815)+A(816)& - &+A(928) - P_VAR(337) = A(14)+A(17)+A(21)+A(24)+A(26)+2*A(30)+1.74*A(31)+A(34)+A(40)+A(44)+A(47)+A(48)+A(50)+0.05*A(51)+A(58)& + &*A(772)+A(895)+A(896)+0.88*A(904)+A(905)+0.7*A(908)+A(909)+A(910)+A(912)+A(914)+2*A(915)+2*A(916)+A(917)& + &+A(918)+A(919)+A(920)+A(922)+A(993)+A(997)+A(1010)+A(1013)+0.5*A(1014)+0.571*A(1016)+0.875*A(1017)+0.77& + &*A(1018)+A(1021)+A(1022)+0.888*A(1027)+0.818*A(1028)+A(1029)+A(1030)+0.55*A(1031)+0.55*A(1034)+0.839& + &*A(1038)+A(1040)+0.163*A(1041)+A(1044)+A(1048)+A(1050)+A(1053)+A(1056)+A(1065) + P_VAR(336) = A(341)+A(343)+A(348)+A(350)+A(354)+0.008*A(358)+A(986) + P_VAR(337) = A(890)+A(992) + P_VAR(338) = A(49)+1.22*A(230)+A(240)+A(248)+2*A(335)+A(700)+A(774)+A(776)+A(778)+A(892)+A(898)+A(902)+A(977) + P_VAR(339) = A(2) + P_VAR(340) = 0.12*A(253)+A(276)+A(291)+A(292)+A(294)+A(295)+A(296)+2*A(315)+A(316)+A(317)+A(318)+A(320)+A(321)+A(324)& + &+A(325)+A(326)+A(327)+A(328)+A(329)+A(330)+A(331)+A(332)+A(812) + P_VAR(341) = A(14)+A(17)+A(21)+A(24)+A(26)+2*A(30)+1.74*A(31)+A(34)+A(40)+A(44)+A(47)+A(48)+A(50)+0.05*A(51)+A(58)& &+A(60)+A(63)+A(65)+0.75*A(68)+0.513*A(78)+A(80)+0.425*A(81)+A(82)+A(83)+0.25*A(84)+A(85)+0.27*A(90)+0.27& &*A(93)+A(98)+A(112)+A(113)+A(129)+A(130)+0.64*A(132)+0.5*A(133)+0.64*A(134)+0.5*A(135)+0.3*A(136)+0.5& &*A(137)+A(138)+0.5*A(139)+A(140)+A(141)+1.2*A(142)+1.2*A(143)+0.28*A(150)+0.773*A(151)+0.2*A(153)+A(157)& @@ -6707,34 +6735,17 @@ SUBROUTINE Fun_SPLITF ( V, F, RCT, P_VAR, D_VAR, Aout ) &*A(704)+0.18*A(705)+0.03*A(707)+A(709)+A(711)+0.364*A(714)+0.6*A(718)+A(719)+A(720)+0.54*A(724)+0.19& &*A(725)+0.15*A(726)+A(727)+A(728)+A(729)+2*A(730)+A(731)+A(733)+0.8*A(741)+0.727*A(743)+A(746)+A(765)& &+A(766)+0.33*A(767)+0.1*A(768)+0.2*A(769)+0.33*A(770)+0.1*A(771)+0.2*A(772)+A(773)+A(775)+A(777)+A(779)& - &+A(887)+A(888)+A(893)+A(897)+0.3*A(901)+A(902)+A(903)+1.73*A(907)+2*A(908)+A(911)+A(913)+A(915)+A(916)& - &+A(917)+A(918)+A(919)+A(920)+A(921)+A(922)+A(923)+A(924)+A(925)+0.27*A(926)+0.326*A(927)+A(928)+0.27& - &*A(929)+A(982)+A(989)+A(990)+A(998)+A(999)+A(1000)+A(1001)+A(1003)+A(1004)+A(1006)+1.5*A(1007)+0.47& - &*A(1008)+0.571*A(1009)+0.125*A(1010)+A(1011)+0.29*A(1013)+A(1014)+A(1015)+A(1016)+A(1017)+A(1018)+A(1019)& - &+0.112*A(1020)+0.182*A(1021)+A(1022)+A(1023)+0.45*A(1024)+A(1025)+A(1026)+0.45*A(1027)+0.33*A(1028)+0.159& - &*A(1029)+0.161*A(1031)+0.228*A(1032)+1.5*A(1033)+A(1034)+0.75*A(1035)+A(1036)+1.454*A(1037)+0.7*A(1038)& - &+0.7*A(1039)+A(1041)+A(1043)+A(1046)+A(1048)+A(1049)+A(1053)+A(1054)+A(1057)+A(1058) - P_VAR(338) = 0.22*A(253)+0.75*A(255)+0.79*A(256)+0.46*A(257)+0.56*A(261)+0.9*A(262)+0.86*A(263)+0.34*A(264)+0.69& - &*A(266)+0.65*A(267)+0.79*A(268)+0.8*A(269)+0.85*A(270)+0.86*A(271)+A(280)+A(293)+A(297)+2*A(308)+0.1& - &*A(309)+A(313)+A(319)+A(322)+A(323)+A(945)+A(949) - P_VAR(339) = 0.12*A(253)+A(276)+A(291)+A(292)+A(294)+A(295)+A(296)+2*A(315)+A(316)+A(317)+A(318)+A(320)+A(321)+A(324)& - &+A(325)+A(326)+A(327)+A(328)+A(329)+A(330)+A(331)+A(332)+A(812) - P_VAR(340) = 0.66*A(253)+0.75*A(255)+2.37*A(256)+0.35*A(257)+0.19*A(261)+1.8*A(262)+0.86*A(263)+0.31*A(264)+0.69& - &*A(266)+0.79*A(268)+1.9*A(269)+0.95*A(270)+A(273)+A(275)+A(279)+A(283)+2*A(284)+3*A(285)+3*A(286)+A(287)+2& - &*A(288)+A(289)+2*A(290)+A(298)+A(300)+A(303)+A(304)+A(306)+2*A(316)+3*A(317)+0.249*A(349)+A(940)+2*A(941)& - &+A(942)+2*A(943)+A(944)+A(946)+A(947)+A(948)+A(950)+3*A(951)+4*A(952)+3*A(953)+2*A(954)+3*A(955)+2*A(956)& - &+A(957)+2*A(958)+2*A(959)+A(960)+A(961)+A(963)+A(965)+A(976)+A(981) - P_VAR(341) = 0.15*A(128)+0.15*A(148)+0.15*A(158)+A(232)+0.15*A(391)+0.15*A(436)+0.13*A(671)+0.13*A(678)+0.13*A(695)& - &+0.15*A(737)+0.15*A(750) + &+A(894)+A(895)+A(900)+A(904)+0.3*A(908)+A(909)+A(910)+1.73*A(914)+2*A(915)+A(918)+A(920)+A(922)+A(923)& + &+A(924)+A(925)+A(926)+A(927)+A(928)+A(929)+A(930)+A(931)+A(932)+0.27*A(933)+0.326*A(934)+A(935)+0.27& + &*A(936)+A(989)+A(996)+A(997)+A(1005)+A(1006)+A(1007)+A(1008)+A(1010)+A(1011)+A(1013)+1.5*A(1014)+0.47& + &*A(1015)+0.571*A(1016)+0.125*A(1017)+A(1018)+0.29*A(1020)+A(1021)+A(1022)+A(1023)+A(1024)+A(1025)+A(1026)& + &+0.112*A(1027)+0.182*A(1028)+A(1029)+A(1030)+0.45*A(1031)+A(1032)+A(1033)+0.45*A(1034)+0.33*A(1035)+0.159& + &*A(1036)+0.161*A(1038)+0.228*A(1039)+1.5*A(1040)+A(1041)+0.75*A(1042)+A(1043)+1.454*A(1044)+0.7*A(1045)& + &+0.7*A(1046)+A(1048)+A(1050)+A(1053)+A(1055)+A(1056)+A(1060)+A(1061)+A(1064)+A(1065) P_VAR(342) = A(206)+2*A(207)+A(209)+A(211)+A(213)+A(214)+3*A(223)+2*A(224)+A(225)+A(251)+0.6*A(254)+0.56*A(258)+0.95& - &*A(259)+1.4*A(260)+0.34*A(264)+0.75*A(272)+A(310)+A(311)+A(343)+A(344)+2*A(931)+A(932)+A(933)+A(934)& - &+A(936)+3*A(937)+2*A(938)+A(939)+A(942)+A(962)+A(963)+2*A(964)+A(977)+A(980) - P_VAR(343) = A(18)+A(227)+A(228)+A(237)+0.02*A(247)+A(248)+A(249)+A(250)+0.12*A(253)+0.2*A(254)+0.25*A(255)+0.21& - &*A(256)+0.1*A(257)+0.05*A(259)+0.3*A(260)+0.25*A(261)+0.1*A(262)+0.14*A(263)+0.35*A(264)+0.55*A(265)+0.31& - &*A(266)+0.35*A(267)+0.21*A(268)+0.1*A(269)+0.1*A(270)+0.14*A(271)+0.25*A(272)+A(882)+2*A(884)+A(885)& - &+A(894)+A(932)+A(944)+A(945)+A(968)+A(988) - P_VAR(344) = A(5) - P_VAR(345) = A(15)+A(22)+0.3*A(32)+0.3*A(33)+A(42)+0.5*A(71)+0.25*A(84)+0.15*A(118)+0.15*A(119)+0.44*A(128)+0.44& + &*A(259)+1.4*A(260)+0.34*A(264)+0.75*A(272)+A(310)+A(311)+A(343)+A(344)+2*A(938)+A(939)+A(940)+A(941)& + &+A(943)+3*A(944)+2*A(945)+A(946)+A(949)+A(969)+A(970)+2*A(971)+A(984)+A(987) + P_VAR(343) = A(15)+A(22)+0.3*A(32)+0.3*A(33)+A(42)+0.5*A(71)+0.25*A(84)+0.15*A(118)+0.15*A(119)+0.44*A(128)+0.44& &*A(148)+0.36*A(150)+0.227*A(151)+A(152)+0.44*A(158)+A(168)+0.791*A(169)+0.64*A(170)+0.64*A(171)+0.791& &*A(172)+0.79*A(173)+0.79*A(174)+0.791*A(176)+A(177)+0.22*A(178)+A(212)+A(213)+2*A(226)+A(229)+0.75*A(231)& &+A(236)+A(244)+A(246)+1.788*A(247)+A(252)+0.66*A(253)+0.6*A(254)+0.05*A(261)+A(297)+0.865*A(379)+0.8& @@ -6749,27 +6760,63 @@ SUBROUTINE Fun_SPLITF ( V, F, RCT, P_VAR, D_VAR, Aout ) &+A(659)+0.285*A(661)+A(662)+A(664)+0.665*A(667)+0.59*A(670)+0.5*A(671)+0.585*A(672)+A(673)+0.5*A(678)+0.7& &*A(685)+0.5*A(686)+0.444*A(687)+A(688)+A(689)+0.3*A(691)+0.5*A(694)+0.5*A(695)+A(696)+A(697)+A(698)+0.18& &*A(704)+A(710)+0.636*A(714)+A(723)+A(727)+0.44*A(737)+A(746)+0.2*A(750)+0.25*A(767)+0.1*A(768)+0.25*A(770)& - &+0.1*A(771)+2*A(886)+A(887)+A(890)+A(891)+A(892)+0.07*A(907)+A(917)+A(918)+A(919)+A(920)+A(921)+A(922)& - &+A(923)+A(924)+A(925)+A(930)+A(933)+A(950)+A(967)+A(984)+2*A(987)+A(989)+2*A(1002)+A(1003)+A(1008)+A(1009)& - &+1.75*A(1010)+A(1011)+0.75*A(1012)+0.01*A(1013)+A(1015)+A(1016)+A(1017)+A(1018)+A(1019)+1.662*A(1020)& - &+1.637*A(1021)+A(1022)+A(1023)+0.55*A(1024)+0.55*A(1027)+0.67*A(1028)+A(1029)+0.645*A(1031)+0.5*A(1033)& - &+A(1034)+1.25*A(1035)+A(1036)+0.546*A(1037)+A(1038)+0.3*A(1039)+A(1040)+A(1042)+A(1044)+A(1048)+A(1050)& - &+A(1051)+A(1052)+A(1053)+A(1054)+A(1055)+A(1056)+A(1057) - P_VAR(346) = A(49)+1.22*A(230)+A(240)+A(248)+2*A(335)+A(700)+A(774)+A(776)+A(778)+A(885)+A(891)+A(895)+A(970) + &+0.1*A(771)+2*A(893)+A(894)+A(897)+A(898)+A(899)+0.07*A(914)+A(924)+A(925)+A(926)+A(927)+A(928)+A(929)& + &+A(930)+A(931)+A(932)+A(937)+A(940)+A(957)+A(974)+A(991)+2*A(994)+A(996)+2*A(1009)+A(1010)+A(1015)+A(1016)& + &+1.75*A(1017)+A(1018)+0.75*A(1019)+0.01*A(1020)+A(1022)+A(1023)+A(1024)+A(1025)+A(1026)+1.662*A(1027)& + &+1.637*A(1028)+A(1029)+A(1030)+0.55*A(1031)+0.55*A(1034)+0.67*A(1035)+A(1036)+0.645*A(1038)+0.5*A(1040)& + &+A(1041)+1.25*A(1042)+A(1043)+0.546*A(1044)+A(1045)+0.3*A(1046)+A(1047)+A(1049)+A(1051)+A(1055)+A(1057)& + &+A(1058)+A(1059)+A(1060)+A(1061)+A(1062)+A(1063)+A(1064) + P_VAR(344) = 0.22*A(253)+0.75*A(255)+0.79*A(256)+0.46*A(257)+0.56*A(261)+0.9*A(262)+0.86*A(263)+0.34*A(264)+0.69& + &*A(266)+0.65*A(267)+0.79*A(268)+0.8*A(269)+0.85*A(270)+0.86*A(271)+A(280)+A(293)+A(297)+2*A(308)+0.1& + &*A(309)+A(313)+A(319)+A(322)+A(323)+A(952)+A(956) + P_VAR(345) = A(13)+A(22)+A(26)+A(38)+A(40)+A(41)+A(42)+2*A(43)+A(44)+A(46)+A(49)+A(54)+A(55)+A(56)+A(58)+A(60)+A(63)& + &+A(65)+A(68)+2*A(73)+A(76)+0.942*A(78)+A(80)+A(82)+A(85)+A(87)+A(90)+2*A(92)+A(93)+2*A(95)+A(96)+0.928& + &*A(97)+A(98)+2*A(100)+A(107)+A(108)+A(109)+0.93*A(123)+A(125)+A(126)+A(127)+A(133)+A(135)+A(139)+A(156)& + &+A(157)+A(159)+A(160)+A(187)+A(188)+A(189)+2*A(196)+A(198)+A(209)+A(215)+A(241)+A(242)+A(281)+A(300)& + &+A(337)+2*A(338)+A(341)+A(348)+A(356)+A(360)+A(361)+A(363)+A(370)+0.75*A(385)+A(386)+0.5*A(388)+A(392)& + &+A(394)+A(395)+0.84*A(399)+A(400)+0.5*A(403)+0.75*A(405)+A(406)+0.5*A(407)+A(412)+A(414)+0.5*A(416)+0.75& + &*A(418)+A(419)+0.5*A(426)+0.5*A(427)+A(428)+0.84*A(429)+A(431)+A(434)+0.5*A(435)+A(437)+A(439)+A(440)& + &+A(445)+A(446)+0.5*A(449)+0.3*A(450)+0.3*A(451)+1.15*A(452)+0.5*A(455)+A(468)+2*A(469)+0.5*A(473)+A(475)& + &+A(476)+2*A(477)+0.5*A(479)+A(480)+A(489)+A(490)+A(491)+A(492)+A(517)+A(519)+A(521)+A(523)+A(540)+A(544)& + &+A(548)+A(559)+A(563)+A(568)+A(570)+A(572)+A(575)+A(577)+A(578)+A(580)+0.459*A(585)+1.728*A(586)+A(590)& + &+A(595)+A(598)+A(601)+0.527*A(604)+1.86*A(606)+0.563*A(607)+0.611*A(610)+A(611)+2*A(613)+A(614)+2*A(615)& + &+A(617)+A(625)+0.058*A(631)+1.065*A(633)+A(635)+A(637)+A(639)+0.565*A(641)+1.11*A(642)+0.09*A(643)+0.31& + &*A(650)+A(655)+A(658)+A(668)+A(674)+A(676)+0.5*A(678)+2*A(679)+A(680)+2*A(681)+0.7*A(682)+A(683)+A(690)& + &+0.022*A(691)+A(692)+A(703)+0.89*A(709)+A(711)+0.995*A(716)+A(717)+A(721)+A(728)+A(729)+A(733)+A(736)& + &+A(739)+A(740)+A(751)+A(754)+A(755)+A(757)+A(758)+0.5*A(763)+A(764)+A(779)+A(897)+A(900)+A(901)+A(903)+0.7& + &*A(906)+A(907)+A(924)+A(933)+A(934)+A(935)+A(936)+A(942)+A(943)+A(954)+A(956)+A(978)+A(990)+A(997)+A(998)& + &+A(999)+A(1000)+A(1002)+A(1004)+A(1005)+A(1006)+A(1007)+A(1008)+A(1012)+0.7*A(1020)+A(1021)+A(1031)& + &+A(1032)+A(1033)+A(1034)+A(1035)+A(1037)+A(1038)+1.555*A(1039)+0.3*A(1045)+A(1046)+A(1047)+A(1048)+0.7& + &*A(1054) + P_VAR(346) = A(5) P_VAR(347) = A(203)+A(212)+A(215)+0.2*A(254)+0.44*A(258)+0.95*A(259)+0.7*A(260)+0.31*A(264)+0.45*A(265)+0.75*A(272)& - &+A(935) - P_VAR(348) = A(11)+A(199)+0.75*A(200)+A(201)+A(238)+A(239)+A(986)+A(987) + &+A(942) + P_VAR(348) = A(16)+A(36)+A(46)+A(88)+A(210)+A(243)+A(282)+A(313)+A(314)+A(342)+A(364)+A(371)+A(488)+0.69*A(650)+A(684)& + &+A(756)+A(899)+A(903)+0.3*A(906)+A(941)+A(955)+A(979)+A(989)+0.3*A(1054) P_VAR(349) = A(823) P_VAR(350) = A(824) - P_VAR(351) = A(16)+A(36)+A(46)+A(88)+A(210)+A(243)+A(282)+A(313)+A(314)+A(342)+A(364)+A(371)+A(488)+0.69*A(650)+A(684)& - &+A(756)+A(892)+A(896)+0.3*A(899)+A(934)+A(948)+A(972)+A(982)+0.3*A(1047) - P_VAR(352) = A(205)+A(216)+A(217)+A(218)+A(219)+A(220)+0.2*A(254)+A(333)+A(819) - P_VAR(353) = A(2) + P_VAR(351) = A(18)+A(227)+A(228)+A(237)+0.02*A(247)+A(248)+A(249)+A(250)+0.12*A(253)+0.2*A(254)+0.25*A(255)+0.21& + &*A(256)+0.1*A(257)+0.05*A(259)+0.3*A(260)+0.25*A(261)+0.1*A(262)+0.14*A(263)+0.35*A(264)+0.55*A(265)+0.31& + &*A(266)+0.35*A(267)+0.21*A(268)+0.1*A(269)+0.1*A(270)+0.14*A(271)+0.25*A(272)+A(889)+2*A(891)+A(892)& + &+A(901)+A(939)+A(951)+A(952)+A(975)+A(995) + P_VAR(352) = 0.66*A(253)+0.75*A(255)+2.37*A(256)+0.35*A(257)+0.19*A(261)+1.8*A(262)+0.86*A(263)+0.31*A(264)+0.69& + &*A(266)+0.79*A(268)+1.9*A(269)+0.95*A(270)+A(273)+A(275)+A(279)+A(283)+2*A(284)+3*A(285)+3*A(286)+A(287)+2& + &*A(288)+A(289)+2*A(290)+A(298)+A(300)+A(303)+A(304)+A(306)+2*A(316)+3*A(317)+0.249*A(349)+A(947)+2*A(948)& + &+A(949)+2*A(950)+A(951)+A(953)+A(954)+A(955)+A(957)+3*A(958)+4*A(959)+3*A(960)+2*A(961)+3*A(962)+2*A(963)& + &+A(964)+2*A(965)+2*A(966)+A(967)+A(968)+A(970)+A(972)+A(983)+A(988) + P_VAR(353) = A(18)+A(20)+A(21)+A(25)+A(32)+A(33)+A(34)+A(36)+A(38)+A(41)+A(47)+A(51)+A(57)+A(72)+A(102)+A(103)+A(104)& + &+A(105)+A(111)+A(122)+A(206)+A(225)+A(234)+0.02*A(247)+A(279)+A(280)+A(283)+A(286)+A(287)+A(288)+A(289)& + &+A(290)+A(318)+A(353)+A(354)+A(359)+A(701)+A(781)+A(808)+A(809)+A(810)+A(811)+A(813)+A(814)+A(815)+A(816)& + &+A(935) + P_VAR(354) = A(205)+A(216)+A(217)+A(218)+A(219)+A(220)+0.2*A(254)+A(333)+A(819) + P_VAR(355) = A(11)+A(199)+0.75*A(200)+A(201)+A(238)+A(239)+A(887)+A(993)+A(994) + P_VAR(356) = 0.15*A(128)+0.15*A(148)+0.15*A(158)+A(232)+0.15*A(391)+0.15*A(436)+0.13*A(671)+0.13*A(678)+0.13*A(695)& + &+0.15*A(737)+0.15*A(750) ! Destruction function - D_VAR(1) = RCT(975) - D_VAR(2) = RCT(977) - D_VAR(3) = RCT(976) + D_VAR(1) = RCT(982) + D_VAR(2) = RCT(984) + D_VAR(3) = RCT(983) D_VAR(4) = 0 D_VAR(5) = 0 D_VAR(6) = 0 @@ -6779,21 +6826,21 @@ SUBROUTINE Fun_SPLITF ( V, F, RCT, P_VAR, D_VAR, Aout ) D_VAR(10) = 0 D_VAR(11) = 0 D_VAR(12) = 0 - D_VAR(13) = RCT(773)*V(337)+RCT(774)*V(346) + D_VAR(13) = RCT(773)*V(341)+RCT(774)*V(338) D_VAR(14) = 0 D_VAR(15) = 0 D_VAR(16) = 0 D_VAR(17) = 0 - D_VAR(18) = RCT(699)*V(337)+RCT(700)*V(346) - D_VAR(19) = RCT(698)*V(345) + D_VAR(18) = RCT(699)*V(341)+RCT(700)*V(338) + D_VAR(19) = RCT(698)*V(343) D_VAR(20) = 0 D_VAR(21) = 0 - D_VAR(22) = RCT(775)*V(337)+RCT(776)*V(346) + D_VAR(22) = RCT(775)*V(341)+RCT(776)*V(338) D_VAR(23) = 0 - D_VAR(24) = RCT(177)*V(345)+RCT(861) + D_VAR(24) = RCT(177)*V(343)+RCT(861) D_VAR(25) = 0 D_VAR(26) = 0 - D_VAR(27) = RCT(777)*V(337)+RCT(778)*V(346) + D_VAR(27) = RCT(777)*V(341)+RCT(778)*V(338) D_VAR(28) = 0 D_VAR(29) = 0 D_VAR(30) = 0 @@ -6807,456 +6854,460 @@ SUBROUTINE Fun_SPLITF ( V, F, RCT, P_VAR, D_VAR, Aout ) D_VAR(38) = 0 D_VAR(39) = 0 D_VAR(40) = 0 - D_VAR(41) = RCT(780)*V(345) - D_VAR(42) = RCT(347)+RCT(836)+RCT(837)+RCT(838)+RCT(978) - D_VAR(43) = RCT(286)*V(345)+RCT(951) - D_VAR(44) = RCT(358)+RCT(830)+RCT(831)+RCT(832)+RCT(973) - D_VAR(45) = RCT(487) - D_VAR(46) = RCT(256)*V(334)+RCT(952) - D_VAR(47) = RCT(262)*V(334)+RCT(953) - D_VAR(48) = RCT(263)*V(334)+RCT(954) - D_VAR(49) = RCT(269)*V(334)+RCT(955) - D_VAR(50) = RCT(270)*V(334)+RCT(956) - D_VAR(51) = RCT(271)*V(334)+RCT(957) - D_VAR(52) = RCT(359)*V(345)+RCT(974) - D_VAR(53) = RCT(265)*V(334)+RCT(962) - D_VAR(54) = RCT(272)*V(334)+RCT(964) - D_VAR(55) = RCT(833)+RCT(834)+RCT(835)+RCT(979) - D_VAR(56) = RCT(394) - D_VAR(57) = RCT(439) - D_VAR(58) = RCT(732)*V(345) - D_VAR(59) = RCT(936) - D_VAR(60) = RCT(714)*V(345) - D_VAR(61) = RCT(264)*V(334)+RCT(963) - D_VAR(62) = RCT(335)*2*V(62)+RCT(970) - D_VAR(63) = RCT(230)*V(334)+RCT(985) - D_VAR(64) = RCT(996)+RCT(997) - D_VAR(65) = RCT(994)+RCT(995) - D_VAR(66) = RCT(397)*V(345)+RCT(1051) - D_VAR(67) = RCT(248)*F(3)+RCT(249)*V(346)+RCT(250)*V(335) - D_VAR(68) = RCT(238)*V(343)+RCT(239)*V(345)+RCT(986) - D_VAR(69) = RCT(66)*V(345)+RCT(67)*V(351) - D_VAR(70) = RCT(721)*V(345) - D_VAR(71) = RCT(753)*V(345)+RCT(1044) - D_VAR(72) = RCT(161)*V(345) - D_VAR(73) = RCT(353)*V(345)+RCT(825)+RCT(826)+RCT(827) - D_VAR(74) = RCT(396)*V(345)+RCT(1050) - D_VAR(75) = RCT(285)*V(345)+RCT(317)*V(340) - D_VAR(76) = RCT(278)*V(345)+RCT(308)+RCT(946) - D_VAR(77) = RCT(980) - D_VAR(78) = RCT(224)*V(345)+RCT(259)*V(334)+RCT(938) - D_VAR(79) = RCT(284)*V(345)+RCT(316)*V(340)+RCT(941) - D_VAR(80) = RCT(198)+RCT(982)+RCT(983) - D_VAR(81) = RCT(223)*V(345)+RCT(260)*V(334)+RCT(937) - D_VAR(82) = RCT(725)*V(345) - D_VAR(83) = RCT(490)*V(345)+RCT(999) - D_VAR(84) = RCT(268)*V(334)+RCT(290)*V(345)+RCT(958) - D_VAR(85) = RCT(266)*V(334)+RCT(288)*V(345)+RCT(959) - D_VAR(86) = RCT(267)*V(334)+RCT(289)*V(345)+RCT(960) - D_VAR(87) = RCT(261)*V(334)+RCT(287)*V(345)+RCT(961) - D_VAR(88) = RCT(694)*V(345)+RCT(1002) - D_VAR(89) = RCT(11)+RCT(12)*V(345)*V(348) - D_VAR(90) = RCT(754)+RCT(755)*V(345) - D_VAR(91) = RCT(491)*V(345)+RCT(1000) - D_VAR(92) = RCT(178)*V(345)+RCT(930) - D_VAR(93) = RCT(489)*V(345)+RCT(998) - D_VAR(94) = RCT(199)*V(345)+RCT(200)*V(345)+RCT(201)*V(351) - D_VAR(95) = RCT(492)*V(345)+RCT(1001) - D_VAR(96) = RCT(345)*V(284)+RCT(346)*2*V(96)+RCT(348)*V(346)+RCT(969) - D_VAR(97) = RCT(173)*V(345)+RCT(921) - D_VAR(98) = RCT(71)*V(345)+RCT(922) - D_VAR(99) = RCT(171)*V(345)+RCT(919) - D_VAR(100) = RCT(172)*V(345)+RCT(920) - D_VAR(101) = RCT(726)*V(345) - D_VAR(102) = RCT(174)*V(345)+RCT(923) - D_VAR(103) = RCT(486) - D_VAR(104) = RCT(981) - D_VAR(105) = RCT(225)*V(345)+RCT(258)*V(334)+RCT(939) - D_VAR(106) = RCT(719)+RCT(720)*F(3) - D_VAR(107) = RCT(685)*V(345)+RCT(868) - D_VAR(108) = RCT(40)+RCT(41)*V(345)+RCT(892)+RCT(893) - D_VAR(109) = RCT(712)*V(341)+RCT(713)*V(345) - D_VAR(110) = RCT(306)+RCT(309)*V(340)+RCT(965) - D_VAR(111) = RCT(387)*V(345)+RCT(1048) - D_VAR(112) = RCT(408)*V(345)+RCT(1053) - D_VAR(113) = RCT(125)+4.51e-12*V(345) - D_VAR(114) = RCT(156)+RCT(160)*V(345) - D_VAR(115) = RCT(693)*V(345)+RCT(867)+RCT(1004) - D_VAR(116) = RCT(711)*V(345)+RCT(928) - D_VAR(117) = RCT(760)*V(345)+RCT(1045) - D_VAR(118) = RCT(170)*V(345)+RCT(918) - D_VAR(119) = RCT(530)*V(345) - D_VAR(120) = RCT(277)*V(345)+RCT(945) - D_VAR(121) = RCT(733)*V(346)+RCT(734)*V(337) - D_VAR(122) = RCT(739)+RCT(740)*V(345) - D_VAR(123) = RCT(176)*V(345)+RCT(924) - D_VAR(124) = RCT(107)+RCT(108)*V(345)+RCT(1047) - D_VAR(125) = RCT(169)*V(345)+RCT(917) - D_VAR(126) = RCT(87)+RCT(88)*V(345)+RCT(900) - D_VAR(127) = RCT(80)*V(345) - D_VAR(128) = RCT(551)*V(345)+RCT(860) - D_VAR(129) = RCT(409)*V(345) - D_VAR(130) = RCT(442)*V(345)+RCT(1056) - D_VAR(131) = RCT(663)*V(345) - D_VAR(132) = RCT(82)*V(346)+RCT(83)*V(337) - D_VAR(133) = RCT(570)*V(346)+RCT(571)*V(337) - D_VAR(134) = RCT(987) - D_VAR(135) = RCT(572)*V(346)+RCT(573)*V(337) - D_VAR(136) = RCT(722)*V(345)+RCT(723)*V(345)+RCT(1042) - D_VAR(137) = RCT(388)*V(345) - D_VAR(138) = RCT(407)*V(345) - D_VAR(139) = RCT(54)+RCT(55)*V(345)+RCT(899) - D_VAR(140) = RCT(75)*V(345)+RCT(76)*V(351)+RCT(77)*V(341) - D_VAR(141) = RCT(61)*V(345)+RCT(62)*V(345)+RCT(220)*V(342)+RCT(327)*V(340)+RCT(328)*V(340) - D_VAR(142) = RCT(89)*V(345)+RCT(101)*V(351)+RCT(331)*V(340) - D_VAR(143) = RCT(724)*V(345) - D_VAR(144) = RCT(527)*V(345)+RCT(1023) - D_VAR(145) = RCT(619)*F(3)+RCT(620) - D_VAR(146) = 7.09e-11*V(345)+RCT(902) - D_VAR(147) = RCT(687)*V(345)+RCT(1037) - D_VAR(148) = RCT(211)*V(345)+RCT(931) - D_VAR(149) = RCT(705)*V(345)+RCT(706)*V(351) - D_VAR(150) = RCT(526)*V(345)+RCT(1022) - D_VAR(151) = RCT(552)*V(345)+RCT(553)*V(345)+RCT(858) - D_VAR(152) = RCT(554)*V(345)+RCT(555)*V(345)+RCT(859) - D_VAR(153) = RCT(666)*V(345) - D_VAR(154) = RCT(488)*V(345)+RCT(866)+RCT(993) - D_VAR(155) = RCT(175)*V(345)+RCT(925) - D_VAR(156) = RCT(140)*V(345)+RCT(325)*V(340) - D_VAR(157) = RCT(942) - D_VAR(158) = RCT(743)*V(345)+RCT(744)*V(351) - D_VAR(159) = RCT(672)*V(345)+RCT(1012) - D_VAR(160) = RCT(402)*V(345)+RCT(1052) - D_VAR(161) = RCT(415)*V(345)+RCT(1054) - D_VAR(162) = RCT(416)*V(345) - D_VAR(163) = RCT(433)*V(345)+RCT(434)*V(351) - D_VAR(164) = RCT(32)*V(345)+RCT(320)*V(340)+RCT(887) - D_VAR(165) = RCT(73)*V(346)+RCT(74)*V(337) - D_VAR(166) = RCT(4)*V(341)*V(348)+RCT(5)*V(339)+RCT(6)*V(327) - D_VAR(167) = RCT(377)*V(351)+RCT(378)*V(345)+RCT(379)*V(341) - D_VAR(168) = RCT(576)*V(345)+RCT(577)*V(345)+RCT(871)+RCT(1026) - D_VAR(169) = RCT(441)*V(345)+RCT(1055) - D_VAR(170) = RCT(339)*V(351)+RCT(352)*V(345)+RCT(966) - D_VAR(171) = RCT(655)*V(346)+RCT(656)*V(337)+RCT(657)*V(335) - D_VAR(172) = RCT(658)*V(346)+RCT(659)*V(337)+RCT(660)*V(335) - D_VAR(173) = RCT(701)*V(345) - D_VAR(174) = RCT(688)*V(345)+RCT(1035) - D_VAR(175) = RCT(574)*V(345)+RCT(575)*V(345)+RCT(870)+RCT(1025) - D_VAR(176) = RCT(403)*V(345) - D_VAR(177) = RCT(435)*V(345) - D_VAR(178) = RCT(68)*V(346)+RCT(69)*V(346)+RCT(70)*V(337) - D_VAR(179) = RCT(1)*V(341)*V(348)+RCT(2)*V(339)+RCT(3)*V(327) - D_VAR(180) = RCT(642)*V(346)+RCT(643)*V(337) - D_VAR(181) = RCT(257)*V(334)+RCT(283)*V(345)+RCT(315)*V(340)+RCT(940) - D_VAR(182) = RCT(639)*V(346)+RCT(640)*V(337) - D_VAR(183) = RCT(57)*V(345)+RCT(179)*V(351)+RCT(219)*V(342)+RCT(321)*V(340) - D_VAR(184) = RCT(683)+RCT(684)*V(345) - D_VAR(185) = RCT(662)*V(345)+RCT(1009) - D_VAR(186) = RCT(622)*V(345)+RCT(624)*V(345)+RCT(625)*V(345)+RCT(627)*V(345)+RCT(628)*V(345)+RCT(874)+RCT(1029)& - &+RCT(1030) - D_VAR(187) = RCT(531)*V(345)+RCT(532)*V(345)+RCT(535)*V(345)+RCT(1016) - D_VAR(188) = RCT(141)*V(345) - D_VAR(189) = RCT(709)*V(346)+RCT(710)*V(337) - D_VAR(190) = RCT(588)+RCT(589)*V(337)+RCT(590)*V(346)+RCT(591)*V(346) - D_VAR(191) = RCT(375)*V(351)+RCT(382)*V(345)+RCT(383)*V(341) - D_VAR(192) = RCT(533)*V(345)+RCT(534)*V(345)+RCT(536)*V(345)+RCT(1017) - D_VAR(193) = RCT(450)*V(345)+RCT(451)*V(341)+RCT(452)*V(351) - D_VAR(194) = RCT(661)*V(345)+RCT(1010) - D_VAR(195) = RCT(741)*V(345)+RCT(742)*V(351) - D_VAR(196) = RCT(72)*V(345)+RCT(927) - D_VAR(197) = RCT(84)*V(337)+RCT(85)*V(346)+RCT(86)*V(335) - D_VAR(198) = RCT(689)*V(345)+RCT(1036) - D_VAR(199) = RCT(538)*V(345)+RCT(1019) - D_VAR(200) = RCT(707)*V(345)+RCT(708)*V(351) - D_VAR(201) = RCT(770)*V(345)+RCT(771)*V(341)+RCT(772) - D_VAR(202) = RCT(745)*V(345)+RCT(746)*V(341)+RCT(747)*V(351) - D_VAR(203) = RCT(761)*V(341)+RCT(762)*V(335) - D_VAR(204) = RCT(748)*V(345)+RCT(749)*V(351)+RCT(1043) - D_VAR(205) = RCT(584)+RCT(585)*V(337)+RCT(586)*V(346)+RCT(587)*V(346) - D_VAR(206) = RCT(592)+RCT(594)*V(337)+RCT(595)*V(346)+RCT(596)*V(346) - D_VAR(207) = RCT(593)+RCT(597)*V(337)+RCT(598)*V(346)+RCT(599)*V(346) - D_VAR(208) = RCT(665)*V(345)+RCT(1006) - D_VAR(209) = RCT(537)*V(345)+RCT(1018) - D_VAR(210) = RCT(696)*V(345)+RCT(697)*V(345)+RCT(1003) - D_VAR(211) = RCT(426)*V(345)+RCT(427)*V(341)+RCT(428)*V(351) - D_VAR(212) = RCT(78)*V(346)+RCT(79)*V(337) - D_VAR(213) = RCT(155)*V(335)+RCT(157)*V(346)+RCT(158)*V(337)+RCT(159)*V(351) - D_VAR(214) = RCT(46)+RCT(786)*V(336)+RCT(787)*V(339)+RCT(788)+RCT(789)*V(353)+RCT(790)*V(344)+RCT(896) - D_VAR(215) = RCT(529)*V(345)+RCT(873) - D_VAR(216) = RCT(654)*V(345)+RCT(879)+RCT(1015) - D_VAR(217) = RCT(245)*F(3)+RCT(246)*V(341)+RCT(247)*V(337) - D_VAR(218) = RCT(210)*V(342)+RCT(793)*V(336)+RCT(794)*V(339)+RCT(934)+RCT(935) - D_VAR(219) = RCT(376)*V(351)+RCT(380)*V(345)+RCT(381)*V(341) - D_VAR(220) = RCT(702)*V(345)+RCT(703)*V(351)+RCT(704)*V(341) - D_VAR(221) = RCT(767)*V(345)+RCT(768)*V(341)+RCT(769) - D_VAR(222) = RCT(621)*V(345)+RCT(623)*V(345)+RCT(626)*V(345)+RCT(875)+RCT(1028) - D_VAR(223) = RCT(539)+RCT(540)*V(346)+RCT(541)*V(346)+RCT(542)*V(337) - D_VAR(224) = RCT(543)+RCT(544)*V(346)+RCT(545)*V(346)+RCT(546)*V(337) - D_VAR(225) = RCT(389)*V(351)+RCT(390)*V(345)+RCT(1049) - D_VAR(226) = RCT(629)+RCT(632)*V(337)+RCT(635)*V(346)+RCT(636)*V(346) - D_VAR(227) = RCT(664)*V(345)+RCT(1007) - D_VAR(228) = RCT(25)*V(345)+RCT(231)*V(334)+RCT(291)*V(340) - D_VAR(229) = RCT(447)*V(345)+RCT(448)*V(341)+RCT(449)*V(351)+RCT(989)+RCT(1057) - D_VAR(230) = RCT(524)*V(345)+RCT(1020) - D_VAR(231) = RCT(525)*V(345)+RCT(1021) - D_VAR(232) = RCT(547)+RCT(548)*V(346)+RCT(549)*V(346)+RCT(550)*V(337) - D_VAR(233) = RCT(81)*V(345)+RCT(901) - D_VAR(234) = RCT(715)*V(337)+RCT(716)*V(346)+RCT(717)*V(351)+RCT(718)*V(328) - D_VAR(235) = RCT(750)*V(337)+RCT(751)*V(346)+RCT(752)*V(335)+RCT(766)*V(328) - D_VAR(236) = RCT(756)*V(335)+RCT(757)*V(346)+RCT(758)*V(351)+RCT(759)*V(337)+RCT(765)*V(328) - D_VAR(237) = RCT(423)*V(345)+RCT(424)*V(341)+RCT(425)*V(351) - D_VAR(238) = RCT(528)*V(345) - D_VAR(239) = RCT(38)*V(345)+RCT(891) - D_VAR(240) = RCT(736)*V(346)+RCT(737)*V(337)+RCT(738)*V(335) - D_VAR(241) = RCT(369)*V(329)+RCT(370)*V(346)+RCT(371)*V(335)+RCT(372)*V(348)+RCT(373)*V(336)+RCT(374)*V(336) - D_VAR(242) = RCT(482)*V(345)+RCT(483)*V(341)+RCT(484)*V(351)+RCT(865)+RCT(992) - D_VAR(243) = RCT(566)*V(337)+RCT(567)*V(346)+RCT(568)*V(346)+RCT(569) - D_VAR(244) = RCT(33)*V(345)+RCT(984) - D_VAR(245) = RCT(255)*V(334)+RCT(273)*V(345)+RCT(943) - D_VAR(246) = RCT(124)*V(335)+RCT(127)*V(346)+RCT(128)*V(337) - D_VAR(247) = RCT(361)*V(345)+RCT(1005) - D_VAR(248) = RCT(653)*V(345)+RCT(880)+RCT(1014) - D_VAR(249) = RCT(92)*V(346)+RCT(117)*V(337)+RCT(135)*V(328)+RCT(188)*V(324) - D_VAR(250) = RCT(100)*V(346)+RCT(121)*V(337)+RCT(139)*V(328)+RCT(189)*V(324) - D_VAR(251) = RCT(102)*V(345)+RCT(863)+RCT(926) - D_VAR(252) = RCT(337)+RCT(338)*2*V(252)+RCT(839)+RCT(840)+RCT(844)*V(349)+RCT(845)*V(350)+RCT(846)*V(353)+RCT(847)& - &*V(344)+RCT(971) - D_VAR(253) = RCT(670)*V(337)+RCT(673)+RCT(674)*V(346)+RCT(675)*V(346) - D_VAR(254) = RCT(667)*V(337)+RCT(668)*V(346)+RCT(669)*V(346) - D_VAR(255) = RCT(420)*V(345)+RCT(421)*V(341)+RCT(422)*V(351)+RCT(1058) - D_VAR(256) = RCT(481)*V(345)+RCT(485)*V(351)+RCT(864)+RCT(991) - D_VAR(257) = RCT(391)*V(337)+RCT(392)*V(346)+RCT(393)*V(335)+RCT(395)*V(351)+RCT(464)*V(328)+RCT(465)*V(324) - D_VAR(258) = RCT(686)*V(345)+RCT(1033)+RCT(1034) - D_VAR(259) = RCT(671)*V(337)+RCT(676)*V(346)+RCT(677)*V(335) - D_VAR(260) = RCT(65)*V(346)+RCT(113)*V(328)+RCT(147)*V(337)+RCT(192)*V(324) - D_VAR(261) = RCT(360)*V(345)+RCT(692)*V(351)+RCT(990) - D_VAR(262) = RCT(453)*V(345)+RCT(454)*V(341)+RCT(455)*V(351) - D_VAR(263) = RCT(727)*V(337)+RCT(728)*V(346)+RCT(729)*V(351)+RCT(730)*V(328)+RCT(731)*V(324) - D_VAR(264) = RCT(7)*V(348)+RCT(21)*V(345)+RCT(244)*V(343)+RCT(295)*V(340)+RCT(886) - D_VAR(265) = RCT(47)*V(345)+RCT(318)*V(340) - D_VAR(266) = RCT(690)*V(345)+RCT(877)+RCT(1040)+RCT(1041) - D_VAR(267) = RCT(580)*V(345)+RCT(581)*V(345)+RCT(583)*V(345)+RCT(872)+RCT(1027) - D_VAR(268) = RCT(578)*V(345)+RCT(579)*V(345)+RCT(582)*V(345)+RCT(869)+RCT(1024) - D_VAR(269) = RCT(763)*V(345)+RCT(764)*V(351)+RCT(881)+RCT(1046) - D_VAR(270) = RCT(163)*V(345)+RCT(165)*V(351)+RCT(856)+RCT(908)+RCT(909)+RCT(910) - D_VAR(271) = RCT(630)+RCT(631)*V(337)+RCT(633)*V(346)+RCT(634)*V(346) - D_VAR(272) = RCT(429)*V(346)+RCT(430)*V(337)+RCT(431)*V(351)+RCT(432)*V(328) - D_VAR(273) = RCT(410)*V(337)+RCT(411)*V(346)+RCT(412)*V(346)+RCT(413)*V(328)+RCT(414)*V(351) - D_VAR(274) = RCT(436)*V(337)+RCT(437)*V(346)+RCT(438)*V(335)+RCT(440)*V(351)+RCT(466)*V(328)+RCT(467)*V(324) - D_VAR(275) = RCT(404)*V(337)+RCT(405)*V(346)+RCT(406)*V(351)+RCT(458)*V(328)+RCT(459)*V(324) - D_VAR(276) = RCT(330)*V(340)+RCT(493)*V(341)+RCT(494)*V(345)+RCT(495)*V(345)+RCT(496)*V(345)+RCT(497)*V(345)+RCT(603)& - &*V(351) - D_VAR(277) = RCT(384)*V(337)+RCT(385)*V(346)+RCT(386)*V(351)+RCT(456)*V(328)+RCT(457)*V(324) - D_VAR(278) = RCT(398)*V(337)+RCT(399)*V(346)+RCT(400)*V(351)+RCT(401)*V(328) - D_VAR(279) = RCT(103)*V(345)+RCT(929) - D_VAR(280) = RCT(468)*V(346)+RCT(470)*V(337)+RCT(472)*V(328)+RCT(474)*V(324)+RCT(476)*V(351)+RCT(478)*2*V(280)& - &+RCT(479)*V(289) - D_VAR(281) = RCT(417)*V(337)+RCT(418)*V(346)+RCT(419)*V(351)+RCT(460)*V(328)+RCT(461)*V(324) - D_VAR(282) = RCT(48)*V(345)+RCT(324)*V(340) - D_VAR(283) = RCT(104)*V(345)+RCT(326)*V(340) - D_VAR(284) = RCT(340)*V(335)+RCT(344)*V(347)+RCT(345)*V(96)+RCT(349)*V(338)+RCT(355)*V(337)+RCT(356)*V(346)+RCT(357)*2& - &*V(284)+RCT(968) - D_VAR(285) = RCT(561)+RCT(562)+RCT(563)*V(346)+RCT(564)*V(346)+RCT(565)*V(337) - D_VAR(286) = RCT(556)+RCT(557)+RCT(558)*V(337)+RCT(559)*V(346)+RCT(560)*V(346) - D_VAR(287) = RCT(652)*V(345)+RCT(1011) - D_VAR(288) = RCT(651)*V(345)+RCT(1008) - D_VAR(289) = RCT(469)*V(346)+RCT(471)*V(337)+RCT(473)*V(328)+RCT(475)*V(324)+RCT(477)*V(351)+RCT(479)*V(280)+RCT(480)& - &*2*V(289) - D_VAR(290) = RCT(149)*V(345)+RCT(150)*V(341)+RCT(162)*V(351)+RCT(332)*V(340)+RCT(333)*V(342) - D_VAR(291) = RCT(443)*V(337)+RCT(444)*V(346)+RCT(445)*V(346)+RCT(446)*V(351)+RCT(462)*V(328)+RCT(463)*V(324) - D_VAR(292) = RCT(122)*V(345)+RCT(131)*V(351)+RCT(906) - D_VAR(293) = RCT(600)*V(337)+RCT(601)*V(346)+RCT(602)*V(346) - D_VAR(294) = RCT(164)*V(345)+RCT(166)*V(351)+RCT(857)+RCT(911) - D_VAR(295) = RCT(111)*V(345)+RCT(218)*V(342)+RCT(329)*V(340)+RCT(904)+RCT(905) - D_VAR(296) = RCT(58)*V(346)+RCT(59)*V(346)+RCT(129)*V(328)+RCT(142)*2*V(296)+RCT(144)*V(337)+RCT(190)*V(324)+RCT(322)& - &*V(340) - D_VAR(297) = RCT(281)*V(345)+RCT(802)*V(353)+RCT(803)*V(344)+RCT(804)*V(339)+RCT(805)*V(349)+RCT(806)*V(350)+RCT(807)& - &*V(352)+RCT(947) - D_VAR(298) = RCT(105)*V(345)+RCT(110)*V(351)+RCT(903) - D_VAR(299) = RCT(641)*V(345)+RCT(876)+RCT(1032) - D_VAR(300) = RCT(90)*V(346)+RCT(91)*V(346)+RCT(116)*V(337)+RCT(134)*V(328)+RCT(183)*V(324) - D_VAR(301) = RCT(637)*V(345)+RCT(638)*V(345)+RCT(1031) - D_VAR(302) = RCT(650)*V(345)+RCT(862)+RCT(1013) - D_VAR(303) = RCT(691)*V(345)+RCT(878)+RCT(1038)+RCT(1039) - D_VAR(304) = RCT(500)*V(337)+RCT(501)*V(337)+RCT(504)+RCT(505)+RCT(507)*2*V(304)+RCT(508)*V(305)+RCT(510)*2*V(304)& - &+RCT(511)*V(305)+RCT(514)*V(328)+RCT(515)*V(328)+RCT(520)*V(346)+RCT(521)*V(346)+RCT(522)*V(346)+RCT(523)& - &*V(346) - D_VAR(305) = RCT(498)*V(337)+RCT(499)*V(337)+RCT(502)+RCT(503)+RCT(506)*2*V(305)+RCT(508)*V(304)+RCT(509)*2*V(305)& - &+RCT(511)*V(304)+RCT(512)*V(328)+RCT(513)*V(328)+RCT(516)*V(346)+RCT(517)*V(346)+RCT(518)*V(346)+RCT(519)& - &*V(346) - D_VAR(306) = RCT(151)*V(345)+RCT(152)*V(345)+RCT(153)*V(345)+RCT(154)*V(351)+RCT(907) - D_VAR(307) = RCT(167)*V(345)+RCT(168)*V(345)+RCT(916) - D_VAR(308) = RCT(678)*V(337)+RCT(679)*V(346)+RCT(680)*V(335)+RCT(681)*V(351)+RCT(682)*V(328) - D_VAR(309) = RCT(646)*V(345)+RCT(647)*V(345)+RCT(648)*V(341)+RCT(649)*V(351)+RCT(915) - D_VAR(310) = RCT(604)*V(337)+RCT(606)*2*V(310)+RCT(607)*V(311)+RCT(610)*V(328)+RCT(611)*V(324)+RCT(613)*V(351)& - &+RCT(615)*V(346)+RCT(616)*V(346) - D_VAR(311) = RCT(605)*V(337)+RCT(607)*V(310)+RCT(608)*2*V(311)+RCT(609)*V(328)+RCT(612)*V(324)+RCT(614)*V(351)& - &+RCT(617)*V(346)+RCT(618)*V(346) - D_VAR(312) = RCT(362)*V(329)+RCT(363)*V(346)+RCT(364)*V(335)+RCT(365)*V(336)+RCT(366)*V(336)*V(336)+RCT(367)*V(341)& - &+RCT(368)*V(348) - D_VAR(313) = RCT(96)*V(346)+RCT(118)*V(337)+RCT(136)*V(328)+RCT(184)*V(324) - D_VAR(314) = RCT(644)*V(345)+RCT(645)*V(341)+RCT(912)+RCT(913)+RCT(914) - D_VAR(315) = RCT(60)*V(346)+RCT(130)*V(328)+RCT(143)*2*V(315)+RCT(145)*V(337)+RCT(191)*V(324)+RCT(323)*V(340) - D_VAR(316) = RCT(212)*V(343)+RCT(813)*V(352)+RCT(814)*V(339)+RCT(815)*V(353)+RCT(816)*V(344)+RCT(817)*V(349)+RCT(818)& - &*V(350)+RCT(819)*V(348)+RCT(933) - D_VAR(317) = RCT(282)*V(345)+RCT(313)*V(343)+RCT(314)*V(340)+RCT(795)*V(336)+RCT(796)*V(339)+RCT(797)*V(352)+RCT(798)& - &*V(349)+RCT(799)*V(350)+RCT(800)*V(353)+RCT(801)*V(344)+RCT(948)+RCT(949) - D_VAR(318) = RCT(95)*V(346)+RCT(115)*V(337)+RCT(133)*V(328)+RCT(187)*V(324) - D_VAR(319) = RCT(93)*V(346)+RCT(94)*V(346)+RCT(114)*V(337)+RCT(132)*V(328)+RCT(182)*V(324) - D_VAR(320) = RCT(97)*V(346)+RCT(119)*V(337)+RCT(123)*V(346)+RCT(137)*V(328)+RCT(185)*V(324) - D_VAR(321) = RCT(63)*V(346)+RCT(64)*V(346)+RCT(112)*V(328)+RCT(146)*V(337)+RCT(193)*V(324) - D_VAR(322) = RCT(106)*V(335)+RCT(109)*V(346)+RCT(148)*V(337)+RCT(194)*V(324)+RCT(195)*V(328) - D_VAR(323) = RCT(98)*V(346)+RCT(99)*V(346)+RCT(120)*V(337)+RCT(138)*V(328)+RCT(186)*V(324) - D_VAR(324) = RCT(53)*V(335)+RCT(56)*V(346)+RCT(180)*2*V(324)+RCT(181)*V(328)+RCT(182)*V(319)+RCT(183)*V(300)+RCT(184)& - &*V(313)+RCT(185)*V(320)+RCT(186)*V(323)+RCT(187)*V(318)+RCT(188)*V(249)+RCT(189)*V(250)+RCT(190)*V(296)& - &+RCT(191)*V(315)+RCT(192)*V(260)+RCT(193)*V(321)+RCT(194)*V(322)+RCT(457)*V(277)+RCT(459)*V(275)+RCT(461)& - &*V(281)+RCT(463)*V(291)+RCT(465)*V(257)+RCT(467)*V(274)+RCT(474)*V(280)+RCT(475)*V(289)+RCT(611)*V(310)& - &+RCT(612)*V(311)+RCT(695)*V(337)+RCT(731)*V(263) - D_VAR(325) = RCT(10)*V(348)+RCT(34)*V(345)+RCT(50)*V(351)+RCT(216)*V(342)+RCT(252)*V(343)+RCT(292)*V(340)+RCT(888)& - &+RCT(889) - D_VAR(326) = RCT(51)*V(345)+RCT(52)*V(351)+RCT(217)*V(342)+RCT(897)+RCT(898) - D_VAR(327) = RCT(3)*V(179)+RCT(6)*V(166)+RCT(36)*V(345)+RCT(890) - D_VAR(328) = RCT(17)*V(341)+RCT(26)*V(346)+RCT(27)*V(346)+RCT(28)*V(337)+RCT(29)*2*V(328)+RCT(30)*2*V(328)+RCT(31)& - &*V(345)+RCT(112)*V(321)+RCT(113)*V(260)+RCT(129)*V(296)+RCT(130)*V(315)+RCT(132)*V(319)+RCT(133)*V(318)& - &+RCT(134)*V(300)+RCT(135)*V(249)+RCT(136)*V(313)+RCT(137)*V(320)+RCT(138)*V(323)+RCT(139)*V(250)+RCT(181)& - &*V(324)+RCT(195)*V(322)+RCT(197)*V(335)+RCT(274)*V(338)+RCT(319)*V(340)+RCT(401)*V(278)+RCT(413)*V(273)& - &+RCT(432)*V(272)+RCT(456)*V(277)+RCT(458)*V(275)+RCT(460)*V(281)+RCT(462)*V(291)+RCT(464)*V(257)+RCT(466)& - &*V(274)+RCT(472)*V(280)+RCT(473)*V(289)+RCT(512)*V(305)+RCT(513)*V(305)+RCT(514)*V(304)+RCT(515)*V(304)& - &+RCT(609)*V(311)+RCT(610)*V(310)+RCT(682)*V(308)+RCT(718)*V(234)+RCT(730)*V(263)+RCT(765)*V(236)+RCT(766)& - &*V(235)+RCT(779)*V(351) - D_VAR(329) = RCT(24)*V(345)+RCT(362)*V(312)+RCT(369)*V(241) - D_VAR(330) = RCT(354)*V(345)+RCT(828)+RCT(829)+RCT(852)*V(349)+RCT(853)*V(350)+RCT(854)*V(353)+RCT(855)*V(344)& - &+RCT(967) - D_VAR(331) = RCT(334)*V(346)+RCT(336)*V(335)+RCT(342)*V(332)+RCT(343)*V(347)+RCT(350)*V(341)+RCT(351)*V(337) - D_VAR(332) = RCT(341)+RCT(342)*V(331)+RCT(841)+RCT(842)+RCT(843)*V(336)+RCT(848)*V(349)+RCT(849)*V(350)+RCT(850)& - &*V(353)+RCT(851)*V(344)+RCT(972) - D_VAR(333) = RCT(280)*V(345)+RCT(808)*V(339)+RCT(809)*V(352)+RCT(810)*V(353)+RCT(811)*V(344)+RCT(812)*V(348)+RCT(950) - D_VAR(334) = RCT(226)*V(336)+RCT(227)*F(2)+RCT(228)*F(3)+RCT(229)*F(1)+RCT(230)*V(63)+RCT(231)*V(228)+RCT(237)*V(341)& - &+RCT(253)*V(339)+RCT(254)*V(352)+RCT(255)*V(245)+RCT(256)*V(46)+RCT(257)*V(181)+RCT(258)*V(105)+RCT(259)& - &*V(78)+RCT(260)*V(81)+RCT(261)*V(87)+RCT(262)*V(47)+RCT(263)*V(48)+RCT(264)*V(61)+RCT(265)*V(53)+RCT(266)& - &*V(85)+RCT(267)*V(86)+RCT(268)*V(84)+RCT(269)*V(49)+RCT(270)*V(50)+RCT(271)*V(51)+RCT(272)*V(54) - D_VAR(335) = RCT(16)*V(341)+RCT(35)*V(345)+RCT(39)*V(337)+RCT(45)*V(351)+RCT(49)*V(351)+RCT(53)*V(324)+RCT(86)*V(197)& - &+RCT(106)*V(322)+RCT(124)*V(246)+RCT(155)*V(213)+RCT(197)*V(328)+RCT(221)*V(342)+RCT(222)*V(347)+RCT(240)& - &*V(343)+RCT(243)*V(343)+RCT(250)*V(67)+RCT(301)*V(338)+RCT(336)*V(331)+RCT(340)*V(284)+RCT(364)*V(312)& - &+RCT(371)*V(241)+RCT(393)*V(257)+RCT(438)*V(274)+RCT(657)*V(171)+RCT(660)*V(172)+RCT(677)*V(259)+RCT(680)& - &*V(308)+RCT(738)*V(240)+RCT(752)*V(235)+RCT(756)*V(236)+RCT(762)*V(203)+RCT(782)+RCT(885) - D_VAR(336) = RCT(226)*V(334)+RCT(365)*V(312)+RCT(366)*2*V(312)*V(336)+RCT(373)*V(241)+RCT(374)*V(241)+RCT(786)*V(214)& - &+RCT(793)*V(218)+RCT(795)*V(317)+RCT(843)*V(332) - D_VAR(337) = RCT(15)*V(341)+RCT(20)*V(345)+RCT(22)*V(346)+RCT(23)*2*V(337)+RCT(28)*V(328)+RCT(39)*V(335)+RCT(42)& - &*V(351)+RCT(70)*V(178)+RCT(74)*V(165)+RCT(79)*V(212)+RCT(83)*V(132)+RCT(84)*V(197)+RCT(114)*V(319)& - &+RCT(115)*V(318)+RCT(116)*V(300)+RCT(117)*V(249)+RCT(118)*V(313)+RCT(119)*V(320)+RCT(120)*V(323)+RCT(121)& - &*V(250)+RCT(128)*V(246)+RCT(144)*V(296)+RCT(145)*V(315)+RCT(146)*V(321)+RCT(147)*V(260)+RCT(148)*V(322)& - &+RCT(158)*V(213)+RCT(204)*V(347)+RCT(205)*V(342)+RCT(236)*V(343)+RCT(247)*V(217)+RCT(296)*V(340)+RCT(297)& - &*V(340)+RCT(299)*V(338)+RCT(351)*V(331)+RCT(355)*V(284)+RCT(384)*V(277)+RCT(391)*V(257)+RCT(398)*V(278)& - &+RCT(404)*V(275)+RCT(410)*V(273)+RCT(417)*V(281)+RCT(430)*V(272)+RCT(436)*V(274)+RCT(443)*V(291)+RCT(470)& - &*V(280)+RCT(471)*V(289)+RCT(498)*V(305)+RCT(499)*V(305)+RCT(500)*V(304)+RCT(501)*V(304)+RCT(542)*V(223)& - &+RCT(546)*V(224)+RCT(550)*V(232)+RCT(558)*V(286)+RCT(565)*V(285)+RCT(566)*V(243)+RCT(571)*V(133)+RCT(573)& - &*V(135)+RCT(585)*V(205)+RCT(589)*V(190)+RCT(594)*V(206)+RCT(597)*V(207)+RCT(600)*V(293)+RCT(604)*V(310)& - &+RCT(605)*V(311)+RCT(631)*V(271)+RCT(632)*V(226)+RCT(640)*V(182)+RCT(643)*V(180)+RCT(656)*V(171)+RCT(659)& - &*V(172)+RCT(667)*V(254)+RCT(670)*V(253)+RCT(671)*V(259)+RCT(678)*V(308)+RCT(695)*V(324)+RCT(699)*V(18)& - &+RCT(710)*V(189)+RCT(715)*V(234)+RCT(727)*V(263)+RCT(734)*V(121)+RCT(737)*V(240)+RCT(750)*V(235)+RCT(759)& - &*V(236)+RCT(773)*V(13)+RCT(775)*V(22)+RCT(777)*V(27)+RCT(781) - D_VAR(338) = RCT(274)*V(328)+RCT(275)*V(345)+RCT(276)*V(345)+RCT(298)*V(343)+RCT(299)*V(337)+RCT(300)*V(346)+RCT(301)& - &*V(335)+RCT(302)*2*V(338)+RCT(303)*2*V(338)+RCT(304)*2*V(338)+RCT(307)*2*V(338)+RCT(310)*V(347)+RCT(311)& - &*V(347)+RCT(312)*V(347)+RCT(349)*V(284)+RCT(944) - D_VAR(339) = RCT(2)*V(179)+RCT(5)*V(166)+RCT(253)*V(334)+RCT(279)*V(345)+RCT(787)*V(214)+RCT(794)*V(218)+RCT(796)& - &*V(317)+RCT(804)*V(297)+RCT(808)*V(333)+RCT(814)*V(316) - D_VAR(340) = RCT(291)*V(228)+RCT(292)*V(325)+RCT(293)*V(341)+RCT(294)*F(1)+RCT(295)*V(264)+RCT(296)*V(337)+RCT(297)& - &*V(337)+RCT(305)*F(3)+RCT(309)*V(110)+RCT(314)*V(317)+RCT(315)*V(181)+RCT(316)*V(79)+RCT(317)*V(75)& - &+RCT(318)*V(265)+RCT(319)*V(328)+RCT(320)*V(164)+RCT(321)*V(183)+RCT(322)*V(296)+RCT(323)*V(315)+RCT(324)& - &*V(282)+RCT(325)*V(156)+RCT(326)*V(283)+RCT(327)*V(141)+RCT(328)*V(141)+RCT(329)*V(295)+RCT(330)*V(276)& - &+RCT(331)*V(142)+RCT(332)*V(290) - D_VAR(341) = RCT(1)*V(179)*V(348)+RCT(4)*V(166)*V(348)+RCT(8)*V(348)+RCT(13)*V(346)+RCT(14)*V(345)+RCT(15)*V(337)& - &+RCT(16)*V(335)+RCT(17)*V(328)+RCT(77)*V(140)+RCT(150)*V(290)+RCT(203)*V(342)+RCT(233)*V(343)+RCT(237)& - &*V(334)+RCT(246)*V(217)+RCT(293)*V(340)+RCT(350)*V(331)+RCT(367)*V(312)+RCT(379)*V(167)+RCT(381)*V(219)& - &+RCT(383)*V(191)+RCT(421)*V(255)+RCT(424)*V(237)+RCT(427)*V(211)+RCT(448)*V(229)+RCT(451)*V(193)+RCT(454)& - &*V(262)+RCT(483)*V(242)+RCT(493)*V(276)+RCT(645)*V(314)+RCT(648)*V(309)+RCT(704)*V(220)+RCT(712)*V(109)& - &+RCT(746)*V(202)+RCT(761)*V(203)+RCT(768)*V(221)+RCT(771)*V(201)+RCT(820)*V(352)+RCT(821)*V(349)+RCT(822)& - &*V(350)+RCT(882)+RCT(883) - D_VAR(342) = RCT(203)*V(341)+RCT(205)*V(337)+RCT(210)*V(218)+RCT(215)*V(351)+RCT(216)*V(325)+RCT(217)*V(326)+RCT(218)& - &*V(295)+RCT(219)*V(183)+RCT(220)*V(141)+RCT(221)*V(335)+RCT(333)*V(290) - D_VAR(343) = RCT(212)*V(316)+RCT(213)*V(352)+RCT(232)*F(3)+RCT(233)*V(341)+RCT(235)*V(345)+RCT(236)*V(337)+RCT(238)& - &*V(68)+RCT(240)*V(335)+RCT(241)*V(351)+RCT(242)*V(346)+RCT(243)*V(335)+RCT(244)*V(264)+RCT(251)*V(347)& - &+RCT(252)*V(325)+RCT(298)*V(338)+RCT(313)*V(317) - D_VAR(344) = RCT(790)*V(214)+RCT(792)*V(345)+RCT(801)*V(317)+RCT(803)*V(297)+RCT(811)*V(333)+RCT(816)*V(316)+RCT(847)& - &*V(252)+RCT(851)*V(332)+RCT(855)*V(330) - D_VAR(345) = RCT(12)*V(89)*V(348)+RCT(14)*V(341)+RCT(18)*2*V(345)+RCT(19)*2*V(345)+RCT(20)*V(337)+RCT(21)*V(264)& - &+RCT(24)*V(329)+RCT(25)*V(228)+RCT(31)*V(328)+RCT(32)*V(164)+RCT(33)*V(244)+RCT(34)*V(325)+RCT(35)*V(335)& - &+RCT(36)*V(327)+RCT(37)*V(346)+RCT(38)*V(239)+RCT(41)*V(108)+RCT(44)*V(351)+RCT(47)*V(265)+RCT(48)*V(282)& - &+RCT(51)*V(326)+RCT(55)*V(139)+RCT(57)*V(183)+RCT(61)*V(141)+RCT(62)*V(141)+RCT(66)*V(69)+RCT(71)*V(98)& - &+RCT(72)*V(196)+RCT(75)*V(140)+RCT(80)*V(127)+RCT(81)*V(233)+RCT(88)*V(126)+RCT(89)*V(142)+RCT(102)*V(251)& - &+RCT(103)*V(279)+RCT(104)*V(283)+RCT(105)*V(298)+RCT(108)*V(124)+RCT(111)*V(295)+RCT(122)*V(292)+4.51e-12& - &*V(113)+RCT(140)*V(156)+RCT(141)*V(188)+RCT(149)*V(290)+RCT(151)*V(306)+RCT(152)*V(306)+RCT(153)*V(306)& - &+RCT(160)*V(114)+RCT(161)*V(72)+RCT(163)*V(270)+RCT(164)*V(294)+RCT(167)*V(307)+RCT(168)*V(307)+RCT(169)& - &*V(125)+RCT(170)*V(118)+RCT(171)*V(99)+RCT(172)*V(100)+RCT(173)*V(97)+RCT(174)*V(102)+RCT(175)*V(155)& - &+RCT(176)*V(123)+RCT(177)*V(24)+RCT(178)*V(92)+RCT(199)*V(94)+RCT(200)*V(94)+RCT(202)*V(348)+RCT(206)& - &*V(352)+RCT(211)*V(148)+RCT(214)*V(347)+RCT(223)*V(81)+RCT(224)*V(78)+RCT(225)*V(105)+RCT(234)*F(1)& - &+RCT(235)*V(343)+RCT(239)*V(68)+RCT(273)*V(245)+RCT(275)*V(338)+RCT(276)*V(338)+RCT(277)*V(120)+RCT(278)& - &*V(76)+RCT(279)*V(339)+RCT(280)*V(333)+RCT(281)*V(297)+RCT(282)*V(317)+RCT(283)*V(181)+RCT(284)*V(79)& - &+RCT(285)*V(75)+RCT(286)*V(43)+RCT(287)*V(87)+RCT(288)*V(85)+RCT(289)*V(86)+RCT(290)*V(84)+RCT(352)*V(170)& - &+RCT(353)*V(73)+RCT(354)*V(330)+RCT(359)*V(52)+RCT(360)*V(261)+RCT(361)*V(247)+RCT(378)*V(167)+RCT(380)& - &*V(219)+RCT(382)*V(191)+RCT(387)*V(111)+RCT(388)*V(137)+RCT(390)*V(225)+RCT(396)*V(74)+RCT(397)*V(66)& - &+RCT(402)*V(160)+RCT(403)*V(176)+RCT(407)*V(138)+RCT(408)*V(112)+RCT(409)*V(129)+RCT(415)*V(161)+RCT(416)& - &*V(162)+RCT(420)*V(255)+RCT(423)*V(237)+RCT(426)*V(211)+RCT(433)*V(163)+RCT(435)*V(177)+RCT(441)*V(169)& - &+RCT(442)*V(130)+RCT(447)*V(229)+RCT(450)*V(193)+RCT(453)*V(262)+RCT(481)*V(256)+RCT(482)*V(242)+RCT(488)& - &*V(154)+RCT(489)*V(93)+RCT(490)*V(83)+RCT(491)*V(91)+RCT(492)*V(95)+RCT(494)*V(276)+RCT(495)*V(276)& - &+RCT(496)*V(276)+RCT(497)*V(276)+RCT(524)*V(230)+RCT(525)*V(231)+RCT(526)*V(150)+RCT(527)*V(144)+RCT(528)& - &*V(238)+RCT(529)*V(215)+RCT(530)*V(119)+RCT(531)*V(187)+RCT(532)*V(187)+RCT(533)*V(192)+RCT(534)*V(192)& - &+RCT(535)*V(187)+RCT(536)*V(192)+RCT(537)*V(209)+RCT(538)*V(199)+RCT(551)*V(128)+RCT(552)*V(151)+RCT(553)& - &*V(151)+RCT(554)*V(152)+RCT(555)*V(152)+RCT(574)*V(175)+RCT(575)*V(175)+RCT(576)*V(168)+RCT(577)*V(168)& - &+RCT(578)*V(268)+RCT(579)*V(268)+RCT(580)*V(267)+RCT(581)*V(267)+RCT(582)*V(268)+RCT(583)*V(267)+RCT(621)& - &*V(222)+RCT(622)*V(186)+RCT(623)*V(222)+RCT(624)*V(186)+RCT(625)*V(186)+RCT(626)*V(222)+RCT(627)*V(186)& - &+RCT(628)*V(186)+RCT(637)*V(301)+RCT(638)*V(301)+RCT(641)*V(299)+RCT(644)*V(314)+RCT(646)*V(309)+RCT(647)& - &*V(309)+RCT(650)*V(302)+RCT(651)*V(288)+RCT(652)*V(287)+RCT(653)*V(248)+RCT(654)*V(216)+RCT(661)*V(194)& - &+RCT(662)*V(185)+RCT(663)*V(131)+RCT(664)*V(227)+RCT(665)*V(208)+RCT(666)*V(153)+RCT(672)*V(159)+RCT(684)& - &*V(184)+RCT(685)*V(107)+RCT(686)*V(258)+RCT(687)*V(147)+RCT(688)*V(174)+RCT(689)*V(198)+RCT(690)*V(266)& - &+RCT(691)*V(303)+RCT(693)*V(115)+RCT(694)*V(88)+RCT(696)*V(210)+RCT(697)*V(210)+RCT(698)*V(19)+RCT(701)& - &*V(173)+RCT(702)*V(220)+RCT(705)*V(149)+RCT(707)*V(200)+RCT(711)*V(116)+RCT(713)*V(109)+RCT(714)*V(60)& - &+RCT(721)*V(70)+RCT(722)*V(136)+RCT(723)*V(136)+RCT(724)*V(143)+RCT(725)*V(82)+RCT(726)*V(101)+RCT(732)& - &*V(58)+7.09e-11*V(146)+RCT(740)*V(122)+RCT(741)*V(195)+RCT(743)*V(158)+RCT(745)*V(202)+RCT(748)*V(204)& - &+RCT(753)*V(71)+RCT(755)*V(90)+RCT(760)*V(117)+RCT(763)*V(269)+RCT(767)*V(221)+RCT(770)*V(201)+RCT(780)& - &*V(41)+RCT(791)*V(353)+RCT(792)*V(344) - D_VAR(346) = RCT(13)*V(341)+RCT(22)*V(337)+RCT(26)*V(328)+RCT(27)*V(328)+RCT(37)*V(345)+RCT(43)*V(351)+RCT(56)*V(324)& - &+RCT(58)*V(296)+RCT(59)*V(296)+RCT(60)*V(315)+RCT(63)*V(321)+RCT(64)*V(321)+RCT(65)*V(260)+RCT(68)*V(178)& - &+RCT(69)*V(178)+RCT(73)*V(165)+RCT(78)*V(212)+RCT(82)*V(132)+RCT(85)*V(197)+RCT(90)*V(300)+RCT(91)*V(300)& - &+RCT(92)*V(249)+RCT(93)*V(319)+RCT(94)*V(319)+RCT(95)*V(318)+RCT(96)*V(313)+RCT(97)*V(320)+RCT(98)*V(323)& - &+RCT(99)*V(323)+RCT(100)*V(250)+RCT(109)*V(322)+RCT(123)*V(320)+RCT(127)*V(246)+RCT(157)*V(213)+RCT(209)& - &*V(347)+RCT(242)*V(343)+RCT(249)*V(67)+RCT(300)*V(338)+RCT(334)*V(331)+RCT(348)*V(96)+RCT(356)*V(284)& - &+RCT(363)*V(312)+RCT(370)*V(241)+RCT(385)*V(277)+RCT(392)*V(257)+RCT(399)*V(278)+RCT(405)*V(275)+RCT(411)& - &*V(273)+RCT(412)*V(273)+RCT(418)*V(281)+RCT(429)*V(272)+RCT(437)*V(274)+RCT(444)*V(291)+RCT(445)*V(291)& - &+RCT(468)*V(280)+RCT(469)*V(289)+RCT(516)*V(305)+RCT(517)*V(305)+RCT(518)*V(305)+RCT(519)*V(305)+RCT(520)& - &*V(304)+RCT(521)*V(304)+RCT(522)*V(304)+RCT(523)*V(304)+RCT(540)*V(223)+RCT(541)*V(223)+RCT(544)*V(224)& - &+RCT(545)*V(224)+RCT(548)*V(232)+RCT(549)*V(232)+RCT(559)*V(286)+RCT(560)*V(286)+RCT(563)*V(285)+RCT(564)& - &*V(285)+RCT(567)*V(243)+RCT(568)*V(243)+RCT(570)*V(133)+RCT(572)*V(135)+RCT(586)*V(205)+RCT(587)*V(205)& - &+RCT(590)*V(190)+RCT(591)*V(190)+RCT(595)*V(206)+RCT(596)*V(206)+RCT(598)*V(207)+RCT(599)*V(207)+RCT(601)& - &*V(293)+RCT(602)*V(293)+RCT(615)*V(310)+RCT(616)*V(310)+RCT(617)*V(311)+RCT(618)*V(311)+RCT(633)*V(271)& - &+RCT(634)*V(271)+RCT(635)*V(226)+RCT(636)*V(226)+RCT(639)*V(182)+RCT(642)*V(180)+RCT(655)*V(171)+RCT(658)& - &*V(172)+RCT(668)*V(254)+RCT(669)*V(254)+RCT(674)*V(253)+RCT(675)*V(253)+RCT(676)*V(259)+RCT(679)*V(308)& - &+RCT(700)*V(18)+RCT(709)*V(189)+RCT(716)*V(234)+RCT(728)*V(263)+RCT(733)*V(121)+RCT(736)*V(240)+RCT(751)& - &*V(235)+RCT(757)*V(236)+RCT(774)*V(13)+RCT(776)*V(22)+RCT(778)*V(27)+RCT(988) - D_VAR(347) = RCT(204)*V(337)+RCT(207)*2*V(347)+RCT(208)*2*V(347)+RCT(209)*V(346)+RCT(214)*V(345)+RCT(222)*V(335)& - &+RCT(251)*V(343)+RCT(310)*V(338)+RCT(311)*V(338)+RCT(312)*V(338)+RCT(343)*V(331)+RCT(344)*V(284)+RCT(932) - D_VAR(348) = RCT(1)*V(179)*V(341)+RCT(4)*V(166)*V(341)+RCT(7)*V(264)+RCT(8)*V(341)+RCT(9)+RCT(10)*V(325)+RCT(12)*V(89)& - &*V(345)+RCT(202)*V(345)+RCT(368)*V(312)+RCT(372)*V(241)+RCT(812)*V(333)+RCT(819)*V(316) - D_VAR(349) = RCT(798)*V(317)+RCT(805)*V(297)+RCT(817)*V(316)+RCT(821)*V(341)+RCT(844)*V(252)+RCT(848)*V(332)+RCT(852)& - &*V(330) - D_VAR(350) = RCT(799)*V(317)+RCT(806)*V(297)+RCT(818)*V(316)+RCT(822)*V(341)+RCT(845)*V(252)+RCT(849)*V(332)+RCT(853)& - &*V(330) - D_VAR(351) = RCT(42)*V(337)+RCT(43)*V(346)+RCT(44)*V(345)+RCT(45)*V(335)+RCT(49)*V(335)+RCT(50)*V(325)+RCT(52)*V(326)& - &+RCT(67)*V(69)+RCT(76)*V(140)+RCT(101)*V(142)+RCT(110)*V(298)+RCT(131)*V(292)+RCT(154)*V(306)+RCT(159)& - &*V(213)+RCT(162)*V(290)+RCT(165)*V(270)+RCT(166)*V(294)+RCT(179)*V(183)+RCT(196)*2*V(351)+RCT(201)*V(94)& - &+RCT(215)*V(342)+RCT(241)*V(343)+RCT(339)*V(170)+RCT(375)*V(191)+RCT(376)*V(219)+RCT(377)*V(167)+RCT(386)& - &*V(277)+RCT(389)*V(225)+RCT(395)*V(257)+RCT(400)*V(278)+RCT(406)*V(275)+RCT(414)*V(273)+RCT(419)*V(281)& - &+RCT(422)*V(255)+RCT(425)*V(237)+RCT(428)*V(211)+RCT(431)*V(272)+RCT(434)*V(163)+RCT(440)*V(274)+RCT(446)& - &*V(291)+RCT(449)*V(229)+RCT(452)*V(193)+RCT(455)*V(262)+RCT(476)*V(280)+RCT(477)*V(289)+RCT(484)*V(242)& - &+RCT(485)*V(256)+RCT(603)*V(276)+RCT(613)*V(310)+RCT(614)*V(311)+RCT(649)*V(309)+RCT(681)*V(308)+RCT(692)& - &*V(261)+RCT(703)*V(220)+RCT(706)*V(149)+RCT(708)*V(200)+RCT(717)*V(234)+RCT(729)*V(263)+RCT(742)*V(195)& - &+RCT(744)*V(158)+RCT(747)*V(202)+RCT(749)*V(204)+RCT(758)*V(236)+RCT(764)*V(269)+RCT(779)*V(328)+RCT(783)& - &+RCT(784)+RCT(785)+RCT(894)+RCT(895) - D_VAR(352) = RCT(206)*V(345)+RCT(213)*V(343)+RCT(254)*V(334)+RCT(797)*V(317)+RCT(807)*V(297)+RCT(809)*V(333)+RCT(813)& - &*V(316)+RCT(820)*V(341)+RCT(823)+RCT(824) - D_VAR(353) = RCT(789)*V(214)+RCT(791)*V(345)+RCT(800)*V(317)+RCT(802)*V(297)+RCT(810)*V(333)+RCT(815)*V(316)+RCT(846)& - &*V(252)+RCT(850)*V(332)+RCT(854)*V(330) + D_VAR(41) = 0 + D_VAR(42) = 0 + D_VAR(43) = 0 + D_VAR(44) = RCT(780)*V(343) + D_VAR(45) = RCT(347)+RCT(836)+RCT(837)+RCT(838)+RCT(985) + D_VAR(46) = RCT(286)*V(343)+RCT(958) + D_VAR(47) = RCT(358)+RCT(830)+RCT(831)+RCT(832)+RCT(980) + D_VAR(48) = RCT(487) + D_VAR(49) = RCT(256)*V(337)+RCT(959) + D_VAR(50) = RCT(262)*V(337)+RCT(960) + D_VAR(51) = RCT(263)*V(337)+RCT(961) + D_VAR(52) = RCT(269)*V(337)+RCT(962) + D_VAR(53) = RCT(270)*V(337)+RCT(963) + D_VAR(54) = RCT(271)*V(337)+RCT(964) + D_VAR(55) = RCT(359)*V(343)+RCT(981) + D_VAR(56) = RCT(265)*V(337)+RCT(969) + D_VAR(57) = RCT(272)*V(337)+RCT(971) + D_VAR(58) = RCT(833)+RCT(834)+RCT(835)+RCT(986) + D_VAR(59) = RCT(394) + D_VAR(60) = RCT(439) + D_VAR(61) = RCT(732)*V(343) + D_VAR(62) = RCT(943) + D_VAR(63) = RCT(714)*V(343) + D_VAR(64) = RCT(264)*V(337)+RCT(970) + D_VAR(65) = RCT(335)*2*V(65)+RCT(977) + D_VAR(66) = RCT(230)*V(337)+RCT(992) + D_VAR(67) = RCT(1003)+RCT(1004) + D_VAR(68) = RCT(1001)+RCT(1002) + D_VAR(69) = RCT(397)*V(343)+RCT(1058) + D_VAR(70) = RCT(248)*F(3)+RCT(249)*V(338)+RCT(250)*V(345) + D_VAR(71) = RCT(238)*V(351)+RCT(239)*V(343)+RCT(993) + D_VAR(72) = RCT(66)*V(343)+RCT(67)*V(348) + D_VAR(73) = RCT(721)*V(343) + D_VAR(74) = RCT(161)*V(343) + D_VAR(75) = RCT(353)*V(343)+RCT(825)+RCT(826)+RCT(827) + D_VAR(76) = RCT(396)*V(343)+RCT(1057) + D_VAR(77) = RCT(753)*V(343)+RCT(1051) + D_VAR(78) = RCT(278)*V(343)+RCT(308)+RCT(953) + D_VAR(79) = RCT(224)*V(343)+RCT(259)*V(337)+RCT(945) + D_VAR(80) = RCT(284)*V(343)+RCT(316)*V(352)+RCT(948) + D_VAR(81) = RCT(987) + D_VAR(82) = RCT(223)*V(343)+RCT(260)*V(337)+RCT(944) + D_VAR(83) = RCT(198)+RCT(989)+RCT(990) + D_VAR(84) = RCT(285)*V(343)+RCT(317)*V(352) + D_VAR(85) = RCT(725)*V(343) + D_VAR(86) = RCT(490)*V(343)+RCT(1006) + D_VAR(87) = RCT(199)*V(343)+RCT(200)*V(343)+RCT(201)*V(348) + D_VAR(88) = RCT(268)*V(337)+RCT(290)*V(343)+RCT(965) + D_VAR(89) = RCT(266)*V(337)+RCT(288)*V(343)+RCT(966) + D_VAR(90) = RCT(267)*V(337)+RCT(289)*V(343)+RCT(967) + D_VAR(91) = RCT(261)*V(337)+RCT(287)*V(343)+RCT(968) + D_VAR(92) = RCT(694)*V(343)+RCT(1009) + D_VAR(93) = RCT(11)+RCT(12)*V(343)*V(355)+RCT(887)+RCT(888)*V(343)*V(355) + D_VAR(94) = RCT(491)*V(343)+RCT(1007) + D_VAR(95) = RCT(178)*V(343)+RCT(937) + D_VAR(96) = RCT(489)*V(343)+RCT(1005) + D_VAR(97) = RCT(492)*V(343)+RCT(1008) + D_VAR(98) = RCT(345)*V(336)+RCT(346)*2*V(98)+RCT(348)*V(338)+RCT(976) + D_VAR(99) = RCT(173)*V(343)+RCT(928) + D_VAR(100) = RCT(71)*V(343)+RCT(929) + D_VAR(101) = RCT(171)*V(343)+RCT(926) + D_VAR(102) = RCT(172)*V(343)+RCT(927) + D_VAR(103) = RCT(726)*V(343) + D_VAR(104) = RCT(174)*V(343)+RCT(930) + D_VAR(105) = RCT(754)+RCT(755)*V(343) + D_VAR(106) = RCT(486) + D_VAR(107) = RCT(988) + D_VAR(108) = RCT(225)*V(343)+RCT(258)*V(337)+RCT(946) + D_VAR(109) = RCT(685)*V(343)+RCT(868) + D_VAR(110) = RCT(40)+RCT(41)*V(343)+RCT(899)+RCT(900) + D_VAR(111) = RCT(387)*V(343)+RCT(1055) + D_VAR(112) = RCT(408)*V(343)+RCT(1060) + D_VAR(113) = RCT(125)+4.51e-12*V(343) + D_VAR(114) = RCT(719)+RCT(720)*F(3) + D_VAR(115) = RCT(156)+RCT(160)*V(343) + D_VAR(116) = RCT(693)*V(343)+RCT(867)+RCT(1011) + D_VAR(117) = RCT(711)*V(343)+RCT(935) + D_VAR(118) = RCT(760)*V(343)+RCT(1052) + D_VAR(119) = RCT(306)+RCT(309)*V(352)+RCT(972) + D_VAR(120) = RCT(712)*V(356)+RCT(713)*V(343) + D_VAR(121) = RCT(170)*V(343)+RCT(925) + D_VAR(122) = RCT(530)*V(343) + D_VAR(123) = RCT(277)*V(343)+RCT(952) + D_VAR(124) = RCT(733)*V(338)+RCT(734)*V(341) + D_VAR(125) = RCT(739)+RCT(740)*V(343) + D_VAR(126) = RCT(176)*V(343)+RCT(931) + D_VAR(127) = RCT(107)+RCT(108)*V(343)+RCT(1054) + D_VAR(128) = RCT(169)*V(343)+RCT(924) + D_VAR(129) = RCT(87)+RCT(88)*V(343)+RCT(907) + D_VAR(130) = RCT(80)*V(343) + D_VAR(131) = RCT(551)*V(343)+RCT(860) + D_VAR(132) = RCT(409)*V(343) + D_VAR(133) = RCT(82)*V(338)+RCT(83)*V(341) + D_VAR(134) = RCT(442)*V(343)+RCT(1063) + D_VAR(135) = RCT(663)*V(343) + D_VAR(136) = RCT(572)*V(338)+RCT(573)*V(341) + D_VAR(137) = RCT(570)*V(338)+RCT(571)*V(341) + D_VAR(138) = RCT(722)*V(343)+RCT(723)*V(343)+RCT(1049) + D_VAR(139) = RCT(388)*V(343) + D_VAR(140) = RCT(75)*V(343)+RCT(76)*V(348)+RCT(77)*V(356) + D_VAR(141) = RCT(407)*V(343) + D_VAR(142) = RCT(61)*V(343)+RCT(62)*V(343)+RCT(220)*V(342)+RCT(327)*V(352)+RCT(328)*V(352) + D_VAR(143) = RCT(54)+RCT(55)*V(343)+RCT(906) + D_VAR(144) = RCT(89)*V(343)+RCT(101)*V(348)+RCT(331)*V(352) + D_VAR(145) = RCT(724)*V(343) + D_VAR(146) = RCT(994) + D_VAR(147) = RCT(619)*F(3)+RCT(620) + D_VAR(148) = RCT(705)*V(343)+RCT(706)*V(348) + D_VAR(149) = RCT(687)*V(343)+RCT(1044) + D_VAR(150) = RCT(526)*V(343)+RCT(1029) + D_VAR(151) = RCT(527)*V(343)+RCT(1030) + D_VAR(152) = 7.09e-11*V(343)+RCT(909) + D_VAR(153) = RCT(211)*V(343)+RCT(938) + D_VAR(154) = RCT(140)*V(343)+RCT(325)*V(352) + D_VAR(155) = RCT(666)*V(343) + D_VAR(156) = RCT(488)*V(343)+RCT(866)+RCT(1000) + D_VAR(157) = RCT(552)*V(343)+RCT(553)*V(343)+RCT(858) + D_VAR(158) = RCT(175)*V(343)+RCT(932) + D_VAR(159) = RCT(554)*V(343)+RCT(555)*V(343)+RCT(859) + D_VAR(160) = RCT(949) + D_VAR(161) = RCT(672)*V(343)+RCT(1019) + D_VAR(162) = RCT(743)*V(343)+RCT(744)*V(348) + D_VAR(163) = RCT(402)*V(343)+RCT(1059) + D_VAR(164) = RCT(415)*V(343)+RCT(1061) + D_VAR(165) = RCT(416)*V(343) + D_VAR(166) = RCT(433)*V(343)+RCT(434)*V(348) + D_VAR(167) = RCT(32)*V(343)+RCT(320)*V(352)+RCT(894) + D_VAR(168) = RCT(73)*V(338)+RCT(74)*V(341) + D_VAR(169) = RCT(4)*V(355)*V(356)+RCT(5)*V(340)+RCT(6)*V(333) + D_VAR(170) = RCT(377)*V(348)+RCT(378)*V(343)+RCT(379)*V(356) + D_VAR(171) = RCT(441)*V(343)+RCT(1062) + D_VAR(172) = RCT(339)*V(348)+RCT(352)*V(343)+RCT(973) + D_VAR(173) = RCT(655)*V(338)+RCT(656)*V(341)+RCT(657)*V(345) + D_VAR(174) = RCT(658)*V(338)+RCT(659)*V(341)+RCT(660)*V(345) + D_VAR(175) = RCT(574)*V(343)+RCT(575)*V(343)+RCT(870)+RCT(1032) + D_VAR(176) = RCT(701)*V(343) + D_VAR(177) = RCT(576)*V(343)+RCT(577)*V(343)+RCT(871)+RCT(1033) + D_VAR(178) = RCT(688)*V(343)+RCT(1042) + D_VAR(179) = RCT(403)*V(343) + D_VAR(180) = RCT(435)*V(343) + D_VAR(181) = RCT(642)*V(338)+RCT(643)*V(341) + D_VAR(182) = RCT(68)*V(338)+RCT(69)*V(338)+RCT(70)*V(341) + D_VAR(183) = RCT(1)*V(355)*V(356)+RCT(2)*V(340)+RCT(3)*V(333) + D_VAR(184) = RCT(257)*V(337)+RCT(283)*V(343)+RCT(315)*V(352)+RCT(947) + D_VAR(185) = RCT(639)*V(338)+RCT(640)*V(341) + D_VAR(186) = RCT(588)+RCT(589)*V(341)+RCT(590)*V(338)+RCT(591)*V(338) + D_VAR(187) = RCT(57)*V(343)+RCT(179)*V(348)+RCT(219)*V(342)+RCT(321)*V(352) + D_VAR(188) = RCT(622)*V(343)+RCT(624)*V(343)+RCT(625)*V(343)+RCT(627)*V(343)+RCT(628)*V(343)+RCT(874)+RCT(1036)& + &+RCT(1037) + D_VAR(189) = RCT(683)+RCT(684)*V(343) + D_VAR(190) = RCT(662)*V(343)+RCT(1016) + D_VAR(191) = RCT(531)*V(343)+RCT(532)*V(343)+RCT(535)*V(343)+RCT(1023) + D_VAR(192) = RCT(141)*V(343) + D_VAR(193) = RCT(709)*V(338)+RCT(710)*V(341) + D_VAR(194) = RCT(375)*V(348)+RCT(382)*V(343)+RCT(383)*V(356) + D_VAR(195) = RCT(533)*V(343)+RCT(534)*V(343)+RCT(536)*V(343)+RCT(1024) + D_VAR(196) = RCT(450)*V(343)+RCT(451)*V(356)+RCT(452)*V(348) + D_VAR(197) = RCT(661)*V(343)+RCT(1017) + D_VAR(198) = RCT(689)*V(343)+RCT(1043) + D_VAR(199) = RCT(741)*V(343)+RCT(742)*V(348) + D_VAR(200) = RCT(72)*V(343)+RCT(934) + D_VAR(201) = RCT(84)*V(341)+RCT(85)*V(338)+RCT(86)*V(345) + D_VAR(202) = RCT(538)*V(343)+RCT(1026) + D_VAR(203) = RCT(707)*V(343)+RCT(708)*V(348) + D_VAR(204) = RCT(770)*V(343)+RCT(771)*V(356)+RCT(772) + D_VAR(205) = RCT(745)*V(343)+RCT(746)*V(356)+RCT(747)*V(348) + D_VAR(206) = RCT(761)*V(356)+RCT(762)*V(345) + D_VAR(207) = RCT(748)*V(343)+RCT(749)*V(348)+RCT(1050) + D_VAR(208) = RCT(593)+RCT(597)*V(341)+RCT(598)*V(338)+RCT(599)*V(338) + D_VAR(209) = RCT(592)+RCT(594)*V(341)+RCT(595)*V(338)+RCT(596)*V(338) + D_VAR(210) = RCT(584)+RCT(585)*V(341)+RCT(586)*V(338)+RCT(587)*V(338) + D_VAR(211) = RCT(665)*V(343)+RCT(1013) + D_VAR(212) = RCT(426)*V(343)+RCT(427)*V(356)+RCT(428)*V(348) + D_VAR(213) = RCT(537)*V(343)+RCT(1025) + D_VAR(214) = RCT(696)*V(343)+RCT(697)*V(343)+RCT(1010) + D_VAR(215) = RCT(78)*V(338)+RCT(79)*V(341) + D_VAR(216) = RCT(155)*V(345)+RCT(157)*V(338)+RCT(158)*V(341)+RCT(159)*V(348) + D_VAR(217) = RCT(46)+RCT(786)*V(353)+RCT(787)*V(340)+RCT(788)+RCT(789)*V(339)+RCT(790)*V(346)+RCT(903) + D_VAR(218) = RCT(529)*V(343)+RCT(873) + D_VAR(219) = RCT(245)*F(3)+RCT(246)*V(356)+RCT(247)*V(341) + D_VAR(220) = RCT(654)*V(343)+RCT(879)+RCT(1022) + D_VAR(221) = RCT(210)*V(342)+RCT(793)*V(353)+RCT(794)*V(340)+RCT(941)+RCT(942) + D_VAR(222) = RCT(376)*V(348)+RCT(380)*V(343)+RCT(381)*V(356) + D_VAR(223) = RCT(702)*V(343)+RCT(703)*V(348)+RCT(704)*V(356) + D_VAR(224) = RCT(767)*V(343)+RCT(768)*V(356)+RCT(769) + D_VAR(225) = RCT(621)*V(343)+RCT(623)*V(343)+RCT(626)*V(343)+RCT(875)+RCT(1035) + D_VAR(226) = RCT(543)+RCT(544)*V(338)+RCT(545)*V(338)+RCT(546)*V(341) + D_VAR(227) = RCT(389)*V(348)+RCT(390)*V(343)+RCT(1056) + D_VAR(228) = RCT(539)+RCT(540)*V(338)+RCT(541)*V(338)+RCT(542)*V(341) + D_VAR(229) = RCT(81)*V(343)+RCT(908) + D_VAR(230) = RCT(664)*V(343)+RCT(1014) + D_VAR(231) = RCT(525)*V(343)+RCT(1028) + D_VAR(232) = RCT(25)*V(343)+RCT(231)*V(337)+RCT(291)*V(352) + D_VAR(233) = RCT(524)*V(343)+RCT(1027) + D_VAR(234) = RCT(447)*V(343)+RCT(448)*V(356)+RCT(449)*V(348)+RCT(996)+RCT(1064) + D_VAR(235) = RCT(547)+RCT(548)*V(338)+RCT(549)*V(338)+RCT(550)*V(341) + D_VAR(236) = RCT(629)+RCT(632)*V(341)+RCT(635)*V(338)+RCT(636)*V(338) + D_VAR(237) = RCT(750)*V(341)+RCT(751)*V(338)+RCT(752)*V(345)+RCT(766)*V(334) + D_VAR(238) = RCT(756)*V(345)+RCT(757)*V(338)+RCT(758)*V(348)+RCT(759)*V(341)+RCT(765)*V(334) + D_VAR(239) = RCT(715)*V(341)+RCT(716)*V(338)+RCT(717)*V(348)+RCT(718)*V(334) + D_VAR(240) = RCT(38)*V(343)+RCT(898) + D_VAR(241) = RCT(423)*V(343)+RCT(424)*V(356)+RCT(425)*V(348) + D_VAR(242) = RCT(528)*V(343) + D_VAR(243) = RCT(736)*V(338)+RCT(737)*V(341)+RCT(738)*V(345) + D_VAR(244) = RCT(369)*V(335)+RCT(370)*V(338)+RCT(371)*V(345)+RCT(372)*V(355)+RCT(373)*V(353)+RCT(374)*V(353) + D_VAR(245) = RCT(566)*V(341)+RCT(567)*V(338)+RCT(568)*V(338)+RCT(569) + D_VAR(246) = RCT(482)*V(343)+RCT(483)*V(356)+RCT(484)*V(348)+RCT(865)+RCT(999) + D_VAR(247) = RCT(33)*V(343)+RCT(991) + D_VAR(248) = RCT(255)*V(337)+RCT(273)*V(343)+RCT(950) + D_VAR(249) = RCT(361)*V(343)+RCT(1012) + D_VAR(250) = RCT(124)*V(345)+RCT(127)*V(338)+RCT(128)*V(341) + D_VAR(251) = RCT(653)*V(343)+RCT(880)+RCT(1021) + D_VAR(252) = RCT(92)*V(338)+RCT(117)*V(341)+RCT(135)*V(334)+RCT(188)*V(328) + D_VAR(253) = RCT(100)*V(338)+RCT(121)*V(341)+RCT(139)*V(334)+RCT(189)*V(328) + D_VAR(254) = RCT(337)+RCT(338)*2*V(254)+RCT(839)+RCT(840)+RCT(844)*V(349)+RCT(845)*V(350)+RCT(846)*V(339)+RCT(847)& + &*V(346)+RCT(978) + D_VAR(255) = RCT(102)*V(343)+RCT(863)+RCT(933) + D_VAR(256) = RCT(420)*V(343)+RCT(421)*V(356)+RCT(422)*V(348)+RCT(1065) + D_VAR(257) = RCT(670)*V(341)+RCT(673)+RCT(674)*V(338)+RCT(675)*V(338) + D_VAR(258) = RCT(667)*V(341)+RCT(668)*V(338)+RCT(669)*V(338) + D_VAR(259) = RCT(686)*V(343)+RCT(1040)+RCT(1041) + D_VAR(260) = RCT(481)*V(343)+RCT(485)*V(348)+RCT(864)+RCT(998) + D_VAR(261) = RCT(391)*V(341)+RCT(392)*V(338)+RCT(393)*V(345)+RCT(395)*V(348)+RCT(464)*V(334)+RCT(465)*V(328) + D_VAR(262) = RCT(671)*V(341)+RCT(676)*V(338)+RCT(677)*V(345) + D_VAR(263) = RCT(453)*V(343)+RCT(454)*V(356)+RCT(455)*V(348) + D_VAR(264) = RCT(65)*V(338)+RCT(113)*V(334)+RCT(147)*V(341)+RCT(192)*V(328) + D_VAR(265) = RCT(360)*V(343)+RCT(692)*V(348)+RCT(997) + D_VAR(266) = RCT(727)*V(341)+RCT(728)*V(338)+RCT(729)*V(348)+RCT(730)*V(334)+RCT(731)*V(328) + D_VAR(267) = RCT(7)*V(355)+RCT(21)*V(343)+RCT(244)*V(351)+RCT(295)*V(352)+RCT(882)*V(355)+RCT(893) + D_VAR(268) = RCT(47)*V(343)+RCT(318)*V(352) + D_VAR(269) = RCT(690)*V(343)+RCT(877)+RCT(1047)+RCT(1048) + D_VAR(270) = RCT(580)*V(343)+RCT(581)*V(343)+RCT(583)*V(343)+RCT(872)+RCT(1034) + D_VAR(271) = RCT(578)*V(343)+RCT(579)*V(343)+RCT(582)*V(343)+RCT(869)+RCT(1031) + D_VAR(272) = RCT(763)*V(343)+RCT(764)*V(348)+RCT(881)+RCT(1053) + D_VAR(273) = RCT(630)+RCT(631)*V(341)+RCT(633)*V(338)+RCT(634)*V(338) + D_VAR(274) = RCT(163)*V(343)+RCT(165)*V(348)+RCT(856)+RCT(915)+RCT(916)+RCT(917) + D_VAR(275) = RCT(410)*V(341)+RCT(411)*V(338)+RCT(412)*V(338)+RCT(413)*V(334)+RCT(414)*V(348) + D_VAR(276) = RCT(404)*V(341)+RCT(405)*V(338)+RCT(406)*V(348)+RCT(458)*V(334)+RCT(459)*V(328) + D_VAR(277) = RCT(436)*V(341)+RCT(437)*V(338)+RCT(438)*V(345)+RCT(440)*V(348)+RCT(466)*V(334)+RCT(467)*V(328) + D_VAR(278) = RCT(429)*V(338)+RCT(430)*V(341)+RCT(431)*V(348)+RCT(432)*V(334) + D_VAR(279) = RCT(330)*V(352)+RCT(493)*V(356)+RCT(494)*V(343)+RCT(495)*V(343)+RCT(496)*V(343)+RCT(497)*V(343)+RCT(603)& + &*V(348) + D_VAR(280) = RCT(468)*V(338)+RCT(470)*V(341)+RCT(472)*V(334)+RCT(474)*V(328)+RCT(476)*V(348)+RCT(478)*2*V(280)& + &+RCT(479)*V(292) + D_VAR(281) = RCT(384)*V(341)+RCT(385)*V(338)+RCT(386)*V(348)+RCT(456)*V(334)+RCT(457)*V(328) + D_VAR(282) = RCT(398)*V(341)+RCT(399)*V(338)+RCT(400)*V(348)+RCT(401)*V(334) + D_VAR(283) = RCT(103)*V(343)+RCT(936) + D_VAR(284) = RCT(417)*V(341)+RCT(418)*V(338)+RCT(419)*V(348)+RCT(460)*V(334)+RCT(461)*V(328) + D_VAR(285) = RCT(48)*V(343)+RCT(324)*V(352) + D_VAR(286) = RCT(104)*V(343)+RCT(326)*V(352) + D_VAR(287) = RCT(354)*V(343)+RCT(828)+RCT(829)+RCT(852)*V(349)+RCT(853)*V(350)+RCT(854)*V(339)+RCT(855)*V(346)& + &+RCT(974) + D_VAR(288) = RCT(561)+RCT(562)+RCT(563)*V(338)+RCT(564)*V(338)+RCT(565)*V(341) + D_VAR(289) = RCT(556)+RCT(557)+RCT(558)*V(341)+RCT(559)*V(338)+RCT(560)*V(338) + D_VAR(290) = RCT(652)*V(343)+RCT(1018) + D_VAR(291) = RCT(651)*V(343)+RCT(1015) + D_VAR(292) = RCT(469)*V(338)+RCT(471)*V(341)+RCT(473)*V(334)+RCT(475)*V(328)+RCT(477)*V(348)+RCT(479)*V(280)+RCT(480)& + &*2*V(292) + D_VAR(293) = RCT(149)*V(343)+RCT(150)*V(356)+RCT(162)*V(348)+RCT(332)*V(352)+RCT(333)*V(342) + D_VAR(294) = RCT(443)*V(341)+RCT(444)*V(338)+RCT(445)*V(338)+RCT(446)*V(348)+RCT(462)*V(334)+RCT(463)*V(328) + D_VAR(295) = RCT(122)*V(343)+RCT(131)*V(348)+RCT(913) + D_VAR(296) = RCT(341)+RCT(342)*V(331)+RCT(841)+RCT(842)+RCT(843)*V(353)+RCT(848)*V(349)+RCT(849)*V(350)+RCT(850)& + &*V(339)+RCT(851)*V(346)+RCT(979) + D_VAR(297) = RCT(111)*V(343)+RCT(218)*V(342)+RCT(329)*V(352)+RCT(911)+RCT(912) + D_VAR(298) = RCT(164)*V(343)+RCT(166)*V(348)+RCT(857)+RCT(918) + D_VAR(299) = RCT(600)*V(341)+RCT(601)*V(338)+RCT(602)*V(338) + D_VAR(300) = RCT(58)*V(338)+RCT(59)*V(338)+RCT(129)*V(334)+RCT(142)*2*V(300)+RCT(144)*V(341)+RCT(190)*V(328)+RCT(322)& + &*V(352) + D_VAR(301) = RCT(281)*V(343)+RCT(802)*V(339)+RCT(803)*V(346)+RCT(804)*V(340)+RCT(805)*V(349)+RCT(806)*V(350)+RCT(807)& + &*V(354)+RCT(954) + D_VAR(302) = RCT(105)*V(343)+RCT(110)*V(348)+RCT(910) + D_VAR(303) = RCT(641)*V(343)+RCT(876)+RCT(1039) + D_VAR(304) = RCT(90)*V(338)+RCT(91)*V(338)+RCT(116)*V(341)+RCT(134)*V(334)+RCT(183)*V(328) + D_VAR(305) = RCT(637)*V(343)+RCT(638)*V(343)+RCT(1038) + D_VAR(306) = RCT(650)*V(343)+RCT(862)+RCT(1020) + D_VAR(307) = RCT(691)*V(343)+RCT(878)+RCT(1045)+RCT(1046) + D_VAR(308) = RCT(604)*V(341)+RCT(606)*2*V(308)+RCT(607)*V(310)+RCT(610)*V(334)+RCT(611)*V(328)+RCT(613)*V(348)& + &+RCT(615)*V(338)+RCT(616)*V(338) + D_VAR(309) = RCT(151)*V(343)+RCT(152)*V(343)+RCT(153)*V(343)+RCT(154)*V(348)+RCT(914) + D_VAR(310) = RCT(605)*V(341)+RCT(607)*V(308)+RCT(608)*2*V(310)+RCT(609)*V(334)+RCT(612)*V(328)+RCT(614)*V(348)& + &+RCT(617)*V(338)+RCT(618)*V(338) + D_VAR(311) = RCT(167)*V(343)+RCT(168)*V(343)+RCT(923) + D_VAR(312) = RCT(678)*V(341)+RCT(679)*V(338)+RCT(680)*V(345)+RCT(681)*V(348)+RCT(682)*V(334) + D_VAR(313) = RCT(646)*V(343)+RCT(647)*V(343)+RCT(648)*V(356)+RCT(649)*V(348)+RCT(922) + D_VAR(314) = RCT(498)*V(341)+RCT(499)*V(341)+RCT(502)+RCT(503)+RCT(506)*2*V(314)+RCT(508)*V(315)+RCT(509)*2*V(314)& + &+RCT(511)*V(315)+RCT(512)*V(334)+RCT(513)*V(334)+RCT(516)*V(338)+RCT(517)*V(338)+RCT(518)*V(338)+RCT(519)& + &*V(338) + D_VAR(315) = RCT(500)*V(341)+RCT(501)*V(341)+RCT(504)+RCT(505)+RCT(507)*2*V(315)+RCT(508)*V(314)+RCT(510)*2*V(315)& + &+RCT(511)*V(314)+RCT(514)*V(334)+RCT(515)*V(334)+RCT(520)*V(338)+RCT(521)*V(338)+RCT(522)*V(338)+RCT(523)& + &*V(338) + D_VAR(316) = RCT(96)*V(338)+RCT(118)*V(341)+RCT(136)*V(334)+RCT(184)*V(328) + D_VAR(317) = RCT(362)*V(335)+RCT(363)*V(338)+RCT(364)*V(345)+RCT(365)*V(353)+RCT(366)*V(353)*V(353)+RCT(367)*V(356)& + &+RCT(368)*V(355) + D_VAR(318) = RCT(644)*V(343)+RCT(645)*V(356)+RCT(919)+RCT(920)+RCT(921) + D_VAR(319) = RCT(60)*V(338)+RCT(130)*V(334)+RCT(143)*2*V(319)+RCT(145)*V(341)+RCT(191)*V(328)+RCT(323)*V(352) + D_VAR(320) = RCT(212)*V(351)+RCT(813)*V(354)+RCT(814)*V(340)+RCT(815)*V(339)+RCT(816)*V(346)+RCT(817)*V(349)+RCT(818)& + &*V(350)+RCT(819)*V(355)+RCT(940) + D_VAR(321) = RCT(282)*V(343)+RCT(313)*V(351)+RCT(314)*V(352)+RCT(795)*V(353)+RCT(796)*V(340)+RCT(797)*V(354)+RCT(798)& + &*V(349)+RCT(799)*V(350)+RCT(800)*V(339)+RCT(801)*V(346)+RCT(955)+RCT(956) + D_VAR(322) = RCT(95)*V(338)+RCT(115)*V(341)+RCT(133)*V(334)+RCT(187)*V(328) + D_VAR(323) = RCT(93)*V(338)+RCT(94)*V(338)+RCT(114)*V(341)+RCT(132)*V(334)+RCT(182)*V(328) + D_VAR(324) = RCT(97)*V(338)+RCT(119)*V(341)+RCT(123)*V(338)+RCT(137)*V(334)+RCT(185)*V(328) + D_VAR(325) = RCT(106)*V(345)+RCT(109)*V(338)+RCT(148)*V(341)+RCT(194)*V(328)+RCT(195)*V(334) + D_VAR(326) = RCT(63)*V(338)+RCT(64)*V(338)+RCT(112)*V(334)+RCT(146)*V(341)+RCT(193)*V(328) + D_VAR(327) = RCT(98)*V(338)+RCT(99)*V(338)+RCT(120)*V(341)+RCT(138)*V(334)+RCT(186)*V(328) + D_VAR(328) = RCT(53)*V(345)+RCT(56)*V(338)+RCT(180)*2*V(328)+RCT(181)*V(334)+RCT(182)*V(323)+RCT(183)*V(304)+RCT(184)& + &*V(316)+RCT(185)*V(324)+RCT(186)*V(327)+RCT(187)*V(322)+RCT(188)*V(252)+RCT(189)*V(253)+RCT(190)*V(300)& + &+RCT(191)*V(319)+RCT(192)*V(264)+RCT(193)*V(326)+RCT(194)*V(325)+RCT(457)*V(281)+RCT(459)*V(276)+RCT(461)& + &*V(284)+RCT(463)*V(294)+RCT(465)*V(261)+RCT(467)*V(277)+RCT(474)*V(280)+RCT(475)*V(292)+RCT(611)*V(308)& + &+RCT(612)*V(310)+RCT(695)*V(341)+RCT(731)*V(266) + D_VAR(329) = RCT(10)*V(355)+RCT(34)*V(343)+RCT(50)*V(348)+RCT(216)*V(342)+RCT(252)*V(351)+RCT(292)*V(352)+RCT(886)& + &*V(355)+RCT(895)+RCT(896) + D_VAR(330) = RCT(51)*V(343)+RCT(52)*V(348)+RCT(217)*V(342)+RCT(904)+RCT(905) + D_VAR(331) = RCT(334)*V(338)+RCT(336)*V(345)+RCT(342)*V(296)+RCT(343)*V(347)+RCT(350)*V(356)+RCT(351)*V(341) + D_VAR(332) = RCT(280)*V(343)+RCT(808)*V(340)+RCT(809)*V(354)+RCT(810)*V(339)+RCT(811)*V(346)+RCT(812)*V(355)+RCT(957) + D_VAR(333) = RCT(3)*V(183)+RCT(6)*V(169)+RCT(36)*V(343)+RCT(897) + D_VAR(334) = RCT(17)*V(356)+RCT(26)*V(338)+RCT(27)*V(338)+RCT(28)*V(341)+RCT(29)*2*V(334)+RCT(30)*2*V(334)+RCT(31)& + &*V(343)+RCT(112)*V(326)+RCT(113)*V(264)+RCT(129)*V(300)+RCT(130)*V(319)+RCT(132)*V(323)+RCT(133)*V(322)& + &+RCT(134)*V(304)+RCT(135)*V(252)+RCT(136)*V(316)+RCT(137)*V(324)+RCT(138)*V(327)+RCT(139)*V(253)+RCT(181)& + &*V(328)+RCT(195)*V(325)+RCT(197)*V(345)+RCT(274)*V(344)+RCT(319)*V(352)+RCT(401)*V(282)+RCT(413)*V(275)& + &+RCT(432)*V(278)+RCT(456)*V(281)+RCT(458)*V(276)+RCT(460)*V(284)+RCT(462)*V(294)+RCT(464)*V(261)+RCT(466)& + &*V(277)+RCT(472)*V(280)+RCT(473)*V(292)+RCT(512)*V(314)+RCT(513)*V(314)+RCT(514)*V(315)+RCT(515)*V(315)& + &+RCT(609)*V(310)+RCT(610)*V(308)+RCT(682)*V(312)+RCT(718)*V(239)+RCT(730)*V(266)+RCT(765)*V(238)+RCT(766)& + &*V(237)+RCT(779)*V(348) + D_VAR(335) = RCT(24)*V(343)+RCT(362)*V(317)+RCT(369)*V(244) + D_VAR(336) = RCT(340)*V(345)+RCT(344)*V(347)+RCT(345)*V(98)+RCT(349)*V(344)+RCT(355)*V(341)+RCT(356)*V(338)+RCT(357)*2& + &*V(336)+RCT(975) + D_VAR(337) = RCT(226)*V(353)+RCT(227)*F(2)+RCT(228)*F(3)+RCT(229)*F(1)+RCT(230)*V(66)+RCT(231)*V(232)+RCT(237)*V(356)& + &+RCT(253)*V(340)+RCT(254)*V(354)+RCT(255)*V(248)+RCT(256)*V(49)+RCT(257)*V(184)+RCT(258)*V(108)+RCT(259)& + &*V(79)+RCT(260)*V(82)+RCT(261)*V(91)+RCT(262)*V(50)+RCT(263)*V(51)+RCT(264)*V(64)+RCT(265)*V(56)+RCT(266)& + &*V(89)+RCT(267)*V(90)+RCT(268)*V(88)+RCT(269)*V(52)+RCT(270)*V(53)+RCT(271)*V(54)+RCT(272)*V(57) + D_VAR(338) = RCT(13)*V(356)+RCT(22)*V(341)+RCT(26)*V(334)+RCT(27)*V(334)+RCT(37)*V(343)+RCT(43)*V(348)+RCT(56)*V(328)& + &+RCT(58)*V(300)+RCT(59)*V(300)+RCT(60)*V(319)+RCT(63)*V(326)+RCT(64)*V(326)+RCT(65)*V(264)+RCT(68)*V(182)& + &+RCT(69)*V(182)+RCT(73)*V(168)+RCT(78)*V(215)+RCT(82)*V(133)+RCT(85)*V(201)+RCT(90)*V(304)+RCT(91)*V(304)& + &+RCT(92)*V(252)+RCT(93)*V(323)+RCT(94)*V(323)+RCT(95)*V(322)+RCT(96)*V(316)+RCT(97)*V(324)+RCT(98)*V(327)& + &+RCT(99)*V(327)+RCT(100)*V(253)+RCT(109)*V(325)+RCT(123)*V(324)+RCT(127)*V(250)+RCT(157)*V(216)+RCT(209)& + &*V(347)+RCT(242)*V(351)+RCT(249)*V(70)+RCT(300)*V(344)+RCT(334)*V(331)+RCT(348)*V(98)+RCT(356)*V(336)& + &+RCT(363)*V(317)+RCT(370)*V(244)+RCT(385)*V(281)+RCT(392)*V(261)+RCT(399)*V(282)+RCT(405)*V(276)+RCT(411)& + &*V(275)+RCT(412)*V(275)+RCT(418)*V(284)+RCT(429)*V(278)+RCT(437)*V(277)+RCT(444)*V(294)+RCT(445)*V(294)& + &+RCT(468)*V(280)+RCT(469)*V(292)+RCT(516)*V(314)+RCT(517)*V(314)+RCT(518)*V(314)+RCT(519)*V(314)+RCT(520)& + &*V(315)+RCT(521)*V(315)+RCT(522)*V(315)+RCT(523)*V(315)+RCT(540)*V(228)+RCT(541)*V(228)+RCT(544)*V(226)& + &+RCT(545)*V(226)+RCT(548)*V(235)+RCT(549)*V(235)+RCT(559)*V(289)+RCT(560)*V(289)+RCT(563)*V(288)+RCT(564)& + &*V(288)+RCT(567)*V(245)+RCT(568)*V(245)+RCT(570)*V(137)+RCT(572)*V(136)+RCT(586)*V(210)+RCT(587)*V(210)& + &+RCT(590)*V(186)+RCT(591)*V(186)+RCT(595)*V(209)+RCT(596)*V(209)+RCT(598)*V(208)+RCT(599)*V(208)+RCT(601)& + &*V(299)+RCT(602)*V(299)+RCT(615)*V(308)+RCT(616)*V(308)+RCT(617)*V(310)+RCT(618)*V(310)+RCT(633)*V(273)& + &+RCT(634)*V(273)+RCT(635)*V(236)+RCT(636)*V(236)+RCT(639)*V(185)+RCT(642)*V(181)+RCT(655)*V(173)+RCT(658)& + &*V(174)+RCT(668)*V(258)+RCT(669)*V(258)+RCT(674)*V(257)+RCT(675)*V(257)+RCT(676)*V(262)+RCT(679)*V(312)& + &+RCT(700)*V(18)+RCT(709)*V(193)+RCT(716)*V(239)+RCT(728)*V(266)+RCT(733)*V(124)+RCT(736)*V(243)+RCT(751)& + &*V(237)+RCT(757)*V(238)+RCT(774)*V(13)+RCT(776)*V(22)+RCT(778)*V(27)+RCT(995) + D_VAR(339) = RCT(789)*V(217)+RCT(791)*V(343)+RCT(800)*V(321)+RCT(802)*V(301)+RCT(810)*V(332)+RCT(815)*V(320)+RCT(846)& + &*V(254)+RCT(850)*V(296)+RCT(854)*V(287) + D_VAR(340) = RCT(2)*V(183)+RCT(5)*V(169)+RCT(253)*V(337)+RCT(279)*V(343)+RCT(787)*V(217)+RCT(794)*V(221)+RCT(796)& + &*V(321)+RCT(804)*V(301)+RCT(808)*V(332)+RCT(814)*V(320) + D_VAR(341) = RCT(15)*V(356)+RCT(20)*V(343)+RCT(22)*V(338)+RCT(23)*2*V(341)+RCT(28)*V(334)+RCT(39)*V(345)+RCT(42)& + &*V(348)+RCT(70)*V(182)+RCT(74)*V(168)+RCT(79)*V(215)+RCT(83)*V(133)+RCT(84)*V(201)+RCT(114)*V(323)& + &+RCT(115)*V(322)+RCT(116)*V(304)+RCT(117)*V(252)+RCT(118)*V(316)+RCT(119)*V(324)+RCT(120)*V(327)+RCT(121)& + &*V(253)+RCT(128)*V(250)+RCT(144)*V(300)+RCT(145)*V(319)+RCT(146)*V(326)+RCT(147)*V(264)+RCT(148)*V(325)& + &+RCT(158)*V(216)+RCT(204)*V(347)+RCT(205)*V(342)+RCT(236)*V(351)+RCT(247)*V(219)+RCT(296)*V(352)+RCT(297)& + &*V(352)+RCT(299)*V(344)+RCT(351)*V(331)+RCT(355)*V(336)+RCT(384)*V(281)+RCT(391)*V(261)+RCT(398)*V(282)& + &+RCT(404)*V(276)+RCT(410)*V(275)+RCT(417)*V(284)+RCT(430)*V(278)+RCT(436)*V(277)+RCT(443)*V(294)+RCT(470)& + &*V(280)+RCT(471)*V(292)+RCT(498)*V(314)+RCT(499)*V(314)+RCT(500)*V(315)+RCT(501)*V(315)+RCT(542)*V(228)& + &+RCT(546)*V(226)+RCT(550)*V(235)+RCT(558)*V(289)+RCT(565)*V(288)+RCT(566)*V(245)+RCT(571)*V(137)+RCT(573)& + &*V(136)+RCT(585)*V(210)+RCT(589)*V(186)+RCT(594)*V(209)+RCT(597)*V(208)+RCT(600)*V(299)+RCT(604)*V(308)& + &+RCT(605)*V(310)+RCT(631)*V(273)+RCT(632)*V(236)+RCT(640)*V(185)+RCT(643)*V(181)+RCT(656)*V(173)+RCT(659)& + &*V(174)+RCT(667)*V(258)+RCT(670)*V(257)+RCT(671)*V(262)+RCT(678)*V(312)+RCT(695)*V(328)+RCT(699)*V(18)& + &+RCT(710)*V(193)+RCT(715)*V(239)+RCT(727)*V(266)+RCT(734)*V(124)+RCT(737)*V(243)+RCT(750)*V(237)+RCT(759)& + &*V(238)+RCT(773)*V(13)+RCT(775)*V(22)+RCT(777)*V(27)+RCT(781) + D_VAR(342) = RCT(203)*V(356)+RCT(205)*V(341)+RCT(210)*V(221)+RCT(215)*V(348)+RCT(216)*V(329)+RCT(217)*V(330)+RCT(218)& + &*V(297)+RCT(219)*V(187)+RCT(220)*V(142)+RCT(221)*V(345)+RCT(333)*V(293) + D_VAR(343) = RCT(12)*V(93)*V(355)+RCT(14)*V(356)+RCT(18)*2*V(343)+RCT(19)*2*V(343)+RCT(20)*V(341)+RCT(21)*V(267)& + &+RCT(24)*V(335)+RCT(25)*V(232)+RCT(31)*V(334)+RCT(32)*V(167)+RCT(33)*V(247)+RCT(34)*V(329)+RCT(35)*V(345)& + &+RCT(36)*V(333)+RCT(37)*V(338)+RCT(38)*V(240)+RCT(41)*V(110)+RCT(44)*V(348)+RCT(47)*V(268)+RCT(48)*V(285)& + &+RCT(51)*V(330)+RCT(55)*V(143)+RCT(57)*V(187)+RCT(61)*V(142)+RCT(62)*V(142)+RCT(66)*V(72)+RCT(71)*V(100)& + &+RCT(72)*V(200)+RCT(75)*V(140)+RCT(80)*V(130)+RCT(81)*V(229)+RCT(88)*V(129)+RCT(89)*V(144)+RCT(102)*V(255)& + &+RCT(103)*V(283)+RCT(104)*V(286)+RCT(105)*V(302)+RCT(108)*V(127)+RCT(111)*V(297)+RCT(122)*V(295)+4.51e-12& + &*V(113)+RCT(140)*V(154)+RCT(141)*V(192)+RCT(149)*V(293)+RCT(151)*V(309)+RCT(152)*V(309)+RCT(153)*V(309)& + &+RCT(160)*V(115)+RCT(161)*V(74)+RCT(163)*V(274)+RCT(164)*V(298)+RCT(167)*V(311)+RCT(168)*V(311)+RCT(169)& + &*V(128)+RCT(170)*V(121)+RCT(171)*V(101)+RCT(172)*V(102)+RCT(173)*V(99)+RCT(174)*V(104)+RCT(175)*V(158)& + &+RCT(176)*V(126)+RCT(177)*V(24)+RCT(178)*V(95)+RCT(199)*V(87)+RCT(200)*V(87)+RCT(202)*V(355)+RCT(206)& + &*V(354)+RCT(211)*V(153)+RCT(214)*V(347)+RCT(223)*V(82)+RCT(224)*V(79)+RCT(225)*V(108)+RCT(234)*F(1)& + &+RCT(235)*V(351)+RCT(239)*V(71)+RCT(273)*V(248)+RCT(275)*V(344)+RCT(276)*V(344)+RCT(277)*V(123)+RCT(278)& + &*V(78)+RCT(279)*V(340)+RCT(280)*V(332)+RCT(281)*V(301)+RCT(282)*V(321)+RCT(283)*V(184)+RCT(284)*V(80)& + &+RCT(285)*V(84)+RCT(286)*V(46)+RCT(287)*V(91)+RCT(288)*V(89)+RCT(289)*V(90)+RCT(290)*V(88)+RCT(352)*V(172)& + &+RCT(353)*V(75)+RCT(354)*V(287)+RCT(359)*V(55)+RCT(360)*V(265)+RCT(361)*V(249)+RCT(378)*V(170)+RCT(380)& + &*V(222)+RCT(382)*V(194)+RCT(387)*V(111)+RCT(388)*V(139)+RCT(390)*V(227)+RCT(396)*V(76)+RCT(397)*V(69)& + &+RCT(402)*V(163)+RCT(403)*V(179)+RCT(407)*V(141)+RCT(408)*V(112)+RCT(409)*V(132)+RCT(415)*V(164)+RCT(416)& + &*V(165)+RCT(420)*V(256)+RCT(423)*V(241)+RCT(426)*V(212)+RCT(433)*V(166)+RCT(435)*V(180)+RCT(441)*V(171)& + &+RCT(442)*V(134)+RCT(447)*V(234)+RCT(450)*V(196)+RCT(453)*V(263)+RCT(481)*V(260)+RCT(482)*V(246)+RCT(488)& + &*V(156)+RCT(489)*V(96)+RCT(490)*V(86)+RCT(491)*V(94)+RCT(492)*V(97)+RCT(494)*V(279)+RCT(495)*V(279)& + &+RCT(496)*V(279)+RCT(497)*V(279)+RCT(524)*V(233)+RCT(525)*V(231)+RCT(526)*V(150)+RCT(527)*V(151)+RCT(528)& + &*V(242)+RCT(529)*V(218)+RCT(530)*V(122)+RCT(531)*V(191)+RCT(532)*V(191)+RCT(533)*V(195)+RCT(534)*V(195)& + &+RCT(535)*V(191)+RCT(536)*V(195)+RCT(537)*V(213)+RCT(538)*V(202)+RCT(551)*V(131)+RCT(552)*V(157)+RCT(553)& + &*V(157)+RCT(554)*V(159)+RCT(555)*V(159)+RCT(574)*V(175)+RCT(575)*V(175)+RCT(576)*V(177)+RCT(577)*V(177)& + &+RCT(578)*V(271)+RCT(579)*V(271)+RCT(580)*V(270)+RCT(581)*V(270)+RCT(582)*V(271)+RCT(583)*V(270)+RCT(621)& + &*V(225)+RCT(622)*V(188)+RCT(623)*V(225)+RCT(624)*V(188)+RCT(625)*V(188)+RCT(626)*V(225)+RCT(627)*V(188)& + &+RCT(628)*V(188)+RCT(637)*V(305)+RCT(638)*V(305)+RCT(641)*V(303)+RCT(644)*V(318)+RCT(646)*V(313)+RCT(647)& + &*V(313)+RCT(650)*V(306)+RCT(651)*V(291)+RCT(652)*V(290)+RCT(653)*V(251)+RCT(654)*V(220)+RCT(661)*V(197)& + &+RCT(662)*V(190)+RCT(663)*V(135)+RCT(664)*V(230)+RCT(665)*V(211)+RCT(666)*V(155)+RCT(672)*V(161)+RCT(684)& + &*V(189)+RCT(685)*V(109)+RCT(686)*V(259)+RCT(687)*V(149)+RCT(688)*V(178)+RCT(689)*V(198)+RCT(690)*V(269)& + &+RCT(691)*V(307)+RCT(693)*V(116)+RCT(694)*V(92)+RCT(696)*V(214)+RCT(697)*V(214)+RCT(698)*V(19)+RCT(701)& + &*V(176)+RCT(702)*V(223)+RCT(705)*V(148)+RCT(707)*V(203)+RCT(711)*V(117)+RCT(713)*V(120)+RCT(714)*V(63)& + &+RCT(721)*V(73)+RCT(722)*V(138)+RCT(723)*V(138)+RCT(724)*V(145)+RCT(725)*V(85)+RCT(726)*V(103)+RCT(732)& + &*V(61)+7.09e-11*V(152)+RCT(740)*V(125)+RCT(741)*V(199)+RCT(743)*V(162)+RCT(745)*V(205)+RCT(748)*V(207)& + &+RCT(753)*V(77)+RCT(755)*V(105)+RCT(760)*V(118)+RCT(763)*V(272)+RCT(767)*V(224)+RCT(770)*V(204)+RCT(780)& + &*V(44)+RCT(791)*V(339)+RCT(792)*V(346)+RCT(888)*V(93)*V(355) + D_VAR(344) = RCT(274)*V(334)+RCT(275)*V(343)+RCT(276)*V(343)+RCT(298)*V(351)+RCT(299)*V(341)+RCT(300)*V(338)+RCT(301)& + &*V(345)+RCT(302)*2*V(344)+RCT(303)*2*V(344)+RCT(304)*2*V(344)+RCT(307)*2*V(344)+RCT(310)*V(347)+RCT(311)& + &*V(347)+RCT(312)*V(347)+RCT(349)*V(336)+RCT(951) + D_VAR(345) = RCT(16)*V(356)+RCT(35)*V(343)+RCT(39)*V(341)+RCT(45)*V(348)+RCT(49)*V(348)+RCT(53)*V(328)+RCT(86)*V(201)& + &+RCT(106)*V(325)+RCT(124)*V(250)+RCT(155)*V(216)+RCT(197)*V(334)+RCT(221)*V(342)+RCT(222)*V(347)+RCT(240)& + &*V(351)+RCT(243)*V(351)+RCT(250)*V(70)+RCT(301)*V(344)+RCT(336)*V(331)+RCT(340)*V(336)+RCT(364)*V(317)& + &+RCT(371)*V(244)+RCT(393)*V(261)+RCT(438)*V(277)+RCT(657)*V(173)+RCT(660)*V(174)+RCT(677)*V(262)+RCT(680)& + &*V(312)+RCT(738)*V(243)+RCT(752)*V(237)+RCT(756)*V(238)+RCT(762)*V(206)+RCT(782)+RCT(885)*V(355)+RCT(892) + D_VAR(346) = RCT(790)*V(217)+RCT(792)*V(343)+RCT(801)*V(321)+RCT(803)*V(301)+RCT(811)*V(332)+RCT(816)*V(320)+RCT(847)& + &*V(254)+RCT(851)*V(296)+RCT(855)*V(287) + D_VAR(347) = RCT(204)*V(341)+RCT(207)*2*V(347)+RCT(208)*2*V(347)+RCT(209)*V(338)+RCT(214)*V(343)+RCT(222)*V(345)& + &+RCT(251)*V(351)+RCT(310)*V(344)+RCT(311)*V(344)+RCT(312)*V(344)+RCT(343)*V(331)+RCT(344)*V(336)+RCT(939) + D_VAR(348) = RCT(42)*V(341)+RCT(43)*V(338)+RCT(44)*V(343)+RCT(45)*V(345)+RCT(49)*V(345)+RCT(50)*V(329)+RCT(52)*V(330)& + &+RCT(67)*V(72)+RCT(76)*V(140)+RCT(101)*V(144)+RCT(110)*V(302)+RCT(131)*V(295)+RCT(154)*V(309)+RCT(159)& + &*V(216)+RCT(162)*V(293)+RCT(165)*V(274)+RCT(166)*V(298)+RCT(179)*V(187)+RCT(196)*2*V(348)+RCT(201)*V(87)& + &+RCT(215)*V(342)+RCT(241)*V(351)+RCT(339)*V(172)+RCT(375)*V(194)+RCT(376)*V(222)+RCT(377)*V(170)+RCT(386)& + &*V(281)+RCT(389)*V(227)+RCT(395)*V(261)+RCT(400)*V(282)+RCT(406)*V(276)+RCT(414)*V(275)+RCT(419)*V(284)& + &+RCT(422)*V(256)+RCT(425)*V(241)+RCT(428)*V(212)+RCT(431)*V(278)+RCT(434)*V(166)+RCT(440)*V(277)+RCT(446)& + &*V(294)+RCT(449)*V(234)+RCT(452)*V(196)+RCT(455)*V(263)+RCT(476)*V(280)+RCT(477)*V(292)+RCT(484)*V(246)& + &+RCT(485)*V(260)+RCT(603)*V(279)+RCT(613)*V(308)+RCT(614)*V(310)+RCT(649)*V(313)+RCT(681)*V(312)+RCT(692)& + &*V(265)+RCT(703)*V(223)+RCT(706)*V(148)+RCT(708)*V(203)+RCT(717)*V(239)+RCT(729)*V(266)+RCT(742)*V(199)& + &+RCT(744)*V(162)+RCT(747)*V(205)+RCT(749)*V(207)+RCT(758)*V(238)+RCT(764)*V(272)+RCT(779)*V(334)+RCT(783)& + &+RCT(784)+RCT(785)+RCT(901)+RCT(902) + D_VAR(349) = RCT(798)*V(321)+RCT(805)*V(301)+RCT(817)*V(320)+RCT(821)*V(356)+RCT(844)*V(254)+RCT(848)*V(296)+RCT(852)& + &*V(287) + D_VAR(350) = RCT(799)*V(321)+RCT(806)*V(301)+RCT(818)*V(320)+RCT(822)*V(356)+RCT(845)*V(254)+RCT(849)*V(296)+RCT(853)& + &*V(287) + D_VAR(351) = RCT(212)*V(320)+RCT(213)*V(354)+RCT(232)*F(3)+RCT(233)*V(356)+RCT(235)*V(343)+RCT(236)*V(341)+RCT(238)& + &*V(71)+RCT(240)*V(345)+RCT(241)*V(348)+RCT(242)*V(338)+RCT(243)*V(345)+RCT(244)*V(267)+RCT(251)*V(347)& + &+RCT(252)*V(329)+RCT(298)*V(344)+RCT(313)*V(321) + D_VAR(352) = RCT(291)*V(232)+RCT(292)*V(329)+RCT(293)*V(356)+RCT(294)*F(1)+RCT(295)*V(267)+RCT(296)*V(341)+RCT(297)& + &*V(341)+RCT(305)*F(3)+RCT(309)*V(119)+RCT(314)*V(321)+RCT(315)*V(184)+RCT(316)*V(80)+RCT(317)*V(84)& + &+RCT(318)*V(268)+RCT(319)*V(334)+RCT(320)*V(167)+RCT(321)*V(187)+RCT(322)*V(300)+RCT(323)*V(319)+RCT(324)& + &*V(285)+RCT(325)*V(154)+RCT(326)*V(286)+RCT(327)*V(142)+RCT(328)*V(142)+RCT(329)*V(297)+RCT(330)*V(279)& + &+RCT(331)*V(144)+RCT(332)*V(293) + D_VAR(353) = RCT(226)*V(337)+RCT(365)*V(317)+RCT(366)*2*V(317)*V(353)+RCT(373)*V(244)+RCT(374)*V(244)+RCT(786)*V(217)& + &+RCT(793)*V(221)+RCT(795)*V(321)+RCT(843)*V(296) + D_VAR(354) = RCT(206)*V(343)+RCT(213)*V(351)+RCT(254)*V(337)+RCT(797)*V(321)+RCT(807)*V(301)+RCT(809)*V(332)+RCT(813)& + &*V(320)+RCT(820)*V(356)+RCT(823)+RCT(824) + D_VAR(355) = RCT(1)*V(183)*V(356)+RCT(4)*V(169)*V(356)+RCT(7)*V(267)+RCT(8)*V(356)+RCT(9)+RCT(10)*V(329)+RCT(12)*V(93)& + &*V(343)+RCT(202)*V(343)+RCT(368)*V(317)+RCT(372)*V(244)+RCT(812)*V(332)+RCT(819)*V(320)+RCT(882)*V(267)& + &+RCT(883)*V(356)+RCT(884)+RCT(885)*V(345)+RCT(886)*V(329)+RCT(888)*V(93)*V(343) + D_VAR(356) = RCT(1)*V(183)*V(355)+RCT(4)*V(169)*V(355)+RCT(8)*V(355)+RCT(13)*V(338)+RCT(14)*V(343)+RCT(15)*V(341)& + &+RCT(16)*V(345)+RCT(17)*V(334)+RCT(77)*V(140)+RCT(150)*V(293)+RCT(203)*V(342)+RCT(233)*V(351)+RCT(237)& + &*V(337)+RCT(246)*V(219)+RCT(293)*V(352)+RCT(350)*V(331)+RCT(367)*V(317)+RCT(379)*V(170)+RCT(381)*V(222)& + &+RCT(383)*V(194)+RCT(421)*V(256)+RCT(424)*V(241)+RCT(427)*V(212)+RCT(448)*V(234)+RCT(451)*V(196)+RCT(454)& + &*V(263)+RCT(483)*V(246)+RCT(493)*V(279)+RCT(645)*V(318)+RCT(648)*V(313)+RCT(704)*V(223)+RCT(712)*V(120)& + &+RCT(746)*V(205)+RCT(761)*V(206)+RCT(768)*V(224)+RCT(771)*V(204)+RCT(820)*V(354)+RCT(821)*V(349)+RCT(822)& + &*V(350)+RCT(883)*V(355)+RCT(889)+RCT(890) END SUBROUTINE Fun_SPLITF ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! @@ -7272,9 +7323,9 @@ SUBROUTINE CalcStoichNum ( StoichNum ) REAL(kind=dp) :: StoichNum(NVAR,NREACT) StoichNum(:,:) = 0. - StoichNum(1,975) = -1 - StoichNum(2,977) = -1 - StoichNum(3,976) = -1 + StoichNum(1,982) = -1 + StoichNum(2,984) = -1 + StoichNum(3,983) = -1 StoichNum(4,825) = 1 StoichNum(4,830) = 2 StoichNum(4,833) = 2 @@ -7364,16 +7415,16 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(7,751) = 1 StoichNum(7,755) = 1 StoichNum(7,766) = 1 - StoichNum(7,899) = 0.3 - StoichNum(7,930) = 1 - StoichNum(7,1004) = 1 - StoichNum(7,1012) = 1.238 - StoichNum(7,1044) = 1 - StoichNum(7,1046) = 1 - StoichNum(7,1050) = 1 + StoichNum(7,906) = 0.3 + StoichNum(7,937) = 1 + StoichNum(7,1011) = 1 + StoichNum(7,1019) = 1.238 StoichNum(7,1051) = 1 - StoichNum(7,1055) = 1 - StoichNum(7,1056) = 1 + StoichNum(7,1053) = 1 + StoichNum(7,1057) = 1 + StoichNum(7,1058) = 1 + StoichNum(7,1062) = 1 + StoichNum(7,1063) = 1 StoichNum(8,486) = 1 StoichNum(8,487) = 1 StoichNum(9,826) = 1 @@ -7440,2008 +7491,2007 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(32,202) = 1 StoichNum(32,368) = 1 StoichNum(32,372) = 1 + StoichNum(33,7) = 1 + StoichNum(33,8) = 1 + StoichNum(33,9) = 1 StoichNum(33,12) = 2 - StoichNum(34,18) = 1 - StoichNum(34,22) = 1 - StoichNum(34,26) = 1 - StoichNum(34,36) = 1 - StoichNum(34,38) = 1 - StoichNum(34,56) = 1 - StoichNum(34,58) = 1 - StoichNum(34,60) = 1 - StoichNum(34,63) = 1 - StoichNum(34,65) = 1 - StoichNum(34,68) = 1 - StoichNum(34,73) = 2 - StoichNum(34,78) = 0.942 - StoichNum(34,80) = 1 - StoichNum(34,82) = 1 - StoichNum(34,85) = 1 - StoichNum(34,87) = 1 - StoichNum(34,88) = 2 - StoichNum(34,90) = 1 - StoichNum(34,91) = 1 - StoichNum(34,92) = 1 - StoichNum(34,93) = 1 - StoichNum(34,94) = 1 - StoichNum(34,95) = 1 - StoichNum(34,96) = 1 - StoichNum(34,97) = 1 - StoichNum(34,98) = 1 - StoichNum(34,100) = 1 - StoichNum(34,109) = 1 - StoichNum(34,123) = 1 - StoichNum(34,125) = 1 - StoichNum(34,126) = 1 - StoichNum(34,127) = 1 - StoichNum(34,128) = 0.15 - StoichNum(34,148) = 0.15 - StoichNum(34,156) = 1 - StoichNum(34,157) = 1 - StoichNum(34,158) = 0.15 - StoichNum(34,160) = 1 - StoichNum(34,211) = 1 - StoichNum(34,247) = 0.02 - StoichNum(34,248) = 1 - StoichNum(34,249) = 1 - StoichNum(34,273) = 1 - StoichNum(34,281) = 1 - StoichNum(34,282) = 1 - StoichNum(34,297) = 1 - StoichNum(34,309) = 0.1 - StoichNum(34,319) = 1 - StoichNum(34,322) = 1 - StoichNum(34,323) = 1 - StoichNum(34,352) = 1 - StoichNum(34,363) = 1 - StoichNum(34,364) = 1 - StoichNum(34,370) = 1 - StoichNum(34,371) = 1 - StoichNum(34,385) = 0.75 - StoichNum(34,388) = 0.5 - StoichNum(34,391) = 0.15 - StoichNum(34,392) = 1 - StoichNum(34,394) = 1 - StoichNum(34,399) = 0.84 - StoichNum(34,403) = 1 - StoichNum(34,405) = 0.75 - StoichNum(34,407) = 0.5 - StoichNum(34,412) = 1 - StoichNum(34,416) = 1 - StoichNum(34,418) = 0.75 - StoichNum(34,426) = 0.5 - StoichNum(34,429) = 0.84 - StoichNum(34,435) = 1 - StoichNum(34,436) = 0.15 - StoichNum(34,437) = 1 - StoichNum(34,439) = 1 - StoichNum(34,445) = 1 - StoichNum(34,450) = 1 - StoichNum(34,468) = 1 - StoichNum(34,469) = 1 - StoichNum(34,486) = 1 - StoichNum(34,487) = 1 - StoichNum(34,488) = 1 - StoichNum(34,489) = 1 - StoichNum(34,490) = 1 - StoichNum(34,491) = 1 - StoichNum(34,492) = 1 - StoichNum(34,516) = 1 - StoichNum(34,517) = 1 - StoichNum(34,518) = 1 - StoichNum(34,519) = 1 - StoichNum(34,520) = 1 - StoichNum(34,521) = 1 - StoichNum(34,522) = 1 - StoichNum(34,523) = 1 - StoichNum(34,540) = 1 - StoichNum(34,541) = 1 - StoichNum(34,544) = 1 - StoichNum(34,545) = 1 - StoichNum(34,548) = 1 - StoichNum(34,549) = 1 - StoichNum(34,559) = 1 - StoichNum(34,560) = 1 - StoichNum(34,563) = 1 - StoichNum(34,564) = 1 - StoichNum(34,567) = 1 - StoichNum(34,568) = 1 - StoichNum(34,570) = 1 - StoichNum(34,572) = 1 - StoichNum(34,586) = 1 - StoichNum(34,587) = 1 - StoichNum(34,590) = 1 - StoichNum(34,591) = 1 - StoichNum(34,595) = 1 - StoichNum(34,596) = 1 - StoichNum(34,598) = 1 - StoichNum(34,599) = 1 - StoichNum(34,601) = 1 - StoichNum(34,602) = 1 - StoichNum(34,615) = 1 - StoichNum(34,616) = 1 - StoichNum(34,617) = 1 - StoichNum(34,618) = 1 - StoichNum(34,633) = 1 - StoichNum(34,634) = 1 - StoichNum(34,635) = 1 - StoichNum(34,636) = 1 - StoichNum(34,639) = 1 - StoichNum(34,642) = 1 - StoichNum(34,650) = 0.69 - StoichNum(34,655) = 1 - StoichNum(34,658) = 1 - StoichNum(34,668) = 1 - StoichNum(34,669) = 1 - StoichNum(34,671) = 0.13 - StoichNum(34,674) = 1 - StoichNum(34,675) = 1 - StoichNum(34,676) = 1 - StoichNum(34,678) = 0.13 - StoichNum(34,679) = 1 - StoichNum(34,684) = 1 - StoichNum(34,695) = 0.13 - StoichNum(34,709) = 0.89 - StoichNum(34,711) = 1 - StoichNum(34,716) = 0.995 - StoichNum(34,721) = 1 - StoichNum(34,728) = 1 - StoichNum(34,733) = 1 - StoichNum(34,736) = 1 - StoichNum(34,737) = 0.15 - StoichNum(34,739) = 1 - StoichNum(34,740) = 1 - StoichNum(34,750) = 0.15 - StoichNum(34,751) = 1 - StoichNum(34,754) = 1 - StoichNum(34,755) = 1 - StoichNum(34,756) = 1 - StoichNum(34,757) = 1 - StoichNum(34,763) = 1 - StoichNum(34,884) = 2 - StoichNum(34,892) = 1 - StoichNum(34,899) = 0.3 - StoichNum(34,900) = 1 - StoichNum(34,927) = 1 - StoichNum(34,928) = 1 - StoichNum(34,982) = 1 - StoichNum(34,985) = 1 - StoichNum(34,988) = 1 - StoichNum(34,998) = 1 - StoichNum(34,999) = 1 - StoichNum(34,1000) = 1 - StoichNum(34,1001) = 1 - StoichNum(34,1047) = 0.3 - StoichNum(35,1) = 1 - StoichNum(35,4) = 1 - StoichNum(35,8) = 1 - StoichNum(35,14) = 1 - StoichNum(35,15) = 1 - StoichNum(35,17) = 1 - StoichNum(35,42) = 1 - StoichNum(35,44) = 1 - StoichNum(35,49) = 2 - StoichNum(35,50) = 1 - StoichNum(35,52) = 1 - StoichNum(35,67) = 1 - StoichNum(35,76) = 1 - StoichNum(35,77) = 1 - StoichNum(35,86) = 1 - StoichNum(35,101) = 1 - StoichNum(35,110) = 1 - StoichNum(35,124) = 1 - StoichNum(35,131) = 1 - StoichNum(35,150) = 1 - StoichNum(35,154) = 1 - StoichNum(35,155) = 1 - StoichNum(35,159) = 1 - StoichNum(35,162) = 1 - StoichNum(35,165) = 1 - StoichNum(35,166) = 1 - StoichNum(35,179) = 1 - StoichNum(35,196) = 2 - StoichNum(35,201) = 1 - StoichNum(35,207) = 2 - StoichNum(35,208) = 2 - StoichNum(35,212) = 1 - StoichNum(35,213) = 1 - StoichNum(35,214) = 1 - StoichNum(35,226) = 1 - StoichNum(35,229) = 1 - StoichNum(35,230) = 1 - StoichNum(35,231) = 1 - StoichNum(35,233) = 2 - StoichNum(35,235) = 1 - StoichNum(35,236) = 1 - StoichNum(35,237) = 1 - StoichNum(35,238) = 1 - StoichNum(35,240) = 2 - StoichNum(35,241) = 2 - StoichNum(35,244) = 1 - StoichNum(35,246) = 1 - StoichNum(35,251) = 2 - StoichNum(35,252) = 1 - StoichNum(35,253) = 0.66 - StoichNum(35,254) = 0.6 - StoichNum(35,257) = 0.44 - StoichNum(35,258) = 0.56 - StoichNum(35,261) = 0.19 - StoichNum(35,269) = 0.1 - StoichNum(35,270) = 0.05 - StoichNum(35,274) = 1 - StoichNum(35,275) = 1 - StoichNum(35,276) = 1 - StoichNum(35,277) = 1 - StoichNum(35,278) = 1 - StoichNum(35,298) = 2 - StoichNum(35,302) = 2 - StoichNum(35,303) = 2 - StoichNum(35,311) = 2 - StoichNum(35,312) = 2 - StoichNum(35,344) = 0.4 - StoichNum(35,349) = 0.88 - StoichNum(35,367) = 1 - StoichNum(35,375) = 1 - StoichNum(35,376) = 1 - StoichNum(35,377) = 1 - StoichNum(35,379) = 1 - StoichNum(35,381) = 1 - StoichNum(35,383) = 1 - StoichNum(35,386) = 1 - StoichNum(35,389) = 1 - StoichNum(35,393) = 1 - StoichNum(35,395) = 1 - StoichNum(35,400) = 1 - StoichNum(35,406) = 1 - StoichNum(35,414) = 1 - StoichNum(35,419) = 1 - StoichNum(35,421) = 1 - StoichNum(35,422) = 2 - StoichNum(35,424) = 1 - StoichNum(35,425) = 2 - StoichNum(35,427) = 0.5 - StoichNum(35,428) = 1 - StoichNum(35,431) = 1 - StoichNum(35,434) = 1 - StoichNum(35,438) = 1 - StoichNum(35,440) = 1 - StoichNum(35,446) = 1 - StoichNum(35,448) = 1 - StoichNum(35,449) = 1 - StoichNum(35,454) = 1 - StoichNum(35,455) = 1 - StoichNum(35,476) = 1 - StoichNum(35,477) = 1 - StoichNum(35,483) = 1 - StoichNum(35,484) = 2 - StoichNum(35,485) = 2 - StoichNum(35,493) = 1 - StoichNum(35,603) = 1 - StoichNum(35,613) = 1 - StoichNum(35,614) = 1 - StoichNum(35,645) = 1 - StoichNum(35,648) = 1 - StoichNum(35,649) = 1 - StoichNum(35,681) = 1 - StoichNum(35,692) = 1 - StoichNum(35,703) = 1 - StoichNum(35,704) = 1 - StoichNum(35,706) = 1 - StoichNum(35,708) = 1 - StoichNum(35,712) = 1 - StoichNum(35,717) = 1 - StoichNum(35,729) = 1 - StoichNum(35,738) = 1 - StoichNum(35,742) = 1.258 - StoichNum(35,744) = 1.5 - StoichNum(35,746) = 1 - StoichNum(35,747) = 1.5 - StoichNum(35,749) = 1 - StoichNum(35,752) = 1 - StoichNum(35,758) = 1 - StoichNum(35,761) = 1 - StoichNum(35,762) = 1 - StoichNum(35,768) = 1 - StoichNum(35,771) = 1 - StoichNum(35,779) = 1 - StoichNum(35,782) = 0.5 - StoichNum(35,783) = 1 - StoichNum(35,784) = 1 - StoichNum(35,785) = 1 - StoichNum(35,786) = 1 - StoichNum(35,787) = 1 - StoichNum(35,788) = 1 - StoichNum(35,789) = 1 - StoichNum(35,790) = 1 - StoichNum(35,794) = 1 - StoichNum(35,796) = 1 - StoichNum(35,797) = 1 - StoichNum(35,798) = 1 - StoichNum(35,799) = 1 - StoichNum(35,800) = 1 - StoichNum(35,801) = 1 - StoichNum(35,802) = 1 - StoichNum(35,803) = 1 - StoichNum(35,804) = 1 - StoichNum(35,805) = 1 - StoichNum(35,806) = 1 - StoichNum(35,807) = 1 - StoichNum(35,808) = 1 - StoichNum(35,809) = 1 - StoichNum(35,810) = 1 - StoichNum(35,811) = 1 - StoichNum(35,812) = 1 - StoichNum(35,813) = 1 - StoichNum(35,814) = 1 - StoichNum(35,815) = 1 - StoichNum(35,816) = 1 - StoichNum(35,817) = 1 - StoichNum(35,818) = 1 - StoichNum(35,819) = 1 - StoichNum(35,828) = 1 - StoichNum(35,829) = 1 - StoichNum(35,830) = 2 - StoichNum(35,831) = 2 - StoichNum(35,832) = 2 - StoichNum(35,833) = 3 - StoichNum(35,834) = 3 - StoichNum(35,835) = 3 - StoichNum(35,836) = 4 - StoichNum(35,837) = 4 - StoichNum(35,838) = 4 - StoichNum(35,839) = 1 - StoichNum(35,840) = 1 - StoichNum(35,841) = 1 - StoichNum(35,842) = 1 - StoichNum(35,844) = 1 - StoichNum(35,845) = 1 - StoichNum(35,846) = 1 - StoichNum(35,847) = 1 - StoichNum(35,848) = 1 - StoichNum(35,849) = 1 - StoichNum(35,850) = 1 - StoichNum(35,851) = 1 - StoichNum(35,852) = 1 - StoichNum(35,853) = 1 - StoichNum(35,854) = 1 - StoichNum(35,855) = 1 - StoichNum(35,862) = 1 - StoichNum(35,863) = 1 - StoichNum(35,864) = 1 - StoichNum(35,865) = 1 - StoichNum(35,866) = 1 - StoichNum(35,869) = 1 - StoichNum(35,870) = 1 - StoichNum(35,871) = 1 - StoichNum(35,872) = 1 - StoichNum(35,874) = 1 - StoichNum(35,875) = 1 - StoichNum(35,876) = 2 - StoichNum(35,877) = 1 - StoichNum(35,878) = 1 - StoichNum(35,879) = 1 - StoichNum(35,880) = 1 - StoichNum(35,895) = 2 - StoichNum(35,933) = 1 - StoichNum(35,946) = 2 - StoichNum(35,950) = 1 - StoichNum(35,967) = 1 - StoichNum(35,969) = 2 - StoichNum(35,994) = 1 - StoichNum(35,996) = 1 - StoichNum(36,34) = 1 - StoichNum(36,50) = 1 - StoichNum(36,51) = 0.05 - StoichNum(36,55) = 1 - StoichNum(36,80) = 1 - StoichNum(36,82) = 1 - StoichNum(36,83) = 1 - StoichNum(36,84) = 1 - StoichNum(36,85) = 1 - StoichNum(36,88) = 1 - StoichNum(36,108) = 1 - StoichNum(36,126) = 1 - StoichNum(36,150) = 0.56 - StoichNum(36,151) = 0.505 - StoichNum(36,152) = 1 - StoichNum(36,160) = 1 - StoichNum(36,163) = 2 - StoichNum(36,164) = 1 - StoichNum(36,165) = 2 - StoichNum(36,166) = 1 - StoichNum(36,168) = 0.5 - StoichNum(36,216) = 1 - StoichNum(36,238) = 1 - StoichNum(36,252) = 1 - StoichNum(36,292) = 1 - StoichNum(36,315) = 1 - StoichNum(36,316) = 1 - StoichNum(36,317) = 1 - StoichNum(36,379) = 0.15 - StoichNum(36,383) = 0.1 - StoichNum(36,493) = 0.407 - StoichNum(36,496) = 0.6 - StoichNum(36,497) = 0.9 - StoichNum(36,503) = 0.6 - StoichNum(36,505) = 0.9 - StoichNum(36,509) = 1 - StoichNum(36,510) = 1 - StoichNum(36,511) = 1 - StoichNum(36,513) = 0.5 - StoichNum(36,515) = 0.5 - StoichNum(36,519) = 0.55 - StoichNum(36,523) = 0.55 - StoichNum(36,524) = 0.45 - StoichNum(36,525) = 0.37 - StoichNum(36,526) = 0.42 - StoichNum(36,527) = 0.23 - StoichNum(36,528) = 0.638 - StoichNum(36,529) = 1.5 - StoichNum(36,530) = 1 - StoichNum(36,535) = 0.25 - StoichNum(36,536) = 0.33 - StoichNum(36,537) = 0.036 - StoichNum(36,538) = 0.054 - StoichNum(36,557) = 1 - StoichNum(36,558) = 0.13 - StoichNum(36,559) = 0.2 - StoichNum(36,562) = 1 - StoichNum(36,563) = 0.2 - StoichNum(36,565) = 0.13 - StoichNum(36,566) = 0.52 - StoichNum(36,568) = 0.8 - StoichNum(36,569) = 2 - StoichNum(36,582) = 0.6 - StoichNum(36,583) = 0.6 - StoichNum(36,638) = 0.539 - StoichNum(36,639) = 0.33 - StoichNum(36,640) = 0.33 - StoichNum(36,645) = 0.28 - StoichNum(36,646) = 0.036 - StoichNum(36,648) = 0.12 - StoichNum(36,649) = 0.68 - StoichNum(36,652) = 0.77 - StoichNum(36,654) = 0.25 - StoichNum(36,661) = 0.75 - StoichNum(36,662) = 1 - StoichNum(36,664) = 1 - StoichNum(36,665) = 2 - StoichNum(36,666) = 0.84 - StoichNum(36,670) = 0.507 - StoichNum(36,671) = 0.325 - StoichNum(36,672) = 0.488 - StoichNum(36,673) = 1 - StoichNum(36,674) = 0.86 - StoichNum(36,676) = 0.65 - StoichNum(36,684) = 0.25 - StoichNum(36,685) = 1 - StoichNum(36,686) = 1 - StoichNum(36,687) = 0.888 - StoichNum(36,690) = 1 - StoichNum(36,696) = 1 - StoichNum(36,704) = 0.18 - StoichNum(36,707) = 0.12 - StoichNum(36,714) = 0.364 - StoichNum(36,724) = 0.2 - StoichNum(36,725) = 0.27 - StoichNum(36,726) = 0.3 - StoichNum(36,740) = 2 - StoichNum(36,763) = 0.15 - StoichNum(36,764) = 0.15 - StoichNum(36,767) = 0.26 - StoichNum(36,768) = 0.5 - StoichNum(36,770) = 0.25 - StoichNum(36,771) = 0.5 - StoichNum(36,772) = 0.05 - StoichNum(36,888) = 1 - StoichNum(36,889) = 1 - StoichNum(36,897) = 0.88 - StoichNum(36,898) = 1 - StoichNum(36,901) = 0.7 - StoichNum(36,902) = 1 - StoichNum(36,903) = 1 - StoichNum(36,905) = 1 - StoichNum(36,907) = 1 - StoichNum(36,908) = 2 - StoichNum(36,909) = 2 - StoichNum(36,910) = 1 - StoichNum(36,911) = 1 - StoichNum(36,912) = 1 - StoichNum(36,913) = 1 - StoichNum(36,915) = 1 - StoichNum(36,986) = 1 - StoichNum(36,990) = 1 - StoichNum(36,1003) = 1 - StoichNum(36,1006) = 1 - StoichNum(36,1007) = 0.5 - StoichNum(36,1009) = 0.571 - StoichNum(36,1010) = 0.875 - StoichNum(36,1011) = 0.77 - StoichNum(36,1014) = 1 - StoichNum(36,1015) = 1 - StoichNum(36,1020) = 0.888 - StoichNum(36,1021) = 0.818 - StoichNum(36,1022) = 1 - StoichNum(36,1023) = 1 - StoichNum(36,1024) = 0.55 - StoichNum(36,1027) = 0.55 - StoichNum(36,1031) = 0.839 - StoichNum(36,1033) = 1 - StoichNum(36,1034) = 0.163 - StoichNum(36,1037) = 1 - StoichNum(36,1041) = 1 - StoichNum(36,1043) = 1 - StoichNum(36,1046) = 1 - StoichNum(36,1049) = 1 - StoichNum(36,1058) = 1 - StoichNum(37,24) = 1 - StoichNum(37,362) = 1 - StoichNum(37,369) = 1 + StoichNum(34,882) = 1 + StoichNum(34,883) = 1 + StoichNum(34,884) = 1 + StoichNum(34,885) = 1 + StoichNum(34,886) = 1 + StoichNum(34,888) = 2 + StoichNum(35,10) = 1 + StoichNum(36,887) = 1 + StoichNum(37,18) = 1 + StoichNum(37,22) = 1 + StoichNum(37,26) = 1 + StoichNum(37,36) = 1 + StoichNum(37,38) = 1 + StoichNum(37,56) = 1 + StoichNum(37,58) = 1 + StoichNum(37,60) = 1 + StoichNum(37,63) = 1 + StoichNum(37,65) = 1 + StoichNum(37,68) = 1 + StoichNum(37,73) = 2 + StoichNum(37,78) = 0.942 + StoichNum(37,80) = 1 + StoichNum(37,82) = 1 + StoichNum(37,85) = 1 + StoichNum(37,87) = 1 + StoichNum(37,88) = 2 + StoichNum(37,90) = 1 + StoichNum(37,91) = 1 + StoichNum(37,92) = 1 + StoichNum(37,93) = 1 + StoichNum(37,94) = 1 + StoichNum(37,95) = 1 + StoichNum(37,96) = 1 + StoichNum(37,97) = 1 + StoichNum(37,98) = 1 + StoichNum(37,100) = 1 + StoichNum(37,109) = 1 + StoichNum(37,123) = 1 + StoichNum(37,125) = 1 + StoichNum(37,126) = 1 + StoichNum(37,127) = 1 + StoichNum(37,128) = 0.15 + StoichNum(37,148) = 0.15 + StoichNum(37,156) = 1 + StoichNum(37,157) = 1 + StoichNum(37,158) = 0.15 + StoichNum(37,160) = 1 + StoichNum(37,211) = 1 + StoichNum(37,247) = 0.02 + StoichNum(37,248) = 1 + StoichNum(37,249) = 1 + StoichNum(37,273) = 1 + StoichNum(37,281) = 1 + StoichNum(37,282) = 1 + StoichNum(37,297) = 1 + StoichNum(37,309) = 0.1 + StoichNum(37,319) = 1 + StoichNum(37,322) = 1 + StoichNum(37,323) = 1 + StoichNum(37,352) = 1 + StoichNum(37,363) = 1 + StoichNum(37,364) = 1 + StoichNum(37,370) = 1 + StoichNum(37,371) = 1 + StoichNum(37,385) = 0.75 + StoichNum(37,388) = 0.5 + StoichNum(37,391) = 0.15 + StoichNum(37,392) = 1 + StoichNum(37,394) = 1 + StoichNum(37,399) = 0.84 + StoichNum(37,403) = 1 + StoichNum(37,405) = 0.75 + StoichNum(37,407) = 0.5 + StoichNum(37,412) = 1 + StoichNum(37,416) = 1 + StoichNum(37,418) = 0.75 + StoichNum(37,426) = 0.5 + StoichNum(37,429) = 0.84 + StoichNum(37,435) = 1 + StoichNum(37,436) = 0.15 + StoichNum(37,437) = 1 + StoichNum(37,439) = 1 + StoichNum(37,445) = 1 + StoichNum(37,450) = 1 + StoichNum(37,468) = 1 + StoichNum(37,469) = 1 + StoichNum(37,486) = 1 + StoichNum(37,487) = 1 + StoichNum(37,488) = 1 + StoichNum(37,489) = 1 + StoichNum(37,490) = 1 + StoichNum(37,491) = 1 + StoichNum(37,492) = 1 + StoichNum(37,516) = 1 + StoichNum(37,517) = 1 + StoichNum(37,518) = 1 + StoichNum(37,519) = 1 + StoichNum(37,520) = 1 + StoichNum(37,521) = 1 + StoichNum(37,522) = 1 + StoichNum(37,523) = 1 + StoichNum(37,540) = 1 + StoichNum(37,541) = 1 + StoichNum(37,544) = 1 + StoichNum(37,545) = 1 + StoichNum(37,548) = 1 + StoichNum(37,549) = 1 + StoichNum(37,559) = 1 + StoichNum(37,560) = 1 + StoichNum(37,563) = 1 + StoichNum(37,564) = 1 + StoichNum(37,567) = 1 + StoichNum(37,568) = 1 + StoichNum(37,570) = 1 + StoichNum(37,572) = 1 + StoichNum(37,586) = 1 + StoichNum(37,587) = 1 + StoichNum(37,590) = 1 + StoichNum(37,591) = 1 + StoichNum(37,595) = 1 + StoichNum(37,596) = 1 + StoichNum(37,598) = 1 + StoichNum(37,599) = 1 + StoichNum(37,601) = 1 + StoichNum(37,602) = 1 + StoichNum(37,615) = 1 + StoichNum(37,616) = 1 + StoichNum(37,617) = 1 + StoichNum(37,618) = 1 + StoichNum(37,633) = 1 + StoichNum(37,634) = 1 + StoichNum(37,635) = 1 + StoichNum(37,636) = 1 + StoichNum(37,639) = 1 + StoichNum(37,642) = 1 + StoichNum(37,650) = 0.69 + StoichNum(37,655) = 1 + StoichNum(37,658) = 1 + StoichNum(37,668) = 1 + StoichNum(37,669) = 1 + StoichNum(37,671) = 0.13 + StoichNum(37,674) = 1 + StoichNum(37,675) = 1 + StoichNum(37,676) = 1 + StoichNum(37,678) = 0.13 + StoichNum(37,679) = 1 + StoichNum(37,684) = 1 + StoichNum(37,695) = 0.13 + StoichNum(37,709) = 0.89 + StoichNum(37,711) = 1 + StoichNum(37,716) = 0.995 + StoichNum(37,721) = 1 + StoichNum(37,728) = 1 + StoichNum(37,733) = 1 + StoichNum(37,736) = 1 + StoichNum(37,737) = 0.15 + StoichNum(37,739) = 1 + StoichNum(37,740) = 1 + StoichNum(37,750) = 0.15 + StoichNum(37,751) = 1 + StoichNum(37,754) = 1 + StoichNum(37,755) = 1 + StoichNum(37,756) = 1 + StoichNum(37,757) = 1 + StoichNum(37,763) = 1 + StoichNum(37,891) = 2 + StoichNum(37,899) = 1 + StoichNum(37,906) = 0.3 + StoichNum(37,907) = 1 + StoichNum(37,934) = 1 + StoichNum(37,935) = 1 + StoichNum(37,989) = 1 + StoichNum(37,992) = 1 + StoichNum(37,995) = 1 + StoichNum(37,1005) = 1 + StoichNum(37,1006) = 1 + StoichNum(37,1007) = 1 + StoichNum(37,1008) = 1 + StoichNum(37,1054) = 0.3 StoichNum(38,1) = 1 - StoichNum(38,7) = 1 + StoichNum(38,4) = 1 StoichNum(38,8) = 1 - StoichNum(38,9) = 1 - StoichNum(38,12) = 2 - StoichNum(38,202) = 1 - StoichNum(38,368) = 1 - StoichNum(38,372) = 1 + StoichNum(38,14) = 1 + StoichNum(38,15) = 1 + StoichNum(38,17) = 1 + StoichNum(38,42) = 1 + StoichNum(38,44) = 1 + StoichNum(38,49) = 2 + StoichNum(38,50) = 1 + StoichNum(38,52) = 1 + StoichNum(38,67) = 1 + StoichNum(38,76) = 1 + StoichNum(38,77) = 1 + StoichNum(38,86) = 1 + StoichNum(38,101) = 1 + StoichNum(38,110) = 1 + StoichNum(38,124) = 1 + StoichNum(38,131) = 1 + StoichNum(38,150) = 1 + StoichNum(38,154) = 1 + StoichNum(38,155) = 1 + StoichNum(38,159) = 1 + StoichNum(38,162) = 1 + StoichNum(38,165) = 1 + StoichNum(38,166) = 1 + StoichNum(38,179) = 1 + StoichNum(38,196) = 2 + StoichNum(38,201) = 1 + StoichNum(38,207) = 2 + StoichNum(38,208) = 2 + StoichNum(38,212) = 1 + StoichNum(38,213) = 1 + StoichNum(38,214) = 1 + StoichNum(38,226) = 1 + StoichNum(38,229) = 1 + StoichNum(38,230) = 1 + StoichNum(38,231) = 1 + StoichNum(38,233) = 2 + StoichNum(38,235) = 1 + StoichNum(38,236) = 1 + StoichNum(38,237) = 1 + StoichNum(38,238) = 1 + StoichNum(38,240) = 2 + StoichNum(38,241) = 2 + StoichNum(38,244) = 1 + StoichNum(38,246) = 1 + StoichNum(38,251) = 2 + StoichNum(38,252) = 1 + StoichNum(38,253) = 0.66 + StoichNum(38,254) = 0.6 + StoichNum(38,257) = 0.44 + StoichNum(38,258) = 0.56 + StoichNum(38,261) = 0.19 + StoichNum(38,269) = 0.1 + StoichNum(38,270) = 0.05 + StoichNum(38,274) = 1 + StoichNum(38,275) = 1 + StoichNum(38,276) = 1 + StoichNum(38,277) = 1 + StoichNum(38,278) = 1 + StoichNum(38,298) = 2 + StoichNum(38,302) = 2 + StoichNum(38,303) = 2 + StoichNum(38,311) = 2 + StoichNum(38,312) = 2 + StoichNum(38,344) = 0.4 + StoichNum(38,349) = 0.88 + StoichNum(38,367) = 1 + StoichNum(38,375) = 1 + StoichNum(38,376) = 1 + StoichNum(38,377) = 1 + StoichNum(38,379) = 1 + StoichNum(38,381) = 1 + StoichNum(38,383) = 1 + StoichNum(38,386) = 1 + StoichNum(38,389) = 1 + StoichNum(38,393) = 1 + StoichNum(38,395) = 1 + StoichNum(38,400) = 1 + StoichNum(38,406) = 1 + StoichNum(38,414) = 1 + StoichNum(38,419) = 1 + StoichNum(38,421) = 1 + StoichNum(38,422) = 2 + StoichNum(38,424) = 1 + StoichNum(38,425) = 2 + StoichNum(38,427) = 0.5 + StoichNum(38,428) = 1 + StoichNum(38,431) = 1 + StoichNum(38,434) = 1 + StoichNum(38,438) = 1 + StoichNum(38,440) = 1 + StoichNum(38,446) = 1 + StoichNum(38,448) = 1 + StoichNum(38,449) = 1 + StoichNum(38,454) = 1 + StoichNum(38,455) = 1 + StoichNum(38,476) = 1 + StoichNum(38,477) = 1 + StoichNum(38,483) = 1 + StoichNum(38,484) = 2 + StoichNum(38,485) = 2 + StoichNum(38,493) = 1 + StoichNum(38,603) = 1 + StoichNum(38,613) = 1 + StoichNum(38,614) = 1 + StoichNum(38,645) = 1 + StoichNum(38,648) = 1 + StoichNum(38,649) = 1 + StoichNum(38,681) = 1 + StoichNum(38,692) = 1 + StoichNum(38,703) = 1 + StoichNum(38,704) = 1 + StoichNum(38,706) = 1 + StoichNum(38,708) = 1 + StoichNum(38,712) = 1 + StoichNum(38,717) = 1 + StoichNum(38,729) = 1 + StoichNum(38,738) = 1 + StoichNum(38,742) = 1.258 + StoichNum(38,744) = 1.5 + StoichNum(38,746) = 1 + StoichNum(38,747) = 1.5 + StoichNum(38,749) = 1 + StoichNum(38,752) = 1 + StoichNum(38,758) = 1 + StoichNum(38,761) = 1 + StoichNum(38,762) = 1 + StoichNum(38,768) = 1 + StoichNum(38,771) = 1 + StoichNum(38,779) = 1 + StoichNum(38,782) = 0.5 + StoichNum(38,783) = 1 + StoichNum(38,784) = 1 + StoichNum(38,785) = 1 + StoichNum(38,786) = 1 + StoichNum(38,787) = 1 + StoichNum(38,788) = 1 + StoichNum(38,789) = 1 + StoichNum(38,790) = 1 + StoichNum(38,794) = 1 + StoichNum(38,796) = 1 + StoichNum(38,797) = 1 + StoichNum(38,798) = 1 + StoichNum(38,799) = 1 + StoichNum(38,800) = 1 + StoichNum(38,801) = 1 + StoichNum(38,802) = 1 + StoichNum(38,803) = 1 + StoichNum(38,804) = 1 + StoichNum(38,805) = 1 + StoichNum(38,806) = 1 + StoichNum(38,807) = 1 + StoichNum(38,808) = 1 + StoichNum(38,809) = 1 + StoichNum(38,810) = 1 + StoichNum(38,811) = 1 StoichNum(38,812) = 1 + StoichNum(38,813) = 1 + StoichNum(38,814) = 1 + StoichNum(38,815) = 1 + StoichNum(38,816) = 1 + StoichNum(38,817) = 1 + StoichNum(38,818) = 1 StoichNum(38,819) = 1 - StoichNum(39,25) = 1 - StoichNum(39,231) = 1 - StoichNum(39,291) = 1 - StoichNum(40,19) = 1 - StoichNum(40,23) = 1 - StoichNum(40,365) = 0.06 - StoichNum(40,366) = 0.06 - StoichNum(40,373) = 1 - StoichNum(40,493) = 0.013 - StoichNum(40,645) = 0.045 - StoichNum(41,780) = -1 - StoichNum(42,346) = 1 - StoichNum(42,347) = -1 - StoichNum(42,836) = -1 - StoichNum(42,837) = -1 - StoichNum(42,838) = -1 - StoichNum(42,978) = -1 - StoichNum(43,286) = -1 - StoichNum(43,951) = -1 - StoichNum(44,357) = 0.6 - StoichNum(44,358) = -1 - StoichNum(44,830) = -1 - StoichNum(44,831) = -1 - StoichNum(44,832) = -1 - StoichNum(44,973) = -1 - StoichNum(45,487) = -1 - StoichNum(45,864) = 1 - StoichNum(45,865) = 1 - StoichNum(45,866) = 1 - StoichNum(46,256) = -0.79 - StoichNum(46,952) = -1 - StoichNum(47,262) = -0.9 - StoichNum(47,953) = -1 - StoichNum(48,263) = -0.86 - StoichNum(48,954) = -1 - StoichNum(49,269) = -0.9 - StoichNum(49,955) = -1 - StoichNum(50,270) = -0.9 - StoichNum(50,956) = -1 - StoichNum(51,271) = -0.86 - StoichNum(51,957) = -1 - StoichNum(52,359) = -1 - StoichNum(52,974) = -1 - StoichNum(53,265) = -0.45 - StoichNum(53,962) = -1 - StoichNum(54,272) = -0.75 + StoichNum(38,828) = 1 + StoichNum(38,829) = 1 + StoichNum(38,830) = 2 + StoichNum(38,831) = 2 + StoichNum(38,832) = 2 + StoichNum(38,833) = 3 + StoichNum(38,834) = 3 + StoichNum(38,835) = 3 + StoichNum(38,836) = 4 + StoichNum(38,837) = 4 + StoichNum(38,838) = 4 + StoichNum(38,839) = 1 + StoichNum(38,840) = 1 + StoichNum(38,841) = 1 + StoichNum(38,842) = 1 + StoichNum(38,844) = 1 + StoichNum(38,845) = 1 + StoichNum(38,846) = 1 + StoichNum(38,847) = 1 + StoichNum(38,848) = 1 + StoichNum(38,849) = 1 + StoichNum(38,850) = 1 + StoichNum(38,851) = 1 + StoichNum(38,852) = 1 + StoichNum(38,853) = 1 + StoichNum(38,854) = 1 + StoichNum(38,855) = 1 + StoichNum(38,862) = 1 + StoichNum(38,863) = 1 + StoichNum(38,864) = 1 + StoichNum(38,865) = 1 + StoichNum(38,866) = 1 + StoichNum(38,869) = 1 + StoichNum(38,870) = 1 + StoichNum(38,871) = 1 + StoichNum(38,872) = 1 + StoichNum(38,874) = 1 + StoichNum(38,875) = 1 + StoichNum(38,876) = 2 + StoichNum(38,877) = 1 + StoichNum(38,878) = 1 + StoichNum(38,879) = 1 + StoichNum(38,880) = 1 + StoichNum(38,883) = 1 + StoichNum(38,885) = 1 + StoichNum(38,902) = 2 + StoichNum(38,940) = 1 + StoichNum(38,953) = 2 + StoichNum(38,957) = 1 + StoichNum(38,974) = 1 + StoichNum(38,976) = 2 + StoichNum(38,1001) = 1 + StoichNum(38,1003) = 1 + StoichNum(39,34) = 1 + StoichNum(39,50) = 1 + StoichNum(39,51) = 0.05 + StoichNum(39,55) = 1 + StoichNum(39,80) = 1 + StoichNum(39,82) = 1 + StoichNum(39,83) = 1 + StoichNum(39,84) = 1 + StoichNum(39,85) = 1 + StoichNum(39,88) = 1 + StoichNum(39,108) = 1 + StoichNum(39,126) = 1 + StoichNum(39,150) = 0.56 + StoichNum(39,151) = 0.505 + StoichNum(39,152) = 1 + StoichNum(39,160) = 1 + StoichNum(39,163) = 2 + StoichNum(39,164) = 1 + StoichNum(39,165) = 2 + StoichNum(39,166) = 1 + StoichNum(39,168) = 0.5 + StoichNum(39,216) = 1 + StoichNum(39,238) = 1 + StoichNum(39,252) = 1 + StoichNum(39,292) = 1 + StoichNum(39,315) = 1 + StoichNum(39,316) = 1 + StoichNum(39,317) = 1 + StoichNum(39,379) = 0.15 + StoichNum(39,383) = 0.1 + StoichNum(39,493) = 0.407 + StoichNum(39,496) = 0.6 + StoichNum(39,497) = 0.9 + StoichNum(39,503) = 0.6 + StoichNum(39,505) = 0.9 + StoichNum(39,509) = 1 + StoichNum(39,510) = 1 + StoichNum(39,511) = 1 + StoichNum(39,513) = 0.5 + StoichNum(39,515) = 0.5 + StoichNum(39,519) = 0.55 + StoichNum(39,523) = 0.55 + StoichNum(39,524) = 0.45 + StoichNum(39,525) = 0.37 + StoichNum(39,526) = 0.42 + StoichNum(39,527) = 0.23 + StoichNum(39,528) = 0.638 + StoichNum(39,529) = 1.5 + StoichNum(39,530) = 1 + StoichNum(39,535) = 0.25 + StoichNum(39,536) = 0.33 + StoichNum(39,537) = 0.036 + StoichNum(39,538) = 0.054 + StoichNum(39,557) = 1 + StoichNum(39,558) = 0.13 + StoichNum(39,559) = 0.2 + StoichNum(39,562) = 1 + StoichNum(39,563) = 0.2 + StoichNum(39,565) = 0.13 + StoichNum(39,566) = 0.52 + StoichNum(39,568) = 0.8 + StoichNum(39,569) = 2 + StoichNum(39,582) = 0.6 + StoichNum(39,583) = 0.6 + StoichNum(39,638) = 0.539 + StoichNum(39,639) = 0.33 + StoichNum(39,640) = 0.33 + StoichNum(39,645) = 0.28 + StoichNum(39,646) = 0.036 + StoichNum(39,648) = 0.12 + StoichNum(39,649) = 0.68 + StoichNum(39,652) = 0.77 + StoichNum(39,654) = 0.25 + StoichNum(39,661) = 0.75 + StoichNum(39,662) = 1 + StoichNum(39,664) = 1 + StoichNum(39,665) = 2 + StoichNum(39,666) = 0.84 + StoichNum(39,670) = 0.507 + StoichNum(39,671) = 0.325 + StoichNum(39,672) = 0.488 + StoichNum(39,673) = 1 + StoichNum(39,674) = 0.86 + StoichNum(39,676) = 0.65 + StoichNum(39,684) = 0.25 + StoichNum(39,685) = 1 + StoichNum(39,686) = 1 + StoichNum(39,687) = 0.888 + StoichNum(39,690) = 1 + StoichNum(39,696) = 1 + StoichNum(39,704) = 0.18 + StoichNum(39,707) = 0.12 + StoichNum(39,714) = 0.364 + StoichNum(39,724) = 0.2 + StoichNum(39,725) = 0.27 + StoichNum(39,726) = 0.3 + StoichNum(39,740) = 2 + StoichNum(39,763) = 0.15 + StoichNum(39,764) = 0.15 + StoichNum(39,767) = 0.26 + StoichNum(39,768) = 0.5 + StoichNum(39,770) = 0.25 + StoichNum(39,771) = 0.5 + StoichNum(39,772) = 0.05 + StoichNum(39,895) = 1 + StoichNum(39,896) = 1 + StoichNum(39,904) = 0.88 + StoichNum(39,905) = 1 + StoichNum(39,908) = 0.7 + StoichNum(39,909) = 1 + StoichNum(39,910) = 1 + StoichNum(39,912) = 1 + StoichNum(39,914) = 1 + StoichNum(39,915) = 2 + StoichNum(39,916) = 2 + StoichNum(39,917) = 1 + StoichNum(39,918) = 1 + StoichNum(39,919) = 1 + StoichNum(39,920) = 1 + StoichNum(39,922) = 1 + StoichNum(39,993) = 1 + StoichNum(39,997) = 1 + StoichNum(39,1010) = 1 + StoichNum(39,1013) = 1 + StoichNum(39,1014) = 0.5 + StoichNum(39,1016) = 0.571 + StoichNum(39,1017) = 0.875 + StoichNum(39,1018) = 0.77 + StoichNum(39,1021) = 1 + StoichNum(39,1022) = 1 + StoichNum(39,1027) = 0.888 + StoichNum(39,1028) = 0.818 + StoichNum(39,1029) = 1 + StoichNum(39,1030) = 1 + StoichNum(39,1031) = 0.55 + StoichNum(39,1034) = 0.55 + StoichNum(39,1038) = 0.839 + StoichNum(39,1040) = 1 + StoichNum(39,1041) = 0.163 + StoichNum(39,1044) = 1 + StoichNum(39,1048) = 1 + StoichNum(39,1050) = 1 + StoichNum(39,1053) = 1 + StoichNum(39,1056) = 1 + StoichNum(39,1065) = 1 + StoichNum(40,24) = 1 + StoichNum(40,362) = 1 + StoichNum(40,369) = 1 + StoichNum(41,1) = 1 + StoichNum(41,7) = 1 + StoichNum(41,8) = 1 + StoichNum(41,9) = 1 + StoichNum(41,12) = 2 + StoichNum(41,202) = 1 + StoichNum(41,368) = 1 + StoichNum(41,372) = 1 + StoichNum(41,812) = 1 + StoichNum(41,819) = 1 + StoichNum(41,882) = 1 + StoichNum(41,883) = 1 + StoichNum(41,884) = 1 + StoichNum(41,885) = 1 + StoichNum(41,888) = 2 + StoichNum(42,25) = 1 + StoichNum(42,231) = 1 + StoichNum(42,291) = 1 + StoichNum(43,19) = 1 + StoichNum(43,23) = 1 + StoichNum(43,365) = 0.06 + StoichNum(43,366) = 0.06 + StoichNum(43,373) = 1 + StoichNum(43,493) = 0.013 + StoichNum(43,645) = 0.045 + StoichNum(44,780) = -1 + StoichNum(45,346) = 1 + StoichNum(45,347) = -1 + StoichNum(45,836) = -1 + StoichNum(45,837) = -1 + StoichNum(45,838) = -1 + StoichNum(45,985) = -1 + StoichNum(46,286) = -1 + StoichNum(46,958) = -1 + StoichNum(47,357) = 0.6 + StoichNum(47,358) = -1 + StoichNum(47,830) = -1 + StoichNum(47,831) = -1 + StoichNum(47,832) = -1 + StoichNum(47,980) = -1 + StoichNum(48,487) = -1 + StoichNum(48,864) = 1 + StoichNum(48,865) = 1 + StoichNum(48,866) = 1 + StoichNum(49,256) = -0.79 + StoichNum(49,959) = -1 + StoichNum(50,262) = -0.9 + StoichNum(50,960) = -1 + StoichNum(51,263) = -0.86 + StoichNum(51,961) = -1 + StoichNum(52,269) = -0.9 + StoichNum(52,962) = -1 + StoichNum(53,270) = -0.9 + StoichNum(53,963) = -1 + StoichNum(54,271) = -0.86 StoichNum(54,964) = -1 - StoichNum(55,345) = 1 - StoichNum(55,833) = -1 - StoichNum(55,834) = -1 - StoichNum(55,835) = -1 - StoichNum(55,979) = -1 - StoichNum(56,393) = 1 - StoichNum(56,394) = -1 - StoichNum(57,438) = 1 - StoichNum(57,439) = -1 - StoichNum(58,707) = 0.15 - StoichNum(58,732) = -1 - StoichNum(59,221) = 1 - StoichNum(59,936) = -1 - StoichNum(60,714) = -1 - StoichNum(61,264) = -0.65 - StoichNum(61,963) = -1 - StoichNum(62,334) = 1 - StoichNum(62,335) = -2 - StoichNum(62,970) = -1 - StoichNum(63,230) = -1 - StoichNum(63,250) = 1 - StoichNum(63,985) = -1 - StoichNum(64,3) = 1 - StoichNum(64,784) = 1 - StoichNum(64,996) = -1 - StoichNum(64,997) = -1 - StoichNum(65,6) = 1 - StoichNum(65,785) = 1 - StoichNum(65,994) = -1 - StoichNum(65,995) = -1 - StoichNum(66,391) = 0.15 - StoichNum(66,397) = -1 - StoichNum(66,464) = 0.25 - StoichNum(66,1051) = -1 - StoichNum(67,248) = -1 - StoichNum(67,249) = -1 - StoichNum(67,250) = -1 - StoichNum(67,988) = 1 - StoichNum(68,238) = -1 - StoichNum(68,239) = -1 - StoichNum(68,986) = -1 - StoichNum(69,66) = -1 - StoichNum(69,67) = -1 - StoichNum(70,716) = 0.005 - StoichNum(70,721) = -1 - StoichNum(71,750) = 0.65 - StoichNum(71,753) = -1 - StoichNum(71,1044) = -1 - StoichNum(72,158) = 0.56 - StoichNum(72,161) = -1 - StoichNum(73,351) = 1 - StoichNum(73,353) = -1 - StoichNum(73,825) = -1 - StoichNum(73,826) = -1 - StoichNum(73,827) = -1 - StoichNum(74,391) = 0.41 - StoichNum(74,396) = -1 - StoichNum(74,1050) = -1 - StoichNum(75,285) = -1 - StoichNum(75,317) = -1 - StoichNum(76,278) = -1 - StoichNum(76,307) = 1 - StoichNum(76,308) = -1 - StoichNum(76,946) = -1 - StoichNum(77,844) = 1 - StoichNum(77,845) = 1 - StoichNum(77,848) = 1 - StoichNum(77,849) = 1 - StoichNum(77,852) = 1 - StoichNum(77,853) = 1 - StoichNum(77,980) = -1 - StoichNum(78,224) = -1 - StoichNum(78,259) = -0.95 - StoichNum(78,938) = -1 - StoichNum(79,284) = -1 - StoichNum(79,316) = -1 - StoichNum(79,941) = -1 - StoichNum(80,197) = 1 - StoichNum(80,198) = -1 - StoichNum(80,982) = -1 - StoichNum(80,983) = -1 - StoichNum(81,223) = -1 - StoichNum(81,260) = -0.7 - StoichNum(81,937) = -1 - StoichNum(82,725) = -1 - StoichNum(83,59) = 1 - StoichNum(83,490) = -1 - StoichNum(83,999) = -1 - StoichNum(84,268) = -0.79 - StoichNum(84,290) = -1 - StoichNum(84,958) = -1 - StoichNum(85,266) = -0.69 - StoichNum(85,288) = -1 - StoichNum(85,959) = -1 - StoichNum(86,267) = -0.65 - StoichNum(86,289) = -1 - StoichNum(86,960) = -1 - StoichNum(87,261) = -0.75 - StoichNum(87,287) = -1 - StoichNum(87,961) = -1 - StoichNum(88,365) = 0.73 - StoichNum(88,366) = 0.4 - StoichNum(88,694) = -1 - StoichNum(88,1002) = -1 - StoichNum(89,10) = 1 - StoichNum(89,11) = -1 - StoichNum(89,12) = -1 - StoichNum(90,752) = 1 - StoichNum(90,754) = -1 - StoichNum(90,755) = -1 - StoichNum(91,99) = 1 - StoichNum(91,491) = -1 - StoichNum(91,1000) = -1 - StoichNum(92,178) = -1 - StoichNum(92,695) = 0.37 - StoichNum(92,930) = -1 - StoichNum(93,27) = 1 - StoichNum(93,489) = -1 - StoichNum(93,998) = -1 - StoichNum(94,199) = -1 - StoichNum(94,200) = -1 - StoichNum(94,201) = -1 - StoichNum(95,64) = 1 - StoichNum(95,492) = -1 - StoichNum(95,1001) = -1 - StoichNum(96,344) = 0.8 - StoichNum(96,345) = -1 - StoichNum(96,346) = -2 - StoichNum(96,347) = 2 - StoichNum(96,348) = -1 - StoichNum(96,357) = 0.4 - StoichNum(96,358) = 0.996 - StoichNum(96,969) = -1 - StoichNum(96,973) = 1 - StoichNum(96,978) = 2 - StoichNum(96,979) = 1 - StoichNum(97,114) = 1 - StoichNum(97,173) = -1 - StoichNum(97,921) = -1 - StoichNum(98,70) = 1 - StoichNum(98,71) = -1 - StoichNum(98,922) = -1 - StoichNum(99,146) = 1 - StoichNum(99,171) = -1 - StoichNum(99,919) = -1 - StoichNum(100,120) = 1 - StoichNum(100,172) = -1 - StoichNum(100,920) = -1 - StoichNum(101,726) = -1 - StoichNum(102,116) = 1 - StoichNum(102,174) = -1 - StoichNum(102,923) = -1 - StoichNum(103,486) = -1 - StoichNum(103,862) = 1 - StoichNum(103,863) = 1 - StoichNum(103,869) = 1 - StoichNum(103,870) = 1 - StoichNum(103,871) = 1 - StoichNum(103,872) = 1 - StoichNum(103,874) = 1 - StoichNum(103,875) = 1 - StoichNum(103,876) = 1 - StoichNum(103,877) = 1 - StoichNum(103,878) = 1 - StoichNum(103,879) = 1 - StoichNum(103,880) = 1 - StoichNum(104,349) = 0.191 - StoichNum(104,846) = 1 - StoichNum(104,847) = 1 - StoichNum(104,850) = 1 - StoichNum(104,851) = 1 - StoichNum(104,854) = 1 - StoichNum(104,855) = 1 - StoichNum(104,981) = -1 - StoichNum(105,225) = -1 - StoichNum(105,258) = -1 - StoichNum(105,939) = -1 - StoichNum(106,716) = 0.995 - StoichNum(106,717) = 1 - StoichNum(106,718) = 0.6 - StoichNum(106,719) = -1 - StoichNum(106,720) = -1 - StoichNum(106,1042) = 1 - StoichNum(107,672) = 0.098 - StoichNum(107,684) = 0.75 - StoichNum(107,685) = -1 - StoichNum(107,868) = -1 - StoichNum(108,39) = 1 - StoichNum(108,40) = -1 - StoichNum(108,41) = -1 - StoichNum(108,892) = -1 - StoichNum(108,893) = -1 - StoichNum(109,712) = -1 - StoichNum(109,713) = -1 - StoichNum(109,901) = 0.4 - StoichNum(110,274) = 1 - StoichNum(110,278) = 1 - StoichNum(110,303) = 1 - StoichNum(110,305) = 1 - StoichNum(110,306) = -1 - StoichNum(110,309) = -1 - StoichNum(110,311) = 1 - StoichNum(110,946) = 1 - StoichNum(110,965) = -1 + StoichNum(55,359) = -1 + StoichNum(55,981) = -1 + StoichNum(56,265) = -0.45 + StoichNum(56,969) = -1 + StoichNum(57,272) = -0.75 + StoichNum(57,971) = -1 + StoichNum(58,345) = 1 + StoichNum(58,833) = -1 + StoichNum(58,834) = -1 + StoichNum(58,835) = -1 + StoichNum(58,986) = -1 + StoichNum(59,393) = 1 + StoichNum(59,394) = -1 + StoichNum(60,438) = 1 + StoichNum(60,439) = -1 + StoichNum(61,707) = 0.15 + StoichNum(61,732) = -1 + StoichNum(62,221) = 1 + StoichNum(62,943) = -1 + StoichNum(63,714) = -1 + StoichNum(64,264) = -0.65 + StoichNum(64,970) = -1 + StoichNum(65,334) = 1 + StoichNum(65,335) = -2 + StoichNum(65,977) = -1 + StoichNum(66,230) = -1 + StoichNum(66,250) = 1 + StoichNum(66,992) = -1 + StoichNum(67,3) = 1 + StoichNum(67,784) = 1 + StoichNum(67,1003) = -1 + StoichNum(67,1004) = -1 + StoichNum(68,6) = 1 + StoichNum(68,785) = 1 + StoichNum(68,1001) = -1 + StoichNum(68,1002) = -1 + StoichNum(69,391) = 0.15 + StoichNum(69,397) = -1 + StoichNum(69,464) = 0.25 + StoichNum(69,1058) = -1 + StoichNum(70,248) = -1 + StoichNum(70,249) = -1 + StoichNum(70,250) = -1 + StoichNum(70,995) = 1 + StoichNum(71,238) = -1 + StoichNum(71,239) = -1 + StoichNum(71,993) = -1 + StoichNum(72,66) = -1 + StoichNum(72,67) = -1 + StoichNum(73,716) = 0.005 + StoichNum(73,721) = -1 + StoichNum(74,158) = 0.56 + StoichNum(74,161) = -1 + StoichNum(75,351) = 1 + StoichNum(75,353) = -1 + StoichNum(75,825) = -1 + StoichNum(75,826) = -1 + StoichNum(75,827) = -1 + StoichNum(76,391) = 0.41 + StoichNum(76,396) = -1 + StoichNum(76,1057) = -1 + StoichNum(77,750) = 0.65 + StoichNum(77,753) = -1 + StoichNum(77,1051) = -1 + StoichNum(78,278) = -1 + StoichNum(78,307) = 1 + StoichNum(78,308) = -1 + StoichNum(78,953) = -1 + StoichNum(79,224) = -1 + StoichNum(79,259) = -0.95 + StoichNum(79,945) = -1 + StoichNum(80,284) = -1 + StoichNum(80,316) = -1 + StoichNum(80,948) = -1 + StoichNum(81,844) = 1 + StoichNum(81,845) = 1 + StoichNum(81,848) = 1 + StoichNum(81,849) = 1 + StoichNum(81,852) = 1 + StoichNum(81,853) = 1 + StoichNum(81,987) = -1 + StoichNum(82,223) = -1 + StoichNum(82,260) = -0.7 + StoichNum(82,944) = -1 + StoichNum(83,197) = 1 + StoichNum(83,198) = -1 + StoichNum(83,989) = -1 + StoichNum(83,990) = -1 + StoichNum(84,285) = -1 + StoichNum(84,317) = -1 + StoichNum(85,725) = -1 + StoichNum(86,59) = 1 + StoichNum(86,490) = -1 + StoichNum(86,1006) = -1 + StoichNum(87,199) = -1 + StoichNum(87,200) = -1 + StoichNum(87,201) = -1 + StoichNum(88,268) = -0.79 + StoichNum(88,290) = -1 + StoichNum(88,965) = -1 + StoichNum(89,266) = -0.69 + StoichNum(89,288) = -1 + StoichNum(89,966) = -1 + StoichNum(90,267) = -0.65 + StoichNum(90,289) = -1 + StoichNum(90,967) = -1 + StoichNum(91,261) = -0.75 + StoichNum(91,287) = -1 + StoichNum(91,968) = -1 + StoichNum(92,365) = 0.73 + StoichNum(92,366) = 0.4 + StoichNum(92,694) = -1 + StoichNum(92,1009) = -1 + StoichNum(93,10) = 1 + StoichNum(93,11) = -1 + StoichNum(93,12) = -1 + StoichNum(93,886) = 1 + StoichNum(93,887) = -1 + StoichNum(93,888) = -1 + StoichNum(94,99) = 1 + StoichNum(94,491) = -1 + StoichNum(94,1007) = -1 + StoichNum(95,178) = -1 + StoichNum(95,695) = 0.37 + StoichNum(95,937) = -1 + StoichNum(96,27) = 1 + StoichNum(96,489) = -1 + StoichNum(96,1005) = -1 + StoichNum(97,64) = 1 + StoichNum(97,492) = -1 + StoichNum(97,1008) = -1 + StoichNum(98,344) = 0.8 + StoichNum(98,345) = -1 + StoichNum(98,346) = -2 + StoichNum(98,347) = 2 + StoichNum(98,348) = -1 + StoichNum(98,357) = 0.4 + StoichNum(98,358) = 0.996 + StoichNum(98,976) = -1 + StoichNum(98,980) = 1 + StoichNum(98,985) = 2 + StoichNum(98,986) = 1 + StoichNum(99,114) = 1 + StoichNum(99,173) = -1 + StoichNum(99,928) = -1 + StoichNum(100,70) = 1 + StoichNum(100,71) = -1 + StoichNum(100,929) = -1 + StoichNum(101,146) = 1 + StoichNum(101,171) = -1 + StoichNum(101,926) = -1 + StoichNum(102,120) = 1 + StoichNum(102,172) = -1 + StoichNum(102,927) = -1 + StoichNum(103,726) = -1 + StoichNum(104,116) = 1 + StoichNum(104,174) = -1 + StoichNum(104,930) = -1 + StoichNum(105,752) = 1 + StoichNum(105,754) = -1 + StoichNum(105,755) = -1 + StoichNum(106,486) = -1 + StoichNum(106,862) = 1 + StoichNum(106,863) = 1 + StoichNum(106,869) = 1 + StoichNum(106,870) = 1 + StoichNum(106,871) = 1 + StoichNum(106,872) = 1 + StoichNum(106,874) = 1 + StoichNum(106,875) = 1 + StoichNum(106,876) = 1 + StoichNum(106,877) = 1 + StoichNum(106,878) = 1 + StoichNum(106,879) = 1 + StoichNum(106,880) = 1 + StoichNum(107,349) = 0.191 + StoichNum(107,846) = 1 + StoichNum(107,847) = 1 + StoichNum(107,850) = 1 + StoichNum(107,851) = 1 + StoichNum(107,854) = 1 + StoichNum(107,855) = 1 + StoichNum(107,988) = -1 + StoichNum(108,225) = -1 + StoichNum(108,258) = -1 + StoichNum(108,946) = -1 + StoichNum(109,672) = 0.098 + StoichNum(109,684) = 0.75 + StoichNum(109,685) = -1 + StoichNum(109,868) = -1 + StoichNum(110,39) = 1 + StoichNum(110,40) = -1 + StoichNum(110,41) = -1 + StoichNum(110,899) = -1 + StoichNum(110,900) = -1 StoichNum(111,384) = 1 StoichNum(111,387) = -1 - StoichNum(111,1048) = -1 + StoichNum(111,1055) = -1 StoichNum(112,404) = 1 StoichNum(112,408) = -1 - StoichNum(112,1053) = -1 + StoichNum(112,1060) = -1 StoichNum(113,124) = 1 StoichNum(113,125) = -1 StoichNum(113,126) = -1 - StoichNum(114,155) = 1 - StoichNum(114,156) = -1 - StoichNum(114,160) = -1 - StoichNum(115,645) = 0.075 - StoichNum(115,650) = 0.241 - StoichNum(115,661) = 0.653 - StoichNum(115,693) = -1 - StoichNum(115,867) = -1 - StoichNum(115,1004) = -1 - StoichNum(115,1010) = 0.75 - StoichNum(116,709) = 0.11 - StoichNum(116,711) = -1 - StoichNum(116,928) = -1 - StoichNum(117,750) = 0.15 - StoichNum(117,755) = 1 - StoichNum(117,759) = 1 - StoichNum(117,760) = -1 - StoichNum(117,1045) = -1 - StoichNum(118,144) = 1 - StoichNum(118,145) = 1 - StoichNum(118,170) = -1 - StoichNum(118,918) = -1 - StoichNum(119,524) = 0.15 - StoichNum(119,525) = 0.15 - StoichNum(119,530) = -1 - StoichNum(119,1020) = 0.112 - StoichNum(119,1021) = 0.182 - StoichNum(119,1031) = 0.161 - StoichNum(120,277) = -1 - StoichNum(120,304) = 1 - StoichNum(120,310) = 1 - StoichNum(120,349) = 0.56 - StoichNum(120,945) = -1 - StoichNum(121,732) = 1 - StoichNum(121,733) = -1 - StoichNum(121,734) = -1 - StoichNum(122,738) = 1 - StoichNum(122,739) = -1 - StoichNum(122,740) = -1 - StoichNum(123,147) = 1 - StoichNum(123,176) = -1 - StoichNum(123,924) = -1 - StoichNum(124,106) = 1 - StoichNum(124,107) = -1 - StoichNum(124,108) = -1 - StoichNum(124,1047) = -1 - StoichNum(125,121) = 1 - StoichNum(125,169) = -1 - StoichNum(125,917) = -1 - StoichNum(126,86) = 1 - StoichNum(126,87) = -1 - StoichNum(126,88) = -1 - StoichNum(126,900) = -1 - StoichNum(127,78) = 0.058 - StoichNum(127,80) = -1 - StoichNum(128,537) = 0.255 - StoichNum(128,538) = 0.595 - StoichNum(128,551) = -1 - StoichNum(128,578) = 1 - StoichNum(128,580) = 1 - StoichNum(128,860) = -1 - StoichNum(129,383) = 0.2 - StoichNum(129,405) = 0.75 - StoichNum(129,406) = 1 - StoichNum(129,407) = 0.5 - StoichNum(129,409) = -1 - StoichNum(129,458) = 1 - StoichNum(129,459) = 1 - StoichNum(129,1053) = 1 - StoichNum(130,436) = 0.15 - StoichNum(130,442) = -1 - StoichNum(130,466) = 0.25 - StoichNum(130,1056) = -1 - StoichNum(131,557) = 1 - StoichNum(131,558) = 0.13 - StoichNum(131,559) = 0.2 - StoichNum(131,663) = -1 - StoichNum(131,686) = 0.35 - StoichNum(131,1033) = 0.35 - StoichNum(132,81) = 0.255 - StoichNum(132,82) = -1 - StoichNum(132,83) = -1 - StoichNum(133,524) = 0.315 - StoichNum(133,570) = -1 - StoichNum(133,571) = -1 - StoichNum(134,1) = 1 - StoichNum(134,7) = 1 - StoichNum(134,8) = 1 - StoichNum(134,9) = 1 - StoichNum(134,12) = 2 - StoichNum(134,202) = 1 - StoichNum(134,368) = 1 - StoichNum(134,372) = 1 - StoichNum(134,812) = 1 - StoichNum(134,819) = 1 - StoichNum(134,987) = -1 - StoichNum(135,525) = 0.315 - StoichNum(135,572) = -1 - StoichNum(135,573) = -1 - StoichNum(136,715) = 1 - StoichNum(136,718) = 0.2 - StoichNum(136,722) = -1 - StoichNum(136,723) = -1 - StoichNum(136,1042) = -1 - StoichNum(137,385) = 0.25 - StoichNum(137,388) = -1 - StoichNum(138,405) = 0.25 - StoichNum(138,407) = -1 - StoichNum(139,53) = 1 - StoichNum(139,54) = -1 - StoichNum(139,55) = -1 - StoichNum(139,899) = -1 + StoichNum(114,716) = 0.995 + StoichNum(114,717) = 1 + StoichNum(114,718) = 0.6 + StoichNum(114,719) = -1 + StoichNum(114,720) = -1 + StoichNum(114,1049) = 1 + StoichNum(115,155) = 1 + StoichNum(115,156) = -1 + StoichNum(115,160) = -1 + StoichNum(116,645) = 0.075 + StoichNum(116,650) = 0.241 + StoichNum(116,661) = 0.653 + StoichNum(116,693) = -1 + StoichNum(116,867) = -1 + StoichNum(116,1011) = -1 + StoichNum(116,1017) = 0.75 + StoichNum(117,709) = 0.11 + StoichNum(117,711) = -1 + StoichNum(117,935) = -1 + StoichNum(118,750) = 0.15 + StoichNum(118,755) = 1 + StoichNum(118,759) = 1 + StoichNum(118,760) = -1 + StoichNum(118,1052) = -1 + StoichNum(119,274) = 1 + StoichNum(119,278) = 1 + StoichNum(119,303) = 1 + StoichNum(119,305) = 1 + StoichNum(119,306) = -1 + StoichNum(119,309) = -1 + StoichNum(119,311) = 1 + StoichNum(119,953) = 1 + StoichNum(119,972) = -1 + StoichNum(120,712) = -1 + StoichNum(120,713) = -1 + StoichNum(120,908) = 0.4 + StoichNum(121,144) = 1 + StoichNum(121,145) = 1 + StoichNum(121,170) = -1 + StoichNum(121,925) = -1 + StoichNum(122,524) = 0.15 + StoichNum(122,525) = 0.15 + StoichNum(122,530) = -1 + StoichNum(122,1027) = 0.112 + StoichNum(122,1028) = 0.182 + StoichNum(122,1038) = 0.161 + StoichNum(123,277) = -1 + StoichNum(123,304) = 1 + StoichNum(123,310) = 1 + StoichNum(123,349) = 0.56 + StoichNum(123,952) = -1 + StoichNum(124,732) = 1 + StoichNum(124,733) = -1 + StoichNum(124,734) = -1 + StoichNum(125,738) = 1 + StoichNum(125,739) = -1 + StoichNum(125,740) = -1 + StoichNum(126,147) = 1 + StoichNum(126,176) = -1 + StoichNum(126,931) = -1 + StoichNum(127,106) = 1 + StoichNum(127,107) = -1 + StoichNum(127,108) = -1 + StoichNum(127,1054) = -1 + StoichNum(128,121) = 1 + StoichNum(128,169) = -1 + StoichNum(128,924) = -1 + StoichNum(129,86) = 1 + StoichNum(129,87) = -1 + StoichNum(129,88) = -1 + StoichNum(129,907) = -1 + StoichNum(130,78) = 0.058 + StoichNum(130,80) = -1 + StoichNum(131,537) = 0.255 + StoichNum(131,538) = 0.595 + StoichNum(131,551) = -1 + StoichNum(131,578) = 1 + StoichNum(131,580) = 1 + StoichNum(131,860) = -1 + StoichNum(132,383) = 0.2 + StoichNum(132,405) = 0.75 + StoichNum(132,406) = 1 + StoichNum(132,407) = 0.5 + StoichNum(132,409) = -1 + StoichNum(132,458) = 1 + StoichNum(132,459) = 1 + StoichNum(132,1060) = 1 + StoichNum(133,81) = 0.255 + StoichNum(133,82) = -1 + StoichNum(133,83) = -1 + StoichNum(134,436) = 0.15 + StoichNum(134,442) = -1 + StoichNum(134,466) = 0.25 + StoichNum(134,1063) = -1 + StoichNum(135,557) = 1 + StoichNum(135,558) = 0.13 + StoichNum(135,559) = 0.2 + StoichNum(135,663) = -1 + StoichNum(135,686) = 0.35 + StoichNum(135,1040) = 0.35 + StoichNum(136,525) = 0.315 + StoichNum(136,572) = -1 + StoichNum(136,573) = -1 + StoichNum(137,524) = 0.315 + StoichNum(137,570) = -1 + StoichNum(137,571) = -1 + StoichNum(138,715) = 1 + StoichNum(138,718) = 0.2 + StoichNum(138,722) = -1 + StoichNum(138,723) = -1 + StoichNum(138,1049) = -1 + StoichNum(139,385) = 0.25 + StoichNum(139,388) = -1 StoichNum(140,75) = -1 StoichNum(140,76) = -1 StoichNum(140,77) = -1 - StoichNum(141,61) = -1 - StoichNum(141,62) = -1 - StoichNum(141,220) = -1 - StoichNum(141,327) = -1 - StoichNum(141,328) = -1 - StoichNum(142,89) = -1 - StoichNum(142,101) = -1 - StoichNum(142,331) = -1 - StoichNum(143,704) = 0.1 - StoichNum(143,724) = -1 - StoichNum(144,497) = 0.15 - StoichNum(144,505) = 0.15 - StoichNum(144,527) = -1 - StoichNum(144,538) = 0.009 - StoichNum(144,1023) = -1 - StoichNum(145,607) = 0.474 - StoichNum(145,608) = 0.34 - StoichNum(145,609) = 0.244 - StoichNum(145,612) = 0.841 - StoichNum(145,614) = 0.841 - StoichNum(145,617) = 0.841 - StoichNum(145,619) = -1 - StoichNum(145,620) = -1 - StoichNum(145,1029) = 0.841 - StoichNum(145,1032) = 0.222 - StoichNum(146,733) = 1 - StoichNum(146,734) = 1 - StoichNum(146,735) = -1 - StoichNum(146,902) = -1 - StoichNum(147,556) = 1 - StoichNum(147,561) = 1 - StoichNum(147,687) = -1 - StoichNum(147,1037) = -1 - StoichNum(148,208) = 1 - StoichNum(148,210) = 1 - StoichNum(148,211) = -1 - StoichNum(148,813) = 1 - StoichNum(148,817) = 1 - StoichNum(148,818) = 1 - StoichNum(148,931) = -1 - StoichNum(149,705) = -1 - StoichNum(149,706) = -1 + StoichNum(141,405) = 0.25 + StoichNum(141,407) = -1 + StoichNum(142,61) = -1 + StoichNum(142,62) = -1 + StoichNum(142,220) = -1 + StoichNum(142,327) = -1 + StoichNum(142,328) = -1 + StoichNum(143,53) = 1 + StoichNum(143,54) = -1 + StoichNum(143,55) = -1 + StoichNum(143,906) = -1 + StoichNum(144,89) = -1 + StoichNum(144,101) = -1 + StoichNum(144,331) = -1 + StoichNum(145,704) = 0.1 + StoichNum(145,724) = -1 + StoichNum(146,1) = 1 + StoichNum(146,7) = 1 + StoichNum(146,8) = 1 + StoichNum(146,9) = 1 + StoichNum(146,12) = 2 + StoichNum(146,202) = 1 + StoichNum(146,368) = 1 + StoichNum(146,372) = 1 + StoichNum(146,812) = 1 + StoichNum(146,819) = 1 + StoichNum(146,882) = 1 + StoichNum(146,883) = 1 + StoichNum(146,884) = 1 + StoichNum(146,885) = 1 + StoichNum(146,888) = 2 + StoichNum(146,994) = -1 + StoichNum(147,607) = 0.474 + StoichNum(147,608) = 0.34 + StoichNum(147,609) = 0.244 + StoichNum(147,612) = 0.841 + StoichNum(147,614) = 0.841 + StoichNum(147,617) = 0.841 + StoichNum(147,619) = -1 + StoichNum(147,620) = -1 + StoichNum(147,1036) = 0.841 + StoichNum(147,1039) = 0.222 + StoichNum(148,705) = -1 + StoichNum(148,706) = -1 + StoichNum(149,556) = 1 + StoichNum(149,561) = 1 + StoichNum(149,687) = -1 + StoichNum(149,1044) = -1 StoichNum(150,496) = 0.15 StoichNum(150,503) = 0.15 StoichNum(150,526) = -1 StoichNum(150,537) = 0.009 - StoichNum(150,1022) = -1 - StoichNum(151,532) = 0.67 - StoichNum(151,534) = 0.68 - StoichNum(151,552) = -1 - StoichNum(151,553) = -1 - StoichNum(151,575) = 0.67 - StoichNum(151,577) = 0.67 - StoichNum(151,858) = -1 - StoichNum(152,532) = 0.33 - StoichNum(152,534) = 0.32 - StoichNum(152,554) = -1 - StoichNum(152,555) = -1 - StoichNum(152,575) = 0.33 - StoichNum(152,577) = 0.33 - StoichNum(152,859) = -1 - StoichNum(153,562) = 1 - StoichNum(153,563) = 0.2 - StoichNum(153,565) = 0.13 - StoichNum(153,666) = -1 - StoichNum(153,686) = 0.15 - StoichNum(153,1033) = 0.15 - StoichNum(153,1034) = 0.163 - StoichNum(154,481) = 1 - StoichNum(154,482) = 1 - StoichNum(154,483) = 1 - StoichNum(154,484) = 1 - StoichNum(154,485) = 1 - StoichNum(154,488) = -1 - StoichNum(154,866) = -1 - StoichNum(154,993) = -1 - StoichNum(155,128) = 0.41 - StoichNum(155,148) = 0.41 - StoichNum(155,175) = -1 - StoichNum(155,737) = 0.41 - StoichNum(155,925) = -1 - StoichNum(156,129) = 0.25 - StoichNum(156,130) = 0.25 - StoichNum(156,140) = -1 - StoichNum(156,142) = 0.4 - StoichNum(156,143) = 0.4 - StoichNum(156,325) = -1 - StoichNum(157,312) = 1 - StoichNum(157,794) = 1 - StoichNum(157,797) = 1 - StoichNum(157,798) = 1 - StoichNum(157,799) = 1 - StoichNum(157,805) = 1 - StoichNum(157,806) = 1 - StoichNum(157,807) = 1 - StoichNum(157,809) = 1 - StoichNum(157,814) = 1 - StoichNum(157,815) = 1 - StoichNum(157,816) = 1 - StoichNum(157,942) = -1 - StoichNum(158,705) = 0.18 - StoichNum(158,707) = 0.03 - StoichNum(158,725) = 0.19 - StoichNum(158,726) = 0.15 - StoichNum(158,743) = -1 - StoichNum(158,744) = -1 - StoichNum(159,671) = 0.5 - StoichNum(159,672) = -1 - StoichNum(159,1012) = -0.75 - StoichNum(160,398) = 1 - StoichNum(160,401) = 0.25 - StoichNum(160,402) = -1 - StoichNum(160,1052) = -1 - StoichNum(161,410) = 1 - StoichNum(161,413) = 0.25 - StoichNum(161,415) = -1 - StoichNum(161,1054) = -1 - StoichNum(162,407) = 0.5 - StoichNum(162,411) = 1 - StoichNum(162,416) = -1 - StoichNum(163,421) = 0.3 - StoichNum(163,429) = 0.84 - StoichNum(163,431) = 1 - StoichNum(163,432) = 0.75 - StoichNum(163,433) = -1 - StoichNum(163,434) = -1 - StoichNum(164,28) = 1 - StoichNum(164,32) = -1 - StoichNum(164,320) = -1 - StoichNum(164,887) = -1 - StoichNum(165,72) = 1 - StoichNum(165,73) = -1 - StoichNum(165,74) = -1 - StoichNum(166,4) = -2 - StoichNum(166,5) = -1 - StoichNum(166,6) = -1 - StoichNum(167,377) = -1 - StoichNum(167,378) = -1 - StoichNum(167,379) = -1 - StoichNum(168,520) = 1 - StoichNum(168,576) = -1 - StoichNum(168,577) = -1 - StoichNum(168,871) = -1 - StoichNum(168,1026) = -1 - StoichNum(169,430) = 1 - StoichNum(169,432) = 0.25 - StoichNum(169,436) = 0.41 - StoichNum(169,441) = -1 - StoichNum(169,1055) = -1 - StoichNum(170,335) = 1 - StoichNum(170,338) = 1 - StoichNum(170,339) = -1 - StoichNum(170,342) = 1 - StoichNum(170,352) = -1 - StoichNum(170,966) = -1 - StoichNum(171,655) = -1 - StoichNum(171,656) = -1 - StoichNum(171,657) = -1 - StoichNum(171,1020) = 0.224 - StoichNum(171,1031) = 0.068 - StoichNum(172,658) = -1 - StoichNum(172,659) = -1 - StoichNum(172,660) = -1 - StoichNum(172,1021) = 0.182 - StoichNum(172,1031) = 0.128 - StoichNum(173,128) = 0.15 - StoichNum(173,148) = 0.15 - StoichNum(173,475) = 0.5 - StoichNum(173,701) = -1 - StoichNum(173,707) = 0.5 - StoichNum(173,726) = 0.45 - StoichNum(173,737) = 0.15 - StoichNum(173,767) = 0.43 - StoichNum(173,770) = 0.52 - StoichNum(174,542) = 0.725 - StoichNum(174,546) = 0.725 - StoichNum(174,550) = 0.35 - StoichNum(174,688) = -1 - StoichNum(174,1035) = -1 + StoichNum(150,1029) = -1 + StoichNum(151,497) = 0.15 + StoichNum(151,505) = 0.15 + StoichNum(151,527) = -1 + StoichNum(151,538) = 0.009 + StoichNum(151,1030) = -1 + StoichNum(152,733) = 1 + StoichNum(152,734) = 1 + StoichNum(152,735) = -1 + StoichNum(152,909) = -1 + StoichNum(153,208) = 1 + StoichNum(153,210) = 1 + StoichNum(153,211) = -1 + StoichNum(153,813) = 1 + StoichNum(153,817) = 1 + StoichNum(153,818) = 1 + StoichNum(153,938) = -1 + StoichNum(154,129) = 0.25 + StoichNum(154,130) = 0.25 + StoichNum(154,140) = -1 + StoichNum(154,142) = 0.4 + StoichNum(154,143) = 0.4 + StoichNum(154,325) = -1 + StoichNum(155,562) = 1 + StoichNum(155,563) = 0.2 + StoichNum(155,565) = 0.13 + StoichNum(155,666) = -1 + StoichNum(155,686) = 0.15 + StoichNum(155,1040) = 0.15 + StoichNum(155,1041) = 0.163 + StoichNum(156,481) = 1 + StoichNum(156,482) = 1 + StoichNum(156,483) = 1 + StoichNum(156,484) = 1 + StoichNum(156,485) = 1 + StoichNum(156,488) = -1 + StoichNum(156,866) = -1 + StoichNum(156,1000) = -1 + StoichNum(157,532) = 0.67 + StoichNum(157,534) = 0.68 + StoichNum(157,552) = -1 + StoichNum(157,553) = -1 + StoichNum(157,575) = 0.67 + StoichNum(157,577) = 0.67 + StoichNum(157,858) = -1 + StoichNum(158,128) = 0.41 + StoichNum(158,148) = 0.41 + StoichNum(158,175) = -1 + StoichNum(158,737) = 0.41 + StoichNum(158,932) = -1 + StoichNum(159,532) = 0.33 + StoichNum(159,534) = 0.32 + StoichNum(159,554) = -1 + StoichNum(159,555) = -1 + StoichNum(159,575) = 0.33 + StoichNum(159,577) = 0.33 + StoichNum(159,859) = -1 + StoichNum(160,312) = 1 + StoichNum(160,794) = 1 + StoichNum(160,797) = 1 + StoichNum(160,798) = 1 + StoichNum(160,799) = 1 + StoichNum(160,805) = 1 + StoichNum(160,806) = 1 + StoichNum(160,807) = 1 + StoichNum(160,809) = 1 + StoichNum(160,814) = 1 + StoichNum(160,815) = 1 + StoichNum(160,816) = 1 + StoichNum(160,949) = -1 + StoichNum(161,671) = 0.5 + StoichNum(161,672) = -1 + StoichNum(161,1019) = -0.75 + StoichNum(162,705) = 0.18 + StoichNum(162,707) = 0.03 + StoichNum(162,725) = 0.19 + StoichNum(162,726) = 0.15 + StoichNum(162,743) = -1 + StoichNum(162,744) = -1 + StoichNum(163,398) = 1 + StoichNum(163,401) = 0.25 + StoichNum(163,402) = -1 + StoichNum(163,1059) = -1 + StoichNum(164,410) = 1 + StoichNum(164,413) = 0.25 + StoichNum(164,415) = -1 + StoichNum(164,1061) = -1 + StoichNum(165,407) = 0.5 + StoichNum(165,411) = 1 + StoichNum(165,416) = -1 + StoichNum(166,421) = 0.3 + StoichNum(166,429) = 0.84 + StoichNum(166,431) = 1 + StoichNum(166,432) = 0.75 + StoichNum(166,433) = -1 + StoichNum(166,434) = -1 + StoichNum(167,28) = 1 + StoichNum(167,32) = -1 + StoichNum(167,320) = -1 + StoichNum(167,894) = -1 + StoichNum(168,72) = 1 + StoichNum(168,73) = -1 + StoichNum(168,74) = -1 + StoichNum(169,4) = -2 + StoichNum(169,5) = -1 + StoichNum(169,6) = -1 + StoichNum(170,377) = -1 + StoichNum(170,378) = -1 + StoichNum(170,379) = -1 + StoichNum(171,430) = 1 + StoichNum(171,432) = 0.25 + StoichNum(171,436) = 0.41 + StoichNum(171,441) = -1 + StoichNum(171,1062) = -1 + StoichNum(172,335) = 1 + StoichNum(172,338) = 1 + StoichNum(172,339) = -1 + StoichNum(172,342) = 1 + StoichNum(172,352) = -1 + StoichNum(172,973) = -1 + StoichNum(173,655) = -1 + StoichNum(173,656) = -1 + StoichNum(173,657) = -1 + StoichNum(173,1027) = 0.224 + StoichNum(173,1038) = 0.068 + StoichNum(174,658) = -1 + StoichNum(174,659) = -1 + StoichNum(174,660) = -1 + StoichNum(174,1028) = 0.182 + StoichNum(174,1038) = 0.128 StoichNum(175,516) = 1 StoichNum(175,574) = -1 StoichNum(175,575) = -1 StoichNum(175,870) = -1 - StoichNum(175,1025) = -1 - StoichNum(176,388) = 0.5 - StoichNum(176,399) = 0.16 - StoichNum(176,403) = -1 - StoichNum(177,422) = 1 - StoichNum(177,425) = 1 - StoichNum(177,426) = 0.5 - StoichNum(177,427) = 0.5 - StoichNum(177,428) = 1 - StoichNum(177,429) = 0.16 - StoichNum(177,435) = -1 - StoichNum(178,66) = 1 - StoichNum(178,67) = 1 - StoichNum(178,68) = -1 - StoichNum(178,69) = -1 - StoichNum(178,70) = -1 - StoichNum(178,71) = 0.5 - StoichNum(179,1) = -2 - StoichNum(179,2) = -1 - StoichNum(179,3) = -1 - StoichNum(180,641) = 0.435 - StoichNum(180,642) = -1 - StoichNum(180,643) = -1 - StoichNum(181,257) = -0.9 - StoichNum(181,283) = -1 - StoichNum(181,315) = -1 - StoichNum(181,940) = -1 - StoichNum(182,638) = 0.461 - StoichNum(182,639) = -0.33 - StoichNum(182,640) = -0.33 - StoichNum(182,691) = 0.041 - StoichNum(183,57) = -1 - StoichNum(183,179) = -1 - StoichNum(183,219) = -1 - StoichNum(183,321) = -1 - StoichNum(184,677) = 1 - StoichNum(184,680) = 1 - StoichNum(184,683) = -1 - StoichNum(184,684) = -1 - StoichNum(185,530) = 1 - StoichNum(185,662) = -1 - StoichNum(185,687) = 0.444 - StoichNum(185,1009) = -1 - StoichNum(185,1020) = 0.112 - StoichNum(185,1021) = 0.182 - StoichNum(185,1031) = 0.162 - StoichNum(185,1037) = 0.454 - StoichNum(186,605) = 1 - StoichNum(186,622) = -1 - StoichNum(186,624) = -1 - StoichNum(186,625) = -1 - StoichNum(186,627) = -1 - StoichNum(186,628) = -1 - StoichNum(186,874) = -1 - StoichNum(186,1029) = -1 - StoichNum(186,1030) = -1 - StoichNum(187,498) = 0.937 - StoichNum(187,531) = -1 - StoichNum(187,532) = -1 - StoichNum(187,535) = -1 - StoichNum(187,1016) = -1 - StoichNum(188,112) = 0.25 - StoichNum(188,113) = 0.25 - StoichNum(188,132) = 0.38 - StoichNum(188,133) = 0.375 - StoichNum(188,134) = 0.38 - StoichNum(188,135) = 0.375 - StoichNum(188,137) = 0.25 - StoichNum(188,138) = 0.25 - StoichNum(188,139) = 0.25 - StoichNum(188,141) = -1 - StoichNum(188,473) = 0.25 - StoichNum(189,702) = 0.3 - StoichNum(189,705) = 0.07 - StoichNum(189,707) = 0.05 - StoichNum(189,709) = -1 - StoichNum(189,710) = -1 - StoichNum(190,576) = 1 - StoichNum(190,588) = -1 - StoichNum(190,589) = -1 - StoichNum(190,590) = -1 - StoichNum(190,591) = -1 - StoichNum(191,375) = -1 - StoichNum(191,382) = -1 - StoichNum(191,383) = -1 - StoichNum(192,500) = 0.937 - StoichNum(192,533) = -1 - StoichNum(192,534) = -1 - StoichNum(192,536) = -1 - StoichNum(192,1017) = -1 - StoichNum(193,444) = 1 - StoichNum(193,450) = -1 - StoichNum(193,451) = -1 - StoichNum(193,452) = -1 - StoichNum(194,661) = -1 - StoichNum(194,691) = 0.022 - StoichNum(194,1010) = -1 - StoichNum(194,1020) = 0.552 - StoichNum(194,1021) = 0.454 - StoichNum(194,1031) = 0.481 - StoichNum(195,724) = 0.54 - StoichNum(195,741) = -1 - StoichNum(195,742) = -1 - StoichNum(196,69) = 1 - StoichNum(196,72) = -1 - StoichNum(196,74) = 1 - StoichNum(196,927) = -1 - StoichNum(197,81) = 0.68 - StoichNum(197,84) = -1 - StoichNum(197,85) = -1 - StoichNum(197,86) = -1 - StoichNum(197,87) = 1 - StoichNum(197,900) = 1 - StoichNum(197,901) = 0.3 + StoichNum(175,1032) = -1 + StoichNum(176,128) = 0.15 + StoichNum(176,148) = 0.15 + StoichNum(176,475) = 0.5 + StoichNum(176,701) = -1 + StoichNum(176,707) = 0.5 + StoichNum(176,726) = 0.45 + StoichNum(176,737) = 0.15 + StoichNum(176,767) = 0.43 + StoichNum(176,770) = 0.52 + StoichNum(177,520) = 1 + StoichNum(177,576) = -1 + StoichNum(177,577) = -1 + StoichNum(177,871) = -1 + StoichNum(177,1033) = -1 + StoichNum(178,542) = 0.725 + StoichNum(178,546) = 0.725 + StoichNum(178,550) = 0.35 + StoichNum(178,688) = -1 + StoichNum(178,1042) = -1 + StoichNum(179,388) = 0.5 + StoichNum(179,399) = 0.16 + StoichNum(179,403) = -1 + StoichNum(180,422) = 1 + StoichNum(180,425) = 1 + StoichNum(180,426) = 0.5 + StoichNum(180,427) = 0.5 + StoichNum(180,428) = 1 + StoichNum(180,429) = 0.16 + StoichNum(180,435) = -1 + StoichNum(181,641) = 0.435 + StoichNum(181,642) = -1 + StoichNum(181,643) = -1 + StoichNum(182,66) = 1 + StoichNum(182,67) = 1 + StoichNum(182,68) = -1 + StoichNum(182,69) = -1 + StoichNum(182,70) = -1 + StoichNum(182,71) = 0.5 + StoichNum(183,1) = -2 + StoichNum(183,2) = -1 + StoichNum(183,3) = -1 + StoichNum(184,257) = -0.9 + StoichNum(184,283) = -1 + StoichNum(184,315) = -1 + StoichNum(184,947) = -1 + StoichNum(185,638) = 0.461 + StoichNum(185,639) = -0.33 + StoichNum(185,640) = -0.33 + StoichNum(185,691) = 0.041 + StoichNum(186,576) = 1 + StoichNum(186,588) = -1 + StoichNum(186,589) = -1 + StoichNum(186,590) = -1 + StoichNum(186,591) = -1 + StoichNum(187,57) = -1 + StoichNum(187,179) = -1 + StoichNum(187,219) = -1 + StoichNum(187,321) = -1 + StoichNum(188,605) = 1 + StoichNum(188,622) = -1 + StoichNum(188,624) = -1 + StoichNum(188,625) = -1 + StoichNum(188,627) = -1 + StoichNum(188,628) = -1 + StoichNum(188,874) = -1 + StoichNum(188,1036) = -1 + StoichNum(188,1037) = -1 + StoichNum(189,677) = 1 + StoichNum(189,680) = 1 + StoichNum(189,683) = -1 + StoichNum(189,684) = -1 + StoichNum(190,530) = 1 + StoichNum(190,662) = -1 + StoichNum(190,687) = 0.444 + StoichNum(190,1016) = -1 + StoichNum(190,1027) = 0.112 + StoichNum(190,1028) = 0.182 + StoichNum(190,1038) = 0.162 + StoichNum(190,1044) = 0.454 + StoichNum(191,498) = 0.937 + StoichNum(191,531) = -1 + StoichNum(191,532) = -1 + StoichNum(191,535) = -1 + StoichNum(191,1023) = -1 + StoichNum(192,112) = 0.25 + StoichNum(192,113) = 0.25 + StoichNum(192,132) = 0.38 + StoichNum(192,133) = 0.375 + StoichNum(192,134) = 0.38 + StoichNum(192,135) = 0.375 + StoichNum(192,137) = 0.25 + StoichNum(192,138) = 0.25 + StoichNum(192,139) = 0.25 + StoichNum(192,141) = -1 + StoichNum(192,473) = 0.25 + StoichNum(193,702) = 0.3 + StoichNum(193,705) = 0.07 + StoichNum(193,707) = 0.05 + StoichNum(193,709) = -1 + StoichNum(193,710) = -1 + StoichNum(194,375) = -1 + StoichNum(194,382) = -1 + StoichNum(194,383) = -1 + StoichNum(195,500) = 0.937 + StoichNum(195,533) = -1 + StoichNum(195,534) = -1 + StoichNum(195,536) = -1 + StoichNum(195,1024) = -1 + StoichNum(196,444) = 1 + StoichNum(196,450) = -1 + StoichNum(196,451) = -1 + StoichNum(196,452) = -1 + StoichNum(197,661) = -1 + StoichNum(197,691) = 0.022 + StoichNum(197,1017) = -1 + StoichNum(197,1027) = 0.552 + StoichNum(197,1028) = 0.454 + StoichNum(197,1038) = 0.481 StoichNum(198,539) = 0.824 StoichNum(198,543) = 0.452 StoichNum(198,547) = 1 StoichNum(198,688) = 0.667 StoichNum(198,689) = -1 - StoichNum(198,1036) = -1 - StoichNum(199,501) = 1 - StoichNum(199,538) = -1 - StoichNum(199,1019) = -1 - StoichNum(200,707) = -1 - StoichNum(200,708) = -1 - StoichNum(201,705) = 0.4 - StoichNum(201,707) = 0.6 - StoichNum(201,708) = 0.4 - StoichNum(201,725) = 0.3 - StoichNum(201,726) = 0.56 - StoichNum(201,743) = 0.44 - StoichNum(201,744) = 0.44 - StoichNum(201,770) = -1 - StoichNum(201,771) = -1 - StoichNum(201,772) = -1 - StoichNum(202,741) = 0.8 - StoichNum(202,743) = 0.727 - StoichNum(202,745) = -1 - StoichNum(202,746) = -1 - StoichNum(202,747) = -1 - StoichNum(203,741) = 0.06 - StoichNum(203,742) = 0.742 - StoichNum(203,743) = 0.073 - StoichNum(203,744) = 0.3 - StoichNum(203,745) = 0.3 - StoichNum(203,747) = 0.3 - StoichNum(203,756) = 1 - StoichNum(203,757) = 1 - StoichNum(203,758) = 1 - StoichNum(203,761) = -1 - StoichNum(203,762) = -1 - StoichNum(203,765) = 1 - StoichNum(203,1045) = 1 - StoichNum(204,702) = 0.7 - StoichNum(204,703) = 1 - StoichNum(204,704) = 0.62 - StoichNum(204,706) = 1 - StoichNum(204,708) = 1 - StoichNum(204,709) = 0.89 - StoichNum(204,710) = 1 - StoichNum(204,711) = 1 - StoichNum(204,725) = 0.06 - StoichNum(204,726) = 0.06 - StoichNum(204,748) = -1 - StoichNum(204,749) = -1 - StoichNum(204,928) = 1 - StoichNum(204,1043) = -1 - StoichNum(205,574) = 1 - StoichNum(205,584) = -1 - StoichNum(205,585) = -1 - StoichNum(205,586) = -1 - StoichNum(205,587) = -1 - StoichNum(206,579) = 1 - StoichNum(206,592) = -1 - StoichNum(206,594) = -1 - StoichNum(206,595) = -1 - StoichNum(206,596) = -1 - StoichNum(207,581) = 1 - StoichNum(207,593) = -1 - StoichNum(207,597) = -1 - StoichNum(207,598) = -1 - StoichNum(207,599) = -1 - StoichNum(208,566) = 0.13 - StoichNum(208,568) = 0.2 - StoichNum(208,651) = 0.53 - StoichNum(208,663) = 0.6 - StoichNum(208,665) = -1 - StoichNum(208,667) = 0.255 - StoichNum(208,687) = 0.318 - StoichNum(208,1006) = -1 - StoichNum(208,1037) = 0.391 - StoichNum(209,499) = 1 - StoichNum(209,537) = -1 - StoichNum(209,1018) = -1 - StoichNum(210,496) = 0.3 - StoichNum(210,503) = 0.3 - StoichNum(210,537) = 0.018 - StoichNum(210,540) = 0.284 - StoichNum(210,542) = 0.135 - StoichNum(210,631) = 0.249 - StoichNum(210,632) = 0.471 - StoichNum(210,633) = 0.303 - StoichNum(210,635) = 0.59 - StoichNum(210,696) = -1 - StoichNum(210,697) = -1 - StoichNum(210,1003) = -1 - StoichNum(210,1039) = 0.5 - StoichNum(211,418) = 0.25 - StoichNum(211,426) = -1 - StoichNum(211,427) = -1 - StoichNum(211,428) = -1 - StoichNum(212,75) = 1 - StoichNum(212,78) = -1 - StoichNum(212,79) = -1 - StoichNum(213,153) = 0.8 - StoichNum(213,154) = 1 - StoichNum(213,155) = -1 - StoichNum(213,156) = 1 - StoichNum(213,157) = -1 - StoichNum(213,158) = -1 - StoichNum(213,159) = -1 - StoichNum(214,45) = 1 - StoichNum(214,46) = -1 - StoichNum(214,786) = -1 - StoichNum(214,787) = -1 - StoichNum(214,788) = -1 - StoichNum(214,789) = -1 - StoichNum(214,790) = -1 - StoichNum(214,896) = -1 - StoichNum(215,524) = 0.085 - StoichNum(215,525) = 0.165 - StoichNum(215,526) = 0.58 - StoichNum(215,527) = 0.77 - StoichNum(215,529) = -1 - StoichNum(215,551) = 0.75 - StoichNum(215,552) = 1 - StoichNum(215,554) = 1 - StoichNum(215,625) = 1 - StoichNum(215,637) = 1 - StoichNum(215,873) = -1 - StoichNum(216,582) = 0.6 - StoichNum(216,594) = 0.031 - StoichNum(216,595) = 0.065 - StoichNum(216,600) = 0.094 - StoichNum(216,601) = 0.355 - StoichNum(216,631) = 0.06 - StoichNum(216,632) = 0.073 - StoichNum(216,633) = 0.17 - StoichNum(216,635) = 0.291 - StoichNum(216,638) = 0.378 - StoichNum(216,654) = -1 - StoichNum(216,678) = 0.13 - StoichNum(216,682) = 0.3 - StoichNum(216,879) = -1 - StoichNum(216,1015) = -1 - StoichNum(217,229) = 1 - StoichNum(217,231) = 0.2 - StoichNum(217,234) = 1 - StoichNum(217,235) = 1 - StoichNum(217,245) = -1 - StoichNum(217,246) = -1 - StoichNum(217,247) = -1 - StoichNum(217,253) = 0.22 - StoichNum(217,254) = 0.2 - StoichNum(217,257) = 0.09 - StoichNum(217,294) = 1 - StoichNum(217,888) = 1 - StoichNum(218,210) = -1 - StoichNum(218,222) = 1 - StoichNum(218,793) = -1 - StoichNum(218,794) = -1 - StoichNum(218,934) = -1 - StoichNum(218,935) = -1 - StoichNum(219,376) = -1 - StoichNum(219,380) = -1 - StoichNum(219,381) = -1 - StoichNum(220,702) = -1 - StoichNum(220,703) = -1 - StoichNum(220,704) = -1 - StoichNum(221,705) = 0.8 - StoichNum(221,707) = 0.375 - StoichNum(221,724) = 0.55 - StoichNum(221,725) = 0.68 - StoichNum(221,726) = 0.28 - StoichNum(221,741) = 0.18 - StoichNum(221,745) = 1.05 - StoichNum(221,746) = 1 - StoichNum(221,747) = 0.3 - StoichNum(221,763) = 0.9 - StoichNum(221,764) = 0.9 - StoichNum(221,767) = -1 - StoichNum(221,768) = -1 - StoichNum(221,769) = -1 - StoichNum(221,1046) = 1 - StoichNum(222,604) = 0.473 - StoichNum(222,606) = 0.07 - StoichNum(222,607) = 0.399 - StoichNum(222,610) = 0.355 - StoichNum(222,621) = -1 - StoichNum(222,623) = -1 - StoichNum(222,626) = -1 - StoichNum(222,875) = -1 - StoichNum(222,1028) = -1 - StoichNum(223,531) = 0.345 - StoichNum(223,537) = 0.595 - StoichNum(223,539) = -1 - StoichNum(223,540) = -1 - StoichNum(223,541) = -1 - StoichNum(223,542) = -1 - StoichNum(224,533) = 0.345 - StoichNum(224,538) = 0.255 - StoichNum(224,543) = -1 - StoichNum(224,544) = -1 - StoichNum(224,545) = -1 - StoichNum(224,546) = -1 - StoichNum(225,383) = 0.2 - StoichNum(225,385) = 0.75 - StoichNum(225,386) = 1 - StoichNum(225,388) = 0.5 - StoichNum(225,389) = -1 - StoichNum(225,390) = -1 - StoichNum(225,456) = 1 - StoichNum(225,457) = 1 - StoichNum(225,1048) = 1 - StoichNum(225,1049) = -1 - StoichNum(226,622) = 1 - StoichNum(226,629) = -1 - StoichNum(226,632) = -1 - StoichNum(226,635) = -1 - StoichNum(226,636) = -1 - StoichNum(227,650) = 0.29 - StoichNum(227,651) = 0.47 - StoichNum(227,661) = 0.063 - StoichNum(227,663) = 0.4 - StoichNum(227,664) = -1 - StoichNum(227,666) = 0.16 - StoichNum(227,687) = 0.126 - StoichNum(227,1007) = -1 - StoichNum(227,1034) = 0.133 - StoichNum(227,1037) = 0.155 - StoichNum(228,25) = -1 - StoichNum(228,150) = 0.1 - StoichNum(228,231) = -1 - StoichNum(228,291) = -1 - StoichNum(228,898) = 1 - StoichNum(229,443) = 1 - StoichNum(229,447) = -1 - StoichNum(229,448) = -1 - StoichNum(229,449) = -1 - StoichNum(229,989) = -1 - StoichNum(229,1057) = -1 - StoichNum(230,496) = 0.25 - StoichNum(230,503) = 0.25 - StoichNum(230,524) = -1 - StoichNum(230,537) = 0.015 - StoichNum(230,1020) = -1 + StoichNum(198,1043) = -1 + StoichNum(199,724) = 0.54 + StoichNum(199,741) = -1 + StoichNum(199,742) = -1 + StoichNum(200,69) = 1 + StoichNum(200,72) = -1 + StoichNum(200,74) = 1 + StoichNum(200,934) = -1 + StoichNum(201,81) = 0.68 + StoichNum(201,84) = -1 + StoichNum(201,85) = -1 + StoichNum(201,86) = -1 + StoichNum(201,87) = 1 + StoichNum(201,907) = 1 + StoichNum(201,908) = 0.3 + StoichNum(202,501) = 1 + StoichNum(202,538) = -1 + StoichNum(202,1026) = -1 + StoichNum(203,707) = -1 + StoichNum(203,708) = -1 + StoichNum(204,705) = 0.4 + StoichNum(204,707) = 0.6 + StoichNum(204,708) = 0.4 + StoichNum(204,725) = 0.3 + StoichNum(204,726) = 0.56 + StoichNum(204,743) = 0.44 + StoichNum(204,744) = 0.44 + StoichNum(204,770) = -1 + StoichNum(204,771) = -1 + StoichNum(204,772) = -1 + StoichNum(205,741) = 0.8 + StoichNum(205,743) = 0.727 + StoichNum(205,745) = -1 + StoichNum(205,746) = -1 + StoichNum(205,747) = -1 + StoichNum(206,741) = 0.06 + StoichNum(206,742) = 0.742 + StoichNum(206,743) = 0.073 + StoichNum(206,744) = 0.3 + StoichNum(206,745) = 0.3 + StoichNum(206,747) = 0.3 + StoichNum(206,756) = 1 + StoichNum(206,757) = 1 + StoichNum(206,758) = 1 + StoichNum(206,761) = -1 + StoichNum(206,762) = -1 + StoichNum(206,765) = 1 + StoichNum(206,1052) = 1 + StoichNum(207,702) = 0.7 + StoichNum(207,703) = 1 + StoichNum(207,704) = 0.62 + StoichNum(207,706) = 1 + StoichNum(207,708) = 1 + StoichNum(207,709) = 0.89 + StoichNum(207,710) = 1 + StoichNum(207,711) = 1 + StoichNum(207,725) = 0.06 + StoichNum(207,726) = 0.06 + StoichNum(207,748) = -1 + StoichNum(207,749) = -1 + StoichNum(207,935) = 1 + StoichNum(207,1050) = -1 + StoichNum(208,581) = 1 + StoichNum(208,593) = -1 + StoichNum(208,597) = -1 + StoichNum(208,598) = -1 + StoichNum(208,599) = -1 + StoichNum(209,579) = 1 + StoichNum(209,592) = -1 + StoichNum(209,594) = -1 + StoichNum(209,595) = -1 + StoichNum(209,596) = -1 + StoichNum(210,574) = 1 + StoichNum(210,584) = -1 + StoichNum(210,585) = -1 + StoichNum(210,586) = -1 + StoichNum(210,587) = -1 + StoichNum(211,566) = 0.13 + StoichNum(211,568) = 0.2 + StoichNum(211,651) = 0.53 + StoichNum(211,663) = 0.6 + StoichNum(211,665) = -1 + StoichNum(211,667) = 0.255 + StoichNum(211,687) = 0.318 + StoichNum(211,1013) = -1 + StoichNum(211,1044) = 0.391 + StoichNum(212,418) = 0.25 + StoichNum(212,426) = -1 + StoichNum(212,427) = -1 + StoichNum(212,428) = -1 + StoichNum(213,499) = 1 + StoichNum(213,537) = -1 + StoichNum(213,1025) = -1 + StoichNum(214,496) = 0.3 + StoichNum(214,503) = 0.3 + StoichNum(214,537) = 0.018 + StoichNum(214,540) = 0.284 + StoichNum(214,542) = 0.135 + StoichNum(214,631) = 0.249 + StoichNum(214,632) = 0.471 + StoichNum(214,633) = 0.303 + StoichNum(214,635) = 0.59 + StoichNum(214,696) = -1 + StoichNum(214,697) = -1 + StoichNum(214,1010) = -1 + StoichNum(214,1046) = 0.5 + StoichNum(215,75) = 1 + StoichNum(215,78) = -1 + StoichNum(215,79) = -1 + StoichNum(216,153) = 0.8 + StoichNum(216,154) = 1 + StoichNum(216,155) = -1 + StoichNum(216,156) = 1 + StoichNum(216,157) = -1 + StoichNum(216,158) = -1 + StoichNum(216,159) = -1 + StoichNum(217,45) = 1 + StoichNum(217,46) = -1 + StoichNum(217,786) = -1 + StoichNum(217,787) = -1 + StoichNum(217,788) = -1 + StoichNum(217,789) = -1 + StoichNum(217,790) = -1 + StoichNum(217,903) = -1 + StoichNum(218,524) = 0.085 + StoichNum(218,525) = 0.165 + StoichNum(218,526) = 0.58 + StoichNum(218,527) = 0.77 + StoichNum(218,529) = -1 + StoichNum(218,551) = 0.75 + StoichNum(218,552) = 1 + StoichNum(218,554) = 1 + StoichNum(218,625) = 1 + StoichNum(218,637) = 1 + StoichNum(218,873) = -1 + StoichNum(219,229) = 1 + StoichNum(219,231) = 0.2 + StoichNum(219,234) = 1 + StoichNum(219,235) = 1 + StoichNum(219,245) = -1 + StoichNum(219,246) = -1 + StoichNum(219,247) = -1 + StoichNum(219,253) = 0.22 + StoichNum(219,254) = 0.2 + StoichNum(219,257) = 0.09 + StoichNum(219,294) = 1 + StoichNum(219,895) = 1 + StoichNum(220,582) = 0.6 + StoichNum(220,594) = 0.031 + StoichNum(220,595) = 0.065 + StoichNum(220,600) = 0.094 + StoichNum(220,601) = 0.355 + StoichNum(220,631) = 0.06 + StoichNum(220,632) = 0.073 + StoichNum(220,633) = 0.17 + StoichNum(220,635) = 0.291 + StoichNum(220,638) = 0.378 + StoichNum(220,654) = -1 + StoichNum(220,678) = 0.13 + StoichNum(220,682) = 0.3 + StoichNum(220,879) = -1 + StoichNum(220,1022) = -1 + StoichNum(221,210) = -1 + StoichNum(221,222) = 1 + StoichNum(221,793) = -1 + StoichNum(221,794) = -1 + StoichNum(221,941) = -1 + StoichNum(221,942) = -1 + StoichNum(222,376) = -1 + StoichNum(222,380) = -1 + StoichNum(222,381) = -1 + StoichNum(223,702) = -1 + StoichNum(223,703) = -1 + StoichNum(223,704) = -1 + StoichNum(224,705) = 0.8 + StoichNum(224,707) = 0.375 + StoichNum(224,724) = 0.55 + StoichNum(224,725) = 0.68 + StoichNum(224,726) = 0.28 + StoichNum(224,741) = 0.18 + StoichNum(224,745) = 1.05 + StoichNum(224,746) = 1 + StoichNum(224,747) = 0.3 + StoichNum(224,763) = 0.9 + StoichNum(224,764) = 0.9 + StoichNum(224,767) = -1 + StoichNum(224,768) = -1 + StoichNum(224,769) = -1 + StoichNum(224,1053) = 1 + StoichNum(225,604) = 0.473 + StoichNum(225,606) = 0.07 + StoichNum(225,607) = 0.399 + StoichNum(225,610) = 0.355 + StoichNum(225,621) = -1 + StoichNum(225,623) = -1 + StoichNum(225,626) = -1 + StoichNum(225,875) = -1 + StoichNum(225,1035) = -1 + StoichNum(226,533) = 0.345 + StoichNum(226,538) = 0.255 + StoichNum(226,543) = -1 + StoichNum(226,544) = -1 + StoichNum(226,545) = -1 + StoichNum(226,546) = -1 + StoichNum(227,383) = 0.2 + StoichNum(227,385) = 0.75 + StoichNum(227,386) = 1 + StoichNum(227,388) = 0.5 + StoichNum(227,389) = -1 + StoichNum(227,390) = -1 + StoichNum(227,456) = 1 + StoichNum(227,457) = 1 + StoichNum(227,1055) = 1 + StoichNum(227,1056) = -1 + StoichNum(228,531) = 0.345 + StoichNum(228,537) = 0.595 + StoichNum(228,539) = -1 + StoichNum(228,540) = -1 + StoichNum(228,541) = -1 + StoichNum(228,542) = -1 + StoichNum(229,76) = 1 + StoichNum(229,77) = 1 + StoichNum(229,78) = 0.73 + StoichNum(229,81) = -1 + StoichNum(229,908) = -1 + StoichNum(230,650) = 0.29 + StoichNum(230,651) = 0.47 + StoichNum(230,661) = 0.063 + StoichNum(230,663) = 0.4 + StoichNum(230,664) = -1 + StoichNum(230,666) = 0.16 + StoichNum(230,687) = 0.126 + StoichNum(230,1014) = -1 + StoichNum(230,1041) = 0.133 + StoichNum(230,1044) = 0.155 StoichNum(231,497) = 0.25 StoichNum(231,505) = 0.25 StoichNum(231,525) = -1 StoichNum(231,538) = 0.015 - StoichNum(231,1021) = -1 - StoichNum(232,531) = 0.655 - StoichNum(232,533) = 0.655 - StoichNum(232,547) = -1 - StoichNum(232,548) = -1 - StoichNum(232,549) = -1 - StoichNum(232,550) = -1 - StoichNum(233,76) = 1 - StoichNum(233,77) = 1 - StoichNum(233,78) = 0.73 - StoichNum(233,81) = -1 - StoichNum(233,901) = -1 - StoichNum(234,127) = 1 - StoichNum(234,128) = 0.44 - StoichNum(234,713) = 1 - StoichNum(234,715) = -1 - StoichNum(234,716) = -1 - StoichNum(234,717) = -1 - StoichNum(234,718) = -1 - StoichNum(234,722) = 1 - StoichNum(235,748) = 1 - StoichNum(235,749) = 1 - StoichNum(235,750) = -1 - StoichNum(235,751) = -1 - StoichNum(235,752) = -1 - StoichNum(235,753) = 1 - StoichNum(235,754) = 1 - StoichNum(235,766) = -1 - StoichNum(236,704) = 0.28 - StoichNum(236,750) = 0.2 - StoichNum(236,751) = 1 - StoichNum(236,756) = -1 - StoichNum(236,757) = -1 - StoichNum(236,758) = -1 - StoichNum(236,759) = -1 - StoichNum(236,760) = 1 - StoichNum(236,761) = 1 - StoichNum(236,765) = -1 - StoichNum(236,766) = 1 - StoichNum(236,1043) = 1 - StoichNum(236,1044) = 1 - StoichNum(237,417) = 0.37 - StoichNum(237,418) = 0.28 - StoichNum(237,419) = 0.37 - StoichNum(237,423) = -1 - StoichNum(237,424) = -1 - StoichNum(237,425) = -1 - StoichNum(237,460) = 0.37 - StoichNum(237,461) = 0.37 - StoichNum(238,509) = 1 - StoichNum(238,510) = 1 - StoichNum(238,511) = 1 - StoichNum(238,513) = 0.5 - StoichNum(238,515) = 0.5 - StoichNum(238,519) = 0.45 - StoichNum(238,523) = 0.45 - StoichNum(238,528) = -1 - StoichNum(238,537) = 0.06 - StoichNum(238,538) = 0.06 - StoichNum(238,1018) = 1 - StoichNum(238,1019) = 1 - StoichNum(238,1024) = 0.45 - StoichNum(238,1027) = 0.45 - StoichNum(239,37) = 1 - StoichNum(239,38) = -1 - StoichNum(239,782) = 0.5 - StoichNum(239,802) = 1 - StoichNum(239,803) = 1 - StoichNum(239,804) = 1 - StoichNum(239,805) = 1 - StoichNum(239,806) = 1 - StoichNum(239,807) = 1 - StoichNum(239,839) = 1 - StoichNum(239,840) = 1 - StoichNum(239,844) = 1 - StoichNum(239,845) = 1 - StoichNum(239,846) = 1 - StoichNum(239,847) = 1 - StoichNum(239,891) = -1 - StoichNum(239,994) = 1 - StoichNum(239,996) = 1 - StoichNum(239,1046) = 1 - StoichNum(240,735) = 1 - StoichNum(240,736) = -1 - StoichNum(240,737) = -1 - StoichNum(240,738) = -1 - StoichNum(240,739) = 1 - StoichNum(241,150) = 0.12 - StoichNum(241,369) = -1 - StoichNum(241,370) = -1 - StoichNum(241,371) = -1 - StoichNum(241,372) = -1 - StoichNum(241,373) = -1 - StoichNum(241,374) = -1 - StoichNum(242,450) = 0.7 - StoichNum(242,451) = 0.7 - StoichNum(242,452) = 0.35 - StoichNum(242,470) = 0.3 - StoichNum(242,471) = 0.3 - StoichNum(242,472) = 0.3 - StoichNum(242,473) = 0.15 - StoichNum(242,474) = 0.3 - StoichNum(242,476) = 0.3 - StoichNum(242,478) = 0.6 - StoichNum(242,479) = 0.45 - StoichNum(242,480) = 0.3 - StoichNum(242,482) = -1 - StoichNum(242,483) = -1 - StoichNum(242,484) = -1 - StoichNum(242,865) = -1 - StoichNum(242,992) = -1 - StoichNum(243,536) = 0.16 - StoichNum(243,551) = 0.25 - StoichNum(243,566) = -1 - StoichNum(243,567) = -1 - StoichNum(243,568) = -1 - StoichNum(243,569) = -1 - StoichNum(244,33) = -1 - StoichNum(244,118) = 0.85 - StoichNum(244,119) = 0.85 - StoichNum(244,497) = 0.3 - StoichNum(244,505) = 0.3 - StoichNum(244,538) = 0.018 - StoichNum(244,544) = 0.294 - StoichNum(244,546) = 0.135 - StoichNum(244,631) = 0.009 - StoichNum(244,632) = 0.054 - StoichNum(244,633) = 0.013 - StoichNum(244,635) = 0.07 - StoichNum(244,646) = 0.036 - StoichNum(244,652) = 0.23 - StoichNum(244,984) = -1 - StoichNum(244,1039) = 0.05 - StoichNum(245,255) = -0.75 - StoichNum(245,273) = -1 - StoichNum(245,302) = 1 - StoichNum(245,309) = 0.95 - StoichNum(245,314) = 1 - StoichNum(245,791) = 0.5 - StoichNum(245,792) = 0.5 - StoichNum(245,796) = 1 - StoichNum(245,800) = 1 - StoichNum(245,801) = 1 - StoichNum(245,802) = 1 - StoichNum(245,803) = 1 - StoichNum(245,804) = 1 - StoichNum(245,808) = 1 - StoichNum(245,810) = 1 - StoichNum(245,811) = 1 - StoichNum(245,943) = -1 - StoichNum(246,123) = 0.31 - StoichNum(246,124) = -1 - StoichNum(246,125) = 1 - StoichNum(246,127) = -1 - StoichNum(246,128) = -1 - StoichNum(247,169) = 0.791 - StoichNum(247,361) = -1 - StoichNum(247,594) = 0.551 - StoichNum(247,595) = 0.935 - StoichNum(247,600) = 0.242 - StoichNum(247,601) = 0.546 - StoichNum(247,631) = 0.589 - StoichNum(247,632) = 0.471 - StoichNum(247,633) = 0.687 - StoichNum(247,635) = 0.59 - StoichNum(247,639) = 0.231 - StoichNum(247,640) = 0.231 - StoichNum(247,642) = 1 - StoichNum(247,643) = 0.82 - StoichNum(247,649) = 0.68 - StoichNum(247,654) = 1 - StoichNum(247,1005) = -1 - StoichNum(247,1015) = 1 - StoichNum(248,585) = 0.059 - StoichNum(248,586) = 0.272 - StoichNum(248,653) = -1 - StoichNum(248,660) = 1 - StoichNum(248,675) = 1 - StoichNum(248,678) = 0.37 - StoichNum(248,880) = -1 - StoichNum(248,1014) = -1 - StoichNum(248,1038) = 0.5 - StoichNum(249,92) = -1 - StoichNum(249,103) = 1 - StoichNum(249,117) = -1 - StoichNum(249,135) = -1 - StoichNum(249,188) = -1 - StoichNum(250,100) = -1 - StoichNum(250,121) = -1 - StoichNum(250,139) = -1 - StoichNum(250,162) = 1 - StoichNum(250,169) = 0.209 - StoichNum(250,189) = -1 - StoichNum(251,94) = 1 - StoichNum(251,102) = -1 - StoichNum(251,115) = 1 - StoichNum(251,123) = 0.07 - StoichNum(251,863) = -1 - StoichNum(251,926) = -1 - StoichNum(252,336) = 1 - StoichNum(252,337) = -1 - StoichNum(252,338) = -2 - StoichNum(252,839) = -1 - StoichNum(252,840) = -1 - StoichNum(252,844) = -1 - StoichNum(252,845) = -1 - StoichNum(252,846) = -1 - StoichNum(252,847) = -1 - StoichNum(252,971) = -1 - StoichNum(253,646) = 0.964 - StoichNum(253,658) = 1 - StoichNum(253,659) = 1 - StoichNum(253,670) = -1 - StoichNum(253,673) = -1 - StoichNum(253,674) = -1 - StoichNum(253,675) = -1 - StoichNum(254,644) = 1 - StoichNum(254,655) = 1 - StoichNum(254,656) = 1 - StoichNum(254,667) = -1 - StoichNum(254,668) = -1 - StoichNum(254,669) = -1 - StoichNum(255,379) = 0.27 - StoichNum(255,417) = 0.63 - StoichNum(255,418) = 0.47 - StoichNum(255,419) = 0.63 - StoichNum(255,420) = -1 - StoichNum(255,421) = -1 - StoichNum(255,422) = -1 - StoichNum(255,460) = 0.63 - StoichNum(255,461) = 0.63 - StoichNum(255,1058) = -1 - StoichNum(256,403) = 0.5 - StoichNum(256,416) = 0.5 - StoichNum(256,435) = 0.5 - StoichNum(256,468) = 1 - StoichNum(256,470) = 0.7 - StoichNum(256,471) = 0.7 - StoichNum(256,472) = 0.7 - StoichNum(256,473) = 0.35 - StoichNum(256,474) = 0.7 - StoichNum(256,476) = 0.7 - StoichNum(256,478) = 1.4 - StoichNum(256,479) = 1.05 - StoichNum(256,480) = 0.7 - StoichNum(256,481) = -1 - StoichNum(256,485) = -1 - StoichNum(256,864) = -1 - StoichNum(256,991) = -1 - StoichNum(257,387) = 0.4 - StoichNum(257,389) = 1 - StoichNum(257,390) = 1 - StoichNum(257,391) = -1 - StoichNum(257,392) = -1 - StoichNum(257,393) = -1 - StoichNum(257,394) = 1 - StoichNum(257,395) = -1 - StoichNum(257,396) = 1 - StoichNum(257,464) = -1 - StoichNum(257,465) = -1 - StoichNum(258,539) = 0.176 - StoichNum(258,543) = 0.548 - StoichNum(258,558) = 0.35 - StoichNum(258,565) = 0.35 - StoichNum(258,566) = 0.35 - StoichNum(258,686) = -1 - StoichNum(258,688) = 0.333 - StoichNum(258,1033) = -1 - StoichNum(258,1034) = -1 - StoichNum(258,1035) = 0.75 - StoichNum(259,647) = 1 - StoichNum(259,649) = 0.32 - StoichNum(259,671) = -1 - StoichNum(259,672) = 0.165 - StoichNum(259,676) = -1 - StoichNum(259,677) = -1 - StoichNum(259,683) = 1 - StoichNum(260,65) = -1 - StoichNum(260,113) = -1 - StoichNum(260,147) = -1 - StoichNum(260,149) = 1 - StoichNum(260,176) = 0.209 - StoichNum(260,192) = -1 - StoichNum(260,332) = 1 - StoichNum(260,333) = 1 - StoichNum(261,360) = -1 - StoichNum(261,597) = 0.441 - StoichNum(261,598) = 0.858 - StoichNum(261,600) = 0.033 - StoichNum(261,601) = 0.071 - StoichNum(261,631) = 0.051 - StoichNum(261,632) = 0.054 - StoichNum(261,633) = 0.064 - StoichNum(261,635) = 0.07 - StoichNum(261,639) = 0.099 - StoichNum(261,640) = 0.099 - StoichNum(261,642) = 0.89 - StoichNum(261,643) = 0.73 - StoichNum(261,692) = -1 - StoichNum(261,990) = -1 - StoichNum(261,1013) = 0.3 - StoichNum(261,1038) = 0.15 - StoichNum(262,381) = 0.4 - StoichNum(262,445) = 0.675 - StoichNum(262,446) = 0.675 - StoichNum(262,447) = 0.78 - StoichNum(262,448) = 0.78 - StoichNum(262,449) = 0.39 - StoichNum(262,450) = 0.3 - StoichNum(262,451) = 0.3 - StoichNum(262,452) = 0.15 - StoichNum(262,453) = -1 - StoichNum(262,454) = -1 - StoichNum(262,455) = -1 - StoichNum(262,462) = 0.675 - StoichNum(262,463) = 0.675 - StoichNum(262,1057) = 0.675 - StoichNum(263,379) = 0.15 - StoichNum(263,381) = 0.5 - StoichNum(263,388) = 0.5 - StoichNum(263,399) = 0.84 - StoichNum(263,400) = 1 - StoichNum(263,401) = 0.75 - StoichNum(263,402) = 0.5 - StoichNum(263,403) = 0.55 - StoichNum(263,407) = 0.5 - StoichNum(263,422) = 1 - StoichNum(263,425) = 1 - StoichNum(263,428) = 1 - StoichNum(263,447) = 0.7 - StoichNum(263,448) = 0.7 - StoichNum(263,449) = 0.35 - StoichNum(263,450) = 0.7 - StoichNum(263,451) = 0.7 - StoichNum(263,452) = 0.35 - StoichNum(263,453) = 1 - StoichNum(263,454) = 1 - StoichNum(263,455) = 0.5 - StoichNum(263,702) = 0.7 - StoichNum(263,703) = 1 - StoichNum(263,705) = 0.813 - StoichNum(263,706) = 1 - StoichNum(263,707) = 0.93 - StoichNum(263,708) = 1 - StoichNum(263,724) = 0.46 - StoichNum(263,725) = 0.81 - StoichNum(263,726) = 0.85 - StoichNum(263,727) = -1 - StoichNum(263,728) = -1 - StoichNum(263,729) = -1 - StoichNum(263,730) = -1 - StoichNum(263,731) = -1 - StoichNum(263,741) = 0.14 - StoichNum(263,743) = 0.2 - StoichNum(263,744) = 0.2 - StoichNum(263,745) = 0.7 - StoichNum(263,747) = 0.2 - StoichNum(263,1052) = 1 - StoichNum(264,7) = -1 - StoichNum(264,19) = 1 - StoichNum(264,21) = -1 - StoichNum(264,23) = 1 - StoichNum(264,244) = -1 - StoichNum(264,295) = -1 - StoichNum(264,365) = 0.06 - StoichNum(264,366) = 0.06 - StoichNum(264,373) = 1 - StoichNum(264,493) = 0.013 - StoichNum(264,645) = 0.045 - StoichNum(264,886) = -1 - StoichNum(265,47) = -1 - StoichNum(265,151) = 0.134 - StoichNum(265,152) = 1 - StoichNum(265,168) = 0.5 - StoichNum(265,318) = -1 - StoichNum(265,365) = 0.21 - StoichNum(265,366) = 0.54 - StoichNum(265,650) = 0.449 - StoichNum(265,661) = 0.187 - StoichNum(265,685) = 0.3 - StoichNum(265,694) = 0.5 - StoichNum(265,714) = 0.364 - StoichNum(265,767) = 0.26 - StoichNum(265,768) = 0.5 - StoichNum(265,770) = 0.1 - StoichNum(265,771) = 0.2 - StoichNum(266,560) = 1 - StoichNum(266,564) = 1 - StoichNum(266,567) = 1 - StoichNum(266,584) = 1 - StoichNum(266,588) = 1 - StoichNum(266,592) = 1 - StoichNum(266,593) = 1 - StoichNum(266,629) = 1 - StoichNum(266,630) = 0.5 - StoichNum(266,690) = -1 - StoichNum(266,691) = 0.9 - StoichNum(266,877) = -1 - StoichNum(266,1040) = -1 - StoichNum(266,1041) = -1 - StoichNum(267,518) = 1 - StoichNum(267,580) = -1 - StoichNum(267,581) = -1 - StoichNum(267,583) = -1 - StoichNum(267,608) = 0.127 - StoichNum(267,609) = 0.057 - StoichNum(267,872) = -1 - StoichNum(267,1027) = -1 - StoichNum(268,522) = 1 - StoichNum(268,578) = -1 - StoichNum(268,579) = -1 - StoichNum(268,582) = -1 - StoichNum(268,607) = 0.032 - StoichNum(268,608) = 0.671 - StoichNum(268,609) = 0.298 - StoichNum(268,869) = -1 - StoichNum(268,1024) = -1 - StoichNum(269,742) = 0.258 - StoichNum(269,744) = 0.5 - StoichNum(269,747) = 0.5 - StoichNum(269,762) = 1 - StoichNum(269,763) = -1 - StoichNum(269,764) = -1 - StoichNum(269,881) = -1 - StoichNum(269,1046) = -1 - StoichNum(270,81) = 0.065 - StoichNum(270,151) = 0.134 - StoichNum(270,153) = 0.2 - StoichNum(270,163) = -1 - StoichNum(270,165) = -1 - StoichNum(270,563) = 0.8 - StoichNum(270,565) = 0.52 - StoichNum(270,697) = 1 - StoichNum(270,707) = 0.1 - StoichNum(270,714) = 0.636 - StoichNum(270,724) = 0.18 - StoichNum(270,725) = 0.12 - StoichNum(270,726) = 0.1 - StoichNum(270,741) = 0.06 - StoichNum(270,767) = 0.6 - StoichNum(270,768) = 0.6 - StoichNum(270,769) = 0.2 - StoichNum(270,856) = -1 - StoichNum(270,908) = -1 - StoichNum(270,909) = -1 - StoichNum(270,910) = -1 - StoichNum(270,1007) = 0.5 - StoichNum(270,1009) = 0.429 - StoichNum(270,1010) = 0.125 - StoichNum(270,1034) = 0.586 - StoichNum(270,1036) = 0.571 - StoichNum(271,621) = 0.67 - StoichNum(271,630) = -1 - StoichNum(271,631) = -1 - StoichNum(271,633) = -1 - StoichNum(271,634) = -1 - StoichNum(272,423) = 1 - StoichNum(272,424) = 0.27 - StoichNum(272,426) = 0.18 - StoichNum(272,429) = -1 - StoichNum(272,430) = -1 - StoichNum(272,431) = -1 - StoichNum(272,432) = -1 - StoichNum(273,383) = 0.1 - StoichNum(273,409) = 1 - StoichNum(273,410) = -1 - StoichNum(273,411) = -1 - StoichNum(273,412) = -1 - StoichNum(273,413) = -1 - StoichNum(273,414) = -1 - StoichNum(273,415) = 1 - StoichNum(274,379) = 0.715 - StoichNum(274,412) = 0.27 - StoichNum(274,413) = 0.23 - StoichNum(274,414) = 0.27 - StoichNum(274,416) = 0.085 - StoichNum(274,420) = 1 - StoichNum(274,421) = 0.6 - StoichNum(274,424) = 0.73 - StoichNum(274,426) = 0.32 - StoichNum(274,427) = 0.4 - StoichNum(274,433) = 1 - StoichNum(274,434) = 1 - StoichNum(274,435) = 0.5 - StoichNum(274,436) = -1 - StoichNum(274,437) = -1 - StoichNum(274,438) = -1 - StoichNum(274,439) = 1 - StoichNum(274,440) = -1 - StoichNum(274,441) = 1 - StoichNum(274,466) = -1 - StoichNum(274,467) = -1 - StoichNum(274,1054) = 0.27 - StoichNum(274,1058) = 0.9 - StoichNum(275,380) = 0.15 - StoichNum(275,382) = 0.255 - StoichNum(275,404) = -1 - StoichNum(275,405) = -1 - StoichNum(275,406) = -1 - StoichNum(275,408) = 1 - StoichNum(275,458) = -1 - StoichNum(275,459) = -1 - StoichNum(276,330) = -1 - StoichNum(276,493) = -1 - StoichNum(276,494) = -1 - StoichNum(276,495) = -1 - StoichNum(276,496) = -1 - StoichNum(276,497) = -1 - StoichNum(276,603) = -1 - StoichNum(277,380) = 0.15 - StoichNum(277,382) = 0.67 - StoichNum(277,383) = 0.5 - StoichNum(277,384) = -1 - StoichNum(277,385) = -1 - StoichNum(277,386) = -1 - StoichNum(277,387) = 0.6 - StoichNum(277,456) = -1 - StoichNum(277,457) = -1 - StoichNum(278,391) = 0.44 - StoichNum(278,392) = 1 - StoichNum(278,395) = 1 - StoichNum(278,397) = 1 - StoichNum(278,398) = -1 - StoichNum(278,399) = -1 - StoichNum(278,400) = -1 - StoichNum(278,401) = -1 - StoichNum(278,402) = 0.5 - StoichNum(278,464) = 0.75 - StoichNum(278,465) = 1 - StoichNum(278,1049) = 1 - StoichNum(278,1050) = 1 - StoichNum(278,1051) = 1 - StoichNum(279,91) = 1 - StoichNum(279,97) = 0.072 - StoichNum(279,103) = -1 - StoichNum(279,117) = 1 - StoichNum(279,929) = -1 + StoichNum(231,1028) = -1 + StoichNum(232,25) = -1 + StoichNum(232,150) = 0.1 + StoichNum(232,231) = -1 + StoichNum(232,291) = -1 + StoichNum(232,905) = 1 + StoichNum(233,496) = 0.25 + StoichNum(233,503) = 0.25 + StoichNum(233,524) = -1 + StoichNum(233,537) = 0.015 + StoichNum(233,1027) = -1 + StoichNum(234,443) = 1 + StoichNum(234,447) = -1 + StoichNum(234,448) = -1 + StoichNum(234,449) = -1 + StoichNum(234,996) = -1 + StoichNum(234,1064) = -1 + StoichNum(235,531) = 0.655 + StoichNum(235,533) = 0.655 + StoichNum(235,547) = -1 + StoichNum(235,548) = -1 + StoichNum(235,549) = -1 + StoichNum(235,550) = -1 + StoichNum(236,622) = 1 + StoichNum(236,629) = -1 + StoichNum(236,632) = -1 + StoichNum(236,635) = -1 + StoichNum(236,636) = -1 + StoichNum(237,748) = 1 + StoichNum(237,749) = 1 + StoichNum(237,750) = -1 + StoichNum(237,751) = -1 + StoichNum(237,752) = -1 + StoichNum(237,753) = 1 + StoichNum(237,754) = 1 + StoichNum(237,766) = -1 + StoichNum(238,704) = 0.28 + StoichNum(238,750) = 0.2 + StoichNum(238,751) = 1 + StoichNum(238,756) = -1 + StoichNum(238,757) = -1 + StoichNum(238,758) = -1 + StoichNum(238,759) = -1 + StoichNum(238,760) = 1 + StoichNum(238,761) = 1 + StoichNum(238,765) = -1 + StoichNum(238,766) = 1 + StoichNum(238,1050) = 1 + StoichNum(238,1051) = 1 + StoichNum(239,127) = 1 + StoichNum(239,128) = 0.44 + StoichNum(239,713) = 1 + StoichNum(239,715) = -1 + StoichNum(239,716) = -1 + StoichNum(239,717) = -1 + StoichNum(239,718) = -1 + StoichNum(239,722) = 1 + StoichNum(240,37) = 1 + StoichNum(240,38) = -1 + StoichNum(240,782) = 0.5 + StoichNum(240,802) = 1 + StoichNum(240,803) = 1 + StoichNum(240,804) = 1 + StoichNum(240,805) = 1 + StoichNum(240,806) = 1 + StoichNum(240,807) = 1 + StoichNum(240,839) = 1 + StoichNum(240,840) = 1 + StoichNum(240,844) = 1 + StoichNum(240,845) = 1 + StoichNum(240,846) = 1 + StoichNum(240,847) = 1 + StoichNum(240,898) = -1 + StoichNum(240,1001) = 1 + StoichNum(240,1003) = 1 + StoichNum(240,1053) = 1 + StoichNum(241,417) = 0.37 + StoichNum(241,418) = 0.28 + StoichNum(241,419) = 0.37 + StoichNum(241,423) = -1 + StoichNum(241,424) = -1 + StoichNum(241,425) = -1 + StoichNum(241,460) = 0.37 + StoichNum(241,461) = 0.37 + StoichNum(242,509) = 1 + StoichNum(242,510) = 1 + StoichNum(242,511) = 1 + StoichNum(242,513) = 0.5 + StoichNum(242,515) = 0.5 + StoichNum(242,519) = 0.45 + StoichNum(242,523) = 0.45 + StoichNum(242,528) = -1 + StoichNum(242,537) = 0.06 + StoichNum(242,538) = 0.06 + StoichNum(242,1025) = 1 + StoichNum(242,1026) = 1 + StoichNum(242,1031) = 0.45 + StoichNum(242,1034) = 0.45 + StoichNum(243,735) = 1 + StoichNum(243,736) = -1 + StoichNum(243,737) = -1 + StoichNum(243,738) = -1 + StoichNum(243,739) = 1 + StoichNum(244,150) = 0.12 + StoichNum(244,369) = -1 + StoichNum(244,370) = -1 + StoichNum(244,371) = -1 + StoichNum(244,372) = -1 + StoichNum(244,373) = -1 + StoichNum(244,374) = -1 + StoichNum(245,536) = 0.16 + StoichNum(245,551) = 0.25 + StoichNum(245,566) = -1 + StoichNum(245,567) = -1 + StoichNum(245,568) = -1 + StoichNum(245,569) = -1 + StoichNum(246,450) = 0.7 + StoichNum(246,451) = 0.7 + StoichNum(246,452) = 0.35 + StoichNum(246,470) = 0.3 + StoichNum(246,471) = 0.3 + StoichNum(246,472) = 0.3 + StoichNum(246,473) = 0.15 + StoichNum(246,474) = 0.3 + StoichNum(246,476) = 0.3 + StoichNum(246,478) = 0.6 + StoichNum(246,479) = 0.45 + StoichNum(246,480) = 0.3 + StoichNum(246,482) = -1 + StoichNum(246,483) = -1 + StoichNum(246,484) = -1 + StoichNum(246,865) = -1 + StoichNum(246,999) = -1 + StoichNum(247,33) = -1 + StoichNum(247,118) = 0.85 + StoichNum(247,119) = 0.85 + StoichNum(247,497) = 0.3 + StoichNum(247,505) = 0.3 + StoichNum(247,538) = 0.018 + StoichNum(247,544) = 0.294 + StoichNum(247,546) = 0.135 + StoichNum(247,631) = 0.009 + StoichNum(247,632) = 0.054 + StoichNum(247,633) = 0.013 + StoichNum(247,635) = 0.07 + StoichNum(247,646) = 0.036 + StoichNum(247,652) = 0.23 + StoichNum(247,991) = -1 + StoichNum(247,1046) = 0.05 + StoichNum(248,255) = -0.75 + StoichNum(248,273) = -1 + StoichNum(248,302) = 1 + StoichNum(248,309) = 0.95 + StoichNum(248,314) = 1 + StoichNum(248,791) = 0.5 + StoichNum(248,792) = 0.5 + StoichNum(248,796) = 1 + StoichNum(248,800) = 1 + StoichNum(248,801) = 1 + StoichNum(248,802) = 1 + StoichNum(248,803) = 1 + StoichNum(248,804) = 1 + StoichNum(248,808) = 1 + StoichNum(248,810) = 1 + StoichNum(248,811) = 1 + StoichNum(248,950) = -1 + StoichNum(249,169) = 0.791 + StoichNum(249,361) = -1 + StoichNum(249,594) = 0.551 + StoichNum(249,595) = 0.935 + StoichNum(249,600) = 0.242 + StoichNum(249,601) = 0.546 + StoichNum(249,631) = 0.589 + StoichNum(249,632) = 0.471 + StoichNum(249,633) = 0.687 + StoichNum(249,635) = 0.59 + StoichNum(249,639) = 0.231 + StoichNum(249,640) = 0.231 + StoichNum(249,642) = 1 + StoichNum(249,643) = 0.82 + StoichNum(249,649) = 0.68 + StoichNum(249,654) = 1 + StoichNum(249,1012) = -1 + StoichNum(249,1022) = 1 + StoichNum(250,123) = 0.31 + StoichNum(250,124) = -1 + StoichNum(250,125) = 1 + StoichNum(250,127) = -1 + StoichNum(250,128) = -1 + StoichNum(251,585) = 0.059 + StoichNum(251,586) = 0.272 + StoichNum(251,653) = -1 + StoichNum(251,660) = 1 + StoichNum(251,675) = 1 + StoichNum(251,678) = 0.37 + StoichNum(251,880) = -1 + StoichNum(251,1021) = -1 + StoichNum(251,1045) = 0.5 + StoichNum(252,92) = -1 + StoichNum(252,103) = 1 + StoichNum(252,117) = -1 + StoichNum(252,135) = -1 + StoichNum(252,188) = -1 + StoichNum(253,100) = -1 + StoichNum(253,121) = -1 + StoichNum(253,139) = -1 + StoichNum(253,162) = 1 + StoichNum(253,169) = 0.209 + StoichNum(253,189) = -1 + StoichNum(254,336) = 1 + StoichNum(254,337) = -1 + StoichNum(254,338) = -2 + StoichNum(254,839) = -1 + StoichNum(254,840) = -1 + StoichNum(254,844) = -1 + StoichNum(254,845) = -1 + StoichNum(254,846) = -1 + StoichNum(254,847) = -1 + StoichNum(254,978) = -1 + StoichNum(255,94) = 1 + StoichNum(255,102) = -1 + StoichNum(255,115) = 1 + StoichNum(255,123) = 0.07 + StoichNum(255,863) = -1 + StoichNum(255,933) = -1 + StoichNum(256,379) = 0.27 + StoichNum(256,417) = 0.63 + StoichNum(256,418) = 0.47 + StoichNum(256,419) = 0.63 + StoichNum(256,420) = -1 + StoichNum(256,421) = -1 + StoichNum(256,422) = -1 + StoichNum(256,460) = 0.63 + StoichNum(256,461) = 0.63 + StoichNum(256,1065) = -1 + StoichNum(257,646) = 0.964 + StoichNum(257,658) = 1 + StoichNum(257,659) = 1 + StoichNum(257,670) = -1 + StoichNum(257,673) = -1 + StoichNum(257,674) = -1 + StoichNum(257,675) = -1 + StoichNum(258,644) = 1 + StoichNum(258,655) = 1 + StoichNum(258,656) = 1 + StoichNum(258,667) = -1 + StoichNum(258,668) = -1 + StoichNum(258,669) = -1 + StoichNum(259,539) = 0.176 + StoichNum(259,543) = 0.548 + StoichNum(259,558) = 0.35 + StoichNum(259,565) = 0.35 + StoichNum(259,566) = 0.35 + StoichNum(259,686) = -1 + StoichNum(259,688) = 0.333 + StoichNum(259,1040) = -1 + StoichNum(259,1041) = -1 + StoichNum(259,1042) = 0.75 + StoichNum(260,403) = 0.5 + StoichNum(260,416) = 0.5 + StoichNum(260,435) = 0.5 + StoichNum(260,468) = 1 + StoichNum(260,470) = 0.7 + StoichNum(260,471) = 0.7 + StoichNum(260,472) = 0.7 + StoichNum(260,473) = 0.35 + StoichNum(260,474) = 0.7 + StoichNum(260,476) = 0.7 + StoichNum(260,478) = 1.4 + StoichNum(260,479) = 1.05 + StoichNum(260,480) = 0.7 + StoichNum(260,481) = -1 + StoichNum(260,485) = -1 + StoichNum(260,864) = -1 + StoichNum(260,998) = -1 + StoichNum(261,387) = 0.4 + StoichNum(261,389) = 1 + StoichNum(261,390) = 1 + StoichNum(261,391) = -1 + StoichNum(261,392) = -1 + StoichNum(261,393) = -1 + StoichNum(261,394) = 1 + StoichNum(261,395) = -1 + StoichNum(261,396) = 1 + StoichNum(261,464) = -1 + StoichNum(261,465) = -1 + StoichNum(262,647) = 1 + StoichNum(262,649) = 0.32 + StoichNum(262,671) = -1 + StoichNum(262,672) = 0.165 + StoichNum(262,676) = -1 + StoichNum(262,677) = -1 + StoichNum(262,683) = 1 + StoichNum(263,381) = 0.4 + StoichNum(263,445) = 0.675 + StoichNum(263,446) = 0.675 + StoichNum(263,447) = 0.78 + StoichNum(263,448) = 0.78 + StoichNum(263,449) = 0.39 + StoichNum(263,450) = 0.3 + StoichNum(263,451) = 0.3 + StoichNum(263,452) = 0.15 + StoichNum(263,453) = -1 + StoichNum(263,454) = -1 + StoichNum(263,455) = -1 + StoichNum(263,462) = 0.675 + StoichNum(263,463) = 0.675 + StoichNum(263,1064) = 0.675 + StoichNum(264,65) = -1 + StoichNum(264,113) = -1 + StoichNum(264,147) = -1 + StoichNum(264,149) = 1 + StoichNum(264,176) = 0.209 + StoichNum(264,192) = -1 + StoichNum(264,332) = 1 + StoichNum(264,333) = 1 + StoichNum(265,360) = -1 + StoichNum(265,597) = 0.441 + StoichNum(265,598) = 0.858 + StoichNum(265,600) = 0.033 + StoichNum(265,601) = 0.071 + StoichNum(265,631) = 0.051 + StoichNum(265,632) = 0.054 + StoichNum(265,633) = 0.064 + StoichNum(265,635) = 0.07 + StoichNum(265,639) = 0.099 + StoichNum(265,640) = 0.099 + StoichNum(265,642) = 0.89 + StoichNum(265,643) = 0.73 + StoichNum(265,692) = -1 + StoichNum(265,997) = -1 + StoichNum(265,1020) = 0.3 + StoichNum(265,1045) = 0.15 + StoichNum(266,379) = 0.15 + StoichNum(266,381) = 0.5 + StoichNum(266,388) = 0.5 + StoichNum(266,399) = 0.84 + StoichNum(266,400) = 1 + StoichNum(266,401) = 0.75 + StoichNum(266,402) = 0.5 + StoichNum(266,403) = 0.55 + StoichNum(266,407) = 0.5 + StoichNum(266,422) = 1 + StoichNum(266,425) = 1 + StoichNum(266,428) = 1 + StoichNum(266,447) = 0.7 + StoichNum(266,448) = 0.7 + StoichNum(266,449) = 0.35 + StoichNum(266,450) = 0.7 + StoichNum(266,451) = 0.7 + StoichNum(266,452) = 0.35 + StoichNum(266,453) = 1 + StoichNum(266,454) = 1 + StoichNum(266,455) = 0.5 + StoichNum(266,702) = 0.7 + StoichNum(266,703) = 1 + StoichNum(266,705) = 0.813 + StoichNum(266,706) = 1 + StoichNum(266,707) = 0.93 + StoichNum(266,708) = 1 + StoichNum(266,724) = 0.46 + StoichNum(266,725) = 0.81 + StoichNum(266,726) = 0.85 + StoichNum(266,727) = -1 + StoichNum(266,728) = -1 + StoichNum(266,729) = -1 + StoichNum(266,730) = -1 + StoichNum(266,731) = -1 + StoichNum(266,741) = 0.14 + StoichNum(266,743) = 0.2 + StoichNum(266,744) = 0.2 + StoichNum(266,745) = 0.7 + StoichNum(266,747) = 0.2 + StoichNum(266,1059) = 1 + StoichNum(267,7) = -1 + StoichNum(267,19) = 1 + StoichNum(267,21) = -1 + StoichNum(267,23) = 1 + StoichNum(267,244) = -1 + StoichNum(267,295) = -1 + StoichNum(267,365) = 0.06 + StoichNum(267,366) = 0.06 + StoichNum(267,373) = 1 + StoichNum(267,493) = 0.013 + StoichNum(267,645) = 0.045 + StoichNum(267,882) = -1 + StoichNum(267,893) = -1 + StoichNum(268,47) = -1 + StoichNum(268,151) = 0.134 + StoichNum(268,152) = 1 + StoichNum(268,168) = 0.5 + StoichNum(268,318) = -1 + StoichNum(268,365) = 0.21 + StoichNum(268,366) = 0.54 + StoichNum(268,650) = 0.449 + StoichNum(268,661) = 0.187 + StoichNum(268,685) = 0.3 + StoichNum(268,694) = 0.5 + StoichNum(268,714) = 0.364 + StoichNum(268,767) = 0.26 + StoichNum(268,768) = 0.5 + StoichNum(268,770) = 0.1 + StoichNum(268,771) = 0.2 + StoichNum(269,560) = 1 + StoichNum(269,564) = 1 + StoichNum(269,567) = 1 + StoichNum(269,584) = 1 + StoichNum(269,588) = 1 + StoichNum(269,592) = 1 + StoichNum(269,593) = 1 + StoichNum(269,629) = 1 + StoichNum(269,630) = 0.5 + StoichNum(269,690) = -1 + StoichNum(269,691) = 0.9 + StoichNum(269,877) = -1 + StoichNum(269,1047) = -1 + StoichNum(269,1048) = -1 + StoichNum(270,518) = 1 + StoichNum(270,580) = -1 + StoichNum(270,581) = -1 + StoichNum(270,583) = -1 + StoichNum(270,608) = 0.127 + StoichNum(270,609) = 0.057 + StoichNum(270,872) = -1 + StoichNum(270,1034) = -1 + StoichNum(271,522) = 1 + StoichNum(271,578) = -1 + StoichNum(271,579) = -1 + StoichNum(271,582) = -1 + StoichNum(271,607) = 0.032 + StoichNum(271,608) = 0.671 + StoichNum(271,609) = 0.298 + StoichNum(271,869) = -1 + StoichNum(271,1031) = -1 + StoichNum(272,742) = 0.258 + StoichNum(272,744) = 0.5 + StoichNum(272,747) = 0.5 + StoichNum(272,762) = 1 + StoichNum(272,763) = -1 + StoichNum(272,764) = -1 + StoichNum(272,881) = -1 + StoichNum(272,1053) = -1 + StoichNum(273,621) = 0.67 + StoichNum(273,630) = -1 + StoichNum(273,631) = -1 + StoichNum(273,633) = -1 + StoichNum(273,634) = -1 + StoichNum(274,81) = 0.065 + StoichNum(274,151) = 0.134 + StoichNum(274,153) = 0.2 + StoichNum(274,163) = -1 + StoichNum(274,165) = -1 + StoichNum(274,563) = 0.8 + StoichNum(274,565) = 0.52 + StoichNum(274,697) = 1 + StoichNum(274,707) = 0.1 + StoichNum(274,714) = 0.636 + StoichNum(274,724) = 0.18 + StoichNum(274,725) = 0.12 + StoichNum(274,726) = 0.1 + StoichNum(274,741) = 0.06 + StoichNum(274,767) = 0.6 + StoichNum(274,768) = 0.6 + StoichNum(274,769) = 0.2 + StoichNum(274,856) = -1 + StoichNum(274,915) = -1 + StoichNum(274,916) = -1 + StoichNum(274,917) = -1 + StoichNum(274,1014) = 0.5 + StoichNum(274,1016) = 0.429 + StoichNum(274,1017) = 0.125 + StoichNum(274,1041) = 0.586 + StoichNum(274,1043) = 0.571 + StoichNum(275,383) = 0.1 + StoichNum(275,409) = 1 + StoichNum(275,410) = -1 + StoichNum(275,411) = -1 + StoichNum(275,412) = -1 + StoichNum(275,413) = -1 + StoichNum(275,414) = -1 + StoichNum(275,415) = 1 + StoichNum(276,380) = 0.15 + StoichNum(276,382) = 0.255 + StoichNum(276,404) = -1 + StoichNum(276,405) = -1 + StoichNum(276,406) = -1 + StoichNum(276,408) = 1 + StoichNum(276,458) = -1 + StoichNum(276,459) = -1 + StoichNum(277,379) = 0.715 + StoichNum(277,412) = 0.27 + StoichNum(277,413) = 0.23 + StoichNum(277,414) = 0.27 + StoichNum(277,416) = 0.085 + StoichNum(277,420) = 1 + StoichNum(277,421) = 0.6 + StoichNum(277,424) = 0.73 + StoichNum(277,426) = 0.32 + StoichNum(277,427) = 0.4 + StoichNum(277,433) = 1 + StoichNum(277,434) = 1 + StoichNum(277,435) = 0.5 + StoichNum(277,436) = -1 + StoichNum(277,437) = -1 + StoichNum(277,438) = -1 + StoichNum(277,439) = 1 + StoichNum(277,440) = -1 + StoichNum(277,441) = 1 + StoichNum(277,466) = -1 + StoichNum(277,467) = -1 + StoichNum(277,1061) = 0.27 + StoichNum(277,1065) = 0.9 + StoichNum(278,423) = 1 + StoichNum(278,424) = 0.27 + StoichNum(278,426) = 0.18 + StoichNum(278,429) = -1 + StoichNum(278,430) = -1 + StoichNum(278,431) = -1 + StoichNum(278,432) = -1 + StoichNum(279,330) = -1 + StoichNum(279,493) = -1 + StoichNum(279,494) = -1 + StoichNum(279,495) = -1 + StoichNum(279,496) = -1 + StoichNum(279,497) = -1 + StoichNum(279,603) = -1 StoichNum(280,375) = 0.1 StoichNum(280,376) = 0.1 StoichNum(280,377) = 0.5 @@ -9455,1560 +9505,1278 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(280,476) = -1 StoichNum(280,478) = -2 StoichNum(280,479) = -1 - StoichNum(281,378) = 1 - StoichNum(281,380) = 0.2 - StoichNum(281,382) = 0.075 - StoichNum(281,417) = -1 - StoichNum(281,418) = -1 - StoichNum(281,419) = -1 - StoichNum(281,460) = -1 - StoichNum(281,461) = -1 - StoichNum(282,29) = 1 - StoichNum(282,31) = 0.13 - StoichNum(282,48) = -1 - StoichNum(282,112) = 0.25 - StoichNum(282,113) = 0.25 - StoichNum(282,129) = 0.25 - StoichNum(282,130) = 0.25 - StoichNum(282,132) = 0.25 - StoichNum(282,133) = 0.25 - StoichNum(282,134) = 0.25 - StoichNum(282,135) = 0.25 - StoichNum(282,136) = 0.5 - StoichNum(282,137) = 0.25 - StoichNum(282,138) = 0.25 - StoichNum(282,139) = 0.25 - StoichNum(282,324) = -1 - StoichNum(282,401) = 0.25 - StoichNum(282,413) = 0.25 - StoichNum(282,432) = 0.25 - StoichNum(282,456) = 0.25 - StoichNum(282,458) = 0.25 - StoichNum(282,460) = 0.25 - StoichNum(282,462) = 0.25 - StoichNum(282,473) = 0.25 - StoichNum(282,609) = 0.355 - StoichNum(282,610) = 0.034 - StoichNum(282,718) = 0.2 - StoichNum(282,907) = 0.1 - StoichNum(283,104) = -1 - StoichNum(283,168) = 0.5 - StoichNum(283,181) = 0.1 - StoichNum(283,182) = 0.1 - StoichNum(283,183) = 0.1 - StoichNum(283,184) = 0.1 - StoichNum(283,185) = 0.1 - StoichNum(283,186) = 0.1 - StoichNum(283,187) = 0.1 - StoichNum(283,188) = 0.1 - StoichNum(283,189) = 0.1 - StoichNum(283,190) = 0.1 - StoichNum(283,191) = 0.1 - StoichNum(283,192) = 0.1 - StoichNum(283,193) = 0.1 - StoichNum(283,326) = -1 - StoichNum(283,374) = 1 - StoichNum(283,457) = 0.1 - StoichNum(283,459) = 0.1 - StoichNum(283,461) = 0.1 - StoichNum(283,463) = 0.1 - StoichNum(283,695) = 0.13 - StoichNum(283,770) = 0.15 - StoichNum(283,771) = 0.3 - StoichNum(284,340) = -1 - StoichNum(284,341) = 1 - StoichNum(284,343) = 1 - StoichNum(284,344) = -1 - StoichNum(284,345) = -1 - StoichNum(284,348) = 1 - StoichNum(284,349) = -1 - StoichNum(284,350) = 1 - StoichNum(284,354) = 1 - StoichNum(284,355) = -1 - StoichNum(284,356) = -1 - StoichNum(284,357) = -2 - StoichNum(284,358) = 0.008 - StoichNum(284,968) = -1 - StoichNum(284,979) = 1 - StoichNum(285,528) = 0.068 - StoichNum(285,553) = 0.33 - StoichNum(285,555) = 0.19 - StoichNum(285,561) = -1 - StoichNum(285,562) = -1 - StoichNum(285,563) = -1 - StoichNum(285,564) = -1 - StoichNum(285,565) = -1 - StoichNum(285,687) = 0.032 - StoichNum(286,528) = 0.294 - StoichNum(286,553) = 0.67 - StoichNum(286,555) = 0.81 - StoichNum(286,556) = -1 - StoichNum(286,557) = -1 - StoichNum(286,558) = -1 - StoichNum(286,559) = -1 - StoichNum(286,560) = -1 - StoichNum(286,687) = 0.08 - StoichNum(287,510) = 1 - StoichNum(287,511) = 0.5 - StoichNum(287,515) = 0.5 - StoichNum(287,523) = 0.55 - StoichNum(287,525) = 0.17 - StoichNum(287,527) = 0.09 - StoichNum(287,528) = 0.158 - StoichNum(287,536) = 0.165 - StoichNum(287,540) = 0.716 - StoichNum(287,542) = 0.14 - StoichNum(287,631) = 0.004 - StoichNum(287,633) = 0.006 - StoichNum(287,652) = -1 - StoichNum(287,670) = 0.41 - StoichNum(287,686) = 0.5 - StoichNum(287,689) = 0.571 - StoichNum(287,690) = 0.25 - StoichNum(287,1011) = -1 - StoichNum(287,1027) = 0.55 - StoichNum(287,1033) = 0.5 - StoichNum(287,1039) = 0.15 - StoichNum(287,1041) = 0.5 - StoichNum(288,509) = 1 - StoichNum(288,511) = 0.5 - StoichNum(288,513) = 0.5 - StoichNum(288,519) = 0.55 - StoichNum(288,524) = 0.33 - StoichNum(288,526) = 0.19 - StoichNum(288,528) = 0.125 - StoichNum(288,535) = 0.125 - StoichNum(288,544) = 0.706 - StoichNum(288,546) = 0.14 - StoichNum(288,631) = 0.054 - StoichNum(288,633) = 0.059 - StoichNum(288,651) = -1 - StoichNum(288,667) = 0.335 - StoichNum(288,689) = 0.429 - StoichNum(288,690) = 0.75 - StoichNum(288,1008) = -1 - StoichNum(288,1024) = 0.55 - StoichNum(288,1041) = 0.5 - StoichNum(289,375) = 0.9 - StoichNum(289,376) = 0.9 - StoichNum(289,377) = 0.5 - StoichNum(289,469) = -1 - StoichNum(289,471) = -1 - StoichNum(289,473) = -1 - StoichNum(289,475) = -1 - StoichNum(289,477) = -1 - StoichNum(289,479) = -1 - StoichNum(289,480) = -2 - StoichNum(290,149) = -1 - StoichNum(290,150) = -1 - StoichNum(290,162) = -1 - StoichNum(290,332) = -1 - StoichNum(290,333) = -1 - StoichNum(290,912) = 1 - StoichNum(291,380) = 0.5 - StoichNum(291,443) = -1 - StoichNum(291,444) = -1 - StoichNum(291,445) = -1 - StoichNum(291,446) = -1 - StoichNum(291,462) = -1 - StoichNum(291,463) = -1 - StoichNum(292,68) = 0.25 - StoichNum(292,90) = 0.19 - StoichNum(292,93) = 0.19 - StoichNum(292,122) = -1 - StoichNum(292,131) = -1 - StoichNum(292,132) = 0.35 - StoichNum(292,134) = 0.35 - StoichNum(292,137) = 0.25 - StoichNum(292,182) = 0.271 - StoichNum(292,183) = 0.271 - StoichNum(292,185) = 0.1 - StoichNum(292,381) = 0.5 - StoichNum(292,399) = 0.42 - StoichNum(292,400) = 0.5 - StoichNum(292,401) = 0.375 - StoichNum(292,402) = 0.25 - StoichNum(292,403) = 0.3 - StoichNum(292,453) = 1 - StoichNum(292,454) = 1 - StoichNum(292,455) = 0.5 - StoichNum(292,469) = 0.464 - StoichNum(292,473) = 0.34 - StoichNum(292,475) = 0.464 - StoichNum(292,477) = 0.464 - StoichNum(292,479) = 0.149 - StoichNum(292,480) = 0.285 - StoichNum(292,906) = -1 - StoichNum(292,926) = 0.19 - StoichNum(292,929) = 0.19 - StoichNum(292,991) = 1 - StoichNum(292,1052) = 0.5 - StoichNum(293,600) = -1 - StoichNum(293,601) = -1 - StoichNum(293,602) = -1 - StoichNum(293,620) = 1 - StoichNum(293,621) = 0.33 - StoichNum(293,691) = 0.037 - StoichNum(294,33) = 0.3 - StoichNum(294,136) = 0.5 - StoichNum(294,164) = -1 - StoichNum(294,166) = -1 - StoichNum(294,167) = 1 - StoichNum(294,184) = 0.1 - StoichNum(294,361) = 1 - StoichNum(294,496) = 0.3 - StoichNum(294,497) = 0.3 - StoichNum(294,503) = 0.3 - StoichNum(294,505) = 0.3 - StoichNum(294,524) = 0.085 - StoichNum(294,525) = 0.165 - StoichNum(294,528) = 0.355 - StoichNum(294,529) = 0.5 - StoichNum(294,537) = 0.018 - StoichNum(294,538) = 0.018 - StoichNum(294,558) = 0.52 - StoichNum(294,559) = 0.8 - StoichNum(294,645) = 0.545 - StoichNum(294,648) = 0.88 - StoichNum(294,650) = 0.449 - StoichNum(294,661) = 0.187 - StoichNum(294,662) = 1 - StoichNum(294,664) = 1 - StoichNum(294,667) = 0.05 - StoichNum(294,668) = 0.242 - StoichNum(294,670) = 0.083 - StoichNum(294,674) = 0.14 - StoichNum(294,685) = 0.7 - StoichNum(294,707) = 0.25 - StoichNum(294,725) = 0.12 - StoichNum(294,726) = 0.2 - StoichNum(294,770) = 0.6 - StoichNum(294,771) = 0.6 - StoichNum(294,772) = 0.2 - StoichNum(294,857) = -1 - StoichNum(294,911) = -1 - StoichNum(294,1007) = 0.5 - StoichNum(294,1008) = 0.47 - StoichNum(294,1009) = 0.571 - StoichNum(294,1010) = 0.125 - StoichNum(294,1011) = 0.23 - StoichNum(294,1034) = 0.118 - StoichNum(294,1036) = 0.429 - StoichNum(294,1040) = 1 - StoichNum(295,90) = 0.34 - StoichNum(295,93) = 0.34 - StoichNum(295,98) = 1 - StoichNum(295,111) = -1 - StoichNum(295,132) = 0.16 - StoichNum(295,134) = 0.16 - StoichNum(295,138) = 0.75 - StoichNum(295,172) = 0.791 - StoichNum(295,182) = 0.29 - StoichNum(295,183) = 0.29 - StoichNum(295,186) = 1 - StoichNum(295,218) = -1 - StoichNum(295,329) = -1 + StoichNum(281,380) = 0.15 + StoichNum(281,382) = 0.67 + StoichNum(281,383) = 0.5 + StoichNum(281,384) = -1 + StoichNum(281,385) = -1 + StoichNum(281,386) = -1 + StoichNum(281,387) = 0.6 + StoichNum(281,456) = -1 + StoichNum(281,457) = -1 + StoichNum(282,391) = 0.44 + StoichNum(282,392) = 1 + StoichNum(282,395) = 1 + StoichNum(282,397) = 1 + StoichNum(282,398) = -1 + StoichNum(282,399) = -1 + StoichNum(282,400) = -1 + StoichNum(282,401) = -1 + StoichNum(282,402) = 0.5 + StoichNum(282,464) = 0.75 + StoichNum(282,465) = 1 + StoichNum(282,1056) = 1 + StoichNum(282,1057) = 1 + StoichNum(282,1058) = 1 + StoichNum(283,91) = 1 + StoichNum(283,97) = 0.072 + StoichNum(283,103) = -1 + StoichNum(283,117) = 1 + StoichNum(283,936) = -1 + StoichNum(284,378) = 1 + StoichNum(284,380) = 0.2 + StoichNum(284,382) = 0.075 + StoichNum(284,417) = -1 + StoichNum(284,418) = -1 + StoichNum(284,419) = -1 + StoichNum(284,460) = -1 + StoichNum(284,461) = -1 + StoichNum(285,29) = 1 + StoichNum(285,31) = 0.13 + StoichNum(285,48) = -1 + StoichNum(285,112) = 0.25 + StoichNum(285,113) = 0.25 + StoichNum(285,129) = 0.25 + StoichNum(285,130) = 0.25 + StoichNum(285,132) = 0.25 + StoichNum(285,133) = 0.25 + StoichNum(285,134) = 0.25 + StoichNum(285,135) = 0.25 + StoichNum(285,136) = 0.5 + StoichNum(285,137) = 0.25 + StoichNum(285,138) = 0.25 + StoichNum(285,139) = 0.25 + StoichNum(285,324) = -1 + StoichNum(285,401) = 0.25 + StoichNum(285,413) = 0.25 + StoichNum(285,432) = 0.25 + StoichNum(285,456) = 0.25 + StoichNum(285,458) = 0.25 + StoichNum(285,460) = 0.25 + StoichNum(285,462) = 0.25 + StoichNum(285,473) = 0.25 + StoichNum(285,609) = 0.355 + StoichNum(285,610) = 0.034 + StoichNum(285,718) = 0.2 + StoichNum(285,914) = 0.1 + StoichNum(286,104) = -1 + StoichNum(286,168) = 0.5 + StoichNum(286,181) = 0.1 + StoichNum(286,182) = 0.1 + StoichNum(286,183) = 0.1 + StoichNum(286,184) = 0.1 + StoichNum(286,185) = 0.1 + StoichNum(286,186) = 0.1 + StoichNum(286,187) = 0.1 + StoichNum(286,188) = 0.1 + StoichNum(286,189) = 0.1 + StoichNum(286,190) = 0.1 + StoichNum(286,191) = 0.1 + StoichNum(286,192) = 0.1 + StoichNum(286,193) = 0.1 + StoichNum(286,326) = -1 + StoichNum(286,374) = 1 + StoichNum(286,457) = 0.1 + StoichNum(286,459) = 0.1 + StoichNum(286,461) = 0.1 + StoichNum(286,463) = 0.1 + StoichNum(286,695) = 0.13 + StoichNum(286,770) = 0.15 + StoichNum(286,771) = 0.3 + StoichNum(287,352) = 1 + StoichNum(287,354) = -1 + StoichNum(287,355) = 1 + StoichNum(287,828) = -1 + StoichNum(287,829) = -1 + StoichNum(287,843) = 1 + StoichNum(287,852) = -1 + StoichNum(287,853) = -1 + StoichNum(287,854) = -1 + StoichNum(287,855) = -1 + StoichNum(287,974) = -1 + StoichNum(288,528) = 0.068 + StoichNum(288,553) = 0.33 + StoichNum(288,555) = 0.19 + StoichNum(288,561) = -1 + StoichNum(288,562) = -1 + StoichNum(288,563) = -1 + StoichNum(288,564) = -1 + StoichNum(288,565) = -1 + StoichNum(288,687) = 0.032 + StoichNum(289,528) = 0.294 + StoichNum(289,553) = 0.67 + StoichNum(289,555) = 0.81 + StoichNum(289,556) = -1 + StoichNum(289,557) = -1 + StoichNum(289,558) = -1 + StoichNum(289,559) = -1 + StoichNum(289,560) = -1 + StoichNum(289,687) = 0.08 + StoichNum(290,510) = 1 + StoichNum(290,511) = 0.5 + StoichNum(290,515) = 0.5 + StoichNum(290,523) = 0.55 + StoichNum(290,525) = 0.17 + StoichNum(290,527) = 0.09 + StoichNum(290,528) = 0.158 + StoichNum(290,536) = 0.165 + StoichNum(290,540) = 0.716 + StoichNum(290,542) = 0.14 + StoichNum(290,631) = 0.004 + StoichNum(290,633) = 0.006 + StoichNum(290,652) = -1 + StoichNum(290,670) = 0.41 + StoichNum(290,686) = 0.5 + StoichNum(290,689) = 0.571 + StoichNum(290,690) = 0.25 + StoichNum(290,1018) = -1 + StoichNum(290,1034) = 0.55 + StoichNum(290,1040) = 0.5 + StoichNum(290,1046) = 0.15 + StoichNum(290,1048) = 0.5 + StoichNum(291,509) = 1 + StoichNum(291,511) = 0.5 + StoichNum(291,513) = 0.5 + StoichNum(291,519) = 0.55 + StoichNum(291,524) = 0.33 + StoichNum(291,526) = 0.19 + StoichNum(291,528) = 0.125 + StoichNum(291,535) = 0.125 + StoichNum(291,544) = 0.706 + StoichNum(291,546) = 0.14 + StoichNum(291,631) = 0.054 + StoichNum(291,633) = 0.059 + StoichNum(291,651) = -1 + StoichNum(291,667) = 0.335 + StoichNum(291,689) = 0.429 + StoichNum(291,690) = 0.75 + StoichNum(291,1015) = -1 + StoichNum(291,1031) = 0.55 + StoichNum(291,1048) = 0.5 + StoichNum(292,375) = 0.9 + StoichNum(292,376) = 0.9 + StoichNum(292,377) = 0.5 + StoichNum(292,469) = -1 + StoichNum(292,471) = -1 + StoichNum(292,473) = -1 + StoichNum(292,475) = -1 + StoichNum(292,477) = -1 + StoichNum(292,479) = -1 + StoichNum(292,480) = -2 + StoichNum(293,149) = -1 + StoichNum(293,150) = -1 + StoichNum(293,162) = -1 + StoichNum(293,332) = -1 + StoichNum(293,333) = -1 + StoichNum(293,919) = 1 + StoichNum(294,380) = 0.5 + StoichNum(294,443) = -1 + StoichNum(294,444) = -1 + StoichNum(294,445) = -1 + StoichNum(294,446) = -1 + StoichNum(294,462) = -1 + StoichNum(294,463) = -1 + StoichNum(295,68) = 0.25 + StoichNum(295,90) = 0.19 + StoichNum(295,93) = 0.19 + StoichNum(295,122) = -1 + StoichNum(295,131) = -1 + StoichNum(295,132) = 0.35 + StoichNum(295,134) = 0.35 + StoichNum(295,137) = 0.25 + StoichNum(295,182) = 0.271 + StoichNum(295,183) = 0.271 + StoichNum(295,185) = 0.1 StoichNum(295,381) = 0.5 - StoichNum(295,399) = 0.84 - StoichNum(295,400) = 1 - StoichNum(295,401) = 0.75 - StoichNum(295,402) = 0.5 - StoichNum(295,403) = 0.4 - StoichNum(295,412) = 0.6 - StoichNum(295,413) = 0.4 - StoichNum(295,414) = 0.6 - StoichNum(295,416) = 0.3 - StoichNum(295,445) = 0.45 - StoichNum(295,446) = 0.45 - StoichNum(295,447) = 0.3 - StoichNum(295,448) = 0.3 - StoichNum(295,449) = 0.15 - StoichNum(295,453) = 0.5 - StoichNum(295,454) = 0.5 - StoichNum(295,455) = 0.25 - StoichNum(295,462) = 0.45 - StoichNum(295,463) = 0.45 - StoichNum(295,491) = 1 - StoichNum(295,904) = -1 - StoichNum(295,905) = -1 - StoichNum(295,920) = 1 - StoichNum(295,926) = 0.34 - StoichNum(295,929) = 0.34 - StoichNum(295,1000) = 1 - StoichNum(295,1052) = 1 - StoichNum(295,1054) = 0.6 - StoichNum(295,1057) = 0.45 - StoichNum(296,57) = 1 - StoichNum(296,58) = -1 - StoichNum(296,59) = -1 - StoichNum(296,129) = -1 - StoichNum(296,142) = -2 - StoichNum(296,144) = -1 - StoichNum(296,179) = 1 - StoichNum(296,190) = -1 - StoichNum(296,219) = 1 - StoichNum(296,321) = 1 - StoichNum(296,322) = -1 - StoichNum(296,701) = 1 - StoichNum(297,281) = -1 - StoichNum(297,787) = 1 - StoichNum(297,789) = 1 - StoichNum(297,790) = 1 - StoichNum(297,802) = -1 - StoichNum(297,803) = -1 - StoichNum(297,804) = -1 - StoichNum(297,805) = -1 - StoichNum(297,806) = -1 - StoichNum(297,807) = -1 - StoichNum(297,947) = -1 - StoichNum(298,63) = 1 - StoichNum(298,68) = 0.75 - StoichNum(298,71) = 0.5 - StoichNum(298,73) = 1.24 - StoichNum(298,78) = 0.326 - StoichNum(298,79) = 0.894 - StoichNum(298,90) = 0.15 - StoichNum(298,92) = 0.64 - StoichNum(298,93) = 0.15 - StoichNum(298,95) = 0.64 - StoichNum(298,105) = -1 - StoichNum(298,110) = -1 - StoichNum(298,112) = 0.75 - StoichNum(298,113) = 0.09 - StoichNum(298,132) = 0.13 - StoichNum(298,133) = 0.58 - StoichNum(298,134) = 0.13 - StoichNum(298,135) = 0.58 - StoichNum(298,139) = 0.25 - StoichNum(298,141) = 1 - StoichNum(298,171) = 0.64 - StoichNum(298,173) = 1.185 - StoichNum(298,174) = 1.185 - StoichNum(298,182) = 0.255 - StoichNum(298,183) = 0.255 - StoichNum(298,187) = 0.613 - StoichNum(298,188) = 0.613 - StoichNum(298,189) = 0.1 - StoichNum(298,192) = 0.035 - StoichNum(298,193) = 1 - StoichNum(298,381) = 0.3 - StoichNum(298,412) = 0.6 - StoichNum(298,413) = 0.4 - StoichNum(298,414) = 0.6 - StoichNum(298,416) = 0.3 - StoichNum(298,436) = 0.44 - StoichNum(298,437) = 1 - StoichNum(298,440) = 1 - StoichNum(298,442) = 1 - StoichNum(298,466) = 0.75 - StoichNum(298,467) = 1 - StoichNum(298,469) = 1.24 - StoichNum(298,473) = 0.93 - StoichNum(298,475) = 1.24 - StoichNum(298,477) = 1.24 - StoichNum(298,479) = 0.64 - StoichNum(298,480) = 1.21 - StoichNum(298,492) = 1 - StoichNum(298,769) = 1.2 - StoichNum(298,772) = 1.15 - StoichNum(298,903) = -1 - StoichNum(298,917) = 1 - StoichNum(298,919) = 1 - StoichNum(298,921) = 1.5 - StoichNum(298,922) = 1 - StoichNum(298,923) = 1.5 - StoichNum(298,926) = 0.15 - StoichNum(298,927) = 1.558 - StoichNum(298,929) = 0.15 - StoichNum(298,989) = 1 - StoichNum(298,992) = 1 - StoichNum(298,1001) = 1 - StoichNum(298,1054) = 0.6 - StoichNum(298,1055) = 1 - StoichNum(298,1056) = 1 - StoichNum(299,587) = 1 - StoichNum(299,591) = 1 - StoichNum(299,596) = 1 - StoichNum(299,599) = 1 - StoichNum(299,602) = 1 - StoichNum(299,616) = 1 - StoichNum(299,618) = 1 - StoichNum(299,634) = 1 - StoichNum(299,636) = 1 - StoichNum(299,641) = -1 - StoichNum(299,643) = 0.18 - StoichNum(299,876) = -1 - StoichNum(299,1032) = -1 - StoichNum(300,90) = -1 - StoichNum(300,91) = -1 - StoichNum(300,101) = 1 - StoichNum(300,116) = -1 - StoichNum(300,134) = -1 - StoichNum(300,174) = 0.21 - StoichNum(300,183) = -1 - StoichNum(300,331) = 1 - StoichNum(300,772) = 0.2 - StoichNum(301,582) = 0.4 - StoichNum(301,583) = 0.4 - StoichNum(301,606) = 0.07 - StoichNum(301,607) = 0.532 - StoichNum(301,608) = 0.862 - StoichNum(301,609) = 0.401 - StoichNum(301,610) = 0.034 - StoichNum(301,612) = 0.159 - StoichNum(301,614) = 0.159 - StoichNum(301,617) = 0.159 - StoichNum(301,619) = 1 - StoichNum(301,628) = 1 - StoichNum(301,637) = -1 - StoichNum(301,638) = -1 - StoichNum(301,1029) = 0.159 - StoichNum(301,1031) = -1 - StoichNum(301,1032) = 0.223 - StoichNum(302,583) = 0.6 - StoichNum(302,589) = 0.599 - StoichNum(302,590) = 1 - StoichNum(302,597) = 0.065 - StoichNum(302,598) = 0.142 - StoichNum(302,600) = 0.01 - StoichNum(302,601) = 0.028 - StoichNum(302,631) = 0.008 - StoichNum(302,632) = 0.015 - StoichNum(302,633) = 0.014 - StoichNum(302,635) = 0.049 - StoichNum(302,638) = 0.161 - StoichNum(302,650) = -1 - StoichNum(302,657) = 1 - StoichNum(302,669) = 1 - StoichNum(302,862) = -1 - StoichNum(302,1013) = -1 - StoichNum(302,1038) = 0.05 - StoichNum(303,541) = 1 - StoichNum(303,545) = 1 - StoichNum(303,549) = 1 - StoichNum(303,585) = 0.482 - StoichNum(303,589) = 0.401 - StoichNum(303,594) = 0.418 - StoichNum(303,597) = 0.494 - StoichNum(303,600) = 0.621 - StoichNum(303,623) = 1 - StoichNum(303,624) = 1 - StoichNum(303,630) = 0.5 - StoichNum(303,631) = 0.234 - StoichNum(303,632) = 0.387 - StoichNum(303,641) = 0.565 - StoichNum(303,691) = -1 - StoichNum(303,878) = -1 - StoichNum(303,1038) = -1 + StoichNum(295,399) = 0.42 + StoichNum(295,400) = 0.5 + StoichNum(295,401) = 0.375 + StoichNum(295,402) = 0.25 + StoichNum(295,403) = 0.3 + StoichNum(295,453) = 1 + StoichNum(295,454) = 1 + StoichNum(295,455) = 0.5 + StoichNum(295,469) = 0.464 + StoichNum(295,473) = 0.34 + StoichNum(295,475) = 0.464 + StoichNum(295,477) = 0.464 + StoichNum(295,479) = 0.149 + StoichNum(295,480) = 0.285 + StoichNum(295,913) = -1 + StoichNum(295,933) = 0.19 + StoichNum(295,936) = 0.19 + StoichNum(295,998) = 1 + StoichNum(295,1059) = 0.5 + StoichNum(296,339) = 1 + StoichNum(296,340) = 1 + StoichNum(296,341) = -1 + StoichNum(296,342) = -1 + StoichNum(296,841) = -1 + StoichNum(296,842) = -1 + StoichNum(296,843) = -1 + StoichNum(296,848) = -1 + StoichNum(296,849) = -1 + StoichNum(296,850) = -1 + StoichNum(296,851) = -1 + StoichNum(296,979) = -1 + StoichNum(297,90) = 0.34 + StoichNum(297,93) = 0.34 + StoichNum(297,98) = 1 + StoichNum(297,111) = -1 + StoichNum(297,132) = 0.16 + StoichNum(297,134) = 0.16 + StoichNum(297,138) = 0.75 + StoichNum(297,172) = 0.791 + StoichNum(297,182) = 0.29 + StoichNum(297,183) = 0.29 + StoichNum(297,186) = 1 + StoichNum(297,218) = -1 + StoichNum(297,329) = -1 + StoichNum(297,381) = 0.5 + StoichNum(297,399) = 0.84 + StoichNum(297,400) = 1 + StoichNum(297,401) = 0.75 + StoichNum(297,402) = 0.5 + StoichNum(297,403) = 0.4 + StoichNum(297,412) = 0.6 + StoichNum(297,413) = 0.4 + StoichNum(297,414) = 0.6 + StoichNum(297,416) = 0.3 + StoichNum(297,445) = 0.45 + StoichNum(297,446) = 0.45 + StoichNum(297,447) = 0.3 + StoichNum(297,448) = 0.3 + StoichNum(297,449) = 0.15 + StoichNum(297,453) = 0.5 + StoichNum(297,454) = 0.5 + StoichNum(297,455) = 0.25 + StoichNum(297,462) = 0.45 + StoichNum(297,463) = 0.45 + StoichNum(297,491) = 1 + StoichNum(297,911) = -1 + StoichNum(297,912) = -1 + StoichNum(297,927) = 1 + StoichNum(297,933) = 0.34 + StoichNum(297,936) = 0.34 + StoichNum(297,1007) = 1 + StoichNum(297,1059) = 1 + StoichNum(297,1061) = 0.6 + StoichNum(297,1064) = 0.45 + StoichNum(298,33) = 0.3 + StoichNum(298,136) = 0.5 + StoichNum(298,164) = -1 + StoichNum(298,166) = -1 + StoichNum(298,167) = 1 + StoichNum(298,184) = 0.1 + StoichNum(298,361) = 1 + StoichNum(298,496) = 0.3 + StoichNum(298,497) = 0.3 + StoichNum(298,503) = 0.3 + StoichNum(298,505) = 0.3 + StoichNum(298,524) = 0.085 + StoichNum(298,525) = 0.165 + StoichNum(298,528) = 0.355 + StoichNum(298,529) = 0.5 + StoichNum(298,537) = 0.018 + StoichNum(298,538) = 0.018 + StoichNum(298,558) = 0.52 + StoichNum(298,559) = 0.8 + StoichNum(298,645) = 0.545 + StoichNum(298,648) = 0.88 + StoichNum(298,650) = 0.449 + StoichNum(298,661) = 0.187 + StoichNum(298,662) = 1 + StoichNum(298,664) = 1 + StoichNum(298,667) = 0.05 + StoichNum(298,668) = 0.242 + StoichNum(298,670) = 0.083 + StoichNum(298,674) = 0.14 + StoichNum(298,685) = 0.7 + StoichNum(298,707) = 0.25 + StoichNum(298,725) = 0.12 + StoichNum(298,726) = 0.2 + StoichNum(298,770) = 0.6 + StoichNum(298,771) = 0.6 + StoichNum(298,772) = 0.2 + StoichNum(298,857) = -1 + StoichNum(298,918) = -1 + StoichNum(298,1014) = 0.5 + StoichNum(298,1015) = 0.47 + StoichNum(298,1016) = 0.571 + StoichNum(298,1017) = 0.125 + StoichNum(298,1018) = 0.23 + StoichNum(298,1041) = 0.118 + StoichNum(298,1043) = 0.429 + StoichNum(298,1047) = 1 + StoichNum(299,600) = -1 + StoichNum(299,601) = -1 + StoichNum(299,602) = -1 + StoichNum(299,620) = 1 + StoichNum(299,621) = 0.33 + StoichNum(299,691) = 0.037 + StoichNum(300,57) = 1 + StoichNum(300,58) = -1 + StoichNum(300,59) = -1 + StoichNum(300,129) = -1 + StoichNum(300,142) = -2 + StoichNum(300,144) = -1 + StoichNum(300,179) = 1 + StoichNum(300,190) = -1 + StoichNum(300,219) = 1 + StoichNum(300,321) = 1 + StoichNum(300,322) = -1 + StoichNum(300,701) = 1 + StoichNum(301,281) = -1 + StoichNum(301,787) = 1 + StoichNum(301,789) = 1 + StoichNum(301,790) = 1 + StoichNum(301,802) = -1 + StoichNum(301,803) = -1 + StoichNum(301,804) = -1 + StoichNum(301,805) = -1 + StoichNum(301,806) = -1 + StoichNum(301,807) = -1 + StoichNum(301,954) = -1 + StoichNum(302,63) = 1 + StoichNum(302,68) = 0.75 + StoichNum(302,71) = 0.5 + StoichNum(302,73) = 1.24 + StoichNum(302,78) = 0.326 + StoichNum(302,79) = 0.894 + StoichNum(302,90) = 0.15 + StoichNum(302,92) = 0.64 + StoichNum(302,93) = 0.15 + StoichNum(302,95) = 0.64 + StoichNum(302,105) = -1 + StoichNum(302,110) = -1 + StoichNum(302,112) = 0.75 + StoichNum(302,113) = 0.09 + StoichNum(302,132) = 0.13 + StoichNum(302,133) = 0.58 + StoichNum(302,134) = 0.13 + StoichNum(302,135) = 0.58 + StoichNum(302,139) = 0.25 + StoichNum(302,141) = 1 + StoichNum(302,171) = 0.64 + StoichNum(302,173) = 1.185 + StoichNum(302,174) = 1.185 + StoichNum(302,182) = 0.255 + StoichNum(302,183) = 0.255 + StoichNum(302,187) = 0.613 + StoichNum(302,188) = 0.613 + StoichNum(302,189) = 0.1 + StoichNum(302,192) = 0.035 + StoichNum(302,193) = 1 + StoichNum(302,381) = 0.3 + StoichNum(302,412) = 0.6 + StoichNum(302,413) = 0.4 + StoichNum(302,414) = 0.6 + StoichNum(302,416) = 0.3 + StoichNum(302,436) = 0.44 + StoichNum(302,437) = 1 + StoichNum(302,440) = 1 + StoichNum(302,442) = 1 + StoichNum(302,466) = 0.75 + StoichNum(302,467) = 1 + StoichNum(302,469) = 1.24 + StoichNum(302,473) = 0.93 + StoichNum(302,475) = 1.24 + StoichNum(302,477) = 1.24 + StoichNum(302,479) = 0.64 + StoichNum(302,480) = 1.21 + StoichNum(302,492) = 1 + StoichNum(302,769) = 1.2 + StoichNum(302,772) = 1.15 + StoichNum(302,910) = -1 + StoichNum(302,924) = 1 + StoichNum(302,926) = 1 + StoichNum(302,928) = 1.5 + StoichNum(302,929) = 1 + StoichNum(302,930) = 1.5 + StoichNum(302,933) = 0.15 + StoichNum(302,934) = 1.558 + StoichNum(302,936) = 0.15 + StoichNum(302,996) = 1 + StoichNum(302,999) = 1 + StoichNum(302,1008) = 1 + StoichNum(302,1061) = 0.6 + StoichNum(302,1062) = 1 + StoichNum(302,1063) = 1 + StoichNum(303,587) = 1 + StoichNum(303,591) = 1 + StoichNum(303,596) = 1 + StoichNum(303,599) = 1 + StoichNum(303,602) = 1 + StoichNum(303,616) = 1 + StoichNum(303,618) = 1 + StoichNum(303,634) = 1 + StoichNum(303,636) = 1 + StoichNum(303,641) = -1 + StoichNum(303,643) = 0.18 + StoichNum(303,876) = -1 StoichNum(303,1039) = -1 - StoichNum(304,330) = 0.5 - StoichNum(304,495) = 1 - StoichNum(304,500) = -1 - StoichNum(304,501) = -1 - StoichNum(304,504) = -1 - StoichNum(304,505) = -1 - StoichNum(304,507) = -2 - StoichNum(304,508) = -1 - StoichNum(304,510) = -2 - StoichNum(304,511) = -1 - StoichNum(304,514) = -1 - StoichNum(304,515) = -1 - StoichNum(304,520) = -1 - StoichNum(304,521) = -1 - StoichNum(304,522) = -1 - StoichNum(304,523) = -1 - StoichNum(304,536) = 0.51 - StoichNum(304,538) = 0.03 - StoichNum(304,1030) = 0.159 - StoichNum(305,330) = 0.5 - StoichNum(305,494) = 1 - StoichNum(305,498) = -1 - StoichNum(305,499) = -1 - StoichNum(305,502) = -1 - StoichNum(305,503) = -1 - StoichNum(305,506) = -2 - StoichNum(305,508) = -1 - StoichNum(305,509) = -2 - StoichNum(305,511) = -1 - StoichNum(305,512) = -1 - StoichNum(305,513) = -1 - StoichNum(305,516) = -1 - StoichNum(305,517) = -1 - StoichNum(305,518) = -1 - StoichNum(305,519) = -1 - StoichNum(305,535) = 0.75 - StoichNum(305,537) = 0.03 - StoichNum(305,1030) = 0.841 - StoichNum(306,79) = 0.659 - StoichNum(306,80) = 1 - StoichNum(306,82) = 1 - StoichNum(306,83) = 1 - StoichNum(306,84) = 0.5 - StoichNum(306,88) = 1 - StoichNum(306,126) = 1 - StoichNum(306,151) = -1 - StoichNum(306,152) = -1 - StoichNum(306,153) = -1 - StoichNum(306,154) = -1 - StoichNum(306,453) = 0.5 - StoichNum(306,454) = 0.5 - StoichNum(306,455) = 0.25 - StoichNum(306,544) = 0.294 - StoichNum(306,546) = 0.135 - StoichNum(306,548) = 1 - StoichNum(306,550) = 0.65 - StoichNum(306,558) = 0.52 - StoichNum(306,559) = 0.8 - StoichNum(306,585) = 0.459 - StoichNum(306,586) = 0.728 - StoichNum(306,594) = 0.551 - StoichNum(306,595) = 0.935 - StoichNum(306,600) = 0.242 - StoichNum(306,601) = 0.546 - StoichNum(306,631) = 0.34 - StoichNum(306,633) = 0.384 - StoichNum(306,642) = 0.11 - StoichNum(306,643) = 0.09 - StoichNum(306,667) = 0.36 - StoichNum(306,668) = 0.758 - StoichNum(306,718) = 0.2 - StoichNum(306,720) = 1 - StoichNum(306,721) = 1 - StoichNum(306,723) = 1 - StoichNum(306,746) = 1 - StoichNum(306,768) = 0.9 - StoichNum(306,771) = 0.95 - StoichNum(306,907) = -1 - StoichNum(306,1008) = 0.53 - StoichNum(306,1013) = 0.69 - StoichNum(306,1032) = 0.5 - StoichNum(306,1034) = 0.118 - StoichNum(306,1035) = 0.25 - StoichNum(306,1036) = 0.429 - StoichNum(306,1038) = 0.3 - StoichNum(306,1039) = 0.35 - StoichNum(306,1040) = 1 - StoichNum(307,113) = 0.16 - StoichNum(307,136) = 0.2 - StoichNum(307,167) = -1 - StoichNum(307,168) = -1 - StoichNum(307,176) = 0.791 - StoichNum(307,192) = 0.065 - StoichNum(307,488) = 1 - StoichNum(307,529) = 0.5 - StoichNum(307,540) = 0.284 - StoichNum(307,542) = 0.135 - StoichNum(307,548) = 1 - StoichNum(307,550) = 0.65 - StoichNum(307,563) = 0.8 - StoichNum(307,565) = 0.52 - StoichNum(307,566) = 0.52 - StoichNum(307,568) = 0.8 - StoichNum(307,569) = 1 - StoichNum(307,585) = 0.459 - StoichNum(307,586) = 0.728 - StoichNum(307,597) = 0.441 - StoichNum(307,598) = 0.858 - StoichNum(307,600) = 0.033 - StoichNum(307,601) = 0.071 - StoichNum(307,631) = 0.042 - StoichNum(307,633) = 0.051 - StoichNum(307,652) = 0.77 - StoichNum(307,666) = 0.84 - StoichNum(307,670) = 0.507 - StoichNum(307,672) = 0.488 - StoichNum(307,673) = 1 - StoichNum(307,674) = 0.86 - StoichNum(307,678) = 0.5 - StoichNum(307,679) = 1 - StoichNum(307,681) = 1 - StoichNum(307,682) = 0.7 - StoichNum(307,684) = 0.25 - StoichNum(307,916) = -1 - StoichNum(307,993) = 1 - StoichNum(307,1011) = 0.77 - StoichNum(307,1014) = 1 - StoichNum(307,1032) = 0.5 - StoichNum(307,1034) = 0.586 - StoichNum(307,1035) = 0.25 - StoichNum(307,1036) = 0.571 - StoichNum(307,1038) = 0.45 - StoichNum(307,1039) = 0.8 - StoichNum(308,653) = 1 - StoichNum(308,678) = -1 - StoichNum(308,679) = -1 - StoichNum(308,680) = -1 - StoichNum(308,681) = -1 - StoichNum(308,682) = -1 - StoichNum(309,493) = 0.416 - StoichNum(309,500) = 0.063 - StoichNum(309,504) = 1 - StoichNum(309,507) = 2 - StoichNum(309,508) = 1 - StoichNum(309,514) = 1 - StoichNum(309,521) = 1 - StoichNum(309,525) = 0.035 - StoichNum(309,527) = 0.14 - StoichNum(309,536) = 0.165 - StoichNum(309,572) = 1 - StoichNum(309,573) = 1 - StoichNum(309,604) = 0.048 - StoichNum(309,606) = 0.123 - StoichNum(309,607) = 0.019 - StoichNum(309,610) = 0.028 - StoichNum(309,611) = 0.097 - StoichNum(309,613) = 0.097 - StoichNum(309,615) = 0.096 - StoichNum(309,646) = -1 - StoichNum(309,647) = -1 - StoichNum(309,648) = -1 - StoichNum(309,649) = -1 - StoichNum(309,915) = -1 - StoichNum(309,1017) = 1 - StoichNum(309,1023) = 1 - StoichNum(309,1026) = 1 - StoichNum(309,1028) = 0.097 - StoichNum(309,1032) = 0.005 - StoichNum(310,603) = 0.465 - StoichNum(310,604) = -1 - StoichNum(310,606) = -2 + StoichNum(304,90) = -1 + StoichNum(304,91) = -1 + StoichNum(304,101) = 1 + StoichNum(304,116) = -1 + StoichNum(304,134) = -1 + StoichNum(304,174) = 0.21 + StoichNum(304,183) = -1 + StoichNum(304,331) = 1 + StoichNum(304,772) = 0.2 + StoichNum(305,582) = 0.4 + StoichNum(305,583) = 0.4 + StoichNum(305,606) = 0.07 + StoichNum(305,607) = 0.532 + StoichNum(305,608) = 0.862 + StoichNum(305,609) = 0.401 + StoichNum(305,610) = 0.034 + StoichNum(305,612) = 0.159 + StoichNum(305,614) = 0.159 + StoichNum(305,617) = 0.159 + StoichNum(305,619) = 1 + StoichNum(305,628) = 1 + StoichNum(305,637) = -1 + StoichNum(305,638) = -1 + StoichNum(305,1036) = 0.159 + StoichNum(305,1038) = -1 + StoichNum(305,1039) = 0.223 + StoichNum(306,583) = 0.6 + StoichNum(306,589) = 0.599 + StoichNum(306,590) = 1 + StoichNum(306,597) = 0.065 + StoichNum(306,598) = 0.142 + StoichNum(306,600) = 0.01 + StoichNum(306,601) = 0.028 + StoichNum(306,631) = 0.008 + StoichNum(306,632) = 0.015 + StoichNum(306,633) = 0.014 + StoichNum(306,635) = 0.049 + StoichNum(306,638) = 0.161 + StoichNum(306,650) = -1 + StoichNum(306,657) = 1 + StoichNum(306,669) = 1 + StoichNum(306,862) = -1 + StoichNum(306,1020) = -1 + StoichNum(306,1045) = 0.05 + StoichNum(307,541) = 1 + StoichNum(307,545) = 1 + StoichNum(307,549) = 1 + StoichNum(307,585) = 0.482 + StoichNum(307,589) = 0.401 + StoichNum(307,594) = 0.418 + StoichNum(307,597) = 0.494 + StoichNum(307,600) = 0.621 + StoichNum(307,623) = 1 + StoichNum(307,624) = 1 + StoichNum(307,630) = 0.5 + StoichNum(307,631) = 0.234 + StoichNum(307,632) = 0.387 + StoichNum(307,641) = 0.565 + StoichNum(307,691) = -1 + StoichNum(307,878) = -1 + StoichNum(307,1045) = -1 + StoichNum(307,1046) = -1 + StoichNum(308,603) = 0.465 + StoichNum(308,604) = -1 + StoichNum(308,606) = -2 + StoichNum(308,607) = -1 + StoichNum(308,610) = -1 + StoichNum(308,611) = -1 + StoichNum(308,613) = -1 + StoichNum(308,615) = -1 + StoichNum(308,616) = -1 + StoichNum(308,626) = 1 + StoichNum(309,79) = 0.659 + StoichNum(309,80) = 1 + StoichNum(309,82) = 1 + StoichNum(309,83) = 1 + StoichNum(309,84) = 0.5 + StoichNum(309,88) = 1 + StoichNum(309,126) = 1 + StoichNum(309,151) = -1 + StoichNum(309,152) = -1 + StoichNum(309,153) = -1 + StoichNum(309,154) = -1 + StoichNum(309,453) = 0.5 + StoichNum(309,454) = 0.5 + StoichNum(309,455) = 0.25 + StoichNum(309,544) = 0.294 + StoichNum(309,546) = 0.135 + StoichNum(309,548) = 1 + StoichNum(309,550) = 0.65 + StoichNum(309,558) = 0.52 + StoichNum(309,559) = 0.8 + StoichNum(309,585) = 0.459 + StoichNum(309,586) = 0.728 + StoichNum(309,594) = 0.551 + StoichNum(309,595) = 0.935 + StoichNum(309,600) = 0.242 + StoichNum(309,601) = 0.546 + StoichNum(309,631) = 0.34 + StoichNum(309,633) = 0.384 + StoichNum(309,642) = 0.11 + StoichNum(309,643) = 0.09 + StoichNum(309,667) = 0.36 + StoichNum(309,668) = 0.758 + StoichNum(309,718) = 0.2 + StoichNum(309,720) = 1 + StoichNum(309,721) = 1 + StoichNum(309,723) = 1 + StoichNum(309,746) = 1 + StoichNum(309,768) = 0.9 + StoichNum(309,771) = 0.95 + StoichNum(309,914) = -1 + StoichNum(309,1015) = 0.53 + StoichNum(309,1020) = 0.69 + StoichNum(309,1039) = 0.5 + StoichNum(309,1041) = 0.118 + StoichNum(309,1042) = 0.25 + StoichNum(309,1043) = 0.429 + StoichNum(309,1045) = 0.3 + StoichNum(309,1046) = 0.35 + StoichNum(309,1047) = 1 + StoichNum(310,603) = 0.535 + StoichNum(310,605) = -1 StoichNum(310,607) = -1 - StoichNum(310,610) = -1 - StoichNum(310,611) = -1 - StoichNum(310,613) = -1 - StoichNum(310,615) = -1 - StoichNum(310,616) = -1 - StoichNum(310,626) = 1 - StoichNum(311,603) = 0.535 - StoichNum(311,605) = -1 - StoichNum(311,607) = -1 - StoichNum(311,608) = -2 - StoichNum(311,609) = -1 - StoichNum(311,612) = -1 - StoichNum(311,614) = -1 - StoichNum(311,617) = -1 - StoichNum(311,618) = -1 - StoichNum(311,627) = 1 - StoichNum(312,150) = 0.22 - StoichNum(312,362) = -1 - StoichNum(312,363) = -1 - StoichNum(312,364) = -1 - StoichNum(312,365) = -1 - StoichNum(312,366) = -1 - StoichNum(312,367) = -1 - StoichNum(312,368) = -1 - StoichNum(312,383) = 0.1 - StoichNum(312,421) = 0.33 - StoichNum(312,493) = 0.58 - StoichNum(312,645) = 0.5 - StoichNum(312,648) = 0.88 - StoichNum(312,704) = 0.5 - StoichNum(312,712) = 1 - StoichNum(313,33) = 0.7 - StoichNum(313,96) = -1 - StoichNum(313,111) = 1 - StoichNum(313,118) = -1 - StoichNum(313,136) = -1 - StoichNum(313,184) = -1 - StoichNum(313,218) = 1 - StoichNum(313,329) = 1 - StoichNum(314,381) = 0.15 - StoichNum(314,445) = 0.45 - StoichNum(314,446) = 0.45 - StoichNum(314,447) = 0.3 - StoichNum(314,448) = 0.3 - StoichNum(314,449) = 0.15 - StoichNum(314,453) = 0.5 - StoichNum(314,454) = 0.5 - StoichNum(314,455) = 0.25 - StoichNum(314,462) = 0.45 - StoichNum(314,463) = 0.45 - StoichNum(314,493) = 0.177 - StoichNum(314,498) = 0.063 - StoichNum(314,502) = 1 - StoichNum(314,506) = 2 - StoichNum(314,508) = 1 - StoichNum(314,512) = 1 - StoichNum(314,517) = 1 - StoichNum(314,524) = 0.035 - StoichNum(314,526) = 0.23 - StoichNum(314,535) = 0.125 - StoichNum(314,570) = 1 - StoichNum(314,571) = 1 - StoichNum(314,604) = 0.479 - StoichNum(314,606) = 1.737 - StoichNum(314,607) = 0.544 - StoichNum(314,610) = 0.583 - StoichNum(314,611) = 0.903 - StoichNum(314,613) = 0.903 - StoichNum(314,615) = 0.904 - StoichNum(314,644) = -1 - StoichNum(314,645) = -1 - StoichNum(314,725) = 0.04 - StoichNum(314,726) = 0.04 - StoichNum(314,912) = -1 - StoichNum(314,913) = -1 - StoichNum(314,914) = -1 - StoichNum(314,1016) = 1 - StoichNum(314,1022) = 1 - StoichNum(314,1025) = 1 - StoichNum(314,1028) = 0.903 - StoichNum(314,1032) = 0.05 - StoichNum(314,1057) = 0.45 - StoichNum(315,60) = -1 - StoichNum(315,90) = 0.34 - StoichNum(315,93) = 0.34 - StoichNum(315,109) = 0.49 - StoichNum(315,130) = -1 - StoichNum(315,132) = 0.16 - StoichNum(315,134) = 0.16 - StoichNum(315,143) = -2 - StoichNum(315,145) = -1 - StoichNum(315,148) = 0.22 - StoichNum(315,170) = 0.36 - StoichNum(315,182) = 0.29 - StoichNum(315,183) = 0.29 - StoichNum(315,191) = -1 - StoichNum(315,194) = 0.49 - StoichNum(315,195) = 0.49 - StoichNum(315,323) = -1 - StoichNum(315,903) = 0.49 - StoichNum(315,906) = 0.415 - StoichNum(315,926) = 0.34 - StoichNum(315,929) = 0.34 - StoichNum(316,204) = 1 - StoichNum(316,211) = 1 - StoichNum(316,212) = -1 - StoichNum(316,793) = 1 - StoichNum(316,813) = -1 - StoichNum(316,814) = -1 - StoichNum(316,815) = -1 - StoichNum(316,816) = -1 - StoichNum(316,817) = -1 - StoichNum(316,818) = -1 - StoichNum(316,819) = -1 - StoichNum(316,820) = 1 - StoichNum(316,821) = 1 - StoichNum(316,822) = 1 - StoichNum(316,933) = -1 - StoichNum(317,282) = -1 - StoichNum(317,301) = 1 - StoichNum(317,313) = -1 - StoichNum(317,314) = -1 - StoichNum(317,795) = -1 - StoichNum(317,796) = -1 - StoichNum(317,797) = -1 - StoichNum(317,798) = -1 - StoichNum(317,799) = -1 - StoichNum(317,800) = -1 - StoichNum(317,801) = -1 - StoichNum(317,948) = -1 - StoichNum(317,949) = -1 - StoichNum(318,95) = -1 - StoichNum(318,102) = 1 - StoichNum(318,115) = -1 - StoichNum(318,133) = -1 - StoichNum(318,187) = -1 - StoichNum(318,763) = 0.5 - StoichNum(318,764) = 0.5 - StoichNum(319,68) = 0.25 - StoichNum(319,89) = 1 - StoichNum(319,93) = -1 - StoichNum(319,94) = -1 - StoichNum(319,114) = -1 - StoichNum(319,132) = -1 - StoichNum(319,133) = 0.15 - StoichNum(319,135) = 0.15 - StoichNum(319,173) = 0.21 - StoichNum(319,182) = -1 - StoichNum(319,187) = 0.27 - StoichNum(319,188) = 0.27 - StoichNum(319,412) = 0.6 - StoichNum(319,413) = 0.4 - StoichNum(319,414) = 0.6 - StoichNum(319,416) = 0.3 - StoichNum(319,436) = 0.352 - StoichNum(319,437) = 0.8 - StoichNum(319,440) = 0.8 - StoichNum(319,442) = 0.8 - StoichNum(319,466) = 0.6 - StoichNum(319,467) = 0.8 - StoichNum(319,1054) = 0.6 - StoichNum(319,1055) = 0.8 - StoichNum(319,1056) = 0.8 - StoichNum(320,97) = -1 - StoichNum(320,119) = -1 - StoichNum(320,122) = 1 - StoichNum(320,123) = -1 - StoichNum(320,131) = 1 - StoichNum(320,137) = -1 - StoichNum(320,185) = -1 - StoichNum(320,381) = 0.3 - StoichNum(321,62) = 1 - StoichNum(321,63) = -1 - StoichNum(321,64) = -1 - StoichNum(321,90) = 0.05 - StoichNum(321,93) = 0.05 - StoichNum(321,109) = 0.07 - StoichNum(321,112) = -1 - StoichNum(321,132) = 0.03 - StoichNum(321,134) = 0.03 - StoichNum(321,146) = -1 - StoichNum(321,148) = 0.03 - StoichNum(321,171) = 0.36 - StoichNum(321,182) = 0.045 - StoichNum(321,183) = 0.045 - StoichNum(321,193) = -1 - StoichNum(321,194) = 0.07 - StoichNum(321,195) = 0.07 - StoichNum(321,220) = 1 - StoichNum(321,328) = 1 - StoichNum(321,903) = 0.07 - StoichNum(321,906) = 0.06 - StoichNum(321,926) = 0.05 - StoichNum(321,929) = 0.05 - StoichNum(322,105) = 1 - StoichNum(322,106) = -1 - StoichNum(322,107) = 1 - StoichNum(322,109) = -1 - StoichNum(322,110) = 1 - StoichNum(322,148) = -1 - StoichNum(322,175) = 1 - StoichNum(322,194) = -1 - StoichNum(322,195) = -1 - StoichNum(322,399) = 0.84 - StoichNum(322,400) = 1 - StoichNum(322,401) = 0.75 - StoichNum(322,402) = 0.5 - StoichNum(322,403) = 0.4 - StoichNum(322,736) = 1 - StoichNum(322,737) = 0.44 - StoichNum(322,767) = 0.33 - StoichNum(322,770) = 0.33 - StoichNum(322,906) = 0.15 - StoichNum(322,914) = 1 - StoichNum(322,927) = 0.326 - StoichNum(322,1047) = 0.7 - StoichNum(322,1052) = 1 - StoichNum(323,61) = 1 - StoichNum(323,90) = 0.19 - StoichNum(323,93) = 0.19 - StoichNum(323,98) = -1 - StoichNum(323,99) = -1 - StoichNum(323,109) = 0.27 - StoichNum(323,120) = -1 - StoichNum(323,132) = 0.09 - StoichNum(323,134) = 0.09 - StoichNum(323,138) = -1 - StoichNum(323,148) = 0.12 - StoichNum(323,172) = 0.209 - StoichNum(323,182) = 0.162 - StoichNum(323,183) = 0.162 - StoichNum(323,186) = -1 - StoichNum(323,194) = 0.27 - StoichNum(323,195) = 0.27 - StoichNum(323,327) = 1 - StoichNum(323,903) = 0.27 - StoichNum(323,906) = 0.23 - StoichNum(323,926) = 0.19 - StoichNum(323,929) = 0.19 - StoichNum(324,51) = 0.95 - StoichNum(324,52) = 1 - StoichNum(324,53) = -1 - StoichNum(324,54) = 1 - StoichNum(324,56) = -1 - StoichNum(324,96) = 1 - StoichNum(324,97) = 0.919 - StoichNum(324,118) = 0.15 - StoichNum(324,119) = 0.15 - StoichNum(324,123) = 0.62 - StoichNum(324,136) = 0.3 - StoichNum(324,137) = 0.5 - StoichNum(324,164) = 1 - StoichNum(324,166) = 1 - StoichNum(324,178) = 0.78 - StoichNum(324,180) = -2 - StoichNum(324,181) = -1 - StoichNum(324,182) = -1 - StoichNum(324,183) = -1 - StoichNum(324,184) = -0.1 - StoichNum(324,185) = -0.1 - StoichNum(324,186) = -1 - StoichNum(324,187) = -1 - StoichNum(324,188) = -1 - StoichNum(324,189) = -1 - StoichNum(324,190) = -1 - StoichNum(324,191) = -1 - StoichNum(324,192) = -1 - StoichNum(324,193) = -1 - StoichNum(324,194) = -1 - StoichNum(324,217) = 1 - StoichNum(324,436) = 0.44 - StoichNum(324,437) = 1 - StoichNum(324,440) = 1 - StoichNum(324,442) = 1 - StoichNum(324,457) = -1 - StoichNum(324,459) = -1 - StoichNum(324,461) = -1 - StoichNum(324,463) = -1 - StoichNum(324,465) = -1 - StoichNum(324,466) = 0.75 - StoichNum(324,474) = -1 - StoichNum(324,475) = -1 - StoichNum(324,496) = 0.3 - StoichNum(324,503) = 0.3 - StoichNum(324,537) = 0.018 - StoichNum(324,611) = -1 - StoichNum(324,612) = -1 - StoichNum(324,645) = 0.38 - StoichNum(324,648) = 0.12 - StoichNum(324,650) = 0.04 - StoichNum(324,661) = 0.097 - StoichNum(324,665) = 1 - StoichNum(324,667) = 0.36 - StoichNum(324,668) = 0.758 - StoichNum(324,671) = 0.175 - StoichNum(324,672) = 0.087 - StoichNum(324,676) = 0.35 - StoichNum(324,685) = 0.3 - StoichNum(324,692) = 1 - StoichNum(324,693) = 1 - StoichNum(324,695) = -1 - StoichNum(324,731) = -1 - StoichNum(324,740) = 1 - StoichNum(324,897) = 0.12 - StoichNum(324,899) = 0.7 - StoichNum(324,902) = 1 - StoichNum(324,904) = 1 - StoichNum(324,906) = 0.85 - StoichNum(324,911) = 1 - StoichNum(324,913) = 1 - StoichNum(324,915) = 1 - StoichNum(324,916) = 1 - StoichNum(324,927) = 0.326 - StoichNum(324,984) = 1 - StoichNum(324,1004) = 1 - StoichNum(324,1005) = 1 - StoichNum(324,1006) = 1 - StoichNum(324,1007) = 0.5 - StoichNum(324,1008) = 0.53 - StoichNum(324,1009) = 0.429 - StoichNum(324,1010) = 0.125 - StoichNum(324,1012) = 0.262 - StoichNum(324,1013) = 1.01 - StoichNum(324,1055) = 1 - StoichNum(324,1056) = 1 - StoichNum(325,10) = -1 - StoichNum(325,11) = 1 - StoichNum(325,12) = 1 - StoichNum(325,17) = 1 - StoichNum(325,26) = 1 - StoichNum(325,29) = 1 - StoichNum(325,30) = 2 - StoichNum(325,31) = 0.87 - StoichNum(325,32) = 0.3 - StoichNum(325,34) = -1 - StoichNum(325,48) = 1 - StoichNum(325,50) = -1 - StoichNum(325,51) = 0.05 - StoichNum(325,55) = 1 - StoichNum(325,65) = 1 - StoichNum(325,73) = 0.98 - StoichNum(325,76) = 1 - StoichNum(325,77) = 1 - StoichNum(325,78) = 0.603 - StoichNum(325,80) = 1 - StoichNum(325,81) = 0.065 - StoichNum(325,84) = 1 - StoichNum(325,85) = 1 - StoichNum(325,92) = 0.64 - StoichNum(325,95) = 0.64 - StoichNum(325,96) = 1 - StoichNum(325,100) = 1 - StoichNum(325,112) = 0.75 - StoichNum(325,113) = 1.25 - StoichNum(325,118) = 0.15 - StoichNum(325,123) = 0.31 - StoichNum(325,129) = 0.75 - StoichNum(325,130) = 0.75 - StoichNum(325,132) = 0.75 - StoichNum(325,133) = 0.95 - StoichNum(325,134) = 0.75 - StoichNum(325,135) = 0.95 - StoichNum(325,136) = 0.5 - StoichNum(325,137) = 0.75 - StoichNum(325,138) = 0.75 - StoichNum(325,139) = 1.25 - StoichNum(325,150) = 0.5 - StoichNum(325,151) = 0.732 - StoichNum(325,157) = 1 - StoichNum(325,158) = 0.44 - StoichNum(325,159) = 1 - StoichNum(325,160) = 1 - StoichNum(325,161) = 1 - StoichNum(325,178) = 0.22 - StoichNum(325,181) = 1 - StoichNum(325,184) = 0.9 - StoichNum(325,187) = 0.351 - StoichNum(325,188) = 0.351 - StoichNum(325,189) = 0.9 - StoichNum(325,192) = 0.9 - StoichNum(325,195) = 1 - StoichNum(325,199) = 1 - StoichNum(325,201) = 1 - StoichNum(325,216) = -1 - StoichNum(325,231) = 0.25 - StoichNum(325,252) = -1 - StoichNum(325,274) = 1 - StoichNum(325,292) = -1 - StoichNum(325,319) = 1 - StoichNum(325,324) = 1 - StoichNum(325,360) = 1 - StoichNum(325,362) = 1 - StoichNum(325,363) = 1 - StoichNum(325,364) = 1 - StoichNum(325,365) = 0.06 - StoichNum(325,366) = 0.06 - StoichNum(325,367) = 1 - StoichNum(325,368) = 1 - StoichNum(325,381) = 0.1 - StoichNum(325,383) = 0.1 - StoichNum(325,388) = 0.5 + StoichNum(310,608) = -2 + StoichNum(310,609) = -1 + StoichNum(310,612) = -1 + StoichNum(310,614) = -1 + StoichNum(310,617) = -1 + StoichNum(310,618) = -1 + StoichNum(310,627) = 1 + StoichNum(311,113) = 0.16 + StoichNum(311,136) = 0.2 + StoichNum(311,167) = -1 + StoichNum(311,168) = -1 + StoichNum(311,176) = 0.791 + StoichNum(311,192) = 0.065 + StoichNum(311,488) = 1 + StoichNum(311,529) = 0.5 + StoichNum(311,540) = 0.284 + StoichNum(311,542) = 0.135 + StoichNum(311,548) = 1 + StoichNum(311,550) = 0.65 + StoichNum(311,563) = 0.8 + StoichNum(311,565) = 0.52 + StoichNum(311,566) = 0.52 + StoichNum(311,568) = 0.8 + StoichNum(311,569) = 1 + StoichNum(311,585) = 0.459 + StoichNum(311,586) = 0.728 + StoichNum(311,597) = 0.441 + StoichNum(311,598) = 0.858 + StoichNum(311,600) = 0.033 + StoichNum(311,601) = 0.071 + StoichNum(311,631) = 0.042 + StoichNum(311,633) = 0.051 + StoichNum(311,652) = 0.77 + StoichNum(311,666) = 0.84 + StoichNum(311,670) = 0.507 + StoichNum(311,672) = 0.488 + StoichNum(311,673) = 1 + StoichNum(311,674) = 0.86 + StoichNum(311,678) = 0.5 + StoichNum(311,679) = 1 + StoichNum(311,681) = 1 + StoichNum(311,682) = 0.7 + StoichNum(311,684) = 0.25 + StoichNum(311,923) = -1 + StoichNum(311,1000) = 1 + StoichNum(311,1018) = 0.77 + StoichNum(311,1021) = 1 + StoichNum(311,1039) = 0.5 + StoichNum(311,1041) = 0.586 + StoichNum(311,1042) = 0.25 + StoichNum(311,1043) = 0.571 + StoichNum(311,1045) = 0.45 + StoichNum(311,1046) = 0.8 + StoichNum(312,653) = 1 + StoichNum(312,678) = -1 + StoichNum(312,679) = -1 + StoichNum(312,680) = -1 + StoichNum(312,681) = -1 + StoichNum(312,682) = -1 + StoichNum(313,493) = 0.416 + StoichNum(313,500) = 0.063 + StoichNum(313,504) = 1 + StoichNum(313,507) = 2 + StoichNum(313,508) = 1 + StoichNum(313,514) = 1 + StoichNum(313,521) = 1 + StoichNum(313,525) = 0.035 + StoichNum(313,527) = 0.14 + StoichNum(313,536) = 0.165 + StoichNum(313,572) = 1 + StoichNum(313,573) = 1 + StoichNum(313,604) = 0.048 + StoichNum(313,606) = 0.123 + StoichNum(313,607) = 0.019 + StoichNum(313,610) = 0.028 + StoichNum(313,611) = 0.097 + StoichNum(313,613) = 0.097 + StoichNum(313,615) = 0.096 + StoichNum(313,646) = -1 + StoichNum(313,647) = -1 + StoichNum(313,648) = -1 + StoichNum(313,649) = -1 + StoichNum(313,922) = -1 + StoichNum(313,1024) = 1 + StoichNum(313,1030) = 1 + StoichNum(313,1033) = 1 + StoichNum(313,1035) = 0.097 + StoichNum(313,1039) = 0.005 + StoichNum(314,330) = 0.5 + StoichNum(314,494) = 1 + StoichNum(314,498) = -1 + StoichNum(314,499) = -1 + StoichNum(314,502) = -1 + StoichNum(314,503) = -1 + StoichNum(314,506) = -2 + StoichNum(314,508) = -1 + StoichNum(314,509) = -2 + StoichNum(314,511) = -1 + StoichNum(314,512) = -1 + StoichNum(314,513) = -1 + StoichNum(314,516) = -1 + StoichNum(314,517) = -1 + StoichNum(314,518) = -1 + StoichNum(314,519) = -1 + StoichNum(314,535) = 0.75 + StoichNum(314,537) = 0.03 + StoichNum(314,1037) = 0.841 + StoichNum(315,330) = 0.5 + StoichNum(315,495) = 1 + StoichNum(315,500) = -1 + StoichNum(315,501) = -1 + StoichNum(315,504) = -1 + StoichNum(315,505) = -1 + StoichNum(315,507) = -2 + StoichNum(315,508) = -1 + StoichNum(315,510) = -2 + StoichNum(315,511) = -1 + StoichNum(315,514) = -1 + StoichNum(315,515) = -1 + StoichNum(315,520) = -1 + StoichNum(315,521) = -1 + StoichNum(315,522) = -1 + StoichNum(315,523) = -1 + StoichNum(315,536) = 0.51 + StoichNum(315,538) = 0.03 + StoichNum(315,1037) = 0.159 + StoichNum(316,33) = 0.7 + StoichNum(316,96) = -1 + StoichNum(316,111) = 1 + StoichNum(316,118) = -1 + StoichNum(316,136) = -1 + StoichNum(316,184) = -1 + StoichNum(316,218) = 1 + StoichNum(316,329) = 1 + StoichNum(317,150) = 0.22 + StoichNum(317,362) = -1 + StoichNum(317,363) = -1 + StoichNum(317,364) = -1 + StoichNum(317,365) = -1 + StoichNum(317,366) = -1 + StoichNum(317,367) = -1 + StoichNum(317,368) = -1 + StoichNum(317,383) = 0.1 + StoichNum(317,421) = 0.33 + StoichNum(317,493) = 0.58 + StoichNum(317,645) = 0.5 + StoichNum(317,648) = 0.88 + StoichNum(317,704) = 0.5 + StoichNum(317,712) = 1 + StoichNum(318,381) = 0.15 + StoichNum(318,445) = 0.45 + StoichNum(318,446) = 0.45 + StoichNum(318,447) = 0.3 + StoichNum(318,448) = 0.3 + StoichNum(318,449) = 0.15 + StoichNum(318,453) = 0.5 + StoichNum(318,454) = 0.5 + StoichNum(318,455) = 0.25 + StoichNum(318,462) = 0.45 + StoichNum(318,463) = 0.45 + StoichNum(318,493) = 0.177 + StoichNum(318,498) = 0.063 + StoichNum(318,502) = 1 + StoichNum(318,506) = 2 + StoichNum(318,508) = 1 + StoichNum(318,512) = 1 + StoichNum(318,517) = 1 + StoichNum(318,524) = 0.035 + StoichNum(318,526) = 0.23 + StoichNum(318,535) = 0.125 + StoichNum(318,570) = 1 + StoichNum(318,571) = 1 + StoichNum(318,604) = 0.479 + StoichNum(318,606) = 1.737 + StoichNum(318,607) = 0.544 + StoichNum(318,610) = 0.583 + StoichNum(318,611) = 0.903 + StoichNum(318,613) = 0.903 + StoichNum(318,615) = 0.904 + StoichNum(318,644) = -1 + StoichNum(318,645) = -1 + StoichNum(318,725) = 0.04 + StoichNum(318,726) = 0.04 + StoichNum(318,919) = -1 + StoichNum(318,920) = -1 + StoichNum(318,921) = -1 + StoichNum(318,1023) = 1 + StoichNum(318,1029) = 1 + StoichNum(318,1032) = 1 + StoichNum(318,1035) = 0.903 + StoichNum(318,1039) = 0.05 + StoichNum(318,1064) = 0.45 + StoichNum(319,60) = -1 + StoichNum(319,90) = 0.34 + StoichNum(319,93) = 0.34 + StoichNum(319,109) = 0.49 + StoichNum(319,130) = -1 + StoichNum(319,132) = 0.16 + StoichNum(319,134) = 0.16 + StoichNum(319,143) = -2 + StoichNum(319,145) = -1 + StoichNum(319,148) = 0.22 + StoichNum(319,170) = 0.36 + StoichNum(319,182) = 0.29 + StoichNum(319,183) = 0.29 + StoichNum(319,191) = -1 + StoichNum(319,194) = 0.49 + StoichNum(319,195) = 0.49 + StoichNum(319,323) = -1 + StoichNum(319,910) = 0.49 + StoichNum(319,913) = 0.415 + StoichNum(319,933) = 0.34 + StoichNum(319,936) = 0.34 + StoichNum(320,204) = 1 + StoichNum(320,211) = 1 + StoichNum(320,212) = -1 + StoichNum(320,793) = 1 + StoichNum(320,813) = -1 + StoichNum(320,814) = -1 + StoichNum(320,815) = -1 + StoichNum(320,816) = -1 + StoichNum(320,817) = -1 + StoichNum(320,818) = -1 + StoichNum(320,819) = -1 + StoichNum(320,820) = 1 + StoichNum(320,821) = 1 + StoichNum(320,822) = 1 + StoichNum(320,940) = -1 + StoichNum(321,282) = -1 + StoichNum(321,301) = 1 + StoichNum(321,313) = -1 + StoichNum(321,314) = -1 + StoichNum(321,795) = -1 + StoichNum(321,796) = -1 + StoichNum(321,797) = -1 + StoichNum(321,798) = -1 + StoichNum(321,799) = -1 + StoichNum(321,800) = -1 + StoichNum(321,801) = -1 + StoichNum(321,955) = -1 + StoichNum(321,956) = -1 + StoichNum(322,95) = -1 + StoichNum(322,102) = 1 + StoichNum(322,115) = -1 + StoichNum(322,133) = -1 + StoichNum(322,187) = -1 + StoichNum(322,763) = 0.5 + StoichNum(322,764) = 0.5 + StoichNum(323,68) = 0.25 + StoichNum(323,89) = 1 + StoichNum(323,93) = -1 + StoichNum(323,94) = -1 + StoichNum(323,114) = -1 + StoichNum(323,132) = -1 + StoichNum(323,133) = 0.15 + StoichNum(323,135) = 0.15 + StoichNum(323,173) = 0.21 + StoichNum(323,182) = -1 + StoichNum(323,187) = 0.27 + StoichNum(323,188) = 0.27 + StoichNum(323,412) = 0.6 + StoichNum(323,413) = 0.4 + StoichNum(323,414) = 0.6 + StoichNum(323,416) = 0.3 + StoichNum(323,436) = 0.352 + StoichNum(323,437) = 0.8 + StoichNum(323,440) = 0.8 + StoichNum(323,442) = 0.8 + StoichNum(323,466) = 0.6 + StoichNum(323,467) = 0.8 + StoichNum(323,1061) = 0.6 + StoichNum(323,1062) = 0.8 + StoichNum(323,1063) = 0.8 + StoichNum(324,97) = -1 + StoichNum(324,119) = -1 + StoichNum(324,122) = 1 + StoichNum(324,123) = -1 + StoichNum(324,131) = 1 + StoichNum(324,137) = -1 + StoichNum(324,185) = -1 + StoichNum(324,381) = 0.3 + StoichNum(325,105) = 1 + StoichNum(325,106) = -1 + StoichNum(325,107) = 1 + StoichNum(325,109) = -1 + StoichNum(325,110) = 1 + StoichNum(325,148) = -1 + StoichNum(325,175) = 1 + StoichNum(325,194) = -1 + StoichNum(325,195) = -1 StoichNum(325,399) = 0.84 StoichNum(325,400) = 1 - StoichNum(325,401) = 1.5 + StoichNum(325,401) = 0.75 StoichNum(325,402) = 0.5 StoichNum(325,403) = 0.4 - StoichNum(325,405) = 0.75 - StoichNum(325,406) = 1 - StoichNum(325,407) = 1 - StoichNum(325,413) = 0.75 - StoichNum(325,421) = 0.67 - StoichNum(325,427) = 1 - StoichNum(325,432) = 0.75 - StoichNum(325,436) = 0.176 - StoichNum(325,437) = 0.4 - StoichNum(325,440) = 0.4 - StoichNum(325,442) = 0.4 - StoichNum(325,445) = 0.1 - StoichNum(325,446) = 0.1 - StoichNum(325,447) = 0.1 - StoichNum(325,448) = 0.1 - StoichNum(325,449) = 0.05 - StoichNum(325,453) = 1.5 - StoichNum(325,454) = 1.5 - StoichNum(325,455) = 0.75 - StoichNum(325,456) = 0.75 - StoichNum(325,458) = 1.75 - StoichNum(325,459) = 1 - StoichNum(325,460) = 0.75 - StoichNum(325,462) = 0.85 - StoichNum(325,463) = 0.1 - StoichNum(325,464) = 1 - StoichNum(325,466) = 1.3 - StoichNum(325,467) = 0.4 - StoichNum(325,469) = 0.287 - StoichNum(325,472) = 1 - StoichNum(325,473) = 0.85 - StoichNum(325,475) = 0.287 - StoichNum(325,477) = 0.287 - StoichNum(325,479) = 0.202 - StoichNum(325,480) = 0.504 - StoichNum(325,489) = 1 - StoichNum(325,493) = 0.827 - StoichNum(325,496) = 0.3 - StoichNum(325,497) = 0.3 - StoichNum(325,498) = 0.063 - StoichNum(325,500) = 0.063 - StoichNum(325,502) = 1 - StoichNum(325,503) = 0.3 - StoichNum(325,504) = 1 - StoichNum(325,505) = 0.3 - StoichNum(325,506) = 2 - StoichNum(325,507) = 2 - StoichNum(325,508) = 2 - StoichNum(325,512) = 2 - StoichNum(325,513) = 1 - StoichNum(325,514) = 2 - StoichNum(325,515) = 1 - StoichNum(325,517) = 1 - StoichNum(325,521) = 1 - StoichNum(325,524) = 0.085 - StoichNum(325,525) = 0.165 - StoichNum(325,529) = 0.5 - StoichNum(325,537) = 0.018 - StoichNum(325,538) = 0.018 - StoichNum(325,540) = 0.716 - StoichNum(325,542) = 0.14 - StoichNum(325,544) = 0.706 - StoichNum(325,546) = 0.14 - StoichNum(325,566) = 0.65 - StoichNum(325,568) = 1 - StoichNum(325,585) = 0.059 - StoichNum(325,586) = 0.272 - StoichNum(325,589) = 0.599 - StoichNum(325,590) = 1 - StoichNum(325,594) = 0.031 - StoichNum(325,595) = 0.065 - StoichNum(325,597) = 0.065 - StoichNum(325,598) = 0.142 - StoichNum(325,600) = 0.104 - StoichNum(325,601) = 0.383 - StoichNum(325,604) = 0.527 - StoichNum(325,606) = 1.86 - StoichNum(325,607) = 0.563 - StoichNum(325,609) = 0.645 - StoichNum(325,610) = 1.577 - StoichNum(325,611) = 1 - StoichNum(325,613) = 1 - StoichNum(325,615) = 1 - StoichNum(325,631) = 0.126 - StoichNum(325,632) = 0.088 - StoichNum(325,633) = 0.249 - StoichNum(325,635) = 0.34 - StoichNum(325,645) = 0.6 - StoichNum(325,648) = 0.12 - StoichNum(325,650) = 0.241 - StoichNum(325,667) = 0.05 - StoichNum(325,668) = 0.242 - StoichNum(325,670) = 0.083 - StoichNum(325,671) = 0.5 - StoichNum(325,672) = 0.25 - StoichNum(325,674) = 0.14 - StoichNum(325,676) = 1 - StoichNum(325,682) = 1 - StoichNum(325,691) = 0.022 - StoichNum(325,694) = 0.5 - StoichNum(325,696) = 1 - StoichNum(325,702) = 1 - StoichNum(325,703) = 1 - StoichNum(325,704) = 0.5 - StoichNum(325,705) = 0.25 - StoichNum(325,706) = 1 - StoichNum(325,707) = 0.12 - StoichNum(325,712) = 1 - StoichNum(325,718) = 0.8 - StoichNum(325,719) = 2 - StoichNum(325,730) = 1 - StoichNum(325,740) = 1 - StoichNum(325,765) = 1 - StoichNum(325,766) = 1 - StoichNum(325,779) = 1 - StoichNum(325,887) = 1 - StoichNum(325,888) = -1 - StoichNum(325,889) = -1 - StoichNum(325,901) = 0.3 - StoichNum(325,902) = 1 - StoichNum(325,907) = 0.9 - StoichNum(325,910) = 1 - StoichNum(325,913) = 1 - StoichNum(325,915) = 1 - StoichNum(325,916) = 1 - StoichNum(325,924) = 1 - StoichNum(325,982) = 1 - StoichNum(325,984) = 1 - StoichNum(325,990) = 1 - StoichNum(325,998) = 1 - StoichNum(325,1002) = 1 - StoichNum(325,1003) = 1 - StoichNum(325,1005) = 1 - StoichNum(325,1006) = 1 - StoichNum(325,1008) = 0.47 - StoichNum(325,1011) = 0.23 - StoichNum(325,1012) = 0.75 - StoichNum(325,1016) = 1 - StoichNum(325,1017) = 1 - StoichNum(325,1025) = 1 - StoichNum(325,1026) = 1 - StoichNum(325,1028) = 1 - StoichNum(325,1032) = 0.055 - StoichNum(325,1034) = 0.133 - StoichNum(325,1038) = 0.55 - StoichNum(325,1039) = 0.15 - StoichNum(325,1052) = 1 - StoichNum(325,1053) = 1 - StoichNum(325,1055) = 0.4 - StoichNum(325,1056) = 0.4 - StoichNum(325,1057) = 0.1 - StoichNum(326,51) = -1 - StoichNum(326,52) = -1 - StoichNum(326,58) = 1 - StoichNum(326,60) = 1 - StoichNum(326,65) = 1 - StoichNum(326,73) = 0.65 - StoichNum(326,90) = 0.34 - StoichNum(326,92) = 0.97 - StoichNum(326,93) = 0.34 - StoichNum(326,95) = 0.97 - StoichNum(326,97) = 0.919 - StoichNum(326,100) = 1 - StoichNum(326,108) = 1 - StoichNum(326,113) = 0.5 - StoichNum(326,119) = 0.15 - StoichNum(326,123) = 0.62 - StoichNum(326,129) = 0.75 - StoichNum(326,130) = 0.75 - StoichNum(326,132) = 0.16 - StoichNum(326,133) = 0.38 - StoichNum(326,134) = 0.16 - StoichNum(326,135) = 0.38 - StoichNum(326,137) = 0.5 - StoichNum(326,139) = 0.5 - StoichNum(326,140) = 1 - StoichNum(326,142) = 1.6 - StoichNum(326,143) = 1.6 - StoichNum(326,150) = 0.5 - StoichNum(326,170) = 0.64 - StoichNum(326,182) = 0.29 - StoichNum(326,183) = 0.29 - StoichNum(326,185) = 0.9 - StoichNum(326,187) = 0.675 - StoichNum(326,188) = 0.675 - StoichNum(326,189) = 0.9 - StoichNum(326,190) = 1 - StoichNum(326,191) = 1 - StoichNum(326,192) = 0.9 - StoichNum(326,217) = -1 - StoichNum(326,322) = 1 - StoichNum(326,323) = 1 - StoichNum(326,325) = 1 - StoichNum(326,369) = 1 - StoichNum(326,370) = 1 - StoichNum(326,371) = 1 - StoichNum(326,372) = 1 - StoichNum(326,373) = 1 - StoichNum(326,490) = 1 - StoichNum(326,705) = 0.4 - StoichNum(326,897) = -1 - StoichNum(326,898) = -1 - StoichNum(326,918) = 1 - StoichNum(326,924) = 1 - StoichNum(326,925) = 1 - StoichNum(326,926) = 0.34 - StoichNum(326,927) = 0.348 - StoichNum(326,929) = 0.34 - StoichNum(326,999) = 1 - StoichNum(327,3) = -1 - StoichNum(327,6) = -1 - StoichNum(327,35) = 1 - StoichNum(327,36) = -1 - StoichNum(327,50) = 1 - StoichNum(327,52) = 1 - StoichNum(327,67) = 1 - StoichNum(327,101) = 1 - StoichNum(327,110) = 1 - StoichNum(327,131) = 1 - StoichNum(327,154) = 1 - StoichNum(327,165) = 1 - StoichNum(327,166) = 1 - StoichNum(327,179) = 1 - StoichNum(327,201) = 1 - StoichNum(327,389) = 1 - StoichNum(327,486) = 1 - StoichNum(327,487) = 1 - StoichNum(327,649) = 0.32 - StoichNum(327,692) = 1 - StoichNum(327,706) = 1 - StoichNum(327,708) = 1 - StoichNum(327,742) = 0.742 - StoichNum(327,744) = 0.5 - StoichNum(327,747) = 0.5 - StoichNum(327,749) = 1 - StoichNum(327,764) = 0.5 - StoichNum(327,782) = 0.5 - StoichNum(327,783) = 1 - StoichNum(327,786) = 2 - StoichNum(327,787) = 1 - StoichNum(327,788) = 2 - StoichNum(327,789) = 1 - StoichNum(327,790) = 1 - StoichNum(327,793) = 1 - StoichNum(327,794) = 1 - StoichNum(327,795) = 1 - StoichNum(327,796) = 1 - StoichNum(327,797) = 1 - StoichNum(327,798) = 1 - StoichNum(327,799) = 1 - StoichNum(327,800) = 1 - StoichNum(327,801) = 1 - StoichNum(327,841) = 1 - StoichNum(327,842) = 1 - StoichNum(327,843) = 1 - StoichNum(327,848) = 1 - StoichNum(327,849) = 1 - StoichNum(327,850) = 1 - StoichNum(327,851) = 1 - StoichNum(327,890) = -1 - StoichNum(328,17) = -1 - StoichNum(328,25) = 1 - StoichNum(328,26) = -1 - StoichNum(328,27) = -1 - StoichNum(328,28) = -1 - StoichNum(328,29) = -2 - StoichNum(328,30) = -2 - StoichNum(328,31) = -1 - StoichNum(328,32) = 0.7 - StoichNum(328,56) = 1 - StoichNum(328,90) = 0.19 - StoichNum(328,93) = 0.19 - StoichNum(328,104) = 1 - StoichNum(328,112) = -1 - StoichNum(328,113) = -1 - StoichNum(328,119) = 0.85 - StoichNum(328,129) = -1 - StoichNum(328,130) = -1 - StoichNum(328,132) = -0.91 - StoichNum(328,133) = -1 - StoichNum(328,134) = -0.91 - StoichNum(328,135) = -1 - StoichNum(328,136) = -1 - StoichNum(328,137) = -0.75 - StoichNum(328,138) = -1 - StoichNum(328,139) = -1 - StoichNum(328,150) = 0.28 - StoichNum(328,168) = 0.5 - StoichNum(328,180) = 2 - StoichNum(328,181) = -0.1 - StoichNum(328,182) = 0.9 - StoichNum(328,183) = 0.9 - StoichNum(328,184) = 0.9 - StoichNum(328,185) = 0.9 - StoichNum(328,186) = 0.9 - StoichNum(328,187) = 0.9 - StoichNum(328,188) = 0.9 - StoichNum(328,189) = 0.9 - StoichNum(328,190) = 0.9 - StoichNum(328,191) = 0.9 - StoichNum(328,192) = 0.9 - StoichNum(328,193) = 0.9 - StoichNum(328,194) = 1 - StoichNum(328,195) = -1 - StoichNum(328,197) = -1 - StoichNum(328,198) = 1 - StoichNum(328,199) = 1 - StoichNum(328,200) = 1 - StoichNum(328,201) = 1 - StoichNum(328,231) = 0.75 - StoichNum(328,257) = 0.9 - StoichNum(328,258) = 1 - StoichNum(328,274) = -1 - StoichNum(328,291) = 1 - StoichNum(328,319) = -1 - StoichNum(328,320) = 1 - StoichNum(328,326) = 1 - StoichNum(328,359) = 1 - StoichNum(328,401) = -1 - StoichNum(328,413) = -1 - StoichNum(328,432) = -1 - StoichNum(328,456) = -1 - StoichNum(328,457) = 0.9 - StoichNum(328,458) = -1 - StoichNum(328,459) = 0.9 - StoichNum(328,460) = -1 - StoichNum(328,461) = 0.9 - StoichNum(328,462) = -1 - StoichNum(328,463) = 0.9 - StoichNum(328,464) = -1 - StoichNum(328,465) = 1 - StoichNum(328,466) = -1 - StoichNum(328,467) = 1 - StoichNum(328,472) = -1 - StoichNum(328,473) = -1 - StoichNum(328,474) = 1 - StoichNum(328,475) = 0.5 - StoichNum(328,493) = 0.407 - StoichNum(328,512) = -1 - StoichNum(328,513) = -1 - StoichNum(328,514) = -1 - StoichNum(328,515) = -1 - StoichNum(328,609) = -1 - StoichNum(328,610) = -1 - StoichNum(328,611) = 1 - StoichNum(328,612) = 1 - StoichNum(328,671) = 0.325 - StoichNum(328,672) = 0.162 - StoichNum(328,676) = 0.65 - StoichNum(328,682) = -1 - StoichNum(328,695) = 0.5 - StoichNum(328,718) = -1 - StoichNum(328,730) = -1 - StoichNum(328,731) = 1 - StoichNum(328,765) = -1 - StoichNum(328,766) = -1 - StoichNum(328,779) = -1 - StoichNum(328,897) = 0.88 - StoichNum(328,899) = 0.3 - StoichNum(328,904) = 1 - StoichNum(328,905) = 2 - StoichNum(328,906) = 0.15 - StoichNum(328,914) = 1 - StoichNum(328,925) = 1 - StoichNum(328,926) = 0.19 - StoichNum(328,929) = 0.19 - StoichNum(328,930) = 1 - StoichNum(328,939) = 1 - StoichNum(328,940) = 1 - StoichNum(328,983) = 1 - StoichNum(328,1012) = 0.488 - StoichNum(329,24) = -1 - StoichNum(329,34) = 1 - StoichNum(329,50) = 1 + StoichNum(325,736) = 1 + StoichNum(325,737) = 0.44 + StoichNum(325,767) = 0.33 + StoichNum(325,770) = 0.33 + StoichNum(325,913) = 0.15 + StoichNum(325,921) = 1 + StoichNum(325,934) = 0.326 + StoichNum(325,1054) = 0.7 + StoichNum(325,1059) = 1 + StoichNum(326,62) = 1 + StoichNum(326,63) = -1 + StoichNum(326,64) = -1 + StoichNum(326,90) = 0.05 + StoichNum(326,93) = 0.05 + StoichNum(326,109) = 0.07 + StoichNum(326,112) = -1 + StoichNum(326,132) = 0.03 + StoichNum(326,134) = 0.03 + StoichNum(326,146) = -1 + StoichNum(326,148) = 0.03 + StoichNum(326,171) = 0.36 + StoichNum(326,182) = 0.045 + StoichNum(326,183) = 0.045 + StoichNum(326,193) = -1 + StoichNum(326,194) = 0.07 + StoichNum(326,195) = 0.07 + StoichNum(326,220) = 1 + StoichNum(326,328) = 1 + StoichNum(326,910) = 0.07 + StoichNum(326,913) = 0.06 + StoichNum(326,933) = 0.05 + StoichNum(326,936) = 0.05 + StoichNum(327,61) = 1 + StoichNum(327,90) = 0.19 + StoichNum(327,93) = 0.19 + StoichNum(327,98) = -1 + StoichNum(327,99) = -1 + StoichNum(327,109) = 0.27 + StoichNum(327,120) = -1 + StoichNum(327,132) = 0.09 + StoichNum(327,134) = 0.09 + StoichNum(327,138) = -1 + StoichNum(327,148) = 0.12 + StoichNum(327,172) = 0.209 + StoichNum(327,182) = 0.162 + StoichNum(327,183) = 0.162 + StoichNum(327,186) = -1 + StoichNum(327,194) = 0.27 + StoichNum(327,195) = 0.27 + StoichNum(327,327) = 1 + StoichNum(327,910) = 0.27 + StoichNum(327,913) = 0.23 + StoichNum(327,933) = 0.19 + StoichNum(327,936) = 0.19 + StoichNum(328,51) = 0.95 + StoichNum(328,52) = 1 + StoichNum(328,53) = -1 + StoichNum(328,54) = 1 + StoichNum(328,56) = -1 + StoichNum(328,96) = 1 + StoichNum(328,97) = 0.919 + StoichNum(328,118) = 0.15 + StoichNum(328,119) = 0.15 + StoichNum(328,123) = 0.62 + StoichNum(328,136) = 0.3 + StoichNum(328,137) = 0.5 + StoichNum(328,164) = 1 + StoichNum(328,166) = 1 + StoichNum(328,178) = 0.78 + StoichNum(328,180) = -2 + StoichNum(328,181) = -1 + StoichNum(328,182) = -1 + StoichNum(328,183) = -1 + StoichNum(328,184) = -0.1 + StoichNum(328,185) = -0.1 + StoichNum(328,186) = -1 + StoichNum(328,187) = -1 + StoichNum(328,188) = -1 + StoichNum(328,189) = -1 + StoichNum(328,190) = -1 + StoichNum(328,191) = -1 + StoichNum(328,192) = -1 + StoichNum(328,193) = -1 + StoichNum(328,194) = -1 + StoichNum(328,217) = 1 + StoichNum(328,436) = 0.44 + StoichNum(328,437) = 1 + StoichNum(328,440) = 1 + StoichNum(328,442) = 1 + StoichNum(328,457) = -1 + StoichNum(328,459) = -1 + StoichNum(328,461) = -1 + StoichNum(328,463) = -1 + StoichNum(328,465) = -1 + StoichNum(328,466) = 0.75 + StoichNum(328,474) = -1 + StoichNum(328,475) = -1 + StoichNum(328,496) = 0.3 + StoichNum(328,503) = 0.3 + StoichNum(328,537) = 0.018 + StoichNum(328,611) = -1 + StoichNum(328,612) = -1 + StoichNum(328,645) = 0.38 + StoichNum(328,648) = 0.12 + StoichNum(328,650) = 0.04 + StoichNum(328,661) = 0.097 + StoichNum(328,665) = 1 + StoichNum(328,667) = 0.36 + StoichNum(328,668) = 0.758 + StoichNum(328,671) = 0.175 + StoichNum(328,672) = 0.087 + StoichNum(328,676) = 0.35 + StoichNum(328,685) = 0.3 + StoichNum(328,692) = 1 + StoichNum(328,693) = 1 + StoichNum(328,695) = -1 + StoichNum(328,731) = -1 + StoichNum(328,740) = 1 + StoichNum(328,904) = 0.12 + StoichNum(328,906) = 0.7 + StoichNum(328,909) = 1 + StoichNum(328,911) = 1 + StoichNum(328,913) = 0.85 + StoichNum(328,918) = 1 + StoichNum(328,920) = 1 + StoichNum(328,922) = 1 + StoichNum(328,923) = 1 + StoichNum(328,934) = 0.326 + StoichNum(328,991) = 1 + StoichNum(328,1011) = 1 + StoichNum(328,1012) = 1 + StoichNum(328,1013) = 1 + StoichNum(328,1014) = 0.5 + StoichNum(328,1015) = 0.53 + StoichNum(328,1016) = 0.429 + StoichNum(328,1017) = 0.125 + StoichNum(328,1019) = 0.262 + StoichNum(328,1020) = 1.01 + StoichNum(328,1062) = 1 + StoichNum(328,1063) = 1 + StoichNum(329,10) = -1 + StoichNum(329,11) = 1 + StoichNum(329,12) = 1 + StoichNum(329,17) = 1 + StoichNum(329,26) = 1 + StoichNum(329,29) = 1 + StoichNum(329,30) = 2 + StoichNum(329,31) = 0.87 + StoichNum(329,32) = 0.3 + StoichNum(329,34) = -1 + StoichNum(329,48) = 1 + StoichNum(329,50) = -1 StoichNum(329,51) = 0.05 StoichNum(329,55) = 1 + StoichNum(329,65) = 1 + StoichNum(329,73) = 0.98 + StoichNum(329,76) = 1 + StoichNum(329,77) = 1 + StoichNum(329,78) = 0.603 StoichNum(329,80) = 1 - StoichNum(329,82) = 1 - StoichNum(329,83) = 1 + StoichNum(329,81) = 0.065 StoichNum(329,84) = 1 StoichNum(329,85) = 1 - StoichNum(329,88) = 1 - StoichNum(329,108) = 1 - StoichNum(329,126) = 1 - StoichNum(329,150) = 0.56 - StoichNum(329,151) = 0.505 - StoichNum(329,152) = 1 + StoichNum(329,92) = 0.64 + StoichNum(329,95) = 0.64 + StoichNum(329,96) = 1 + StoichNum(329,100) = 1 + StoichNum(329,112) = 0.75 + StoichNum(329,113) = 1.25 + StoichNum(329,118) = 0.15 + StoichNum(329,123) = 0.31 + StoichNum(329,129) = 0.75 + StoichNum(329,130) = 0.75 + StoichNum(329,132) = 0.75 + StoichNum(329,133) = 0.95 + StoichNum(329,134) = 0.75 + StoichNum(329,135) = 0.95 + StoichNum(329,136) = 0.5 + StoichNum(329,137) = 0.75 + StoichNum(329,138) = 0.75 + StoichNum(329,139) = 1.25 + StoichNum(329,150) = 0.5 + StoichNum(329,151) = 0.732 + StoichNum(329,157) = 1 + StoichNum(329,158) = 0.44 + StoichNum(329,159) = 1 StoichNum(329,160) = 1 - StoichNum(329,163) = 2 - StoichNum(329,164) = 1 - StoichNum(329,165) = 2 - StoichNum(329,166) = 1 - StoichNum(329,168) = 0.5 - StoichNum(329,216) = 1 - StoichNum(329,238) = 1 - StoichNum(329,252) = 1 - StoichNum(329,292) = 1 - StoichNum(329,315) = 1 - StoichNum(329,316) = 1 - StoichNum(329,317) = 1 - StoichNum(329,362) = -1 - StoichNum(329,369) = -1 - StoichNum(329,379) = 0.15 + StoichNum(329,161) = 1 + StoichNum(329,178) = 0.22 + StoichNum(329,181) = 1 + StoichNum(329,184) = 0.9 + StoichNum(329,187) = 0.351 + StoichNum(329,188) = 0.351 + StoichNum(329,189) = 0.9 + StoichNum(329,192) = 0.9 + StoichNum(329,195) = 1 + StoichNum(329,199) = 1 + StoichNum(329,201) = 1 + StoichNum(329,216) = -1 + StoichNum(329,231) = 0.25 + StoichNum(329,252) = -1 + StoichNum(329,274) = 1 + StoichNum(329,292) = -1 + StoichNum(329,319) = 1 + StoichNum(329,324) = 1 + StoichNum(329,360) = 1 + StoichNum(329,362) = 1 + StoichNum(329,363) = 1 + StoichNum(329,364) = 1 + StoichNum(329,365) = 0.06 + StoichNum(329,366) = 0.06 + StoichNum(329,367) = 1 + StoichNum(329,368) = 1 + StoichNum(329,381) = 0.1 StoichNum(329,383) = 0.1 - StoichNum(329,493) = 0.407 - StoichNum(329,496) = 0.6 - StoichNum(329,497) = 0.9 - StoichNum(329,503) = 0.6 - StoichNum(329,505) = 0.9 - StoichNum(329,509) = 1 - StoichNum(329,510) = 1 - StoichNum(329,511) = 1 - StoichNum(329,513) = 0.5 - StoichNum(329,515) = 0.5 - StoichNum(329,519) = 0.55 - StoichNum(329,523) = 0.55 - StoichNum(329,524) = 0.45 - StoichNum(329,525) = 0.37 - StoichNum(329,526) = 0.42 - StoichNum(329,527) = 0.23 - StoichNum(329,528) = 0.638 - StoichNum(329,529) = 1.5 - StoichNum(329,530) = 1 - StoichNum(329,535) = 0.25 - StoichNum(329,536) = 0.33 - StoichNum(329,537) = 0.036 - StoichNum(329,538) = 0.054 - StoichNum(329,557) = 1 - StoichNum(329,558) = 0.13 - StoichNum(329,559) = 0.2 - StoichNum(329,562) = 1 - StoichNum(329,563) = 0.2 - StoichNum(329,565) = 0.13 - StoichNum(329,566) = 0.52 - StoichNum(329,568) = 0.8 - StoichNum(329,569) = 2 - StoichNum(329,582) = 0.6 - StoichNum(329,583) = 0.6 - StoichNum(329,638) = 0.539 - StoichNum(329,639) = 0.33 - StoichNum(329,640) = 0.33 - StoichNum(329,645) = 0.28 - StoichNum(329,646) = 0.036 + StoichNum(329,388) = 0.5 + StoichNum(329,399) = 0.84 + StoichNum(329,400) = 1 + StoichNum(329,401) = 1.5 + StoichNum(329,402) = 0.5 + StoichNum(329,403) = 0.4 + StoichNum(329,405) = 0.75 + StoichNum(329,406) = 1 + StoichNum(329,407) = 1 + StoichNum(329,413) = 0.75 + StoichNum(329,421) = 0.67 + StoichNum(329,427) = 1 + StoichNum(329,432) = 0.75 + StoichNum(329,436) = 0.176 + StoichNum(329,437) = 0.4 + StoichNum(329,440) = 0.4 + StoichNum(329,442) = 0.4 + StoichNum(329,445) = 0.1 + StoichNum(329,446) = 0.1 + StoichNum(329,447) = 0.1 + StoichNum(329,448) = 0.1 + StoichNum(329,449) = 0.05 + StoichNum(329,453) = 1.5 + StoichNum(329,454) = 1.5 + StoichNum(329,455) = 0.75 + StoichNum(329,456) = 0.75 + StoichNum(329,458) = 1.75 + StoichNum(329,459) = 1 + StoichNum(329,460) = 0.75 + StoichNum(329,462) = 0.85 + StoichNum(329,463) = 0.1 + StoichNum(329,464) = 1 + StoichNum(329,466) = 1.3 + StoichNum(329,467) = 0.4 + StoichNum(329,469) = 0.287 + StoichNum(329,472) = 1 + StoichNum(329,473) = 0.85 + StoichNum(329,475) = 0.287 + StoichNum(329,477) = 0.287 + StoichNum(329,479) = 0.202 + StoichNum(329,480) = 0.504 + StoichNum(329,489) = 1 + StoichNum(329,493) = 0.827 + StoichNum(329,496) = 0.3 + StoichNum(329,497) = 0.3 + StoichNum(329,498) = 0.063 + StoichNum(329,500) = 0.063 + StoichNum(329,502) = 1 + StoichNum(329,503) = 0.3 + StoichNum(329,504) = 1 + StoichNum(329,505) = 0.3 + StoichNum(329,506) = 2 + StoichNum(329,507) = 2 + StoichNum(329,508) = 2 + StoichNum(329,512) = 2 + StoichNum(329,513) = 1 + StoichNum(329,514) = 2 + StoichNum(329,515) = 1 + StoichNum(329,517) = 1 + StoichNum(329,521) = 1 + StoichNum(329,524) = 0.085 + StoichNum(329,525) = 0.165 + StoichNum(329,529) = 0.5 + StoichNum(329,537) = 0.018 + StoichNum(329,538) = 0.018 + StoichNum(329,540) = 0.716 + StoichNum(329,542) = 0.14 + StoichNum(329,544) = 0.706 + StoichNum(329,546) = 0.14 + StoichNum(329,566) = 0.65 + StoichNum(329,568) = 1 + StoichNum(329,585) = 0.059 + StoichNum(329,586) = 0.272 + StoichNum(329,589) = 0.599 + StoichNum(329,590) = 1 + StoichNum(329,594) = 0.031 + StoichNum(329,595) = 0.065 + StoichNum(329,597) = 0.065 + StoichNum(329,598) = 0.142 + StoichNum(329,600) = 0.104 + StoichNum(329,601) = 0.383 + StoichNum(329,604) = 0.527 + StoichNum(329,606) = 1.86 + StoichNum(329,607) = 0.563 + StoichNum(329,609) = 0.645 + StoichNum(329,610) = 1.577 + StoichNum(329,611) = 1 + StoichNum(329,613) = 1 + StoichNum(329,615) = 1 + StoichNum(329,631) = 0.126 + StoichNum(329,632) = 0.088 + StoichNum(329,633) = 0.249 + StoichNum(329,635) = 0.34 + StoichNum(329,645) = 0.6 StoichNum(329,648) = 0.12 - StoichNum(329,649) = 0.68 - StoichNum(329,652) = 0.77 - StoichNum(329,654) = 0.25 - StoichNum(329,661) = 0.75 - StoichNum(329,662) = 1 - StoichNum(329,664) = 1 - StoichNum(329,665) = 2 - StoichNum(329,666) = 0.84 - StoichNum(329,670) = 0.507 - StoichNum(329,671) = 0.325 - StoichNum(329,672) = 0.488 - StoichNum(329,673) = 1 - StoichNum(329,674) = 0.86 - StoichNum(329,676) = 0.65 - StoichNum(329,684) = 0.25 - StoichNum(329,685) = 1 - StoichNum(329,686) = 1 - StoichNum(329,687) = 0.888 - StoichNum(329,690) = 1 + StoichNum(329,650) = 0.241 + StoichNum(329,667) = 0.05 + StoichNum(329,668) = 0.242 + StoichNum(329,670) = 0.083 + StoichNum(329,671) = 0.5 + StoichNum(329,672) = 0.25 + StoichNum(329,674) = 0.14 + StoichNum(329,676) = 1 + StoichNum(329,682) = 1 + StoichNum(329,691) = 0.022 + StoichNum(329,694) = 0.5 StoichNum(329,696) = 1 - StoichNum(329,704) = 0.18 + StoichNum(329,702) = 1 + StoichNum(329,703) = 1 + StoichNum(329,704) = 0.5 + StoichNum(329,705) = 0.25 + StoichNum(329,706) = 1 StoichNum(329,707) = 0.12 - StoichNum(329,714) = 0.364 - StoichNum(329,724) = 0.2 - StoichNum(329,725) = 0.27 - StoichNum(329,726) = 0.3 - StoichNum(329,740) = 2 - StoichNum(329,763) = 0.15 - StoichNum(329,764) = 0.15 - StoichNum(329,767) = 0.26 - StoichNum(329,768) = 0.5 - StoichNum(329,770) = 0.25 - StoichNum(329,771) = 0.5 - StoichNum(329,772) = 0.05 + StoichNum(329,712) = 1 + StoichNum(329,718) = 0.8 + StoichNum(329,719) = 2 + StoichNum(329,730) = 1 + StoichNum(329,740) = 1 + StoichNum(329,765) = 1 + StoichNum(329,766) = 1 + StoichNum(329,779) = 1 + StoichNum(329,886) = -1 + StoichNum(329,887) = 1 StoichNum(329,888) = 1 - StoichNum(329,889) = 1 - StoichNum(329,897) = 0.88 - StoichNum(329,898) = 1 - StoichNum(329,901) = 0.7 - StoichNum(329,902) = 1 - StoichNum(329,903) = 1 - StoichNum(329,905) = 1 - StoichNum(329,907) = 1 - StoichNum(329,908) = 2 - StoichNum(329,909) = 2 - StoichNum(329,910) = 1 - StoichNum(329,911) = 1 - StoichNum(329,912) = 1 - StoichNum(329,913) = 1 - StoichNum(329,915) = 1 - StoichNum(329,986) = 1 - StoichNum(329,990) = 1 - StoichNum(329,1003) = 1 - StoichNum(329,1006) = 1 - StoichNum(329,1007) = 0.5 - StoichNum(329,1009) = 0.571 - StoichNum(329,1010) = 0.875 - StoichNum(329,1011) = 0.77 - StoichNum(329,1014) = 1 - StoichNum(329,1015) = 1 - StoichNum(329,1020) = 0.888 - StoichNum(329,1021) = 0.818 - StoichNum(329,1022) = 1 + StoichNum(329,894) = 1 + StoichNum(329,895) = -1 + StoichNum(329,896) = -1 + StoichNum(329,908) = 0.3 + StoichNum(329,909) = 1 + StoichNum(329,914) = 0.9 + StoichNum(329,917) = 1 + StoichNum(329,920) = 1 + StoichNum(329,922) = 1 + StoichNum(329,923) = 1 + StoichNum(329,931) = 1 + StoichNum(329,989) = 1 + StoichNum(329,991) = 1 + StoichNum(329,997) = 1 + StoichNum(329,1005) = 1 + StoichNum(329,1009) = 1 + StoichNum(329,1010) = 1 + StoichNum(329,1012) = 1 + StoichNum(329,1013) = 1 + StoichNum(329,1015) = 0.47 + StoichNum(329,1018) = 0.23 + StoichNum(329,1019) = 0.75 StoichNum(329,1023) = 1 - StoichNum(329,1024) = 0.55 - StoichNum(329,1027) = 0.55 - StoichNum(329,1031) = 0.839 + StoichNum(329,1024) = 1 + StoichNum(329,1032) = 1 StoichNum(329,1033) = 1 - StoichNum(329,1034) = 0.163 - StoichNum(329,1037) = 1 - StoichNum(329,1041) = 1 - StoichNum(329,1043) = 1 - StoichNum(329,1046) = 1 - StoichNum(329,1049) = 1 - StoichNum(329,1058) = 1 - StoichNum(330,352) = 1 - StoichNum(330,354) = -1 - StoichNum(330,355) = 1 - StoichNum(330,828) = -1 - StoichNum(330,829) = -1 - StoichNum(330,843) = 1 - StoichNum(330,852) = -1 - StoichNum(330,853) = -1 - StoichNum(330,854) = -1 - StoichNum(330,855) = -1 - StoichNum(330,967) = -1 + StoichNum(329,1035) = 1 + StoichNum(329,1039) = 0.055 + StoichNum(329,1041) = 0.133 + StoichNum(329,1045) = 0.55 + StoichNum(329,1046) = 0.15 + StoichNum(329,1059) = 1 + StoichNum(329,1060) = 1 + StoichNum(329,1062) = 0.4 + StoichNum(329,1063) = 0.4 + StoichNum(329,1064) = 0.1 + StoichNum(330,51) = -1 + StoichNum(330,52) = -1 + StoichNum(330,58) = 1 + StoichNum(330,60) = 1 + StoichNum(330,65) = 1 + StoichNum(330,73) = 0.65 + StoichNum(330,90) = 0.34 + StoichNum(330,92) = 0.97 + StoichNum(330,93) = 0.34 + StoichNum(330,95) = 0.97 + StoichNum(330,97) = 0.919 + StoichNum(330,100) = 1 + StoichNum(330,108) = 1 + StoichNum(330,113) = 0.5 + StoichNum(330,119) = 0.15 + StoichNum(330,123) = 0.62 + StoichNum(330,129) = 0.75 + StoichNum(330,130) = 0.75 + StoichNum(330,132) = 0.16 + StoichNum(330,133) = 0.38 + StoichNum(330,134) = 0.16 + StoichNum(330,135) = 0.38 + StoichNum(330,137) = 0.5 + StoichNum(330,139) = 0.5 + StoichNum(330,140) = 1 + StoichNum(330,142) = 1.6 + StoichNum(330,143) = 1.6 + StoichNum(330,150) = 0.5 + StoichNum(330,170) = 0.64 + StoichNum(330,182) = 0.29 + StoichNum(330,183) = 0.29 + StoichNum(330,185) = 0.9 + StoichNum(330,187) = 0.675 + StoichNum(330,188) = 0.675 + StoichNum(330,189) = 0.9 + StoichNum(330,190) = 1 + StoichNum(330,191) = 1 + StoichNum(330,192) = 0.9 + StoichNum(330,217) = -1 + StoichNum(330,322) = 1 + StoichNum(330,323) = 1 + StoichNum(330,325) = 1 + StoichNum(330,369) = 1 + StoichNum(330,370) = 1 + StoichNum(330,371) = 1 + StoichNum(330,372) = 1 + StoichNum(330,373) = 1 + StoichNum(330,490) = 1 + StoichNum(330,705) = 0.4 + StoichNum(330,904) = -1 + StoichNum(330,905) = -1 + StoichNum(330,925) = 1 + StoichNum(330,931) = 1 + StoichNum(330,932) = 1 + StoichNum(330,933) = 0.34 + StoichNum(330,934) = 0.348 + StoichNum(330,936) = 0.34 + StoichNum(330,1006) = 1 StoichNum(331,334) = -1 StoichNum(331,336) = -1 StoichNum(331,337) = 1 @@ -11025,982 +10793,937 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(331,357) = 0.4 StoichNum(331,358) = 0.996 StoichNum(331,359) = 1 - StoichNum(331,966) = 2 - StoichNum(331,967) = 1 - StoichNum(331,968) = 1 - StoichNum(331,969) = 1 - StoichNum(331,970) = 1 - StoichNum(331,971) = 1 - StoichNum(331,972) = 1 - StoichNum(331,973) = 1 + StoichNum(331,973) = 2 StoichNum(331,974) = 1 - StoichNum(331,975) = 2 + StoichNum(331,975) = 1 StoichNum(331,976) = 1 StoichNum(331,977) = 1 + StoichNum(331,978) = 1 + StoichNum(331,979) = 1 StoichNum(331,980) = 1 StoichNum(331,981) = 1 - StoichNum(332,339) = 1 - StoichNum(332,340) = 1 - StoichNum(332,341) = -1 - StoichNum(332,342) = -1 - StoichNum(332,841) = -1 - StoichNum(332,842) = -1 - StoichNum(332,843) = -1 - StoichNum(332,848) = -1 - StoichNum(332,849) = -1 - StoichNum(332,850) = -1 - StoichNum(332,851) = -1 - StoichNum(332,972) = -1 - StoichNum(333,273) = 1 - StoichNum(333,277) = 1 - StoichNum(333,278) = 1 - StoichNum(333,280) = -1 - StoichNum(333,281) = 1 - StoichNum(333,282) = 1 - StoichNum(333,299) = 1 + StoichNum(331,982) = 2 + StoichNum(331,983) = 1 + StoichNum(331,984) = 1 + StoichNum(331,987) = 1 + StoichNum(331,988) = 1 + StoichNum(332,273) = 1 + StoichNum(332,277) = 1 + StoichNum(332,278) = 1 + StoichNum(332,280) = -1 + StoichNum(332,281) = 1 + StoichNum(332,282) = 1 + StoichNum(332,299) = 1 + StoichNum(332,795) = 1 + StoichNum(332,808) = -1 + StoichNum(332,809) = -1 + StoichNum(332,810) = -1 + StoichNum(332,811) = -1 + StoichNum(332,812) = -1 + StoichNum(332,957) = -1 + StoichNum(333,3) = -1 + StoichNum(333,6) = -1 + StoichNum(333,35) = 1 + StoichNum(333,36) = -1 + StoichNum(333,50) = 1 + StoichNum(333,52) = 1 + StoichNum(333,67) = 1 + StoichNum(333,101) = 1 + StoichNum(333,110) = 1 + StoichNum(333,131) = 1 + StoichNum(333,154) = 1 + StoichNum(333,165) = 1 + StoichNum(333,166) = 1 + StoichNum(333,179) = 1 + StoichNum(333,201) = 1 + StoichNum(333,389) = 1 + StoichNum(333,486) = 1 + StoichNum(333,487) = 1 + StoichNum(333,649) = 0.32 + StoichNum(333,692) = 1 + StoichNum(333,706) = 1 + StoichNum(333,708) = 1 + StoichNum(333,742) = 0.742 + StoichNum(333,744) = 0.5 + StoichNum(333,747) = 0.5 + StoichNum(333,749) = 1 + StoichNum(333,764) = 0.5 + StoichNum(333,782) = 0.5 + StoichNum(333,783) = 1 + StoichNum(333,786) = 2 + StoichNum(333,787) = 1 + StoichNum(333,788) = 2 + StoichNum(333,789) = 1 + StoichNum(333,790) = 1 + StoichNum(333,793) = 1 + StoichNum(333,794) = 1 StoichNum(333,795) = 1 - StoichNum(333,808) = -1 - StoichNum(333,809) = -1 - StoichNum(333,810) = -1 - StoichNum(333,811) = -1 - StoichNum(333,812) = -1 - StoichNum(333,950) = -1 - StoichNum(334,226) = -1 - StoichNum(334,227) = -1 - StoichNum(334,228) = -1 - StoichNum(334,229) = -1 - StoichNum(334,230) = -1 - StoichNum(334,231) = -1 - StoichNum(334,237) = -1 - StoichNum(334,253) = -1 - StoichNum(334,254) = -1 - StoichNum(334,255) = -1 - StoichNum(334,256) = -1 - StoichNum(334,257) = -1 - StoichNum(334,258) = -1 - StoichNum(334,259) = -1 - StoichNum(334,260) = -1 - StoichNum(334,261) = -1 - StoichNum(334,262) = -1 - StoichNum(334,263) = -1 - StoichNum(334,264) = -1 - StoichNum(334,265) = -1 - StoichNum(334,266) = -1 - StoichNum(334,267) = -1 - StoichNum(334,268) = -1 - StoichNum(334,269) = -1 - StoichNum(334,270) = -1 - StoichNum(334,271) = -1 - StoichNum(334,272) = -1 - StoichNum(334,883) = 1 - StoichNum(334,985) = 1 - StoichNum(335,13) = 1 - StoichNum(335,16) = -1 - StoichNum(335,22) = 1 - StoichNum(335,26) = 1 - StoichNum(335,35) = -1 - StoichNum(335,38) = 1 - StoichNum(335,39) = -1 - StoichNum(335,40) = 1 - StoichNum(335,41) = 1 - StoichNum(335,42) = 1 - StoichNum(335,43) = 2 - StoichNum(335,44) = 1 - StoichNum(335,45) = -1 - StoichNum(335,46) = 1 - StoichNum(335,53) = -1 - StoichNum(335,54) = 1 + StoichNum(333,796) = 1 + StoichNum(333,797) = 1 + StoichNum(333,798) = 1 + StoichNum(333,799) = 1 + StoichNum(333,800) = 1 + StoichNum(333,801) = 1 + StoichNum(333,841) = 1 + StoichNum(333,842) = 1 + StoichNum(333,843) = 1 + StoichNum(333,848) = 1 + StoichNum(333,849) = 1 + StoichNum(333,850) = 1 + StoichNum(333,851) = 1 + StoichNum(333,897) = -1 + StoichNum(334,17) = -1 + StoichNum(334,25) = 1 + StoichNum(334,26) = -1 + StoichNum(334,27) = -1 + StoichNum(334,28) = -1 + StoichNum(334,29) = -2 + StoichNum(334,30) = -2 + StoichNum(334,31) = -1 + StoichNum(334,32) = 0.7 + StoichNum(334,56) = 1 + StoichNum(334,90) = 0.19 + StoichNum(334,93) = 0.19 + StoichNum(334,104) = 1 + StoichNum(334,112) = -1 + StoichNum(334,113) = -1 + StoichNum(334,119) = 0.85 + StoichNum(334,129) = -1 + StoichNum(334,130) = -1 + StoichNum(334,132) = -0.91 + StoichNum(334,133) = -1 + StoichNum(334,134) = -0.91 + StoichNum(334,135) = -1 + StoichNum(334,136) = -1 + StoichNum(334,137) = -0.75 + StoichNum(334,138) = -1 + StoichNum(334,139) = -1 + StoichNum(334,150) = 0.28 + StoichNum(334,168) = 0.5 + StoichNum(334,180) = 2 + StoichNum(334,181) = -0.1 + StoichNum(334,182) = 0.9 + StoichNum(334,183) = 0.9 + StoichNum(334,184) = 0.9 + StoichNum(334,185) = 0.9 + StoichNum(334,186) = 0.9 + StoichNum(334,187) = 0.9 + StoichNum(334,188) = 0.9 + StoichNum(334,189) = 0.9 + StoichNum(334,190) = 0.9 + StoichNum(334,191) = 0.9 + StoichNum(334,192) = 0.9 + StoichNum(334,193) = 0.9 + StoichNum(334,194) = 1 + StoichNum(334,195) = -1 + StoichNum(334,197) = -1 + StoichNum(334,198) = 1 + StoichNum(334,199) = 1 + StoichNum(334,200) = 1 + StoichNum(334,201) = 1 + StoichNum(334,231) = 0.75 + StoichNum(334,257) = 0.9 + StoichNum(334,258) = 1 + StoichNum(334,274) = -1 + StoichNum(334,291) = 1 + StoichNum(334,319) = -1 + StoichNum(334,320) = 1 + StoichNum(334,326) = 1 + StoichNum(334,359) = 1 + StoichNum(334,401) = -1 + StoichNum(334,413) = -1 + StoichNum(334,432) = -1 + StoichNum(334,456) = -1 + StoichNum(334,457) = 0.9 + StoichNum(334,458) = -1 + StoichNum(334,459) = 0.9 + StoichNum(334,460) = -1 + StoichNum(334,461) = 0.9 + StoichNum(334,462) = -1 + StoichNum(334,463) = 0.9 + StoichNum(334,464) = -1 + StoichNum(334,465) = 1 + StoichNum(334,466) = -1 + StoichNum(334,467) = 1 + StoichNum(334,472) = -1 + StoichNum(334,473) = -1 + StoichNum(334,474) = 1 + StoichNum(334,475) = 0.5 + StoichNum(334,493) = 0.407 + StoichNum(334,512) = -1 + StoichNum(334,513) = -1 + StoichNum(334,514) = -1 + StoichNum(334,515) = -1 + StoichNum(334,609) = -1 + StoichNum(334,610) = -1 + StoichNum(334,611) = 1 + StoichNum(334,612) = 1 + StoichNum(334,671) = 0.325 + StoichNum(334,672) = 0.162 + StoichNum(334,676) = 0.65 + StoichNum(334,682) = -1 + StoichNum(334,695) = 0.5 + StoichNum(334,718) = -1 + StoichNum(334,730) = -1 + StoichNum(334,731) = 1 + StoichNum(334,765) = -1 + StoichNum(334,766) = -1 + StoichNum(334,779) = -1 + StoichNum(334,904) = 0.88 + StoichNum(334,906) = 0.3 + StoichNum(334,911) = 1 + StoichNum(334,912) = 2 + StoichNum(334,913) = 0.15 + StoichNum(334,921) = 1 + StoichNum(334,932) = 1 + StoichNum(334,933) = 0.19 + StoichNum(334,936) = 0.19 + StoichNum(334,937) = 1 + StoichNum(334,946) = 1 + StoichNum(334,947) = 1 + StoichNum(334,990) = 1 + StoichNum(334,1019) = 0.488 + StoichNum(335,24) = -1 + StoichNum(335,34) = 1 + StoichNum(335,50) = 1 + StoichNum(335,51) = 0.05 StoichNum(335,55) = 1 - StoichNum(335,56) = 1 - StoichNum(335,58) = 1 - StoichNum(335,60) = 1 - StoichNum(335,63) = 1 - StoichNum(335,65) = 1 - StoichNum(335,68) = 1 - StoichNum(335,73) = 2 - StoichNum(335,76) = 1 - StoichNum(335,78) = 0.942 StoichNum(335,80) = 1 StoichNum(335,82) = 1 + StoichNum(335,83) = 1 + StoichNum(335,84) = 1 StoichNum(335,85) = 1 - StoichNum(335,86) = -1 - StoichNum(335,87) = 1 - StoichNum(335,90) = 1 - StoichNum(335,92) = 2 - StoichNum(335,93) = 1 - StoichNum(335,95) = 2 - StoichNum(335,96) = 1 - StoichNum(335,97) = 0.928 - StoichNum(335,98) = 1 - StoichNum(335,100) = 2 - StoichNum(335,106) = -1 - StoichNum(335,107) = 1 + StoichNum(335,88) = 1 StoichNum(335,108) = 1 - StoichNum(335,109) = 1 - StoichNum(335,123) = 0.93 - StoichNum(335,124) = -1 - StoichNum(335,125) = 1 StoichNum(335,126) = 1 - StoichNum(335,127) = 1 - StoichNum(335,133) = 1 - StoichNum(335,135) = 1 - StoichNum(335,139) = 1 - StoichNum(335,155) = -1 - StoichNum(335,156) = 1 - StoichNum(335,157) = 1 - StoichNum(335,159) = 1 + StoichNum(335,150) = 0.56 + StoichNum(335,151) = 0.505 + StoichNum(335,152) = 1 StoichNum(335,160) = 1 - StoichNum(335,187) = 1 - StoichNum(335,188) = 1 - StoichNum(335,189) = 1 - StoichNum(335,196) = 2 - StoichNum(335,197) = -1 - StoichNum(335,198) = 1 - StoichNum(335,209) = 1 - StoichNum(335,215) = 1 - StoichNum(335,221) = -1 - StoichNum(335,222) = -1 - StoichNum(335,240) = -1 - StoichNum(335,241) = 1 - StoichNum(335,242) = 1 - StoichNum(335,243) = -1 - StoichNum(335,250) = -1 - StoichNum(335,281) = 1 - StoichNum(335,300) = 1 - StoichNum(335,301) = -1 - StoichNum(335,336) = -1 - StoichNum(335,337) = 1 - StoichNum(335,338) = 2 - StoichNum(335,340) = -1 - StoichNum(335,341) = 1 - StoichNum(335,348) = 1 - StoichNum(335,356) = 1 - StoichNum(335,360) = 1 - StoichNum(335,361) = 1 - StoichNum(335,363) = 1 - StoichNum(335,364) = -1 - StoichNum(335,370) = 1 - StoichNum(335,371) = -1 - StoichNum(335,385) = 0.75 - StoichNum(335,386) = 1 - StoichNum(335,388) = 0.5 - StoichNum(335,392) = 1 - StoichNum(335,393) = -1 - StoichNum(335,394) = 1 - StoichNum(335,395) = 1 - StoichNum(335,399) = 0.84 - StoichNum(335,400) = 1 - StoichNum(335,403) = 0.5 - StoichNum(335,405) = 0.75 - StoichNum(335,406) = 1 - StoichNum(335,407) = 0.5 - StoichNum(335,412) = 1 - StoichNum(335,414) = 1 - StoichNum(335,416) = 0.5 - StoichNum(335,418) = 0.75 - StoichNum(335,419) = 1 - StoichNum(335,426) = 0.5 - StoichNum(335,427) = 0.5 - StoichNum(335,428) = 1 - StoichNum(335,429) = 0.84 - StoichNum(335,431) = 1 - StoichNum(335,434) = 1 - StoichNum(335,435) = 0.5 - StoichNum(335,437) = 1 - StoichNum(335,438) = -1 - StoichNum(335,439) = 1 - StoichNum(335,440) = 1 - StoichNum(335,445) = 1 - StoichNum(335,446) = 1 - StoichNum(335,449) = 0.5 - StoichNum(335,450) = 0.3 - StoichNum(335,451) = 0.3 - StoichNum(335,452) = 1.15 - StoichNum(335,455) = 0.5 - StoichNum(335,468) = 1 - StoichNum(335,469) = 2 - StoichNum(335,473) = 0.5 - StoichNum(335,475) = 1 - StoichNum(335,476) = 1 - StoichNum(335,477) = 2 - StoichNum(335,479) = 0.5 - StoichNum(335,480) = 1 - StoichNum(335,489) = 1 - StoichNum(335,490) = 1 - StoichNum(335,491) = 1 - StoichNum(335,492) = 1 - StoichNum(335,517) = 1 - StoichNum(335,519) = 1 - StoichNum(335,521) = 1 - StoichNum(335,523) = 1 - StoichNum(335,540) = 1 - StoichNum(335,544) = 1 - StoichNum(335,548) = 1 - StoichNum(335,559) = 1 - StoichNum(335,563) = 1 - StoichNum(335,568) = 1 - StoichNum(335,570) = 1 - StoichNum(335,572) = 1 - StoichNum(335,575) = 1 - StoichNum(335,577) = 1 - StoichNum(335,578) = 1 - StoichNum(335,580) = 1 - StoichNum(335,585) = 0.459 - StoichNum(335,586) = 1.728 - StoichNum(335,590) = 1 - StoichNum(335,595) = 1 - StoichNum(335,598) = 1 - StoichNum(335,601) = 1 - StoichNum(335,604) = 0.527 - StoichNum(335,606) = 1.86 - StoichNum(335,607) = 0.563 - StoichNum(335,610) = 0.611 - StoichNum(335,611) = 1 - StoichNum(335,613) = 2 - StoichNum(335,614) = 1 - StoichNum(335,615) = 2 - StoichNum(335,617) = 1 - StoichNum(335,625) = 1 - StoichNum(335,631) = 0.058 - StoichNum(335,633) = 1.065 - StoichNum(335,635) = 1 - StoichNum(335,637) = 1 - StoichNum(335,639) = 1 - StoichNum(335,641) = 0.565 - StoichNum(335,642) = 1.11 - StoichNum(335,643) = 0.09 - StoichNum(335,650) = 0.31 - StoichNum(335,655) = 1 - StoichNum(335,657) = -1 - StoichNum(335,658) = 1 - StoichNum(335,660) = -1 - StoichNum(335,668) = 1 - StoichNum(335,674) = 1 - StoichNum(335,676) = 1 - StoichNum(335,677) = -1 - StoichNum(335,678) = 0.5 - StoichNum(335,679) = 2 - StoichNum(335,681) = 2 - StoichNum(335,682) = 0.7 - StoichNum(335,683) = 1 + StoichNum(335,163) = 2 + StoichNum(335,164) = 1 + StoichNum(335,165) = 2 + StoichNum(335,166) = 1 + StoichNum(335,168) = 0.5 + StoichNum(335,216) = 1 + StoichNum(335,238) = 1 + StoichNum(335,252) = 1 + StoichNum(335,292) = 1 + StoichNum(335,315) = 1 + StoichNum(335,316) = 1 + StoichNum(335,317) = 1 + StoichNum(335,362) = -1 + StoichNum(335,369) = -1 + StoichNum(335,379) = 0.15 + StoichNum(335,383) = 0.1 + StoichNum(335,493) = 0.407 + StoichNum(335,496) = 0.6 + StoichNum(335,497) = 0.9 + StoichNum(335,503) = 0.6 + StoichNum(335,505) = 0.9 + StoichNum(335,509) = 1 + StoichNum(335,510) = 1 + StoichNum(335,511) = 1 + StoichNum(335,513) = 0.5 + StoichNum(335,515) = 0.5 + StoichNum(335,519) = 0.55 + StoichNum(335,523) = 0.55 + StoichNum(335,524) = 0.45 + StoichNum(335,525) = 0.37 + StoichNum(335,526) = 0.42 + StoichNum(335,527) = 0.23 + StoichNum(335,528) = 0.638 + StoichNum(335,529) = 1.5 + StoichNum(335,530) = 1 + StoichNum(335,535) = 0.25 + StoichNum(335,536) = 0.33 + StoichNum(335,537) = 0.036 + StoichNum(335,538) = 0.054 + StoichNum(335,557) = 1 + StoichNum(335,558) = 0.13 + StoichNum(335,559) = 0.2 + StoichNum(335,562) = 1 + StoichNum(335,563) = 0.2 + StoichNum(335,565) = 0.13 + StoichNum(335,566) = 0.52 + StoichNum(335,568) = 0.8 + StoichNum(335,569) = 2 + StoichNum(335,582) = 0.6 + StoichNum(335,583) = 0.6 + StoichNum(335,638) = 0.539 + StoichNum(335,639) = 0.33 + StoichNum(335,640) = 0.33 + StoichNum(335,645) = 0.28 + StoichNum(335,646) = 0.036 + StoichNum(335,648) = 0.12 + StoichNum(335,649) = 0.68 + StoichNum(335,652) = 0.77 + StoichNum(335,654) = 0.25 + StoichNum(335,661) = 0.75 + StoichNum(335,662) = 1 + StoichNum(335,664) = 1 + StoichNum(335,665) = 2 + StoichNum(335,666) = 0.84 + StoichNum(335,670) = 0.507 + StoichNum(335,671) = 0.325 + StoichNum(335,672) = 0.488 + StoichNum(335,673) = 1 + StoichNum(335,674) = 0.86 + StoichNum(335,676) = 0.65 + StoichNum(335,684) = 0.25 + StoichNum(335,685) = 1 + StoichNum(335,686) = 1 + StoichNum(335,687) = 0.888 StoichNum(335,690) = 1 - StoichNum(335,691) = 0.022 - StoichNum(335,692) = 1 - StoichNum(335,703) = 1 - StoichNum(335,709) = 0.89 - StoichNum(335,711) = 1 - StoichNum(335,716) = 0.995 - StoichNum(335,717) = 1 - StoichNum(335,721) = 1 - StoichNum(335,728) = 1 - StoichNum(335,729) = 1 - StoichNum(335,733) = 1 - StoichNum(335,736) = 1 - StoichNum(335,738) = -1 - StoichNum(335,739) = 1 - StoichNum(335,740) = 1 - StoichNum(335,751) = 1 - StoichNum(335,752) = -1 - StoichNum(335,754) = 1 - StoichNum(335,755) = 1 - StoichNum(335,756) = -1 - StoichNum(335,757) = 1 - StoichNum(335,758) = 1 - StoichNum(335,762) = -1 - StoichNum(335,763) = 0.5 - StoichNum(335,764) = 1 - StoichNum(335,779) = 1 - StoichNum(335,782) = -1 - StoichNum(335,885) = -1 - StoichNum(335,890) = 1 - StoichNum(335,893) = 1 - StoichNum(335,894) = 1 + StoichNum(335,696) = 1 + StoichNum(335,704) = 0.18 + StoichNum(335,707) = 0.12 + StoichNum(335,714) = 0.364 + StoichNum(335,724) = 0.2 + StoichNum(335,725) = 0.27 + StoichNum(335,726) = 0.3 + StoichNum(335,740) = 2 + StoichNum(335,763) = 0.15 + StoichNum(335,764) = 0.15 + StoichNum(335,767) = 0.26 + StoichNum(335,768) = 0.5 + StoichNum(335,770) = 0.25 + StoichNum(335,771) = 0.5 + StoichNum(335,772) = 0.05 + StoichNum(335,895) = 1 StoichNum(335,896) = 1 - StoichNum(335,899) = 0.7 - StoichNum(335,900) = 1 + StoichNum(335,904) = 0.88 + StoichNum(335,905) = 1 + StoichNum(335,908) = 0.7 + StoichNum(335,909) = 1 + StoichNum(335,910) = 1 + StoichNum(335,912) = 1 + StoichNum(335,914) = 1 + StoichNum(335,915) = 2 + StoichNum(335,916) = 2 StoichNum(335,917) = 1 - StoichNum(335,926) = 1 - StoichNum(335,927) = 1 - StoichNum(335,928) = 1 - StoichNum(335,929) = 1 - StoichNum(335,935) = 1 - StoichNum(335,936) = 1 - StoichNum(335,947) = 1 - StoichNum(335,949) = 1 - StoichNum(335,971) = 1 - StoichNum(335,983) = 1 - StoichNum(335,990) = 1 - StoichNum(335,991) = 1 - StoichNum(335,992) = 1 + StoichNum(335,918) = 1 + StoichNum(335,919) = 1 + StoichNum(335,920) = 1 + StoichNum(335,922) = 1 StoichNum(335,993) = 1 - StoichNum(335,995) = 1 StoichNum(335,997) = 1 - StoichNum(335,998) = 1 - StoichNum(335,999) = 1 - StoichNum(335,1000) = 1 - StoichNum(335,1001) = 1 - StoichNum(335,1005) = 1 - StoichNum(335,1013) = 0.7 - StoichNum(335,1014) = 1 - StoichNum(335,1024) = 1 - StoichNum(335,1025) = 1 - StoichNum(335,1026) = 1 - StoichNum(335,1027) = 1 - StoichNum(335,1028) = 1 + StoichNum(335,1010) = 1 + StoichNum(335,1013) = 1 + StoichNum(335,1014) = 0.5 + StoichNum(335,1016) = 0.571 + StoichNum(335,1017) = 0.875 + StoichNum(335,1018) = 0.77 + StoichNum(335,1021) = 1 + StoichNum(335,1022) = 1 + StoichNum(335,1027) = 0.888 + StoichNum(335,1028) = 0.818 + StoichNum(335,1029) = 1 StoichNum(335,1030) = 1 - StoichNum(335,1031) = 1 - StoichNum(335,1032) = 1.555 - StoichNum(335,1038) = 0.3 - StoichNum(335,1039) = 1 + StoichNum(335,1031) = 0.55 + StoichNum(335,1034) = 0.55 + StoichNum(335,1038) = 0.839 StoichNum(335,1040) = 1 - StoichNum(335,1041) = 1 - StoichNum(335,1047) = 0.7 - StoichNum(336,18) = 1 - StoichNum(336,20) = 1 - StoichNum(336,21) = 1 - StoichNum(336,25) = 1 - StoichNum(336,32) = 1 - StoichNum(336,33) = 1 - StoichNum(336,34) = 1 - StoichNum(336,36) = 1 - StoichNum(336,38) = 1 - StoichNum(336,41) = 1 - StoichNum(336,47) = 1 - StoichNum(336,51) = 1 - StoichNum(336,57) = 1 - StoichNum(336,72) = 1 - StoichNum(336,102) = 1 - StoichNum(336,103) = 1 - StoichNum(336,104) = 1 - StoichNum(336,105) = 1 - StoichNum(336,111) = 1 - StoichNum(336,122) = 1 - StoichNum(336,206) = 1 - StoichNum(336,225) = 1 - StoichNum(336,226) = -1 - StoichNum(336,234) = 1 - StoichNum(336,247) = 0.02 - StoichNum(336,279) = 1 - StoichNum(336,280) = 1 - StoichNum(336,283) = 1 - StoichNum(336,286) = 1 - StoichNum(336,287) = 1 - StoichNum(336,288) = 1 - StoichNum(336,289) = 1 - StoichNum(336,290) = 1 - StoichNum(336,318) = 1 - StoichNum(336,353) = 1 + StoichNum(335,1041) = 0.163 + StoichNum(335,1044) = 1 + StoichNum(335,1048) = 1 + StoichNum(335,1050) = 1 + StoichNum(335,1053) = 1 + StoichNum(335,1056) = 1 + StoichNum(335,1065) = 1 + StoichNum(336,340) = -1 + StoichNum(336,341) = 1 + StoichNum(336,343) = 1 + StoichNum(336,344) = -1 + StoichNum(336,345) = -1 + StoichNum(336,348) = 1 + StoichNum(336,349) = -1 + StoichNum(336,350) = 1 StoichNum(336,354) = 1 - StoichNum(336,359) = 1 - StoichNum(336,365) = -1 - StoichNum(336,366) = -2 - StoichNum(336,373) = -1 - StoichNum(336,374) = -1 - StoichNum(336,701) = 1 - StoichNum(336,781) = 1 - StoichNum(336,786) = -1 - StoichNum(336,793) = -1 - StoichNum(336,795) = -1 - StoichNum(336,808) = 1 - StoichNum(336,809) = 1 - StoichNum(336,810) = 1 - StoichNum(336,811) = 1 - StoichNum(336,813) = 1 - StoichNum(336,814) = 1 - StoichNum(336,815) = 1 - StoichNum(336,816) = 1 - StoichNum(336,843) = -1 - StoichNum(336,928) = 1 - StoichNum(337,14) = 1 - StoichNum(337,15) = -1 - StoichNum(337,17) = 1 - StoichNum(337,20) = -1 - StoichNum(337,21) = 1 - StoichNum(337,22) = -1 - StoichNum(337,23) = -2 - StoichNum(337,24) = 1 - StoichNum(337,26) = 1 - StoichNum(337,28) = -1 - StoichNum(337,30) = 2 - StoichNum(337,31) = 1.74 - StoichNum(337,34) = 1 - StoichNum(337,39) = -1 - StoichNum(337,40) = 1 - StoichNum(337,42) = -1 - StoichNum(337,44) = 1 - StoichNum(337,47) = 1 - StoichNum(337,48) = 1 - StoichNum(337,50) = 1 - StoichNum(337,51) = 0.05 - StoichNum(337,58) = 1 - StoichNum(337,60) = 1 - StoichNum(337,63) = 1 - StoichNum(337,65) = 1 - StoichNum(337,68) = 0.75 - StoichNum(337,70) = -1 - StoichNum(337,74) = -1 - StoichNum(337,78) = 0.513 - StoichNum(337,79) = -1 - StoichNum(337,80) = 1 - StoichNum(337,81) = 0.425 - StoichNum(337,82) = 1 - StoichNum(337,84) = -0.75 - StoichNum(337,85) = 1 - StoichNum(337,90) = 0.27 - StoichNum(337,93) = 0.27 - StoichNum(337,98) = 1 - StoichNum(337,112) = 1 - StoichNum(337,113) = 1 - StoichNum(337,114) = -1 - StoichNum(337,115) = -1 - StoichNum(337,116) = -1 - StoichNum(337,117) = -1 - StoichNum(337,118) = -1 - StoichNum(337,119) = -1 - StoichNum(337,120) = -1 - StoichNum(337,121) = -1 - StoichNum(337,128) = -1 - StoichNum(337,129) = 1 - StoichNum(337,130) = 1 - StoichNum(337,132) = 0.64 - StoichNum(337,133) = 0.5 - StoichNum(337,134) = 0.64 - StoichNum(337,135) = 0.5 - StoichNum(337,136) = 0.3 - StoichNum(337,137) = 0.5 - StoichNum(337,138) = 1 - StoichNum(337,139) = 0.5 - StoichNum(337,140) = 1 - StoichNum(337,141) = 1 - StoichNum(337,142) = 1.2 - StoichNum(337,143) = 1.2 - StoichNum(337,144) = -1 - StoichNum(337,145) = -1 - StoichNum(337,146) = -1 - StoichNum(337,147) = -1 - StoichNum(337,148) = -1 - StoichNum(337,150) = 0.28 - StoichNum(337,151) = 0.773 - StoichNum(337,153) = 0.2 - StoichNum(337,157) = 1 - StoichNum(337,158) = -0.56 - StoichNum(337,159) = 1 - StoichNum(337,161) = 1 - StoichNum(337,163) = 1 - StoichNum(337,165) = 1 - StoichNum(337,167) = 1 - StoichNum(337,181) = 0.9 - StoichNum(337,182) = 0.243 - StoichNum(337,183) = 0.243 - StoichNum(337,186) = 0.9 - StoichNum(337,190) = 0.9 - StoichNum(337,191) = 0.9 - StoichNum(337,192) = 0.9 - StoichNum(337,193) = 0.9 - StoichNum(337,195) = 1 - StoichNum(337,202) = 1 - StoichNum(337,204) = -1 - StoichNum(337,205) = -1 - StoichNum(337,214) = 1 - StoichNum(337,216) = 1 - StoichNum(337,225) = 1 - StoichNum(337,231) = 0.2 - StoichNum(337,236) = -1 - StoichNum(337,244) = 1 - StoichNum(337,245) = 1 - StoichNum(337,247) = -1 - StoichNum(337,252) = 1 - StoichNum(337,274) = 1 - StoichNum(337,275) = 1 - StoichNum(337,283) = 1 - StoichNum(337,284) = 1 - StoichNum(337,285) = 1 - StoichNum(337,292) = 1 - StoichNum(337,295) = 1 - StoichNum(337,296) = -1 - StoichNum(337,297) = -1 - StoichNum(337,299) = -1 - StoichNum(337,315) = 1 - StoichNum(337,316) = 1 - StoichNum(337,317) = 1 - StoichNum(337,319) = 1 - StoichNum(337,322) = 1 - StoichNum(337,323) = 1 - StoichNum(337,324) = 1 - StoichNum(337,351) = -1 - StoichNum(337,355) = -1 - StoichNum(337,381) = 0.05 - StoichNum(337,384) = -1 - StoichNum(337,385) = 0.75 - StoichNum(337,386) = 1 - StoichNum(337,388) = 0.5 - StoichNum(337,391) = -1 - StoichNum(337,398) = -1 - StoichNum(337,401) = 1 - StoichNum(337,404) = -1 - StoichNum(337,405) = 0.75 - StoichNum(337,406) = 1 - StoichNum(337,407) = 0.5 - StoichNum(337,410) = -1 - StoichNum(337,412) = 1 - StoichNum(337,413) = 1 - StoichNum(337,414) = 1 - StoichNum(337,417) = -1 - StoichNum(337,418) = 0.75 - StoichNum(337,419) = 1 - StoichNum(337,429) = 0.84 - StoichNum(337,430) = -1 - StoichNum(337,431) = 1 - StoichNum(337,432) = 1 - StoichNum(337,436) = -1 - StoichNum(337,443) = -1 - StoichNum(337,445) = 1 - StoichNum(337,446) = 1 - StoichNum(337,453) = 1 - StoichNum(337,455) = 0.5 - StoichNum(337,456) = 1.75 - StoichNum(337,457) = 1 - StoichNum(337,458) = 1.75 - StoichNum(337,459) = 1 - StoichNum(337,460) = 1.75 - StoichNum(337,461) = 1 - StoichNum(337,462) = 1.75 - StoichNum(337,463) = 1 - StoichNum(337,464) = 0.75 - StoichNum(337,466) = 0.75 - StoichNum(337,468) = 1 - StoichNum(337,470) = -1 - StoichNum(337,471) = -1 - StoichNum(337,472) = 2 - StoichNum(337,473) = 0.5 - StoichNum(337,474) = 1 - StoichNum(337,476) = 1 - StoichNum(337,478) = 1 - StoichNum(337,479) = 0.5 - StoichNum(337,493) = 0.16 - StoichNum(337,496) = 0.4 - StoichNum(337,497) = 0.7 - StoichNum(337,498) = -0.937 - StoichNum(337,499) = -1 - StoichNum(337,500) = -0.937 - StoichNum(337,501) = -1 - StoichNum(337,503) = 0.4 - StoichNum(337,505) = 0.7 - StoichNum(337,506) = 2 - StoichNum(337,507) = 2 - StoichNum(337,508) = 2 - StoichNum(337,509) = 1 - StoichNum(337,510) = 1 - StoichNum(337,511) = 1 - StoichNum(337,512) = 2 - StoichNum(337,513) = 1.5 - StoichNum(337,514) = 2 - StoichNum(337,515) = 1.5 - StoichNum(337,517) = 1 - StoichNum(337,519) = 0.45 - StoichNum(337,521) = 1 - StoichNum(337,523) = 0.45 - StoichNum(337,524) = 0.085 - StoichNum(337,525) = 0.165 - StoichNum(337,528) = 0.283 - StoichNum(337,530) = 1 - StoichNum(337,535) = 0.25 - StoichNum(337,536) = 0.33 - StoichNum(337,537) = 0.024 - StoichNum(337,538) = 0.042 - StoichNum(337,540) = 1 - StoichNum(337,542) = -0.725 - StoichNum(337,544) = 1 - StoichNum(337,546) = -0.725 - StoichNum(337,550) = -1 - StoichNum(337,551) = 0.75 - StoichNum(337,552) = 1 - StoichNum(337,554) = 1 - StoichNum(337,556) = 1 - StoichNum(337,558) = -0.35 - StoichNum(337,559) = 1 - StoichNum(337,561) = 1 - StoichNum(337,563) = 1 - StoichNum(337,565) = -0.35 - StoichNum(337,566) = -0.35 - StoichNum(337,568) = 1 - StoichNum(337,569) = 1 - StoichNum(337,571) = -1 - StoichNum(337,573) = -1 - StoichNum(337,582) = 0.4 - StoichNum(337,583) = 0.4 - StoichNum(337,584) = 1 - StoichNum(337,585) = -0.941 - StoichNum(337,586) = 0.272 - StoichNum(337,588) = 1 - StoichNum(337,589) = -0.401 - StoichNum(337,590) = 1 - StoichNum(337,592) = 1 - StoichNum(337,593) = 1 - StoichNum(337,594) = -0.418 - StoichNum(337,595) = 1 - StoichNum(337,597) = -0.494 - StoichNum(337,598) = 1 - StoichNum(337,600) = -0.621 - StoichNum(337,601) = 1 - StoichNum(337,604) = -1 - StoichNum(337,605) = -1 - StoichNum(337,607) = 0.089 - StoichNum(337,608) = 0.064 - StoichNum(337,609) = 0.336 - StoichNum(337,610) = 0.611 - StoichNum(337,612) = 0.159 - StoichNum(337,614) = 0.159 - StoichNum(337,617) = 0.159 - StoichNum(337,619) = 1 - StoichNum(337,631) = -0.674 - StoichNum(337,632) = -0.42 - StoichNum(337,633) = 0.5 - StoichNum(337,635) = 0.904 - StoichNum(337,638) = 0.295 - StoichNum(337,639) = 0.33 - StoichNum(337,640) = -0.67 - StoichNum(337,642) = 0.89 - StoichNum(337,643) = -0.27 - StoichNum(337,645) = 0.1 - StoichNum(337,646) = 0.036 - StoichNum(337,656) = -1 - StoichNum(337,659) = -1 - StoichNum(337,661) = 0.715 - StoichNum(337,663) = 1 - StoichNum(337,665) = 1 - StoichNum(337,666) = 1 - StoichNum(337,667) = -0.695 - StoichNum(337,668) = 0.242 - StoichNum(337,670) = -0.493 - StoichNum(337,671) = -1 - StoichNum(337,674) = 0.86 - StoichNum(337,678) = -1 - StoichNum(337,682) = 0.7 - StoichNum(337,686) = 0.5 - StoichNum(337,687) = 0.444 - StoichNum(337,691) = 0.62 - StoichNum(337,694) = 0.5 - StoichNum(337,695) = -1 - StoichNum(337,702) = 0.7 - StoichNum(337,704) = 0.1 - StoichNum(337,705) = 0.18 - StoichNum(337,707) = 0.03 - StoichNum(337,709) = 1 - StoichNum(337,710) = -1 - StoichNum(337,711) = 1 - StoichNum(337,714) = 0.364 - StoichNum(337,715) = -1 - StoichNum(337,718) = 0.6 - StoichNum(337,719) = 1 - StoichNum(337,720) = 1 - StoichNum(337,724) = 0.54 - StoichNum(337,725) = 0.19 - StoichNum(337,726) = 0.15 - StoichNum(337,728) = 1 - StoichNum(337,729) = 1 - StoichNum(337,730) = 2 - StoichNum(337,731) = 1 - StoichNum(337,733) = 1 - StoichNum(337,734) = -1 - StoichNum(337,737) = -1 - StoichNum(337,741) = 0.8 - StoichNum(337,743) = 0.727 - StoichNum(337,746) = 1 - StoichNum(337,750) = -1 - StoichNum(337,759) = -1 - StoichNum(337,765) = 1 - StoichNum(337,766) = 1 - StoichNum(337,767) = 0.33 - StoichNum(337,768) = 0.1 - StoichNum(337,769) = 0.2 - StoichNum(337,770) = 0.33 - StoichNum(337,771) = 0.1 - StoichNum(337,772) = 0.2 - StoichNum(337,779) = 1 - StoichNum(337,781) = -1 - StoichNum(337,887) = 1 - StoichNum(337,888) = 1 - StoichNum(337,893) = 1 - StoichNum(337,897) = 1 - StoichNum(337,901) = 0.3 - StoichNum(337,902) = 1 - StoichNum(337,903) = 1 - StoichNum(337,907) = 1.73 - StoichNum(337,908) = 2 - StoichNum(337,911) = 1 - StoichNum(337,913) = 1 - StoichNum(337,915) = 1 - StoichNum(337,916) = 1 - StoichNum(337,917) = 1 - StoichNum(337,918) = 1 - StoichNum(337,919) = 1 - StoichNum(337,920) = 1 - StoichNum(337,921) = 1 - StoichNum(337,922) = 1 - StoichNum(337,923) = 1 - StoichNum(337,924) = 1 - StoichNum(337,925) = 1 - StoichNum(337,926) = 0.27 - StoichNum(337,927) = 0.326 - StoichNum(337,928) = 1 - StoichNum(337,929) = 0.27 - StoichNum(337,982) = 1 - StoichNum(337,989) = 1 - StoichNum(337,990) = 1 - StoichNum(337,998) = 1 - StoichNum(337,999) = 1 - StoichNum(337,1000) = 1 - StoichNum(337,1001) = 1 - StoichNum(337,1003) = 1 - StoichNum(337,1004) = 1 - StoichNum(337,1006) = 1 - StoichNum(337,1007) = 1.5 - StoichNum(337,1008) = 0.47 - StoichNum(337,1009) = 0.571 - StoichNum(337,1010) = 0.125 - StoichNum(337,1011) = 1 - StoichNum(337,1013) = 0.29 - StoichNum(337,1014) = 1 - StoichNum(337,1015) = 1 - StoichNum(337,1016) = 1 - StoichNum(337,1017) = 1 - StoichNum(337,1018) = 1 - StoichNum(337,1019) = 1 - StoichNum(337,1020) = 0.112 - StoichNum(337,1021) = 0.182 - StoichNum(337,1022) = 1 - StoichNum(337,1023) = 1 - StoichNum(337,1024) = 0.45 - StoichNum(337,1025) = 1 - StoichNum(337,1026) = 1 - StoichNum(337,1027) = 0.45 - StoichNum(337,1028) = 0.33 - StoichNum(337,1029) = 0.159 - StoichNum(337,1031) = 0.161 - StoichNum(337,1032) = 0.228 - StoichNum(337,1033) = 1.5 - StoichNum(337,1034) = 1 - StoichNum(337,1035) = 0.75 - StoichNum(337,1036) = 1 - StoichNum(337,1037) = 1.454 - StoichNum(337,1038) = 0.7 - StoichNum(337,1039) = 0.7 - StoichNum(337,1041) = 1 - StoichNum(337,1043) = 1 - StoichNum(337,1046) = 1 - StoichNum(337,1048) = 1 - StoichNum(337,1049) = 1 - StoichNum(337,1053) = 1 - StoichNum(337,1054) = 1 - StoichNum(337,1057) = 1 - StoichNum(337,1058) = 1 - StoichNum(338,253) = 0.22 - StoichNum(338,255) = 0.75 - StoichNum(338,256) = 0.79 - StoichNum(338,257) = 0.46 - StoichNum(338,261) = 0.56 - StoichNum(338,262) = 0.9 - StoichNum(338,263) = 0.86 - StoichNum(338,264) = 0.34 - StoichNum(338,266) = 0.69 - StoichNum(338,267) = 0.65 - StoichNum(338,268) = 0.79 - StoichNum(338,269) = 0.8 - StoichNum(338,270) = 0.85 - StoichNum(338,271) = 0.86 - StoichNum(338,274) = -1 - StoichNum(338,275) = -1 - StoichNum(338,276) = -1 - StoichNum(338,280) = 1 - StoichNum(338,293) = 1 - StoichNum(338,297) = 1 - StoichNum(338,298) = -1 - StoichNum(338,299) = -1 + StoichNum(336,355) = -1 + StoichNum(336,356) = -1 + StoichNum(336,357) = -2 + StoichNum(336,358) = 0.008 + StoichNum(336,975) = -1 + StoichNum(336,986) = 1 + StoichNum(337,226) = -1 + StoichNum(337,227) = -1 + StoichNum(337,228) = -1 + StoichNum(337,229) = -1 + StoichNum(337,230) = -1 + StoichNum(337,231) = -1 + StoichNum(337,237) = -1 + StoichNum(337,253) = -1 + StoichNum(337,254) = -1 + StoichNum(337,255) = -1 + StoichNum(337,256) = -1 + StoichNum(337,257) = -1 + StoichNum(337,258) = -1 + StoichNum(337,259) = -1 + StoichNum(337,260) = -1 + StoichNum(337,261) = -1 + StoichNum(337,262) = -1 + StoichNum(337,263) = -1 + StoichNum(337,264) = -1 + StoichNum(337,265) = -1 + StoichNum(337,266) = -1 + StoichNum(337,267) = -1 + StoichNum(337,268) = -1 + StoichNum(337,269) = -1 + StoichNum(337,270) = -1 + StoichNum(337,271) = -1 + StoichNum(337,272) = -1 + StoichNum(337,890) = 1 + StoichNum(337,992) = 1 + StoichNum(338,13) = -1 + StoichNum(338,22) = -1 + StoichNum(338,26) = -1 + StoichNum(338,27) = -1 + StoichNum(338,37) = -1 + StoichNum(338,43) = -1 + StoichNum(338,49) = 1 + StoichNum(338,56) = -1 + StoichNum(338,58) = -1 + StoichNum(338,59) = -1 + StoichNum(338,60) = -1 + StoichNum(338,63) = -1 + StoichNum(338,64) = -1 + StoichNum(338,65) = -1 + StoichNum(338,68) = -1 + StoichNum(338,69) = -1 + StoichNum(338,73) = -1 + StoichNum(338,78) = -1 + StoichNum(338,82) = -1 + StoichNum(338,85) = -1 + StoichNum(338,90) = -1 + StoichNum(338,91) = -1 + StoichNum(338,92) = -1 + StoichNum(338,93) = -1 + StoichNum(338,94) = -1 + StoichNum(338,95) = -1 + StoichNum(338,96) = -1 + StoichNum(338,97) = -1 + StoichNum(338,98) = -1 + StoichNum(338,99) = -1 + StoichNum(338,100) = -1 + StoichNum(338,109) = -1 + StoichNum(338,123) = -1 + StoichNum(338,127) = -1 + StoichNum(338,157) = -1 + StoichNum(338,209) = -1 + StoichNum(338,230) = 1.22 + StoichNum(338,240) = 1 + StoichNum(338,242) = -1 + StoichNum(338,248) = 1 + StoichNum(338,249) = -1 StoichNum(338,300) = -1 - StoichNum(338,301) = -1 - StoichNum(338,302) = -2 - StoichNum(338,303) = -2 - StoichNum(338,304) = -2 - StoichNum(338,307) = -2 - StoichNum(338,308) = 2 - StoichNum(338,309) = 0.1 - StoichNum(338,310) = -1 - StoichNum(338,311) = -1 - StoichNum(338,312) = -1 - StoichNum(338,313) = 1 - StoichNum(338,319) = 1 - StoichNum(338,322) = 1 - StoichNum(338,323) = 1 - StoichNum(338,349) = -1 - StoichNum(338,944) = -1 - StoichNum(338,945) = 1 - StoichNum(338,949) = 1 - StoichNum(339,2) = -1 - StoichNum(339,5) = -1 - StoichNum(339,253) = -0.88 - StoichNum(339,276) = 1 - StoichNum(339,279) = -1 - StoichNum(339,291) = 1 - StoichNum(339,292) = 1 - StoichNum(339,294) = 1 - StoichNum(339,295) = 1 - StoichNum(339,296) = 1 - StoichNum(339,315) = 2 - StoichNum(339,316) = 1 - StoichNum(339,317) = 1 - StoichNum(339,318) = 1 - StoichNum(339,320) = 1 - StoichNum(339,321) = 1 - StoichNum(339,324) = 1 - StoichNum(339,325) = 1 - StoichNum(339,326) = 1 - StoichNum(339,327) = 1 - StoichNum(339,328) = 1 - StoichNum(339,329) = 1 - StoichNum(339,330) = 1 - StoichNum(339,331) = 1 - StoichNum(339,332) = 1 - StoichNum(339,787) = -1 - StoichNum(339,794) = -1 - StoichNum(339,796) = -1 - StoichNum(339,804) = -1 - StoichNum(339,808) = -1 - StoichNum(339,812) = 1 - StoichNum(339,814) = -1 - StoichNum(340,253) = 0.66 - StoichNum(340,255) = 0.75 - StoichNum(340,256) = 2.37 - StoichNum(340,257) = 0.35 - StoichNum(340,261) = 0.19 - StoichNum(340,262) = 1.8 - StoichNum(340,263) = 0.86 - StoichNum(340,264) = 0.31 - StoichNum(340,266) = 0.69 - StoichNum(340,268) = 0.79 - StoichNum(340,269) = 1.9 - StoichNum(340,270) = 0.95 - StoichNum(340,273) = 1 - StoichNum(340,275) = 1 - StoichNum(340,279) = 1 - StoichNum(340,283) = 1 - StoichNum(340,284) = 2 - StoichNum(340,285) = 3 - StoichNum(340,286) = 3 - StoichNum(340,287) = 1 - StoichNum(340,288) = 2 - StoichNum(340,289) = 1 - StoichNum(340,290) = 2 - StoichNum(340,291) = -1 - StoichNum(340,292) = -1 - StoichNum(340,293) = -1 - StoichNum(340,294) = -1 - StoichNum(340,295) = -1 - StoichNum(340,296) = -1 - StoichNum(340,297) = -1 - StoichNum(340,298) = 1 - StoichNum(340,300) = 1 - StoichNum(340,303) = 1 - StoichNum(340,304) = 1 - StoichNum(340,305) = -1 - StoichNum(340,306) = 1 - StoichNum(340,309) = -1 - StoichNum(340,314) = -1 - StoichNum(340,315) = -1 + StoichNum(338,334) = -1 + StoichNum(338,335) = 2 + StoichNum(338,348) = -1 + StoichNum(338,356) = -1 + StoichNum(338,363) = -1 + StoichNum(338,370) = -1 + StoichNum(338,385) = -1 + StoichNum(338,392) = -1 + StoichNum(338,399) = -1 + StoichNum(338,405) = -1 + StoichNum(338,411) = -1 + StoichNum(338,412) = -1 + StoichNum(338,418) = -1 + StoichNum(338,429) = -1 + StoichNum(338,437) = -1 + StoichNum(338,444) = -1 + StoichNum(338,445) = -1 + StoichNum(338,468) = -1 + StoichNum(338,469) = -1 + StoichNum(338,516) = -1 + StoichNum(338,517) = -1 + StoichNum(338,518) = -1 + StoichNum(338,519) = -1 + StoichNum(338,520) = -1 + StoichNum(338,521) = -1 + StoichNum(338,522) = -1 + StoichNum(338,523) = -1 + StoichNum(338,540) = -1 + StoichNum(338,541) = -1 + StoichNum(338,544) = -1 + StoichNum(338,545) = -1 + StoichNum(338,548) = -1 + StoichNum(338,549) = -1 + StoichNum(338,559) = -1 + StoichNum(338,560) = -1 + StoichNum(338,563) = -1 + StoichNum(338,564) = -1 + StoichNum(338,567) = -1 + StoichNum(338,568) = -1 + StoichNum(338,570) = -1 + StoichNum(338,572) = -1 + StoichNum(338,586) = -1 + StoichNum(338,587) = -1 + StoichNum(338,590) = -1 + StoichNum(338,591) = -1 + StoichNum(338,595) = -1 + StoichNum(338,596) = -1 + StoichNum(338,598) = -1 + StoichNum(338,599) = -1 + StoichNum(338,601) = -1 + StoichNum(338,602) = -1 + StoichNum(338,615) = -1 + StoichNum(338,616) = -1 + StoichNum(338,617) = -1 + StoichNum(338,618) = -1 + StoichNum(338,633) = -1 + StoichNum(338,634) = -1 + StoichNum(338,635) = -1 + StoichNum(338,636) = -1 + StoichNum(338,639) = -1 + StoichNum(338,642) = -1 + StoichNum(338,655) = -1 + StoichNum(338,658) = -1 + StoichNum(338,668) = -1 + StoichNum(338,669) = -1 + StoichNum(338,674) = -1 + StoichNum(338,675) = -1 + StoichNum(338,676) = -1 + StoichNum(338,679) = -1 + StoichNum(338,709) = -1 + StoichNum(338,716) = -1 + StoichNum(338,728) = -1 + StoichNum(338,733) = -1 + StoichNum(338,736) = -1 + StoichNum(338,751) = -1 + StoichNum(338,757) = -1 + StoichNum(338,892) = 1 + StoichNum(338,898) = 1 + StoichNum(338,902) = 1 + StoichNum(338,977) = 1 + StoichNum(338,995) = -1 + StoichNum(339,2) = 1 + StoichNum(339,789) = -1 + StoichNum(339,791) = -1 + StoichNum(339,800) = -1 + StoichNum(339,802) = -1 + StoichNum(339,810) = -1 + StoichNum(339,815) = -1 + StoichNum(339,846) = -1 + StoichNum(339,850) = -1 + StoichNum(339,854) = -1 + StoichNum(340,2) = -1 + StoichNum(340,5) = -1 + StoichNum(340,253) = -0.88 + StoichNum(340,276) = 1 + StoichNum(340,279) = -1 + StoichNum(340,291) = 1 + StoichNum(340,292) = 1 + StoichNum(340,294) = 1 + StoichNum(340,295) = 1 + StoichNum(340,296) = 1 + StoichNum(340,315) = 2 StoichNum(340,316) = 1 - StoichNum(340,317) = 2 - StoichNum(340,318) = -1 - StoichNum(340,319) = -1 - StoichNum(340,320) = -1 - StoichNum(340,321) = -1 - StoichNum(340,322) = -1 - StoichNum(340,323) = -1 - StoichNum(340,324) = -1 - StoichNum(340,325) = -1 - StoichNum(340,326) = -1 - StoichNum(340,327) = -1 - StoichNum(340,328) = -1 - StoichNum(340,329) = -1 - StoichNum(340,330) = -1 - StoichNum(340,331) = -1 - StoichNum(340,332) = -1 - StoichNum(340,349) = 0.249 - StoichNum(340,940) = 1 - StoichNum(340,941) = 2 - StoichNum(340,942) = 1 - StoichNum(340,943) = 2 - StoichNum(340,944) = 1 - StoichNum(340,946) = 1 - StoichNum(340,947) = 1 - StoichNum(340,948) = 1 - StoichNum(340,950) = 1 - StoichNum(340,951) = 3 - StoichNum(340,952) = 4 - StoichNum(340,953) = 3 - StoichNum(340,954) = 2 - StoichNum(340,955) = 3 - StoichNum(340,956) = 2 - StoichNum(340,957) = 1 - StoichNum(340,958) = 2 - StoichNum(340,959) = 2 - StoichNum(340,960) = 1 - StoichNum(340,961) = 1 - StoichNum(340,963) = 1 - StoichNum(340,965) = 1 - StoichNum(340,976) = 1 - StoichNum(340,981) = 1 - StoichNum(341,1) = -1 - StoichNum(341,4) = -1 - StoichNum(341,8) = -1 - StoichNum(341,13) = -1 - StoichNum(341,14) = -1 + StoichNum(340,317) = 1 + StoichNum(340,318) = 1 + StoichNum(340,320) = 1 + StoichNum(340,321) = 1 + StoichNum(340,324) = 1 + StoichNum(340,325) = 1 + StoichNum(340,326) = 1 + StoichNum(340,327) = 1 + StoichNum(340,328) = 1 + StoichNum(340,329) = 1 + StoichNum(340,330) = 1 + StoichNum(340,331) = 1 + StoichNum(340,332) = 1 + StoichNum(340,787) = -1 + StoichNum(340,794) = -1 + StoichNum(340,796) = -1 + StoichNum(340,804) = -1 + StoichNum(340,808) = -1 + StoichNum(340,812) = 1 + StoichNum(340,814) = -1 + StoichNum(341,14) = 1 StoichNum(341,15) = -1 - StoichNum(341,16) = -1 - StoichNum(341,17) = -1 - StoichNum(341,77) = -1 - StoichNum(341,128) = 0.15 - StoichNum(341,148) = 0.15 - StoichNum(341,150) = -1 - StoichNum(341,158) = 0.15 - StoichNum(341,203) = -1 - StoichNum(341,232) = 1 - StoichNum(341,233) = -1 - StoichNum(341,237) = -1 - StoichNum(341,246) = -1 - StoichNum(341,293) = -1 - StoichNum(341,350) = -1 - StoichNum(341,367) = -1 - StoichNum(341,379) = -1 - StoichNum(341,381) = -1 - StoichNum(341,383) = -1 - StoichNum(341,391) = 0.15 - StoichNum(341,421) = -1 - StoichNum(341,424) = -1 - StoichNum(341,427) = -1 - StoichNum(341,436) = 0.15 - StoichNum(341,448) = -1 - StoichNum(341,451) = -1 - StoichNum(341,454) = -1 - StoichNum(341,483) = -1 - StoichNum(341,493) = -1 - StoichNum(341,645) = -1 - StoichNum(341,648) = -1 - StoichNum(341,671) = 0.13 - StoichNum(341,678) = 0.13 - StoichNum(341,695) = 0.13 - StoichNum(341,704) = -1 - StoichNum(341,712) = -1 - StoichNum(341,737) = 0.15 - StoichNum(341,746) = -1 - StoichNum(341,750) = 0.15 - StoichNum(341,761) = -1 - StoichNum(341,768) = -1 - StoichNum(341,771) = -1 - StoichNum(341,820) = -1 - StoichNum(341,821) = -1 - StoichNum(341,822) = -1 - StoichNum(341,882) = -1 - StoichNum(341,883) = -1 + StoichNum(341,17) = 1 + StoichNum(341,20) = -1 + StoichNum(341,21) = 1 + StoichNum(341,22) = -1 + StoichNum(341,23) = -2 + StoichNum(341,24) = 1 + StoichNum(341,26) = 1 + StoichNum(341,28) = -1 + StoichNum(341,30) = 2 + StoichNum(341,31) = 1.74 + StoichNum(341,34) = 1 + StoichNum(341,39) = -1 + StoichNum(341,40) = 1 + StoichNum(341,42) = -1 + StoichNum(341,44) = 1 + StoichNum(341,47) = 1 + StoichNum(341,48) = 1 + StoichNum(341,50) = 1 + StoichNum(341,51) = 0.05 + StoichNum(341,58) = 1 + StoichNum(341,60) = 1 + StoichNum(341,63) = 1 + StoichNum(341,65) = 1 + StoichNum(341,68) = 0.75 + StoichNum(341,70) = -1 + StoichNum(341,74) = -1 + StoichNum(341,78) = 0.513 + StoichNum(341,79) = -1 + StoichNum(341,80) = 1 + StoichNum(341,81) = 0.425 + StoichNum(341,82) = 1 + StoichNum(341,84) = -0.75 + StoichNum(341,85) = 1 + StoichNum(341,90) = 0.27 + StoichNum(341,93) = 0.27 + StoichNum(341,98) = 1 + StoichNum(341,112) = 1 + StoichNum(341,113) = 1 + StoichNum(341,114) = -1 + StoichNum(341,115) = -1 + StoichNum(341,116) = -1 + StoichNum(341,117) = -1 + StoichNum(341,118) = -1 + StoichNum(341,119) = -1 + StoichNum(341,120) = -1 + StoichNum(341,121) = -1 + StoichNum(341,128) = -1 + StoichNum(341,129) = 1 + StoichNum(341,130) = 1 + StoichNum(341,132) = 0.64 + StoichNum(341,133) = 0.5 + StoichNum(341,134) = 0.64 + StoichNum(341,135) = 0.5 + StoichNum(341,136) = 0.3 + StoichNum(341,137) = 0.5 + StoichNum(341,138) = 1 + StoichNum(341,139) = 0.5 + StoichNum(341,140) = 1 + StoichNum(341,141) = 1 + StoichNum(341,142) = 1.2 + StoichNum(341,143) = 1.2 + StoichNum(341,144) = -1 + StoichNum(341,145) = -1 + StoichNum(341,146) = -1 + StoichNum(341,147) = -1 + StoichNum(341,148) = -1 + StoichNum(341,150) = 0.28 + StoichNum(341,151) = 0.773 + StoichNum(341,153) = 0.2 + StoichNum(341,157) = 1 + StoichNum(341,158) = -0.56 + StoichNum(341,159) = 1 + StoichNum(341,161) = 1 + StoichNum(341,163) = 1 + StoichNum(341,165) = 1 + StoichNum(341,167) = 1 + StoichNum(341,181) = 0.9 + StoichNum(341,182) = 0.243 + StoichNum(341,183) = 0.243 + StoichNum(341,186) = 0.9 + StoichNum(341,190) = 0.9 + StoichNum(341,191) = 0.9 + StoichNum(341,192) = 0.9 + StoichNum(341,193) = 0.9 + StoichNum(341,195) = 1 + StoichNum(341,202) = 1 + StoichNum(341,204) = -1 + StoichNum(341,205) = -1 + StoichNum(341,214) = 1 + StoichNum(341,216) = 1 + StoichNum(341,225) = 1 + StoichNum(341,231) = 0.2 + StoichNum(341,236) = -1 + StoichNum(341,244) = 1 + StoichNum(341,245) = 1 + StoichNum(341,247) = -1 + StoichNum(341,252) = 1 + StoichNum(341,274) = 1 + StoichNum(341,275) = 1 + StoichNum(341,283) = 1 + StoichNum(341,284) = 1 + StoichNum(341,285) = 1 + StoichNum(341,292) = 1 + StoichNum(341,295) = 1 + StoichNum(341,296) = -1 + StoichNum(341,297) = -1 + StoichNum(341,299) = -1 + StoichNum(341,315) = 1 + StoichNum(341,316) = 1 + StoichNum(341,317) = 1 + StoichNum(341,319) = 1 + StoichNum(341,322) = 1 + StoichNum(341,323) = 1 + StoichNum(341,324) = 1 + StoichNum(341,351) = -1 + StoichNum(341,355) = -1 + StoichNum(341,381) = 0.05 + StoichNum(341,384) = -1 + StoichNum(341,385) = 0.75 + StoichNum(341,386) = 1 + StoichNum(341,388) = 0.5 + StoichNum(341,391) = -1 + StoichNum(341,398) = -1 + StoichNum(341,401) = 1 + StoichNum(341,404) = -1 + StoichNum(341,405) = 0.75 + StoichNum(341,406) = 1 + StoichNum(341,407) = 0.5 + StoichNum(341,410) = -1 + StoichNum(341,412) = 1 + StoichNum(341,413) = 1 + StoichNum(341,414) = 1 + StoichNum(341,417) = -1 + StoichNum(341,418) = 0.75 + StoichNum(341,419) = 1 + StoichNum(341,429) = 0.84 + StoichNum(341,430) = -1 + StoichNum(341,431) = 1 + StoichNum(341,432) = 1 + StoichNum(341,436) = -1 + StoichNum(341,443) = -1 + StoichNum(341,445) = 1 + StoichNum(341,446) = 1 + StoichNum(341,453) = 1 + StoichNum(341,455) = 0.5 + StoichNum(341,456) = 1.75 + StoichNum(341,457) = 1 + StoichNum(341,458) = 1.75 + StoichNum(341,459) = 1 + StoichNum(341,460) = 1.75 + StoichNum(341,461) = 1 + StoichNum(341,462) = 1.75 + StoichNum(341,463) = 1 + StoichNum(341,464) = 0.75 + StoichNum(341,466) = 0.75 + StoichNum(341,468) = 1 + StoichNum(341,470) = -1 + StoichNum(341,471) = -1 + StoichNum(341,472) = 2 + StoichNum(341,473) = 0.5 + StoichNum(341,474) = 1 + StoichNum(341,476) = 1 + StoichNum(341,478) = 1 + StoichNum(341,479) = 0.5 + StoichNum(341,493) = 0.16 + StoichNum(341,496) = 0.4 + StoichNum(341,497) = 0.7 + StoichNum(341,498) = -0.937 + StoichNum(341,499) = -1 + StoichNum(341,500) = -0.937 + StoichNum(341,501) = -1 + StoichNum(341,503) = 0.4 + StoichNum(341,505) = 0.7 + StoichNum(341,506) = 2 + StoichNum(341,507) = 2 + StoichNum(341,508) = 2 + StoichNum(341,509) = 1 + StoichNum(341,510) = 1 + StoichNum(341,511) = 1 + StoichNum(341,512) = 2 + StoichNum(341,513) = 1.5 + StoichNum(341,514) = 2 + StoichNum(341,515) = 1.5 + StoichNum(341,517) = 1 + StoichNum(341,519) = 0.45 + StoichNum(341,521) = 1 + StoichNum(341,523) = 0.45 + StoichNum(341,524) = 0.085 + StoichNum(341,525) = 0.165 + StoichNum(341,528) = 0.283 + StoichNum(341,530) = 1 + StoichNum(341,535) = 0.25 + StoichNum(341,536) = 0.33 + StoichNum(341,537) = 0.024 + StoichNum(341,538) = 0.042 + StoichNum(341,540) = 1 + StoichNum(341,542) = -0.725 + StoichNum(341,544) = 1 + StoichNum(341,546) = -0.725 + StoichNum(341,550) = -1 + StoichNum(341,551) = 0.75 + StoichNum(341,552) = 1 + StoichNum(341,554) = 1 + StoichNum(341,556) = 1 + StoichNum(341,558) = -0.35 + StoichNum(341,559) = 1 + StoichNum(341,561) = 1 + StoichNum(341,563) = 1 + StoichNum(341,565) = -0.35 + StoichNum(341,566) = -0.35 + StoichNum(341,568) = 1 + StoichNum(341,569) = 1 + StoichNum(341,571) = -1 + StoichNum(341,573) = -1 + StoichNum(341,582) = 0.4 + StoichNum(341,583) = 0.4 + StoichNum(341,584) = 1 + StoichNum(341,585) = -0.941 + StoichNum(341,586) = 0.272 + StoichNum(341,588) = 1 + StoichNum(341,589) = -0.401 + StoichNum(341,590) = 1 + StoichNum(341,592) = 1 + StoichNum(341,593) = 1 + StoichNum(341,594) = -0.418 + StoichNum(341,595) = 1 + StoichNum(341,597) = -0.494 + StoichNum(341,598) = 1 + StoichNum(341,600) = -0.621 + StoichNum(341,601) = 1 + StoichNum(341,604) = -1 + StoichNum(341,605) = -1 + StoichNum(341,607) = 0.089 + StoichNum(341,608) = 0.064 + StoichNum(341,609) = 0.336 + StoichNum(341,610) = 0.611 + StoichNum(341,612) = 0.159 + StoichNum(341,614) = 0.159 + StoichNum(341,617) = 0.159 + StoichNum(341,619) = 1 + StoichNum(341,631) = -0.674 + StoichNum(341,632) = -0.42 + StoichNum(341,633) = 0.5 + StoichNum(341,635) = 0.904 + StoichNum(341,638) = 0.295 + StoichNum(341,639) = 0.33 + StoichNum(341,640) = -0.67 + StoichNum(341,642) = 0.89 + StoichNum(341,643) = -0.27 + StoichNum(341,645) = 0.1 + StoichNum(341,646) = 0.036 + StoichNum(341,656) = -1 + StoichNum(341,659) = -1 + StoichNum(341,661) = 0.715 + StoichNum(341,663) = 1 + StoichNum(341,665) = 1 + StoichNum(341,666) = 1 + StoichNum(341,667) = -0.695 + StoichNum(341,668) = 0.242 + StoichNum(341,670) = -0.493 + StoichNum(341,671) = -1 + StoichNum(341,674) = 0.86 + StoichNum(341,678) = -1 + StoichNum(341,682) = 0.7 + StoichNum(341,686) = 0.5 + StoichNum(341,687) = 0.444 + StoichNum(341,691) = 0.62 + StoichNum(341,694) = 0.5 + StoichNum(341,695) = -1 + StoichNum(341,702) = 0.7 + StoichNum(341,704) = 0.1 + StoichNum(341,705) = 0.18 + StoichNum(341,707) = 0.03 + StoichNum(341,709) = 1 + StoichNum(341,710) = -1 + StoichNum(341,711) = 1 + StoichNum(341,714) = 0.364 + StoichNum(341,715) = -1 + StoichNum(341,718) = 0.6 + StoichNum(341,719) = 1 + StoichNum(341,720) = 1 + StoichNum(341,724) = 0.54 + StoichNum(341,725) = 0.19 + StoichNum(341,726) = 0.15 + StoichNum(341,728) = 1 + StoichNum(341,729) = 1 + StoichNum(341,730) = 2 + StoichNum(341,731) = 1 + StoichNum(341,733) = 1 + StoichNum(341,734) = -1 + StoichNum(341,737) = -1 + StoichNum(341,741) = 0.8 + StoichNum(341,743) = 0.727 + StoichNum(341,746) = 1 + StoichNum(341,750) = -1 + StoichNum(341,759) = -1 + StoichNum(341,765) = 1 + StoichNum(341,766) = 1 + StoichNum(341,767) = 0.33 + StoichNum(341,768) = 0.1 + StoichNum(341,769) = 0.2 + StoichNum(341,770) = 0.33 + StoichNum(341,771) = 0.1 + StoichNum(341,772) = 0.2 + StoichNum(341,779) = 1 + StoichNum(341,781) = -1 + StoichNum(341,894) = 1 + StoichNum(341,895) = 1 + StoichNum(341,900) = 1 + StoichNum(341,904) = 1 + StoichNum(341,908) = 0.3 + StoichNum(341,909) = 1 + StoichNum(341,910) = 1 + StoichNum(341,914) = 1.73 + StoichNum(341,915) = 2 + StoichNum(341,918) = 1 + StoichNum(341,920) = 1 + StoichNum(341,922) = 1 + StoichNum(341,923) = 1 + StoichNum(341,924) = 1 + StoichNum(341,925) = 1 + StoichNum(341,926) = 1 + StoichNum(341,927) = 1 + StoichNum(341,928) = 1 + StoichNum(341,929) = 1 + StoichNum(341,930) = 1 + StoichNum(341,931) = 1 + StoichNum(341,932) = 1 + StoichNum(341,933) = 0.27 + StoichNum(341,934) = 0.326 + StoichNum(341,935) = 1 + StoichNum(341,936) = 0.27 + StoichNum(341,989) = 1 + StoichNum(341,996) = 1 + StoichNum(341,997) = 1 + StoichNum(341,1005) = 1 + StoichNum(341,1006) = 1 + StoichNum(341,1007) = 1 + StoichNum(341,1008) = 1 + StoichNum(341,1010) = 1 + StoichNum(341,1011) = 1 + StoichNum(341,1013) = 1 + StoichNum(341,1014) = 1.5 + StoichNum(341,1015) = 0.47 + StoichNum(341,1016) = 0.571 + StoichNum(341,1017) = 0.125 + StoichNum(341,1018) = 1 + StoichNum(341,1020) = 0.29 + StoichNum(341,1021) = 1 + StoichNum(341,1022) = 1 + StoichNum(341,1023) = 1 + StoichNum(341,1024) = 1 + StoichNum(341,1025) = 1 + StoichNum(341,1026) = 1 + StoichNum(341,1027) = 0.112 + StoichNum(341,1028) = 0.182 + StoichNum(341,1029) = 1 + StoichNum(341,1030) = 1 + StoichNum(341,1031) = 0.45 + StoichNum(341,1032) = 1 + StoichNum(341,1033) = 1 + StoichNum(341,1034) = 0.45 + StoichNum(341,1035) = 0.33 + StoichNum(341,1036) = 0.159 + StoichNum(341,1038) = 0.161 + StoichNum(341,1039) = 0.228 + StoichNum(341,1040) = 1.5 + StoichNum(341,1041) = 1 + StoichNum(341,1042) = 0.75 + StoichNum(341,1043) = 1 + StoichNum(341,1044) = 1.454 + StoichNum(341,1045) = 0.7 + StoichNum(341,1046) = 0.7 + StoichNum(341,1048) = 1 + StoichNum(341,1050) = 1 + StoichNum(341,1053) = 1 + StoichNum(341,1055) = 1 + StoichNum(341,1056) = 1 + StoichNum(341,1060) = 1 + StoichNum(341,1061) = 1 + StoichNum(341,1064) = 1 + StoichNum(341,1065) = 1 StoichNum(342,203) = -1 StoichNum(342,205) = -1 StoichNum(342,206) = 1 @@ -12032,575 +11755,704 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(342,333) = -1 StoichNum(342,343) = 1 StoichNum(342,344) = 1 - StoichNum(342,931) = 2 - StoichNum(342,932) = 1 - StoichNum(342,933) = 1 - StoichNum(342,934) = 1 - StoichNum(342,936) = 1 - StoichNum(342,937) = 3 StoichNum(342,938) = 2 StoichNum(342,939) = 1 - StoichNum(342,942) = 1 - StoichNum(342,962) = 1 - StoichNum(342,963) = 1 - StoichNum(342,964) = 2 - StoichNum(342,977) = 1 - StoichNum(342,980) = 1 - StoichNum(343,18) = 1 - StoichNum(343,212) = -1 - StoichNum(343,213) = -1 - StoichNum(343,227) = 1 - StoichNum(343,228) = 1 - StoichNum(343,232) = -1 - StoichNum(343,233) = -1 + StoichNum(342,940) = 1 + StoichNum(342,941) = 1 + StoichNum(342,943) = 1 + StoichNum(342,944) = 3 + StoichNum(342,945) = 2 + StoichNum(342,946) = 1 + StoichNum(342,949) = 1 + StoichNum(342,969) = 1 + StoichNum(342,970) = 1 + StoichNum(342,971) = 2 + StoichNum(342,984) = 1 + StoichNum(342,987) = 1 + StoichNum(343,12) = -1 + StoichNum(343,14) = -1 + StoichNum(343,15) = 1 + StoichNum(343,18) = -2 + StoichNum(343,19) = -2 + StoichNum(343,20) = -1 + StoichNum(343,21) = -1 + StoichNum(343,22) = 1 + StoichNum(343,24) = -1 + StoichNum(343,25) = -1 + StoichNum(343,31) = -1 + StoichNum(343,32) = -0.7 + StoichNum(343,33) = -0.7 + StoichNum(343,34) = -1 + StoichNum(343,35) = -1 + StoichNum(343,36) = -1 + StoichNum(343,37) = -1 + StoichNum(343,38) = -1 + StoichNum(343,41) = -1 + StoichNum(343,42) = 1 + StoichNum(343,44) = -1 + StoichNum(343,47) = -1 + StoichNum(343,48) = -1 + StoichNum(343,51) = -1 + StoichNum(343,55) = -1 + StoichNum(343,57) = -1 + StoichNum(343,61) = -1 + StoichNum(343,62) = -1 + StoichNum(343,66) = -1 + StoichNum(343,71) = -0.5 + StoichNum(343,72) = -1 + StoichNum(343,75) = -1 + StoichNum(343,80) = -1 + StoichNum(343,81) = -1 + StoichNum(343,84) = 0.25 + StoichNum(343,88) = -1 + StoichNum(343,89) = -1 + StoichNum(343,102) = -1 + StoichNum(343,103) = -1 + StoichNum(343,104) = -1 + StoichNum(343,105) = -1 + StoichNum(343,108) = -1 + StoichNum(343,111) = -1 + StoichNum(343,118) = 0.15 + StoichNum(343,119) = 0.15 + StoichNum(343,122) = -1 + StoichNum(343,126) = -1 + StoichNum(343,128) = 0.44 + StoichNum(343,140) = -1 + StoichNum(343,141) = -1 + StoichNum(343,148) = 0.44 + StoichNum(343,149) = -1 + StoichNum(343,150) = 0.36 + StoichNum(343,151) = -0.773 + StoichNum(343,153) = -1 + StoichNum(343,158) = 0.44 + StoichNum(343,160) = -1 + StoichNum(343,161) = -1 + StoichNum(343,163) = -1 + StoichNum(343,164) = -1 + StoichNum(343,167) = -1 + StoichNum(343,169) = -0.209 + StoichNum(343,170) = -0.36 + StoichNum(343,171) = -0.36 + StoichNum(343,172) = -0.209 + StoichNum(343,173) = -0.21 + StoichNum(343,174) = -0.21 + StoichNum(343,175) = -1 + StoichNum(343,176) = -0.209 + StoichNum(343,178) = -0.78 + StoichNum(343,199) = -1 + StoichNum(343,200) = -1 + StoichNum(343,202) = -1 + StoichNum(343,206) = -1 + StoichNum(343,211) = -1 + StoichNum(343,212) = 1 + StoichNum(343,213) = 1 + StoichNum(343,214) = -1 + StoichNum(343,223) = -1 + StoichNum(343,224) = -1 + StoichNum(343,225) = -1 + StoichNum(343,226) = 2 + StoichNum(343,229) = 1 + StoichNum(343,231) = 0.75 + StoichNum(343,234) = -1 StoichNum(343,235) = -1 - StoichNum(343,236) = -1 - StoichNum(343,237) = 1 - StoichNum(343,238) = -1 - StoichNum(343,240) = -1 - StoichNum(343,241) = -1 - StoichNum(343,242) = -1 - StoichNum(343,243) = -1 - StoichNum(343,244) = -1 - StoichNum(343,247) = 0.02 - StoichNum(343,248) = 1 - StoichNum(343,249) = 1 - StoichNum(343,250) = 1 - StoichNum(343,251) = -1 - StoichNum(343,252) = -1 - StoichNum(343,253) = 0.12 - StoichNum(343,254) = 0.2 - StoichNum(343,255) = 0.25 - StoichNum(343,256) = 0.21 - StoichNum(343,257) = 0.1 - StoichNum(343,259) = 0.05 - StoichNum(343,260) = 0.3 - StoichNum(343,261) = 0.25 - StoichNum(343,262) = 0.1 - StoichNum(343,263) = 0.14 - StoichNum(343,264) = 0.35 - StoichNum(343,265) = 0.55 - StoichNum(343,266) = 0.31 - StoichNum(343,267) = 0.35 - StoichNum(343,268) = 0.21 - StoichNum(343,269) = 0.1 - StoichNum(343,270) = 0.1 - StoichNum(343,271) = 0.14 - StoichNum(343,272) = 0.25 - StoichNum(343,298) = -1 - StoichNum(343,313) = -1 - StoichNum(343,882) = 1 - StoichNum(343,884) = 2 - StoichNum(343,885) = 1 + StoichNum(343,236) = 1 + StoichNum(343,239) = -1 + StoichNum(343,244) = 1 + StoichNum(343,246) = 1 + StoichNum(343,247) = 1.788 + StoichNum(343,252) = 1 + StoichNum(343,253) = 0.66 + StoichNum(343,254) = 0.6 + StoichNum(343,261) = 0.05 + StoichNum(343,273) = -1 + StoichNum(343,275) = -1 + StoichNum(343,276) = -1 + StoichNum(343,277) = -1 + StoichNum(343,278) = -1 + StoichNum(343,279) = -1 + StoichNum(343,280) = -1 + StoichNum(343,281) = -1 + StoichNum(343,282) = -1 + StoichNum(343,283) = -1 + StoichNum(343,284) = -1 + StoichNum(343,285) = -1 + StoichNum(343,286) = -1 + StoichNum(343,287) = -1 + StoichNum(343,288) = -1 + StoichNum(343,289) = -1 + StoichNum(343,290) = -1 + StoichNum(343,297) = 1 + StoichNum(343,352) = -1 + StoichNum(343,353) = -1 + StoichNum(343,354) = -1 + StoichNum(343,359) = -1 + StoichNum(343,360) = -1 + StoichNum(343,361) = -1 + StoichNum(343,378) = -1 + StoichNum(343,379) = 0.865 + StoichNum(343,380) = -1 + StoichNum(343,381) = 0.8 + StoichNum(343,382) = -1 + StoichNum(343,383) = 0.65 + StoichNum(343,387) = -1 + StoichNum(343,388) = -1 + StoichNum(343,390) = -1 + StoichNum(343,391) = 0.44 + StoichNum(343,396) = -1 + StoichNum(343,397) = -1 + StoichNum(343,402) = -1 + StoichNum(343,403) = -1 + StoichNum(343,407) = -1 + StoichNum(343,408) = -1 + StoichNum(343,409) = -1 + StoichNum(343,415) = -1 + StoichNum(343,416) = -1 + StoichNum(343,420) = -1 + StoichNum(343,421) = 0.6 + StoichNum(343,423) = -1 + StoichNum(343,424) = 0.865 + StoichNum(343,426) = -1 + StoichNum(343,433) = -1 + StoichNum(343,435) = -1 + StoichNum(343,436) = 0.44 + StoichNum(343,441) = -1 + StoichNum(343,442) = -1 + StoichNum(343,447) = -0.7 + StoichNum(343,448) = 0.3 + StoichNum(343,449) = 0.15 + StoichNum(343,450) = -1 + StoichNum(343,453) = -1 + StoichNum(343,454) = 1 + StoichNum(343,481) = -1 + StoichNum(343,482) = -1 + StoichNum(343,488) = -1 + StoichNum(343,489) = -1 + StoichNum(343,490) = -1 + StoichNum(343,491) = -1 + StoichNum(343,492) = -1 + StoichNum(343,493) = 0.28 + StoichNum(343,494) = -1 + StoichNum(343,495) = -1 + StoichNum(343,496) = 0.5 + StoichNum(343,497) = 0.5 + StoichNum(343,498) = 0.063 + StoichNum(343,500) = 0.063 + StoichNum(343,502) = 1 + StoichNum(343,503) = 1.5 + StoichNum(343,504) = 1 + StoichNum(343,505) = 1.5 + StoichNum(343,509) = 1 + StoichNum(343,510) = 1 + StoichNum(343,511) = 1 + StoichNum(343,513) = 0.5 + StoichNum(343,515) = 0.5 + StoichNum(343,519) = 0.55 + StoichNum(343,523) = 0.55 + StoichNum(343,524) = 0.085 + StoichNum(343,525) = 0.165 + StoichNum(343,528) = 0.065 + StoichNum(343,530) = -1 + StoichNum(343,531) = -1 + StoichNum(343,533) = -1 + StoichNum(343,535) = -1 + StoichNum(343,536) = -1 + StoichNum(343,537) = -0.595 + StoichNum(343,538) = -0.255 + StoichNum(343,539) = 1 + StoichNum(343,542) = 0.275 + StoichNum(343,543) = 1 + StoichNum(343,546) = 0.275 + StoichNum(343,548) = 1 + StoichNum(343,550) = 1.3 + StoichNum(343,551) = -1 + StoichNum(343,552) = -1 + StoichNum(343,553) = -1 + StoichNum(343,554) = -1 + StoichNum(343,555) = -1 + StoichNum(343,557) = 1 + StoichNum(343,558) = 0.65 + StoichNum(343,562) = 1 + StoichNum(343,565) = 0.65 + StoichNum(343,566) = 0.65 + StoichNum(343,569) = 1 + StoichNum(343,570) = 1 + StoichNum(343,571) = 2 + StoichNum(343,572) = 1 + StoichNum(343,573) = 2 + StoichNum(343,574) = -1 + StoichNum(343,575) = -1 + StoichNum(343,576) = -1 + StoichNum(343,577) = -1 + StoichNum(343,578) = -1 + StoichNum(343,579) = -1 + StoichNum(343,580) = -1 + StoichNum(343,581) = -1 + StoichNum(343,582) = -0.4 + StoichNum(343,583) = -0.4 + StoichNum(343,585) = 0.518 + StoichNum(343,589) = 0.599 + StoichNum(343,594) = 0.582 + StoichNum(343,597) = 0.506 + StoichNum(343,600) = 0.379 + StoichNum(343,604) = 0.527 + StoichNum(343,621) = -1 + StoichNum(343,622) = -1 + StoichNum(343,625) = -1 + StoichNum(343,626) = -1 + StoichNum(343,627) = -1 + StoichNum(343,629) = 1 + StoichNum(343,630) = 1 + StoichNum(343,631) = 1.147 + StoichNum(343,632) = 0.646 + StoichNum(343,633) = 0.435 + StoichNum(343,635) = 0.096 + StoichNum(343,637) = -1 + StoichNum(343,638) = -0.756 + StoichNum(343,640) = 1 + StoichNum(343,641) = -1 + StoichNum(343,643) = 0.82 + StoichNum(343,644) = -1 + StoichNum(343,645) = 0.08 + StoichNum(343,646) = -1 + StoichNum(343,647) = -1 + StoichNum(343,648) = 0.12 + StoichNum(343,649) = 0.68 + StoichNum(343,650) = -0.98 + StoichNum(343,653) = -1 + StoichNum(343,656) = 1 + StoichNum(343,659) = 1 + StoichNum(343,661) = -0.715 + StoichNum(343,663) = -1 + StoichNum(343,665) = -1 + StoichNum(343,666) = -1 + StoichNum(343,667) = 0.665 + StoichNum(343,670) = 0.59 + StoichNum(343,671) = 0.5 + StoichNum(343,672) = -0.415 + StoichNum(343,673) = 1 + StoichNum(343,678) = 0.5 + StoichNum(343,684) = -1 + StoichNum(343,685) = -0.3 + StoichNum(343,686) = -0.5 + StoichNum(343,687) = -0.556 + StoichNum(343,690) = -1 + StoichNum(343,691) = -0.7 + StoichNum(343,693) = -1 + StoichNum(343,694) = -0.5 + StoichNum(343,695) = 0.5 + StoichNum(343,701) = -1 + StoichNum(343,702) = -1 + StoichNum(343,704) = 0.18 + StoichNum(343,705) = -1 + StoichNum(343,707) = -1 + StoichNum(343,710) = 1 + StoichNum(343,711) = -1 + StoichNum(343,713) = -1 + StoichNum(343,714) = -0.364 + StoichNum(343,721) = -1 + StoichNum(343,722) = -1 + StoichNum(343,724) = -1 + StoichNum(343,725) = -1 + StoichNum(343,726) = -1 + StoichNum(343,727) = 1 + StoichNum(343,732) = -1 + StoichNum(343,735) = -1 + StoichNum(343,737) = 0.44 + StoichNum(343,740) = -1 + StoichNum(343,741) = -1 + StoichNum(343,743) = -1 + StoichNum(343,745) = -1 + StoichNum(343,746) = 1 + StoichNum(343,748) = -1 + StoichNum(343,750) = 0.2 + StoichNum(343,753) = -1 + StoichNum(343,755) = -1 + StoichNum(343,760) = -1 + StoichNum(343,763) = -1 + StoichNum(343,767) = -0.75 + StoichNum(343,768) = 0.1 + StoichNum(343,770) = -0.75 + StoichNum(343,771) = 0.1 + StoichNum(343,780) = -1 + StoichNum(343,791) = -1 + StoichNum(343,792) = -1 + StoichNum(343,888) = -1 + StoichNum(343,893) = 2 StoichNum(343,894) = 1 + StoichNum(343,897) = 1 + StoichNum(343,898) = 1 + StoichNum(343,899) = 1 + StoichNum(343,914) = 0.07 + StoichNum(343,924) = 1 + StoichNum(343,925) = 1 + StoichNum(343,926) = 1 + StoichNum(343,927) = 1 + StoichNum(343,928) = 1 + StoichNum(343,929) = 1 + StoichNum(343,930) = 1 + StoichNum(343,931) = 1 StoichNum(343,932) = 1 - StoichNum(343,944) = 1 - StoichNum(343,945) = 1 - StoichNum(343,968) = 1 - StoichNum(343,988) = 1 - StoichNum(344,5) = 1 - StoichNum(344,790) = -1 - StoichNum(344,792) = -1 - StoichNum(344,801) = -1 - StoichNum(344,803) = -1 - StoichNum(344,811) = -1 - StoichNum(344,816) = -1 - StoichNum(344,847) = -1 - StoichNum(344,851) = -1 - StoichNum(344,855) = -1 - StoichNum(345,12) = -1 - StoichNum(345,14) = -1 - StoichNum(345,15) = 1 - StoichNum(345,18) = -2 - StoichNum(345,19) = -2 - StoichNum(345,20) = -1 - StoichNum(345,21) = -1 + StoichNum(343,937) = 1 + StoichNum(343,940) = 1 + StoichNum(343,957) = 1 + StoichNum(343,974) = 1 + StoichNum(343,991) = 1 + StoichNum(343,994) = 2 + StoichNum(343,996) = 1 + StoichNum(343,1009) = 2 + StoichNum(343,1010) = 1 + StoichNum(343,1015) = 1 + StoichNum(343,1016) = 1 + StoichNum(343,1017) = 1.75 + StoichNum(343,1018) = 1 + StoichNum(343,1019) = 0.75 + StoichNum(343,1020) = 0.01 + StoichNum(343,1022) = 1 + StoichNum(343,1023) = 1 + StoichNum(343,1024) = 1 + StoichNum(343,1025) = 1 + StoichNum(343,1026) = 1 + StoichNum(343,1027) = 1.662 + StoichNum(343,1028) = 1.637 + StoichNum(343,1029) = 1 + StoichNum(343,1030) = 1 + StoichNum(343,1031) = 0.55 + StoichNum(343,1034) = 0.55 + StoichNum(343,1035) = 0.67 + StoichNum(343,1036) = 1 + StoichNum(343,1038) = 0.645 + StoichNum(343,1040) = 0.5 + StoichNum(343,1041) = 1 + StoichNum(343,1042) = 1.25 + StoichNum(343,1043) = 1 + StoichNum(343,1044) = 0.546 + StoichNum(343,1045) = 1 + StoichNum(343,1046) = 0.3 + StoichNum(343,1047) = 1 + StoichNum(343,1049) = 1 + StoichNum(343,1051) = 1 + StoichNum(343,1055) = 1 + StoichNum(343,1057) = 1 + StoichNum(343,1058) = 1 + StoichNum(343,1059) = 1 + StoichNum(343,1060) = 1 + StoichNum(343,1061) = 1 + StoichNum(343,1062) = 1 + StoichNum(343,1063) = 1 + StoichNum(343,1064) = 1 + StoichNum(344,253) = 0.22 + StoichNum(344,255) = 0.75 + StoichNum(344,256) = 0.79 + StoichNum(344,257) = 0.46 + StoichNum(344,261) = 0.56 + StoichNum(344,262) = 0.9 + StoichNum(344,263) = 0.86 + StoichNum(344,264) = 0.34 + StoichNum(344,266) = 0.69 + StoichNum(344,267) = 0.65 + StoichNum(344,268) = 0.79 + StoichNum(344,269) = 0.8 + StoichNum(344,270) = 0.85 + StoichNum(344,271) = 0.86 + StoichNum(344,274) = -1 + StoichNum(344,275) = -1 + StoichNum(344,276) = -1 + StoichNum(344,280) = 1 + StoichNum(344,293) = 1 + StoichNum(344,297) = 1 + StoichNum(344,298) = -1 + StoichNum(344,299) = -1 + StoichNum(344,300) = -1 + StoichNum(344,301) = -1 + StoichNum(344,302) = -2 + StoichNum(344,303) = -2 + StoichNum(344,304) = -2 + StoichNum(344,307) = -2 + StoichNum(344,308) = 2 + StoichNum(344,309) = 0.1 + StoichNum(344,310) = -1 + StoichNum(344,311) = -1 + StoichNum(344,312) = -1 + StoichNum(344,313) = 1 + StoichNum(344,319) = 1 + StoichNum(344,322) = 1 + StoichNum(344,323) = 1 + StoichNum(344,349) = -1 + StoichNum(344,951) = -1 + StoichNum(344,952) = 1 + StoichNum(344,956) = 1 + StoichNum(345,13) = 1 + StoichNum(345,16) = -1 StoichNum(345,22) = 1 - StoichNum(345,24) = -1 - StoichNum(345,25) = -1 - StoichNum(345,31) = -1 - StoichNum(345,32) = -0.7 - StoichNum(345,33) = -0.7 - StoichNum(345,34) = -1 + StoichNum(345,26) = 1 StoichNum(345,35) = -1 - StoichNum(345,36) = -1 - StoichNum(345,37) = -1 - StoichNum(345,38) = -1 - StoichNum(345,41) = -1 + StoichNum(345,38) = 1 + StoichNum(345,39) = -1 + StoichNum(345,40) = 1 + StoichNum(345,41) = 1 StoichNum(345,42) = 1 - StoichNum(345,44) = -1 - StoichNum(345,47) = -1 - StoichNum(345,48) = -1 - StoichNum(345,51) = -1 - StoichNum(345,55) = -1 - StoichNum(345,57) = -1 - StoichNum(345,61) = -1 - StoichNum(345,62) = -1 - StoichNum(345,66) = -1 - StoichNum(345,71) = -0.5 - StoichNum(345,72) = -1 - StoichNum(345,75) = -1 - StoichNum(345,80) = -1 - StoichNum(345,81) = -1 - StoichNum(345,84) = 0.25 - StoichNum(345,88) = -1 - StoichNum(345,89) = -1 - StoichNum(345,102) = -1 - StoichNum(345,103) = -1 - StoichNum(345,104) = -1 - StoichNum(345,105) = -1 - StoichNum(345,108) = -1 - StoichNum(345,111) = -1 - StoichNum(345,118) = 0.15 - StoichNum(345,119) = 0.15 - StoichNum(345,122) = -1 - StoichNum(345,126) = -1 - StoichNum(345,128) = 0.44 - StoichNum(345,140) = -1 - StoichNum(345,141) = -1 - StoichNum(345,148) = 0.44 - StoichNum(345,149) = -1 - StoichNum(345,150) = 0.36 - StoichNum(345,151) = -0.773 - StoichNum(345,153) = -1 - StoichNum(345,158) = 0.44 - StoichNum(345,160) = -1 - StoichNum(345,161) = -1 - StoichNum(345,163) = -1 - StoichNum(345,164) = -1 - StoichNum(345,167) = -1 - StoichNum(345,169) = -0.209 - StoichNum(345,170) = -0.36 - StoichNum(345,171) = -0.36 - StoichNum(345,172) = -0.209 - StoichNum(345,173) = -0.21 - StoichNum(345,174) = -0.21 - StoichNum(345,175) = -1 - StoichNum(345,176) = -0.209 - StoichNum(345,178) = -0.78 - StoichNum(345,199) = -1 - StoichNum(345,200) = -1 - StoichNum(345,202) = -1 - StoichNum(345,206) = -1 - StoichNum(345,211) = -1 - StoichNum(345,212) = 1 - StoichNum(345,213) = 1 - StoichNum(345,214) = -1 - StoichNum(345,223) = -1 - StoichNum(345,224) = -1 - StoichNum(345,225) = -1 - StoichNum(345,226) = 2 - StoichNum(345,229) = 1 - StoichNum(345,231) = 0.75 - StoichNum(345,234) = -1 - StoichNum(345,235) = -1 - StoichNum(345,236) = 1 - StoichNum(345,239) = -1 - StoichNum(345,244) = 1 - StoichNum(345,246) = 1 - StoichNum(345,247) = 1.788 - StoichNum(345,252) = 1 - StoichNum(345,253) = 0.66 - StoichNum(345,254) = 0.6 - StoichNum(345,261) = 0.05 - StoichNum(345,273) = -1 - StoichNum(345,275) = -1 - StoichNum(345,276) = -1 - StoichNum(345,277) = -1 - StoichNum(345,278) = -1 - StoichNum(345,279) = -1 - StoichNum(345,280) = -1 - StoichNum(345,281) = -1 - StoichNum(345,282) = -1 - StoichNum(345,283) = -1 - StoichNum(345,284) = -1 - StoichNum(345,285) = -1 - StoichNum(345,286) = -1 - StoichNum(345,287) = -1 - StoichNum(345,288) = -1 - StoichNum(345,289) = -1 - StoichNum(345,290) = -1 - StoichNum(345,297) = 1 - StoichNum(345,352) = -1 - StoichNum(345,353) = -1 - StoichNum(345,354) = -1 - StoichNum(345,359) = -1 - StoichNum(345,360) = -1 - StoichNum(345,361) = -1 - StoichNum(345,378) = -1 - StoichNum(345,379) = 0.865 - StoichNum(345,380) = -1 - StoichNum(345,381) = 0.8 - StoichNum(345,382) = -1 - StoichNum(345,383) = 0.65 - StoichNum(345,387) = -1 - StoichNum(345,388) = -1 - StoichNum(345,390) = -1 - StoichNum(345,391) = 0.44 - StoichNum(345,396) = -1 - StoichNum(345,397) = -1 - StoichNum(345,402) = -1 - StoichNum(345,403) = -1 - StoichNum(345,407) = -1 - StoichNum(345,408) = -1 - StoichNum(345,409) = -1 - StoichNum(345,415) = -1 - StoichNum(345,416) = -1 - StoichNum(345,420) = -1 - StoichNum(345,421) = 0.6 - StoichNum(345,423) = -1 - StoichNum(345,424) = 0.865 - StoichNum(345,426) = -1 - StoichNum(345,433) = -1 - StoichNum(345,435) = -1 - StoichNum(345,436) = 0.44 - StoichNum(345,441) = -1 - StoichNum(345,442) = -1 - StoichNum(345,447) = -0.7 - StoichNum(345,448) = 0.3 - StoichNum(345,449) = 0.15 - StoichNum(345,450) = -1 - StoichNum(345,453) = -1 - StoichNum(345,454) = 1 - StoichNum(345,481) = -1 - StoichNum(345,482) = -1 - StoichNum(345,488) = -1 - StoichNum(345,489) = -1 - StoichNum(345,490) = -1 - StoichNum(345,491) = -1 - StoichNum(345,492) = -1 - StoichNum(345,493) = 0.28 - StoichNum(345,494) = -1 - StoichNum(345,495) = -1 - StoichNum(345,496) = 0.5 - StoichNum(345,497) = 0.5 - StoichNum(345,498) = 0.063 - StoichNum(345,500) = 0.063 - StoichNum(345,502) = 1 - StoichNum(345,503) = 1.5 - StoichNum(345,504) = 1 - StoichNum(345,505) = 1.5 - StoichNum(345,509) = 1 - StoichNum(345,510) = 1 - StoichNum(345,511) = 1 - StoichNum(345,513) = 0.5 - StoichNum(345,515) = 0.5 - StoichNum(345,519) = 0.55 - StoichNum(345,523) = 0.55 - StoichNum(345,524) = 0.085 - StoichNum(345,525) = 0.165 - StoichNum(345,528) = 0.065 - StoichNum(345,530) = -1 - StoichNum(345,531) = -1 - StoichNum(345,533) = -1 - StoichNum(345,535) = -1 - StoichNum(345,536) = -1 - StoichNum(345,537) = -0.595 - StoichNum(345,538) = -0.255 - StoichNum(345,539) = 1 - StoichNum(345,542) = 0.275 - StoichNum(345,543) = 1 - StoichNum(345,546) = 0.275 + StoichNum(345,43) = 2 + StoichNum(345,44) = 1 + StoichNum(345,45) = -1 + StoichNum(345,46) = 1 + StoichNum(345,53) = -1 + StoichNum(345,54) = 1 + StoichNum(345,55) = 1 + StoichNum(345,56) = 1 + StoichNum(345,58) = 1 + StoichNum(345,60) = 1 + StoichNum(345,63) = 1 + StoichNum(345,65) = 1 + StoichNum(345,68) = 1 + StoichNum(345,73) = 2 + StoichNum(345,76) = 1 + StoichNum(345,78) = 0.942 + StoichNum(345,80) = 1 + StoichNum(345,82) = 1 + StoichNum(345,85) = 1 + StoichNum(345,86) = -1 + StoichNum(345,87) = 1 + StoichNum(345,90) = 1 + StoichNum(345,92) = 2 + StoichNum(345,93) = 1 + StoichNum(345,95) = 2 + StoichNum(345,96) = 1 + StoichNum(345,97) = 0.928 + StoichNum(345,98) = 1 + StoichNum(345,100) = 2 + StoichNum(345,106) = -1 + StoichNum(345,107) = 1 + StoichNum(345,108) = 1 + StoichNum(345,109) = 1 + StoichNum(345,123) = 0.93 + StoichNum(345,124) = -1 + StoichNum(345,125) = 1 + StoichNum(345,126) = 1 + StoichNum(345,127) = 1 + StoichNum(345,133) = 1 + StoichNum(345,135) = 1 + StoichNum(345,139) = 1 + StoichNum(345,155) = -1 + StoichNum(345,156) = 1 + StoichNum(345,157) = 1 + StoichNum(345,159) = 1 + StoichNum(345,160) = 1 + StoichNum(345,187) = 1 + StoichNum(345,188) = 1 + StoichNum(345,189) = 1 + StoichNum(345,196) = 2 + StoichNum(345,197) = -1 + StoichNum(345,198) = 1 + StoichNum(345,209) = 1 + StoichNum(345,215) = 1 + StoichNum(345,221) = -1 + StoichNum(345,222) = -1 + StoichNum(345,240) = -1 + StoichNum(345,241) = 1 + StoichNum(345,242) = 1 + StoichNum(345,243) = -1 + StoichNum(345,250) = -1 + StoichNum(345,281) = 1 + StoichNum(345,300) = 1 + StoichNum(345,301) = -1 + StoichNum(345,336) = -1 + StoichNum(345,337) = 1 + StoichNum(345,338) = 2 + StoichNum(345,340) = -1 + StoichNum(345,341) = 1 + StoichNum(345,348) = 1 + StoichNum(345,356) = 1 + StoichNum(345,360) = 1 + StoichNum(345,361) = 1 + StoichNum(345,363) = 1 + StoichNum(345,364) = -1 + StoichNum(345,370) = 1 + StoichNum(345,371) = -1 + StoichNum(345,385) = 0.75 + StoichNum(345,386) = 1 + StoichNum(345,388) = 0.5 + StoichNum(345,392) = 1 + StoichNum(345,393) = -1 + StoichNum(345,394) = 1 + StoichNum(345,395) = 1 + StoichNum(345,399) = 0.84 + StoichNum(345,400) = 1 + StoichNum(345,403) = 0.5 + StoichNum(345,405) = 0.75 + StoichNum(345,406) = 1 + StoichNum(345,407) = 0.5 + StoichNum(345,412) = 1 + StoichNum(345,414) = 1 + StoichNum(345,416) = 0.5 + StoichNum(345,418) = 0.75 + StoichNum(345,419) = 1 + StoichNum(345,426) = 0.5 + StoichNum(345,427) = 0.5 + StoichNum(345,428) = 1 + StoichNum(345,429) = 0.84 + StoichNum(345,431) = 1 + StoichNum(345,434) = 1 + StoichNum(345,435) = 0.5 + StoichNum(345,437) = 1 + StoichNum(345,438) = -1 + StoichNum(345,439) = 1 + StoichNum(345,440) = 1 + StoichNum(345,445) = 1 + StoichNum(345,446) = 1 + StoichNum(345,449) = 0.5 + StoichNum(345,450) = 0.3 + StoichNum(345,451) = 0.3 + StoichNum(345,452) = 1.15 + StoichNum(345,455) = 0.5 + StoichNum(345,468) = 1 + StoichNum(345,469) = 2 + StoichNum(345,473) = 0.5 + StoichNum(345,475) = 1 + StoichNum(345,476) = 1 + StoichNum(345,477) = 2 + StoichNum(345,479) = 0.5 + StoichNum(345,480) = 1 + StoichNum(345,489) = 1 + StoichNum(345,490) = 1 + StoichNum(345,491) = 1 + StoichNum(345,492) = 1 + StoichNum(345,517) = 1 + StoichNum(345,519) = 1 + StoichNum(345,521) = 1 + StoichNum(345,523) = 1 + StoichNum(345,540) = 1 + StoichNum(345,544) = 1 StoichNum(345,548) = 1 - StoichNum(345,550) = 1.3 - StoichNum(345,551) = -1 - StoichNum(345,552) = -1 - StoichNum(345,553) = -1 - StoichNum(345,554) = -1 - StoichNum(345,555) = -1 - StoichNum(345,557) = 1 - StoichNum(345,558) = 0.65 - StoichNum(345,562) = 1 - StoichNum(345,565) = 0.65 - StoichNum(345,566) = 0.65 - StoichNum(345,569) = 1 + StoichNum(345,559) = 1 + StoichNum(345,563) = 1 + StoichNum(345,568) = 1 StoichNum(345,570) = 1 - StoichNum(345,571) = 2 StoichNum(345,572) = 1 - StoichNum(345,573) = 2 - StoichNum(345,574) = -1 - StoichNum(345,575) = -1 - StoichNum(345,576) = -1 - StoichNum(345,577) = -1 - StoichNum(345,578) = -1 - StoichNum(345,579) = -1 - StoichNum(345,580) = -1 - StoichNum(345,581) = -1 - StoichNum(345,582) = -0.4 - StoichNum(345,583) = -0.4 - StoichNum(345,585) = 0.518 - StoichNum(345,589) = 0.599 - StoichNum(345,594) = 0.582 - StoichNum(345,597) = 0.506 - StoichNum(345,600) = 0.379 + StoichNum(345,575) = 1 + StoichNum(345,577) = 1 + StoichNum(345,578) = 1 + StoichNum(345,580) = 1 + StoichNum(345,585) = 0.459 + StoichNum(345,586) = 1.728 + StoichNum(345,590) = 1 + StoichNum(345,595) = 1 + StoichNum(345,598) = 1 + StoichNum(345,601) = 1 StoichNum(345,604) = 0.527 - StoichNum(345,621) = -1 - StoichNum(345,622) = -1 - StoichNum(345,625) = -1 - StoichNum(345,626) = -1 - StoichNum(345,627) = -1 - StoichNum(345,629) = 1 - StoichNum(345,630) = 1 - StoichNum(345,631) = 1.147 - StoichNum(345,632) = 0.646 - StoichNum(345,633) = 0.435 - StoichNum(345,635) = 0.096 - StoichNum(345,637) = -1 - StoichNum(345,638) = -0.756 - StoichNum(345,640) = 1 - StoichNum(345,641) = -1 - StoichNum(345,643) = 0.82 - StoichNum(345,644) = -1 - StoichNum(345,645) = 0.08 - StoichNum(345,646) = -1 - StoichNum(345,647) = -1 - StoichNum(345,648) = 0.12 - StoichNum(345,649) = 0.68 - StoichNum(345,650) = -0.98 - StoichNum(345,653) = -1 - StoichNum(345,656) = 1 - StoichNum(345,659) = 1 - StoichNum(345,661) = -0.715 - StoichNum(345,663) = -1 - StoichNum(345,665) = -1 - StoichNum(345,666) = -1 - StoichNum(345,667) = 0.665 - StoichNum(345,670) = 0.59 - StoichNum(345,671) = 0.5 - StoichNum(345,672) = -0.415 - StoichNum(345,673) = 1 + StoichNum(345,606) = 1.86 + StoichNum(345,607) = 0.563 + StoichNum(345,610) = 0.611 + StoichNum(345,611) = 1 + StoichNum(345,613) = 2 + StoichNum(345,614) = 1 + StoichNum(345,615) = 2 + StoichNum(345,617) = 1 + StoichNum(345,625) = 1 + StoichNum(345,631) = 0.058 + StoichNum(345,633) = 1.065 + StoichNum(345,635) = 1 + StoichNum(345,637) = 1 + StoichNum(345,639) = 1 + StoichNum(345,641) = 0.565 + StoichNum(345,642) = 1.11 + StoichNum(345,643) = 0.09 + StoichNum(345,650) = 0.31 + StoichNum(345,655) = 1 + StoichNum(345,657) = -1 + StoichNum(345,658) = 1 + StoichNum(345,660) = -1 + StoichNum(345,668) = 1 + StoichNum(345,674) = 1 + StoichNum(345,676) = 1 + StoichNum(345,677) = -1 StoichNum(345,678) = 0.5 - StoichNum(345,684) = -1 - StoichNum(345,685) = -0.3 - StoichNum(345,686) = -0.5 - StoichNum(345,687) = -0.556 - StoichNum(345,690) = -1 - StoichNum(345,691) = -0.7 - StoichNum(345,693) = -1 - StoichNum(345,694) = -0.5 - StoichNum(345,695) = 0.5 - StoichNum(345,701) = -1 - StoichNum(345,702) = -1 - StoichNum(345,704) = 0.18 - StoichNum(345,705) = -1 - StoichNum(345,707) = -1 - StoichNum(345,710) = 1 - StoichNum(345,711) = -1 - StoichNum(345,713) = -1 - StoichNum(345,714) = -0.364 - StoichNum(345,721) = -1 - StoichNum(345,722) = -1 - StoichNum(345,724) = -1 - StoichNum(345,725) = -1 - StoichNum(345,726) = -1 - StoichNum(345,727) = 1 - StoichNum(345,732) = -1 - StoichNum(345,735) = -1 - StoichNum(345,737) = 0.44 - StoichNum(345,740) = -1 - StoichNum(345,741) = -1 - StoichNum(345,743) = -1 - StoichNum(345,745) = -1 - StoichNum(345,746) = 1 - StoichNum(345,748) = -1 - StoichNum(345,750) = 0.2 - StoichNum(345,753) = -1 - StoichNum(345,755) = -1 - StoichNum(345,760) = -1 - StoichNum(345,763) = -1 - StoichNum(345,767) = -0.75 - StoichNum(345,768) = 0.1 - StoichNum(345,770) = -0.75 - StoichNum(345,771) = 0.1 - StoichNum(345,780) = -1 - StoichNum(345,791) = -1 - StoichNum(345,792) = -1 - StoichNum(345,886) = 2 - StoichNum(345,887) = 1 - StoichNum(345,890) = 1 - StoichNum(345,891) = 1 - StoichNum(345,892) = 1 - StoichNum(345,907) = 0.07 - StoichNum(345,917) = 1 - StoichNum(345,918) = 1 - StoichNum(345,919) = 1 - StoichNum(345,920) = 1 - StoichNum(345,921) = 1 - StoichNum(345,922) = 1 - StoichNum(345,923) = 1 + StoichNum(345,679) = 2 + StoichNum(345,681) = 2 + StoichNum(345,682) = 0.7 + StoichNum(345,683) = 1 + StoichNum(345,690) = 1 + StoichNum(345,691) = 0.022 + StoichNum(345,692) = 1 + StoichNum(345,703) = 1 + StoichNum(345,709) = 0.89 + StoichNum(345,711) = 1 + StoichNum(345,716) = 0.995 + StoichNum(345,717) = 1 + StoichNum(345,721) = 1 + StoichNum(345,728) = 1 + StoichNum(345,729) = 1 + StoichNum(345,733) = 1 + StoichNum(345,736) = 1 + StoichNum(345,738) = -1 + StoichNum(345,739) = 1 + StoichNum(345,740) = 1 + StoichNum(345,751) = 1 + StoichNum(345,752) = -1 + StoichNum(345,754) = 1 + StoichNum(345,755) = 1 + StoichNum(345,756) = -1 + StoichNum(345,757) = 1 + StoichNum(345,758) = 1 + StoichNum(345,762) = -1 + StoichNum(345,763) = 0.5 + StoichNum(345,764) = 1 + StoichNum(345,779) = 1 + StoichNum(345,782) = -1 + StoichNum(345,885) = -1 + StoichNum(345,892) = -1 + StoichNum(345,897) = 1 + StoichNum(345,900) = 1 + StoichNum(345,901) = 1 + StoichNum(345,903) = 1 + StoichNum(345,906) = 0.7 + StoichNum(345,907) = 1 StoichNum(345,924) = 1 - StoichNum(345,925) = 1 - StoichNum(345,930) = 1 StoichNum(345,933) = 1 - StoichNum(345,950) = 1 - StoichNum(345,967) = 1 - StoichNum(345,984) = 1 - StoichNum(345,987) = 2 - StoichNum(345,989) = 1 - StoichNum(345,1002) = 2 - StoichNum(345,1003) = 1 + StoichNum(345,934) = 1 + StoichNum(345,935) = 1 + StoichNum(345,936) = 1 + StoichNum(345,942) = 1 + StoichNum(345,943) = 1 + StoichNum(345,954) = 1 + StoichNum(345,956) = 1 + StoichNum(345,978) = 1 + StoichNum(345,990) = 1 + StoichNum(345,997) = 1 + StoichNum(345,998) = 1 + StoichNum(345,999) = 1 + StoichNum(345,1000) = 1 + StoichNum(345,1002) = 1 + StoichNum(345,1004) = 1 + StoichNum(345,1005) = 1 + StoichNum(345,1006) = 1 + StoichNum(345,1007) = 1 StoichNum(345,1008) = 1 - StoichNum(345,1009) = 1 - StoichNum(345,1010) = 1.75 - StoichNum(345,1011) = 1 - StoichNum(345,1012) = 0.75 - StoichNum(345,1013) = 0.01 - StoichNum(345,1015) = 1 - StoichNum(345,1016) = 1 - StoichNum(345,1017) = 1 - StoichNum(345,1018) = 1 - StoichNum(345,1019) = 1 - StoichNum(345,1020) = 1.662 - StoichNum(345,1021) = 1.637 - StoichNum(345,1022) = 1 - StoichNum(345,1023) = 1 - StoichNum(345,1024) = 0.55 - StoichNum(345,1027) = 0.55 - StoichNum(345,1028) = 0.67 - StoichNum(345,1029) = 1 - StoichNum(345,1031) = 0.645 - StoichNum(345,1033) = 0.5 + StoichNum(345,1012) = 1 + StoichNum(345,1020) = 0.7 + StoichNum(345,1021) = 1 + StoichNum(345,1031) = 1 + StoichNum(345,1032) = 1 + StoichNum(345,1033) = 1 StoichNum(345,1034) = 1 - StoichNum(345,1035) = 1.25 - StoichNum(345,1036) = 1 - StoichNum(345,1037) = 0.546 + StoichNum(345,1035) = 1 + StoichNum(345,1037) = 1 StoichNum(345,1038) = 1 - StoichNum(345,1039) = 0.3 - StoichNum(345,1040) = 1 - StoichNum(345,1042) = 1 - StoichNum(345,1044) = 1 + StoichNum(345,1039) = 1.555 + StoichNum(345,1045) = 0.3 + StoichNum(345,1046) = 1 + StoichNum(345,1047) = 1 StoichNum(345,1048) = 1 - StoichNum(345,1050) = 1 - StoichNum(345,1051) = 1 - StoichNum(345,1052) = 1 - StoichNum(345,1053) = 1 - StoichNum(345,1054) = 1 - StoichNum(345,1055) = 1 - StoichNum(345,1056) = 1 - StoichNum(345,1057) = 1 - StoichNum(346,13) = -1 - StoichNum(346,22) = -1 - StoichNum(346,26) = -1 - StoichNum(346,27) = -1 - StoichNum(346,37) = -1 - StoichNum(346,43) = -1 - StoichNum(346,49) = 1 - StoichNum(346,56) = -1 - StoichNum(346,58) = -1 - StoichNum(346,59) = -1 - StoichNum(346,60) = -1 - StoichNum(346,63) = -1 - StoichNum(346,64) = -1 - StoichNum(346,65) = -1 - StoichNum(346,68) = -1 - StoichNum(346,69) = -1 - StoichNum(346,73) = -1 - StoichNum(346,78) = -1 - StoichNum(346,82) = -1 - StoichNum(346,85) = -1 - StoichNum(346,90) = -1 - StoichNum(346,91) = -1 - StoichNum(346,92) = -1 - StoichNum(346,93) = -1 - StoichNum(346,94) = -1 - StoichNum(346,95) = -1 - StoichNum(346,96) = -1 - StoichNum(346,97) = -1 - StoichNum(346,98) = -1 - StoichNum(346,99) = -1 - StoichNum(346,100) = -1 - StoichNum(346,109) = -1 - StoichNum(346,123) = -1 - StoichNum(346,127) = -1 - StoichNum(346,157) = -1 - StoichNum(346,209) = -1 - StoichNum(346,230) = 1.22 - StoichNum(346,240) = 1 - StoichNum(346,242) = -1 - StoichNum(346,248) = 1 - StoichNum(346,249) = -1 - StoichNum(346,300) = -1 - StoichNum(346,334) = -1 - StoichNum(346,335) = 2 - StoichNum(346,348) = -1 - StoichNum(346,356) = -1 - StoichNum(346,363) = -1 - StoichNum(346,370) = -1 - StoichNum(346,385) = -1 - StoichNum(346,392) = -1 - StoichNum(346,399) = -1 - StoichNum(346,405) = -1 - StoichNum(346,411) = -1 - StoichNum(346,412) = -1 - StoichNum(346,418) = -1 - StoichNum(346,429) = -1 - StoichNum(346,437) = -1 - StoichNum(346,444) = -1 - StoichNum(346,445) = -1 - StoichNum(346,468) = -1 - StoichNum(346,469) = -1 - StoichNum(346,516) = -1 - StoichNum(346,517) = -1 - StoichNum(346,518) = -1 - StoichNum(346,519) = -1 - StoichNum(346,520) = -1 - StoichNum(346,521) = -1 - StoichNum(346,522) = -1 - StoichNum(346,523) = -1 - StoichNum(346,540) = -1 - StoichNum(346,541) = -1 - StoichNum(346,544) = -1 - StoichNum(346,545) = -1 - StoichNum(346,548) = -1 - StoichNum(346,549) = -1 - StoichNum(346,559) = -1 - StoichNum(346,560) = -1 - StoichNum(346,563) = -1 - StoichNum(346,564) = -1 - StoichNum(346,567) = -1 - StoichNum(346,568) = -1 - StoichNum(346,570) = -1 - StoichNum(346,572) = -1 - StoichNum(346,586) = -1 - StoichNum(346,587) = -1 - StoichNum(346,590) = -1 - StoichNum(346,591) = -1 - StoichNum(346,595) = -1 - StoichNum(346,596) = -1 - StoichNum(346,598) = -1 - StoichNum(346,599) = -1 - StoichNum(346,601) = -1 - StoichNum(346,602) = -1 - StoichNum(346,615) = -1 - StoichNum(346,616) = -1 - StoichNum(346,617) = -1 - StoichNum(346,618) = -1 - StoichNum(346,633) = -1 - StoichNum(346,634) = -1 - StoichNum(346,635) = -1 - StoichNum(346,636) = -1 - StoichNum(346,639) = -1 - StoichNum(346,642) = -1 - StoichNum(346,655) = -1 - StoichNum(346,658) = -1 - StoichNum(346,668) = -1 - StoichNum(346,669) = -1 - StoichNum(346,674) = -1 - StoichNum(346,675) = -1 - StoichNum(346,676) = -1 - StoichNum(346,679) = -1 - StoichNum(346,709) = -1 - StoichNum(346,716) = -1 - StoichNum(346,728) = -1 - StoichNum(346,733) = -1 - StoichNum(346,736) = -1 - StoichNum(346,751) = -1 - StoichNum(346,757) = -1 - StoichNum(346,885) = 1 - StoichNum(346,891) = 1 - StoichNum(346,895) = 1 - StoichNum(346,970) = 1 - StoichNum(346,988) = -1 + StoichNum(345,1054) = 0.7 + StoichNum(346,5) = 1 + StoichNum(346,790) = -1 + StoichNum(346,792) = -1 + StoichNum(346,801) = -1 + StoichNum(346,803) = -1 + StoichNum(346,811) = -1 + StoichNum(346,816) = -1 + StoichNum(346,847) = -1 + StoichNum(346,851) = -1 + StoichNum(346,855) = -1 StoichNum(347,203) = 1 StoichNum(347,204) = -1 StoichNum(347,207) = -2 @@ -12623,28 +12475,102 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(347,312) = -1 StoichNum(347,343) = -1 StoichNum(347,344) = -1 - StoichNum(347,932) = -1 - StoichNum(347,935) = 1 - StoichNum(348,1) = -1 - StoichNum(348,4) = -1 - StoichNum(348,7) = -1 - StoichNum(348,8) = -1 - StoichNum(348,9) = -1 - StoichNum(348,10) = -1 - StoichNum(348,11) = 1 - StoichNum(348,12) = -1 - StoichNum(348,199) = 1 - StoichNum(348,200) = 0.75 - StoichNum(348,201) = 1 - StoichNum(348,202) = -1 - StoichNum(348,238) = 1 - StoichNum(348,239) = 1 - StoichNum(348,368) = -1 - StoichNum(348,372) = -1 - StoichNum(348,812) = -1 - StoichNum(348,819) = -1 - StoichNum(348,986) = 1 - StoichNum(348,987) = 1 + StoichNum(347,939) = -1 + StoichNum(347,942) = 1 + StoichNum(348,16) = 1 + StoichNum(348,36) = 1 + StoichNum(348,42) = -1 + StoichNum(348,43) = -1 + StoichNum(348,44) = -1 + StoichNum(348,45) = -1 + StoichNum(348,46) = 1 + StoichNum(348,49) = -1 + StoichNum(348,50) = -1 + StoichNum(348,52) = -1 + StoichNum(348,67) = -1 + StoichNum(348,76) = -1 + StoichNum(348,88) = 1 + StoichNum(348,101) = -1 + StoichNum(348,110) = -1 + StoichNum(348,131) = -1 + StoichNum(348,154) = -1 + StoichNum(348,159) = -1 + StoichNum(348,162) = -1 + StoichNum(348,165) = -1 + StoichNum(348,166) = -1 + StoichNum(348,179) = -1 + StoichNum(348,196) = -2 + StoichNum(348,201) = -1 + StoichNum(348,210) = 1 + StoichNum(348,215) = -1 + StoichNum(348,241) = -1 + StoichNum(348,243) = 1 + StoichNum(348,282) = 1 + StoichNum(348,313) = 1 + StoichNum(348,314) = 1 + StoichNum(348,339) = -1 + StoichNum(348,342) = 1 + StoichNum(348,364) = 1 + StoichNum(348,371) = 1 + StoichNum(348,375) = -1 + StoichNum(348,376) = -1 + StoichNum(348,377) = -1 + StoichNum(348,386) = -1 + StoichNum(348,389) = -1 + StoichNum(348,395) = -1 + StoichNum(348,400) = -1 + StoichNum(348,406) = -1 + StoichNum(348,414) = -1 + StoichNum(348,419) = -1 + StoichNum(348,422) = -1 + StoichNum(348,425) = -1 + StoichNum(348,428) = -1 + StoichNum(348,431) = -1 + StoichNum(348,434) = -1 + StoichNum(348,440) = -1 + StoichNum(348,446) = -1 + StoichNum(348,449) = -1 + StoichNum(348,452) = -1 + StoichNum(348,455) = -1 + StoichNum(348,476) = -1 + StoichNum(348,477) = -1 + StoichNum(348,484) = -1 + StoichNum(348,485) = -1 + StoichNum(348,488) = 1 + StoichNum(348,603) = -1 + StoichNum(348,613) = -1 + StoichNum(348,614) = -1 + StoichNum(348,649) = -1 + StoichNum(348,650) = 0.69 + StoichNum(348,681) = -1 + StoichNum(348,684) = 1 + StoichNum(348,692) = -1 + StoichNum(348,703) = -1 + StoichNum(348,706) = -1 + StoichNum(348,708) = -1 + StoichNum(348,717) = -1 + StoichNum(348,729) = -1 + StoichNum(348,742) = -1 + StoichNum(348,744) = -1 + StoichNum(348,747) = -1 + StoichNum(348,749) = -1 + StoichNum(348,756) = 1 + StoichNum(348,758) = -1 + StoichNum(348,764) = -1 + StoichNum(348,779) = -1 + StoichNum(348,783) = -1 + StoichNum(348,784) = -1 + StoichNum(348,785) = -1 + StoichNum(348,899) = 1 + StoichNum(348,901) = -1 + StoichNum(348,902) = -1 + StoichNum(348,903) = 1 + StoichNum(348,906) = 0.3 + StoichNum(348,941) = 1 + StoichNum(348,955) = 1 + StoichNum(348,979) = 1 + StoichNum(348,989) = 1 + StoichNum(348,1054) = 0.3 StoichNum(349,798) = -1 StoichNum(349,805) = -1 StoichNum(349,817) = -1 @@ -12661,128 +12587,293 @@ SUBROUTINE CalcStoichNum ( StoichNum ) StoichNum(350,845) = -1 StoichNum(350,849) = -1 StoichNum(350,853) = -1 - StoichNum(351,16) = 1 - StoichNum(351,36) = 1 - StoichNum(351,42) = -1 - StoichNum(351,43) = -1 - StoichNum(351,44) = -1 - StoichNum(351,45) = -1 - StoichNum(351,46) = 1 - StoichNum(351,49) = -1 - StoichNum(351,50) = -1 - StoichNum(351,52) = -1 - StoichNum(351,67) = -1 - StoichNum(351,76) = -1 - StoichNum(351,88) = 1 - StoichNum(351,101) = -1 - StoichNum(351,110) = -1 - StoichNum(351,131) = -1 - StoichNum(351,154) = -1 - StoichNum(351,159) = -1 - StoichNum(351,162) = -1 - StoichNum(351,165) = -1 - StoichNum(351,166) = -1 - StoichNum(351,179) = -1 - StoichNum(351,196) = -2 - StoichNum(351,201) = -1 - StoichNum(351,210) = 1 - StoichNum(351,215) = -1 + StoichNum(351,18) = 1 + StoichNum(351,212) = -1 + StoichNum(351,213) = -1 + StoichNum(351,227) = 1 + StoichNum(351,228) = 1 + StoichNum(351,232) = -1 + StoichNum(351,233) = -1 + StoichNum(351,235) = -1 + StoichNum(351,236) = -1 + StoichNum(351,237) = 1 + StoichNum(351,238) = -1 + StoichNum(351,240) = -1 StoichNum(351,241) = -1 - StoichNum(351,243) = 1 - StoichNum(351,282) = 1 - StoichNum(351,313) = 1 - StoichNum(351,314) = 1 - StoichNum(351,339) = -1 - StoichNum(351,342) = 1 - StoichNum(351,364) = 1 - StoichNum(351,371) = 1 - StoichNum(351,375) = -1 - StoichNum(351,376) = -1 - StoichNum(351,377) = -1 - StoichNum(351,386) = -1 - StoichNum(351,389) = -1 - StoichNum(351,395) = -1 - StoichNum(351,400) = -1 - StoichNum(351,406) = -1 - StoichNum(351,414) = -1 - StoichNum(351,419) = -1 - StoichNum(351,422) = -1 - StoichNum(351,425) = -1 - StoichNum(351,428) = -1 - StoichNum(351,431) = -1 - StoichNum(351,434) = -1 - StoichNum(351,440) = -1 - StoichNum(351,446) = -1 - StoichNum(351,449) = -1 - StoichNum(351,452) = -1 - StoichNum(351,455) = -1 - StoichNum(351,476) = -1 - StoichNum(351,477) = -1 - StoichNum(351,484) = -1 - StoichNum(351,485) = -1 - StoichNum(351,488) = 1 - StoichNum(351,603) = -1 - StoichNum(351,613) = -1 - StoichNum(351,614) = -1 - StoichNum(351,649) = -1 - StoichNum(351,650) = 0.69 - StoichNum(351,681) = -1 - StoichNum(351,684) = 1 - StoichNum(351,692) = -1 - StoichNum(351,703) = -1 - StoichNum(351,706) = -1 - StoichNum(351,708) = -1 - StoichNum(351,717) = -1 - StoichNum(351,729) = -1 - StoichNum(351,742) = -1 - StoichNum(351,744) = -1 - StoichNum(351,747) = -1 - StoichNum(351,749) = -1 - StoichNum(351,756) = 1 - StoichNum(351,758) = -1 - StoichNum(351,764) = -1 - StoichNum(351,779) = -1 - StoichNum(351,783) = -1 - StoichNum(351,784) = -1 - StoichNum(351,785) = -1 + StoichNum(351,242) = -1 + StoichNum(351,243) = -1 + StoichNum(351,244) = -1 + StoichNum(351,247) = 0.02 + StoichNum(351,248) = 1 + StoichNum(351,249) = 1 + StoichNum(351,250) = 1 + StoichNum(351,251) = -1 + StoichNum(351,252) = -1 + StoichNum(351,253) = 0.12 + StoichNum(351,254) = 0.2 + StoichNum(351,255) = 0.25 + StoichNum(351,256) = 0.21 + StoichNum(351,257) = 0.1 + StoichNum(351,259) = 0.05 + StoichNum(351,260) = 0.3 + StoichNum(351,261) = 0.25 + StoichNum(351,262) = 0.1 + StoichNum(351,263) = 0.14 + StoichNum(351,264) = 0.35 + StoichNum(351,265) = 0.55 + StoichNum(351,266) = 0.31 + StoichNum(351,267) = 0.35 + StoichNum(351,268) = 0.21 + StoichNum(351,269) = 0.1 + StoichNum(351,270) = 0.1 + StoichNum(351,271) = 0.14 + StoichNum(351,272) = 0.25 + StoichNum(351,298) = -1 + StoichNum(351,313) = -1 + StoichNum(351,889) = 1 + StoichNum(351,891) = 2 StoichNum(351,892) = 1 - StoichNum(351,894) = -1 - StoichNum(351,895) = -1 - StoichNum(351,896) = 1 - StoichNum(351,899) = 0.3 - StoichNum(351,934) = 1 - StoichNum(351,948) = 1 - StoichNum(351,972) = 1 - StoichNum(351,982) = 1 - StoichNum(351,1047) = 0.3 - StoichNum(352,205) = 1 - StoichNum(352,206) = -1 - StoichNum(352,213) = -1 - StoichNum(352,216) = 1 - StoichNum(352,217) = 1 - StoichNum(352,218) = 1 - StoichNum(352,219) = 1 - StoichNum(352,220) = 1 - StoichNum(352,254) = -0.8 - StoichNum(352,333) = 1 - StoichNum(352,797) = -1 - StoichNum(352,807) = -1 - StoichNum(352,809) = -1 - StoichNum(352,813) = -1 - StoichNum(352,819) = 1 - StoichNum(352,820) = -1 - StoichNum(352,823) = -1 - StoichNum(352,824) = -1 - StoichNum(353,2) = 1 - StoichNum(353,789) = -1 - StoichNum(353,791) = -1 - StoichNum(353,800) = -1 - StoichNum(353,802) = -1 - StoichNum(353,810) = -1 - StoichNum(353,815) = -1 - StoichNum(353,846) = -1 - StoichNum(353,850) = -1 - StoichNum(353,854) = -1 + StoichNum(351,901) = 1 + StoichNum(351,939) = 1 + StoichNum(351,951) = 1 + StoichNum(351,952) = 1 + StoichNum(351,975) = 1 + StoichNum(351,995) = 1 + StoichNum(352,253) = 0.66 + StoichNum(352,255) = 0.75 + StoichNum(352,256) = 2.37 + StoichNum(352,257) = 0.35 + StoichNum(352,261) = 0.19 + StoichNum(352,262) = 1.8 + StoichNum(352,263) = 0.86 + StoichNum(352,264) = 0.31 + StoichNum(352,266) = 0.69 + StoichNum(352,268) = 0.79 + StoichNum(352,269) = 1.9 + StoichNum(352,270) = 0.95 + StoichNum(352,273) = 1 + StoichNum(352,275) = 1 + StoichNum(352,279) = 1 + StoichNum(352,283) = 1 + StoichNum(352,284) = 2 + StoichNum(352,285) = 3 + StoichNum(352,286) = 3 + StoichNum(352,287) = 1 + StoichNum(352,288) = 2 + StoichNum(352,289) = 1 + StoichNum(352,290) = 2 + StoichNum(352,291) = -1 + StoichNum(352,292) = -1 + StoichNum(352,293) = -1 + StoichNum(352,294) = -1 + StoichNum(352,295) = -1 + StoichNum(352,296) = -1 + StoichNum(352,297) = -1 + StoichNum(352,298) = 1 + StoichNum(352,300) = 1 + StoichNum(352,303) = 1 + StoichNum(352,304) = 1 + StoichNum(352,305) = -1 + StoichNum(352,306) = 1 + StoichNum(352,309) = -1 + StoichNum(352,314) = -1 + StoichNum(352,315) = -1 + StoichNum(352,316) = 1 + StoichNum(352,317) = 2 + StoichNum(352,318) = -1 + StoichNum(352,319) = -1 + StoichNum(352,320) = -1 + StoichNum(352,321) = -1 + StoichNum(352,322) = -1 + StoichNum(352,323) = -1 + StoichNum(352,324) = -1 + StoichNum(352,325) = -1 + StoichNum(352,326) = -1 + StoichNum(352,327) = -1 + StoichNum(352,328) = -1 + StoichNum(352,329) = -1 + StoichNum(352,330) = -1 + StoichNum(352,331) = -1 + StoichNum(352,332) = -1 + StoichNum(352,349) = 0.249 + StoichNum(352,947) = 1 + StoichNum(352,948) = 2 + StoichNum(352,949) = 1 + StoichNum(352,950) = 2 + StoichNum(352,951) = 1 + StoichNum(352,953) = 1 + StoichNum(352,954) = 1 + StoichNum(352,955) = 1 + StoichNum(352,957) = 1 + StoichNum(352,958) = 3 + StoichNum(352,959) = 4 + StoichNum(352,960) = 3 + StoichNum(352,961) = 2 + StoichNum(352,962) = 3 + StoichNum(352,963) = 2 + StoichNum(352,964) = 1 + StoichNum(352,965) = 2 + StoichNum(352,966) = 2 + StoichNum(352,967) = 1 + StoichNum(352,968) = 1 + StoichNum(352,970) = 1 + StoichNum(352,972) = 1 + StoichNum(352,983) = 1 + StoichNum(352,988) = 1 + StoichNum(353,18) = 1 + StoichNum(353,20) = 1 + StoichNum(353,21) = 1 + StoichNum(353,25) = 1 + StoichNum(353,32) = 1 + StoichNum(353,33) = 1 + StoichNum(353,34) = 1 + StoichNum(353,36) = 1 + StoichNum(353,38) = 1 + StoichNum(353,41) = 1 + StoichNum(353,47) = 1 + StoichNum(353,51) = 1 + StoichNum(353,57) = 1 + StoichNum(353,72) = 1 + StoichNum(353,102) = 1 + StoichNum(353,103) = 1 + StoichNum(353,104) = 1 + StoichNum(353,105) = 1 + StoichNum(353,111) = 1 + StoichNum(353,122) = 1 + StoichNum(353,206) = 1 + StoichNum(353,225) = 1 + StoichNum(353,226) = -1 + StoichNum(353,234) = 1 + StoichNum(353,247) = 0.02 + StoichNum(353,279) = 1 + StoichNum(353,280) = 1 + StoichNum(353,283) = 1 + StoichNum(353,286) = 1 + StoichNum(353,287) = 1 + StoichNum(353,288) = 1 + StoichNum(353,289) = 1 + StoichNum(353,290) = 1 + StoichNum(353,318) = 1 + StoichNum(353,353) = 1 + StoichNum(353,354) = 1 + StoichNum(353,359) = 1 + StoichNum(353,365) = -1 + StoichNum(353,366) = -2 + StoichNum(353,373) = -1 + StoichNum(353,374) = -1 + StoichNum(353,701) = 1 + StoichNum(353,781) = 1 + StoichNum(353,786) = -1 + StoichNum(353,793) = -1 + StoichNum(353,795) = -1 + StoichNum(353,808) = 1 + StoichNum(353,809) = 1 + StoichNum(353,810) = 1 + StoichNum(353,811) = 1 + StoichNum(353,813) = 1 + StoichNum(353,814) = 1 + StoichNum(353,815) = 1 + StoichNum(353,816) = 1 + StoichNum(353,843) = -1 + StoichNum(353,935) = 1 + StoichNum(354,205) = 1 + StoichNum(354,206) = -1 + StoichNum(354,213) = -1 + StoichNum(354,216) = 1 + StoichNum(354,217) = 1 + StoichNum(354,218) = 1 + StoichNum(354,219) = 1 + StoichNum(354,220) = 1 + StoichNum(354,254) = -0.8 + StoichNum(354,333) = 1 + StoichNum(354,797) = -1 + StoichNum(354,807) = -1 + StoichNum(354,809) = -1 + StoichNum(354,813) = -1 + StoichNum(354,819) = 1 + StoichNum(354,820) = -1 + StoichNum(354,823) = -1 + StoichNum(354,824) = -1 + StoichNum(355,1) = -1 + StoichNum(355,4) = -1 + StoichNum(355,7) = -1 + StoichNum(355,8) = -1 + StoichNum(355,9) = -1 + StoichNum(355,10) = -1 + StoichNum(355,11) = 1 + StoichNum(355,12) = -1 + StoichNum(355,199) = 1 + StoichNum(355,200) = 0.75 + StoichNum(355,201) = 1 + StoichNum(355,202) = -1 + StoichNum(355,238) = 1 + StoichNum(355,239) = 1 + StoichNum(355,368) = -1 + StoichNum(355,372) = -1 + StoichNum(355,812) = -1 + StoichNum(355,819) = -1 + StoichNum(355,882) = -1 + StoichNum(355,883) = -1 + StoichNum(355,884) = -1 + StoichNum(355,885) = -1 + StoichNum(355,886) = -1 + StoichNum(355,887) = 1 + StoichNum(355,888) = -1 + StoichNum(355,993) = 1 + StoichNum(355,994) = 1 + StoichNum(356,1) = -1 + StoichNum(356,4) = -1 + StoichNum(356,8) = -1 + StoichNum(356,13) = -1 + StoichNum(356,14) = -1 + StoichNum(356,15) = -1 + StoichNum(356,16) = -1 + StoichNum(356,17) = -1 + StoichNum(356,77) = -1 + StoichNum(356,128) = 0.15 + StoichNum(356,148) = 0.15 + StoichNum(356,150) = -1 + StoichNum(356,158) = 0.15 + StoichNum(356,203) = -1 + StoichNum(356,232) = 1 + StoichNum(356,233) = -1 + StoichNum(356,237) = -1 + StoichNum(356,246) = -1 + StoichNum(356,293) = -1 + StoichNum(356,350) = -1 + StoichNum(356,367) = -1 + StoichNum(356,379) = -1 + StoichNum(356,381) = -1 + StoichNum(356,383) = -1 + StoichNum(356,391) = 0.15 + StoichNum(356,421) = -1 + StoichNum(356,424) = -1 + StoichNum(356,427) = -1 + StoichNum(356,436) = 0.15 + StoichNum(356,448) = -1 + StoichNum(356,451) = -1 + StoichNum(356,454) = -1 + StoichNum(356,483) = -1 + StoichNum(356,493) = -1 + StoichNum(356,645) = -1 + StoichNum(356,648) = -1 + StoichNum(356,671) = 0.13 + StoichNum(356,678) = 0.13 + StoichNum(356,695) = 0.13 + StoichNum(356,704) = -1 + StoichNum(356,712) = -1 + StoichNum(356,737) = 0.15 + StoichNum(356,746) = -1 + StoichNum(356,750) = 0.15 + StoichNum(356,761) = -1 + StoichNum(356,768) = -1 + StoichNum(356,771) = -1 + StoichNum(356,820) = -1 + StoichNum(356,821) = -1 + StoichNum(356,822) = -1 + StoichNum(356,883) = -1 + StoichNum(356,889) = -1 + StoichNum(356,890) = -1 END SUBROUTINE CalcStoichNum diff --git a/KPP/fullchem/gckpp_Global.F90 b/KPP/fullchem/gckpp_Global.F90 index 727657ff5..23e27365e 100644 --- a/KPP/fullchem/gckpp_Global.F90 +++ b/KPP/fullchem/gckpp_Global.F90 @@ -2,7 +2,7 @@ ! ! Global Data Module File ! -! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor +! Generated by KPP-3.3.0 symbolic chemistry Kinetics PreProcessor ! (https:/github.com/KineticPreProcessor/KPP ! KPP is distributed under GPL, the general public licence ! (http://www.gnu.org/copyleft/gpl.html) diff --git a/KPP/fullchem/gckpp_Initialize.F90 b/KPP/fullchem/gckpp_Initialize.F90 index 9c9a8fad9..b9772fb04 100644 --- a/KPP/fullchem/gckpp_Initialize.F90 +++ b/KPP/fullchem/gckpp_Initialize.F90 @@ -2,7 +2,7 @@ ! ! Initialization File ! -! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor +! Generated by KPP-3.3.0 symbolic chemistry Kinetics PreProcessor ! (https:/github.com/KineticPreProcessor/KPP ! KPP is distributed under GPL, the general public licence ! (http://www.gnu.org/copyleft/gpl.html) diff --git a/KPP/fullchem/gckpp_Integrator.F90 b/KPP/fullchem/gckpp_Integrator.F90 index a3f16529d..41e5b822f 100644 --- a/KPP/fullchem/gckpp_Integrator.F90 +++ b/KPP/fullchem/gckpp_Integrator.F90 @@ -2,7 +2,7 @@ ! ! Numerical Integrator (Time-Stepping) File ! -! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor +! Generated by KPP-3.3.0 symbolic chemistry Kinetics PreProcessor ! (https:/github.com/KineticPreProcessor/KPP ! KPP is distributed under GPL, the general public licence ! (http://www.gnu.org/copyleft/gpl.html) diff --git a/KPP/fullchem/gckpp_Jacobian.F90 b/KPP/fullchem/gckpp_Jacobian.F90 index 7598bf1dd..08546c20c 100644 --- a/KPP/fullchem/gckpp_Jacobian.F90 +++ b/KPP/fullchem/gckpp_Jacobian.F90 @@ -2,7 +2,7 @@ ! ! The ODE Jacobian of Chemical Model File ! -! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor +! Generated by KPP-3.3.0 symbolic chemistry Kinetics PreProcessor ! (https:/github.com/KineticPreProcessor/KPP ! KPP is distributed under GPL, the general public licence ! (http://www.gnu.org/copyleft/gpl.html) @@ -59,3926 +59,3952 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! Local variables ! B - Temporary array - REAL(kind=dp) :: B(1817) + REAL(kind=dp) :: B(1830) -! B(1) = dA(1)/dV(179) - B(1) = RCT(1)*V(341)*V(348) -! B(2) = dA(1)/dV(341) - B(2) = RCT(1)*V(179)*V(348) -! B(3) = dA(1)/dV(348) - B(3) = RCT(1)*V(179)*V(341) -! B(4) = dA(2)/dV(179) - B(4) = RCT(2)*V(339) -! B(5) = dA(2)/dV(339) - B(5) = RCT(2)*V(179) -! B(6) = dA(3)/dV(179) - B(6) = RCT(3)*V(327) -! B(7) = dA(3)/dV(327) - B(7) = RCT(3)*V(179) -! B(8) = dA(4)/dV(166) - B(8) = RCT(4)*V(341)*V(348) -! B(9) = dA(4)/dV(341) - B(9) = RCT(4)*V(166)*V(348) -! B(10) = dA(4)/dV(348) - B(10) = RCT(4)*V(166)*V(341) -! B(11) = dA(5)/dV(166) - B(11) = RCT(5)*V(339) -! B(12) = dA(5)/dV(339) - B(12) = RCT(5)*V(166) -! B(13) = dA(6)/dV(166) - B(13) = RCT(6)*V(327) -! B(14) = dA(6)/dV(327) - B(14) = RCT(6)*V(166) -! B(15) = dA(7)/dV(264) - B(15) = RCT(7)*V(348) -! B(16) = dA(7)/dV(348) - B(16) = RCT(7)*V(264) -! B(17) = dA(8)/dV(341) - B(17) = RCT(8)*V(348) -! B(18) = dA(8)/dV(348) - B(18) = RCT(8)*V(341) -! B(19) = dA(9)/dV(348) +! B(1) = dA(1)/dV(183) + B(1) = RCT(1)*V(355)*V(356) +! B(2) = dA(1)/dV(355) + B(2) = RCT(1)*V(183)*V(356) +! B(3) = dA(1)/dV(356) + B(3) = RCT(1)*V(183)*V(355) +! B(4) = dA(2)/dV(183) + B(4) = RCT(2)*V(340) +! B(5) = dA(2)/dV(340) + B(5) = RCT(2)*V(183) +! B(6) = dA(3)/dV(183) + B(6) = RCT(3)*V(333) +! B(7) = dA(3)/dV(333) + B(7) = RCT(3)*V(183) +! B(8) = dA(4)/dV(169) + B(8) = RCT(4)*V(355)*V(356) +! B(9) = dA(4)/dV(355) + B(9) = RCT(4)*V(169)*V(356) +! B(10) = dA(4)/dV(356) + B(10) = RCT(4)*V(169)*V(355) +! B(11) = dA(5)/dV(169) + B(11) = RCT(5)*V(340) +! B(12) = dA(5)/dV(340) + B(12) = RCT(5)*V(169) +! B(13) = dA(6)/dV(169) + B(13) = RCT(6)*V(333) +! B(14) = dA(6)/dV(333) + B(14) = RCT(6)*V(169) +! B(15) = dA(7)/dV(267) + B(15) = RCT(7)*V(355) +! B(16) = dA(7)/dV(355) + B(16) = RCT(7)*V(267) +! B(17) = dA(8)/dV(355) + B(17) = RCT(8)*V(356) +! B(18) = dA(8)/dV(356) + B(18) = RCT(8)*V(355) +! B(19) = dA(9)/dV(355) B(19) = RCT(9) -! B(20) = dA(10)/dV(325) - B(20) = RCT(10)*V(348) -! B(21) = dA(10)/dV(348) - B(21) = RCT(10)*V(325) -! B(22) = dA(11)/dV(89) +! B(20) = dA(10)/dV(329) + B(20) = RCT(10)*V(355) +! B(21) = dA(10)/dV(355) + B(21) = RCT(10)*V(329) +! B(22) = dA(11)/dV(93) B(22) = RCT(11) -! B(23) = dA(12)/dV(89) - B(23) = RCT(12)*V(345)*V(348) -! B(24) = dA(12)/dV(345) - B(24) = RCT(12)*V(89)*V(348) -! B(25) = dA(12)/dV(348) - B(25) = RCT(12)*V(89)*V(345) -! B(26) = dA(13)/dV(341) - B(26) = RCT(13)*V(346) -! B(27) = dA(13)/dV(346) - B(27) = RCT(13)*V(341) -! B(28) = dA(14)/dV(341) - B(28) = RCT(14)*V(345) -! B(29) = dA(14)/dV(345) - B(29) = RCT(14)*V(341) -! B(30) = dA(15)/dV(337) - B(30) = RCT(15)*V(341) -! B(31) = dA(15)/dV(341) - B(31) = RCT(15)*V(337) -! B(32) = dA(16)/dV(335) - B(32) = RCT(16)*V(341) -! B(33) = dA(16)/dV(341) - B(33) = RCT(16)*V(335) -! B(34) = dA(17)/dV(328) - B(34) = RCT(17)*V(341) -! B(35) = dA(17)/dV(341) - B(35) = RCT(17)*V(328) -! B(36) = dA(18)/dV(345) - B(36) = RCT(18)*2*V(345) -! B(37) = dA(19)/dV(345) - B(37) = RCT(19)*2*V(345) -! B(38) = dA(20)/dV(337) - B(38) = RCT(20)*V(345) -! B(39) = dA(20)/dV(345) - B(39) = RCT(20)*V(337) -! B(40) = dA(21)/dV(264) - B(40) = RCT(21)*V(345) -! B(41) = dA(21)/dV(345) - B(41) = RCT(21)*V(264) -! B(42) = dA(22)/dV(337) - B(42) = RCT(22)*V(346) -! B(43) = dA(22)/dV(346) - B(43) = RCT(22)*V(337) -! B(44) = dA(23)/dV(337) - B(44) = RCT(23)*2*V(337) -! B(45) = dA(24)/dV(329) - B(45) = RCT(24)*V(345) -! B(46) = dA(24)/dV(345) - B(46) = RCT(24)*V(329) -! B(47) = dA(25)/dV(228) - B(47) = RCT(25)*V(345) -! B(48) = dA(25)/dV(345) - B(48) = RCT(25)*V(228) -! B(49) = dA(26)/dV(328) - B(49) = RCT(26)*V(346) -! B(50) = dA(26)/dV(346) - B(50) = RCT(26)*V(328) -! B(51) = dA(27)/dV(328) - B(51) = RCT(27)*V(346) -! B(52) = dA(27)/dV(346) - B(52) = RCT(27)*V(328) -! B(53) = dA(28)/dV(328) - B(53) = RCT(28)*V(337) -! B(54) = dA(28)/dV(337) - B(54) = RCT(28)*V(328) -! B(55) = dA(29)/dV(328) - B(55) = RCT(29)*2*V(328) -! B(56) = dA(30)/dV(328) - B(56) = RCT(30)*2*V(328) -! B(57) = dA(31)/dV(328) - B(57) = RCT(31)*V(345) -! B(58) = dA(31)/dV(345) - B(58) = RCT(31)*V(328) -! B(59) = dA(32)/dV(164) - B(59) = RCT(32)*V(345) -! B(60) = dA(32)/dV(345) - B(60) = RCT(32)*V(164) -! B(61) = dA(33)/dV(244) - B(61) = RCT(33)*V(345) -! B(62) = dA(33)/dV(345) - B(62) = RCT(33)*V(244) -! B(63) = dA(34)/dV(325) - B(63) = RCT(34)*V(345) -! B(64) = dA(34)/dV(345) - B(64) = RCT(34)*V(325) -! B(65) = dA(35)/dV(335) +! B(23) = dA(12)/dV(93) + B(23) = RCT(12)*V(343)*V(355) +! B(24) = dA(12)/dV(343) + B(24) = RCT(12)*V(93)*V(355) +! B(25) = dA(12)/dV(355) + B(25) = RCT(12)*V(93)*V(343) +! B(26) = dA(13)/dV(338) + B(26) = RCT(13)*V(356) +! B(27) = dA(13)/dV(356) + B(27) = RCT(13)*V(338) +! B(28) = dA(14)/dV(343) + B(28) = RCT(14)*V(356) +! B(29) = dA(14)/dV(356) + B(29) = RCT(14)*V(343) +! B(30) = dA(15)/dV(341) + B(30) = RCT(15)*V(356) +! B(31) = dA(15)/dV(356) + B(31) = RCT(15)*V(341) +! B(32) = dA(16)/dV(345) + B(32) = RCT(16)*V(356) +! B(33) = dA(16)/dV(356) + B(33) = RCT(16)*V(345) +! B(34) = dA(17)/dV(334) + B(34) = RCT(17)*V(356) +! B(35) = dA(17)/dV(356) + B(35) = RCT(17)*V(334) +! B(36) = dA(18)/dV(343) + B(36) = RCT(18)*2*V(343) +! B(37) = dA(19)/dV(343) + B(37) = RCT(19)*2*V(343) +! B(38) = dA(20)/dV(341) + B(38) = RCT(20)*V(343) +! B(39) = dA(20)/dV(343) + B(39) = RCT(20)*V(341) +! B(40) = dA(21)/dV(267) + B(40) = RCT(21)*V(343) +! B(41) = dA(21)/dV(343) + B(41) = RCT(21)*V(267) +! B(42) = dA(22)/dV(338) + B(42) = RCT(22)*V(341) +! B(43) = dA(22)/dV(341) + B(43) = RCT(22)*V(338) +! B(44) = dA(23)/dV(341) + B(44) = RCT(23)*2*V(341) +! B(45) = dA(24)/dV(335) + B(45) = RCT(24)*V(343) +! B(46) = dA(24)/dV(343) + B(46) = RCT(24)*V(335) +! B(47) = dA(25)/dV(232) + B(47) = RCT(25)*V(343) +! B(48) = dA(25)/dV(343) + B(48) = RCT(25)*V(232) +! B(49) = dA(26)/dV(334) + B(49) = RCT(26)*V(338) +! B(50) = dA(26)/dV(338) + B(50) = RCT(26)*V(334) +! B(51) = dA(27)/dV(334) + B(51) = RCT(27)*V(338) +! B(52) = dA(27)/dV(338) + B(52) = RCT(27)*V(334) +! B(53) = dA(28)/dV(334) + B(53) = RCT(28)*V(341) +! B(54) = dA(28)/dV(341) + B(54) = RCT(28)*V(334) +! B(55) = dA(29)/dV(334) + B(55) = RCT(29)*2*V(334) +! B(56) = dA(30)/dV(334) + B(56) = RCT(30)*2*V(334) +! B(57) = dA(31)/dV(334) + B(57) = RCT(31)*V(343) +! B(58) = dA(31)/dV(343) + B(58) = RCT(31)*V(334) +! B(59) = dA(32)/dV(167) + B(59) = RCT(32)*V(343) +! B(60) = dA(32)/dV(343) + B(60) = RCT(32)*V(167) +! B(61) = dA(33)/dV(247) + B(61) = RCT(33)*V(343) +! B(62) = dA(33)/dV(343) + B(62) = RCT(33)*V(247) +! B(63) = dA(34)/dV(329) + B(63) = RCT(34)*V(343) +! B(64) = dA(34)/dV(343) + B(64) = RCT(34)*V(329) +! B(65) = dA(35)/dV(343) B(65) = RCT(35)*V(345) ! B(66) = dA(35)/dV(345) - B(66) = RCT(35)*V(335) -! B(67) = dA(36)/dV(327) - B(67) = RCT(36)*V(345) -! B(68) = dA(36)/dV(345) - B(68) = RCT(36)*V(327) -! B(69) = dA(37)/dV(345) - B(69) = RCT(37)*V(346) -! B(70) = dA(37)/dV(346) - B(70) = RCT(37)*V(345) -! B(71) = dA(38)/dV(239) - B(71) = RCT(38)*V(345) -! B(72) = dA(38)/dV(345) - B(72) = RCT(38)*V(239) -! B(73) = dA(39)/dV(335) - B(73) = RCT(39)*V(337) -! B(74) = dA(39)/dV(337) - B(74) = RCT(39)*V(335) -! B(75) = dA(40)/dV(108) + B(66) = RCT(35)*V(343) +! B(67) = dA(36)/dV(333) + B(67) = RCT(36)*V(343) +! B(68) = dA(36)/dV(343) + B(68) = RCT(36)*V(333) +! B(69) = dA(37)/dV(338) + B(69) = RCT(37)*V(343) +! B(70) = dA(37)/dV(343) + B(70) = RCT(37)*V(338) +! B(71) = dA(38)/dV(240) + B(71) = RCT(38)*V(343) +! B(72) = dA(38)/dV(343) + B(72) = RCT(38)*V(240) +! B(73) = dA(39)/dV(341) + B(73) = RCT(39)*V(345) +! B(74) = dA(39)/dV(345) + B(74) = RCT(39)*V(341) +! B(75) = dA(40)/dV(110) B(75) = RCT(40) -! B(76) = dA(41)/dV(108) - B(76) = RCT(41)*V(345) -! B(77) = dA(41)/dV(345) - B(77) = RCT(41)*V(108) -! B(78) = dA(42)/dV(337) - B(78) = RCT(42)*V(351) -! B(79) = dA(42)/dV(351) - B(79) = RCT(42)*V(337) -! B(80) = dA(43)/dV(346) - B(80) = RCT(43)*V(351) -! B(81) = dA(43)/dV(351) - B(81) = RCT(43)*V(346) -! B(82) = dA(44)/dV(345) - B(82) = RCT(44)*V(351) -! B(83) = dA(44)/dV(351) - B(83) = RCT(44)*V(345) -! B(84) = dA(45)/dV(335) - B(84) = RCT(45)*V(351) -! B(85) = dA(45)/dV(351) - B(85) = RCT(45)*V(335) -! B(86) = dA(46)/dV(214) +! B(76) = dA(41)/dV(110) + B(76) = RCT(41)*V(343) +! B(77) = dA(41)/dV(343) + B(77) = RCT(41)*V(110) +! B(78) = dA(42)/dV(341) + B(78) = RCT(42)*V(348) +! B(79) = dA(42)/dV(348) + B(79) = RCT(42)*V(341) +! B(80) = dA(43)/dV(338) + B(80) = RCT(43)*V(348) +! B(81) = dA(43)/dV(348) + B(81) = RCT(43)*V(338) +! B(82) = dA(44)/dV(343) + B(82) = RCT(44)*V(348) +! B(83) = dA(44)/dV(348) + B(83) = RCT(44)*V(343) +! B(84) = dA(45)/dV(345) + B(84) = RCT(45)*V(348) +! B(85) = dA(45)/dV(348) + B(85) = RCT(45)*V(345) +! B(86) = dA(46)/dV(217) B(86) = RCT(46) -! B(87) = dA(47)/dV(265) - B(87) = RCT(47)*V(345) -! B(88) = dA(47)/dV(345) - B(88) = RCT(47)*V(265) -! B(89) = dA(48)/dV(282) - B(89) = RCT(48)*V(345) -! B(90) = dA(48)/dV(345) - B(90) = RCT(48)*V(282) -! B(91) = dA(49)/dV(335) - B(91) = RCT(49)*V(351) -! B(92) = dA(49)/dV(351) - B(92) = RCT(49)*V(335) -! B(93) = dA(50)/dV(325) - B(93) = RCT(50)*V(351) -! B(94) = dA(50)/dV(351) - B(94) = RCT(50)*V(325) -! B(95) = dA(51)/dV(326) - B(95) = RCT(51)*V(345) -! B(96) = dA(51)/dV(345) - B(96) = RCT(51)*V(326) -! B(97) = dA(52)/dV(326) - B(97) = RCT(52)*V(351) -! B(98) = dA(52)/dV(351) - B(98) = RCT(52)*V(326) -! B(99) = dA(53)/dV(324) - B(99) = RCT(53)*V(335) -! B(100) = dA(53)/dV(335) - B(100) = RCT(53)*V(324) -! B(101) = dA(54)/dV(139) +! B(87) = dA(47)/dV(268) + B(87) = RCT(47)*V(343) +! B(88) = dA(47)/dV(343) + B(88) = RCT(47)*V(268) +! B(89) = dA(48)/dV(285) + B(89) = RCT(48)*V(343) +! B(90) = dA(48)/dV(343) + B(90) = RCT(48)*V(285) +! B(91) = dA(49)/dV(345) + B(91) = RCT(49)*V(348) +! B(92) = dA(49)/dV(348) + B(92) = RCT(49)*V(345) +! B(93) = dA(50)/dV(329) + B(93) = RCT(50)*V(348) +! B(94) = dA(50)/dV(348) + B(94) = RCT(50)*V(329) +! B(95) = dA(51)/dV(330) + B(95) = RCT(51)*V(343) +! B(96) = dA(51)/dV(343) + B(96) = RCT(51)*V(330) +! B(97) = dA(52)/dV(330) + B(97) = RCT(52)*V(348) +! B(98) = dA(52)/dV(348) + B(98) = RCT(52)*V(330) +! B(99) = dA(53)/dV(328) + B(99) = RCT(53)*V(345) +! B(100) = dA(53)/dV(345) + B(100) = RCT(53)*V(328) +! B(101) = dA(54)/dV(143) B(101) = RCT(54) -! B(102) = dA(55)/dV(139) - B(102) = RCT(55)*V(345) -! B(103) = dA(55)/dV(345) - B(103) = RCT(55)*V(139) -! B(104) = dA(56)/dV(324) - B(104) = RCT(56)*V(346) -! B(105) = dA(56)/dV(346) - B(105) = RCT(56)*V(324) -! B(106) = dA(57)/dV(183) - B(106) = RCT(57)*V(345) -! B(107) = dA(57)/dV(345) - B(107) = RCT(57)*V(183) -! B(108) = dA(58)/dV(296) - B(108) = RCT(58)*V(346) -! B(109) = dA(58)/dV(346) - B(109) = RCT(58)*V(296) -! B(110) = dA(59)/dV(296) - B(110) = RCT(59)*V(346) -! B(111) = dA(59)/dV(346) - B(111) = RCT(59)*V(296) -! B(112) = dA(60)/dV(315) - B(112) = RCT(60)*V(346) -! B(113) = dA(60)/dV(346) - B(113) = RCT(60)*V(315) -! B(114) = dA(61)/dV(141) - B(114) = RCT(61)*V(345) -! B(115) = dA(61)/dV(345) - B(115) = RCT(61)*V(141) -! B(116) = dA(62)/dV(141) - B(116) = RCT(62)*V(345) -! B(117) = dA(62)/dV(345) - B(117) = RCT(62)*V(141) -! B(118) = dA(63)/dV(321) - B(118) = RCT(63)*V(346) -! B(119) = dA(63)/dV(346) - B(119) = RCT(63)*V(321) -! B(120) = dA(64)/dV(321) - B(120) = RCT(64)*V(346) -! B(121) = dA(64)/dV(346) - B(121) = RCT(64)*V(321) -! B(122) = dA(65)/dV(260) - B(122) = RCT(65)*V(346) -! B(123) = dA(65)/dV(346) - B(123) = RCT(65)*V(260) -! B(124) = dA(66)/dV(69) - B(124) = RCT(66)*V(345) -! B(125) = dA(66)/dV(345) - B(125) = RCT(66)*V(69) -! B(126) = dA(67)/dV(69) - B(126) = RCT(67)*V(351) -! B(127) = dA(67)/dV(351) - B(127) = RCT(67)*V(69) -! B(128) = dA(68)/dV(178) - B(128) = RCT(68)*V(346) -! B(129) = dA(68)/dV(346) - B(129) = RCT(68)*V(178) -! B(130) = dA(69)/dV(178) - B(130) = RCT(69)*V(346) -! B(131) = dA(69)/dV(346) - B(131) = RCT(69)*V(178) -! B(132) = dA(70)/dV(178) - B(132) = RCT(70)*V(337) -! B(133) = dA(70)/dV(337) - B(133) = RCT(70)*V(178) -! B(134) = dA(71)/dV(98) - B(134) = RCT(71)*V(345) -! B(135) = dA(71)/dV(345) - B(135) = RCT(71)*V(98) -! B(136) = dA(72)/dV(196) - B(136) = RCT(72)*V(345) -! B(137) = dA(72)/dV(345) - B(137) = RCT(72)*V(196) -! B(138) = dA(73)/dV(165) - B(138) = RCT(73)*V(346) -! B(139) = dA(73)/dV(346) - B(139) = RCT(73)*V(165) -! B(140) = dA(74)/dV(165) - B(140) = RCT(74)*V(337) -! B(141) = dA(74)/dV(337) - B(141) = RCT(74)*V(165) +! B(102) = dA(55)/dV(143) + B(102) = RCT(55)*V(343) +! B(103) = dA(55)/dV(343) + B(103) = RCT(55)*V(143) +! B(104) = dA(56)/dV(328) + B(104) = RCT(56)*V(338) +! B(105) = dA(56)/dV(338) + B(105) = RCT(56)*V(328) +! B(106) = dA(57)/dV(187) + B(106) = RCT(57)*V(343) +! B(107) = dA(57)/dV(343) + B(107) = RCT(57)*V(187) +! B(108) = dA(58)/dV(300) + B(108) = RCT(58)*V(338) +! B(109) = dA(58)/dV(338) + B(109) = RCT(58)*V(300) +! B(110) = dA(59)/dV(300) + B(110) = RCT(59)*V(338) +! B(111) = dA(59)/dV(338) + B(111) = RCT(59)*V(300) +! B(112) = dA(60)/dV(319) + B(112) = RCT(60)*V(338) +! B(113) = dA(60)/dV(338) + B(113) = RCT(60)*V(319) +! B(114) = dA(61)/dV(142) + B(114) = RCT(61)*V(343) +! B(115) = dA(61)/dV(343) + B(115) = RCT(61)*V(142) +! B(116) = dA(62)/dV(142) + B(116) = RCT(62)*V(343) +! B(117) = dA(62)/dV(343) + B(117) = RCT(62)*V(142) +! B(118) = dA(63)/dV(326) + B(118) = RCT(63)*V(338) +! B(119) = dA(63)/dV(338) + B(119) = RCT(63)*V(326) +! B(120) = dA(64)/dV(326) + B(120) = RCT(64)*V(338) +! B(121) = dA(64)/dV(338) + B(121) = RCT(64)*V(326) +! B(122) = dA(65)/dV(264) + B(122) = RCT(65)*V(338) +! B(123) = dA(65)/dV(338) + B(123) = RCT(65)*V(264) +! B(124) = dA(66)/dV(72) + B(124) = RCT(66)*V(343) +! B(125) = dA(66)/dV(343) + B(125) = RCT(66)*V(72) +! B(126) = dA(67)/dV(72) + B(126) = RCT(67)*V(348) +! B(127) = dA(67)/dV(348) + B(127) = RCT(67)*V(72) +! B(128) = dA(68)/dV(182) + B(128) = RCT(68)*V(338) +! B(129) = dA(68)/dV(338) + B(129) = RCT(68)*V(182) +! B(130) = dA(69)/dV(182) + B(130) = RCT(69)*V(338) +! B(131) = dA(69)/dV(338) + B(131) = RCT(69)*V(182) +! B(132) = dA(70)/dV(182) + B(132) = RCT(70)*V(341) +! B(133) = dA(70)/dV(341) + B(133) = RCT(70)*V(182) +! B(134) = dA(71)/dV(100) + B(134) = RCT(71)*V(343) +! B(135) = dA(71)/dV(343) + B(135) = RCT(71)*V(100) +! B(136) = dA(72)/dV(200) + B(136) = RCT(72)*V(343) +! B(137) = dA(72)/dV(343) + B(137) = RCT(72)*V(200) +! B(138) = dA(73)/dV(168) + B(138) = RCT(73)*V(338) +! B(139) = dA(73)/dV(338) + B(139) = RCT(73)*V(168) +! B(140) = dA(74)/dV(168) + B(140) = RCT(74)*V(341) +! B(141) = dA(74)/dV(341) + B(141) = RCT(74)*V(168) ! B(142) = dA(75)/dV(140) - B(142) = RCT(75)*V(345) -! B(143) = dA(75)/dV(345) + B(142) = RCT(75)*V(343) +! B(143) = dA(75)/dV(343) B(143) = RCT(75)*V(140) ! B(144) = dA(76)/dV(140) - B(144) = RCT(76)*V(351) -! B(145) = dA(76)/dV(351) + B(144) = RCT(76)*V(348) +! B(145) = dA(76)/dV(348) B(145) = RCT(76)*V(140) ! B(146) = dA(77)/dV(140) - B(146) = RCT(77)*V(341) -! B(147) = dA(77)/dV(341) + B(146) = RCT(77)*V(356) +! B(147) = dA(77)/dV(356) B(147) = RCT(77)*V(140) -! B(148) = dA(78)/dV(212) - B(148) = RCT(78)*V(346) -! B(149) = dA(78)/dV(346) - B(149) = RCT(78)*V(212) -! B(150) = dA(79)/dV(212) - B(150) = RCT(79)*V(337) -! B(151) = dA(79)/dV(337) - B(151) = RCT(79)*V(212) -! B(152) = dA(80)/dV(127) - B(152) = RCT(80)*V(345) -! B(153) = dA(80)/dV(345) - B(153) = RCT(80)*V(127) -! B(154) = dA(81)/dV(233) - B(154) = RCT(81)*V(345) -! B(155) = dA(81)/dV(345) - B(155) = RCT(81)*V(233) -! B(156) = dA(82)/dV(132) - B(156) = RCT(82)*V(346) -! B(157) = dA(82)/dV(346) - B(157) = RCT(82)*V(132) -! B(158) = dA(83)/dV(132) - B(158) = RCT(83)*V(337) -! B(159) = dA(83)/dV(337) - B(159) = RCT(83)*V(132) -! B(160) = dA(84)/dV(197) - B(160) = RCT(84)*V(337) -! B(161) = dA(84)/dV(337) - B(161) = RCT(84)*V(197) -! B(162) = dA(85)/dV(197) - B(162) = RCT(85)*V(346) -! B(163) = dA(85)/dV(346) - B(163) = RCT(85)*V(197) -! B(164) = dA(86)/dV(197) - B(164) = RCT(86)*V(335) -! B(165) = dA(86)/dV(335) - B(165) = RCT(86)*V(197) -! B(166) = dA(87)/dV(126) +! B(148) = dA(78)/dV(215) + B(148) = RCT(78)*V(338) +! B(149) = dA(78)/dV(338) + B(149) = RCT(78)*V(215) +! B(150) = dA(79)/dV(215) + B(150) = RCT(79)*V(341) +! B(151) = dA(79)/dV(341) + B(151) = RCT(79)*V(215) +! B(152) = dA(80)/dV(130) + B(152) = RCT(80)*V(343) +! B(153) = dA(80)/dV(343) + B(153) = RCT(80)*V(130) +! B(154) = dA(81)/dV(229) + B(154) = RCT(81)*V(343) +! B(155) = dA(81)/dV(343) + B(155) = RCT(81)*V(229) +! B(156) = dA(82)/dV(133) + B(156) = RCT(82)*V(338) +! B(157) = dA(82)/dV(338) + B(157) = RCT(82)*V(133) +! B(158) = dA(83)/dV(133) + B(158) = RCT(83)*V(341) +! B(159) = dA(83)/dV(341) + B(159) = RCT(83)*V(133) +! B(160) = dA(84)/dV(201) + B(160) = RCT(84)*V(341) +! B(161) = dA(84)/dV(341) + B(161) = RCT(84)*V(201) +! B(162) = dA(85)/dV(201) + B(162) = RCT(85)*V(338) +! B(163) = dA(85)/dV(338) + B(163) = RCT(85)*V(201) +! B(164) = dA(86)/dV(201) + B(164) = RCT(86)*V(345) +! B(165) = dA(86)/dV(345) + B(165) = RCT(86)*V(201) +! B(166) = dA(87)/dV(129) B(166) = RCT(87) -! B(167) = dA(88)/dV(126) - B(167) = RCT(88)*V(345) -! B(168) = dA(88)/dV(345) - B(168) = RCT(88)*V(126) -! B(169) = dA(89)/dV(142) - B(169) = RCT(89)*V(345) -! B(170) = dA(89)/dV(345) - B(170) = RCT(89)*V(142) -! B(171) = dA(90)/dV(300) - B(171) = RCT(90)*V(346) -! B(172) = dA(90)/dV(346) - B(172) = RCT(90)*V(300) -! B(173) = dA(91)/dV(300) - B(173) = RCT(91)*V(346) -! B(174) = dA(91)/dV(346) - B(174) = RCT(91)*V(300) -! B(175) = dA(92)/dV(249) - B(175) = RCT(92)*V(346) -! B(176) = dA(92)/dV(346) - B(176) = RCT(92)*V(249) -! B(177) = dA(93)/dV(319) - B(177) = RCT(93)*V(346) -! B(178) = dA(93)/dV(346) - B(178) = RCT(93)*V(319) -! B(179) = dA(94)/dV(319) - B(179) = RCT(94)*V(346) -! B(180) = dA(94)/dV(346) - B(180) = RCT(94)*V(319) -! B(181) = dA(95)/dV(318) - B(181) = RCT(95)*V(346) -! B(182) = dA(95)/dV(346) - B(182) = RCT(95)*V(318) -! B(183) = dA(96)/dV(313) - B(183) = RCT(96)*V(346) -! B(184) = dA(96)/dV(346) - B(184) = RCT(96)*V(313) -! B(185) = dA(97)/dV(320) - B(185) = RCT(97)*V(346) -! B(186) = dA(97)/dV(346) - B(186) = RCT(97)*V(320) -! B(187) = dA(98)/dV(323) - B(187) = RCT(98)*V(346) -! B(188) = dA(98)/dV(346) - B(188) = RCT(98)*V(323) -! B(189) = dA(99)/dV(323) - B(189) = RCT(99)*V(346) -! B(190) = dA(99)/dV(346) - B(190) = RCT(99)*V(323) -! B(191) = dA(100)/dV(250) - B(191) = RCT(100)*V(346) -! B(192) = dA(100)/dV(346) - B(192) = RCT(100)*V(250) -! B(193) = dA(101)/dV(142) - B(193) = RCT(101)*V(351) -! B(194) = dA(101)/dV(351) - B(194) = RCT(101)*V(142) -! B(195) = dA(102)/dV(251) - B(195) = RCT(102)*V(345) -! B(196) = dA(102)/dV(345) - B(196) = RCT(102)*V(251) -! B(197) = dA(103)/dV(279) - B(197) = RCT(103)*V(345) -! B(198) = dA(103)/dV(345) - B(198) = RCT(103)*V(279) -! B(199) = dA(104)/dV(283) - B(199) = RCT(104)*V(345) -! B(200) = dA(104)/dV(345) - B(200) = RCT(104)*V(283) -! B(201) = dA(105)/dV(298) - B(201) = RCT(105)*V(345) -! B(202) = dA(105)/dV(345) - B(202) = RCT(105)*V(298) -! B(203) = dA(106)/dV(322) - B(203) = RCT(106)*V(335) -! B(204) = dA(106)/dV(335) - B(204) = RCT(106)*V(322) -! B(205) = dA(107)/dV(124) +! B(167) = dA(88)/dV(129) + B(167) = RCT(88)*V(343) +! B(168) = dA(88)/dV(343) + B(168) = RCT(88)*V(129) +! B(169) = dA(89)/dV(144) + B(169) = RCT(89)*V(343) +! B(170) = dA(89)/dV(343) + B(170) = RCT(89)*V(144) +! B(171) = dA(90)/dV(304) + B(171) = RCT(90)*V(338) +! B(172) = dA(90)/dV(338) + B(172) = RCT(90)*V(304) +! B(173) = dA(91)/dV(304) + B(173) = RCT(91)*V(338) +! B(174) = dA(91)/dV(338) + B(174) = RCT(91)*V(304) +! B(175) = dA(92)/dV(252) + B(175) = RCT(92)*V(338) +! B(176) = dA(92)/dV(338) + B(176) = RCT(92)*V(252) +! B(177) = dA(93)/dV(323) + B(177) = RCT(93)*V(338) +! B(178) = dA(93)/dV(338) + B(178) = RCT(93)*V(323) +! B(179) = dA(94)/dV(323) + B(179) = RCT(94)*V(338) +! B(180) = dA(94)/dV(338) + B(180) = RCT(94)*V(323) +! B(181) = dA(95)/dV(322) + B(181) = RCT(95)*V(338) +! B(182) = dA(95)/dV(338) + B(182) = RCT(95)*V(322) +! B(183) = dA(96)/dV(316) + B(183) = RCT(96)*V(338) +! B(184) = dA(96)/dV(338) + B(184) = RCT(96)*V(316) +! B(185) = dA(97)/dV(324) + B(185) = RCT(97)*V(338) +! B(186) = dA(97)/dV(338) + B(186) = RCT(97)*V(324) +! B(187) = dA(98)/dV(327) + B(187) = RCT(98)*V(338) +! B(188) = dA(98)/dV(338) + B(188) = RCT(98)*V(327) +! B(189) = dA(99)/dV(327) + B(189) = RCT(99)*V(338) +! B(190) = dA(99)/dV(338) + B(190) = RCT(99)*V(327) +! B(191) = dA(100)/dV(253) + B(191) = RCT(100)*V(338) +! B(192) = dA(100)/dV(338) + B(192) = RCT(100)*V(253) +! B(193) = dA(101)/dV(144) + B(193) = RCT(101)*V(348) +! B(194) = dA(101)/dV(348) + B(194) = RCT(101)*V(144) +! B(195) = dA(102)/dV(255) + B(195) = RCT(102)*V(343) +! B(196) = dA(102)/dV(343) + B(196) = RCT(102)*V(255) +! B(197) = dA(103)/dV(283) + B(197) = RCT(103)*V(343) +! B(198) = dA(103)/dV(343) + B(198) = RCT(103)*V(283) +! B(199) = dA(104)/dV(286) + B(199) = RCT(104)*V(343) +! B(200) = dA(104)/dV(343) + B(200) = RCT(104)*V(286) +! B(201) = dA(105)/dV(302) + B(201) = RCT(105)*V(343) +! B(202) = dA(105)/dV(343) + B(202) = RCT(105)*V(302) +! B(203) = dA(106)/dV(325) + B(203) = RCT(106)*V(345) +! B(204) = dA(106)/dV(345) + B(204) = RCT(106)*V(325) +! B(205) = dA(107)/dV(127) B(205) = RCT(107) -! B(206) = dA(108)/dV(124) - B(206) = RCT(108)*V(345) -! B(207) = dA(108)/dV(345) - B(207) = RCT(108)*V(124) -! B(208) = dA(109)/dV(322) - B(208) = RCT(109)*V(346) -! B(209) = dA(109)/dV(346) - B(209) = RCT(109)*V(322) -! B(210) = dA(110)/dV(298) - B(210) = RCT(110)*V(351) -! B(211) = dA(110)/dV(351) - B(211) = RCT(110)*V(298) -! B(212) = dA(111)/dV(295) - B(212) = RCT(111)*V(345) -! B(213) = dA(111)/dV(345) - B(213) = RCT(111)*V(295) -! B(214) = dA(112)/dV(321) - B(214) = RCT(112)*V(328) -! B(215) = dA(112)/dV(328) - B(215) = RCT(112)*V(321) -! B(216) = dA(113)/dV(260) - B(216) = RCT(113)*V(328) -! B(217) = dA(113)/dV(328) - B(217) = RCT(113)*V(260) -! B(218) = dA(114)/dV(319) - B(218) = RCT(114)*V(337) -! B(219) = dA(114)/dV(337) - B(219) = RCT(114)*V(319) -! B(220) = dA(115)/dV(318) - B(220) = RCT(115)*V(337) -! B(221) = dA(115)/dV(337) - B(221) = RCT(115)*V(318) -! B(222) = dA(116)/dV(300) - B(222) = RCT(116)*V(337) -! B(223) = dA(116)/dV(337) - B(223) = RCT(116)*V(300) -! B(224) = dA(117)/dV(249) - B(224) = RCT(117)*V(337) -! B(225) = dA(117)/dV(337) - B(225) = RCT(117)*V(249) -! B(226) = dA(118)/dV(313) - B(226) = RCT(118)*V(337) -! B(227) = dA(118)/dV(337) - B(227) = RCT(118)*V(313) -! B(228) = dA(119)/dV(320) - B(228) = RCT(119)*V(337) -! B(229) = dA(119)/dV(337) - B(229) = RCT(119)*V(320) -! B(230) = dA(120)/dV(323) - B(230) = RCT(120)*V(337) -! B(231) = dA(120)/dV(337) - B(231) = RCT(120)*V(323) -! B(232) = dA(121)/dV(250) - B(232) = RCT(121)*V(337) -! B(233) = dA(121)/dV(337) - B(233) = RCT(121)*V(250) -! B(234) = dA(122)/dV(292) - B(234) = RCT(122)*V(345) -! B(235) = dA(122)/dV(345) - B(235) = RCT(122)*V(292) -! B(236) = dA(123)/dV(320) - B(236) = RCT(123)*V(346) -! B(237) = dA(123)/dV(346) - B(237) = RCT(123)*V(320) -! B(238) = dA(124)/dV(246) - B(238) = RCT(124)*V(335) -! B(239) = dA(124)/dV(335) - B(239) = RCT(124)*V(246) +! B(206) = dA(108)/dV(127) + B(206) = RCT(108)*V(343) +! B(207) = dA(108)/dV(343) + B(207) = RCT(108)*V(127) +! B(208) = dA(109)/dV(325) + B(208) = RCT(109)*V(338) +! B(209) = dA(109)/dV(338) + B(209) = RCT(109)*V(325) +! B(210) = dA(110)/dV(302) + B(210) = RCT(110)*V(348) +! B(211) = dA(110)/dV(348) + B(211) = RCT(110)*V(302) +! B(212) = dA(111)/dV(297) + B(212) = RCT(111)*V(343) +! B(213) = dA(111)/dV(343) + B(213) = RCT(111)*V(297) +! B(214) = dA(112)/dV(326) + B(214) = RCT(112)*V(334) +! B(215) = dA(112)/dV(334) + B(215) = RCT(112)*V(326) +! B(216) = dA(113)/dV(264) + B(216) = RCT(113)*V(334) +! B(217) = dA(113)/dV(334) + B(217) = RCT(113)*V(264) +! B(218) = dA(114)/dV(323) + B(218) = RCT(114)*V(341) +! B(219) = dA(114)/dV(341) + B(219) = RCT(114)*V(323) +! B(220) = dA(115)/dV(322) + B(220) = RCT(115)*V(341) +! B(221) = dA(115)/dV(341) + B(221) = RCT(115)*V(322) +! B(222) = dA(116)/dV(304) + B(222) = RCT(116)*V(341) +! B(223) = dA(116)/dV(341) + B(223) = RCT(116)*V(304) +! B(224) = dA(117)/dV(252) + B(224) = RCT(117)*V(341) +! B(225) = dA(117)/dV(341) + B(225) = RCT(117)*V(252) +! B(226) = dA(118)/dV(316) + B(226) = RCT(118)*V(341) +! B(227) = dA(118)/dV(341) + B(227) = RCT(118)*V(316) +! B(228) = dA(119)/dV(324) + B(228) = RCT(119)*V(341) +! B(229) = dA(119)/dV(341) + B(229) = RCT(119)*V(324) +! B(230) = dA(120)/dV(327) + B(230) = RCT(120)*V(341) +! B(231) = dA(120)/dV(341) + B(231) = RCT(120)*V(327) +! B(232) = dA(121)/dV(253) + B(232) = RCT(121)*V(341) +! B(233) = dA(121)/dV(341) + B(233) = RCT(121)*V(253) +! B(234) = dA(122)/dV(295) + B(234) = RCT(122)*V(343) +! B(235) = dA(122)/dV(343) + B(235) = RCT(122)*V(295) +! B(236) = dA(123)/dV(324) + B(236) = RCT(123)*V(338) +! B(237) = dA(123)/dV(338) + B(237) = RCT(123)*V(324) +! B(238) = dA(124)/dV(250) + B(238) = RCT(124)*V(345) +! B(239) = dA(124)/dV(345) + B(239) = RCT(124)*V(250) ! B(240) = dA(125)/dV(113) B(240) = RCT(125) ! B(241) = dA(126)/dV(113) - B(241) = 4.51e-12*V(345) -! B(242) = dA(126)/dV(345) + B(241) = 4.51e-12*V(343) +! B(242) = dA(126)/dV(343) B(242) = 4.51e-12*V(113) -! B(243) = dA(127)/dV(246) - B(243) = RCT(127)*V(346) -! B(244) = dA(127)/dV(346) - B(244) = RCT(127)*V(246) -! B(245) = dA(128)/dV(246) - B(245) = RCT(128)*V(337) -! B(246) = dA(128)/dV(337) - B(246) = RCT(128)*V(246) -! B(247) = dA(129)/dV(296) - B(247) = RCT(129)*V(328) -! B(248) = dA(129)/dV(328) - B(248) = RCT(129)*V(296) -! B(249) = dA(130)/dV(315) - B(249) = RCT(130)*V(328) -! B(250) = dA(130)/dV(328) - B(250) = RCT(130)*V(315) -! B(251) = dA(131)/dV(292) - B(251) = RCT(131)*V(351) -! B(252) = dA(131)/dV(351) - B(252) = RCT(131)*V(292) -! B(253) = dA(132)/dV(319) - B(253) = RCT(132)*V(328) -! B(254) = dA(132)/dV(328) - B(254) = RCT(132)*V(319) -! B(255) = dA(133)/dV(318) - B(255) = RCT(133)*V(328) -! B(256) = dA(133)/dV(328) - B(256) = RCT(133)*V(318) -! B(257) = dA(134)/dV(300) - B(257) = RCT(134)*V(328) -! B(258) = dA(134)/dV(328) - B(258) = RCT(134)*V(300) -! B(259) = dA(135)/dV(249) - B(259) = RCT(135)*V(328) -! B(260) = dA(135)/dV(328) - B(260) = RCT(135)*V(249) -! B(261) = dA(136)/dV(313) - B(261) = RCT(136)*V(328) -! B(262) = dA(136)/dV(328) - B(262) = RCT(136)*V(313) -! B(263) = dA(137)/dV(320) - B(263) = RCT(137)*V(328) -! B(264) = dA(137)/dV(328) - B(264) = RCT(137)*V(320) -! B(265) = dA(138)/dV(323) - B(265) = RCT(138)*V(328) -! B(266) = dA(138)/dV(328) - B(266) = RCT(138)*V(323) -! B(267) = dA(139)/dV(250) - B(267) = RCT(139)*V(328) -! B(268) = dA(139)/dV(328) - B(268) = RCT(139)*V(250) -! B(269) = dA(140)/dV(156) - B(269) = RCT(140)*V(345) -! B(270) = dA(140)/dV(345) - B(270) = RCT(140)*V(156) -! B(271) = dA(141)/dV(188) - B(271) = RCT(141)*V(345) -! B(272) = dA(141)/dV(345) - B(272) = RCT(141)*V(188) -! B(273) = dA(142)/dV(296) - B(273) = RCT(142)*2*V(296) -! B(274) = dA(143)/dV(315) - B(274) = RCT(143)*2*V(315) -! B(275) = dA(144)/dV(296) - B(275) = RCT(144)*V(337) -! B(276) = dA(144)/dV(337) - B(276) = RCT(144)*V(296) -! B(277) = dA(145)/dV(315) - B(277) = RCT(145)*V(337) -! B(278) = dA(145)/dV(337) - B(278) = RCT(145)*V(315) -! B(279) = dA(146)/dV(321) - B(279) = RCT(146)*V(337) -! B(280) = dA(146)/dV(337) - B(280) = RCT(146)*V(321) -! B(281) = dA(147)/dV(260) - B(281) = RCT(147)*V(337) -! B(282) = dA(147)/dV(337) - B(282) = RCT(147)*V(260) -! B(283) = dA(148)/dV(322) - B(283) = RCT(148)*V(337) -! B(284) = dA(148)/dV(337) - B(284) = RCT(148)*V(322) -! B(285) = dA(149)/dV(290) - B(285) = RCT(149)*V(345) -! B(286) = dA(149)/dV(345) - B(286) = RCT(149)*V(290) -! B(287) = dA(150)/dV(290) - B(287) = RCT(150)*V(341) -! B(288) = dA(150)/dV(341) - B(288) = RCT(150)*V(290) -! B(289) = dA(151)/dV(306) - B(289) = RCT(151)*V(345) -! B(290) = dA(151)/dV(345) - B(290) = RCT(151)*V(306) -! B(291) = dA(152)/dV(306) - B(291) = RCT(152)*V(345) -! B(292) = dA(152)/dV(345) - B(292) = RCT(152)*V(306) -! B(293) = dA(153)/dV(306) - B(293) = RCT(153)*V(345) -! B(294) = dA(153)/dV(345) - B(294) = RCT(153)*V(306) -! B(295) = dA(154)/dV(306) - B(295) = RCT(154)*V(351) -! B(296) = dA(154)/dV(351) - B(296) = RCT(154)*V(306) -! B(297) = dA(155)/dV(213) - B(297) = RCT(155)*V(335) -! B(298) = dA(155)/dV(335) - B(298) = RCT(155)*V(213) -! B(299) = dA(156)/dV(114) +! B(243) = dA(127)/dV(250) + B(243) = RCT(127)*V(338) +! B(244) = dA(127)/dV(338) + B(244) = RCT(127)*V(250) +! B(245) = dA(128)/dV(250) + B(245) = RCT(128)*V(341) +! B(246) = dA(128)/dV(341) + B(246) = RCT(128)*V(250) +! B(247) = dA(129)/dV(300) + B(247) = RCT(129)*V(334) +! B(248) = dA(129)/dV(334) + B(248) = RCT(129)*V(300) +! B(249) = dA(130)/dV(319) + B(249) = RCT(130)*V(334) +! B(250) = dA(130)/dV(334) + B(250) = RCT(130)*V(319) +! B(251) = dA(131)/dV(295) + B(251) = RCT(131)*V(348) +! B(252) = dA(131)/dV(348) + B(252) = RCT(131)*V(295) +! B(253) = dA(132)/dV(323) + B(253) = RCT(132)*V(334) +! B(254) = dA(132)/dV(334) + B(254) = RCT(132)*V(323) +! B(255) = dA(133)/dV(322) + B(255) = RCT(133)*V(334) +! B(256) = dA(133)/dV(334) + B(256) = RCT(133)*V(322) +! B(257) = dA(134)/dV(304) + B(257) = RCT(134)*V(334) +! B(258) = dA(134)/dV(334) + B(258) = RCT(134)*V(304) +! B(259) = dA(135)/dV(252) + B(259) = RCT(135)*V(334) +! B(260) = dA(135)/dV(334) + B(260) = RCT(135)*V(252) +! B(261) = dA(136)/dV(316) + B(261) = RCT(136)*V(334) +! B(262) = dA(136)/dV(334) + B(262) = RCT(136)*V(316) +! B(263) = dA(137)/dV(324) + B(263) = RCT(137)*V(334) +! B(264) = dA(137)/dV(334) + B(264) = RCT(137)*V(324) +! B(265) = dA(138)/dV(327) + B(265) = RCT(138)*V(334) +! B(266) = dA(138)/dV(334) + B(266) = RCT(138)*V(327) +! B(267) = dA(139)/dV(253) + B(267) = RCT(139)*V(334) +! B(268) = dA(139)/dV(334) + B(268) = RCT(139)*V(253) +! B(269) = dA(140)/dV(154) + B(269) = RCT(140)*V(343) +! B(270) = dA(140)/dV(343) + B(270) = RCT(140)*V(154) +! B(271) = dA(141)/dV(192) + B(271) = RCT(141)*V(343) +! B(272) = dA(141)/dV(343) + B(272) = RCT(141)*V(192) +! B(273) = dA(142)/dV(300) + B(273) = RCT(142)*2*V(300) +! B(274) = dA(143)/dV(319) + B(274) = RCT(143)*2*V(319) +! B(275) = dA(144)/dV(300) + B(275) = RCT(144)*V(341) +! B(276) = dA(144)/dV(341) + B(276) = RCT(144)*V(300) +! B(277) = dA(145)/dV(319) + B(277) = RCT(145)*V(341) +! B(278) = dA(145)/dV(341) + B(278) = RCT(145)*V(319) +! B(279) = dA(146)/dV(326) + B(279) = RCT(146)*V(341) +! B(280) = dA(146)/dV(341) + B(280) = RCT(146)*V(326) +! B(281) = dA(147)/dV(264) + B(281) = RCT(147)*V(341) +! B(282) = dA(147)/dV(341) + B(282) = RCT(147)*V(264) +! B(283) = dA(148)/dV(325) + B(283) = RCT(148)*V(341) +! B(284) = dA(148)/dV(341) + B(284) = RCT(148)*V(325) +! B(285) = dA(149)/dV(293) + B(285) = RCT(149)*V(343) +! B(286) = dA(149)/dV(343) + B(286) = RCT(149)*V(293) +! B(287) = dA(150)/dV(293) + B(287) = RCT(150)*V(356) +! B(288) = dA(150)/dV(356) + B(288) = RCT(150)*V(293) +! B(289) = dA(151)/dV(309) + B(289) = RCT(151)*V(343) +! B(290) = dA(151)/dV(343) + B(290) = RCT(151)*V(309) +! B(291) = dA(152)/dV(309) + B(291) = RCT(152)*V(343) +! B(292) = dA(152)/dV(343) + B(292) = RCT(152)*V(309) +! B(293) = dA(153)/dV(309) + B(293) = RCT(153)*V(343) +! B(294) = dA(153)/dV(343) + B(294) = RCT(153)*V(309) +! B(295) = dA(154)/dV(309) + B(295) = RCT(154)*V(348) +! B(296) = dA(154)/dV(348) + B(296) = RCT(154)*V(309) +! B(297) = dA(155)/dV(216) + B(297) = RCT(155)*V(345) +! B(298) = dA(155)/dV(345) + B(298) = RCT(155)*V(216) +! B(299) = dA(156)/dV(115) B(299) = RCT(156) -! B(300) = dA(157)/dV(213) - B(300) = RCT(157)*V(346) -! B(301) = dA(157)/dV(346) - B(301) = RCT(157)*V(213) -! B(302) = dA(158)/dV(213) - B(302) = RCT(158)*V(337) -! B(303) = dA(158)/dV(337) - B(303) = RCT(158)*V(213) -! B(304) = dA(159)/dV(213) - B(304) = RCT(159)*V(351) -! B(305) = dA(159)/dV(351) - B(305) = RCT(159)*V(213) -! B(306) = dA(160)/dV(114) - B(306) = RCT(160)*V(345) -! B(307) = dA(160)/dV(345) - B(307) = RCT(160)*V(114) -! B(308) = dA(161)/dV(72) - B(308) = RCT(161)*V(345) -! B(309) = dA(161)/dV(345) - B(309) = RCT(161)*V(72) -! B(310) = dA(162)/dV(290) - B(310) = RCT(162)*V(351) -! B(311) = dA(162)/dV(351) - B(311) = RCT(162)*V(290) -! B(312) = dA(163)/dV(270) - B(312) = RCT(163)*V(345) -! B(313) = dA(163)/dV(345) - B(313) = RCT(163)*V(270) -! B(314) = dA(164)/dV(294) - B(314) = RCT(164)*V(345) -! B(315) = dA(164)/dV(345) - B(315) = RCT(164)*V(294) -! B(316) = dA(165)/dV(270) - B(316) = RCT(165)*V(351) -! B(317) = dA(165)/dV(351) - B(317) = RCT(165)*V(270) -! B(318) = dA(166)/dV(294) - B(318) = RCT(166)*V(351) -! B(319) = dA(166)/dV(351) - B(319) = RCT(166)*V(294) -! B(320) = dA(167)/dV(307) - B(320) = RCT(167)*V(345) -! B(321) = dA(167)/dV(345) - B(321) = RCT(167)*V(307) -! B(322) = dA(168)/dV(307) - B(322) = RCT(168)*V(345) -! B(323) = dA(168)/dV(345) - B(323) = RCT(168)*V(307) -! B(324) = dA(169)/dV(125) - B(324) = RCT(169)*V(345) -! B(325) = dA(169)/dV(345) - B(325) = RCT(169)*V(125) -! B(326) = dA(170)/dV(118) - B(326) = RCT(170)*V(345) -! B(327) = dA(170)/dV(345) - B(327) = RCT(170)*V(118) -! B(328) = dA(171)/dV(99) - B(328) = RCT(171)*V(345) -! B(329) = dA(171)/dV(345) - B(329) = RCT(171)*V(99) -! B(330) = dA(172)/dV(100) - B(330) = RCT(172)*V(345) -! B(331) = dA(172)/dV(345) - B(331) = RCT(172)*V(100) -! B(332) = dA(173)/dV(97) - B(332) = RCT(173)*V(345) -! B(333) = dA(173)/dV(345) - B(333) = RCT(173)*V(97) -! B(334) = dA(174)/dV(102) - B(334) = RCT(174)*V(345) -! B(335) = dA(174)/dV(345) - B(335) = RCT(174)*V(102) -! B(336) = dA(175)/dV(155) - B(336) = RCT(175)*V(345) -! B(337) = dA(175)/dV(345) - B(337) = RCT(175)*V(155) -! B(338) = dA(176)/dV(123) - B(338) = RCT(176)*V(345) -! B(339) = dA(176)/dV(345) - B(339) = RCT(176)*V(123) +! B(300) = dA(157)/dV(216) + B(300) = RCT(157)*V(338) +! B(301) = dA(157)/dV(338) + B(301) = RCT(157)*V(216) +! B(302) = dA(158)/dV(216) + B(302) = RCT(158)*V(341) +! B(303) = dA(158)/dV(341) + B(303) = RCT(158)*V(216) +! B(304) = dA(159)/dV(216) + B(304) = RCT(159)*V(348) +! B(305) = dA(159)/dV(348) + B(305) = RCT(159)*V(216) +! B(306) = dA(160)/dV(115) + B(306) = RCT(160)*V(343) +! B(307) = dA(160)/dV(343) + B(307) = RCT(160)*V(115) +! B(308) = dA(161)/dV(74) + B(308) = RCT(161)*V(343) +! B(309) = dA(161)/dV(343) + B(309) = RCT(161)*V(74) +! B(310) = dA(162)/dV(293) + B(310) = RCT(162)*V(348) +! B(311) = dA(162)/dV(348) + B(311) = RCT(162)*V(293) +! B(312) = dA(163)/dV(274) + B(312) = RCT(163)*V(343) +! B(313) = dA(163)/dV(343) + B(313) = RCT(163)*V(274) +! B(314) = dA(164)/dV(298) + B(314) = RCT(164)*V(343) +! B(315) = dA(164)/dV(343) + B(315) = RCT(164)*V(298) +! B(316) = dA(165)/dV(274) + B(316) = RCT(165)*V(348) +! B(317) = dA(165)/dV(348) + B(317) = RCT(165)*V(274) +! B(318) = dA(166)/dV(298) + B(318) = RCT(166)*V(348) +! B(319) = dA(166)/dV(348) + B(319) = RCT(166)*V(298) +! B(320) = dA(167)/dV(311) + B(320) = RCT(167)*V(343) +! B(321) = dA(167)/dV(343) + B(321) = RCT(167)*V(311) +! B(322) = dA(168)/dV(311) + B(322) = RCT(168)*V(343) +! B(323) = dA(168)/dV(343) + B(323) = RCT(168)*V(311) +! B(324) = dA(169)/dV(128) + B(324) = RCT(169)*V(343) +! B(325) = dA(169)/dV(343) + B(325) = RCT(169)*V(128) +! B(326) = dA(170)/dV(121) + B(326) = RCT(170)*V(343) +! B(327) = dA(170)/dV(343) + B(327) = RCT(170)*V(121) +! B(328) = dA(171)/dV(101) + B(328) = RCT(171)*V(343) +! B(329) = dA(171)/dV(343) + B(329) = RCT(171)*V(101) +! B(330) = dA(172)/dV(102) + B(330) = RCT(172)*V(343) +! B(331) = dA(172)/dV(343) + B(331) = RCT(172)*V(102) +! B(332) = dA(173)/dV(99) + B(332) = RCT(173)*V(343) +! B(333) = dA(173)/dV(343) + B(333) = RCT(173)*V(99) +! B(334) = dA(174)/dV(104) + B(334) = RCT(174)*V(343) +! B(335) = dA(174)/dV(343) + B(335) = RCT(174)*V(104) +! B(336) = dA(175)/dV(158) + B(336) = RCT(175)*V(343) +! B(337) = dA(175)/dV(343) + B(337) = RCT(175)*V(158) +! B(338) = dA(176)/dV(126) + B(338) = RCT(176)*V(343) +! B(339) = dA(176)/dV(343) + B(339) = RCT(176)*V(126) ! B(340) = dA(177)/dV(24) - B(340) = RCT(177)*V(345) -! B(341) = dA(177)/dV(345) + B(340) = RCT(177)*V(343) +! B(341) = dA(177)/dV(343) B(341) = RCT(177)*V(24) -! B(342) = dA(178)/dV(92) - B(342) = RCT(178)*V(345) -! B(343) = dA(178)/dV(345) - B(343) = RCT(178)*V(92) -! B(344) = dA(179)/dV(183) - B(344) = RCT(179)*V(351) -! B(345) = dA(179)/dV(351) - B(345) = RCT(179)*V(183) -! B(346) = dA(180)/dV(324) - B(346) = RCT(180)*2*V(324) -! B(347) = dA(181)/dV(324) - B(347) = RCT(181)*V(328) -! B(348) = dA(181)/dV(328) - B(348) = RCT(181)*V(324) -! B(349) = dA(182)/dV(319) - B(349) = RCT(182)*V(324) -! B(350) = dA(182)/dV(324) - B(350) = RCT(182)*V(319) -! B(351) = dA(183)/dV(300) - B(351) = RCT(183)*V(324) -! B(352) = dA(183)/dV(324) - B(352) = RCT(183)*V(300) -! B(353) = dA(184)/dV(313) - B(353) = RCT(184)*V(324) -! B(354) = dA(184)/dV(324) - B(354) = RCT(184)*V(313) -! B(355) = dA(185)/dV(320) - B(355) = RCT(185)*V(324) -! B(356) = dA(185)/dV(324) - B(356) = RCT(185)*V(320) -! B(357) = dA(186)/dV(323) - B(357) = RCT(186)*V(324) -! B(358) = dA(186)/dV(324) - B(358) = RCT(186)*V(323) -! B(359) = dA(187)/dV(318) - B(359) = RCT(187)*V(324) -! B(360) = dA(187)/dV(324) - B(360) = RCT(187)*V(318) -! B(361) = dA(188)/dV(249) - B(361) = RCT(188)*V(324) -! B(362) = dA(188)/dV(324) - B(362) = RCT(188)*V(249) -! B(363) = dA(189)/dV(250) - B(363) = RCT(189)*V(324) -! B(364) = dA(189)/dV(324) - B(364) = RCT(189)*V(250) -! B(365) = dA(190)/dV(296) - B(365) = RCT(190)*V(324) -! B(366) = dA(190)/dV(324) - B(366) = RCT(190)*V(296) -! B(367) = dA(191)/dV(315) - B(367) = RCT(191)*V(324) -! B(368) = dA(191)/dV(324) - B(368) = RCT(191)*V(315) -! B(369) = dA(192)/dV(260) - B(369) = RCT(192)*V(324) -! B(370) = dA(192)/dV(324) - B(370) = RCT(192)*V(260) -! B(371) = dA(193)/dV(321) - B(371) = RCT(193)*V(324) -! B(372) = dA(193)/dV(324) - B(372) = RCT(193)*V(321) -! B(373) = dA(194)/dV(322) - B(373) = RCT(194)*V(324) -! B(374) = dA(194)/dV(324) - B(374) = RCT(194)*V(322) -! B(375) = dA(195)/dV(322) - B(375) = RCT(195)*V(328) -! B(376) = dA(195)/dV(328) - B(376) = RCT(195)*V(322) -! B(377) = dA(196)/dV(351) - B(377) = RCT(196)*2*V(351) -! B(378) = dA(197)/dV(328) - B(378) = RCT(197)*V(335) -! B(379) = dA(197)/dV(335) - B(379) = RCT(197)*V(328) -! B(380) = dA(198)/dV(80) +! B(342) = dA(178)/dV(95) + B(342) = RCT(178)*V(343) +! B(343) = dA(178)/dV(343) + B(343) = RCT(178)*V(95) +! B(344) = dA(179)/dV(187) + B(344) = RCT(179)*V(348) +! B(345) = dA(179)/dV(348) + B(345) = RCT(179)*V(187) +! B(346) = dA(180)/dV(328) + B(346) = RCT(180)*2*V(328) +! B(347) = dA(181)/dV(328) + B(347) = RCT(181)*V(334) +! B(348) = dA(181)/dV(334) + B(348) = RCT(181)*V(328) +! B(349) = dA(182)/dV(323) + B(349) = RCT(182)*V(328) +! B(350) = dA(182)/dV(328) + B(350) = RCT(182)*V(323) +! B(351) = dA(183)/dV(304) + B(351) = RCT(183)*V(328) +! B(352) = dA(183)/dV(328) + B(352) = RCT(183)*V(304) +! B(353) = dA(184)/dV(316) + B(353) = RCT(184)*V(328) +! B(354) = dA(184)/dV(328) + B(354) = RCT(184)*V(316) +! B(355) = dA(185)/dV(324) + B(355) = RCT(185)*V(328) +! B(356) = dA(185)/dV(328) + B(356) = RCT(185)*V(324) +! B(357) = dA(186)/dV(327) + B(357) = RCT(186)*V(328) +! B(358) = dA(186)/dV(328) + B(358) = RCT(186)*V(327) +! B(359) = dA(187)/dV(322) + B(359) = RCT(187)*V(328) +! B(360) = dA(187)/dV(328) + B(360) = RCT(187)*V(322) +! B(361) = dA(188)/dV(252) + B(361) = RCT(188)*V(328) +! B(362) = dA(188)/dV(328) + B(362) = RCT(188)*V(252) +! B(363) = dA(189)/dV(253) + B(363) = RCT(189)*V(328) +! B(364) = dA(189)/dV(328) + B(364) = RCT(189)*V(253) +! B(365) = dA(190)/dV(300) + B(365) = RCT(190)*V(328) +! B(366) = dA(190)/dV(328) + B(366) = RCT(190)*V(300) +! B(367) = dA(191)/dV(319) + B(367) = RCT(191)*V(328) +! B(368) = dA(191)/dV(328) + B(368) = RCT(191)*V(319) +! B(369) = dA(192)/dV(264) + B(369) = RCT(192)*V(328) +! B(370) = dA(192)/dV(328) + B(370) = RCT(192)*V(264) +! B(371) = dA(193)/dV(326) + B(371) = RCT(193)*V(328) +! B(372) = dA(193)/dV(328) + B(372) = RCT(193)*V(326) +! B(373) = dA(194)/dV(325) + B(373) = RCT(194)*V(328) +! B(374) = dA(194)/dV(328) + B(374) = RCT(194)*V(325) +! B(375) = dA(195)/dV(325) + B(375) = RCT(195)*V(334) +! B(376) = dA(195)/dV(334) + B(376) = RCT(195)*V(325) +! B(377) = dA(196)/dV(348) + B(377) = RCT(196)*2*V(348) +! B(378) = dA(197)/dV(334) + B(378) = RCT(197)*V(345) +! B(379) = dA(197)/dV(345) + B(379) = RCT(197)*V(334) +! B(380) = dA(198)/dV(83) B(380) = RCT(198) -! B(381) = dA(199)/dV(94) - B(381) = RCT(199)*V(345) -! B(382) = dA(199)/dV(345) - B(382) = RCT(199)*V(94) -! B(383) = dA(200)/dV(94) - B(383) = RCT(200)*V(345) -! B(384) = dA(200)/dV(345) - B(384) = RCT(200)*V(94) -! B(385) = dA(201)/dV(94) - B(385) = RCT(201)*V(351) -! B(386) = dA(201)/dV(351) - B(386) = RCT(201)*V(94) -! B(387) = dA(202)/dV(345) - B(387) = RCT(202)*V(348) -! B(388) = dA(202)/dV(348) - B(388) = RCT(202)*V(345) -! B(389) = dA(203)/dV(341) - B(389) = RCT(203)*V(342) -! B(390) = dA(203)/dV(342) - B(390) = RCT(203)*V(341) -! B(391) = dA(204)/dV(337) +! B(381) = dA(199)/dV(87) + B(381) = RCT(199)*V(343) +! B(382) = dA(199)/dV(343) + B(382) = RCT(199)*V(87) +! B(383) = dA(200)/dV(87) + B(383) = RCT(200)*V(343) +! B(384) = dA(200)/dV(343) + B(384) = RCT(200)*V(87) +! B(385) = dA(201)/dV(87) + B(385) = RCT(201)*V(348) +! B(386) = dA(201)/dV(348) + B(386) = RCT(201)*V(87) +! B(387) = dA(202)/dV(343) + B(387) = RCT(202)*V(355) +! B(388) = dA(202)/dV(355) + B(388) = RCT(202)*V(343) +! B(389) = dA(203)/dV(342) + B(389) = RCT(203)*V(356) +! B(390) = dA(203)/dV(356) + B(390) = RCT(203)*V(342) +! B(391) = dA(204)/dV(341) B(391) = RCT(204)*V(347) ! B(392) = dA(204)/dV(347) - B(392) = RCT(204)*V(337) -! B(393) = dA(205)/dV(337) + B(392) = RCT(204)*V(341) +! B(393) = dA(205)/dV(341) B(393) = RCT(205)*V(342) ! B(394) = dA(205)/dV(342) - B(394) = RCT(205)*V(337) -! B(395) = dA(206)/dV(345) - B(395) = RCT(206)*V(352) -! B(396) = dA(206)/dV(352) - B(396) = RCT(206)*V(345) + B(394) = RCT(205)*V(341) +! B(395) = dA(206)/dV(343) + B(395) = RCT(206)*V(354) +! B(396) = dA(206)/dV(354) + B(396) = RCT(206)*V(343) ! B(397) = dA(207)/dV(347) B(397) = RCT(207)*2*V(347) ! B(398) = dA(208)/dV(347) B(398) = RCT(208)*2*V(347) -! B(399) = dA(209)/dV(346) +! B(399) = dA(209)/dV(338) B(399) = RCT(209)*V(347) ! B(400) = dA(209)/dV(347) - B(400) = RCT(209)*V(346) -! B(401) = dA(210)/dV(218) + B(400) = RCT(209)*V(338) +! B(401) = dA(210)/dV(221) B(401) = RCT(210)*V(342) ! B(402) = dA(210)/dV(342) - B(402) = RCT(210)*V(218) -! B(403) = dA(211)/dV(148) - B(403) = RCT(211)*V(345) -! B(404) = dA(211)/dV(345) - B(404) = RCT(211)*V(148) -! B(405) = dA(212)/dV(316) - B(405) = RCT(212)*V(343) -! B(406) = dA(212)/dV(343) - B(406) = RCT(212)*V(316) -! B(407) = dA(213)/dV(343) - B(407) = RCT(213)*V(352) -! B(408) = dA(213)/dV(352) - B(408) = RCT(213)*V(343) -! B(409) = dA(214)/dV(345) + B(402) = RCT(210)*V(221) +! B(403) = dA(211)/dV(153) + B(403) = RCT(211)*V(343) +! B(404) = dA(211)/dV(343) + B(404) = RCT(211)*V(153) +! B(405) = dA(212)/dV(320) + B(405) = RCT(212)*V(351) +! B(406) = dA(212)/dV(351) + B(406) = RCT(212)*V(320) +! B(407) = dA(213)/dV(351) + B(407) = RCT(213)*V(354) +! B(408) = dA(213)/dV(354) + B(408) = RCT(213)*V(351) +! B(409) = dA(214)/dV(343) B(409) = RCT(214)*V(347) ! B(410) = dA(214)/dV(347) - B(410) = RCT(214)*V(345) + B(410) = RCT(214)*V(343) ! B(411) = dA(215)/dV(342) - B(411) = RCT(215)*V(351) -! B(412) = dA(215)/dV(351) + B(411) = RCT(215)*V(348) +! B(412) = dA(215)/dV(348) B(412) = RCT(215)*V(342) -! B(413) = dA(216)/dV(325) +! B(413) = dA(216)/dV(329) B(413) = RCT(216)*V(342) ! B(414) = dA(216)/dV(342) - B(414) = RCT(216)*V(325) -! B(415) = dA(217)/dV(326) + B(414) = RCT(216)*V(329) +! B(415) = dA(217)/dV(330) B(415) = RCT(217)*V(342) ! B(416) = dA(217)/dV(342) - B(416) = RCT(217)*V(326) -! B(417) = dA(218)/dV(295) + B(416) = RCT(217)*V(330) +! B(417) = dA(218)/dV(297) B(417) = RCT(218)*V(342) ! B(418) = dA(218)/dV(342) - B(418) = RCT(218)*V(295) -! B(419) = dA(219)/dV(183) + B(418) = RCT(218)*V(297) +! B(419) = dA(219)/dV(187) B(419) = RCT(219)*V(342) ! B(420) = dA(219)/dV(342) - B(420) = RCT(219)*V(183) -! B(421) = dA(220)/dV(141) + B(420) = RCT(219)*V(187) +! B(421) = dA(220)/dV(142) B(421) = RCT(220)*V(342) ! B(422) = dA(220)/dV(342) - B(422) = RCT(220)*V(141) -! B(423) = dA(221)/dV(335) - B(423) = RCT(221)*V(342) -! B(424) = dA(221)/dV(342) - B(424) = RCT(221)*V(335) -! B(425) = dA(222)/dV(335) + B(422) = RCT(220)*V(142) +! B(423) = dA(221)/dV(342) + B(423) = RCT(221)*V(345) +! B(424) = dA(221)/dV(345) + B(424) = RCT(221)*V(342) +! B(425) = dA(222)/dV(345) B(425) = RCT(222)*V(347) ! B(426) = dA(222)/dV(347) - B(426) = RCT(222)*V(335) -! B(427) = dA(223)/dV(81) - B(427) = RCT(223)*V(345) -! B(428) = dA(223)/dV(345) - B(428) = RCT(223)*V(81) -! B(429) = dA(224)/dV(78) - B(429) = RCT(224)*V(345) -! B(430) = dA(224)/dV(345) - B(430) = RCT(224)*V(78) -! B(431) = dA(225)/dV(105) - B(431) = RCT(225)*V(345) -! B(432) = dA(225)/dV(345) - B(432) = RCT(225)*V(105) -! B(433) = dA(226)/dV(334) - B(433) = RCT(226)*V(336) -! B(434) = dA(226)/dV(336) - B(434) = RCT(226)*V(334) -! B(435) = dA(227)/dV(334) + B(426) = RCT(222)*V(345) +! B(427) = dA(223)/dV(82) + B(427) = RCT(223)*V(343) +! B(428) = dA(223)/dV(343) + B(428) = RCT(223)*V(82) +! B(429) = dA(224)/dV(79) + B(429) = RCT(224)*V(343) +! B(430) = dA(224)/dV(343) + B(430) = RCT(224)*V(79) +! B(431) = dA(225)/dV(108) + B(431) = RCT(225)*V(343) +! B(432) = dA(225)/dV(343) + B(432) = RCT(225)*V(108) +! B(433) = dA(226)/dV(337) + B(433) = RCT(226)*V(353) +! B(434) = dA(226)/dV(353) + B(434) = RCT(226)*V(337) +! B(435) = dA(227)/dV(337) B(435) = RCT(227)*F(2) -! B(437) = dA(228)/dV(334) +! B(437) = dA(228)/dV(337) B(437) = RCT(228)*F(3) -! B(439) = dA(229)/dV(334) +! B(439) = dA(229)/dV(337) B(439) = RCT(229)*F(1) -! B(441) = dA(230)/dV(63) - B(441) = RCT(230)*V(334) -! B(442) = dA(230)/dV(334) - B(442) = RCT(230)*V(63) -! B(443) = dA(231)/dV(228) - B(443) = RCT(231)*V(334) -! B(444) = dA(231)/dV(334) - B(444) = RCT(231)*V(228) -! B(445) = dA(232)/dV(343) +! B(441) = dA(230)/dV(66) + B(441) = RCT(230)*V(337) +! B(442) = dA(230)/dV(337) + B(442) = RCT(230)*V(66) +! B(443) = dA(231)/dV(232) + B(443) = RCT(231)*V(337) +! B(444) = dA(231)/dV(337) + B(444) = RCT(231)*V(232) +! B(445) = dA(232)/dV(351) B(445) = RCT(232)*F(3) -! B(447) = dA(233)/dV(341) - B(447) = RCT(233)*V(343) -! B(448) = dA(233)/dV(343) - B(448) = RCT(233)*V(341) -! B(449) = dA(234)/dV(345) +! B(447) = dA(233)/dV(351) + B(447) = RCT(233)*V(356) +! B(448) = dA(233)/dV(356) + B(448) = RCT(233)*V(351) +! B(449) = dA(234)/dV(343) B(449) = RCT(234)*F(1) ! B(451) = dA(235)/dV(343) - B(451) = RCT(235)*V(345) -! B(452) = dA(235)/dV(345) + B(451) = RCT(235)*V(351) +! B(452) = dA(235)/dV(351) B(452) = RCT(235)*V(343) -! B(453) = dA(236)/dV(337) - B(453) = RCT(236)*V(343) -! B(454) = dA(236)/dV(343) - B(454) = RCT(236)*V(337) -! B(455) = dA(237)/dV(334) - B(455) = RCT(237)*V(341) -! B(456) = dA(237)/dV(341) - B(456) = RCT(237)*V(334) -! B(457) = dA(238)/dV(68) - B(457) = RCT(238)*V(343) -! B(458) = dA(238)/dV(343) - B(458) = RCT(238)*V(68) -! B(459) = dA(239)/dV(68) - B(459) = RCT(239)*V(345) -! B(460) = dA(239)/dV(345) - B(460) = RCT(239)*V(68) -! B(461) = dA(240)/dV(335) - B(461) = RCT(240)*V(343) -! B(462) = dA(240)/dV(343) - B(462) = RCT(240)*V(335) -! B(463) = dA(241)/dV(343) +! B(453) = dA(236)/dV(341) + B(453) = RCT(236)*V(351) +! B(454) = dA(236)/dV(351) + B(454) = RCT(236)*V(341) +! B(455) = dA(237)/dV(337) + B(455) = RCT(237)*V(356) +! B(456) = dA(237)/dV(356) + B(456) = RCT(237)*V(337) +! B(457) = dA(238)/dV(71) + B(457) = RCT(238)*V(351) +! B(458) = dA(238)/dV(351) + B(458) = RCT(238)*V(71) +! B(459) = dA(239)/dV(71) + B(459) = RCT(239)*V(343) +! B(460) = dA(239)/dV(343) + B(460) = RCT(239)*V(71) +! B(461) = dA(240)/dV(345) + B(461) = RCT(240)*V(351) +! B(462) = dA(240)/dV(351) + B(462) = RCT(240)*V(345) +! B(463) = dA(241)/dV(348) B(463) = RCT(241)*V(351) ! B(464) = dA(241)/dV(351) - B(464) = RCT(241)*V(343) -! B(465) = dA(242)/dV(343) - B(465) = RCT(242)*V(346) -! B(466) = dA(242)/dV(346) - B(466) = RCT(242)*V(343) -! B(467) = dA(243)/dV(335) - B(467) = RCT(243)*V(343) -! B(468) = dA(243)/dV(343) - B(468) = RCT(243)*V(335) -! B(469) = dA(244)/dV(264) - B(469) = RCT(244)*V(343) -! B(470) = dA(244)/dV(343) - B(470) = RCT(244)*V(264) -! B(471) = dA(245)/dV(217) + B(464) = RCT(241)*V(348) +! B(465) = dA(242)/dV(338) + B(465) = RCT(242)*V(351) +! B(466) = dA(242)/dV(351) + B(466) = RCT(242)*V(338) +! B(467) = dA(243)/dV(345) + B(467) = RCT(243)*V(351) +! B(468) = dA(243)/dV(351) + B(468) = RCT(243)*V(345) +! B(469) = dA(244)/dV(267) + B(469) = RCT(244)*V(351) +! B(470) = dA(244)/dV(351) + B(470) = RCT(244)*V(267) +! B(471) = dA(245)/dV(219) B(471) = RCT(245)*F(3) -! B(473) = dA(246)/dV(217) - B(473) = RCT(246)*V(341) -! B(474) = dA(246)/dV(341) - B(474) = RCT(246)*V(217) -! B(475) = dA(247)/dV(217) - B(475) = RCT(247)*V(337) -! B(476) = dA(247)/dV(337) - B(476) = RCT(247)*V(217) -! B(477) = dA(248)/dV(67) +! B(473) = dA(246)/dV(219) + B(473) = RCT(246)*V(356) +! B(474) = dA(246)/dV(356) + B(474) = RCT(246)*V(219) +! B(475) = dA(247)/dV(219) + B(475) = RCT(247)*V(341) +! B(476) = dA(247)/dV(341) + B(476) = RCT(247)*V(219) +! B(477) = dA(248)/dV(70) B(477) = RCT(248)*F(3) -! B(479) = dA(249)/dV(67) - B(479) = RCT(249)*V(346) -! B(480) = dA(249)/dV(346) - B(480) = RCT(249)*V(67) -! B(481) = dA(250)/dV(67) - B(481) = RCT(250)*V(335) -! B(482) = dA(250)/dV(335) - B(482) = RCT(250)*V(67) -! B(483) = dA(251)/dV(343) - B(483) = RCT(251)*V(347) -! B(484) = dA(251)/dV(347) - B(484) = RCT(251)*V(343) -! B(485) = dA(252)/dV(325) - B(485) = RCT(252)*V(343) -! B(486) = dA(252)/dV(343) - B(486) = RCT(252)*V(325) -! B(487) = dA(253)/dV(334) - B(487) = RCT(253)*V(339) -! B(488) = dA(253)/dV(339) - B(488) = RCT(253)*V(334) -! B(489) = dA(254)/dV(334) - B(489) = RCT(254)*V(352) -! B(490) = dA(254)/dV(352) - B(490) = RCT(254)*V(334) -! B(491) = dA(255)/dV(245) - B(491) = RCT(255)*V(334) -! B(492) = dA(255)/dV(334) - B(492) = RCT(255)*V(245) -! B(493) = dA(256)/dV(46) - B(493) = RCT(256)*V(334) -! B(494) = dA(256)/dV(334) - B(494) = RCT(256)*V(46) -! B(495) = dA(257)/dV(181) - B(495) = RCT(257)*V(334) -! B(496) = dA(257)/dV(334) - B(496) = RCT(257)*V(181) -! B(497) = dA(258)/dV(105) - B(497) = RCT(258)*V(334) -! B(498) = dA(258)/dV(334) - B(498) = RCT(258)*V(105) -! B(499) = dA(259)/dV(78) - B(499) = RCT(259)*V(334) -! B(500) = dA(259)/dV(334) - B(500) = RCT(259)*V(78) -! B(501) = dA(260)/dV(81) - B(501) = RCT(260)*V(334) -! B(502) = dA(260)/dV(334) - B(502) = RCT(260)*V(81) -! B(503) = dA(261)/dV(87) - B(503) = RCT(261)*V(334) -! B(504) = dA(261)/dV(334) - B(504) = RCT(261)*V(87) -! B(505) = dA(262)/dV(47) - B(505) = RCT(262)*V(334) -! B(506) = dA(262)/dV(334) - B(506) = RCT(262)*V(47) -! B(507) = dA(263)/dV(48) - B(507) = RCT(263)*V(334) -! B(508) = dA(263)/dV(334) - B(508) = RCT(263)*V(48) -! B(509) = dA(264)/dV(61) - B(509) = RCT(264)*V(334) -! B(510) = dA(264)/dV(334) - B(510) = RCT(264)*V(61) -! B(511) = dA(265)/dV(53) - B(511) = RCT(265)*V(334) -! B(512) = dA(265)/dV(334) - B(512) = RCT(265)*V(53) -! B(513) = dA(266)/dV(85) - B(513) = RCT(266)*V(334) -! B(514) = dA(266)/dV(334) - B(514) = RCT(266)*V(85) -! B(515) = dA(267)/dV(86) - B(515) = RCT(267)*V(334) -! B(516) = dA(267)/dV(334) - B(516) = RCT(267)*V(86) -! B(517) = dA(268)/dV(84) - B(517) = RCT(268)*V(334) -! B(518) = dA(268)/dV(334) - B(518) = RCT(268)*V(84) -! B(519) = dA(269)/dV(49) - B(519) = RCT(269)*V(334) -! B(520) = dA(269)/dV(334) - B(520) = RCT(269)*V(49) -! B(521) = dA(270)/dV(50) - B(521) = RCT(270)*V(334) -! B(522) = dA(270)/dV(334) - B(522) = RCT(270)*V(50) -! B(523) = dA(271)/dV(51) - B(523) = RCT(271)*V(334) -! B(524) = dA(271)/dV(334) - B(524) = RCT(271)*V(51) -! B(525) = dA(272)/dV(54) - B(525) = RCT(272)*V(334) -! B(526) = dA(272)/dV(334) - B(526) = RCT(272)*V(54) -! B(527) = dA(273)/dV(245) - B(527) = RCT(273)*V(345) -! B(528) = dA(273)/dV(345) - B(528) = RCT(273)*V(245) -! B(529) = dA(274)/dV(328) - B(529) = RCT(274)*V(338) -! B(530) = dA(274)/dV(338) - B(530) = RCT(274)*V(328) -! B(531) = dA(275)/dV(338) - B(531) = RCT(275)*V(345) -! B(532) = dA(275)/dV(345) - B(532) = RCT(275)*V(338) -! B(533) = dA(276)/dV(338) - B(533) = RCT(276)*V(345) -! B(534) = dA(276)/dV(345) - B(534) = RCT(276)*V(338) -! B(535) = dA(277)/dV(120) - B(535) = RCT(277)*V(345) -! B(536) = dA(277)/dV(345) - B(536) = RCT(277)*V(120) -! B(537) = dA(278)/dV(76) - B(537) = RCT(278)*V(345) -! B(538) = dA(278)/dV(345) - B(538) = RCT(278)*V(76) -! B(539) = dA(279)/dV(339) - B(539) = RCT(279)*V(345) -! B(540) = dA(279)/dV(345) - B(540) = RCT(279)*V(339) -! B(541) = dA(280)/dV(333) - B(541) = RCT(280)*V(345) -! B(542) = dA(280)/dV(345) - B(542) = RCT(280)*V(333) -! B(543) = dA(281)/dV(297) - B(543) = RCT(281)*V(345) -! B(544) = dA(281)/dV(345) - B(544) = RCT(281)*V(297) -! B(545) = dA(282)/dV(317) - B(545) = RCT(282)*V(345) -! B(546) = dA(282)/dV(345) - B(546) = RCT(282)*V(317) -! B(547) = dA(283)/dV(181) - B(547) = RCT(283)*V(345) -! B(548) = dA(283)/dV(345) - B(548) = RCT(283)*V(181) -! B(549) = dA(284)/dV(79) - B(549) = RCT(284)*V(345) -! B(550) = dA(284)/dV(345) - B(550) = RCT(284)*V(79) -! B(551) = dA(285)/dV(75) - B(551) = RCT(285)*V(345) -! B(552) = dA(285)/dV(345) - B(552) = RCT(285)*V(75) -! B(553) = dA(286)/dV(43) - B(553) = RCT(286)*V(345) -! B(554) = dA(286)/dV(345) - B(554) = RCT(286)*V(43) -! B(555) = dA(287)/dV(87) - B(555) = RCT(287)*V(345) -! B(556) = dA(287)/dV(345) - B(556) = RCT(287)*V(87) -! B(557) = dA(288)/dV(85) - B(557) = RCT(288)*V(345) -! B(558) = dA(288)/dV(345) - B(558) = RCT(288)*V(85) -! B(559) = dA(289)/dV(86) - B(559) = RCT(289)*V(345) -! B(560) = dA(289)/dV(345) - B(560) = RCT(289)*V(86) -! B(561) = dA(290)/dV(84) - B(561) = RCT(290)*V(345) -! B(562) = dA(290)/dV(345) - B(562) = RCT(290)*V(84) -! B(563) = dA(291)/dV(228) - B(563) = RCT(291)*V(340) -! B(564) = dA(291)/dV(340) - B(564) = RCT(291)*V(228) -! B(565) = dA(292)/dV(325) - B(565) = RCT(292)*V(340) -! B(566) = dA(292)/dV(340) - B(566) = RCT(292)*V(325) -! B(567) = dA(293)/dV(340) - B(567) = RCT(293)*V(341) -! B(568) = dA(293)/dV(341) - B(568) = RCT(293)*V(340) -! B(569) = dA(294)/dV(340) +! B(479) = dA(249)/dV(70) + B(479) = RCT(249)*V(338) +! B(480) = dA(249)/dV(338) + B(480) = RCT(249)*V(70) +! B(481) = dA(250)/dV(70) + B(481) = RCT(250)*V(345) +! B(482) = dA(250)/dV(345) + B(482) = RCT(250)*V(70) +! B(483) = dA(251)/dV(347) + B(483) = RCT(251)*V(351) +! B(484) = dA(251)/dV(351) + B(484) = RCT(251)*V(347) +! B(485) = dA(252)/dV(329) + B(485) = RCT(252)*V(351) +! B(486) = dA(252)/dV(351) + B(486) = RCT(252)*V(329) +! B(487) = dA(253)/dV(337) + B(487) = RCT(253)*V(340) +! B(488) = dA(253)/dV(340) + B(488) = RCT(253)*V(337) +! B(489) = dA(254)/dV(337) + B(489) = RCT(254)*V(354) +! B(490) = dA(254)/dV(354) + B(490) = RCT(254)*V(337) +! B(491) = dA(255)/dV(248) + B(491) = RCT(255)*V(337) +! B(492) = dA(255)/dV(337) + B(492) = RCT(255)*V(248) +! B(493) = dA(256)/dV(49) + B(493) = RCT(256)*V(337) +! B(494) = dA(256)/dV(337) + B(494) = RCT(256)*V(49) +! B(495) = dA(257)/dV(184) + B(495) = RCT(257)*V(337) +! B(496) = dA(257)/dV(337) + B(496) = RCT(257)*V(184) +! B(497) = dA(258)/dV(108) + B(497) = RCT(258)*V(337) +! B(498) = dA(258)/dV(337) + B(498) = RCT(258)*V(108) +! B(499) = dA(259)/dV(79) + B(499) = RCT(259)*V(337) +! B(500) = dA(259)/dV(337) + B(500) = RCT(259)*V(79) +! B(501) = dA(260)/dV(82) + B(501) = RCT(260)*V(337) +! B(502) = dA(260)/dV(337) + B(502) = RCT(260)*V(82) +! B(503) = dA(261)/dV(91) + B(503) = RCT(261)*V(337) +! B(504) = dA(261)/dV(337) + B(504) = RCT(261)*V(91) +! B(505) = dA(262)/dV(50) + B(505) = RCT(262)*V(337) +! B(506) = dA(262)/dV(337) + B(506) = RCT(262)*V(50) +! B(507) = dA(263)/dV(51) + B(507) = RCT(263)*V(337) +! B(508) = dA(263)/dV(337) + B(508) = RCT(263)*V(51) +! B(509) = dA(264)/dV(64) + B(509) = RCT(264)*V(337) +! B(510) = dA(264)/dV(337) + B(510) = RCT(264)*V(64) +! B(511) = dA(265)/dV(56) + B(511) = RCT(265)*V(337) +! B(512) = dA(265)/dV(337) + B(512) = RCT(265)*V(56) +! B(513) = dA(266)/dV(89) + B(513) = RCT(266)*V(337) +! B(514) = dA(266)/dV(337) + B(514) = RCT(266)*V(89) +! B(515) = dA(267)/dV(90) + B(515) = RCT(267)*V(337) +! B(516) = dA(267)/dV(337) + B(516) = RCT(267)*V(90) +! B(517) = dA(268)/dV(88) + B(517) = RCT(268)*V(337) +! B(518) = dA(268)/dV(337) + B(518) = RCT(268)*V(88) +! B(519) = dA(269)/dV(52) + B(519) = RCT(269)*V(337) +! B(520) = dA(269)/dV(337) + B(520) = RCT(269)*V(52) +! B(521) = dA(270)/dV(53) + B(521) = RCT(270)*V(337) +! B(522) = dA(270)/dV(337) + B(522) = RCT(270)*V(53) +! B(523) = dA(271)/dV(54) + B(523) = RCT(271)*V(337) +! B(524) = dA(271)/dV(337) + B(524) = RCT(271)*V(54) +! B(525) = dA(272)/dV(57) + B(525) = RCT(272)*V(337) +! B(526) = dA(272)/dV(337) + B(526) = RCT(272)*V(57) +! B(527) = dA(273)/dV(248) + B(527) = RCT(273)*V(343) +! B(528) = dA(273)/dV(343) + B(528) = RCT(273)*V(248) +! B(529) = dA(274)/dV(334) + B(529) = RCT(274)*V(344) +! B(530) = dA(274)/dV(344) + B(530) = RCT(274)*V(334) +! B(531) = dA(275)/dV(343) + B(531) = RCT(275)*V(344) +! B(532) = dA(275)/dV(344) + B(532) = RCT(275)*V(343) +! B(533) = dA(276)/dV(343) + B(533) = RCT(276)*V(344) +! B(534) = dA(276)/dV(344) + B(534) = RCT(276)*V(343) +! B(535) = dA(277)/dV(123) + B(535) = RCT(277)*V(343) +! B(536) = dA(277)/dV(343) + B(536) = RCT(277)*V(123) +! B(537) = dA(278)/dV(78) + B(537) = RCT(278)*V(343) +! B(538) = dA(278)/dV(343) + B(538) = RCT(278)*V(78) +! B(539) = dA(279)/dV(340) + B(539) = RCT(279)*V(343) +! B(540) = dA(279)/dV(343) + B(540) = RCT(279)*V(340) +! B(541) = dA(280)/dV(332) + B(541) = RCT(280)*V(343) +! B(542) = dA(280)/dV(343) + B(542) = RCT(280)*V(332) +! B(543) = dA(281)/dV(301) + B(543) = RCT(281)*V(343) +! B(544) = dA(281)/dV(343) + B(544) = RCT(281)*V(301) +! B(545) = dA(282)/dV(321) + B(545) = RCT(282)*V(343) +! B(546) = dA(282)/dV(343) + B(546) = RCT(282)*V(321) +! B(547) = dA(283)/dV(184) + B(547) = RCT(283)*V(343) +! B(548) = dA(283)/dV(343) + B(548) = RCT(283)*V(184) +! B(549) = dA(284)/dV(80) + B(549) = RCT(284)*V(343) +! B(550) = dA(284)/dV(343) + B(550) = RCT(284)*V(80) +! B(551) = dA(285)/dV(84) + B(551) = RCT(285)*V(343) +! B(552) = dA(285)/dV(343) + B(552) = RCT(285)*V(84) +! B(553) = dA(286)/dV(46) + B(553) = RCT(286)*V(343) +! B(554) = dA(286)/dV(343) + B(554) = RCT(286)*V(46) +! B(555) = dA(287)/dV(91) + B(555) = RCT(287)*V(343) +! B(556) = dA(287)/dV(343) + B(556) = RCT(287)*V(91) +! B(557) = dA(288)/dV(89) + B(557) = RCT(288)*V(343) +! B(558) = dA(288)/dV(343) + B(558) = RCT(288)*V(89) +! B(559) = dA(289)/dV(90) + B(559) = RCT(289)*V(343) +! B(560) = dA(289)/dV(343) + B(560) = RCT(289)*V(90) +! B(561) = dA(290)/dV(88) + B(561) = RCT(290)*V(343) +! B(562) = dA(290)/dV(343) + B(562) = RCT(290)*V(88) +! B(563) = dA(291)/dV(232) + B(563) = RCT(291)*V(352) +! B(564) = dA(291)/dV(352) + B(564) = RCT(291)*V(232) +! B(565) = dA(292)/dV(329) + B(565) = RCT(292)*V(352) +! B(566) = dA(292)/dV(352) + B(566) = RCT(292)*V(329) +! B(567) = dA(293)/dV(352) + B(567) = RCT(293)*V(356) +! B(568) = dA(293)/dV(356) + B(568) = RCT(293)*V(352) +! B(569) = dA(294)/dV(352) B(569) = RCT(294)*F(1) -! B(571) = dA(295)/dV(264) - B(571) = RCT(295)*V(340) -! B(572) = dA(295)/dV(340) - B(572) = RCT(295)*V(264) -! B(573) = dA(296)/dV(337) - B(573) = RCT(296)*V(340) -! B(574) = dA(296)/dV(340) - B(574) = RCT(296)*V(337) -! B(575) = dA(297)/dV(337) - B(575) = RCT(297)*V(340) -! B(576) = dA(297)/dV(340) - B(576) = RCT(297)*V(337) -! B(577) = dA(298)/dV(338) - B(577) = RCT(298)*V(343) -! B(578) = dA(298)/dV(343) - B(578) = RCT(298)*V(338) -! B(579) = dA(299)/dV(337) - B(579) = RCT(299)*V(338) -! B(580) = dA(299)/dV(338) - B(580) = RCT(299)*V(337) +! B(571) = dA(295)/dV(267) + B(571) = RCT(295)*V(352) +! B(572) = dA(295)/dV(352) + B(572) = RCT(295)*V(267) +! B(573) = dA(296)/dV(341) + B(573) = RCT(296)*V(352) +! B(574) = dA(296)/dV(352) + B(574) = RCT(296)*V(341) +! B(575) = dA(297)/dV(341) + B(575) = RCT(297)*V(352) +! B(576) = dA(297)/dV(352) + B(576) = RCT(297)*V(341) +! B(577) = dA(298)/dV(344) + B(577) = RCT(298)*V(351) +! B(578) = dA(298)/dV(351) + B(578) = RCT(298)*V(344) +! B(579) = dA(299)/dV(341) + B(579) = RCT(299)*V(344) +! B(580) = dA(299)/dV(344) + B(580) = RCT(299)*V(341) ! B(581) = dA(300)/dV(338) - B(581) = RCT(300)*V(346) -! B(582) = dA(300)/dV(346) + B(581) = RCT(300)*V(344) +! B(582) = dA(300)/dV(344) B(582) = RCT(300)*V(338) -! B(583) = dA(301)/dV(335) - B(583) = RCT(301)*V(338) -! B(584) = dA(301)/dV(338) - B(584) = RCT(301)*V(335) -! B(585) = dA(302)/dV(338) - B(585) = RCT(302)*2*V(338) -! B(586) = dA(303)/dV(338) - B(586) = RCT(303)*2*V(338) -! B(587) = dA(304)/dV(338) - B(587) = RCT(304)*2*V(338) -! B(588) = dA(305)/dV(340) +! B(583) = dA(301)/dV(344) + B(583) = RCT(301)*V(345) +! B(584) = dA(301)/dV(345) + B(584) = RCT(301)*V(344) +! B(585) = dA(302)/dV(344) + B(585) = RCT(302)*2*V(344) +! B(586) = dA(303)/dV(344) + B(586) = RCT(303)*2*V(344) +! B(587) = dA(304)/dV(344) + B(587) = RCT(304)*2*V(344) +! B(588) = dA(305)/dV(352) B(588) = RCT(305)*F(3) -! B(590) = dA(306)/dV(110) +! B(590) = dA(306)/dV(119) B(590) = RCT(306) -! B(591) = dA(307)/dV(338) - B(591) = RCT(307)*2*V(338) -! B(592) = dA(308)/dV(76) +! B(591) = dA(307)/dV(344) + B(591) = RCT(307)*2*V(344) +! B(592) = dA(308)/dV(78) B(592) = RCT(308) -! B(593) = dA(309)/dV(110) - B(593) = RCT(309)*V(340) -! B(594) = dA(309)/dV(340) - B(594) = RCT(309)*V(110) -! B(595) = dA(310)/dV(338) +! B(593) = dA(309)/dV(119) + B(593) = RCT(309)*V(352) +! B(594) = dA(309)/dV(352) + B(594) = RCT(309)*V(119) +! B(595) = dA(310)/dV(344) B(595) = RCT(310)*V(347) ! B(596) = dA(310)/dV(347) - B(596) = RCT(310)*V(338) -! B(597) = dA(311)/dV(338) + B(596) = RCT(310)*V(344) +! B(597) = dA(311)/dV(344) B(597) = RCT(311)*V(347) ! B(598) = dA(311)/dV(347) - B(598) = RCT(311)*V(338) -! B(599) = dA(312)/dV(338) + B(598) = RCT(311)*V(344) +! B(599) = dA(312)/dV(344) B(599) = RCT(312)*V(347) ! B(600) = dA(312)/dV(347) - B(600) = RCT(312)*V(338) -! B(601) = dA(313)/dV(317) - B(601) = RCT(313)*V(343) -! B(602) = dA(313)/dV(343) - B(602) = RCT(313)*V(317) -! B(603) = dA(314)/dV(317) - B(603) = RCT(314)*V(340) -! B(604) = dA(314)/dV(340) - B(604) = RCT(314)*V(317) -! B(605) = dA(315)/dV(181) - B(605) = RCT(315)*V(340) -! B(606) = dA(315)/dV(340) - B(606) = RCT(315)*V(181) -! B(607) = dA(316)/dV(79) - B(607) = RCT(316)*V(340) -! B(608) = dA(316)/dV(340) - B(608) = RCT(316)*V(79) -! B(609) = dA(317)/dV(75) - B(609) = RCT(317)*V(340) -! B(610) = dA(317)/dV(340) - B(610) = RCT(317)*V(75) -! B(611) = dA(318)/dV(265) - B(611) = RCT(318)*V(340) -! B(612) = dA(318)/dV(340) - B(612) = RCT(318)*V(265) -! B(613) = dA(319)/dV(328) - B(613) = RCT(319)*V(340) -! B(614) = dA(319)/dV(340) - B(614) = RCT(319)*V(328) -! B(615) = dA(320)/dV(164) - B(615) = RCT(320)*V(340) -! B(616) = dA(320)/dV(340) - B(616) = RCT(320)*V(164) -! B(617) = dA(321)/dV(183) - B(617) = RCT(321)*V(340) -! B(618) = dA(321)/dV(340) - B(618) = RCT(321)*V(183) -! B(619) = dA(322)/dV(296) - B(619) = RCT(322)*V(340) -! B(620) = dA(322)/dV(340) - B(620) = RCT(322)*V(296) -! B(621) = dA(323)/dV(315) - B(621) = RCT(323)*V(340) -! B(622) = dA(323)/dV(340) - B(622) = RCT(323)*V(315) -! B(623) = dA(324)/dV(282) - B(623) = RCT(324)*V(340) -! B(624) = dA(324)/dV(340) - B(624) = RCT(324)*V(282) -! B(625) = dA(325)/dV(156) - B(625) = RCT(325)*V(340) -! B(626) = dA(325)/dV(340) - B(626) = RCT(325)*V(156) -! B(627) = dA(326)/dV(283) - B(627) = RCT(326)*V(340) -! B(628) = dA(326)/dV(340) - B(628) = RCT(326)*V(283) -! B(629) = dA(327)/dV(141) - B(629) = RCT(327)*V(340) -! B(630) = dA(327)/dV(340) - B(630) = RCT(327)*V(141) -! B(631) = dA(328)/dV(141) - B(631) = RCT(328)*V(340) -! B(632) = dA(328)/dV(340) - B(632) = RCT(328)*V(141) -! B(633) = dA(329)/dV(295) - B(633) = RCT(329)*V(340) -! B(634) = dA(329)/dV(340) - B(634) = RCT(329)*V(295) -! B(635) = dA(330)/dV(276) - B(635) = RCT(330)*V(340) -! B(636) = dA(330)/dV(340) - B(636) = RCT(330)*V(276) -! B(637) = dA(331)/dV(142) - B(637) = RCT(331)*V(340) -! B(638) = dA(331)/dV(340) - B(638) = RCT(331)*V(142) -! B(639) = dA(332)/dV(290) - B(639) = RCT(332)*V(340) -! B(640) = dA(332)/dV(340) - B(640) = RCT(332)*V(290) -! B(641) = dA(333)/dV(290) + B(600) = RCT(312)*V(344) +! B(601) = dA(313)/dV(321) + B(601) = RCT(313)*V(351) +! B(602) = dA(313)/dV(351) + B(602) = RCT(313)*V(321) +! B(603) = dA(314)/dV(321) + B(603) = RCT(314)*V(352) +! B(604) = dA(314)/dV(352) + B(604) = RCT(314)*V(321) +! B(605) = dA(315)/dV(184) + B(605) = RCT(315)*V(352) +! B(606) = dA(315)/dV(352) + B(606) = RCT(315)*V(184) +! B(607) = dA(316)/dV(80) + B(607) = RCT(316)*V(352) +! B(608) = dA(316)/dV(352) + B(608) = RCT(316)*V(80) +! B(609) = dA(317)/dV(84) + B(609) = RCT(317)*V(352) +! B(610) = dA(317)/dV(352) + B(610) = RCT(317)*V(84) +! B(611) = dA(318)/dV(268) + B(611) = RCT(318)*V(352) +! B(612) = dA(318)/dV(352) + B(612) = RCT(318)*V(268) +! B(613) = dA(319)/dV(334) + B(613) = RCT(319)*V(352) +! B(614) = dA(319)/dV(352) + B(614) = RCT(319)*V(334) +! B(615) = dA(320)/dV(167) + B(615) = RCT(320)*V(352) +! B(616) = dA(320)/dV(352) + B(616) = RCT(320)*V(167) +! B(617) = dA(321)/dV(187) + B(617) = RCT(321)*V(352) +! B(618) = dA(321)/dV(352) + B(618) = RCT(321)*V(187) +! B(619) = dA(322)/dV(300) + B(619) = RCT(322)*V(352) +! B(620) = dA(322)/dV(352) + B(620) = RCT(322)*V(300) +! B(621) = dA(323)/dV(319) + B(621) = RCT(323)*V(352) +! B(622) = dA(323)/dV(352) + B(622) = RCT(323)*V(319) +! B(623) = dA(324)/dV(285) + B(623) = RCT(324)*V(352) +! B(624) = dA(324)/dV(352) + B(624) = RCT(324)*V(285) +! B(625) = dA(325)/dV(154) + B(625) = RCT(325)*V(352) +! B(626) = dA(325)/dV(352) + B(626) = RCT(325)*V(154) +! B(627) = dA(326)/dV(286) + B(627) = RCT(326)*V(352) +! B(628) = dA(326)/dV(352) + B(628) = RCT(326)*V(286) +! B(629) = dA(327)/dV(142) + B(629) = RCT(327)*V(352) +! B(630) = dA(327)/dV(352) + B(630) = RCT(327)*V(142) +! B(631) = dA(328)/dV(142) + B(631) = RCT(328)*V(352) +! B(632) = dA(328)/dV(352) + B(632) = RCT(328)*V(142) +! B(633) = dA(329)/dV(297) + B(633) = RCT(329)*V(352) +! B(634) = dA(329)/dV(352) + B(634) = RCT(329)*V(297) +! B(635) = dA(330)/dV(279) + B(635) = RCT(330)*V(352) +! B(636) = dA(330)/dV(352) + B(636) = RCT(330)*V(279) +! B(637) = dA(331)/dV(144) + B(637) = RCT(331)*V(352) +! B(638) = dA(331)/dV(352) + B(638) = RCT(331)*V(144) +! B(639) = dA(332)/dV(293) + B(639) = RCT(332)*V(352) +! B(640) = dA(332)/dV(352) + B(640) = RCT(332)*V(293) +! B(641) = dA(333)/dV(293) B(641) = RCT(333)*V(342) ! B(642) = dA(333)/dV(342) - B(642) = RCT(333)*V(290) + B(642) = RCT(333)*V(293) ! B(643) = dA(334)/dV(331) - B(643) = RCT(334)*V(346) -! B(644) = dA(334)/dV(346) + B(643) = RCT(334)*V(338) +! B(644) = dA(334)/dV(338) B(644) = RCT(334)*V(331) -! B(645) = dA(335)/dV(62) - B(645) = RCT(335)*2*V(62) +! B(645) = dA(335)/dV(65) + B(645) = RCT(335)*2*V(65) ! B(646) = dA(336)/dV(331) - B(646) = RCT(336)*V(335) -! B(647) = dA(336)/dV(335) + B(646) = RCT(336)*V(345) +! B(647) = dA(336)/dV(345) B(647) = RCT(336)*V(331) -! B(648) = dA(337)/dV(252) +! B(648) = dA(337)/dV(254) B(648) = RCT(337) -! B(649) = dA(338)/dV(252) - B(649) = RCT(338)*2*V(252) -! B(650) = dA(339)/dV(170) - B(650) = RCT(339)*V(351) -! B(651) = dA(339)/dV(351) - B(651) = RCT(339)*V(170) -! B(652) = dA(340)/dV(284) - B(652) = RCT(340)*V(335) -! B(653) = dA(340)/dV(335) - B(653) = RCT(340)*V(284) -! B(654) = dA(341)/dV(332) +! B(649) = dA(338)/dV(254) + B(649) = RCT(338)*2*V(254) +! B(650) = dA(339)/dV(172) + B(650) = RCT(339)*V(348) +! B(651) = dA(339)/dV(348) + B(651) = RCT(339)*V(172) +! B(652) = dA(340)/dV(336) + B(652) = RCT(340)*V(345) +! B(653) = dA(340)/dV(345) + B(653) = RCT(340)*V(336) +! B(654) = dA(341)/dV(296) B(654) = RCT(341) -! B(655) = dA(342)/dV(331) - B(655) = RCT(342)*V(332) -! B(656) = dA(342)/dV(332) - B(656) = RCT(342)*V(331) +! B(655) = dA(342)/dV(296) + B(655) = RCT(342)*V(331) +! B(656) = dA(342)/dV(331) + B(656) = RCT(342)*V(296) ! B(657) = dA(343)/dV(331) B(657) = RCT(343)*V(347) ! B(658) = dA(343)/dV(347) B(658) = RCT(343)*V(331) -! B(659) = dA(344)/dV(284) +! B(659) = dA(344)/dV(336) B(659) = RCT(344)*V(347) ! B(660) = dA(344)/dV(347) - B(660) = RCT(344)*V(284) -! B(661) = dA(345)/dV(96) - B(661) = RCT(345)*V(284) -! B(662) = dA(345)/dV(284) - B(662) = RCT(345)*V(96) -! B(663) = dA(346)/dV(96) - B(663) = RCT(346)*2*V(96) -! B(664) = dA(347)/dV(42) + B(660) = RCT(344)*V(336) +! B(661) = dA(345)/dV(98) + B(661) = RCT(345)*V(336) +! B(662) = dA(345)/dV(336) + B(662) = RCT(345)*V(98) +! B(663) = dA(346)/dV(98) + B(663) = RCT(346)*2*V(98) +! B(664) = dA(347)/dV(45) B(664) = RCT(347) -! B(665) = dA(348)/dV(96) - B(665) = RCT(348)*V(346) -! B(666) = dA(348)/dV(346) - B(666) = RCT(348)*V(96) -! B(667) = dA(349)/dV(284) - B(667) = RCT(349)*V(338) -! B(668) = dA(349)/dV(338) - B(668) = RCT(349)*V(284) +! B(665) = dA(348)/dV(98) + B(665) = RCT(348)*V(338) +! B(666) = dA(348)/dV(338) + B(666) = RCT(348)*V(98) +! B(667) = dA(349)/dV(336) + B(667) = RCT(349)*V(344) +! B(668) = dA(349)/dV(344) + B(668) = RCT(349)*V(336) ! B(669) = dA(350)/dV(331) - B(669) = RCT(350)*V(341) -! B(670) = dA(350)/dV(341) + B(669) = RCT(350)*V(356) +! B(670) = dA(350)/dV(356) B(670) = RCT(350)*V(331) ! B(671) = dA(351)/dV(331) - B(671) = RCT(351)*V(337) -! B(672) = dA(351)/dV(337) + B(671) = RCT(351)*V(341) +! B(672) = dA(351)/dV(341) B(672) = RCT(351)*V(331) -! B(673) = dA(352)/dV(170) - B(673) = RCT(352)*V(345) -! B(674) = dA(352)/dV(345) - B(674) = RCT(352)*V(170) -! B(675) = dA(353)/dV(73) - B(675) = RCT(353)*V(345) -! B(676) = dA(353)/dV(345) - B(676) = RCT(353)*V(73) -! B(677) = dA(354)/dV(330) - B(677) = RCT(354)*V(345) -! B(678) = dA(354)/dV(345) - B(678) = RCT(354)*V(330) -! B(679) = dA(355)/dV(284) - B(679) = RCT(355)*V(337) -! B(680) = dA(355)/dV(337) - B(680) = RCT(355)*V(284) -! B(681) = dA(356)/dV(284) - B(681) = RCT(356)*V(346) -! B(682) = dA(356)/dV(346) - B(682) = RCT(356)*V(284) -! B(683) = dA(357)/dV(284) - B(683) = RCT(357)*2*V(284) -! B(684) = dA(358)/dV(44) +! B(673) = dA(352)/dV(172) + B(673) = RCT(352)*V(343) +! B(674) = dA(352)/dV(343) + B(674) = RCT(352)*V(172) +! B(675) = dA(353)/dV(75) + B(675) = RCT(353)*V(343) +! B(676) = dA(353)/dV(343) + B(676) = RCT(353)*V(75) +! B(677) = dA(354)/dV(287) + B(677) = RCT(354)*V(343) +! B(678) = dA(354)/dV(343) + B(678) = RCT(354)*V(287) +! B(679) = dA(355)/dV(336) + B(679) = RCT(355)*V(341) +! B(680) = dA(355)/dV(341) + B(680) = RCT(355)*V(336) +! B(681) = dA(356)/dV(336) + B(681) = RCT(356)*V(338) +! B(682) = dA(356)/dV(338) + B(682) = RCT(356)*V(336) +! B(683) = dA(357)/dV(336) + B(683) = RCT(357)*2*V(336) +! B(684) = dA(358)/dV(47) B(684) = RCT(358) -! B(685) = dA(359)/dV(52) - B(685) = RCT(359)*V(345) -! B(686) = dA(359)/dV(345) - B(686) = RCT(359)*V(52) -! B(687) = dA(360)/dV(261) - B(687) = RCT(360)*V(345) -! B(688) = dA(360)/dV(345) - B(688) = RCT(360)*V(261) -! B(689) = dA(361)/dV(247) - B(689) = RCT(361)*V(345) -! B(690) = dA(361)/dV(345) - B(690) = RCT(361)*V(247) -! B(691) = dA(362)/dV(312) - B(691) = RCT(362)*V(329) -! B(692) = dA(362)/dV(329) - B(692) = RCT(362)*V(312) -! B(693) = dA(363)/dV(312) - B(693) = RCT(363)*V(346) -! B(694) = dA(363)/dV(346) - B(694) = RCT(363)*V(312) -! B(695) = dA(364)/dV(312) - B(695) = RCT(364)*V(335) -! B(696) = dA(364)/dV(335) - B(696) = RCT(364)*V(312) -! B(697) = dA(365)/dV(312) - B(697) = RCT(365)*V(336) -! B(698) = dA(365)/dV(336) - B(698) = RCT(365)*V(312) -! B(699) = dA(366)/dV(312) - B(699) = RCT(366)*V(336)*V(336) -! B(700) = dA(366)/dV(336) - B(700) = RCT(366)*2*V(312)*V(336) -! B(701) = dA(367)/dV(312) - B(701) = RCT(367)*V(341) -! B(702) = dA(367)/dV(341) - B(702) = RCT(367)*V(312) -! B(703) = dA(368)/dV(312) - B(703) = RCT(368)*V(348) -! B(704) = dA(368)/dV(348) - B(704) = RCT(368)*V(312) -! B(705) = dA(369)/dV(241) - B(705) = RCT(369)*V(329) -! B(706) = dA(369)/dV(329) - B(706) = RCT(369)*V(241) -! B(707) = dA(370)/dV(241) - B(707) = RCT(370)*V(346) -! B(708) = dA(370)/dV(346) - B(708) = RCT(370)*V(241) -! B(709) = dA(371)/dV(241) - B(709) = RCT(371)*V(335) -! B(710) = dA(371)/dV(335) - B(710) = RCT(371)*V(241) -! B(711) = dA(372)/dV(241) - B(711) = RCT(372)*V(348) -! B(712) = dA(372)/dV(348) - B(712) = RCT(372)*V(241) -! B(713) = dA(373)/dV(241) - B(713) = RCT(373)*V(336) -! B(714) = dA(373)/dV(336) - B(714) = RCT(373)*V(241) -! B(715) = dA(374)/dV(241) - B(715) = RCT(374)*V(336) -! B(716) = dA(374)/dV(336) - B(716) = RCT(374)*V(241) -! B(717) = dA(375)/dV(191) - B(717) = RCT(375)*V(351) -! B(718) = dA(375)/dV(351) - B(718) = RCT(375)*V(191) -! B(719) = dA(376)/dV(219) - B(719) = RCT(376)*V(351) -! B(720) = dA(376)/dV(351) - B(720) = RCT(376)*V(219) -! B(721) = dA(377)/dV(167) - B(721) = RCT(377)*V(351) -! B(722) = dA(377)/dV(351) - B(722) = RCT(377)*V(167) -! B(723) = dA(378)/dV(167) - B(723) = RCT(378)*V(345) -! B(724) = dA(378)/dV(345) - B(724) = RCT(378)*V(167) -! B(725) = dA(379)/dV(167) - B(725) = RCT(379)*V(341) -! B(726) = dA(379)/dV(341) - B(726) = RCT(379)*V(167) -! B(727) = dA(380)/dV(219) - B(727) = RCT(380)*V(345) -! B(728) = dA(380)/dV(345) - B(728) = RCT(380)*V(219) -! B(729) = dA(381)/dV(219) - B(729) = RCT(381)*V(341) -! B(730) = dA(381)/dV(341) - B(730) = RCT(381)*V(219) -! B(731) = dA(382)/dV(191) - B(731) = RCT(382)*V(345) -! B(732) = dA(382)/dV(345) - B(732) = RCT(382)*V(191) -! B(733) = dA(383)/dV(191) - B(733) = RCT(383)*V(341) -! B(734) = dA(383)/dV(341) - B(734) = RCT(383)*V(191) -! B(735) = dA(384)/dV(277) - B(735) = RCT(384)*V(337) -! B(736) = dA(384)/dV(337) - B(736) = RCT(384)*V(277) -! B(737) = dA(385)/dV(277) - B(737) = RCT(385)*V(346) -! B(738) = dA(385)/dV(346) - B(738) = RCT(385)*V(277) -! B(739) = dA(386)/dV(277) - B(739) = RCT(386)*V(351) -! B(740) = dA(386)/dV(351) - B(740) = RCT(386)*V(277) +! B(685) = dA(359)/dV(55) + B(685) = RCT(359)*V(343) +! B(686) = dA(359)/dV(343) + B(686) = RCT(359)*V(55) +! B(687) = dA(360)/dV(265) + B(687) = RCT(360)*V(343) +! B(688) = dA(360)/dV(343) + B(688) = RCT(360)*V(265) +! B(689) = dA(361)/dV(249) + B(689) = RCT(361)*V(343) +! B(690) = dA(361)/dV(343) + B(690) = RCT(361)*V(249) +! B(691) = dA(362)/dV(317) + B(691) = RCT(362)*V(335) +! B(692) = dA(362)/dV(335) + B(692) = RCT(362)*V(317) +! B(693) = dA(363)/dV(317) + B(693) = RCT(363)*V(338) +! B(694) = dA(363)/dV(338) + B(694) = RCT(363)*V(317) +! B(695) = dA(364)/dV(317) + B(695) = RCT(364)*V(345) +! B(696) = dA(364)/dV(345) + B(696) = RCT(364)*V(317) +! B(697) = dA(365)/dV(317) + B(697) = RCT(365)*V(353) +! B(698) = dA(365)/dV(353) + B(698) = RCT(365)*V(317) +! B(699) = dA(366)/dV(317) + B(699) = RCT(366)*V(353)*V(353) +! B(700) = dA(366)/dV(353) + B(700) = RCT(366)*2*V(317)*V(353) +! B(701) = dA(367)/dV(317) + B(701) = RCT(367)*V(356) +! B(702) = dA(367)/dV(356) + B(702) = RCT(367)*V(317) +! B(703) = dA(368)/dV(317) + B(703) = RCT(368)*V(355) +! B(704) = dA(368)/dV(355) + B(704) = RCT(368)*V(317) +! B(705) = dA(369)/dV(244) + B(705) = RCT(369)*V(335) +! B(706) = dA(369)/dV(335) + B(706) = RCT(369)*V(244) +! B(707) = dA(370)/dV(244) + B(707) = RCT(370)*V(338) +! B(708) = dA(370)/dV(338) + B(708) = RCT(370)*V(244) +! B(709) = dA(371)/dV(244) + B(709) = RCT(371)*V(345) +! B(710) = dA(371)/dV(345) + B(710) = RCT(371)*V(244) +! B(711) = dA(372)/dV(244) + B(711) = RCT(372)*V(355) +! B(712) = dA(372)/dV(355) + B(712) = RCT(372)*V(244) +! B(713) = dA(373)/dV(244) + B(713) = RCT(373)*V(353) +! B(714) = dA(373)/dV(353) + B(714) = RCT(373)*V(244) +! B(715) = dA(374)/dV(244) + B(715) = RCT(374)*V(353) +! B(716) = dA(374)/dV(353) + B(716) = RCT(374)*V(244) +! B(717) = dA(375)/dV(194) + B(717) = RCT(375)*V(348) +! B(718) = dA(375)/dV(348) + B(718) = RCT(375)*V(194) +! B(719) = dA(376)/dV(222) + B(719) = RCT(376)*V(348) +! B(720) = dA(376)/dV(348) + B(720) = RCT(376)*V(222) +! B(721) = dA(377)/dV(170) + B(721) = RCT(377)*V(348) +! B(722) = dA(377)/dV(348) + B(722) = RCT(377)*V(170) +! B(723) = dA(378)/dV(170) + B(723) = RCT(378)*V(343) +! B(724) = dA(378)/dV(343) + B(724) = RCT(378)*V(170) +! B(725) = dA(379)/dV(170) + B(725) = RCT(379)*V(356) +! B(726) = dA(379)/dV(356) + B(726) = RCT(379)*V(170) +! B(727) = dA(380)/dV(222) + B(727) = RCT(380)*V(343) +! B(728) = dA(380)/dV(343) + B(728) = RCT(380)*V(222) +! B(729) = dA(381)/dV(222) + B(729) = RCT(381)*V(356) +! B(730) = dA(381)/dV(356) + B(730) = RCT(381)*V(222) +! B(731) = dA(382)/dV(194) + B(731) = RCT(382)*V(343) +! B(732) = dA(382)/dV(343) + B(732) = RCT(382)*V(194) +! B(733) = dA(383)/dV(194) + B(733) = RCT(383)*V(356) +! B(734) = dA(383)/dV(356) + B(734) = RCT(383)*V(194) +! B(735) = dA(384)/dV(281) + B(735) = RCT(384)*V(341) +! B(736) = dA(384)/dV(341) + B(736) = RCT(384)*V(281) +! B(737) = dA(385)/dV(281) + B(737) = RCT(385)*V(338) +! B(738) = dA(385)/dV(338) + B(738) = RCT(385)*V(281) +! B(739) = dA(386)/dV(281) + B(739) = RCT(386)*V(348) +! B(740) = dA(386)/dV(348) + B(740) = RCT(386)*V(281) ! B(741) = dA(387)/dV(111) - B(741) = RCT(387)*V(345) -! B(742) = dA(387)/dV(345) + B(741) = RCT(387)*V(343) +! B(742) = dA(387)/dV(343) B(742) = RCT(387)*V(111) -! B(743) = dA(388)/dV(137) - B(743) = RCT(388)*V(345) -! B(744) = dA(388)/dV(345) - B(744) = RCT(388)*V(137) -! B(745) = dA(389)/dV(225) - B(745) = RCT(389)*V(351) -! B(746) = dA(389)/dV(351) - B(746) = RCT(389)*V(225) -! B(747) = dA(390)/dV(225) - B(747) = RCT(390)*V(345) -! B(748) = dA(390)/dV(345) - B(748) = RCT(390)*V(225) -! B(749) = dA(391)/dV(257) - B(749) = RCT(391)*V(337) -! B(750) = dA(391)/dV(337) - B(750) = RCT(391)*V(257) -! B(751) = dA(392)/dV(257) - B(751) = RCT(392)*V(346) -! B(752) = dA(392)/dV(346) - B(752) = RCT(392)*V(257) -! B(753) = dA(393)/dV(257) - B(753) = RCT(393)*V(335) -! B(754) = dA(393)/dV(335) - B(754) = RCT(393)*V(257) -! B(755) = dA(394)/dV(56) +! B(743) = dA(388)/dV(139) + B(743) = RCT(388)*V(343) +! B(744) = dA(388)/dV(343) + B(744) = RCT(388)*V(139) +! B(745) = dA(389)/dV(227) + B(745) = RCT(389)*V(348) +! B(746) = dA(389)/dV(348) + B(746) = RCT(389)*V(227) +! B(747) = dA(390)/dV(227) + B(747) = RCT(390)*V(343) +! B(748) = dA(390)/dV(343) + B(748) = RCT(390)*V(227) +! B(749) = dA(391)/dV(261) + B(749) = RCT(391)*V(341) +! B(750) = dA(391)/dV(341) + B(750) = RCT(391)*V(261) +! B(751) = dA(392)/dV(261) + B(751) = RCT(392)*V(338) +! B(752) = dA(392)/dV(338) + B(752) = RCT(392)*V(261) +! B(753) = dA(393)/dV(261) + B(753) = RCT(393)*V(345) +! B(754) = dA(393)/dV(345) + B(754) = RCT(393)*V(261) +! B(755) = dA(394)/dV(59) B(755) = RCT(394) -! B(756) = dA(395)/dV(257) - B(756) = RCT(395)*V(351) -! B(757) = dA(395)/dV(351) - B(757) = RCT(395)*V(257) -! B(758) = dA(396)/dV(74) - B(758) = RCT(396)*V(345) -! B(759) = dA(396)/dV(345) - B(759) = RCT(396)*V(74) -! B(760) = dA(397)/dV(66) - B(760) = RCT(397)*V(345) -! B(761) = dA(397)/dV(345) - B(761) = RCT(397)*V(66) -! B(762) = dA(398)/dV(278) - B(762) = RCT(398)*V(337) -! B(763) = dA(398)/dV(337) - B(763) = RCT(398)*V(278) -! B(764) = dA(399)/dV(278) - B(764) = RCT(399)*V(346) -! B(765) = dA(399)/dV(346) - B(765) = RCT(399)*V(278) -! B(766) = dA(400)/dV(278) - B(766) = RCT(400)*V(351) -! B(767) = dA(400)/dV(351) - B(767) = RCT(400)*V(278) -! B(768) = dA(401)/dV(278) - B(768) = RCT(401)*V(328) -! B(769) = dA(401)/dV(328) - B(769) = RCT(401)*V(278) -! B(770) = dA(402)/dV(160) - B(770) = RCT(402)*V(345) -! B(771) = dA(402)/dV(345) - B(771) = RCT(402)*V(160) -! B(772) = dA(403)/dV(176) - B(772) = RCT(403)*V(345) -! B(773) = dA(403)/dV(345) - B(773) = RCT(403)*V(176) -! B(774) = dA(404)/dV(275) - B(774) = RCT(404)*V(337) -! B(775) = dA(404)/dV(337) - B(775) = RCT(404)*V(275) -! B(776) = dA(405)/dV(275) - B(776) = RCT(405)*V(346) -! B(777) = dA(405)/dV(346) - B(777) = RCT(405)*V(275) -! B(778) = dA(406)/dV(275) - B(778) = RCT(406)*V(351) -! B(779) = dA(406)/dV(351) - B(779) = RCT(406)*V(275) -! B(780) = dA(407)/dV(138) - B(780) = RCT(407)*V(345) -! B(781) = dA(407)/dV(345) - B(781) = RCT(407)*V(138) +! B(756) = dA(395)/dV(261) + B(756) = RCT(395)*V(348) +! B(757) = dA(395)/dV(348) + B(757) = RCT(395)*V(261) +! B(758) = dA(396)/dV(76) + B(758) = RCT(396)*V(343) +! B(759) = dA(396)/dV(343) + B(759) = RCT(396)*V(76) +! B(760) = dA(397)/dV(69) + B(760) = RCT(397)*V(343) +! B(761) = dA(397)/dV(343) + B(761) = RCT(397)*V(69) +! B(762) = dA(398)/dV(282) + B(762) = RCT(398)*V(341) +! B(763) = dA(398)/dV(341) + B(763) = RCT(398)*V(282) +! B(764) = dA(399)/dV(282) + B(764) = RCT(399)*V(338) +! B(765) = dA(399)/dV(338) + B(765) = RCT(399)*V(282) +! B(766) = dA(400)/dV(282) + B(766) = RCT(400)*V(348) +! B(767) = dA(400)/dV(348) + B(767) = RCT(400)*V(282) +! B(768) = dA(401)/dV(282) + B(768) = RCT(401)*V(334) +! B(769) = dA(401)/dV(334) + B(769) = RCT(401)*V(282) +! B(770) = dA(402)/dV(163) + B(770) = RCT(402)*V(343) +! B(771) = dA(402)/dV(343) + B(771) = RCT(402)*V(163) +! B(772) = dA(403)/dV(179) + B(772) = RCT(403)*V(343) +! B(773) = dA(403)/dV(343) + B(773) = RCT(403)*V(179) +! B(774) = dA(404)/dV(276) + B(774) = RCT(404)*V(341) +! B(775) = dA(404)/dV(341) + B(775) = RCT(404)*V(276) +! B(776) = dA(405)/dV(276) + B(776) = RCT(405)*V(338) +! B(777) = dA(405)/dV(338) + B(777) = RCT(405)*V(276) +! B(778) = dA(406)/dV(276) + B(778) = RCT(406)*V(348) +! B(779) = dA(406)/dV(348) + B(779) = RCT(406)*V(276) +! B(780) = dA(407)/dV(141) + B(780) = RCT(407)*V(343) +! B(781) = dA(407)/dV(343) + B(781) = RCT(407)*V(141) ! B(782) = dA(408)/dV(112) - B(782) = RCT(408)*V(345) -! B(783) = dA(408)/dV(345) + B(782) = RCT(408)*V(343) +! B(783) = dA(408)/dV(343) B(783) = RCT(408)*V(112) -! B(784) = dA(409)/dV(129) - B(784) = RCT(409)*V(345) -! B(785) = dA(409)/dV(345) - B(785) = RCT(409)*V(129) -! B(786) = dA(410)/dV(273) - B(786) = RCT(410)*V(337) -! B(787) = dA(410)/dV(337) - B(787) = RCT(410)*V(273) -! B(788) = dA(411)/dV(273) - B(788) = RCT(411)*V(346) -! B(789) = dA(411)/dV(346) - B(789) = RCT(411)*V(273) -! B(790) = dA(412)/dV(273) - B(790) = RCT(412)*V(346) -! B(791) = dA(412)/dV(346) - B(791) = RCT(412)*V(273) -! B(792) = dA(413)/dV(273) - B(792) = RCT(413)*V(328) -! B(793) = dA(413)/dV(328) - B(793) = RCT(413)*V(273) -! B(794) = dA(414)/dV(273) - B(794) = RCT(414)*V(351) -! B(795) = dA(414)/dV(351) - B(795) = RCT(414)*V(273) -! B(796) = dA(415)/dV(161) - B(796) = RCT(415)*V(345) -! B(797) = dA(415)/dV(345) - B(797) = RCT(415)*V(161) -! B(798) = dA(416)/dV(162) - B(798) = RCT(416)*V(345) -! B(799) = dA(416)/dV(345) - B(799) = RCT(416)*V(162) -! B(800) = dA(417)/dV(281) - B(800) = RCT(417)*V(337) -! B(801) = dA(417)/dV(337) - B(801) = RCT(417)*V(281) -! B(802) = dA(418)/dV(281) - B(802) = RCT(418)*V(346) -! B(803) = dA(418)/dV(346) - B(803) = RCT(418)*V(281) -! B(804) = dA(419)/dV(281) - B(804) = RCT(419)*V(351) -! B(805) = dA(419)/dV(351) - B(805) = RCT(419)*V(281) -! B(806) = dA(420)/dV(255) - B(806) = RCT(420)*V(345) -! B(807) = dA(420)/dV(345) - B(807) = RCT(420)*V(255) -! B(808) = dA(421)/dV(255) - B(808) = RCT(421)*V(341) -! B(809) = dA(421)/dV(341) - B(809) = RCT(421)*V(255) -! B(810) = dA(422)/dV(255) - B(810) = RCT(422)*V(351) -! B(811) = dA(422)/dV(351) - B(811) = RCT(422)*V(255) -! B(812) = dA(423)/dV(237) - B(812) = RCT(423)*V(345) -! B(813) = dA(423)/dV(345) - B(813) = RCT(423)*V(237) -! B(814) = dA(424)/dV(237) - B(814) = RCT(424)*V(341) -! B(815) = dA(424)/dV(341) - B(815) = RCT(424)*V(237) -! B(816) = dA(425)/dV(237) - B(816) = RCT(425)*V(351) -! B(817) = dA(425)/dV(351) - B(817) = RCT(425)*V(237) -! B(818) = dA(426)/dV(211) - B(818) = RCT(426)*V(345) -! B(819) = dA(426)/dV(345) - B(819) = RCT(426)*V(211) -! B(820) = dA(427)/dV(211) - B(820) = RCT(427)*V(341) -! B(821) = dA(427)/dV(341) - B(821) = RCT(427)*V(211) -! B(822) = dA(428)/dV(211) - B(822) = RCT(428)*V(351) -! B(823) = dA(428)/dV(351) - B(823) = RCT(428)*V(211) -! B(824) = dA(429)/dV(272) - B(824) = RCT(429)*V(346) -! B(825) = dA(429)/dV(346) - B(825) = RCT(429)*V(272) -! B(826) = dA(430)/dV(272) - B(826) = RCT(430)*V(337) -! B(827) = dA(430)/dV(337) - B(827) = RCT(430)*V(272) -! B(828) = dA(431)/dV(272) - B(828) = RCT(431)*V(351) -! B(829) = dA(431)/dV(351) - B(829) = RCT(431)*V(272) -! B(830) = dA(432)/dV(272) - B(830) = RCT(432)*V(328) -! B(831) = dA(432)/dV(328) - B(831) = RCT(432)*V(272) -! B(832) = dA(433)/dV(163) - B(832) = RCT(433)*V(345) -! B(833) = dA(433)/dV(345) - B(833) = RCT(433)*V(163) -! B(834) = dA(434)/dV(163) - B(834) = RCT(434)*V(351) -! B(835) = dA(434)/dV(351) - B(835) = RCT(434)*V(163) -! B(836) = dA(435)/dV(177) - B(836) = RCT(435)*V(345) -! B(837) = dA(435)/dV(345) - B(837) = RCT(435)*V(177) -! B(838) = dA(436)/dV(274) - B(838) = RCT(436)*V(337) -! B(839) = dA(436)/dV(337) - B(839) = RCT(436)*V(274) -! B(840) = dA(437)/dV(274) - B(840) = RCT(437)*V(346) -! B(841) = dA(437)/dV(346) - B(841) = RCT(437)*V(274) -! B(842) = dA(438)/dV(274) - B(842) = RCT(438)*V(335) -! B(843) = dA(438)/dV(335) - B(843) = RCT(438)*V(274) -! B(844) = dA(439)/dV(57) +! B(784) = dA(409)/dV(132) + B(784) = RCT(409)*V(343) +! B(785) = dA(409)/dV(343) + B(785) = RCT(409)*V(132) +! B(786) = dA(410)/dV(275) + B(786) = RCT(410)*V(341) +! B(787) = dA(410)/dV(341) + B(787) = RCT(410)*V(275) +! B(788) = dA(411)/dV(275) + B(788) = RCT(411)*V(338) +! B(789) = dA(411)/dV(338) + B(789) = RCT(411)*V(275) +! B(790) = dA(412)/dV(275) + B(790) = RCT(412)*V(338) +! B(791) = dA(412)/dV(338) + B(791) = RCT(412)*V(275) +! B(792) = dA(413)/dV(275) + B(792) = RCT(413)*V(334) +! B(793) = dA(413)/dV(334) + B(793) = RCT(413)*V(275) +! B(794) = dA(414)/dV(275) + B(794) = RCT(414)*V(348) +! B(795) = dA(414)/dV(348) + B(795) = RCT(414)*V(275) +! B(796) = dA(415)/dV(164) + B(796) = RCT(415)*V(343) +! B(797) = dA(415)/dV(343) + B(797) = RCT(415)*V(164) +! B(798) = dA(416)/dV(165) + B(798) = RCT(416)*V(343) +! B(799) = dA(416)/dV(343) + B(799) = RCT(416)*V(165) +! B(800) = dA(417)/dV(284) + B(800) = RCT(417)*V(341) +! B(801) = dA(417)/dV(341) + B(801) = RCT(417)*V(284) +! B(802) = dA(418)/dV(284) + B(802) = RCT(418)*V(338) +! B(803) = dA(418)/dV(338) + B(803) = RCT(418)*V(284) +! B(804) = dA(419)/dV(284) + B(804) = RCT(419)*V(348) +! B(805) = dA(419)/dV(348) + B(805) = RCT(419)*V(284) +! B(806) = dA(420)/dV(256) + B(806) = RCT(420)*V(343) +! B(807) = dA(420)/dV(343) + B(807) = RCT(420)*V(256) +! B(808) = dA(421)/dV(256) + B(808) = RCT(421)*V(356) +! B(809) = dA(421)/dV(356) + B(809) = RCT(421)*V(256) +! B(810) = dA(422)/dV(256) + B(810) = RCT(422)*V(348) +! B(811) = dA(422)/dV(348) + B(811) = RCT(422)*V(256) +! B(812) = dA(423)/dV(241) + B(812) = RCT(423)*V(343) +! B(813) = dA(423)/dV(343) + B(813) = RCT(423)*V(241) +! B(814) = dA(424)/dV(241) + B(814) = RCT(424)*V(356) +! B(815) = dA(424)/dV(356) + B(815) = RCT(424)*V(241) +! B(816) = dA(425)/dV(241) + B(816) = RCT(425)*V(348) +! B(817) = dA(425)/dV(348) + B(817) = RCT(425)*V(241) +! B(818) = dA(426)/dV(212) + B(818) = RCT(426)*V(343) +! B(819) = dA(426)/dV(343) + B(819) = RCT(426)*V(212) +! B(820) = dA(427)/dV(212) + B(820) = RCT(427)*V(356) +! B(821) = dA(427)/dV(356) + B(821) = RCT(427)*V(212) +! B(822) = dA(428)/dV(212) + B(822) = RCT(428)*V(348) +! B(823) = dA(428)/dV(348) + B(823) = RCT(428)*V(212) +! B(824) = dA(429)/dV(278) + B(824) = RCT(429)*V(338) +! B(825) = dA(429)/dV(338) + B(825) = RCT(429)*V(278) +! B(826) = dA(430)/dV(278) + B(826) = RCT(430)*V(341) +! B(827) = dA(430)/dV(341) + B(827) = RCT(430)*V(278) +! B(828) = dA(431)/dV(278) + B(828) = RCT(431)*V(348) +! B(829) = dA(431)/dV(348) + B(829) = RCT(431)*V(278) +! B(830) = dA(432)/dV(278) + B(830) = RCT(432)*V(334) +! B(831) = dA(432)/dV(334) + B(831) = RCT(432)*V(278) +! B(832) = dA(433)/dV(166) + B(832) = RCT(433)*V(343) +! B(833) = dA(433)/dV(343) + B(833) = RCT(433)*V(166) +! B(834) = dA(434)/dV(166) + B(834) = RCT(434)*V(348) +! B(835) = dA(434)/dV(348) + B(835) = RCT(434)*V(166) +! B(836) = dA(435)/dV(180) + B(836) = RCT(435)*V(343) +! B(837) = dA(435)/dV(343) + B(837) = RCT(435)*V(180) +! B(838) = dA(436)/dV(277) + B(838) = RCT(436)*V(341) +! B(839) = dA(436)/dV(341) + B(839) = RCT(436)*V(277) +! B(840) = dA(437)/dV(277) + B(840) = RCT(437)*V(338) +! B(841) = dA(437)/dV(338) + B(841) = RCT(437)*V(277) +! B(842) = dA(438)/dV(277) + B(842) = RCT(438)*V(345) +! B(843) = dA(438)/dV(345) + B(843) = RCT(438)*V(277) +! B(844) = dA(439)/dV(60) B(844) = RCT(439) -! B(845) = dA(440)/dV(274) - B(845) = RCT(440)*V(351) -! B(846) = dA(440)/dV(351) - B(846) = RCT(440)*V(274) -! B(847) = dA(441)/dV(169) - B(847) = RCT(441)*V(345) -! B(848) = dA(441)/dV(345) - B(848) = RCT(441)*V(169) -! B(849) = dA(442)/dV(130) - B(849) = RCT(442)*V(345) -! B(850) = dA(442)/dV(345) - B(850) = RCT(442)*V(130) -! B(851) = dA(443)/dV(291) - B(851) = RCT(443)*V(337) -! B(852) = dA(443)/dV(337) - B(852) = RCT(443)*V(291) -! B(853) = dA(444)/dV(291) - B(853) = RCT(444)*V(346) -! B(854) = dA(444)/dV(346) - B(854) = RCT(444)*V(291) -! B(855) = dA(445)/dV(291) - B(855) = RCT(445)*V(346) -! B(856) = dA(445)/dV(346) - B(856) = RCT(445)*V(291) -! B(857) = dA(446)/dV(291) - B(857) = RCT(446)*V(351) -! B(858) = dA(446)/dV(351) - B(858) = RCT(446)*V(291) -! B(859) = dA(447)/dV(229) - B(859) = RCT(447)*V(345) -! B(860) = dA(447)/dV(345) - B(860) = RCT(447)*V(229) -! B(861) = dA(448)/dV(229) - B(861) = RCT(448)*V(341) -! B(862) = dA(448)/dV(341) - B(862) = RCT(448)*V(229) -! B(863) = dA(449)/dV(229) - B(863) = RCT(449)*V(351) -! B(864) = dA(449)/dV(351) - B(864) = RCT(449)*V(229) -! B(865) = dA(450)/dV(193) - B(865) = RCT(450)*V(345) -! B(866) = dA(450)/dV(345) - B(866) = RCT(450)*V(193) -! B(867) = dA(451)/dV(193) - B(867) = RCT(451)*V(341) -! B(868) = dA(451)/dV(341) - B(868) = RCT(451)*V(193) -! B(869) = dA(452)/dV(193) - B(869) = RCT(452)*V(351) -! B(870) = dA(452)/dV(351) - B(870) = RCT(452)*V(193) -! B(871) = dA(453)/dV(262) - B(871) = RCT(453)*V(345) -! B(872) = dA(453)/dV(345) - B(872) = RCT(453)*V(262) -! B(873) = dA(454)/dV(262) - B(873) = RCT(454)*V(341) -! B(874) = dA(454)/dV(341) - B(874) = RCT(454)*V(262) -! B(875) = dA(455)/dV(262) - B(875) = RCT(455)*V(351) -! B(876) = dA(455)/dV(351) - B(876) = RCT(455)*V(262) -! B(877) = dA(456)/dV(277) - B(877) = RCT(456)*V(328) -! B(878) = dA(456)/dV(328) - B(878) = RCT(456)*V(277) -! B(879) = dA(457)/dV(277) - B(879) = RCT(457)*V(324) -! B(880) = dA(457)/dV(324) - B(880) = RCT(457)*V(277) -! B(881) = dA(458)/dV(275) - B(881) = RCT(458)*V(328) -! B(882) = dA(458)/dV(328) - B(882) = RCT(458)*V(275) -! B(883) = dA(459)/dV(275) - B(883) = RCT(459)*V(324) -! B(884) = dA(459)/dV(324) - B(884) = RCT(459)*V(275) -! B(885) = dA(460)/dV(281) - B(885) = RCT(460)*V(328) -! B(886) = dA(460)/dV(328) - B(886) = RCT(460)*V(281) -! B(887) = dA(461)/dV(281) - B(887) = RCT(461)*V(324) -! B(888) = dA(461)/dV(324) - B(888) = RCT(461)*V(281) -! B(889) = dA(462)/dV(291) - B(889) = RCT(462)*V(328) -! B(890) = dA(462)/dV(328) - B(890) = RCT(462)*V(291) -! B(891) = dA(463)/dV(291) - B(891) = RCT(463)*V(324) -! B(892) = dA(463)/dV(324) - B(892) = RCT(463)*V(291) -! B(893) = dA(464)/dV(257) - B(893) = RCT(464)*V(328) -! B(894) = dA(464)/dV(328) - B(894) = RCT(464)*V(257) -! B(895) = dA(465)/dV(257) - B(895) = RCT(465)*V(324) -! B(896) = dA(465)/dV(324) - B(896) = RCT(465)*V(257) -! B(897) = dA(466)/dV(274) - B(897) = RCT(466)*V(328) -! B(898) = dA(466)/dV(328) - B(898) = RCT(466)*V(274) -! B(899) = dA(467)/dV(274) - B(899) = RCT(467)*V(324) -! B(900) = dA(467)/dV(324) - B(900) = RCT(467)*V(274) +! B(845) = dA(440)/dV(277) + B(845) = RCT(440)*V(348) +! B(846) = dA(440)/dV(348) + B(846) = RCT(440)*V(277) +! B(847) = dA(441)/dV(171) + B(847) = RCT(441)*V(343) +! B(848) = dA(441)/dV(343) + B(848) = RCT(441)*V(171) +! B(849) = dA(442)/dV(134) + B(849) = RCT(442)*V(343) +! B(850) = dA(442)/dV(343) + B(850) = RCT(442)*V(134) +! B(851) = dA(443)/dV(294) + B(851) = RCT(443)*V(341) +! B(852) = dA(443)/dV(341) + B(852) = RCT(443)*V(294) +! B(853) = dA(444)/dV(294) + B(853) = RCT(444)*V(338) +! B(854) = dA(444)/dV(338) + B(854) = RCT(444)*V(294) +! B(855) = dA(445)/dV(294) + B(855) = RCT(445)*V(338) +! B(856) = dA(445)/dV(338) + B(856) = RCT(445)*V(294) +! B(857) = dA(446)/dV(294) + B(857) = RCT(446)*V(348) +! B(858) = dA(446)/dV(348) + B(858) = RCT(446)*V(294) +! B(859) = dA(447)/dV(234) + B(859) = RCT(447)*V(343) +! B(860) = dA(447)/dV(343) + B(860) = RCT(447)*V(234) +! B(861) = dA(448)/dV(234) + B(861) = RCT(448)*V(356) +! B(862) = dA(448)/dV(356) + B(862) = RCT(448)*V(234) +! B(863) = dA(449)/dV(234) + B(863) = RCT(449)*V(348) +! B(864) = dA(449)/dV(348) + B(864) = RCT(449)*V(234) +! B(865) = dA(450)/dV(196) + B(865) = RCT(450)*V(343) +! B(866) = dA(450)/dV(343) + B(866) = RCT(450)*V(196) +! B(867) = dA(451)/dV(196) + B(867) = RCT(451)*V(356) +! B(868) = dA(451)/dV(356) + B(868) = RCT(451)*V(196) +! B(869) = dA(452)/dV(196) + B(869) = RCT(452)*V(348) +! B(870) = dA(452)/dV(348) + B(870) = RCT(452)*V(196) +! B(871) = dA(453)/dV(263) + B(871) = RCT(453)*V(343) +! B(872) = dA(453)/dV(343) + B(872) = RCT(453)*V(263) +! B(873) = dA(454)/dV(263) + B(873) = RCT(454)*V(356) +! B(874) = dA(454)/dV(356) + B(874) = RCT(454)*V(263) +! B(875) = dA(455)/dV(263) + B(875) = RCT(455)*V(348) +! B(876) = dA(455)/dV(348) + B(876) = RCT(455)*V(263) +! B(877) = dA(456)/dV(281) + B(877) = RCT(456)*V(334) +! B(878) = dA(456)/dV(334) + B(878) = RCT(456)*V(281) +! B(879) = dA(457)/dV(281) + B(879) = RCT(457)*V(328) +! B(880) = dA(457)/dV(328) + B(880) = RCT(457)*V(281) +! B(881) = dA(458)/dV(276) + B(881) = RCT(458)*V(334) +! B(882) = dA(458)/dV(334) + B(882) = RCT(458)*V(276) +! B(883) = dA(459)/dV(276) + B(883) = RCT(459)*V(328) +! B(884) = dA(459)/dV(328) + B(884) = RCT(459)*V(276) +! B(885) = dA(460)/dV(284) + B(885) = RCT(460)*V(334) +! B(886) = dA(460)/dV(334) + B(886) = RCT(460)*V(284) +! B(887) = dA(461)/dV(284) + B(887) = RCT(461)*V(328) +! B(888) = dA(461)/dV(328) + B(888) = RCT(461)*V(284) +! B(889) = dA(462)/dV(294) + B(889) = RCT(462)*V(334) +! B(890) = dA(462)/dV(334) + B(890) = RCT(462)*V(294) +! B(891) = dA(463)/dV(294) + B(891) = RCT(463)*V(328) +! B(892) = dA(463)/dV(328) + B(892) = RCT(463)*V(294) +! B(893) = dA(464)/dV(261) + B(893) = RCT(464)*V(334) +! B(894) = dA(464)/dV(334) + B(894) = RCT(464)*V(261) +! B(895) = dA(465)/dV(261) + B(895) = RCT(465)*V(328) +! B(896) = dA(465)/dV(328) + B(896) = RCT(465)*V(261) +! B(897) = dA(466)/dV(277) + B(897) = RCT(466)*V(334) +! B(898) = dA(466)/dV(334) + B(898) = RCT(466)*V(277) +! B(899) = dA(467)/dV(277) + B(899) = RCT(467)*V(328) +! B(900) = dA(467)/dV(328) + B(900) = RCT(467)*V(277) ! B(901) = dA(468)/dV(280) - B(901) = RCT(468)*V(346) -! B(902) = dA(468)/dV(346) + B(901) = RCT(468)*V(338) +! B(902) = dA(468)/dV(338) B(902) = RCT(468)*V(280) -! B(903) = dA(469)/dV(289) - B(903) = RCT(469)*V(346) -! B(904) = dA(469)/dV(346) - B(904) = RCT(469)*V(289) +! B(903) = dA(469)/dV(292) + B(903) = RCT(469)*V(338) +! B(904) = dA(469)/dV(338) + B(904) = RCT(469)*V(292) ! B(905) = dA(470)/dV(280) - B(905) = RCT(470)*V(337) -! B(906) = dA(470)/dV(337) + B(905) = RCT(470)*V(341) +! B(906) = dA(470)/dV(341) B(906) = RCT(470)*V(280) -! B(907) = dA(471)/dV(289) - B(907) = RCT(471)*V(337) -! B(908) = dA(471)/dV(337) - B(908) = RCT(471)*V(289) +! B(907) = dA(471)/dV(292) + B(907) = RCT(471)*V(341) +! B(908) = dA(471)/dV(341) + B(908) = RCT(471)*V(292) ! B(909) = dA(472)/dV(280) - B(909) = RCT(472)*V(328) -! B(910) = dA(472)/dV(328) + B(909) = RCT(472)*V(334) +! B(910) = dA(472)/dV(334) B(910) = RCT(472)*V(280) -! B(911) = dA(473)/dV(289) - B(911) = RCT(473)*V(328) -! B(912) = dA(473)/dV(328) - B(912) = RCT(473)*V(289) +! B(911) = dA(473)/dV(292) + B(911) = RCT(473)*V(334) +! B(912) = dA(473)/dV(334) + B(912) = RCT(473)*V(292) ! B(913) = dA(474)/dV(280) - B(913) = RCT(474)*V(324) -! B(914) = dA(474)/dV(324) + B(913) = RCT(474)*V(328) +! B(914) = dA(474)/dV(328) B(914) = RCT(474)*V(280) -! B(915) = dA(475)/dV(289) - B(915) = RCT(475)*V(324) -! B(916) = dA(475)/dV(324) - B(916) = RCT(475)*V(289) +! B(915) = dA(475)/dV(292) + B(915) = RCT(475)*V(328) +! B(916) = dA(475)/dV(328) + B(916) = RCT(475)*V(292) ! B(917) = dA(476)/dV(280) - B(917) = RCT(476)*V(351) -! B(918) = dA(476)/dV(351) + B(917) = RCT(476)*V(348) +! B(918) = dA(476)/dV(348) B(918) = RCT(476)*V(280) -! B(919) = dA(477)/dV(289) - B(919) = RCT(477)*V(351) -! B(920) = dA(477)/dV(351) - B(920) = RCT(477)*V(289) +! B(919) = dA(477)/dV(292) + B(919) = RCT(477)*V(348) +! B(920) = dA(477)/dV(348) + B(920) = RCT(477)*V(292) ! B(921) = dA(478)/dV(280) B(921) = RCT(478)*2*V(280) ! B(922) = dA(479)/dV(280) - B(922) = RCT(479)*V(289) -! B(923) = dA(479)/dV(289) + B(922) = RCT(479)*V(292) +! B(923) = dA(479)/dV(292) B(923) = RCT(479)*V(280) -! B(924) = dA(480)/dV(289) - B(924) = RCT(480)*2*V(289) -! B(925) = dA(481)/dV(256) - B(925) = RCT(481)*V(345) -! B(926) = dA(481)/dV(345) - B(926) = RCT(481)*V(256) -! B(927) = dA(482)/dV(242) - B(927) = RCT(482)*V(345) -! B(928) = dA(482)/dV(345) - B(928) = RCT(482)*V(242) -! B(929) = dA(483)/dV(242) - B(929) = RCT(483)*V(341) -! B(930) = dA(483)/dV(341) - B(930) = RCT(483)*V(242) -! B(931) = dA(484)/dV(242) - B(931) = RCT(484)*V(351) -! B(932) = dA(484)/dV(351) - B(932) = RCT(484)*V(242) -! B(933) = dA(485)/dV(256) - B(933) = RCT(485)*V(351) -! B(934) = dA(485)/dV(351) - B(934) = RCT(485)*V(256) -! B(935) = dA(486)/dV(103) +! B(924) = dA(480)/dV(292) + B(924) = RCT(480)*2*V(292) +! B(925) = dA(481)/dV(260) + B(925) = RCT(481)*V(343) +! B(926) = dA(481)/dV(343) + B(926) = RCT(481)*V(260) +! B(927) = dA(482)/dV(246) + B(927) = RCT(482)*V(343) +! B(928) = dA(482)/dV(343) + B(928) = RCT(482)*V(246) +! B(929) = dA(483)/dV(246) + B(929) = RCT(483)*V(356) +! B(930) = dA(483)/dV(356) + B(930) = RCT(483)*V(246) +! B(931) = dA(484)/dV(246) + B(931) = RCT(484)*V(348) +! B(932) = dA(484)/dV(348) + B(932) = RCT(484)*V(246) +! B(933) = dA(485)/dV(260) + B(933) = RCT(485)*V(348) +! B(934) = dA(485)/dV(348) + B(934) = RCT(485)*V(260) +! B(935) = dA(486)/dV(106) B(935) = RCT(486) -! B(936) = dA(487)/dV(45) +! B(936) = dA(487)/dV(48) B(936) = RCT(487) -! B(937) = dA(488)/dV(154) - B(937) = RCT(488)*V(345) -! B(938) = dA(488)/dV(345) - B(938) = RCT(488)*V(154) -! B(939) = dA(489)/dV(93) - B(939) = RCT(489)*V(345) -! B(940) = dA(489)/dV(345) - B(940) = RCT(489)*V(93) -! B(941) = dA(490)/dV(83) - B(941) = RCT(490)*V(345) -! B(942) = dA(490)/dV(345) - B(942) = RCT(490)*V(83) -! B(943) = dA(491)/dV(91) - B(943) = RCT(491)*V(345) -! B(944) = dA(491)/dV(345) - B(944) = RCT(491)*V(91) -! B(945) = dA(492)/dV(95) - B(945) = RCT(492)*V(345) -! B(946) = dA(492)/dV(345) - B(946) = RCT(492)*V(95) -! B(947) = dA(493)/dV(276) - B(947) = RCT(493)*V(341) -! B(948) = dA(493)/dV(341) - B(948) = RCT(493)*V(276) -! B(949) = dA(494)/dV(276) - B(949) = RCT(494)*V(345) -! B(950) = dA(494)/dV(345) - B(950) = RCT(494)*V(276) -! B(951) = dA(495)/dV(276) - B(951) = RCT(495)*V(345) -! B(952) = dA(495)/dV(345) - B(952) = RCT(495)*V(276) -! B(953) = dA(496)/dV(276) - B(953) = RCT(496)*V(345) -! B(954) = dA(496)/dV(345) - B(954) = RCT(496)*V(276) -! B(955) = dA(497)/dV(276) - B(955) = RCT(497)*V(345) -! B(956) = dA(497)/dV(345) - B(956) = RCT(497)*V(276) -! B(957) = dA(498)/dV(305) - B(957) = RCT(498)*V(337) -! B(958) = dA(498)/dV(337) - B(958) = RCT(498)*V(305) -! B(959) = dA(499)/dV(305) - B(959) = RCT(499)*V(337) -! B(960) = dA(499)/dV(337) - B(960) = RCT(499)*V(305) -! B(961) = dA(500)/dV(304) - B(961) = RCT(500)*V(337) -! B(962) = dA(500)/dV(337) - B(962) = RCT(500)*V(304) -! B(963) = dA(501)/dV(304) - B(963) = RCT(501)*V(337) -! B(964) = dA(501)/dV(337) - B(964) = RCT(501)*V(304) -! B(965) = dA(502)/dV(305) +! B(937) = dA(488)/dV(156) + B(937) = RCT(488)*V(343) +! B(938) = dA(488)/dV(343) + B(938) = RCT(488)*V(156) +! B(939) = dA(489)/dV(96) + B(939) = RCT(489)*V(343) +! B(940) = dA(489)/dV(343) + B(940) = RCT(489)*V(96) +! B(941) = dA(490)/dV(86) + B(941) = RCT(490)*V(343) +! B(942) = dA(490)/dV(343) + B(942) = RCT(490)*V(86) +! B(943) = dA(491)/dV(94) + B(943) = RCT(491)*V(343) +! B(944) = dA(491)/dV(343) + B(944) = RCT(491)*V(94) +! B(945) = dA(492)/dV(97) + B(945) = RCT(492)*V(343) +! B(946) = dA(492)/dV(343) + B(946) = RCT(492)*V(97) +! B(947) = dA(493)/dV(279) + B(947) = RCT(493)*V(356) +! B(948) = dA(493)/dV(356) + B(948) = RCT(493)*V(279) +! B(949) = dA(494)/dV(279) + B(949) = RCT(494)*V(343) +! B(950) = dA(494)/dV(343) + B(950) = RCT(494)*V(279) +! B(951) = dA(495)/dV(279) + B(951) = RCT(495)*V(343) +! B(952) = dA(495)/dV(343) + B(952) = RCT(495)*V(279) +! B(953) = dA(496)/dV(279) + B(953) = RCT(496)*V(343) +! B(954) = dA(496)/dV(343) + B(954) = RCT(496)*V(279) +! B(955) = dA(497)/dV(279) + B(955) = RCT(497)*V(343) +! B(956) = dA(497)/dV(343) + B(956) = RCT(497)*V(279) +! B(957) = dA(498)/dV(314) + B(957) = RCT(498)*V(341) +! B(958) = dA(498)/dV(341) + B(958) = RCT(498)*V(314) +! B(959) = dA(499)/dV(314) + B(959) = RCT(499)*V(341) +! B(960) = dA(499)/dV(341) + B(960) = RCT(499)*V(314) +! B(961) = dA(500)/dV(315) + B(961) = RCT(500)*V(341) +! B(962) = dA(500)/dV(341) + B(962) = RCT(500)*V(315) +! B(963) = dA(501)/dV(315) + B(963) = RCT(501)*V(341) +! B(964) = dA(501)/dV(341) + B(964) = RCT(501)*V(315) +! B(965) = dA(502)/dV(314) B(965) = RCT(502) -! B(966) = dA(503)/dV(305) +! B(966) = dA(503)/dV(314) B(966) = RCT(503) -! B(967) = dA(504)/dV(304) +! B(967) = dA(504)/dV(315) B(967) = RCT(504) -! B(968) = dA(505)/dV(304) +! B(968) = dA(505)/dV(315) B(968) = RCT(505) -! B(969) = dA(506)/dV(305) - B(969) = RCT(506)*2*V(305) -! B(970) = dA(507)/dV(304) - B(970) = RCT(507)*2*V(304) -! B(971) = dA(508)/dV(304) - B(971) = RCT(508)*V(305) -! B(972) = dA(508)/dV(305) - B(972) = RCT(508)*V(304) -! B(973) = dA(509)/dV(305) - B(973) = RCT(509)*2*V(305) -! B(974) = dA(510)/dV(304) - B(974) = RCT(510)*2*V(304) -! B(975) = dA(511)/dV(304) - B(975) = RCT(511)*V(305) -! B(976) = dA(511)/dV(305) - B(976) = RCT(511)*V(304) -! B(977) = dA(512)/dV(305) - B(977) = RCT(512)*V(328) -! B(978) = dA(512)/dV(328) - B(978) = RCT(512)*V(305) -! B(979) = dA(513)/dV(305) - B(979) = RCT(513)*V(328) -! B(980) = dA(513)/dV(328) - B(980) = RCT(513)*V(305) -! B(981) = dA(514)/dV(304) - B(981) = RCT(514)*V(328) -! B(982) = dA(514)/dV(328) - B(982) = RCT(514)*V(304) -! B(983) = dA(515)/dV(304) - B(983) = RCT(515)*V(328) -! B(984) = dA(515)/dV(328) - B(984) = RCT(515)*V(304) -! B(985) = dA(516)/dV(305) - B(985) = RCT(516)*V(346) -! B(986) = dA(516)/dV(346) - B(986) = RCT(516)*V(305) -! B(987) = dA(517)/dV(305) - B(987) = RCT(517)*V(346) -! B(988) = dA(517)/dV(346) - B(988) = RCT(517)*V(305) -! B(989) = dA(518)/dV(305) - B(989) = RCT(518)*V(346) -! B(990) = dA(518)/dV(346) - B(990) = RCT(518)*V(305) -! B(991) = dA(519)/dV(305) - B(991) = RCT(519)*V(346) -! B(992) = dA(519)/dV(346) - B(992) = RCT(519)*V(305) -! B(993) = dA(520)/dV(304) - B(993) = RCT(520)*V(346) -! B(994) = dA(520)/dV(346) - B(994) = RCT(520)*V(304) -! B(995) = dA(521)/dV(304) - B(995) = RCT(521)*V(346) -! B(996) = dA(521)/dV(346) - B(996) = RCT(521)*V(304) -! B(997) = dA(522)/dV(304) - B(997) = RCT(522)*V(346) -! B(998) = dA(522)/dV(346) - B(998) = RCT(522)*V(304) -! B(999) = dA(523)/dV(304) - B(999) = RCT(523)*V(346) -! B(1000) = dA(523)/dV(346) - B(1000) = RCT(523)*V(304) -! B(1001) = dA(524)/dV(230) - B(1001) = RCT(524)*V(345) -! B(1002) = dA(524)/dV(345) - B(1002) = RCT(524)*V(230) +! B(969) = dA(506)/dV(314) + B(969) = RCT(506)*2*V(314) +! B(970) = dA(507)/dV(315) + B(970) = RCT(507)*2*V(315) +! B(971) = dA(508)/dV(314) + B(971) = RCT(508)*V(315) +! B(972) = dA(508)/dV(315) + B(972) = RCT(508)*V(314) +! B(973) = dA(509)/dV(314) + B(973) = RCT(509)*2*V(314) +! B(974) = dA(510)/dV(315) + B(974) = RCT(510)*2*V(315) +! B(975) = dA(511)/dV(314) + B(975) = RCT(511)*V(315) +! B(976) = dA(511)/dV(315) + B(976) = RCT(511)*V(314) +! B(977) = dA(512)/dV(314) + B(977) = RCT(512)*V(334) +! B(978) = dA(512)/dV(334) + B(978) = RCT(512)*V(314) +! B(979) = dA(513)/dV(314) + B(979) = RCT(513)*V(334) +! B(980) = dA(513)/dV(334) + B(980) = RCT(513)*V(314) +! B(981) = dA(514)/dV(315) + B(981) = RCT(514)*V(334) +! B(982) = dA(514)/dV(334) + B(982) = RCT(514)*V(315) +! B(983) = dA(515)/dV(315) + B(983) = RCT(515)*V(334) +! B(984) = dA(515)/dV(334) + B(984) = RCT(515)*V(315) +! B(985) = dA(516)/dV(314) + B(985) = RCT(516)*V(338) +! B(986) = dA(516)/dV(338) + B(986) = RCT(516)*V(314) +! B(987) = dA(517)/dV(314) + B(987) = RCT(517)*V(338) +! B(988) = dA(517)/dV(338) + B(988) = RCT(517)*V(314) +! B(989) = dA(518)/dV(314) + B(989) = RCT(518)*V(338) +! B(990) = dA(518)/dV(338) + B(990) = RCT(518)*V(314) +! B(991) = dA(519)/dV(314) + B(991) = RCT(519)*V(338) +! B(992) = dA(519)/dV(338) + B(992) = RCT(519)*V(314) +! B(993) = dA(520)/dV(315) + B(993) = RCT(520)*V(338) +! B(994) = dA(520)/dV(338) + B(994) = RCT(520)*V(315) +! B(995) = dA(521)/dV(315) + B(995) = RCT(521)*V(338) +! B(996) = dA(521)/dV(338) + B(996) = RCT(521)*V(315) +! B(997) = dA(522)/dV(315) + B(997) = RCT(522)*V(338) +! B(998) = dA(522)/dV(338) + B(998) = RCT(522)*V(315) +! B(999) = dA(523)/dV(315) + B(999) = RCT(523)*V(338) +! B(1000) = dA(523)/dV(338) + B(1000) = RCT(523)*V(315) +! B(1001) = dA(524)/dV(233) + B(1001) = RCT(524)*V(343) +! B(1002) = dA(524)/dV(343) + B(1002) = RCT(524)*V(233) ! B(1003) = dA(525)/dV(231) - B(1003) = RCT(525)*V(345) -! B(1004) = dA(525)/dV(345) + B(1003) = RCT(525)*V(343) +! B(1004) = dA(525)/dV(343) B(1004) = RCT(525)*V(231) ! B(1005) = dA(526)/dV(150) - B(1005) = RCT(526)*V(345) -! B(1006) = dA(526)/dV(345) + B(1005) = RCT(526)*V(343) +! B(1006) = dA(526)/dV(343) B(1006) = RCT(526)*V(150) -! B(1007) = dA(527)/dV(144) - B(1007) = RCT(527)*V(345) -! B(1008) = dA(527)/dV(345) - B(1008) = RCT(527)*V(144) -! B(1009) = dA(528)/dV(238) - B(1009) = RCT(528)*V(345) -! B(1010) = dA(528)/dV(345) - B(1010) = RCT(528)*V(238) -! B(1011) = dA(529)/dV(215) - B(1011) = RCT(529)*V(345) -! B(1012) = dA(529)/dV(345) - B(1012) = RCT(529)*V(215) -! B(1013) = dA(530)/dV(119) - B(1013) = RCT(530)*V(345) -! B(1014) = dA(530)/dV(345) - B(1014) = RCT(530)*V(119) -! B(1015) = dA(531)/dV(187) - B(1015) = RCT(531)*V(345) -! B(1016) = dA(531)/dV(345) - B(1016) = RCT(531)*V(187) -! B(1017) = dA(532)/dV(187) - B(1017) = RCT(532)*V(345) -! B(1018) = dA(532)/dV(345) - B(1018) = RCT(532)*V(187) -! B(1019) = dA(533)/dV(192) - B(1019) = RCT(533)*V(345) -! B(1020) = dA(533)/dV(345) - B(1020) = RCT(533)*V(192) -! B(1021) = dA(534)/dV(192) - B(1021) = RCT(534)*V(345) -! B(1022) = dA(534)/dV(345) - B(1022) = RCT(534)*V(192) -! B(1023) = dA(535)/dV(187) - B(1023) = RCT(535)*V(345) -! B(1024) = dA(535)/dV(345) - B(1024) = RCT(535)*V(187) -! B(1025) = dA(536)/dV(192) - B(1025) = RCT(536)*V(345) -! B(1026) = dA(536)/dV(345) - B(1026) = RCT(536)*V(192) -! B(1027) = dA(537)/dV(209) - B(1027) = RCT(537)*V(345) -! B(1028) = dA(537)/dV(345) - B(1028) = RCT(537)*V(209) -! B(1029) = dA(538)/dV(199) - B(1029) = RCT(538)*V(345) -! B(1030) = dA(538)/dV(345) - B(1030) = RCT(538)*V(199) -! B(1031) = dA(539)/dV(223) +! B(1007) = dA(527)/dV(151) + B(1007) = RCT(527)*V(343) +! B(1008) = dA(527)/dV(343) + B(1008) = RCT(527)*V(151) +! B(1009) = dA(528)/dV(242) + B(1009) = RCT(528)*V(343) +! B(1010) = dA(528)/dV(343) + B(1010) = RCT(528)*V(242) +! B(1011) = dA(529)/dV(218) + B(1011) = RCT(529)*V(343) +! B(1012) = dA(529)/dV(343) + B(1012) = RCT(529)*V(218) +! B(1013) = dA(530)/dV(122) + B(1013) = RCT(530)*V(343) +! B(1014) = dA(530)/dV(343) + B(1014) = RCT(530)*V(122) +! B(1015) = dA(531)/dV(191) + B(1015) = RCT(531)*V(343) +! B(1016) = dA(531)/dV(343) + B(1016) = RCT(531)*V(191) +! B(1017) = dA(532)/dV(191) + B(1017) = RCT(532)*V(343) +! B(1018) = dA(532)/dV(343) + B(1018) = RCT(532)*V(191) +! B(1019) = dA(533)/dV(195) + B(1019) = RCT(533)*V(343) +! B(1020) = dA(533)/dV(343) + B(1020) = RCT(533)*V(195) +! B(1021) = dA(534)/dV(195) + B(1021) = RCT(534)*V(343) +! B(1022) = dA(534)/dV(343) + B(1022) = RCT(534)*V(195) +! B(1023) = dA(535)/dV(191) + B(1023) = RCT(535)*V(343) +! B(1024) = dA(535)/dV(343) + B(1024) = RCT(535)*V(191) +! B(1025) = dA(536)/dV(195) + B(1025) = RCT(536)*V(343) +! B(1026) = dA(536)/dV(343) + B(1026) = RCT(536)*V(195) +! B(1027) = dA(537)/dV(213) + B(1027) = RCT(537)*V(343) +! B(1028) = dA(537)/dV(343) + B(1028) = RCT(537)*V(213) +! B(1029) = dA(538)/dV(202) + B(1029) = RCT(538)*V(343) +! B(1030) = dA(538)/dV(343) + B(1030) = RCT(538)*V(202) +! B(1031) = dA(539)/dV(228) B(1031) = RCT(539) -! B(1032) = dA(540)/dV(223) - B(1032) = RCT(540)*V(346) -! B(1033) = dA(540)/dV(346) - B(1033) = RCT(540)*V(223) -! B(1034) = dA(541)/dV(223) - B(1034) = RCT(541)*V(346) -! B(1035) = dA(541)/dV(346) - B(1035) = RCT(541)*V(223) -! B(1036) = dA(542)/dV(223) - B(1036) = RCT(542)*V(337) -! B(1037) = dA(542)/dV(337) - B(1037) = RCT(542)*V(223) -! B(1038) = dA(543)/dV(224) +! B(1032) = dA(540)/dV(228) + B(1032) = RCT(540)*V(338) +! B(1033) = dA(540)/dV(338) + B(1033) = RCT(540)*V(228) +! B(1034) = dA(541)/dV(228) + B(1034) = RCT(541)*V(338) +! B(1035) = dA(541)/dV(338) + B(1035) = RCT(541)*V(228) +! B(1036) = dA(542)/dV(228) + B(1036) = RCT(542)*V(341) +! B(1037) = dA(542)/dV(341) + B(1037) = RCT(542)*V(228) +! B(1038) = dA(543)/dV(226) B(1038) = RCT(543) -! B(1039) = dA(544)/dV(224) - B(1039) = RCT(544)*V(346) -! B(1040) = dA(544)/dV(346) - B(1040) = RCT(544)*V(224) -! B(1041) = dA(545)/dV(224) - B(1041) = RCT(545)*V(346) -! B(1042) = dA(545)/dV(346) - B(1042) = RCT(545)*V(224) -! B(1043) = dA(546)/dV(224) - B(1043) = RCT(546)*V(337) -! B(1044) = dA(546)/dV(337) - B(1044) = RCT(546)*V(224) -! B(1045) = dA(547)/dV(232) +! B(1039) = dA(544)/dV(226) + B(1039) = RCT(544)*V(338) +! B(1040) = dA(544)/dV(338) + B(1040) = RCT(544)*V(226) +! B(1041) = dA(545)/dV(226) + B(1041) = RCT(545)*V(338) +! B(1042) = dA(545)/dV(338) + B(1042) = RCT(545)*V(226) +! B(1043) = dA(546)/dV(226) + B(1043) = RCT(546)*V(341) +! B(1044) = dA(546)/dV(341) + B(1044) = RCT(546)*V(226) +! B(1045) = dA(547)/dV(235) B(1045) = RCT(547) -! B(1046) = dA(548)/dV(232) - B(1046) = RCT(548)*V(346) -! B(1047) = dA(548)/dV(346) - B(1047) = RCT(548)*V(232) -! B(1048) = dA(549)/dV(232) - B(1048) = RCT(549)*V(346) -! B(1049) = dA(549)/dV(346) - B(1049) = RCT(549)*V(232) -! B(1050) = dA(550)/dV(232) - B(1050) = RCT(550)*V(337) -! B(1051) = dA(550)/dV(337) - B(1051) = RCT(550)*V(232) -! B(1052) = dA(551)/dV(128) - B(1052) = RCT(551)*V(345) -! B(1053) = dA(551)/dV(345) - B(1053) = RCT(551)*V(128) -! B(1054) = dA(552)/dV(151) - B(1054) = RCT(552)*V(345) -! B(1055) = dA(552)/dV(345) - B(1055) = RCT(552)*V(151) -! B(1056) = dA(553)/dV(151) - B(1056) = RCT(553)*V(345) -! B(1057) = dA(553)/dV(345) - B(1057) = RCT(553)*V(151) -! B(1058) = dA(554)/dV(152) - B(1058) = RCT(554)*V(345) -! B(1059) = dA(554)/dV(345) - B(1059) = RCT(554)*V(152) -! B(1060) = dA(555)/dV(152) - B(1060) = RCT(555)*V(345) -! B(1061) = dA(555)/dV(345) - B(1061) = RCT(555)*V(152) -! B(1062) = dA(556)/dV(286) +! B(1046) = dA(548)/dV(235) + B(1046) = RCT(548)*V(338) +! B(1047) = dA(548)/dV(338) + B(1047) = RCT(548)*V(235) +! B(1048) = dA(549)/dV(235) + B(1048) = RCT(549)*V(338) +! B(1049) = dA(549)/dV(338) + B(1049) = RCT(549)*V(235) +! B(1050) = dA(550)/dV(235) + B(1050) = RCT(550)*V(341) +! B(1051) = dA(550)/dV(341) + B(1051) = RCT(550)*V(235) +! B(1052) = dA(551)/dV(131) + B(1052) = RCT(551)*V(343) +! B(1053) = dA(551)/dV(343) + B(1053) = RCT(551)*V(131) +! B(1054) = dA(552)/dV(157) + B(1054) = RCT(552)*V(343) +! B(1055) = dA(552)/dV(343) + B(1055) = RCT(552)*V(157) +! B(1056) = dA(553)/dV(157) + B(1056) = RCT(553)*V(343) +! B(1057) = dA(553)/dV(343) + B(1057) = RCT(553)*V(157) +! B(1058) = dA(554)/dV(159) + B(1058) = RCT(554)*V(343) +! B(1059) = dA(554)/dV(343) + B(1059) = RCT(554)*V(159) +! B(1060) = dA(555)/dV(159) + B(1060) = RCT(555)*V(343) +! B(1061) = dA(555)/dV(343) + B(1061) = RCT(555)*V(159) +! B(1062) = dA(556)/dV(289) B(1062) = RCT(556) -! B(1063) = dA(557)/dV(286) +! B(1063) = dA(557)/dV(289) B(1063) = RCT(557) -! B(1064) = dA(558)/dV(286) - B(1064) = RCT(558)*V(337) -! B(1065) = dA(558)/dV(337) - B(1065) = RCT(558)*V(286) -! B(1066) = dA(559)/dV(286) - B(1066) = RCT(559)*V(346) -! B(1067) = dA(559)/dV(346) - B(1067) = RCT(559)*V(286) -! B(1068) = dA(560)/dV(286) - B(1068) = RCT(560)*V(346) -! B(1069) = dA(560)/dV(346) - B(1069) = RCT(560)*V(286) -! B(1070) = dA(561)/dV(285) +! B(1064) = dA(558)/dV(289) + B(1064) = RCT(558)*V(341) +! B(1065) = dA(558)/dV(341) + B(1065) = RCT(558)*V(289) +! B(1066) = dA(559)/dV(289) + B(1066) = RCT(559)*V(338) +! B(1067) = dA(559)/dV(338) + B(1067) = RCT(559)*V(289) +! B(1068) = dA(560)/dV(289) + B(1068) = RCT(560)*V(338) +! B(1069) = dA(560)/dV(338) + B(1069) = RCT(560)*V(289) +! B(1070) = dA(561)/dV(288) B(1070) = RCT(561) -! B(1071) = dA(562)/dV(285) +! B(1071) = dA(562)/dV(288) B(1071) = RCT(562) -! B(1072) = dA(563)/dV(285) - B(1072) = RCT(563)*V(346) -! B(1073) = dA(563)/dV(346) - B(1073) = RCT(563)*V(285) -! B(1074) = dA(564)/dV(285) - B(1074) = RCT(564)*V(346) -! B(1075) = dA(564)/dV(346) - B(1075) = RCT(564)*V(285) -! B(1076) = dA(565)/dV(285) - B(1076) = RCT(565)*V(337) -! B(1077) = dA(565)/dV(337) - B(1077) = RCT(565)*V(285) -! B(1078) = dA(566)/dV(243) - B(1078) = RCT(566)*V(337) -! B(1079) = dA(566)/dV(337) - B(1079) = RCT(566)*V(243) -! B(1080) = dA(567)/dV(243) - B(1080) = RCT(567)*V(346) -! B(1081) = dA(567)/dV(346) - B(1081) = RCT(567)*V(243) -! B(1082) = dA(568)/dV(243) - B(1082) = RCT(568)*V(346) -! B(1083) = dA(568)/dV(346) - B(1083) = RCT(568)*V(243) -! B(1084) = dA(569)/dV(243) +! B(1072) = dA(563)/dV(288) + B(1072) = RCT(563)*V(338) +! B(1073) = dA(563)/dV(338) + B(1073) = RCT(563)*V(288) +! B(1074) = dA(564)/dV(288) + B(1074) = RCT(564)*V(338) +! B(1075) = dA(564)/dV(338) + B(1075) = RCT(564)*V(288) +! B(1076) = dA(565)/dV(288) + B(1076) = RCT(565)*V(341) +! B(1077) = dA(565)/dV(341) + B(1077) = RCT(565)*V(288) +! B(1078) = dA(566)/dV(245) + B(1078) = RCT(566)*V(341) +! B(1079) = dA(566)/dV(341) + B(1079) = RCT(566)*V(245) +! B(1080) = dA(567)/dV(245) + B(1080) = RCT(567)*V(338) +! B(1081) = dA(567)/dV(338) + B(1081) = RCT(567)*V(245) +! B(1082) = dA(568)/dV(245) + B(1082) = RCT(568)*V(338) +! B(1083) = dA(568)/dV(338) + B(1083) = RCT(568)*V(245) +! B(1084) = dA(569)/dV(245) B(1084) = RCT(569) -! B(1085) = dA(570)/dV(133) - B(1085) = RCT(570)*V(346) -! B(1086) = dA(570)/dV(346) - B(1086) = RCT(570)*V(133) -! B(1087) = dA(571)/dV(133) - B(1087) = RCT(571)*V(337) -! B(1088) = dA(571)/dV(337) - B(1088) = RCT(571)*V(133) -! B(1089) = dA(572)/dV(135) - B(1089) = RCT(572)*V(346) -! B(1090) = dA(572)/dV(346) - B(1090) = RCT(572)*V(135) -! B(1091) = dA(573)/dV(135) - B(1091) = RCT(573)*V(337) -! B(1092) = dA(573)/dV(337) - B(1092) = RCT(573)*V(135) +! B(1085) = dA(570)/dV(137) + B(1085) = RCT(570)*V(338) +! B(1086) = dA(570)/dV(338) + B(1086) = RCT(570)*V(137) +! B(1087) = dA(571)/dV(137) + B(1087) = RCT(571)*V(341) +! B(1088) = dA(571)/dV(341) + B(1088) = RCT(571)*V(137) +! B(1089) = dA(572)/dV(136) + B(1089) = RCT(572)*V(338) +! B(1090) = dA(572)/dV(338) + B(1090) = RCT(572)*V(136) +! B(1091) = dA(573)/dV(136) + B(1091) = RCT(573)*V(341) +! B(1092) = dA(573)/dV(341) + B(1092) = RCT(573)*V(136) ! B(1093) = dA(574)/dV(175) - B(1093) = RCT(574)*V(345) -! B(1094) = dA(574)/dV(345) + B(1093) = RCT(574)*V(343) +! B(1094) = dA(574)/dV(343) B(1094) = RCT(574)*V(175) ! B(1095) = dA(575)/dV(175) - B(1095) = RCT(575)*V(345) -! B(1096) = dA(575)/dV(345) + B(1095) = RCT(575)*V(343) +! B(1096) = dA(575)/dV(343) B(1096) = RCT(575)*V(175) -! B(1097) = dA(576)/dV(168) - B(1097) = RCT(576)*V(345) -! B(1098) = dA(576)/dV(345) - B(1098) = RCT(576)*V(168) -! B(1099) = dA(577)/dV(168) - B(1099) = RCT(577)*V(345) -! B(1100) = dA(577)/dV(345) - B(1100) = RCT(577)*V(168) -! B(1101) = dA(578)/dV(268) - B(1101) = RCT(578)*V(345) -! B(1102) = dA(578)/dV(345) - B(1102) = RCT(578)*V(268) -! B(1103) = dA(579)/dV(268) - B(1103) = RCT(579)*V(345) -! B(1104) = dA(579)/dV(345) - B(1104) = RCT(579)*V(268) -! B(1105) = dA(580)/dV(267) - B(1105) = RCT(580)*V(345) -! B(1106) = dA(580)/dV(345) - B(1106) = RCT(580)*V(267) -! B(1107) = dA(581)/dV(267) - B(1107) = RCT(581)*V(345) -! B(1108) = dA(581)/dV(345) - B(1108) = RCT(581)*V(267) -! B(1109) = dA(582)/dV(268) - B(1109) = RCT(582)*V(345) -! B(1110) = dA(582)/dV(345) - B(1110) = RCT(582)*V(268) -! B(1111) = dA(583)/dV(267) - B(1111) = RCT(583)*V(345) -! B(1112) = dA(583)/dV(345) - B(1112) = RCT(583)*V(267) -! B(1113) = dA(584)/dV(205) +! B(1097) = dA(576)/dV(177) + B(1097) = RCT(576)*V(343) +! B(1098) = dA(576)/dV(343) + B(1098) = RCT(576)*V(177) +! B(1099) = dA(577)/dV(177) + B(1099) = RCT(577)*V(343) +! B(1100) = dA(577)/dV(343) + B(1100) = RCT(577)*V(177) +! B(1101) = dA(578)/dV(271) + B(1101) = RCT(578)*V(343) +! B(1102) = dA(578)/dV(343) + B(1102) = RCT(578)*V(271) +! B(1103) = dA(579)/dV(271) + B(1103) = RCT(579)*V(343) +! B(1104) = dA(579)/dV(343) + B(1104) = RCT(579)*V(271) +! B(1105) = dA(580)/dV(270) + B(1105) = RCT(580)*V(343) +! B(1106) = dA(580)/dV(343) + B(1106) = RCT(580)*V(270) +! B(1107) = dA(581)/dV(270) + B(1107) = RCT(581)*V(343) +! B(1108) = dA(581)/dV(343) + B(1108) = RCT(581)*V(270) +! B(1109) = dA(582)/dV(271) + B(1109) = RCT(582)*V(343) +! B(1110) = dA(582)/dV(343) + B(1110) = RCT(582)*V(271) +! B(1111) = dA(583)/dV(270) + B(1111) = RCT(583)*V(343) +! B(1112) = dA(583)/dV(343) + B(1112) = RCT(583)*V(270) +! B(1113) = dA(584)/dV(210) B(1113) = RCT(584) -! B(1114) = dA(585)/dV(205) - B(1114) = RCT(585)*V(337) -! B(1115) = dA(585)/dV(337) - B(1115) = RCT(585)*V(205) -! B(1116) = dA(586)/dV(205) - B(1116) = RCT(586)*V(346) -! B(1117) = dA(586)/dV(346) - B(1117) = RCT(586)*V(205) -! B(1118) = dA(587)/dV(205) - B(1118) = RCT(587)*V(346) -! B(1119) = dA(587)/dV(346) - B(1119) = RCT(587)*V(205) -! B(1120) = dA(588)/dV(190) +! B(1114) = dA(585)/dV(210) + B(1114) = RCT(585)*V(341) +! B(1115) = dA(585)/dV(341) + B(1115) = RCT(585)*V(210) +! B(1116) = dA(586)/dV(210) + B(1116) = RCT(586)*V(338) +! B(1117) = dA(586)/dV(338) + B(1117) = RCT(586)*V(210) +! B(1118) = dA(587)/dV(210) + B(1118) = RCT(587)*V(338) +! B(1119) = dA(587)/dV(338) + B(1119) = RCT(587)*V(210) +! B(1120) = dA(588)/dV(186) B(1120) = RCT(588) -! B(1121) = dA(589)/dV(190) - B(1121) = RCT(589)*V(337) -! B(1122) = dA(589)/dV(337) - B(1122) = RCT(589)*V(190) -! B(1123) = dA(590)/dV(190) - B(1123) = RCT(590)*V(346) -! B(1124) = dA(590)/dV(346) - B(1124) = RCT(590)*V(190) -! B(1125) = dA(591)/dV(190) - B(1125) = RCT(591)*V(346) -! B(1126) = dA(591)/dV(346) - B(1126) = RCT(591)*V(190) -! B(1127) = dA(592)/dV(206) +! B(1121) = dA(589)/dV(186) + B(1121) = RCT(589)*V(341) +! B(1122) = dA(589)/dV(341) + B(1122) = RCT(589)*V(186) +! B(1123) = dA(590)/dV(186) + B(1123) = RCT(590)*V(338) +! B(1124) = dA(590)/dV(338) + B(1124) = RCT(590)*V(186) +! B(1125) = dA(591)/dV(186) + B(1125) = RCT(591)*V(338) +! B(1126) = dA(591)/dV(338) + B(1126) = RCT(591)*V(186) +! B(1127) = dA(592)/dV(209) B(1127) = RCT(592) -! B(1128) = dA(593)/dV(207) +! B(1128) = dA(593)/dV(208) B(1128) = RCT(593) -! B(1129) = dA(594)/dV(206) - B(1129) = RCT(594)*V(337) -! B(1130) = dA(594)/dV(337) - B(1130) = RCT(594)*V(206) -! B(1131) = dA(595)/dV(206) - B(1131) = RCT(595)*V(346) -! B(1132) = dA(595)/dV(346) - B(1132) = RCT(595)*V(206) -! B(1133) = dA(596)/dV(206) - B(1133) = RCT(596)*V(346) -! B(1134) = dA(596)/dV(346) - B(1134) = RCT(596)*V(206) -! B(1135) = dA(597)/dV(207) - B(1135) = RCT(597)*V(337) -! B(1136) = dA(597)/dV(337) - B(1136) = RCT(597)*V(207) -! B(1137) = dA(598)/dV(207) - B(1137) = RCT(598)*V(346) -! B(1138) = dA(598)/dV(346) - B(1138) = RCT(598)*V(207) -! B(1139) = dA(599)/dV(207) - B(1139) = RCT(599)*V(346) -! B(1140) = dA(599)/dV(346) - B(1140) = RCT(599)*V(207) -! B(1141) = dA(600)/dV(293) - B(1141) = RCT(600)*V(337) -! B(1142) = dA(600)/dV(337) - B(1142) = RCT(600)*V(293) -! B(1143) = dA(601)/dV(293) - B(1143) = RCT(601)*V(346) -! B(1144) = dA(601)/dV(346) - B(1144) = RCT(601)*V(293) -! B(1145) = dA(602)/dV(293) - B(1145) = RCT(602)*V(346) -! B(1146) = dA(602)/dV(346) - B(1146) = RCT(602)*V(293) -! B(1147) = dA(603)/dV(276) - B(1147) = RCT(603)*V(351) -! B(1148) = dA(603)/dV(351) - B(1148) = RCT(603)*V(276) -! B(1149) = dA(604)/dV(310) - B(1149) = RCT(604)*V(337) -! B(1150) = dA(604)/dV(337) - B(1150) = RCT(604)*V(310) -! B(1151) = dA(605)/dV(311) - B(1151) = RCT(605)*V(337) -! B(1152) = dA(605)/dV(337) - B(1152) = RCT(605)*V(311) -! B(1153) = dA(606)/dV(310) - B(1153) = RCT(606)*2*V(310) -! B(1154) = dA(607)/dV(310) - B(1154) = RCT(607)*V(311) -! B(1155) = dA(607)/dV(311) - B(1155) = RCT(607)*V(310) -! B(1156) = dA(608)/dV(311) - B(1156) = RCT(608)*2*V(311) -! B(1157) = dA(609)/dV(311) - B(1157) = RCT(609)*V(328) -! B(1158) = dA(609)/dV(328) - B(1158) = RCT(609)*V(311) -! B(1159) = dA(610)/dV(310) - B(1159) = RCT(610)*V(328) -! B(1160) = dA(610)/dV(328) - B(1160) = RCT(610)*V(310) -! B(1161) = dA(611)/dV(310) - B(1161) = RCT(611)*V(324) -! B(1162) = dA(611)/dV(324) - B(1162) = RCT(611)*V(310) -! B(1163) = dA(612)/dV(311) - B(1163) = RCT(612)*V(324) -! B(1164) = dA(612)/dV(324) - B(1164) = RCT(612)*V(311) -! B(1165) = dA(613)/dV(310) - B(1165) = RCT(613)*V(351) -! B(1166) = dA(613)/dV(351) - B(1166) = RCT(613)*V(310) -! B(1167) = dA(614)/dV(311) - B(1167) = RCT(614)*V(351) -! B(1168) = dA(614)/dV(351) - B(1168) = RCT(614)*V(311) -! B(1169) = dA(615)/dV(310) - B(1169) = RCT(615)*V(346) -! B(1170) = dA(615)/dV(346) - B(1170) = RCT(615)*V(310) -! B(1171) = dA(616)/dV(310) - B(1171) = RCT(616)*V(346) -! B(1172) = dA(616)/dV(346) - B(1172) = RCT(616)*V(310) -! B(1173) = dA(617)/dV(311) - B(1173) = RCT(617)*V(346) -! B(1174) = dA(617)/dV(346) - B(1174) = RCT(617)*V(311) -! B(1175) = dA(618)/dV(311) - B(1175) = RCT(618)*V(346) -! B(1176) = dA(618)/dV(346) - B(1176) = RCT(618)*V(311) -! B(1177) = dA(619)/dV(145) +! B(1129) = dA(594)/dV(209) + B(1129) = RCT(594)*V(341) +! B(1130) = dA(594)/dV(341) + B(1130) = RCT(594)*V(209) +! B(1131) = dA(595)/dV(209) + B(1131) = RCT(595)*V(338) +! B(1132) = dA(595)/dV(338) + B(1132) = RCT(595)*V(209) +! B(1133) = dA(596)/dV(209) + B(1133) = RCT(596)*V(338) +! B(1134) = dA(596)/dV(338) + B(1134) = RCT(596)*V(209) +! B(1135) = dA(597)/dV(208) + B(1135) = RCT(597)*V(341) +! B(1136) = dA(597)/dV(341) + B(1136) = RCT(597)*V(208) +! B(1137) = dA(598)/dV(208) + B(1137) = RCT(598)*V(338) +! B(1138) = dA(598)/dV(338) + B(1138) = RCT(598)*V(208) +! B(1139) = dA(599)/dV(208) + B(1139) = RCT(599)*V(338) +! B(1140) = dA(599)/dV(338) + B(1140) = RCT(599)*V(208) +! B(1141) = dA(600)/dV(299) + B(1141) = RCT(600)*V(341) +! B(1142) = dA(600)/dV(341) + B(1142) = RCT(600)*V(299) +! B(1143) = dA(601)/dV(299) + B(1143) = RCT(601)*V(338) +! B(1144) = dA(601)/dV(338) + B(1144) = RCT(601)*V(299) +! B(1145) = dA(602)/dV(299) + B(1145) = RCT(602)*V(338) +! B(1146) = dA(602)/dV(338) + B(1146) = RCT(602)*V(299) +! B(1147) = dA(603)/dV(279) + B(1147) = RCT(603)*V(348) +! B(1148) = dA(603)/dV(348) + B(1148) = RCT(603)*V(279) +! B(1149) = dA(604)/dV(308) + B(1149) = RCT(604)*V(341) +! B(1150) = dA(604)/dV(341) + B(1150) = RCT(604)*V(308) +! B(1151) = dA(605)/dV(310) + B(1151) = RCT(605)*V(341) +! B(1152) = dA(605)/dV(341) + B(1152) = RCT(605)*V(310) +! B(1153) = dA(606)/dV(308) + B(1153) = RCT(606)*2*V(308) +! B(1154) = dA(607)/dV(308) + B(1154) = RCT(607)*V(310) +! B(1155) = dA(607)/dV(310) + B(1155) = RCT(607)*V(308) +! B(1156) = dA(608)/dV(310) + B(1156) = RCT(608)*2*V(310) +! B(1157) = dA(609)/dV(310) + B(1157) = RCT(609)*V(334) +! B(1158) = dA(609)/dV(334) + B(1158) = RCT(609)*V(310) +! B(1159) = dA(610)/dV(308) + B(1159) = RCT(610)*V(334) +! B(1160) = dA(610)/dV(334) + B(1160) = RCT(610)*V(308) +! B(1161) = dA(611)/dV(308) + B(1161) = RCT(611)*V(328) +! B(1162) = dA(611)/dV(328) + B(1162) = RCT(611)*V(308) +! B(1163) = dA(612)/dV(310) + B(1163) = RCT(612)*V(328) +! B(1164) = dA(612)/dV(328) + B(1164) = RCT(612)*V(310) +! B(1165) = dA(613)/dV(308) + B(1165) = RCT(613)*V(348) +! B(1166) = dA(613)/dV(348) + B(1166) = RCT(613)*V(308) +! B(1167) = dA(614)/dV(310) + B(1167) = RCT(614)*V(348) +! B(1168) = dA(614)/dV(348) + B(1168) = RCT(614)*V(310) +! B(1169) = dA(615)/dV(308) + B(1169) = RCT(615)*V(338) +! B(1170) = dA(615)/dV(338) + B(1170) = RCT(615)*V(308) +! B(1171) = dA(616)/dV(308) + B(1171) = RCT(616)*V(338) +! B(1172) = dA(616)/dV(338) + B(1172) = RCT(616)*V(308) +! B(1173) = dA(617)/dV(310) + B(1173) = RCT(617)*V(338) +! B(1174) = dA(617)/dV(338) + B(1174) = RCT(617)*V(310) +! B(1175) = dA(618)/dV(310) + B(1175) = RCT(618)*V(338) +! B(1176) = dA(618)/dV(338) + B(1176) = RCT(618)*V(310) +! B(1177) = dA(619)/dV(147) B(1177) = RCT(619)*F(3) -! B(1179) = dA(620)/dV(145) +! B(1179) = dA(620)/dV(147) B(1179) = RCT(620) -! B(1180) = dA(621)/dV(222) - B(1180) = RCT(621)*V(345) -! B(1181) = dA(621)/dV(345) - B(1181) = RCT(621)*V(222) -! B(1182) = dA(622)/dV(186) - B(1182) = RCT(622)*V(345) -! B(1183) = dA(622)/dV(345) - B(1183) = RCT(622)*V(186) -! B(1184) = dA(623)/dV(222) - B(1184) = RCT(623)*V(345) -! B(1185) = dA(623)/dV(345) - B(1185) = RCT(623)*V(222) -! B(1186) = dA(624)/dV(186) - B(1186) = RCT(624)*V(345) -! B(1187) = dA(624)/dV(345) - B(1187) = RCT(624)*V(186) -! B(1188) = dA(625)/dV(186) - B(1188) = RCT(625)*V(345) -! B(1189) = dA(625)/dV(345) - B(1189) = RCT(625)*V(186) -! B(1190) = dA(626)/dV(222) - B(1190) = RCT(626)*V(345) -! B(1191) = dA(626)/dV(345) - B(1191) = RCT(626)*V(222) -! B(1192) = dA(627)/dV(186) - B(1192) = RCT(627)*V(345) -! B(1193) = dA(627)/dV(345) - B(1193) = RCT(627)*V(186) -! B(1194) = dA(628)/dV(186) - B(1194) = RCT(628)*V(345) -! B(1195) = dA(628)/dV(345) - B(1195) = RCT(628)*V(186) -! B(1196) = dA(629)/dV(226) +! B(1180) = dA(621)/dV(225) + B(1180) = RCT(621)*V(343) +! B(1181) = dA(621)/dV(343) + B(1181) = RCT(621)*V(225) +! B(1182) = dA(622)/dV(188) + B(1182) = RCT(622)*V(343) +! B(1183) = dA(622)/dV(343) + B(1183) = RCT(622)*V(188) +! B(1184) = dA(623)/dV(225) + B(1184) = RCT(623)*V(343) +! B(1185) = dA(623)/dV(343) + B(1185) = RCT(623)*V(225) +! B(1186) = dA(624)/dV(188) + B(1186) = RCT(624)*V(343) +! B(1187) = dA(624)/dV(343) + B(1187) = RCT(624)*V(188) +! B(1188) = dA(625)/dV(188) + B(1188) = RCT(625)*V(343) +! B(1189) = dA(625)/dV(343) + B(1189) = RCT(625)*V(188) +! B(1190) = dA(626)/dV(225) + B(1190) = RCT(626)*V(343) +! B(1191) = dA(626)/dV(343) + B(1191) = RCT(626)*V(225) +! B(1192) = dA(627)/dV(188) + B(1192) = RCT(627)*V(343) +! B(1193) = dA(627)/dV(343) + B(1193) = RCT(627)*V(188) +! B(1194) = dA(628)/dV(188) + B(1194) = RCT(628)*V(343) +! B(1195) = dA(628)/dV(343) + B(1195) = RCT(628)*V(188) +! B(1196) = dA(629)/dV(236) B(1196) = RCT(629) -! B(1197) = dA(630)/dV(271) +! B(1197) = dA(630)/dV(273) B(1197) = RCT(630) -! B(1198) = dA(631)/dV(271) - B(1198) = RCT(631)*V(337) -! B(1199) = dA(631)/dV(337) - B(1199) = RCT(631)*V(271) -! B(1200) = dA(632)/dV(226) - B(1200) = RCT(632)*V(337) -! B(1201) = dA(632)/dV(337) - B(1201) = RCT(632)*V(226) -! B(1202) = dA(633)/dV(271) - B(1202) = RCT(633)*V(346) -! B(1203) = dA(633)/dV(346) - B(1203) = RCT(633)*V(271) -! B(1204) = dA(634)/dV(271) - B(1204) = RCT(634)*V(346) -! B(1205) = dA(634)/dV(346) - B(1205) = RCT(634)*V(271) -! B(1206) = dA(635)/dV(226) - B(1206) = RCT(635)*V(346) -! B(1207) = dA(635)/dV(346) - B(1207) = RCT(635)*V(226) -! B(1208) = dA(636)/dV(226) - B(1208) = RCT(636)*V(346) -! B(1209) = dA(636)/dV(346) - B(1209) = RCT(636)*V(226) -! B(1210) = dA(637)/dV(301) - B(1210) = RCT(637)*V(345) -! B(1211) = dA(637)/dV(345) - B(1211) = RCT(637)*V(301) -! B(1212) = dA(638)/dV(301) - B(1212) = RCT(638)*V(345) -! B(1213) = dA(638)/dV(345) - B(1213) = RCT(638)*V(301) -! B(1214) = dA(639)/dV(182) - B(1214) = RCT(639)*V(346) -! B(1215) = dA(639)/dV(346) - B(1215) = RCT(639)*V(182) -! B(1216) = dA(640)/dV(182) - B(1216) = RCT(640)*V(337) -! B(1217) = dA(640)/dV(337) - B(1217) = RCT(640)*V(182) -! B(1218) = dA(641)/dV(299) - B(1218) = RCT(641)*V(345) -! B(1219) = dA(641)/dV(345) - B(1219) = RCT(641)*V(299) -! B(1220) = dA(642)/dV(180) - B(1220) = RCT(642)*V(346) -! B(1221) = dA(642)/dV(346) - B(1221) = RCT(642)*V(180) -! B(1222) = dA(643)/dV(180) - B(1222) = RCT(643)*V(337) -! B(1223) = dA(643)/dV(337) - B(1223) = RCT(643)*V(180) -! B(1224) = dA(644)/dV(314) - B(1224) = RCT(644)*V(345) -! B(1225) = dA(644)/dV(345) - B(1225) = RCT(644)*V(314) -! B(1226) = dA(645)/dV(314) - B(1226) = RCT(645)*V(341) -! B(1227) = dA(645)/dV(341) - B(1227) = RCT(645)*V(314) -! B(1228) = dA(646)/dV(309) - B(1228) = RCT(646)*V(345) -! B(1229) = dA(646)/dV(345) - B(1229) = RCT(646)*V(309) -! B(1230) = dA(647)/dV(309) - B(1230) = RCT(647)*V(345) -! B(1231) = dA(647)/dV(345) - B(1231) = RCT(647)*V(309) -! B(1232) = dA(648)/dV(309) - B(1232) = RCT(648)*V(341) -! B(1233) = dA(648)/dV(341) - B(1233) = RCT(648)*V(309) -! B(1234) = dA(649)/dV(309) - B(1234) = RCT(649)*V(351) -! B(1235) = dA(649)/dV(351) - B(1235) = RCT(649)*V(309) -! B(1236) = dA(650)/dV(302) - B(1236) = RCT(650)*V(345) -! B(1237) = dA(650)/dV(345) - B(1237) = RCT(650)*V(302) -! B(1238) = dA(651)/dV(288) - B(1238) = RCT(651)*V(345) -! B(1239) = dA(651)/dV(345) - B(1239) = RCT(651)*V(288) -! B(1240) = dA(652)/dV(287) - B(1240) = RCT(652)*V(345) -! B(1241) = dA(652)/dV(345) - B(1241) = RCT(652)*V(287) -! B(1242) = dA(653)/dV(248) - B(1242) = RCT(653)*V(345) -! B(1243) = dA(653)/dV(345) - B(1243) = RCT(653)*V(248) -! B(1244) = dA(654)/dV(216) - B(1244) = RCT(654)*V(345) -! B(1245) = dA(654)/dV(345) - B(1245) = RCT(654)*V(216) -! B(1246) = dA(655)/dV(171) - B(1246) = RCT(655)*V(346) -! B(1247) = dA(655)/dV(346) - B(1247) = RCT(655)*V(171) -! B(1248) = dA(656)/dV(171) - B(1248) = RCT(656)*V(337) -! B(1249) = dA(656)/dV(337) - B(1249) = RCT(656)*V(171) -! B(1250) = dA(657)/dV(171) - B(1250) = RCT(657)*V(335) -! B(1251) = dA(657)/dV(335) - B(1251) = RCT(657)*V(171) -! B(1252) = dA(658)/dV(172) - B(1252) = RCT(658)*V(346) -! B(1253) = dA(658)/dV(346) - B(1253) = RCT(658)*V(172) -! B(1254) = dA(659)/dV(172) - B(1254) = RCT(659)*V(337) -! B(1255) = dA(659)/dV(337) - B(1255) = RCT(659)*V(172) -! B(1256) = dA(660)/dV(172) - B(1256) = RCT(660)*V(335) -! B(1257) = dA(660)/dV(335) - B(1257) = RCT(660)*V(172) -! B(1258) = dA(661)/dV(194) - B(1258) = RCT(661)*V(345) -! B(1259) = dA(661)/dV(345) - B(1259) = RCT(661)*V(194) -! B(1260) = dA(662)/dV(185) - B(1260) = RCT(662)*V(345) -! B(1261) = dA(662)/dV(345) - B(1261) = RCT(662)*V(185) -! B(1262) = dA(663)/dV(131) - B(1262) = RCT(663)*V(345) -! B(1263) = dA(663)/dV(345) - B(1263) = RCT(663)*V(131) -! B(1264) = dA(664)/dV(227) - B(1264) = RCT(664)*V(345) -! B(1265) = dA(664)/dV(345) - B(1265) = RCT(664)*V(227) -! B(1266) = dA(665)/dV(208) - B(1266) = RCT(665)*V(345) -! B(1267) = dA(665)/dV(345) - B(1267) = RCT(665)*V(208) -! B(1268) = dA(666)/dV(153) - B(1268) = RCT(666)*V(345) -! B(1269) = dA(666)/dV(345) - B(1269) = RCT(666)*V(153) -! B(1270) = dA(667)/dV(254) - B(1270) = RCT(667)*V(337) -! B(1271) = dA(667)/dV(337) - B(1271) = RCT(667)*V(254) -! B(1272) = dA(668)/dV(254) - B(1272) = RCT(668)*V(346) -! B(1273) = dA(668)/dV(346) - B(1273) = RCT(668)*V(254) -! B(1274) = dA(669)/dV(254) - B(1274) = RCT(669)*V(346) -! B(1275) = dA(669)/dV(346) - B(1275) = RCT(669)*V(254) -! B(1276) = dA(670)/dV(253) - B(1276) = RCT(670)*V(337) -! B(1277) = dA(670)/dV(337) - B(1277) = RCT(670)*V(253) -! B(1278) = dA(671)/dV(259) - B(1278) = RCT(671)*V(337) -! B(1279) = dA(671)/dV(337) - B(1279) = RCT(671)*V(259) -! B(1280) = dA(672)/dV(159) - B(1280) = RCT(672)*V(345) -! B(1281) = dA(672)/dV(345) - B(1281) = RCT(672)*V(159) -! B(1282) = dA(673)/dV(253) +! B(1198) = dA(631)/dV(273) + B(1198) = RCT(631)*V(341) +! B(1199) = dA(631)/dV(341) + B(1199) = RCT(631)*V(273) +! B(1200) = dA(632)/dV(236) + B(1200) = RCT(632)*V(341) +! B(1201) = dA(632)/dV(341) + B(1201) = RCT(632)*V(236) +! B(1202) = dA(633)/dV(273) + B(1202) = RCT(633)*V(338) +! B(1203) = dA(633)/dV(338) + B(1203) = RCT(633)*V(273) +! B(1204) = dA(634)/dV(273) + B(1204) = RCT(634)*V(338) +! B(1205) = dA(634)/dV(338) + B(1205) = RCT(634)*V(273) +! B(1206) = dA(635)/dV(236) + B(1206) = RCT(635)*V(338) +! B(1207) = dA(635)/dV(338) + B(1207) = RCT(635)*V(236) +! B(1208) = dA(636)/dV(236) + B(1208) = RCT(636)*V(338) +! B(1209) = dA(636)/dV(338) + B(1209) = RCT(636)*V(236) +! B(1210) = dA(637)/dV(305) + B(1210) = RCT(637)*V(343) +! B(1211) = dA(637)/dV(343) + B(1211) = RCT(637)*V(305) +! B(1212) = dA(638)/dV(305) + B(1212) = RCT(638)*V(343) +! B(1213) = dA(638)/dV(343) + B(1213) = RCT(638)*V(305) +! B(1214) = dA(639)/dV(185) + B(1214) = RCT(639)*V(338) +! B(1215) = dA(639)/dV(338) + B(1215) = RCT(639)*V(185) +! B(1216) = dA(640)/dV(185) + B(1216) = RCT(640)*V(341) +! B(1217) = dA(640)/dV(341) + B(1217) = RCT(640)*V(185) +! B(1218) = dA(641)/dV(303) + B(1218) = RCT(641)*V(343) +! B(1219) = dA(641)/dV(343) + B(1219) = RCT(641)*V(303) +! B(1220) = dA(642)/dV(181) + B(1220) = RCT(642)*V(338) +! B(1221) = dA(642)/dV(338) + B(1221) = RCT(642)*V(181) +! B(1222) = dA(643)/dV(181) + B(1222) = RCT(643)*V(341) +! B(1223) = dA(643)/dV(341) + B(1223) = RCT(643)*V(181) +! B(1224) = dA(644)/dV(318) + B(1224) = RCT(644)*V(343) +! B(1225) = dA(644)/dV(343) + B(1225) = RCT(644)*V(318) +! B(1226) = dA(645)/dV(318) + B(1226) = RCT(645)*V(356) +! B(1227) = dA(645)/dV(356) + B(1227) = RCT(645)*V(318) +! B(1228) = dA(646)/dV(313) + B(1228) = RCT(646)*V(343) +! B(1229) = dA(646)/dV(343) + B(1229) = RCT(646)*V(313) +! B(1230) = dA(647)/dV(313) + B(1230) = RCT(647)*V(343) +! B(1231) = dA(647)/dV(343) + B(1231) = RCT(647)*V(313) +! B(1232) = dA(648)/dV(313) + B(1232) = RCT(648)*V(356) +! B(1233) = dA(648)/dV(356) + B(1233) = RCT(648)*V(313) +! B(1234) = dA(649)/dV(313) + B(1234) = RCT(649)*V(348) +! B(1235) = dA(649)/dV(348) + B(1235) = RCT(649)*V(313) +! B(1236) = dA(650)/dV(306) + B(1236) = RCT(650)*V(343) +! B(1237) = dA(650)/dV(343) + B(1237) = RCT(650)*V(306) +! B(1238) = dA(651)/dV(291) + B(1238) = RCT(651)*V(343) +! B(1239) = dA(651)/dV(343) + B(1239) = RCT(651)*V(291) +! B(1240) = dA(652)/dV(290) + B(1240) = RCT(652)*V(343) +! B(1241) = dA(652)/dV(343) + B(1241) = RCT(652)*V(290) +! B(1242) = dA(653)/dV(251) + B(1242) = RCT(653)*V(343) +! B(1243) = dA(653)/dV(343) + B(1243) = RCT(653)*V(251) +! B(1244) = dA(654)/dV(220) + B(1244) = RCT(654)*V(343) +! B(1245) = dA(654)/dV(343) + B(1245) = RCT(654)*V(220) +! B(1246) = dA(655)/dV(173) + B(1246) = RCT(655)*V(338) +! B(1247) = dA(655)/dV(338) + B(1247) = RCT(655)*V(173) +! B(1248) = dA(656)/dV(173) + B(1248) = RCT(656)*V(341) +! B(1249) = dA(656)/dV(341) + B(1249) = RCT(656)*V(173) +! B(1250) = dA(657)/dV(173) + B(1250) = RCT(657)*V(345) +! B(1251) = dA(657)/dV(345) + B(1251) = RCT(657)*V(173) +! B(1252) = dA(658)/dV(174) + B(1252) = RCT(658)*V(338) +! B(1253) = dA(658)/dV(338) + B(1253) = RCT(658)*V(174) +! B(1254) = dA(659)/dV(174) + B(1254) = RCT(659)*V(341) +! B(1255) = dA(659)/dV(341) + B(1255) = RCT(659)*V(174) +! B(1256) = dA(660)/dV(174) + B(1256) = RCT(660)*V(345) +! B(1257) = dA(660)/dV(345) + B(1257) = RCT(660)*V(174) +! B(1258) = dA(661)/dV(197) + B(1258) = RCT(661)*V(343) +! B(1259) = dA(661)/dV(343) + B(1259) = RCT(661)*V(197) +! B(1260) = dA(662)/dV(190) + B(1260) = RCT(662)*V(343) +! B(1261) = dA(662)/dV(343) + B(1261) = RCT(662)*V(190) +! B(1262) = dA(663)/dV(135) + B(1262) = RCT(663)*V(343) +! B(1263) = dA(663)/dV(343) + B(1263) = RCT(663)*V(135) +! B(1264) = dA(664)/dV(230) + B(1264) = RCT(664)*V(343) +! B(1265) = dA(664)/dV(343) + B(1265) = RCT(664)*V(230) +! B(1266) = dA(665)/dV(211) + B(1266) = RCT(665)*V(343) +! B(1267) = dA(665)/dV(343) + B(1267) = RCT(665)*V(211) +! B(1268) = dA(666)/dV(155) + B(1268) = RCT(666)*V(343) +! B(1269) = dA(666)/dV(343) + B(1269) = RCT(666)*V(155) +! B(1270) = dA(667)/dV(258) + B(1270) = RCT(667)*V(341) +! B(1271) = dA(667)/dV(341) + B(1271) = RCT(667)*V(258) +! B(1272) = dA(668)/dV(258) + B(1272) = RCT(668)*V(338) +! B(1273) = dA(668)/dV(338) + B(1273) = RCT(668)*V(258) +! B(1274) = dA(669)/dV(258) + B(1274) = RCT(669)*V(338) +! B(1275) = dA(669)/dV(338) + B(1275) = RCT(669)*V(258) +! B(1276) = dA(670)/dV(257) + B(1276) = RCT(670)*V(341) +! B(1277) = dA(670)/dV(341) + B(1277) = RCT(670)*V(257) +! B(1278) = dA(671)/dV(262) + B(1278) = RCT(671)*V(341) +! B(1279) = dA(671)/dV(341) + B(1279) = RCT(671)*V(262) +! B(1280) = dA(672)/dV(161) + B(1280) = RCT(672)*V(343) +! B(1281) = dA(672)/dV(343) + B(1281) = RCT(672)*V(161) +! B(1282) = dA(673)/dV(257) B(1282) = RCT(673) -! B(1283) = dA(674)/dV(253) - B(1283) = RCT(674)*V(346) -! B(1284) = dA(674)/dV(346) - B(1284) = RCT(674)*V(253) -! B(1285) = dA(675)/dV(253) - B(1285) = RCT(675)*V(346) -! B(1286) = dA(675)/dV(346) - B(1286) = RCT(675)*V(253) -! B(1287) = dA(676)/dV(259) - B(1287) = RCT(676)*V(346) -! B(1288) = dA(676)/dV(346) - B(1288) = RCT(676)*V(259) -! B(1289) = dA(677)/dV(259) - B(1289) = RCT(677)*V(335) -! B(1290) = dA(677)/dV(335) - B(1290) = RCT(677)*V(259) -! B(1291) = dA(678)/dV(308) - B(1291) = RCT(678)*V(337) -! B(1292) = dA(678)/dV(337) - B(1292) = RCT(678)*V(308) -! B(1293) = dA(679)/dV(308) - B(1293) = RCT(679)*V(346) -! B(1294) = dA(679)/dV(346) - B(1294) = RCT(679)*V(308) -! B(1295) = dA(680)/dV(308) - B(1295) = RCT(680)*V(335) -! B(1296) = dA(680)/dV(335) - B(1296) = RCT(680)*V(308) -! B(1297) = dA(681)/dV(308) - B(1297) = RCT(681)*V(351) -! B(1298) = dA(681)/dV(351) - B(1298) = RCT(681)*V(308) -! B(1299) = dA(682)/dV(308) - B(1299) = RCT(682)*V(328) -! B(1300) = dA(682)/dV(328) - B(1300) = RCT(682)*V(308) -! B(1301) = dA(683)/dV(184) +! B(1283) = dA(674)/dV(257) + B(1283) = RCT(674)*V(338) +! B(1284) = dA(674)/dV(338) + B(1284) = RCT(674)*V(257) +! B(1285) = dA(675)/dV(257) + B(1285) = RCT(675)*V(338) +! B(1286) = dA(675)/dV(338) + B(1286) = RCT(675)*V(257) +! B(1287) = dA(676)/dV(262) + B(1287) = RCT(676)*V(338) +! B(1288) = dA(676)/dV(338) + B(1288) = RCT(676)*V(262) +! B(1289) = dA(677)/dV(262) + B(1289) = RCT(677)*V(345) +! B(1290) = dA(677)/dV(345) + B(1290) = RCT(677)*V(262) +! B(1291) = dA(678)/dV(312) + B(1291) = RCT(678)*V(341) +! B(1292) = dA(678)/dV(341) + B(1292) = RCT(678)*V(312) +! B(1293) = dA(679)/dV(312) + B(1293) = RCT(679)*V(338) +! B(1294) = dA(679)/dV(338) + B(1294) = RCT(679)*V(312) +! B(1295) = dA(680)/dV(312) + B(1295) = RCT(680)*V(345) +! B(1296) = dA(680)/dV(345) + B(1296) = RCT(680)*V(312) +! B(1297) = dA(681)/dV(312) + B(1297) = RCT(681)*V(348) +! B(1298) = dA(681)/dV(348) + B(1298) = RCT(681)*V(312) +! B(1299) = dA(682)/dV(312) + B(1299) = RCT(682)*V(334) +! B(1300) = dA(682)/dV(334) + B(1300) = RCT(682)*V(312) +! B(1301) = dA(683)/dV(189) B(1301) = RCT(683) -! B(1302) = dA(684)/dV(184) - B(1302) = RCT(684)*V(345) -! B(1303) = dA(684)/dV(345) - B(1303) = RCT(684)*V(184) -! B(1304) = dA(685)/dV(107) - B(1304) = RCT(685)*V(345) -! B(1305) = dA(685)/dV(345) - B(1305) = RCT(685)*V(107) -! B(1306) = dA(686)/dV(258) - B(1306) = RCT(686)*V(345) -! B(1307) = dA(686)/dV(345) - B(1307) = RCT(686)*V(258) -! B(1308) = dA(687)/dV(147) - B(1308) = RCT(687)*V(345) -! B(1309) = dA(687)/dV(345) - B(1309) = RCT(687)*V(147) -! B(1310) = dA(688)/dV(174) - B(1310) = RCT(688)*V(345) -! B(1311) = dA(688)/dV(345) - B(1311) = RCT(688)*V(174) +! B(1302) = dA(684)/dV(189) + B(1302) = RCT(684)*V(343) +! B(1303) = dA(684)/dV(343) + B(1303) = RCT(684)*V(189) +! B(1304) = dA(685)/dV(109) + B(1304) = RCT(685)*V(343) +! B(1305) = dA(685)/dV(343) + B(1305) = RCT(685)*V(109) +! B(1306) = dA(686)/dV(259) + B(1306) = RCT(686)*V(343) +! B(1307) = dA(686)/dV(343) + B(1307) = RCT(686)*V(259) +! B(1308) = dA(687)/dV(149) + B(1308) = RCT(687)*V(343) +! B(1309) = dA(687)/dV(343) + B(1309) = RCT(687)*V(149) +! B(1310) = dA(688)/dV(178) + B(1310) = RCT(688)*V(343) +! B(1311) = dA(688)/dV(343) + B(1311) = RCT(688)*V(178) ! B(1312) = dA(689)/dV(198) - B(1312) = RCT(689)*V(345) -! B(1313) = dA(689)/dV(345) + B(1312) = RCT(689)*V(343) +! B(1313) = dA(689)/dV(343) B(1313) = RCT(689)*V(198) -! B(1314) = dA(690)/dV(266) - B(1314) = RCT(690)*V(345) -! B(1315) = dA(690)/dV(345) - B(1315) = RCT(690)*V(266) -! B(1316) = dA(691)/dV(303) - B(1316) = RCT(691)*V(345) -! B(1317) = dA(691)/dV(345) - B(1317) = RCT(691)*V(303) -! B(1318) = dA(692)/dV(261) - B(1318) = RCT(692)*V(351) -! B(1319) = dA(692)/dV(351) - B(1319) = RCT(692)*V(261) -! B(1320) = dA(693)/dV(115) - B(1320) = RCT(693)*V(345) -! B(1321) = dA(693)/dV(345) - B(1321) = RCT(693)*V(115) -! B(1322) = dA(694)/dV(88) - B(1322) = RCT(694)*V(345) -! B(1323) = dA(694)/dV(345) - B(1323) = RCT(694)*V(88) -! B(1324) = dA(695)/dV(324) - B(1324) = RCT(695)*V(337) -! B(1325) = dA(695)/dV(337) - B(1325) = RCT(695)*V(324) -! B(1326) = dA(696)/dV(210) - B(1326) = RCT(696)*V(345) -! B(1327) = dA(696)/dV(345) - B(1327) = RCT(696)*V(210) -! B(1328) = dA(697)/dV(210) - B(1328) = RCT(697)*V(345) -! B(1329) = dA(697)/dV(345) - B(1329) = RCT(697)*V(210) +! B(1314) = dA(690)/dV(269) + B(1314) = RCT(690)*V(343) +! B(1315) = dA(690)/dV(343) + B(1315) = RCT(690)*V(269) +! B(1316) = dA(691)/dV(307) + B(1316) = RCT(691)*V(343) +! B(1317) = dA(691)/dV(343) + B(1317) = RCT(691)*V(307) +! B(1318) = dA(692)/dV(265) + B(1318) = RCT(692)*V(348) +! B(1319) = dA(692)/dV(348) + B(1319) = RCT(692)*V(265) +! B(1320) = dA(693)/dV(116) + B(1320) = RCT(693)*V(343) +! B(1321) = dA(693)/dV(343) + B(1321) = RCT(693)*V(116) +! B(1322) = dA(694)/dV(92) + B(1322) = RCT(694)*V(343) +! B(1323) = dA(694)/dV(343) + B(1323) = RCT(694)*V(92) +! B(1324) = dA(695)/dV(328) + B(1324) = RCT(695)*V(341) +! B(1325) = dA(695)/dV(341) + B(1325) = RCT(695)*V(328) +! B(1326) = dA(696)/dV(214) + B(1326) = RCT(696)*V(343) +! B(1327) = dA(696)/dV(343) + B(1327) = RCT(696)*V(214) +! B(1328) = dA(697)/dV(214) + B(1328) = RCT(697)*V(343) +! B(1329) = dA(697)/dV(343) + B(1329) = RCT(697)*V(214) ! B(1330) = dA(698)/dV(19) - B(1330) = RCT(698)*V(345) -! B(1331) = dA(698)/dV(345) + B(1330) = RCT(698)*V(343) +! B(1331) = dA(698)/dV(343) B(1331) = RCT(698)*V(19) ! B(1332) = dA(699)/dV(18) - B(1332) = RCT(699)*V(337) -! B(1333) = dA(699)/dV(337) + B(1332) = RCT(699)*V(341) +! B(1333) = dA(699)/dV(341) B(1333) = RCT(699)*V(18) ! B(1334) = dA(700)/dV(18) - B(1334) = RCT(700)*V(346) -! B(1335) = dA(700)/dV(346) + B(1334) = RCT(700)*V(338) +! B(1335) = dA(700)/dV(338) B(1335) = RCT(700)*V(18) -! B(1336) = dA(701)/dV(173) - B(1336) = RCT(701)*V(345) -! B(1337) = dA(701)/dV(345) - B(1337) = RCT(701)*V(173) -! B(1338) = dA(702)/dV(220) - B(1338) = RCT(702)*V(345) -! B(1339) = dA(702)/dV(345) - B(1339) = RCT(702)*V(220) -! B(1340) = dA(703)/dV(220) - B(1340) = RCT(703)*V(351) -! B(1341) = dA(703)/dV(351) - B(1341) = RCT(703)*V(220) -! B(1342) = dA(704)/dV(220) - B(1342) = RCT(704)*V(341) -! B(1343) = dA(704)/dV(341) - B(1343) = RCT(704)*V(220) -! B(1344) = dA(705)/dV(149) - B(1344) = RCT(705)*V(345) -! B(1345) = dA(705)/dV(345) - B(1345) = RCT(705)*V(149) -! B(1346) = dA(706)/dV(149) - B(1346) = RCT(706)*V(351) -! B(1347) = dA(706)/dV(351) - B(1347) = RCT(706)*V(149) -! B(1348) = dA(707)/dV(200) - B(1348) = RCT(707)*V(345) -! B(1349) = dA(707)/dV(345) - B(1349) = RCT(707)*V(200) -! B(1350) = dA(708)/dV(200) - B(1350) = RCT(708)*V(351) -! B(1351) = dA(708)/dV(351) - B(1351) = RCT(708)*V(200) -! B(1352) = dA(709)/dV(189) - B(1352) = RCT(709)*V(346) -! B(1353) = dA(709)/dV(346) - B(1353) = RCT(709)*V(189) -! B(1354) = dA(710)/dV(189) - B(1354) = RCT(710)*V(337) -! B(1355) = dA(710)/dV(337) - B(1355) = RCT(710)*V(189) -! B(1356) = dA(711)/dV(116) - B(1356) = RCT(711)*V(345) -! B(1357) = dA(711)/dV(345) - B(1357) = RCT(711)*V(116) -! B(1358) = dA(712)/dV(109) - B(1358) = RCT(712)*V(341) -! B(1359) = dA(712)/dV(341) - B(1359) = RCT(712)*V(109) -! B(1360) = dA(713)/dV(109) - B(1360) = RCT(713)*V(345) -! B(1361) = dA(713)/dV(345) - B(1361) = RCT(713)*V(109) -! B(1362) = dA(714)/dV(60) - B(1362) = RCT(714)*V(345) -! B(1363) = dA(714)/dV(345) - B(1363) = RCT(714)*V(60) -! B(1364) = dA(715)/dV(234) - B(1364) = RCT(715)*V(337) -! B(1365) = dA(715)/dV(337) - B(1365) = RCT(715)*V(234) -! B(1366) = dA(716)/dV(234) - B(1366) = RCT(716)*V(346) -! B(1367) = dA(716)/dV(346) - B(1367) = RCT(716)*V(234) -! B(1368) = dA(717)/dV(234) - B(1368) = RCT(717)*V(351) -! B(1369) = dA(717)/dV(351) - B(1369) = RCT(717)*V(234) -! B(1370) = dA(718)/dV(234) - B(1370) = RCT(718)*V(328) -! B(1371) = dA(718)/dV(328) - B(1371) = RCT(718)*V(234) -! B(1372) = dA(719)/dV(106) +! B(1336) = dA(701)/dV(176) + B(1336) = RCT(701)*V(343) +! B(1337) = dA(701)/dV(343) + B(1337) = RCT(701)*V(176) +! B(1338) = dA(702)/dV(223) + B(1338) = RCT(702)*V(343) +! B(1339) = dA(702)/dV(343) + B(1339) = RCT(702)*V(223) +! B(1340) = dA(703)/dV(223) + B(1340) = RCT(703)*V(348) +! B(1341) = dA(703)/dV(348) + B(1341) = RCT(703)*V(223) +! B(1342) = dA(704)/dV(223) + B(1342) = RCT(704)*V(356) +! B(1343) = dA(704)/dV(356) + B(1343) = RCT(704)*V(223) +! B(1344) = dA(705)/dV(148) + B(1344) = RCT(705)*V(343) +! B(1345) = dA(705)/dV(343) + B(1345) = RCT(705)*V(148) +! B(1346) = dA(706)/dV(148) + B(1346) = RCT(706)*V(348) +! B(1347) = dA(706)/dV(348) + B(1347) = RCT(706)*V(148) +! B(1348) = dA(707)/dV(203) + B(1348) = RCT(707)*V(343) +! B(1349) = dA(707)/dV(343) + B(1349) = RCT(707)*V(203) +! B(1350) = dA(708)/dV(203) + B(1350) = RCT(708)*V(348) +! B(1351) = dA(708)/dV(348) + B(1351) = RCT(708)*V(203) +! B(1352) = dA(709)/dV(193) + B(1352) = RCT(709)*V(338) +! B(1353) = dA(709)/dV(338) + B(1353) = RCT(709)*V(193) +! B(1354) = dA(710)/dV(193) + B(1354) = RCT(710)*V(341) +! B(1355) = dA(710)/dV(341) + B(1355) = RCT(710)*V(193) +! B(1356) = dA(711)/dV(117) + B(1356) = RCT(711)*V(343) +! B(1357) = dA(711)/dV(343) + B(1357) = RCT(711)*V(117) +! B(1358) = dA(712)/dV(120) + B(1358) = RCT(712)*V(356) +! B(1359) = dA(712)/dV(356) + B(1359) = RCT(712)*V(120) +! B(1360) = dA(713)/dV(120) + B(1360) = RCT(713)*V(343) +! B(1361) = dA(713)/dV(343) + B(1361) = RCT(713)*V(120) +! B(1362) = dA(714)/dV(63) + B(1362) = RCT(714)*V(343) +! B(1363) = dA(714)/dV(343) + B(1363) = RCT(714)*V(63) +! B(1364) = dA(715)/dV(239) + B(1364) = RCT(715)*V(341) +! B(1365) = dA(715)/dV(341) + B(1365) = RCT(715)*V(239) +! B(1366) = dA(716)/dV(239) + B(1366) = RCT(716)*V(338) +! B(1367) = dA(716)/dV(338) + B(1367) = RCT(716)*V(239) +! B(1368) = dA(717)/dV(239) + B(1368) = RCT(717)*V(348) +! B(1369) = dA(717)/dV(348) + B(1369) = RCT(717)*V(239) +! B(1370) = dA(718)/dV(239) + B(1370) = RCT(718)*V(334) +! B(1371) = dA(718)/dV(334) + B(1371) = RCT(718)*V(239) +! B(1372) = dA(719)/dV(114) B(1372) = RCT(719) -! B(1373) = dA(720)/dV(106) +! B(1373) = dA(720)/dV(114) B(1373) = RCT(720)*F(3) -! B(1375) = dA(721)/dV(70) - B(1375) = RCT(721)*V(345) -! B(1376) = dA(721)/dV(345) - B(1376) = RCT(721)*V(70) -! B(1377) = dA(722)/dV(136) - B(1377) = RCT(722)*V(345) -! B(1378) = dA(722)/dV(345) - B(1378) = RCT(722)*V(136) -! B(1379) = dA(723)/dV(136) - B(1379) = RCT(723)*V(345) -! B(1380) = dA(723)/dV(345) - B(1380) = RCT(723)*V(136) -! B(1381) = dA(724)/dV(143) - B(1381) = RCT(724)*V(345) -! B(1382) = dA(724)/dV(345) - B(1382) = RCT(724)*V(143) -! B(1383) = dA(725)/dV(82) - B(1383) = RCT(725)*V(345) -! B(1384) = dA(725)/dV(345) - B(1384) = RCT(725)*V(82) -! B(1385) = dA(726)/dV(101) - B(1385) = RCT(726)*V(345) -! B(1386) = dA(726)/dV(345) - B(1386) = RCT(726)*V(101) -! B(1387) = dA(727)/dV(263) - B(1387) = RCT(727)*V(337) -! B(1388) = dA(727)/dV(337) - B(1388) = RCT(727)*V(263) -! B(1389) = dA(728)/dV(263) - B(1389) = RCT(728)*V(346) -! B(1390) = dA(728)/dV(346) - B(1390) = RCT(728)*V(263) -! B(1391) = dA(729)/dV(263) - B(1391) = RCT(729)*V(351) -! B(1392) = dA(729)/dV(351) - B(1392) = RCT(729)*V(263) -! B(1393) = dA(730)/dV(263) - B(1393) = RCT(730)*V(328) -! B(1394) = dA(730)/dV(328) - B(1394) = RCT(730)*V(263) -! B(1395) = dA(731)/dV(263) - B(1395) = RCT(731)*V(324) -! B(1396) = dA(731)/dV(324) - B(1396) = RCT(731)*V(263) -! B(1397) = dA(732)/dV(58) - B(1397) = RCT(732)*V(345) -! B(1398) = dA(732)/dV(345) - B(1398) = RCT(732)*V(58) -! B(1399) = dA(733)/dV(121) - B(1399) = RCT(733)*V(346) -! B(1400) = dA(733)/dV(346) - B(1400) = RCT(733)*V(121) -! B(1401) = dA(734)/dV(121) - B(1401) = RCT(734)*V(337) -! B(1402) = dA(734)/dV(337) - B(1402) = RCT(734)*V(121) -! B(1403) = dA(735)/dV(146) - B(1403) = 7.09e-11*V(345) -! B(1404) = dA(735)/dV(345) - B(1404) = 7.09e-11*V(146) -! B(1405) = dA(736)/dV(240) - B(1405) = RCT(736)*V(346) -! B(1406) = dA(736)/dV(346) - B(1406) = RCT(736)*V(240) -! B(1407) = dA(737)/dV(240) - B(1407) = RCT(737)*V(337) -! B(1408) = dA(737)/dV(337) - B(1408) = RCT(737)*V(240) -! B(1409) = dA(738)/dV(240) - B(1409) = RCT(738)*V(335) -! B(1410) = dA(738)/dV(335) - B(1410) = RCT(738)*V(240) -! B(1411) = dA(739)/dV(122) +! B(1375) = dA(721)/dV(73) + B(1375) = RCT(721)*V(343) +! B(1376) = dA(721)/dV(343) + B(1376) = RCT(721)*V(73) +! B(1377) = dA(722)/dV(138) + B(1377) = RCT(722)*V(343) +! B(1378) = dA(722)/dV(343) + B(1378) = RCT(722)*V(138) +! B(1379) = dA(723)/dV(138) + B(1379) = RCT(723)*V(343) +! B(1380) = dA(723)/dV(343) + B(1380) = RCT(723)*V(138) +! B(1381) = dA(724)/dV(145) + B(1381) = RCT(724)*V(343) +! B(1382) = dA(724)/dV(343) + B(1382) = RCT(724)*V(145) +! B(1383) = dA(725)/dV(85) + B(1383) = RCT(725)*V(343) +! B(1384) = dA(725)/dV(343) + B(1384) = RCT(725)*V(85) +! B(1385) = dA(726)/dV(103) + B(1385) = RCT(726)*V(343) +! B(1386) = dA(726)/dV(343) + B(1386) = RCT(726)*V(103) +! B(1387) = dA(727)/dV(266) + B(1387) = RCT(727)*V(341) +! B(1388) = dA(727)/dV(341) + B(1388) = RCT(727)*V(266) +! B(1389) = dA(728)/dV(266) + B(1389) = RCT(728)*V(338) +! B(1390) = dA(728)/dV(338) + B(1390) = RCT(728)*V(266) +! B(1391) = dA(729)/dV(266) + B(1391) = RCT(729)*V(348) +! B(1392) = dA(729)/dV(348) + B(1392) = RCT(729)*V(266) +! B(1393) = dA(730)/dV(266) + B(1393) = RCT(730)*V(334) +! B(1394) = dA(730)/dV(334) + B(1394) = RCT(730)*V(266) +! B(1395) = dA(731)/dV(266) + B(1395) = RCT(731)*V(328) +! B(1396) = dA(731)/dV(328) + B(1396) = RCT(731)*V(266) +! B(1397) = dA(732)/dV(61) + B(1397) = RCT(732)*V(343) +! B(1398) = dA(732)/dV(343) + B(1398) = RCT(732)*V(61) +! B(1399) = dA(733)/dV(124) + B(1399) = RCT(733)*V(338) +! B(1400) = dA(733)/dV(338) + B(1400) = RCT(733)*V(124) +! B(1401) = dA(734)/dV(124) + B(1401) = RCT(734)*V(341) +! B(1402) = dA(734)/dV(341) + B(1402) = RCT(734)*V(124) +! B(1403) = dA(735)/dV(152) + B(1403) = 7.09e-11*V(343) +! B(1404) = dA(735)/dV(343) + B(1404) = 7.09e-11*V(152) +! B(1405) = dA(736)/dV(243) + B(1405) = RCT(736)*V(338) +! B(1406) = dA(736)/dV(338) + B(1406) = RCT(736)*V(243) +! B(1407) = dA(737)/dV(243) + B(1407) = RCT(737)*V(341) +! B(1408) = dA(737)/dV(341) + B(1408) = RCT(737)*V(243) +! B(1409) = dA(738)/dV(243) + B(1409) = RCT(738)*V(345) +! B(1410) = dA(738)/dV(345) + B(1410) = RCT(738)*V(243) +! B(1411) = dA(739)/dV(125) B(1411) = RCT(739) -! B(1412) = dA(740)/dV(122) - B(1412) = RCT(740)*V(345) -! B(1413) = dA(740)/dV(345) - B(1413) = RCT(740)*V(122) -! B(1414) = dA(741)/dV(195) - B(1414) = RCT(741)*V(345) -! B(1415) = dA(741)/dV(345) - B(1415) = RCT(741)*V(195) -! B(1416) = dA(742)/dV(195) - B(1416) = RCT(742)*V(351) -! B(1417) = dA(742)/dV(351) - B(1417) = RCT(742)*V(195) -! B(1418) = dA(743)/dV(158) - B(1418) = RCT(743)*V(345) -! B(1419) = dA(743)/dV(345) - B(1419) = RCT(743)*V(158) -! B(1420) = dA(744)/dV(158) - B(1420) = RCT(744)*V(351) -! B(1421) = dA(744)/dV(351) - B(1421) = RCT(744)*V(158) -! B(1422) = dA(745)/dV(202) - B(1422) = RCT(745)*V(345) -! B(1423) = dA(745)/dV(345) - B(1423) = RCT(745)*V(202) -! B(1424) = dA(746)/dV(202) - B(1424) = RCT(746)*V(341) -! B(1425) = dA(746)/dV(341) - B(1425) = RCT(746)*V(202) -! B(1426) = dA(747)/dV(202) - B(1426) = RCT(747)*V(351) -! B(1427) = dA(747)/dV(351) - B(1427) = RCT(747)*V(202) -! B(1428) = dA(748)/dV(204) - B(1428) = RCT(748)*V(345) -! B(1429) = dA(748)/dV(345) - B(1429) = RCT(748)*V(204) -! B(1430) = dA(749)/dV(204) - B(1430) = RCT(749)*V(351) -! B(1431) = dA(749)/dV(351) - B(1431) = RCT(749)*V(204) -! B(1432) = dA(750)/dV(235) - B(1432) = RCT(750)*V(337) -! B(1433) = dA(750)/dV(337) - B(1433) = RCT(750)*V(235) -! B(1434) = dA(751)/dV(235) - B(1434) = RCT(751)*V(346) -! B(1435) = dA(751)/dV(346) - B(1435) = RCT(751)*V(235) -! B(1436) = dA(752)/dV(235) - B(1436) = RCT(752)*V(335) -! B(1437) = dA(752)/dV(335) - B(1437) = RCT(752)*V(235) -! B(1438) = dA(753)/dV(71) - B(1438) = RCT(753)*V(345) -! B(1439) = dA(753)/dV(345) - B(1439) = RCT(753)*V(71) -! B(1440) = dA(754)/dV(90) +! B(1412) = dA(740)/dV(125) + B(1412) = RCT(740)*V(343) +! B(1413) = dA(740)/dV(343) + B(1413) = RCT(740)*V(125) +! B(1414) = dA(741)/dV(199) + B(1414) = RCT(741)*V(343) +! B(1415) = dA(741)/dV(343) + B(1415) = RCT(741)*V(199) +! B(1416) = dA(742)/dV(199) + B(1416) = RCT(742)*V(348) +! B(1417) = dA(742)/dV(348) + B(1417) = RCT(742)*V(199) +! B(1418) = dA(743)/dV(162) + B(1418) = RCT(743)*V(343) +! B(1419) = dA(743)/dV(343) + B(1419) = RCT(743)*V(162) +! B(1420) = dA(744)/dV(162) + B(1420) = RCT(744)*V(348) +! B(1421) = dA(744)/dV(348) + B(1421) = RCT(744)*V(162) +! B(1422) = dA(745)/dV(205) + B(1422) = RCT(745)*V(343) +! B(1423) = dA(745)/dV(343) + B(1423) = RCT(745)*V(205) +! B(1424) = dA(746)/dV(205) + B(1424) = RCT(746)*V(356) +! B(1425) = dA(746)/dV(356) + B(1425) = RCT(746)*V(205) +! B(1426) = dA(747)/dV(205) + B(1426) = RCT(747)*V(348) +! B(1427) = dA(747)/dV(348) + B(1427) = RCT(747)*V(205) +! B(1428) = dA(748)/dV(207) + B(1428) = RCT(748)*V(343) +! B(1429) = dA(748)/dV(343) + B(1429) = RCT(748)*V(207) +! B(1430) = dA(749)/dV(207) + B(1430) = RCT(749)*V(348) +! B(1431) = dA(749)/dV(348) + B(1431) = RCT(749)*V(207) +! B(1432) = dA(750)/dV(237) + B(1432) = RCT(750)*V(341) +! B(1433) = dA(750)/dV(341) + B(1433) = RCT(750)*V(237) +! B(1434) = dA(751)/dV(237) + B(1434) = RCT(751)*V(338) +! B(1435) = dA(751)/dV(338) + B(1435) = RCT(751)*V(237) +! B(1436) = dA(752)/dV(237) + B(1436) = RCT(752)*V(345) +! B(1437) = dA(752)/dV(345) + B(1437) = RCT(752)*V(237) +! B(1438) = dA(753)/dV(77) + B(1438) = RCT(753)*V(343) +! B(1439) = dA(753)/dV(343) + B(1439) = RCT(753)*V(77) +! B(1440) = dA(754)/dV(105) B(1440) = RCT(754) -! B(1441) = dA(755)/dV(90) - B(1441) = RCT(755)*V(345) -! B(1442) = dA(755)/dV(345) - B(1442) = RCT(755)*V(90) -! B(1443) = dA(756)/dV(236) - B(1443) = RCT(756)*V(335) -! B(1444) = dA(756)/dV(335) - B(1444) = RCT(756)*V(236) -! B(1445) = dA(757)/dV(236) - B(1445) = RCT(757)*V(346) -! B(1446) = dA(757)/dV(346) - B(1446) = RCT(757)*V(236) -! B(1447) = dA(758)/dV(236) - B(1447) = RCT(758)*V(351) -! B(1448) = dA(758)/dV(351) - B(1448) = RCT(758)*V(236) -! B(1449) = dA(759)/dV(236) - B(1449) = RCT(759)*V(337) -! B(1450) = dA(759)/dV(337) - B(1450) = RCT(759)*V(236) -! B(1451) = dA(760)/dV(117) - B(1451) = RCT(760)*V(345) -! B(1452) = dA(760)/dV(345) - B(1452) = RCT(760)*V(117) -! B(1453) = dA(761)/dV(203) - B(1453) = RCT(761)*V(341) -! B(1454) = dA(761)/dV(341) - B(1454) = RCT(761)*V(203) -! B(1455) = dA(762)/dV(203) - B(1455) = RCT(762)*V(335) -! B(1456) = dA(762)/dV(335) - B(1456) = RCT(762)*V(203) -! B(1457) = dA(763)/dV(269) - B(1457) = RCT(763)*V(345) -! B(1458) = dA(763)/dV(345) - B(1458) = RCT(763)*V(269) -! B(1459) = dA(764)/dV(269) - B(1459) = RCT(764)*V(351) -! B(1460) = dA(764)/dV(351) - B(1460) = RCT(764)*V(269) -! B(1461) = dA(765)/dV(236) - B(1461) = RCT(765)*V(328) -! B(1462) = dA(765)/dV(328) - B(1462) = RCT(765)*V(236) -! B(1463) = dA(766)/dV(235) - B(1463) = RCT(766)*V(328) -! B(1464) = dA(766)/dV(328) - B(1464) = RCT(766)*V(235) -! B(1465) = dA(767)/dV(221) - B(1465) = RCT(767)*V(345) -! B(1466) = dA(767)/dV(345) - B(1466) = RCT(767)*V(221) -! B(1467) = dA(768)/dV(221) - B(1467) = RCT(768)*V(341) -! B(1468) = dA(768)/dV(341) - B(1468) = RCT(768)*V(221) -! B(1469) = dA(769)/dV(221) +! B(1441) = dA(755)/dV(105) + B(1441) = RCT(755)*V(343) +! B(1442) = dA(755)/dV(343) + B(1442) = RCT(755)*V(105) +! B(1443) = dA(756)/dV(238) + B(1443) = RCT(756)*V(345) +! B(1444) = dA(756)/dV(345) + B(1444) = RCT(756)*V(238) +! B(1445) = dA(757)/dV(238) + B(1445) = RCT(757)*V(338) +! B(1446) = dA(757)/dV(338) + B(1446) = RCT(757)*V(238) +! B(1447) = dA(758)/dV(238) + B(1447) = RCT(758)*V(348) +! B(1448) = dA(758)/dV(348) + B(1448) = RCT(758)*V(238) +! B(1449) = dA(759)/dV(238) + B(1449) = RCT(759)*V(341) +! B(1450) = dA(759)/dV(341) + B(1450) = RCT(759)*V(238) +! B(1451) = dA(760)/dV(118) + B(1451) = RCT(760)*V(343) +! B(1452) = dA(760)/dV(343) + B(1452) = RCT(760)*V(118) +! B(1453) = dA(761)/dV(206) + B(1453) = RCT(761)*V(356) +! B(1454) = dA(761)/dV(356) + B(1454) = RCT(761)*V(206) +! B(1455) = dA(762)/dV(206) + B(1455) = RCT(762)*V(345) +! B(1456) = dA(762)/dV(345) + B(1456) = RCT(762)*V(206) +! B(1457) = dA(763)/dV(272) + B(1457) = RCT(763)*V(343) +! B(1458) = dA(763)/dV(343) + B(1458) = RCT(763)*V(272) +! B(1459) = dA(764)/dV(272) + B(1459) = RCT(764)*V(348) +! B(1460) = dA(764)/dV(348) + B(1460) = RCT(764)*V(272) +! B(1461) = dA(765)/dV(238) + B(1461) = RCT(765)*V(334) +! B(1462) = dA(765)/dV(334) + B(1462) = RCT(765)*V(238) +! B(1463) = dA(766)/dV(237) + B(1463) = RCT(766)*V(334) +! B(1464) = dA(766)/dV(334) + B(1464) = RCT(766)*V(237) +! B(1465) = dA(767)/dV(224) + B(1465) = RCT(767)*V(343) +! B(1466) = dA(767)/dV(343) + B(1466) = RCT(767)*V(224) +! B(1467) = dA(768)/dV(224) + B(1467) = RCT(768)*V(356) +! B(1468) = dA(768)/dV(356) + B(1468) = RCT(768)*V(224) +! B(1469) = dA(769)/dV(224) B(1469) = RCT(769) -! B(1470) = dA(770)/dV(201) - B(1470) = RCT(770)*V(345) -! B(1471) = dA(770)/dV(345) - B(1471) = RCT(770)*V(201) -! B(1472) = dA(771)/dV(201) - B(1472) = RCT(771)*V(341) -! B(1473) = dA(771)/dV(341) - B(1473) = RCT(771)*V(201) -! B(1474) = dA(772)/dV(201) +! B(1470) = dA(770)/dV(204) + B(1470) = RCT(770)*V(343) +! B(1471) = dA(770)/dV(343) + B(1471) = RCT(770)*V(204) +! B(1472) = dA(771)/dV(204) + B(1472) = RCT(771)*V(356) +! B(1473) = dA(771)/dV(356) + B(1473) = RCT(771)*V(204) +! B(1474) = dA(772)/dV(204) B(1474) = RCT(772) ! B(1475) = dA(773)/dV(13) - B(1475) = RCT(773)*V(337) -! B(1476) = dA(773)/dV(337) + B(1475) = RCT(773)*V(341) +! B(1476) = dA(773)/dV(341) B(1476) = RCT(773)*V(13) ! B(1477) = dA(774)/dV(13) - B(1477) = RCT(774)*V(346) -! B(1478) = dA(774)/dV(346) + B(1477) = RCT(774)*V(338) +! B(1478) = dA(774)/dV(338) B(1478) = RCT(774)*V(13) ! B(1479) = dA(775)/dV(22) - B(1479) = RCT(775)*V(337) -! B(1480) = dA(775)/dV(337) + B(1479) = RCT(775)*V(341) +! B(1480) = dA(775)/dV(341) B(1480) = RCT(775)*V(22) ! B(1481) = dA(776)/dV(22) - B(1481) = RCT(776)*V(346) -! B(1482) = dA(776)/dV(346) + B(1481) = RCT(776)*V(338) +! B(1482) = dA(776)/dV(338) B(1482) = RCT(776)*V(22) ! B(1483) = dA(777)/dV(27) - B(1483) = RCT(777)*V(337) -! B(1484) = dA(777)/dV(337) + B(1483) = RCT(777)*V(341) +! B(1484) = dA(777)/dV(341) B(1484) = RCT(777)*V(27) ! B(1485) = dA(778)/dV(27) - B(1485) = RCT(778)*V(346) -! B(1486) = dA(778)/dV(346) + B(1485) = RCT(778)*V(338) +! B(1486) = dA(778)/dV(338) B(1486) = RCT(778)*V(27) -! B(1487) = dA(779)/dV(328) - B(1487) = RCT(779)*V(351) -! B(1488) = dA(779)/dV(351) - B(1488) = RCT(779)*V(328) -! B(1489) = dA(780)/dV(41) - B(1489) = RCT(780)*V(345) -! B(1490) = dA(780)/dV(345) - B(1490) = RCT(780)*V(41) -! B(1491) = dA(781)/dV(337) +! B(1487) = dA(779)/dV(334) + B(1487) = RCT(779)*V(348) +! B(1488) = dA(779)/dV(348) + B(1488) = RCT(779)*V(334) +! B(1489) = dA(780)/dV(44) + B(1489) = RCT(780)*V(343) +! B(1490) = dA(780)/dV(343) + B(1490) = RCT(780)*V(44) +! B(1491) = dA(781)/dV(341) B(1491) = RCT(781) -! B(1492) = dA(782)/dV(335) +! B(1492) = dA(782)/dV(345) B(1492) = RCT(782) -! B(1493) = dA(783)/dV(351) +! B(1493) = dA(783)/dV(348) B(1493) = RCT(783) -! B(1494) = dA(784)/dV(351) +! B(1494) = dA(784)/dV(348) B(1494) = RCT(784) -! B(1495) = dA(785)/dV(351) +! B(1495) = dA(785)/dV(348) B(1495) = RCT(785) -! B(1496) = dA(786)/dV(214) - B(1496) = RCT(786)*V(336) -! B(1497) = dA(786)/dV(336) - B(1497) = RCT(786)*V(214) -! B(1498) = dA(787)/dV(214) - B(1498) = RCT(787)*V(339) -! B(1499) = dA(787)/dV(339) - B(1499) = RCT(787)*V(214) -! B(1500) = dA(788)/dV(214) +! B(1496) = dA(786)/dV(217) + B(1496) = RCT(786)*V(353) +! B(1497) = dA(786)/dV(353) + B(1497) = RCT(786)*V(217) +! B(1498) = dA(787)/dV(217) + B(1498) = RCT(787)*V(340) +! B(1499) = dA(787)/dV(340) + B(1499) = RCT(787)*V(217) +! B(1500) = dA(788)/dV(217) B(1500) = RCT(788) -! B(1501) = dA(789)/dV(214) - B(1501) = RCT(789)*V(353) -! B(1502) = dA(789)/dV(353) - B(1502) = RCT(789)*V(214) -! B(1503) = dA(790)/dV(214) - B(1503) = RCT(790)*V(344) -! B(1504) = dA(790)/dV(344) - B(1504) = RCT(790)*V(214) -! B(1505) = dA(791)/dV(345) - B(1505) = RCT(791)*V(353) -! B(1506) = dA(791)/dV(353) - B(1506) = RCT(791)*V(345) -! B(1507) = dA(792)/dV(344) - B(1507) = RCT(792)*V(345) -! B(1508) = dA(792)/dV(345) - B(1508) = RCT(792)*V(344) -! B(1509) = dA(793)/dV(218) - B(1509) = RCT(793)*V(336) -! B(1510) = dA(793)/dV(336) - B(1510) = RCT(793)*V(218) -! B(1511) = dA(794)/dV(218) - B(1511) = RCT(794)*V(339) -! B(1512) = dA(794)/dV(339) - B(1512) = RCT(794)*V(218) -! B(1513) = dA(795)/dV(317) - B(1513) = RCT(795)*V(336) -! B(1514) = dA(795)/dV(336) - B(1514) = RCT(795)*V(317) -! B(1515) = dA(796)/dV(317) - B(1515) = RCT(796)*V(339) -! B(1516) = dA(796)/dV(339) - B(1516) = RCT(796)*V(317) -! B(1517) = dA(797)/dV(317) - B(1517) = RCT(797)*V(352) -! B(1518) = dA(797)/dV(352) - B(1518) = RCT(797)*V(317) -! B(1519) = dA(798)/dV(317) +! B(1501) = dA(789)/dV(217) + B(1501) = RCT(789)*V(339) +! B(1502) = dA(789)/dV(339) + B(1502) = RCT(789)*V(217) +! B(1503) = dA(790)/dV(217) + B(1503) = RCT(790)*V(346) +! B(1504) = dA(790)/dV(346) + B(1504) = RCT(790)*V(217) +! B(1505) = dA(791)/dV(339) + B(1505) = RCT(791)*V(343) +! B(1506) = dA(791)/dV(343) + B(1506) = RCT(791)*V(339) +! B(1507) = dA(792)/dV(343) + B(1507) = RCT(792)*V(346) +! B(1508) = dA(792)/dV(346) + B(1508) = RCT(792)*V(343) +! B(1509) = dA(793)/dV(221) + B(1509) = RCT(793)*V(353) +! B(1510) = dA(793)/dV(353) + B(1510) = RCT(793)*V(221) +! B(1511) = dA(794)/dV(221) + B(1511) = RCT(794)*V(340) +! B(1512) = dA(794)/dV(340) + B(1512) = RCT(794)*V(221) +! B(1513) = dA(795)/dV(321) + B(1513) = RCT(795)*V(353) +! B(1514) = dA(795)/dV(353) + B(1514) = RCT(795)*V(321) +! B(1515) = dA(796)/dV(321) + B(1515) = RCT(796)*V(340) +! B(1516) = dA(796)/dV(340) + B(1516) = RCT(796)*V(321) +! B(1517) = dA(797)/dV(321) + B(1517) = RCT(797)*V(354) +! B(1518) = dA(797)/dV(354) + B(1518) = RCT(797)*V(321) +! B(1519) = dA(798)/dV(321) B(1519) = RCT(798)*V(349) ! B(1520) = dA(798)/dV(349) - B(1520) = RCT(798)*V(317) -! B(1521) = dA(799)/dV(317) + B(1520) = RCT(798)*V(321) +! B(1521) = dA(799)/dV(321) B(1521) = RCT(799)*V(350) ! B(1522) = dA(799)/dV(350) - B(1522) = RCT(799)*V(317) -! B(1523) = dA(800)/dV(317) - B(1523) = RCT(800)*V(353) -! B(1524) = dA(800)/dV(353) - B(1524) = RCT(800)*V(317) -! B(1525) = dA(801)/dV(317) - B(1525) = RCT(801)*V(344) -! B(1526) = dA(801)/dV(344) - B(1526) = RCT(801)*V(317) -! B(1527) = dA(802)/dV(297) - B(1527) = RCT(802)*V(353) -! B(1528) = dA(802)/dV(353) - B(1528) = RCT(802)*V(297) -! B(1529) = dA(803)/dV(297) - B(1529) = RCT(803)*V(344) -! B(1530) = dA(803)/dV(344) - B(1530) = RCT(803)*V(297) -! B(1531) = dA(804)/dV(297) - B(1531) = RCT(804)*V(339) -! B(1532) = dA(804)/dV(339) - B(1532) = RCT(804)*V(297) -! B(1533) = dA(805)/dV(297) + B(1522) = RCT(799)*V(321) +! B(1523) = dA(800)/dV(321) + B(1523) = RCT(800)*V(339) +! B(1524) = dA(800)/dV(339) + B(1524) = RCT(800)*V(321) +! B(1525) = dA(801)/dV(321) + B(1525) = RCT(801)*V(346) +! B(1526) = dA(801)/dV(346) + B(1526) = RCT(801)*V(321) +! B(1527) = dA(802)/dV(301) + B(1527) = RCT(802)*V(339) +! B(1528) = dA(802)/dV(339) + B(1528) = RCT(802)*V(301) +! B(1529) = dA(803)/dV(301) + B(1529) = RCT(803)*V(346) +! B(1530) = dA(803)/dV(346) + B(1530) = RCT(803)*V(301) +! B(1531) = dA(804)/dV(301) + B(1531) = RCT(804)*V(340) +! B(1532) = dA(804)/dV(340) + B(1532) = RCT(804)*V(301) +! B(1533) = dA(805)/dV(301) B(1533) = RCT(805)*V(349) ! B(1534) = dA(805)/dV(349) - B(1534) = RCT(805)*V(297) -! B(1535) = dA(806)/dV(297) + B(1534) = RCT(805)*V(301) +! B(1535) = dA(806)/dV(301) B(1535) = RCT(806)*V(350) ! B(1536) = dA(806)/dV(350) - B(1536) = RCT(806)*V(297) -! B(1537) = dA(807)/dV(297) - B(1537) = RCT(807)*V(352) -! B(1538) = dA(807)/dV(352) - B(1538) = RCT(807)*V(297) -! B(1539) = dA(808)/dV(333) - B(1539) = RCT(808)*V(339) -! B(1540) = dA(808)/dV(339) - B(1540) = RCT(808)*V(333) -! B(1541) = dA(809)/dV(333) - B(1541) = RCT(809)*V(352) -! B(1542) = dA(809)/dV(352) - B(1542) = RCT(809)*V(333) -! B(1543) = dA(810)/dV(333) - B(1543) = RCT(810)*V(353) -! B(1544) = dA(810)/dV(353) - B(1544) = RCT(810)*V(333) -! B(1545) = dA(811)/dV(333) - B(1545) = RCT(811)*V(344) -! B(1546) = dA(811)/dV(344) - B(1546) = RCT(811)*V(333) -! B(1547) = dA(812)/dV(333) - B(1547) = RCT(812)*V(348) -! B(1548) = dA(812)/dV(348) - B(1548) = RCT(812)*V(333) -! B(1549) = dA(813)/dV(316) - B(1549) = RCT(813)*V(352) -! B(1550) = dA(813)/dV(352) - B(1550) = RCT(813)*V(316) -! B(1551) = dA(814)/dV(316) - B(1551) = RCT(814)*V(339) -! B(1552) = dA(814)/dV(339) - B(1552) = RCT(814)*V(316) -! B(1553) = dA(815)/dV(316) - B(1553) = RCT(815)*V(353) -! B(1554) = dA(815)/dV(353) - B(1554) = RCT(815)*V(316) -! B(1555) = dA(816)/dV(316) - B(1555) = RCT(816)*V(344) -! B(1556) = dA(816)/dV(344) - B(1556) = RCT(816)*V(316) -! B(1557) = dA(817)/dV(316) + B(1536) = RCT(806)*V(301) +! B(1537) = dA(807)/dV(301) + B(1537) = RCT(807)*V(354) +! B(1538) = dA(807)/dV(354) + B(1538) = RCT(807)*V(301) +! B(1539) = dA(808)/dV(332) + B(1539) = RCT(808)*V(340) +! B(1540) = dA(808)/dV(340) + B(1540) = RCT(808)*V(332) +! B(1541) = dA(809)/dV(332) + B(1541) = RCT(809)*V(354) +! B(1542) = dA(809)/dV(354) + B(1542) = RCT(809)*V(332) +! B(1543) = dA(810)/dV(332) + B(1543) = RCT(810)*V(339) +! B(1544) = dA(810)/dV(339) + B(1544) = RCT(810)*V(332) +! B(1545) = dA(811)/dV(332) + B(1545) = RCT(811)*V(346) +! B(1546) = dA(811)/dV(346) + B(1546) = RCT(811)*V(332) +! B(1547) = dA(812)/dV(332) + B(1547) = RCT(812)*V(355) +! B(1548) = dA(812)/dV(355) + B(1548) = RCT(812)*V(332) +! B(1549) = dA(813)/dV(320) + B(1549) = RCT(813)*V(354) +! B(1550) = dA(813)/dV(354) + B(1550) = RCT(813)*V(320) +! B(1551) = dA(814)/dV(320) + B(1551) = RCT(814)*V(340) +! B(1552) = dA(814)/dV(340) + B(1552) = RCT(814)*V(320) +! B(1553) = dA(815)/dV(320) + B(1553) = RCT(815)*V(339) +! B(1554) = dA(815)/dV(339) + B(1554) = RCT(815)*V(320) +! B(1555) = dA(816)/dV(320) + B(1555) = RCT(816)*V(346) +! B(1556) = dA(816)/dV(346) + B(1556) = RCT(816)*V(320) +! B(1557) = dA(817)/dV(320) B(1557) = RCT(817)*V(349) ! B(1558) = dA(817)/dV(349) - B(1558) = RCT(817)*V(316) -! B(1559) = dA(818)/dV(316) + B(1558) = RCT(817)*V(320) +! B(1559) = dA(818)/dV(320) B(1559) = RCT(818)*V(350) ! B(1560) = dA(818)/dV(350) - B(1560) = RCT(818)*V(316) -! B(1561) = dA(819)/dV(316) - B(1561) = RCT(819)*V(348) -! B(1562) = dA(819)/dV(348) - B(1562) = RCT(819)*V(316) -! B(1563) = dA(820)/dV(341) - B(1563) = RCT(820)*V(352) -! B(1564) = dA(820)/dV(352) - B(1564) = RCT(820)*V(341) -! B(1565) = dA(821)/dV(341) - B(1565) = RCT(821)*V(349) -! B(1566) = dA(821)/dV(349) - B(1566) = RCT(821)*V(341) -! B(1567) = dA(822)/dV(341) - B(1567) = RCT(822)*V(350) -! B(1568) = dA(822)/dV(350) - B(1568) = RCT(822)*V(341) -! B(1569) = dA(823)/dV(352) + B(1560) = RCT(818)*V(320) +! B(1561) = dA(819)/dV(320) + B(1561) = RCT(819)*V(355) +! B(1562) = dA(819)/dV(355) + B(1562) = RCT(819)*V(320) +! B(1563) = dA(820)/dV(354) + B(1563) = RCT(820)*V(356) +! B(1564) = dA(820)/dV(356) + B(1564) = RCT(820)*V(354) +! B(1565) = dA(821)/dV(349) + B(1565) = RCT(821)*V(356) +! B(1566) = dA(821)/dV(356) + B(1566) = RCT(821)*V(349) +! B(1567) = dA(822)/dV(350) + B(1567) = RCT(822)*V(356) +! B(1568) = dA(822)/dV(356) + B(1568) = RCT(822)*V(350) +! B(1569) = dA(823)/dV(354) B(1569) = RCT(823) -! B(1570) = dA(824)/dV(352) +! B(1570) = dA(824)/dV(354) B(1570) = RCT(824) -! B(1571) = dA(825)/dV(73) +! B(1571) = dA(825)/dV(75) B(1571) = RCT(825) -! B(1572) = dA(826)/dV(73) +! B(1572) = dA(826)/dV(75) B(1572) = RCT(826) -! B(1573) = dA(827)/dV(73) +! B(1573) = dA(827)/dV(75) B(1573) = RCT(827) -! B(1574) = dA(828)/dV(330) +! B(1574) = dA(828)/dV(287) B(1574) = RCT(828) -! B(1575) = dA(829)/dV(330) +! B(1575) = dA(829)/dV(287) B(1575) = RCT(829) -! B(1576) = dA(830)/dV(44) +! B(1576) = dA(830)/dV(47) B(1576) = RCT(830) -! B(1577) = dA(831)/dV(44) +! B(1577) = dA(831)/dV(47) B(1577) = RCT(831) -! B(1578) = dA(832)/dV(44) +! B(1578) = dA(832)/dV(47) B(1578) = RCT(832) -! B(1579) = dA(833)/dV(55) +! B(1579) = dA(833)/dV(58) B(1579) = RCT(833) -! B(1580) = dA(834)/dV(55) +! B(1580) = dA(834)/dV(58) B(1580) = RCT(834) -! B(1581) = dA(835)/dV(55) +! B(1581) = dA(835)/dV(58) B(1581) = RCT(835) -! B(1582) = dA(836)/dV(42) +! B(1582) = dA(836)/dV(45) B(1582) = RCT(836) -! B(1583) = dA(837)/dV(42) +! B(1583) = dA(837)/dV(45) B(1583) = RCT(837) -! B(1584) = dA(838)/dV(42) +! B(1584) = dA(838)/dV(45) B(1584) = RCT(838) -! B(1585) = dA(839)/dV(252) +! B(1585) = dA(839)/dV(254) B(1585) = RCT(839) -! B(1586) = dA(840)/dV(252) +! B(1586) = dA(840)/dV(254) B(1586) = RCT(840) -! B(1587) = dA(841)/dV(332) +! B(1587) = dA(841)/dV(296) B(1587) = RCT(841) -! B(1588) = dA(842)/dV(332) +! B(1588) = dA(842)/dV(296) B(1588) = RCT(842) -! B(1589) = dA(843)/dV(332) - B(1589) = RCT(843)*V(336) -! B(1590) = dA(843)/dV(336) - B(1590) = RCT(843)*V(332) -! B(1591) = dA(844)/dV(252) +! B(1589) = dA(843)/dV(296) + B(1589) = RCT(843)*V(353) +! B(1590) = dA(843)/dV(353) + B(1590) = RCT(843)*V(296) +! B(1591) = dA(844)/dV(254) B(1591) = RCT(844)*V(349) ! B(1592) = dA(844)/dV(349) - B(1592) = RCT(844)*V(252) -! B(1593) = dA(845)/dV(252) + B(1592) = RCT(844)*V(254) +! B(1593) = dA(845)/dV(254) B(1593) = RCT(845)*V(350) ! B(1594) = dA(845)/dV(350) - B(1594) = RCT(845)*V(252) -! B(1595) = dA(846)/dV(252) - B(1595) = RCT(846)*V(353) -! B(1596) = dA(846)/dV(353) - B(1596) = RCT(846)*V(252) -! B(1597) = dA(847)/dV(252) - B(1597) = RCT(847)*V(344) -! B(1598) = dA(847)/dV(344) - B(1598) = RCT(847)*V(252) -! B(1599) = dA(848)/dV(332) + B(1594) = RCT(845)*V(254) +! B(1595) = dA(846)/dV(254) + B(1595) = RCT(846)*V(339) +! B(1596) = dA(846)/dV(339) + B(1596) = RCT(846)*V(254) +! B(1597) = dA(847)/dV(254) + B(1597) = RCT(847)*V(346) +! B(1598) = dA(847)/dV(346) + B(1598) = RCT(847)*V(254) +! B(1599) = dA(848)/dV(296) B(1599) = RCT(848)*V(349) ! B(1600) = dA(848)/dV(349) - B(1600) = RCT(848)*V(332) -! B(1601) = dA(849)/dV(332) + B(1600) = RCT(848)*V(296) +! B(1601) = dA(849)/dV(296) B(1601) = RCT(849)*V(350) ! B(1602) = dA(849)/dV(350) - B(1602) = RCT(849)*V(332) -! B(1603) = dA(850)/dV(332) - B(1603) = RCT(850)*V(353) -! B(1604) = dA(850)/dV(353) - B(1604) = RCT(850)*V(332) -! B(1605) = dA(851)/dV(332) - B(1605) = RCT(851)*V(344) -! B(1606) = dA(851)/dV(344) - B(1606) = RCT(851)*V(332) -! B(1607) = dA(852)/dV(330) + B(1602) = RCT(849)*V(296) +! B(1603) = dA(850)/dV(296) + B(1603) = RCT(850)*V(339) +! B(1604) = dA(850)/dV(339) + B(1604) = RCT(850)*V(296) +! B(1605) = dA(851)/dV(296) + B(1605) = RCT(851)*V(346) +! B(1606) = dA(851)/dV(346) + B(1606) = RCT(851)*V(296) +! B(1607) = dA(852)/dV(287) B(1607) = RCT(852)*V(349) ! B(1608) = dA(852)/dV(349) - B(1608) = RCT(852)*V(330) -! B(1609) = dA(853)/dV(330) + B(1608) = RCT(852)*V(287) +! B(1609) = dA(853)/dV(287) B(1609) = RCT(853)*V(350) ! B(1610) = dA(853)/dV(350) - B(1610) = RCT(853)*V(330) -! B(1611) = dA(854)/dV(330) - B(1611) = RCT(854)*V(353) -! B(1612) = dA(854)/dV(353) - B(1612) = RCT(854)*V(330) -! B(1613) = dA(855)/dV(330) - B(1613) = RCT(855)*V(344) -! B(1614) = dA(855)/dV(344) - B(1614) = RCT(855)*V(330) -! B(1615) = dA(856)/dV(270) + B(1610) = RCT(853)*V(287) +! B(1611) = dA(854)/dV(287) + B(1611) = RCT(854)*V(339) +! B(1612) = dA(854)/dV(339) + B(1612) = RCT(854)*V(287) +! B(1613) = dA(855)/dV(287) + B(1613) = RCT(855)*V(346) +! B(1614) = dA(855)/dV(346) + B(1614) = RCT(855)*V(287) +! B(1615) = dA(856)/dV(274) B(1615) = RCT(856) -! B(1616) = dA(857)/dV(294) +! B(1616) = dA(857)/dV(298) B(1616) = RCT(857) -! B(1617) = dA(858)/dV(151) +! B(1617) = dA(858)/dV(157) B(1617) = RCT(858) -! B(1618) = dA(859)/dV(152) +! B(1618) = dA(859)/dV(159) B(1618) = RCT(859) -! B(1619) = dA(860)/dV(128) +! B(1619) = dA(860)/dV(131) B(1619) = RCT(860) ! B(1620) = dA(861)/dV(24) B(1620) = RCT(861) -! B(1621) = dA(862)/dV(302) +! B(1621) = dA(862)/dV(306) B(1621) = RCT(862) -! B(1622) = dA(863)/dV(251) +! B(1622) = dA(863)/dV(255) B(1622) = RCT(863) -! B(1623) = dA(864)/dV(256) +! B(1623) = dA(864)/dV(260) B(1623) = RCT(864) -! B(1624) = dA(865)/dV(242) +! B(1624) = dA(865)/dV(246) B(1624) = RCT(865) -! B(1625) = dA(866)/dV(154) +! B(1625) = dA(866)/dV(156) B(1625) = RCT(866) -! B(1626) = dA(867)/dV(115) +! B(1626) = dA(867)/dV(116) B(1626) = RCT(867) -! B(1627) = dA(868)/dV(107) +! B(1627) = dA(868)/dV(109) B(1627) = RCT(868) -! B(1628) = dA(869)/dV(268) +! B(1628) = dA(869)/dV(271) B(1628) = RCT(869) ! B(1629) = dA(870)/dV(175) B(1629) = RCT(870) -! B(1630) = dA(871)/dV(168) +! B(1630) = dA(871)/dV(177) B(1630) = RCT(871) -! B(1631) = dA(872)/dV(267) +! B(1631) = dA(872)/dV(270) B(1631) = RCT(872) -! B(1632) = dA(873)/dV(215) +! B(1632) = dA(873)/dV(218) B(1632) = RCT(873) -! B(1633) = dA(874)/dV(186) +! B(1633) = dA(874)/dV(188) B(1633) = RCT(874) -! B(1634) = dA(875)/dV(222) +! B(1634) = dA(875)/dV(225) B(1634) = RCT(875) -! B(1635) = dA(876)/dV(299) +! B(1635) = dA(876)/dV(303) B(1635) = RCT(876) -! B(1636) = dA(877)/dV(266) +! B(1636) = dA(877)/dV(269) B(1636) = RCT(877) -! B(1637) = dA(878)/dV(303) +! B(1637) = dA(878)/dV(307) B(1637) = RCT(878) -! B(1638) = dA(879)/dV(216) +! B(1638) = dA(879)/dV(220) B(1638) = RCT(879) -! B(1639) = dA(880)/dV(248) +! B(1639) = dA(880)/dV(251) B(1639) = RCT(880) -! B(1640) = dA(881)/dV(269) +! B(1640) = dA(881)/dV(272) B(1640) = RCT(881) -! B(1641) = dA(882)/dV(341) - B(1641) = RCT(882) -! B(1642) = dA(883)/dV(341) - B(1642) = RCT(883) -! B(1644) = dA(885)/dV(335) - B(1644) = RCT(885) -! B(1645) = dA(886)/dV(264) - B(1645) = RCT(886) -! B(1646) = dA(887)/dV(164) - B(1646) = RCT(887) -! B(1647) = dA(888)/dV(325) - B(1647) = RCT(888) -! B(1648) = dA(889)/dV(325) - B(1648) = RCT(889) -! B(1649) = dA(890)/dV(327) - B(1649) = RCT(890) -! B(1650) = dA(891)/dV(239) - B(1650) = RCT(891) -! B(1651) = dA(892)/dV(108) - B(1651) = RCT(892) -! B(1652) = dA(893)/dV(108) - B(1652) = RCT(893) -! B(1653) = dA(894)/dV(351) - B(1653) = RCT(894) -! B(1654) = dA(895)/dV(351) - B(1654) = RCT(895) -! B(1655) = dA(896)/dV(214) - B(1655) = RCT(896) -! B(1656) = dA(897)/dV(326) - B(1656) = RCT(897) -! B(1657) = dA(898)/dV(326) - B(1657) = RCT(898) -! B(1658) = dA(899)/dV(139) - B(1658) = RCT(899) -! B(1659) = dA(900)/dV(126) - B(1659) = RCT(900) -! B(1660) = dA(901)/dV(233) - B(1660) = RCT(901) -! B(1661) = dA(902)/dV(146) - B(1661) = RCT(902) -! B(1662) = dA(903)/dV(298) - B(1662) = RCT(903) -! B(1663) = dA(904)/dV(295) - B(1663) = RCT(904) -! B(1664) = dA(905)/dV(295) - B(1664) = RCT(905) -! B(1665) = dA(906)/dV(292) - B(1665) = RCT(906) -! B(1666) = dA(907)/dV(306) - B(1666) = RCT(907) -! B(1667) = dA(908)/dV(270) - B(1667) = RCT(908) -! B(1668) = dA(909)/dV(270) - B(1668) = RCT(909) -! B(1669) = dA(910)/dV(270) - B(1669) = RCT(910) -! B(1670) = dA(911)/dV(294) - B(1670) = RCT(911) -! B(1671) = dA(912)/dV(314) - B(1671) = RCT(912) -! B(1672) = dA(913)/dV(314) - B(1672) = RCT(913) -! B(1673) = dA(914)/dV(314) - B(1673) = RCT(914) -! B(1674) = dA(915)/dV(309) - B(1674) = RCT(915) -! B(1675) = dA(916)/dV(307) - B(1675) = RCT(916) -! B(1676) = dA(917)/dV(125) - B(1676) = RCT(917) -! B(1677) = dA(918)/dV(118) - B(1677) = RCT(918) -! B(1678) = dA(919)/dV(99) - B(1678) = RCT(919) -! B(1679) = dA(920)/dV(100) - B(1679) = RCT(920) -! B(1680) = dA(921)/dV(97) - B(1680) = RCT(921) -! B(1681) = dA(922)/dV(98) - B(1681) = RCT(922) -! B(1682) = dA(923)/dV(102) - B(1682) = RCT(923) -! B(1683) = dA(924)/dV(123) - B(1683) = RCT(924) -! B(1684) = dA(925)/dV(155) - B(1684) = RCT(925) -! B(1685) = dA(926)/dV(251) - B(1685) = RCT(926) -! B(1686) = dA(927)/dV(196) - B(1686) = RCT(927) -! B(1687) = dA(928)/dV(116) - B(1687) = RCT(928) -! B(1688) = dA(929)/dV(279) - B(1688) = RCT(929) -! B(1689) = dA(930)/dV(92) - B(1689) = RCT(930) -! B(1690) = dA(931)/dV(148) - B(1690) = RCT(931) -! B(1691) = dA(932)/dV(347) - B(1691) = RCT(932) -! B(1692) = dA(933)/dV(316) - B(1692) = RCT(933) -! B(1693) = dA(934)/dV(218) - B(1693) = RCT(934) -! B(1694) = dA(935)/dV(218) - B(1694) = RCT(935) -! B(1695) = dA(936)/dV(59) - B(1695) = RCT(936) -! B(1696) = dA(937)/dV(81) - B(1696) = RCT(937) -! B(1697) = dA(938)/dV(78) - B(1697) = RCT(938) -! B(1698) = dA(939)/dV(105) - B(1698) = RCT(939) -! B(1699) = dA(940)/dV(181) - B(1699) = RCT(940) -! B(1700) = dA(941)/dV(79) - B(1700) = RCT(941) -! B(1701) = dA(942)/dV(157) - B(1701) = RCT(942) -! B(1702) = dA(943)/dV(245) - B(1702) = RCT(943) -! B(1703) = dA(944)/dV(338) - B(1703) = RCT(944) -! B(1704) = dA(945)/dV(120) - B(1704) = RCT(945) -! B(1705) = dA(946)/dV(76) - B(1705) = RCT(946) -! B(1706) = dA(947)/dV(297) - B(1706) = RCT(947) -! B(1707) = dA(948)/dV(317) - B(1707) = RCT(948) -! B(1708) = dA(949)/dV(317) - B(1708) = RCT(949) -! B(1709) = dA(950)/dV(333) - B(1709) = RCT(950) -! B(1710) = dA(951)/dV(43) - B(1710) = RCT(951) -! B(1711) = dA(952)/dV(46) - B(1711) = RCT(952) -! B(1712) = dA(953)/dV(47) - B(1712) = RCT(953) -! B(1713) = dA(954)/dV(48) - B(1713) = RCT(954) -! B(1714) = dA(955)/dV(49) - B(1714) = RCT(955) -! B(1715) = dA(956)/dV(50) - B(1715) = RCT(956) -! B(1716) = dA(957)/dV(51) - B(1716) = RCT(957) -! B(1717) = dA(958)/dV(84) - B(1717) = RCT(958) -! B(1718) = dA(959)/dV(85) - B(1718) = RCT(959) -! B(1719) = dA(960)/dV(86) - B(1719) = RCT(960) -! B(1720) = dA(961)/dV(87) - B(1720) = RCT(961) -! B(1721) = dA(962)/dV(53) - B(1721) = RCT(962) -! B(1722) = dA(963)/dV(61) - B(1722) = RCT(963) -! B(1723) = dA(964)/dV(54) - B(1723) = RCT(964) -! B(1724) = dA(965)/dV(110) - B(1724) = RCT(965) -! B(1725) = dA(966)/dV(170) - B(1725) = RCT(966) -! B(1726) = dA(967)/dV(330) - B(1726) = RCT(967) -! B(1727) = dA(968)/dV(284) - B(1727) = RCT(968) -! B(1728) = dA(969)/dV(96) - B(1728) = RCT(969) -! B(1729) = dA(970)/dV(62) - B(1729) = RCT(970) -! B(1730) = dA(971)/dV(252) - B(1730) = RCT(971) -! B(1731) = dA(972)/dV(332) - B(1731) = RCT(972) -! B(1732) = dA(973)/dV(44) - B(1732) = RCT(973) -! B(1733) = dA(974)/dV(52) - B(1733) = RCT(974) -! B(1734) = dA(975)/dV(1) - B(1734) = RCT(975) -! B(1735) = dA(976)/dV(3) - B(1735) = RCT(976) -! B(1736) = dA(977)/dV(2) - B(1736) = RCT(977) -! B(1737) = dA(978)/dV(42) - B(1737) = RCT(978) -! B(1738) = dA(979)/dV(55) - B(1738) = RCT(979) -! B(1739) = dA(980)/dV(77) - B(1739) = RCT(980) -! B(1740) = dA(981)/dV(104) - B(1740) = RCT(981) -! B(1741) = dA(982)/dV(80) - B(1741) = RCT(982) -! B(1742) = dA(983)/dV(80) - B(1742) = RCT(983) -! B(1743) = dA(984)/dV(244) - B(1743) = RCT(984) -! B(1744) = dA(985)/dV(63) - B(1744) = RCT(985) -! B(1745) = dA(986)/dV(68) - B(1745) = RCT(986) -! B(1746) = dA(987)/dV(134) - B(1746) = RCT(987) -! B(1747) = dA(988)/dV(346) - B(1747) = RCT(988) -! B(1748) = dA(989)/dV(229) - B(1748) = RCT(989) -! B(1749) = dA(990)/dV(261) - B(1749) = RCT(990) -! B(1750) = dA(991)/dV(256) - B(1750) = RCT(991) -! B(1751) = dA(992)/dV(242) - B(1751) = RCT(992) -! B(1752) = dA(993)/dV(154) - B(1752) = RCT(993) -! B(1753) = dA(994)/dV(65) - B(1753) = RCT(994) -! B(1754) = dA(995)/dV(65) - B(1754) = RCT(995) -! B(1755) = dA(996)/dV(64) - B(1755) = RCT(996) -! B(1756) = dA(997)/dV(64) - B(1756) = RCT(997) -! B(1757) = dA(998)/dV(93) - B(1757) = RCT(998) -! B(1758) = dA(999)/dV(83) - B(1758) = RCT(999) -! B(1759) = dA(1000)/dV(91) - B(1759) = RCT(1000) -! B(1760) = dA(1001)/dV(95) - B(1760) = RCT(1001) -! B(1761) = dA(1002)/dV(88) - B(1761) = RCT(1002) -! B(1762) = dA(1003)/dV(210) - B(1762) = RCT(1003) -! B(1763) = dA(1004)/dV(115) - B(1763) = RCT(1004) -! B(1764) = dA(1005)/dV(247) - B(1764) = RCT(1005) -! B(1765) = dA(1006)/dV(208) - B(1765) = RCT(1006) -! B(1766) = dA(1007)/dV(227) - B(1766) = RCT(1007) -! B(1767) = dA(1008)/dV(288) - B(1767) = RCT(1008) -! B(1768) = dA(1009)/dV(185) - B(1768) = RCT(1009) -! B(1769) = dA(1010)/dV(194) - B(1769) = RCT(1010) -! B(1770) = dA(1011)/dV(287) - B(1770) = RCT(1011) -! B(1771) = dA(1012)/dV(159) - B(1771) = RCT(1012) -! B(1772) = dA(1013)/dV(302) - B(1772) = RCT(1013) -! B(1773) = dA(1014)/dV(248) - B(1773) = RCT(1014) -! B(1774) = dA(1015)/dV(216) - B(1774) = RCT(1015) -! B(1775) = dA(1016)/dV(187) - B(1775) = RCT(1016) -! B(1776) = dA(1017)/dV(192) - B(1776) = RCT(1017) -! B(1777) = dA(1018)/dV(209) - B(1777) = RCT(1018) -! B(1778) = dA(1019)/dV(199) - B(1778) = RCT(1019) -! B(1779) = dA(1020)/dV(230) - B(1779) = RCT(1020) -! B(1780) = dA(1021)/dV(231) - B(1780) = RCT(1021) -! B(1781) = dA(1022)/dV(150) - B(1781) = RCT(1022) -! B(1782) = dA(1023)/dV(144) - B(1782) = RCT(1023) -! B(1783) = dA(1024)/dV(268) - B(1783) = RCT(1024) -! B(1784) = dA(1025)/dV(175) - B(1784) = RCT(1025) -! B(1785) = dA(1026)/dV(168) - B(1785) = RCT(1026) -! B(1786) = dA(1027)/dV(267) - B(1786) = RCT(1027) -! B(1787) = dA(1028)/dV(222) - B(1787) = RCT(1028) -! B(1788) = dA(1029)/dV(186) - B(1788) = RCT(1029) -! B(1789) = dA(1030)/dV(186) - B(1789) = RCT(1030) -! B(1790) = dA(1031)/dV(301) - B(1790) = RCT(1031) -! B(1791) = dA(1032)/dV(299) - B(1791) = RCT(1032) -! B(1792) = dA(1033)/dV(258) - B(1792) = RCT(1033) -! B(1793) = dA(1034)/dV(258) - B(1793) = RCT(1034) -! B(1794) = dA(1035)/dV(174) - B(1794) = RCT(1035) -! B(1795) = dA(1036)/dV(198) - B(1795) = RCT(1036) -! B(1796) = dA(1037)/dV(147) - B(1796) = RCT(1037) -! B(1797) = dA(1038)/dV(303) - B(1797) = RCT(1038) -! B(1798) = dA(1039)/dV(303) - B(1798) = RCT(1039) -! B(1799) = dA(1040)/dV(266) - B(1799) = RCT(1040) -! B(1800) = dA(1041)/dV(266) - B(1800) = RCT(1041) -! B(1801) = dA(1042)/dV(136) - B(1801) = RCT(1042) -! B(1802) = dA(1043)/dV(204) - B(1802) = RCT(1043) -! B(1803) = dA(1044)/dV(71) - B(1803) = RCT(1044) -! B(1804) = dA(1045)/dV(117) - B(1804) = RCT(1045) -! B(1805) = dA(1046)/dV(269) - B(1805) = RCT(1046) -! B(1806) = dA(1047)/dV(124) - B(1806) = RCT(1047) -! B(1807) = dA(1048)/dV(111) - B(1807) = RCT(1048) -! B(1808) = dA(1049)/dV(225) - B(1808) = RCT(1049) -! B(1809) = dA(1050)/dV(74) - B(1809) = RCT(1050) -! B(1810) = dA(1051)/dV(66) - B(1810) = RCT(1051) -! B(1811) = dA(1052)/dV(160) - B(1811) = RCT(1052) -! B(1812) = dA(1053)/dV(112) - B(1812) = RCT(1053) -! B(1813) = dA(1054)/dV(161) - B(1813) = RCT(1054) -! B(1814) = dA(1055)/dV(169) - B(1814) = RCT(1055) -! B(1815) = dA(1056)/dV(130) - B(1815) = RCT(1056) -! B(1816) = dA(1057)/dV(229) - B(1816) = RCT(1057) -! B(1817) = dA(1058)/dV(255) - B(1817) = RCT(1058) +! B(1641) = dA(882)/dV(267) + B(1641) = RCT(882)*V(355) +! B(1642) = dA(882)/dV(355) + B(1642) = RCT(882)*V(267) +! B(1643) = dA(883)/dV(355) + B(1643) = RCT(883)*V(356) +! B(1644) = dA(883)/dV(356) + B(1644) = RCT(883)*V(355) +! B(1645) = dA(884)/dV(355) + B(1645) = RCT(884) +! B(1646) = dA(885)/dV(345) + B(1646) = RCT(885)*V(355) +! B(1647) = dA(885)/dV(355) + B(1647) = RCT(885)*V(345) +! B(1648) = dA(886)/dV(329) + B(1648) = RCT(886)*V(355) +! B(1649) = dA(886)/dV(355) + B(1649) = RCT(886)*V(329) +! B(1650) = dA(887)/dV(93) + B(1650) = RCT(887) +! B(1651) = dA(888)/dV(93) + B(1651) = RCT(888)*V(343)*V(355) +! B(1652) = dA(888)/dV(343) + B(1652) = RCT(888)*V(93)*V(355) +! B(1653) = dA(888)/dV(355) + B(1653) = RCT(888)*V(93)*V(343) +! B(1654) = dA(889)/dV(356) + B(1654) = RCT(889) +! B(1655) = dA(890)/dV(356) + B(1655) = RCT(890) +! B(1657) = dA(892)/dV(345) + B(1657) = RCT(892) +! B(1658) = dA(893)/dV(267) + B(1658) = RCT(893) +! B(1659) = dA(894)/dV(167) + B(1659) = RCT(894) +! B(1660) = dA(895)/dV(329) + B(1660) = RCT(895) +! B(1661) = dA(896)/dV(329) + B(1661) = RCT(896) +! B(1662) = dA(897)/dV(333) + B(1662) = RCT(897) +! B(1663) = dA(898)/dV(240) + B(1663) = RCT(898) +! B(1664) = dA(899)/dV(110) + B(1664) = RCT(899) +! B(1665) = dA(900)/dV(110) + B(1665) = RCT(900) +! B(1666) = dA(901)/dV(348) + B(1666) = RCT(901) +! B(1667) = dA(902)/dV(348) + B(1667) = RCT(902) +! B(1668) = dA(903)/dV(217) + B(1668) = RCT(903) +! B(1669) = dA(904)/dV(330) + B(1669) = RCT(904) +! B(1670) = dA(905)/dV(330) + B(1670) = RCT(905) +! B(1671) = dA(906)/dV(143) + B(1671) = RCT(906) +! B(1672) = dA(907)/dV(129) + B(1672) = RCT(907) +! B(1673) = dA(908)/dV(229) + B(1673) = RCT(908) +! B(1674) = dA(909)/dV(152) + B(1674) = RCT(909) +! B(1675) = dA(910)/dV(302) + B(1675) = RCT(910) +! B(1676) = dA(911)/dV(297) + B(1676) = RCT(911) +! B(1677) = dA(912)/dV(297) + B(1677) = RCT(912) +! B(1678) = dA(913)/dV(295) + B(1678) = RCT(913) +! B(1679) = dA(914)/dV(309) + B(1679) = RCT(914) +! B(1680) = dA(915)/dV(274) + B(1680) = RCT(915) +! B(1681) = dA(916)/dV(274) + B(1681) = RCT(916) +! B(1682) = dA(917)/dV(274) + B(1682) = RCT(917) +! B(1683) = dA(918)/dV(298) + B(1683) = RCT(918) +! B(1684) = dA(919)/dV(318) + B(1684) = RCT(919) +! B(1685) = dA(920)/dV(318) + B(1685) = RCT(920) +! B(1686) = dA(921)/dV(318) + B(1686) = RCT(921) +! B(1687) = dA(922)/dV(313) + B(1687) = RCT(922) +! B(1688) = dA(923)/dV(311) + B(1688) = RCT(923) +! B(1689) = dA(924)/dV(128) + B(1689) = RCT(924) +! B(1690) = dA(925)/dV(121) + B(1690) = RCT(925) +! B(1691) = dA(926)/dV(101) + B(1691) = RCT(926) +! B(1692) = dA(927)/dV(102) + B(1692) = RCT(927) +! B(1693) = dA(928)/dV(99) + B(1693) = RCT(928) +! B(1694) = dA(929)/dV(100) + B(1694) = RCT(929) +! B(1695) = dA(930)/dV(104) + B(1695) = RCT(930) +! B(1696) = dA(931)/dV(126) + B(1696) = RCT(931) +! B(1697) = dA(932)/dV(158) + B(1697) = RCT(932) +! B(1698) = dA(933)/dV(255) + B(1698) = RCT(933) +! B(1699) = dA(934)/dV(200) + B(1699) = RCT(934) +! B(1700) = dA(935)/dV(117) + B(1700) = RCT(935) +! B(1701) = dA(936)/dV(283) + B(1701) = RCT(936) +! B(1702) = dA(937)/dV(95) + B(1702) = RCT(937) +! B(1703) = dA(938)/dV(153) + B(1703) = RCT(938) +! B(1704) = dA(939)/dV(347) + B(1704) = RCT(939) +! B(1705) = dA(940)/dV(320) + B(1705) = RCT(940) +! B(1706) = dA(941)/dV(221) + B(1706) = RCT(941) +! B(1707) = dA(942)/dV(221) + B(1707) = RCT(942) +! B(1708) = dA(943)/dV(62) + B(1708) = RCT(943) +! B(1709) = dA(944)/dV(82) + B(1709) = RCT(944) +! B(1710) = dA(945)/dV(79) + B(1710) = RCT(945) +! B(1711) = dA(946)/dV(108) + B(1711) = RCT(946) +! B(1712) = dA(947)/dV(184) + B(1712) = RCT(947) +! B(1713) = dA(948)/dV(80) + B(1713) = RCT(948) +! B(1714) = dA(949)/dV(160) + B(1714) = RCT(949) +! B(1715) = dA(950)/dV(248) + B(1715) = RCT(950) +! B(1716) = dA(951)/dV(344) + B(1716) = RCT(951) +! B(1717) = dA(952)/dV(123) + B(1717) = RCT(952) +! B(1718) = dA(953)/dV(78) + B(1718) = RCT(953) +! B(1719) = dA(954)/dV(301) + B(1719) = RCT(954) +! B(1720) = dA(955)/dV(321) + B(1720) = RCT(955) +! B(1721) = dA(956)/dV(321) + B(1721) = RCT(956) +! B(1722) = dA(957)/dV(332) + B(1722) = RCT(957) +! B(1723) = dA(958)/dV(46) + B(1723) = RCT(958) +! B(1724) = dA(959)/dV(49) + B(1724) = RCT(959) +! B(1725) = dA(960)/dV(50) + B(1725) = RCT(960) +! B(1726) = dA(961)/dV(51) + B(1726) = RCT(961) +! B(1727) = dA(962)/dV(52) + B(1727) = RCT(962) +! B(1728) = dA(963)/dV(53) + B(1728) = RCT(963) +! B(1729) = dA(964)/dV(54) + B(1729) = RCT(964) +! B(1730) = dA(965)/dV(88) + B(1730) = RCT(965) +! B(1731) = dA(966)/dV(89) + B(1731) = RCT(966) +! B(1732) = dA(967)/dV(90) + B(1732) = RCT(967) +! B(1733) = dA(968)/dV(91) + B(1733) = RCT(968) +! B(1734) = dA(969)/dV(56) + B(1734) = RCT(969) +! B(1735) = dA(970)/dV(64) + B(1735) = RCT(970) +! B(1736) = dA(971)/dV(57) + B(1736) = RCT(971) +! B(1737) = dA(972)/dV(119) + B(1737) = RCT(972) +! B(1738) = dA(973)/dV(172) + B(1738) = RCT(973) +! B(1739) = dA(974)/dV(287) + B(1739) = RCT(974) +! B(1740) = dA(975)/dV(336) + B(1740) = RCT(975) +! B(1741) = dA(976)/dV(98) + B(1741) = RCT(976) +! B(1742) = dA(977)/dV(65) + B(1742) = RCT(977) +! B(1743) = dA(978)/dV(254) + B(1743) = RCT(978) +! B(1744) = dA(979)/dV(296) + B(1744) = RCT(979) +! B(1745) = dA(980)/dV(47) + B(1745) = RCT(980) +! B(1746) = dA(981)/dV(55) + B(1746) = RCT(981) +! B(1747) = dA(982)/dV(1) + B(1747) = RCT(982) +! B(1748) = dA(983)/dV(3) + B(1748) = RCT(983) +! B(1749) = dA(984)/dV(2) + B(1749) = RCT(984) +! B(1750) = dA(985)/dV(45) + B(1750) = RCT(985) +! B(1751) = dA(986)/dV(58) + B(1751) = RCT(986) +! B(1752) = dA(987)/dV(81) + B(1752) = RCT(987) +! B(1753) = dA(988)/dV(107) + B(1753) = RCT(988) +! B(1754) = dA(989)/dV(83) + B(1754) = RCT(989) +! B(1755) = dA(990)/dV(83) + B(1755) = RCT(990) +! B(1756) = dA(991)/dV(247) + B(1756) = RCT(991) +! B(1757) = dA(992)/dV(66) + B(1757) = RCT(992) +! B(1758) = dA(993)/dV(71) + B(1758) = RCT(993) +! B(1759) = dA(994)/dV(146) + B(1759) = RCT(994) +! B(1760) = dA(995)/dV(338) + B(1760) = RCT(995) +! B(1761) = dA(996)/dV(234) + B(1761) = RCT(996) +! B(1762) = dA(997)/dV(265) + B(1762) = RCT(997) +! B(1763) = dA(998)/dV(260) + B(1763) = RCT(998) +! B(1764) = dA(999)/dV(246) + B(1764) = RCT(999) +! B(1765) = dA(1000)/dV(156) + B(1765) = RCT(1000) +! B(1766) = dA(1001)/dV(68) + B(1766) = RCT(1001) +! B(1767) = dA(1002)/dV(68) + B(1767) = RCT(1002) +! B(1768) = dA(1003)/dV(67) + B(1768) = RCT(1003) +! B(1769) = dA(1004)/dV(67) + B(1769) = RCT(1004) +! B(1770) = dA(1005)/dV(96) + B(1770) = RCT(1005) +! B(1771) = dA(1006)/dV(86) + B(1771) = RCT(1006) +! B(1772) = dA(1007)/dV(94) + B(1772) = RCT(1007) +! B(1773) = dA(1008)/dV(97) + B(1773) = RCT(1008) +! B(1774) = dA(1009)/dV(92) + B(1774) = RCT(1009) +! B(1775) = dA(1010)/dV(214) + B(1775) = RCT(1010) +! B(1776) = dA(1011)/dV(116) + B(1776) = RCT(1011) +! B(1777) = dA(1012)/dV(249) + B(1777) = RCT(1012) +! B(1778) = dA(1013)/dV(211) + B(1778) = RCT(1013) +! B(1779) = dA(1014)/dV(230) + B(1779) = RCT(1014) +! B(1780) = dA(1015)/dV(291) + B(1780) = RCT(1015) +! B(1781) = dA(1016)/dV(190) + B(1781) = RCT(1016) +! B(1782) = dA(1017)/dV(197) + B(1782) = RCT(1017) +! B(1783) = dA(1018)/dV(290) + B(1783) = RCT(1018) +! B(1784) = dA(1019)/dV(161) + B(1784) = RCT(1019) +! B(1785) = dA(1020)/dV(306) + B(1785) = RCT(1020) +! B(1786) = dA(1021)/dV(251) + B(1786) = RCT(1021) +! B(1787) = dA(1022)/dV(220) + B(1787) = RCT(1022) +! B(1788) = dA(1023)/dV(191) + B(1788) = RCT(1023) +! B(1789) = dA(1024)/dV(195) + B(1789) = RCT(1024) +! B(1790) = dA(1025)/dV(213) + B(1790) = RCT(1025) +! B(1791) = dA(1026)/dV(202) + B(1791) = RCT(1026) +! B(1792) = dA(1027)/dV(233) + B(1792) = RCT(1027) +! B(1793) = dA(1028)/dV(231) + B(1793) = RCT(1028) +! B(1794) = dA(1029)/dV(150) + B(1794) = RCT(1029) +! B(1795) = dA(1030)/dV(151) + B(1795) = RCT(1030) +! B(1796) = dA(1031)/dV(271) + B(1796) = RCT(1031) +! B(1797) = dA(1032)/dV(175) + B(1797) = RCT(1032) +! B(1798) = dA(1033)/dV(177) + B(1798) = RCT(1033) +! B(1799) = dA(1034)/dV(270) + B(1799) = RCT(1034) +! B(1800) = dA(1035)/dV(225) + B(1800) = RCT(1035) +! B(1801) = dA(1036)/dV(188) + B(1801) = RCT(1036) +! B(1802) = dA(1037)/dV(188) + B(1802) = RCT(1037) +! B(1803) = dA(1038)/dV(305) + B(1803) = RCT(1038) +! B(1804) = dA(1039)/dV(303) + B(1804) = RCT(1039) +! B(1805) = dA(1040)/dV(259) + B(1805) = RCT(1040) +! B(1806) = dA(1041)/dV(259) + B(1806) = RCT(1041) +! B(1807) = dA(1042)/dV(178) + B(1807) = RCT(1042) +! B(1808) = dA(1043)/dV(198) + B(1808) = RCT(1043) +! B(1809) = dA(1044)/dV(149) + B(1809) = RCT(1044) +! B(1810) = dA(1045)/dV(307) + B(1810) = RCT(1045) +! B(1811) = dA(1046)/dV(307) + B(1811) = RCT(1046) +! B(1812) = dA(1047)/dV(269) + B(1812) = RCT(1047) +! B(1813) = dA(1048)/dV(269) + B(1813) = RCT(1048) +! B(1814) = dA(1049)/dV(138) + B(1814) = RCT(1049) +! B(1815) = dA(1050)/dV(207) + B(1815) = RCT(1050) +! B(1816) = dA(1051)/dV(77) + B(1816) = RCT(1051) +! B(1817) = dA(1052)/dV(118) + B(1817) = RCT(1052) +! B(1818) = dA(1053)/dV(272) + B(1818) = RCT(1053) +! B(1819) = dA(1054)/dV(127) + B(1819) = RCT(1054) +! B(1820) = dA(1055)/dV(111) + B(1820) = RCT(1055) +! B(1821) = dA(1056)/dV(227) + B(1821) = RCT(1056) +! B(1822) = dA(1057)/dV(76) + B(1822) = RCT(1057) +! B(1823) = dA(1058)/dV(69) + B(1823) = RCT(1058) +! B(1824) = dA(1059)/dV(163) + B(1824) = RCT(1059) +! B(1825) = dA(1060)/dV(112) + B(1825) = RCT(1060) +! B(1826) = dA(1061)/dV(164) + B(1826) = RCT(1061) +! B(1827) = dA(1062)/dV(171) + B(1827) = RCT(1062) +! B(1828) = dA(1063)/dV(134) + B(1828) = RCT(1063) +! B(1829) = dA(1064)/dV(234) + B(1829) = RCT(1064) +! B(1830) = dA(1065)/dV(256) + B(1830) = RCT(1065) ! Construct the Jacobian terms from B's IF (DO_JVS(1)) & ! JVS(1) = Jac_FULL(1,1) - JVS(1) = -B(1734) + JVS(1) = -B(1747) IF (DO_JVS(2)) & ! JVS(2) = Jac_FULL(2,2) - JVS(2) = -B(1736) + JVS(2) = -B(1749) IF (DO_JVS(3)) & ! JVS(3) = Jac_FULL(3,3) - JVS(3) = -B(1735) + JVS(3) = -B(1748) IF (DO_JVS(4)) & ! JVS(4) = Jac_FULL(4,4) JVS(4) = 0 IF (DO_JVS(5)) & -! JVS(5) = Jac_FULL(4,42) +! JVS(5) = Jac_FULL(4,45) JVS(5) = 2*B(1582) IF (DO_JVS(6)) & -! JVS(6) = Jac_FULL(4,44) +! JVS(6) = Jac_FULL(4,47) JVS(6) = 2*B(1576) IF (DO_JVS(7)) & -! JVS(7) = Jac_FULL(4,55) +! JVS(7) = Jac_FULL(4,58) JVS(7) = 2*B(1579) IF (DO_JVS(8)) & -! JVS(8) = Jac_FULL(4,73) +! JVS(8) = Jac_FULL(4,75) JVS(8) = B(1571) IF (DO_JVS(9)) & ! JVS(9) = Jac_FULL(5,5) JVS(9) = 0 IF (DO_JVS(10)) & -! JVS(10) = Jac_FULL(5,269) +! JVS(10) = Jac_FULL(5,272) JVS(10) = B(1640) IF (DO_JVS(11)) & ! JVS(11) = Jac_FULL(6,6) JVS(11) = 0 IF (DO_JVS(12)) & -! JVS(12) = Jac_FULL(6,41) +! JVS(12) = Jac_FULL(6,44) JVS(12) = B(1489) IF (DO_JVS(13)) & -! JVS(13) = Jac_FULL(6,345) +! JVS(13) = Jac_FULL(6,343) JVS(13) = B(1490) IF (DO_JVS(14)) & ! JVS(14) = Jac_FULL(7,7) JVS(14) = 0 IF (DO_JVS(15)) & -! JVS(15) = Jac_FULL(7,66) - JVS(15) = B(760)+B(1810) +! JVS(15) = Jac_FULL(7,69) + JVS(15) = B(760)+B(1823) IF (DO_JVS(16)) & -! JVS(16) = Jac_FULL(7,68) +! JVS(16) = Jac_FULL(7,71) JVS(16) = B(459) IF (DO_JVS(17)) & -! JVS(17) = Jac_FULL(7,71) - JVS(17) = B(1803) +! JVS(17) = Jac_FULL(7,76) + JVS(17) = B(1822) IF (DO_JVS(18)) & -! JVS(18) = Jac_FULL(7,74) - JVS(18) = B(1809) +! JVS(18) = Jac_FULL(7,77) + JVS(18) = B(1816) IF (DO_JVS(19)) & -! JVS(19) = Jac_FULL(7,90) - JVS(19) = B(1441) +! JVS(19) = Jac_FULL(7,95) + JVS(19) = 0.22*B(342)+B(1702) IF (DO_JVS(20)) & -! JVS(20) = Jac_FULL(7,92) - JVS(20) = 0.22*B(342)+B(1689) +! JVS(20) = Jac_FULL(7,105) + JVS(20) = B(1441) IF (DO_JVS(21)) & -! JVS(21) = Jac_FULL(7,115) - JVS(21) = B(1320)+B(1763) +! JVS(21) = Jac_FULL(7,116) + JVS(21) = B(1320)+B(1776) IF (DO_JVS(22)) & -! JVS(22) = Jac_FULL(7,130) - JVS(22) = B(849)+B(1815) +! JVS(22) = Jac_FULL(7,134) + JVS(22) = B(849)+B(1828) IF (DO_JVS(23)) & -! JVS(23) = Jac_FULL(7,133) - JVS(23) = B(1085)+B(1087) +! JVS(23) = Jac_FULL(7,136) + JVS(23) = B(1089)+B(1091) IF (DO_JVS(24)) & -! JVS(24) = Jac_FULL(7,135) - JVS(24) = B(1089)+B(1091) +! JVS(24) = Jac_FULL(7,137) + JVS(24) = B(1085)+B(1087) IF (DO_JVS(25)) & -! JVS(25) = Jac_FULL(7,139) - JVS(25) = 0.3*B(1658) +! JVS(25) = Jac_FULL(7,143) + JVS(25) = 0.3*B(1671) IF (DO_JVS(26)) & -! JVS(26) = Jac_FULL(7,159) - JVS(26) = 0.41*B(1280)+1.238*B(1771) +! JVS(26) = Jac_FULL(7,161) + JVS(26) = 0.41*B(1280)+1.238*B(1784) IF (DO_JVS(27)) & -! JVS(27) = Jac_FULL(7,169) - JVS(27) = B(1814) +! JVS(27) = Jac_FULL(7,171) + JVS(27) = B(1827) IF (DO_JVS(28)) & -! JVS(28) = Jac_FULL(7,173) +! JVS(28) = Jac_FULL(7,176) JVS(28) = B(1336) IF (DO_JVS(29)) & -! JVS(29) = Jac_FULL(7,182) +! JVS(29) = Jac_FULL(7,185) JVS(29) = 0.429*B(1214)+0.429*B(1216) IF (DO_JVS(30)) & -! JVS(30) = Jac_FULL(7,194) +! JVS(30) = Jac_FULL(7,197) JVS(30) = 0.097*B(1258) IF (DO_JVS(31)) & ! JVS(31) = Jac_FULL(7,198) JVS(31) = B(1312) IF (DO_JVS(32)) & -! JVS(32) = Jac_FULL(7,213) +! JVS(32) = Jac_FULL(7,216) JVS(32) = 0.44*B(302) IF (DO_JVS(33)) & -! JVS(33) = Jac_FULL(7,216) +! JVS(33) = Jac_FULL(7,220) JVS(33) = 0.75*B(1244) IF (DO_JVS(34)) & -! JVS(34) = Jac_FULL(7,235) +! JVS(34) = Jac_FULL(7,237) JVS(34) = 0.35*B(1432)+B(1434)+B(1463) IF (DO_JVS(35)) & -! JVS(35) = Jac_FULL(7,238) +! JVS(35) = Jac_FULL(7,242) JVS(35) = 0.355*B(1009) IF (DO_JVS(36)) & -! JVS(36) = Jac_FULL(7,240) +! JVS(36) = Jac_FULL(7,243) JVS(36) = 2*B(1405)+0.44*B(1407) IF (DO_JVS(37)) & -! JVS(37) = Jac_FULL(7,241) +! JVS(37) = Jac_FULL(7,244) JVS(37) = B(705) IF (DO_JVS(38)) & -! JVS(38) = Jac_FULL(7,246) +! JVS(38) = Jac_FULL(7,250) JVS(38) = B(243)+0.44*B(245) IF (DO_JVS(39)) & -! JVS(39) = Jac_FULL(7,249) +! JVS(39) = Jac_FULL(7,252) JVS(39) = 0.645*B(361) IF (DO_JVS(40)) & -! JVS(40) = Jac_FULL(7,250) +! JVS(40) = Jac_FULL(7,253) JVS(40) = 0.9*B(363) IF (DO_JVS(41)) & -! JVS(41) = Jac_FULL(7,257) +! JVS(41) = Jac_FULL(7,261) JVS(41) = B(751)+B(756)+0.75*B(893)+2*B(895) IF (DO_JVS(42)) & -! JVS(42) = Jac_FULL(7,259) +! JVS(42) = Jac_FULL(7,262) JVS(42) = 0.5*B(1278)+B(1287) IF (DO_JVS(43)) & -! JVS(43) = Jac_FULL(7,260) +! JVS(43) = Jac_FULL(7,264) JVS(43) = 0.9*B(369) IF (DO_JVS(44)) & -! JVS(44) = Jac_FULL(7,261) +! JVS(44) = Jac_FULL(7,265) JVS(44) = B(687) IF (DO_JVS(45)) & -! JVS(45) = Jac_FULL(7,263) +! JVS(45) = Jac_FULL(7,266) JVS(45) = B(1395) IF (DO_JVS(46)) & -! JVS(46) = Jac_FULL(7,265) +! JVS(46) = Jac_FULL(7,268) JVS(46) = B(87)+B(611) IF (DO_JVS(47)) & -! JVS(47) = Jac_FULL(7,269) - JVS(47) = B(1805) +! JVS(47) = Jac_FULL(7,272) + JVS(47) = B(1818) IF (DO_JVS(48)) & -! JVS(48) = Jac_FULL(7,274) - JVS(48) = 0.44*B(838)+B(840)+B(845)+0.75*B(897)+B(899) +! JVS(48) = Jac_FULL(7,276) + JVS(48) = 0.9*B(883) IF (DO_JVS(49)) & -! JVS(49) = Jac_FULL(7,275) - JVS(49) = 0.9*B(883) +! JVS(49) = Jac_FULL(7,277) + JVS(49) = 0.44*B(838)+B(840)+B(845)+0.75*B(897)+B(899) IF (DO_JVS(50)) & -! JVS(50) = Jac_FULL(7,276) +! JVS(50) = Jac_FULL(7,279) JVS(50) = 0.407*B(947) IF (DO_JVS(51)) & -! JVS(51) = Jac_FULL(7,277) - JVS(51) = 0.9*B(879) +! JVS(51) = Jac_FULL(7,280) + JVS(51) = B(913) IF (DO_JVS(52)) & -! JVS(52) = Jac_FULL(7,280) - JVS(52) = B(913) +! JVS(52) = Jac_FULL(7,281) + JVS(52) = 0.9*B(879) IF (DO_JVS(53)) & -! JVS(53) = Jac_FULL(7,281) +! JVS(53) = Jac_FULL(7,284) JVS(53) = 0.9*B(887) IF (DO_JVS(54)) & -! JVS(54) = Jac_FULL(7,283) +! JVS(54) = Jac_FULL(7,286) JVS(54) = B(199)+B(627) IF (DO_JVS(55)) & -! JVS(55) = Jac_FULL(7,287) +! JVS(55) = Jac_FULL(7,290) JVS(55) = 0.23*B(1240) IF (DO_JVS(56)) & -! JVS(56) = Jac_FULL(7,290) +! JVS(56) = Jac_FULL(7,293) JVS(56) = 0.1*B(287) IF (DO_JVS(57)) & -! JVS(57) = Jac_FULL(7,291) +! JVS(57) = Jac_FULL(7,294) JVS(57) = 0.9*B(891) IF (DO_JVS(58)) & -! JVS(58) = Jac_FULL(7,296) +! JVS(58) = Jac_FULL(7,300) JVS(58) = 0.9*B(365) IF (DO_JVS(59)) & -! JVS(59) = Jac_FULL(7,300) +! JVS(59) = Jac_FULL(7,304) JVS(59) = 0.9*B(351) IF (DO_JVS(60)) & -! JVS(60) = Jac_FULL(7,306) - JVS(60) = 0.361*B(289) +! JVS(60) = Jac_FULL(7,308) + JVS(60) = B(1161) IF (DO_JVS(61)) & -! JVS(61) = Jac_FULL(7,307) - JVS(61) = 0.5*B(322) +! JVS(61) = Jac_FULL(7,309) + JVS(61) = 0.361*B(289) IF (DO_JVS(62)) & -! JVS(62) = Jac_FULL(7,308) - JVS(62) = 0.5*B(1291)+B(1293)+B(1297)+0.7*B(1299) +! JVS(62) = Jac_FULL(7,310) + JVS(62) = B(1163) IF (DO_JVS(63)) & -! JVS(63) = Jac_FULL(7,310) - JVS(63) = B(1161) +! JVS(63) = Jac_FULL(7,311) + JVS(63) = 0.5*B(322) IF (DO_JVS(64)) & -! JVS(64) = Jac_FULL(7,311) - JVS(64) = B(1163) +! JVS(64) = Jac_FULL(7,312) + JVS(64) = 0.5*B(1291)+B(1293)+B(1297)+0.7*B(1299) IF (DO_JVS(65)) & -! JVS(65) = Jac_FULL(7,312) - JVS(65) = B(691) +! JVS(65) = Jac_FULL(7,316) + JVS(65) = 0.3*B(261)+0.9*B(353) IF (DO_JVS(66)) & -! JVS(66) = Jac_FULL(7,313) - JVS(66) = 0.3*B(261)+0.9*B(353) +! JVS(66) = Jac_FULL(7,317) + JVS(66) = B(691) IF (DO_JVS(67)) & -! JVS(67) = Jac_FULL(7,315) +! JVS(67) = Jac_FULL(7,319) JVS(67) = 0.9*B(367) IF (DO_JVS(68)) & -! JVS(68) = Jac_FULL(7,318) +! JVS(68) = Jac_FULL(7,322) JVS(68) = 0.645*B(359) IF (DO_JVS(69)) & -! JVS(69) = Jac_FULL(7,319) +! JVS(69) = Jac_FULL(7,323) JVS(69) = 0.9*B(349) IF (DO_JVS(70)) & -! JVS(70) = Jac_FULL(7,320) +! JVS(70) = Jac_FULL(7,324) JVS(70) = 0.9*B(355) IF (DO_JVS(71)) & -! JVS(71) = Jac_FULL(7,321) - JVS(71) = 0.9*B(371) +! JVS(71) = Jac_FULL(7,325) + JVS(71) = B(208)+0.43*B(283)+2*B(373)+B(375) IF (DO_JVS(72)) & -! JVS(72) = Jac_FULL(7,322) - JVS(72) = B(208)+0.43*B(283)+2*B(373)+B(375) +! JVS(72) = Jac_FULL(7,326) + JVS(72) = 0.9*B(371) IF (DO_JVS(73)) & -! JVS(73) = Jac_FULL(7,323) +! JVS(73) = Jac_FULL(7,327) JVS(73) = 0.9*B(357) IF (DO_JVS(74)) & -! JVS(74) = Jac_FULL(7,324) +! JVS(74) = Jac_FULL(7,328) JVS(74) = B(104)+2*B(346)+0.9*B(347)+0.9*B(350)+0.9*B(352)+0.9*B(354)+0.9*B(356)+0.9*B(358)+0.645*B(360)+0.645*B(362)& &+0.9*B(364)+0.9*B(366)+0.9*B(368)+0.9*B(370)+0.9*B(372)+2*B(374)+0.9*B(880)+0.9*B(884)+0.9*B(888)+0.9*B(892)& &+2*B(896)+B(900)+B(914)+B(1162)+B(1164)+0.5*B(1324)+B(1396) IF (DO_JVS(75)) & -! JVS(75) = Jac_FULL(7,328) +! JVS(75) = Jac_FULL(7,334) JVS(75) = 0.3*B(262)+0.9*B(348)+B(376)+0.75*B(894)+0.75*B(898)+0.7*B(1300)+B(1464) IF (DO_JVS(76)) & -! JVS(76) = Jac_FULL(7,329) +! JVS(76) = Jac_FULL(7,335) JVS(76) = B(45)+B(692)+B(706) IF (DO_JVS(77)) & -! JVS(77) = Jac_FULL(7,337) - JVS(77) = 0.44*B(246)+0.43*B(284)+0.44*B(303)+0.44*B(839)+B(1088)+B(1092)+0.429*B(1217)+0.5*B(1279)+0.5*B(1292)+0.5& - &*B(1325)+0.44*B(1408)+0.35*B(1433) +! JVS(77) = Jac_FULL(7,338) + JVS(77) = B(105)+B(209)+B(244)+B(752)+B(841)+B(1086)+B(1090)+0.429*B(1215)+B(1288)+B(1294)+2*B(1406)+B(1435) IF (DO_JVS(78)) & -! JVS(78) = Jac_FULL(7,340) - JVS(78) = B(612)+B(628) +! JVS(78) = Jac_FULL(7,341) + JVS(78) = 0.44*B(246)+0.43*B(284)+0.44*B(303)+0.44*B(839)+B(1088)+B(1092)+0.429*B(1217)+0.5*B(1279)+0.5*B(1292)+0.5& + &*B(1325)+0.44*B(1408)+0.35*B(1433) IF (DO_JVS(79)) & -! JVS(79) = Jac_FULL(7,341) - JVS(79) = 0.1*B(288)+0.407*B(948) -IF (DO_JVS(80)) & -! JVS(80) = Jac_FULL(7,345) - JVS(80) = B(46)+B(88)+B(200)+0.361*B(290)+0.5*B(323)+0.22*B(343)+B(460)+B(688)+B(761)+B(850)+0.355*B(1010)+0.23& +! JVS(79) = Jac_FULL(7,343) + JVS(79) = B(46)+B(88)+B(200)+0.361*B(290)+0.5*B(323)+0.22*B(343)+B(460)+B(688)+B(761)+B(850)+0.355*B(1010)+0.23& &*B(1241)+0.75*B(1245)+0.097*B(1259)+0.41*B(1281)+B(1313)+B(1321)+B(1337)+B(1442) +IF (DO_JVS(80)) & +! JVS(80) = Jac_FULL(7,348) + JVS(80) = B(757)+B(846)+B(1298) IF (DO_JVS(81)) & -! JVS(81) = Jac_FULL(7,346) - JVS(81) = B(105)+B(209)+B(244)+B(752)+B(841)+B(1086)+B(1090)+0.429*B(1215)+B(1288)+B(1294)+2*B(1406)+B(1435) +! JVS(81) = Jac_FULL(7,352) + JVS(81) = B(612)+B(628) IF (DO_JVS(82)) & -! JVS(82) = Jac_FULL(7,351) - JVS(82) = B(757)+B(846)+B(1298) +! JVS(82) = Jac_FULL(7,356) + JVS(82) = 0.1*B(288)+0.407*B(948) IF (DO_JVS(83)) & ! JVS(83) = Jac_FULL(8,8) JVS(83) = 0 IF (DO_JVS(84)) & -! JVS(84) = Jac_FULL(8,45) +! JVS(84) = Jac_FULL(8,48) JVS(84) = B(936) IF (DO_JVS(85)) & -! JVS(85) = Jac_FULL(8,103) +! JVS(85) = Jac_FULL(8,106) JVS(85) = B(935) IF (DO_JVS(86)) & ! JVS(86) = Jac_FULL(9,9) JVS(86) = 0 IF (DO_JVS(87)) & -! JVS(87) = Jac_FULL(9,42) +! JVS(87) = Jac_FULL(9,45) JVS(87) = 2*B(1583) IF (DO_JVS(88)) & -! JVS(88) = Jac_FULL(9,44) +! JVS(88) = Jac_FULL(9,47) JVS(88) = 2*B(1577) IF (DO_JVS(89)) & -! JVS(89) = Jac_FULL(9,55) +! JVS(89) = Jac_FULL(9,58) JVS(89) = 2*B(1580) IF (DO_JVS(90)) & -! JVS(90) = Jac_FULL(9,73) +! JVS(90) = Jac_FULL(9,75) JVS(90) = B(1572) IF (DO_JVS(91)) & -! JVS(91) = Jac_FULL(9,252) +! JVS(91) = Jac_FULL(9,254) JVS(91) = B(1585) IF (DO_JVS(92)) & -! JVS(92) = Jac_FULL(9,330) +! JVS(92) = Jac_FULL(9,287) JVS(92) = B(1574) IF (DO_JVS(93)) & -! JVS(93) = Jac_FULL(9,332) +! JVS(93) = Jac_FULL(9,296) JVS(93) = B(1587) IF (DO_JVS(94)) & ! JVS(94) = Jac_FULL(10,10) JVS(94) = 0 IF (DO_JVS(95)) & -! JVS(95) = Jac_FULL(10,42) +! JVS(95) = Jac_FULL(10,45) JVS(95) = 2*B(1584) IF (DO_JVS(96)) & -! JVS(96) = Jac_FULL(10,44) +! JVS(96) = Jac_FULL(10,47) JVS(96) = 2*B(1578) IF (DO_JVS(97)) & -! JVS(97) = Jac_FULL(10,55) +! JVS(97) = Jac_FULL(10,58) JVS(97) = 2*B(1581) IF (DO_JVS(98)) & -! JVS(98) = Jac_FULL(10,73) +! JVS(98) = Jac_FULL(10,75) JVS(98) = B(1573) IF (DO_JVS(99)) & -! JVS(99) = Jac_FULL(10,252) +! JVS(99) = Jac_FULL(10,254) JVS(99) = B(1586) IF (DO_JVS(100)) & -! JVS(100) = Jac_FULL(10,330) +! JVS(100) = Jac_FULL(10,287) JVS(100) = B(1575) IF (DO_JVS(101)) & -! JVS(101) = Jac_FULL(10,332) +! JVS(101) = Jac_FULL(10,296) JVS(101) = B(1588) IF (DO_JVS(102)) & ! JVS(102) = Jac_FULL(11,11) @@ -3987,7 +4013,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(103) = Jac_FULL(11,13) JVS(103) = B(1475) IF (DO_JVS(104)) & -! JVS(104) = Jac_FULL(11,337) +! JVS(104) = Jac_FULL(11,341) JVS(104) = B(1476) IF (DO_JVS(105)) & ! JVS(105) = Jac_FULL(12,12) @@ -3996,40 +4022,40 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(106) = Jac_FULL(12,13) JVS(106) = B(1477) IF (DO_JVS(107)) & -! JVS(107) = Jac_FULL(12,346) +! JVS(107) = Jac_FULL(12,338) JVS(107) = B(1478) IF (DO_JVS(108)) & ! JVS(108) = Jac_FULL(13,13) JVS(108) = -B(1475)-B(1477) IF (DO_JVS(109)) & -! JVS(109) = Jac_FULL(13,143) +! JVS(109) = Jac_FULL(13,145) JVS(109) = B(1381) IF (DO_JVS(110)) & -! JVS(110) = Jac_FULL(13,337) - JVS(110) = -B(1476) +! JVS(110) = Jac_FULL(13,338) + JVS(110) = -B(1478) IF (DO_JVS(111)) & -! JVS(111) = Jac_FULL(13,345) - JVS(111) = B(1382) +! JVS(111) = Jac_FULL(13,341) + JVS(111) = -B(1476) IF (DO_JVS(112)) & -! JVS(112) = Jac_FULL(13,346) - JVS(112) = -B(1478) +! JVS(112) = Jac_FULL(13,343) + JVS(112) = B(1382) IF (DO_JVS(113)) & ! JVS(113) = Jac_FULL(14,14) JVS(113) = 0 IF (DO_JVS(114)) & -! JVS(114) = Jac_FULL(14,276) +! JVS(114) = Jac_FULL(14,279) JVS(114) = B(949)+B(951)+B(953)+B(955) IF (DO_JVS(115)) & -! JVS(115) = Jac_FULL(14,345) +! JVS(115) = Jac_FULL(14,343) JVS(115) = B(950)+B(952)+B(954)+B(956) IF (DO_JVS(116)) & ! JVS(116) = Jac_FULL(15,15) JVS(116) = 0 IF (DO_JVS(117)) & -! JVS(117) = Jac_FULL(15,276) +! JVS(117) = Jac_FULL(15,279) JVS(117) = B(1147) IF (DO_JVS(118)) & -! JVS(118) = Jac_FULL(15,351) +! JVS(118) = Jac_FULL(15,348) JVS(118) = B(1148) IF (DO_JVS(119)) & ! JVS(119) = Jac_FULL(16,16) @@ -4038,7 +4064,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(120) = Jac_FULL(16,18) JVS(120) = B(1332) IF (DO_JVS(121)) & -! JVS(121) = Jac_FULL(16,337) +! JVS(121) = Jac_FULL(16,341) JVS(121) = B(1333) IF (DO_JVS(122)) & ! JVS(122) = Jac_FULL(17,17) @@ -4047,7 +4073,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(123) = Jac_FULL(17,18) JVS(123) = B(1334) IF (DO_JVS(124)) & -! JVS(124) = Jac_FULL(17,346) +! JVS(124) = Jac_FULL(17,338) JVS(124) = B(1335) IF (DO_JVS(125)) & ! JVS(125) = Jac_FULL(18,18) @@ -4056,19 +4082,19 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(126) = Jac_FULL(18,19) JVS(126) = B(1330) IF (DO_JVS(127)) & -! JVS(127) = Jac_FULL(18,337) - JVS(127) = -B(1333) +! JVS(127) = Jac_FULL(18,338) + JVS(127) = -B(1335) IF (DO_JVS(128)) & -! JVS(128) = Jac_FULL(18,345) - JVS(128) = B(1331) +! JVS(128) = Jac_FULL(18,341) + JVS(128) = -B(1333) IF (DO_JVS(129)) & -! JVS(129) = Jac_FULL(18,346) - JVS(129) = -B(1335) +! JVS(129) = Jac_FULL(18,343) + JVS(129) = B(1331) IF (DO_JVS(130)) & ! JVS(130) = Jac_FULL(19,19) JVS(130) = -B(1330) IF (DO_JVS(131)) & -! JVS(131) = Jac_FULL(19,345) +! JVS(131) = Jac_FULL(19,343) JVS(131) = -B(1331) IF (DO_JVS(132)) & ! JVS(132) = Jac_FULL(20,20) @@ -4077,7 +4103,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(133) = Jac_FULL(20,22) JVS(133) = B(1479) IF (DO_JVS(134)) & -! JVS(134) = Jac_FULL(20,337) +! JVS(134) = Jac_FULL(20,341) JVS(134) = B(1480) IF (DO_JVS(135)) & ! JVS(135) = Jac_FULL(21,21) @@ -4086,23 +4112,23 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(136) = Jac_FULL(21,22) JVS(136) = B(1481) IF (DO_JVS(137)) & -! JVS(137) = Jac_FULL(21,346) +! JVS(137) = Jac_FULL(21,338) JVS(137) = B(1482) IF (DO_JVS(138)) & ! JVS(138) = Jac_FULL(22,22) JVS(138) = -B(1479)-B(1481) IF (DO_JVS(139)) & -! JVS(139) = Jac_FULL(22,82) +! JVS(139) = Jac_FULL(22,85) JVS(139) = B(1383) IF (DO_JVS(140)) & -! JVS(140) = Jac_FULL(22,337) - JVS(140) = -B(1480) +! JVS(140) = Jac_FULL(22,338) + JVS(140) = -B(1482) IF (DO_JVS(141)) & -! JVS(141) = Jac_FULL(22,345) - JVS(141) = B(1384) +! JVS(141) = Jac_FULL(22,341) + JVS(141) = -B(1480) IF (DO_JVS(142)) & -! JVS(142) = Jac_FULL(22,346) - JVS(142) = -B(1482) +! JVS(142) = Jac_FULL(22,343) + JVS(142) = B(1384) IF (DO_JVS(143)) & ! JVS(143) = Jac_FULL(23,23) JVS(143) = 0 @@ -4113,19 +4139,19 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(145) = Jac_FULL(24,24) JVS(145) = -B(340)-B(1620) IF (DO_JVS(146)) & -! JVS(146) = Jac_FULL(24,187) +! JVS(146) = Jac_FULL(24,191) JVS(146) = 0.005*B(1015)+0.005*B(1017)+0.005*B(1023) IF (DO_JVS(147)) & -! JVS(147) = Jac_FULL(24,192) +! JVS(147) = Jac_FULL(24,195) JVS(147) = 0.005*B(1019)+0.005*B(1021)+0.005*B(1025) IF (DO_JVS(148)) & -! JVS(148) = Jac_FULL(24,199) +! JVS(148) = Jac_FULL(24,202) JVS(148) = 0.005*B(1029) IF (DO_JVS(149)) & -! JVS(149) = Jac_FULL(24,209) +! JVS(149) = Jac_FULL(24,213) JVS(149) = 0.005*B(1027) IF (DO_JVS(150)) & -! JVS(150) = Jac_FULL(24,345) +! JVS(150) = Jac_FULL(24,343) JVS(150) = -B(341)+0.005*B(1016)+0.005*B(1018)+0.005*B(1020)+0.005*B(1022)+0.005*B(1024)+0.005*B(1026)+0.005*B(1028)& &+0.005*B(1030) IF (DO_JVS(151)) & @@ -4135,7 +4161,7 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(152) = Jac_FULL(25,27) JVS(152) = B(1483) IF (DO_JVS(153)) & -! JVS(153) = Jac_FULL(25,337) +! JVS(153) = Jac_FULL(25,341) JVS(153) = B(1484) IF (DO_JVS(154)) & ! JVS(154) = Jac_FULL(26,26) @@ -4144,16745 +4170,16772 @@ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! JVS(155) = Jac_FULL(26,27) JVS(155) = B(1485) IF (DO_JVS(156)) & -! JVS(156) = Jac_FULL(26,346) +! JVS(156) = Jac_FULL(26,338) JVS(156) = B(1486) IF (DO_JVS(157)) & ! JVS(157) = Jac_FULL(27,27) JVS(157) = -B(1483)-B(1485) IF (DO_JVS(158)) & -! JVS(158) = Jac_FULL(27,101) +! JVS(158) = Jac_FULL(27,103) JVS(158) = B(1385) IF (DO_JVS(159)) & -! JVS(159) = Jac_FULL(27,337) - JVS(159) = -B(1484) +! JVS(159) = Jac_FULL(27,338) + JVS(159) = -B(1486) IF (DO_JVS(160)) & -! JVS(160) = Jac_FULL(27,345) - JVS(160) = B(1386) +! JVS(160) = Jac_FULL(27,341) + JVS(160) = -B(1484) IF (DO_JVS(161)) & -! JVS(161) = Jac_FULL(27,346) - JVS(161) = -B(1486) +! JVS(161) = Jac_FULL(27,343) + JVS(161) = B(1386) IF (DO_JVS(162)) & ! JVS(162) = Jac_FULL(28,28) JVS(162) = 0 IF (DO_JVS(163)) & -! JVS(163) = Jac_FULL(28,94) +! JVS(163) = Jac_FULL(28,87) JVS(163) = 0.25*B(383) IF (DO_JVS(164)) & -! JVS(164) = Jac_FULL(28,345) +! JVS(164) = Jac_FULL(28,343) JVS(164) = 0.25*B(384) IF (DO_JVS(165)) & ! JVS(165) = Jac_FULL(29,29) JVS(165) = 0 IF (DO_JVS(166)) & -! JVS(166) = Jac_FULL(29,166) +! JVS(166) = Jac_FULL(29,169) JVS(166) = B(8) IF (DO_JVS(167)) & -! JVS(167) = Jac_FULL(29,341) +! JVS(167) = Jac_FULL(29,355) JVS(167) = B(9) IF (DO_JVS(168)) & -! JVS(168) = Jac_FULL(29,348) +! JVS(168) = Jac_FULL(29,356) JVS(168) = B(10) IF (DO_JVS(169)) & ! JVS(169) = Jac_FULL(30,30) JVS(169) = 0 IF (DO_JVS(170)) & -! JVS(170) = Jac_FULL(30,115) +! JVS(170) = Jac_FULL(30,116) JVS(170) = 1.5*B(1626) IF (DO_JVS(171)) & -! JVS(171) = Jac_FULL(30,270) +! JVS(171) = Jac_FULL(30,274) JVS(171) = B(1615) IF (DO_JVS(172)) & -! JVS(172) = Jac_FULL(30,294) +! JVS(172) = Jac_FULL(30,298) JVS(172) = 1.5*B(1616) IF (DO_JVS(173)) & ! JVS(173) = Jac_FULL(31,31) JVS(173) = 0 IF (DO_JVS(174)) & -! JVS(174) = Jac_FULL(31,107) +! JVS(174) = Jac_FULL(31,109) JVS(174) = 0.8*B(1627) IF (DO_JVS(175)) & -! JVS(175) = Jac_FULL(31,128) +! JVS(175) = Jac_FULL(31,131) JVS(175) = B(1619) IF (DO_JVS(176)) & -! JVS(176) = Jac_FULL(31,151) +! JVS(176) = Jac_FULL(31,157) JVS(176) = B(1617) IF (DO_JVS(177)) & -! JVS(177) = Jac_FULL(31,152) +! JVS(177) = Jac_FULL(31,159) JVS(177) = B(1618) IF (DO_JVS(178)) & -! JVS(178) = Jac_FULL(31,215) +! JVS(178) = Jac_FULL(31,218) JVS(178) = B(1632) IF (DO_JVS(179)) & ! JVS(179) = Jac_FULL(32,32) JVS(179) = 0 IF (DO_JVS(180)) & -! JVS(180) = Jac_FULL(32,241) +! JVS(180) = Jac_FULL(32,244) JVS(180) = B(711) IF (DO_JVS(181)) & -! JVS(181) = Jac_FULL(32,312) +! JVS(181) = Jac_FULL(32,317) JVS(181) = B(703) IF (DO_JVS(182)) & -! JVS(182) = Jac_FULL(32,345) +! JVS(182) = Jac_FULL(32,343) JVS(182) = B(387) IF (DO_JVS(183)) & -! JVS(183) = Jac_FULL(32,348) +! JVS(183) = Jac_FULL(32,355) JVS(183) = B(388)+B(704)+B(712) IF (DO_JVS(184)) & ! JVS(184) = Jac_FULL(33,33) JVS(184) = 0 IF (DO_JVS(185)) & -! JVS(185) = Jac_FULL(33,89) +! JVS(185) = Jac_FULL(33,93) JVS(185) = 2*B(23) IF (DO_JVS(186)) & -! JVS(186) = Jac_FULL(33,345) - JVS(186) = 2*B(24) +! JVS(186) = Jac_FULL(33,267) + JVS(186) = B(15) IF (DO_JVS(187)) & -! JVS(187) = Jac_FULL(33,348) - JVS(187) = 2*B(25) +! JVS(187) = Jac_FULL(33,343) + JVS(187) = 2*B(24) IF (DO_JVS(188)) & -! JVS(188) = Jac_FULL(34,34) - JVS(188) = 0 +! JVS(188) = Jac_FULL(33,355) + JVS(188) = B(16)+B(17)+B(19)+2*B(25) IF (DO_JVS(189)) & -! JVS(189) = Jac_FULL(34,45) - JVS(189) = B(936) +! JVS(189) = Jac_FULL(33,356) + JVS(189) = B(18) IF (DO_JVS(190)) & -! JVS(190) = Jac_FULL(34,56) - JVS(190) = B(755) +! JVS(190) = Jac_FULL(34,34) + JVS(190) = 0 IF (DO_JVS(191)) & -! JVS(191) = Jac_FULL(34,57) - JVS(191) = B(844) +! JVS(191) = Jac_FULL(34,93) + JVS(191) = 2*B(1651) IF (DO_JVS(192)) & -! JVS(192) = Jac_FULL(34,63) - JVS(192) = B(1744) +! JVS(192) = Jac_FULL(34,267) + JVS(192) = B(1641) IF (DO_JVS(193)) & -! JVS(193) = Jac_FULL(34,67) - JVS(193) = B(477)+B(479) +! JVS(193) = Jac_FULL(34,329) + JVS(193) = B(1648) IF (DO_JVS(194)) & -! JVS(194) = Jac_FULL(34,70) - JVS(194) = B(1375) +! JVS(194) = Jac_FULL(34,343) + JVS(194) = 2*B(1652) IF (DO_JVS(195)) & -! JVS(195) = Jac_FULL(34,80) - JVS(195) = B(1741) +! JVS(195) = Jac_FULL(34,345) + JVS(195) = B(1646) IF (DO_JVS(196)) & -! JVS(196) = Jac_FULL(34,83) - JVS(196) = B(941)+B(1758) +! JVS(196) = Jac_FULL(34,355) + JVS(196) = B(1642)+B(1643)+B(1645)+B(1647)+B(1649)+2*B(1653) IF (DO_JVS(197)) & -! JVS(197) = Jac_FULL(34,90) - JVS(197) = B(1440)+B(1441) +! JVS(197) = Jac_FULL(34,356) + JVS(197) = B(1644) IF (DO_JVS(198)) & -! JVS(198) = Jac_FULL(34,91) - JVS(198) = B(943)+B(1759) +! JVS(198) = Jac_FULL(35,35) + JVS(198) = 0 IF (DO_JVS(199)) & -! JVS(199) = Jac_FULL(34,93) - JVS(199) = B(939)+B(1757) +! JVS(199) = Jac_FULL(35,329) + JVS(199) = B(20) IF (DO_JVS(200)) & -! JVS(200) = Jac_FULL(34,95) - JVS(200) = B(945)+B(1760) +! JVS(200) = Jac_FULL(35,355) + JVS(200) = B(21) IF (DO_JVS(201)) & -! JVS(201) = Jac_FULL(34,103) - JVS(201) = B(935) +! JVS(201) = Jac_FULL(36,36) + JVS(201) = 0 IF (DO_JVS(202)) & -! JVS(202) = Jac_FULL(34,108) - JVS(202) = B(1651) +! JVS(202) = Jac_FULL(36,93) + JVS(202) = B(1650) IF (DO_JVS(203)) & -! JVS(203) = Jac_FULL(34,110) - JVS(203) = 0.1*B(593) +! JVS(203) = Jac_FULL(37,37) + JVS(203) = 0 IF (DO_JVS(204)) & -! JVS(204) = Jac_FULL(34,113) - JVS(204) = B(240)+B(241) +! JVS(204) = Jac_FULL(37,48) + JVS(204) = B(936) IF (DO_JVS(205)) & -! JVS(205) = Jac_FULL(34,114) - JVS(205) = B(299)+B(306) +! JVS(205) = Jac_FULL(37,59) + JVS(205) = B(755) IF (DO_JVS(206)) & -! JVS(206) = Jac_FULL(34,116) - JVS(206) = B(1356)+B(1687) +! JVS(206) = Jac_FULL(37,60) + JVS(206) = B(844) IF (DO_JVS(207)) & -! JVS(207) = Jac_FULL(34,121) - JVS(207) = B(1399) +! JVS(207) = Jac_FULL(37,66) + JVS(207) = B(1757) IF (DO_JVS(208)) & -! JVS(208) = Jac_FULL(34,122) - JVS(208) = B(1411)+B(1412) +! JVS(208) = Jac_FULL(37,70) + JVS(208) = B(477)+B(479) IF (DO_JVS(209)) & -! JVS(209) = Jac_FULL(34,124) - JVS(209) = 0.3*B(1806) +! JVS(209) = Jac_FULL(37,73) + JVS(209) = B(1375) IF (DO_JVS(210)) & -! JVS(210) = Jac_FULL(34,126) - JVS(210) = B(166)+2*B(167)+B(1659) +! JVS(210) = Jac_FULL(37,83) + JVS(210) = B(1754) IF (DO_JVS(211)) & -! JVS(211) = Jac_FULL(34,127) - JVS(211) = B(152) +! JVS(211) = Jac_FULL(37,86) + JVS(211) = B(941)+B(1771) IF (DO_JVS(212)) & -! JVS(212) = Jac_FULL(34,132) - JVS(212) = B(156) +! JVS(212) = Jac_FULL(37,94) + JVS(212) = B(943)+B(1772) IF (DO_JVS(213)) & -! JVS(213) = Jac_FULL(34,133) - JVS(213) = B(1085) +! JVS(213) = Jac_FULL(37,96) + JVS(213) = B(939)+B(1770) IF (DO_JVS(214)) & -! JVS(214) = Jac_FULL(34,135) - JVS(214) = B(1089) +! JVS(214) = Jac_FULL(37,97) + JVS(214) = B(945)+B(1773) IF (DO_JVS(215)) & -! JVS(215) = Jac_FULL(34,137) - JVS(215) = 0.5*B(743) +! JVS(215) = Jac_FULL(37,105) + JVS(215) = B(1440)+B(1441) IF (DO_JVS(216)) & -! JVS(216) = Jac_FULL(34,138) - JVS(216) = 0.5*B(780) +! JVS(216) = Jac_FULL(37,106) + JVS(216) = B(935) IF (DO_JVS(217)) & -! JVS(217) = Jac_FULL(34,139) - JVS(217) = 0.3*B(1658) +! JVS(217) = Jac_FULL(37,110) + JVS(217) = B(1664) IF (DO_JVS(218)) & -! JVS(218) = Jac_FULL(34,148) - JVS(218) = B(403) +! JVS(218) = Jac_FULL(37,113) + JVS(218) = B(240)+B(241) IF (DO_JVS(219)) & -! JVS(219) = Jac_FULL(34,154) - JVS(219) = B(937) +! JVS(219) = Jac_FULL(37,115) + JVS(219) = B(299)+B(306) IF (DO_JVS(220)) & -! JVS(220) = Jac_FULL(34,162) - JVS(220) = B(798) +! JVS(220) = Jac_FULL(37,117) + JVS(220) = B(1356)+B(1700) IF (DO_JVS(221)) & -! JVS(221) = Jac_FULL(34,165) - JVS(221) = 2*B(138) +! JVS(221) = Jac_FULL(37,119) + JVS(221) = 0.1*B(593) IF (DO_JVS(222)) & -! JVS(222) = Jac_FULL(34,170) - JVS(222) = B(673) +! JVS(222) = Jac_FULL(37,124) + JVS(222) = B(1399) IF (DO_JVS(223)) & -! JVS(223) = Jac_FULL(34,171) - JVS(223) = B(1246) +! JVS(223) = Jac_FULL(37,125) + JVS(223) = B(1411)+B(1412) IF (DO_JVS(224)) & -! JVS(224) = Jac_FULL(34,172) - JVS(224) = B(1252) +! JVS(224) = Jac_FULL(37,127) + JVS(224) = 0.3*B(1819) IF (DO_JVS(225)) & -! JVS(225) = Jac_FULL(34,176) - JVS(225) = B(772) +! JVS(225) = Jac_FULL(37,129) + JVS(225) = B(166)+2*B(167)+B(1672) IF (DO_JVS(226)) & -! JVS(226) = Jac_FULL(34,177) - JVS(226) = B(836) +! JVS(226) = Jac_FULL(37,130) + JVS(226) = B(152) IF (DO_JVS(227)) & -! JVS(227) = Jac_FULL(34,178) - JVS(227) = B(128) +! JVS(227) = Jac_FULL(37,133) + JVS(227) = B(156) IF (DO_JVS(228)) & -! JVS(228) = Jac_FULL(34,180) - JVS(228) = B(1220) +! JVS(228) = Jac_FULL(37,136) + JVS(228) = B(1089) IF (DO_JVS(229)) & -! JVS(229) = Jac_FULL(34,182) - JVS(229) = B(1214) +! JVS(229) = Jac_FULL(37,137) + JVS(229) = B(1085) IF (DO_JVS(230)) & -! JVS(230) = Jac_FULL(34,184) - JVS(230) = B(1302) +! JVS(230) = Jac_FULL(37,139) + JVS(230) = 0.5*B(743) IF (DO_JVS(231)) & -! JVS(231) = Jac_FULL(34,189) - JVS(231) = 0.89*B(1352) +! JVS(231) = Jac_FULL(37,141) + JVS(231) = 0.5*B(780) IF (DO_JVS(232)) & -! JVS(232) = Jac_FULL(34,190) - JVS(232) = B(1123)+B(1125) +! JVS(232) = Jac_FULL(37,143) + JVS(232) = 0.3*B(1671) IF (DO_JVS(233)) & -! JVS(233) = Jac_FULL(34,193) - JVS(233) = B(865) +! JVS(233) = Jac_FULL(37,153) + JVS(233) = B(403) IF (DO_JVS(234)) & -! JVS(234) = Jac_FULL(34,196) - JVS(234) = B(1686) +! JVS(234) = Jac_FULL(37,156) + JVS(234) = B(937) IF (DO_JVS(235)) & -! JVS(235) = Jac_FULL(34,197) - JVS(235) = B(162) +! JVS(235) = Jac_FULL(37,165) + JVS(235) = B(798) IF (DO_JVS(236)) & -! JVS(236) = Jac_FULL(34,205) - JVS(236) = B(1116)+B(1118) +! JVS(236) = Jac_FULL(37,168) + JVS(236) = 2*B(138) IF (DO_JVS(237)) & -! JVS(237) = Jac_FULL(34,206) - JVS(237) = B(1131)+B(1133) +! JVS(237) = Jac_FULL(37,172) + JVS(237) = B(673) IF (DO_JVS(238)) & -! JVS(238) = Jac_FULL(34,207) - JVS(238) = B(1137)+B(1139) +! JVS(238) = Jac_FULL(37,173) + JVS(238) = B(1246) IF (DO_JVS(239)) & -! JVS(239) = Jac_FULL(34,211) - JVS(239) = 0.5*B(818) +! JVS(239) = Jac_FULL(37,174) + JVS(239) = B(1252) IF (DO_JVS(240)) & -! JVS(240) = Jac_FULL(34,212) - JVS(240) = 0.942*B(148) +! JVS(240) = Jac_FULL(37,179) + JVS(240) = B(772) IF (DO_JVS(241)) & -! JVS(241) = Jac_FULL(34,213) - JVS(241) = B(300)+0.15*B(302) +! JVS(241) = Jac_FULL(37,180) + JVS(241) = B(836) IF (DO_JVS(242)) & -! JVS(242) = Jac_FULL(34,217) - JVS(242) = 0.02*B(475) +! JVS(242) = Jac_FULL(37,181) + JVS(242) = B(1220) IF (DO_JVS(243)) & -! JVS(243) = Jac_FULL(34,223) - JVS(243) = B(1032)+B(1034) +! JVS(243) = Jac_FULL(37,182) + JVS(243) = B(128) IF (DO_JVS(244)) & -! JVS(244) = Jac_FULL(34,224) - JVS(244) = B(1039)+B(1041) +! JVS(244) = Jac_FULL(37,185) + JVS(244) = B(1214) IF (DO_JVS(245)) & -! JVS(245) = Jac_FULL(34,226) - JVS(245) = B(1206)+B(1208) +! JVS(245) = Jac_FULL(37,186) + JVS(245) = B(1123)+B(1125) IF (DO_JVS(246)) & -! JVS(246) = Jac_FULL(34,232) - JVS(246) = B(1046)+B(1048) +! JVS(246) = Jac_FULL(37,189) + JVS(246) = B(1302) IF (DO_JVS(247)) & -! JVS(247) = Jac_FULL(34,234) - JVS(247) = 0.995*B(1366) +! JVS(247) = Jac_FULL(37,193) + JVS(247) = 0.89*B(1352) IF (DO_JVS(248)) & -! JVS(248) = Jac_FULL(34,235) - JVS(248) = 0.15*B(1432)+B(1434) +! JVS(248) = Jac_FULL(37,196) + JVS(248) = B(865) IF (DO_JVS(249)) & -! JVS(249) = Jac_FULL(34,236) - JVS(249) = B(1443)+B(1445) +! JVS(249) = Jac_FULL(37,200) + JVS(249) = B(1699) IF (DO_JVS(250)) & -! JVS(250) = Jac_FULL(34,239) - JVS(250) = B(71) +! JVS(250) = Jac_FULL(37,201) + JVS(250) = B(162) IF (DO_JVS(251)) & -! JVS(251) = Jac_FULL(34,240) - JVS(251) = B(1405)+0.15*B(1407) +! JVS(251) = Jac_FULL(37,208) + JVS(251) = B(1137)+B(1139) IF (DO_JVS(252)) & -! JVS(252) = Jac_FULL(34,241) - JVS(252) = B(707)+B(709) +! JVS(252) = Jac_FULL(37,209) + JVS(252) = B(1131)+B(1133) IF (DO_JVS(253)) & -! JVS(253) = Jac_FULL(34,243) - JVS(253) = B(1080)+B(1082) +! JVS(253) = Jac_FULL(37,210) + JVS(253) = B(1116)+B(1118) IF (DO_JVS(254)) & -! JVS(254) = Jac_FULL(34,245) - JVS(254) = B(527) +! JVS(254) = Jac_FULL(37,212) + JVS(254) = 0.5*B(818) IF (DO_JVS(255)) & -! JVS(255) = Jac_FULL(34,246) - JVS(255) = B(243)+0.15*B(245) +! JVS(255) = Jac_FULL(37,215) + JVS(255) = 0.942*B(148) IF (DO_JVS(256)) & -! JVS(256) = Jac_FULL(34,249) - JVS(256) = B(175) +! JVS(256) = Jac_FULL(37,216) + JVS(256) = B(300)+0.15*B(302) IF (DO_JVS(257)) & -! JVS(257) = Jac_FULL(34,250) - JVS(257) = B(191) +! JVS(257) = Jac_FULL(37,219) + JVS(257) = 0.02*B(475) IF (DO_JVS(258)) & -! JVS(258) = Jac_FULL(34,253) - JVS(258) = B(1283)+B(1285) +! JVS(258) = Jac_FULL(37,226) + JVS(258) = B(1039)+B(1041) IF (DO_JVS(259)) & -! JVS(259) = Jac_FULL(34,254) - JVS(259) = B(1272)+B(1274) +! JVS(259) = Jac_FULL(37,228) + JVS(259) = B(1032)+B(1034) IF (DO_JVS(260)) & -! JVS(260) = Jac_FULL(34,257) - JVS(260) = 0.15*B(749)+B(751) +! JVS(260) = Jac_FULL(37,235) + JVS(260) = B(1046)+B(1048) IF (DO_JVS(261)) & -! JVS(261) = Jac_FULL(34,259) - JVS(261) = 0.13*B(1278)+B(1287) +! JVS(261) = Jac_FULL(37,236) + JVS(261) = B(1206)+B(1208) IF (DO_JVS(262)) & -! JVS(262) = Jac_FULL(34,260) - JVS(262) = B(122) +! JVS(262) = Jac_FULL(37,237) + JVS(262) = 0.15*B(1432)+B(1434) IF (DO_JVS(263)) & -! JVS(263) = Jac_FULL(34,263) - JVS(263) = B(1389) +! JVS(263) = Jac_FULL(37,238) + JVS(263) = B(1443)+B(1445) IF (DO_JVS(264)) & -! JVS(264) = Jac_FULL(34,269) - JVS(264) = B(1457) +! JVS(264) = Jac_FULL(37,239) + JVS(264) = 0.995*B(1366) IF (DO_JVS(265)) & -! JVS(265) = Jac_FULL(34,271) - JVS(265) = B(1202)+B(1204) +! JVS(265) = Jac_FULL(37,240) + JVS(265) = B(71) IF (DO_JVS(266)) & -! JVS(266) = Jac_FULL(34,272) - JVS(266) = 0.84*B(824) +! JVS(266) = Jac_FULL(37,243) + JVS(266) = B(1405)+0.15*B(1407) IF (DO_JVS(267)) & -! JVS(267) = Jac_FULL(34,273) - JVS(267) = B(790) +! JVS(267) = Jac_FULL(37,244) + JVS(267) = B(707)+B(709) IF (DO_JVS(268)) & -! JVS(268) = Jac_FULL(34,274) - JVS(268) = 0.15*B(838)+B(840) +! JVS(268) = Jac_FULL(37,245) + JVS(268) = B(1080)+B(1082) IF (DO_JVS(269)) & -! JVS(269) = Jac_FULL(34,275) - JVS(269) = 0.75*B(776) +! JVS(269) = Jac_FULL(37,248) + JVS(269) = B(527) IF (DO_JVS(270)) & -! JVS(270) = Jac_FULL(34,277) - JVS(270) = 0.75*B(737) +! JVS(270) = Jac_FULL(37,250) + JVS(270) = B(243)+0.15*B(245) IF (DO_JVS(271)) & -! JVS(271) = Jac_FULL(34,278) - JVS(271) = 0.84*B(764) +! JVS(271) = Jac_FULL(37,252) + JVS(271) = B(175) IF (DO_JVS(272)) & -! JVS(272) = Jac_FULL(34,280) - JVS(272) = B(901) +! JVS(272) = Jac_FULL(37,253) + JVS(272) = B(191) IF (DO_JVS(273)) & -! JVS(273) = Jac_FULL(34,281) - JVS(273) = 0.75*B(802) +! JVS(273) = Jac_FULL(37,257) + JVS(273) = B(1283)+B(1285) IF (DO_JVS(274)) & -! JVS(274) = Jac_FULL(34,285) - JVS(274) = B(1072)+B(1074) +! JVS(274) = Jac_FULL(37,258) + JVS(274) = B(1272)+B(1274) IF (DO_JVS(275)) & -! JVS(275) = Jac_FULL(34,286) - JVS(275) = B(1066)+B(1068) +! JVS(275) = Jac_FULL(37,261) + JVS(275) = 0.15*B(749)+B(751) IF (DO_JVS(276)) & -! JVS(276) = Jac_FULL(34,289) - JVS(276) = B(903) +! JVS(276) = Jac_FULL(37,262) + JVS(276) = 0.13*B(1278)+B(1287) IF (DO_JVS(277)) & -! JVS(277) = Jac_FULL(34,291) - JVS(277) = B(855) +! JVS(277) = Jac_FULL(37,264) + JVS(277) = B(122) IF (DO_JVS(278)) & -! JVS(278) = Jac_FULL(34,293) - JVS(278) = B(1143)+B(1145) +! JVS(278) = Jac_FULL(37,266) + JVS(278) = B(1389) IF (DO_JVS(279)) & -! JVS(279) = Jac_FULL(34,296) - JVS(279) = B(108)+B(619) +! JVS(279) = Jac_FULL(37,272) + JVS(279) = B(1457) IF (DO_JVS(280)) & -! JVS(280) = Jac_FULL(34,297) - JVS(280) = B(543) +! JVS(280) = Jac_FULL(37,273) + JVS(280) = B(1202)+B(1204) IF (DO_JVS(281)) & -! JVS(281) = Jac_FULL(34,300) - JVS(281) = B(171)+B(173) +! JVS(281) = Jac_FULL(37,275) + JVS(281) = B(790) IF (DO_JVS(282)) & -! JVS(282) = Jac_FULL(34,302) - JVS(282) = 0.69*B(1236) +! JVS(282) = Jac_FULL(37,276) + JVS(282) = 0.75*B(776) IF (DO_JVS(283)) & -! JVS(283) = Jac_FULL(34,304) - JVS(283) = B(993)+B(995)+B(997)+B(999) +! JVS(283) = Jac_FULL(37,277) + JVS(283) = 0.15*B(838)+B(840) IF (DO_JVS(284)) & -! JVS(284) = Jac_FULL(34,305) - JVS(284) = B(985)+B(987)+B(989)+B(991) +! JVS(284) = Jac_FULL(37,278) + JVS(284) = 0.84*B(824) IF (DO_JVS(285)) & -! JVS(285) = Jac_FULL(34,308) - JVS(285) = 0.13*B(1291)+B(1293) +! JVS(285) = Jac_FULL(37,280) + JVS(285) = B(901) IF (DO_JVS(286)) & -! JVS(286) = Jac_FULL(34,310) - JVS(286) = B(1169)+B(1171) +! JVS(286) = Jac_FULL(37,281) + JVS(286) = 0.75*B(737) IF (DO_JVS(287)) & -! JVS(287) = Jac_FULL(34,311) - JVS(287) = B(1173)+B(1175) +! JVS(287) = Jac_FULL(37,282) + JVS(287) = 0.84*B(764) IF (DO_JVS(288)) & -! JVS(288) = Jac_FULL(34,312) - JVS(288) = B(693)+B(695) +! JVS(288) = Jac_FULL(37,284) + JVS(288) = 0.75*B(802) IF (DO_JVS(289)) & -! JVS(289) = Jac_FULL(34,313) - JVS(289) = B(183) +! JVS(289) = Jac_FULL(37,288) + JVS(289) = B(1072)+B(1074) IF (DO_JVS(290)) & -! JVS(290) = Jac_FULL(34,315) - JVS(290) = B(112)+B(621) +! JVS(290) = Jac_FULL(37,289) + JVS(290) = B(1066)+B(1068) IF (DO_JVS(291)) & -! JVS(291) = Jac_FULL(34,317) - JVS(291) = B(545) +! JVS(291) = Jac_FULL(37,292) + JVS(291) = B(903) IF (DO_JVS(292)) & -! JVS(292) = Jac_FULL(34,318) - JVS(292) = B(181) +! JVS(292) = Jac_FULL(37,294) + JVS(292) = B(855) IF (DO_JVS(293)) & -! JVS(293) = Jac_FULL(34,319) - JVS(293) = B(177)+B(179) +! JVS(293) = Jac_FULL(37,299) + JVS(293) = B(1143)+B(1145) IF (DO_JVS(294)) & -! JVS(294) = Jac_FULL(34,320) - JVS(294) = B(185)+B(236) +! JVS(294) = Jac_FULL(37,300) + JVS(294) = B(108)+B(619) IF (DO_JVS(295)) & -! JVS(295) = Jac_FULL(34,321) - JVS(295) = B(118) +! JVS(295) = Jac_FULL(37,301) + JVS(295) = B(543) IF (DO_JVS(296)) & -! JVS(296) = Jac_FULL(34,322) - JVS(296) = B(208)+0.15*B(283) +! JVS(296) = Jac_FULL(37,304) + JVS(296) = B(171)+B(173) IF (DO_JVS(297)) & -! JVS(297) = Jac_FULL(34,323) - JVS(297) = B(187) +! JVS(297) = Jac_FULL(37,306) + JVS(297) = 0.69*B(1236) IF (DO_JVS(298)) & -! JVS(298) = Jac_FULL(34,324) - JVS(298) = B(104)+0.13*B(1324) +! JVS(298) = Jac_FULL(37,308) + JVS(298) = B(1169)+B(1171) IF (DO_JVS(299)) & -! JVS(299) = Jac_FULL(34,327) - JVS(299) = B(67) +! JVS(299) = Jac_FULL(37,310) + JVS(299) = B(1173)+B(1175) IF (DO_JVS(300)) & -! JVS(300) = Jac_FULL(34,328) - JVS(300) = B(49)+B(613) +! JVS(300) = Jac_FULL(37,312) + JVS(300) = 0.13*B(1291)+B(1293) IF (DO_JVS(301)) & -! JVS(301) = Jac_FULL(34,335) - JVS(301) = B(696)+B(710)+B(1444) +! JVS(301) = Jac_FULL(37,314) + JVS(301) = B(985)+B(987)+B(989)+B(991) IF (DO_JVS(302)) & -! JVS(302) = Jac_FULL(34,337) - JVS(302) = B(42)+0.15*B(246)+0.15*B(284)+0.15*B(303)+0.02*B(476)+B(575)+0.15*B(750)+0.15*B(839)+0.13*B(1279)+0.13& - &*B(1292)+0.13*B(1325)+0.15*B(1408)+0.15*B(1433) +! JVS(302) = Jac_FULL(37,315) + JVS(302) = B(993)+B(995)+B(997)+B(999) IF (DO_JVS(303)) & -! JVS(303) = Jac_FULL(34,340) - JVS(303) = B(576)+0.1*B(594)+B(614)+B(620)+B(622) +! JVS(303) = Jac_FULL(37,316) + JVS(303) = B(183) IF (DO_JVS(304)) & -! JVS(304) = Jac_FULL(34,345) - JVS(304) = B(36)+B(68)+B(72)+B(153)+2*B(168)+B(242)+B(307)+B(404)+B(528)+B(544)+B(546)+B(674)+0.5*B(744)+B(773)+0.5& - &*B(781)+B(799)+0.5*B(819)+B(837)+B(866)+B(938)+B(940)+B(942)+B(944)+B(946)+0.69*B(1237)+B(1303)+B(1357)& - &+B(1376)+B(1413)+B(1442)+B(1458) +! JVS(304) = Jac_FULL(37,317) + JVS(304) = B(693)+B(695) IF (DO_JVS(305)) & -! JVS(305) = Jac_FULL(34,346) - JVS(305) = B(43)+B(50)+B(105)+B(109)+B(113)+B(119)+B(123)+B(129)+2*B(139)+0.942*B(149)+B(157)+B(163)+B(172)+B(174)& - &+B(176)+B(178)+B(180)+B(182)+B(184)+B(186)+B(188)+B(192)+B(209)+B(237)+B(244)+B(301)+B(480)+B(694)+B(708)& - &+0.75*B(738)+B(752)+0.84*B(765)+0.75*B(777)+B(791)+0.75*B(803)+0.84*B(825)+B(841)+B(856)+B(902)+B(904)& - &+B(986)+B(988)+B(990)+B(992)+B(994)+B(996)+B(998)+B(1000)+B(1033)+B(1035)+B(1040)+B(1042)+B(1047)+B(1049)& - &+B(1067)+B(1069)+B(1073)+B(1075)+B(1081)+B(1083)+B(1086)+B(1090)+B(1117)+B(1119)+B(1124)+B(1126)+B(1132)& - &+B(1134)+B(1138)+B(1140)+B(1144)+B(1146)+B(1170)+B(1172)+B(1174)+B(1176)+B(1203)+B(1205)+B(1207)+B(1209)& - &+B(1215)+B(1221)+B(1247)+B(1253)+B(1273)+B(1275)+B(1284)+B(1286)+B(1288)+B(1294)+0.89*B(1353)+0.995*B(1367)& - &+B(1390)+B(1400)+B(1406)+B(1435)+B(1446)+B(1747) +! JVS(305) = Jac_FULL(37,319) + JVS(305) = B(112)+B(621) IF (DO_JVS(306)) & -! JVS(306) = Jac_FULL(35,35) - JVS(306) = 0 +! JVS(306) = Jac_FULL(37,321) + JVS(306) = B(545) IF (DO_JVS(307)) & -! JVS(307) = Jac_FULL(35,42) - JVS(307) = 4*B(1582)+4*B(1583)+4*B(1584) +! JVS(307) = Jac_FULL(37,322) + JVS(307) = B(181) IF (DO_JVS(308)) & -! JVS(308) = Jac_FULL(35,44) - JVS(308) = 2*B(1576)+2*B(1577)+2*B(1578) +! JVS(308) = Jac_FULL(37,323) + JVS(308) = B(177)+B(179) IF (DO_JVS(309)) & -! JVS(309) = Jac_FULL(35,49) - JVS(309) = 0.1*B(519) +! JVS(309) = Jac_FULL(37,324) + JVS(309) = B(185)+B(236) IF (DO_JVS(310)) & -! JVS(310) = Jac_FULL(35,50) - JVS(310) = 0.05*B(521) +! JVS(310) = Jac_FULL(37,325) + JVS(310) = B(208)+0.15*B(283) IF (DO_JVS(311)) & -! JVS(311) = Jac_FULL(35,55) - JVS(311) = 3*B(1579)+3*B(1580)+3*B(1581) +! JVS(311) = Jac_FULL(37,326) + JVS(311) = B(118) IF (DO_JVS(312)) & -! JVS(312) = Jac_FULL(35,63) - JVS(312) = B(441) +! JVS(312) = Jac_FULL(37,327) + JVS(312) = B(187) IF (DO_JVS(313)) & -! JVS(313) = Jac_FULL(35,64) - JVS(313) = B(1755) +! JVS(313) = Jac_FULL(37,328) + JVS(313) = B(104)+0.13*B(1324) IF (DO_JVS(314)) & -! JVS(314) = Jac_FULL(35,65) - JVS(314) = B(1753) +! JVS(314) = Jac_FULL(37,333) + JVS(314) = B(67) IF (DO_JVS(315)) & -! JVS(315) = Jac_FULL(35,68) - JVS(315) = B(457) +! JVS(315) = Jac_FULL(37,334) + JVS(315) = B(49)+B(613) IF (DO_JVS(316)) & -! JVS(316) = Jac_FULL(35,69) - JVS(316) = B(126) +! JVS(316) = Jac_FULL(37,338) + JVS(316) = B(42)+B(50)+B(105)+B(109)+B(113)+B(119)+B(123)+B(129)+2*B(139)+0.942*B(149)+B(157)+B(163)+B(172)+B(174)& + &+B(176)+B(178)+B(180)+B(182)+B(184)+B(186)+B(188)+B(192)+B(209)+B(237)+B(244)+B(301)+B(480)+B(694)+B(708)& + &+0.75*B(738)+B(752)+0.84*B(765)+0.75*B(777)+B(791)+0.75*B(803)+0.84*B(825)+B(841)+B(856)+B(902)+B(904)& + &+B(986)+B(988)+B(990)+B(992)+B(994)+B(996)+B(998)+B(1000)+B(1033)+B(1035)+B(1040)+B(1042)+B(1047)+B(1049)& + &+B(1067)+B(1069)+B(1073)+B(1075)+B(1081)+B(1083)+B(1086)+B(1090)+B(1117)+B(1119)+B(1124)+B(1126)+B(1132)& + &+B(1134)+B(1138)+B(1140)+B(1144)+B(1146)+B(1170)+B(1172)+B(1174)+B(1176)+B(1203)+B(1205)+B(1207)+B(1209)& + &+B(1215)+B(1221)+B(1247)+B(1253)+B(1273)+B(1275)+B(1284)+B(1286)+B(1288)+B(1294)+0.89*B(1353)+0.995*B(1367)& + &+B(1390)+B(1400)+B(1406)+B(1435)+B(1446)+B(1760) IF (DO_JVS(317)) & -! JVS(317) = Jac_FULL(35,76) - JVS(317) = B(537)+2*B(1705) +! JVS(317) = Jac_FULL(37,341) + JVS(317) = B(43)+0.15*B(246)+0.15*B(284)+0.15*B(303)+0.02*B(476)+B(575)+0.15*B(750)+0.15*B(839)+0.13*B(1279)+0.13& + &*B(1292)+0.13*B(1325)+0.15*B(1408)+0.15*B(1433) IF (DO_JVS(318)) & -! JVS(318) = Jac_FULL(35,87) - JVS(318) = 0.19*B(503) +! JVS(318) = Jac_FULL(37,343) + JVS(318) = B(36)+B(68)+B(72)+B(153)+2*B(168)+B(242)+B(307)+B(404)+B(528)+B(544)+B(546)+B(674)+0.5*B(744)+B(773)+0.5& + &*B(781)+B(799)+0.5*B(819)+B(837)+B(866)+B(938)+B(940)+B(942)+B(944)+B(946)+0.69*B(1237)+B(1303)+B(1357)& + &+B(1376)+B(1413)+B(1442)+B(1458) IF (DO_JVS(319)) & -! JVS(319) = Jac_FULL(35,94) - JVS(319) = B(385) +! JVS(319) = Jac_FULL(37,345) + JVS(319) = B(696)+B(710)+B(1444) IF (DO_JVS(320)) & -! JVS(320) = Jac_FULL(35,96) - JVS(320) = 2*B(1728) +! JVS(320) = Jac_FULL(37,352) + JVS(320) = B(576)+0.1*B(594)+B(614)+B(620)+B(622) IF (DO_JVS(321)) & -! JVS(321) = Jac_FULL(35,105) - JVS(321) = 0.56*B(497) +! JVS(321) = Jac_FULL(38,38) + JVS(321) = 0 IF (DO_JVS(322)) & -! JVS(322) = Jac_FULL(35,109) - JVS(322) = B(1358) +! JVS(322) = Jac_FULL(38,45) + JVS(322) = 4*B(1582)+4*B(1583)+4*B(1584) IF (DO_JVS(323)) & -! JVS(323) = Jac_FULL(35,120) - JVS(323) = B(535) +! JVS(323) = Jac_FULL(38,47) + JVS(323) = 2*B(1576)+2*B(1577)+2*B(1578) IF (DO_JVS(324)) & -! JVS(324) = Jac_FULL(35,140) - JVS(324) = B(144)+B(146) +! JVS(324) = Jac_FULL(38,52) + JVS(324) = 0.1*B(519) IF (DO_JVS(325)) & -! JVS(325) = Jac_FULL(35,142) - JVS(325) = B(193) +! JVS(325) = Jac_FULL(38,53) + JVS(325) = 0.05*B(521) IF (DO_JVS(326)) & -! JVS(326) = Jac_FULL(35,149) - JVS(326) = B(1346) +! JVS(326) = Jac_FULL(38,58) + JVS(326) = 3*B(1579)+3*B(1580)+3*B(1581) IF (DO_JVS(327)) & -! JVS(327) = Jac_FULL(35,154) - JVS(327) = B(1625) +! JVS(327) = Jac_FULL(38,66) + JVS(327) = B(441) IF (DO_JVS(328)) & -! JVS(328) = Jac_FULL(35,158) - JVS(328) = 1.5*B(1420) +! JVS(328) = Jac_FULL(38,67) + JVS(328) = B(1768) IF (DO_JVS(329)) & -! JVS(329) = Jac_FULL(35,163) - JVS(329) = B(834) +! JVS(329) = Jac_FULL(38,68) + JVS(329) = B(1766) IF (DO_JVS(330)) & -! JVS(330) = Jac_FULL(35,166) - JVS(330) = B(8) +! JVS(330) = Jac_FULL(38,71) + JVS(330) = B(457) IF (DO_JVS(331)) & -! JVS(331) = Jac_FULL(35,167) - JVS(331) = B(721)+B(725) +! JVS(331) = Jac_FULL(38,72) + JVS(331) = B(126) IF (DO_JVS(332)) & -! JVS(332) = Jac_FULL(35,168) - JVS(332) = B(1630) +! JVS(332) = Jac_FULL(38,78) + JVS(332) = B(537)+2*B(1718) IF (DO_JVS(333)) & -! JVS(333) = Jac_FULL(35,175) - JVS(333) = B(1629) +! JVS(333) = Jac_FULL(38,87) + JVS(333) = B(385) IF (DO_JVS(334)) & -! JVS(334) = Jac_FULL(35,179) - JVS(334) = B(1) +! JVS(334) = Jac_FULL(38,91) + JVS(334) = 0.19*B(503) IF (DO_JVS(335)) & -! JVS(335) = Jac_FULL(35,181) - JVS(335) = 0.44*B(495) +! JVS(335) = Jac_FULL(38,98) + JVS(335) = 2*B(1741) IF (DO_JVS(336)) & -! JVS(336) = Jac_FULL(35,183) - JVS(336) = B(344) +! JVS(336) = Jac_FULL(38,108) + JVS(336) = 0.56*B(497) IF (DO_JVS(337)) & -! JVS(337) = Jac_FULL(35,186) - JVS(337) = B(1633) +! JVS(337) = Jac_FULL(38,120) + JVS(337) = B(1358) IF (DO_JVS(338)) & -! JVS(338) = Jac_FULL(35,191) - JVS(338) = B(717)+B(733) +! JVS(338) = Jac_FULL(38,123) + JVS(338) = B(535) IF (DO_JVS(339)) & -! JVS(339) = Jac_FULL(35,195) - JVS(339) = 1.258*B(1416) +! JVS(339) = Jac_FULL(38,140) + JVS(339) = B(144)+B(146) IF (DO_JVS(340)) & -! JVS(340) = Jac_FULL(35,197) - JVS(340) = B(164) +! JVS(340) = Jac_FULL(38,144) + JVS(340) = B(193) IF (DO_JVS(341)) & -! JVS(341) = Jac_FULL(35,200) - JVS(341) = B(1350) +! JVS(341) = Jac_FULL(38,148) + JVS(341) = B(1346) IF (DO_JVS(342)) & -! JVS(342) = Jac_FULL(35,201) - JVS(342) = B(1472) +! JVS(342) = Jac_FULL(38,156) + JVS(342) = B(1625) IF (DO_JVS(343)) & -! JVS(343) = Jac_FULL(35,202) - JVS(343) = B(1424)+1.5*B(1426) +! JVS(343) = Jac_FULL(38,162) + JVS(343) = 1.5*B(1420) IF (DO_JVS(344)) & -! JVS(344) = Jac_FULL(35,203) - JVS(344) = B(1453)+B(1455) +! JVS(344) = Jac_FULL(38,166) + JVS(344) = B(834) IF (DO_JVS(345)) & -! JVS(345) = Jac_FULL(35,204) - JVS(345) = B(1430) +! JVS(345) = Jac_FULL(38,169) + JVS(345) = B(8) IF (DO_JVS(346)) & -! JVS(346) = Jac_FULL(35,211) - JVS(346) = 0.5*B(820)+B(822) +! JVS(346) = Jac_FULL(38,170) + JVS(346) = B(721)+B(725) IF (DO_JVS(347)) & -! JVS(347) = Jac_FULL(35,213) - JVS(347) = B(297)+B(304) +! JVS(347) = Jac_FULL(38,175) + JVS(347) = B(1629) IF (DO_JVS(348)) & -! JVS(348) = Jac_FULL(35,214) - JVS(348) = B(1496)+B(1498)+B(1500)+B(1501)+B(1503) +! JVS(348) = Jac_FULL(38,177) + JVS(348) = B(1630) IF (DO_JVS(349)) & -! JVS(349) = Jac_FULL(35,216) - JVS(349) = B(1638) +! JVS(349) = Jac_FULL(38,183) + JVS(349) = B(1) IF (DO_JVS(350)) & -! JVS(350) = Jac_FULL(35,217) - JVS(350) = B(473) +! JVS(350) = Jac_FULL(38,184) + JVS(350) = 0.44*B(495) IF (DO_JVS(351)) & -! JVS(351) = Jac_FULL(35,218) - JVS(351) = B(1511) +! JVS(351) = Jac_FULL(38,187) + JVS(351) = B(344) IF (DO_JVS(352)) & -! JVS(352) = Jac_FULL(35,219) - JVS(352) = B(719)+B(729) +! JVS(352) = Jac_FULL(38,188) + JVS(352) = B(1633) IF (DO_JVS(353)) & -! JVS(353) = Jac_FULL(35,220) - JVS(353) = B(1340)+B(1342) +! JVS(353) = Jac_FULL(38,194) + JVS(353) = B(717)+B(733) IF (DO_JVS(354)) & -! JVS(354) = Jac_FULL(35,221) - JVS(354) = B(1467) +! JVS(354) = Jac_FULL(38,199) + JVS(354) = 1.258*B(1416) IF (DO_JVS(355)) & -! JVS(355) = Jac_FULL(35,222) - JVS(355) = B(1634) +! JVS(355) = Jac_FULL(38,201) + JVS(355) = B(164) IF (DO_JVS(356)) & -! JVS(356) = Jac_FULL(35,225) - JVS(356) = B(745) +! JVS(356) = Jac_FULL(38,203) + JVS(356) = B(1350) IF (DO_JVS(357)) & -! JVS(357) = Jac_FULL(35,228) - JVS(357) = B(443) +! JVS(357) = Jac_FULL(38,204) + JVS(357) = B(1472) IF (DO_JVS(358)) & -! JVS(358) = Jac_FULL(35,229) - JVS(358) = B(861)+B(863) +! JVS(358) = Jac_FULL(38,205) + JVS(358) = B(1424)+1.5*B(1426) IF (DO_JVS(359)) & -! JVS(359) = Jac_FULL(35,234) - JVS(359) = B(1368) +! JVS(359) = Jac_FULL(38,206) + JVS(359) = B(1453)+B(1455) IF (DO_JVS(360)) & -! JVS(360) = Jac_FULL(35,235) - JVS(360) = B(1436) +! JVS(360) = Jac_FULL(38,207) + JVS(360) = B(1430) IF (DO_JVS(361)) & -! JVS(361) = Jac_FULL(35,236) - JVS(361) = B(1447) +! JVS(361) = Jac_FULL(38,212) + JVS(361) = 0.5*B(820)+B(822) IF (DO_JVS(362)) & -! JVS(362) = Jac_FULL(35,237) - JVS(362) = B(814)+2*B(816) +! JVS(362) = Jac_FULL(38,216) + JVS(362) = B(297)+B(304) IF (DO_JVS(363)) & -! JVS(363) = Jac_FULL(35,240) - JVS(363) = B(1409) +! JVS(363) = Jac_FULL(38,217) + JVS(363) = B(1496)+B(1498)+B(1500)+B(1501)+B(1503) IF (DO_JVS(364)) & -! JVS(364) = Jac_FULL(35,242) - JVS(364) = B(929)+2*B(931)+B(1624) +! JVS(364) = Jac_FULL(38,219) + JVS(364) = B(473) IF (DO_JVS(365)) & -! JVS(365) = Jac_FULL(35,246) - JVS(365) = B(238) +! JVS(365) = Jac_FULL(38,220) + JVS(365) = B(1638) IF (DO_JVS(366)) & -! JVS(366) = Jac_FULL(35,248) - JVS(366) = B(1639) +! JVS(366) = Jac_FULL(38,221) + JVS(366) = B(1511) IF (DO_JVS(367)) & -! JVS(367) = Jac_FULL(35,251) - JVS(367) = B(1622) +! JVS(367) = Jac_FULL(38,222) + JVS(367) = B(719)+B(729) IF (DO_JVS(368)) & -! JVS(368) = Jac_FULL(35,252) - JVS(368) = B(1585)+B(1586)+B(1591)+B(1593)+B(1595)+B(1597) +! JVS(368) = Jac_FULL(38,223) + JVS(368) = B(1340)+B(1342) IF (DO_JVS(369)) & -! JVS(369) = Jac_FULL(35,255) - JVS(369) = B(808)+2*B(810) +! JVS(369) = Jac_FULL(38,224) + JVS(369) = B(1467) IF (DO_JVS(370)) & -! JVS(370) = Jac_FULL(35,256) - JVS(370) = 2*B(933)+B(1623) +! JVS(370) = Jac_FULL(38,225) + JVS(370) = B(1634) IF (DO_JVS(371)) & -! JVS(371) = Jac_FULL(35,257) - JVS(371) = B(753)+B(756) +! JVS(371) = Jac_FULL(38,227) + JVS(371) = B(745) IF (DO_JVS(372)) & -! JVS(372) = Jac_FULL(35,261) - JVS(372) = B(1318) +! JVS(372) = Jac_FULL(38,232) + JVS(372) = B(443) IF (DO_JVS(373)) & -! JVS(373) = Jac_FULL(35,262) - JVS(373) = B(873)+B(875) +! JVS(373) = Jac_FULL(38,234) + JVS(373) = B(861)+B(863) IF (DO_JVS(374)) & -! JVS(374) = Jac_FULL(35,263) - JVS(374) = B(1391) +! JVS(374) = Jac_FULL(38,237) + JVS(374) = B(1436) IF (DO_JVS(375)) & -! JVS(375) = Jac_FULL(35,264) - JVS(375) = B(469) +! JVS(375) = Jac_FULL(38,238) + JVS(375) = B(1447) IF (DO_JVS(376)) & -! JVS(376) = Jac_FULL(35,266) - JVS(376) = B(1636) +! JVS(376) = Jac_FULL(38,239) + JVS(376) = B(1368) IF (DO_JVS(377)) & -! JVS(377) = Jac_FULL(35,267) - JVS(377) = B(1631) +! JVS(377) = Jac_FULL(38,241) + JVS(377) = B(814)+2*B(816) IF (DO_JVS(378)) & -! JVS(378) = Jac_FULL(35,268) - JVS(378) = B(1628) +! JVS(378) = Jac_FULL(38,243) + JVS(378) = B(1409) IF (DO_JVS(379)) & -! JVS(379) = Jac_FULL(35,270) - JVS(379) = B(316) +! JVS(379) = Jac_FULL(38,246) + JVS(379) = B(929)+2*B(931)+B(1624) IF (DO_JVS(380)) & -! JVS(380) = Jac_FULL(35,272) - JVS(380) = B(828) +! JVS(380) = Jac_FULL(38,250) + JVS(380) = B(238) IF (DO_JVS(381)) & -! JVS(381) = Jac_FULL(35,273) - JVS(381) = B(794) +! JVS(381) = Jac_FULL(38,251) + JVS(381) = B(1639) IF (DO_JVS(382)) & -! JVS(382) = Jac_FULL(35,274) - JVS(382) = B(842)+B(845) +! JVS(382) = Jac_FULL(38,254) + JVS(382) = B(1585)+B(1586)+B(1591)+B(1593)+B(1595)+B(1597) IF (DO_JVS(383)) & -! JVS(383) = Jac_FULL(35,275) - JVS(383) = B(778) +! JVS(383) = Jac_FULL(38,255) + JVS(383) = B(1622) IF (DO_JVS(384)) & -! JVS(384) = Jac_FULL(35,276) - JVS(384) = B(947)+B(1147) +! JVS(384) = Jac_FULL(38,256) + JVS(384) = B(808)+2*B(810) IF (DO_JVS(385)) & -! JVS(385) = Jac_FULL(35,277) - JVS(385) = B(739) +! JVS(385) = Jac_FULL(38,260) + JVS(385) = 2*B(933)+B(1623) IF (DO_JVS(386)) & -! JVS(386) = Jac_FULL(35,278) - JVS(386) = B(766) +! JVS(386) = Jac_FULL(38,261) + JVS(386) = B(753)+B(756) IF (DO_JVS(387)) & -! JVS(387) = Jac_FULL(35,280) - JVS(387) = B(917) +! JVS(387) = Jac_FULL(38,263) + JVS(387) = B(873)+B(875) IF (DO_JVS(388)) & -! JVS(388) = Jac_FULL(35,281) - JVS(388) = B(804) +! JVS(388) = Jac_FULL(38,265) + JVS(388) = B(1318) IF (DO_JVS(389)) & -! JVS(389) = Jac_FULL(35,284) - JVS(389) = 0.4*B(659)+0.88*B(667) +! JVS(389) = Jac_FULL(38,266) + JVS(389) = B(1391) IF (DO_JVS(390)) & -! JVS(390) = Jac_FULL(35,289) - JVS(390) = B(919) +! JVS(390) = Jac_FULL(38,267) + JVS(390) = B(469) IF (DO_JVS(391)) & -! JVS(391) = Jac_FULL(35,290) - JVS(391) = B(287)+B(310) +! JVS(391) = Jac_FULL(38,269) + JVS(391) = B(1636) IF (DO_JVS(392)) & -! JVS(392) = Jac_FULL(35,291) - JVS(392) = B(857) +! JVS(392) = Jac_FULL(38,270) + JVS(392) = B(1631) IF (DO_JVS(393)) & -! JVS(393) = Jac_FULL(35,292) - JVS(393) = B(251) +! JVS(393) = Jac_FULL(38,271) + JVS(393) = B(1628) IF (DO_JVS(394)) & -! JVS(394) = Jac_FULL(35,294) - JVS(394) = B(318) +! JVS(394) = Jac_FULL(38,274) + JVS(394) = B(316) IF (DO_JVS(395)) & -! JVS(395) = Jac_FULL(35,297) - JVS(395) = B(1527)+B(1529)+B(1531)+B(1533)+B(1535)+B(1537) +! JVS(395) = Jac_FULL(38,275) + JVS(395) = B(794) IF (DO_JVS(396)) & -! JVS(396) = Jac_FULL(35,298) - JVS(396) = B(210) +! JVS(396) = Jac_FULL(38,276) + JVS(396) = B(778) IF (DO_JVS(397)) & -! JVS(397) = Jac_FULL(35,299) - JVS(397) = 2*B(1635) +! JVS(397) = Jac_FULL(38,277) + JVS(397) = B(842)+B(845) IF (DO_JVS(398)) & -! JVS(398) = Jac_FULL(35,302) - JVS(398) = B(1621) +! JVS(398) = Jac_FULL(38,278) + JVS(398) = B(828) IF (DO_JVS(399)) & -! JVS(399) = Jac_FULL(35,303) - JVS(399) = B(1637) +! JVS(399) = Jac_FULL(38,279) + JVS(399) = B(947)+B(1147) IF (DO_JVS(400)) & -! JVS(400) = Jac_FULL(35,306) - JVS(400) = B(295) +! JVS(400) = Jac_FULL(38,280) + JVS(400) = B(917) IF (DO_JVS(401)) & -! JVS(401) = Jac_FULL(35,308) - JVS(401) = B(1297) +! JVS(401) = Jac_FULL(38,281) + JVS(401) = B(739) IF (DO_JVS(402)) & -! JVS(402) = Jac_FULL(35,309) - JVS(402) = B(1232)+B(1234) +! JVS(402) = Jac_FULL(38,282) + JVS(402) = B(766) IF (DO_JVS(403)) & -! JVS(403) = Jac_FULL(35,310) - JVS(403) = B(1165) +! JVS(403) = Jac_FULL(38,284) + JVS(403) = B(804) IF (DO_JVS(404)) & -! JVS(404) = Jac_FULL(35,311) - JVS(404) = B(1167) +! JVS(404) = Jac_FULL(38,287) + JVS(404) = B(1574)+B(1575)+B(1607)+B(1609)+B(1611)+B(1613)+B(1739) IF (DO_JVS(405)) & -! JVS(405) = Jac_FULL(35,312) - JVS(405) = B(701) +! JVS(405) = Jac_FULL(38,292) + JVS(405) = B(919) IF (DO_JVS(406)) & -! JVS(406) = Jac_FULL(35,314) - JVS(406) = B(1226) +! JVS(406) = Jac_FULL(38,293) + JVS(406) = B(287)+B(310) IF (DO_JVS(407)) & -! JVS(407) = Jac_FULL(35,316) - JVS(407) = B(405)+B(1549)+B(1551)+B(1553)+B(1555)+B(1557)+B(1559)+B(1561)+B(1692) +! JVS(407) = Jac_FULL(38,294) + JVS(407) = B(857) IF (DO_JVS(408)) & -! JVS(408) = Jac_FULL(35,317) - JVS(408) = B(1515)+B(1517)+B(1519)+B(1521)+B(1523)+B(1525) +! JVS(408) = Jac_FULL(38,295) + JVS(408) = B(251) IF (DO_JVS(409)) & -! JVS(409) = Jac_FULL(35,325) - JVS(409) = B(93)+B(485) +! JVS(409) = Jac_FULL(38,296) + JVS(409) = B(1587)+B(1588)+B(1599)+B(1601)+B(1603)+B(1605) IF (DO_JVS(410)) & -! JVS(410) = Jac_FULL(35,326) - JVS(410) = B(97) +! JVS(410) = Jac_FULL(38,298) + JVS(410) = B(318) IF (DO_JVS(411)) & -! JVS(411) = Jac_FULL(35,328) - JVS(411) = B(34)+B(529)+B(1487) +! JVS(411) = Jac_FULL(38,301) + JVS(411) = B(1527)+B(1529)+B(1531)+B(1533)+B(1535)+B(1537) IF (DO_JVS(412)) & -! JVS(412) = Jac_FULL(35,330) - JVS(412) = B(1574)+B(1575)+B(1607)+B(1609)+B(1611)+B(1613)+B(1726) +! JVS(412) = Jac_FULL(38,302) + JVS(412) = B(210) IF (DO_JVS(413)) & -! JVS(413) = Jac_FULL(35,332) - JVS(413) = B(1587)+B(1588)+B(1599)+B(1601)+B(1603)+B(1605) +! JVS(413) = Jac_FULL(38,303) + JVS(413) = 2*B(1635) IF (DO_JVS(414)) & -! JVS(414) = Jac_FULL(35,333) - JVS(414) = B(1539)+B(1541)+B(1543)+B(1545)+B(1547)+B(1709) +! JVS(414) = Jac_FULL(38,306) + JVS(414) = B(1621) IF (DO_JVS(415)) & -! JVS(415) = Jac_FULL(35,334) - JVS(415) = B(433)+B(439)+B(442)+B(444)+B(455)+0.66*B(487)+0.6*B(489)+0.44*B(496)+0.56*B(498)+0.19*B(504)+0.1*B(520)& - &+0.05*B(522) +! JVS(415) = Jac_FULL(38,307) + JVS(415) = B(1637) IF (DO_JVS(416)) & -! JVS(416) = Jac_FULL(35,335) - JVS(416) = 2*B(91)+B(165)+B(239)+B(298)+2*B(461)+B(754)+B(843)+B(1410)+B(1437)+B(1456)+0.5*B(1492) +! JVS(416) = Jac_FULL(38,308) + JVS(416) = B(1165) IF (DO_JVS(417)) & -! JVS(417) = Jac_FULL(35,336) - JVS(417) = B(434)+B(1497) +! JVS(417) = Jac_FULL(38,309) + JVS(417) = B(295) IF (DO_JVS(418)) & -! JVS(418) = Jac_FULL(35,337) - JVS(418) = B(30)+B(78)+B(453) +! JVS(418) = Jac_FULL(38,310) + JVS(418) = B(1167) IF (DO_JVS(419)) & -! JVS(419) = Jac_FULL(35,338) - JVS(419) = B(530)+B(531)+B(533)+2*B(577)+2*B(585)+2*B(586)+2*B(597)+2*B(599)+0.88*B(668) +! JVS(419) = Jac_FULL(38,312) + JVS(419) = B(1297) IF (DO_JVS(420)) & -! JVS(420) = Jac_FULL(35,339) - JVS(420) = 0.66*B(488)+B(1499)+B(1512)+B(1516)+B(1532)+B(1540)+B(1552) +! JVS(420) = Jac_FULL(38,313) + JVS(420) = B(1232)+B(1234) IF (DO_JVS(421)) & -! JVS(421) = Jac_FULL(35,341) - JVS(421) = B(2)+B(9)+B(17)+B(28)+B(31)+B(35)+B(147)+B(288)+2*B(447)+B(456)+B(474)+B(702)+B(726)+B(730)+B(734)+B(809)& - &+B(815)+0.5*B(821)+B(862)+B(874)+B(930)+B(948)+B(1227)+B(1233)+B(1343)+B(1359)+B(1425)+B(1454)+B(1468)& - &+B(1473) +! JVS(421) = Jac_FULL(38,317) + JVS(421) = B(701) IF (DO_JVS(422)) & -! JVS(422) = Jac_FULL(35,343) - JVS(422) = B(406)+B(407)+2*B(448)+B(451)+B(454)+B(458)+2*B(462)+2*B(463)+B(470)+2*B(483)+B(486)+2*B(578) +! JVS(422) = Jac_FULL(38,318) + JVS(422) = B(1226) IF (DO_JVS(423)) & -! JVS(423) = Jac_FULL(35,344) - JVS(423) = B(1504)+B(1526)+B(1530)+B(1546)+B(1556)+B(1598)+B(1606)+B(1614) +! JVS(423) = Jac_FULL(38,320) + JVS(423) = B(405)+B(1549)+B(1551)+B(1553)+B(1555)+B(1557)+B(1559)+B(1561)+B(1705) IF (DO_JVS(424)) & -! JVS(424) = Jac_FULL(35,345) - JVS(424) = B(29)+B(82)+B(409)+B(452)+B(532)+B(534)+B(536)+B(538) +! JVS(424) = Jac_FULL(38,321) + JVS(424) = B(1515)+B(1517)+B(1519)+B(1521)+B(1523)+B(1525) IF (DO_JVS(425)) & -! JVS(425) = Jac_FULL(35,347) - JVS(425) = 2*B(397)+2*B(398)+B(410)+2*B(484)+2*B(598)+2*B(600)+0.4*B(660) +! JVS(425) = Jac_FULL(38,329) + JVS(425) = B(93)+B(485) IF (DO_JVS(426)) & -! JVS(426) = Jac_FULL(35,348) - JVS(426) = B(3)+B(10)+B(18)+B(1548)+B(1562) +! JVS(426) = Jac_FULL(38,330) + JVS(426) = B(97) IF (DO_JVS(427)) & -! JVS(427) = Jac_FULL(35,349) - JVS(427) = B(1520)+B(1534)+B(1558)+B(1592)+B(1600)+B(1608) +! JVS(427) = Jac_FULL(38,332) + JVS(427) = B(1539)+B(1541)+B(1543)+B(1545)+B(1547)+B(1722) IF (DO_JVS(428)) & -! JVS(428) = Jac_FULL(35,350) - JVS(428) = B(1522)+B(1536)+B(1560)+B(1594)+B(1602)+B(1610) +! JVS(428) = Jac_FULL(38,334) + JVS(428) = B(34)+B(529)+B(1487) IF (DO_JVS(429)) & -! JVS(429) = Jac_FULL(35,351) - JVS(429) = B(79)+B(83)+2*B(92)+B(94)+B(98)+B(127)+B(145)+B(194)+B(211)+B(252)+B(296)+B(305)+B(311)+B(317)+B(319)& - &+B(345)+2*B(377)+B(386)+2*B(464)+B(718)+B(720)+B(722)+B(740)+B(746)+B(757)+B(767)+B(779)+B(795)+B(805)+2& - &*B(811)+2*B(817)+B(823)+B(829)+B(835)+B(846)+B(858)+B(864)+B(876)+B(918)+B(920)+2*B(932)+2*B(934)+B(1148)& - &+B(1166)+B(1168)+B(1235)+B(1298)+B(1319)+B(1341)+B(1347)+B(1351)+B(1369)+B(1392)+1.258*B(1417)+1.5*B(1421)& - &+1.5*B(1427)+B(1431)+B(1448)+B(1488)+B(1493)+B(1494)+B(1495)+2*B(1654) +! JVS(429) = Jac_FULL(38,336) + JVS(429) = 0.4*B(659)+0.88*B(667) IF (DO_JVS(430)) & -! JVS(430) = Jac_FULL(35,352) - JVS(430) = B(408)+0.6*B(490)+B(1518)+B(1538)+B(1542)+B(1550) +! JVS(430) = Jac_FULL(38,337) + JVS(430) = B(433)+B(439)+B(442)+B(444)+B(455)+0.66*B(487)+0.6*B(489)+0.44*B(496)+0.56*B(498)+0.19*B(504)+0.1*B(520)& + &+0.05*B(522) IF (DO_JVS(431)) & -! JVS(431) = Jac_FULL(35,353) +! JVS(431) = Jac_FULL(38,339) JVS(431) = B(1502)+B(1524)+B(1528)+B(1544)+B(1554)+B(1596)+B(1604)+B(1612) IF (DO_JVS(432)) & -! JVS(432) = Jac_FULL(36,36) - JVS(432) = 0 +! JVS(432) = Jac_FULL(38,340) + JVS(432) = 0.66*B(488)+B(1499)+B(1512)+B(1516)+B(1532)+B(1540)+B(1552) IF (DO_JVS(433)) & -! JVS(433) = Jac_FULL(36,60) - JVS(433) = 0.364*B(1362) +! JVS(433) = Jac_FULL(38,341) + JVS(433) = B(30)+B(78)+B(453) IF (DO_JVS(434)) & -! JVS(434) = Jac_FULL(36,68) - JVS(434) = B(457)+B(1745) +! JVS(434) = Jac_FULL(38,343) + JVS(434) = B(28)+B(82)+B(409)+B(451)+B(531)+B(533)+B(536)+B(538) IF (DO_JVS(435)) & -! JVS(435) = Jac_FULL(36,75) - JVS(435) = B(609) +! JVS(435) = Jac_FULL(38,344) + JVS(435) = B(530)+B(532)+B(534)+2*B(577)+2*B(585)+2*B(586)+2*B(597)+2*B(599)+0.88*B(668) IF (DO_JVS(436)) & -! JVS(436) = Jac_FULL(36,79) - JVS(436) = B(607) +! JVS(436) = Jac_FULL(38,345) + JVS(436) = 2*B(91)+B(165)+B(239)+B(298)+2*B(461)+B(754)+B(843)+B(1410)+B(1437)+B(1456)+0.5*B(1492)+B(1646) IF (DO_JVS(437)) & -! JVS(437) = Jac_FULL(36,82) - JVS(437) = 0.27*B(1383) +! JVS(437) = Jac_FULL(38,346) + JVS(437) = B(1504)+B(1526)+B(1530)+B(1546)+B(1556)+B(1598)+B(1606)+B(1614) IF (DO_JVS(438)) & -! JVS(438) = Jac_FULL(36,101) - JVS(438) = 0.3*B(1385) +! JVS(438) = Jac_FULL(38,347) + JVS(438) = 2*B(397)+2*B(398)+B(410)+2*B(483)+2*B(598)+2*B(600)+0.4*B(660) IF (DO_JVS(439)) & -! JVS(439) = Jac_FULL(36,107) - JVS(439) = B(1304) +! JVS(439) = Jac_FULL(38,348) + JVS(439) = B(79)+B(83)+2*B(92)+B(94)+B(98)+B(127)+B(145)+B(194)+B(211)+B(252)+B(296)+B(305)+B(311)+B(317)+B(319)& + &+B(345)+2*B(377)+B(386)+2*B(463)+B(718)+B(720)+B(722)+B(740)+B(746)+B(757)+B(767)+B(779)+B(795)+B(805)+2& + &*B(811)+2*B(817)+B(823)+B(829)+B(835)+B(846)+B(858)+B(864)+B(876)+B(918)+B(920)+2*B(932)+2*B(934)+B(1148)& + &+B(1166)+B(1168)+B(1235)+B(1298)+B(1319)+B(1341)+B(1347)+B(1351)+B(1369)+B(1392)+1.258*B(1417)+1.5*B(1421)& + &+1.5*B(1427)+B(1431)+B(1448)+B(1488)+B(1493)+B(1494)+B(1495)+2*B(1667) IF (DO_JVS(440)) & -! JVS(440) = Jac_FULL(36,113) - JVS(440) = B(241) +! JVS(440) = Jac_FULL(38,349) + JVS(440) = B(1520)+B(1534)+B(1558)+B(1592)+B(1600)+B(1608) IF (DO_JVS(441)) & -! JVS(441) = Jac_FULL(36,114) - JVS(441) = B(306) +! JVS(441) = Jac_FULL(38,350) + JVS(441) = B(1522)+B(1536)+B(1560)+B(1594)+B(1602)+B(1610) IF (DO_JVS(442)) & -! JVS(442) = Jac_FULL(36,119) - JVS(442) = B(1013) +! JVS(442) = Jac_FULL(38,351) + JVS(442) = B(406)+B(407)+2*B(447)+B(452)+B(454)+B(458)+2*B(462)+2*B(464)+B(470)+2*B(484)+B(486)+2*B(578) IF (DO_JVS(443)) & -! JVS(443) = Jac_FULL(36,122) - JVS(443) = 2*B(1412) +! JVS(443) = Jac_FULL(38,353) + JVS(443) = B(434)+B(1497) IF (DO_JVS(444)) & -! JVS(444) = Jac_FULL(36,124) - JVS(444) = B(206) +! JVS(444) = Jac_FULL(38,354) + JVS(444) = B(408)+0.6*B(490)+B(1518)+B(1538)+B(1542)+B(1550) IF (DO_JVS(445)) & -! JVS(445) = Jac_FULL(36,126) - JVS(445) = B(167) +! JVS(445) = Jac_FULL(38,355) + JVS(445) = B(2)+B(9)+B(17)+B(1548)+B(1562)+B(1643)+B(1647) IF (DO_JVS(446)) & -! JVS(446) = Jac_FULL(36,127) - JVS(446) = B(152) +! JVS(446) = Jac_FULL(38,356) + JVS(446) = B(3)+B(10)+B(18)+B(29)+B(31)+B(35)+B(147)+B(288)+2*B(448)+B(456)+B(474)+B(702)+B(726)+B(730)+B(734)+B(809)& + &+B(815)+0.5*B(821)+B(862)+B(874)+B(930)+B(948)+B(1227)+B(1233)+B(1343)+B(1359)+B(1425)+B(1454)+B(1468)& + &+B(1473)+B(1644) IF (DO_JVS(447)) & -! JVS(447) = Jac_FULL(36,132) - JVS(447) = B(156)+B(158) +! JVS(447) = Jac_FULL(39,39) + JVS(447) = 0 IF (DO_JVS(448)) & -! JVS(448) = Jac_FULL(36,139) - JVS(448) = B(102) +! JVS(448) = Jac_FULL(39,63) + JVS(448) = 0.364*B(1362) IF (DO_JVS(449)) & -! JVS(449) = Jac_FULL(36,143) - JVS(449) = 0.2*B(1381) +! JVS(449) = Jac_FULL(39,71) + JVS(449) = B(457)+B(1758) IF (DO_JVS(450)) & -! JVS(450) = Jac_FULL(36,144) - JVS(450) = 0.23*B(1007)+B(1782) +! JVS(450) = Jac_FULL(39,80) + JVS(450) = B(607) IF (DO_JVS(451)) & -! JVS(451) = Jac_FULL(36,146) - JVS(451) = B(1661) +! JVS(451) = Jac_FULL(39,84) + JVS(451) = B(609) IF (DO_JVS(452)) & -! JVS(452) = Jac_FULL(36,147) - JVS(452) = 0.888*B(1308)+B(1796) +! JVS(452) = Jac_FULL(39,85) + JVS(452) = 0.27*B(1383) IF (DO_JVS(453)) & -! JVS(453) = Jac_FULL(36,150) - JVS(453) = 0.42*B(1005)+B(1781) +! JVS(453) = Jac_FULL(39,103) + JVS(453) = 0.3*B(1385) IF (DO_JVS(454)) & -! JVS(454) = Jac_FULL(36,153) - JVS(454) = 0.84*B(1268) +! JVS(454) = Jac_FULL(39,109) + JVS(454) = B(1304) IF (DO_JVS(455)) & -! JVS(455) = Jac_FULL(36,159) - JVS(455) = 0.488*B(1280) +! JVS(455) = Jac_FULL(39,113) + JVS(455) = B(241) IF (DO_JVS(456)) & -! JVS(456) = Jac_FULL(36,167) - JVS(456) = 0.15*B(725) +! JVS(456) = Jac_FULL(39,115) + JVS(456) = B(306) IF (DO_JVS(457)) & -! JVS(457) = Jac_FULL(36,181) - JVS(457) = B(605) +! JVS(457) = Jac_FULL(39,122) + JVS(457) = B(1013) IF (DO_JVS(458)) & -! JVS(458) = Jac_FULL(36,182) - JVS(458) = 0.33*B(1214)+0.33*B(1216) +! JVS(458) = Jac_FULL(39,125) + JVS(458) = 2*B(1412) IF (DO_JVS(459)) & -! JVS(459) = Jac_FULL(36,184) - JVS(459) = 0.25*B(1302) +! JVS(459) = Jac_FULL(39,127) + JVS(459) = B(206) IF (DO_JVS(460)) & -! JVS(460) = Jac_FULL(36,185) - JVS(460) = B(1260)+0.571*B(1768) +! JVS(460) = Jac_FULL(39,129) + JVS(460) = B(167) IF (DO_JVS(461)) & -! JVS(461) = Jac_FULL(36,187) - JVS(461) = 0.25*B(1023) +! JVS(461) = Jac_FULL(39,130) + JVS(461) = B(152) IF (DO_JVS(462)) & -! JVS(462) = Jac_FULL(36,191) - JVS(462) = 0.1*B(733) +! JVS(462) = Jac_FULL(39,133) + JVS(462) = B(156)+B(158) IF (DO_JVS(463)) & -! JVS(463) = Jac_FULL(36,192) - JVS(463) = 0.33*B(1025) +! JVS(463) = Jac_FULL(39,143) + JVS(463) = B(102) IF (DO_JVS(464)) & -! JVS(464) = Jac_FULL(36,194) - JVS(464) = 0.75*B(1258)+0.875*B(1769) +! JVS(464) = Jac_FULL(39,145) + JVS(464) = 0.2*B(1381) IF (DO_JVS(465)) & -! JVS(465) = Jac_FULL(36,197) - JVS(465) = B(160)+B(162) +! JVS(465) = Jac_FULL(39,149) + JVS(465) = 0.888*B(1308)+B(1809) IF (DO_JVS(466)) & -! JVS(466) = Jac_FULL(36,199) - JVS(466) = 0.054*B(1029) +! JVS(466) = Jac_FULL(39,150) + JVS(466) = 0.42*B(1005)+B(1794) IF (DO_JVS(467)) & -! JVS(467) = Jac_FULL(36,200) - JVS(467) = 0.12*B(1348) +! JVS(467) = Jac_FULL(39,151) + JVS(467) = 0.23*B(1007)+B(1795) IF (DO_JVS(468)) & -! JVS(468) = Jac_FULL(36,201) - JVS(468) = 0.25*B(1470)+0.5*B(1472)+0.05*B(1474) +! JVS(468) = Jac_FULL(39,152) + JVS(468) = B(1674) IF (DO_JVS(469)) & -! JVS(469) = Jac_FULL(36,204) - JVS(469) = B(1802) +! JVS(469) = Jac_FULL(39,155) + JVS(469) = 0.84*B(1268) IF (DO_JVS(470)) & -! JVS(470) = Jac_FULL(36,208) - JVS(470) = 2*B(1266)+B(1765) +! JVS(470) = Jac_FULL(39,161) + JVS(470) = 0.488*B(1280) IF (DO_JVS(471)) & -! JVS(471) = Jac_FULL(36,209) - JVS(471) = 0.036*B(1027) +! JVS(471) = Jac_FULL(39,170) + JVS(471) = 0.15*B(725) IF (DO_JVS(472)) & -! JVS(472) = Jac_FULL(36,210) - JVS(472) = B(1326)+B(1762) +! JVS(472) = Jac_FULL(39,184) + JVS(472) = B(605) IF (DO_JVS(473)) & -! JVS(473) = Jac_FULL(36,215) - JVS(473) = 1.5*B(1011) +! JVS(473) = Jac_FULL(39,185) + JVS(473) = 0.33*B(1214)+0.33*B(1216) IF (DO_JVS(474)) & -! JVS(474) = Jac_FULL(36,216) - JVS(474) = 0.25*B(1244)+B(1774) +! JVS(474) = Jac_FULL(39,189) + JVS(474) = 0.25*B(1302) IF (DO_JVS(475)) & -! JVS(475) = Jac_FULL(36,220) - JVS(475) = 0.18*B(1342) +! JVS(475) = Jac_FULL(39,190) + JVS(475) = B(1260)+0.571*B(1781) IF (DO_JVS(476)) & -! JVS(476) = Jac_FULL(36,221) - JVS(476) = 0.26*B(1465)+0.5*B(1467) +! JVS(476) = Jac_FULL(39,191) + JVS(476) = 0.25*B(1023) IF (DO_JVS(477)) & -! JVS(477) = Jac_FULL(36,225) - JVS(477) = B(1808) +! JVS(477) = Jac_FULL(39,194) + JVS(477) = 0.1*B(733) IF (DO_JVS(478)) & -! JVS(478) = Jac_FULL(36,227) - JVS(478) = B(1264)+0.5*B(1766) +! JVS(478) = Jac_FULL(39,195) + JVS(478) = 0.33*B(1025) IF (DO_JVS(479)) & -! JVS(479) = Jac_FULL(36,230) - JVS(479) = 0.45*B(1001)+0.888*B(1779) +! JVS(479) = Jac_FULL(39,197) + JVS(479) = 0.75*B(1258)+0.875*B(1782) IF (DO_JVS(480)) & -! JVS(480) = Jac_FULL(36,231) - JVS(480) = 0.37*B(1003)+0.818*B(1780) +! JVS(480) = Jac_FULL(39,201) + JVS(480) = B(160)+B(162) IF (DO_JVS(481)) & -! JVS(481) = Jac_FULL(36,233) - JVS(481) = 0.7*B(1660) +! JVS(481) = Jac_FULL(39,202) + JVS(481) = 0.054*B(1029) IF (DO_JVS(482)) & -! JVS(482) = Jac_FULL(36,238) - JVS(482) = 0.638*B(1009) +! JVS(482) = Jac_FULL(39,203) + JVS(482) = 0.12*B(1348) IF (DO_JVS(483)) & -! JVS(483) = Jac_FULL(36,243) - JVS(483) = 0.52*B(1078)+0.8*B(1082)+2*B(1084) +! JVS(483) = Jac_FULL(39,204) + JVS(483) = 0.25*B(1470)+0.5*B(1472)+0.05*B(1474) IF (DO_JVS(484)) & -! JVS(484) = Jac_FULL(36,248) - JVS(484) = B(1773) +! JVS(484) = Jac_FULL(39,207) + JVS(484) = B(1815) IF (DO_JVS(485)) & -! JVS(485) = Jac_FULL(36,253) - JVS(485) = 0.507*B(1276)+B(1282)+0.86*B(1283) +! JVS(485) = Jac_FULL(39,211) + JVS(485) = 2*B(1266)+B(1778) IF (DO_JVS(486)) & -! JVS(486) = Jac_FULL(36,255) - JVS(486) = B(1817) +! JVS(486) = Jac_FULL(39,213) + JVS(486) = 0.036*B(1027) IF (DO_JVS(487)) & -! JVS(487) = Jac_FULL(36,258) - JVS(487) = B(1306)+B(1792)+0.163*B(1793) +! JVS(487) = Jac_FULL(39,214) + JVS(487) = B(1326)+B(1775) IF (DO_JVS(488)) & -! JVS(488) = Jac_FULL(36,259) - JVS(488) = 0.325*B(1278)+0.65*B(1287) +! JVS(488) = Jac_FULL(39,218) + JVS(488) = 1.5*B(1011) IF (DO_JVS(489)) & -! JVS(489) = Jac_FULL(36,261) - JVS(489) = B(1749) +! JVS(489) = Jac_FULL(39,220) + JVS(489) = 0.25*B(1244)+B(1787) IF (DO_JVS(490)) & -! JVS(490) = Jac_FULL(36,266) - JVS(490) = B(1314)+B(1800) +! JVS(490) = Jac_FULL(39,223) + JVS(490) = 0.18*B(1342) IF (DO_JVS(491)) & -! JVS(491) = Jac_FULL(36,267) - JVS(491) = 0.6*B(1111)+0.55*B(1786) +! JVS(491) = Jac_FULL(39,224) + JVS(491) = 0.26*B(1465)+0.5*B(1467) IF (DO_JVS(492)) & -! JVS(492) = Jac_FULL(36,268) - JVS(492) = 0.6*B(1109)+0.55*B(1783) +! JVS(492) = Jac_FULL(39,227) + JVS(492) = B(1821) IF (DO_JVS(493)) & -! JVS(493) = Jac_FULL(36,269) - JVS(493) = 0.15*B(1457)+0.15*B(1459)+B(1805) +! JVS(493) = Jac_FULL(39,229) + JVS(493) = 0.7*B(1673) IF (DO_JVS(494)) & -! JVS(494) = Jac_FULL(36,270) - JVS(494) = 2*B(312)+2*B(316)+2*B(1667)+2*B(1668)+B(1669) +! JVS(494) = Jac_FULL(39,230) + JVS(494) = B(1264)+0.5*B(1779) IF (DO_JVS(495)) & -! JVS(495) = Jac_FULL(36,276) - JVS(495) = 0.407*B(947)+0.6*B(953)+0.9*B(955) +! JVS(495) = Jac_FULL(39,231) + JVS(495) = 0.37*B(1003)+0.818*B(1793) IF (DO_JVS(496)) & -! JVS(496) = Jac_FULL(36,285) - JVS(496) = B(1071)+0.2*B(1072)+0.13*B(1076) +! JVS(496) = Jac_FULL(39,233) + JVS(496) = 0.45*B(1001)+0.888*B(1792) IF (DO_JVS(497)) & -! JVS(497) = Jac_FULL(36,286) - JVS(497) = B(1063)+0.13*B(1064)+0.2*B(1066) +! JVS(497) = Jac_FULL(39,242) + JVS(497) = 0.638*B(1009) IF (DO_JVS(498)) & -! JVS(498) = Jac_FULL(36,287) - JVS(498) = 0.77*B(1240)+0.77*B(1770) +! JVS(498) = Jac_FULL(39,245) + JVS(498) = 0.52*B(1078)+0.8*B(1082)+2*B(1084) IF (DO_JVS(499)) & -! JVS(499) = Jac_FULL(36,290) - JVS(499) = 0.56*B(287) +! JVS(499) = Jac_FULL(39,251) + JVS(499) = B(1786) IF (DO_JVS(500)) & -! JVS(500) = Jac_FULL(36,294) - JVS(500) = B(314)+B(318)+B(1670) +! JVS(500) = Jac_FULL(39,256) + JVS(500) = B(1830) IF (DO_JVS(501)) & -! JVS(501) = Jac_FULL(36,295) - JVS(501) = B(1664) +! JVS(501) = Jac_FULL(39,257) + JVS(501) = 0.507*B(1276)+B(1282)+0.86*B(1283) IF (DO_JVS(502)) & -! JVS(502) = Jac_FULL(36,298) - JVS(502) = B(1662) +! JVS(502) = Jac_FULL(39,259) + JVS(502) = B(1306)+B(1805)+0.163*B(1806) IF (DO_JVS(503)) & -! JVS(503) = Jac_FULL(36,301) - JVS(503) = 0.539*B(1212)+0.839*B(1790) +! JVS(503) = Jac_FULL(39,262) + JVS(503) = 0.325*B(1278)+0.65*B(1287) IF (DO_JVS(504)) & -! JVS(504) = Jac_FULL(36,304) - JVS(504) = 0.9*B(968)+B(974)+B(975)+0.5*B(983)+0.55*B(999) +! JVS(504) = Jac_FULL(39,265) + JVS(504) = B(1762) IF (DO_JVS(505)) & -! JVS(505) = Jac_FULL(36,305) - JVS(505) = 0.6*B(966)+B(973)+B(976)+0.5*B(979)+0.55*B(991) +! JVS(505) = Jac_FULL(39,269) + JVS(505) = B(1314)+B(1813) IF (DO_JVS(506)) & -! JVS(506) = Jac_FULL(36,306) - JVS(506) = 0.505*B(289)+B(291)+B(1666) +! JVS(506) = Jac_FULL(39,270) + JVS(506) = 0.6*B(1111)+0.55*B(1799) IF (DO_JVS(507)) & -! JVS(507) = Jac_FULL(36,307) - JVS(507) = 0.5*B(322) +! JVS(507) = Jac_FULL(39,271) + JVS(507) = 0.6*B(1109)+0.55*B(1796) IF (DO_JVS(508)) & -! JVS(508) = Jac_FULL(36,309) - JVS(508) = 0.036*B(1228)+0.12*B(1232)+0.68*B(1234)+B(1674) +! JVS(508) = Jac_FULL(39,272) + JVS(508) = 0.15*B(1457)+0.15*B(1459)+B(1818) IF (DO_JVS(509)) & -! JVS(509) = Jac_FULL(36,314) - JVS(509) = 0.28*B(1226)+B(1671)+B(1672) +! JVS(509) = Jac_FULL(39,274) + JVS(509) = 2*B(312)+2*B(316)+2*B(1680)+2*B(1681)+B(1682) IF (DO_JVS(510)) & -! JVS(510) = Jac_FULL(36,325) - JVS(510) = B(63)+B(93)+B(413)+B(485)+B(565)+B(1647)+B(1648) +! JVS(510) = Jac_FULL(39,279) + JVS(510) = 0.407*B(947)+0.6*B(953)+0.9*B(955) IF (DO_JVS(511)) & -! JVS(511) = Jac_FULL(36,326) - JVS(511) = 0.05*B(95)+0.88*B(1656)+B(1657) +! JVS(511) = Jac_FULL(39,288) + JVS(511) = B(1071)+0.2*B(1072)+0.13*B(1076) IF (DO_JVS(512)) & -! JVS(512) = Jac_FULL(36,328) - JVS(512) = 0.5*B(980)+0.5*B(984) +! JVS(512) = Jac_FULL(39,289) + JVS(512) = B(1063)+0.13*B(1064)+0.2*B(1066) IF (DO_JVS(513)) & -! JVS(513) = Jac_FULL(36,337) - JVS(513) = B(159)+B(161)+0.13*B(1065)+0.13*B(1077)+0.52*B(1079)+0.33*B(1217)+0.507*B(1277)+0.325*B(1279) +! JVS(513) = Jac_FULL(39,290) + JVS(513) = 0.77*B(1240)+0.77*B(1783) IF (DO_JVS(514)) & -! JVS(514) = Jac_FULL(36,340) - JVS(514) = B(566)+B(606)+B(608)+B(610) +! JVS(514) = Jac_FULL(39,293) + JVS(514) = 0.56*B(287) IF (DO_JVS(515)) & -! JVS(515) = Jac_FULL(36,341) - JVS(515) = 0.56*B(288)+0.15*B(726)+0.1*B(734)+0.407*B(948)+0.28*B(1227)+0.12*B(1233)+0.18*B(1343)+0.5*B(1468)+0.5& - &*B(1473) +! JVS(515) = Jac_FULL(39,297) + JVS(515) = B(1677) IF (DO_JVS(516)) & -! JVS(516) = Jac_FULL(36,342) - JVS(516) = B(414) +! JVS(516) = Jac_FULL(39,298) + JVS(516) = B(314)+B(318)+B(1683) IF (DO_JVS(517)) & -! JVS(517) = Jac_FULL(36,343) - JVS(517) = B(458)+B(486) +! JVS(517) = Jac_FULL(39,302) + JVS(517) = B(1675) IF (DO_JVS(518)) & -! JVS(518) = Jac_FULL(36,345) - JVS(518) = B(64)+0.05*B(96)+B(103)+B(153)+B(168)+B(207)+B(242)+0.505*B(290)+B(292)+B(307)+2*B(313)+B(315)+0.5*B(323)& - &+0.6*B(954)+0.9*B(956)+0.45*B(1002)+0.37*B(1004)+0.42*B(1006)+0.23*B(1008)+0.638*B(1010)+1.5*B(1012)+B(1014)& - &+0.25*B(1024)+0.33*B(1026)+0.036*B(1028)+0.054*B(1030)+0.6*B(1110)+0.6*B(1112)+0.539*B(1213)+0.036*B(1229)& - &+0.77*B(1241)+0.25*B(1245)+0.75*B(1259)+B(1261)+B(1265)+2*B(1267)+0.84*B(1269)+0.488*B(1281)+0.25*B(1303)& - &+B(1305)+B(1307)+0.888*B(1309)+B(1315)+B(1327)+0.12*B(1349)+0.364*B(1363)+0.2*B(1382)+0.27*B(1384)+0.3& - &*B(1386)+2*B(1413)+0.15*B(1458)+0.26*B(1466)+0.25*B(1471) +! JVS(518) = Jac_FULL(39,305) + JVS(518) = 0.539*B(1212)+0.839*B(1803) IF (DO_JVS(519)) & -! JVS(519) = Jac_FULL(36,346) - JVS(519) = B(157)+B(163)+0.55*B(992)+0.55*B(1000)+0.2*B(1067)+0.2*B(1073)+0.8*B(1083)+0.33*B(1215)+0.86*B(1284)+0.65& - &*B(1288) +! JVS(519) = Jac_FULL(39,309) + JVS(519) = 0.505*B(289)+B(291)+B(1679) IF (DO_JVS(520)) & -! JVS(520) = Jac_FULL(36,351) - JVS(520) = B(94)+2*B(317)+B(319)+0.68*B(1235)+0.15*B(1460) +! JVS(520) = Jac_FULL(39,311) + JVS(520) = 0.5*B(322) IF (DO_JVS(521)) & -! JVS(521) = Jac_FULL(37,37) - JVS(521) = 0 +! JVS(521) = Jac_FULL(39,313) + JVS(521) = 0.036*B(1228)+0.12*B(1232)+0.68*B(1234)+B(1687) IF (DO_JVS(522)) & -! JVS(522) = Jac_FULL(37,241) - JVS(522) = B(705) +! JVS(522) = Jac_FULL(39,314) + JVS(522) = 0.6*B(966)+B(973)+B(975)+0.5*B(979)+0.55*B(991) IF (DO_JVS(523)) & -! JVS(523) = Jac_FULL(37,312) - JVS(523) = B(691) +! JVS(523) = Jac_FULL(39,315) + JVS(523) = 0.9*B(968)+B(974)+B(976)+0.5*B(983)+0.55*B(999) IF (DO_JVS(524)) & -! JVS(524) = Jac_FULL(37,329) - JVS(524) = B(45)+B(692)+B(706) +! JVS(524) = Jac_FULL(39,318) + JVS(524) = 0.28*B(1226)+B(1684)+B(1685) IF (DO_JVS(525)) & -! JVS(525) = Jac_FULL(37,345) - JVS(525) = B(46) +! JVS(525) = Jac_FULL(39,329) + JVS(525) = B(63)+B(93)+B(413)+B(485)+B(565)+B(1660)+B(1661) IF (DO_JVS(526)) & -! JVS(526) = Jac_FULL(38,38) - JVS(526) = 0 +! JVS(526) = Jac_FULL(39,330) + JVS(526) = 0.05*B(95)+0.88*B(1669)+B(1670) IF (DO_JVS(527)) & -! JVS(527) = Jac_FULL(38,89) - JVS(527) = 2*B(23) +! JVS(527) = Jac_FULL(39,334) + JVS(527) = 0.5*B(980)+0.5*B(984) IF (DO_JVS(528)) & -! JVS(528) = Jac_FULL(38,179) - JVS(528) = B(1) +! JVS(528) = Jac_FULL(39,338) + JVS(528) = B(157)+B(163)+0.55*B(992)+0.55*B(1000)+0.2*B(1067)+0.2*B(1073)+0.8*B(1083)+0.33*B(1215)+0.86*B(1284)+0.65& + &*B(1288) IF (DO_JVS(529)) & -! JVS(529) = Jac_FULL(38,241) - JVS(529) = B(711) +! JVS(529) = Jac_FULL(39,341) + JVS(529) = B(159)+B(161)+0.13*B(1065)+0.13*B(1077)+0.52*B(1079)+0.33*B(1217)+0.507*B(1277)+0.325*B(1279) IF (DO_JVS(530)) & -! JVS(530) = Jac_FULL(38,264) - JVS(530) = B(15) +! JVS(530) = Jac_FULL(39,342) + JVS(530) = B(414) IF (DO_JVS(531)) & -! JVS(531) = Jac_FULL(38,312) - JVS(531) = B(703) +! JVS(531) = Jac_FULL(39,343) + JVS(531) = B(64)+0.05*B(96)+B(103)+B(153)+B(168)+B(207)+B(242)+0.505*B(290)+B(292)+B(307)+2*B(313)+B(315)+0.5*B(323)& + &+0.6*B(954)+0.9*B(956)+0.45*B(1002)+0.37*B(1004)+0.42*B(1006)+0.23*B(1008)+0.638*B(1010)+1.5*B(1012)+B(1014)& + &+0.25*B(1024)+0.33*B(1026)+0.036*B(1028)+0.054*B(1030)+0.6*B(1110)+0.6*B(1112)+0.539*B(1213)+0.036*B(1229)& + &+0.77*B(1241)+0.25*B(1245)+0.75*B(1259)+B(1261)+B(1265)+2*B(1267)+0.84*B(1269)+0.488*B(1281)+0.25*B(1303)& + &+B(1305)+B(1307)+0.888*B(1309)+B(1315)+B(1327)+0.12*B(1349)+0.364*B(1363)+0.2*B(1382)+0.27*B(1384)+0.3& + &*B(1386)+2*B(1413)+0.15*B(1458)+0.26*B(1466)+0.25*B(1471) IF (DO_JVS(532)) & -! JVS(532) = Jac_FULL(38,316) - JVS(532) = B(1561) +! JVS(532) = Jac_FULL(39,348) + JVS(532) = B(94)+2*B(317)+B(319)+0.68*B(1235)+0.15*B(1460) IF (DO_JVS(533)) & -! JVS(533) = Jac_FULL(38,333) - JVS(533) = B(1547) +! JVS(533) = Jac_FULL(39,351) + JVS(533) = B(458)+B(486) IF (DO_JVS(534)) & -! JVS(534) = Jac_FULL(38,341) - JVS(534) = B(2)+B(17) +! JVS(534) = Jac_FULL(39,352) + JVS(534) = B(566)+B(606)+B(608)+B(610) IF (DO_JVS(535)) & -! JVS(535) = Jac_FULL(38,345) - JVS(535) = 2*B(24)+B(387) +! JVS(535) = Jac_FULL(39,356) + JVS(535) = 0.56*B(288)+0.15*B(726)+0.1*B(734)+0.407*B(948)+0.28*B(1227)+0.12*B(1233)+0.18*B(1343)+0.5*B(1468)+0.5& + &*B(1473) IF (DO_JVS(536)) & -! JVS(536) = Jac_FULL(38,348) - JVS(536) = B(3)+B(16)+B(18)+B(19)+2*B(25)+B(388)+B(704)+B(712)+B(1548)+B(1562) +! JVS(536) = Jac_FULL(40,40) + JVS(536) = 0 IF (DO_JVS(537)) & -! JVS(537) = Jac_FULL(39,39) - JVS(537) = 0 +! JVS(537) = Jac_FULL(40,244) + JVS(537) = B(705) IF (DO_JVS(538)) & -! JVS(538) = Jac_FULL(39,228) - JVS(538) = B(47)+B(443)+B(563) +! JVS(538) = Jac_FULL(40,317) + JVS(538) = B(691) IF (DO_JVS(539)) & -! JVS(539) = Jac_FULL(39,334) - JVS(539) = B(444) +! JVS(539) = Jac_FULL(40,335) + JVS(539) = B(45)+B(692)+B(706) IF (DO_JVS(540)) & -! JVS(540) = Jac_FULL(39,340) - JVS(540) = B(564) +! JVS(540) = Jac_FULL(40,343) + JVS(540) = B(46) IF (DO_JVS(541)) & -! JVS(541) = Jac_FULL(39,345) - JVS(541) = B(48) +! JVS(541) = Jac_FULL(41,41) + JVS(541) = 0 IF (DO_JVS(542)) & -! JVS(542) = Jac_FULL(40,40) - JVS(542) = 0 +! JVS(542) = Jac_FULL(41,93) + JVS(542) = 2*B(23)+2*B(1651) IF (DO_JVS(543)) & -! JVS(543) = Jac_FULL(40,241) - JVS(543) = B(713) +! JVS(543) = Jac_FULL(41,183) + JVS(543) = B(1) IF (DO_JVS(544)) & -! JVS(544) = Jac_FULL(40,276) - JVS(544) = 0.013*B(947) +! JVS(544) = Jac_FULL(41,244) + JVS(544) = B(711) IF (DO_JVS(545)) & -! JVS(545) = Jac_FULL(40,312) - JVS(545) = 0.06*B(697)+0.06*B(699) +! JVS(545) = Jac_FULL(41,267) + JVS(545) = B(15)+B(1641) IF (DO_JVS(546)) & -! JVS(546) = Jac_FULL(40,314) - JVS(546) = 0.045*B(1226) +! JVS(546) = Jac_FULL(41,317) + JVS(546) = B(703) IF (DO_JVS(547)) & -! JVS(547) = Jac_FULL(40,336) - JVS(547) = 0.06*B(698)+0.06*B(700)+B(714) +! JVS(547) = Jac_FULL(41,320) + JVS(547) = B(1561) IF (DO_JVS(548)) & -! JVS(548) = Jac_FULL(40,337) - JVS(548) = B(44) +! JVS(548) = Jac_FULL(41,332) + JVS(548) = B(1547) IF (DO_JVS(549)) & -! JVS(549) = Jac_FULL(40,341) - JVS(549) = 0.013*B(948)+0.045*B(1227) +! JVS(549) = Jac_FULL(41,343) + JVS(549) = 2*B(24)+B(387)+2*B(1652) IF (DO_JVS(550)) & -! JVS(550) = Jac_FULL(40,345) - JVS(550) = B(37) +! JVS(550) = Jac_FULL(41,345) + JVS(550) = B(1646) IF (DO_JVS(551)) & -! JVS(551) = Jac_FULL(41,41) - JVS(551) = -B(1489) +! JVS(551) = Jac_FULL(41,355) + JVS(551) = B(2)+B(16)+B(17)+B(19)+2*B(25)+B(388)+B(704)+B(712)+B(1548)+B(1562)+B(1642)+B(1643)+B(1645)+B(1647)+2& + &*B(1653) IF (DO_JVS(552)) & -! JVS(552) = Jac_FULL(41,345) - JVS(552) = -B(1490) +! JVS(552) = Jac_FULL(41,356) + JVS(552) = B(3)+B(18)+B(1644) IF (DO_JVS(553)) & ! JVS(553) = Jac_FULL(42,42) - JVS(553) = -B(664)-B(1582)-B(1583)-B(1584)-B(1737) + JVS(553) = 0 IF (DO_JVS(554)) & -! JVS(554) = Jac_FULL(42,96) - JVS(554) = B(663) +! JVS(554) = Jac_FULL(42,232) + JVS(554) = B(47)+B(443)+B(563) IF (DO_JVS(555)) & -! JVS(555) = Jac_FULL(43,43) - JVS(555) = -B(553)-B(1710) +! JVS(555) = Jac_FULL(42,337) + JVS(555) = B(444) IF (DO_JVS(556)) & -! JVS(556) = Jac_FULL(43,345) - JVS(556) = -B(554) +! JVS(556) = Jac_FULL(42,343) + JVS(556) = B(48) IF (DO_JVS(557)) & -! JVS(557) = Jac_FULL(44,44) - JVS(557) = -B(684)-B(1576)-B(1577)-B(1578)-B(1732) +! JVS(557) = Jac_FULL(42,352) + JVS(557) = B(564) IF (DO_JVS(558)) & -! JVS(558) = Jac_FULL(44,284) - JVS(558) = 0.6*B(683) +! JVS(558) = Jac_FULL(43,43) + JVS(558) = 0 IF (DO_JVS(559)) & -! JVS(559) = Jac_FULL(45,45) - JVS(559) = -B(936) +! JVS(559) = Jac_FULL(43,244) + JVS(559) = B(713) IF (DO_JVS(560)) & -! JVS(560) = Jac_FULL(45,154) - JVS(560) = B(1625) +! JVS(560) = Jac_FULL(43,279) + JVS(560) = 0.013*B(947) IF (DO_JVS(561)) & -! JVS(561) = Jac_FULL(45,242) - JVS(561) = B(1624) +! JVS(561) = Jac_FULL(43,317) + JVS(561) = 0.06*B(697)+0.06*B(699) IF (DO_JVS(562)) & -! JVS(562) = Jac_FULL(45,256) - JVS(562) = B(1623) +! JVS(562) = Jac_FULL(43,318) + JVS(562) = 0.045*B(1226) IF (DO_JVS(563)) & -! JVS(563) = Jac_FULL(46,46) - JVS(563) = -0.79*B(493)-B(1711) +! JVS(563) = Jac_FULL(43,341) + JVS(563) = B(44) IF (DO_JVS(564)) & -! JVS(564) = Jac_FULL(46,334) - JVS(564) = -0.79*B(494) +! JVS(564) = Jac_FULL(43,343) + JVS(564) = B(37) IF (DO_JVS(565)) & -! JVS(565) = Jac_FULL(47,47) - JVS(565) = -0.9*B(505)-B(1712) +! JVS(565) = Jac_FULL(43,353) + JVS(565) = 0.06*B(698)+0.06*B(700)+B(714) IF (DO_JVS(566)) & -! JVS(566) = Jac_FULL(47,334) - JVS(566) = -0.9*B(506) +! JVS(566) = Jac_FULL(43,356) + JVS(566) = 0.013*B(948)+0.045*B(1227) IF (DO_JVS(567)) & -! JVS(567) = Jac_FULL(48,48) - JVS(567) = -0.86*B(507)-B(1713) +! JVS(567) = Jac_FULL(44,44) + JVS(567) = -B(1489) IF (DO_JVS(568)) & -! JVS(568) = Jac_FULL(48,334) - JVS(568) = -0.86*B(508) +! JVS(568) = Jac_FULL(44,343) + JVS(568) = -B(1490) IF (DO_JVS(569)) & -! JVS(569) = Jac_FULL(49,49) - JVS(569) = -0.9*B(519)-B(1714) +! JVS(569) = Jac_FULL(45,45) + JVS(569) = -B(664)-B(1582)-B(1583)-B(1584)-B(1750) IF (DO_JVS(570)) & -! JVS(570) = Jac_FULL(49,334) - JVS(570) = -0.9*B(520) +! JVS(570) = Jac_FULL(45,98) + JVS(570) = B(663) IF (DO_JVS(571)) & -! JVS(571) = Jac_FULL(50,50) - JVS(571) = -0.9*B(521)-B(1715) +! JVS(571) = Jac_FULL(46,46) + JVS(571) = -B(553)-B(1723) IF (DO_JVS(572)) & -! JVS(572) = Jac_FULL(50,334) - JVS(572) = -0.9*B(522) +! JVS(572) = Jac_FULL(46,343) + JVS(572) = -B(554) IF (DO_JVS(573)) & -! JVS(573) = Jac_FULL(51,51) - JVS(573) = -0.86*B(523)-B(1716) +! JVS(573) = Jac_FULL(47,47) + JVS(573) = -B(684)-B(1576)-B(1577)-B(1578)-B(1745) IF (DO_JVS(574)) & -! JVS(574) = Jac_FULL(51,334) - JVS(574) = -0.86*B(524) +! JVS(574) = Jac_FULL(47,336) + JVS(574) = 0.6*B(683) IF (DO_JVS(575)) & -! JVS(575) = Jac_FULL(52,52) - JVS(575) = -B(685)-B(1733) +! JVS(575) = Jac_FULL(48,48) + JVS(575) = -B(936) IF (DO_JVS(576)) & -! JVS(576) = Jac_FULL(52,345) - JVS(576) = -B(686) +! JVS(576) = Jac_FULL(48,156) + JVS(576) = B(1625) IF (DO_JVS(577)) & -! JVS(577) = Jac_FULL(53,53) - JVS(577) = -0.45*B(511)-B(1721) +! JVS(577) = Jac_FULL(48,246) + JVS(577) = B(1624) IF (DO_JVS(578)) & -! JVS(578) = Jac_FULL(53,334) - JVS(578) = -0.45*B(512) +! JVS(578) = Jac_FULL(48,260) + JVS(578) = B(1623) IF (DO_JVS(579)) & -! JVS(579) = Jac_FULL(54,54) - JVS(579) = -0.75*B(525)-B(1723) +! JVS(579) = Jac_FULL(49,49) + JVS(579) = -0.79*B(493)-B(1724) IF (DO_JVS(580)) & -! JVS(580) = Jac_FULL(54,334) - JVS(580) = -0.75*B(526) +! JVS(580) = Jac_FULL(49,337) + JVS(580) = -0.79*B(494) IF (DO_JVS(581)) & -! JVS(581) = Jac_FULL(55,55) - JVS(581) = -B(1579)-B(1580)-B(1581)-B(1738) +! JVS(581) = Jac_FULL(50,50) + JVS(581) = -0.9*B(505)-B(1725) IF (DO_JVS(582)) & -! JVS(582) = Jac_FULL(55,96) - JVS(582) = B(661) +! JVS(582) = Jac_FULL(50,337) + JVS(582) = -0.9*B(506) IF (DO_JVS(583)) & -! JVS(583) = Jac_FULL(55,284) - JVS(583) = B(662) +! JVS(583) = Jac_FULL(51,51) + JVS(583) = -0.86*B(507)-B(1726) IF (DO_JVS(584)) & -! JVS(584) = Jac_FULL(56,56) - JVS(584) = -B(755) +! JVS(584) = Jac_FULL(51,337) + JVS(584) = -0.86*B(508) IF (DO_JVS(585)) & -! JVS(585) = Jac_FULL(56,257) - JVS(585) = B(753) +! JVS(585) = Jac_FULL(52,52) + JVS(585) = -0.9*B(519)-B(1727) IF (DO_JVS(586)) & -! JVS(586) = Jac_FULL(56,335) - JVS(586) = B(754) +! JVS(586) = Jac_FULL(52,337) + JVS(586) = -0.9*B(520) IF (DO_JVS(587)) & -! JVS(587) = Jac_FULL(57,57) - JVS(587) = -B(844) +! JVS(587) = Jac_FULL(53,53) + JVS(587) = -0.9*B(521)-B(1728) IF (DO_JVS(588)) & -! JVS(588) = Jac_FULL(57,274) - JVS(588) = B(842) +! JVS(588) = Jac_FULL(53,337) + JVS(588) = -0.9*B(522) IF (DO_JVS(589)) & -! JVS(589) = Jac_FULL(57,335) - JVS(589) = B(843) +! JVS(589) = Jac_FULL(54,54) + JVS(589) = -0.86*B(523)-B(1729) IF (DO_JVS(590)) & -! JVS(590) = Jac_FULL(58,58) - JVS(590) = -B(1397) +! JVS(590) = Jac_FULL(54,337) + JVS(590) = -0.86*B(524) IF (DO_JVS(591)) & -! JVS(591) = Jac_FULL(58,200) - JVS(591) = 0.15*B(1348) +! JVS(591) = Jac_FULL(55,55) + JVS(591) = -B(685)-B(1746) IF (DO_JVS(592)) & -! JVS(592) = Jac_FULL(58,345) - JVS(592) = 0.15*B(1349)-B(1398) +! JVS(592) = Jac_FULL(55,343) + JVS(592) = -B(686) IF (DO_JVS(593)) & -! JVS(593) = Jac_FULL(59,59) - JVS(593) = -B(1695) +! JVS(593) = Jac_FULL(56,56) + JVS(593) = -0.45*B(511)-B(1734) IF (DO_JVS(594)) & -! JVS(594) = Jac_FULL(59,335) - JVS(594) = B(423) +! JVS(594) = Jac_FULL(56,337) + JVS(594) = -0.45*B(512) IF (DO_JVS(595)) & -! JVS(595) = Jac_FULL(59,342) - JVS(595) = B(424) +! JVS(595) = Jac_FULL(57,57) + JVS(595) = -0.75*B(525)-B(1736) IF (DO_JVS(596)) & -! JVS(596) = Jac_FULL(60,60) - JVS(596) = -B(1362) +! JVS(596) = Jac_FULL(57,337) + JVS(596) = -0.75*B(526) IF (DO_JVS(597)) & -! JVS(597) = Jac_FULL(60,345) - JVS(597) = -B(1363) +! JVS(597) = Jac_FULL(58,58) + JVS(597) = -B(1579)-B(1580)-B(1581)-B(1751) IF (DO_JVS(598)) & -! JVS(598) = Jac_FULL(61,61) - JVS(598) = -0.65*B(509)-B(1722) +! JVS(598) = Jac_FULL(58,98) + JVS(598) = B(661) IF (DO_JVS(599)) & -! JVS(599) = Jac_FULL(61,334) - JVS(599) = -0.65*B(510) +! JVS(599) = Jac_FULL(58,336) + JVS(599) = B(662) IF (DO_JVS(600)) & -! JVS(600) = Jac_FULL(62,62) - JVS(600) = -2*B(645)-B(1729) +! JVS(600) = Jac_FULL(59,59) + JVS(600) = -B(755) IF (DO_JVS(601)) & -! JVS(601) = Jac_FULL(62,331) - JVS(601) = B(643) +! JVS(601) = Jac_FULL(59,261) + JVS(601) = B(753) IF (DO_JVS(602)) & -! JVS(602) = Jac_FULL(62,346) - JVS(602) = B(644) +! JVS(602) = Jac_FULL(59,345) + JVS(602) = B(754) IF (DO_JVS(603)) & -! JVS(603) = Jac_FULL(63,63) - JVS(603) = -B(441)-B(1744) +! JVS(603) = Jac_FULL(60,60) + JVS(603) = -B(844) IF (DO_JVS(604)) & -! JVS(604) = Jac_FULL(63,67) - JVS(604) = B(481) +! JVS(604) = Jac_FULL(60,277) + JVS(604) = B(842) IF (DO_JVS(605)) & -! JVS(605) = Jac_FULL(63,334) - JVS(605) = -B(442) +! JVS(605) = Jac_FULL(60,345) + JVS(605) = B(843) IF (DO_JVS(606)) & -! JVS(606) = Jac_FULL(63,335) - JVS(606) = B(482) +! JVS(606) = Jac_FULL(61,61) + JVS(606) = -B(1397) IF (DO_JVS(607)) & -! JVS(607) = Jac_FULL(64,64) - JVS(607) = -B(1755)-B(1756) +! JVS(607) = Jac_FULL(61,203) + JVS(607) = 0.15*B(1348) IF (DO_JVS(608)) & -! JVS(608) = Jac_FULL(64,179) - JVS(608) = B(6) +! JVS(608) = Jac_FULL(61,343) + JVS(608) = 0.15*B(1349)-B(1398) IF (DO_JVS(609)) & -! JVS(609) = Jac_FULL(64,327) - JVS(609) = B(7) +! JVS(609) = Jac_FULL(62,62) + JVS(609) = -B(1708) IF (DO_JVS(610)) & -! JVS(610) = Jac_FULL(64,351) - JVS(610) = B(1494) +! JVS(610) = Jac_FULL(62,342) + JVS(610) = B(423) IF (DO_JVS(611)) & -! JVS(611) = Jac_FULL(65,65) - JVS(611) = -B(1753)-B(1754) +! JVS(611) = Jac_FULL(62,345) + JVS(611) = B(424) IF (DO_JVS(612)) & -! JVS(612) = Jac_FULL(65,166) - JVS(612) = B(13) +! JVS(612) = Jac_FULL(63,63) + JVS(612) = -B(1362) IF (DO_JVS(613)) & -! JVS(613) = Jac_FULL(65,327) - JVS(613) = B(14) +! JVS(613) = Jac_FULL(63,343) + JVS(613) = -B(1363) IF (DO_JVS(614)) & -! JVS(614) = Jac_FULL(65,351) - JVS(614) = B(1495) +! JVS(614) = Jac_FULL(64,64) + JVS(614) = -0.65*B(509)-B(1735) IF (DO_JVS(615)) & -! JVS(615) = Jac_FULL(66,66) - JVS(615) = -B(760)-B(1810) +! JVS(615) = Jac_FULL(64,337) + JVS(615) = -0.65*B(510) IF (DO_JVS(616)) & -! JVS(616) = Jac_FULL(66,257) - JVS(616) = 0.15*B(749)+0.25*B(893) +! JVS(616) = Jac_FULL(65,65) + JVS(616) = -2*B(645)-B(1742) IF (DO_JVS(617)) & -! JVS(617) = Jac_FULL(66,328) - JVS(617) = 0.25*B(894) +! JVS(617) = Jac_FULL(65,331) + JVS(617) = B(643) IF (DO_JVS(618)) & -! JVS(618) = Jac_FULL(66,337) - JVS(618) = 0.15*B(750) +! JVS(618) = Jac_FULL(65,338) + JVS(618) = B(644) IF (DO_JVS(619)) & -! JVS(619) = Jac_FULL(66,345) - JVS(619) = -B(761) +! JVS(619) = Jac_FULL(66,66) + JVS(619) = -B(441)-B(1757) IF (DO_JVS(620)) & -! JVS(620) = Jac_FULL(67,67) - JVS(620) = -B(477)-B(479)-B(481) +! JVS(620) = Jac_FULL(66,70) + JVS(620) = B(481) IF (DO_JVS(621)) & -! JVS(621) = Jac_FULL(67,335) - JVS(621) = -B(482) +! JVS(621) = Jac_FULL(66,337) + JVS(621) = -B(442) IF (DO_JVS(622)) & -! JVS(622) = Jac_FULL(67,346) - JVS(622) = -B(480)+B(1747) +! JVS(622) = Jac_FULL(66,345) + JVS(622) = B(482) IF (DO_JVS(623)) & -! JVS(623) = Jac_FULL(68,68) - JVS(623) = -B(457)-B(459)-B(1745) +! JVS(623) = Jac_FULL(67,67) + JVS(623) = -B(1768)-B(1769) IF (DO_JVS(624)) & -! JVS(624) = Jac_FULL(68,343) - JVS(624) = -B(458) +! JVS(624) = Jac_FULL(67,183) + JVS(624) = B(6) IF (DO_JVS(625)) & -! JVS(625) = Jac_FULL(68,345) - JVS(625) = -B(460) +! JVS(625) = Jac_FULL(67,333) + JVS(625) = B(7) IF (DO_JVS(626)) & -! JVS(626) = Jac_FULL(69,69) - JVS(626) = -B(124)-B(126) +! JVS(626) = Jac_FULL(67,348) + JVS(626) = B(1494) IF (DO_JVS(627)) & -! JVS(627) = Jac_FULL(69,345) - JVS(627) = -B(125) +! JVS(627) = Jac_FULL(68,68) + JVS(627) = -B(1766)-B(1767) IF (DO_JVS(628)) & -! JVS(628) = Jac_FULL(69,351) - JVS(628) = -B(127) +! JVS(628) = Jac_FULL(68,169) + JVS(628) = B(13) IF (DO_JVS(629)) & -! JVS(629) = Jac_FULL(70,70) - JVS(629) = -B(1375) +! JVS(629) = Jac_FULL(68,333) + JVS(629) = B(14) IF (DO_JVS(630)) & -! JVS(630) = Jac_FULL(70,234) - JVS(630) = 0.005*B(1366) +! JVS(630) = Jac_FULL(68,348) + JVS(630) = B(1495) IF (DO_JVS(631)) & -! JVS(631) = Jac_FULL(70,345) - JVS(631) = -B(1376) +! JVS(631) = Jac_FULL(69,69) + JVS(631) = -B(760)-B(1823) IF (DO_JVS(632)) & -! JVS(632) = Jac_FULL(70,346) - JVS(632) = 0.005*B(1367) +! JVS(632) = Jac_FULL(69,261) + JVS(632) = 0.15*B(749)+0.25*B(893) IF (DO_JVS(633)) & -! JVS(633) = Jac_FULL(71,71) - JVS(633) = -B(1438)-B(1803) +! JVS(633) = Jac_FULL(69,334) + JVS(633) = 0.25*B(894) IF (DO_JVS(634)) & -! JVS(634) = Jac_FULL(71,235) - JVS(634) = 0.65*B(1432) +! JVS(634) = Jac_FULL(69,341) + JVS(634) = 0.15*B(750) IF (DO_JVS(635)) & -! JVS(635) = Jac_FULL(71,337) - JVS(635) = 0.65*B(1433) +! JVS(635) = Jac_FULL(69,343) + JVS(635) = -B(761) IF (DO_JVS(636)) & -! JVS(636) = Jac_FULL(71,345) - JVS(636) = -B(1439) +! JVS(636) = Jac_FULL(70,70) + JVS(636) = -B(477)-B(479)-B(481) IF (DO_JVS(637)) & -! JVS(637) = Jac_FULL(72,72) - JVS(637) = -B(308) +! JVS(637) = Jac_FULL(70,338) + JVS(637) = -B(480)+B(1760) IF (DO_JVS(638)) & -! JVS(638) = Jac_FULL(72,213) - JVS(638) = 0.56*B(302) +! JVS(638) = Jac_FULL(70,345) + JVS(638) = -B(482) IF (DO_JVS(639)) & -! JVS(639) = Jac_FULL(72,337) - JVS(639) = 0.56*B(303) +! JVS(639) = Jac_FULL(71,71) + JVS(639) = -B(457)-B(459)-B(1758) IF (DO_JVS(640)) & -! JVS(640) = Jac_FULL(72,345) - JVS(640) = -B(309) +! JVS(640) = Jac_FULL(71,343) + JVS(640) = -B(460) IF (DO_JVS(641)) & -! JVS(641) = Jac_FULL(73,73) - JVS(641) = -B(675)-B(1571)-B(1572)-B(1573) +! JVS(641) = Jac_FULL(71,351) + JVS(641) = -B(458) IF (DO_JVS(642)) & -! JVS(642) = Jac_FULL(73,331) - JVS(642) = B(671) +! JVS(642) = Jac_FULL(72,72) + JVS(642) = -B(124)-B(126) IF (DO_JVS(643)) & -! JVS(643) = Jac_FULL(73,337) - JVS(643) = B(672) +! JVS(643) = Jac_FULL(72,343) + JVS(643) = -B(125) IF (DO_JVS(644)) & -! JVS(644) = Jac_FULL(73,345) - JVS(644) = -B(676) +! JVS(644) = Jac_FULL(72,348) + JVS(644) = -B(127) IF (DO_JVS(645)) & -! JVS(645) = Jac_FULL(74,74) - JVS(645) = -B(758)-B(1809) +! JVS(645) = Jac_FULL(73,73) + JVS(645) = -B(1375) IF (DO_JVS(646)) & -! JVS(646) = Jac_FULL(74,257) - JVS(646) = 0.41*B(749) +! JVS(646) = Jac_FULL(73,239) + JVS(646) = 0.005*B(1366) IF (DO_JVS(647)) & -! JVS(647) = Jac_FULL(74,337) - JVS(647) = 0.41*B(750) +! JVS(647) = Jac_FULL(73,338) + JVS(647) = 0.005*B(1367) IF (DO_JVS(648)) & -! JVS(648) = Jac_FULL(74,345) - JVS(648) = -B(759) +! JVS(648) = Jac_FULL(73,343) + JVS(648) = -B(1376) IF (DO_JVS(649)) & -! JVS(649) = Jac_FULL(75,75) - JVS(649) = -B(551)-B(609) +! JVS(649) = Jac_FULL(74,74) + JVS(649) = -B(308) IF (DO_JVS(650)) & -! JVS(650) = Jac_FULL(75,340) - JVS(650) = -B(610) +! JVS(650) = Jac_FULL(74,216) + JVS(650) = 0.56*B(302) IF (DO_JVS(651)) & -! JVS(651) = Jac_FULL(75,345) - JVS(651) = -B(552) +! JVS(651) = Jac_FULL(74,341) + JVS(651) = 0.56*B(303) IF (DO_JVS(652)) & -! JVS(652) = Jac_FULL(76,76) - JVS(652) = -B(537)-B(592)-B(1705) +! JVS(652) = Jac_FULL(74,343) + JVS(652) = -B(309) IF (DO_JVS(653)) & -! JVS(653) = Jac_FULL(76,338) - JVS(653) = B(591) +! JVS(653) = Jac_FULL(75,75) + JVS(653) = -B(675)-B(1571)-B(1572)-B(1573) IF (DO_JVS(654)) & -! JVS(654) = Jac_FULL(76,345) - JVS(654) = -B(538) +! JVS(654) = Jac_FULL(75,331) + JVS(654) = B(671) IF (DO_JVS(655)) & -! JVS(655) = Jac_FULL(77,77) - JVS(655) = -B(1739) +! JVS(655) = Jac_FULL(75,341) + JVS(655) = B(672) IF (DO_JVS(656)) & -! JVS(656) = Jac_FULL(77,252) - JVS(656) = B(1591)+B(1593) +! JVS(656) = Jac_FULL(75,343) + JVS(656) = -B(676) IF (DO_JVS(657)) & -! JVS(657) = Jac_FULL(77,330) - JVS(657) = B(1607)+B(1609) +! JVS(657) = Jac_FULL(76,76) + JVS(657) = -B(758)-B(1822) IF (DO_JVS(658)) & -! JVS(658) = Jac_FULL(77,332) - JVS(658) = B(1599)+B(1601) +! JVS(658) = Jac_FULL(76,261) + JVS(658) = 0.41*B(749) IF (DO_JVS(659)) & -! JVS(659) = Jac_FULL(77,349) - JVS(659) = B(1592)+B(1600)+B(1608) +! JVS(659) = Jac_FULL(76,341) + JVS(659) = 0.41*B(750) IF (DO_JVS(660)) & -! JVS(660) = Jac_FULL(77,350) - JVS(660) = B(1594)+B(1602)+B(1610) +! JVS(660) = Jac_FULL(76,343) + JVS(660) = -B(759) IF (DO_JVS(661)) & -! JVS(661) = Jac_FULL(78,78) - JVS(661) = -B(429)-0.95*B(499)-B(1697) +! JVS(661) = Jac_FULL(77,77) + JVS(661) = -B(1438)-B(1816) IF (DO_JVS(662)) & -! JVS(662) = Jac_FULL(78,334) - JVS(662) = -0.95*B(500) +! JVS(662) = Jac_FULL(77,237) + JVS(662) = 0.65*B(1432) IF (DO_JVS(663)) & -! JVS(663) = Jac_FULL(78,345) - JVS(663) = -B(430) +! JVS(663) = Jac_FULL(77,341) + JVS(663) = 0.65*B(1433) IF (DO_JVS(664)) & -! JVS(664) = Jac_FULL(79,79) - JVS(664) = -B(549)-B(607)-B(1700) +! JVS(664) = Jac_FULL(77,343) + JVS(664) = -B(1439) IF (DO_JVS(665)) & -! JVS(665) = Jac_FULL(79,340) - JVS(665) = -B(608) +! JVS(665) = Jac_FULL(78,78) + JVS(665) = -B(537)-B(592)-B(1718) IF (DO_JVS(666)) & -! JVS(666) = Jac_FULL(79,345) - JVS(666) = -B(550) +! JVS(666) = Jac_FULL(78,343) + JVS(666) = -B(538) IF (DO_JVS(667)) & -! JVS(667) = Jac_FULL(80,80) - JVS(667) = -B(380)-B(1741)-B(1742) +! JVS(667) = Jac_FULL(78,344) + JVS(667) = B(591) IF (DO_JVS(668)) & -! JVS(668) = Jac_FULL(80,328) - JVS(668) = B(378) +! JVS(668) = Jac_FULL(79,79) + JVS(668) = -B(429)-0.95*B(499)-B(1710) IF (DO_JVS(669)) & -! JVS(669) = Jac_FULL(80,335) - JVS(669) = B(379) +! JVS(669) = Jac_FULL(79,337) + JVS(669) = -0.95*B(500) IF (DO_JVS(670)) & -! JVS(670) = Jac_FULL(81,81) - JVS(670) = -B(427)-0.7*B(501)-B(1696) +! JVS(670) = Jac_FULL(79,343) + JVS(670) = -B(430) IF (DO_JVS(671)) & -! JVS(671) = Jac_FULL(81,334) - JVS(671) = -0.7*B(502) +! JVS(671) = Jac_FULL(80,80) + JVS(671) = -B(549)-B(607)-B(1713) IF (DO_JVS(672)) & -! JVS(672) = Jac_FULL(81,345) - JVS(672) = -B(428) +! JVS(672) = Jac_FULL(80,343) + JVS(672) = -B(550) IF (DO_JVS(673)) & -! JVS(673) = Jac_FULL(82,82) - JVS(673) = -B(1383) +! JVS(673) = Jac_FULL(80,352) + JVS(673) = -B(608) IF (DO_JVS(674)) & -! JVS(674) = Jac_FULL(82,345) - JVS(674) = -B(1384) +! JVS(674) = Jac_FULL(81,81) + JVS(674) = -B(1752) IF (DO_JVS(675)) & -! JVS(675) = Jac_FULL(83,83) - JVS(675) = -B(941)-B(1758) +! JVS(675) = Jac_FULL(81,254) + JVS(675) = B(1591)+B(1593) IF (DO_JVS(676)) & -! JVS(676) = Jac_FULL(83,296) - JVS(676) = B(110) +! JVS(676) = Jac_FULL(81,287) + JVS(676) = B(1607)+B(1609) IF (DO_JVS(677)) & -! JVS(677) = Jac_FULL(83,345) - JVS(677) = -B(942) +! JVS(677) = Jac_FULL(81,296) + JVS(677) = B(1599)+B(1601) IF (DO_JVS(678)) & -! JVS(678) = Jac_FULL(83,346) - JVS(678) = B(111) +! JVS(678) = Jac_FULL(81,349) + JVS(678) = B(1592)+B(1600)+B(1608) IF (DO_JVS(679)) & -! JVS(679) = Jac_FULL(84,84) - JVS(679) = -0.79*B(517)-B(561)-B(1717) +! JVS(679) = Jac_FULL(81,350) + JVS(679) = B(1594)+B(1602)+B(1610) IF (DO_JVS(680)) & -! JVS(680) = Jac_FULL(84,334) - JVS(680) = -0.79*B(518) +! JVS(680) = Jac_FULL(82,82) + JVS(680) = -B(427)-0.7*B(501)-B(1709) IF (DO_JVS(681)) & -! JVS(681) = Jac_FULL(84,345) - JVS(681) = -B(562) +! JVS(681) = Jac_FULL(82,337) + JVS(681) = -0.7*B(502) IF (DO_JVS(682)) & -! JVS(682) = Jac_FULL(85,85) - JVS(682) = -0.69*B(513)-B(557)-B(1718) +! JVS(682) = Jac_FULL(82,343) + JVS(682) = -B(428) IF (DO_JVS(683)) & -! JVS(683) = Jac_FULL(85,334) - JVS(683) = -0.69*B(514) +! JVS(683) = Jac_FULL(83,83) + JVS(683) = -B(380)-B(1754)-B(1755) IF (DO_JVS(684)) & -! JVS(684) = Jac_FULL(85,345) - JVS(684) = -B(558) +! JVS(684) = Jac_FULL(83,334) + JVS(684) = B(378) IF (DO_JVS(685)) & -! JVS(685) = Jac_FULL(86,86) - JVS(685) = -0.65*B(515)-B(559)-B(1719) +! JVS(685) = Jac_FULL(83,345) + JVS(685) = B(379) IF (DO_JVS(686)) & -! JVS(686) = Jac_FULL(86,334) - JVS(686) = -0.65*B(516) +! JVS(686) = Jac_FULL(84,84) + JVS(686) = -B(551)-B(609) IF (DO_JVS(687)) & -! JVS(687) = Jac_FULL(86,345) - JVS(687) = -B(560) +! JVS(687) = Jac_FULL(84,343) + JVS(687) = -B(552) IF (DO_JVS(688)) & -! JVS(688) = Jac_FULL(87,87) - JVS(688) = -0.75*B(503)-B(555)-B(1720) +! JVS(688) = Jac_FULL(84,352) + JVS(688) = -B(610) IF (DO_JVS(689)) & -! JVS(689) = Jac_FULL(87,334) - JVS(689) = -0.75*B(504) +! JVS(689) = Jac_FULL(85,85) + JVS(689) = -B(1383) IF (DO_JVS(690)) & -! JVS(690) = Jac_FULL(87,345) - JVS(690) = -B(556) +! JVS(690) = Jac_FULL(85,343) + JVS(690) = -B(1384) IF (DO_JVS(691)) & -! JVS(691) = Jac_FULL(88,88) - JVS(691) = -B(1322)-B(1761) +! JVS(691) = Jac_FULL(86,86) + JVS(691) = -B(941)-B(1771) IF (DO_JVS(692)) & -! JVS(692) = Jac_FULL(88,312) - JVS(692) = 0.73*B(697)+0.4*B(699) +! JVS(692) = Jac_FULL(86,300) + JVS(692) = B(110) IF (DO_JVS(693)) & -! JVS(693) = Jac_FULL(88,336) - JVS(693) = 0.73*B(698)+0.4*B(700) +! JVS(693) = Jac_FULL(86,338) + JVS(693) = B(111) IF (DO_JVS(694)) & -! JVS(694) = Jac_FULL(88,345) - JVS(694) = -B(1323) +! JVS(694) = Jac_FULL(86,343) + JVS(694) = -B(942) IF (DO_JVS(695)) & -! JVS(695) = Jac_FULL(89,89) - JVS(695) = -B(22)-B(23) +! JVS(695) = Jac_FULL(87,87) + JVS(695) = -B(381)-B(383)-B(385) IF (DO_JVS(696)) & -! JVS(696) = Jac_FULL(89,325) - JVS(696) = B(20) +! JVS(696) = Jac_FULL(87,343) + JVS(696) = -B(382)-B(384) IF (DO_JVS(697)) & -! JVS(697) = Jac_FULL(89,345) - JVS(697) = -B(24) +! JVS(697) = Jac_FULL(87,348) + JVS(697) = -B(386) IF (DO_JVS(698)) & -! JVS(698) = Jac_FULL(89,348) - JVS(698) = B(21)-B(25) +! JVS(698) = Jac_FULL(88,88) + JVS(698) = -0.79*B(517)-B(561)-B(1730) IF (DO_JVS(699)) & -! JVS(699) = Jac_FULL(90,90) - JVS(699) = -B(1440)-B(1441) +! JVS(699) = Jac_FULL(88,337) + JVS(699) = -0.79*B(518) IF (DO_JVS(700)) & -! JVS(700) = Jac_FULL(90,235) - JVS(700) = B(1436) +! JVS(700) = Jac_FULL(88,343) + JVS(700) = -B(562) IF (DO_JVS(701)) & -! JVS(701) = Jac_FULL(90,335) - JVS(701) = B(1437) +! JVS(701) = Jac_FULL(89,89) + JVS(701) = -0.69*B(513)-B(557)-B(1731) IF (DO_JVS(702)) & -! JVS(702) = Jac_FULL(90,345) - JVS(702) = -B(1442) +! JVS(702) = Jac_FULL(89,337) + JVS(702) = -0.69*B(514) IF (DO_JVS(703)) & -! JVS(703) = Jac_FULL(91,91) - JVS(703) = -B(943)-B(1759) +! JVS(703) = Jac_FULL(89,343) + JVS(703) = -B(558) IF (DO_JVS(704)) & -! JVS(704) = Jac_FULL(91,323) - JVS(704) = B(189) +! JVS(704) = Jac_FULL(90,90) + JVS(704) = -0.65*B(515)-B(559)-B(1732) IF (DO_JVS(705)) & -! JVS(705) = Jac_FULL(91,345) - JVS(705) = -B(944) +! JVS(705) = Jac_FULL(90,337) + JVS(705) = -0.65*B(516) IF (DO_JVS(706)) & -! JVS(706) = Jac_FULL(91,346) - JVS(706) = B(190) +! JVS(706) = Jac_FULL(90,343) + JVS(706) = -B(560) IF (DO_JVS(707)) & -! JVS(707) = Jac_FULL(92,92) - JVS(707) = -B(342)-B(1689) +! JVS(707) = Jac_FULL(91,91) + JVS(707) = -0.75*B(503)-B(555)-B(1733) IF (DO_JVS(708)) & -! JVS(708) = Jac_FULL(92,324) - JVS(708) = 0.37*B(1324) +! JVS(708) = Jac_FULL(91,337) + JVS(708) = -0.75*B(504) IF (DO_JVS(709)) & -! JVS(709) = Jac_FULL(92,337) - JVS(709) = 0.37*B(1325) +! JVS(709) = Jac_FULL(91,343) + JVS(709) = -B(556) IF (DO_JVS(710)) & -! JVS(710) = Jac_FULL(92,345) - JVS(710) = -B(343) +! JVS(710) = Jac_FULL(92,92) + JVS(710) = -B(1322)-B(1774) IF (DO_JVS(711)) & -! JVS(711) = Jac_FULL(93,93) - JVS(711) = -B(939)-B(1757) +! JVS(711) = Jac_FULL(92,317) + JVS(711) = 0.73*B(697)+0.4*B(699) IF (DO_JVS(712)) & -! JVS(712) = Jac_FULL(93,328) - JVS(712) = B(51) +! JVS(712) = Jac_FULL(92,343) + JVS(712) = -B(1323) IF (DO_JVS(713)) & -! JVS(713) = Jac_FULL(93,345) - JVS(713) = -B(940) +! JVS(713) = Jac_FULL(92,353) + JVS(713) = 0.73*B(698)+0.4*B(700) IF (DO_JVS(714)) & -! JVS(714) = Jac_FULL(93,346) - JVS(714) = B(52) +! JVS(714) = Jac_FULL(93,93) + JVS(714) = -B(22)-B(23)-B(1650)-B(1651) IF (DO_JVS(715)) & -! JVS(715) = Jac_FULL(94,94) - JVS(715) = -B(381)-B(383)-B(385) +! JVS(715) = Jac_FULL(93,329) + JVS(715) = B(20)+B(1648) IF (DO_JVS(716)) & -! JVS(716) = Jac_FULL(94,345) - JVS(716) = -B(382)-B(384) +! JVS(716) = Jac_FULL(93,343) + JVS(716) = -B(24)-B(1652) IF (DO_JVS(717)) & -! JVS(717) = Jac_FULL(94,351) - JVS(717) = -B(386) +! JVS(717) = Jac_FULL(93,355) + JVS(717) = B(21)-B(25)+B(1649)-B(1653) IF (DO_JVS(718)) & -! JVS(718) = Jac_FULL(95,95) - JVS(718) = -B(945)-B(1760) +! JVS(718) = Jac_FULL(94,94) + JVS(718) = -B(943)-B(1772) IF (DO_JVS(719)) & -! JVS(719) = Jac_FULL(95,321) - JVS(719) = B(120) +! JVS(719) = Jac_FULL(94,327) + JVS(719) = B(189) IF (DO_JVS(720)) & -! JVS(720) = Jac_FULL(95,345) - JVS(720) = -B(946) +! JVS(720) = Jac_FULL(94,338) + JVS(720) = B(190) IF (DO_JVS(721)) & -! JVS(721) = Jac_FULL(95,346) - JVS(721) = B(121) +! JVS(721) = Jac_FULL(94,343) + JVS(721) = -B(944) IF (DO_JVS(722)) & -! JVS(722) = Jac_FULL(96,42) - JVS(722) = 2*B(664)+2*B(1737) +! JVS(722) = Jac_FULL(95,95) + JVS(722) = -B(342)-B(1702) IF (DO_JVS(723)) & -! JVS(723) = Jac_FULL(96,44) - JVS(723) = 0.996*B(684)+B(1732) +! JVS(723) = Jac_FULL(95,328) + JVS(723) = 0.37*B(1324) IF (DO_JVS(724)) & -! JVS(724) = Jac_FULL(96,55) - JVS(724) = B(1738) +! JVS(724) = Jac_FULL(95,341) + JVS(724) = 0.37*B(1325) IF (DO_JVS(725)) & -! JVS(725) = Jac_FULL(96,96) - JVS(725) = -B(661)-2*B(663)-B(665)-B(1728) +! JVS(725) = Jac_FULL(95,343) + JVS(725) = -B(343) IF (DO_JVS(726)) & -! JVS(726) = Jac_FULL(96,284) - JVS(726) = 0.8*B(659)-B(662)+0.4*B(683) +! JVS(726) = Jac_FULL(96,96) + JVS(726) = -B(939)-B(1770) IF (DO_JVS(727)) & -! JVS(727) = Jac_FULL(96,346) - JVS(727) = -B(666) +! JVS(727) = Jac_FULL(96,334) + JVS(727) = B(51) IF (DO_JVS(728)) & -! JVS(728) = Jac_FULL(96,347) - JVS(728) = 0.8*B(660) +! JVS(728) = Jac_FULL(96,338) + JVS(728) = B(52) IF (DO_JVS(729)) & -! JVS(729) = Jac_FULL(97,97) - JVS(729) = -B(332)-B(1680) +! JVS(729) = Jac_FULL(96,343) + JVS(729) = -B(940) IF (DO_JVS(730)) & -! JVS(730) = Jac_FULL(97,319) - JVS(730) = B(218) +! JVS(730) = Jac_FULL(97,97) + JVS(730) = -B(945)-B(1773) IF (DO_JVS(731)) & -! JVS(731) = Jac_FULL(97,337) - JVS(731) = B(219) +! JVS(731) = Jac_FULL(97,326) + JVS(731) = B(120) IF (DO_JVS(732)) & -! JVS(732) = Jac_FULL(97,345) - JVS(732) = -B(333) +! JVS(732) = Jac_FULL(97,338) + JVS(732) = B(121) IF (DO_JVS(733)) & -! JVS(733) = Jac_FULL(98,98) - JVS(733) = -B(134)-B(1681) +! JVS(733) = Jac_FULL(97,343) + JVS(733) = -B(946) IF (DO_JVS(734)) & -! JVS(734) = Jac_FULL(98,178) - JVS(734) = B(132) +! JVS(734) = Jac_FULL(98,45) + JVS(734) = 2*B(664)+2*B(1750) IF (DO_JVS(735)) & -! JVS(735) = Jac_FULL(98,337) - JVS(735) = B(133) +! JVS(735) = Jac_FULL(98,47) + JVS(735) = 0.996*B(684)+B(1745) IF (DO_JVS(736)) & -! JVS(736) = Jac_FULL(98,345) - JVS(736) = -B(135) +! JVS(736) = Jac_FULL(98,58) + JVS(736) = B(1751) IF (DO_JVS(737)) & -! JVS(737) = Jac_FULL(99,99) - JVS(737) = -B(328)-B(1678) +! JVS(737) = Jac_FULL(98,98) + JVS(737) = -B(661)-2*B(663)-B(665)-B(1741) IF (DO_JVS(738)) & -! JVS(738) = Jac_FULL(99,321) - JVS(738) = B(279) +! JVS(738) = Jac_FULL(98,336) + JVS(738) = 0.8*B(659)-B(662)+0.4*B(683) IF (DO_JVS(739)) & -! JVS(739) = Jac_FULL(99,337) - JVS(739) = B(280) +! JVS(739) = Jac_FULL(98,338) + JVS(739) = -B(666) IF (DO_JVS(740)) & -! JVS(740) = Jac_FULL(99,345) - JVS(740) = -B(329) +! JVS(740) = Jac_FULL(98,347) + JVS(740) = 0.8*B(660) IF (DO_JVS(741)) & -! JVS(741) = Jac_FULL(100,100) - JVS(741) = -B(330)-B(1679) +! JVS(741) = Jac_FULL(99,99) + JVS(741) = -B(332)-B(1693) IF (DO_JVS(742)) & -! JVS(742) = Jac_FULL(100,323) - JVS(742) = B(230) +! JVS(742) = Jac_FULL(99,323) + JVS(742) = B(218) IF (DO_JVS(743)) & -! JVS(743) = Jac_FULL(100,337) - JVS(743) = B(231) +! JVS(743) = Jac_FULL(99,341) + JVS(743) = B(219) IF (DO_JVS(744)) & -! JVS(744) = Jac_FULL(100,345) - JVS(744) = -B(331) +! JVS(744) = Jac_FULL(99,343) + JVS(744) = -B(333) IF (DO_JVS(745)) & -! JVS(745) = Jac_FULL(101,101) - JVS(745) = -B(1385) +! JVS(745) = Jac_FULL(100,100) + JVS(745) = -B(134)-B(1694) IF (DO_JVS(746)) & -! JVS(746) = Jac_FULL(101,345) - JVS(746) = -B(1386) +! JVS(746) = Jac_FULL(100,182) + JVS(746) = B(132) IF (DO_JVS(747)) & -! JVS(747) = Jac_FULL(102,102) - JVS(747) = -B(334)-B(1682) +! JVS(747) = Jac_FULL(100,341) + JVS(747) = B(133) IF (DO_JVS(748)) & -! JVS(748) = Jac_FULL(102,300) - JVS(748) = B(222) +! JVS(748) = Jac_FULL(100,343) + JVS(748) = -B(135) IF (DO_JVS(749)) & -! JVS(749) = Jac_FULL(102,337) - JVS(749) = B(223) +! JVS(749) = Jac_FULL(101,101) + JVS(749) = -B(328)-B(1691) IF (DO_JVS(750)) & -! JVS(750) = Jac_FULL(102,345) - JVS(750) = -B(335) +! JVS(750) = Jac_FULL(101,326) + JVS(750) = B(279) IF (DO_JVS(751)) & -! JVS(751) = Jac_FULL(103,103) - JVS(751) = -B(935) +! JVS(751) = Jac_FULL(101,341) + JVS(751) = B(280) IF (DO_JVS(752)) & -! JVS(752) = Jac_FULL(103,168) - JVS(752) = B(1630) +! JVS(752) = Jac_FULL(101,343) + JVS(752) = -B(329) IF (DO_JVS(753)) & -! JVS(753) = Jac_FULL(103,175) - JVS(753) = B(1629) +! JVS(753) = Jac_FULL(102,102) + JVS(753) = -B(330)-B(1692) IF (DO_JVS(754)) & -! JVS(754) = Jac_FULL(103,186) - JVS(754) = B(1633) +! JVS(754) = Jac_FULL(102,327) + JVS(754) = B(230) IF (DO_JVS(755)) & -! JVS(755) = Jac_FULL(103,216) - JVS(755) = B(1638) +! JVS(755) = Jac_FULL(102,341) + JVS(755) = B(231) IF (DO_JVS(756)) & -! JVS(756) = Jac_FULL(103,222) - JVS(756) = B(1634) +! JVS(756) = Jac_FULL(102,343) + JVS(756) = -B(331) IF (DO_JVS(757)) & -! JVS(757) = Jac_FULL(103,248) - JVS(757) = B(1639) +! JVS(757) = Jac_FULL(103,103) + JVS(757) = -B(1385) IF (DO_JVS(758)) & -! JVS(758) = Jac_FULL(103,251) - JVS(758) = B(1622) +! JVS(758) = Jac_FULL(103,343) + JVS(758) = -B(1386) IF (DO_JVS(759)) & -! JVS(759) = Jac_FULL(103,266) - JVS(759) = B(1636) +! JVS(759) = Jac_FULL(104,104) + JVS(759) = -B(334)-B(1695) IF (DO_JVS(760)) & -! JVS(760) = Jac_FULL(103,267) - JVS(760) = B(1631) +! JVS(760) = Jac_FULL(104,304) + JVS(760) = B(222) IF (DO_JVS(761)) & -! JVS(761) = Jac_FULL(103,268) - JVS(761) = B(1628) +! JVS(761) = Jac_FULL(104,341) + JVS(761) = B(223) IF (DO_JVS(762)) & -! JVS(762) = Jac_FULL(103,299) - JVS(762) = B(1635) +! JVS(762) = Jac_FULL(104,343) + JVS(762) = -B(335) IF (DO_JVS(763)) & -! JVS(763) = Jac_FULL(103,302) - JVS(763) = B(1621) +! JVS(763) = Jac_FULL(105,105) + JVS(763) = -B(1440)-B(1441) IF (DO_JVS(764)) & -! JVS(764) = Jac_FULL(103,303) - JVS(764) = B(1637) +! JVS(764) = Jac_FULL(105,237) + JVS(764) = B(1436) IF (DO_JVS(765)) & -! JVS(765) = Jac_FULL(104,104) - JVS(765) = -B(1740) +! JVS(765) = Jac_FULL(105,343) + JVS(765) = -B(1442) IF (DO_JVS(766)) & -! JVS(766) = Jac_FULL(104,252) - JVS(766) = B(1595)+B(1597) +! JVS(766) = Jac_FULL(105,345) + JVS(766) = B(1437) IF (DO_JVS(767)) & -! JVS(767) = Jac_FULL(104,284) - JVS(767) = 0.191*B(667) +! JVS(767) = Jac_FULL(106,106) + JVS(767) = -B(935) IF (DO_JVS(768)) & -! JVS(768) = Jac_FULL(104,330) - JVS(768) = B(1611)+B(1613) +! JVS(768) = Jac_FULL(106,175) + JVS(768) = B(1629) IF (DO_JVS(769)) & -! JVS(769) = Jac_FULL(104,332) - JVS(769) = B(1603)+B(1605) +! JVS(769) = Jac_FULL(106,177) + JVS(769) = B(1630) IF (DO_JVS(770)) & -! JVS(770) = Jac_FULL(104,338) - JVS(770) = 0.191*B(668) +! JVS(770) = Jac_FULL(106,188) + JVS(770) = B(1633) IF (DO_JVS(771)) & -! JVS(771) = Jac_FULL(104,344) - JVS(771) = B(1598)+B(1606)+B(1614) +! JVS(771) = Jac_FULL(106,220) + JVS(771) = B(1638) IF (DO_JVS(772)) & -! JVS(772) = Jac_FULL(104,353) - JVS(772) = B(1596)+B(1604)+B(1612) +! JVS(772) = Jac_FULL(106,225) + JVS(772) = B(1634) IF (DO_JVS(773)) & -! JVS(773) = Jac_FULL(105,105) - JVS(773) = -B(431)-B(497)-B(1698) +! JVS(773) = Jac_FULL(106,251) + JVS(773) = B(1639) IF (DO_JVS(774)) & -! JVS(774) = Jac_FULL(105,334) - JVS(774) = -B(498) +! JVS(774) = Jac_FULL(106,255) + JVS(774) = B(1622) IF (DO_JVS(775)) & -! JVS(775) = Jac_FULL(105,345) - JVS(775) = -B(432) +! JVS(775) = Jac_FULL(106,269) + JVS(775) = B(1636) IF (DO_JVS(776)) & -! JVS(776) = Jac_FULL(106,106) - JVS(776) = -B(1372)-B(1373) +! JVS(776) = Jac_FULL(106,270) + JVS(776) = B(1631) IF (DO_JVS(777)) & -! JVS(777) = Jac_FULL(106,136) - JVS(777) = B(1801) +! JVS(777) = Jac_FULL(106,271) + JVS(777) = B(1628) IF (DO_JVS(778)) & -! JVS(778) = Jac_FULL(106,234) - JVS(778) = 0.995*B(1366)+B(1368)+0.6*B(1370) +! JVS(778) = Jac_FULL(106,303) + JVS(778) = B(1635) IF (DO_JVS(779)) & -! JVS(779) = Jac_FULL(106,328) - JVS(779) = 0.6*B(1371) +! JVS(779) = Jac_FULL(106,306) + JVS(779) = B(1621) IF (DO_JVS(780)) & -! JVS(780) = Jac_FULL(106,346) - JVS(780) = 0.995*B(1367) +! JVS(780) = Jac_FULL(106,307) + JVS(780) = B(1637) IF (DO_JVS(781)) & -! JVS(781) = Jac_FULL(106,351) - JVS(781) = B(1369) +! JVS(781) = Jac_FULL(107,107) + JVS(781) = -B(1753) IF (DO_JVS(782)) & -! JVS(782) = Jac_FULL(107,107) - JVS(782) = -B(1304)-B(1627) +! JVS(782) = Jac_FULL(107,254) + JVS(782) = B(1595)+B(1597) IF (DO_JVS(783)) & -! JVS(783) = Jac_FULL(107,159) - JVS(783) = 0.098*B(1280) +! JVS(783) = Jac_FULL(107,287) + JVS(783) = B(1611)+B(1613) IF (DO_JVS(784)) & -! JVS(784) = Jac_FULL(107,184) - JVS(784) = 0.75*B(1302) +! JVS(784) = Jac_FULL(107,296) + JVS(784) = B(1603)+B(1605) IF (DO_JVS(785)) & -! JVS(785) = Jac_FULL(107,345) - JVS(785) = 0.098*B(1281)+0.75*B(1303)-B(1305) +! JVS(785) = Jac_FULL(107,336) + JVS(785) = 0.191*B(667) IF (DO_JVS(786)) & -! JVS(786) = Jac_FULL(108,108) - JVS(786) = -B(75)-B(76)-B(1651)-B(1652) +! JVS(786) = Jac_FULL(107,339) + JVS(786) = B(1596)+B(1604)+B(1612) IF (DO_JVS(787)) & -! JVS(787) = Jac_FULL(108,335) - JVS(787) = B(73) +! JVS(787) = Jac_FULL(107,344) + JVS(787) = 0.191*B(668) IF (DO_JVS(788)) & -! JVS(788) = Jac_FULL(108,337) - JVS(788) = B(74) +! JVS(788) = Jac_FULL(107,346) + JVS(788) = B(1598)+B(1606)+B(1614) IF (DO_JVS(789)) & -! JVS(789) = Jac_FULL(108,345) - JVS(789) = -B(77) +! JVS(789) = Jac_FULL(108,108) + JVS(789) = -B(431)-B(497)-B(1711) IF (DO_JVS(790)) & -! JVS(790) = Jac_FULL(109,109) - JVS(790) = -B(1358)-B(1360) +! JVS(790) = Jac_FULL(108,337) + JVS(790) = -B(498) IF (DO_JVS(791)) & -! JVS(791) = Jac_FULL(109,233) - JVS(791) = 0.4*B(1660) +! JVS(791) = Jac_FULL(108,343) + JVS(791) = -B(432) IF (DO_JVS(792)) & -! JVS(792) = Jac_FULL(109,341) - JVS(792) = -B(1359) +! JVS(792) = Jac_FULL(109,109) + JVS(792) = -B(1304)-B(1627) IF (DO_JVS(793)) & -! JVS(793) = Jac_FULL(109,345) - JVS(793) = -B(1361) +! JVS(793) = Jac_FULL(109,161) + JVS(793) = 0.098*B(1280) IF (DO_JVS(794)) & -! JVS(794) = Jac_FULL(110,76) - JVS(794) = B(537)+B(1705) +! JVS(794) = Jac_FULL(109,189) + JVS(794) = 0.75*B(1302) IF (DO_JVS(795)) & -! JVS(795) = Jac_FULL(110,110) - JVS(795) = -B(590)-B(593)-B(1724) +! JVS(795) = Jac_FULL(109,343) + JVS(795) = 0.098*B(1281)+0.75*B(1303)-B(1305) IF (DO_JVS(796)) & -! JVS(796) = Jac_FULL(110,328) - JVS(796) = B(529) +! JVS(796) = Jac_FULL(110,110) + JVS(796) = -B(75)-B(76)-B(1664)-B(1665) IF (DO_JVS(797)) & -! JVS(797) = Jac_FULL(110,338) - JVS(797) = B(530)+B(586)+B(597) +! JVS(797) = Jac_FULL(110,341) + JVS(797) = B(73) IF (DO_JVS(798)) & -! JVS(798) = Jac_FULL(110,340) - JVS(798) = B(588)-B(594) +! JVS(798) = Jac_FULL(110,343) + JVS(798) = -B(77) IF (DO_JVS(799)) & ! JVS(799) = Jac_FULL(110,345) - JVS(799) = B(538) + JVS(799) = B(74) IF (DO_JVS(800)) & -! JVS(800) = Jac_FULL(110,347) - JVS(800) = B(598) +! JVS(800) = Jac_FULL(111,111) + JVS(800) = -B(741)-B(1820) IF (DO_JVS(801)) & -! JVS(801) = Jac_FULL(111,111) - JVS(801) = -B(741)-B(1807) +! JVS(801) = Jac_FULL(111,281) + JVS(801) = B(735) IF (DO_JVS(802)) & -! JVS(802) = Jac_FULL(111,277) - JVS(802) = B(735) +! JVS(802) = Jac_FULL(111,341) + JVS(802) = B(736) IF (DO_JVS(803)) & -! JVS(803) = Jac_FULL(111,337) - JVS(803) = B(736) +! JVS(803) = Jac_FULL(111,343) + JVS(803) = -B(742) IF (DO_JVS(804)) & -! JVS(804) = Jac_FULL(111,345) - JVS(804) = -B(742) +! JVS(804) = Jac_FULL(112,112) + JVS(804) = -B(782)-B(1825) IF (DO_JVS(805)) & -! JVS(805) = Jac_FULL(112,112) - JVS(805) = -B(782)-B(1812) +! JVS(805) = Jac_FULL(112,276) + JVS(805) = B(774) IF (DO_JVS(806)) & -! JVS(806) = Jac_FULL(112,275) - JVS(806) = B(774) +! JVS(806) = Jac_FULL(112,341) + JVS(806) = B(775) IF (DO_JVS(807)) & -! JVS(807) = Jac_FULL(112,337) - JVS(807) = B(775) +! JVS(807) = Jac_FULL(112,343) + JVS(807) = -B(783) IF (DO_JVS(808)) & -! JVS(808) = Jac_FULL(112,345) - JVS(808) = -B(783) +! JVS(808) = Jac_FULL(113,113) + JVS(808) = -B(240)-B(241) IF (DO_JVS(809)) & -! JVS(809) = Jac_FULL(113,113) - JVS(809) = -B(240)-B(241) +! JVS(809) = Jac_FULL(113,250) + JVS(809) = B(238) IF (DO_JVS(810)) & -! JVS(810) = Jac_FULL(113,246) - JVS(810) = B(238) +! JVS(810) = Jac_FULL(113,343) + JVS(810) = -B(242) IF (DO_JVS(811)) & -! JVS(811) = Jac_FULL(113,335) +! JVS(811) = Jac_FULL(113,345) JVS(811) = B(239) IF (DO_JVS(812)) & -! JVS(812) = Jac_FULL(113,345) - JVS(812) = -B(242) +! JVS(812) = Jac_FULL(114,114) + JVS(812) = -B(1372)-B(1373) IF (DO_JVS(813)) & -! JVS(813) = Jac_FULL(114,114) - JVS(813) = -B(299)-B(306) +! JVS(813) = Jac_FULL(114,138) + JVS(813) = B(1814) IF (DO_JVS(814)) & -! JVS(814) = Jac_FULL(114,213) - JVS(814) = B(297) +! JVS(814) = Jac_FULL(114,239) + JVS(814) = 0.995*B(1366)+B(1368)+0.6*B(1370) IF (DO_JVS(815)) & -! JVS(815) = Jac_FULL(114,335) - JVS(815) = B(298) +! JVS(815) = Jac_FULL(114,334) + JVS(815) = 0.6*B(1371) IF (DO_JVS(816)) & -! JVS(816) = Jac_FULL(114,345) - JVS(816) = -B(307) +! JVS(816) = Jac_FULL(114,338) + JVS(816) = 0.995*B(1367) IF (DO_JVS(817)) & -! JVS(817) = Jac_FULL(115,115) - JVS(817) = -B(1320)-B(1626)-B(1763) +! JVS(817) = Jac_FULL(114,348) + JVS(817) = B(1369) IF (DO_JVS(818)) & -! JVS(818) = Jac_FULL(115,194) - JVS(818) = 0.653*B(1258)+0.75*B(1769) +! JVS(818) = Jac_FULL(115,115) + JVS(818) = -B(299)-B(306) IF (DO_JVS(819)) & -! JVS(819) = Jac_FULL(115,302) - JVS(819) = 0.241*B(1236) +! JVS(819) = Jac_FULL(115,216) + JVS(819) = B(297) IF (DO_JVS(820)) & -! JVS(820) = Jac_FULL(115,314) - JVS(820) = 0.075*B(1226) +! JVS(820) = Jac_FULL(115,343) + JVS(820) = -B(307) IF (DO_JVS(821)) & -! JVS(821) = Jac_FULL(115,341) - JVS(821) = 0.075*B(1227) +! JVS(821) = Jac_FULL(115,345) + JVS(821) = B(298) IF (DO_JVS(822)) & -! JVS(822) = Jac_FULL(115,345) - JVS(822) = 0.241*B(1237)+0.653*B(1259)-B(1321) +! JVS(822) = Jac_FULL(116,116) + JVS(822) = -B(1320)-B(1626)-B(1776) IF (DO_JVS(823)) & -! JVS(823) = Jac_FULL(116,116) - JVS(823) = -B(1356)-B(1687) +! JVS(823) = Jac_FULL(116,197) + JVS(823) = 0.653*B(1258)+0.75*B(1782) IF (DO_JVS(824)) & -! JVS(824) = Jac_FULL(116,189) - JVS(824) = 0.11*B(1352) +! JVS(824) = Jac_FULL(116,306) + JVS(824) = 0.241*B(1236) IF (DO_JVS(825)) & -! JVS(825) = Jac_FULL(116,345) - JVS(825) = -B(1357) +! JVS(825) = Jac_FULL(116,318) + JVS(825) = 0.075*B(1226) IF (DO_JVS(826)) & -! JVS(826) = Jac_FULL(116,346) - JVS(826) = 0.11*B(1353) +! JVS(826) = Jac_FULL(116,343) + JVS(826) = 0.241*B(1237)+0.653*B(1259)-B(1321) IF (DO_JVS(827)) & -! JVS(827) = Jac_FULL(117,90) - JVS(827) = B(1441) +! JVS(827) = Jac_FULL(116,356) + JVS(827) = 0.075*B(1227) IF (DO_JVS(828)) & ! JVS(828) = Jac_FULL(117,117) - JVS(828) = -B(1451)-B(1804) + JVS(828) = -B(1356)-B(1700) IF (DO_JVS(829)) & -! JVS(829) = Jac_FULL(117,235) - JVS(829) = 0.15*B(1432) +! JVS(829) = Jac_FULL(117,193) + JVS(829) = 0.11*B(1352) IF (DO_JVS(830)) & -! JVS(830) = Jac_FULL(117,236) - JVS(830) = B(1449) +! JVS(830) = Jac_FULL(117,338) + JVS(830) = 0.11*B(1353) IF (DO_JVS(831)) & -! JVS(831) = Jac_FULL(117,335) - JVS(831) = 0 +! JVS(831) = Jac_FULL(117,343) + JVS(831) = -B(1357) IF (DO_JVS(832)) & -! JVS(832) = Jac_FULL(117,337) - JVS(832) = 0.15*B(1433)+B(1450) +! JVS(832) = Jac_FULL(118,105) + JVS(832) = B(1441) IF (DO_JVS(833)) & -! JVS(833) = Jac_FULL(117,345) - JVS(833) = B(1442)-B(1452) +! JVS(833) = Jac_FULL(118,118) + JVS(833) = -B(1451)-B(1817) IF (DO_JVS(834)) & -! JVS(834) = Jac_FULL(118,118) - JVS(834) = -B(326)-B(1677) +! JVS(834) = Jac_FULL(118,237) + JVS(834) = 0.15*B(1432) IF (DO_JVS(835)) & -! JVS(835) = Jac_FULL(118,296) - JVS(835) = B(275) +! JVS(835) = Jac_FULL(118,238) + JVS(835) = B(1449) IF (DO_JVS(836)) & -! JVS(836) = Jac_FULL(118,315) - JVS(836) = B(277) +! JVS(836) = Jac_FULL(118,341) + JVS(836) = 0.15*B(1433)+B(1450) IF (DO_JVS(837)) & -! JVS(837) = Jac_FULL(118,337) - JVS(837) = B(276)+B(278) +! JVS(837) = Jac_FULL(118,343) + JVS(837) = B(1442)-B(1452) IF (DO_JVS(838)) & ! JVS(838) = Jac_FULL(118,345) - JVS(838) = -B(327) + JVS(838) = 0 IF (DO_JVS(839)) & -! JVS(839) = Jac_FULL(119,119) - JVS(839) = -B(1013) +! JVS(839) = Jac_FULL(119,78) + JVS(839) = B(537)+B(1718) IF (DO_JVS(840)) & -! JVS(840) = Jac_FULL(119,230) - JVS(840) = 0.15*B(1001)+0.112*B(1779) +! JVS(840) = Jac_FULL(119,119) + JVS(840) = -B(590)-B(593)-B(1737) IF (DO_JVS(841)) & -! JVS(841) = Jac_FULL(119,231) - JVS(841) = 0.15*B(1003)+0.182*B(1780) +! JVS(841) = Jac_FULL(119,334) + JVS(841) = B(529) IF (DO_JVS(842)) & -! JVS(842) = Jac_FULL(119,301) - JVS(842) = 0.161*B(1790) +! JVS(842) = Jac_FULL(119,343) + JVS(842) = B(538) IF (DO_JVS(843)) & -! JVS(843) = Jac_FULL(119,345) - JVS(843) = 0.15*B(1002)+0.15*B(1004)-B(1014) +! JVS(843) = Jac_FULL(119,344) + JVS(843) = B(530)+B(586)+B(597) IF (DO_JVS(844)) & -! JVS(844) = Jac_FULL(120,120) - JVS(844) = -B(535)-B(1704) +! JVS(844) = Jac_FULL(119,347) + JVS(844) = B(598) IF (DO_JVS(845)) & -! JVS(845) = Jac_FULL(120,284) - JVS(845) = 0.56*B(667) +! JVS(845) = Jac_FULL(119,352) + JVS(845) = B(588)-B(594) IF (DO_JVS(846)) & -! JVS(846) = Jac_FULL(120,338) - JVS(846) = B(587)+B(595)+0.56*B(668) +! JVS(846) = Jac_FULL(120,120) + JVS(846) = -B(1358)-B(1360) IF (DO_JVS(847)) & -! JVS(847) = Jac_FULL(120,345) - JVS(847) = -B(536) +! JVS(847) = Jac_FULL(120,229) + JVS(847) = 0.4*B(1673) IF (DO_JVS(848)) & -! JVS(848) = Jac_FULL(120,347) - JVS(848) = B(596) +! JVS(848) = Jac_FULL(120,343) + JVS(848) = -B(1361) IF (DO_JVS(849)) & -! JVS(849) = Jac_FULL(121,58) - JVS(849) = B(1397) +! JVS(849) = Jac_FULL(120,356) + JVS(849) = -B(1359) IF (DO_JVS(850)) & ! JVS(850) = Jac_FULL(121,121) - JVS(850) = -B(1399)-B(1401) + JVS(850) = -B(326)-B(1690) IF (DO_JVS(851)) & -! JVS(851) = Jac_FULL(121,200) - JVS(851) = 0 +! JVS(851) = Jac_FULL(121,300) + JVS(851) = B(275) IF (DO_JVS(852)) & -! JVS(852) = Jac_FULL(121,337) - JVS(852) = -B(1402) +! JVS(852) = Jac_FULL(121,319) + JVS(852) = B(277) IF (DO_JVS(853)) & -! JVS(853) = Jac_FULL(121,345) - JVS(853) = B(1398) +! JVS(853) = Jac_FULL(121,341) + JVS(853) = B(276)+B(278) IF (DO_JVS(854)) & -! JVS(854) = Jac_FULL(121,346) - JVS(854) = -B(1400) +! JVS(854) = Jac_FULL(121,343) + JVS(854) = -B(327) IF (DO_JVS(855)) & ! JVS(855) = Jac_FULL(122,122) - JVS(855) = -B(1411)-B(1412) + JVS(855) = -B(1013) IF (DO_JVS(856)) & -! JVS(856) = Jac_FULL(122,240) - JVS(856) = B(1409) +! JVS(856) = Jac_FULL(122,231) + JVS(856) = 0.15*B(1003)+0.182*B(1793) IF (DO_JVS(857)) & -! JVS(857) = Jac_FULL(122,335) - JVS(857) = B(1410) +! JVS(857) = Jac_FULL(122,233) + JVS(857) = 0.15*B(1001)+0.112*B(1792) IF (DO_JVS(858)) & -! JVS(858) = Jac_FULL(122,345) - JVS(858) = -B(1413) +! JVS(858) = Jac_FULL(122,305) + JVS(858) = 0.161*B(1803) IF (DO_JVS(859)) & -! JVS(859) = Jac_FULL(123,123) - JVS(859) = -B(338)-B(1683) +! JVS(859) = Jac_FULL(122,343) + JVS(859) = 0.15*B(1002)+0.15*B(1004)-B(1014) IF (DO_JVS(860)) & -! JVS(860) = Jac_FULL(123,260) - JVS(860) = B(281) +! JVS(860) = Jac_FULL(123,123) + JVS(860) = -B(535)-B(1717) IF (DO_JVS(861)) & -! JVS(861) = Jac_FULL(123,337) - JVS(861) = B(282) +! JVS(861) = Jac_FULL(123,336) + JVS(861) = 0.56*B(667) IF (DO_JVS(862)) & -! JVS(862) = Jac_FULL(123,345) - JVS(862) = -B(339) +! JVS(862) = Jac_FULL(123,343) + JVS(862) = -B(536) IF (DO_JVS(863)) & -! JVS(863) = Jac_FULL(124,124) - JVS(863) = -B(205)-B(206)-B(1806) +! JVS(863) = Jac_FULL(123,344) + JVS(863) = B(587)+B(595)+0.56*B(668) IF (DO_JVS(864)) & -! JVS(864) = Jac_FULL(124,322) - JVS(864) = B(203) +! JVS(864) = Jac_FULL(123,347) + JVS(864) = B(596) IF (DO_JVS(865)) & -! JVS(865) = Jac_FULL(124,335) - JVS(865) = B(204) +! JVS(865) = Jac_FULL(124,61) + JVS(865) = B(1397) IF (DO_JVS(866)) & -! JVS(866) = Jac_FULL(124,345) - JVS(866) = -B(207) +! JVS(866) = Jac_FULL(124,124) + JVS(866) = -B(1399)-B(1401) IF (DO_JVS(867)) & -! JVS(867) = Jac_FULL(125,125) - JVS(867) = -B(324)-B(1676) +! JVS(867) = Jac_FULL(124,203) + JVS(867) = 0 IF (DO_JVS(868)) & -! JVS(868) = Jac_FULL(125,250) - JVS(868) = B(232) +! JVS(868) = Jac_FULL(124,338) + JVS(868) = -B(1400) IF (DO_JVS(869)) & -! JVS(869) = Jac_FULL(125,337) - JVS(869) = B(233) +! JVS(869) = Jac_FULL(124,341) + JVS(869) = -B(1402) IF (DO_JVS(870)) & -! JVS(870) = Jac_FULL(125,345) - JVS(870) = -B(325) +! JVS(870) = Jac_FULL(124,343) + JVS(870) = B(1398) IF (DO_JVS(871)) & -! JVS(871) = Jac_FULL(126,126) - JVS(871) = -B(166)-B(167)-B(1659) +! JVS(871) = Jac_FULL(125,125) + JVS(871) = -B(1411)-B(1412) IF (DO_JVS(872)) & -! JVS(872) = Jac_FULL(126,197) - JVS(872) = B(164) +! JVS(872) = Jac_FULL(125,243) + JVS(872) = B(1409) IF (DO_JVS(873)) & -! JVS(873) = Jac_FULL(126,335) - JVS(873) = B(165) +! JVS(873) = Jac_FULL(125,343) + JVS(873) = -B(1413) IF (DO_JVS(874)) & -! JVS(874) = Jac_FULL(126,345) - JVS(874) = -B(168) +! JVS(874) = Jac_FULL(125,345) + JVS(874) = B(1410) IF (DO_JVS(875)) & -! JVS(875) = Jac_FULL(127,127) - JVS(875) = -B(152) +! JVS(875) = Jac_FULL(126,126) + JVS(875) = -B(338)-B(1696) IF (DO_JVS(876)) & -! JVS(876) = Jac_FULL(127,212) - JVS(876) = 0.058*B(148) +! JVS(876) = Jac_FULL(126,264) + JVS(876) = B(281) IF (DO_JVS(877)) & -! JVS(877) = Jac_FULL(127,345) - JVS(877) = -B(153) +! JVS(877) = Jac_FULL(126,341) + JVS(877) = B(282) IF (DO_JVS(878)) & -! JVS(878) = Jac_FULL(127,346) - JVS(878) = 0.058*B(149) +! JVS(878) = Jac_FULL(126,343) + JVS(878) = -B(339) IF (DO_JVS(879)) & -! JVS(879) = Jac_FULL(128,128) - JVS(879) = -B(1052)-B(1619) +! JVS(879) = Jac_FULL(127,127) + JVS(879) = -B(205)-B(206)-B(1819) IF (DO_JVS(880)) & -! JVS(880) = Jac_FULL(128,199) - JVS(880) = 0.595*B(1029) +! JVS(880) = Jac_FULL(127,325) + JVS(880) = B(203) IF (DO_JVS(881)) & -! JVS(881) = Jac_FULL(128,209) - JVS(881) = 0.255*B(1027) +! JVS(881) = Jac_FULL(127,343) + JVS(881) = -B(207) IF (DO_JVS(882)) & -! JVS(882) = Jac_FULL(128,267) - JVS(882) = B(1105) +! JVS(882) = Jac_FULL(127,345) + JVS(882) = B(204) IF (DO_JVS(883)) & -! JVS(883) = Jac_FULL(128,268) - JVS(883) = B(1101) +! JVS(883) = Jac_FULL(128,128) + JVS(883) = -B(324)-B(1689) IF (DO_JVS(884)) & -! JVS(884) = Jac_FULL(128,345) - JVS(884) = 0.255*B(1028)+0.595*B(1030)-B(1053)+B(1102)+B(1106) +! JVS(884) = Jac_FULL(128,253) + JVS(884) = B(232) IF (DO_JVS(885)) & -! JVS(885) = Jac_FULL(129,112) - JVS(885) = B(1812) +! JVS(885) = Jac_FULL(128,341) + JVS(885) = B(233) IF (DO_JVS(886)) & -! JVS(886) = Jac_FULL(129,129) - JVS(886) = -B(784) +! JVS(886) = Jac_FULL(128,343) + JVS(886) = -B(325) IF (DO_JVS(887)) & -! JVS(887) = Jac_FULL(129,138) - JVS(887) = 0.5*B(780) +! JVS(887) = Jac_FULL(129,129) + JVS(887) = -B(166)-B(167)-B(1672) IF (DO_JVS(888)) & -! JVS(888) = Jac_FULL(129,191) - JVS(888) = 0.2*B(733) +! JVS(888) = Jac_FULL(129,201) + JVS(888) = B(164) IF (DO_JVS(889)) & -! JVS(889) = Jac_FULL(129,275) - JVS(889) = 0.75*B(776)+B(778)+B(881)+B(883) +! JVS(889) = Jac_FULL(129,343) + JVS(889) = -B(168) IF (DO_JVS(890)) & -! JVS(890) = Jac_FULL(129,324) - JVS(890) = B(884) +! JVS(890) = Jac_FULL(129,345) + JVS(890) = B(165) IF (DO_JVS(891)) & -! JVS(891) = Jac_FULL(129,328) - JVS(891) = B(882) +! JVS(891) = Jac_FULL(130,130) + JVS(891) = -B(152) IF (DO_JVS(892)) & -! JVS(892) = Jac_FULL(129,337) - JVS(892) = 0 +! JVS(892) = Jac_FULL(130,215) + JVS(892) = 0.058*B(148) IF (DO_JVS(893)) & -! JVS(893) = Jac_FULL(129,341) - JVS(893) = 0.2*B(734) +! JVS(893) = Jac_FULL(130,338) + JVS(893) = 0.058*B(149) IF (DO_JVS(894)) & -! JVS(894) = Jac_FULL(129,345) - JVS(894) = 0.5*B(781)-B(785) +! JVS(894) = Jac_FULL(130,343) + JVS(894) = -B(153) IF (DO_JVS(895)) & -! JVS(895) = Jac_FULL(129,346) - JVS(895) = 0.75*B(777) +! JVS(895) = Jac_FULL(131,131) + JVS(895) = -B(1052)-B(1619) IF (DO_JVS(896)) & -! JVS(896) = Jac_FULL(129,351) - JVS(896) = B(779) +! JVS(896) = Jac_FULL(131,202) + JVS(896) = 0.595*B(1029) IF (DO_JVS(897)) & -! JVS(897) = Jac_FULL(130,130) - JVS(897) = -B(849)-B(1815) +! JVS(897) = Jac_FULL(131,213) + JVS(897) = 0.255*B(1027) IF (DO_JVS(898)) & -! JVS(898) = Jac_FULL(130,274) - JVS(898) = 0.15*B(838)+0.25*B(897) +! JVS(898) = Jac_FULL(131,270) + JVS(898) = B(1105) IF (DO_JVS(899)) & -! JVS(899) = Jac_FULL(130,328) - JVS(899) = 0.25*B(898) +! JVS(899) = Jac_FULL(131,271) + JVS(899) = B(1101) IF (DO_JVS(900)) & -! JVS(900) = Jac_FULL(130,337) - JVS(900) = 0.15*B(839) +! JVS(900) = Jac_FULL(131,343) + JVS(900) = 0.255*B(1028)+0.595*B(1030)-B(1053)+B(1102)+B(1106) IF (DO_JVS(901)) & -! JVS(901) = Jac_FULL(130,345) - JVS(901) = -B(850) +! JVS(901) = Jac_FULL(132,112) + JVS(901) = B(1825) IF (DO_JVS(902)) & -! JVS(902) = Jac_FULL(131,131) - JVS(902) = -B(1262) +! JVS(902) = Jac_FULL(132,132) + JVS(902) = -B(784) IF (DO_JVS(903)) & -! JVS(903) = Jac_FULL(131,258) - JVS(903) = 0.35*B(1306)+0.35*B(1792) +! JVS(903) = Jac_FULL(132,141) + JVS(903) = 0.5*B(780) IF (DO_JVS(904)) & -! JVS(904) = Jac_FULL(131,286) - JVS(904) = B(1063)+0.13*B(1064)+0.2*B(1066) +! JVS(904) = Jac_FULL(132,194) + JVS(904) = 0.2*B(733) IF (DO_JVS(905)) & -! JVS(905) = Jac_FULL(131,337) - JVS(905) = 0.13*B(1065) +! JVS(905) = Jac_FULL(132,276) + JVS(905) = 0.75*B(776)+B(778)+B(881)+B(883) IF (DO_JVS(906)) & -! JVS(906) = Jac_FULL(131,345) - JVS(906) = -B(1263)+0.35*B(1307) +! JVS(906) = Jac_FULL(132,328) + JVS(906) = B(884) IF (DO_JVS(907)) & -! JVS(907) = Jac_FULL(131,346) - JVS(907) = 0.2*B(1067) +! JVS(907) = Jac_FULL(132,334) + JVS(907) = B(882) IF (DO_JVS(908)) & -! JVS(908) = Jac_FULL(132,132) - JVS(908) = -B(156)-B(158) +! JVS(908) = Jac_FULL(132,338) + JVS(908) = 0.75*B(777) IF (DO_JVS(909)) & -! JVS(909) = Jac_FULL(132,233) - JVS(909) = 0.255*B(154) +! JVS(909) = Jac_FULL(132,341) + JVS(909) = 0 IF (DO_JVS(910)) & -! JVS(910) = Jac_FULL(132,337) - JVS(910) = -B(159) +! JVS(910) = Jac_FULL(132,343) + JVS(910) = 0.5*B(781)-B(785) IF (DO_JVS(911)) & -! JVS(911) = Jac_FULL(132,345) - JVS(911) = 0.255*B(155) +! JVS(911) = Jac_FULL(132,348) + JVS(911) = B(779) IF (DO_JVS(912)) & -! JVS(912) = Jac_FULL(132,346) - JVS(912) = -B(157) +! JVS(912) = Jac_FULL(132,356) + JVS(912) = 0.2*B(734) IF (DO_JVS(913)) & ! JVS(913) = Jac_FULL(133,133) - JVS(913) = -B(1085)-B(1087) + JVS(913) = -B(156)-B(158) IF (DO_JVS(914)) & -! JVS(914) = Jac_FULL(133,230) - JVS(914) = 0.315*B(1001) +! JVS(914) = Jac_FULL(133,229) + JVS(914) = 0.255*B(154) IF (DO_JVS(915)) & -! JVS(915) = Jac_FULL(133,337) - JVS(915) = -B(1088) +! JVS(915) = Jac_FULL(133,338) + JVS(915) = -B(157) IF (DO_JVS(916)) & -! JVS(916) = Jac_FULL(133,345) - JVS(916) = 0.315*B(1002) +! JVS(916) = Jac_FULL(133,341) + JVS(916) = -B(159) IF (DO_JVS(917)) & -! JVS(917) = Jac_FULL(133,346) - JVS(917) = -B(1086) +! JVS(917) = Jac_FULL(133,343) + JVS(917) = 0.255*B(155) IF (DO_JVS(918)) & -! JVS(918) = Jac_FULL(134,89) - JVS(918) = 2*B(23) +! JVS(918) = Jac_FULL(134,134) + JVS(918) = -B(849)-B(1828) IF (DO_JVS(919)) & -! JVS(919) = Jac_FULL(134,134) - JVS(919) = -B(1746) +! JVS(919) = Jac_FULL(134,277) + JVS(919) = 0.15*B(838)+0.25*B(897) IF (DO_JVS(920)) & -! JVS(920) = Jac_FULL(134,179) - JVS(920) = B(1) +! JVS(920) = Jac_FULL(134,334) + JVS(920) = 0.25*B(898) IF (DO_JVS(921)) & -! JVS(921) = Jac_FULL(134,241) - JVS(921) = B(711) +! JVS(921) = Jac_FULL(134,341) + JVS(921) = 0.15*B(839) IF (DO_JVS(922)) & -! JVS(922) = Jac_FULL(134,264) - JVS(922) = B(15) +! JVS(922) = Jac_FULL(134,343) + JVS(922) = -B(850) IF (DO_JVS(923)) & -! JVS(923) = Jac_FULL(134,312) - JVS(923) = B(703) +! JVS(923) = Jac_FULL(135,135) + JVS(923) = -B(1262) IF (DO_JVS(924)) & -! JVS(924) = Jac_FULL(134,316) - JVS(924) = B(1561) +! JVS(924) = Jac_FULL(135,259) + JVS(924) = 0.35*B(1306)+0.35*B(1805) IF (DO_JVS(925)) & -! JVS(925) = Jac_FULL(134,325) - JVS(925) = 0 +! JVS(925) = Jac_FULL(135,289) + JVS(925) = B(1063)+0.13*B(1064)+0.2*B(1066) IF (DO_JVS(926)) & -! JVS(926) = Jac_FULL(134,333) - JVS(926) = B(1547) +! JVS(926) = Jac_FULL(135,338) + JVS(926) = 0.2*B(1067) IF (DO_JVS(927)) & -! JVS(927) = Jac_FULL(134,341) - JVS(927) = B(2)+B(17) +! JVS(927) = Jac_FULL(135,341) + JVS(927) = 0.13*B(1065) IF (DO_JVS(928)) & -! JVS(928) = Jac_FULL(134,345) - JVS(928) = 2*B(24)+B(387) +! JVS(928) = Jac_FULL(135,343) + JVS(928) = -B(1263)+0.35*B(1307) IF (DO_JVS(929)) & -! JVS(929) = Jac_FULL(134,348) - JVS(929) = B(3)+B(16)+B(18)+B(19)+2*B(25)+B(388)+B(704)+B(712)+B(1548)+B(1562) +! JVS(929) = Jac_FULL(136,136) + JVS(929) = -B(1089)-B(1091) IF (DO_JVS(930)) & -! JVS(930) = Jac_FULL(135,135) - JVS(930) = -B(1089)-B(1091) +! JVS(930) = Jac_FULL(136,231) + JVS(930) = 0.315*B(1003) IF (DO_JVS(931)) & -! JVS(931) = Jac_FULL(135,231) - JVS(931) = 0.315*B(1003) +! JVS(931) = Jac_FULL(136,338) + JVS(931) = -B(1090) IF (DO_JVS(932)) & -! JVS(932) = Jac_FULL(135,337) +! JVS(932) = Jac_FULL(136,341) JVS(932) = -B(1092) IF (DO_JVS(933)) & -! JVS(933) = Jac_FULL(135,345) +! JVS(933) = Jac_FULL(136,343) JVS(933) = 0.315*B(1004) IF (DO_JVS(934)) & -! JVS(934) = Jac_FULL(135,346) - JVS(934) = -B(1090) +! JVS(934) = Jac_FULL(137,137) + JVS(934) = -B(1085)-B(1087) IF (DO_JVS(935)) & -! JVS(935) = Jac_FULL(136,136) - JVS(935) = -B(1377)-B(1379)-B(1801) +! JVS(935) = Jac_FULL(137,233) + JVS(935) = 0.315*B(1001) IF (DO_JVS(936)) & -! JVS(936) = Jac_FULL(136,234) - JVS(936) = B(1364)+0.2*B(1370) +! JVS(936) = Jac_FULL(137,338) + JVS(936) = -B(1086) IF (DO_JVS(937)) & -! JVS(937) = Jac_FULL(136,328) - JVS(937) = 0.2*B(1371) +! JVS(937) = Jac_FULL(137,341) + JVS(937) = -B(1088) IF (DO_JVS(938)) & -! JVS(938) = Jac_FULL(136,337) - JVS(938) = B(1365) +! JVS(938) = Jac_FULL(137,343) + JVS(938) = 0.315*B(1002) IF (DO_JVS(939)) & -! JVS(939) = Jac_FULL(136,345) - JVS(939) = -B(1378)-B(1380) +! JVS(939) = Jac_FULL(138,138) + JVS(939) = -B(1377)-B(1379)-B(1814) IF (DO_JVS(940)) & -! JVS(940) = Jac_FULL(137,137) - JVS(940) = -B(743) +! JVS(940) = Jac_FULL(138,239) + JVS(940) = B(1364)+0.2*B(1370) IF (DO_JVS(941)) & -! JVS(941) = Jac_FULL(137,277) - JVS(941) = 0.25*B(737) +! JVS(941) = Jac_FULL(138,334) + JVS(941) = 0.2*B(1371) IF (DO_JVS(942)) & -! JVS(942) = Jac_FULL(137,345) - JVS(942) = -B(744) +! JVS(942) = Jac_FULL(138,341) + JVS(942) = B(1365) IF (DO_JVS(943)) & -! JVS(943) = Jac_FULL(137,346) - JVS(943) = 0.25*B(738) +! JVS(943) = Jac_FULL(138,343) + JVS(943) = -B(1378)-B(1380) IF (DO_JVS(944)) & -! JVS(944) = Jac_FULL(138,138) - JVS(944) = -B(780) +! JVS(944) = Jac_FULL(139,139) + JVS(944) = -B(743) IF (DO_JVS(945)) & -! JVS(945) = Jac_FULL(138,275) - JVS(945) = 0.25*B(776) +! JVS(945) = Jac_FULL(139,281) + JVS(945) = 0.25*B(737) IF (DO_JVS(946)) & -! JVS(946) = Jac_FULL(138,345) - JVS(946) = -B(781) +! JVS(946) = Jac_FULL(139,338) + JVS(946) = 0.25*B(738) IF (DO_JVS(947)) & -! JVS(947) = Jac_FULL(138,346) - JVS(947) = 0.25*B(777) +! JVS(947) = Jac_FULL(139,343) + JVS(947) = -B(744) IF (DO_JVS(948)) & -! JVS(948) = Jac_FULL(139,139) - JVS(948) = -B(101)-B(102)-B(1658) +! JVS(948) = Jac_FULL(140,140) + JVS(948) = -B(142)-B(144)-B(146) IF (DO_JVS(949)) & -! JVS(949) = Jac_FULL(139,324) - JVS(949) = B(99) +! JVS(949) = Jac_FULL(140,343) + JVS(949) = -B(143) IF (DO_JVS(950)) & -! JVS(950) = Jac_FULL(139,335) - JVS(950) = B(100) +! JVS(950) = Jac_FULL(140,348) + JVS(950) = -B(145) IF (DO_JVS(951)) & -! JVS(951) = Jac_FULL(139,345) - JVS(951) = -B(103) +! JVS(951) = Jac_FULL(140,356) + JVS(951) = -B(147) IF (DO_JVS(952)) & -! JVS(952) = Jac_FULL(140,140) - JVS(952) = -B(142)-B(144)-B(146) +! JVS(952) = Jac_FULL(141,141) + JVS(952) = -B(780) IF (DO_JVS(953)) & -! JVS(953) = Jac_FULL(140,341) - JVS(953) = -B(147) +! JVS(953) = Jac_FULL(141,276) + JVS(953) = 0.25*B(776) IF (DO_JVS(954)) & -! JVS(954) = Jac_FULL(140,345) - JVS(954) = -B(143) +! JVS(954) = Jac_FULL(141,338) + JVS(954) = 0.25*B(777) IF (DO_JVS(955)) & -! JVS(955) = Jac_FULL(140,351) - JVS(955) = -B(145) +! JVS(955) = Jac_FULL(141,343) + JVS(955) = -B(781) IF (DO_JVS(956)) & -! JVS(956) = Jac_FULL(141,141) +! JVS(956) = Jac_FULL(142,142) JVS(956) = -B(114)-B(116)-B(421)-B(629)-B(631) IF (DO_JVS(957)) & -! JVS(957) = Jac_FULL(141,340) - JVS(957) = -B(630)-B(632) +! JVS(957) = Jac_FULL(142,342) + JVS(957) = -B(422) IF (DO_JVS(958)) & -! JVS(958) = Jac_FULL(141,342) - JVS(958) = -B(422) +! JVS(958) = Jac_FULL(142,343) + JVS(958) = -B(115)-B(117) IF (DO_JVS(959)) & -! JVS(959) = Jac_FULL(141,345) - JVS(959) = -B(115)-B(117) +! JVS(959) = Jac_FULL(142,352) + JVS(959) = -B(630)-B(632) IF (DO_JVS(960)) & -! JVS(960) = Jac_FULL(142,142) - JVS(960) = -B(169)-B(193)-B(637) +! JVS(960) = Jac_FULL(143,143) + JVS(960) = -B(101)-B(102)-B(1671) IF (DO_JVS(961)) & -! JVS(961) = Jac_FULL(142,340) - JVS(961) = -B(638) +! JVS(961) = Jac_FULL(143,328) + JVS(961) = B(99) IF (DO_JVS(962)) & -! JVS(962) = Jac_FULL(142,345) - JVS(962) = -B(170) +! JVS(962) = Jac_FULL(143,343) + JVS(962) = -B(103) IF (DO_JVS(963)) & -! JVS(963) = Jac_FULL(142,351) - JVS(963) = -B(194) +! JVS(963) = Jac_FULL(143,345) + JVS(963) = B(100) IF (DO_JVS(964)) & -! JVS(964) = Jac_FULL(143,143) - JVS(964) = -B(1381) +! JVS(964) = Jac_FULL(144,144) + JVS(964) = -B(169)-B(193)-B(637) IF (DO_JVS(965)) & -! JVS(965) = Jac_FULL(143,220) - JVS(965) = 0.1*B(1342) +! JVS(965) = Jac_FULL(144,343) + JVS(965) = -B(170) IF (DO_JVS(966)) & -! JVS(966) = Jac_FULL(143,341) - JVS(966) = 0.1*B(1343) +! JVS(966) = Jac_FULL(144,348) + JVS(966) = -B(194) IF (DO_JVS(967)) & -! JVS(967) = Jac_FULL(143,345) - JVS(967) = -B(1382) +! JVS(967) = Jac_FULL(144,352) + JVS(967) = -B(638) IF (DO_JVS(968)) & -! JVS(968) = Jac_FULL(144,144) - JVS(968) = -B(1007)-B(1782) +! JVS(968) = Jac_FULL(145,145) + JVS(968) = -B(1381) IF (DO_JVS(969)) & -! JVS(969) = Jac_FULL(144,199) - JVS(969) = 0.009*B(1029) +! JVS(969) = Jac_FULL(145,223) + JVS(969) = 0.1*B(1342) IF (DO_JVS(970)) & -! JVS(970) = Jac_FULL(144,276) - JVS(970) = 0.15*B(955) +! JVS(970) = Jac_FULL(145,343) + JVS(970) = -B(1382) IF (DO_JVS(971)) & -! JVS(971) = Jac_FULL(144,304) - JVS(971) = 0.15*B(968) +! JVS(971) = Jac_FULL(145,356) + JVS(971) = 0.1*B(1343) IF (DO_JVS(972)) & -! JVS(972) = Jac_FULL(144,345) - JVS(972) = 0.15*B(956)-B(1008)+0.009*B(1030) +! JVS(972) = Jac_FULL(146,93) + JVS(972) = 2*B(23)+2*B(1651) IF (DO_JVS(973)) & -! JVS(973) = Jac_FULL(145,145) - JVS(973) = -B(1177)-B(1179) +! JVS(973) = Jac_FULL(146,146) + JVS(973) = -B(1759) IF (DO_JVS(974)) & -! JVS(974) = Jac_FULL(145,186) - JVS(974) = 0.841*B(1788) +! JVS(974) = Jac_FULL(146,183) + JVS(974) = B(1) IF (DO_JVS(975)) & -! JVS(975) = Jac_FULL(145,299) - JVS(975) = 0.222*B(1791) +! JVS(975) = Jac_FULL(146,244) + JVS(975) = B(711) IF (DO_JVS(976)) & -! JVS(976) = Jac_FULL(145,310) - JVS(976) = 0.474*B(1154) +! JVS(976) = Jac_FULL(146,267) + JVS(976) = B(15)+B(1641) IF (DO_JVS(977)) & -! JVS(977) = Jac_FULL(145,311) - JVS(977) = 0.474*B(1155)+0.34*B(1156)+0.244*B(1157)+0.841*B(1163)+0.841*B(1167)+0.841*B(1173) +! JVS(977) = Jac_FULL(146,317) + JVS(977) = B(703) IF (DO_JVS(978)) & -! JVS(978) = Jac_FULL(145,324) - JVS(978) = 0.841*B(1164) +! JVS(978) = Jac_FULL(146,320) + JVS(978) = B(1561) IF (DO_JVS(979)) & -! JVS(979) = Jac_FULL(145,328) - JVS(979) = 0.244*B(1158) +! JVS(979) = Jac_FULL(146,329) + JVS(979) = 0 IF (DO_JVS(980)) & -! JVS(980) = Jac_FULL(145,346) - JVS(980) = 0.841*B(1174) +! JVS(980) = Jac_FULL(146,332) + JVS(980) = B(1547) IF (DO_JVS(981)) & -! JVS(981) = Jac_FULL(145,351) - JVS(981) = 0.841*B(1168) +! JVS(981) = Jac_FULL(146,343) + JVS(981) = 2*B(24)+B(387)+2*B(1652) IF (DO_JVS(982)) & -! JVS(982) = Jac_FULL(146,121) - JVS(982) = B(1399)+B(1401) +! JVS(982) = Jac_FULL(146,345) + JVS(982) = B(1646) IF (DO_JVS(983)) & -! JVS(983) = Jac_FULL(146,146) - JVS(983) = -B(1403)-B(1661) +! JVS(983) = Jac_FULL(146,355) + JVS(983) = B(2)+B(16)+B(17)+B(19)+2*B(25)+B(388)+B(704)+B(712)+B(1548)+B(1562)+B(1642)+B(1643)+B(1645)+B(1647)+2& + &*B(1653) IF (DO_JVS(984)) & -! JVS(984) = Jac_FULL(146,200) - JVS(984) = 0 +! JVS(984) = Jac_FULL(146,356) + JVS(984) = B(3)+B(18)+B(1644) IF (DO_JVS(985)) & -! JVS(985) = Jac_FULL(146,337) - JVS(985) = B(1402) +! JVS(985) = Jac_FULL(147,147) + JVS(985) = -B(1177)-B(1179) IF (DO_JVS(986)) & -! JVS(986) = Jac_FULL(146,345) - JVS(986) = -B(1404) +! JVS(986) = Jac_FULL(147,188) + JVS(986) = 0.841*B(1801) IF (DO_JVS(987)) & -! JVS(987) = Jac_FULL(146,346) - JVS(987) = B(1400) +! JVS(987) = Jac_FULL(147,303) + JVS(987) = 0.222*B(1804) IF (DO_JVS(988)) & -! JVS(988) = Jac_FULL(147,147) - JVS(988) = -B(1308)-B(1796) +! JVS(988) = Jac_FULL(147,308) + JVS(988) = 0.474*B(1154) IF (DO_JVS(989)) & -! JVS(989) = Jac_FULL(147,285) - JVS(989) = B(1070) +! JVS(989) = Jac_FULL(147,310) + JVS(989) = 0.474*B(1155)+0.34*B(1156)+0.244*B(1157)+0.841*B(1163)+0.841*B(1167)+0.841*B(1173) IF (DO_JVS(990)) & -! JVS(990) = Jac_FULL(147,286) - JVS(990) = B(1062) +! JVS(990) = Jac_FULL(147,328) + JVS(990) = 0.841*B(1164) IF (DO_JVS(991)) & -! JVS(991) = Jac_FULL(147,345) - JVS(991) = -B(1309) +! JVS(991) = Jac_FULL(147,334) + JVS(991) = 0.244*B(1158) IF (DO_JVS(992)) & -! JVS(992) = Jac_FULL(148,148) - JVS(992) = -B(403)-B(1690) +! JVS(992) = Jac_FULL(147,338) + JVS(992) = 0.841*B(1174) IF (DO_JVS(993)) & -! JVS(993) = Jac_FULL(148,218) - JVS(993) = B(401) +! JVS(993) = Jac_FULL(147,348) + JVS(993) = 0.841*B(1168) IF (DO_JVS(994)) & -! JVS(994) = Jac_FULL(148,316) - JVS(994) = B(1549)+B(1557)+B(1559) +! JVS(994) = Jac_FULL(148,148) + JVS(994) = -B(1344)-B(1346) IF (DO_JVS(995)) & -! JVS(995) = Jac_FULL(148,342) - JVS(995) = B(402) +! JVS(995) = Jac_FULL(148,343) + JVS(995) = -B(1345) IF (DO_JVS(996)) & -! JVS(996) = Jac_FULL(148,345) - JVS(996) = -B(404) +! JVS(996) = Jac_FULL(148,348) + JVS(996) = -B(1347) IF (DO_JVS(997)) & -! JVS(997) = Jac_FULL(148,347) - JVS(997) = B(398) +! JVS(997) = Jac_FULL(149,149) + JVS(997) = -B(1308)-B(1809) IF (DO_JVS(998)) & -! JVS(998) = Jac_FULL(148,349) - JVS(998) = B(1558) +! JVS(998) = Jac_FULL(149,288) + JVS(998) = B(1070) IF (DO_JVS(999)) & -! JVS(999) = Jac_FULL(148,350) - JVS(999) = B(1560) +! JVS(999) = Jac_FULL(149,289) + JVS(999) = B(1062) IF (DO_JVS(1000)) & -! JVS(1000) = Jac_FULL(148,352) - JVS(1000) = B(1550) +! JVS(1000) = Jac_FULL(149,343) + JVS(1000) = -B(1309) IF (DO_JVS(1001)) & -! JVS(1001) = Jac_FULL(149,149) - JVS(1001) = -B(1344)-B(1346) +! JVS(1001) = Jac_FULL(150,150) + JVS(1001) = -B(1005)-B(1794) IF (DO_JVS(1002)) & -! JVS(1002) = Jac_FULL(149,345) - JVS(1002) = -B(1345) +! JVS(1002) = Jac_FULL(150,213) + JVS(1002) = 0.009*B(1027) IF (DO_JVS(1003)) & -! JVS(1003) = Jac_FULL(149,351) - JVS(1003) = -B(1347) +! JVS(1003) = Jac_FULL(150,279) + JVS(1003) = 0.15*B(953) IF (DO_JVS(1004)) & -! JVS(1004) = Jac_FULL(150,150) - JVS(1004) = -B(1005)-B(1781) +! JVS(1004) = Jac_FULL(150,314) + JVS(1004) = 0.15*B(966) IF (DO_JVS(1005)) & -! JVS(1005) = Jac_FULL(150,209) - JVS(1005) = 0.009*B(1027) +! JVS(1005) = Jac_FULL(150,343) + JVS(1005) = 0.15*B(954)-B(1006)+0.009*B(1028) IF (DO_JVS(1006)) & -! JVS(1006) = Jac_FULL(150,276) - JVS(1006) = 0.15*B(953) +! JVS(1006) = Jac_FULL(151,151) + JVS(1006) = -B(1007)-B(1795) IF (DO_JVS(1007)) & -! JVS(1007) = Jac_FULL(150,305) - JVS(1007) = 0.15*B(966) +! JVS(1007) = Jac_FULL(151,202) + JVS(1007) = 0.009*B(1029) IF (DO_JVS(1008)) & -! JVS(1008) = Jac_FULL(150,345) - JVS(1008) = 0.15*B(954)-B(1006)+0.009*B(1028) +! JVS(1008) = Jac_FULL(151,279) + JVS(1008) = 0.15*B(955) IF (DO_JVS(1009)) & -! JVS(1009) = Jac_FULL(151,151) - JVS(1009) = -B(1054)-B(1056)-B(1617) +! JVS(1009) = Jac_FULL(151,315) + JVS(1009) = 0.15*B(968) IF (DO_JVS(1010)) & -! JVS(1010) = Jac_FULL(151,168) - JVS(1010) = 0.67*B(1099) +! JVS(1010) = Jac_FULL(151,343) + JVS(1010) = 0.15*B(956)-B(1008)+0.009*B(1030) IF (DO_JVS(1011)) & -! JVS(1011) = Jac_FULL(151,175) - JVS(1011) = 0.67*B(1095) +! JVS(1011) = Jac_FULL(152,124) + JVS(1011) = B(1399)+B(1401) IF (DO_JVS(1012)) & -! JVS(1012) = Jac_FULL(151,187) - JVS(1012) = 0.67*B(1017) +! JVS(1012) = Jac_FULL(152,152) + JVS(1012) = -B(1403)-B(1674) IF (DO_JVS(1013)) & -! JVS(1013) = Jac_FULL(151,192) - JVS(1013) = 0.68*B(1021) +! JVS(1013) = Jac_FULL(152,203) + JVS(1013) = 0 IF (DO_JVS(1014)) & -! JVS(1014) = Jac_FULL(151,345) - JVS(1014) = 0.67*B(1018)+0.68*B(1022)-B(1055)-B(1057)+0.67*B(1096)+0.67*B(1100) +! JVS(1014) = Jac_FULL(152,338) + JVS(1014) = B(1400) IF (DO_JVS(1015)) & -! JVS(1015) = Jac_FULL(152,152) - JVS(1015) = -B(1058)-B(1060)-B(1618) +! JVS(1015) = Jac_FULL(152,341) + JVS(1015) = B(1402) IF (DO_JVS(1016)) & -! JVS(1016) = Jac_FULL(152,168) - JVS(1016) = 0.33*B(1099) +! JVS(1016) = Jac_FULL(152,343) + JVS(1016) = -B(1404) IF (DO_JVS(1017)) & -! JVS(1017) = Jac_FULL(152,175) - JVS(1017) = 0.33*B(1095) +! JVS(1017) = Jac_FULL(153,153) + JVS(1017) = -B(403)-B(1703) IF (DO_JVS(1018)) & -! JVS(1018) = Jac_FULL(152,187) - JVS(1018) = 0.33*B(1017) +! JVS(1018) = Jac_FULL(153,221) + JVS(1018) = B(401) IF (DO_JVS(1019)) & -! JVS(1019) = Jac_FULL(152,192) - JVS(1019) = 0.32*B(1021) +! JVS(1019) = Jac_FULL(153,320) + JVS(1019) = B(1549)+B(1557)+B(1559) IF (DO_JVS(1020)) & -! JVS(1020) = Jac_FULL(152,345) - JVS(1020) = 0.33*B(1018)+0.32*B(1022)-B(1059)-B(1061)+0.33*B(1096)+0.33*B(1100) +! JVS(1020) = Jac_FULL(153,342) + JVS(1020) = B(402) IF (DO_JVS(1021)) & -! JVS(1021) = Jac_FULL(153,153) - JVS(1021) = -B(1268) +! JVS(1021) = Jac_FULL(153,343) + JVS(1021) = -B(404) IF (DO_JVS(1022)) & -! JVS(1022) = Jac_FULL(153,258) - JVS(1022) = 0.15*B(1306)+0.15*B(1792)+0.163*B(1793) +! JVS(1022) = Jac_FULL(153,347) + JVS(1022) = B(398) IF (DO_JVS(1023)) & -! JVS(1023) = Jac_FULL(153,285) - JVS(1023) = B(1071)+0.2*B(1072)+0.13*B(1076) +! JVS(1023) = Jac_FULL(153,349) + JVS(1023) = B(1558) IF (DO_JVS(1024)) & -! JVS(1024) = Jac_FULL(153,337) - JVS(1024) = 0.13*B(1077) +! JVS(1024) = Jac_FULL(153,350) + JVS(1024) = B(1560) IF (DO_JVS(1025)) & -! JVS(1025) = Jac_FULL(153,345) - JVS(1025) = -B(1269)+0.15*B(1307) +! JVS(1025) = Jac_FULL(153,354) + JVS(1025) = B(1550) IF (DO_JVS(1026)) & -! JVS(1026) = Jac_FULL(153,346) - JVS(1026) = 0.2*B(1073) +! JVS(1026) = Jac_FULL(154,154) + JVS(1026) = -B(269)-B(625) IF (DO_JVS(1027)) & -! JVS(1027) = Jac_FULL(154,154) - JVS(1027) = -B(937)-B(1625)-B(1752) +! JVS(1027) = Jac_FULL(154,300) + JVS(1027) = 0.25*B(247)+0.4*B(273) IF (DO_JVS(1028)) & -! JVS(1028) = Jac_FULL(154,242) - JVS(1028) = B(927)+B(929)+B(931) +! JVS(1028) = Jac_FULL(154,319) + JVS(1028) = 0.25*B(249)+0.4*B(274) IF (DO_JVS(1029)) & -! JVS(1029) = Jac_FULL(154,256) - JVS(1029) = B(925)+B(933) +! JVS(1029) = Jac_FULL(154,334) + JVS(1029) = 0.25*B(248)+0.25*B(250) IF (DO_JVS(1030)) & -! JVS(1030) = Jac_FULL(154,341) - JVS(1030) = B(930) +! JVS(1030) = Jac_FULL(154,343) + JVS(1030) = -B(270) IF (DO_JVS(1031)) & -! JVS(1031) = Jac_FULL(154,345) - JVS(1031) = B(926)+B(928)-B(938) +! JVS(1031) = Jac_FULL(154,352) + JVS(1031) = -B(626) IF (DO_JVS(1032)) & -! JVS(1032) = Jac_FULL(154,351) - JVS(1032) = B(932)+B(934) +! JVS(1032) = Jac_FULL(155,155) + JVS(1032) = -B(1268) IF (DO_JVS(1033)) & -! JVS(1033) = Jac_FULL(155,155) - JVS(1033) = -B(336)-B(1684) +! JVS(1033) = Jac_FULL(155,259) + JVS(1033) = 0.15*B(1306)+0.15*B(1805)+0.163*B(1806) IF (DO_JVS(1034)) & -! JVS(1034) = Jac_FULL(155,240) - JVS(1034) = 0.41*B(1407) +! JVS(1034) = Jac_FULL(155,288) + JVS(1034) = B(1071)+0.2*B(1072)+0.13*B(1076) IF (DO_JVS(1035)) & -! JVS(1035) = Jac_FULL(155,246) - JVS(1035) = 0.41*B(245) +! JVS(1035) = Jac_FULL(155,338) + JVS(1035) = 0.2*B(1073) IF (DO_JVS(1036)) & -! JVS(1036) = Jac_FULL(155,322) - JVS(1036) = 0.41*B(283) +! JVS(1036) = Jac_FULL(155,341) + JVS(1036) = 0.13*B(1077) IF (DO_JVS(1037)) & -! JVS(1037) = Jac_FULL(155,337) - JVS(1037) = 0.41*B(246)+0.41*B(284)+0.41*B(1408) +! JVS(1037) = Jac_FULL(155,343) + JVS(1037) = -B(1269)+0.15*B(1307) IF (DO_JVS(1038)) & -! JVS(1038) = Jac_FULL(155,345) - JVS(1038) = -B(337) +! JVS(1038) = Jac_FULL(156,156) + JVS(1038) = -B(937)-B(1625)-B(1765) IF (DO_JVS(1039)) & -! JVS(1039) = Jac_FULL(156,156) - JVS(1039) = -B(269)-B(625) +! JVS(1039) = Jac_FULL(156,246) + JVS(1039) = B(927)+B(929)+B(931) IF (DO_JVS(1040)) & -! JVS(1040) = Jac_FULL(156,296) - JVS(1040) = 0.25*B(247)+0.4*B(273) +! JVS(1040) = Jac_FULL(156,260) + JVS(1040) = B(925)+B(933) IF (DO_JVS(1041)) & -! JVS(1041) = Jac_FULL(156,315) - JVS(1041) = 0.25*B(249)+0.4*B(274) +! JVS(1041) = Jac_FULL(156,343) + JVS(1041) = B(926)+B(928)-B(938) IF (DO_JVS(1042)) & -! JVS(1042) = Jac_FULL(156,328) - JVS(1042) = 0.25*B(248)+0.25*B(250) +! JVS(1042) = Jac_FULL(156,348) + JVS(1042) = B(932)+B(934) IF (DO_JVS(1043)) & -! JVS(1043) = Jac_FULL(156,340) - JVS(1043) = -B(626) +! JVS(1043) = Jac_FULL(156,356) + JVS(1043) = B(930) IF (DO_JVS(1044)) & -! JVS(1044) = Jac_FULL(156,345) - JVS(1044) = -B(270) +! JVS(1044) = Jac_FULL(157,157) + JVS(1044) = -B(1054)-B(1056)-B(1617) IF (DO_JVS(1045)) & -! JVS(1045) = Jac_FULL(157,157) - JVS(1045) = -B(1701) +! JVS(1045) = Jac_FULL(157,175) + JVS(1045) = 0.67*B(1095) IF (DO_JVS(1046)) & -! JVS(1046) = Jac_FULL(157,218) - JVS(1046) = B(1511) +! JVS(1046) = Jac_FULL(157,177) + JVS(1046) = 0.67*B(1099) IF (DO_JVS(1047)) & -! JVS(1047) = Jac_FULL(157,297) - JVS(1047) = B(1533)+B(1535)+B(1537) +! JVS(1047) = Jac_FULL(157,191) + JVS(1047) = 0.67*B(1017) IF (DO_JVS(1048)) & -! JVS(1048) = Jac_FULL(157,316) - JVS(1048) = B(1551)+B(1553)+B(1555) +! JVS(1048) = Jac_FULL(157,195) + JVS(1048) = 0.68*B(1021) IF (DO_JVS(1049)) & -! JVS(1049) = Jac_FULL(157,317) - JVS(1049) = B(1517)+B(1519)+B(1521) +! JVS(1049) = Jac_FULL(157,343) + JVS(1049) = 0.67*B(1018)+0.68*B(1022)-B(1055)-B(1057)+0.67*B(1096)+0.67*B(1100) IF (DO_JVS(1050)) & -! JVS(1050) = Jac_FULL(157,333) - JVS(1050) = B(1541) +! JVS(1050) = Jac_FULL(158,158) + JVS(1050) = -B(336)-B(1697) IF (DO_JVS(1051)) & -! JVS(1051) = Jac_FULL(157,338) - JVS(1051) = B(599) +! JVS(1051) = Jac_FULL(158,243) + JVS(1051) = 0.41*B(1407) IF (DO_JVS(1052)) & -! JVS(1052) = Jac_FULL(157,339) - JVS(1052) = B(1512)+B(1552) +! JVS(1052) = Jac_FULL(158,250) + JVS(1052) = 0.41*B(245) IF (DO_JVS(1053)) & -! JVS(1053) = Jac_FULL(157,344) - JVS(1053) = B(1556) +! JVS(1053) = Jac_FULL(158,325) + JVS(1053) = 0.41*B(283) IF (DO_JVS(1054)) & -! JVS(1054) = Jac_FULL(157,347) - JVS(1054) = B(600) +! JVS(1054) = Jac_FULL(158,341) + JVS(1054) = 0.41*B(246)+0.41*B(284)+0.41*B(1408) IF (DO_JVS(1055)) & -! JVS(1055) = Jac_FULL(157,349) - JVS(1055) = B(1520)+B(1534) +! JVS(1055) = Jac_FULL(158,343) + JVS(1055) = -B(337) IF (DO_JVS(1056)) & -! JVS(1056) = Jac_FULL(157,350) - JVS(1056) = B(1522)+B(1536) +! JVS(1056) = Jac_FULL(159,159) + JVS(1056) = -B(1058)-B(1060)-B(1618) IF (DO_JVS(1057)) & -! JVS(1057) = Jac_FULL(157,352) - JVS(1057) = B(1518)+B(1538)+B(1542) +! JVS(1057) = Jac_FULL(159,175) + JVS(1057) = 0.33*B(1095) IF (DO_JVS(1058)) & -! JVS(1058) = Jac_FULL(157,353) - JVS(1058) = B(1554) +! JVS(1058) = Jac_FULL(159,177) + JVS(1058) = 0.33*B(1099) IF (DO_JVS(1059)) & -! JVS(1059) = Jac_FULL(158,82) - JVS(1059) = 0.19*B(1383) +! JVS(1059) = Jac_FULL(159,191) + JVS(1059) = 0.33*B(1017) IF (DO_JVS(1060)) & -! JVS(1060) = Jac_FULL(158,101) - JVS(1060) = 0.15*B(1385) +! JVS(1060) = Jac_FULL(159,195) + JVS(1060) = 0.32*B(1021) IF (DO_JVS(1061)) & -! JVS(1061) = Jac_FULL(158,149) - JVS(1061) = 0.18*B(1344) +! JVS(1061) = Jac_FULL(159,343) + JVS(1061) = 0.33*B(1018)+0.32*B(1022)-B(1059)-B(1061)+0.33*B(1096)+0.33*B(1100) IF (DO_JVS(1062)) & -! JVS(1062) = Jac_FULL(158,158) - JVS(1062) = -B(1418)-B(1420) +! JVS(1062) = Jac_FULL(160,160) + JVS(1062) = -B(1714) IF (DO_JVS(1063)) & -! JVS(1063) = Jac_FULL(158,200) - JVS(1063) = 0.03*B(1348) +! JVS(1063) = Jac_FULL(160,221) + JVS(1063) = B(1511) IF (DO_JVS(1064)) & -! JVS(1064) = Jac_FULL(158,345) - JVS(1064) = 0.18*B(1345)+0.03*B(1349)+0.19*B(1384)+0.15*B(1386)-B(1419) +! JVS(1064) = Jac_FULL(160,301) + JVS(1064) = B(1533)+B(1535)+B(1537) IF (DO_JVS(1065)) & -! JVS(1065) = Jac_FULL(158,351) - JVS(1065) = -B(1421) +! JVS(1065) = Jac_FULL(160,320) + JVS(1065) = B(1551)+B(1553)+B(1555) IF (DO_JVS(1066)) & -! JVS(1066) = Jac_FULL(159,159) - JVS(1066) = -B(1280)-0.75*B(1771) +! JVS(1066) = Jac_FULL(160,321) + JVS(1066) = B(1517)+B(1519)+B(1521) IF (DO_JVS(1067)) & -! JVS(1067) = Jac_FULL(159,259) - JVS(1067) = 0.5*B(1278) +! JVS(1067) = Jac_FULL(160,332) + JVS(1067) = B(1541) IF (DO_JVS(1068)) & -! JVS(1068) = Jac_FULL(159,337) - JVS(1068) = 0.5*B(1279) +! JVS(1068) = Jac_FULL(160,339) + JVS(1068) = B(1554) IF (DO_JVS(1069)) & -! JVS(1069) = Jac_FULL(159,345) - JVS(1069) = -B(1281) +! JVS(1069) = Jac_FULL(160,340) + JVS(1069) = B(1512)+B(1552) IF (DO_JVS(1070)) & -! JVS(1070) = Jac_FULL(160,160) - JVS(1070) = -B(770)-B(1811) +! JVS(1070) = Jac_FULL(160,344) + JVS(1070) = B(599) IF (DO_JVS(1071)) & -! JVS(1071) = Jac_FULL(160,278) - JVS(1071) = B(762)+0.25*B(768) +! JVS(1071) = Jac_FULL(160,346) + JVS(1071) = B(1556) IF (DO_JVS(1072)) & -! JVS(1072) = Jac_FULL(160,328) - JVS(1072) = 0.25*B(769) +! JVS(1072) = Jac_FULL(160,347) + JVS(1072) = B(600) IF (DO_JVS(1073)) & -! JVS(1073) = Jac_FULL(160,337) - JVS(1073) = B(763) +! JVS(1073) = Jac_FULL(160,349) + JVS(1073) = B(1520)+B(1534) IF (DO_JVS(1074)) & -! JVS(1074) = Jac_FULL(160,345) - JVS(1074) = -B(771) +! JVS(1074) = Jac_FULL(160,350) + JVS(1074) = B(1522)+B(1536) IF (DO_JVS(1075)) & -! JVS(1075) = Jac_FULL(161,161) - JVS(1075) = -B(796)-B(1813) +! JVS(1075) = Jac_FULL(160,354) + JVS(1075) = B(1518)+B(1538)+B(1542) IF (DO_JVS(1076)) & -! JVS(1076) = Jac_FULL(161,273) - JVS(1076) = B(786)+0.25*B(792) +! JVS(1076) = Jac_FULL(161,161) + JVS(1076) = -B(1280)-0.75*B(1784) IF (DO_JVS(1077)) & -! JVS(1077) = Jac_FULL(161,328) - JVS(1077) = 0.25*B(793) +! JVS(1077) = Jac_FULL(161,262) + JVS(1077) = 0.5*B(1278) IF (DO_JVS(1078)) & -! JVS(1078) = Jac_FULL(161,337) - JVS(1078) = B(787) +! JVS(1078) = Jac_FULL(161,341) + JVS(1078) = 0.5*B(1279) IF (DO_JVS(1079)) & -! JVS(1079) = Jac_FULL(161,345) - JVS(1079) = -B(797) +! JVS(1079) = Jac_FULL(161,343) + JVS(1079) = -B(1281) IF (DO_JVS(1080)) & -! JVS(1080) = Jac_FULL(162,138) - JVS(1080) = 0.5*B(780) +! JVS(1080) = Jac_FULL(162,85) + JVS(1080) = 0.19*B(1383) IF (DO_JVS(1081)) & -! JVS(1081) = Jac_FULL(162,162) - JVS(1081) = -B(798) +! JVS(1081) = Jac_FULL(162,103) + JVS(1081) = 0.15*B(1385) IF (DO_JVS(1082)) & -! JVS(1082) = Jac_FULL(162,273) - JVS(1082) = B(788) +! JVS(1082) = Jac_FULL(162,148) + JVS(1082) = 0.18*B(1344) IF (DO_JVS(1083)) & -! JVS(1083) = Jac_FULL(162,275) - JVS(1083) = 0 +! JVS(1083) = Jac_FULL(162,162) + JVS(1083) = -B(1418)-B(1420) IF (DO_JVS(1084)) & -! JVS(1084) = Jac_FULL(162,345) - JVS(1084) = 0.5*B(781)-B(799) +! JVS(1084) = Jac_FULL(162,203) + JVS(1084) = 0.03*B(1348) IF (DO_JVS(1085)) & -! JVS(1085) = Jac_FULL(162,346) - JVS(1085) = B(789) +! JVS(1085) = Jac_FULL(162,343) + JVS(1085) = 0.18*B(1345)+0.03*B(1349)+0.19*B(1384)+0.15*B(1386)-B(1419) IF (DO_JVS(1086)) & -! JVS(1086) = Jac_FULL(163,163) - JVS(1086) = -B(832)-B(834) +! JVS(1086) = Jac_FULL(162,348) + JVS(1086) = -B(1421) IF (DO_JVS(1087)) & -! JVS(1087) = Jac_FULL(163,255) - JVS(1087) = 0.3*B(808) +! JVS(1087) = Jac_FULL(163,163) + JVS(1087) = -B(770)-B(1824) IF (DO_JVS(1088)) & -! JVS(1088) = Jac_FULL(163,272) - JVS(1088) = 0.84*B(824)+B(828)+0.75*B(830) +! JVS(1088) = Jac_FULL(163,282) + JVS(1088) = B(762)+0.25*B(768) IF (DO_JVS(1089)) & -! JVS(1089) = Jac_FULL(163,328) - JVS(1089) = 0.75*B(831) +! JVS(1089) = Jac_FULL(163,334) + JVS(1089) = 0.25*B(769) IF (DO_JVS(1090)) & ! JVS(1090) = Jac_FULL(163,341) - JVS(1090) = 0.3*B(809) + JVS(1090) = B(763) IF (DO_JVS(1091)) & -! JVS(1091) = Jac_FULL(163,345) - JVS(1091) = -B(833) +! JVS(1091) = Jac_FULL(163,343) + JVS(1091) = -B(771) IF (DO_JVS(1092)) & -! JVS(1092) = Jac_FULL(163,346) - JVS(1092) = 0.84*B(825) +! JVS(1092) = Jac_FULL(164,164) + JVS(1092) = -B(796)-B(1826) IF (DO_JVS(1093)) & -! JVS(1093) = Jac_FULL(163,351) - JVS(1093) = B(829)-B(835) +! JVS(1093) = Jac_FULL(164,275) + JVS(1093) = B(786)+0.25*B(792) IF (DO_JVS(1094)) & -! JVS(1094) = Jac_FULL(164,164) - JVS(1094) = -B(59)-B(615)-B(1646) +! JVS(1094) = Jac_FULL(164,334) + JVS(1094) = 0.25*B(793) IF (DO_JVS(1095)) & -! JVS(1095) = Jac_FULL(164,328) - JVS(1095) = B(53) +! JVS(1095) = Jac_FULL(164,341) + JVS(1095) = B(787) IF (DO_JVS(1096)) & -! JVS(1096) = Jac_FULL(164,337) - JVS(1096) = B(54) +! JVS(1096) = Jac_FULL(164,343) + JVS(1096) = -B(797) IF (DO_JVS(1097)) & -! JVS(1097) = Jac_FULL(164,340) - JVS(1097) = -B(616) +! JVS(1097) = Jac_FULL(165,141) + JVS(1097) = 0.5*B(780) IF (DO_JVS(1098)) & -! JVS(1098) = Jac_FULL(164,345) - JVS(1098) = -B(60) +! JVS(1098) = Jac_FULL(165,165) + JVS(1098) = -B(798) IF (DO_JVS(1099)) & -! JVS(1099) = Jac_FULL(165,165) - JVS(1099) = -B(138)-B(140) +! JVS(1099) = Jac_FULL(165,275) + JVS(1099) = B(788) IF (DO_JVS(1100)) & -! JVS(1100) = Jac_FULL(165,196) - JVS(1100) = B(136) +! JVS(1100) = Jac_FULL(165,276) + JVS(1100) = 0 IF (DO_JVS(1101)) & -! JVS(1101) = Jac_FULL(165,337) - JVS(1101) = -B(141) +! JVS(1101) = Jac_FULL(165,338) + JVS(1101) = B(789) IF (DO_JVS(1102)) & -! JVS(1102) = Jac_FULL(165,345) - JVS(1102) = B(137) +! JVS(1102) = Jac_FULL(165,343) + JVS(1102) = 0.5*B(781)-B(799) IF (DO_JVS(1103)) & -! JVS(1103) = Jac_FULL(165,346) - JVS(1103) = -B(139) +! JVS(1103) = Jac_FULL(166,166) + JVS(1103) = -B(832)-B(834) IF (DO_JVS(1104)) & -! JVS(1104) = Jac_FULL(166,166) - JVS(1104) = -2*B(8)-B(11)-B(13) +! JVS(1104) = Jac_FULL(166,256) + JVS(1104) = 0.3*B(808) IF (DO_JVS(1105)) & -! JVS(1105) = Jac_FULL(166,327) - JVS(1105) = -B(14) +! JVS(1105) = Jac_FULL(166,278) + JVS(1105) = 0.84*B(824)+B(828)+0.75*B(830) IF (DO_JVS(1106)) & -! JVS(1106) = Jac_FULL(166,339) - JVS(1106) = -B(12) +! JVS(1106) = Jac_FULL(166,334) + JVS(1106) = 0.75*B(831) IF (DO_JVS(1107)) & -! JVS(1107) = Jac_FULL(166,341) - JVS(1107) = -2*B(9) +! JVS(1107) = Jac_FULL(166,338) + JVS(1107) = 0.84*B(825) IF (DO_JVS(1108)) & -! JVS(1108) = Jac_FULL(166,348) - JVS(1108) = -2*B(10) +! JVS(1108) = Jac_FULL(166,343) + JVS(1108) = -B(833) IF (DO_JVS(1109)) & -! JVS(1109) = Jac_FULL(167,167) - JVS(1109) = -B(721)-B(723)-B(725) +! JVS(1109) = Jac_FULL(166,348) + JVS(1109) = B(829)-B(835) IF (DO_JVS(1110)) & -! JVS(1110) = Jac_FULL(167,341) - JVS(1110) = -B(726) +! JVS(1110) = Jac_FULL(166,356) + JVS(1110) = 0.3*B(809) IF (DO_JVS(1111)) & -! JVS(1111) = Jac_FULL(167,345) - JVS(1111) = -B(724) +! JVS(1111) = Jac_FULL(167,167) + JVS(1111) = -B(59)-B(615)-B(1659) IF (DO_JVS(1112)) & -! JVS(1112) = Jac_FULL(167,351) - JVS(1112) = -B(722) +! JVS(1112) = Jac_FULL(167,334) + JVS(1112) = B(53) IF (DO_JVS(1113)) & -! JVS(1113) = Jac_FULL(168,168) - JVS(1113) = -B(1097)-B(1099)-B(1630)-B(1785) +! JVS(1113) = Jac_FULL(167,341) + JVS(1113) = B(54) IF (DO_JVS(1114)) & -! JVS(1114) = Jac_FULL(168,304) - JVS(1114) = B(993) +! JVS(1114) = Jac_FULL(167,343) + JVS(1114) = -B(60) IF (DO_JVS(1115)) & -! JVS(1115) = Jac_FULL(168,345) - JVS(1115) = -B(1098)-B(1100) +! JVS(1115) = Jac_FULL(167,352) + JVS(1115) = -B(616) IF (DO_JVS(1116)) & -! JVS(1116) = Jac_FULL(168,346) - JVS(1116) = B(994) +! JVS(1116) = Jac_FULL(168,168) + JVS(1116) = -B(138)-B(140) IF (DO_JVS(1117)) & -! JVS(1117) = Jac_FULL(169,169) - JVS(1117) = -B(847)-B(1814) +! JVS(1117) = Jac_FULL(168,200) + JVS(1117) = B(136) IF (DO_JVS(1118)) & -! JVS(1118) = Jac_FULL(169,272) - JVS(1118) = B(826)+0.25*B(830) +! JVS(1118) = Jac_FULL(168,338) + JVS(1118) = -B(139) IF (DO_JVS(1119)) & -! JVS(1119) = Jac_FULL(169,274) - JVS(1119) = 0.41*B(838) +! JVS(1119) = Jac_FULL(168,341) + JVS(1119) = -B(141) IF (DO_JVS(1120)) & -! JVS(1120) = Jac_FULL(169,328) - JVS(1120) = 0.25*B(831) +! JVS(1120) = Jac_FULL(168,343) + JVS(1120) = B(137) IF (DO_JVS(1121)) & -! JVS(1121) = Jac_FULL(169,337) - JVS(1121) = B(827)+0.41*B(839) +! JVS(1121) = Jac_FULL(169,169) + JVS(1121) = -2*B(8)-B(11)-B(13) IF (DO_JVS(1122)) & -! JVS(1122) = Jac_FULL(169,345) - JVS(1122) = -B(848) +! JVS(1122) = Jac_FULL(169,333) + JVS(1122) = -B(14) IF (DO_JVS(1123)) & -! JVS(1123) = Jac_FULL(170,62) - JVS(1123) = B(645) +! JVS(1123) = Jac_FULL(169,340) + JVS(1123) = -B(12) IF (DO_JVS(1124)) & -! JVS(1124) = Jac_FULL(170,170) - JVS(1124) = -B(650)-B(673)-B(1725) +! JVS(1124) = Jac_FULL(169,355) + JVS(1124) = -2*B(9) IF (DO_JVS(1125)) & -! JVS(1125) = Jac_FULL(170,252) - JVS(1125) = B(649) +! JVS(1125) = Jac_FULL(169,356) + JVS(1125) = -2*B(10) IF (DO_JVS(1126)) & -! JVS(1126) = Jac_FULL(170,331) - JVS(1126) = B(655) +! JVS(1126) = Jac_FULL(170,170) + JVS(1126) = -B(721)-B(723)-B(725) IF (DO_JVS(1127)) & -! JVS(1127) = Jac_FULL(170,332) - JVS(1127) = B(656) +! JVS(1127) = Jac_FULL(170,343) + JVS(1127) = -B(724) IF (DO_JVS(1128)) & -! JVS(1128) = Jac_FULL(170,345) - JVS(1128) = -B(674) +! JVS(1128) = Jac_FULL(170,348) + JVS(1128) = -B(722) IF (DO_JVS(1129)) & -! JVS(1129) = Jac_FULL(170,346) - JVS(1129) = 0 +! JVS(1129) = Jac_FULL(170,356) + JVS(1129) = -B(726) IF (DO_JVS(1130)) & -! JVS(1130) = Jac_FULL(170,351) - JVS(1130) = -B(651) +! JVS(1130) = Jac_FULL(171,171) + JVS(1130) = -B(847)-B(1827) IF (DO_JVS(1131)) & -! JVS(1131) = Jac_FULL(171,171) - JVS(1131) = -B(1246)-B(1248)-B(1250) +! JVS(1131) = Jac_FULL(171,277) + JVS(1131) = 0.41*B(838) IF (DO_JVS(1132)) & -! JVS(1132) = Jac_FULL(171,230) - JVS(1132) = 0.224*B(1779) +! JVS(1132) = Jac_FULL(171,278) + JVS(1132) = B(826)+0.25*B(830) IF (DO_JVS(1133)) & -! JVS(1133) = Jac_FULL(171,301) - JVS(1133) = 0.068*B(1790) +! JVS(1133) = Jac_FULL(171,334) + JVS(1133) = 0.25*B(831) IF (DO_JVS(1134)) & -! JVS(1134) = Jac_FULL(171,335) - JVS(1134) = -B(1251) +! JVS(1134) = Jac_FULL(171,341) + JVS(1134) = B(827)+0.41*B(839) IF (DO_JVS(1135)) & -! JVS(1135) = Jac_FULL(171,337) - JVS(1135) = -B(1249) +! JVS(1135) = Jac_FULL(171,343) + JVS(1135) = -B(848) IF (DO_JVS(1136)) & -! JVS(1136) = Jac_FULL(171,346) - JVS(1136) = -B(1247) +! JVS(1136) = Jac_FULL(172,65) + JVS(1136) = B(645) IF (DO_JVS(1137)) & ! JVS(1137) = Jac_FULL(172,172) - JVS(1137) = -B(1252)-B(1254)-B(1256) + JVS(1137) = -B(650)-B(673)-B(1738) IF (DO_JVS(1138)) & -! JVS(1138) = Jac_FULL(172,231) - JVS(1138) = 0.182*B(1780) +! JVS(1138) = Jac_FULL(172,254) + JVS(1138) = B(649) IF (DO_JVS(1139)) & -! JVS(1139) = Jac_FULL(172,301) - JVS(1139) = 0.128*B(1790) +! JVS(1139) = Jac_FULL(172,296) + JVS(1139) = B(655) IF (DO_JVS(1140)) & -! JVS(1140) = Jac_FULL(172,335) - JVS(1140) = -B(1257) +! JVS(1140) = Jac_FULL(172,331) + JVS(1140) = B(656) IF (DO_JVS(1141)) & -! JVS(1141) = Jac_FULL(172,337) - JVS(1141) = -B(1255) +! JVS(1141) = Jac_FULL(172,338) + JVS(1141) = 0 IF (DO_JVS(1142)) & -! JVS(1142) = Jac_FULL(172,346) - JVS(1142) = -B(1253) +! JVS(1142) = Jac_FULL(172,343) + JVS(1142) = -B(674) IF (DO_JVS(1143)) & -! JVS(1143) = Jac_FULL(173,101) - JVS(1143) = 0.45*B(1385) +! JVS(1143) = Jac_FULL(172,348) + JVS(1143) = -B(651) IF (DO_JVS(1144)) & ! JVS(1144) = Jac_FULL(173,173) - JVS(1144) = -B(1336) + JVS(1144) = -B(1246)-B(1248)-B(1250) IF (DO_JVS(1145)) & -! JVS(1145) = Jac_FULL(173,200) - JVS(1145) = 0.5*B(1348) +! JVS(1145) = Jac_FULL(173,233) + JVS(1145) = 0.224*B(1792) IF (DO_JVS(1146)) & -! JVS(1146) = Jac_FULL(173,201) - JVS(1146) = 0.52*B(1470) +! JVS(1146) = Jac_FULL(173,305) + JVS(1146) = 0.068*B(1803) IF (DO_JVS(1147)) & -! JVS(1147) = Jac_FULL(173,221) - JVS(1147) = 0.43*B(1465) +! JVS(1147) = Jac_FULL(173,338) + JVS(1147) = -B(1247) IF (DO_JVS(1148)) & -! JVS(1148) = Jac_FULL(173,240) - JVS(1148) = 0.15*B(1407) +! JVS(1148) = Jac_FULL(173,341) + JVS(1148) = -B(1249) IF (DO_JVS(1149)) & -! JVS(1149) = Jac_FULL(173,246) - JVS(1149) = 0.15*B(245) +! JVS(1149) = Jac_FULL(173,345) + JVS(1149) = -B(1251) IF (DO_JVS(1150)) & -! JVS(1150) = Jac_FULL(173,289) - JVS(1150) = 0.5*B(915) +! JVS(1150) = Jac_FULL(174,174) + JVS(1150) = -B(1252)-B(1254)-B(1256) IF (DO_JVS(1151)) & -! JVS(1151) = Jac_FULL(173,322) - JVS(1151) = 0.15*B(283) +! JVS(1151) = Jac_FULL(174,231) + JVS(1151) = 0.182*B(1793) IF (DO_JVS(1152)) & -! JVS(1152) = Jac_FULL(173,324) - JVS(1152) = 0.5*B(916) +! JVS(1152) = Jac_FULL(174,305) + JVS(1152) = 0.128*B(1803) IF (DO_JVS(1153)) & -! JVS(1153) = Jac_FULL(173,337) - JVS(1153) = 0.15*B(246)+0.15*B(284)+0.15*B(1408) +! JVS(1153) = Jac_FULL(174,338) + JVS(1153) = -B(1253) IF (DO_JVS(1154)) & -! JVS(1154) = Jac_FULL(173,345) - JVS(1154) = -B(1337)+0.5*B(1349)+0.45*B(1386)+0.43*B(1466)+0.52*B(1471) +! JVS(1154) = Jac_FULL(174,341) + JVS(1154) = -B(1255) IF (DO_JVS(1155)) & -! JVS(1155) = Jac_FULL(174,174) - JVS(1155) = -B(1310)-B(1794) +! JVS(1155) = Jac_FULL(174,345) + JVS(1155) = -B(1257) IF (DO_JVS(1156)) & -! JVS(1156) = Jac_FULL(174,223) - JVS(1156) = 0.725*B(1036) +! JVS(1156) = Jac_FULL(175,175) + JVS(1156) = -B(1093)-B(1095)-B(1629)-B(1797) IF (DO_JVS(1157)) & -! JVS(1157) = Jac_FULL(174,224) - JVS(1157) = 0.725*B(1043) +! JVS(1157) = Jac_FULL(175,314) + JVS(1157) = B(985) IF (DO_JVS(1158)) & -! JVS(1158) = Jac_FULL(174,232) - JVS(1158) = 0.35*B(1050) +! JVS(1158) = Jac_FULL(175,338) + JVS(1158) = B(986) IF (DO_JVS(1159)) & -! JVS(1159) = Jac_FULL(174,337) - JVS(1159) = 0.725*B(1037)+0.725*B(1044)+0.35*B(1051) +! JVS(1159) = Jac_FULL(175,343) + JVS(1159) = -B(1094)-B(1096) IF (DO_JVS(1160)) & -! JVS(1160) = Jac_FULL(174,345) - JVS(1160) = -B(1311) +! JVS(1160) = Jac_FULL(176,103) + JVS(1160) = 0.45*B(1385) IF (DO_JVS(1161)) & -! JVS(1161) = Jac_FULL(175,175) - JVS(1161) = -B(1093)-B(1095)-B(1629)-B(1784) +! JVS(1161) = Jac_FULL(176,176) + JVS(1161) = -B(1336) IF (DO_JVS(1162)) & -! JVS(1162) = Jac_FULL(175,305) - JVS(1162) = B(985) +! JVS(1162) = Jac_FULL(176,203) + JVS(1162) = 0.5*B(1348) IF (DO_JVS(1163)) & -! JVS(1163) = Jac_FULL(175,345) - JVS(1163) = -B(1094)-B(1096) +! JVS(1163) = Jac_FULL(176,204) + JVS(1163) = 0.52*B(1470) IF (DO_JVS(1164)) & -! JVS(1164) = Jac_FULL(175,346) - JVS(1164) = B(986) +! JVS(1164) = Jac_FULL(176,224) + JVS(1164) = 0.43*B(1465) IF (DO_JVS(1165)) & -! JVS(1165) = Jac_FULL(176,137) - JVS(1165) = 0.5*B(743) +! JVS(1165) = Jac_FULL(176,243) + JVS(1165) = 0.15*B(1407) IF (DO_JVS(1166)) & -! JVS(1166) = Jac_FULL(176,176) - JVS(1166) = -B(772) +! JVS(1166) = Jac_FULL(176,250) + JVS(1166) = 0.15*B(245) IF (DO_JVS(1167)) & -! JVS(1167) = Jac_FULL(176,277) - JVS(1167) = 0 +! JVS(1167) = Jac_FULL(176,292) + JVS(1167) = 0.5*B(915) IF (DO_JVS(1168)) & -! JVS(1168) = Jac_FULL(176,278) - JVS(1168) = 0.16*B(764) +! JVS(1168) = Jac_FULL(176,325) + JVS(1168) = 0.15*B(283) IF (DO_JVS(1169)) & -! JVS(1169) = Jac_FULL(176,345) - JVS(1169) = 0.5*B(744)-B(773) +! JVS(1169) = Jac_FULL(176,328) + JVS(1169) = 0.5*B(916) IF (DO_JVS(1170)) & -! JVS(1170) = Jac_FULL(176,346) - JVS(1170) = 0.16*B(765) +! JVS(1170) = Jac_FULL(176,341) + JVS(1170) = 0.15*B(246)+0.15*B(284)+0.15*B(1408) IF (DO_JVS(1171)) & -! JVS(1171) = Jac_FULL(177,177) - JVS(1171) = -B(836) +! JVS(1171) = Jac_FULL(176,343) + JVS(1171) = -B(1337)+0.5*B(1349)+0.45*B(1386)+0.43*B(1466)+0.52*B(1471) IF (DO_JVS(1172)) & -! JVS(1172) = Jac_FULL(177,211) - JVS(1172) = 0.5*B(818)+0.5*B(820)+B(822) +! JVS(1172) = Jac_FULL(177,177) + JVS(1172) = -B(1097)-B(1099)-B(1630)-B(1798) IF (DO_JVS(1173)) & -! JVS(1173) = Jac_FULL(177,237) - JVS(1173) = B(816) +! JVS(1173) = Jac_FULL(177,315) + JVS(1173) = B(993) IF (DO_JVS(1174)) & -! JVS(1174) = Jac_FULL(177,255) - JVS(1174) = B(810) +! JVS(1174) = Jac_FULL(177,338) + JVS(1174) = B(994) IF (DO_JVS(1175)) & -! JVS(1175) = Jac_FULL(177,272) - JVS(1175) = 0.16*B(824) +! JVS(1175) = Jac_FULL(177,343) + JVS(1175) = -B(1098)-B(1100) IF (DO_JVS(1176)) & -! JVS(1176) = Jac_FULL(177,341) - JVS(1176) = 0.5*B(821) +! JVS(1176) = Jac_FULL(178,178) + JVS(1176) = -B(1310)-B(1807) IF (DO_JVS(1177)) & -! JVS(1177) = Jac_FULL(177,345) - JVS(1177) = 0.5*B(819)-B(837) +! JVS(1177) = Jac_FULL(178,226) + JVS(1177) = 0.725*B(1043) IF (DO_JVS(1178)) & -! JVS(1178) = Jac_FULL(177,346) - JVS(1178) = 0.16*B(825) +! JVS(1178) = Jac_FULL(178,228) + JVS(1178) = 0.725*B(1036) IF (DO_JVS(1179)) & -! JVS(1179) = Jac_FULL(177,351) - JVS(1179) = B(811)+B(817)+B(823) +! JVS(1179) = Jac_FULL(178,235) + JVS(1179) = 0.35*B(1050) IF (DO_JVS(1180)) & -! JVS(1180) = Jac_FULL(178,69) - JVS(1180) = B(124)+B(126) +! JVS(1180) = Jac_FULL(178,341) + JVS(1180) = 0.725*B(1037)+0.725*B(1044)+0.35*B(1051) IF (DO_JVS(1181)) & -! JVS(1181) = Jac_FULL(178,98) - JVS(1181) = 0.5*B(134) +! JVS(1181) = Jac_FULL(178,343) + JVS(1181) = -B(1311) IF (DO_JVS(1182)) & -! JVS(1182) = Jac_FULL(178,178) - JVS(1182) = -B(128)-B(130)-B(132) +! JVS(1182) = Jac_FULL(179,139) + JVS(1182) = 0.5*B(743) IF (DO_JVS(1183)) & -! JVS(1183) = Jac_FULL(178,337) - JVS(1183) = -B(133) +! JVS(1183) = Jac_FULL(179,179) + JVS(1183) = -B(772) IF (DO_JVS(1184)) & -! JVS(1184) = Jac_FULL(178,345) - JVS(1184) = B(125)+0.5*B(135) +! JVS(1184) = Jac_FULL(179,281) + JVS(1184) = 0 IF (DO_JVS(1185)) & -! JVS(1185) = Jac_FULL(178,346) - JVS(1185) = -B(129)-B(131) +! JVS(1185) = Jac_FULL(179,282) + JVS(1185) = 0.16*B(764) IF (DO_JVS(1186)) & -! JVS(1186) = Jac_FULL(178,351) - JVS(1186) = B(127) +! JVS(1186) = Jac_FULL(179,338) + JVS(1186) = 0.16*B(765) IF (DO_JVS(1187)) & -! JVS(1187) = Jac_FULL(179,179) - JVS(1187) = -2*B(1)-B(4)-B(6) +! JVS(1187) = Jac_FULL(179,343) + JVS(1187) = 0.5*B(744)-B(773) IF (DO_JVS(1188)) & -! JVS(1188) = Jac_FULL(179,327) - JVS(1188) = -B(7) +! JVS(1188) = Jac_FULL(180,180) + JVS(1188) = -B(836) IF (DO_JVS(1189)) & -! JVS(1189) = Jac_FULL(179,339) - JVS(1189) = -B(5) +! JVS(1189) = Jac_FULL(180,212) + JVS(1189) = 0.5*B(818)+0.5*B(820)+B(822) IF (DO_JVS(1190)) & -! JVS(1190) = Jac_FULL(179,341) - JVS(1190) = -2*B(2) +! JVS(1190) = Jac_FULL(180,241) + JVS(1190) = B(816) IF (DO_JVS(1191)) & -! JVS(1191) = Jac_FULL(179,348) - JVS(1191) = -2*B(3) +! JVS(1191) = Jac_FULL(180,256) + JVS(1191) = B(810) IF (DO_JVS(1192)) & -! JVS(1192) = Jac_FULL(180,180) - JVS(1192) = -B(1220)-B(1222) +! JVS(1192) = Jac_FULL(180,278) + JVS(1192) = 0.16*B(824) IF (DO_JVS(1193)) & -! JVS(1193) = Jac_FULL(180,299) - JVS(1193) = 0.435*B(1218) +! JVS(1193) = Jac_FULL(180,338) + JVS(1193) = 0.16*B(825) IF (DO_JVS(1194)) & -! JVS(1194) = Jac_FULL(180,337) - JVS(1194) = -B(1223) +! JVS(1194) = Jac_FULL(180,343) + JVS(1194) = 0.5*B(819)-B(837) IF (DO_JVS(1195)) & -! JVS(1195) = Jac_FULL(180,345) - JVS(1195) = 0.435*B(1219) +! JVS(1195) = Jac_FULL(180,348) + JVS(1195) = B(811)+B(817)+B(823) IF (DO_JVS(1196)) & -! JVS(1196) = Jac_FULL(180,346) - JVS(1196) = -B(1221) +! JVS(1196) = Jac_FULL(180,356) + JVS(1196) = 0.5*B(821) IF (DO_JVS(1197)) & ! JVS(1197) = Jac_FULL(181,181) - JVS(1197) = -0.9*B(495)-B(547)-B(605)-B(1699) + JVS(1197) = -B(1220)-B(1222) IF (DO_JVS(1198)) & -! JVS(1198) = Jac_FULL(181,334) - JVS(1198) = -0.9*B(496) +! JVS(1198) = Jac_FULL(181,303) + JVS(1198) = 0.435*B(1218) IF (DO_JVS(1199)) & -! JVS(1199) = Jac_FULL(181,340) - JVS(1199) = -B(606) +! JVS(1199) = Jac_FULL(181,338) + JVS(1199) = -B(1221) IF (DO_JVS(1200)) & -! JVS(1200) = Jac_FULL(181,345) - JVS(1200) = -B(548) +! JVS(1200) = Jac_FULL(181,341) + JVS(1200) = -B(1223) IF (DO_JVS(1201)) & -! JVS(1201) = Jac_FULL(182,182) - JVS(1201) = -0.33*B(1214)-0.33*B(1216) +! JVS(1201) = Jac_FULL(181,343) + JVS(1201) = 0.435*B(1219) IF (DO_JVS(1202)) & -! JVS(1202) = Jac_FULL(182,301) - JVS(1202) = 0.461*B(1212) +! JVS(1202) = Jac_FULL(182,72) + JVS(1202) = B(124)+B(126) IF (DO_JVS(1203)) & -! JVS(1203) = Jac_FULL(182,303) - JVS(1203) = 0.041*B(1316) +! JVS(1203) = Jac_FULL(182,100) + JVS(1203) = 0.5*B(134) IF (DO_JVS(1204)) & -! JVS(1204) = Jac_FULL(182,337) - JVS(1204) = -0.33*B(1217) +! JVS(1204) = Jac_FULL(182,182) + JVS(1204) = -B(128)-B(130)-B(132) IF (DO_JVS(1205)) & -! JVS(1205) = Jac_FULL(182,345) - JVS(1205) = 0.461*B(1213)+0.041*B(1317) +! JVS(1205) = Jac_FULL(182,338) + JVS(1205) = -B(129)-B(131) IF (DO_JVS(1206)) & -! JVS(1206) = Jac_FULL(182,346) - JVS(1206) = -0.33*B(1215) +! JVS(1206) = Jac_FULL(182,341) + JVS(1206) = -B(133) IF (DO_JVS(1207)) & -! JVS(1207) = Jac_FULL(183,183) - JVS(1207) = -B(106)-B(344)-B(419)-B(617) +! JVS(1207) = Jac_FULL(182,343) + JVS(1207) = B(125)+0.5*B(135) IF (DO_JVS(1208)) & -! JVS(1208) = Jac_FULL(183,340) - JVS(1208) = -B(618) +! JVS(1208) = Jac_FULL(182,348) + JVS(1208) = B(127) IF (DO_JVS(1209)) & -! JVS(1209) = Jac_FULL(183,342) - JVS(1209) = -B(420) +! JVS(1209) = Jac_FULL(183,183) + JVS(1209) = -2*B(1)-B(4)-B(6) IF (DO_JVS(1210)) & -! JVS(1210) = Jac_FULL(183,345) - JVS(1210) = -B(107) +! JVS(1210) = Jac_FULL(183,333) + JVS(1210) = -B(7) IF (DO_JVS(1211)) & -! JVS(1211) = Jac_FULL(183,351) - JVS(1211) = -B(345) +! JVS(1211) = Jac_FULL(183,340) + JVS(1211) = -B(5) IF (DO_JVS(1212)) & -! JVS(1212) = Jac_FULL(184,184) - JVS(1212) = -B(1301)-B(1302) +! JVS(1212) = Jac_FULL(183,355) + JVS(1212) = -2*B(2) IF (DO_JVS(1213)) & -! JVS(1213) = Jac_FULL(184,259) - JVS(1213) = B(1289) +! JVS(1213) = Jac_FULL(183,356) + JVS(1213) = -2*B(3) IF (DO_JVS(1214)) & -! JVS(1214) = Jac_FULL(184,308) - JVS(1214) = B(1295) +! JVS(1214) = Jac_FULL(184,184) + JVS(1214) = -0.9*B(495)-B(547)-B(605)-B(1712) IF (DO_JVS(1215)) & -! JVS(1215) = Jac_FULL(184,335) - JVS(1215) = B(1290)+B(1296) +! JVS(1215) = Jac_FULL(184,337) + JVS(1215) = -0.9*B(496) IF (DO_JVS(1216)) & -! JVS(1216) = Jac_FULL(184,345) - JVS(1216) = -B(1303) +! JVS(1216) = Jac_FULL(184,343) + JVS(1216) = -B(548) IF (DO_JVS(1217)) & -! JVS(1217) = Jac_FULL(185,119) - JVS(1217) = B(1013) +! JVS(1217) = Jac_FULL(184,352) + JVS(1217) = -B(606) IF (DO_JVS(1218)) & -! JVS(1218) = Jac_FULL(185,147) - JVS(1218) = 0.444*B(1308)+0.454*B(1796) +! JVS(1218) = Jac_FULL(185,185) + JVS(1218) = -0.33*B(1214)-0.33*B(1216) IF (DO_JVS(1219)) & -! JVS(1219) = Jac_FULL(185,185) - JVS(1219) = -B(1260)-B(1768) +! JVS(1219) = Jac_FULL(185,305) + JVS(1219) = 0.461*B(1212) IF (DO_JVS(1220)) & -! JVS(1220) = Jac_FULL(185,230) - JVS(1220) = 0.112*B(1779) +! JVS(1220) = Jac_FULL(185,307) + JVS(1220) = 0.041*B(1316) IF (DO_JVS(1221)) & -! JVS(1221) = Jac_FULL(185,231) - JVS(1221) = 0.182*B(1780) +! JVS(1221) = Jac_FULL(185,338) + JVS(1221) = -0.33*B(1215) IF (DO_JVS(1222)) & -! JVS(1222) = Jac_FULL(185,285) - JVS(1222) = 0 +! JVS(1222) = Jac_FULL(185,341) + JVS(1222) = -0.33*B(1217) IF (DO_JVS(1223)) & -! JVS(1223) = Jac_FULL(185,286) - JVS(1223) = 0 +! JVS(1223) = Jac_FULL(185,343) + JVS(1223) = 0.461*B(1213)+0.041*B(1317) IF (DO_JVS(1224)) & -! JVS(1224) = Jac_FULL(185,301) - JVS(1224) = 0.162*B(1790) +! JVS(1224) = Jac_FULL(186,177) + JVS(1224) = B(1097) IF (DO_JVS(1225)) & -! JVS(1225) = Jac_FULL(185,345) - JVS(1225) = B(1014)-B(1261)+0.444*B(1309) +! JVS(1225) = Jac_FULL(186,186) + JVS(1225) = -B(1120)-B(1121)-B(1123)-B(1125) IF (DO_JVS(1226)) & -! JVS(1226) = Jac_FULL(186,186) - JVS(1226) = -B(1182)-B(1186)-B(1188)-B(1192)-B(1194)-B(1633)-B(1788)-B(1789) +! JVS(1226) = Jac_FULL(186,315) + JVS(1226) = 0 IF (DO_JVS(1227)) & -! JVS(1227) = Jac_FULL(186,311) - JVS(1227) = B(1151) +! JVS(1227) = Jac_FULL(186,338) + JVS(1227) = -B(1124)-B(1126) IF (DO_JVS(1228)) & -! JVS(1228) = Jac_FULL(186,337) - JVS(1228) = B(1152) +! JVS(1228) = Jac_FULL(186,341) + JVS(1228) = -B(1122) IF (DO_JVS(1229)) & -! JVS(1229) = Jac_FULL(186,345) - JVS(1229) = -B(1183)-B(1187)-B(1189)-B(1193)-B(1195) +! JVS(1229) = Jac_FULL(186,343) + JVS(1229) = B(1098) IF (DO_JVS(1230)) & ! JVS(1230) = Jac_FULL(187,187) - JVS(1230) = -B(1015)-B(1017)-B(1023)-B(1775) + JVS(1230) = -B(106)-B(344)-B(419)-B(617) IF (DO_JVS(1231)) & -! JVS(1231) = Jac_FULL(187,305) - JVS(1231) = 0.937*B(957) +! JVS(1231) = Jac_FULL(187,342) + JVS(1231) = -B(420) IF (DO_JVS(1232)) & -! JVS(1232) = Jac_FULL(187,337) - JVS(1232) = 0.937*B(958) +! JVS(1232) = Jac_FULL(187,343) + JVS(1232) = -B(107) IF (DO_JVS(1233)) & -! JVS(1233) = Jac_FULL(187,345) - JVS(1233) = -B(1016)-B(1018)-B(1024) +! JVS(1233) = Jac_FULL(187,348) + JVS(1233) = -B(345) IF (DO_JVS(1234)) & -! JVS(1234) = Jac_FULL(188,188) - JVS(1234) = -B(271) +! JVS(1234) = Jac_FULL(187,352) + JVS(1234) = -B(618) IF (DO_JVS(1235)) & -! JVS(1235) = Jac_FULL(188,249) - JVS(1235) = 0.375*B(259) +! JVS(1235) = Jac_FULL(188,188) + JVS(1235) = -B(1182)-B(1186)-B(1188)-B(1192)-B(1194)-B(1633)-B(1801)-B(1802) IF (DO_JVS(1236)) & -! JVS(1236) = Jac_FULL(188,250) - JVS(1236) = 0.25*B(267) +! JVS(1236) = Jac_FULL(188,310) + JVS(1236) = B(1151) IF (DO_JVS(1237)) & -! JVS(1237) = Jac_FULL(188,260) - JVS(1237) = 0.25*B(216) +! JVS(1237) = Jac_FULL(188,341) + JVS(1237) = B(1152) IF (DO_JVS(1238)) & -! JVS(1238) = Jac_FULL(188,289) - JVS(1238) = 0.25*B(911) +! JVS(1238) = Jac_FULL(188,343) + JVS(1238) = -B(1183)-B(1187)-B(1189)-B(1193)-B(1195) IF (DO_JVS(1239)) & -! JVS(1239) = Jac_FULL(188,300) - JVS(1239) = 0.38*B(257) +! JVS(1239) = Jac_FULL(189,189) + JVS(1239) = -B(1301)-B(1302) IF (DO_JVS(1240)) & -! JVS(1240) = Jac_FULL(188,318) - JVS(1240) = 0.375*B(255) +! JVS(1240) = Jac_FULL(189,262) + JVS(1240) = B(1289) IF (DO_JVS(1241)) & -! JVS(1241) = Jac_FULL(188,319) - JVS(1241) = 0.38*B(253) +! JVS(1241) = Jac_FULL(189,312) + JVS(1241) = B(1295) IF (DO_JVS(1242)) & -! JVS(1242) = Jac_FULL(188,320) - JVS(1242) = 0.25*B(263) +! JVS(1242) = Jac_FULL(189,343) + JVS(1242) = -B(1303) IF (DO_JVS(1243)) & -! JVS(1243) = Jac_FULL(188,321) - JVS(1243) = 0.25*B(214) +! JVS(1243) = Jac_FULL(189,345) + JVS(1243) = B(1290)+B(1296) IF (DO_JVS(1244)) & -! JVS(1244) = Jac_FULL(188,323) - JVS(1244) = 0.25*B(265) +! JVS(1244) = Jac_FULL(190,122) + JVS(1244) = B(1013) IF (DO_JVS(1245)) & -! JVS(1245) = Jac_FULL(188,328) - JVS(1245) = 0.25*B(215)+0.25*B(217)+0.38*B(254)+0.375*B(256)+0.38*B(258)+0.375*B(260)+0.25*B(264)+0.25*B(266)+0.25& - &*B(268)+0.25*B(912) +! JVS(1245) = Jac_FULL(190,149) + JVS(1245) = 0.444*B(1308)+0.454*B(1809) IF (DO_JVS(1246)) & -! JVS(1246) = Jac_FULL(188,345) - JVS(1246) = -B(272) +! JVS(1246) = Jac_FULL(190,190) + JVS(1246) = -B(1260)-B(1781) IF (DO_JVS(1247)) & -! JVS(1247) = Jac_FULL(189,149) - JVS(1247) = 0.07*B(1344) +! JVS(1247) = Jac_FULL(190,231) + JVS(1247) = 0.182*B(1793) IF (DO_JVS(1248)) & -! JVS(1248) = Jac_FULL(189,189) - JVS(1248) = -B(1352)-B(1354) +! JVS(1248) = Jac_FULL(190,233) + JVS(1248) = 0.112*B(1792) IF (DO_JVS(1249)) & -! JVS(1249) = Jac_FULL(189,200) - JVS(1249) = 0.05*B(1348) +! JVS(1249) = Jac_FULL(190,288) + JVS(1249) = 0 IF (DO_JVS(1250)) & -! JVS(1250) = Jac_FULL(189,220) - JVS(1250) = 0.3*B(1338) +! JVS(1250) = Jac_FULL(190,289) + JVS(1250) = 0 IF (DO_JVS(1251)) & -! JVS(1251) = Jac_FULL(189,337) - JVS(1251) = -B(1355) +! JVS(1251) = Jac_FULL(190,305) + JVS(1251) = 0.162*B(1803) IF (DO_JVS(1252)) & -! JVS(1252) = Jac_FULL(189,345) - JVS(1252) = 0.3*B(1339)+0.07*B(1345)+0.05*B(1349) +! JVS(1252) = Jac_FULL(190,343) + JVS(1252) = B(1014)-B(1261)+0.444*B(1309) IF (DO_JVS(1253)) & -! JVS(1253) = Jac_FULL(189,346) - JVS(1253) = -B(1353) +! JVS(1253) = Jac_FULL(191,191) + JVS(1253) = -B(1015)-B(1017)-B(1023)-B(1788) IF (DO_JVS(1254)) & -! JVS(1254) = Jac_FULL(189,351) - JVS(1254) = 0 +! JVS(1254) = Jac_FULL(191,314) + JVS(1254) = 0.937*B(957) IF (DO_JVS(1255)) & -! JVS(1255) = Jac_FULL(190,168) - JVS(1255) = B(1097) +! JVS(1255) = Jac_FULL(191,341) + JVS(1255) = 0.937*B(958) IF (DO_JVS(1256)) & -! JVS(1256) = Jac_FULL(190,190) - JVS(1256) = -B(1120)-B(1121)-B(1123)-B(1125) +! JVS(1256) = Jac_FULL(191,343) + JVS(1256) = -B(1016)-B(1018)-B(1024) IF (DO_JVS(1257)) & -! JVS(1257) = Jac_FULL(190,304) - JVS(1257) = 0 +! JVS(1257) = Jac_FULL(192,192) + JVS(1257) = -B(271) IF (DO_JVS(1258)) & -! JVS(1258) = Jac_FULL(190,337) - JVS(1258) = -B(1122) +! JVS(1258) = Jac_FULL(192,252) + JVS(1258) = 0.375*B(259) IF (DO_JVS(1259)) & -! JVS(1259) = Jac_FULL(190,345) - JVS(1259) = B(1098) +! JVS(1259) = Jac_FULL(192,253) + JVS(1259) = 0.25*B(267) IF (DO_JVS(1260)) & -! JVS(1260) = Jac_FULL(190,346) - JVS(1260) = -B(1124)-B(1126) +! JVS(1260) = Jac_FULL(192,264) + JVS(1260) = 0.25*B(216) IF (DO_JVS(1261)) & -! JVS(1261) = Jac_FULL(191,191) - JVS(1261) = -B(717)-B(731)-B(733) +! JVS(1261) = Jac_FULL(192,292) + JVS(1261) = 0.25*B(911) IF (DO_JVS(1262)) & -! JVS(1262) = Jac_FULL(191,341) - JVS(1262) = -B(734) +! JVS(1262) = Jac_FULL(192,304) + JVS(1262) = 0.38*B(257) IF (DO_JVS(1263)) & -! JVS(1263) = Jac_FULL(191,345) - JVS(1263) = -B(732) +! JVS(1263) = Jac_FULL(192,322) + JVS(1263) = 0.375*B(255) IF (DO_JVS(1264)) & -! JVS(1264) = Jac_FULL(191,351) - JVS(1264) = -B(718) +! JVS(1264) = Jac_FULL(192,323) + JVS(1264) = 0.38*B(253) IF (DO_JVS(1265)) & -! JVS(1265) = Jac_FULL(192,192) - JVS(1265) = -B(1019)-B(1021)-B(1025)-B(1776) +! JVS(1265) = Jac_FULL(192,324) + JVS(1265) = 0.25*B(263) IF (DO_JVS(1266)) & -! JVS(1266) = Jac_FULL(192,304) - JVS(1266) = 0.937*B(961) +! JVS(1266) = Jac_FULL(192,326) + JVS(1266) = 0.25*B(214) IF (DO_JVS(1267)) & -! JVS(1267) = Jac_FULL(192,337) - JVS(1267) = 0.937*B(962) +! JVS(1267) = Jac_FULL(192,327) + JVS(1267) = 0.25*B(265) IF (DO_JVS(1268)) & -! JVS(1268) = Jac_FULL(192,345) - JVS(1268) = -B(1020)-B(1022)-B(1026) +! JVS(1268) = Jac_FULL(192,334) + JVS(1268) = 0.25*B(215)+0.25*B(217)+0.38*B(254)+0.375*B(256)+0.38*B(258)+0.375*B(260)+0.25*B(264)+0.25*B(266)+0.25& + &*B(268)+0.25*B(912) IF (DO_JVS(1269)) & -! JVS(1269) = Jac_FULL(193,193) - JVS(1269) = -B(865)-B(867)-B(869) +! JVS(1269) = Jac_FULL(192,343) + JVS(1269) = -B(272) IF (DO_JVS(1270)) & -! JVS(1270) = Jac_FULL(193,291) - JVS(1270) = B(853) +! JVS(1270) = Jac_FULL(193,148) + JVS(1270) = 0.07*B(1344) IF (DO_JVS(1271)) & -! JVS(1271) = Jac_FULL(193,341) - JVS(1271) = -B(868) +! JVS(1271) = Jac_FULL(193,193) + JVS(1271) = -B(1352)-B(1354) IF (DO_JVS(1272)) & -! JVS(1272) = Jac_FULL(193,345) - JVS(1272) = -B(866) +! JVS(1272) = Jac_FULL(193,203) + JVS(1272) = 0.05*B(1348) IF (DO_JVS(1273)) & -! JVS(1273) = Jac_FULL(193,346) - JVS(1273) = B(854) +! JVS(1273) = Jac_FULL(193,223) + JVS(1273) = 0.3*B(1338) IF (DO_JVS(1274)) & -! JVS(1274) = Jac_FULL(193,351) - JVS(1274) = -B(870) +! JVS(1274) = Jac_FULL(193,338) + JVS(1274) = -B(1353) IF (DO_JVS(1275)) & -! JVS(1275) = Jac_FULL(194,194) - JVS(1275) = -B(1258)-B(1769) +! JVS(1275) = Jac_FULL(193,341) + JVS(1275) = -B(1355) IF (DO_JVS(1276)) & -! JVS(1276) = Jac_FULL(194,230) - JVS(1276) = 0.552*B(1779) +! JVS(1276) = Jac_FULL(193,343) + JVS(1276) = 0.3*B(1339)+0.07*B(1345)+0.05*B(1349) IF (DO_JVS(1277)) & -! JVS(1277) = Jac_FULL(194,231) - JVS(1277) = 0.454*B(1780) +! JVS(1277) = Jac_FULL(193,348) + JVS(1277) = 0 IF (DO_JVS(1278)) & -! JVS(1278) = Jac_FULL(194,301) - JVS(1278) = 0.481*B(1790) +! JVS(1278) = Jac_FULL(194,194) + JVS(1278) = -B(717)-B(731)-B(733) IF (DO_JVS(1279)) & -! JVS(1279) = Jac_FULL(194,303) - JVS(1279) = 0.022*B(1316) +! JVS(1279) = Jac_FULL(194,343) + JVS(1279) = -B(732) IF (DO_JVS(1280)) & -! JVS(1280) = Jac_FULL(194,345) - JVS(1280) = -B(1259)+0.022*B(1317) +! JVS(1280) = Jac_FULL(194,348) + JVS(1280) = -B(718) IF (DO_JVS(1281)) & -! JVS(1281) = Jac_FULL(195,143) - JVS(1281) = 0.54*B(1381) +! JVS(1281) = Jac_FULL(194,356) + JVS(1281) = -B(734) IF (DO_JVS(1282)) & ! JVS(1282) = Jac_FULL(195,195) - JVS(1282) = -B(1414)-B(1416) + JVS(1282) = -B(1019)-B(1021)-B(1025)-B(1789) IF (DO_JVS(1283)) & -! JVS(1283) = Jac_FULL(195,220) - JVS(1283) = 0 +! JVS(1283) = Jac_FULL(195,315) + JVS(1283) = 0.937*B(961) IF (DO_JVS(1284)) & ! JVS(1284) = Jac_FULL(195,341) - JVS(1284) = 0 + JVS(1284) = 0.937*B(962) IF (DO_JVS(1285)) & -! JVS(1285) = Jac_FULL(195,345) - JVS(1285) = 0.54*B(1382)-B(1415) +! JVS(1285) = Jac_FULL(195,343) + JVS(1285) = -B(1020)-B(1022)-B(1026) IF (DO_JVS(1286)) & -! JVS(1286) = Jac_FULL(195,351) - JVS(1286) = -B(1417) +! JVS(1286) = Jac_FULL(196,196) + JVS(1286) = -B(865)-B(867)-B(869) IF (DO_JVS(1287)) & -! JVS(1287) = Jac_FULL(196,165) - JVS(1287) = B(140) +! JVS(1287) = Jac_FULL(196,294) + JVS(1287) = B(853) IF (DO_JVS(1288)) & -! JVS(1288) = Jac_FULL(196,178) - JVS(1288) = B(130) +! JVS(1288) = Jac_FULL(196,338) + JVS(1288) = B(854) IF (DO_JVS(1289)) & -! JVS(1289) = Jac_FULL(196,196) - JVS(1289) = -B(136)-B(1686) +! JVS(1289) = Jac_FULL(196,343) + JVS(1289) = -B(866) IF (DO_JVS(1290)) & -! JVS(1290) = Jac_FULL(196,337) - JVS(1290) = B(141) +! JVS(1290) = Jac_FULL(196,348) + JVS(1290) = -B(870) IF (DO_JVS(1291)) & -! JVS(1291) = Jac_FULL(196,345) - JVS(1291) = -B(137) +! JVS(1291) = Jac_FULL(196,356) + JVS(1291) = -B(868) IF (DO_JVS(1292)) & -! JVS(1292) = Jac_FULL(196,346) - JVS(1292) = B(131) +! JVS(1292) = Jac_FULL(197,197) + JVS(1292) = -B(1258)-B(1782) IF (DO_JVS(1293)) & -! JVS(1293) = Jac_FULL(196,351) - JVS(1293) = 0 +! JVS(1293) = Jac_FULL(197,231) + JVS(1293) = 0.454*B(1793) IF (DO_JVS(1294)) & -! JVS(1294) = Jac_FULL(197,126) - JVS(1294) = B(166)+B(1659) +! JVS(1294) = Jac_FULL(197,233) + JVS(1294) = 0.552*B(1792) IF (DO_JVS(1295)) & -! JVS(1295) = Jac_FULL(197,197) - JVS(1295) = -B(160)-B(162)-B(164) +! JVS(1295) = Jac_FULL(197,305) + JVS(1295) = 0.481*B(1803) IF (DO_JVS(1296)) & -! JVS(1296) = Jac_FULL(197,233) - JVS(1296) = 0.68*B(154)+0.3*B(1660) +! JVS(1296) = Jac_FULL(197,307) + JVS(1296) = 0.022*B(1316) IF (DO_JVS(1297)) & -! JVS(1297) = Jac_FULL(197,335) - JVS(1297) = -B(165) +! JVS(1297) = Jac_FULL(197,343) + JVS(1297) = -B(1259)+0.022*B(1317) IF (DO_JVS(1298)) & -! JVS(1298) = Jac_FULL(197,337) - JVS(1298) = -B(161) +! JVS(1298) = Jac_FULL(198,178) + JVS(1298) = 0.667*B(1310) IF (DO_JVS(1299)) & -! JVS(1299) = Jac_FULL(197,345) - JVS(1299) = 0.68*B(155) +! JVS(1299) = Jac_FULL(198,198) + JVS(1299) = -B(1312)-B(1808) IF (DO_JVS(1300)) & -! JVS(1300) = Jac_FULL(197,346) - JVS(1300) = -B(163) +! JVS(1300) = Jac_FULL(198,226) + JVS(1300) = 0.452*B(1038) IF (DO_JVS(1301)) & -! JVS(1301) = Jac_FULL(198,174) - JVS(1301) = 0.667*B(1310) +! JVS(1301) = Jac_FULL(198,228) + JVS(1301) = 0.824*B(1031) IF (DO_JVS(1302)) & -! JVS(1302) = Jac_FULL(198,198) - JVS(1302) = -B(1312)-B(1795) +! JVS(1302) = Jac_FULL(198,235) + JVS(1302) = B(1045) IF (DO_JVS(1303)) & -! JVS(1303) = Jac_FULL(198,223) - JVS(1303) = 0.824*B(1031) +! JVS(1303) = Jac_FULL(198,341) + JVS(1303) = 0 IF (DO_JVS(1304)) & -! JVS(1304) = Jac_FULL(198,224) - JVS(1304) = 0.452*B(1038) +! JVS(1304) = Jac_FULL(198,343) + JVS(1304) = 0.667*B(1311)-B(1313) IF (DO_JVS(1305)) & -! JVS(1305) = Jac_FULL(198,232) - JVS(1305) = B(1045) +! JVS(1305) = Jac_FULL(199,145) + JVS(1305) = 0.54*B(1381) IF (DO_JVS(1306)) & -! JVS(1306) = Jac_FULL(198,337) - JVS(1306) = 0 +! JVS(1306) = Jac_FULL(199,199) + JVS(1306) = -B(1414)-B(1416) IF (DO_JVS(1307)) & -! JVS(1307) = Jac_FULL(198,345) - JVS(1307) = 0.667*B(1311)-B(1313) +! JVS(1307) = Jac_FULL(199,223) + JVS(1307) = 0 IF (DO_JVS(1308)) & -! JVS(1308) = Jac_FULL(199,199) - JVS(1308) = -B(1029)-B(1778) +! JVS(1308) = Jac_FULL(199,343) + JVS(1308) = 0.54*B(1382)-B(1415) IF (DO_JVS(1309)) & -! JVS(1309) = Jac_FULL(199,304) - JVS(1309) = B(963) +! JVS(1309) = Jac_FULL(199,348) + JVS(1309) = -B(1417) IF (DO_JVS(1310)) & -! JVS(1310) = Jac_FULL(199,337) - JVS(1310) = B(964) +! JVS(1310) = Jac_FULL(199,356) + JVS(1310) = 0 IF (DO_JVS(1311)) & -! JVS(1311) = Jac_FULL(199,345) - JVS(1311) = -B(1030) +! JVS(1311) = Jac_FULL(200,168) + JVS(1311) = B(140) IF (DO_JVS(1312)) & -! JVS(1312) = Jac_FULL(200,200) - JVS(1312) = -B(1348)-B(1350) +! JVS(1312) = Jac_FULL(200,182) + JVS(1312) = B(130) IF (DO_JVS(1313)) & -! JVS(1313) = Jac_FULL(200,345) - JVS(1313) = -B(1349) +! JVS(1313) = Jac_FULL(200,200) + JVS(1313) = -B(136)-B(1699) IF (DO_JVS(1314)) & -! JVS(1314) = Jac_FULL(200,351) - JVS(1314) = -B(1351) +! JVS(1314) = Jac_FULL(200,338) + JVS(1314) = B(131) IF (DO_JVS(1315)) & -! JVS(1315) = Jac_FULL(201,82) - JVS(1315) = 0.3*B(1383) +! JVS(1315) = Jac_FULL(200,341) + JVS(1315) = B(141) IF (DO_JVS(1316)) & -! JVS(1316) = Jac_FULL(201,101) - JVS(1316) = 0.56*B(1385) +! JVS(1316) = Jac_FULL(200,343) + JVS(1316) = -B(137) IF (DO_JVS(1317)) & -! JVS(1317) = Jac_FULL(201,149) - JVS(1317) = 0.4*B(1344) +! JVS(1317) = Jac_FULL(200,348) + JVS(1317) = 0 IF (DO_JVS(1318)) & -! JVS(1318) = Jac_FULL(201,158) - JVS(1318) = 0.44*B(1418)+0.44*B(1420) +! JVS(1318) = Jac_FULL(201,129) + JVS(1318) = B(166)+B(1672) IF (DO_JVS(1319)) & -! JVS(1319) = Jac_FULL(201,200) - JVS(1319) = 0.6*B(1348)+0.4*B(1350) +! JVS(1319) = Jac_FULL(201,201) + JVS(1319) = -B(160)-B(162)-B(164) IF (DO_JVS(1320)) & -! JVS(1320) = Jac_FULL(201,201) - JVS(1320) = -B(1470)-B(1472)-B(1474) +! JVS(1320) = Jac_FULL(201,229) + JVS(1320) = 0.68*B(154)+0.3*B(1673) IF (DO_JVS(1321)) & -! JVS(1321) = Jac_FULL(201,341) - JVS(1321) = -B(1473) +! JVS(1321) = Jac_FULL(201,338) + JVS(1321) = -B(163) IF (DO_JVS(1322)) & -! JVS(1322) = Jac_FULL(201,345) - JVS(1322) = 0.4*B(1345)+0.6*B(1349)+0.3*B(1384)+0.56*B(1386)+0.44*B(1419)-B(1471) +! JVS(1322) = Jac_FULL(201,341) + JVS(1322) = -B(161) IF (DO_JVS(1323)) & -! JVS(1323) = Jac_FULL(201,351) - JVS(1323) = 0.4*B(1351)+0.44*B(1421) +! JVS(1323) = Jac_FULL(201,343) + JVS(1323) = 0.68*B(155) IF (DO_JVS(1324)) & -! JVS(1324) = Jac_FULL(202,158) - JVS(1324) = 0.727*B(1418) +! JVS(1324) = Jac_FULL(201,345) + JVS(1324) = -B(165) IF (DO_JVS(1325)) & -! JVS(1325) = Jac_FULL(202,195) - JVS(1325) = 0.8*B(1414) +! JVS(1325) = Jac_FULL(202,202) + JVS(1325) = -B(1029)-B(1791) IF (DO_JVS(1326)) & -! JVS(1326) = Jac_FULL(202,200) - JVS(1326) = 0 +! JVS(1326) = Jac_FULL(202,315) + JVS(1326) = B(963) IF (DO_JVS(1327)) & -! JVS(1327) = Jac_FULL(202,202) - JVS(1327) = -B(1422)-B(1424)-B(1426) +! JVS(1327) = Jac_FULL(202,341) + JVS(1327) = B(964) IF (DO_JVS(1328)) & -! JVS(1328) = Jac_FULL(202,220) - JVS(1328) = 0 +! JVS(1328) = Jac_FULL(202,343) + JVS(1328) = -B(1030) IF (DO_JVS(1329)) & -! JVS(1329) = Jac_FULL(202,341) - JVS(1329) = -B(1425) +! JVS(1329) = Jac_FULL(203,203) + JVS(1329) = -B(1348)-B(1350) IF (DO_JVS(1330)) & -! JVS(1330) = Jac_FULL(202,345) - JVS(1330) = 0.8*B(1415)+0.727*B(1419)-B(1423) +! JVS(1330) = Jac_FULL(203,343) + JVS(1330) = -B(1349) IF (DO_JVS(1331)) & -! JVS(1331) = Jac_FULL(202,351) - JVS(1331) = -B(1427) +! JVS(1331) = Jac_FULL(203,348) + JVS(1331) = -B(1351) IF (DO_JVS(1332)) & -! JVS(1332) = Jac_FULL(203,117) - JVS(1332) = B(1804) +! JVS(1332) = Jac_FULL(204,85) + JVS(1332) = 0.3*B(1383) IF (DO_JVS(1333)) & -! JVS(1333) = Jac_FULL(203,158) - JVS(1333) = 0.073*B(1418)+0.3*B(1420) +! JVS(1333) = Jac_FULL(204,103) + JVS(1333) = 0.56*B(1385) IF (DO_JVS(1334)) & -! JVS(1334) = Jac_FULL(203,195) - JVS(1334) = 0.06*B(1414)+0.742*B(1416) +! JVS(1334) = Jac_FULL(204,148) + JVS(1334) = 0.4*B(1344) IF (DO_JVS(1335)) & -! JVS(1335) = Jac_FULL(203,200) - JVS(1335) = 0 +! JVS(1335) = Jac_FULL(204,162) + JVS(1335) = 0.44*B(1418)+0.44*B(1420) IF (DO_JVS(1336)) & -! JVS(1336) = Jac_FULL(203,202) - JVS(1336) = 0.3*B(1422)+0.3*B(1426) +! JVS(1336) = Jac_FULL(204,203) + JVS(1336) = 0.6*B(1348)+0.4*B(1350) IF (DO_JVS(1337)) & -! JVS(1337) = Jac_FULL(203,203) - JVS(1337) = -B(1453)-B(1455) +! JVS(1337) = Jac_FULL(204,204) + JVS(1337) = -B(1470)-B(1472)-B(1474) IF (DO_JVS(1338)) & -! JVS(1338) = Jac_FULL(203,220) - JVS(1338) = 0 +! JVS(1338) = Jac_FULL(204,343) + JVS(1338) = 0.4*B(1345)+0.6*B(1349)+0.3*B(1384)+0.56*B(1386)+0.44*B(1419)-B(1471) IF (DO_JVS(1339)) & -! JVS(1339) = Jac_FULL(203,235) - JVS(1339) = 0 +! JVS(1339) = Jac_FULL(204,348) + JVS(1339) = 0.4*B(1351)+0.44*B(1421) IF (DO_JVS(1340)) & -! JVS(1340) = Jac_FULL(203,236) - JVS(1340) = B(1443)+B(1445)+B(1447)+B(1461) +! JVS(1340) = Jac_FULL(204,356) + JVS(1340) = -B(1473) IF (DO_JVS(1341)) & -! JVS(1341) = Jac_FULL(203,328) - JVS(1341) = B(1462) +! JVS(1341) = Jac_FULL(205,162) + JVS(1341) = 0.727*B(1418) IF (DO_JVS(1342)) & -! JVS(1342) = Jac_FULL(203,335) - JVS(1342) = B(1444)-B(1456) +! JVS(1342) = Jac_FULL(205,199) + JVS(1342) = 0.8*B(1414) IF (DO_JVS(1343)) & -! JVS(1343) = Jac_FULL(203,337) +! JVS(1343) = Jac_FULL(205,203) JVS(1343) = 0 IF (DO_JVS(1344)) & -! JVS(1344) = Jac_FULL(203,341) - JVS(1344) = -B(1454) +! JVS(1344) = Jac_FULL(205,205) + JVS(1344) = -B(1422)-B(1424)-B(1426) IF (DO_JVS(1345)) & -! JVS(1345) = Jac_FULL(203,345) - JVS(1345) = 0.06*B(1415)+0.073*B(1419)+0.3*B(1423) +! JVS(1345) = Jac_FULL(205,223) + JVS(1345) = 0 IF (DO_JVS(1346)) & -! JVS(1346) = Jac_FULL(203,346) - JVS(1346) = B(1446) +! JVS(1346) = Jac_FULL(205,343) + JVS(1346) = 0.8*B(1415)+0.727*B(1419)-B(1423) IF (DO_JVS(1347)) & -! JVS(1347) = Jac_FULL(203,351) - JVS(1347) = 0.742*B(1417)+0.3*B(1421)+0.3*B(1427)+B(1448) +! JVS(1347) = Jac_FULL(205,348) + JVS(1347) = -B(1427) IF (DO_JVS(1348)) & -! JVS(1348) = Jac_FULL(204,82) - JVS(1348) = 0.06*B(1383) +! JVS(1348) = Jac_FULL(205,356) + JVS(1348) = -B(1425) IF (DO_JVS(1349)) & -! JVS(1349) = Jac_FULL(204,101) - JVS(1349) = 0.06*B(1385) +! JVS(1349) = Jac_FULL(206,118) + JVS(1349) = B(1817) IF (DO_JVS(1350)) & -! JVS(1350) = Jac_FULL(204,116) - JVS(1350) = B(1356)+B(1687) +! JVS(1350) = Jac_FULL(206,162) + JVS(1350) = 0.073*B(1418)+0.3*B(1420) IF (DO_JVS(1351)) & -! JVS(1351) = Jac_FULL(204,149) - JVS(1351) = B(1346) +! JVS(1351) = Jac_FULL(206,199) + JVS(1351) = 0.06*B(1414)+0.742*B(1416) IF (DO_JVS(1352)) & -! JVS(1352) = Jac_FULL(204,189) - JVS(1352) = 0.89*B(1352)+B(1354) +! JVS(1352) = Jac_FULL(206,203) + JVS(1352) = 0 IF (DO_JVS(1353)) & -! JVS(1353) = Jac_FULL(204,200) - JVS(1353) = B(1350) +! JVS(1353) = Jac_FULL(206,205) + JVS(1353) = 0.3*B(1422)+0.3*B(1426) IF (DO_JVS(1354)) & -! JVS(1354) = Jac_FULL(204,204) - JVS(1354) = -B(1428)-B(1430)-B(1802) +! JVS(1354) = Jac_FULL(206,206) + JVS(1354) = -B(1453)-B(1455) IF (DO_JVS(1355)) & -! JVS(1355) = Jac_FULL(204,220) - JVS(1355) = 0.7*B(1338)+B(1340)+0.62*B(1342) +! JVS(1355) = Jac_FULL(206,223) + JVS(1355) = 0 IF (DO_JVS(1356)) & -! JVS(1356) = Jac_FULL(204,337) - JVS(1356) = B(1355) +! JVS(1356) = Jac_FULL(206,237) + JVS(1356) = 0 IF (DO_JVS(1357)) & -! JVS(1357) = Jac_FULL(204,341) - JVS(1357) = 0.62*B(1343) +! JVS(1357) = Jac_FULL(206,238) + JVS(1357) = B(1443)+B(1445)+B(1447)+B(1461) IF (DO_JVS(1358)) & -! JVS(1358) = Jac_FULL(204,345) - JVS(1358) = 0.7*B(1339)+B(1357)+0.06*B(1384)+0.06*B(1386)-B(1429) +! JVS(1358) = Jac_FULL(206,334) + JVS(1358) = B(1462) IF (DO_JVS(1359)) & -! JVS(1359) = Jac_FULL(204,346) - JVS(1359) = 0.89*B(1353) +! JVS(1359) = Jac_FULL(206,338) + JVS(1359) = B(1446) IF (DO_JVS(1360)) & -! JVS(1360) = Jac_FULL(204,351) - JVS(1360) = B(1341)+B(1347)+B(1351)-B(1431) +! JVS(1360) = Jac_FULL(206,341) + JVS(1360) = 0 IF (DO_JVS(1361)) & -! JVS(1361) = Jac_FULL(205,175) - JVS(1361) = B(1093) +! JVS(1361) = Jac_FULL(206,343) + JVS(1361) = 0.06*B(1415)+0.073*B(1419)+0.3*B(1423) IF (DO_JVS(1362)) & -! JVS(1362) = Jac_FULL(205,205) - JVS(1362) = -B(1113)-B(1114)-B(1116)-B(1118) +! JVS(1362) = Jac_FULL(206,345) + JVS(1362) = B(1444)-B(1456) IF (DO_JVS(1363)) & -! JVS(1363) = Jac_FULL(205,305) - JVS(1363) = 0 +! JVS(1363) = Jac_FULL(206,348) + JVS(1363) = 0.742*B(1417)+0.3*B(1421)+0.3*B(1427)+B(1448) IF (DO_JVS(1364)) & -! JVS(1364) = Jac_FULL(205,337) - JVS(1364) = -B(1115) +! JVS(1364) = Jac_FULL(206,356) + JVS(1364) = -B(1454) IF (DO_JVS(1365)) & -! JVS(1365) = Jac_FULL(205,345) - JVS(1365) = B(1094) +! JVS(1365) = Jac_FULL(207,85) + JVS(1365) = 0.06*B(1383) IF (DO_JVS(1366)) & -! JVS(1366) = Jac_FULL(205,346) - JVS(1366) = -B(1117)-B(1119) +! JVS(1366) = Jac_FULL(207,103) + JVS(1366) = 0.06*B(1385) IF (DO_JVS(1367)) & -! JVS(1367) = Jac_FULL(206,206) - JVS(1367) = -B(1127)-B(1129)-B(1131)-B(1133) +! JVS(1367) = Jac_FULL(207,117) + JVS(1367) = B(1356)+B(1700) IF (DO_JVS(1368)) & -! JVS(1368) = Jac_FULL(206,268) - JVS(1368) = B(1103) +! JVS(1368) = Jac_FULL(207,148) + JVS(1368) = B(1346) IF (DO_JVS(1369)) & -! JVS(1369) = Jac_FULL(206,337) - JVS(1369) = -B(1130) +! JVS(1369) = Jac_FULL(207,193) + JVS(1369) = 0.89*B(1352)+B(1354) IF (DO_JVS(1370)) & -! JVS(1370) = Jac_FULL(206,345) - JVS(1370) = B(1104) +! JVS(1370) = Jac_FULL(207,203) + JVS(1370) = B(1350) IF (DO_JVS(1371)) & -! JVS(1371) = Jac_FULL(206,346) - JVS(1371) = -B(1132)-B(1134) +! JVS(1371) = Jac_FULL(207,207) + JVS(1371) = -B(1428)-B(1430)-B(1815) IF (DO_JVS(1372)) & -! JVS(1372) = Jac_FULL(207,207) - JVS(1372) = -B(1128)-B(1135)-B(1137)-B(1139) +! JVS(1372) = Jac_FULL(207,223) + JVS(1372) = 0.7*B(1338)+B(1340)+0.62*B(1342) IF (DO_JVS(1373)) & -! JVS(1373) = Jac_FULL(207,267) - JVS(1373) = B(1107) +! JVS(1373) = Jac_FULL(207,338) + JVS(1373) = 0.89*B(1353) IF (DO_JVS(1374)) & -! JVS(1374) = Jac_FULL(207,337) - JVS(1374) = -B(1136) +! JVS(1374) = Jac_FULL(207,341) + JVS(1374) = B(1355) IF (DO_JVS(1375)) & -! JVS(1375) = Jac_FULL(207,345) - JVS(1375) = B(1108) +! JVS(1375) = Jac_FULL(207,343) + JVS(1375) = 0.7*B(1339)+B(1357)+0.06*B(1384)+0.06*B(1386)-B(1429) IF (DO_JVS(1376)) & -! JVS(1376) = Jac_FULL(207,346) - JVS(1376) = -B(1138)-B(1140) +! JVS(1376) = Jac_FULL(207,348) + JVS(1376) = B(1341)+B(1347)+B(1351)-B(1431) IF (DO_JVS(1377)) & -! JVS(1377) = Jac_FULL(208,131) - JVS(1377) = 0.6*B(1262) +! JVS(1377) = Jac_FULL(207,356) + JVS(1377) = 0.62*B(1343) IF (DO_JVS(1378)) & -! JVS(1378) = Jac_FULL(208,147) - JVS(1378) = 0.318*B(1308)+0.391*B(1796) +! JVS(1378) = Jac_FULL(208,208) + JVS(1378) = -B(1128)-B(1135)-B(1137)-B(1139) IF (DO_JVS(1379)) & -! JVS(1379) = Jac_FULL(208,208) - JVS(1379) = -B(1266)-B(1765) +! JVS(1379) = Jac_FULL(208,270) + JVS(1379) = B(1107) IF (DO_JVS(1380)) & -! JVS(1380) = Jac_FULL(208,243) - JVS(1380) = 0.13*B(1078)+0.2*B(1082) +! JVS(1380) = Jac_FULL(208,338) + JVS(1380) = -B(1138)-B(1140) IF (DO_JVS(1381)) & -! JVS(1381) = Jac_FULL(208,254) - JVS(1381) = 0.255*B(1270) +! JVS(1381) = Jac_FULL(208,341) + JVS(1381) = -B(1136) IF (DO_JVS(1382)) & -! JVS(1382) = Jac_FULL(208,258) - JVS(1382) = 0 +! JVS(1382) = Jac_FULL(208,343) + JVS(1382) = B(1108) IF (DO_JVS(1383)) & -! JVS(1383) = Jac_FULL(208,285) - JVS(1383) = 0 +! JVS(1383) = Jac_FULL(209,209) + JVS(1383) = -B(1127)-B(1129)-B(1131)-B(1133) IF (DO_JVS(1384)) & -! JVS(1384) = Jac_FULL(208,286) - JVS(1384) = 0 +! JVS(1384) = Jac_FULL(209,271) + JVS(1384) = B(1103) IF (DO_JVS(1385)) & -! JVS(1385) = Jac_FULL(208,288) - JVS(1385) = 0.53*B(1238) +! JVS(1385) = Jac_FULL(209,338) + JVS(1385) = -B(1132)-B(1134) IF (DO_JVS(1386)) & -! JVS(1386) = Jac_FULL(208,337) - JVS(1386) = 0.13*B(1079)+0.255*B(1271) +! JVS(1386) = Jac_FULL(209,341) + JVS(1386) = -B(1130) IF (DO_JVS(1387)) & -! JVS(1387) = Jac_FULL(208,345) - JVS(1387) = 0.53*B(1239)+0.6*B(1263)-B(1267)+0.318*B(1309) +! JVS(1387) = Jac_FULL(209,343) + JVS(1387) = B(1104) IF (DO_JVS(1388)) & -! JVS(1388) = Jac_FULL(208,346) - JVS(1388) = 0.2*B(1083) +! JVS(1388) = Jac_FULL(210,175) + JVS(1388) = B(1093) IF (DO_JVS(1389)) & -! JVS(1389) = Jac_FULL(209,209) - JVS(1389) = -B(1027)-B(1777) +! JVS(1389) = Jac_FULL(210,210) + JVS(1389) = -B(1113)-B(1114)-B(1116)-B(1118) IF (DO_JVS(1390)) & -! JVS(1390) = Jac_FULL(209,305) - JVS(1390) = B(959) +! JVS(1390) = Jac_FULL(210,314) + JVS(1390) = 0 IF (DO_JVS(1391)) & -! JVS(1391) = Jac_FULL(209,337) - JVS(1391) = B(960) +! JVS(1391) = Jac_FULL(210,338) + JVS(1391) = -B(1117)-B(1119) IF (DO_JVS(1392)) & -! JVS(1392) = Jac_FULL(209,345) - JVS(1392) = -B(1028) +! JVS(1392) = Jac_FULL(210,341) + JVS(1392) = -B(1115) IF (DO_JVS(1393)) & -! JVS(1393) = Jac_FULL(210,209) - JVS(1393) = 0.018*B(1027) +! JVS(1393) = Jac_FULL(210,343) + JVS(1393) = B(1094) IF (DO_JVS(1394)) & -! JVS(1394) = Jac_FULL(210,210) - JVS(1394) = -B(1326)-B(1328)-B(1762) +! JVS(1394) = Jac_FULL(211,135) + JVS(1394) = 0.6*B(1262) IF (DO_JVS(1395)) & -! JVS(1395) = Jac_FULL(210,223) - JVS(1395) = 0.284*B(1032)+0.135*B(1036) +! JVS(1395) = Jac_FULL(211,149) + JVS(1395) = 0.318*B(1308)+0.391*B(1809) IF (DO_JVS(1396)) & -! JVS(1396) = Jac_FULL(210,226) - JVS(1396) = 0.471*B(1200)+0.59*B(1206) +! JVS(1396) = Jac_FULL(211,211) + JVS(1396) = -B(1266)-B(1778) IF (DO_JVS(1397)) & -! JVS(1397) = Jac_FULL(210,271) - JVS(1397) = 0.249*B(1198)+0.303*B(1202) +! JVS(1397) = Jac_FULL(211,245) + JVS(1397) = 0.13*B(1078)+0.2*B(1082) IF (DO_JVS(1398)) & -! JVS(1398) = Jac_FULL(210,276) - JVS(1398) = 0.3*B(953) +! JVS(1398) = Jac_FULL(211,258) + JVS(1398) = 0.255*B(1270) IF (DO_JVS(1399)) & -! JVS(1399) = Jac_FULL(210,303) - JVS(1399) = 0.5*B(1798) +! JVS(1399) = Jac_FULL(211,259) + JVS(1399) = 0 IF (DO_JVS(1400)) & -! JVS(1400) = Jac_FULL(210,305) - JVS(1400) = 0.3*B(966) +! JVS(1400) = Jac_FULL(211,288) + JVS(1400) = 0 IF (DO_JVS(1401)) & -! JVS(1401) = Jac_FULL(210,337) - JVS(1401) = 0.135*B(1037)+0.249*B(1199)+0.471*B(1201) +! JVS(1401) = Jac_FULL(211,289) + JVS(1401) = 0 IF (DO_JVS(1402)) & -! JVS(1402) = Jac_FULL(210,345) - JVS(1402) = 0.3*B(954)+0.018*B(1028)-B(1327)-B(1329) +! JVS(1402) = Jac_FULL(211,291) + JVS(1402) = 0.53*B(1238) IF (DO_JVS(1403)) & -! JVS(1403) = Jac_FULL(210,346) - JVS(1403) = 0.284*B(1033)+0.303*B(1203)+0.59*B(1207) +! JVS(1403) = Jac_FULL(211,338) + JVS(1403) = 0.2*B(1083) IF (DO_JVS(1404)) & -! JVS(1404) = Jac_FULL(211,211) - JVS(1404) = -B(818)-B(820)-B(822) +! JVS(1404) = Jac_FULL(211,341) + JVS(1404) = 0.13*B(1079)+0.255*B(1271) IF (DO_JVS(1405)) & -! JVS(1405) = Jac_FULL(211,281) - JVS(1405) = 0.25*B(802) +! JVS(1405) = Jac_FULL(211,343) + JVS(1405) = 0.53*B(1239)+0.6*B(1263)-B(1267)+0.318*B(1309) IF (DO_JVS(1406)) & -! JVS(1406) = Jac_FULL(211,341) - JVS(1406) = -B(821) +! JVS(1406) = Jac_FULL(212,212) + JVS(1406) = -B(818)-B(820)-B(822) IF (DO_JVS(1407)) & -! JVS(1407) = Jac_FULL(211,345) - JVS(1407) = -B(819) +! JVS(1407) = Jac_FULL(212,284) + JVS(1407) = 0.25*B(802) IF (DO_JVS(1408)) & -! JVS(1408) = Jac_FULL(211,346) +! JVS(1408) = Jac_FULL(212,338) JVS(1408) = 0.25*B(803) IF (DO_JVS(1409)) & -! JVS(1409) = Jac_FULL(211,351) - JVS(1409) = -B(823) +! JVS(1409) = Jac_FULL(212,343) + JVS(1409) = -B(819) IF (DO_JVS(1410)) & -! JVS(1410) = Jac_FULL(212,140) - JVS(1410) = B(142) +! JVS(1410) = Jac_FULL(212,348) + JVS(1410) = -B(823) IF (DO_JVS(1411)) & -! JVS(1411) = Jac_FULL(212,212) - JVS(1411) = -B(148)-B(150) +! JVS(1411) = Jac_FULL(212,356) + JVS(1411) = -B(821) IF (DO_JVS(1412)) & -! JVS(1412) = Jac_FULL(212,337) - JVS(1412) = -B(151) +! JVS(1412) = Jac_FULL(213,213) + JVS(1412) = -B(1027)-B(1790) IF (DO_JVS(1413)) & -! JVS(1413) = Jac_FULL(212,341) - JVS(1413) = 0 +! JVS(1413) = Jac_FULL(213,314) + JVS(1413) = B(959) IF (DO_JVS(1414)) & -! JVS(1414) = Jac_FULL(212,345) - JVS(1414) = B(143) +! JVS(1414) = Jac_FULL(213,341) + JVS(1414) = B(960) IF (DO_JVS(1415)) & -! JVS(1415) = Jac_FULL(212,346) - JVS(1415) = -B(149) +! JVS(1415) = Jac_FULL(213,343) + JVS(1415) = -B(1028) IF (DO_JVS(1416)) & -! JVS(1416) = Jac_FULL(212,351) - JVS(1416) = 0 +! JVS(1416) = Jac_FULL(214,213) + JVS(1416) = 0.018*B(1027) IF (DO_JVS(1417)) & -! JVS(1417) = Jac_FULL(213,114) - JVS(1417) = B(299) +! JVS(1417) = Jac_FULL(214,214) + JVS(1417) = -B(1326)-B(1328)-B(1775) IF (DO_JVS(1418)) & -! JVS(1418) = Jac_FULL(213,213) - JVS(1418) = -B(297)-B(300)-B(302)-B(304) +! JVS(1418) = Jac_FULL(214,228) + JVS(1418) = 0.284*B(1032)+0.135*B(1036) IF (DO_JVS(1419)) & -! JVS(1419) = Jac_FULL(213,306) - JVS(1419) = 0.8*B(293)+B(295) +! JVS(1419) = Jac_FULL(214,236) + JVS(1419) = 0.471*B(1200)+0.59*B(1206) IF (DO_JVS(1420)) & -! JVS(1420) = Jac_FULL(213,335) - JVS(1420) = -B(298) +! JVS(1420) = Jac_FULL(214,273) + JVS(1420) = 0.249*B(1198)+0.303*B(1202) IF (DO_JVS(1421)) & -! JVS(1421) = Jac_FULL(213,337) - JVS(1421) = -B(303) +! JVS(1421) = Jac_FULL(214,279) + JVS(1421) = 0.3*B(953) IF (DO_JVS(1422)) & -! JVS(1422) = Jac_FULL(213,345) - JVS(1422) = 0.8*B(294) +! JVS(1422) = Jac_FULL(214,307) + JVS(1422) = 0.5*B(1811) IF (DO_JVS(1423)) & -! JVS(1423) = Jac_FULL(213,346) - JVS(1423) = -B(301) +! JVS(1423) = Jac_FULL(214,314) + JVS(1423) = 0.3*B(966) IF (DO_JVS(1424)) & -! JVS(1424) = Jac_FULL(213,351) - JVS(1424) = B(296)-B(305) +! JVS(1424) = Jac_FULL(214,338) + JVS(1424) = 0.284*B(1033)+0.303*B(1203)+0.59*B(1207) IF (DO_JVS(1425)) & -! JVS(1425) = Jac_FULL(214,214) - JVS(1425) = -B(86)-B(1496)-B(1498)-B(1500)-B(1501)-B(1503)-B(1655) +! JVS(1425) = Jac_FULL(214,341) + JVS(1425) = 0.135*B(1037)+0.249*B(1199)+0.471*B(1201) IF (DO_JVS(1426)) & -! JVS(1426) = Jac_FULL(214,335) - JVS(1426) = B(84) +! JVS(1426) = Jac_FULL(214,343) + JVS(1426) = 0.3*B(954)+0.018*B(1028)-B(1327)-B(1329) IF (DO_JVS(1427)) & -! JVS(1427) = Jac_FULL(214,336) - JVS(1427) = -B(1497) +! JVS(1427) = Jac_FULL(215,140) + JVS(1427) = B(142) IF (DO_JVS(1428)) & -! JVS(1428) = Jac_FULL(214,339) - JVS(1428) = -B(1499) +! JVS(1428) = Jac_FULL(215,215) + JVS(1428) = -B(148)-B(150) IF (DO_JVS(1429)) & -! JVS(1429) = Jac_FULL(214,344) - JVS(1429) = -B(1504) +! JVS(1429) = Jac_FULL(215,338) + JVS(1429) = -B(149) IF (DO_JVS(1430)) & -! JVS(1430) = Jac_FULL(214,351) - JVS(1430) = B(85) +! JVS(1430) = Jac_FULL(215,341) + JVS(1430) = -B(151) IF (DO_JVS(1431)) & -! JVS(1431) = Jac_FULL(214,353) - JVS(1431) = -B(1502) +! JVS(1431) = Jac_FULL(215,343) + JVS(1431) = B(143) IF (DO_JVS(1432)) & -! JVS(1432) = Jac_FULL(215,128) - JVS(1432) = 0.75*B(1052) +! JVS(1432) = Jac_FULL(215,348) + JVS(1432) = 0 IF (DO_JVS(1433)) & -! JVS(1433) = Jac_FULL(215,144) - JVS(1433) = 0.77*B(1007) +! JVS(1433) = Jac_FULL(215,356) + JVS(1433) = 0 IF (DO_JVS(1434)) & -! JVS(1434) = Jac_FULL(215,150) - JVS(1434) = 0.58*B(1005) +! JVS(1434) = Jac_FULL(216,115) + JVS(1434) = B(299) IF (DO_JVS(1435)) & -! JVS(1435) = Jac_FULL(215,151) - JVS(1435) = B(1054) +! JVS(1435) = Jac_FULL(216,216) + JVS(1435) = -B(297)-B(300)-B(302)-B(304) IF (DO_JVS(1436)) & -! JVS(1436) = Jac_FULL(215,152) - JVS(1436) = B(1058) +! JVS(1436) = Jac_FULL(216,309) + JVS(1436) = 0.8*B(293)+B(295) IF (DO_JVS(1437)) & -! JVS(1437) = Jac_FULL(215,168) - JVS(1437) = 0 +! JVS(1437) = Jac_FULL(216,338) + JVS(1437) = -B(301) IF (DO_JVS(1438)) & -! JVS(1438) = Jac_FULL(215,175) - JVS(1438) = 0 +! JVS(1438) = Jac_FULL(216,341) + JVS(1438) = -B(303) IF (DO_JVS(1439)) & -! JVS(1439) = Jac_FULL(215,186) - JVS(1439) = B(1188) +! JVS(1439) = Jac_FULL(216,343) + JVS(1439) = 0.8*B(294) IF (DO_JVS(1440)) & -! JVS(1440) = Jac_FULL(215,187) - JVS(1440) = 0 +! JVS(1440) = Jac_FULL(216,345) + JVS(1440) = -B(298) IF (DO_JVS(1441)) & -! JVS(1441) = Jac_FULL(215,192) - JVS(1441) = 0 +! JVS(1441) = Jac_FULL(216,348) + JVS(1441) = B(296)-B(305) IF (DO_JVS(1442)) & -! JVS(1442) = Jac_FULL(215,199) - JVS(1442) = 0 +! JVS(1442) = Jac_FULL(217,217) + JVS(1442) = -B(86)-B(1496)-B(1498)-B(1500)-B(1501)-B(1503)-B(1668) IF (DO_JVS(1443)) & -! JVS(1443) = Jac_FULL(215,209) - JVS(1443) = 0 +! JVS(1443) = Jac_FULL(217,339) + JVS(1443) = -B(1502) IF (DO_JVS(1444)) & -! JVS(1444) = Jac_FULL(215,215) - JVS(1444) = -B(1011)-B(1632) +! JVS(1444) = Jac_FULL(217,340) + JVS(1444) = -B(1499) IF (DO_JVS(1445)) & -! JVS(1445) = Jac_FULL(215,230) - JVS(1445) = 0.085*B(1001) +! JVS(1445) = Jac_FULL(217,345) + JVS(1445) = B(84) IF (DO_JVS(1446)) & -! JVS(1446) = Jac_FULL(215,231) - JVS(1446) = 0.165*B(1003) +! JVS(1446) = Jac_FULL(217,346) + JVS(1446) = -B(1504) IF (DO_JVS(1447)) & -! JVS(1447) = Jac_FULL(215,267) - JVS(1447) = 0 +! JVS(1447) = Jac_FULL(217,348) + JVS(1447) = B(85) IF (DO_JVS(1448)) & -! JVS(1448) = Jac_FULL(215,268) - JVS(1448) = 0 +! JVS(1448) = Jac_FULL(217,353) + JVS(1448) = -B(1497) IF (DO_JVS(1449)) & -! JVS(1449) = Jac_FULL(215,276) - JVS(1449) = 0 +! JVS(1449) = Jac_FULL(218,131) + JVS(1449) = 0.75*B(1052) IF (DO_JVS(1450)) & -! JVS(1450) = Jac_FULL(215,301) - JVS(1450) = B(1210) +! JVS(1450) = Jac_FULL(218,150) + JVS(1450) = 0.58*B(1005) IF (DO_JVS(1451)) & -! JVS(1451) = Jac_FULL(215,304) - JVS(1451) = 0 +! JVS(1451) = Jac_FULL(218,151) + JVS(1451) = 0.77*B(1007) IF (DO_JVS(1452)) & -! JVS(1452) = Jac_FULL(215,305) - JVS(1452) = 0 +! JVS(1452) = Jac_FULL(218,157) + JVS(1452) = B(1054) IF (DO_JVS(1453)) & -! JVS(1453) = Jac_FULL(215,311) - JVS(1453) = 0 +! JVS(1453) = Jac_FULL(218,159) + JVS(1453) = B(1058) IF (DO_JVS(1454)) & -! JVS(1454) = Jac_FULL(215,337) +! JVS(1454) = Jac_FULL(218,175) JVS(1454) = 0 IF (DO_JVS(1455)) & -! JVS(1455) = Jac_FULL(215,345) - JVS(1455) = 0.085*B(1002)+0.165*B(1004)+0.58*B(1006)+0.77*B(1008)-B(1012)+0.75*B(1053)+B(1055)+B(1059)+B(1189)+B(1211) +! JVS(1455) = Jac_FULL(218,177) + JVS(1455) = 0 IF (DO_JVS(1456)) & -! JVS(1456) = Jac_FULL(215,346) - JVS(1456) = 0 +! JVS(1456) = Jac_FULL(218,188) + JVS(1456) = B(1188) IF (DO_JVS(1457)) & -! JVS(1457) = Jac_FULL(216,206) - JVS(1457) = 0.031*B(1129)+0.065*B(1131) +! JVS(1457) = Jac_FULL(218,191) + JVS(1457) = 0 IF (DO_JVS(1458)) & -! JVS(1458) = Jac_FULL(216,216) - JVS(1458) = -B(1244)-B(1638)-B(1774) +! JVS(1458) = Jac_FULL(218,195) + JVS(1458) = 0 IF (DO_JVS(1459)) & -! JVS(1459) = Jac_FULL(216,226) - JVS(1459) = 0.073*B(1200)+0.291*B(1206) +! JVS(1459) = Jac_FULL(218,202) + JVS(1459) = 0 IF (DO_JVS(1460)) & -! JVS(1460) = Jac_FULL(216,268) - JVS(1460) = 0.6*B(1109) +! JVS(1460) = Jac_FULL(218,213) + JVS(1460) = 0 IF (DO_JVS(1461)) & -! JVS(1461) = Jac_FULL(216,271) - JVS(1461) = 0.06*B(1198)+0.17*B(1202) +! JVS(1461) = Jac_FULL(218,218) + JVS(1461) = -B(1011)-B(1632) IF (DO_JVS(1462)) & -! JVS(1462) = Jac_FULL(216,293) - JVS(1462) = 0.094*B(1141)+0.355*B(1143) +! JVS(1462) = Jac_FULL(218,231) + JVS(1462) = 0.165*B(1003) IF (DO_JVS(1463)) & -! JVS(1463) = Jac_FULL(216,301) - JVS(1463) = 0.378*B(1212) +! JVS(1463) = Jac_FULL(218,233) + JVS(1463) = 0.085*B(1001) IF (DO_JVS(1464)) & -! JVS(1464) = Jac_FULL(216,308) - JVS(1464) = 0.13*B(1291)+0.3*B(1299) +! JVS(1464) = Jac_FULL(218,270) + JVS(1464) = 0 IF (DO_JVS(1465)) & -! JVS(1465) = Jac_FULL(216,328) - JVS(1465) = 0.3*B(1300) +! JVS(1465) = Jac_FULL(218,271) + JVS(1465) = 0 IF (DO_JVS(1466)) & -! JVS(1466) = Jac_FULL(216,337) - JVS(1466) = 0.031*B(1130)+0.094*B(1142)+0.06*B(1199)+0.073*B(1201)+0.13*B(1292) +! JVS(1466) = Jac_FULL(218,279) + JVS(1466) = 0 IF (DO_JVS(1467)) & -! JVS(1467) = Jac_FULL(216,345) - JVS(1467) = 0.6*B(1110)+0.378*B(1213)-B(1245) +! JVS(1467) = Jac_FULL(218,305) + JVS(1467) = B(1210) IF (DO_JVS(1468)) & -! JVS(1468) = Jac_FULL(216,346) - JVS(1468) = 0.065*B(1132)+0.355*B(1144)+0.17*B(1203)+0.291*B(1207) +! JVS(1468) = Jac_FULL(218,310) + JVS(1468) = 0 IF (DO_JVS(1469)) & -! JVS(1469) = Jac_FULL(217,181) - JVS(1469) = 0.09*B(495) +! JVS(1469) = Jac_FULL(218,314) + JVS(1469) = 0 IF (DO_JVS(1470)) & -! JVS(1470) = Jac_FULL(217,217) - JVS(1470) = -B(471)-B(473)-B(475) +! JVS(1470) = Jac_FULL(218,315) + JVS(1470) = 0 IF (DO_JVS(1471)) & -! JVS(1471) = Jac_FULL(217,228) - JVS(1471) = 0.2*B(443) +! JVS(1471) = Jac_FULL(218,338) + JVS(1471) = 0 IF (DO_JVS(1472)) & -! JVS(1472) = Jac_FULL(217,325) - JVS(1472) = B(1647) +! JVS(1472) = Jac_FULL(218,341) + JVS(1472) = 0 IF (DO_JVS(1473)) & -! JVS(1473) = Jac_FULL(217,334) - JVS(1473) = B(439)+0.2*B(444)+0.22*B(487)+0.2*B(489)+0.09*B(496) +! JVS(1473) = Jac_FULL(218,343) + JVS(1473) = 0.085*B(1002)+0.165*B(1004)+0.58*B(1006)+0.77*B(1008)-B(1012)+0.75*B(1053)+B(1055)+B(1059)+B(1189)+B(1211) IF (DO_JVS(1474)) & -! JVS(1474) = Jac_FULL(217,337) - JVS(1474) = -B(476) +! JVS(1474) = Jac_FULL(219,184) + JVS(1474) = 0.09*B(495) IF (DO_JVS(1475)) & -! JVS(1475) = Jac_FULL(217,339) - JVS(1475) = 0.22*B(488) +! JVS(1475) = Jac_FULL(219,219) + JVS(1475) = -B(471)-B(473)-B(475) IF (DO_JVS(1476)) & -! JVS(1476) = Jac_FULL(217,340) - JVS(1476) = B(569) +! JVS(1476) = Jac_FULL(219,232) + JVS(1476) = 0.2*B(443) IF (DO_JVS(1477)) & -! JVS(1477) = Jac_FULL(217,341) - JVS(1477) = -B(474) +! JVS(1477) = Jac_FULL(219,329) + JVS(1477) = B(1660) IF (DO_JVS(1478)) & -! JVS(1478) = Jac_FULL(217,343) - JVS(1478) = B(451) +! JVS(1478) = Jac_FULL(219,337) + JVS(1478) = B(439)+0.2*B(444)+0.22*B(487)+0.2*B(489)+0.09*B(496) IF (DO_JVS(1479)) & -! JVS(1479) = Jac_FULL(217,345) - JVS(1479) = B(449)+B(452) +! JVS(1479) = Jac_FULL(219,340) + JVS(1479) = 0.22*B(488) IF (DO_JVS(1480)) & -! JVS(1480) = Jac_FULL(217,352) - JVS(1480) = 0.2*B(490) +! JVS(1480) = Jac_FULL(219,341) + JVS(1480) = -B(476) IF (DO_JVS(1481)) & -! JVS(1481) = Jac_FULL(218,218) - JVS(1481) = -B(401)-B(1509)-B(1511)-B(1693)-B(1694) +! JVS(1481) = Jac_FULL(219,343) + JVS(1481) = B(449)+B(451) IF (DO_JVS(1482)) & -! JVS(1482) = Jac_FULL(218,335) - JVS(1482) = B(425) +! JVS(1482) = Jac_FULL(219,351) + JVS(1482) = B(452) IF (DO_JVS(1483)) & -! JVS(1483) = Jac_FULL(218,336) - JVS(1483) = -B(1510) +! JVS(1483) = Jac_FULL(219,352) + JVS(1483) = B(569) IF (DO_JVS(1484)) & -! JVS(1484) = Jac_FULL(218,339) - JVS(1484) = -B(1512) +! JVS(1484) = Jac_FULL(219,354) + JVS(1484) = 0.2*B(490) IF (DO_JVS(1485)) & -! JVS(1485) = Jac_FULL(218,342) - JVS(1485) = -B(402) +! JVS(1485) = Jac_FULL(219,356) + JVS(1485) = -B(474) IF (DO_JVS(1486)) & -! JVS(1486) = Jac_FULL(218,347) - JVS(1486) = B(426) +! JVS(1486) = Jac_FULL(220,209) + JVS(1486) = 0.031*B(1129)+0.065*B(1131) IF (DO_JVS(1487)) & -! JVS(1487) = Jac_FULL(219,219) - JVS(1487) = -B(719)-B(727)-B(729) +! JVS(1487) = Jac_FULL(220,220) + JVS(1487) = -B(1244)-B(1638)-B(1787) IF (DO_JVS(1488)) & -! JVS(1488) = Jac_FULL(219,341) - JVS(1488) = -B(730) +! JVS(1488) = Jac_FULL(220,236) + JVS(1488) = 0.073*B(1200)+0.291*B(1206) IF (DO_JVS(1489)) & -! JVS(1489) = Jac_FULL(219,345) - JVS(1489) = -B(728) +! JVS(1489) = Jac_FULL(220,271) + JVS(1489) = 0.6*B(1109) IF (DO_JVS(1490)) & -! JVS(1490) = Jac_FULL(219,351) - JVS(1490) = -B(720) +! JVS(1490) = Jac_FULL(220,273) + JVS(1490) = 0.06*B(1198)+0.17*B(1202) IF (DO_JVS(1491)) & -! JVS(1491) = Jac_FULL(220,220) - JVS(1491) = -B(1338)-B(1340)-B(1342) +! JVS(1491) = Jac_FULL(220,299) + JVS(1491) = 0.094*B(1141)+0.355*B(1143) IF (DO_JVS(1492)) & -! JVS(1492) = Jac_FULL(220,341) - JVS(1492) = -B(1343) +! JVS(1492) = Jac_FULL(220,305) + JVS(1492) = 0.378*B(1212) IF (DO_JVS(1493)) & -! JVS(1493) = Jac_FULL(220,345) - JVS(1493) = -B(1339) +! JVS(1493) = Jac_FULL(220,312) + JVS(1493) = 0.13*B(1291)+0.3*B(1299) IF (DO_JVS(1494)) & -! JVS(1494) = Jac_FULL(220,351) - JVS(1494) = -B(1341) +! JVS(1494) = Jac_FULL(220,334) + JVS(1494) = 0.3*B(1300) IF (DO_JVS(1495)) & -! JVS(1495) = Jac_FULL(221,82) - JVS(1495) = 0.68*B(1383) +! JVS(1495) = Jac_FULL(220,338) + JVS(1495) = 0.065*B(1132)+0.355*B(1144)+0.17*B(1203)+0.291*B(1207) IF (DO_JVS(1496)) & -! JVS(1496) = Jac_FULL(221,101) - JVS(1496) = 0.28*B(1385) +! JVS(1496) = Jac_FULL(220,341) + JVS(1496) = 0.031*B(1130)+0.094*B(1142)+0.06*B(1199)+0.073*B(1201)+0.13*B(1292) IF (DO_JVS(1497)) & -! JVS(1497) = Jac_FULL(221,143) - JVS(1497) = 0.55*B(1381) +! JVS(1497) = Jac_FULL(220,343) + JVS(1497) = 0.6*B(1110)+0.378*B(1213)-B(1245) IF (DO_JVS(1498)) & -! JVS(1498) = Jac_FULL(221,149) - JVS(1498) = 0.8*B(1344) +! JVS(1498) = Jac_FULL(221,221) + JVS(1498) = -B(401)-B(1509)-B(1511)-B(1706)-B(1707) IF (DO_JVS(1499)) & -! JVS(1499) = Jac_FULL(221,195) - JVS(1499) = 0.18*B(1414) +! JVS(1499) = Jac_FULL(221,340) + JVS(1499) = -B(1512) IF (DO_JVS(1500)) & -! JVS(1500) = Jac_FULL(221,200) - JVS(1500) = 0.375*B(1348) +! JVS(1500) = Jac_FULL(221,342) + JVS(1500) = -B(402) IF (DO_JVS(1501)) & -! JVS(1501) = Jac_FULL(221,202) - JVS(1501) = 1.05*B(1422)+B(1424)+0.3*B(1426) +! JVS(1501) = Jac_FULL(221,345) + JVS(1501) = B(425) IF (DO_JVS(1502)) & -! JVS(1502) = Jac_FULL(221,220) - JVS(1502) = 0 +! JVS(1502) = Jac_FULL(221,347) + JVS(1502) = B(426) IF (DO_JVS(1503)) & -! JVS(1503) = Jac_FULL(221,221) - JVS(1503) = -B(1465)-B(1467)-B(1469) +! JVS(1503) = Jac_FULL(221,353) + JVS(1503) = -B(1510) IF (DO_JVS(1504)) & -! JVS(1504) = Jac_FULL(221,269) - JVS(1504) = 0.9*B(1457)+0.9*B(1459)+B(1805) +! JVS(1504) = Jac_FULL(222,222) + JVS(1504) = -B(719)-B(727)-B(729) IF (DO_JVS(1505)) & -! JVS(1505) = Jac_FULL(221,341) - JVS(1505) = B(1425)-B(1468) +! JVS(1505) = Jac_FULL(222,343) + JVS(1505) = -B(728) IF (DO_JVS(1506)) & -! JVS(1506) = Jac_FULL(221,345) - JVS(1506) = 0.8*B(1345)+0.375*B(1349)+0.55*B(1382)+0.68*B(1384)+0.28*B(1386)+0.18*B(1415)+1.05*B(1423)+0.9*B(1458)& - &-B(1466) +! JVS(1506) = Jac_FULL(222,348) + JVS(1506) = -B(720) IF (DO_JVS(1507)) & -! JVS(1507) = Jac_FULL(221,351) - JVS(1507) = 0.3*B(1427)+0.9*B(1460) +! JVS(1507) = Jac_FULL(222,356) + JVS(1507) = -B(730) IF (DO_JVS(1508)) & -! JVS(1508) = Jac_FULL(222,222) - JVS(1508) = -B(1180)-B(1184)-B(1190)-B(1634)-B(1787) +! JVS(1508) = Jac_FULL(223,223) + JVS(1508) = -B(1338)-B(1340)-B(1342) IF (DO_JVS(1509)) & -! JVS(1509) = Jac_FULL(222,310) - JVS(1509) = 0.473*B(1149)+0.07*B(1153)+0.399*B(1154)+0.355*B(1159) +! JVS(1509) = Jac_FULL(223,343) + JVS(1509) = -B(1339) IF (DO_JVS(1510)) & -! JVS(1510) = Jac_FULL(222,311) - JVS(1510) = 0.399*B(1155) +! JVS(1510) = Jac_FULL(223,348) + JVS(1510) = -B(1341) IF (DO_JVS(1511)) & -! JVS(1511) = Jac_FULL(222,328) - JVS(1511) = 0.355*B(1160) +! JVS(1511) = Jac_FULL(223,356) + JVS(1511) = -B(1343) IF (DO_JVS(1512)) & -! JVS(1512) = Jac_FULL(222,337) - JVS(1512) = 0.473*B(1150) +! JVS(1512) = Jac_FULL(224,85) + JVS(1512) = 0.68*B(1383) IF (DO_JVS(1513)) & -! JVS(1513) = Jac_FULL(222,345) - JVS(1513) = -B(1181)-B(1185)-B(1191) +! JVS(1513) = Jac_FULL(224,103) + JVS(1513) = 0.28*B(1385) IF (DO_JVS(1514)) & -! JVS(1514) = Jac_FULL(223,187) - JVS(1514) = 0.345*B(1015) +! JVS(1514) = Jac_FULL(224,145) + JVS(1514) = 0.55*B(1381) IF (DO_JVS(1515)) & -! JVS(1515) = Jac_FULL(223,209) - JVS(1515) = 0.595*B(1027) +! JVS(1515) = Jac_FULL(224,148) + JVS(1515) = 0.8*B(1344) IF (DO_JVS(1516)) & -! JVS(1516) = Jac_FULL(223,223) - JVS(1516) = -B(1031)-B(1032)-B(1034)-B(1036) +! JVS(1516) = Jac_FULL(224,199) + JVS(1516) = 0.18*B(1414) IF (DO_JVS(1517)) & -! JVS(1517) = Jac_FULL(223,305) - JVS(1517) = 0 +! JVS(1517) = Jac_FULL(224,203) + JVS(1517) = 0.375*B(1348) IF (DO_JVS(1518)) & -! JVS(1518) = Jac_FULL(223,337) - JVS(1518) = -B(1037) +! JVS(1518) = Jac_FULL(224,205) + JVS(1518) = 1.05*B(1422)+B(1424)+0.3*B(1426) IF (DO_JVS(1519)) & -! JVS(1519) = Jac_FULL(223,345) - JVS(1519) = 0.345*B(1016)+0.595*B(1028) +! JVS(1519) = Jac_FULL(224,223) + JVS(1519) = 0 IF (DO_JVS(1520)) & -! JVS(1520) = Jac_FULL(223,346) - JVS(1520) = -B(1033)-B(1035) +! JVS(1520) = Jac_FULL(224,224) + JVS(1520) = -B(1465)-B(1467)-B(1469) IF (DO_JVS(1521)) & -! JVS(1521) = Jac_FULL(224,192) - JVS(1521) = 0.345*B(1019) +! JVS(1521) = Jac_FULL(224,272) + JVS(1521) = 0.9*B(1457)+0.9*B(1459)+B(1818) IF (DO_JVS(1522)) & -! JVS(1522) = Jac_FULL(224,199) - JVS(1522) = 0.255*B(1029) +! JVS(1522) = Jac_FULL(224,343) + JVS(1522) = 0.8*B(1345)+0.375*B(1349)+0.55*B(1382)+0.68*B(1384)+0.28*B(1386)+0.18*B(1415)+1.05*B(1423)+0.9*B(1458)& + &-B(1466) IF (DO_JVS(1523)) & -! JVS(1523) = Jac_FULL(224,224) - JVS(1523) = -B(1038)-B(1039)-B(1041)-B(1043) +! JVS(1523) = Jac_FULL(224,348) + JVS(1523) = 0.3*B(1427)+0.9*B(1460) IF (DO_JVS(1524)) & -! JVS(1524) = Jac_FULL(224,304) - JVS(1524) = 0 +! JVS(1524) = Jac_FULL(224,356) + JVS(1524) = B(1425)-B(1468) IF (DO_JVS(1525)) & -! JVS(1525) = Jac_FULL(224,337) - JVS(1525) = -B(1044) +! JVS(1525) = Jac_FULL(225,225) + JVS(1525) = -B(1180)-B(1184)-B(1190)-B(1634)-B(1800) IF (DO_JVS(1526)) & -! JVS(1526) = Jac_FULL(224,345) - JVS(1526) = 0.345*B(1020)+0.255*B(1030) +! JVS(1526) = Jac_FULL(225,308) + JVS(1526) = 0.473*B(1149)+0.07*B(1153)+0.399*B(1154)+0.355*B(1159) IF (DO_JVS(1527)) & -! JVS(1527) = Jac_FULL(224,346) - JVS(1527) = -B(1040)-B(1042) +! JVS(1527) = Jac_FULL(225,310) + JVS(1527) = 0.399*B(1155) IF (DO_JVS(1528)) & -! JVS(1528) = Jac_FULL(225,111) - JVS(1528) = B(1807) +! JVS(1528) = Jac_FULL(225,334) + JVS(1528) = 0.355*B(1160) IF (DO_JVS(1529)) & -! JVS(1529) = Jac_FULL(225,137) - JVS(1529) = 0.5*B(743) +! JVS(1529) = Jac_FULL(225,341) + JVS(1529) = 0.473*B(1150) IF (DO_JVS(1530)) & -! JVS(1530) = Jac_FULL(225,191) - JVS(1530) = 0.2*B(733) +! JVS(1530) = Jac_FULL(225,343) + JVS(1530) = -B(1181)-B(1185)-B(1191) IF (DO_JVS(1531)) & -! JVS(1531) = Jac_FULL(225,225) - JVS(1531) = -B(745)-B(747)-B(1808) +! JVS(1531) = Jac_FULL(226,195) + JVS(1531) = 0.345*B(1019) IF (DO_JVS(1532)) & -! JVS(1532) = Jac_FULL(225,277) - JVS(1532) = 0.75*B(737)+B(739)+B(877)+B(879) +! JVS(1532) = Jac_FULL(226,202) + JVS(1532) = 0.255*B(1029) IF (DO_JVS(1533)) & -! JVS(1533) = Jac_FULL(225,324) - JVS(1533) = B(880) +! JVS(1533) = Jac_FULL(226,226) + JVS(1533) = -B(1038)-B(1039)-B(1041)-B(1043) IF (DO_JVS(1534)) & -! JVS(1534) = Jac_FULL(225,328) - JVS(1534) = B(878) +! JVS(1534) = Jac_FULL(226,315) + JVS(1534) = 0 IF (DO_JVS(1535)) & -! JVS(1535) = Jac_FULL(225,337) - JVS(1535) = 0 +! JVS(1535) = Jac_FULL(226,338) + JVS(1535) = -B(1040)-B(1042) IF (DO_JVS(1536)) & -! JVS(1536) = Jac_FULL(225,341) - JVS(1536) = 0.2*B(734) +! JVS(1536) = Jac_FULL(226,341) + JVS(1536) = -B(1044) IF (DO_JVS(1537)) & -! JVS(1537) = Jac_FULL(225,345) - JVS(1537) = 0.5*B(744)-B(748) +! JVS(1537) = Jac_FULL(226,343) + JVS(1537) = 0.345*B(1020)+0.255*B(1030) IF (DO_JVS(1538)) & -! JVS(1538) = Jac_FULL(225,346) - JVS(1538) = 0.75*B(738) +! JVS(1538) = Jac_FULL(227,111) + JVS(1538) = B(1820) IF (DO_JVS(1539)) & -! JVS(1539) = Jac_FULL(225,351) - JVS(1539) = B(740)-B(746) +! JVS(1539) = Jac_FULL(227,139) + JVS(1539) = 0.5*B(743) IF (DO_JVS(1540)) & -! JVS(1540) = Jac_FULL(226,186) - JVS(1540) = B(1182) +! JVS(1540) = Jac_FULL(227,194) + JVS(1540) = 0.2*B(733) IF (DO_JVS(1541)) & -! JVS(1541) = Jac_FULL(226,226) - JVS(1541) = -B(1196)-B(1200)-B(1206)-B(1208) +! JVS(1541) = Jac_FULL(227,227) + JVS(1541) = -B(745)-B(747)-B(1821) IF (DO_JVS(1542)) & -! JVS(1542) = Jac_FULL(226,311) - JVS(1542) = 0 +! JVS(1542) = Jac_FULL(227,281) + JVS(1542) = 0.75*B(737)+B(739)+B(877)+B(879) IF (DO_JVS(1543)) & -! JVS(1543) = Jac_FULL(226,337) - JVS(1543) = -B(1201) +! JVS(1543) = Jac_FULL(227,328) + JVS(1543) = B(880) IF (DO_JVS(1544)) & -! JVS(1544) = Jac_FULL(226,345) - JVS(1544) = B(1183) +! JVS(1544) = Jac_FULL(227,334) + JVS(1544) = B(878) IF (DO_JVS(1545)) & -! JVS(1545) = Jac_FULL(226,346) - JVS(1545) = -B(1207)-B(1209) +! JVS(1545) = Jac_FULL(227,338) + JVS(1545) = 0.75*B(738) IF (DO_JVS(1546)) & -! JVS(1546) = Jac_FULL(227,131) - JVS(1546) = 0.4*B(1262) +! JVS(1546) = Jac_FULL(227,341) + JVS(1546) = 0 IF (DO_JVS(1547)) & -! JVS(1547) = Jac_FULL(227,147) - JVS(1547) = 0.126*B(1308)+0.155*B(1796) +! JVS(1547) = Jac_FULL(227,343) + JVS(1547) = 0.5*B(744)-B(748) IF (DO_JVS(1548)) & -! JVS(1548) = Jac_FULL(227,153) - JVS(1548) = 0.16*B(1268) +! JVS(1548) = Jac_FULL(227,348) + JVS(1548) = B(740)-B(746) IF (DO_JVS(1549)) & -! JVS(1549) = Jac_FULL(227,194) - JVS(1549) = 0.063*B(1258) +! JVS(1549) = Jac_FULL(227,356) + JVS(1549) = 0.2*B(734) IF (DO_JVS(1550)) & -! JVS(1550) = Jac_FULL(227,227) - JVS(1550) = -B(1264)-B(1766) +! JVS(1550) = Jac_FULL(228,191) + JVS(1550) = 0.345*B(1015) IF (DO_JVS(1551)) & -! JVS(1551) = Jac_FULL(227,230) - JVS(1551) = 0 +! JVS(1551) = Jac_FULL(228,213) + JVS(1551) = 0.595*B(1027) IF (DO_JVS(1552)) & -! JVS(1552) = Jac_FULL(227,231) - JVS(1552) = 0 +! JVS(1552) = Jac_FULL(228,228) + JVS(1552) = -B(1031)-B(1032)-B(1034)-B(1036) IF (DO_JVS(1553)) & -! JVS(1553) = Jac_FULL(227,258) - JVS(1553) = 0.133*B(1793) +! JVS(1553) = Jac_FULL(228,314) + JVS(1553) = 0 IF (DO_JVS(1554)) & -! JVS(1554) = Jac_FULL(227,285) - JVS(1554) = 0 +! JVS(1554) = Jac_FULL(228,338) + JVS(1554) = -B(1033)-B(1035) IF (DO_JVS(1555)) & -! JVS(1555) = Jac_FULL(227,286) - JVS(1555) = 0 +! JVS(1555) = Jac_FULL(228,341) + JVS(1555) = -B(1037) IF (DO_JVS(1556)) & -! JVS(1556) = Jac_FULL(227,288) - JVS(1556) = 0.47*B(1238) +! JVS(1556) = Jac_FULL(228,343) + JVS(1556) = 0.345*B(1016)+0.595*B(1028) IF (DO_JVS(1557)) & -! JVS(1557) = Jac_FULL(227,301) - JVS(1557) = 0 +! JVS(1557) = Jac_FULL(229,140) + JVS(1557) = B(144)+B(146) IF (DO_JVS(1558)) & -! JVS(1558) = Jac_FULL(227,302) - JVS(1558) = 0.29*B(1236) +! JVS(1558) = Jac_FULL(229,215) + JVS(1558) = 0.73*B(148) IF (DO_JVS(1559)) & -! JVS(1559) = Jac_FULL(227,303) - JVS(1559) = 0 +! JVS(1559) = Jac_FULL(229,229) + JVS(1559) = -B(154)-B(1673) IF (DO_JVS(1560)) & -! JVS(1560) = Jac_FULL(227,337) - JVS(1560) = 0 +! JVS(1560) = Jac_FULL(229,338) + JVS(1560) = 0.73*B(149) IF (DO_JVS(1561)) & -! JVS(1561) = Jac_FULL(227,345) - JVS(1561) = 0.29*B(1237)+0.47*B(1239)+0.063*B(1259)+0.4*B(1263)-B(1265)+0.16*B(1269)+0.126*B(1309) +! JVS(1561) = Jac_FULL(229,341) + JVS(1561) = 0 IF (DO_JVS(1562)) & -! JVS(1562) = Jac_FULL(227,346) - JVS(1562) = 0 +! JVS(1562) = Jac_FULL(229,343) + JVS(1562) = -B(155) IF (DO_JVS(1563)) & -! JVS(1563) = Jac_FULL(228,228) - JVS(1563) = -B(47)-B(443)-B(563) +! JVS(1563) = Jac_FULL(229,348) + JVS(1563) = B(145) IF (DO_JVS(1564)) & -! JVS(1564) = Jac_FULL(228,290) - JVS(1564) = 0.1*B(287) +! JVS(1564) = Jac_FULL(229,356) + JVS(1564) = B(147) IF (DO_JVS(1565)) & -! JVS(1565) = Jac_FULL(228,326) - JVS(1565) = B(1657) +! JVS(1565) = Jac_FULL(230,135) + JVS(1565) = 0.4*B(1262) IF (DO_JVS(1566)) & -! JVS(1566) = Jac_FULL(228,334) - JVS(1566) = -B(444) +! JVS(1566) = Jac_FULL(230,149) + JVS(1566) = 0.126*B(1308)+0.155*B(1809) IF (DO_JVS(1567)) & -! JVS(1567) = Jac_FULL(228,340) - JVS(1567) = -B(564) +! JVS(1567) = Jac_FULL(230,155) + JVS(1567) = 0.16*B(1268) IF (DO_JVS(1568)) & -! JVS(1568) = Jac_FULL(228,341) - JVS(1568) = 0.1*B(288) +! JVS(1568) = Jac_FULL(230,197) + JVS(1568) = 0.063*B(1258) IF (DO_JVS(1569)) & -! JVS(1569) = Jac_FULL(228,345) - JVS(1569) = -B(48) +! JVS(1569) = Jac_FULL(230,230) + JVS(1569) = -B(1264)-B(1779) IF (DO_JVS(1570)) & -! JVS(1570) = Jac_FULL(229,229) - JVS(1570) = -B(859)-B(861)-B(863)-B(1748)-B(1816) +! JVS(1570) = Jac_FULL(230,231) + JVS(1570) = 0 IF (DO_JVS(1571)) & -! JVS(1571) = Jac_FULL(229,291) - JVS(1571) = B(851) +! JVS(1571) = Jac_FULL(230,233) + JVS(1571) = 0 IF (DO_JVS(1572)) & -! JVS(1572) = Jac_FULL(229,337) - JVS(1572) = B(852) +! JVS(1572) = Jac_FULL(230,259) + JVS(1572) = 0.133*B(1806) IF (DO_JVS(1573)) & -! JVS(1573) = Jac_FULL(229,341) - JVS(1573) = -B(862) +! JVS(1573) = Jac_FULL(230,288) + JVS(1573) = 0 IF (DO_JVS(1574)) & -! JVS(1574) = Jac_FULL(229,345) - JVS(1574) = -B(860) +! JVS(1574) = Jac_FULL(230,289) + JVS(1574) = 0 IF (DO_JVS(1575)) & -! JVS(1575) = Jac_FULL(229,351) - JVS(1575) = -B(864) +! JVS(1575) = Jac_FULL(230,291) + JVS(1575) = 0.47*B(1238) IF (DO_JVS(1576)) & -! JVS(1576) = Jac_FULL(230,209) - JVS(1576) = 0.015*B(1027) +! JVS(1576) = Jac_FULL(230,305) + JVS(1576) = 0 IF (DO_JVS(1577)) & -! JVS(1577) = Jac_FULL(230,230) - JVS(1577) = -B(1001)-B(1779) +! JVS(1577) = Jac_FULL(230,306) + JVS(1577) = 0.29*B(1236) IF (DO_JVS(1578)) & -! JVS(1578) = Jac_FULL(230,276) - JVS(1578) = 0.25*B(953) +! JVS(1578) = Jac_FULL(230,307) + JVS(1578) = 0 IF (DO_JVS(1579)) & -! JVS(1579) = Jac_FULL(230,305) - JVS(1579) = 0.25*B(966) +! JVS(1579) = Jac_FULL(230,338) + JVS(1579) = 0 IF (DO_JVS(1580)) & -! JVS(1580) = Jac_FULL(230,337) +! JVS(1580) = Jac_FULL(230,341) JVS(1580) = 0 IF (DO_JVS(1581)) & -! JVS(1581) = Jac_FULL(230,345) - JVS(1581) = 0.25*B(954)-B(1002)+0.015*B(1028) +! JVS(1581) = Jac_FULL(230,343) + JVS(1581) = 0.29*B(1237)+0.47*B(1239)+0.063*B(1259)+0.4*B(1263)-B(1265)+0.16*B(1269)+0.126*B(1309) IF (DO_JVS(1582)) & -! JVS(1582) = Jac_FULL(231,199) +! JVS(1582) = Jac_FULL(231,202) JVS(1582) = 0.015*B(1029) IF (DO_JVS(1583)) & ! JVS(1583) = Jac_FULL(231,231) - JVS(1583) = -B(1003)-B(1780) + JVS(1583) = -B(1003)-B(1793) IF (DO_JVS(1584)) & -! JVS(1584) = Jac_FULL(231,276) +! JVS(1584) = Jac_FULL(231,279) JVS(1584) = 0.25*B(955) IF (DO_JVS(1585)) & -! JVS(1585) = Jac_FULL(231,304) +! JVS(1585) = Jac_FULL(231,315) JVS(1585) = 0.25*B(968) IF (DO_JVS(1586)) & -! JVS(1586) = Jac_FULL(231,337) +! JVS(1586) = Jac_FULL(231,341) JVS(1586) = 0 IF (DO_JVS(1587)) & -! JVS(1587) = Jac_FULL(231,345) +! JVS(1587) = Jac_FULL(231,343) JVS(1587) = 0.25*B(956)-B(1004)+0.015*B(1030) IF (DO_JVS(1588)) & -! JVS(1588) = Jac_FULL(232,187) - JVS(1588) = 0.655*B(1015) +! JVS(1588) = Jac_FULL(232,232) + JVS(1588) = -B(47)-B(443)-B(563) IF (DO_JVS(1589)) & -! JVS(1589) = Jac_FULL(232,192) - JVS(1589) = 0.655*B(1019) +! JVS(1589) = Jac_FULL(232,293) + JVS(1589) = 0.1*B(287) IF (DO_JVS(1590)) & -! JVS(1590) = Jac_FULL(232,232) - JVS(1590) = -B(1045)-B(1046)-B(1048)-B(1050) +! JVS(1590) = Jac_FULL(232,330) + JVS(1590) = B(1670) IF (DO_JVS(1591)) & -! JVS(1591) = Jac_FULL(232,304) - JVS(1591) = 0 +! JVS(1591) = Jac_FULL(232,337) + JVS(1591) = -B(444) IF (DO_JVS(1592)) & -! JVS(1592) = Jac_FULL(232,305) - JVS(1592) = 0 +! JVS(1592) = Jac_FULL(232,343) + JVS(1592) = -B(48) IF (DO_JVS(1593)) & -! JVS(1593) = Jac_FULL(232,337) - JVS(1593) = -B(1051) +! JVS(1593) = Jac_FULL(232,352) + JVS(1593) = -B(564) IF (DO_JVS(1594)) & -! JVS(1594) = Jac_FULL(232,345) - JVS(1594) = 0.655*B(1016)+0.655*B(1020) +! JVS(1594) = Jac_FULL(232,356) + JVS(1594) = 0.1*B(288) IF (DO_JVS(1595)) & -! JVS(1595) = Jac_FULL(232,346) - JVS(1595) = -B(1047)-B(1049) +! JVS(1595) = Jac_FULL(233,213) + JVS(1595) = 0.015*B(1027) IF (DO_JVS(1596)) & -! JVS(1596) = Jac_FULL(233,140) - JVS(1596) = B(144)+B(146) +! JVS(1596) = Jac_FULL(233,233) + JVS(1596) = -B(1001)-B(1792) IF (DO_JVS(1597)) & -! JVS(1597) = Jac_FULL(233,212) - JVS(1597) = 0.73*B(148) +! JVS(1597) = Jac_FULL(233,279) + JVS(1597) = 0.25*B(953) IF (DO_JVS(1598)) & -! JVS(1598) = Jac_FULL(233,233) - JVS(1598) = -B(154)-B(1660) +! JVS(1598) = Jac_FULL(233,314) + JVS(1598) = 0.25*B(966) IF (DO_JVS(1599)) & -! JVS(1599) = Jac_FULL(233,337) +! JVS(1599) = Jac_FULL(233,341) JVS(1599) = 0 IF (DO_JVS(1600)) & -! JVS(1600) = Jac_FULL(233,341) - JVS(1600) = B(147) +! JVS(1600) = Jac_FULL(233,343) + JVS(1600) = 0.25*B(954)-B(1002)+0.015*B(1028) IF (DO_JVS(1601)) & -! JVS(1601) = Jac_FULL(233,345) - JVS(1601) = -B(155) +! JVS(1601) = Jac_FULL(234,234) + JVS(1601) = -B(859)-B(861)-B(863)-B(1761)-B(1829) IF (DO_JVS(1602)) & -! JVS(1602) = Jac_FULL(233,346) - JVS(1602) = 0.73*B(149) +! JVS(1602) = Jac_FULL(234,294) + JVS(1602) = B(851) IF (DO_JVS(1603)) & -! JVS(1603) = Jac_FULL(233,351) - JVS(1603) = B(145) +! JVS(1603) = Jac_FULL(234,341) + JVS(1603) = B(852) IF (DO_JVS(1604)) & -! JVS(1604) = Jac_FULL(234,109) - JVS(1604) = B(1360) +! JVS(1604) = Jac_FULL(234,343) + JVS(1604) = -B(860) IF (DO_JVS(1605)) & -! JVS(1605) = Jac_FULL(234,136) - JVS(1605) = B(1377) +! JVS(1605) = Jac_FULL(234,348) + JVS(1605) = -B(864) IF (DO_JVS(1606)) & -! JVS(1606) = Jac_FULL(234,233) - JVS(1606) = 0 +! JVS(1606) = Jac_FULL(234,356) + JVS(1606) = -B(862) IF (DO_JVS(1607)) & -! JVS(1607) = Jac_FULL(234,234) - JVS(1607) = -B(1364)-B(1366)-B(1368)-B(1370) +! JVS(1607) = Jac_FULL(235,191) + JVS(1607) = 0.655*B(1015) IF (DO_JVS(1608)) & -! JVS(1608) = Jac_FULL(234,246) - JVS(1608) = B(243)+0.44*B(245) +! JVS(1608) = Jac_FULL(235,195) + JVS(1608) = 0.655*B(1019) IF (DO_JVS(1609)) & -! JVS(1609) = Jac_FULL(234,328) - JVS(1609) = -B(1371) +! JVS(1609) = Jac_FULL(235,235) + JVS(1609) = -B(1045)-B(1046)-B(1048)-B(1050) IF (DO_JVS(1610)) & -! JVS(1610) = Jac_FULL(234,337) - JVS(1610) = 0.44*B(246)-B(1365) +! JVS(1610) = Jac_FULL(235,314) + JVS(1610) = 0 IF (DO_JVS(1611)) & -! JVS(1611) = Jac_FULL(234,341) +! JVS(1611) = Jac_FULL(235,315) JVS(1611) = 0 IF (DO_JVS(1612)) & -! JVS(1612) = Jac_FULL(234,345) - JVS(1612) = B(1361)+B(1378) +! JVS(1612) = Jac_FULL(235,338) + JVS(1612) = -B(1047)-B(1049) IF (DO_JVS(1613)) & -! JVS(1613) = Jac_FULL(234,346) - JVS(1613) = B(244)-B(1367) +! JVS(1613) = Jac_FULL(235,341) + JVS(1613) = -B(1051) IF (DO_JVS(1614)) & -! JVS(1614) = Jac_FULL(234,351) - JVS(1614) = -B(1369) +! JVS(1614) = Jac_FULL(235,343) + JVS(1614) = 0.655*B(1016)+0.655*B(1020) IF (DO_JVS(1615)) & -! JVS(1615) = Jac_FULL(235,71) - JVS(1615) = B(1438) +! JVS(1615) = Jac_FULL(236,188) + JVS(1615) = B(1182) IF (DO_JVS(1616)) & -! JVS(1616) = Jac_FULL(235,90) - JVS(1616) = B(1440) +! JVS(1616) = Jac_FULL(236,236) + JVS(1616) = -B(1196)-B(1200)-B(1206)-B(1208) IF (DO_JVS(1617)) & -! JVS(1617) = Jac_FULL(235,204) - JVS(1617) = B(1428)+B(1430) +! JVS(1617) = Jac_FULL(236,310) + JVS(1617) = 0 IF (DO_JVS(1618)) & -! JVS(1618) = Jac_FULL(235,220) - JVS(1618) = 0 +! JVS(1618) = Jac_FULL(236,338) + JVS(1618) = -B(1207)-B(1209) IF (DO_JVS(1619)) & -! JVS(1619) = Jac_FULL(235,235) - JVS(1619) = -B(1432)-B(1434)-B(1436)-B(1463) +! JVS(1619) = Jac_FULL(236,341) + JVS(1619) = -B(1201) IF (DO_JVS(1620)) & -! JVS(1620) = Jac_FULL(235,328) - JVS(1620) = -B(1464) +! JVS(1620) = Jac_FULL(236,343) + JVS(1620) = B(1183) IF (DO_JVS(1621)) & -! JVS(1621) = Jac_FULL(235,335) - JVS(1621) = -B(1437) +! JVS(1621) = Jac_FULL(237,77) + JVS(1621) = B(1438) IF (DO_JVS(1622)) & -! JVS(1622) = Jac_FULL(235,337) - JVS(1622) = -B(1433) +! JVS(1622) = Jac_FULL(237,105) + JVS(1622) = B(1440) IF (DO_JVS(1623)) & -! JVS(1623) = Jac_FULL(235,341) - JVS(1623) = 0 +! JVS(1623) = Jac_FULL(237,207) + JVS(1623) = B(1428)+B(1430) IF (DO_JVS(1624)) & -! JVS(1624) = Jac_FULL(235,345) - JVS(1624) = B(1429)+B(1439) +! JVS(1624) = Jac_FULL(237,223) + JVS(1624) = 0 IF (DO_JVS(1625)) & -! JVS(1625) = Jac_FULL(235,346) - JVS(1625) = -B(1435) +! JVS(1625) = Jac_FULL(237,237) + JVS(1625) = -B(1432)-B(1434)-B(1436)-B(1463) IF (DO_JVS(1626)) & -! JVS(1626) = Jac_FULL(235,351) - JVS(1626) = B(1431) +! JVS(1626) = Jac_FULL(237,334) + JVS(1626) = -B(1464) IF (DO_JVS(1627)) & -! JVS(1627) = Jac_FULL(236,71) - JVS(1627) = B(1803) +! JVS(1627) = Jac_FULL(237,338) + JVS(1627) = -B(1435) IF (DO_JVS(1628)) & -! JVS(1628) = Jac_FULL(236,117) - JVS(1628) = B(1451) +! JVS(1628) = Jac_FULL(237,341) + JVS(1628) = -B(1433) IF (DO_JVS(1629)) & -! JVS(1629) = Jac_FULL(236,203) - JVS(1629) = B(1453) +! JVS(1629) = Jac_FULL(237,343) + JVS(1629) = B(1429)+B(1439) IF (DO_JVS(1630)) & -! JVS(1630) = Jac_FULL(236,204) - JVS(1630) = B(1802) +! JVS(1630) = Jac_FULL(237,345) + JVS(1630) = -B(1437) IF (DO_JVS(1631)) & -! JVS(1631) = Jac_FULL(236,220) - JVS(1631) = 0.28*B(1342) +! JVS(1631) = Jac_FULL(237,348) + JVS(1631) = B(1431) IF (DO_JVS(1632)) & -! JVS(1632) = Jac_FULL(236,235) - JVS(1632) = 0.2*B(1432)+B(1434)+B(1463) +! JVS(1632) = Jac_FULL(237,356) + JVS(1632) = 0 IF (DO_JVS(1633)) & -! JVS(1633) = Jac_FULL(236,236) - JVS(1633) = -B(1443)-B(1445)-B(1447)-B(1449)-B(1461) +! JVS(1633) = Jac_FULL(238,77) + JVS(1633) = B(1816) IF (DO_JVS(1634)) & -! JVS(1634) = Jac_FULL(236,328) - JVS(1634) = -B(1462)+B(1464) +! JVS(1634) = Jac_FULL(238,118) + JVS(1634) = B(1451) IF (DO_JVS(1635)) & -! JVS(1635) = Jac_FULL(236,335) - JVS(1635) = -B(1444) +! JVS(1635) = Jac_FULL(238,206) + JVS(1635) = B(1453) IF (DO_JVS(1636)) & -! JVS(1636) = Jac_FULL(236,337) - JVS(1636) = 0.2*B(1433)-B(1450) +! JVS(1636) = Jac_FULL(238,207) + JVS(1636) = B(1815) IF (DO_JVS(1637)) & -! JVS(1637) = Jac_FULL(236,341) - JVS(1637) = 0.28*B(1343)+B(1454) +! JVS(1637) = Jac_FULL(238,223) + JVS(1637) = 0.28*B(1342) IF (DO_JVS(1638)) & -! JVS(1638) = Jac_FULL(236,345) - JVS(1638) = B(1452) +! JVS(1638) = Jac_FULL(238,237) + JVS(1638) = 0.2*B(1432)+B(1434)+B(1463) IF (DO_JVS(1639)) & -! JVS(1639) = Jac_FULL(236,346) - JVS(1639) = B(1435)-B(1446) +! JVS(1639) = Jac_FULL(238,238) + JVS(1639) = -B(1443)-B(1445)-B(1447)-B(1449)-B(1461) IF (DO_JVS(1640)) & -! JVS(1640) = Jac_FULL(236,351) - JVS(1640) = -B(1448) +! JVS(1640) = Jac_FULL(238,334) + JVS(1640) = -B(1462)+B(1464) IF (DO_JVS(1641)) & -! JVS(1641) = Jac_FULL(237,237) - JVS(1641) = -B(812)-B(814)-B(816) +! JVS(1641) = Jac_FULL(238,338) + JVS(1641) = B(1435)-B(1446) IF (DO_JVS(1642)) & -! JVS(1642) = Jac_FULL(237,281) - JVS(1642) = 0.37*B(800)+0.28*B(802)+0.37*B(804)+0.37*B(885)+0.37*B(887) +! JVS(1642) = Jac_FULL(238,341) + JVS(1642) = 0.2*B(1433)-B(1450) IF (DO_JVS(1643)) & -! JVS(1643) = Jac_FULL(237,324) - JVS(1643) = 0.37*B(888) +! JVS(1643) = Jac_FULL(238,343) + JVS(1643) = B(1452) IF (DO_JVS(1644)) & -! JVS(1644) = Jac_FULL(237,328) - JVS(1644) = 0.37*B(886) +! JVS(1644) = Jac_FULL(238,345) + JVS(1644) = -B(1444) IF (DO_JVS(1645)) & -! JVS(1645) = Jac_FULL(237,337) - JVS(1645) = 0.37*B(801) +! JVS(1645) = Jac_FULL(238,348) + JVS(1645) = -B(1448) IF (DO_JVS(1646)) & -! JVS(1646) = Jac_FULL(237,341) - JVS(1646) = -B(815) +! JVS(1646) = Jac_FULL(238,356) + JVS(1646) = 0.28*B(1343)+B(1454) IF (DO_JVS(1647)) & -! JVS(1647) = Jac_FULL(237,345) - JVS(1647) = -B(813) +! JVS(1647) = Jac_FULL(239,120) + JVS(1647) = B(1360) IF (DO_JVS(1648)) & -! JVS(1648) = Jac_FULL(237,346) - JVS(1648) = 0.28*B(803) +! JVS(1648) = Jac_FULL(239,138) + JVS(1648) = B(1377) IF (DO_JVS(1649)) & -! JVS(1649) = Jac_FULL(237,351) - JVS(1649) = 0.37*B(805)-B(817) +! JVS(1649) = Jac_FULL(239,229) + JVS(1649) = 0 IF (DO_JVS(1650)) & -! JVS(1650) = Jac_FULL(238,199) - JVS(1650) = 0.06*B(1029)+B(1778) +! JVS(1650) = Jac_FULL(239,239) + JVS(1650) = -B(1364)-B(1366)-B(1368)-B(1370) IF (DO_JVS(1651)) & -! JVS(1651) = Jac_FULL(238,209) - JVS(1651) = 0.06*B(1027)+B(1777) +! JVS(1651) = Jac_FULL(239,250) + JVS(1651) = B(243)+0.44*B(245) IF (DO_JVS(1652)) & -! JVS(1652) = Jac_FULL(238,238) - JVS(1652) = -B(1009) +! JVS(1652) = Jac_FULL(239,334) + JVS(1652) = -B(1371) IF (DO_JVS(1653)) & -! JVS(1653) = Jac_FULL(238,267) - JVS(1653) = 0.45*B(1786) +! JVS(1653) = Jac_FULL(239,338) + JVS(1653) = B(244)-B(1367) IF (DO_JVS(1654)) & -! JVS(1654) = Jac_FULL(238,268) - JVS(1654) = 0.45*B(1783) +! JVS(1654) = Jac_FULL(239,341) + JVS(1654) = 0.44*B(246)-B(1365) IF (DO_JVS(1655)) & -! JVS(1655) = Jac_FULL(238,304) - JVS(1655) = B(974)+B(975)+0.5*B(983)+0.45*B(999) +! JVS(1655) = Jac_FULL(239,343) + JVS(1655) = B(1361)+B(1378) IF (DO_JVS(1656)) & -! JVS(1656) = Jac_FULL(238,305) - JVS(1656) = B(973)+B(976)+0.5*B(979)+0.45*B(991) +! JVS(1656) = Jac_FULL(239,348) + JVS(1656) = -B(1369) IF (DO_JVS(1657)) & -! JVS(1657) = Jac_FULL(238,328) - JVS(1657) = 0.5*B(980)+0.5*B(984) +! JVS(1657) = Jac_FULL(239,356) + JVS(1657) = 0 IF (DO_JVS(1658)) & -! JVS(1658) = Jac_FULL(238,337) - JVS(1658) = 0 +! JVS(1658) = Jac_FULL(240,67) + JVS(1658) = B(1768) IF (DO_JVS(1659)) & -! JVS(1659) = Jac_FULL(238,345) - JVS(1659) = -B(1010)+0.06*B(1028)+0.06*B(1030) +! JVS(1659) = Jac_FULL(240,68) + JVS(1659) = B(1766) IF (DO_JVS(1660)) & -! JVS(1660) = Jac_FULL(238,346) - JVS(1660) = 0.45*B(992)+0.45*B(1000) +! JVS(1660) = Jac_FULL(240,169) + JVS(1660) = 0 IF (DO_JVS(1661)) & -! JVS(1661) = Jac_FULL(239,64) - JVS(1661) = B(1755) +! JVS(1661) = Jac_FULL(240,183) + JVS(1661) = 0 IF (DO_JVS(1662)) & -! JVS(1662) = Jac_FULL(239,65) - JVS(1662) = B(1753) +! JVS(1662) = Jac_FULL(240,240) + JVS(1662) = -B(71)-B(1663) IF (DO_JVS(1663)) & -! JVS(1663) = Jac_FULL(239,166) - JVS(1663) = 0 +! JVS(1663) = Jac_FULL(240,254) + JVS(1663) = B(1585)+B(1586)+B(1591)+B(1593)+B(1595)+B(1597) IF (DO_JVS(1664)) & -! JVS(1664) = Jac_FULL(239,179) - JVS(1664) = 0 +! JVS(1664) = Jac_FULL(240,272) + JVS(1664) = B(1818) IF (DO_JVS(1665)) & -! JVS(1665) = Jac_FULL(239,239) - JVS(1665) = -B(71)-B(1650) +! JVS(1665) = Jac_FULL(240,301) + JVS(1665) = B(1527)+B(1529)+B(1531)+B(1533)+B(1535)+B(1537) IF (DO_JVS(1666)) & -! JVS(1666) = Jac_FULL(239,252) - JVS(1666) = B(1585)+B(1586)+B(1591)+B(1593)+B(1595)+B(1597) +! JVS(1666) = Jac_FULL(240,333) + JVS(1666) = 0 IF (DO_JVS(1667)) & -! JVS(1667) = Jac_FULL(239,269) - JVS(1667) = B(1805) +! JVS(1667) = Jac_FULL(240,338) + JVS(1667) = B(69) IF (DO_JVS(1668)) & -! JVS(1668) = Jac_FULL(239,297) - JVS(1668) = B(1527)+B(1529)+B(1531)+B(1533)+B(1535)+B(1537) +! JVS(1668) = Jac_FULL(240,339) + JVS(1668) = B(1528)+B(1596) IF (DO_JVS(1669)) & -! JVS(1669) = Jac_FULL(239,327) - JVS(1669) = 0 +! JVS(1669) = Jac_FULL(240,340) + JVS(1669) = B(1532) IF (DO_JVS(1670)) & -! JVS(1670) = Jac_FULL(239,335) - JVS(1670) = 0.5*B(1492) +! JVS(1670) = Jac_FULL(240,343) + JVS(1670) = B(70)-B(72) IF (DO_JVS(1671)) & -! JVS(1671) = Jac_FULL(239,339) - JVS(1671) = B(1532) +! JVS(1671) = Jac_FULL(240,345) + JVS(1671) = 0.5*B(1492) IF (DO_JVS(1672)) & -! JVS(1672) = Jac_FULL(239,341) - JVS(1672) = 0 +! JVS(1672) = Jac_FULL(240,346) + JVS(1672) = B(1530)+B(1598) IF (DO_JVS(1673)) & -! JVS(1673) = Jac_FULL(239,344) - JVS(1673) = B(1530)+B(1598) +! JVS(1673) = Jac_FULL(240,348) + JVS(1673) = 0 IF (DO_JVS(1674)) & -! JVS(1674) = Jac_FULL(239,345) - JVS(1674) = B(69)-B(72) +! JVS(1674) = Jac_FULL(240,349) + JVS(1674) = B(1534)+B(1592) IF (DO_JVS(1675)) & -! JVS(1675) = Jac_FULL(239,346) - JVS(1675) = B(70) +! JVS(1675) = Jac_FULL(240,350) + JVS(1675) = B(1536)+B(1594) IF (DO_JVS(1676)) & -! JVS(1676) = Jac_FULL(239,348) - JVS(1676) = 0 +! JVS(1676) = Jac_FULL(240,354) + JVS(1676) = B(1538) IF (DO_JVS(1677)) & -! JVS(1677) = Jac_FULL(239,349) - JVS(1677) = B(1534)+B(1592) +! JVS(1677) = Jac_FULL(240,355) + JVS(1677) = 0 IF (DO_JVS(1678)) & -! JVS(1678) = Jac_FULL(239,350) - JVS(1678) = B(1536)+B(1594) +! JVS(1678) = Jac_FULL(240,356) + JVS(1678) = 0 IF (DO_JVS(1679)) & -! JVS(1679) = Jac_FULL(239,351) - JVS(1679) = 0 +! JVS(1679) = Jac_FULL(241,241) + JVS(1679) = -B(812)-B(814)-B(816) IF (DO_JVS(1680)) & -! JVS(1680) = Jac_FULL(239,352) - JVS(1680) = B(1538) +! JVS(1680) = Jac_FULL(241,284) + JVS(1680) = 0.37*B(800)+0.28*B(802)+0.37*B(804)+0.37*B(885)+0.37*B(887) IF (DO_JVS(1681)) & -! JVS(1681) = Jac_FULL(239,353) - JVS(1681) = B(1528)+B(1596) +! JVS(1681) = Jac_FULL(241,328) + JVS(1681) = 0.37*B(888) IF (DO_JVS(1682)) & -! JVS(1682) = Jac_FULL(240,122) - JVS(1682) = B(1411) +! JVS(1682) = Jac_FULL(241,334) + JVS(1682) = 0.37*B(886) IF (DO_JVS(1683)) & -! JVS(1683) = Jac_FULL(240,146) - JVS(1683) = B(1403) +! JVS(1683) = Jac_FULL(241,338) + JVS(1683) = 0.28*B(803) IF (DO_JVS(1684)) & -! JVS(1684) = Jac_FULL(240,200) - JVS(1684) = 0 +! JVS(1684) = Jac_FULL(241,341) + JVS(1684) = 0.37*B(801) IF (DO_JVS(1685)) & -! JVS(1685) = Jac_FULL(240,240) - JVS(1685) = -B(1405)-B(1407)-B(1409) +! JVS(1685) = Jac_FULL(241,343) + JVS(1685) = -B(813) IF (DO_JVS(1686)) & -! JVS(1686) = Jac_FULL(240,335) - JVS(1686) = -B(1410) +! JVS(1686) = Jac_FULL(241,348) + JVS(1686) = 0.37*B(805)-B(817) IF (DO_JVS(1687)) & -! JVS(1687) = Jac_FULL(240,337) - JVS(1687) = -B(1408) +! JVS(1687) = Jac_FULL(241,356) + JVS(1687) = -B(815) IF (DO_JVS(1688)) & -! JVS(1688) = Jac_FULL(240,345) - JVS(1688) = B(1404) +! JVS(1688) = Jac_FULL(242,202) + JVS(1688) = 0.06*B(1029)+B(1791) IF (DO_JVS(1689)) & -! JVS(1689) = Jac_FULL(240,346) - JVS(1689) = -B(1406) +! JVS(1689) = Jac_FULL(242,213) + JVS(1689) = 0.06*B(1027)+B(1790) IF (DO_JVS(1690)) & -! JVS(1690) = Jac_FULL(240,351) - JVS(1690) = 0 +! JVS(1690) = Jac_FULL(242,242) + JVS(1690) = -B(1009) IF (DO_JVS(1691)) & -! JVS(1691) = Jac_FULL(241,241) - JVS(1691) = -B(705)-B(707)-B(709)-B(711)-B(713)-B(715) +! JVS(1691) = Jac_FULL(242,270) + JVS(1691) = 0.45*B(1799) IF (DO_JVS(1692)) & -! JVS(1692) = Jac_FULL(241,290) - JVS(1692) = 0.12*B(287) +! JVS(1692) = Jac_FULL(242,271) + JVS(1692) = 0.45*B(1796) IF (DO_JVS(1693)) & -! JVS(1693) = Jac_FULL(241,329) - JVS(1693) = -B(706) +! JVS(1693) = Jac_FULL(242,314) + JVS(1693) = B(973)+B(975)+0.5*B(979)+0.45*B(991) IF (DO_JVS(1694)) & -! JVS(1694) = Jac_FULL(241,335) - JVS(1694) = -B(710) +! JVS(1694) = Jac_FULL(242,315) + JVS(1694) = B(974)+B(976)+0.5*B(983)+0.45*B(999) IF (DO_JVS(1695)) & -! JVS(1695) = Jac_FULL(241,336) - JVS(1695) = -B(714)-B(716) +! JVS(1695) = Jac_FULL(242,334) + JVS(1695) = 0.5*B(980)+0.5*B(984) IF (DO_JVS(1696)) & -! JVS(1696) = Jac_FULL(241,341) - JVS(1696) = 0.12*B(288) +! JVS(1696) = Jac_FULL(242,338) + JVS(1696) = 0.45*B(992)+0.45*B(1000) IF (DO_JVS(1697)) & -! JVS(1697) = Jac_FULL(241,346) - JVS(1697) = -B(708) +! JVS(1697) = Jac_FULL(242,341) + JVS(1697) = 0 IF (DO_JVS(1698)) & -! JVS(1698) = Jac_FULL(241,348) - JVS(1698) = -B(712) +! JVS(1698) = Jac_FULL(242,343) + JVS(1698) = -B(1010)+0.06*B(1028)+0.06*B(1030) IF (DO_JVS(1699)) & -! JVS(1699) = Jac_FULL(242,193) - JVS(1699) = 0.7*B(865)+0.7*B(867)+0.35*B(869) +! JVS(1699) = Jac_FULL(243,125) + JVS(1699) = B(1411) IF (DO_JVS(1700)) & -! JVS(1700) = Jac_FULL(242,242) - JVS(1700) = -B(927)-B(929)-B(931)-B(1624)-B(1751) +! JVS(1700) = Jac_FULL(243,152) + JVS(1700) = B(1403) IF (DO_JVS(1701)) & -! JVS(1701) = Jac_FULL(242,280) - JVS(1701) = 0.3*B(905)+0.3*B(909)+0.3*B(913)+0.3*B(917)+0.6*B(921)+0.45*B(922) +! JVS(1701) = Jac_FULL(243,203) + JVS(1701) = 0 IF (DO_JVS(1702)) & -! JVS(1702) = Jac_FULL(242,289) - JVS(1702) = 0.3*B(907)+0.15*B(911)+0.45*B(923)+0.3*B(924) +! JVS(1702) = Jac_FULL(243,243) + JVS(1702) = -B(1405)-B(1407)-B(1409) IF (DO_JVS(1703)) & -! JVS(1703) = Jac_FULL(242,291) - JVS(1703) = 0 +! JVS(1703) = Jac_FULL(243,338) + JVS(1703) = -B(1406) IF (DO_JVS(1704)) & -! JVS(1704) = Jac_FULL(242,324) - JVS(1704) = 0.3*B(914) +! JVS(1704) = Jac_FULL(243,341) + JVS(1704) = -B(1408) IF (DO_JVS(1705)) & -! JVS(1705) = Jac_FULL(242,328) - JVS(1705) = 0.3*B(910)+0.15*B(912) +! JVS(1705) = Jac_FULL(243,343) + JVS(1705) = B(1404) IF (DO_JVS(1706)) & -! JVS(1706) = Jac_FULL(242,337) - JVS(1706) = 0.3*B(906)+0.3*B(908) +! JVS(1706) = Jac_FULL(243,345) + JVS(1706) = -B(1410) IF (DO_JVS(1707)) & -! JVS(1707) = Jac_FULL(242,341) - JVS(1707) = 0.7*B(868)-B(930) +! JVS(1707) = Jac_FULL(243,348) + JVS(1707) = 0 IF (DO_JVS(1708)) & -! JVS(1708) = Jac_FULL(242,345) - JVS(1708) = 0.7*B(866)-B(928) +! JVS(1708) = Jac_FULL(244,244) + JVS(1708) = -B(705)-B(707)-B(709)-B(711)-B(713)-B(715) IF (DO_JVS(1709)) & -! JVS(1709) = Jac_FULL(242,346) - JVS(1709) = 0 +! JVS(1709) = Jac_FULL(244,293) + JVS(1709) = 0.12*B(287) IF (DO_JVS(1710)) & -! JVS(1710) = Jac_FULL(242,351) - JVS(1710) = 0.35*B(870)+0.3*B(918)-B(932) +! JVS(1710) = Jac_FULL(244,335) + JVS(1710) = -B(706) IF (DO_JVS(1711)) & -! JVS(1711) = Jac_FULL(243,128) - JVS(1711) = 0.25*B(1052) +! JVS(1711) = Jac_FULL(244,338) + JVS(1711) = -B(708) IF (DO_JVS(1712)) & -! JVS(1712) = Jac_FULL(243,192) - JVS(1712) = 0.16*B(1025) +! JVS(1712) = Jac_FULL(244,345) + JVS(1712) = -B(710) IF (DO_JVS(1713)) & -! JVS(1713) = Jac_FULL(243,199) - JVS(1713) = 0 +! JVS(1713) = Jac_FULL(244,353) + JVS(1713) = -B(714)-B(716) IF (DO_JVS(1714)) & -! JVS(1714) = Jac_FULL(243,209) - JVS(1714) = 0 +! JVS(1714) = Jac_FULL(244,355) + JVS(1714) = -B(712) IF (DO_JVS(1715)) & -! JVS(1715) = Jac_FULL(243,243) - JVS(1715) = -B(1078)-B(1080)-B(1082)-B(1084) +! JVS(1715) = Jac_FULL(244,356) + JVS(1715) = 0.12*B(288) IF (DO_JVS(1716)) & -! JVS(1716) = Jac_FULL(243,267) - JVS(1716) = 0 +! JVS(1716) = Jac_FULL(245,131) + JVS(1716) = 0.25*B(1052) IF (DO_JVS(1717)) & -! JVS(1717) = Jac_FULL(243,268) - JVS(1717) = 0 +! JVS(1717) = Jac_FULL(245,195) + JVS(1717) = 0.16*B(1025) IF (DO_JVS(1718)) & -! JVS(1718) = Jac_FULL(243,304) +! JVS(1718) = Jac_FULL(245,202) JVS(1718) = 0 IF (DO_JVS(1719)) & -! JVS(1719) = Jac_FULL(243,305) +! JVS(1719) = Jac_FULL(245,213) JVS(1719) = 0 IF (DO_JVS(1720)) & -! JVS(1720) = Jac_FULL(243,337) - JVS(1720) = -B(1079) +! JVS(1720) = Jac_FULL(245,245) + JVS(1720) = -B(1078)-B(1080)-B(1082)-B(1084) IF (DO_JVS(1721)) & -! JVS(1721) = Jac_FULL(243,345) - JVS(1721) = 0.16*B(1026)+0.25*B(1053) +! JVS(1721) = Jac_FULL(245,270) + JVS(1721) = 0 IF (DO_JVS(1722)) & -! JVS(1722) = Jac_FULL(243,346) - JVS(1722) = -B(1081)-B(1083) +! JVS(1722) = Jac_FULL(245,271) + JVS(1722) = 0 IF (DO_JVS(1723)) & -! JVS(1723) = Jac_FULL(244,199) - JVS(1723) = 0.018*B(1029) +! JVS(1723) = Jac_FULL(245,314) + JVS(1723) = 0 IF (DO_JVS(1724)) & -! JVS(1724) = Jac_FULL(244,224) - JVS(1724) = 0.294*B(1039)+0.135*B(1043) +! JVS(1724) = Jac_FULL(245,315) + JVS(1724) = 0 IF (DO_JVS(1725)) & -! JVS(1725) = Jac_FULL(244,226) - JVS(1725) = 0.054*B(1200)+0.07*B(1206) +! JVS(1725) = Jac_FULL(245,338) + JVS(1725) = -B(1081)-B(1083) IF (DO_JVS(1726)) & -! JVS(1726) = Jac_FULL(244,244) - JVS(1726) = -B(61)-B(1743) +! JVS(1726) = Jac_FULL(245,341) + JVS(1726) = -B(1079) IF (DO_JVS(1727)) & -! JVS(1727) = Jac_FULL(244,271) - JVS(1727) = 0.009*B(1198)+0.013*B(1202) +! JVS(1727) = Jac_FULL(245,343) + JVS(1727) = 0.16*B(1026)+0.25*B(1053) IF (DO_JVS(1728)) & -! JVS(1728) = Jac_FULL(244,276) - JVS(1728) = 0.3*B(955) +! JVS(1728) = Jac_FULL(246,196) + JVS(1728) = 0.7*B(865)+0.7*B(867)+0.35*B(869) IF (DO_JVS(1729)) & -! JVS(1729) = Jac_FULL(244,287) - JVS(1729) = 0.23*B(1240) +! JVS(1729) = Jac_FULL(246,246) + JVS(1729) = -B(927)-B(929)-B(931)-B(1624)-B(1764) IF (DO_JVS(1730)) & -! JVS(1730) = Jac_FULL(244,303) - JVS(1730) = 0.05*B(1798) +! JVS(1730) = Jac_FULL(246,280) + JVS(1730) = 0.3*B(905)+0.3*B(909)+0.3*B(913)+0.3*B(917)+0.6*B(921)+0.45*B(922) IF (DO_JVS(1731)) & -! JVS(1731) = Jac_FULL(244,304) - JVS(1731) = 0.3*B(968) +! JVS(1731) = Jac_FULL(246,292) + JVS(1731) = 0.3*B(907)+0.15*B(911)+0.45*B(923)+0.3*B(924) IF (DO_JVS(1732)) & -! JVS(1732) = Jac_FULL(244,309) - JVS(1732) = 0.036*B(1228) +! JVS(1732) = Jac_FULL(246,294) + JVS(1732) = 0 IF (DO_JVS(1733)) & -! JVS(1733) = Jac_FULL(244,311) - JVS(1733) = 0 +! JVS(1733) = Jac_FULL(246,328) + JVS(1733) = 0.3*B(914) IF (DO_JVS(1734)) & -! JVS(1734) = Jac_FULL(244,313) - JVS(1734) = 0.85*B(226) +! JVS(1734) = Jac_FULL(246,334) + JVS(1734) = 0.3*B(910)+0.15*B(912) IF (DO_JVS(1735)) & -! JVS(1735) = Jac_FULL(244,320) - JVS(1735) = 0.85*B(228) +! JVS(1735) = Jac_FULL(246,338) + JVS(1735) = 0 IF (DO_JVS(1736)) & -! JVS(1736) = Jac_FULL(244,337) - JVS(1736) = 0.85*B(227)+0.85*B(229)+0.135*B(1044)+0.009*B(1199)+0.054*B(1201) +! JVS(1736) = Jac_FULL(246,341) + JVS(1736) = 0.3*B(906)+0.3*B(908) IF (DO_JVS(1737)) & -! JVS(1737) = Jac_FULL(244,345) - JVS(1737) = -B(62)+0.3*B(956)+0.018*B(1030)+0.036*B(1229)+0.23*B(1241) +! JVS(1737) = Jac_FULL(246,343) + JVS(1737) = 0.7*B(866)-B(928) IF (DO_JVS(1738)) & -! JVS(1738) = Jac_FULL(244,346) - JVS(1738) = 0.294*B(1040)+0.013*B(1203)+0.07*B(1207) +! JVS(1738) = Jac_FULL(246,348) + JVS(1738) = 0.35*B(870)+0.3*B(918)-B(932) IF (DO_JVS(1739)) & -! JVS(1739) = Jac_FULL(245,110) - JVS(1739) = 0.95*B(593) +! JVS(1739) = Jac_FULL(246,356) + JVS(1739) = 0.7*B(868)-B(930) IF (DO_JVS(1740)) & -! JVS(1740) = Jac_FULL(245,245) - JVS(1740) = -0.75*B(491)-B(527)-B(1702) +! JVS(1740) = Jac_FULL(247,202) + JVS(1740) = 0.018*B(1029) IF (DO_JVS(1741)) & -! JVS(1741) = Jac_FULL(245,297) - JVS(1741) = B(1527)+B(1529)+B(1531) +! JVS(1741) = Jac_FULL(247,226) + JVS(1741) = 0.294*B(1039)+0.135*B(1043) IF (DO_JVS(1742)) & -! JVS(1742) = Jac_FULL(245,317) - JVS(1742) = B(603)+B(1515)+B(1523)+B(1525) +! JVS(1742) = Jac_FULL(247,236) + JVS(1742) = 0.054*B(1200)+0.07*B(1206) IF (DO_JVS(1743)) & -! JVS(1743) = Jac_FULL(245,328) - JVS(1743) = 0 +! JVS(1743) = Jac_FULL(247,247) + JVS(1743) = -B(61)-B(1756) IF (DO_JVS(1744)) & -! JVS(1744) = Jac_FULL(245,333) - JVS(1744) = B(1539)+B(1543)+B(1545) +! JVS(1744) = Jac_FULL(247,273) + JVS(1744) = 0.009*B(1198)+0.013*B(1202) IF (DO_JVS(1745)) & -! JVS(1745) = Jac_FULL(245,334) - JVS(1745) = -0.75*B(492) +! JVS(1745) = Jac_FULL(247,279) + JVS(1745) = 0.3*B(955) IF (DO_JVS(1746)) & -! JVS(1746) = Jac_FULL(245,338) - JVS(1746) = B(585) +! JVS(1746) = Jac_FULL(247,290) + JVS(1746) = 0.23*B(1240) IF (DO_JVS(1747)) & -! JVS(1747) = Jac_FULL(245,339) - JVS(1747) = B(1516)+B(1532)+B(1540) +! JVS(1747) = Jac_FULL(247,307) + JVS(1747) = 0.05*B(1811) IF (DO_JVS(1748)) & -! JVS(1748) = Jac_FULL(245,340) - JVS(1748) = 0.95*B(594)+B(604) +! JVS(1748) = Jac_FULL(247,310) + JVS(1748) = 0 IF (DO_JVS(1749)) & -! JVS(1749) = Jac_FULL(245,344) - JVS(1749) = 0.5*B(1507)+B(1526)+B(1530)+B(1546) +! JVS(1749) = Jac_FULL(247,313) + JVS(1749) = 0.036*B(1228) IF (DO_JVS(1750)) & -! JVS(1750) = Jac_FULL(245,345) - JVS(1750) = -B(528)+0.5*B(1505)+0.5*B(1508) +! JVS(1750) = Jac_FULL(247,315) + JVS(1750) = 0.3*B(968) IF (DO_JVS(1751)) & -! JVS(1751) = Jac_FULL(245,347) - JVS(1751) = 0 +! JVS(1751) = Jac_FULL(247,316) + JVS(1751) = 0.85*B(226) IF (DO_JVS(1752)) & -! JVS(1752) = Jac_FULL(245,353) - JVS(1752) = 0.5*B(1506)+B(1524)+B(1528)+B(1544) +! JVS(1752) = Jac_FULL(247,324) + JVS(1752) = 0.85*B(228) IF (DO_JVS(1753)) & -! JVS(1753) = Jac_FULL(246,113) - JVS(1753) = B(240) +! JVS(1753) = Jac_FULL(247,338) + JVS(1753) = 0.294*B(1040)+0.013*B(1203)+0.07*B(1207) IF (DO_JVS(1754)) & -! JVS(1754) = Jac_FULL(246,246) - JVS(1754) = -B(238)-B(243)-B(245) +! JVS(1754) = Jac_FULL(247,341) + JVS(1754) = 0.85*B(227)+0.85*B(229)+0.135*B(1044)+0.009*B(1199)+0.054*B(1201) IF (DO_JVS(1755)) & -! JVS(1755) = Jac_FULL(246,320) - JVS(1755) = 0.31*B(236) +! JVS(1755) = Jac_FULL(247,343) + JVS(1755) = -B(62)+0.3*B(956)+0.018*B(1030)+0.036*B(1229)+0.23*B(1241) IF (DO_JVS(1756)) & -! JVS(1756) = Jac_FULL(246,335) - JVS(1756) = -B(239) +! JVS(1756) = Jac_FULL(248,119) + JVS(1756) = 0.95*B(593) IF (DO_JVS(1757)) & -! JVS(1757) = Jac_FULL(246,337) - JVS(1757) = -B(246) +! JVS(1757) = Jac_FULL(248,248) + JVS(1757) = -0.75*B(491)-B(527)-B(1715) IF (DO_JVS(1758)) & -! JVS(1758) = Jac_FULL(246,345) - JVS(1758) = 0 +! JVS(1758) = Jac_FULL(248,301) + JVS(1758) = B(1527)+B(1529)+B(1531) IF (DO_JVS(1759)) & -! JVS(1759) = Jac_FULL(246,346) - JVS(1759) = 0.31*B(237)-B(244) +! JVS(1759) = Jac_FULL(248,321) + JVS(1759) = B(603)+B(1515)+B(1523)+B(1525) IF (DO_JVS(1760)) & -! JVS(1760) = Jac_FULL(247,125) - JVS(1760) = 0.791*B(324) +! JVS(1760) = Jac_FULL(248,332) + JVS(1760) = B(1539)+B(1543)+B(1545) IF (DO_JVS(1761)) & -! JVS(1761) = Jac_FULL(247,180) - JVS(1761) = B(1220)+0.82*B(1222) +! JVS(1761) = Jac_FULL(248,334) + JVS(1761) = 0 IF (DO_JVS(1762)) & -! JVS(1762) = Jac_FULL(247,182) - JVS(1762) = 0.231*B(1214)+0.231*B(1216) +! JVS(1762) = Jac_FULL(248,337) + JVS(1762) = -0.75*B(492) IF (DO_JVS(1763)) & -! JVS(1763) = Jac_FULL(247,206) - JVS(1763) = 0.551*B(1129)+0.935*B(1131) +! JVS(1763) = Jac_FULL(248,339) + JVS(1763) = 0.5*B(1505)+B(1524)+B(1528)+B(1544) IF (DO_JVS(1764)) & -! JVS(1764) = Jac_FULL(247,216) - JVS(1764) = B(1244)+B(1774) +! JVS(1764) = Jac_FULL(248,340) + JVS(1764) = B(1516)+B(1532)+B(1540) IF (DO_JVS(1765)) & -! JVS(1765) = Jac_FULL(247,226) - JVS(1765) = 0.471*B(1200)+0.59*B(1206) +! JVS(1765) = Jac_FULL(248,343) + JVS(1765) = -B(528)+0.5*B(1506)+0.5*B(1507) IF (DO_JVS(1766)) & -! JVS(1766) = Jac_FULL(247,247) - JVS(1766) = -B(689)-B(1764) +! JVS(1766) = Jac_FULL(248,344) + JVS(1766) = B(585) IF (DO_JVS(1767)) & -! JVS(1767) = Jac_FULL(247,250) - JVS(1767) = 0 +! JVS(1767) = Jac_FULL(248,346) + JVS(1767) = 0.5*B(1508)+B(1526)+B(1530)+B(1546) IF (DO_JVS(1768)) & -! JVS(1768) = Jac_FULL(247,268) +! JVS(1768) = Jac_FULL(248,347) JVS(1768) = 0 IF (DO_JVS(1769)) & -! JVS(1769) = Jac_FULL(247,271) - JVS(1769) = 0.589*B(1198)+0.687*B(1202) +! JVS(1769) = Jac_FULL(248,352) + JVS(1769) = 0.95*B(594)+B(604) IF (DO_JVS(1770)) & -! JVS(1770) = Jac_FULL(247,293) - JVS(1770) = 0.242*B(1141)+0.546*B(1143) +! JVS(1770) = Jac_FULL(249,128) + JVS(1770) = 0.791*B(324) IF (DO_JVS(1771)) & -! JVS(1771) = Jac_FULL(247,299) - JVS(1771) = 0 +! JVS(1771) = Jac_FULL(249,181) + JVS(1771) = B(1220)+0.82*B(1222) IF (DO_JVS(1772)) & -! JVS(1772) = Jac_FULL(247,301) - JVS(1772) = 0 +! JVS(1772) = Jac_FULL(249,185) + JVS(1772) = 0.231*B(1214)+0.231*B(1216) IF (DO_JVS(1773)) & -! JVS(1773) = Jac_FULL(247,303) - JVS(1773) = 0 +! JVS(1773) = Jac_FULL(249,209) + JVS(1773) = 0.551*B(1129)+0.935*B(1131) IF (DO_JVS(1774)) & -! JVS(1774) = Jac_FULL(247,308) - JVS(1774) = 0 +! JVS(1774) = Jac_FULL(249,220) + JVS(1774) = B(1244)+B(1787) IF (DO_JVS(1775)) & -! JVS(1775) = Jac_FULL(247,309) - JVS(1775) = 0.68*B(1234) +! JVS(1775) = Jac_FULL(249,236) + JVS(1775) = 0.471*B(1200)+0.59*B(1206) IF (DO_JVS(1776)) & -! JVS(1776) = Jac_FULL(247,311) - JVS(1776) = 0 +! JVS(1776) = Jac_FULL(249,249) + JVS(1776) = -B(689)-B(1777) IF (DO_JVS(1777)) & -! JVS(1777) = Jac_FULL(247,328) +! JVS(1777) = Jac_FULL(249,253) JVS(1777) = 0 IF (DO_JVS(1778)) & -! JVS(1778) = Jac_FULL(247,337) - JVS(1778) = 0.551*B(1130)+0.242*B(1142)+0.589*B(1199)+0.471*B(1201)+0.231*B(1217)+0.82*B(1223) +! JVS(1778) = Jac_FULL(249,271) + JVS(1778) = 0 IF (DO_JVS(1779)) & -! JVS(1779) = Jac_FULL(247,345) - JVS(1779) = 0.791*B(325)-B(690)+B(1245) +! JVS(1779) = Jac_FULL(249,273) + JVS(1779) = 0.589*B(1198)+0.687*B(1202) IF (DO_JVS(1780)) & -! JVS(1780) = Jac_FULL(247,346) - JVS(1780) = 0.935*B(1132)+0.546*B(1144)+0.687*B(1203)+0.59*B(1207)+0.231*B(1215)+B(1221) +! JVS(1780) = Jac_FULL(249,299) + JVS(1780) = 0.242*B(1141)+0.546*B(1143) IF (DO_JVS(1781)) & -! JVS(1781) = Jac_FULL(247,351) - JVS(1781) = 0.68*B(1235) +! JVS(1781) = Jac_FULL(249,303) + JVS(1781) = 0 IF (DO_JVS(1782)) & -! JVS(1782) = Jac_FULL(248,172) - JVS(1782) = B(1256) +! JVS(1782) = Jac_FULL(249,305) + JVS(1782) = 0 IF (DO_JVS(1783)) & -! JVS(1783) = Jac_FULL(248,205) - JVS(1783) = 0.059*B(1114)+0.272*B(1116) +! JVS(1783) = Jac_FULL(249,307) + JVS(1783) = 0 IF (DO_JVS(1784)) & -! JVS(1784) = Jac_FULL(248,231) +! JVS(1784) = Jac_FULL(249,310) JVS(1784) = 0 IF (DO_JVS(1785)) & -! JVS(1785) = Jac_FULL(248,248) - JVS(1785) = -B(1242)-B(1639)-B(1773) +! JVS(1785) = Jac_FULL(249,312) + JVS(1785) = 0 IF (DO_JVS(1786)) & -! JVS(1786) = Jac_FULL(248,253) - JVS(1786) = B(1285) +! JVS(1786) = Jac_FULL(249,313) + JVS(1786) = 0.68*B(1234) IF (DO_JVS(1787)) & -! JVS(1787) = Jac_FULL(248,276) +! JVS(1787) = Jac_FULL(249,334) JVS(1787) = 0 IF (DO_JVS(1788)) & -! JVS(1788) = Jac_FULL(248,301) - JVS(1788) = 0 +! JVS(1788) = Jac_FULL(249,338) + JVS(1788) = 0.935*B(1132)+0.546*B(1144)+0.687*B(1203)+0.59*B(1207)+0.231*B(1215)+B(1221) IF (DO_JVS(1789)) & -! JVS(1789) = Jac_FULL(248,303) - JVS(1789) = 0.5*B(1797) +! JVS(1789) = Jac_FULL(249,341) + JVS(1789) = 0.551*B(1130)+0.242*B(1142)+0.589*B(1199)+0.471*B(1201)+0.231*B(1217)+0.82*B(1223) IF (DO_JVS(1790)) & -! JVS(1790) = Jac_FULL(248,304) - JVS(1790) = 0 +! JVS(1790) = Jac_FULL(249,343) + JVS(1790) = 0.791*B(325)-B(690)+B(1245) IF (DO_JVS(1791)) & -! JVS(1791) = Jac_FULL(248,305) - JVS(1791) = 0 +! JVS(1791) = Jac_FULL(249,348) + JVS(1791) = 0.68*B(1235) IF (DO_JVS(1792)) & -! JVS(1792) = Jac_FULL(248,308) - JVS(1792) = 0.37*B(1291) +! JVS(1792) = Jac_FULL(250,113) + JVS(1792) = B(240) IF (DO_JVS(1793)) & -! JVS(1793) = Jac_FULL(248,335) - JVS(1793) = B(1257) +! JVS(1793) = Jac_FULL(250,250) + JVS(1793) = -B(238)-B(243)-B(245) IF (DO_JVS(1794)) & -! JVS(1794) = Jac_FULL(248,337) - JVS(1794) = 0.059*B(1115)+0.37*B(1292) +! JVS(1794) = Jac_FULL(250,324) + JVS(1794) = 0.31*B(236) IF (DO_JVS(1795)) & -! JVS(1795) = Jac_FULL(248,345) - JVS(1795) = -B(1243) +! JVS(1795) = Jac_FULL(250,338) + JVS(1795) = 0.31*B(237)-B(244) IF (DO_JVS(1796)) & -! JVS(1796) = Jac_FULL(248,346) - JVS(1796) = 0.272*B(1117)+B(1286) +! JVS(1796) = Jac_FULL(250,341) + JVS(1796) = -B(246) IF (DO_JVS(1797)) & -! JVS(1797) = Jac_FULL(249,249) - JVS(1797) = -B(175)-B(224)-B(259)-B(361) +! JVS(1797) = Jac_FULL(250,343) + JVS(1797) = 0 IF (DO_JVS(1798)) & -! JVS(1798) = Jac_FULL(249,279) - JVS(1798) = B(197) +! JVS(1798) = Jac_FULL(250,345) + JVS(1798) = -B(239) IF (DO_JVS(1799)) & -! JVS(1799) = Jac_FULL(249,324) - JVS(1799) = -B(362) +! JVS(1799) = Jac_FULL(251,174) + JVS(1799) = B(1256) IF (DO_JVS(1800)) & -! JVS(1800) = Jac_FULL(249,328) - JVS(1800) = -B(260) +! JVS(1800) = Jac_FULL(251,210) + JVS(1800) = 0.059*B(1114)+0.272*B(1116) IF (DO_JVS(1801)) & -! JVS(1801) = Jac_FULL(249,337) - JVS(1801) = -B(225) +! JVS(1801) = Jac_FULL(251,231) + JVS(1801) = 0 IF (DO_JVS(1802)) & -! JVS(1802) = Jac_FULL(249,345) - JVS(1802) = B(198) +! JVS(1802) = Jac_FULL(251,251) + JVS(1802) = -B(1242)-B(1639)-B(1786) IF (DO_JVS(1803)) & -! JVS(1803) = Jac_FULL(249,346) - JVS(1803) = -B(176) +! JVS(1803) = Jac_FULL(251,257) + JVS(1803) = B(1285) IF (DO_JVS(1804)) & -! JVS(1804) = Jac_FULL(250,125) - JVS(1804) = 0.209*B(324) +! JVS(1804) = Jac_FULL(251,279) + JVS(1804) = 0 IF (DO_JVS(1805)) & -! JVS(1805) = Jac_FULL(250,250) - JVS(1805) = -B(191)-B(232)-B(267)-B(363) +! JVS(1805) = Jac_FULL(251,305) + JVS(1805) = 0 IF (DO_JVS(1806)) & -! JVS(1806) = Jac_FULL(250,290) - JVS(1806) = B(310) +! JVS(1806) = Jac_FULL(251,307) + JVS(1806) = 0.5*B(1810) IF (DO_JVS(1807)) & -! JVS(1807) = Jac_FULL(250,324) - JVS(1807) = -B(364) +! JVS(1807) = Jac_FULL(251,312) + JVS(1807) = 0.37*B(1291) IF (DO_JVS(1808)) & -! JVS(1808) = Jac_FULL(250,328) - JVS(1808) = -B(268) +! JVS(1808) = Jac_FULL(251,314) + JVS(1808) = 0 IF (DO_JVS(1809)) & -! JVS(1809) = Jac_FULL(250,337) - JVS(1809) = -B(233) +! JVS(1809) = Jac_FULL(251,315) + JVS(1809) = 0 IF (DO_JVS(1810)) & -! JVS(1810) = Jac_FULL(250,345) - JVS(1810) = 0.209*B(325) +! JVS(1810) = Jac_FULL(251,338) + JVS(1810) = 0.272*B(1117)+B(1286) IF (DO_JVS(1811)) & -! JVS(1811) = Jac_FULL(250,346) - JVS(1811) = -B(192) +! JVS(1811) = Jac_FULL(251,341) + JVS(1811) = 0.059*B(1115)+0.37*B(1292) IF (DO_JVS(1812)) & -! JVS(1812) = Jac_FULL(250,351) - JVS(1812) = B(311) +! JVS(1812) = Jac_FULL(251,343) + JVS(1812) = -B(1243) IF (DO_JVS(1813)) & -! JVS(1813) = Jac_FULL(251,251) - JVS(1813) = -B(195)-B(1622)-B(1685) +! JVS(1813) = Jac_FULL(251,345) + JVS(1813) = B(1257) IF (DO_JVS(1814)) & -! JVS(1814) = Jac_FULL(251,318) - JVS(1814) = B(220) +! JVS(1814) = Jac_FULL(252,252) + JVS(1814) = -B(175)-B(224)-B(259)-B(361) IF (DO_JVS(1815)) & -! JVS(1815) = Jac_FULL(251,319) - JVS(1815) = B(179) +! JVS(1815) = Jac_FULL(252,283) + JVS(1815) = B(197) IF (DO_JVS(1816)) & -! JVS(1816) = Jac_FULL(251,320) - JVS(1816) = 0.07*B(236) +! JVS(1816) = Jac_FULL(252,328) + JVS(1816) = -B(362) IF (DO_JVS(1817)) & -! JVS(1817) = Jac_FULL(251,337) - JVS(1817) = B(221) +! JVS(1817) = Jac_FULL(252,334) + JVS(1817) = -B(260) IF (DO_JVS(1818)) & -! JVS(1818) = Jac_FULL(251,345) - JVS(1818) = -B(196) +! JVS(1818) = Jac_FULL(252,338) + JVS(1818) = -B(176) IF (DO_JVS(1819)) & -! JVS(1819) = Jac_FULL(251,346) - JVS(1819) = B(180)+0.07*B(237) +! JVS(1819) = Jac_FULL(252,341) + JVS(1819) = -B(225) IF (DO_JVS(1820)) & -! JVS(1820) = Jac_FULL(252,252) - JVS(1820) = -B(648)-2*B(649)-B(1585)-B(1586)-B(1591)-B(1593)-B(1595)-B(1597)-B(1730) +! JVS(1820) = Jac_FULL(252,343) + JVS(1820) = B(198) IF (DO_JVS(1821)) & -! JVS(1821) = Jac_FULL(252,331) - JVS(1821) = B(646) +! JVS(1821) = Jac_FULL(253,128) + JVS(1821) = 0.209*B(324) IF (DO_JVS(1822)) & -! JVS(1822) = Jac_FULL(252,335) - JVS(1822) = B(647) +! JVS(1822) = Jac_FULL(253,253) + JVS(1822) = -B(191)-B(232)-B(267)-B(363) IF (DO_JVS(1823)) & -! JVS(1823) = Jac_FULL(252,344) - JVS(1823) = -B(1598) +! JVS(1823) = Jac_FULL(253,293) + JVS(1823) = B(310) IF (DO_JVS(1824)) & -! JVS(1824) = Jac_FULL(252,349) - JVS(1824) = -B(1592) +! JVS(1824) = Jac_FULL(253,328) + JVS(1824) = -B(364) IF (DO_JVS(1825)) & -! JVS(1825) = Jac_FULL(252,350) - JVS(1825) = -B(1594) +! JVS(1825) = Jac_FULL(253,334) + JVS(1825) = -B(268) IF (DO_JVS(1826)) & -! JVS(1826) = Jac_FULL(252,353) - JVS(1826) = -B(1596) +! JVS(1826) = Jac_FULL(253,338) + JVS(1826) = -B(192) IF (DO_JVS(1827)) & -! JVS(1827) = Jac_FULL(253,172) - JVS(1827) = B(1252)+B(1254) +! JVS(1827) = Jac_FULL(253,341) + JVS(1827) = -B(233) IF (DO_JVS(1828)) & -! JVS(1828) = Jac_FULL(253,231) - JVS(1828) = 0 +! JVS(1828) = Jac_FULL(253,343) + JVS(1828) = 0.209*B(325) IF (DO_JVS(1829)) & -! JVS(1829) = Jac_FULL(253,253) - JVS(1829) = -B(1276)-B(1282)-B(1283)-B(1285) +! JVS(1829) = Jac_FULL(253,348) + JVS(1829) = B(311) IF (DO_JVS(1830)) & -! JVS(1830) = Jac_FULL(253,276) - JVS(1830) = 0 +! JVS(1830) = Jac_FULL(254,254) + JVS(1830) = -B(648)-2*B(649)-B(1585)-B(1586)-B(1591)-B(1593)-B(1595)-B(1597)-B(1743) IF (DO_JVS(1831)) & -! JVS(1831) = Jac_FULL(253,301) - JVS(1831) = 0 +! JVS(1831) = Jac_FULL(254,331) + JVS(1831) = B(646) IF (DO_JVS(1832)) & -! JVS(1832) = Jac_FULL(253,304) - JVS(1832) = 0 +! JVS(1832) = Jac_FULL(254,339) + JVS(1832) = -B(1596) IF (DO_JVS(1833)) & -! JVS(1833) = Jac_FULL(253,309) - JVS(1833) = 0.964*B(1228) +! JVS(1833) = Jac_FULL(254,345) + JVS(1833) = B(647) IF (DO_JVS(1834)) & -! JVS(1834) = Jac_FULL(253,335) - JVS(1834) = 0 +! JVS(1834) = Jac_FULL(254,346) + JVS(1834) = -B(1598) IF (DO_JVS(1835)) & -! JVS(1835) = Jac_FULL(253,337) - JVS(1835) = B(1255)-B(1277) +! JVS(1835) = Jac_FULL(254,349) + JVS(1835) = -B(1592) IF (DO_JVS(1836)) & -! JVS(1836) = Jac_FULL(253,345) - JVS(1836) = 0.964*B(1229) +! JVS(1836) = Jac_FULL(254,350) + JVS(1836) = -B(1594) IF (DO_JVS(1837)) & -! JVS(1837) = Jac_FULL(253,346) - JVS(1837) = B(1253)-B(1284)-B(1286) +! JVS(1837) = Jac_FULL(255,255) + JVS(1837) = -B(195)-B(1622)-B(1698) IF (DO_JVS(1838)) & -! JVS(1838) = Jac_FULL(254,171) - JVS(1838) = B(1246)+B(1248) +! JVS(1838) = Jac_FULL(255,322) + JVS(1838) = B(220) IF (DO_JVS(1839)) & -! JVS(1839) = Jac_FULL(254,230) - JVS(1839) = 0 +! JVS(1839) = Jac_FULL(255,323) + JVS(1839) = B(179) IF (DO_JVS(1840)) & -! JVS(1840) = Jac_FULL(254,254) - JVS(1840) = -B(1270)-B(1272)-B(1274) +! JVS(1840) = Jac_FULL(255,324) + JVS(1840) = 0.07*B(236) IF (DO_JVS(1841)) & -! JVS(1841) = Jac_FULL(254,276) - JVS(1841) = 0 +! JVS(1841) = Jac_FULL(255,338) + JVS(1841) = B(180)+0.07*B(237) IF (DO_JVS(1842)) & -! JVS(1842) = Jac_FULL(254,301) - JVS(1842) = 0 +! JVS(1842) = Jac_FULL(255,341) + JVS(1842) = B(221) IF (DO_JVS(1843)) & -! JVS(1843) = Jac_FULL(254,305) - JVS(1843) = 0 +! JVS(1843) = Jac_FULL(255,343) + JVS(1843) = -B(196) IF (DO_JVS(1844)) & -! JVS(1844) = Jac_FULL(254,314) - JVS(1844) = B(1224) +! JVS(1844) = Jac_FULL(256,170) + JVS(1844) = 0.27*B(725) IF (DO_JVS(1845)) & -! JVS(1845) = Jac_FULL(254,335) - JVS(1845) = 0 +! JVS(1845) = Jac_FULL(256,256) + JVS(1845) = -B(806)-B(808)-B(810)-B(1830) IF (DO_JVS(1846)) & -! JVS(1846) = Jac_FULL(254,337) - JVS(1846) = B(1249)-B(1271) +! JVS(1846) = Jac_FULL(256,284) + JVS(1846) = 0.63*B(800)+0.47*B(802)+0.63*B(804)+0.63*B(885)+0.63*B(887) IF (DO_JVS(1847)) & -! JVS(1847) = Jac_FULL(254,345) - JVS(1847) = B(1225) +! JVS(1847) = Jac_FULL(256,328) + JVS(1847) = 0.63*B(888) IF (DO_JVS(1848)) & -! JVS(1848) = Jac_FULL(254,346) - JVS(1848) = B(1247)-B(1273)-B(1275) +! JVS(1848) = Jac_FULL(256,334) + JVS(1848) = 0.63*B(886) IF (DO_JVS(1849)) & -! JVS(1849) = Jac_FULL(255,167) - JVS(1849) = 0.27*B(725) +! JVS(1849) = Jac_FULL(256,338) + JVS(1849) = 0.47*B(803) IF (DO_JVS(1850)) & -! JVS(1850) = Jac_FULL(255,255) - JVS(1850) = -B(806)-B(808)-B(810)-B(1817) +! JVS(1850) = Jac_FULL(256,341) + JVS(1850) = 0.63*B(801) IF (DO_JVS(1851)) & -! JVS(1851) = Jac_FULL(255,281) - JVS(1851) = 0.63*B(800)+0.47*B(802)+0.63*B(804)+0.63*B(885)+0.63*B(887) +! JVS(1851) = Jac_FULL(256,343) + JVS(1851) = -B(807) IF (DO_JVS(1852)) & -! JVS(1852) = Jac_FULL(255,324) - JVS(1852) = 0.63*B(888) +! JVS(1852) = Jac_FULL(256,348) + JVS(1852) = 0.63*B(805)-B(811) IF (DO_JVS(1853)) & -! JVS(1853) = Jac_FULL(255,328) - JVS(1853) = 0.63*B(886) +! JVS(1853) = Jac_FULL(256,356) + JVS(1853) = 0.27*B(726)-B(809) IF (DO_JVS(1854)) & -! JVS(1854) = Jac_FULL(255,337) - JVS(1854) = 0.63*B(801) +! JVS(1854) = Jac_FULL(257,174) + JVS(1854) = B(1252)+B(1254) IF (DO_JVS(1855)) & -! JVS(1855) = Jac_FULL(255,341) - JVS(1855) = 0.27*B(726)-B(809) +! JVS(1855) = Jac_FULL(257,231) + JVS(1855) = 0 IF (DO_JVS(1856)) & -! JVS(1856) = Jac_FULL(255,345) - JVS(1856) = -B(807) +! JVS(1856) = Jac_FULL(257,257) + JVS(1856) = -B(1276)-B(1282)-B(1283)-B(1285) IF (DO_JVS(1857)) & -! JVS(1857) = Jac_FULL(255,346) - JVS(1857) = 0.47*B(803) +! JVS(1857) = Jac_FULL(257,279) + JVS(1857) = 0 IF (DO_JVS(1858)) & -! JVS(1858) = Jac_FULL(255,351) - JVS(1858) = 0.63*B(805)-B(811) +! JVS(1858) = Jac_FULL(257,305) + JVS(1858) = 0 IF (DO_JVS(1859)) & -! JVS(1859) = Jac_FULL(256,162) - JVS(1859) = 0.5*B(798) +! JVS(1859) = Jac_FULL(257,313) + JVS(1859) = 0.964*B(1228) IF (DO_JVS(1860)) & -! JVS(1860) = Jac_FULL(256,176) - JVS(1860) = 0.5*B(772) +! JVS(1860) = Jac_FULL(257,315) + JVS(1860) = 0 IF (DO_JVS(1861)) & -! JVS(1861) = Jac_FULL(256,177) - JVS(1861) = 0.5*B(836) +! JVS(1861) = Jac_FULL(257,338) + JVS(1861) = B(1253)-B(1284)-B(1286) IF (DO_JVS(1862)) & -! JVS(1862) = Jac_FULL(256,211) - JVS(1862) = 0 +! JVS(1862) = Jac_FULL(257,341) + JVS(1862) = B(1255)-B(1277) IF (DO_JVS(1863)) & -! JVS(1863) = Jac_FULL(256,237) - JVS(1863) = 0 +! JVS(1863) = Jac_FULL(257,343) + JVS(1863) = 0.964*B(1229) IF (DO_JVS(1864)) & -! JVS(1864) = Jac_FULL(256,255) +! JVS(1864) = Jac_FULL(257,345) JVS(1864) = 0 IF (DO_JVS(1865)) & -! JVS(1865) = Jac_FULL(256,256) - JVS(1865) = -B(925)-B(933)-B(1623)-B(1750) +! JVS(1865) = Jac_FULL(258,173) + JVS(1865) = B(1246)+B(1248) IF (DO_JVS(1866)) & -! JVS(1866) = Jac_FULL(256,272) +! JVS(1866) = Jac_FULL(258,233) JVS(1866) = 0 IF (DO_JVS(1867)) & -! JVS(1867) = Jac_FULL(256,273) - JVS(1867) = 0 +! JVS(1867) = Jac_FULL(258,258) + JVS(1867) = -B(1270)-B(1272)-B(1274) IF (DO_JVS(1868)) & -! JVS(1868) = Jac_FULL(256,275) +! JVS(1868) = Jac_FULL(258,279) JVS(1868) = 0 IF (DO_JVS(1869)) & -! JVS(1869) = Jac_FULL(256,277) +! JVS(1869) = Jac_FULL(258,305) JVS(1869) = 0 IF (DO_JVS(1870)) & -! JVS(1870) = Jac_FULL(256,278) +! JVS(1870) = Jac_FULL(258,314) JVS(1870) = 0 IF (DO_JVS(1871)) & -! JVS(1871) = Jac_FULL(256,280) - JVS(1871) = B(901)+0.7*B(905)+0.7*B(909)+0.7*B(913)+0.7*B(917)+1.4*B(921)+1.05*B(922) +! JVS(1871) = Jac_FULL(258,318) + JVS(1871) = B(1224) IF (DO_JVS(1872)) & -! JVS(1872) = Jac_FULL(256,281) - JVS(1872) = 0 +! JVS(1872) = Jac_FULL(258,338) + JVS(1872) = B(1247)-B(1273)-B(1275) IF (DO_JVS(1873)) & -! JVS(1873) = Jac_FULL(256,289) - JVS(1873) = 0.7*B(907)+0.35*B(911)+1.05*B(923)+0.7*B(924) +! JVS(1873) = Jac_FULL(258,341) + JVS(1873) = B(1249)-B(1271) IF (DO_JVS(1874)) & -! JVS(1874) = Jac_FULL(256,324) - JVS(1874) = 0.7*B(914) +! JVS(1874) = Jac_FULL(258,343) + JVS(1874) = B(1225) IF (DO_JVS(1875)) & -! JVS(1875) = Jac_FULL(256,328) - JVS(1875) = 0.7*B(910)+0.35*B(912) +! JVS(1875) = Jac_FULL(258,345) + JVS(1875) = 0 IF (DO_JVS(1876)) & -! JVS(1876) = Jac_FULL(256,337) - JVS(1876) = 0.7*B(906)+0.7*B(908) +! JVS(1876) = Jac_FULL(259,178) + JVS(1876) = 0.333*B(1310)+0.75*B(1807) IF (DO_JVS(1877)) & -! JVS(1877) = Jac_FULL(256,341) - JVS(1877) = 0 +! JVS(1877) = Jac_FULL(259,226) + JVS(1877) = 0.548*B(1038) IF (DO_JVS(1878)) & -! JVS(1878) = Jac_FULL(256,345) - JVS(1878) = 0.5*B(773)+0.5*B(799)+0.5*B(837)-B(926) +! JVS(1878) = Jac_FULL(259,228) + JVS(1878) = 0.176*B(1031) IF (DO_JVS(1879)) & -! JVS(1879) = Jac_FULL(256,346) - JVS(1879) = B(902) +! JVS(1879) = Jac_FULL(259,235) + JVS(1879) = 0 IF (DO_JVS(1880)) & -! JVS(1880) = Jac_FULL(256,351) - JVS(1880) = 0.7*B(918)-B(934) +! JVS(1880) = Jac_FULL(259,245) + JVS(1880) = 0.35*B(1078) IF (DO_JVS(1881)) & -! JVS(1881) = Jac_FULL(257,56) - JVS(1881) = B(755) +! JVS(1881) = Jac_FULL(259,259) + JVS(1881) = -B(1306)-B(1805)-B(1806) IF (DO_JVS(1882)) & -! JVS(1882) = Jac_FULL(257,74) - JVS(1882) = B(758) +! JVS(1882) = Jac_FULL(259,270) + JVS(1882) = 0 IF (DO_JVS(1883)) & -! JVS(1883) = Jac_FULL(257,111) - JVS(1883) = 0.4*B(741) +! JVS(1883) = Jac_FULL(259,271) + JVS(1883) = 0 IF (DO_JVS(1884)) & -! JVS(1884) = Jac_FULL(257,225) - JVS(1884) = B(745)+B(747) +! JVS(1884) = Jac_FULL(259,288) + JVS(1884) = 0.35*B(1076) IF (DO_JVS(1885)) & -! JVS(1885) = Jac_FULL(257,257) - JVS(1885) = -B(749)-B(751)-B(753)-B(756)-B(893)-B(895) +! JVS(1885) = Jac_FULL(259,289) + JVS(1885) = 0.35*B(1064) IF (DO_JVS(1886)) & -! JVS(1886) = Jac_FULL(257,277) +! JVS(1886) = Jac_FULL(259,314) JVS(1886) = 0 IF (DO_JVS(1887)) & -! JVS(1887) = Jac_FULL(257,324) - JVS(1887) = -B(896) +! JVS(1887) = Jac_FULL(259,315) + JVS(1887) = 0 IF (DO_JVS(1888)) & -! JVS(1888) = Jac_FULL(257,328) - JVS(1888) = -B(894) +! JVS(1888) = Jac_FULL(259,338) + JVS(1888) = 0 IF (DO_JVS(1889)) & -! JVS(1889) = Jac_FULL(257,335) - JVS(1889) = -B(754) +! JVS(1889) = Jac_FULL(259,341) + JVS(1889) = 0.35*B(1065)+0.35*B(1077)+0.35*B(1079) IF (DO_JVS(1890)) & -! JVS(1890) = Jac_FULL(257,337) - JVS(1890) = -B(750) +! JVS(1890) = Jac_FULL(259,343) + JVS(1890) = -B(1307)+0.333*B(1311) IF (DO_JVS(1891)) & -! JVS(1891) = Jac_FULL(257,341) - JVS(1891) = 0 +! JVS(1891) = Jac_FULL(260,165) + JVS(1891) = 0.5*B(798) IF (DO_JVS(1892)) & -! JVS(1892) = Jac_FULL(257,345) - JVS(1892) = 0.4*B(742)+B(748)+B(759) +! JVS(1892) = Jac_FULL(260,179) + JVS(1892) = 0.5*B(772) IF (DO_JVS(1893)) & -! JVS(1893) = Jac_FULL(257,346) - JVS(1893) = -B(752) +! JVS(1893) = Jac_FULL(260,180) + JVS(1893) = 0.5*B(836) IF (DO_JVS(1894)) & -! JVS(1894) = Jac_FULL(257,351) - JVS(1894) = B(746)-B(757) +! JVS(1894) = Jac_FULL(260,212) + JVS(1894) = 0 IF (DO_JVS(1895)) & -! JVS(1895) = Jac_FULL(258,174) - JVS(1895) = 0.333*B(1310)+0.75*B(1794) +! JVS(1895) = Jac_FULL(260,241) + JVS(1895) = 0 IF (DO_JVS(1896)) & -! JVS(1896) = Jac_FULL(258,223) - JVS(1896) = 0.176*B(1031) +! JVS(1896) = Jac_FULL(260,256) + JVS(1896) = 0 IF (DO_JVS(1897)) & -! JVS(1897) = Jac_FULL(258,224) - JVS(1897) = 0.548*B(1038) +! JVS(1897) = Jac_FULL(260,260) + JVS(1897) = -B(925)-B(933)-B(1623)-B(1763) IF (DO_JVS(1898)) & -! JVS(1898) = Jac_FULL(258,232) +! JVS(1898) = Jac_FULL(260,275) JVS(1898) = 0 IF (DO_JVS(1899)) & -! JVS(1899) = Jac_FULL(258,243) - JVS(1899) = 0.35*B(1078) +! JVS(1899) = Jac_FULL(260,276) + JVS(1899) = 0 IF (DO_JVS(1900)) & -! JVS(1900) = Jac_FULL(258,258) - JVS(1900) = -B(1306)-B(1792)-B(1793) +! JVS(1900) = Jac_FULL(260,278) + JVS(1900) = 0 IF (DO_JVS(1901)) & -! JVS(1901) = Jac_FULL(258,267) - JVS(1901) = 0 +! JVS(1901) = Jac_FULL(260,280) + JVS(1901) = B(901)+0.7*B(905)+0.7*B(909)+0.7*B(913)+0.7*B(917)+1.4*B(921)+1.05*B(922) IF (DO_JVS(1902)) & -! JVS(1902) = Jac_FULL(258,268) +! JVS(1902) = Jac_FULL(260,281) JVS(1902) = 0 IF (DO_JVS(1903)) & -! JVS(1903) = Jac_FULL(258,285) - JVS(1903) = 0.35*B(1076) +! JVS(1903) = Jac_FULL(260,282) + JVS(1903) = 0 IF (DO_JVS(1904)) & -! JVS(1904) = Jac_FULL(258,286) - JVS(1904) = 0.35*B(1064) +! JVS(1904) = Jac_FULL(260,284) + JVS(1904) = 0 IF (DO_JVS(1905)) & -! JVS(1905) = Jac_FULL(258,304) - JVS(1905) = 0 +! JVS(1905) = Jac_FULL(260,292) + JVS(1905) = 0.7*B(907)+0.35*B(911)+1.05*B(923)+0.7*B(924) IF (DO_JVS(1906)) & -! JVS(1906) = Jac_FULL(258,305) - JVS(1906) = 0 +! JVS(1906) = Jac_FULL(260,328) + JVS(1906) = 0.7*B(914) IF (DO_JVS(1907)) & -! JVS(1907) = Jac_FULL(258,337) - JVS(1907) = 0.35*B(1065)+0.35*B(1077)+0.35*B(1079) +! JVS(1907) = Jac_FULL(260,334) + JVS(1907) = 0.7*B(910)+0.35*B(912) IF (DO_JVS(1908)) & -! JVS(1908) = Jac_FULL(258,345) - JVS(1908) = -B(1307)+0.333*B(1311) +! JVS(1908) = Jac_FULL(260,338) + JVS(1908) = B(902) IF (DO_JVS(1909)) & -! JVS(1909) = Jac_FULL(258,346) - JVS(1909) = 0 +! JVS(1909) = Jac_FULL(260,341) + JVS(1909) = 0.7*B(906)+0.7*B(908) IF (DO_JVS(1910)) & -! JVS(1910) = Jac_FULL(259,159) - JVS(1910) = 0.165*B(1280) +! JVS(1910) = Jac_FULL(260,343) + JVS(1910) = 0.5*B(773)+0.5*B(799)+0.5*B(837)-B(926) IF (DO_JVS(1911)) & -! JVS(1911) = Jac_FULL(259,184) - JVS(1911) = B(1301) +! JVS(1911) = Jac_FULL(260,348) + JVS(1911) = 0.7*B(918)-B(934) IF (DO_JVS(1912)) & -! JVS(1912) = Jac_FULL(259,259) - JVS(1912) = -B(1278)-B(1287)-B(1289) +! JVS(1912) = Jac_FULL(260,356) + JVS(1912) = 0 IF (DO_JVS(1913)) & -! JVS(1913) = Jac_FULL(259,308) - JVS(1913) = 0 +! JVS(1913) = Jac_FULL(261,59) + JVS(1913) = B(755) IF (DO_JVS(1914)) & -! JVS(1914) = Jac_FULL(259,309) - JVS(1914) = B(1230)+0.32*B(1234) +! JVS(1914) = Jac_FULL(261,76) + JVS(1914) = B(758) IF (DO_JVS(1915)) & -! JVS(1915) = Jac_FULL(259,335) - JVS(1915) = -B(1290) +! JVS(1915) = Jac_FULL(261,111) + JVS(1915) = 0.4*B(741) IF (DO_JVS(1916)) & -! JVS(1916) = Jac_FULL(259,337) - JVS(1916) = -B(1279) +! JVS(1916) = Jac_FULL(261,227) + JVS(1916) = B(745)+B(747) IF (DO_JVS(1917)) & -! JVS(1917) = Jac_FULL(259,345) - JVS(1917) = B(1231)+0.165*B(1281) +! JVS(1917) = Jac_FULL(261,261) + JVS(1917) = -B(749)-B(751)-B(753)-B(756)-B(893)-B(895) IF (DO_JVS(1918)) & -! JVS(1918) = Jac_FULL(259,346) - JVS(1918) = -B(1288) +! JVS(1918) = Jac_FULL(261,281) + JVS(1918) = 0 IF (DO_JVS(1919)) & -! JVS(1919) = Jac_FULL(259,351) - JVS(1919) = 0.32*B(1235) +! JVS(1919) = Jac_FULL(261,328) + JVS(1919) = -B(896) IF (DO_JVS(1920)) & -! JVS(1920) = Jac_FULL(260,123) - JVS(1920) = 0.209*B(338) +! JVS(1920) = Jac_FULL(261,334) + JVS(1920) = -B(894) IF (DO_JVS(1921)) & -! JVS(1921) = Jac_FULL(260,260) - JVS(1921) = -B(122)-B(216)-B(281)-B(369) +! JVS(1921) = Jac_FULL(261,338) + JVS(1921) = -B(752) IF (DO_JVS(1922)) & -! JVS(1922) = Jac_FULL(260,290) - JVS(1922) = B(285)+B(639)+B(641) +! JVS(1922) = Jac_FULL(261,341) + JVS(1922) = -B(750) IF (DO_JVS(1923)) & -! JVS(1923) = Jac_FULL(260,324) - JVS(1923) = -B(370) +! JVS(1923) = Jac_FULL(261,343) + JVS(1923) = 0.4*B(742)+B(748)+B(759) IF (DO_JVS(1924)) & -! JVS(1924) = Jac_FULL(260,328) - JVS(1924) = -B(217) +! JVS(1924) = Jac_FULL(261,345) + JVS(1924) = -B(754) IF (DO_JVS(1925)) & -! JVS(1925) = Jac_FULL(260,337) - JVS(1925) = -B(282) +! JVS(1925) = Jac_FULL(261,348) + JVS(1925) = B(746)-B(757) IF (DO_JVS(1926)) & -! JVS(1926) = Jac_FULL(260,340) - JVS(1926) = B(640) +! JVS(1926) = Jac_FULL(261,356) + JVS(1926) = 0 IF (DO_JVS(1927)) & -! JVS(1927) = Jac_FULL(260,342) - JVS(1927) = B(642) +! JVS(1927) = Jac_FULL(262,161) + JVS(1927) = 0.165*B(1280) IF (DO_JVS(1928)) & -! JVS(1928) = Jac_FULL(260,345) - JVS(1928) = B(286)+0.209*B(339) +! JVS(1928) = Jac_FULL(262,189) + JVS(1928) = B(1301) IF (DO_JVS(1929)) & -! JVS(1929) = Jac_FULL(260,346) - JVS(1929) = -B(123) +! JVS(1929) = Jac_FULL(262,262) + JVS(1929) = -B(1278)-B(1287)-B(1289) IF (DO_JVS(1930)) & -! JVS(1930) = Jac_FULL(261,180) - JVS(1930) = 0.89*B(1220)+0.73*B(1222) +! JVS(1930) = Jac_FULL(262,312) + JVS(1930) = 0 IF (DO_JVS(1931)) & -! JVS(1931) = Jac_FULL(261,182) - JVS(1931) = 0.099*B(1214)+0.099*B(1216) +! JVS(1931) = Jac_FULL(262,313) + JVS(1931) = B(1230)+0.32*B(1234) IF (DO_JVS(1932)) & -! JVS(1932) = Jac_FULL(261,207) - JVS(1932) = 0.441*B(1135)+0.858*B(1137) +! JVS(1932) = Jac_FULL(262,338) + JVS(1932) = -B(1288) IF (DO_JVS(1933)) & -! JVS(1933) = Jac_FULL(261,226) - JVS(1933) = 0.054*B(1200)+0.07*B(1206) +! JVS(1933) = Jac_FULL(262,341) + JVS(1933) = -B(1279) IF (DO_JVS(1934)) & -! JVS(1934) = Jac_FULL(261,261) - JVS(1934) = -B(687)-B(1318)-B(1749) +! JVS(1934) = Jac_FULL(262,343) + JVS(1934) = B(1231)+0.165*B(1281) IF (DO_JVS(1935)) & -! JVS(1935) = Jac_FULL(261,267) - JVS(1935) = 0 +! JVS(1935) = Jac_FULL(262,345) + JVS(1935) = -B(1290) IF (DO_JVS(1936)) & -! JVS(1936) = Jac_FULL(261,271) - JVS(1936) = 0.051*B(1198)+0.064*B(1202) +! JVS(1936) = Jac_FULL(262,348) + JVS(1936) = 0.32*B(1235) IF (DO_JVS(1937)) & -! JVS(1937) = Jac_FULL(261,293) - JVS(1937) = 0.033*B(1141)+0.071*B(1143) +! JVS(1937) = Jac_FULL(263,196) + JVS(1937) = 0.3*B(865)+0.3*B(867)+0.15*B(869) IF (DO_JVS(1938)) & -! JVS(1938) = Jac_FULL(261,299) - JVS(1938) = 0 +! JVS(1938) = Jac_FULL(263,222) + JVS(1938) = 0.4*B(729) IF (DO_JVS(1939)) & -! JVS(1939) = Jac_FULL(261,301) - JVS(1939) = 0 +! JVS(1939) = Jac_FULL(263,234) + JVS(1939) = 0.78*B(859)+0.78*B(861)+0.39*B(863)+0.675*B(1829) IF (DO_JVS(1940)) & -! JVS(1940) = Jac_FULL(261,302) - JVS(1940) = 0.3*B(1772) +! JVS(1940) = Jac_FULL(263,263) + JVS(1940) = -B(871)-B(873)-B(875) IF (DO_JVS(1941)) & -! JVS(1941) = Jac_FULL(261,303) - JVS(1941) = 0.15*B(1797) +! JVS(1941) = Jac_FULL(263,294) + JVS(1941) = 0.675*B(855)+0.675*B(857)+0.675*B(889)+0.675*B(891) IF (DO_JVS(1942)) & -! JVS(1942) = Jac_FULL(261,311) - JVS(1942) = 0 +! JVS(1942) = Jac_FULL(263,328) + JVS(1942) = 0.675*B(892) IF (DO_JVS(1943)) & -! JVS(1943) = Jac_FULL(261,337) - JVS(1943) = 0.441*B(1136)+0.033*B(1142)+0.051*B(1199)+0.054*B(1201)+0.099*B(1217)+0.73*B(1223) +! JVS(1943) = Jac_FULL(263,334) + JVS(1943) = 0.675*B(890) IF (DO_JVS(1944)) & -! JVS(1944) = Jac_FULL(261,345) - JVS(1944) = -B(688) +! JVS(1944) = Jac_FULL(263,338) + JVS(1944) = 0.675*B(856) IF (DO_JVS(1945)) & -! JVS(1945) = Jac_FULL(261,346) - JVS(1945) = 0.858*B(1138)+0.071*B(1144)+0.064*B(1203)+0.07*B(1207)+0.099*B(1215)+0.89*B(1221) +! JVS(1945) = Jac_FULL(263,341) + JVS(1945) = 0 IF (DO_JVS(1946)) & -! JVS(1946) = Jac_FULL(261,351) - JVS(1946) = -B(1319) +! JVS(1946) = Jac_FULL(263,343) + JVS(1946) = 0.78*B(860)+0.3*B(866)-B(872) IF (DO_JVS(1947)) & -! JVS(1947) = Jac_FULL(262,193) - JVS(1947) = 0.3*B(865)+0.3*B(867)+0.15*B(869) +! JVS(1947) = Jac_FULL(263,348) + JVS(1947) = 0.675*B(858)+0.39*B(864)+0.15*B(870)-B(876) IF (DO_JVS(1948)) & -! JVS(1948) = Jac_FULL(262,219) - JVS(1948) = 0.4*B(729) +! JVS(1948) = Jac_FULL(263,356) + JVS(1948) = 0.4*B(730)+0.78*B(862)+0.3*B(868)-B(874) IF (DO_JVS(1949)) & -! JVS(1949) = Jac_FULL(262,229) - JVS(1949) = 0.78*B(859)+0.78*B(861)+0.39*B(863)+0.675*B(1816) +! JVS(1949) = Jac_FULL(264,126) + JVS(1949) = 0.209*B(338) IF (DO_JVS(1950)) & -! JVS(1950) = Jac_FULL(262,262) - JVS(1950) = -B(871)-B(873)-B(875) +! JVS(1950) = Jac_FULL(264,264) + JVS(1950) = -B(122)-B(216)-B(281)-B(369) IF (DO_JVS(1951)) & -! JVS(1951) = Jac_FULL(262,291) - JVS(1951) = 0.675*B(855)+0.675*B(857)+0.675*B(889)+0.675*B(891) +! JVS(1951) = Jac_FULL(264,293) + JVS(1951) = B(285)+B(639)+B(641) IF (DO_JVS(1952)) & -! JVS(1952) = Jac_FULL(262,324) - JVS(1952) = 0.675*B(892) +! JVS(1952) = Jac_FULL(264,328) + JVS(1952) = -B(370) IF (DO_JVS(1953)) & -! JVS(1953) = Jac_FULL(262,328) - JVS(1953) = 0.675*B(890) +! JVS(1953) = Jac_FULL(264,334) + JVS(1953) = -B(217) IF (DO_JVS(1954)) & -! JVS(1954) = Jac_FULL(262,337) - JVS(1954) = 0 +! JVS(1954) = Jac_FULL(264,338) + JVS(1954) = -B(123) IF (DO_JVS(1955)) & -! JVS(1955) = Jac_FULL(262,341) - JVS(1955) = 0.4*B(730)+0.78*B(862)+0.3*B(868)-B(874) +! JVS(1955) = Jac_FULL(264,341) + JVS(1955) = -B(282) IF (DO_JVS(1956)) & -! JVS(1956) = Jac_FULL(262,345) - JVS(1956) = 0.78*B(860)+0.3*B(866)-B(872) +! JVS(1956) = Jac_FULL(264,342) + JVS(1956) = B(642) IF (DO_JVS(1957)) & -! JVS(1957) = Jac_FULL(262,346) - JVS(1957) = 0.675*B(856) +! JVS(1957) = Jac_FULL(264,343) + JVS(1957) = B(286)+0.209*B(339) IF (DO_JVS(1958)) & -! JVS(1958) = Jac_FULL(262,351) - JVS(1958) = 0.675*B(858)+0.39*B(864)+0.15*B(870)-B(876) +! JVS(1958) = Jac_FULL(264,352) + JVS(1958) = B(640) IF (DO_JVS(1959)) & -! JVS(1959) = Jac_FULL(263,82) - JVS(1959) = 0.81*B(1383) +! JVS(1959) = Jac_FULL(265,181) + JVS(1959) = 0.89*B(1220)+0.73*B(1222) IF (DO_JVS(1960)) & -! JVS(1960) = Jac_FULL(263,101) - JVS(1960) = 0.85*B(1385) +! JVS(1960) = Jac_FULL(265,185) + JVS(1960) = 0.099*B(1214)+0.099*B(1216) IF (DO_JVS(1961)) & -! JVS(1961) = Jac_FULL(263,137) - JVS(1961) = 0.5*B(743) +! JVS(1961) = Jac_FULL(265,208) + JVS(1961) = 0.441*B(1135)+0.858*B(1137) IF (DO_JVS(1962)) & -! JVS(1962) = Jac_FULL(263,138) - JVS(1962) = 0.5*B(780) +! JVS(1962) = Jac_FULL(265,236) + JVS(1962) = 0.054*B(1200)+0.07*B(1206) IF (DO_JVS(1963)) & -! JVS(1963) = Jac_FULL(263,143) - JVS(1963) = 0.46*B(1381) +! JVS(1963) = Jac_FULL(265,265) + JVS(1963) = -B(687)-B(1318)-B(1762) IF (DO_JVS(1964)) & -! JVS(1964) = Jac_FULL(263,149) - JVS(1964) = 0.813*B(1344)+B(1346) +! JVS(1964) = Jac_FULL(265,270) + JVS(1964) = 0 IF (DO_JVS(1965)) & -! JVS(1965) = Jac_FULL(263,158) - JVS(1965) = 0.2*B(1418)+0.2*B(1420) +! JVS(1965) = Jac_FULL(265,273) + JVS(1965) = 0.051*B(1198)+0.064*B(1202) IF (DO_JVS(1966)) & -! JVS(1966) = Jac_FULL(263,160) - JVS(1966) = 0.5*B(770)+B(1811) +! JVS(1966) = Jac_FULL(265,299) + JVS(1966) = 0.033*B(1141)+0.071*B(1143) IF (DO_JVS(1967)) & -! JVS(1967) = Jac_FULL(263,167) - JVS(1967) = 0.15*B(725) +! JVS(1967) = Jac_FULL(265,303) + JVS(1967) = 0 IF (DO_JVS(1968)) & -! JVS(1968) = Jac_FULL(263,176) - JVS(1968) = 0.55*B(772) +! JVS(1968) = Jac_FULL(265,305) + JVS(1968) = 0 IF (DO_JVS(1969)) & -! JVS(1969) = Jac_FULL(263,193) - JVS(1969) = 0.7*B(865)+0.7*B(867)+0.35*B(869) +! JVS(1969) = Jac_FULL(265,306) + JVS(1969) = 0.3*B(1785) IF (DO_JVS(1970)) & -! JVS(1970) = Jac_FULL(263,195) - JVS(1970) = 0.14*B(1414) +! JVS(1970) = Jac_FULL(265,307) + JVS(1970) = 0.15*B(1810) IF (DO_JVS(1971)) & -! JVS(1971) = Jac_FULL(263,200) - JVS(1971) = 0.93*B(1348)+B(1350) +! JVS(1971) = Jac_FULL(265,310) + JVS(1971) = 0 IF (DO_JVS(1972)) & -! JVS(1972) = Jac_FULL(263,202) - JVS(1972) = 0.7*B(1422)+0.2*B(1426) +! JVS(1972) = Jac_FULL(265,338) + JVS(1972) = 0.858*B(1138)+0.071*B(1144)+0.064*B(1203)+0.07*B(1207)+0.099*B(1215)+0.89*B(1221) IF (DO_JVS(1973)) & -! JVS(1973) = Jac_FULL(263,211) - JVS(1973) = B(822) +! JVS(1973) = Jac_FULL(265,341) + JVS(1973) = 0.441*B(1136)+0.033*B(1142)+0.051*B(1199)+0.054*B(1201)+0.099*B(1217)+0.73*B(1223) IF (DO_JVS(1974)) & -! JVS(1974) = Jac_FULL(263,219) - JVS(1974) = 0.5*B(729) +! JVS(1974) = Jac_FULL(265,343) + JVS(1974) = -B(688) IF (DO_JVS(1975)) & -! JVS(1975) = Jac_FULL(263,220) - JVS(1975) = 0.7*B(1338)+B(1340) +! JVS(1975) = Jac_FULL(265,348) + JVS(1975) = -B(1319) IF (DO_JVS(1976)) & -! JVS(1976) = Jac_FULL(263,229) - JVS(1976) = 0.7*B(859)+0.7*B(861)+0.35*B(863) +! JVS(1976) = Jac_FULL(266,85) + JVS(1976) = 0.81*B(1383) IF (DO_JVS(1977)) & -! JVS(1977) = Jac_FULL(263,237) - JVS(1977) = B(816) +! JVS(1977) = Jac_FULL(266,103) + JVS(1977) = 0.85*B(1385) IF (DO_JVS(1978)) & -! JVS(1978) = Jac_FULL(263,255) - JVS(1978) = B(810) +! JVS(1978) = Jac_FULL(266,139) + JVS(1978) = 0.5*B(743) IF (DO_JVS(1979)) & -! JVS(1979) = Jac_FULL(263,262) - JVS(1979) = B(871)+B(873)+0.5*B(875) +! JVS(1979) = Jac_FULL(266,141) + JVS(1979) = 0.5*B(780) IF (DO_JVS(1980)) & -! JVS(1980) = Jac_FULL(263,263) - JVS(1980) = -B(1387)-B(1389)-B(1391)-B(1393)-B(1395) +! JVS(1980) = Jac_FULL(266,145) + JVS(1980) = 0.46*B(1381) IF (DO_JVS(1981)) & -! JVS(1981) = Jac_FULL(263,275) - JVS(1981) = 0 +! JVS(1981) = Jac_FULL(266,148) + JVS(1981) = 0.813*B(1344)+B(1346) IF (DO_JVS(1982)) & -! JVS(1982) = Jac_FULL(263,277) - JVS(1982) = 0 +! JVS(1982) = Jac_FULL(266,162) + JVS(1982) = 0.2*B(1418)+0.2*B(1420) IF (DO_JVS(1983)) & -! JVS(1983) = Jac_FULL(263,278) - JVS(1983) = 0.84*B(764)+B(766)+0.75*B(768) +! JVS(1983) = Jac_FULL(266,163) + JVS(1983) = 0.5*B(770)+B(1824) IF (DO_JVS(1984)) & -! JVS(1984) = Jac_FULL(263,281) - JVS(1984) = 0 +! JVS(1984) = Jac_FULL(266,170) + JVS(1984) = 0.15*B(725) IF (DO_JVS(1985)) & -! JVS(1985) = Jac_FULL(263,291) - JVS(1985) = 0 +! JVS(1985) = Jac_FULL(266,179) + JVS(1985) = 0.55*B(772) IF (DO_JVS(1986)) & -! JVS(1986) = Jac_FULL(263,324) - JVS(1986) = -B(1396) +! JVS(1986) = Jac_FULL(266,196) + JVS(1986) = 0.7*B(865)+0.7*B(867)+0.35*B(869) IF (DO_JVS(1987)) & -! JVS(1987) = Jac_FULL(263,328) - JVS(1987) = 0.75*B(769)-B(1394) +! JVS(1987) = Jac_FULL(266,199) + JVS(1987) = 0.14*B(1414) IF (DO_JVS(1988)) & -! JVS(1988) = Jac_FULL(263,337) - JVS(1988) = -B(1388) +! JVS(1988) = Jac_FULL(266,203) + JVS(1988) = 0.93*B(1348)+B(1350) IF (DO_JVS(1989)) & -! JVS(1989) = Jac_FULL(263,341) - JVS(1989) = 0.15*B(726)+0.5*B(730)+0.7*B(862)+0.7*B(868)+B(874) +! JVS(1989) = Jac_FULL(266,205) + JVS(1989) = 0.7*B(1422)+0.2*B(1426) IF (DO_JVS(1990)) & -! JVS(1990) = Jac_FULL(263,345) - JVS(1990) = 0.5*B(744)+0.5*B(771)+0.55*B(773)+0.5*B(781)+0.7*B(860)+0.7*B(866)+B(872)+0.7*B(1339)+0.813*B(1345)+0.93& - &*B(1349)+0.46*B(1382)+0.81*B(1384)+0.85*B(1386)+0.14*B(1415)+0.2*B(1419)+0.7*B(1423) +! JVS(1990) = Jac_FULL(266,212) + JVS(1990) = B(822) IF (DO_JVS(1991)) & -! JVS(1991) = Jac_FULL(263,346) - JVS(1991) = 0.84*B(765)-B(1390) +! JVS(1991) = Jac_FULL(266,222) + JVS(1991) = 0.5*B(729) IF (DO_JVS(1992)) & -! JVS(1992) = Jac_FULL(263,351) - JVS(1992) = B(767)+B(811)+B(817)+B(823)+0.35*B(864)+0.35*B(870)+0.5*B(876)+B(1341)+B(1347)+B(1351)-B(1392)+0.2*B(1421)& - &+0.2*B(1427) +! JVS(1992) = Jac_FULL(266,223) + JVS(1992) = 0.7*B(1338)+B(1340) IF (DO_JVS(1993)) & -! JVS(1993) = Jac_FULL(264,241) - JVS(1993) = B(713) +! JVS(1993) = Jac_FULL(266,234) + JVS(1993) = 0.7*B(859)+0.7*B(861)+0.35*B(863) IF (DO_JVS(1994)) & -! JVS(1994) = Jac_FULL(264,264) - JVS(1994) = -B(15)-B(40)-B(469)-B(571)-B(1645) +! JVS(1994) = Jac_FULL(266,241) + JVS(1994) = B(816) IF (DO_JVS(1995)) & -! JVS(1995) = Jac_FULL(264,276) - JVS(1995) = 0.013*B(947) +! JVS(1995) = Jac_FULL(266,256) + JVS(1995) = B(810) IF (DO_JVS(1996)) & -! JVS(1996) = Jac_FULL(264,290) - JVS(1996) = 0 +! JVS(1996) = Jac_FULL(266,263) + JVS(1996) = B(871)+B(873)+0.5*B(875) IF (DO_JVS(1997)) & -! JVS(1997) = Jac_FULL(264,312) - JVS(1997) = 0.06*B(697)+0.06*B(699) +! JVS(1997) = Jac_FULL(266,266) + JVS(1997) = -B(1387)-B(1389)-B(1391)-B(1393)-B(1395) IF (DO_JVS(1998)) & -! JVS(1998) = Jac_FULL(264,314) - JVS(1998) = 0.045*B(1226) +! JVS(1998) = Jac_FULL(266,276) + JVS(1998) = 0 IF (DO_JVS(1999)) & -! JVS(1999) = Jac_FULL(264,329) +! JVS(1999) = Jac_FULL(266,281) JVS(1999) = 0 IF (DO_JVS(2000)) & -! JVS(2000) = Jac_FULL(264,335) - JVS(2000) = 0 +! JVS(2000) = Jac_FULL(266,282) + JVS(2000) = 0.84*B(764)+B(766)+0.75*B(768) IF (DO_JVS(2001)) & -! JVS(2001) = Jac_FULL(264,336) - JVS(2001) = 0.06*B(698)+0.06*B(700)+B(714) +! JVS(2001) = Jac_FULL(266,284) + JVS(2001) = 0 IF (DO_JVS(2002)) & -! JVS(2002) = Jac_FULL(264,337) - JVS(2002) = B(44) +! JVS(2002) = Jac_FULL(266,294) + JVS(2002) = 0 IF (DO_JVS(2003)) & -! JVS(2003) = Jac_FULL(264,340) - JVS(2003) = -B(572) +! JVS(2003) = Jac_FULL(266,328) + JVS(2003) = -B(1396) IF (DO_JVS(2004)) & -! JVS(2004) = Jac_FULL(264,341) - JVS(2004) = 0.013*B(948)+0.045*B(1227) +! JVS(2004) = Jac_FULL(266,334) + JVS(2004) = 0.75*B(769)-B(1394) IF (DO_JVS(2005)) & -! JVS(2005) = Jac_FULL(264,343) - JVS(2005) = -B(470) +! JVS(2005) = Jac_FULL(266,338) + JVS(2005) = 0.84*B(765)-B(1390) IF (DO_JVS(2006)) & -! JVS(2006) = Jac_FULL(264,345) - JVS(2006) = B(37)-B(41) +! JVS(2006) = Jac_FULL(266,341) + JVS(2006) = -B(1388) IF (DO_JVS(2007)) & -! JVS(2007) = Jac_FULL(264,346) - JVS(2007) = 0 +! JVS(2007) = Jac_FULL(266,343) + JVS(2007) = 0.5*B(744)+0.5*B(771)+0.55*B(773)+0.5*B(781)+0.7*B(860)+0.7*B(866)+B(872)+0.7*B(1339)+0.813*B(1345)+0.93& + &*B(1349)+0.46*B(1382)+0.81*B(1384)+0.85*B(1386)+0.14*B(1415)+0.2*B(1419)+0.7*B(1423) IF (DO_JVS(2008)) & -! JVS(2008) = Jac_FULL(264,348) - JVS(2008) = -B(16) +! JVS(2008) = Jac_FULL(266,348) + JVS(2008) = B(767)+B(811)+B(817)+B(823)+0.35*B(864)+0.35*B(870)+0.5*B(876)+B(1341)+B(1347)+B(1351)-B(1392)+0.2*B(1421)& + &+0.2*B(1427) IF (DO_JVS(2009)) & -! JVS(2009) = Jac_FULL(265,60) - JVS(2009) = 0.364*B(1362) +! JVS(2009) = Jac_FULL(266,356) + JVS(2009) = 0.15*B(726)+0.5*B(730)+0.7*B(862)+0.7*B(868)+B(874) IF (DO_JVS(2010)) & -! JVS(2010) = Jac_FULL(265,88) - JVS(2010) = 0.5*B(1322) +! JVS(2010) = Jac_FULL(267,244) + JVS(2010) = B(713) IF (DO_JVS(2011)) & -! JVS(2011) = Jac_FULL(265,107) - JVS(2011) = 0.3*B(1304) +! JVS(2011) = Jac_FULL(267,267) + JVS(2011) = -B(15)-B(40)-B(469)-B(571)-B(1641)-B(1658) IF (DO_JVS(2012)) & -! JVS(2012) = Jac_FULL(265,159) - JVS(2012) = 0 +! JVS(2012) = Jac_FULL(267,279) + JVS(2012) = 0.013*B(947) IF (DO_JVS(2013)) & -! JVS(2013) = Jac_FULL(265,184) +! JVS(2013) = Jac_FULL(267,293) JVS(2013) = 0 IF (DO_JVS(2014)) & -! JVS(2014) = Jac_FULL(265,194) - JVS(2014) = 0.187*B(1258) +! JVS(2014) = Jac_FULL(267,317) + JVS(2014) = 0.06*B(697)+0.06*B(699) IF (DO_JVS(2015)) & -! JVS(2015) = Jac_FULL(265,201) - JVS(2015) = 0.1*B(1470)+0.2*B(1472) +! JVS(2015) = Jac_FULL(267,318) + JVS(2015) = 0.045*B(1226) IF (DO_JVS(2016)) & -! JVS(2016) = Jac_FULL(265,221) - JVS(2016) = 0.26*B(1465)+0.5*B(1467) +! JVS(2016) = Jac_FULL(267,335) + JVS(2016) = 0 IF (DO_JVS(2017)) & -! JVS(2017) = Jac_FULL(265,230) +! JVS(2017) = Jac_FULL(267,338) JVS(2017) = 0 IF (DO_JVS(2018)) & -! JVS(2018) = Jac_FULL(265,231) - JVS(2018) = 0 +! JVS(2018) = Jac_FULL(267,341) + JVS(2018) = B(44) IF (DO_JVS(2019)) & -! JVS(2019) = Jac_FULL(265,259) - JVS(2019) = 0 +! JVS(2019) = Jac_FULL(267,343) + JVS(2019) = B(37)-B(41) IF (DO_JVS(2020)) & -! JVS(2020) = Jac_FULL(265,265) - JVS(2020) = -B(87)-B(611) +! JVS(2020) = Jac_FULL(267,345) + JVS(2020) = 0 IF (DO_JVS(2021)) & -! JVS(2021) = Jac_FULL(265,269) - JVS(2021) = 0 +! JVS(2021) = Jac_FULL(267,351) + JVS(2021) = -B(470) IF (DO_JVS(2022)) & -! JVS(2022) = Jac_FULL(265,276) - JVS(2022) = 0 +! JVS(2022) = Jac_FULL(267,352) + JVS(2022) = -B(572) IF (DO_JVS(2023)) & -! JVS(2023) = Jac_FULL(265,301) - JVS(2023) = 0 +! JVS(2023) = Jac_FULL(267,353) + JVS(2023) = 0.06*B(698)+0.06*B(700)+B(714) IF (DO_JVS(2024)) & -! JVS(2024) = Jac_FULL(265,302) - JVS(2024) = 0.449*B(1236) +! JVS(2024) = Jac_FULL(267,355) + JVS(2024) = -B(16)-B(1642) IF (DO_JVS(2025)) & -! JVS(2025) = Jac_FULL(265,303) - JVS(2025) = 0 +! JVS(2025) = Jac_FULL(267,356) + JVS(2025) = 0.013*B(948)+0.045*B(1227) IF (DO_JVS(2026)) & -! JVS(2026) = Jac_FULL(265,304) - JVS(2026) = 0 +! JVS(2026) = Jac_FULL(268,63) + JVS(2026) = 0.364*B(1362) IF (DO_JVS(2027)) & -! JVS(2027) = Jac_FULL(265,305) - JVS(2027) = 0 +! JVS(2027) = Jac_FULL(268,92) + JVS(2027) = 0.5*B(1322) IF (DO_JVS(2028)) & -! JVS(2028) = Jac_FULL(265,306) - JVS(2028) = 0.134*B(289)+B(291) +! JVS(2028) = Jac_FULL(268,109) + JVS(2028) = 0.3*B(1304) IF (DO_JVS(2029)) & -! JVS(2029) = Jac_FULL(265,307) - JVS(2029) = 0.5*B(322) +! JVS(2029) = Jac_FULL(268,161) + JVS(2029) = 0 IF (DO_JVS(2030)) & -! JVS(2030) = Jac_FULL(265,308) +! JVS(2030) = Jac_FULL(268,189) JVS(2030) = 0 IF (DO_JVS(2031)) & -! JVS(2031) = Jac_FULL(265,309) - JVS(2031) = 0 +! JVS(2031) = Jac_FULL(268,197) + JVS(2031) = 0.187*B(1258) IF (DO_JVS(2032)) & -! JVS(2032) = Jac_FULL(265,312) - JVS(2032) = 0.21*B(697)+0.54*B(699) +! JVS(2032) = Jac_FULL(268,204) + JVS(2032) = 0.1*B(1470)+0.2*B(1472) IF (DO_JVS(2033)) & -! JVS(2033) = Jac_FULL(265,335) - JVS(2033) = 0 +! JVS(2033) = Jac_FULL(268,224) + JVS(2033) = 0.26*B(1465)+0.5*B(1467) IF (DO_JVS(2034)) & -! JVS(2034) = Jac_FULL(265,336) - JVS(2034) = 0.21*B(698)+0.54*B(700) +! JVS(2034) = Jac_FULL(268,231) + JVS(2034) = 0 IF (DO_JVS(2035)) & -! JVS(2035) = Jac_FULL(265,337) +! JVS(2035) = Jac_FULL(268,233) JVS(2035) = 0 IF (DO_JVS(2036)) & -! JVS(2036) = Jac_FULL(265,340) - JVS(2036) = -B(612) +! JVS(2036) = Jac_FULL(268,262) + JVS(2036) = 0 IF (DO_JVS(2037)) & -! JVS(2037) = Jac_FULL(265,341) - JVS(2037) = 0.5*B(1468)+0.2*B(1473) +! JVS(2037) = Jac_FULL(268,268) + JVS(2037) = -B(87)-B(611) IF (DO_JVS(2038)) & -! JVS(2038) = Jac_FULL(265,345) - JVS(2038) = -B(88)+0.134*B(290)+B(292)+0.5*B(323)+0.449*B(1237)+0.187*B(1259)+0.3*B(1305)+0.5*B(1323)+0.364*B(1363)& - &+0.26*B(1466)+0.1*B(1471) +! JVS(2038) = Jac_FULL(268,272) + JVS(2038) = 0 IF (DO_JVS(2039)) & -! JVS(2039) = Jac_FULL(265,346) +! JVS(2039) = Jac_FULL(268,279) JVS(2039) = 0 IF (DO_JVS(2040)) & -! JVS(2040) = Jac_FULL(265,351) +! JVS(2040) = Jac_FULL(268,305) JVS(2040) = 0 IF (DO_JVS(2041)) & -! JVS(2041) = Jac_FULL(266,190) - JVS(2041) = B(1120) +! JVS(2041) = Jac_FULL(268,306) + JVS(2041) = 0.449*B(1236) IF (DO_JVS(2042)) & -! JVS(2042) = Jac_FULL(266,205) - JVS(2042) = B(1113) +! JVS(2042) = Jac_FULL(268,307) + JVS(2042) = 0 IF (DO_JVS(2043)) & -! JVS(2043) = Jac_FULL(266,206) - JVS(2043) = B(1127) +! JVS(2043) = Jac_FULL(268,309) + JVS(2043) = 0.134*B(289)+B(291) IF (DO_JVS(2044)) & -! JVS(2044) = Jac_FULL(266,207) - JVS(2044) = B(1128) +! JVS(2044) = Jac_FULL(268,311) + JVS(2044) = 0.5*B(322) IF (DO_JVS(2045)) & -! JVS(2045) = Jac_FULL(266,226) - JVS(2045) = B(1196) +! JVS(2045) = Jac_FULL(268,312) + JVS(2045) = 0 IF (DO_JVS(2046)) & -! JVS(2046) = Jac_FULL(266,243) - JVS(2046) = B(1080) +! JVS(2046) = Jac_FULL(268,313) + JVS(2046) = 0 IF (DO_JVS(2047)) & -! JVS(2047) = Jac_FULL(266,266) - JVS(2047) = -B(1314)-B(1636)-B(1799)-B(1800) +! JVS(2047) = Jac_FULL(268,314) + JVS(2047) = 0 IF (DO_JVS(2048)) & -! JVS(2048) = Jac_FULL(266,267) +! JVS(2048) = Jac_FULL(268,315) JVS(2048) = 0 IF (DO_JVS(2049)) & -! JVS(2049) = Jac_FULL(266,268) - JVS(2049) = 0 +! JVS(2049) = Jac_FULL(268,317) + JVS(2049) = 0.21*B(697)+0.54*B(699) IF (DO_JVS(2050)) & -! JVS(2050) = Jac_FULL(266,271) - JVS(2050) = 0.5*B(1197) +! JVS(2050) = Jac_FULL(268,338) + JVS(2050) = 0 IF (DO_JVS(2051)) & -! JVS(2051) = Jac_FULL(266,285) - JVS(2051) = B(1074) +! JVS(2051) = Jac_FULL(268,341) + JVS(2051) = 0 IF (DO_JVS(2052)) & -! JVS(2052) = Jac_FULL(266,286) - JVS(2052) = B(1068) +! JVS(2052) = Jac_FULL(268,343) + JVS(2052) = -B(88)+0.134*B(290)+B(292)+0.5*B(323)+0.449*B(1237)+0.187*B(1259)+0.3*B(1305)+0.5*B(1323)+0.364*B(1363)& + &+0.26*B(1466)+0.1*B(1471) IF (DO_JVS(2053)) & -! JVS(2053) = Jac_FULL(266,303) - JVS(2053) = 0.9*B(1316) +! JVS(2053) = Jac_FULL(268,345) + JVS(2053) = 0 IF (DO_JVS(2054)) & -! JVS(2054) = Jac_FULL(266,304) +! JVS(2054) = Jac_FULL(268,348) JVS(2054) = 0 IF (DO_JVS(2055)) & -! JVS(2055) = Jac_FULL(266,305) - JVS(2055) = 0 +! JVS(2055) = Jac_FULL(268,352) + JVS(2055) = -B(612) IF (DO_JVS(2056)) & -! JVS(2056) = Jac_FULL(266,311) - JVS(2056) = 0 +! JVS(2056) = Jac_FULL(268,353) + JVS(2056) = 0.21*B(698)+0.54*B(700) IF (DO_JVS(2057)) & -! JVS(2057) = Jac_FULL(266,337) - JVS(2057) = 0 +! JVS(2057) = Jac_FULL(268,356) + JVS(2057) = 0.5*B(1468)+0.2*B(1473) IF (DO_JVS(2058)) & -! JVS(2058) = Jac_FULL(266,345) - JVS(2058) = -B(1315)+0.9*B(1317) +! JVS(2058) = Jac_FULL(269,186) + JVS(2058) = B(1120) IF (DO_JVS(2059)) & -! JVS(2059) = Jac_FULL(266,346) - JVS(2059) = B(1069)+B(1075)+B(1081) +! JVS(2059) = Jac_FULL(269,208) + JVS(2059) = B(1128) IF (DO_JVS(2060)) & -! JVS(2060) = Jac_FULL(267,267) - JVS(2060) = -B(1105)-B(1107)-B(1111)-B(1631)-B(1786) +! JVS(2060) = Jac_FULL(269,209) + JVS(2060) = B(1127) IF (DO_JVS(2061)) & -! JVS(2061) = Jac_FULL(267,305) - JVS(2061) = B(989) +! JVS(2061) = Jac_FULL(269,210) + JVS(2061) = B(1113) IF (DO_JVS(2062)) & -! JVS(2062) = Jac_FULL(267,311) - JVS(2062) = 0.127*B(1156)+0.057*B(1157) +! JVS(2062) = Jac_FULL(269,236) + JVS(2062) = B(1196) IF (DO_JVS(2063)) & -! JVS(2063) = Jac_FULL(267,328) - JVS(2063) = 0.057*B(1158) +! JVS(2063) = Jac_FULL(269,245) + JVS(2063) = B(1080) IF (DO_JVS(2064)) & -! JVS(2064) = Jac_FULL(267,345) - JVS(2064) = -B(1106)-B(1108)-B(1112) +! JVS(2064) = Jac_FULL(269,269) + JVS(2064) = -B(1314)-B(1636)-B(1812)-B(1813) IF (DO_JVS(2065)) & -! JVS(2065) = Jac_FULL(267,346) - JVS(2065) = B(990) +! JVS(2065) = Jac_FULL(269,270) + JVS(2065) = 0 IF (DO_JVS(2066)) & -! JVS(2066) = Jac_FULL(268,268) - JVS(2066) = -B(1101)-B(1103)-B(1109)-B(1628)-B(1783) +! JVS(2066) = Jac_FULL(269,271) + JVS(2066) = 0 IF (DO_JVS(2067)) & -! JVS(2067) = Jac_FULL(268,304) - JVS(2067) = B(997) +! JVS(2067) = Jac_FULL(269,273) + JVS(2067) = 0.5*B(1197) IF (DO_JVS(2068)) & -! JVS(2068) = Jac_FULL(268,310) - JVS(2068) = 0.032*B(1154) +! JVS(2068) = Jac_FULL(269,288) + JVS(2068) = B(1074) IF (DO_JVS(2069)) & -! JVS(2069) = Jac_FULL(268,311) - JVS(2069) = 0.032*B(1155)+0.671*B(1156)+0.298*B(1157) +! JVS(2069) = Jac_FULL(269,289) + JVS(2069) = B(1068) IF (DO_JVS(2070)) & -! JVS(2070) = Jac_FULL(268,328) - JVS(2070) = 0.298*B(1158) +! JVS(2070) = Jac_FULL(269,307) + JVS(2070) = 0.9*B(1316) IF (DO_JVS(2071)) & -! JVS(2071) = Jac_FULL(268,345) - JVS(2071) = -B(1102)-B(1104)-B(1110) +! JVS(2071) = Jac_FULL(269,310) + JVS(2071) = 0 IF (DO_JVS(2072)) & -! JVS(2072) = Jac_FULL(268,346) - JVS(2072) = B(998) +! JVS(2072) = Jac_FULL(269,314) + JVS(2072) = 0 IF (DO_JVS(2073)) & -! JVS(2073) = Jac_FULL(269,158) - JVS(2073) = 0.5*B(1420) +! JVS(2073) = Jac_FULL(269,315) + JVS(2073) = 0 IF (DO_JVS(2074)) & -! JVS(2074) = Jac_FULL(269,195) - JVS(2074) = 0.258*B(1416) +! JVS(2074) = Jac_FULL(269,338) + JVS(2074) = B(1069)+B(1075)+B(1081) IF (DO_JVS(2075)) & -! JVS(2075) = Jac_FULL(269,200) +! JVS(2075) = Jac_FULL(269,341) JVS(2075) = 0 IF (DO_JVS(2076)) & -! JVS(2076) = Jac_FULL(269,202) - JVS(2076) = 0.5*B(1426) +! JVS(2076) = Jac_FULL(269,343) + JVS(2076) = -B(1315)+0.9*B(1317) IF (DO_JVS(2077)) & -! JVS(2077) = Jac_FULL(269,203) - JVS(2077) = B(1455) +! JVS(2077) = Jac_FULL(270,270) + JVS(2077) = -B(1105)-B(1107)-B(1111)-B(1631)-B(1799) IF (DO_JVS(2078)) & -! JVS(2078) = Jac_FULL(269,220) - JVS(2078) = 0 +! JVS(2078) = Jac_FULL(270,310) + JVS(2078) = 0.127*B(1156)+0.057*B(1157) IF (DO_JVS(2079)) & -! JVS(2079) = Jac_FULL(269,235) - JVS(2079) = 0 +! JVS(2079) = Jac_FULL(270,314) + JVS(2079) = B(989) IF (DO_JVS(2080)) & -! JVS(2080) = Jac_FULL(269,236) - JVS(2080) = 0 +! JVS(2080) = Jac_FULL(270,334) + JVS(2080) = 0.057*B(1158) IF (DO_JVS(2081)) & -! JVS(2081) = Jac_FULL(269,269) - JVS(2081) = -B(1457)-B(1459)-B(1640)-B(1805) +! JVS(2081) = Jac_FULL(270,338) + JVS(2081) = B(990) IF (DO_JVS(2082)) & -! JVS(2082) = Jac_FULL(269,328) - JVS(2082) = 0 +! JVS(2082) = Jac_FULL(270,343) + JVS(2082) = -B(1106)-B(1108)-B(1112) IF (DO_JVS(2083)) & -! JVS(2083) = Jac_FULL(269,335) - JVS(2083) = B(1456) +! JVS(2083) = Jac_FULL(271,271) + JVS(2083) = -B(1101)-B(1103)-B(1109)-B(1628)-B(1796) IF (DO_JVS(2084)) & -! JVS(2084) = Jac_FULL(269,337) - JVS(2084) = 0 +! JVS(2084) = Jac_FULL(271,308) + JVS(2084) = 0.032*B(1154) IF (DO_JVS(2085)) & -! JVS(2085) = Jac_FULL(269,341) - JVS(2085) = 0 +! JVS(2085) = Jac_FULL(271,310) + JVS(2085) = 0.032*B(1155)+0.671*B(1156)+0.298*B(1157) IF (DO_JVS(2086)) & -! JVS(2086) = Jac_FULL(269,345) - JVS(2086) = -B(1458) +! JVS(2086) = Jac_FULL(271,315) + JVS(2086) = B(997) IF (DO_JVS(2087)) & -! JVS(2087) = Jac_FULL(269,346) - JVS(2087) = 0 +! JVS(2087) = Jac_FULL(271,334) + JVS(2087) = 0.298*B(1158) IF (DO_JVS(2088)) & -! JVS(2088) = Jac_FULL(269,351) - JVS(2088) = 0.258*B(1417)+0.5*B(1421)+0.5*B(1427)-B(1460) +! JVS(2088) = Jac_FULL(271,338) + JVS(2088) = B(998) IF (DO_JVS(2089)) & -! JVS(2089) = Jac_FULL(270,60) - JVS(2089) = 0.636*B(1362) +! JVS(2089) = Jac_FULL(271,343) + JVS(2089) = -B(1102)-B(1104)-B(1110) IF (DO_JVS(2090)) & -! JVS(2090) = Jac_FULL(270,82) - JVS(2090) = 0.12*B(1383) +! JVS(2090) = Jac_FULL(272,162) + JVS(2090) = 0.5*B(1420) IF (DO_JVS(2091)) & -! JVS(2091) = Jac_FULL(270,101) - JVS(2091) = 0.1*B(1385) +! JVS(2091) = Jac_FULL(272,199) + JVS(2091) = 0.258*B(1416) IF (DO_JVS(2092)) & -! JVS(2092) = Jac_FULL(270,143) - JVS(2092) = 0.18*B(1381) +! JVS(2092) = Jac_FULL(272,203) + JVS(2092) = 0 IF (DO_JVS(2093)) & -! JVS(2093) = Jac_FULL(270,185) - JVS(2093) = 0.429*B(1768) +! JVS(2093) = Jac_FULL(272,205) + JVS(2093) = 0.5*B(1426) IF (DO_JVS(2094)) & -! JVS(2094) = Jac_FULL(270,194) - JVS(2094) = 0.125*B(1769) +! JVS(2094) = Jac_FULL(272,206) + JVS(2094) = B(1455) IF (DO_JVS(2095)) & -! JVS(2095) = Jac_FULL(270,195) - JVS(2095) = 0.06*B(1414) +! JVS(2095) = Jac_FULL(272,223) + JVS(2095) = 0 IF (DO_JVS(2096)) & -! JVS(2096) = Jac_FULL(270,198) - JVS(2096) = 0.571*B(1795) +! JVS(2096) = Jac_FULL(272,237) + JVS(2096) = 0 IF (DO_JVS(2097)) & -! JVS(2097) = Jac_FULL(270,200) - JVS(2097) = 0.1*B(1348) +! JVS(2097) = Jac_FULL(272,238) + JVS(2097) = 0 IF (DO_JVS(2098)) & -! JVS(2098) = Jac_FULL(270,210) - JVS(2098) = B(1328) +! JVS(2098) = Jac_FULL(272,272) + JVS(2098) = -B(1457)-B(1459)-B(1640)-B(1818) IF (DO_JVS(2099)) & -! JVS(2099) = Jac_FULL(270,220) +! JVS(2099) = Jac_FULL(272,334) JVS(2099) = 0 IF (DO_JVS(2100)) & -! JVS(2100) = Jac_FULL(270,221) - JVS(2100) = 0.6*B(1465)+0.6*B(1467)+0.2*B(1469) +! JVS(2100) = Jac_FULL(272,338) + JVS(2100) = 0 IF (DO_JVS(2101)) & -! JVS(2101) = Jac_FULL(270,223) +! JVS(2101) = Jac_FULL(272,341) JVS(2101) = 0 IF (DO_JVS(2102)) & -! JVS(2102) = Jac_FULL(270,224) - JVS(2102) = 0 +! JVS(2102) = Jac_FULL(272,343) + JVS(2102) = -B(1458) IF (DO_JVS(2103)) & -! JVS(2103) = Jac_FULL(270,226) - JVS(2103) = 0 +! JVS(2103) = Jac_FULL(272,345) + JVS(2103) = B(1456) IF (DO_JVS(2104)) & -! JVS(2104) = Jac_FULL(270,227) - JVS(2104) = 0.5*B(1766) +! JVS(2104) = Jac_FULL(272,348) + JVS(2104) = 0.258*B(1417)+0.5*B(1421)+0.5*B(1427)-B(1460) IF (DO_JVS(2105)) & -! JVS(2105) = Jac_FULL(270,230) +! JVS(2105) = Jac_FULL(272,356) JVS(2105) = 0 IF (DO_JVS(2106)) & -! JVS(2106) = Jac_FULL(270,231) - JVS(2106) = 0 +! JVS(2106) = Jac_FULL(273,225) + JVS(2106) = 0.67*B(1180) IF (DO_JVS(2107)) & -! JVS(2107) = Jac_FULL(270,232) - JVS(2107) = 0 +! JVS(2107) = Jac_FULL(273,273) + JVS(2107) = -B(1197)-B(1198)-B(1202)-B(1204) IF (DO_JVS(2108)) & -! JVS(2108) = Jac_FULL(270,233) - JVS(2108) = 0.065*B(154) +! JVS(2108) = Jac_FULL(273,308) + JVS(2108) = 0 IF (DO_JVS(2109)) & -! JVS(2109) = Jac_FULL(270,258) - JVS(2109) = 0.586*B(1793) +! JVS(2109) = Jac_FULL(273,310) + JVS(2109) = 0 IF (DO_JVS(2110)) & -! JVS(2110) = Jac_FULL(270,267) +! JVS(2110) = Jac_FULL(273,334) JVS(2110) = 0 IF (DO_JVS(2111)) & -! JVS(2111) = Jac_FULL(270,268) - JVS(2111) = 0 +! JVS(2111) = Jac_FULL(273,338) + JVS(2111) = -B(1203)-B(1205) IF (DO_JVS(2112)) & -! JVS(2112) = Jac_FULL(270,269) - JVS(2112) = 0 +! JVS(2112) = Jac_FULL(273,341) + JVS(2112) = -B(1199) IF (DO_JVS(2113)) & -! JVS(2113) = Jac_FULL(270,270) - JVS(2113) = -B(312)-B(316)-B(1615)-B(1667)-B(1668)-B(1669) +! JVS(2113) = Jac_FULL(273,343) + JVS(2113) = 0.67*B(1181) IF (DO_JVS(2114)) & -! JVS(2114) = Jac_FULL(270,271) - JVS(2114) = 0 +! JVS(2114) = Jac_FULL(274,63) + JVS(2114) = 0.636*B(1362) IF (DO_JVS(2115)) & -! JVS(2115) = Jac_FULL(270,276) - JVS(2115) = 0 +! JVS(2115) = Jac_FULL(274,85) + JVS(2115) = 0.12*B(1383) IF (DO_JVS(2116)) & -! JVS(2116) = Jac_FULL(270,285) - JVS(2116) = 0.8*B(1072)+0.52*B(1076) +! JVS(2116) = Jac_FULL(274,103) + JVS(2116) = 0.1*B(1385) IF (DO_JVS(2117)) & -! JVS(2117) = Jac_FULL(270,286) - JVS(2117) = 0 +! JVS(2117) = Jac_FULL(274,145) + JVS(2117) = 0.18*B(1381) IF (DO_JVS(2118)) & -! JVS(2118) = Jac_FULL(270,288) - JVS(2118) = 0 +! JVS(2118) = Jac_FULL(274,190) + JVS(2118) = 0.429*B(1781) IF (DO_JVS(2119)) & -! JVS(2119) = Jac_FULL(270,301) - JVS(2119) = 0 +! JVS(2119) = Jac_FULL(274,197) + JVS(2119) = 0.125*B(1782) IF (DO_JVS(2120)) & -! JVS(2120) = Jac_FULL(270,302) - JVS(2120) = 0 +! JVS(2120) = Jac_FULL(274,198) + JVS(2120) = 0.571*B(1808) IF (DO_JVS(2121)) & -! JVS(2121) = Jac_FULL(270,303) - JVS(2121) = 0 +! JVS(2121) = Jac_FULL(274,199) + JVS(2121) = 0.06*B(1414) IF (DO_JVS(2122)) & -! JVS(2122) = Jac_FULL(270,304) - JVS(2122) = 0 +! JVS(2122) = Jac_FULL(274,203) + JVS(2122) = 0.1*B(1348) IF (DO_JVS(2123)) & -! JVS(2123) = Jac_FULL(270,305) - JVS(2123) = 0 +! JVS(2123) = Jac_FULL(274,214) + JVS(2123) = B(1328) IF (DO_JVS(2124)) & -! JVS(2124) = Jac_FULL(270,306) - JVS(2124) = 0.134*B(289)+0.2*B(293) +! JVS(2124) = Jac_FULL(274,223) + JVS(2124) = 0 IF (DO_JVS(2125)) & -! JVS(2125) = Jac_FULL(270,310) - JVS(2125) = 0 +! JVS(2125) = Jac_FULL(274,224) + JVS(2125) = 0.6*B(1465)+0.6*B(1467)+0.2*B(1469) IF (DO_JVS(2126)) & -! JVS(2126) = Jac_FULL(270,311) +! JVS(2126) = Jac_FULL(274,226) JVS(2126) = 0 IF (DO_JVS(2127)) & -! JVS(2127) = Jac_FULL(270,328) +! JVS(2127) = Jac_FULL(274,228) JVS(2127) = 0 IF (DO_JVS(2128)) & -! JVS(2128) = Jac_FULL(270,335) - JVS(2128) = 0 +! JVS(2128) = Jac_FULL(274,229) + JVS(2128) = 0.065*B(154) IF (DO_JVS(2129)) & -! JVS(2129) = Jac_FULL(270,337) - JVS(2129) = 0.52*B(1077) +! JVS(2129) = Jac_FULL(274,230) + JVS(2129) = 0.5*B(1779) IF (DO_JVS(2130)) & -! JVS(2130) = Jac_FULL(270,341) - JVS(2130) = 0.6*B(1468) +! JVS(2130) = Jac_FULL(274,231) + JVS(2130) = 0 IF (DO_JVS(2131)) & -! JVS(2131) = Jac_FULL(270,345) - JVS(2131) = 0.065*B(155)+0.134*B(290)+0.2*B(294)-B(313)+B(1329)+0.1*B(1349)+0.636*B(1363)+0.18*B(1382)+0.12*B(1384)& - &+0.1*B(1386)+0.06*B(1415)+0.6*B(1466) +! JVS(2131) = Jac_FULL(274,233) + JVS(2131) = 0 IF (DO_JVS(2132)) & -! JVS(2132) = Jac_FULL(270,346) - JVS(2132) = 0.8*B(1073) +! JVS(2132) = Jac_FULL(274,235) + JVS(2132) = 0 IF (DO_JVS(2133)) & -! JVS(2133) = Jac_FULL(270,351) - JVS(2133) = -B(317) +! JVS(2133) = Jac_FULL(274,236) + JVS(2133) = 0 IF (DO_JVS(2134)) & -! JVS(2134) = Jac_FULL(271,222) - JVS(2134) = 0.67*B(1180) +! JVS(2134) = Jac_FULL(274,259) + JVS(2134) = 0.586*B(1806) IF (DO_JVS(2135)) & -! JVS(2135) = Jac_FULL(271,271) - JVS(2135) = -B(1197)-B(1198)-B(1202)-B(1204) +! JVS(2135) = Jac_FULL(274,270) + JVS(2135) = 0 IF (DO_JVS(2136)) & -! JVS(2136) = Jac_FULL(271,310) +! JVS(2136) = Jac_FULL(274,271) JVS(2136) = 0 IF (DO_JVS(2137)) & -! JVS(2137) = Jac_FULL(271,311) +! JVS(2137) = Jac_FULL(274,272) JVS(2137) = 0 IF (DO_JVS(2138)) & -! JVS(2138) = Jac_FULL(271,328) +! JVS(2138) = Jac_FULL(274,273) JVS(2138) = 0 IF (DO_JVS(2139)) & -! JVS(2139) = Jac_FULL(271,337) - JVS(2139) = -B(1199) +! JVS(2139) = Jac_FULL(274,274) + JVS(2139) = -B(312)-B(316)-B(1615)-B(1680)-B(1681)-B(1682) IF (DO_JVS(2140)) & -! JVS(2140) = Jac_FULL(271,345) - JVS(2140) = 0.67*B(1181) +! JVS(2140) = Jac_FULL(274,279) + JVS(2140) = 0 IF (DO_JVS(2141)) & -! JVS(2141) = Jac_FULL(271,346) - JVS(2141) = -B(1203)-B(1205) +! JVS(2141) = Jac_FULL(274,288) + JVS(2141) = 0.8*B(1072)+0.52*B(1076) IF (DO_JVS(2142)) & -! JVS(2142) = Jac_FULL(272,211) - JVS(2142) = 0.18*B(818) +! JVS(2142) = Jac_FULL(274,289) + JVS(2142) = 0 IF (DO_JVS(2143)) & -! JVS(2143) = Jac_FULL(272,237) - JVS(2143) = B(812)+0.27*B(814) +! JVS(2143) = Jac_FULL(274,291) + JVS(2143) = 0 IF (DO_JVS(2144)) & -! JVS(2144) = Jac_FULL(272,272) - JVS(2144) = -B(824)-B(826)-B(828)-B(830) +! JVS(2144) = Jac_FULL(274,305) + JVS(2144) = 0 IF (DO_JVS(2145)) & -! JVS(2145) = Jac_FULL(272,281) +! JVS(2145) = Jac_FULL(274,306) JVS(2145) = 0 IF (DO_JVS(2146)) & -! JVS(2146) = Jac_FULL(272,324) +! JVS(2146) = Jac_FULL(274,307) JVS(2146) = 0 IF (DO_JVS(2147)) & -! JVS(2147) = Jac_FULL(272,328) - JVS(2147) = -B(831) +! JVS(2147) = Jac_FULL(274,308) + JVS(2147) = 0 IF (DO_JVS(2148)) & -! JVS(2148) = Jac_FULL(272,337) - JVS(2148) = -B(827) +! JVS(2148) = Jac_FULL(274,309) + JVS(2148) = 0.134*B(289)+0.2*B(293) IF (DO_JVS(2149)) & -! JVS(2149) = Jac_FULL(272,341) - JVS(2149) = 0.27*B(815) +! JVS(2149) = Jac_FULL(274,310) + JVS(2149) = 0 IF (DO_JVS(2150)) & -! JVS(2150) = Jac_FULL(272,345) - JVS(2150) = B(813)+0.18*B(819) +! JVS(2150) = Jac_FULL(274,314) + JVS(2150) = 0 IF (DO_JVS(2151)) & -! JVS(2151) = Jac_FULL(272,346) - JVS(2151) = -B(825) +! JVS(2151) = Jac_FULL(274,315) + JVS(2151) = 0 IF (DO_JVS(2152)) & -! JVS(2152) = Jac_FULL(272,351) - JVS(2152) = -B(829) +! JVS(2152) = Jac_FULL(274,334) + JVS(2152) = 0 IF (DO_JVS(2153)) & -! JVS(2153) = Jac_FULL(273,129) - JVS(2153) = B(784) +! JVS(2153) = Jac_FULL(274,338) + JVS(2153) = 0.8*B(1073) IF (DO_JVS(2154)) & -! JVS(2154) = Jac_FULL(273,138) - JVS(2154) = 0 +! JVS(2154) = Jac_FULL(274,341) + JVS(2154) = 0.52*B(1077) IF (DO_JVS(2155)) & -! JVS(2155) = Jac_FULL(273,161) - JVS(2155) = B(796) +! JVS(2155) = Jac_FULL(274,343) + JVS(2155) = 0.065*B(155)+0.134*B(290)+0.2*B(294)-B(313)+B(1329)+0.1*B(1349)+0.636*B(1363)+0.18*B(1382)+0.12*B(1384)& + &+0.1*B(1386)+0.06*B(1415)+0.6*B(1466) IF (DO_JVS(2156)) & -! JVS(2156) = Jac_FULL(273,191) - JVS(2156) = 0.1*B(733) +! JVS(2156) = Jac_FULL(274,345) + JVS(2156) = 0 IF (DO_JVS(2157)) & -! JVS(2157) = Jac_FULL(273,273) - JVS(2157) = -B(786)-B(788)-B(790)-B(792)-B(794) +! JVS(2157) = Jac_FULL(274,348) + JVS(2157) = -B(317) IF (DO_JVS(2158)) & -! JVS(2158) = Jac_FULL(273,275) - JVS(2158) = 0 +! JVS(2158) = Jac_FULL(274,356) + JVS(2158) = 0.6*B(1468) IF (DO_JVS(2159)) & -! JVS(2159) = Jac_FULL(273,324) - JVS(2159) = 0 +! JVS(2159) = Jac_FULL(275,132) + JVS(2159) = B(784) IF (DO_JVS(2160)) & -! JVS(2160) = Jac_FULL(273,328) - JVS(2160) = -B(793) +! JVS(2160) = Jac_FULL(275,141) + JVS(2160) = 0 IF (DO_JVS(2161)) & -! JVS(2161) = Jac_FULL(273,337) - JVS(2161) = -B(787) +! JVS(2161) = Jac_FULL(275,164) + JVS(2161) = B(796) IF (DO_JVS(2162)) & -! JVS(2162) = Jac_FULL(273,341) - JVS(2162) = 0.1*B(734) +! JVS(2162) = Jac_FULL(275,194) + JVS(2162) = 0.1*B(733) IF (DO_JVS(2163)) & -! JVS(2163) = Jac_FULL(273,345) - JVS(2163) = B(785)+B(797) +! JVS(2163) = Jac_FULL(275,275) + JVS(2163) = -B(786)-B(788)-B(790)-B(792)-B(794) IF (DO_JVS(2164)) & -! JVS(2164) = Jac_FULL(273,346) - JVS(2164) = -B(789)-B(791) +! JVS(2164) = Jac_FULL(275,276) + JVS(2164) = 0 IF (DO_JVS(2165)) & -! JVS(2165) = Jac_FULL(273,351) - JVS(2165) = -B(795) +! JVS(2165) = Jac_FULL(275,328) + JVS(2165) = 0 IF (DO_JVS(2166)) & -! JVS(2166) = Jac_FULL(274,57) - JVS(2166) = B(844) +! JVS(2166) = Jac_FULL(275,334) + JVS(2166) = -B(793) IF (DO_JVS(2167)) & -! JVS(2167) = Jac_FULL(274,161) - JVS(2167) = 0.27*B(1813) +! JVS(2167) = Jac_FULL(275,338) + JVS(2167) = -B(789)-B(791) IF (DO_JVS(2168)) & -! JVS(2168) = Jac_FULL(274,162) - JVS(2168) = 0.085*B(798) +! JVS(2168) = Jac_FULL(275,341) + JVS(2168) = -B(787) IF (DO_JVS(2169)) & -! JVS(2169) = Jac_FULL(274,163) - JVS(2169) = B(832)+B(834) +! JVS(2169) = Jac_FULL(275,343) + JVS(2169) = B(785)+B(797) IF (DO_JVS(2170)) & -! JVS(2170) = Jac_FULL(274,167) - JVS(2170) = 0.715*B(725) +! JVS(2170) = Jac_FULL(275,348) + JVS(2170) = -B(795) IF (DO_JVS(2171)) & -! JVS(2171) = Jac_FULL(274,169) - JVS(2171) = B(847) +! JVS(2171) = Jac_FULL(275,356) + JVS(2171) = 0.1*B(734) IF (DO_JVS(2172)) & -! JVS(2172) = Jac_FULL(274,177) - JVS(2172) = 0.5*B(836) +! JVS(2172) = Jac_FULL(276,112) + JVS(2172) = B(782) IF (DO_JVS(2173)) & -! JVS(2173) = Jac_FULL(274,211) - JVS(2173) = 0.32*B(818)+0.4*B(820) +! JVS(2173) = Jac_FULL(276,194) + JVS(2173) = 0.255*B(731) IF (DO_JVS(2174)) & -! JVS(2174) = Jac_FULL(274,237) - JVS(2174) = 0.73*B(814) +! JVS(2174) = Jac_FULL(276,222) + JVS(2174) = 0.15*B(727) IF (DO_JVS(2175)) & -! JVS(2175) = Jac_FULL(274,255) - JVS(2175) = B(806)+0.6*B(808)+0.9*B(1817) +! JVS(2175) = Jac_FULL(276,276) + JVS(2175) = -B(774)-B(776)-B(778)-B(881)-B(883) IF (DO_JVS(2176)) & -! JVS(2176) = Jac_FULL(274,272) - JVS(2176) = 0 +! JVS(2176) = Jac_FULL(276,328) + JVS(2176) = -B(884) IF (DO_JVS(2177)) & -! JVS(2177) = Jac_FULL(274,273) - JVS(2177) = 0.27*B(790)+0.23*B(792)+0.27*B(794) +! JVS(2177) = Jac_FULL(276,334) + JVS(2177) = -B(882) IF (DO_JVS(2178)) & -! JVS(2178) = Jac_FULL(274,274) - JVS(2178) = -B(838)-B(840)-B(842)-B(845)-B(897)-B(899) +! JVS(2178) = Jac_FULL(276,338) + JVS(2178) = -B(777) IF (DO_JVS(2179)) & -! JVS(2179) = Jac_FULL(274,275) - JVS(2179) = 0 +! JVS(2179) = Jac_FULL(276,341) + JVS(2179) = -B(775) IF (DO_JVS(2180)) & -! JVS(2180) = Jac_FULL(274,281) - JVS(2180) = 0 +! JVS(2180) = Jac_FULL(276,343) + JVS(2180) = 0.15*B(728)+0.255*B(732)+B(783) IF (DO_JVS(2181)) & -! JVS(2181) = Jac_FULL(274,324) - JVS(2181) = -B(900) +! JVS(2181) = Jac_FULL(276,348) + JVS(2181) = -B(779) IF (DO_JVS(2182)) & -! JVS(2182) = Jac_FULL(274,328) - JVS(2182) = 0.23*B(793)-B(898) +! JVS(2182) = Jac_FULL(276,356) + JVS(2182) = 0 IF (DO_JVS(2183)) & -! JVS(2183) = Jac_FULL(274,335) - JVS(2183) = -B(843) +! JVS(2183) = Jac_FULL(277,60) + JVS(2183) = B(844) IF (DO_JVS(2184)) & -! JVS(2184) = Jac_FULL(274,337) - JVS(2184) = -B(839) +! JVS(2184) = Jac_FULL(277,164) + JVS(2184) = 0.27*B(1826) IF (DO_JVS(2185)) & -! JVS(2185) = Jac_FULL(274,341) - JVS(2185) = 0.715*B(726)+0.6*B(809)+0.73*B(815)+0.4*B(821) +! JVS(2185) = Jac_FULL(277,165) + JVS(2185) = 0.085*B(798) IF (DO_JVS(2186)) & -! JVS(2186) = Jac_FULL(274,345) - JVS(2186) = 0.085*B(799)+B(807)+0.32*B(819)+B(833)+0.5*B(837)+B(848) +! JVS(2186) = Jac_FULL(277,166) + JVS(2186) = B(832)+B(834) IF (DO_JVS(2187)) & -! JVS(2187) = Jac_FULL(274,346) - JVS(2187) = 0.27*B(791)-B(841) +! JVS(2187) = Jac_FULL(277,170) + JVS(2187) = 0.715*B(725) IF (DO_JVS(2188)) & -! JVS(2188) = Jac_FULL(274,351) - JVS(2188) = 0.27*B(795)+B(835)-B(846) +! JVS(2188) = Jac_FULL(277,171) + JVS(2188) = B(847) IF (DO_JVS(2189)) & -! JVS(2189) = Jac_FULL(275,112) - JVS(2189) = B(782) +! JVS(2189) = Jac_FULL(277,180) + JVS(2189) = 0.5*B(836) IF (DO_JVS(2190)) & -! JVS(2190) = Jac_FULL(275,191) - JVS(2190) = 0.255*B(731) +! JVS(2190) = Jac_FULL(277,212) + JVS(2190) = 0.32*B(818)+0.4*B(820) IF (DO_JVS(2191)) & -! JVS(2191) = Jac_FULL(275,219) - JVS(2191) = 0.15*B(727) +! JVS(2191) = Jac_FULL(277,241) + JVS(2191) = 0.73*B(814) IF (DO_JVS(2192)) & -! JVS(2192) = Jac_FULL(275,275) - JVS(2192) = -B(774)-B(776)-B(778)-B(881)-B(883) +! JVS(2192) = Jac_FULL(277,256) + JVS(2192) = B(806)+0.6*B(808)+0.9*B(1830) IF (DO_JVS(2193)) & -! JVS(2193) = Jac_FULL(275,324) - JVS(2193) = -B(884) +! JVS(2193) = Jac_FULL(277,275) + JVS(2193) = 0.27*B(790)+0.23*B(792)+0.27*B(794) IF (DO_JVS(2194)) & -! JVS(2194) = Jac_FULL(275,328) - JVS(2194) = -B(882) +! JVS(2194) = Jac_FULL(277,276) + JVS(2194) = 0 IF (DO_JVS(2195)) & -! JVS(2195) = Jac_FULL(275,337) - JVS(2195) = -B(775) +! JVS(2195) = Jac_FULL(277,277) + JVS(2195) = -B(838)-B(840)-B(842)-B(845)-B(897)-B(899) IF (DO_JVS(2196)) & -! JVS(2196) = Jac_FULL(275,341) +! JVS(2196) = Jac_FULL(277,278) JVS(2196) = 0 IF (DO_JVS(2197)) & -! JVS(2197) = Jac_FULL(275,345) - JVS(2197) = 0.15*B(728)+0.255*B(732)+B(783) +! JVS(2197) = Jac_FULL(277,284) + JVS(2197) = 0 IF (DO_JVS(2198)) & -! JVS(2198) = Jac_FULL(275,346) - JVS(2198) = -B(777) +! JVS(2198) = Jac_FULL(277,328) + JVS(2198) = -B(900) IF (DO_JVS(2199)) & -! JVS(2199) = Jac_FULL(275,351) - JVS(2199) = -B(779) +! JVS(2199) = Jac_FULL(277,334) + JVS(2199) = 0.23*B(793)-B(898) IF (DO_JVS(2200)) & -! JVS(2200) = Jac_FULL(276,276) - JVS(2200) = -B(635)-B(947)-B(949)-B(951)-B(953)-B(955)-B(1147) +! JVS(2200) = Jac_FULL(277,338) + JVS(2200) = 0.27*B(791)-B(841) IF (DO_JVS(2201)) & -! JVS(2201) = Jac_FULL(276,340) - JVS(2201) = -B(636) +! JVS(2201) = Jac_FULL(277,341) + JVS(2201) = -B(839) IF (DO_JVS(2202)) & -! JVS(2202) = Jac_FULL(276,341) - JVS(2202) = -B(948) +! JVS(2202) = Jac_FULL(277,343) + JVS(2202) = 0.085*B(799)+B(807)+0.32*B(819)+B(833)+0.5*B(837)+B(848) IF (DO_JVS(2203)) & -! JVS(2203) = Jac_FULL(276,345) - JVS(2203) = -B(950)-B(952)-B(954)-B(956) +! JVS(2203) = Jac_FULL(277,345) + JVS(2203) = -B(843) IF (DO_JVS(2204)) & -! JVS(2204) = Jac_FULL(276,351) - JVS(2204) = -B(1148) +! JVS(2204) = Jac_FULL(277,348) + JVS(2204) = 0.27*B(795)+B(835)-B(846) IF (DO_JVS(2205)) & -! JVS(2205) = Jac_FULL(277,111) - JVS(2205) = 0.6*B(741) +! JVS(2205) = Jac_FULL(277,356) + JVS(2205) = 0.715*B(726)+0.6*B(809)+0.73*B(815)+0.4*B(821) IF (DO_JVS(2206)) & -! JVS(2206) = Jac_FULL(277,191) - JVS(2206) = 0.67*B(731)+0.5*B(733) +! JVS(2206) = Jac_FULL(278,212) + JVS(2206) = 0.18*B(818) IF (DO_JVS(2207)) & -! JVS(2207) = Jac_FULL(277,219) - JVS(2207) = 0.15*B(727) +! JVS(2207) = Jac_FULL(278,241) + JVS(2207) = B(812)+0.27*B(814) IF (DO_JVS(2208)) & -! JVS(2208) = Jac_FULL(277,277) - JVS(2208) = -B(735)-B(737)-B(739)-B(877)-B(879) +! JVS(2208) = Jac_FULL(278,278) + JVS(2208) = -B(824)-B(826)-B(828)-B(830) IF (DO_JVS(2209)) & -! JVS(2209) = Jac_FULL(277,324) - JVS(2209) = -B(880) +! JVS(2209) = Jac_FULL(278,284) + JVS(2209) = 0 IF (DO_JVS(2210)) & -! JVS(2210) = Jac_FULL(277,328) - JVS(2210) = -B(878) +! JVS(2210) = Jac_FULL(278,328) + JVS(2210) = 0 IF (DO_JVS(2211)) & -! JVS(2211) = Jac_FULL(277,337) - JVS(2211) = -B(736) +! JVS(2211) = Jac_FULL(278,334) + JVS(2211) = -B(831) IF (DO_JVS(2212)) & -! JVS(2212) = Jac_FULL(277,341) - JVS(2212) = 0.5*B(734) +! JVS(2212) = Jac_FULL(278,338) + JVS(2212) = -B(825) IF (DO_JVS(2213)) & -! JVS(2213) = Jac_FULL(277,345) - JVS(2213) = 0.15*B(728)+0.67*B(732)+0.6*B(742) +! JVS(2213) = Jac_FULL(278,341) + JVS(2213) = -B(827) IF (DO_JVS(2214)) & -! JVS(2214) = Jac_FULL(277,346) - JVS(2214) = -B(738) +! JVS(2214) = Jac_FULL(278,343) + JVS(2214) = B(813)+0.18*B(819) IF (DO_JVS(2215)) & -! JVS(2215) = Jac_FULL(277,351) - JVS(2215) = -B(740) +! JVS(2215) = Jac_FULL(278,348) + JVS(2215) = -B(829) IF (DO_JVS(2216)) & -! JVS(2216) = Jac_FULL(278,66) - JVS(2216) = B(760)+B(1810) +! JVS(2216) = Jac_FULL(278,356) + JVS(2216) = 0.27*B(815) IF (DO_JVS(2217)) & -! JVS(2217) = Jac_FULL(278,74) - JVS(2217) = B(1809) +! JVS(2217) = Jac_FULL(279,279) + JVS(2217) = -B(635)-B(947)-B(949)-B(951)-B(953)-B(955)-B(1147) IF (DO_JVS(2218)) & -! JVS(2218) = Jac_FULL(278,160) - JVS(2218) = 0.5*B(770) +! JVS(2218) = Jac_FULL(279,343) + JVS(2218) = -B(950)-B(952)-B(954)-B(956) IF (DO_JVS(2219)) & -! JVS(2219) = Jac_FULL(278,225) - JVS(2219) = B(1808) +! JVS(2219) = Jac_FULL(279,348) + JVS(2219) = -B(1148) IF (DO_JVS(2220)) & -! JVS(2220) = Jac_FULL(278,257) - JVS(2220) = 0.44*B(749)+B(751)+B(756)+0.75*B(893)+B(895) +! JVS(2220) = Jac_FULL(279,352) + JVS(2220) = -B(636) IF (DO_JVS(2221)) & -! JVS(2221) = Jac_FULL(278,277) - JVS(2221) = 0 +! JVS(2221) = Jac_FULL(279,356) + JVS(2221) = -B(948) IF (DO_JVS(2222)) & -! JVS(2222) = Jac_FULL(278,278) - JVS(2222) = -B(762)-B(764)-B(766)-B(768) +! JVS(2222) = Jac_FULL(280,170) + JVS(2222) = 0.5*B(721) IF (DO_JVS(2223)) & -! JVS(2223) = Jac_FULL(278,324) - JVS(2223) = B(896) +! JVS(2223) = Jac_FULL(280,194) + JVS(2223) = 0.1*B(717) IF (DO_JVS(2224)) & -! JVS(2224) = Jac_FULL(278,328) - JVS(2224) = -B(769)+0.75*B(894) +! JVS(2224) = Jac_FULL(280,196) + JVS(2224) = 0.5*B(869) IF (DO_JVS(2225)) & -! JVS(2225) = Jac_FULL(278,335) - JVS(2225) = 0 +! JVS(2225) = Jac_FULL(280,222) + JVS(2225) = 0.1*B(719) IF (DO_JVS(2226)) & -! JVS(2226) = Jac_FULL(278,337) - JVS(2226) = 0.44*B(750)-B(763) +! JVS(2226) = Jac_FULL(280,234) + JVS(2226) = 0.5*B(863) IF (DO_JVS(2227)) & -! JVS(2227) = Jac_FULL(278,341) - JVS(2227) = 0 +! JVS(2227) = Jac_FULL(280,263) + JVS(2227) = 0.5*B(875) IF (DO_JVS(2228)) & -! JVS(2228) = Jac_FULL(278,345) - JVS(2228) = B(761)+0.5*B(771) +! JVS(2228) = Jac_FULL(280,280) + JVS(2228) = -B(901)-B(905)-B(909)-B(913)-B(917)-2*B(921)-B(922) IF (DO_JVS(2229)) & -! JVS(2229) = Jac_FULL(278,346) - JVS(2229) = B(752)-B(765) +! JVS(2229) = Jac_FULL(280,292) + JVS(2229) = -B(923) IF (DO_JVS(2230)) & -! JVS(2230) = Jac_FULL(278,351) - JVS(2230) = B(757)-B(767) +! JVS(2230) = Jac_FULL(280,294) + JVS(2230) = 0 IF (DO_JVS(2231)) & -! JVS(2231) = Jac_FULL(279,249) - JVS(2231) = B(224) +! JVS(2231) = Jac_FULL(280,328) + JVS(2231) = -B(914) IF (DO_JVS(2232)) & -! JVS(2232) = Jac_FULL(279,279) - JVS(2232) = -B(197)-B(1688) +! JVS(2232) = Jac_FULL(280,334) + JVS(2232) = -B(910) IF (DO_JVS(2233)) & -! JVS(2233) = Jac_FULL(279,300) - JVS(2233) = B(173) +! JVS(2233) = Jac_FULL(280,338) + JVS(2233) = -B(902) IF (DO_JVS(2234)) & -! JVS(2234) = Jac_FULL(279,320) - JVS(2234) = 0.072*B(185) +! JVS(2234) = Jac_FULL(280,341) + JVS(2234) = -B(906) IF (DO_JVS(2235)) & -! JVS(2235) = Jac_FULL(279,324) +! JVS(2235) = Jac_FULL(280,343) JVS(2235) = 0 IF (DO_JVS(2236)) & -! JVS(2236) = Jac_FULL(279,328) - JVS(2236) = 0 +! JVS(2236) = Jac_FULL(280,348) + JVS(2236) = 0.1*B(718)+0.1*B(720)+0.5*B(722)+0.5*B(864)+0.5*B(870)+0.5*B(876)-B(918) IF (DO_JVS(2237)) & -! JVS(2237) = Jac_FULL(279,337) - JVS(2237) = B(225) +! JVS(2237) = Jac_FULL(280,356) + JVS(2237) = 0 IF (DO_JVS(2238)) & -! JVS(2238) = Jac_FULL(279,345) - JVS(2238) = -B(198) +! JVS(2238) = Jac_FULL(281,111) + JVS(2238) = 0.6*B(741) IF (DO_JVS(2239)) & -! JVS(2239) = Jac_FULL(279,346) - JVS(2239) = B(174)+0.072*B(186) +! JVS(2239) = Jac_FULL(281,194) + JVS(2239) = 0.67*B(731)+0.5*B(733) IF (DO_JVS(2240)) & -! JVS(2240) = Jac_FULL(280,167) - JVS(2240) = 0.5*B(721) +! JVS(2240) = Jac_FULL(281,222) + JVS(2240) = 0.15*B(727) IF (DO_JVS(2241)) & -! JVS(2241) = Jac_FULL(280,191) - JVS(2241) = 0.1*B(717) +! JVS(2241) = Jac_FULL(281,281) + JVS(2241) = -B(735)-B(737)-B(739)-B(877)-B(879) IF (DO_JVS(2242)) & -! JVS(2242) = Jac_FULL(280,193) - JVS(2242) = 0.5*B(869) +! JVS(2242) = Jac_FULL(281,328) + JVS(2242) = -B(880) IF (DO_JVS(2243)) & -! JVS(2243) = Jac_FULL(280,219) - JVS(2243) = 0.1*B(719) +! JVS(2243) = Jac_FULL(281,334) + JVS(2243) = -B(878) IF (DO_JVS(2244)) & -! JVS(2244) = Jac_FULL(280,229) - JVS(2244) = 0.5*B(863) +! JVS(2244) = Jac_FULL(281,338) + JVS(2244) = -B(738) IF (DO_JVS(2245)) & -! JVS(2245) = Jac_FULL(280,262) - JVS(2245) = 0.5*B(875) +! JVS(2245) = Jac_FULL(281,341) + JVS(2245) = -B(736) IF (DO_JVS(2246)) & -! JVS(2246) = Jac_FULL(280,280) - JVS(2246) = -B(901)-B(905)-B(909)-B(913)-B(917)-2*B(921)-B(922) +! JVS(2246) = Jac_FULL(281,343) + JVS(2246) = 0.15*B(728)+0.67*B(732)+0.6*B(742) IF (DO_JVS(2247)) & -! JVS(2247) = Jac_FULL(280,289) - JVS(2247) = -B(923) +! JVS(2247) = Jac_FULL(281,348) + JVS(2247) = -B(740) IF (DO_JVS(2248)) & -! JVS(2248) = Jac_FULL(280,291) - JVS(2248) = 0 +! JVS(2248) = Jac_FULL(281,356) + JVS(2248) = 0.5*B(734) IF (DO_JVS(2249)) & -! JVS(2249) = Jac_FULL(280,324) - JVS(2249) = -B(914) +! JVS(2249) = Jac_FULL(282,69) + JVS(2249) = B(760)+B(1823) IF (DO_JVS(2250)) & -! JVS(2250) = Jac_FULL(280,328) - JVS(2250) = -B(910) +! JVS(2250) = Jac_FULL(282,76) + JVS(2250) = B(1822) IF (DO_JVS(2251)) & -! JVS(2251) = Jac_FULL(280,337) - JVS(2251) = -B(906) +! JVS(2251) = Jac_FULL(282,163) + JVS(2251) = 0.5*B(770) IF (DO_JVS(2252)) & -! JVS(2252) = Jac_FULL(280,341) - JVS(2252) = 0 +! JVS(2252) = Jac_FULL(282,227) + JVS(2252) = B(1821) IF (DO_JVS(2253)) & -! JVS(2253) = Jac_FULL(280,345) - JVS(2253) = 0 +! JVS(2253) = Jac_FULL(282,261) + JVS(2253) = 0.44*B(749)+B(751)+B(756)+0.75*B(893)+B(895) IF (DO_JVS(2254)) & -! JVS(2254) = Jac_FULL(280,346) - JVS(2254) = -B(902) +! JVS(2254) = Jac_FULL(282,281) + JVS(2254) = 0 IF (DO_JVS(2255)) & -! JVS(2255) = Jac_FULL(280,351) - JVS(2255) = 0.1*B(718)+0.1*B(720)+0.5*B(722)+0.5*B(864)+0.5*B(870)+0.5*B(876)-B(918) +! JVS(2255) = Jac_FULL(282,282) + JVS(2255) = -B(762)-B(764)-B(766)-B(768) IF (DO_JVS(2256)) & -! JVS(2256) = Jac_FULL(281,167) - JVS(2256) = B(723) +! JVS(2256) = Jac_FULL(282,328) + JVS(2256) = B(896) IF (DO_JVS(2257)) & -! JVS(2257) = Jac_FULL(281,191) - JVS(2257) = 0.075*B(731) +! JVS(2257) = Jac_FULL(282,334) + JVS(2257) = -B(769)+0.75*B(894) IF (DO_JVS(2258)) & -! JVS(2258) = Jac_FULL(281,219) - JVS(2258) = 0.2*B(727) +! JVS(2258) = Jac_FULL(282,338) + JVS(2258) = B(752)-B(765) IF (DO_JVS(2259)) & -! JVS(2259) = Jac_FULL(281,281) - JVS(2259) = -B(800)-B(802)-B(804)-B(885)-B(887) +! JVS(2259) = Jac_FULL(282,341) + JVS(2259) = 0.44*B(750)-B(763) IF (DO_JVS(2260)) & -! JVS(2260) = Jac_FULL(281,324) - JVS(2260) = -B(888) +! JVS(2260) = Jac_FULL(282,343) + JVS(2260) = B(761)+0.5*B(771) IF (DO_JVS(2261)) & -! JVS(2261) = Jac_FULL(281,328) - JVS(2261) = -B(886) +! JVS(2261) = Jac_FULL(282,345) + JVS(2261) = 0 IF (DO_JVS(2262)) & -! JVS(2262) = Jac_FULL(281,337) - JVS(2262) = -B(801) +! JVS(2262) = Jac_FULL(282,348) + JVS(2262) = B(757)-B(767) IF (DO_JVS(2263)) & -! JVS(2263) = Jac_FULL(281,341) +! JVS(2263) = Jac_FULL(282,356) JVS(2263) = 0 IF (DO_JVS(2264)) & -! JVS(2264) = Jac_FULL(281,345) - JVS(2264) = B(724)+0.2*B(728)+0.075*B(732) +! JVS(2264) = Jac_FULL(283,252) + JVS(2264) = B(224) IF (DO_JVS(2265)) & -! JVS(2265) = Jac_FULL(281,346) - JVS(2265) = -B(803) +! JVS(2265) = Jac_FULL(283,283) + JVS(2265) = -B(197)-B(1701) IF (DO_JVS(2266)) & -! JVS(2266) = Jac_FULL(281,351) - JVS(2266) = -B(805) +! JVS(2266) = Jac_FULL(283,304) + JVS(2266) = B(173) IF (DO_JVS(2267)) & -! JVS(2267) = Jac_FULL(282,234) - JVS(2267) = 0.2*B(1370) +! JVS(2267) = Jac_FULL(283,324) + JVS(2267) = 0.072*B(185) IF (DO_JVS(2268)) & -! JVS(2268) = Jac_FULL(282,246) +! JVS(2268) = Jac_FULL(283,328) JVS(2268) = 0 IF (DO_JVS(2269)) & -! JVS(2269) = Jac_FULL(282,249) - JVS(2269) = 0.25*B(259) +! JVS(2269) = Jac_FULL(283,334) + JVS(2269) = 0 IF (DO_JVS(2270)) & -! JVS(2270) = Jac_FULL(282,250) - JVS(2270) = 0.25*B(267) +! JVS(2270) = Jac_FULL(283,338) + JVS(2270) = B(174)+0.072*B(186) IF (DO_JVS(2271)) & -! JVS(2271) = Jac_FULL(282,260) - JVS(2271) = 0.25*B(216) +! JVS(2271) = Jac_FULL(283,341) + JVS(2271) = B(225) IF (DO_JVS(2272)) & -! JVS(2272) = Jac_FULL(282,272) - JVS(2272) = 0.25*B(830) +! JVS(2272) = Jac_FULL(283,343) + JVS(2272) = -B(198) IF (DO_JVS(2273)) & -! JVS(2273) = Jac_FULL(282,273) - JVS(2273) = 0.25*B(792) +! JVS(2273) = Jac_FULL(284,170) + JVS(2273) = B(723) IF (DO_JVS(2274)) & -! JVS(2274) = Jac_FULL(282,275) - JVS(2274) = 0.25*B(881) +! JVS(2274) = Jac_FULL(284,194) + JVS(2274) = 0.075*B(731) IF (DO_JVS(2275)) & -! JVS(2275) = Jac_FULL(282,277) - JVS(2275) = 0.25*B(877) +! JVS(2275) = Jac_FULL(284,222) + JVS(2275) = 0.2*B(727) IF (DO_JVS(2276)) & -! JVS(2276) = Jac_FULL(282,278) - JVS(2276) = 0.25*B(768) +! JVS(2276) = Jac_FULL(284,284) + JVS(2276) = -B(800)-B(802)-B(804)-B(885)-B(887) IF (DO_JVS(2277)) & -! JVS(2277) = Jac_FULL(282,279) - JVS(2277) = 0 +! JVS(2277) = Jac_FULL(284,328) + JVS(2277) = -B(888) IF (DO_JVS(2278)) & -! JVS(2278) = Jac_FULL(282,281) - JVS(2278) = 0.25*B(885) +! JVS(2278) = Jac_FULL(284,334) + JVS(2278) = -B(886) IF (DO_JVS(2279)) & -! JVS(2279) = Jac_FULL(282,282) - JVS(2279) = -B(89)-B(623) +! JVS(2279) = Jac_FULL(284,338) + JVS(2279) = -B(803) IF (DO_JVS(2280)) & -! JVS(2280) = Jac_FULL(282,289) - JVS(2280) = 0.25*B(911) +! JVS(2280) = Jac_FULL(284,341) + JVS(2280) = -B(801) IF (DO_JVS(2281)) & -! JVS(2281) = Jac_FULL(282,290) - JVS(2281) = 0 +! JVS(2281) = Jac_FULL(284,343) + JVS(2281) = B(724)+0.2*B(728)+0.075*B(732) IF (DO_JVS(2282)) & -! JVS(2282) = Jac_FULL(282,291) - JVS(2282) = 0.25*B(889) +! JVS(2282) = Jac_FULL(284,348) + JVS(2282) = -B(805) IF (DO_JVS(2283)) & -! JVS(2283) = Jac_FULL(282,296) - JVS(2283) = 0.25*B(247) +! JVS(2283) = Jac_FULL(284,356) + JVS(2283) = 0 IF (DO_JVS(2284)) & -! JVS(2284) = Jac_FULL(282,300) - JVS(2284) = 0.25*B(257) +! JVS(2284) = Jac_FULL(285,239) + JVS(2284) = 0.2*B(1370) IF (DO_JVS(2285)) & -! JVS(2285) = Jac_FULL(282,306) - JVS(2285) = 0.1*B(1666) +! JVS(2285) = Jac_FULL(285,250) + JVS(2285) = 0 IF (DO_JVS(2286)) & -! JVS(2286) = Jac_FULL(282,310) - JVS(2286) = 0.034*B(1159) +! JVS(2286) = Jac_FULL(285,252) + JVS(2286) = 0.25*B(259) IF (DO_JVS(2287)) & -! JVS(2287) = Jac_FULL(282,311) - JVS(2287) = 0.355*B(1157) +! JVS(2287) = Jac_FULL(285,253) + JVS(2287) = 0.25*B(267) IF (DO_JVS(2288)) & -! JVS(2288) = Jac_FULL(282,313) - JVS(2288) = 0.5*B(261) +! JVS(2288) = Jac_FULL(285,264) + JVS(2288) = 0.25*B(216) IF (DO_JVS(2289)) & -! JVS(2289) = Jac_FULL(282,315) - JVS(2289) = 0.25*B(249) +! JVS(2289) = Jac_FULL(285,275) + JVS(2289) = 0.25*B(792) IF (DO_JVS(2290)) & -! JVS(2290) = Jac_FULL(282,318) - JVS(2290) = 0.25*B(255) +! JVS(2290) = Jac_FULL(285,276) + JVS(2290) = 0.25*B(881) IF (DO_JVS(2291)) & -! JVS(2291) = Jac_FULL(282,319) - JVS(2291) = 0.25*B(253) +! JVS(2291) = Jac_FULL(285,278) + JVS(2291) = 0.25*B(830) IF (DO_JVS(2292)) & -! JVS(2292) = Jac_FULL(282,320) - JVS(2292) = 0.25*B(263) +! JVS(2292) = Jac_FULL(285,281) + JVS(2292) = 0.25*B(877) IF (DO_JVS(2293)) & -! JVS(2293) = Jac_FULL(282,321) - JVS(2293) = 0.25*B(214) +! JVS(2293) = Jac_FULL(285,282) + JVS(2293) = 0.25*B(768) IF (DO_JVS(2294)) & -! JVS(2294) = Jac_FULL(282,323) - JVS(2294) = 0.25*B(265) +! JVS(2294) = Jac_FULL(285,283) + JVS(2294) = 0 IF (DO_JVS(2295)) & -! JVS(2295) = Jac_FULL(282,324) - JVS(2295) = 0 +! JVS(2295) = Jac_FULL(285,284) + JVS(2295) = 0.25*B(885) IF (DO_JVS(2296)) & -! JVS(2296) = Jac_FULL(282,328) - JVS(2296) = B(55)+0.13*B(57)+0.25*B(215)+0.25*B(217)+0.25*B(248)+0.25*B(250)+0.25*B(254)+0.25*B(256)+0.25*B(258)+0.25& - &*B(260)+0.5*B(262)+0.25*B(264)+0.25*B(266)+0.25*B(268)+0.25*B(769)+0.25*B(793)+0.25*B(831)+0.25*B(878)+0.25& - &*B(882)+0.25*B(886)+0.25*B(890)+0.25*B(912)+0.355*B(1158)+0.034*B(1160)+0.2*B(1371) +! JVS(2296) = Jac_FULL(285,285) + JVS(2296) = -B(89)-B(623) IF (DO_JVS(2297)) & -! JVS(2297) = Jac_FULL(282,335) - JVS(2297) = 0 +! JVS(2297) = Jac_FULL(285,292) + JVS(2297) = 0.25*B(911) IF (DO_JVS(2298)) & -! JVS(2298) = Jac_FULL(282,337) +! JVS(2298) = Jac_FULL(285,293) JVS(2298) = 0 IF (DO_JVS(2299)) & -! JVS(2299) = Jac_FULL(282,340) - JVS(2299) = -B(624) +! JVS(2299) = Jac_FULL(285,294) + JVS(2299) = 0.25*B(889) IF (DO_JVS(2300)) & -! JVS(2300) = Jac_FULL(282,341) - JVS(2300) = 0 +! JVS(2300) = Jac_FULL(285,300) + JVS(2300) = 0.25*B(247) IF (DO_JVS(2301)) & -! JVS(2301) = Jac_FULL(282,342) - JVS(2301) = 0 +! JVS(2301) = Jac_FULL(285,304) + JVS(2301) = 0.25*B(257) IF (DO_JVS(2302)) & -! JVS(2302) = Jac_FULL(282,345) - JVS(2302) = 0.13*B(58)-B(90) +! JVS(2302) = Jac_FULL(285,308) + JVS(2302) = 0.034*B(1159) IF (DO_JVS(2303)) & -! JVS(2303) = Jac_FULL(282,346) - JVS(2303) = 0 +! JVS(2303) = Jac_FULL(285,309) + JVS(2303) = 0.1*B(1679) IF (DO_JVS(2304)) & -! JVS(2304) = Jac_FULL(282,351) - JVS(2304) = 0 +! JVS(2304) = Jac_FULL(285,310) + JVS(2304) = 0.355*B(1157) IF (DO_JVS(2305)) & -! JVS(2305) = Jac_FULL(283,201) - JVS(2305) = 0.15*B(1470)+0.3*B(1472) +! JVS(2305) = Jac_FULL(285,316) + JVS(2305) = 0.5*B(261) IF (DO_JVS(2306)) & -! JVS(2306) = Jac_FULL(283,241) - JVS(2306) = B(715) +! JVS(2306) = Jac_FULL(285,319) + JVS(2306) = 0.25*B(249) IF (DO_JVS(2307)) & -! JVS(2307) = Jac_FULL(283,249) - JVS(2307) = 0.1*B(361) +! JVS(2307) = Jac_FULL(285,322) + JVS(2307) = 0.25*B(255) IF (DO_JVS(2308)) & -! JVS(2308) = Jac_FULL(283,250) - JVS(2308) = 0.1*B(363) +! JVS(2308) = Jac_FULL(285,323) + JVS(2308) = 0.25*B(253) IF (DO_JVS(2309)) & -! JVS(2309) = Jac_FULL(283,260) - JVS(2309) = 0.1*B(369) +! JVS(2309) = Jac_FULL(285,324) + JVS(2309) = 0.25*B(263) IF (DO_JVS(2310)) & -! JVS(2310) = Jac_FULL(283,275) - JVS(2310) = 0.1*B(883) +! JVS(2310) = Jac_FULL(285,326) + JVS(2310) = 0.25*B(214) IF (DO_JVS(2311)) & -! JVS(2311) = Jac_FULL(283,277) - JVS(2311) = 0.1*B(879) +! JVS(2311) = Jac_FULL(285,327) + JVS(2311) = 0.25*B(265) IF (DO_JVS(2312)) & -! JVS(2312) = Jac_FULL(283,279) +! JVS(2312) = Jac_FULL(285,328) JVS(2312) = 0 IF (DO_JVS(2313)) & -! JVS(2313) = Jac_FULL(283,281) - JVS(2313) = 0.1*B(887) +! JVS(2313) = Jac_FULL(285,334) + JVS(2313) = B(55)+0.13*B(57)+0.25*B(215)+0.25*B(217)+0.25*B(248)+0.25*B(250)+0.25*B(254)+0.25*B(256)+0.25*B(258)+0.25& + &*B(260)+0.5*B(262)+0.25*B(264)+0.25*B(266)+0.25*B(268)+0.25*B(769)+0.25*B(793)+0.25*B(831)+0.25*B(878)+0.25& + &*B(882)+0.25*B(886)+0.25*B(890)+0.25*B(912)+0.355*B(1158)+0.034*B(1160)+0.2*B(1371) IF (DO_JVS(2314)) & -! JVS(2314) = Jac_FULL(283,283) - JVS(2314) = -B(199)-B(627) +! JVS(2314) = Jac_FULL(285,338) + JVS(2314) = 0 IF (DO_JVS(2315)) & -! JVS(2315) = Jac_FULL(283,290) +! JVS(2315) = Jac_FULL(285,341) JVS(2315) = 0 IF (DO_JVS(2316)) & -! JVS(2316) = Jac_FULL(283,291) - JVS(2316) = 0.1*B(891) +! JVS(2316) = Jac_FULL(285,342) + JVS(2316) = 0 IF (DO_JVS(2317)) & -! JVS(2317) = Jac_FULL(283,296) - JVS(2317) = 0.1*B(365) +! JVS(2317) = Jac_FULL(285,343) + JVS(2317) = 0.13*B(58)-B(90) IF (DO_JVS(2318)) & -! JVS(2318) = Jac_FULL(283,300) - JVS(2318) = 0.1*B(351) +! JVS(2318) = Jac_FULL(285,345) + JVS(2318) = 0 IF (DO_JVS(2319)) & -! JVS(2319) = Jac_FULL(283,307) - JVS(2319) = 0.5*B(322) +! JVS(2319) = Jac_FULL(285,348) + JVS(2319) = 0 IF (DO_JVS(2320)) & -! JVS(2320) = Jac_FULL(283,313) - JVS(2320) = 0.1*B(353) +! JVS(2320) = Jac_FULL(285,352) + JVS(2320) = -B(624) IF (DO_JVS(2321)) & -! JVS(2321) = Jac_FULL(283,315) - JVS(2321) = 0.1*B(367) +! JVS(2321) = Jac_FULL(285,356) + JVS(2321) = 0 IF (DO_JVS(2322)) & -! JVS(2322) = Jac_FULL(283,318) - JVS(2322) = 0.1*B(359) +! JVS(2322) = Jac_FULL(286,204) + JVS(2322) = 0.15*B(1470)+0.3*B(1472) IF (DO_JVS(2323)) & -! JVS(2323) = Jac_FULL(283,319) - JVS(2323) = 0.1*B(349) +! JVS(2323) = Jac_FULL(286,244) + JVS(2323) = B(715) IF (DO_JVS(2324)) & -! JVS(2324) = Jac_FULL(283,320) - JVS(2324) = 0.1*B(355) +! JVS(2324) = Jac_FULL(286,252) + JVS(2324) = 0.1*B(361) IF (DO_JVS(2325)) & -! JVS(2325) = Jac_FULL(283,321) - JVS(2325) = 0.1*B(371) +! JVS(2325) = Jac_FULL(286,253) + JVS(2325) = 0.1*B(363) IF (DO_JVS(2326)) & -! JVS(2326) = Jac_FULL(283,323) - JVS(2326) = 0.1*B(357) +! JVS(2326) = Jac_FULL(286,264) + JVS(2326) = 0.1*B(369) IF (DO_JVS(2327)) & -! JVS(2327) = Jac_FULL(283,324) - JVS(2327) = 0.1*B(347)+0.1*B(350)+0.1*B(352)+0.1*B(354)+0.1*B(356)+0.1*B(358)+0.1*B(360)+0.1*B(362)+0.1*B(364)+0.1& - &*B(366)+0.1*B(368)+0.1*B(370)+0.1*B(372)+0.1*B(880)+0.1*B(884)+0.1*B(888)+0.1*B(892)+0.13*B(1324) +! JVS(2327) = Jac_FULL(286,276) + JVS(2327) = 0.1*B(883) IF (DO_JVS(2328)) & -! JVS(2328) = Jac_FULL(283,328) - JVS(2328) = 0.1*B(348) +! JVS(2328) = Jac_FULL(286,281) + JVS(2328) = 0.1*B(879) IF (DO_JVS(2329)) & -! JVS(2329) = Jac_FULL(283,329) +! JVS(2329) = Jac_FULL(286,283) JVS(2329) = 0 IF (DO_JVS(2330)) & -! JVS(2330) = Jac_FULL(283,335) - JVS(2330) = 0 +! JVS(2330) = Jac_FULL(286,284) + JVS(2330) = 0.1*B(887) IF (DO_JVS(2331)) & -! JVS(2331) = Jac_FULL(283,336) - JVS(2331) = B(716) +! JVS(2331) = Jac_FULL(286,286) + JVS(2331) = -B(199)-B(627) IF (DO_JVS(2332)) & -! JVS(2332) = Jac_FULL(283,337) - JVS(2332) = 0.13*B(1325) +! JVS(2332) = Jac_FULL(286,293) + JVS(2332) = 0 IF (DO_JVS(2333)) & -! JVS(2333) = Jac_FULL(283,340) - JVS(2333) = -B(628) +! JVS(2333) = Jac_FULL(286,294) + JVS(2333) = 0.1*B(891) IF (DO_JVS(2334)) & -! JVS(2334) = Jac_FULL(283,341) - JVS(2334) = 0.3*B(1473) +! JVS(2334) = Jac_FULL(286,300) + JVS(2334) = 0.1*B(365) IF (DO_JVS(2335)) & -! JVS(2335) = Jac_FULL(283,342) - JVS(2335) = 0 +! JVS(2335) = Jac_FULL(286,304) + JVS(2335) = 0.1*B(351) IF (DO_JVS(2336)) & -! JVS(2336) = Jac_FULL(283,345) - JVS(2336) = -B(200)+0.5*B(323)+0.15*B(1471) +! JVS(2336) = Jac_FULL(286,311) + JVS(2336) = 0.5*B(322) IF (DO_JVS(2337)) & -! JVS(2337) = Jac_FULL(283,346) - JVS(2337) = 0 +! JVS(2337) = Jac_FULL(286,316) + JVS(2337) = 0.1*B(353) IF (DO_JVS(2338)) & -! JVS(2338) = Jac_FULL(283,348) - JVS(2338) = 0 +! JVS(2338) = Jac_FULL(286,319) + JVS(2338) = 0.1*B(367) IF (DO_JVS(2339)) & -! JVS(2339) = Jac_FULL(283,351) - JVS(2339) = 0 +! JVS(2339) = Jac_FULL(286,322) + JVS(2339) = 0.1*B(359) IF (DO_JVS(2340)) & -! JVS(2340) = Jac_FULL(284,44) - JVS(2340) = 0.008*B(684) +! JVS(2340) = Jac_FULL(286,323) + JVS(2340) = 0.1*B(349) IF (DO_JVS(2341)) & -! JVS(2341) = Jac_FULL(284,55) - JVS(2341) = B(1738) +! JVS(2341) = Jac_FULL(286,324) + JVS(2341) = 0.1*B(355) IF (DO_JVS(2342)) & -! JVS(2342) = Jac_FULL(284,96) - JVS(2342) = -B(661)+B(665) +! JVS(2342) = Jac_FULL(286,326) + JVS(2342) = 0.1*B(371) IF (DO_JVS(2343)) & -! JVS(2343) = Jac_FULL(284,284) - JVS(2343) = -B(652)-B(659)-B(662)-B(667)-B(679)-B(681)-2*B(683)-B(1727) +! JVS(2343) = Jac_FULL(286,327) + JVS(2343) = 0.1*B(357) IF (DO_JVS(2344)) & -! JVS(2344) = Jac_FULL(284,330) - JVS(2344) = B(677) +! JVS(2344) = Jac_FULL(286,328) + JVS(2344) = 0.1*B(347)+0.1*B(350)+0.1*B(352)+0.1*B(354)+0.1*B(356)+0.1*B(358)+0.1*B(360)+0.1*B(362)+0.1*B(364)+0.1& + &*B(366)+0.1*B(368)+0.1*B(370)+0.1*B(372)+0.1*B(880)+0.1*B(884)+0.1*B(888)+0.1*B(892)+0.13*B(1324) IF (DO_JVS(2345)) & -! JVS(2345) = Jac_FULL(284,331) - JVS(2345) = B(657)+B(669) +! JVS(2345) = Jac_FULL(286,334) + JVS(2345) = 0.1*B(348) IF (DO_JVS(2346)) & -! JVS(2346) = Jac_FULL(284,332) - JVS(2346) = B(654) +! JVS(2346) = Jac_FULL(286,335) + JVS(2346) = 0 IF (DO_JVS(2347)) & -! JVS(2347) = Jac_FULL(284,335) - JVS(2347) = -B(653) +! JVS(2347) = Jac_FULL(286,338) + JVS(2347) = 0 IF (DO_JVS(2348)) & -! JVS(2348) = Jac_FULL(284,337) - JVS(2348) = -B(680) +! JVS(2348) = Jac_FULL(286,341) + JVS(2348) = 0.13*B(1325) IF (DO_JVS(2349)) & -! JVS(2349) = Jac_FULL(284,338) - JVS(2349) = -B(668) +! JVS(2349) = Jac_FULL(286,342) + JVS(2349) = 0 IF (DO_JVS(2350)) & -! JVS(2350) = Jac_FULL(284,341) - JVS(2350) = B(670) +! JVS(2350) = Jac_FULL(286,343) + JVS(2350) = -B(200)+0.5*B(323)+0.15*B(1471) IF (DO_JVS(2351)) & -! JVS(2351) = Jac_FULL(284,345) - JVS(2351) = B(678) +! JVS(2351) = Jac_FULL(286,345) + JVS(2351) = 0 IF (DO_JVS(2352)) & -! JVS(2352) = Jac_FULL(284,346) - JVS(2352) = B(666)-B(682) +! JVS(2352) = Jac_FULL(286,348) + JVS(2352) = 0 IF (DO_JVS(2353)) & -! JVS(2353) = Jac_FULL(284,347) - JVS(2353) = B(658)-B(660) +! JVS(2353) = Jac_FULL(286,352) + JVS(2353) = -B(628) IF (DO_JVS(2354)) & -! JVS(2354) = Jac_FULL(285,147) - JVS(2354) = 0.032*B(1308) +! JVS(2354) = Jac_FULL(286,353) + JVS(2354) = B(716) IF (DO_JVS(2355)) & -! JVS(2355) = Jac_FULL(285,151) - JVS(2355) = 0.33*B(1056) +! JVS(2355) = Jac_FULL(286,355) + JVS(2355) = 0 IF (DO_JVS(2356)) & -! JVS(2356) = Jac_FULL(285,152) - JVS(2356) = 0.19*B(1060) +! JVS(2356) = Jac_FULL(286,356) + JVS(2356) = 0.3*B(1473) IF (DO_JVS(2357)) & -! JVS(2357) = Jac_FULL(285,168) - JVS(2357) = 0 +! JVS(2357) = Jac_FULL(287,172) + JVS(2357) = B(673) IF (DO_JVS(2358)) & -! JVS(2358) = Jac_FULL(285,175) +! JVS(2358) = Jac_FULL(287,254) JVS(2358) = 0 IF (DO_JVS(2359)) & -! JVS(2359) = Jac_FULL(285,187) - JVS(2359) = 0 +! JVS(2359) = Jac_FULL(287,287) + JVS(2359) = -B(677)-B(1574)-B(1575)-B(1607)-B(1609)-B(1611)-B(1613)-B(1739) IF (DO_JVS(2360)) & -! JVS(2360) = Jac_FULL(285,192) - JVS(2360) = 0 +! JVS(2360) = Jac_FULL(287,296) + JVS(2360) = B(1589) IF (DO_JVS(2361)) & -! JVS(2361) = Jac_FULL(285,238) - JVS(2361) = 0.068*B(1009) +! JVS(2361) = Jac_FULL(287,331) + JVS(2361) = 0 IF (DO_JVS(2362)) & -! JVS(2362) = Jac_FULL(285,267) - JVS(2362) = 0 +! JVS(2362) = Jac_FULL(287,336) + JVS(2362) = B(679) IF (DO_JVS(2363)) & -! JVS(2363) = Jac_FULL(285,268) +! JVS(2363) = Jac_FULL(287,338) JVS(2363) = 0 IF (DO_JVS(2364)) & -! JVS(2364) = Jac_FULL(285,285) - JVS(2364) = -B(1070)-B(1071)-B(1072)-B(1074)-B(1076) +! JVS(2364) = Jac_FULL(287,339) + JVS(2364) = -B(1612) IF (DO_JVS(2365)) & -! JVS(2365) = Jac_FULL(285,286) - JVS(2365) = 0 +! JVS(2365) = Jac_FULL(287,341) + JVS(2365) = B(680) IF (DO_JVS(2366)) & -! JVS(2366) = Jac_FULL(285,304) - JVS(2366) = 0 +! JVS(2366) = Jac_FULL(287,343) + JVS(2366) = B(674)-B(678) IF (DO_JVS(2367)) & -! JVS(2367) = Jac_FULL(285,305) +! JVS(2367) = Jac_FULL(287,345) JVS(2367) = 0 IF (DO_JVS(2368)) & -! JVS(2368) = Jac_FULL(285,310) - JVS(2368) = 0 +! JVS(2368) = Jac_FULL(287,346) + JVS(2368) = -B(1614) IF (DO_JVS(2369)) & -! JVS(2369) = Jac_FULL(285,311) +! JVS(2369) = Jac_FULL(287,348) JVS(2369) = 0 IF (DO_JVS(2370)) & -! JVS(2370) = Jac_FULL(285,328) - JVS(2370) = 0 +! JVS(2370) = Jac_FULL(287,349) + JVS(2370) = -B(1608) IF (DO_JVS(2371)) & -! JVS(2371) = Jac_FULL(285,337) - JVS(2371) = -B(1077) +! JVS(2371) = Jac_FULL(287,350) + JVS(2371) = -B(1610) IF (DO_JVS(2372)) & -! JVS(2372) = Jac_FULL(285,345) - JVS(2372) = 0.068*B(1010)+0.33*B(1057)+0.19*B(1061)+0.032*B(1309) +! JVS(2372) = Jac_FULL(287,353) + JVS(2372) = B(1590) IF (DO_JVS(2373)) & -! JVS(2373) = Jac_FULL(285,346) - JVS(2373) = -B(1073)-B(1075) +! JVS(2373) = Jac_FULL(288,149) + JVS(2373) = 0.032*B(1308) IF (DO_JVS(2374)) & -! JVS(2374) = Jac_FULL(286,147) - JVS(2374) = 0.08*B(1308) +! JVS(2374) = Jac_FULL(288,157) + JVS(2374) = 0.33*B(1056) IF (DO_JVS(2375)) & -! JVS(2375) = Jac_FULL(286,151) - JVS(2375) = 0.67*B(1056) +! JVS(2375) = Jac_FULL(288,159) + JVS(2375) = 0.19*B(1060) IF (DO_JVS(2376)) & -! JVS(2376) = Jac_FULL(286,152) - JVS(2376) = 0.81*B(1060) +! JVS(2376) = Jac_FULL(288,175) + JVS(2376) = 0 IF (DO_JVS(2377)) & -! JVS(2377) = Jac_FULL(286,168) +! JVS(2377) = Jac_FULL(288,177) JVS(2377) = 0 IF (DO_JVS(2378)) & -! JVS(2378) = Jac_FULL(286,175) +! JVS(2378) = Jac_FULL(288,191) JVS(2378) = 0 IF (DO_JVS(2379)) & -! JVS(2379) = Jac_FULL(286,187) +! JVS(2379) = Jac_FULL(288,195) JVS(2379) = 0 IF (DO_JVS(2380)) & -! JVS(2380) = Jac_FULL(286,192) - JVS(2380) = 0 +! JVS(2380) = Jac_FULL(288,242) + JVS(2380) = 0.068*B(1009) IF (DO_JVS(2381)) & -! JVS(2381) = Jac_FULL(286,238) - JVS(2381) = 0.294*B(1009) +! JVS(2381) = Jac_FULL(288,270) + JVS(2381) = 0 IF (DO_JVS(2382)) & -! JVS(2382) = Jac_FULL(286,267) +! JVS(2382) = Jac_FULL(288,271) JVS(2382) = 0 IF (DO_JVS(2383)) & -! JVS(2383) = Jac_FULL(286,268) - JVS(2383) = 0 +! JVS(2383) = Jac_FULL(288,288) + JVS(2383) = -B(1070)-B(1071)-B(1072)-B(1074)-B(1076) IF (DO_JVS(2384)) & -! JVS(2384) = Jac_FULL(286,285) +! JVS(2384) = Jac_FULL(288,289) JVS(2384) = 0 IF (DO_JVS(2385)) & -! JVS(2385) = Jac_FULL(286,286) - JVS(2385) = -B(1062)-B(1063)-B(1064)-B(1066)-B(1068) +! JVS(2385) = Jac_FULL(288,308) + JVS(2385) = 0 IF (DO_JVS(2386)) & -! JVS(2386) = Jac_FULL(286,304) +! JVS(2386) = Jac_FULL(288,310) JVS(2386) = 0 IF (DO_JVS(2387)) & -! JVS(2387) = Jac_FULL(286,305) +! JVS(2387) = Jac_FULL(288,314) JVS(2387) = 0 IF (DO_JVS(2388)) & -! JVS(2388) = Jac_FULL(286,310) +! JVS(2388) = Jac_FULL(288,315) JVS(2388) = 0 IF (DO_JVS(2389)) & -! JVS(2389) = Jac_FULL(286,311) +! JVS(2389) = Jac_FULL(288,334) JVS(2389) = 0 IF (DO_JVS(2390)) & -! JVS(2390) = Jac_FULL(286,328) - JVS(2390) = 0 +! JVS(2390) = Jac_FULL(288,338) + JVS(2390) = -B(1073)-B(1075) IF (DO_JVS(2391)) & -! JVS(2391) = Jac_FULL(286,337) - JVS(2391) = -B(1065) +! JVS(2391) = Jac_FULL(288,341) + JVS(2391) = -B(1077) IF (DO_JVS(2392)) & -! JVS(2392) = Jac_FULL(286,345) - JVS(2392) = 0.294*B(1010)+0.67*B(1057)+0.81*B(1061)+0.08*B(1309) +! JVS(2392) = Jac_FULL(288,343) + JVS(2392) = 0.068*B(1010)+0.33*B(1057)+0.19*B(1061)+0.032*B(1309) IF (DO_JVS(2393)) & -! JVS(2393) = Jac_FULL(286,346) - JVS(2393) = -B(1067)-B(1069) +! JVS(2393) = Jac_FULL(289,149) + JVS(2393) = 0.08*B(1308) IF (DO_JVS(2394)) & -! JVS(2394) = Jac_FULL(287,144) - JVS(2394) = 0.09*B(1007) +! JVS(2394) = Jac_FULL(289,157) + JVS(2394) = 0.67*B(1056) IF (DO_JVS(2395)) & -! JVS(2395) = Jac_FULL(287,192) - JVS(2395) = 0.165*B(1025) +! JVS(2395) = Jac_FULL(289,159) + JVS(2395) = 0.81*B(1060) IF (DO_JVS(2396)) & -! JVS(2396) = Jac_FULL(287,198) - JVS(2396) = 0.571*B(1312) +! JVS(2396) = Jac_FULL(289,175) + JVS(2396) = 0 IF (DO_JVS(2397)) & -! JVS(2397) = Jac_FULL(287,199) +! JVS(2397) = Jac_FULL(289,177) JVS(2397) = 0 IF (DO_JVS(2398)) & -! JVS(2398) = Jac_FULL(287,223) - JVS(2398) = 0.716*B(1032)+0.14*B(1036) +! JVS(2398) = Jac_FULL(289,191) + JVS(2398) = 0 IF (DO_JVS(2399)) & -! JVS(2399) = Jac_FULL(287,224) +! JVS(2399) = Jac_FULL(289,195) JVS(2399) = 0 IF (DO_JVS(2400)) & -! JVS(2400) = Jac_FULL(287,231) - JVS(2400) = 0.17*B(1003) +! JVS(2400) = Jac_FULL(289,242) + JVS(2400) = 0.294*B(1009) IF (DO_JVS(2401)) & -! JVS(2401) = Jac_FULL(287,232) +! JVS(2401) = Jac_FULL(289,270) JVS(2401) = 0 IF (DO_JVS(2402)) & -! JVS(2402) = Jac_FULL(287,238) - JVS(2402) = 0.158*B(1009) +! JVS(2402) = Jac_FULL(289,271) + JVS(2402) = 0 IF (DO_JVS(2403)) & -! JVS(2403) = Jac_FULL(287,253) - JVS(2403) = 0.41*B(1276) +! JVS(2403) = Jac_FULL(289,288) + JVS(2403) = 0 IF (DO_JVS(2404)) & -! JVS(2404) = Jac_FULL(287,258) - JVS(2404) = 0.5*B(1306)+0.5*B(1792) +! JVS(2404) = Jac_FULL(289,289) + JVS(2404) = -B(1062)-B(1063)-B(1064)-B(1066)-B(1068) IF (DO_JVS(2405)) & -! JVS(2405) = Jac_FULL(287,266) - JVS(2405) = 0.25*B(1314)+0.5*B(1800) +! JVS(2405) = Jac_FULL(289,308) + JVS(2405) = 0 IF (DO_JVS(2406)) & -! JVS(2406) = Jac_FULL(287,267) - JVS(2406) = 0.55*B(1786) +! JVS(2406) = Jac_FULL(289,310) + JVS(2406) = 0 IF (DO_JVS(2407)) & -! JVS(2407) = Jac_FULL(287,268) +! JVS(2407) = Jac_FULL(289,314) JVS(2407) = 0 IF (DO_JVS(2408)) & -! JVS(2408) = Jac_FULL(287,271) - JVS(2408) = 0.004*B(1198)+0.006*B(1202) +! JVS(2408) = Jac_FULL(289,315) + JVS(2408) = 0 IF (DO_JVS(2409)) & -! JVS(2409) = Jac_FULL(287,276) +! JVS(2409) = Jac_FULL(289,334) JVS(2409) = 0 IF (DO_JVS(2410)) & -! JVS(2410) = Jac_FULL(287,285) - JVS(2410) = 0 +! JVS(2410) = Jac_FULL(289,338) + JVS(2410) = -B(1067)-B(1069) IF (DO_JVS(2411)) & -! JVS(2411) = Jac_FULL(287,286) - JVS(2411) = 0 +! JVS(2411) = Jac_FULL(289,341) + JVS(2411) = -B(1065) IF (DO_JVS(2412)) & -! JVS(2412) = Jac_FULL(287,287) - JVS(2412) = -B(1240)-B(1770) +! JVS(2412) = Jac_FULL(289,343) + JVS(2412) = 0.294*B(1010)+0.67*B(1057)+0.81*B(1061)+0.08*B(1309) IF (DO_JVS(2413)) & -! JVS(2413) = Jac_FULL(287,301) - JVS(2413) = 0 +! JVS(2413) = Jac_FULL(290,151) + JVS(2413) = 0.09*B(1007) IF (DO_JVS(2414)) & -! JVS(2414) = Jac_FULL(287,303) - JVS(2414) = 0.15*B(1798) +! JVS(2414) = Jac_FULL(290,195) + JVS(2414) = 0.165*B(1025) IF (DO_JVS(2415)) & -! JVS(2415) = Jac_FULL(287,304) - JVS(2415) = B(974)+0.5*B(975)+0.5*B(983)+0.55*B(999) +! JVS(2415) = Jac_FULL(290,198) + JVS(2415) = 0.571*B(1312) IF (DO_JVS(2416)) & -! JVS(2416) = Jac_FULL(287,305) - JVS(2416) = 0.5*B(976) +! JVS(2416) = Jac_FULL(290,202) + JVS(2416) = 0 IF (DO_JVS(2417)) & -! JVS(2417) = Jac_FULL(287,309) +! JVS(2417) = Jac_FULL(290,226) JVS(2417) = 0 IF (DO_JVS(2418)) & -! JVS(2418) = Jac_FULL(287,310) - JVS(2418) = 0 +! JVS(2418) = Jac_FULL(290,228) + JVS(2418) = 0.716*B(1032)+0.14*B(1036) IF (DO_JVS(2419)) & -! JVS(2419) = Jac_FULL(287,311) - JVS(2419) = 0 +! JVS(2419) = Jac_FULL(290,231) + JVS(2419) = 0.17*B(1003) IF (DO_JVS(2420)) & -! JVS(2420) = Jac_FULL(287,328) - JVS(2420) = 0.5*B(984) +! JVS(2420) = Jac_FULL(290,235) + JVS(2420) = 0 IF (DO_JVS(2421)) & -! JVS(2421) = Jac_FULL(287,335) - JVS(2421) = 0 +! JVS(2421) = Jac_FULL(290,242) + JVS(2421) = 0.158*B(1009) IF (DO_JVS(2422)) & -! JVS(2422) = Jac_FULL(287,337) - JVS(2422) = 0.14*B(1037)+0.004*B(1199)+0.41*B(1277) +! JVS(2422) = Jac_FULL(290,257) + JVS(2422) = 0.41*B(1276) IF (DO_JVS(2423)) & -! JVS(2423) = Jac_FULL(287,340) - JVS(2423) = 0 +! JVS(2423) = Jac_FULL(290,259) + JVS(2423) = 0.5*B(1306)+0.5*B(1805) IF (DO_JVS(2424)) & -! JVS(2424) = Jac_FULL(287,341) - JVS(2424) = 0 +! JVS(2424) = Jac_FULL(290,269) + JVS(2424) = 0.25*B(1314)+0.5*B(1813) IF (DO_JVS(2425)) & -! JVS(2425) = Jac_FULL(287,345) - JVS(2425) = 0.17*B(1004)+0.09*B(1008)+0.158*B(1010)+0.165*B(1026)-B(1241)+0.5*B(1307)+0.571*B(1313)+0.25*B(1315) +! JVS(2425) = Jac_FULL(290,270) + JVS(2425) = 0.55*B(1799) IF (DO_JVS(2426)) & -! JVS(2426) = Jac_FULL(287,346) - JVS(2426) = 0.55*B(1000)+0.716*B(1033)+0.006*B(1203) +! JVS(2426) = Jac_FULL(290,271) + JVS(2426) = 0 IF (DO_JVS(2427)) & -! JVS(2427) = Jac_FULL(287,351) - JVS(2427) = 0 +! JVS(2427) = Jac_FULL(290,273) + JVS(2427) = 0.004*B(1198)+0.006*B(1202) IF (DO_JVS(2428)) & -! JVS(2428) = Jac_FULL(288,150) - JVS(2428) = 0.19*B(1005) +! JVS(2428) = Jac_FULL(290,279) + JVS(2428) = 0 IF (DO_JVS(2429)) & -! JVS(2429) = Jac_FULL(288,187) - JVS(2429) = 0.125*B(1023) +! JVS(2429) = Jac_FULL(290,288) + JVS(2429) = 0 IF (DO_JVS(2430)) & -! JVS(2430) = Jac_FULL(288,198) - JVS(2430) = 0.429*B(1312) +! JVS(2430) = Jac_FULL(290,289) + JVS(2430) = 0 IF (DO_JVS(2431)) & -! JVS(2431) = Jac_FULL(288,209) - JVS(2431) = 0 +! JVS(2431) = Jac_FULL(290,290) + JVS(2431) = -B(1240)-B(1783) IF (DO_JVS(2432)) & -! JVS(2432) = Jac_FULL(288,223) +! JVS(2432) = Jac_FULL(290,305) JVS(2432) = 0 IF (DO_JVS(2433)) & -! JVS(2433) = Jac_FULL(288,224) - JVS(2433) = 0.706*B(1039)+0.14*B(1043) +! JVS(2433) = Jac_FULL(290,307) + JVS(2433) = 0.15*B(1811) IF (DO_JVS(2434)) & -! JVS(2434) = Jac_FULL(288,230) - JVS(2434) = 0.33*B(1001) +! JVS(2434) = Jac_FULL(290,308) + JVS(2434) = 0 IF (DO_JVS(2435)) & -! JVS(2435) = Jac_FULL(288,232) +! JVS(2435) = Jac_FULL(290,310) JVS(2435) = 0 IF (DO_JVS(2436)) & -! JVS(2436) = Jac_FULL(288,238) - JVS(2436) = 0.125*B(1009) +! JVS(2436) = Jac_FULL(290,313) + JVS(2436) = 0 IF (DO_JVS(2437)) & -! JVS(2437) = Jac_FULL(288,254) - JVS(2437) = 0.335*B(1270) +! JVS(2437) = Jac_FULL(290,314) + JVS(2437) = 0.5*B(975) IF (DO_JVS(2438)) & -! JVS(2438) = Jac_FULL(288,266) - JVS(2438) = 0.75*B(1314)+0.5*B(1800) +! JVS(2438) = Jac_FULL(290,315) + JVS(2438) = B(974)+0.5*B(976)+0.5*B(983)+0.55*B(999) IF (DO_JVS(2439)) & -! JVS(2439) = Jac_FULL(288,267) - JVS(2439) = 0 +! JVS(2439) = Jac_FULL(290,334) + JVS(2439) = 0.5*B(984) IF (DO_JVS(2440)) & -! JVS(2440) = Jac_FULL(288,268) - JVS(2440) = 0.55*B(1783) +! JVS(2440) = Jac_FULL(290,338) + JVS(2440) = 0.55*B(1000)+0.716*B(1033)+0.006*B(1203) IF (DO_JVS(2441)) & -! JVS(2441) = Jac_FULL(288,271) - JVS(2441) = 0.054*B(1198)+0.059*B(1202) +! JVS(2441) = Jac_FULL(290,341) + JVS(2441) = 0.14*B(1037)+0.004*B(1199)+0.41*B(1277) IF (DO_JVS(2442)) & -! JVS(2442) = Jac_FULL(288,276) - JVS(2442) = 0 +! JVS(2442) = Jac_FULL(290,343) + JVS(2442) = 0.17*B(1004)+0.09*B(1008)+0.158*B(1010)+0.165*B(1026)-B(1241)+0.5*B(1307)+0.571*B(1313)+0.25*B(1315) IF (DO_JVS(2443)) & -! JVS(2443) = Jac_FULL(288,285) +! JVS(2443) = Jac_FULL(290,345) JVS(2443) = 0 IF (DO_JVS(2444)) & -! JVS(2444) = Jac_FULL(288,286) +! JVS(2444) = Jac_FULL(290,348) JVS(2444) = 0 IF (DO_JVS(2445)) & -! JVS(2445) = Jac_FULL(288,288) - JVS(2445) = -B(1238)-B(1767) +! JVS(2445) = Jac_FULL(290,352) + JVS(2445) = 0 IF (DO_JVS(2446)) & -! JVS(2446) = Jac_FULL(288,301) +! JVS(2446) = Jac_FULL(290,356) JVS(2446) = 0 IF (DO_JVS(2447)) & -! JVS(2447) = Jac_FULL(288,303) - JVS(2447) = 0 +! JVS(2447) = Jac_FULL(291,150) + JVS(2447) = 0.19*B(1005) IF (DO_JVS(2448)) & -! JVS(2448) = Jac_FULL(288,304) - JVS(2448) = 0.5*B(975) +! JVS(2448) = Jac_FULL(291,191) + JVS(2448) = 0.125*B(1023) IF (DO_JVS(2449)) & -! JVS(2449) = Jac_FULL(288,305) - JVS(2449) = B(973)+0.5*B(976)+0.5*B(979)+0.55*B(991) +! JVS(2449) = Jac_FULL(291,198) + JVS(2449) = 0.429*B(1312) IF (DO_JVS(2450)) & -! JVS(2450) = Jac_FULL(288,310) +! JVS(2450) = Jac_FULL(291,213) JVS(2450) = 0 IF (DO_JVS(2451)) & -! JVS(2451) = Jac_FULL(288,311) - JVS(2451) = 0 +! JVS(2451) = Jac_FULL(291,226) + JVS(2451) = 0.706*B(1039)+0.14*B(1043) IF (DO_JVS(2452)) & -! JVS(2452) = Jac_FULL(288,314) +! JVS(2452) = Jac_FULL(291,228) JVS(2452) = 0 IF (DO_JVS(2453)) & -! JVS(2453) = Jac_FULL(288,328) - JVS(2453) = 0.5*B(980) +! JVS(2453) = Jac_FULL(291,233) + JVS(2453) = 0.33*B(1001) IF (DO_JVS(2454)) & -! JVS(2454) = Jac_FULL(288,335) +! JVS(2454) = Jac_FULL(291,235) JVS(2454) = 0 IF (DO_JVS(2455)) & -! JVS(2455) = Jac_FULL(288,337) - JVS(2455) = 0.14*B(1044)+0.054*B(1199)+0.335*B(1271) +! JVS(2455) = Jac_FULL(291,242) + JVS(2455) = 0.125*B(1009) IF (DO_JVS(2456)) & -! JVS(2456) = Jac_FULL(288,340) - JVS(2456) = 0 +! JVS(2456) = Jac_FULL(291,258) + JVS(2456) = 0.335*B(1270) IF (DO_JVS(2457)) & -! JVS(2457) = Jac_FULL(288,341) - JVS(2457) = 0 +! JVS(2457) = Jac_FULL(291,269) + JVS(2457) = 0.75*B(1314)+0.5*B(1813) IF (DO_JVS(2458)) & -! JVS(2458) = Jac_FULL(288,345) - JVS(2458) = 0.33*B(1002)+0.19*B(1006)+0.125*B(1010)+0.125*B(1024)-B(1239)+0.429*B(1313)+0.75*B(1315) +! JVS(2458) = Jac_FULL(291,270) + JVS(2458) = 0 IF (DO_JVS(2459)) & -! JVS(2459) = Jac_FULL(288,346) - JVS(2459) = 0.55*B(992)+0.706*B(1040)+0.059*B(1203) +! JVS(2459) = Jac_FULL(291,271) + JVS(2459) = 0.55*B(1796) IF (DO_JVS(2460)) & -! JVS(2460) = Jac_FULL(288,351) - JVS(2460) = 0 +! JVS(2460) = Jac_FULL(291,273) + JVS(2460) = 0.054*B(1198)+0.059*B(1202) IF (DO_JVS(2461)) & -! JVS(2461) = Jac_FULL(289,167) - JVS(2461) = 0.5*B(721) +! JVS(2461) = Jac_FULL(291,279) + JVS(2461) = 0 IF (DO_JVS(2462)) & -! JVS(2462) = Jac_FULL(289,191) - JVS(2462) = 0.9*B(717) +! JVS(2462) = Jac_FULL(291,288) + JVS(2462) = 0 IF (DO_JVS(2463)) & -! JVS(2463) = Jac_FULL(289,219) - JVS(2463) = 0.9*B(719) +! JVS(2463) = Jac_FULL(291,289) + JVS(2463) = 0 IF (DO_JVS(2464)) & -! JVS(2464) = Jac_FULL(289,280) - JVS(2464) = -B(922) +! JVS(2464) = Jac_FULL(291,291) + JVS(2464) = -B(1238)-B(1780) IF (DO_JVS(2465)) & -! JVS(2465) = Jac_FULL(289,289) - JVS(2465) = -B(903)-B(907)-B(911)-B(915)-B(919)-B(923)-2*B(924) +! JVS(2465) = Jac_FULL(291,305) + JVS(2465) = 0 IF (DO_JVS(2466)) & -! JVS(2466) = Jac_FULL(289,291) +! JVS(2466) = Jac_FULL(291,307) JVS(2466) = 0 IF (DO_JVS(2467)) & -! JVS(2467) = Jac_FULL(289,324) - JVS(2467) = -B(916) +! JVS(2467) = Jac_FULL(291,308) + JVS(2467) = 0 IF (DO_JVS(2468)) & -! JVS(2468) = Jac_FULL(289,328) - JVS(2468) = -B(912) +! JVS(2468) = Jac_FULL(291,310) + JVS(2468) = 0 IF (DO_JVS(2469)) & -! JVS(2469) = Jac_FULL(289,337) - JVS(2469) = -B(908) +! JVS(2469) = Jac_FULL(291,314) + JVS(2469) = B(973)+0.5*B(975)+0.5*B(979)+0.55*B(991) IF (DO_JVS(2470)) & -! JVS(2470) = Jac_FULL(289,341) - JVS(2470) = 0 +! JVS(2470) = Jac_FULL(291,315) + JVS(2470) = 0.5*B(976) IF (DO_JVS(2471)) & -! JVS(2471) = Jac_FULL(289,345) +! JVS(2471) = Jac_FULL(291,318) JVS(2471) = 0 IF (DO_JVS(2472)) & -! JVS(2472) = Jac_FULL(289,346) - JVS(2472) = -B(904) +! JVS(2472) = Jac_FULL(291,334) + JVS(2472) = 0.5*B(980) IF (DO_JVS(2473)) & -! JVS(2473) = Jac_FULL(289,351) - JVS(2473) = 0.9*B(718)+0.9*B(720)+0.5*B(722)-B(920) +! JVS(2473) = Jac_FULL(291,338) + JVS(2473) = 0.55*B(992)+0.706*B(1040)+0.059*B(1203) IF (DO_JVS(2474)) & -! JVS(2474) = Jac_FULL(290,290) - JVS(2474) = -B(285)-B(287)-B(310)-B(639)-B(641) +! JVS(2474) = Jac_FULL(291,341) + JVS(2474) = 0.14*B(1044)+0.054*B(1199)+0.335*B(1271) IF (DO_JVS(2475)) & -! JVS(2475) = Jac_FULL(290,314) - JVS(2475) = B(1671) +! JVS(2475) = Jac_FULL(291,343) + JVS(2475) = 0.33*B(1002)+0.19*B(1006)+0.125*B(1010)+0.125*B(1024)-B(1239)+0.429*B(1313)+0.75*B(1315) IF (DO_JVS(2476)) & -! JVS(2476) = Jac_FULL(290,340) - JVS(2476) = -B(640) +! JVS(2476) = Jac_FULL(291,345) + JVS(2476) = 0 IF (DO_JVS(2477)) & -! JVS(2477) = Jac_FULL(290,341) - JVS(2477) = -B(288) +! JVS(2477) = Jac_FULL(291,348) + JVS(2477) = 0 IF (DO_JVS(2478)) & -! JVS(2478) = Jac_FULL(290,342) - JVS(2478) = -B(642) +! JVS(2478) = Jac_FULL(291,352) + JVS(2478) = 0 IF (DO_JVS(2479)) & -! JVS(2479) = Jac_FULL(290,345) - JVS(2479) = -B(286) +! JVS(2479) = Jac_FULL(291,356) + JVS(2479) = 0 IF (DO_JVS(2480)) & -! JVS(2480) = Jac_FULL(290,351) - JVS(2480) = -B(311) +! JVS(2480) = Jac_FULL(292,170) + JVS(2480) = 0.5*B(721) IF (DO_JVS(2481)) & -! JVS(2481) = Jac_FULL(291,219) - JVS(2481) = 0.5*B(727) +! JVS(2481) = Jac_FULL(292,194) + JVS(2481) = 0.9*B(717) IF (DO_JVS(2482)) & -! JVS(2482) = Jac_FULL(291,291) - JVS(2482) = -B(851)-B(853)-B(855)-B(857)-B(889)-B(891) +! JVS(2482) = Jac_FULL(292,222) + JVS(2482) = 0.9*B(719) IF (DO_JVS(2483)) & -! JVS(2483) = Jac_FULL(291,324) - JVS(2483) = -B(892) +! JVS(2483) = Jac_FULL(292,280) + JVS(2483) = -B(922) IF (DO_JVS(2484)) & -! JVS(2484) = Jac_FULL(291,328) - JVS(2484) = -B(890) +! JVS(2484) = Jac_FULL(292,292) + JVS(2484) = -B(903)-B(907)-B(911)-B(915)-B(919)-B(923)-2*B(924) IF (DO_JVS(2485)) & -! JVS(2485) = Jac_FULL(291,337) - JVS(2485) = -B(852) +! JVS(2485) = Jac_FULL(292,294) + JVS(2485) = 0 IF (DO_JVS(2486)) & -! JVS(2486) = Jac_FULL(291,341) - JVS(2486) = 0 +! JVS(2486) = Jac_FULL(292,328) + JVS(2486) = -B(916) IF (DO_JVS(2487)) & -! JVS(2487) = Jac_FULL(291,345) - JVS(2487) = 0.5*B(728) +! JVS(2487) = Jac_FULL(292,334) + JVS(2487) = -B(912) IF (DO_JVS(2488)) & -! JVS(2488) = Jac_FULL(291,346) - JVS(2488) = -B(854)-B(856) +! JVS(2488) = Jac_FULL(292,338) + JVS(2488) = -B(904) IF (DO_JVS(2489)) & -! JVS(2489) = Jac_FULL(291,351) - JVS(2489) = -B(858) +! JVS(2489) = Jac_FULL(292,341) + JVS(2489) = -B(908) IF (DO_JVS(2490)) & -! JVS(2490) = Jac_FULL(292,160) - JVS(2490) = 0.25*B(770)+0.5*B(1811) +! JVS(2490) = Jac_FULL(292,343) + JVS(2490) = 0 IF (DO_JVS(2491)) & -! JVS(2491) = Jac_FULL(292,176) - JVS(2491) = 0.3*B(772) +! JVS(2491) = Jac_FULL(292,348) + JVS(2491) = 0.9*B(718)+0.9*B(720)+0.5*B(722)-B(920) IF (DO_JVS(2492)) & -! JVS(2492) = Jac_FULL(292,178) - JVS(2492) = 0.25*B(128) +! JVS(2492) = Jac_FULL(292,356) + JVS(2492) = 0 IF (DO_JVS(2493)) & -! JVS(2493) = Jac_FULL(292,219) - JVS(2493) = 0.5*B(729) +! JVS(2493) = Jac_FULL(293,293) + JVS(2493) = -B(285)-B(287)-B(310)-B(639)-B(641) IF (DO_JVS(2494)) & -! JVS(2494) = Jac_FULL(292,251) - JVS(2494) = 0.19*B(1685) +! JVS(2494) = Jac_FULL(293,318) + JVS(2494) = B(1684) IF (DO_JVS(2495)) & -! JVS(2495) = Jac_FULL(292,256) - JVS(2495) = B(1750) +! JVS(2495) = Jac_FULL(293,342) + JVS(2495) = -B(642) IF (DO_JVS(2496)) & -! JVS(2496) = Jac_FULL(292,262) - JVS(2496) = B(871)+B(873)+0.5*B(875) +! JVS(2496) = Jac_FULL(293,343) + JVS(2496) = -B(286) IF (DO_JVS(2497)) & -! JVS(2497) = Jac_FULL(292,272) - JVS(2497) = 0 +! JVS(2497) = Jac_FULL(293,348) + JVS(2497) = -B(311) IF (DO_JVS(2498)) & -! JVS(2498) = Jac_FULL(292,273) - JVS(2498) = 0 +! JVS(2498) = Jac_FULL(293,352) + JVS(2498) = -B(640) IF (DO_JVS(2499)) & -! JVS(2499) = Jac_FULL(292,275) - JVS(2499) = 0 +! JVS(2499) = Jac_FULL(293,356) + JVS(2499) = -B(288) IF (DO_JVS(2500)) & -! JVS(2500) = Jac_FULL(292,277) - JVS(2500) = 0 +! JVS(2500) = Jac_FULL(294,222) + JVS(2500) = 0.5*B(727) IF (DO_JVS(2501)) & -! JVS(2501) = Jac_FULL(292,278) - JVS(2501) = 0.42*B(764)+0.5*B(766)+0.375*B(768) +! JVS(2501) = Jac_FULL(294,294) + JVS(2501) = -B(851)-B(853)-B(855)-B(857)-B(889)-B(891) IF (DO_JVS(2502)) & -! JVS(2502) = Jac_FULL(292,279) - JVS(2502) = 0.19*B(1688) +! JVS(2502) = Jac_FULL(294,328) + JVS(2502) = -B(892) IF (DO_JVS(2503)) & -! JVS(2503) = Jac_FULL(292,280) - JVS(2503) = 0.149*B(922) +! JVS(2503) = Jac_FULL(294,334) + JVS(2503) = -B(890) IF (DO_JVS(2504)) & -! JVS(2504) = Jac_FULL(292,281) - JVS(2504) = 0 +! JVS(2504) = Jac_FULL(294,338) + JVS(2504) = -B(854)-B(856) IF (DO_JVS(2505)) & -! JVS(2505) = Jac_FULL(292,289) - JVS(2505) = 0.464*B(903)+0.34*B(911)+0.464*B(915)+0.464*B(919)+0.149*B(923)+0.285*B(924) +! JVS(2505) = Jac_FULL(294,341) + JVS(2505) = -B(852) IF (DO_JVS(2506)) & -! JVS(2506) = Jac_FULL(292,291) - JVS(2506) = 0 +! JVS(2506) = Jac_FULL(294,343) + JVS(2506) = 0.5*B(728) IF (DO_JVS(2507)) & -! JVS(2507) = Jac_FULL(292,292) - JVS(2507) = -B(234)-B(251)-B(1665) +! JVS(2507) = Jac_FULL(294,348) + JVS(2507) = -B(858) IF (DO_JVS(2508)) & -! JVS(2508) = Jac_FULL(292,300) - JVS(2508) = 0.19*B(171)+0.35*B(257)+0.271*B(351) +! JVS(2508) = Jac_FULL(294,356) + JVS(2508) = 0 IF (DO_JVS(2509)) & -! JVS(2509) = Jac_FULL(292,318) - JVS(2509) = 0 +! JVS(2509) = Jac_FULL(295,163) + JVS(2509) = 0.25*B(770)+0.5*B(1824) IF (DO_JVS(2510)) & -! JVS(2510) = Jac_FULL(292,319) - JVS(2510) = 0.19*B(177)+0.35*B(253)+0.271*B(349) +! JVS(2510) = Jac_FULL(295,179) + JVS(2510) = 0.3*B(772) IF (DO_JVS(2511)) & -! JVS(2511) = Jac_FULL(292,320) - JVS(2511) = 0.25*B(263)+0.1*B(355) +! JVS(2511) = Jac_FULL(295,182) + JVS(2511) = 0.25*B(128) IF (DO_JVS(2512)) & -! JVS(2512) = Jac_FULL(292,324) - JVS(2512) = 0.271*B(350)+0.271*B(352)+0.1*B(356)+0.464*B(916) +! JVS(2512) = Jac_FULL(295,222) + JVS(2512) = 0.5*B(729) IF (DO_JVS(2513)) & -! JVS(2513) = Jac_FULL(292,328) - JVS(2513) = 0.35*B(254)+0.35*B(258)+0.25*B(264)+0.375*B(769)+0.34*B(912) +! JVS(2513) = Jac_FULL(295,255) + JVS(2513) = 0.19*B(1698) IF (DO_JVS(2514)) & -! JVS(2514) = Jac_FULL(292,335) - JVS(2514) = 0 +! JVS(2514) = Jac_FULL(295,260) + JVS(2514) = B(1763) IF (DO_JVS(2515)) & -! JVS(2515) = Jac_FULL(292,337) - JVS(2515) = 0 +! JVS(2515) = Jac_FULL(295,263) + JVS(2515) = B(871)+B(873)+0.5*B(875) IF (DO_JVS(2516)) & -! JVS(2516) = Jac_FULL(292,341) - JVS(2516) = 0.5*B(730)+B(874) +! JVS(2516) = Jac_FULL(295,275) + JVS(2516) = 0 IF (DO_JVS(2517)) & -! JVS(2517) = Jac_FULL(292,345) - JVS(2517) = -B(235)+0.25*B(771)+0.3*B(773)+B(872) +! JVS(2517) = Jac_FULL(295,276) + JVS(2517) = 0 IF (DO_JVS(2518)) & -! JVS(2518) = Jac_FULL(292,346) - JVS(2518) = 0.25*B(129)+0.19*B(172)+0.19*B(178)+0.42*B(765)+0.464*B(904) +! JVS(2518) = Jac_FULL(295,278) + JVS(2518) = 0 IF (DO_JVS(2519)) & -! JVS(2519) = Jac_FULL(292,351) - JVS(2519) = -B(252)+0.5*B(767)+0.5*B(876)+0.464*B(920) +! JVS(2519) = Jac_FULL(295,280) + JVS(2519) = 0.149*B(922) IF (DO_JVS(2520)) & -! JVS(2520) = Jac_FULL(293,145) - JVS(2520) = B(1179) +! JVS(2520) = Jac_FULL(295,281) + JVS(2520) = 0 IF (DO_JVS(2521)) & -! JVS(2521) = Jac_FULL(293,186) - JVS(2521) = 0 +! JVS(2521) = Jac_FULL(295,282) + JVS(2521) = 0.42*B(764)+0.5*B(766)+0.375*B(768) IF (DO_JVS(2522)) & -! JVS(2522) = Jac_FULL(293,222) - JVS(2522) = 0.33*B(1180) +! JVS(2522) = Jac_FULL(295,283) + JVS(2522) = 0.19*B(1701) IF (DO_JVS(2523)) & -! JVS(2523) = Jac_FULL(293,293) - JVS(2523) = -B(1141)-B(1143)-B(1145) +! JVS(2523) = Jac_FULL(295,284) + JVS(2523) = 0 IF (DO_JVS(2524)) & -! JVS(2524) = Jac_FULL(293,299) - JVS(2524) = 0 +! JVS(2524) = Jac_FULL(295,292) + JVS(2524) = 0.464*B(903)+0.34*B(911)+0.464*B(915)+0.464*B(919)+0.149*B(923)+0.285*B(924) IF (DO_JVS(2525)) & -! JVS(2525) = Jac_FULL(293,303) - JVS(2525) = 0.037*B(1316) +! JVS(2525) = Jac_FULL(295,294) + JVS(2525) = 0 IF (DO_JVS(2526)) & -! JVS(2526) = Jac_FULL(293,310) - JVS(2526) = 0 +! JVS(2526) = Jac_FULL(295,295) + JVS(2526) = -B(234)-B(251)-B(1678) IF (DO_JVS(2527)) & -! JVS(2527) = Jac_FULL(293,311) - JVS(2527) = 0 +! JVS(2527) = Jac_FULL(295,304) + JVS(2527) = 0.19*B(171)+0.35*B(257)+0.271*B(351) IF (DO_JVS(2528)) & -! JVS(2528) = Jac_FULL(293,324) +! JVS(2528) = Jac_FULL(295,322) JVS(2528) = 0 IF (DO_JVS(2529)) & -! JVS(2529) = Jac_FULL(293,328) - JVS(2529) = 0 +! JVS(2529) = Jac_FULL(295,323) + JVS(2529) = 0.19*B(177)+0.35*B(253)+0.271*B(349) IF (DO_JVS(2530)) & -! JVS(2530) = Jac_FULL(293,337) - JVS(2530) = -B(1142) +! JVS(2530) = Jac_FULL(295,324) + JVS(2530) = 0.25*B(263)+0.1*B(355) IF (DO_JVS(2531)) & -! JVS(2531) = Jac_FULL(293,345) - JVS(2531) = 0.33*B(1181)+0.037*B(1317) +! JVS(2531) = Jac_FULL(295,328) + JVS(2531) = 0.271*B(350)+0.271*B(352)+0.1*B(356)+0.464*B(916) IF (DO_JVS(2532)) & -! JVS(2532) = Jac_FULL(293,346) - JVS(2532) = -B(1144)-B(1146) +! JVS(2532) = Jac_FULL(295,334) + JVS(2532) = 0.35*B(254)+0.35*B(258)+0.25*B(264)+0.375*B(769)+0.34*B(912) IF (DO_JVS(2533)) & -! JVS(2533) = Jac_FULL(293,351) - JVS(2533) = 0 +! JVS(2533) = Jac_FULL(295,338) + JVS(2533) = 0.25*B(129)+0.19*B(172)+0.19*B(178)+0.42*B(765)+0.464*B(904) IF (DO_JVS(2534)) & -! JVS(2534) = Jac_FULL(294,82) - JVS(2534) = 0.12*B(1383) +! JVS(2534) = Jac_FULL(295,341) + JVS(2534) = 0 IF (DO_JVS(2535)) & -! JVS(2535) = Jac_FULL(294,101) - JVS(2535) = 0.2*B(1385) +! JVS(2535) = Jac_FULL(295,343) + JVS(2535) = -B(235)+0.25*B(771)+0.3*B(773)+B(872) IF (DO_JVS(2536)) & -! JVS(2536) = Jac_FULL(294,107) - JVS(2536) = 0.7*B(1304) +! JVS(2536) = Jac_FULL(295,345) + JVS(2536) = 0 IF (DO_JVS(2537)) & -! JVS(2537) = Jac_FULL(294,159) - JVS(2537) = 0 +! JVS(2537) = Jac_FULL(295,348) + JVS(2537) = -B(252)+0.5*B(767)+0.5*B(876)+0.464*B(920) IF (DO_JVS(2538)) & -! JVS(2538) = Jac_FULL(294,184) - JVS(2538) = 0 +! JVS(2538) = Jac_FULL(295,356) + JVS(2538) = 0.5*B(730)+B(874) IF (DO_JVS(2539)) & -! JVS(2539) = Jac_FULL(294,185) - JVS(2539) = B(1260)+0.571*B(1768) +! JVS(2539) = Jac_FULL(296,172) + JVS(2539) = B(650) IF (DO_JVS(2540)) & -! JVS(2540) = Jac_FULL(294,194) - JVS(2540) = 0.187*B(1258)+0.125*B(1769) +! JVS(2540) = Jac_FULL(296,254) + JVS(2540) = 0 IF (DO_JVS(2541)) & -! JVS(2541) = Jac_FULL(294,198) - JVS(2541) = 0.429*B(1795) +! JVS(2541) = Jac_FULL(296,296) + JVS(2541) = -B(654)-B(655)-B(1587)-B(1588)-B(1589)-B(1599)-B(1601)-B(1603)-B(1605)-B(1744) IF (DO_JVS(2542)) & -! JVS(2542) = Jac_FULL(294,199) - JVS(2542) = 0.018*B(1029) +! JVS(2542) = Jac_FULL(296,331) + JVS(2542) = -B(656) IF (DO_JVS(2543)) & -! JVS(2543) = Jac_FULL(294,200) - JVS(2543) = 0.25*B(1348) +! JVS(2543) = Jac_FULL(296,336) + JVS(2543) = B(652) IF (DO_JVS(2544)) & -! JVS(2544) = Jac_FULL(294,201) - JVS(2544) = 0.6*B(1470)+0.6*B(1472)+0.2*B(1474) +! JVS(2544) = Jac_FULL(296,338) + JVS(2544) = 0 IF (DO_JVS(2545)) & -! JVS(2545) = Jac_FULL(294,209) - JVS(2545) = 0.018*B(1027) +! JVS(2545) = Jac_FULL(296,339) + JVS(2545) = -B(1604) IF (DO_JVS(2546)) & -! JVS(2546) = Jac_FULL(294,215) - JVS(2546) = 0.5*B(1011) +! JVS(2546) = Jac_FULL(296,343) + JVS(2546) = 0 IF (DO_JVS(2547)) & -! JVS(2547) = Jac_FULL(294,223) - JVS(2547) = 0 +! JVS(2547) = Jac_FULL(296,345) + JVS(2547) = B(653) IF (DO_JVS(2548)) & -! JVS(2548) = Jac_FULL(294,224) - JVS(2548) = 0 +! JVS(2548) = Jac_FULL(296,346) + JVS(2548) = -B(1606) IF (DO_JVS(2549)) & -! JVS(2549) = Jac_FULL(294,227) - JVS(2549) = B(1264)+0.5*B(1766) +! JVS(2549) = Jac_FULL(296,348) + JVS(2549) = B(651) IF (DO_JVS(2550)) & -! JVS(2550) = Jac_FULL(294,230) - JVS(2550) = 0.085*B(1001) +! JVS(2550) = Jac_FULL(296,349) + JVS(2550) = -B(1600) IF (DO_JVS(2551)) & -! JVS(2551) = Jac_FULL(294,231) - JVS(2551) = 0.165*B(1003) +! JVS(2551) = Jac_FULL(296,350) + JVS(2551) = -B(1602) IF (DO_JVS(2552)) & -! JVS(2552) = Jac_FULL(294,232) - JVS(2552) = 0 +! JVS(2552) = Jac_FULL(296,353) + JVS(2552) = -B(1590) IF (DO_JVS(2553)) & -! JVS(2553) = Jac_FULL(294,238) - JVS(2553) = 0.355*B(1009) +! JVS(2553) = Jac_FULL(297,94) + JVS(2553) = B(943)+B(1772) IF (DO_JVS(2554)) & -! JVS(2554) = Jac_FULL(294,244) - JVS(2554) = 0.3*B(61) +! JVS(2554) = Jac_FULL(297,102) + JVS(2554) = 0.791*B(330)+B(1692) IF (DO_JVS(2555)) & -! JVS(2555) = Jac_FULL(294,247) - JVS(2555) = B(689) +! JVS(2555) = Jac_FULL(297,163) + JVS(2555) = 0.5*B(770)+B(1824) IF (DO_JVS(2556)) & -! JVS(2556) = Jac_FULL(294,250) - JVS(2556) = 0 +! JVS(2556) = Jac_FULL(297,164) + JVS(2556) = 0.6*B(1826) IF (DO_JVS(2557)) & -! JVS(2557) = Jac_FULL(294,253) - JVS(2557) = 0.083*B(1276)+0.14*B(1283) +! JVS(2557) = Jac_FULL(297,165) + JVS(2557) = 0.3*B(798) IF (DO_JVS(2558)) & -! JVS(2558) = Jac_FULL(294,254) - JVS(2558) = 0.05*B(1270)+0.242*B(1272) +! JVS(2558) = Jac_FULL(297,179) + JVS(2558) = 0.4*B(772) IF (DO_JVS(2559)) & -! JVS(2559) = Jac_FULL(294,258) - JVS(2559) = 0.118*B(1793) +! JVS(2559) = Jac_FULL(297,222) + JVS(2559) = 0.5*B(729) IF (DO_JVS(2560)) & -! JVS(2560) = Jac_FULL(294,259) - JVS(2560) = 0 +! JVS(2560) = Jac_FULL(297,234) + JVS(2560) = 0.3*B(859)+0.3*B(861)+0.15*B(863)+0.45*B(1829) IF (DO_JVS(2561)) & -! JVS(2561) = Jac_FULL(294,266) - JVS(2561) = B(1799) +! JVS(2561) = Jac_FULL(297,255) + JVS(2561) = 0.34*B(1698) IF (DO_JVS(2562)) & -! JVS(2562) = Jac_FULL(294,267) - JVS(2562) = 0 +! JVS(2562) = Jac_FULL(297,263) + JVS(2562) = 0.5*B(871)+0.5*B(873)+0.25*B(875) IF (DO_JVS(2563)) & -! JVS(2563) = Jac_FULL(294,268) - JVS(2563) = 0 +! JVS(2563) = Jac_FULL(297,275) + JVS(2563) = 0.6*B(790)+0.4*B(792)+0.6*B(794) IF (DO_JVS(2564)) & -! JVS(2564) = Jac_FULL(294,271) +! JVS(2564) = Jac_FULL(297,276) JVS(2564) = 0 IF (DO_JVS(2565)) & -! JVS(2565) = Jac_FULL(294,276) - JVS(2565) = 0.3*B(953)+0.3*B(955) +! JVS(2565) = Jac_FULL(297,281) + JVS(2565) = 0 IF (DO_JVS(2566)) & -! JVS(2566) = Jac_FULL(294,285) - JVS(2566) = 0 +! JVS(2566) = Jac_FULL(297,282) + JVS(2566) = 0.84*B(764)+B(766)+0.75*B(768) IF (DO_JVS(2567)) & -! JVS(2567) = Jac_FULL(294,286) - JVS(2567) = 0.52*B(1064)+0.8*B(1066) +! JVS(2567) = Jac_FULL(297,283) + JVS(2567) = 0.34*B(1701) IF (DO_JVS(2568)) & -! JVS(2568) = Jac_FULL(294,287) - JVS(2568) = 0.23*B(1770) +! JVS(2568) = Jac_FULL(297,294) + JVS(2568) = 0.45*B(855)+0.45*B(857)+0.45*B(889)+0.45*B(891) IF (DO_JVS(2569)) & -! JVS(2569) = Jac_FULL(294,288) - JVS(2569) = 0.47*B(1767) +! JVS(2569) = Jac_FULL(297,297) + JVS(2569) = -B(212)-B(417)-B(633)-B(1676)-B(1677) IF (DO_JVS(2570)) & -! JVS(2570) = Jac_FULL(294,290) - JVS(2570) = 0 +! JVS(2570) = Jac_FULL(297,304) + JVS(2570) = 0.34*B(171)+0.16*B(257)+0.29*B(351) IF (DO_JVS(2571)) & -! JVS(2571) = Jac_FULL(294,293) +! JVS(2571) = Jac_FULL(297,322) JVS(2571) = 0 IF (DO_JVS(2572)) & -! JVS(2572) = Jac_FULL(294,294) - JVS(2572) = -B(314)-B(318)-B(1616)-B(1670) +! JVS(2572) = Jac_FULL(297,323) + JVS(2572) = 0.34*B(177)+0.16*B(253)+0.29*B(349) IF (DO_JVS(2573)) & -! JVS(2573) = Jac_FULL(294,299) +! JVS(2573) = Jac_FULL(297,324) JVS(2573) = 0 IF (DO_JVS(2574)) & -! JVS(2574) = Jac_FULL(294,301) - JVS(2574) = 0 +! JVS(2574) = Jac_FULL(297,327) + JVS(2574) = B(187)+0.75*B(265)+B(357) IF (DO_JVS(2575)) & -! JVS(2575) = Jac_FULL(294,302) - JVS(2575) = 0.449*B(1236) +! JVS(2575) = Jac_FULL(297,328) + JVS(2575) = 0.29*B(350)+0.29*B(352)+B(358)+0.45*B(892) IF (DO_JVS(2576)) & -! JVS(2576) = Jac_FULL(294,303) - JVS(2576) = 0 +! JVS(2576) = Jac_FULL(297,334) + JVS(2576) = 0.16*B(254)+0.16*B(258)+0.75*B(266)+0.75*B(769)+0.4*B(793)+0.45*B(890) IF (DO_JVS(2577)) & -! JVS(2577) = Jac_FULL(294,304) - JVS(2577) = 0.3*B(968) +! JVS(2577) = Jac_FULL(297,338) + JVS(2577) = 0.34*B(172)+0.34*B(178)+B(188)+0.84*B(765)+0.6*B(791)+0.45*B(856) IF (DO_JVS(2578)) & -! JVS(2578) = Jac_FULL(294,305) - JVS(2578) = 0.3*B(966) +! JVS(2578) = Jac_FULL(297,341) + JVS(2578) = 0 IF (DO_JVS(2579)) & -! JVS(2579) = Jac_FULL(294,307) - JVS(2579) = B(320) +! JVS(2579) = Jac_FULL(297,342) + JVS(2579) = -B(418) IF (DO_JVS(2580)) & -! JVS(2580) = Jac_FULL(294,308) - JVS(2580) = 0 +! JVS(2580) = Jac_FULL(297,343) + JVS(2580) = -B(213)+0.791*B(331)+0.5*B(771)+0.4*B(773)+0.3*B(799)+0.3*B(860)+0.5*B(872)+B(944) IF (DO_JVS(2581)) & -! JVS(2581) = Jac_FULL(294,309) - JVS(2581) = 0.88*B(1232) +! JVS(2581) = Jac_FULL(297,345) + JVS(2581) = 0 IF (DO_JVS(2582)) & -! JVS(2582) = Jac_FULL(294,310) - JVS(2582) = 0 +! JVS(2582) = Jac_FULL(297,348) + JVS(2582) = B(767)+0.6*B(795)+0.45*B(858)+0.15*B(864)+0.25*B(876) IF (DO_JVS(2583)) & -! JVS(2583) = Jac_FULL(294,311) - JVS(2583) = 0 +! JVS(2583) = Jac_FULL(297,352) + JVS(2583) = -B(634) IF (DO_JVS(2584)) & -! JVS(2584) = Jac_FULL(294,313) - JVS(2584) = 0.5*B(261)+0.1*B(353) +! JVS(2584) = Jac_FULL(297,356) + JVS(2584) = 0.5*B(730)+0.3*B(862)+0.5*B(874) IF (DO_JVS(2585)) & -! JVS(2585) = Jac_FULL(294,314) - JVS(2585) = 0.545*B(1226) +! JVS(2585) = Jac_FULL(298,85) + JVS(2585) = 0.12*B(1383) IF (DO_JVS(2586)) & -! JVS(2586) = Jac_FULL(294,320) - JVS(2586) = 0 +! JVS(2586) = Jac_FULL(298,103) + JVS(2586) = 0.2*B(1385) IF (DO_JVS(2587)) & -! JVS(2587) = Jac_FULL(294,324) - JVS(2587) = 0.1*B(354) +! JVS(2587) = Jac_FULL(298,109) + JVS(2587) = 0.7*B(1304) IF (DO_JVS(2588)) & -! JVS(2588) = Jac_FULL(294,328) - JVS(2588) = 0.5*B(262) +! JVS(2588) = Jac_FULL(298,161) + JVS(2588) = 0 IF (DO_JVS(2589)) & -! JVS(2589) = Jac_FULL(294,335) +! JVS(2589) = Jac_FULL(298,189) JVS(2589) = 0 IF (DO_JVS(2590)) & -! JVS(2590) = Jac_FULL(294,337) - JVS(2590) = 0.52*B(1065)+0.05*B(1271)+0.083*B(1277) +! JVS(2590) = Jac_FULL(298,190) + JVS(2590) = B(1260)+0.571*B(1781) IF (DO_JVS(2591)) & -! JVS(2591) = Jac_FULL(294,340) - JVS(2591) = 0 +! JVS(2591) = Jac_FULL(298,197) + JVS(2591) = 0.187*B(1258)+0.125*B(1782) IF (DO_JVS(2592)) & -! JVS(2592) = Jac_FULL(294,341) - JVS(2592) = 0.545*B(1227)+0.88*B(1233)+0.6*B(1473) +! JVS(2592) = Jac_FULL(298,198) + JVS(2592) = 0.429*B(1808) IF (DO_JVS(2593)) & -! JVS(2593) = Jac_FULL(294,342) - JVS(2593) = 0 +! JVS(2593) = Jac_FULL(298,202) + JVS(2593) = 0.018*B(1029) IF (DO_JVS(2594)) & -! JVS(2594) = Jac_FULL(294,345) - JVS(2594) = 0.3*B(62)-B(315)+B(321)+B(690)+0.3*B(954)+0.3*B(956)+0.085*B(1002)+0.165*B(1004)+0.355*B(1010)+0.5*B(1012)& - &+0.018*B(1028)+0.018*B(1030)+0.449*B(1237)+0.187*B(1259)+B(1261)+B(1265)+0.7*B(1305)+0.25*B(1349)+0.12& - &*B(1384)+0.2*B(1386)+0.6*B(1471) +! JVS(2594) = Jac_FULL(298,203) + JVS(2594) = 0.25*B(1348) IF (DO_JVS(2595)) & -! JVS(2595) = Jac_FULL(294,346) - JVS(2595) = 0.8*B(1067)+0.242*B(1273)+0.14*B(1284) +! JVS(2595) = Jac_FULL(298,204) + JVS(2595) = 0.6*B(1470)+0.6*B(1472)+0.2*B(1474) IF (DO_JVS(2596)) & -! JVS(2596) = Jac_FULL(294,351) - JVS(2596) = -B(319) +! JVS(2596) = Jac_FULL(298,213) + JVS(2596) = 0.018*B(1027) IF (DO_JVS(2597)) & -! JVS(2597) = Jac_FULL(295,91) - JVS(2597) = B(943)+B(1759) +! JVS(2597) = Jac_FULL(298,218) + JVS(2597) = 0.5*B(1011) IF (DO_JVS(2598)) & -! JVS(2598) = Jac_FULL(295,100) - JVS(2598) = 0.791*B(330)+B(1679) +! JVS(2598) = Jac_FULL(298,226) + JVS(2598) = 0 IF (DO_JVS(2599)) & -! JVS(2599) = Jac_FULL(295,160) - JVS(2599) = 0.5*B(770)+B(1811) +! JVS(2599) = Jac_FULL(298,228) + JVS(2599) = 0 IF (DO_JVS(2600)) & -! JVS(2600) = Jac_FULL(295,161) - JVS(2600) = 0.6*B(1813) +! JVS(2600) = Jac_FULL(298,230) + JVS(2600) = B(1264)+0.5*B(1779) IF (DO_JVS(2601)) & -! JVS(2601) = Jac_FULL(295,162) - JVS(2601) = 0.3*B(798) +! JVS(2601) = Jac_FULL(298,231) + JVS(2601) = 0.165*B(1003) IF (DO_JVS(2602)) & -! JVS(2602) = Jac_FULL(295,176) - JVS(2602) = 0.4*B(772) +! JVS(2602) = Jac_FULL(298,233) + JVS(2602) = 0.085*B(1001) IF (DO_JVS(2603)) & -! JVS(2603) = Jac_FULL(295,219) - JVS(2603) = 0.5*B(729) +! JVS(2603) = Jac_FULL(298,235) + JVS(2603) = 0 IF (DO_JVS(2604)) & -! JVS(2604) = Jac_FULL(295,229) - JVS(2604) = 0.3*B(859)+0.3*B(861)+0.15*B(863)+0.45*B(1816) +! JVS(2604) = Jac_FULL(298,242) + JVS(2604) = 0.355*B(1009) IF (DO_JVS(2605)) & -! JVS(2605) = Jac_FULL(295,251) - JVS(2605) = 0.34*B(1685) +! JVS(2605) = Jac_FULL(298,247) + JVS(2605) = 0.3*B(61) IF (DO_JVS(2606)) & -! JVS(2606) = Jac_FULL(295,262) - JVS(2606) = 0.5*B(871)+0.5*B(873)+0.25*B(875) +! JVS(2606) = Jac_FULL(298,249) + JVS(2606) = B(689) IF (DO_JVS(2607)) & -! JVS(2607) = Jac_FULL(295,273) - JVS(2607) = 0.6*B(790)+0.4*B(792)+0.6*B(794) +! JVS(2607) = Jac_FULL(298,253) + JVS(2607) = 0 IF (DO_JVS(2608)) & -! JVS(2608) = Jac_FULL(295,275) - JVS(2608) = 0 +! JVS(2608) = Jac_FULL(298,257) + JVS(2608) = 0.083*B(1276)+0.14*B(1283) IF (DO_JVS(2609)) & -! JVS(2609) = Jac_FULL(295,277) - JVS(2609) = 0 +! JVS(2609) = Jac_FULL(298,258) + JVS(2609) = 0.05*B(1270)+0.242*B(1272) IF (DO_JVS(2610)) & -! JVS(2610) = Jac_FULL(295,278) - JVS(2610) = 0.84*B(764)+B(766)+0.75*B(768) +! JVS(2610) = Jac_FULL(298,259) + JVS(2610) = 0.118*B(1806) IF (DO_JVS(2611)) & -! JVS(2611) = Jac_FULL(295,279) - JVS(2611) = 0.34*B(1688) +! JVS(2611) = Jac_FULL(298,262) + JVS(2611) = 0 IF (DO_JVS(2612)) & -! JVS(2612) = Jac_FULL(295,291) - JVS(2612) = 0.45*B(855)+0.45*B(857)+0.45*B(889)+0.45*B(891) +! JVS(2612) = Jac_FULL(298,269) + JVS(2612) = B(1812) IF (DO_JVS(2613)) & -! JVS(2613) = Jac_FULL(295,295) - JVS(2613) = -B(212)-B(417)-B(633)-B(1663)-B(1664) +! JVS(2613) = Jac_FULL(298,270) + JVS(2613) = 0 IF (DO_JVS(2614)) & -! JVS(2614) = Jac_FULL(295,300) - JVS(2614) = 0.34*B(171)+0.16*B(257)+0.29*B(351) +! JVS(2614) = Jac_FULL(298,271) + JVS(2614) = 0 IF (DO_JVS(2615)) & -! JVS(2615) = Jac_FULL(295,318) +! JVS(2615) = Jac_FULL(298,273) JVS(2615) = 0 IF (DO_JVS(2616)) & -! JVS(2616) = Jac_FULL(295,319) - JVS(2616) = 0.34*B(177)+0.16*B(253)+0.29*B(349) +! JVS(2616) = Jac_FULL(298,279) + JVS(2616) = 0.3*B(953)+0.3*B(955) IF (DO_JVS(2617)) & -! JVS(2617) = Jac_FULL(295,320) +! JVS(2617) = Jac_FULL(298,288) JVS(2617) = 0 IF (DO_JVS(2618)) & -! JVS(2618) = Jac_FULL(295,323) - JVS(2618) = B(187)+0.75*B(265)+B(357) +! JVS(2618) = Jac_FULL(298,289) + JVS(2618) = 0.52*B(1064)+0.8*B(1066) IF (DO_JVS(2619)) & -! JVS(2619) = Jac_FULL(295,324) - JVS(2619) = 0.29*B(350)+0.29*B(352)+B(358)+0.45*B(892) +! JVS(2619) = Jac_FULL(298,290) + JVS(2619) = 0.23*B(1783) IF (DO_JVS(2620)) & -! JVS(2620) = Jac_FULL(295,328) - JVS(2620) = 0.16*B(254)+0.16*B(258)+0.75*B(266)+0.75*B(769)+0.4*B(793)+0.45*B(890) +! JVS(2620) = Jac_FULL(298,291) + JVS(2620) = 0.47*B(1780) IF (DO_JVS(2621)) & -! JVS(2621) = Jac_FULL(295,335) +! JVS(2621) = Jac_FULL(298,293) JVS(2621) = 0 IF (DO_JVS(2622)) & -! JVS(2622) = Jac_FULL(295,337) - JVS(2622) = 0 +! JVS(2622) = Jac_FULL(298,298) + JVS(2622) = -B(314)-B(318)-B(1616)-B(1683) IF (DO_JVS(2623)) & -! JVS(2623) = Jac_FULL(295,340) - JVS(2623) = -B(634) +! JVS(2623) = Jac_FULL(298,299) + JVS(2623) = 0 IF (DO_JVS(2624)) & -! JVS(2624) = Jac_FULL(295,341) - JVS(2624) = 0.5*B(730)+0.3*B(862)+0.5*B(874) +! JVS(2624) = Jac_FULL(298,303) + JVS(2624) = 0 IF (DO_JVS(2625)) & -! JVS(2625) = Jac_FULL(295,342) - JVS(2625) = -B(418) +! JVS(2625) = Jac_FULL(298,305) + JVS(2625) = 0 IF (DO_JVS(2626)) & -! JVS(2626) = Jac_FULL(295,345) - JVS(2626) = -B(213)+0.791*B(331)+0.5*B(771)+0.4*B(773)+0.3*B(799)+0.3*B(860)+0.5*B(872)+B(944) +! JVS(2626) = Jac_FULL(298,306) + JVS(2626) = 0.449*B(1236) IF (DO_JVS(2627)) & -! JVS(2627) = Jac_FULL(295,346) - JVS(2627) = 0.34*B(172)+0.34*B(178)+B(188)+0.84*B(765)+0.6*B(791)+0.45*B(856) +! JVS(2627) = Jac_FULL(298,307) + JVS(2627) = 0 IF (DO_JVS(2628)) & -! JVS(2628) = Jac_FULL(295,351) - JVS(2628) = B(767)+0.6*B(795)+0.45*B(858)+0.15*B(864)+0.25*B(876) +! JVS(2628) = Jac_FULL(298,308) + JVS(2628) = 0 IF (DO_JVS(2629)) & -! JVS(2629) = Jac_FULL(296,173) - JVS(2629) = B(1336) +! JVS(2629) = Jac_FULL(298,310) + JVS(2629) = 0 IF (DO_JVS(2630)) & -! JVS(2630) = Jac_FULL(296,183) - JVS(2630) = B(106)+B(344)+B(419)+B(617) +! JVS(2630) = Jac_FULL(298,311) + JVS(2630) = B(320) IF (DO_JVS(2631)) & -! JVS(2631) = Jac_FULL(296,200) +! JVS(2631) = Jac_FULL(298,312) JVS(2631) = 0 IF (DO_JVS(2632)) & -! JVS(2632) = Jac_FULL(296,201) - JVS(2632) = 0 +! JVS(2632) = Jac_FULL(298,313) + JVS(2632) = 0.88*B(1232) IF (DO_JVS(2633)) & -! JVS(2633) = Jac_FULL(296,221) - JVS(2633) = 0 +! JVS(2633) = Jac_FULL(298,314) + JVS(2633) = 0.3*B(966) IF (DO_JVS(2634)) & -! JVS(2634) = Jac_FULL(296,240) - JVS(2634) = 0 +! JVS(2634) = Jac_FULL(298,315) + JVS(2634) = 0.3*B(968) IF (DO_JVS(2635)) & -! JVS(2635) = Jac_FULL(296,246) - JVS(2635) = 0 +! JVS(2635) = Jac_FULL(298,316) + JVS(2635) = 0.5*B(261)+0.1*B(353) IF (DO_JVS(2636)) & -! JVS(2636) = Jac_FULL(296,269) - JVS(2636) = 0 +! JVS(2636) = Jac_FULL(298,318) + JVS(2636) = 0.545*B(1226) IF (DO_JVS(2637)) & -! JVS(2637) = Jac_FULL(296,289) +! JVS(2637) = Jac_FULL(298,324) JVS(2637) = 0 IF (DO_JVS(2638)) & -! JVS(2638) = Jac_FULL(296,291) - JVS(2638) = 0 +! JVS(2638) = Jac_FULL(298,328) + JVS(2638) = 0.1*B(354) IF (DO_JVS(2639)) & -! JVS(2639) = Jac_FULL(296,296) - JVS(2639) = -B(108)-B(110)-B(247)-2*B(273)-B(275)-B(365)-B(619) +! JVS(2639) = Jac_FULL(298,334) + JVS(2639) = 0.5*B(262) IF (DO_JVS(2640)) & -! JVS(2640) = Jac_FULL(296,320) - JVS(2640) = 0 +! JVS(2640) = Jac_FULL(298,338) + JVS(2640) = 0.8*B(1067)+0.242*B(1273)+0.14*B(1284) IF (DO_JVS(2641)) & -! JVS(2641) = Jac_FULL(296,322) - JVS(2641) = 0 +! JVS(2641) = Jac_FULL(298,341) + JVS(2641) = 0.52*B(1065)+0.05*B(1271)+0.083*B(1277) IF (DO_JVS(2642)) & -! JVS(2642) = Jac_FULL(296,324) - JVS(2642) = -B(366) +! JVS(2642) = Jac_FULL(298,342) + JVS(2642) = 0 IF (DO_JVS(2643)) & -! JVS(2643) = Jac_FULL(296,328) - JVS(2643) = -B(248) +! JVS(2643) = Jac_FULL(298,343) + JVS(2643) = 0.3*B(62)-B(315)+B(321)+B(690)+0.3*B(954)+0.3*B(956)+0.085*B(1002)+0.165*B(1004)+0.355*B(1010)+0.5*B(1012)& + &+0.018*B(1028)+0.018*B(1030)+0.449*B(1237)+0.187*B(1259)+B(1261)+B(1265)+0.7*B(1305)+0.25*B(1349)+0.12& + &*B(1384)+0.2*B(1386)+0.6*B(1471) IF (DO_JVS(2644)) & -! JVS(2644) = Jac_FULL(296,335) +! JVS(2644) = Jac_FULL(298,345) JVS(2644) = 0 IF (DO_JVS(2645)) & -! JVS(2645) = Jac_FULL(296,337) - JVS(2645) = -B(276) +! JVS(2645) = Jac_FULL(298,348) + JVS(2645) = -B(319) IF (DO_JVS(2646)) & -! JVS(2646) = Jac_FULL(296,340) - JVS(2646) = B(618)-B(620) +! JVS(2646) = Jac_FULL(298,352) + JVS(2646) = 0 IF (DO_JVS(2647)) & -! JVS(2647) = Jac_FULL(296,341) - JVS(2647) = 0 +! JVS(2647) = Jac_FULL(298,356) + JVS(2647) = 0.545*B(1227)+0.88*B(1233)+0.6*B(1473) IF (DO_JVS(2648)) & -! JVS(2648) = Jac_FULL(296,342) - JVS(2648) = B(420) +! JVS(2648) = Jac_FULL(299,147) + JVS(2648) = B(1179) IF (DO_JVS(2649)) & -! JVS(2649) = Jac_FULL(296,345) - JVS(2649) = B(107)+B(1337) +! JVS(2649) = Jac_FULL(299,188) + JVS(2649) = 0 IF (DO_JVS(2650)) & -! JVS(2650) = Jac_FULL(296,346) - JVS(2650) = -B(109)-B(111) +! JVS(2650) = Jac_FULL(299,225) + JVS(2650) = 0.33*B(1180) IF (DO_JVS(2651)) & -! JVS(2651) = Jac_FULL(296,351) - JVS(2651) = B(345) +! JVS(2651) = Jac_FULL(299,299) + JVS(2651) = -B(1141)-B(1143)-B(1145) IF (DO_JVS(2652)) & -! JVS(2652) = Jac_FULL(297,214) - JVS(2652) = B(1498)+B(1501)+B(1503) +! JVS(2652) = Jac_FULL(299,303) + JVS(2652) = 0 IF (DO_JVS(2653)) & -! JVS(2653) = Jac_FULL(297,297) - JVS(2653) = -B(543)-B(1527)-B(1529)-B(1531)-B(1533)-B(1535)-B(1537)-B(1706) +! JVS(2653) = Jac_FULL(299,307) + JVS(2653) = 0.037*B(1316) IF (DO_JVS(2654)) & -! JVS(2654) = Jac_FULL(297,335) +! JVS(2654) = Jac_FULL(299,308) JVS(2654) = 0 IF (DO_JVS(2655)) & -! JVS(2655) = Jac_FULL(297,336) +! JVS(2655) = Jac_FULL(299,310) JVS(2655) = 0 IF (DO_JVS(2656)) & -! JVS(2656) = Jac_FULL(297,339) - JVS(2656) = B(1499)-B(1532) +! JVS(2656) = Jac_FULL(299,328) + JVS(2656) = 0 IF (DO_JVS(2657)) & -! JVS(2657) = Jac_FULL(297,344) - JVS(2657) = B(1504)-B(1530) +! JVS(2657) = Jac_FULL(299,334) + JVS(2657) = 0 IF (DO_JVS(2658)) & -! JVS(2658) = Jac_FULL(297,345) - JVS(2658) = -B(544) +! JVS(2658) = Jac_FULL(299,338) + JVS(2658) = -B(1144)-B(1146) IF (DO_JVS(2659)) & -! JVS(2659) = Jac_FULL(297,349) - JVS(2659) = -B(1534) +! JVS(2659) = Jac_FULL(299,341) + JVS(2659) = -B(1142) IF (DO_JVS(2660)) & -! JVS(2660) = Jac_FULL(297,350) - JVS(2660) = -B(1536) +! JVS(2660) = Jac_FULL(299,343) + JVS(2660) = 0.33*B(1181)+0.037*B(1317) IF (DO_JVS(2661)) & -! JVS(2661) = Jac_FULL(297,351) +! JVS(2661) = Jac_FULL(299,348) JVS(2661) = 0 IF (DO_JVS(2662)) & -! JVS(2662) = Jac_FULL(297,352) - JVS(2662) = -B(1538) +! JVS(2662) = Jac_FULL(300,176) + JVS(2662) = B(1336) IF (DO_JVS(2663)) & -! JVS(2663) = Jac_FULL(297,353) - JVS(2663) = B(1502)-B(1528) +! JVS(2663) = Jac_FULL(300,187) + JVS(2663) = B(106)+B(344)+B(419)+B(617) IF (DO_JVS(2664)) & -! JVS(2664) = Jac_FULL(298,95) - JVS(2664) = B(945)+B(1760) +! JVS(2664) = Jac_FULL(300,203) + JVS(2664) = 0 IF (DO_JVS(2665)) & -! JVS(2665) = Jac_FULL(298,97) - JVS(2665) = 1.185*B(332)+1.5*B(1680) +! JVS(2665) = Jac_FULL(300,204) + JVS(2665) = 0 IF (DO_JVS(2666)) & -! JVS(2666) = Jac_FULL(298,98) - JVS(2666) = 0.5*B(134)+B(1681) +! JVS(2666) = Jac_FULL(300,224) + JVS(2666) = 0 IF (DO_JVS(2667)) & -! JVS(2667) = Jac_FULL(298,99) - JVS(2667) = 0.64*B(328)+B(1678) +! JVS(2667) = Jac_FULL(300,243) + JVS(2667) = 0 IF (DO_JVS(2668)) & -! JVS(2668) = Jac_FULL(298,102) - JVS(2668) = 1.185*B(334)+1.5*B(1682) +! JVS(2668) = Jac_FULL(300,250) + JVS(2668) = 0 IF (DO_JVS(2669)) & -! JVS(2669) = Jac_FULL(298,125) - JVS(2669) = B(1676) +! JVS(2669) = Jac_FULL(300,272) + JVS(2669) = 0 IF (DO_JVS(2670)) & -! JVS(2670) = Jac_FULL(298,130) - JVS(2670) = B(849)+B(1815) +! JVS(2670) = Jac_FULL(300,292) + JVS(2670) = 0 IF (DO_JVS(2671)) & -! JVS(2671) = Jac_FULL(298,161) - JVS(2671) = 0.6*B(1813) +! JVS(2671) = Jac_FULL(300,294) + JVS(2671) = 0 IF (DO_JVS(2672)) & -! JVS(2672) = Jac_FULL(298,162) - JVS(2672) = 0.3*B(798) +! JVS(2672) = Jac_FULL(300,300) + JVS(2672) = -B(108)-B(110)-B(247)-2*B(273)-B(275)-B(365)-B(619) IF (DO_JVS(2673)) & -! JVS(2673) = Jac_FULL(298,165) - JVS(2673) = 1.24*B(138) +! JVS(2673) = Jac_FULL(300,324) + JVS(2673) = 0 IF (DO_JVS(2674)) & -! JVS(2674) = Jac_FULL(298,169) - JVS(2674) = B(1814) +! JVS(2674) = Jac_FULL(300,325) + JVS(2674) = 0 IF (DO_JVS(2675)) & -! JVS(2675) = Jac_FULL(298,178) - JVS(2675) = 0.75*B(128) +! JVS(2675) = Jac_FULL(300,328) + JVS(2675) = -B(366) IF (DO_JVS(2676)) & -! JVS(2676) = Jac_FULL(298,188) - JVS(2676) = B(271) +! JVS(2676) = Jac_FULL(300,334) + JVS(2676) = -B(248) IF (DO_JVS(2677)) & -! JVS(2677) = Jac_FULL(298,196) - JVS(2677) = 1.558*B(1686) +! JVS(2677) = Jac_FULL(300,338) + JVS(2677) = -B(109)-B(111) IF (DO_JVS(2678)) & -! JVS(2678) = Jac_FULL(298,201) - JVS(2678) = 1.15*B(1474) +! JVS(2678) = Jac_FULL(300,341) + JVS(2678) = -B(276) IF (DO_JVS(2679)) & -! JVS(2679) = Jac_FULL(298,212) - JVS(2679) = 0.326*B(148)+0.894*B(150) +! JVS(2679) = Jac_FULL(300,342) + JVS(2679) = B(420) IF (DO_JVS(2680)) & -! JVS(2680) = Jac_FULL(298,219) - JVS(2680) = 0.3*B(729) +! JVS(2680) = Jac_FULL(300,343) + JVS(2680) = B(107)+B(1337) IF (DO_JVS(2681)) & -! JVS(2681) = Jac_FULL(298,221) - JVS(2681) = 1.2*B(1469) +! JVS(2681) = Jac_FULL(300,345) + JVS(2681) = 0 IF (DO_JVS(2682)) & -! JVS(2682) = Jac_FULL(298,229) - JVS(2682) = B(1748) +! JVS(2682) = Jac_FULL(300,348) + JVS(2682) = B(345) IF (DO_JVS(2683)) & -! JVS(2683) = Jac_FULL(298,242) - JVS(2683) = B(1751) +! JVS(2683) = Jac_FULL(300,352) + JVS(2683) = B(618)-B(620) IF (DO_JVS(2684)) & -! JVS(2684) = Jac_FULL(298,249) - JVS(2684) = 0.64*B(175)+0.58*B(259)+0.613*B(361) +! JVS(2684) = Jac_FULL(300,356) + JVS(2684) = 0 IF (DO_JVS(2685)) & -! JVS(2685) = Jac_FULL(298,250) - JVS(2685) = 0.25*B(267)+0.1*B(363) +! JVS(2685) = Jac_FULL(301,217) + JVS(2685) = B(1498)+B(1501)+B(1503) IF (DO_JVS(2686)) & -! JVS(2686) = Jac_FULL(298,251) - JVS(2686) = 0.15*B(1685) +! JVS(2686) = Jac_FULL(301,301) + JVS(2686) = -B(543)-B(1527)-B(1529)-B(1531)-B(1533)-B(1535)-B(1537)-B(1719) IF (DO_JVS(2687)) & -! JVS(2687) = Jac_FULL(298,260) - JVS(2687) = 0.09*B(216)+0.035*B(369) +! JVS(2687) = Jac_FULL(301,339) + JVS(2687) = B(1502)-B(1528) IF (DO_JVS(2688)) & -! JVS(2688) = Jac_FULL(298,269) - JVS(2688) = 0 +! JVS(2688) = Jac_FULL(301,340) + JVS(2688) = B(1499)-B(1532) IF (DO_JVS(2689)) & -! JVS(2689) = Jac_FULL(298,272) - JVS(2689) = 0 +! JVS(2689) = Jac_FULL(301,343) + JVS(2689) = -B(544) IF (DO_JVS(2690)) & -! JVS(2690) = Jac_FULL(298,273) - JVS(2690) = 0.6*B(790)+0.4*B(792)+0.6*B(794) +! JVS(2690) = Jac_FULL(301,345) + JVS(2690) = 0 IF (DO_JVS(2691)) & -! JVS(2691) = Jac_FULL(298,274) - JVS(2691) = 0.44*B(838)+B(840)+B(845)+0.75*B(897)+B(899) +! JVS(2691) = Jac_FULL(301,346) + JVS(2691) = B(1504)-B(1530) IF (DO_JVS(2692)) & -! JVS(2692) = Jac_FULL(298,275) +! JVS(2692) = Jac_FULL(301,348) JVS(2692) = 0 IF (DO_JVS(2693)) & -! JVS(2693) = Jac_FULL(298,279) - JVS(2693) = 0.15*B(1688) +! JVS(2693) = Jac_FULL(301,349) + JVS(2693) = -B(1534) IF (DO_JVS(2694)) & -! JVS(2694) = Jac_FULL(298,280) - JVS(2694) = 0.64*B(922) +! JVS(2694) = Jac_FULL(301,350) + JVS(2694) = -B(1536) IF (DO_JVS(2695)) & -! JVS(2695) = Jac_FULL(298,281) +! JVS(2695) = Jac_FULL(301,353) JVS(2695) = 0 IF (DO_JVS(2696)) & -! JVS(2696) = Jac_FULL(298,289) - JVS(2696) = 1.24*B(903)+0.93*B(911)+1.24*B(915)+1.24*B(919)+0.64*B(923)+1.21*B(924) +! JVS(2696) = Jac_FULL(301,354) + JVS(2696) = -B(1538) IF (DO_JVS(2697)) & -! JVS(2697) = Jac_FULL(298,290) - JVS(2697) = 0 +! JVS(2697) = Jac_FULL(302,97) + JVS(2697) = B(945)+B(1773) IF (DO_JVS(2698)) & -! JVS(2698) = Jac_FULL(298,291) - JVS(2698) = 0 +! JVS(2698) = Jac_FULL(302,99) + JVS(2698) = 1.185*B(332)+1.5*B(1693) IF (DO_JVS(2699)) & -! JVS(2699) = Jac_FULL(298,298) - JVS(2699) = -B(201)-B(210)-B(1662) +! JVS(2699) = Jac_FULL(302,100) + JVS(2699) = 0.5*B(134)+B(1694) IF (DO_JVS(2700)) & -! JVS(2700) = Jac_FULL(298,300) - JVS(2700) = 0.15*B(171)+0.13*B(257)+0.255*B(351) +! JVS(2700) = Jac_FULL(302,101) + JVS(2700) = 0.64*B(328)+B(1691) IF (DO_JVS(2701)) & -! JVS(2701) = Jac_FULL(298,314) - JVS(2701) = 0 +! JVS(2701) = Jac_FULL(302,104) + JVS(2701) = 1.185*B(334)+1.5*B(1695) IF (DO_JVS(2702)) & -! JVS(2702) = Jac_FULL(298,318) - JVS(2702) = 0.64*B(181)+0.58*B(255)+0.613*B(359) +! JVS(2702) = Jac_FULL(302,128) + JVS(2702) = B(1689) IF (DO_JVS(2703)) & -! JVS(2703) = Jac_FULL(298,319) - JVS(2703) = 0.15*B(177)+0.13*B(253)+0.255*B(349) +! JVS(2703) = Jac_FULL(302,134) + JVS(2703) = B(849)+B(1828) IF (DO_JVS(2704)) & -! JVS(2704) = Jac_FULL(298,320) - JVS(2704) = 0 +! JVS(2704) = Jac_FULL(302,164) + JVS(2704) = 0.6*B(1826) IF (DO_JVS(2705)) & -! JVS(2705) = Jac_FULL(298,321) - JVS(2705) = B(118)+0.75*B(214)+B(371) +! JVS(2705) = Jac_FULL(302,165) + JVS(2705) = 0.3*B(798) IF (DO_JVS(2706)) & -! JVS(2706) = Jac_FULL(298,323) - JVS(2706) = 0 +! JVS(2706) = Jac_FULL(302,168) + JVS(2706) = 1.24*B(138) IF (DO_JVS(2707)) & -! JVS(2707) = Jac_FULL(298,324) - JVS(2707) = 0.255*B(350)+0.255*B(352)+0.613*B(360)+0.613*B(362)+0.1*B(364)+0.035*B(370)+B(372)+B(900)+1.24*B(916) +! JVS(2707) = Jac_FULL(302,171) + JVS(2707) = B(1827) IF (DO_JVS(2708)) & -! JVS(2708) = Jac_FULL(298,328) - JVS(2708) = 0.75*B(215)+0.09*B(217)+0.13*B(254)+0.58*B(256)+0.13*B(258)+0.58*B(260)+0.25*B(268)+0.4*B(793)+0.75*B(898)& - &+0.93*B(912) +! JVS(2708) = Jac_FULL(302,182) + JVS(2708) = 0.75*B(128) IF (DO_JVS(2709)) & -! JVS(2709) = Jac_FULL(298,335) - JVS(2709) = 0 +! JVS(2709) = Jac_FULL(302,192) + JVS(2709) = B(271) IF (DO_JVS(2710)) & -! JVS(2710) = Jac_FULL(298,337) - JVS(2710) = 0.894*B(151)+0.44*B(839) +! JVS(2710) = Jac_FULL(302,200) + JVS(2710) = 1.558*B(1699) IF (DO_JVS(2711)) & -! JVS(2711) = Jac_FULL(298,340) - JVS(2711) = 0 +! JVS(2711) = Jac_FULL(302,204) + JVS(2711) = 1.15*B(1474) IF (DO_JVS(2712)) & -! JVS(2712) = Jac_FULL(298,341) - JVS(2712) = 0.3*B(730) +! JVS(2712) = Jac_FULL(302,215) + JVS(2712) = 0.326*B(148)+0.894*B(150) IF (DO_JVS(2713)) & -! JVS(2713) = Jac_FULL(298,342) - JVS(2713) = 0 +! JVS(2713) = Jac_FULL(302,222) + JVS(2713) = 0.3*B(729) IF (DO_JVS(2714)) & -! JVS(2714) = Jac_FULL(298,345) - JVS(2714) = 0.5*B(135)-B(202)+B(272)+0.64*B(329)+1.185*B(333)+1.185*B(335)+0.3*B(799)+B(850)+B(946) +! JVS(2714) = Jac_FULL(302,224) + JVS(2714) = 1.2*B(1469) IF (DO_JVS(2715)) & -! JVS(2715) = Jac_FULL(298,346) - JVS(2715) = B(119)+0.75*B(129)+1.24*B(139)+0.326*B(149)+0.15*B(172)+0.64*B(176)+0.15*B(178)+0.64*B(182)+0.6*B(791)& - &+B(841)+1.24*B(904) +! JVS(2715) = Jac_FULL(302,234) + JVS(2715) = B(1761) IF (DO_JVS(2716)) & -! JVS(2716) = Jac_FULL(298,351) - JVS(2716) = -B(211)+0.6*B(795)+B(846)+1.24*B(920) +! JVS(2716) = Jac_FULL(302,246) + JVS(2716) = B(1764) IF (DO_JVS(2717)) & -! JVS(2717) = Jac_FULL(299,180) - JVS(2717) = 0.18*B(1222) +! JVS(2717) = Jac_FULL(302,252) + JVS(2717) = 0.64*B(175)+0.58*B(259)+0.613*B(361) IF (DO_JVS(2718)) & -! JVS(2718) = Jac_FULL(299,190) - JVS(2718) = B(1125) +! JVS(2718) = Jac_FULL(302,253) + JVS(2718) = 0.25*B(267)+0.1*B(363) IF (DO_JVS(2719)) & -! JVS(2719) = Jac_FULL(299,205) - JVS(2719) = B(1118) +! JVS(2719) = Jac_FULL(302,255) + JVS(2719) = 0.15*B(1698) IF (DO_JVS(2720)) & -! JVS(2720) = Jac_FULL(299,206) - JVS(2720) = B(1133) +! JVS(2720) = Jac_FULL(302,264) + JVS(2720) = 0.09*B(216)+0.035*B(369) IF (DO_JVS(2721)) & -! JVS(2721) = Jac_FULL(299,207) - JVS(2721) = B(1139) +! JVS(2721) = Jac_FULL(302,272) + JVS(2721) = 0 IF (DO_JVS(2722)) & -! JVS(2722) = Jac_FULL(299,226) - JVS(2722) = B(1208) +! JVS(2722) = Jac_FULL(302,275) + JVS(2722) = 0.6*B(790)+0.4*B(792)+0.6*B(794) IF (DO_JVS(2723)) & -! JVS(2723) = Jac_FULL(299,267) +! JVS(2723) = Jac_FULL(302,276) JVS(2723) = 0 IF (DO_JVS(2724)) & -! JVS(2724) = Jac_FULL(299,268) - JVS(2724) = 0 +! JVS(2724) = Jac_FULL(302,277) + JVS(2724) = 0.44*B(838)+B(840)+B(845)+0.75*B(897)+B(899) IF (DO_JVS(2725)) & -! JVS(2725) = Jac_FULL(299,271) - JVS(2725) = B(1204) +! JVS(2725) = Jac_FULL(302,278) + JVS(2725) = 0 IF (DO_JVS(2726)) & -! JVS(2726) = Jac_FULL(299,293) - JVS(2726) = B(1145) +! JVS(2726) = Jac_FULL(302,280) + JVS(2726) = 0.64*B(922) IF (DO_JVS(2727)) & -! JVS(2727) = Jac_FULL(299,299) - JVS(2727) = -B(1218)-B(1635)-B(1791) +! JVS(2727) = Jac_FULL(302,283) + JVS(2727) = 0.15*B(1701) IF (DO_JVS(2728)) & -! JVS(2728) = Jac_FULL(299,303) +! JVS(2728) = Jac_FULL(302,284) JVS(2728) = 0 IF (DO_JVS(2729)) & -! JVS(2729) = Jac_FULL(299,304) - JVS(2729) = 0 +! JVS(2729) = Jac_FULL(302,292) + JVS(2729) = 1.24*B(903)+0.93*B(911)+1.24*B(915)+1.24*B(919)+0.64*B(923)+1.21*B(924) IF (DO_JVS(2730)) & -! JVS(2730) = Jac_FULL(299,305) +! JVS(2730) = Jac_FULL(302,293) JVS(2730) = 0 IF (DO_JVS(2731)) & -! JVS(2731) = Jac_FULL(299,310) - JVS(2731) = B(1171) +! JVS(2731) = Jac_FULL(302,294) + JVS(2731) = 0 IF (DO_JVS(2732)) & -! JVS(2732) = Jac_FULL(299,311) - JVS(2732) = B(1175) +! JVS(2732) = Jac_FULL(302,302) + JVS(2732) = -B(201)-B(210)-B(1675) IF (DO_JVS(2733)) & -! JVS(2733) = Jac_FULL(299,324) - JVS(2733) = 0 +! JVS(2733) = Jac_FULL(302,304) + JVS(2733) = 0.15*B(171)+0.13*B(257)+0.255*B(351) IF (DO_JVS(2734)) & -! JVS(2734) = Jac_FULL(299,328) +! JVS(2734) = Jac_FULL(302,318) JVS(2734) = 0 IF (DO_JVS(2735)) & -! JVS(2735) = Jac_FULL(299,337) - JVS(2735) = 0.18*B(1223) +! JVS(2735) = Jac_FULL(302,322) + JVS(2735) = 0.64*B(181)+0.58*B(255)+0.613*B(359) IF (DO_JVS(2736)) & -! JVS(2736) = Jac_FULL(299,345) - JVS(2736) = -B(1219) +! JVS(2736) = Jac_FULL(302,323) + JVS(2736) = 0.15*B(177)+0.13*B(253)+0.255*B(349) IF (DO_JVS(2737)) & -! JVS(2737) = Jac_FULL(299,346) - JVS(2737) = B(1119)+B(1126)+B(1134)+B(1140)+B(1146)+B(1172)+B(1176)+B(1205)+B(1209) +! JVS(2737) = Jac_FULL(302,324) + JVS(2737) = 0 IF (DO_JVS(2738)) & -! JVS(2738) = Jac_FULL(299,351) - JVS(2738) = 0 +! JVS(2738) = Jac_FULL(302,326) + JVS(2738) = B(118)+0.75*B(214)+B(371) IF (DO_JVS(2739)) & -! JVS(2739) = Jac_FULL(300,102) - JVS(2739) = 0.21*B(334) +! JVS(2739) = Jac_FULL(302,327) + JVS(2739) = 0 IF (DO_JVS(2740)) & -! JVS(2740) = Jac_FULL(300,142) - JVS(2740) = B(193)+B(637) +! JVS(2740) = Jac_FULL(302,328) + JVS(2740) = 0.255*B(350)+0.255*B(352)+0.613*B(360)+0.613*B(362)+0.1*B(364)+0.035*B(370)+B(372)+B(900)+1.24*B(916) IF (DO_JVS(2741)) & -! JVS(2741) = Jac_FULL(300,201) - JVS(2741) = 0.2*B(1474) +! JVS(2741) = Jac_FULL(302,334) + JVS(2741) = 0.75*B(215)+0.09*B(217)+0.13*B(254)+0.58*B(256)+0.13*B(258)+0.58*B(260)+0.25*B(268)+0.4*B(793)+0.75*B(898)& + &+0.93*B(912) IF (DO_JVS(2742)) & -! JVS(2742) = Jac_FULL(300,300) - JVS(2742) = -B(171)-B(173)-B(222)-B(257)-B(351) +! JVS(2742) = Jac_FULL(302,338) + JVS(2742) = B(119)+0.75*B(129)+1.24*B(139)+0.326*B(149)+0.15*B(172)+0.64*B(176)+0.15*B(178)+0.64*B(182)+0.6*B(791)& + &+B(841)+1.24*B(904) IF (DO_JVS(2743)) & -! JVS(2743) = Jac_FULL(300,324) - JVS(2743) = -B(352) +! JVS(2743) = Jac_FULL(302,341) + JVS(2743) = 0.894*B(151)+0.44*B(839) IF (DO_JVS(2744)) & -! JVS(2744) = Jac_FULL(300,328) - JVS(2744) = -B(258) +! JVS(2744) = Jac_FULL(302,342) + JVS(2744) = 0 IF (DO_JVS(2745)) & -! JVS(2745) = Jac_FULL(300,337) - JVS(2745) = -B(223) +! JVS(2745) = Jac_FULL(302,343) + JVS(2745) = 0.5*B(135)-B(202)+B(272)+0.64*B(329)+1.185*B(333)+1.185*B(335)+0.3*B(799)+B(850)+B(946) IF (DO_JVS(2746)) & -! JVS(2746) = Jac_FULL(300,340) - JVS(2746) = B(638) +! JVS(2746) = Jac_FULL(302,345) + JVS(2746) = 0 IF (DO_JVS(2747)) & -! JVS(2747) = Jac_FULL(300,341) - JVS(2747) = 0 +! JVS(2747) = Jac_FULL(302,348) + JVS(2747) = -B(211)+0.6*B(795)+B(846)+1.24*B(920) IF (DO_JVS(2748)) & -! JVS(2748) = Jac_FULL(300,345) - JVS(2748) = 0.21*B(335) +! JVS(2748) = Jac_FULL(302,352) + JVS(2748) = 0 IF (DO_JVS(2749)) & -! JVS(2749) = Jac_FULL(300,346) - JVS(2749) = -B(172)-B(174) +! JVS(2749) = Jac_FULL(302,356) + JVS(2749) = 0.3*B(730) IF (DO_JVS(2750)) & -! JVS(2750) = Jac_FULL(300,351) - JVS(2750) = B(194) +! JVS(2750) = Jac_FULL(303,181) + JVS(2750) = 0.18*B(1222) IF (DO_JVS(2751)) & -! JVS(2751) = Jac_FULL(301,145) - JVS(2751) = B(1177) +! JVS(2751) = Jac_FULL(303,186) + JVS(2751) = B(1125) IF (DO_JVS(2752)) & -! JVS(2752) = Jac_FULL(301,186) - JVS(2752) = B(1194)+0.159*B(1788) +! JVS(2752) = Jac_FULL(303,208) + JVS(2752) = B(1139) IF (DO_JVS(2753)) & -! JVS(2753) = Jac_FULL(301,267) - JVS(2753) = 0.4*B(1111) +! JVS(2753) = Jac_FULL(303,209) + JVS(2753) = B(1133) IF (DO_JVS(2754)) & -! JVS(2754) = Jac_FULL(301,268) - JVS(2754) = 0.4*B(1109) +! JVS(2754) = Jac_FULL(303,210) + JVS(2754) = B(1118) IF (DO_JVS(2755)) & -! JVS(2755) = Jac_FULL(301,299) - JVS(2755) = 0.223*B(1791) +! JVS(2755) = Jac_FULL(303,236) + JVS(2755) = B(1208) IF (DO_JVS(2756)) & -! JVS(2756) = Jac_FULL(301,301) - JVS(2756) = -B(1210)-B(1212)-B(1790) +! JVS(2756) = Jac_FULL(303,270) + JVS(2756) = 0 IF (DO_JVS(2757)) & -! JVS(2757) = Jac_FULL(301,303) +! JVS(2757) = Jac_FULL(303,271) JVS(2757) = 0 IF (DO_JVS(2758)) & -! JVS(2758) = Jac_FULL(301,304) - JVS(2758) = 0 +! JVS(2758) = Jac_FULL(303,273) + JVS(2758) = B(1204) IF (DO_JVS(2759)) & -! JVS(2759) = Jac_FULL(301,305) - JVS(2759) = 0 +! JVS(2759) = Jac_FULL(303,299) + JVS(2759) = B(1145) IF (DO_JVS(2760)) & -! JVS(2760) = Jac_FULL(301,310) - JVS(2760) = 0.07*B(1153)+0.532*B(1154)+0.034*B(1159) +! JVS(2760) = Jac_FULL(303,303) + JVS(2760) = -B(1218)-B(1635)-B(1804) IF (DO_JVS(2761)) & -! JVS(2761) = Jac_FULL(301,311) - JVS(2761) = 0.532*B(1155)+0.862*B(1156)+0.401*B(1157)+0.159*B(1163)+0.159*B(1167)+0.159*B(1173) +! JVS(2761) = Jac_FULL(303,307) + JVS(2761) = 0 IF (DO_JVS(2762)) & -! JVS(2762) = Jac_FULL(301,324) - JVS(2762) = 0.159*B(1164) +! JVS(2762) = Jac_FULL(303,308) + JVS(2762) = B(1171) IF (DO_JVS(2763)) & -! JVS(2763) = Jac_FULL(301,328) - JVS(2763) = 0.401*B(1158)+0.034*B(1160) +! JVS(2763) = Jac_FULL(303,310) + JVS(2763) = B(1175) IF (DO_JVS(2764)) & -! JVS(2764) = Jac_FULL(301,337) +! JVS(2764) = Jac_FULL(303,314) JVS(2764) = 0 IF (DO_JVS(2765)) & -! JVS(2765) = Jac_FULL(301,345) - JVS(2765) = 0.4*B(1110)+0.4*B(1112)+B(1195)-B(1211)-B(1213) +! JVS(2765) = Jac_FULL(303,315) + JVS(2765) = 0 IF (DO_JVS(2766)) & -! JVS(2766) = Jac_FULL(301,346) - JVS(2766) = 0.159*B(1174) +! JVS(2766) = Jac_FULL(303,328) + JVS(2766) = 0 IF (DO_JVS(2767)) & -! JVS(2767) = Jac_FULL(301,351) - JVS(2767) = 0.159*B(1168) +! JVS(2767) = Jac_FULL(303,334) + JVS(2767) = 0 IF (DO_JVS(2768)) & -! JVS(2768) = Jac_FULL(302,171) - JVS(2768) = B(1250) +! JVS(2768) = Jac_FULL(303,338) + JVS(2768) = B(1119)+B(1126)+B(1134)+B(1140)+B(1146)+B(1172)+B(1176)+B(1205)+B(1209) IF (DO_JVS(2769)) & -! JVS(2769) = Jac_FULL(302,190) - JVS(2769) = 0.599*B(1121)+B(1123) +! JVS(2769) = Jac_FULL(303,341) + JVS(2769) = 0.18*B(1223) IF (DO_JVS(2770)) & -! JVS(2770) = Jac_FULL(302,207) - JVS(2770) = 0.065*B(1135)+0.142*B(1137) +! JVS(2770) = Jac_FULL(303,343) + JVS(2770) = -B(1219) IF (DO_JVS(2771)) & -! JVS(2771) = Jac_FULL(302,226) - JVS(2771) = 0.015*B(1200)+0.049*B(1206) +! JVS(2771) = Jac_FULL(303,348) + JVS(2771) = 0 IF (DO_JVS(2772)) & -! JVS(2772) = Jac_FULL(302,230) - JVS(2772) = 0 +! JVS(2772) = Jac_FULL(304,104) + JVS(2772) = 0.21*B(334) IF (DO_JVS(2773)) & -! JVS(2773) = Jac_FULL(302,254) - JVS(2773) = B(1274) +! JVS(2773) = Jac_FULL(304,144) + JVS(2773) = B(193)+B(637) IF (DO_JVS(2774)) & -! JVS(2774) = Jac_FULL(302,267) - JVS(2774) = 0.6*B(1111) +! JVS(2774) = Jac_FULL(304,204) + JVS(2774) = 0.2*B(1474) IF (DO_JVS(2775)) & -! JVS(2775) = Jac_FULL(302,271) - JVS(2775) = 0.008*B(1198)+0.014*B(1202) +! JVS(2775) = Jac_FULL(304,304) + JVS(2775) = -B(171)-B(173)-B(222)-B(257)-B(351) IF (DO_JVS(2776)) & -! JVS(2776) = Jac_FULL(302,276) - JVS(2776) = 0 +! JVS(2776) = Jac_FULL(304,328) + JVS(2776) = -B(352) IF (DO_JVS(2777)) & -! JVS(2777) = Jac_FULL(302,293) - JVS(2777) = 0.01*B(1141)+0.028*B(1143) +! JVS(2777) = Jac_FULL(304,334) + JVS(2777) = -B(258) IF (DO_JVS(2778)) & -! JVS(2778) = Jac_FULL(302,299) - JVS(2778) = 0 +! JVS(2778) = Jac_FULL(304,338) + JVS(2778) = -B(172)-B(174) IF (DO_JVS(2779)) & -! JVS(2779) = Jac_FULL(302,301) - JVS(2779) = 0.161*B(1212) +! JVS(2779) = Jac_FULL(304,341) + JVS(2779) = -B(223) IF (DO_JVS(2780)) & -! JVS(2780) = Jac_FULL(302,302) - JVS(2780) = -B(1236)-B(1621)-B(1772) +! JVS(2780) = Jac_FULL(304,343) + JVS(2780) = 0.21*B(335) IF (DO_JVS(2781)) & -! JVS(2781) = Jac_FULL(302,303) - JVS(2781) = 0.05*B(1797) +! JVS(2781) = Jac_FULL(304,348) + JVS(2781) = B(194) IF (DO_JVS(2782)) & -! JVS(2782) = Jac_FULL(302,304) - JVS(2782) = 0 +! JVS(2782) = Jac_FULL(304,352) + JVS(2782) = B(638) IF (DO_JVS(2783)) & -! JVS(2783) = Jac_FULL(302,305) +! JVS(2783) = Jac_FULL(304,356) JVS(2783) = 0 IF (DO_JVS(2784)) & -! JVS(2784) = Jac_FULL(302,310) - JVS(2784) = 0 +! JVS(2784) = Jac_FULL(305,147) + JVS(2784) = B(1177) IF (DO_JVS(2785)) & -! JVS(2785) = Jac_FULL(302,311) - JVS(2785) = 0 +! JVS(2785) = Jac_FULL(305,188) + JVS(2785) = B(1194)+0.159*B(1801) IF (DO_JVS(2786)) & -! JVS(2786) = Jac_FULL(302,314) - JVS(2786) = 0 +! JVS(2786) = Jac_FULL(305,270) + JVS(2786) = 0.4*B(1111) IF (DO_JVS(2787)) & -! JVS(2787) = Jac_FULL(302,324) - JVS(2787) = 0 +! JVS(2787) = Jac_FULL(305,271) + JVS(2787) = 0.4*B(1109) IF (DO_JVS(2788)) & -! JVS(2788) = Jac_FULL(302,328) - JVS(2788) = 0 +! JVS(2788) = Jac_FULL(305,303) + JVS(2788) = 0.223*B(1804) IF (DO_JVS(2789)) & -! JVS(2789) = Jac_FULL(302,335) - JVS(2789) = B(1251) +! JVS(2789) = Jac_FULL(305,305) + JVS(2789) = -B(1210)-B(1212)-B(1803) IF (DO_JVS(2790)) & -! JVS(2790) = Jac_FULL(302,337) - JVS(2790) = 0.599*B(1122)+0.065*B(1136)+0.01*B(1142)+0.008*B(1199)+0.015*B(1201) +! JVS(2790) = Jac_FULL(305,307) + JVS(2790) = 0 IF (DO_JVS(2791)) & -! JVS(2791) = Jac_FULL(302,340) - JVS(2791) = 0 +! JVS(2791) = Jac_FULL(305,308) + JVS(2791) = 0.07*B(1153)+0.532*B(1154)+0.034*B(1159) IF (DO_JVS(2792)) & -! JVS(2792) = Jac_FULL(302,341) - JVS(2792) = 0 +! JVS(2792) = Jac_FULL(305,310) + JVS(2792) = 0.532*B(1155)+0.862*B(1156)+0.401*B(1157)+0.159*B(1163)+0.159*B(1167)+0.159*B(1173) IF (DO_JVS(2793)) & -! JVS(2793) = Jac_FULL(302,345) - JVS(2793) = 0.6*B(1112)+0.161*B(1213)-B(1237) +! JVS(2793) = Jac_FULL(305,314) + JVS(2793) = 0 IF (DO_JVS(2794)) & -! JVS(2794) = Jac_FULL(302,346) - JVS(2794) = B(1124)+0.142*B(1138)+0.028*B(1144)+0.014*B(1203)+0.049*B(1207)+B(1275) +! JVS(2794) = Jac_FULL(305,315) + JVS(2794) = 0 IF (DO_JVS(2795)) & -! JVS(2795) = Jac_FULL(302,351) - JVS(2795) = 0 +! JVS(2795) = Jac_FULL(305,328) + JVS(2795) = 0.159*B(1164) IF (DO_JVS(2796)) & -! JVS(2796) = Jac_FULL(303,186) - JVS(2796) = B(1186) +! JVS(2796) = Jac_FULL(305,334) + JVS(2796) = 0.401*B(1158)+0.034*B(1160) IF (DO_JVS(2797)) & -! JVS(2797) = Jac_FULL(303,190) - JVS(2797) = 0.401*B(1121) +! JVS(2797) = Jac_FULL(305,338) + JVS(2797) = 0.159*B(1174) IF (DO_JVS(2798)) & -! JVS(2798) = Jac_FULL(303,205) - JVS(2798) = 0.482*B(1114) +! JVS(2798) = Jac_FULL(305,341) + JVS(2798) = 0 IF (DO_JVS(2799)) & -! JVS(2799) = Jac_FULL(303,206) - JVS(2799) = 0.418*B(1129) +! JVS(2799) = Jac_FULL(305,343) + JVS(2799) = 0.4*B(1110)+0.4*B(1112)+B(1195)-B(1211)-B(1213) IF (DO_JVS(2800)) & -! JVS(2800) = Jac_FULL(303,207) - JVS(2800) = 0.494*B(1135) +! JVS(2800) = Jac_FULL(305,348) + JVS(2800) = 0.159*B(1168) IF (DO_JVS(2801)) & -! JVS(2801) = Jac_FULL(303,222) - JVS(2801) = B(1184) +! JVS(2801) = Jac_FULL(306,173) + JVS(2801) = B(1250) IF (DO_JVS(2802)) & -! JVS(2802) = Jac_FULL(303,223) - JVS(2802) = B(1034) +! JVS(2802) = Jac_FULL(306,186) + JVS(2802) = 0.599*B(1121)+B(1123) IF (DO_JVS(2803)) & -! JVS(2803) = Jac_FULL(303,224) - JVS(2803) = B(1041) +! JVS(2803) = Jac_FULL(306,208) + JVS(2803) = 0.065*B(1135)+0.142*B(1137) IF (DO_JVS(2804)) & -! JVS(2804) = Jac_FULL(303,226) - JVS(2804) = 0.387*B(1200) +! JVS(2804) = Jac_FULL(306,233) + JVS(2804) = 0 IF (DO_JVS(2805)) & -! JVS(2805) = Jac_FULL(303,232) - JVS(2805) = B(1048) +! JVS(2805) = Jac_FULL(306,236) + JVS(2805) = 0.015*B(1200)+0.049*B(1206) IF (DO_JVS(2806)) & -! JVS(2806) = Jac_FULL(303,267) - JVS(2806) = 0 +! JVS(2806) = Jac_FULL(306,258) + JVS(2806) = B(1274) IF (DO_JVS(2807)) & -! JVS(2807) = Jac_FULL(303,268) - JVS(2807) = 0 +! JVS(2807) = Jac_FULL(306,270) + JVS(2807) = 0.6*B(1111) IF (DO_JVS(2808)) & -! JVS(2808) = Jac_FULL(303,271) - JVS(2808) = 0.5*B(1197)+0.234*B(1198) +! JVS(2808) = Jac_FULL(306,273) + JVS(2808) = 0.008*B(1198)+0.014*B(1202) IF (DO_JVS(2809)) & -! JVS(2809) = Jac_FULL(303,293) - JVS(2809) = 0.621*B(1141) +! JVS(2809) = Jac_FULL(306,279) + JVS(2809) = 0 IF (DO_JVS(2810)) & -! JVS(2810) = Jac_FULL(303,299) - JVS(2810) = 0.565*B(1218) +! JVS(2810) = Jac_FULL(306,299) + JVS(2810) = 0.01*B(1141)+0.028*B(1143) IF (DO_JVS(2811)) & -! JVS(2811) = Jac_FULL(303,303) - JVS(2811) = -B(1316)-B(1637)-B(1797)-B(1798) +! JVS(2811) = Jac_FULL(306,303) + JVS(2811) = 0 IF (DO_JVS(2812)) & -! JVS(2812) = Jac_FULL(303,304) - JVS(2812) = 0 +! JVS(2812) = Jac_FULL(306,305) + JVS(2812) = 0.161*B(1212) IF (DO_JVS(2813)) & -! JVS(2813) = Jac_FULL(303,305) - JVS(2813) = 0 +! JVS(2813) = Jac_FULL(306,306) + JVS(2813) = -B(1236)-B(1621)-B(1785) IF (DO_JVS(2814)) & -! JVS(2814) = Jac_FULL(303,310) - JVS(2814) = 0 +! JVS(2814) = Jac_FULL(306,307) + JVS(2814) = 0.05*B(1810) IF (DO_JVS(2815)) & -! JVS(2815) = Jac_FULL(303,311) +! JVS(2815) = Jac_FULL(306,308) JVS(2815) = 0 IF (DO_JVS(2816)) & -! JVS(2816) = Jac_FULL(303,324) +! JVS(2816) = Jac_FULL(306,310) JVS(2816) = 0 IF (DO_JVS(2817)) & -! JVS(2817) = Jac_FULL(303,328) +! JVS(2817) = Jac_FULL(306,314) JVS(2817) = 0 IF (DO_JVS(2818)) & -! JVS(2818) = Jac_FULL(303,337) - JVS(2818) = 0.482*B(1115)+0.401*B(1122)+0.418*B(1130)+0.494*B(1136)+0.621*B(1142)+0.234*B(1199)+0.387*B(1201) +! JVS(2818) = Jac_FULL(306,315) + JVS(2818) = 0 IF (DO_JVS(2819)) & -! JVS(2819) = Jac_FULL(303,345) - JVS(2819) = B(1185)+B(1187)+0.565*B(1219)-B(1317) +! JVS(2819) = Jac_FULL(306,318) + JVS(2819) = 0 IF (DO_JVS(2820)) & -! JVS(2820) = Jac_FULL(303,346) - JVS(2820) = B(1035)+B(1042)+B(1049) +! JVS(2820) = Jac_FULL(306,328) + JVS(2820) = 0 IF (DO_JVS(2821)) & -! JVS(2821) = Jac_FULL(303,351) +! JVS(2821) = Jac_FULL(306,334) JVS(2821) = 0 IF (DO_JVS(2822)) & -! JVS(2822) = Jac_FULL(304,186) - JVS(2822) = 0.159*B(1789) +! JVS(2822) = Jac_FULL(306,338) + JVS(2822) = B(1124)+0.142*B(1138)+0.028*B(1144)+0.014*B(1203)+0.049*B(1207)+B(1275) IF (DO_JVS(2823)) & -! JVS(2823) = Jac_FULL(304,192) - JVS(2823) = 0.51*B(1025) +! JVS(2823) = Jac_FULL(306,341) + JVS(2823) = 0.599*B(1122)+0.065*B(1136)+0.01*B(1142)+0.008*B(1199)+0.015*B(1201) IF (DO_JVS(2824)) & -! JVS(2824) = Jac_FULL(304,199) - JVS(2824) = 0.03*B(1029) +! JVS(2824) = Jac_FULL(306,343) + JVS(2824) = 0.6*B(1112)+0.161*B(1213)-B(1237) IF (DO_JVS(2825)) & -! JVS(2825) = Jac_FULL(304,276) - JVS(2825) = 0.5*B(635)+B(951) +! JVS(2825) = Jac_FULL(306,345) + JVS(2825) = B(1251) IF (DO_JVS(2826)) & -! JVS(2826) = Jac_FULL(304,304) - JVS(2826) = -B(961)-B(963)-B(967)-B(968)-2*B(970)-B(971)-2*B(974)-B(975)-B(981)-B(983)-B(993)-B(995)-B(997)-B(999) +! JVS(2826) = Jac_FULL(306,348) + JVS(2826) = 0 IF (DO_JVS(2827)) & -! JVS(2827) = Jac_FULL(304,305) - JVS(2827) = -B(972)-B(976) +! JVS(2827) = Jac_FULL(306,352) + JVS(2827) = 0 IF (DO_JVS(2828)) & -! JVS(2828) = Jac_FULL(304,311) +! JVS(2828) = Jac_FULL(306,356) JVS(2828) = 0 IF (DO_JVS(2829)) & -! JVS(2829) = Jac_FULL(304,328) - JVS(2829) = -B(982)-B(984) +! JVS(2829) = Jac_FULL(307,186) + JVS(2829) = 0.401*B(1121) IF (DO_JVS(2830)) & -! JVS(2830) = Jac_FULL(304,337) - JVS(2830) = -B(962)-B(964) +! JVS(2830) = Jac_FULL(307,188) + JVS(2830) = B(1186) IF (DO_JVS(2831)) & -! JVS(2831) = Jac_FULL(304,340) - JVS(2831) = 0.5*B(636) +! JVS(2831) = Jac_FULL(307,208) + JVS(2831) = 0.494*B(1135) IF (DO_JVS(2832)) & -! JVS(2832) = Jac_FULL(304,341) - JVS(2832) = 0 +! JVS(2832) = Jac_FULL(307,209) + JVS(2832) = 0.418*B(1129) IF (DO_JVS(2833)) & -! JVS(2833) = Jac_FULL(304,345) - JVS(2833) = B(952)+0.51*B(1026)+0.03*B(1030) +! JVS(2833) = Jac_FULL(307,210) + JVS(2833) = 0.482*B(1114) IF (DO_JVS(2834)) & -! JVS(2834) = Jac_FULL(304,346) - JVS(2834) = -B(994)-B(996)-B(998)-B(1000) +! JVS(2834) = Jac_FULL(307,225) + JVS(2834) = B(1184) IF (DO_JVS(2835)) & -! JVS(2835) = Jac_FULL(304,351) - JVS(2835) = 0 +! JVS(2835) = Jac_FULL(307,226) + JVS(2835) = B(1041) IF (DO_JVS(2836)) & -! JVS(2836) = Jac_FULL(305,186) - JVS(2836) = 0.841*B(1789) +! JVS(2836) = Jac_FULL(307,228) + JVS(2836) = B(1034) IF (DO_JVS(2837)) & -! JVS(2837) = Jac_FULL(305,187) - JVS(2837) = 0.75*B(1023) +! JVS(2837) = Jac_FULL(307,235) + JVS(2837) = B(1048) IF (DO_JVS(2838)) & -! JVS(2838) = Jac_FULL(305,209) - JVS(2838) = 0.03*B(1027) +! JVS(2838) = Jac_FULL(307,236) + JVS(2838) = 0.387*B(1200) IF (DO_JVS(2839)) & -! JVS(2839) = Jac_FULL(305,276) - JVS(2839) = 0.5*B(635)+B(949) +! JVS(2839) = Jac_FULL(307,270) + JVS(2839) = 0 IF (DO_JVS(2840)) & -! JVS(2840) = Jac_FULL(305,304) - JVS(2840) = -B(971)-B(975) +! JVS(2840) = Jac_FULL(307,271) + JVS(2840) = 0 IF (DO_JVS(2841)) & -! JVS(2841) = Jac_FULL(305,305) - JVS(2841) = -B(957)-B(959)-B(965)-B(966)-2*B(969)-B(972)-2*B(973)-B(976)-B(977)-B(979)-B(985)-B(987)-B(989)-B(991) +! JVS(2841) = Jac_FULL(307,273) + JVS(2841) = 0.5*B(1197)+0.234*B(1198) IF (DO_JVS(2842)) & -! JVS(2842) = Jac_FULL(305,311) - JVS(2842) = 0 +! JVS(2842) = Jac_FULL(307,299) + JVS(2842) = 0.621*B(1141) IF (DO_JVS(2843)) & -! JVS(2843) = Jac_FULL(305,328) - JVS(2843) = -B(978)-B(980) +! JVS(2843) = Jac_FULL(307,303) + JVS(2843) = 0.565*B(1218) IF (DO_JVS(2844)) & -! JVS(2844) = Jac_FULL(305,337) - JVS(2844) = -B(958)-B(960) +! JVS(2844) = Jac_FULL(307,307) + JVS(2844) = -B(1316)-B(1637)-B(1810)-B(1811) IF (DO_JVS(2845)) & -! JVS(2845) = Jac_FULL(305,340) - JVS(2845) = 0.5*B(636) +! JVS(2845) = Jac_FULL(307,308) + JVS(2845) = 0 IF (DO_JVS(2846)) & -! JVS(2846) = Jac_FULL(305,341) +! JVS(2846) = Jac_FULL(307,310) JVS(2846) = 0 IF (DO_JVS(2847)) & -! JVS(2847) = Jac_FULL(305,345) - JVS(2847) = B(950)+0.75*B(1024)+0.03*B(1028) +! JVS(2847) = Jac_FULL(307,314) + JVS(2847) = 0 IF (DO_JVS(2848)) & -! JVS(2848) = Jac_FULL(305,346) - JVS(2848) = -B(986)-B(988)-B(990)-B(992) +! JVS(2848) = Jac_FULL(307,315) + JVS(2848) = 0 IF (DO_JVS(2849)) & -! JVS(2849) = Jac_FULL(305,351) +! JVS(2849) = Jac_FULL(307,328) JVS(2849) = 0 IF (DO_JVS(2850)) & -! JVS(2850) = Jac_FULL(306,70) - JVS(2850) = B(1375) +! JVS(2850) = Jac_FULL(307,334) + JVS(2850) = 0 IF (DO_JVS(2851)) & -! JVS(2851) = Jac_FULL(306,106) - JVS(2851) = B(1373) +! JVS(2851) = Jac_FULL(307,338) + JVS(2851) = B(1035)+B(1042)+B(1049) IF (DO_JVS(2852)) & -! JVS(2852) = Jac_FULL(306,113) - JVS(2852) = B(241) +! JVS(2852) = Jac_FULL(307,341) + JVS(2852) = 0.482*B(1115)+0.401*B(1122)+0.418*B(1130)+0.494*B(1136)+0.621*B(1142)+0.234*B(1199)+0.387*B(1201) IF (DO_JVS(2853)) & -! JVS(2853) = Jac_FULL(306,126) - JVS(2853) = B(167) +! JVS(2853) = Jac_FULL(307,343) + JVS(2853) = B(1185)+B(1187)+0.565*B(1219)-B(1317) IF (DO_JVS(2854)) & -! JVS(2854) = Jac_FULL(306,127) - JVS(2854) = B(152) +! JVS(2854) = Jac_FULL(307,348) + JVS(2854) = 0 IF (DO_JVS(2855)) & -! JVS(2855) = Jac_FULL(306,132) - JVS(2855) = B(156)+B(158) +! JVS(2855) = Jac_FULL(308,225) + JVS(2855) = B(1190) IF (DO_JVS(2856)) & -! JVS(2856) = Jac_FULL(306,136) - JVS(2856) = B(1379) +! JVS(2856) = Jac_FULL(308,279) + JVS(2856) = 0.465*B(1147) IF (DO_JVS(2857)) & -! JVS(2857) = Jac_FULL(306,174) - JVS(2857) = 0.25*B(1794) +! JVS(2857) = Jac_FULL(308,308) + JVS(2857) = -B(1149)-2*B(1153)-B(1154)-B(1159)-B(1161)-B(1165)-B(1169)-B(1171) IF (DO_JVS(2858)) & -! JVS(2858) = Jac_FULL(306,180) - JVS(2858) = 0.11*B(1220)+0.09*B(1222) +! JVS(2858) = Jac_FULL(308,310) + JVS(2858) = -B(1155) IF (DO_JVS(2859)) & -! JVS(2859) = Jac_FULL(306,197) - JVS(2859) = 0.5*B(160) +! JVS(2859) = Jac_FULL(308,328) + JVS(2859) = -B(1162) IF (DO_JVS(2860)) & -! JVS(2860) = Jac_FULL(306,198) - JVS(2860) = 0.429*B(1795) +! JVS(2860) = Jac_FULL(308,334) + JVS(2860) = -B(1160) IF (DO_JVS(2861)) & -! JVS(2861) = Jac_FULL(306,201) - JVS(2861) = 0.95*B(1472) +! JVS(2861) = Jac_FULL(308,338) + JVS(2861) = -B(1170)-B(1172) IF (DO_JVS(2862)) & -! JVS(2862) = Jac_FULL(306,202) - JVS(2862) = B(1424) +! JVS(2862) = Jac_FULL(308,341) + JVS(2862) = -B(1150) IF (DO_JVS(2863)) & -! JVS(2863) = Jac_FULL(306,205) - JVS(2863) = 0.459*B(1114)+0.728*B(1116) +! JVS(2863) = Jac_FULL(308,343) + JVS(2863) = B(1191) IF (DO_JVS(2864)) & -! JVS(2864) = Jac_FULL(306,206) - JVS(2864) = 0.551*B(1129)+0.935*B(1131) +! JVS(2864) = Jac_FULL(308,348) + JVS(2864) = 0.465*B(1148)-B(1166) IF (DO_JVS(2865)) & -! JVS(2865) = Jac_FULL(306,212) - JVS(2865) = 0.659*B(150) +! JVS(2865) = Jac_FULL(308,352) + JVS(2865) = 0 IF (DO_JVS(2866)) & -! JVS(2866) = Jac_FULL(306,220) +! JVS(2866) = Jac_FULL(308,356) JVS(2866) = 0 IF (DO_JVS(2867)) & -! JVS(2867) = Jac_FULL(306,221) - JVS(2867) = 0.9*B(1467) +! JVS(2867) = Jac_FULL(309,73) + JVS(2867) = B(1375) IF (DO_JVS(2868)) & -! JVS(2868) = Jac_FULL(306,223) - JVS(2868) = 0 +! JVS(2868) = Jac_FULL(309,113) + JVS(2868) = B(241) IF (DO_JVS(2869)) & -! JVS(2869) = Jac_FULL(306,224) - JVS(2869) = 0.294*B(1039)+0.135*B(1043) +! JVS(2869) = Jac_FULL(309,114) + JVS(2869) = B(1373) IF (DO_JVS(2870)) & -! JVS(2870) = Jac_FULL(306,232) - JVS(2870) = B(1046)+0.65*B(1050) +! JVS(2870) = Jac_FULL(309,129) + JVS(2870) = B(167) IF (DO_JVS(2871)) & -! JVS(2871) = Jac_FULL(306,233) - JVS(2871) = 0 +! JVS(2871) = Jac_FULL(309,130) + JVS(2871) = B(152) IF (DO_JVS(2872)) & -! JVS(2872) = Jac_FULL(306,234) - JVS(2872) = 0.2*B(1370) +! JVS(2872) = Jac_FULL(309,133) + JVS(2872) = B(156)+B(158) IF (DO_JVS(2873)) & -! JVS(2873) = Jac_FULL(306,246) - JVS(2873) = 0 +! JVS(2873) = Jac_FULL(309,138) + JVS(2873) = B(1379) IF (DO_JVS(2874)) & -! JVS(2874) = Jac_FULL(306,254) - JVS(2874) = 0.36*B(1270)+0.758*B(1272) +! JVS(2874) = Jac_FULL(309,178) + JVS(2874) = 0.25*B(1807) IF (DO_JVS(2875)) & -! JVS(2875) = Jac_FULL(306,258) - JVS(2875) = 0.118*B(1793) +! JVS(2875) = Jac_FULL(309,181) + JVS(2875) = 0.11*B(1220)+0.09*B(1222) IF (DO_JVS(2876)) & -! JVS(2876) = Jac_FULL(306,262) - JVS(2876) = 0.5*B(871)+0.5*B(873)+0.25*B(875) +! JVS(2876) = Jac_FULL(309,198) + JVS(2876) = 0.429*B(1808) IF (DO_JVS(2877)) & -! JVS(2877) = Jac_FULL(306,266) - JVS(2877) = B(1799) +! JVS(2877) = Jac_FULL(309,201) + JVS(2877) = 0.5*B(160) IF (DO_JVS(2878)) & -! JVS(2878) = Jac_FULL(306,267) - JVS(2878) = 0 +! JVS(2878) = Jac_FULL(309,204) + JVS(2878) = 0.95*B(1472) IF (DO_JVS(2879)) & -! JVS(2879) = Jac_FULL(306,268) - JVS(2879) = 0 +! JVS(2879) = Jac_FULL(309,205) + JVS(2879) = B(1424) IF (DO_JVS(2880)) & -! JVS(2880) = Jac_FULL(306,269) - JVS(2880) = 0 +! JVS(2880) = Jac_FULL(309,209) + JVS(2880) = 0.551*B(1129)+0.935*B(1131) IF (DO_JVS(2881)) & -! JVS(2881) = Jac_FULL(306,271) - JVS(2881) = 0.34*B(1198)+0.384*B(1202) +! JVS(2881) = Jac_FULL(309,210) + JVS(2881) = 0.459*B(1114)+0.728*B(1116) IF (DO_JVS(2882)) & -! JVS(2882) = Jac_FULL(306,276) - JVS(2882) = 0 +! JVS(2882) = Jac_FULL(309,215) + JVS(2882) = 0.659*B(150) IF (DO_JVS(2883)) & -! JVS(2883) = Jac_FULL(306,285) +! JVS(2883) = Jac_FULL(309,223) JVS(2883) = 0 IF (DO_JVS(2884)) & -! JVS(2884) = Jac_FULL(306,286) - JVS(2884) = 0.52*B(1064)+0.8*B(1066) +! JVS(2884) = Jac_FULL(309,224) + JVS(2884) = 0.9*B(1467) IF (DO_JVS(2885)) & -! JVS(2885) = Jac_FULL(306,288) - JVS(2885) = 0.53*B(1767) +! JVS(2885) = Jac_FULL(309,226) + JVS(2885) = 0.294*B(1039)+0.135*B(1043) IF (DO_JVS(2886)) & -! JVS(2886) = Jac_FULL(306,291) +! JVS(2886) = Jac_FULL(309,228) JVS(2886) = 0 IF (DO_JVS(2887)) & -! JVS(2887) = Jac_FULL(306,293) - JVS(2887) = 0.242*B(1141)+0.546*B(1143) +! JVS(2887) = Jac_FULL(309,229) + JVS(2887) = 0 IF (DO_JVS(2888)) & -! JVS(2888) = Jac_FULL(306,299) - JVS(2888) = 0.5*B(1791) +! JVS(2888) = Jac_FULL(309,235) + JVS(2888) = B(1046)+0.65*B(1050) IF (DO_JVS(2889)) & -! JVS(2889) = Jac_FULL(306,301) - JVS(2889) = 0 +! JVS(2889) = Jac_FULL(309,239) + JVS(2889) = 0.2*B(1370) IF (DO_JVS(2890)) & -! JVS(2890) = Jac_FULL(306,302) - JVS(2890) = 0.69*B(1772) +! JVS(2890) = Jac_FULL(309,250) + JVS(2890) = 0 IF (DO_JVS(2891)) & -! JVS(2891) = Jac_FULL(306,303) - JVS(2891) = 0.3*B(1797)+0.35*B(1798) +! JVS(2891) = Jac_FULL(309,258) + JVS(2891) = 0.36*B(1270)+0.758*B(1272) IF (DO_JVS(2892)) & -! JVS(2892) = Jac_FULL(306,304) - JVS(2892) = 0 +! JVS(2892) = Jac_FULL(309,259) + JVS(2892) = 0.118*B(1806) IF (DO_JVS(2893)) & -! JVS(2893) = Jac_FULL(306,305) - JVS(2893) = 0 +! JVS(2893) = Jac_FULL(309,263) + JVS(2893) = 0.5*B(871)+0.5*B(873)+0.25*B(875) IF (DO_JVS(2894)) & -! JVS(2894) = Jac_FULL(306,306) - JVS(2894) = -B(289)-B(291)-B(293)-B(295)-B(1666) +! JVS(2894) = Jac_FULL(309,269) + JVS(2894) = B(1812) IF (DO_JVS(2895)) & -! JVS(2895) = Jac_FULL(306,310) +! JVS(2895) = Jac_FULL(309,270) JVS(2895) = 0 IF (DO_JVS(2896)) & -! JVS(2896) = Jac_FULL(306,311) +! JVS(2896) = Jac_FULL(309,271) JVS(2896) = 0 IF (DO_JVS(2897)) & -! JVS(2897) = Jac_FULL(306,314) +! JVS(2897) = Jac_FULL(309,272) JVS(2897) = 0 IF (DO_JVS(2898)) & -! JVS(2898) = Jac_FULL(306,320) - JVS(2898) = 0 +! JVS(2898) = Jac_FULL(309,273) + JVS(2898) = 0.34*B(1198)+0.384*B(1202) IF (DO_JVS(2899)) & -! JVS(2899) = Jac_FULL(306,324) +! JVS(2899) = Jac_FULL(309,279) JVS(2899) = 0 IF (DO_JVS(2900)) & -! JVS(2900) = Jac_FULL(306,328) - JVS(2900) = 0.2*B(1371) +! JVS(2900) = Jac_FULL(309,288) + JVS(2900) = 0 IF (DO_JVS(2901)) & -! JVS(2901) = Jac_FULL(306,335) - JVS(2901) = 0 +! JVS(2901) = Jac_FULL(309,289) + JVS(2901) = 0.52*B(1064)+0.8*B(1066) IF (DO_JVS(2902)) & -! JVS(2902) = Jac_FULL(306,337) - JVS(2902) = 0.659*B(151)+B(159)+0.5*B(161)+0.135*B(1044)+0.65*B(1051)+0.52*B(1065)+0.459*B(1115)+0.551*B(1130)+0.242& - &*B(1142)+0.34*B(1199)+0.09*B(1223)+0.36*B(1271) +! JVS(2902) = Jac_FULL(309,291) + JVS(2902) = 0.53*B(1780) IF (DO_JVS(2903)) & -! JVS(2903) = Jac_FULL(306,340) +! JVS(2903) = Jac_FULL(309,294) JVS(2903) = 0 IF (DO_JVS(2904)) & -! JVS(2904) = Jac_FULL(306,341) - JVS(2904) = 0.5*B(874)+B(1425)+0.9*B(1468)+0.95*B(1473) +! JVS(2904) = Jac_FULL(309,299) + JVS(2904) = 0.242*B(1141)+0.546*B(1143) IF (DO_JVS(2905)) & -! JVS(2905) = Jac_FULL(306,345) - JVS(2905) = B(153)+B(168)+B(242)-B(290)-B(292)-B(294)+0.5*B(872)+B(1376)+B(1380) +! JVS(2905) = Jac_FULL(309,303) + JVS(2905) = 0.5*B(1804) IF (DO_JVS(2906)) & -! JVS(2906) = Jac_FULL(306,346) - JVS(2906) = B(157)+0.294*B(1040)+B(1047)+0.8*B(1067)+0.728*B(1117)+0.935*B(1132)+0.546*B(1144)+0.384*B(1203)+0.11& - &*B(1221)+0.758*B(1273) +! JVS(2906) = Jac_FULL(309,305) + JVS(2906) = 0 IF (DO_JVS(2907)) & -! JVS(2907) = Jac_FULL(306,351) - JVS(2907) = -B(296)+0.25*B(876) +! JVS(2907) = Jac_FULL(309,306) + JVS(2907) = 0.69*B(1785) IF (DO_JVS(2908)) & -! JVS(2908) = Jac_FULL(307,123) - JVS(2908) = 0.791*B(338) +! JVS(2908) = Jac_FULL(309,307) + JVS(2908) = 0.3*B(1810)+0.35*B(1811) IF (DO_JVS(2909)) & -! JVS(2909) = Jac_FULL(307,153) - JVS(2909) = 0.84*B(1268) +! JVS(2909) = Jac_FULL(309,308) + JVS(2909) = 0 IF (DO_JVS(2910)) & -! JVS(2910) = Jac_FULL(307,154) - JVS(2910) = B(937)+B(1752) +! JVS(2910) = Jac_FULL(309,309) + JVS(2910) = -B(289)-B(291)-B(293)-B(295)-B(1679) IF (DO_JVS(2911)) & -! JVS(2911) = Jac_FULL(307,159) - JVS(2911) = 0.488*B(1280) +! JVS(2911) = Jac_FULL(309,310) + JVS(2911) = 0 IF (DO_JVS(2912)) & -! JVS(2912) = Jac_FULL(307,174) - JVS(2912) = 0.25*B(1794) +! JVS(2912) = Jac_FULL(309,314) + JVS(2912) = 0 IF (DO_JVS(2913)) & -! JVS(2913) = Jac_FULL(307,184) - JVS(2913) = 0.25*B(1302) +! JVS(2913) = Jac_FULL(309,315) + JVS(2913) = 0 IF (DO_JVS(2914)) & -! JVS(2914) = Jac_FULL(307,198) - JVS(2914) = 0.571*B(1795) +! JVS(2914) = Jac_FULL(309,318) + JVS(2914) = 0 IF (DO_JVS(2915)) & -! JVS(2915) = Jac_FULL(307,205) - JVS(2915) = 0.459*B(1114)+0.728*B(1116) +! JVS(2915) = Jac_FULL(309,324) + JVS(2915) = 0 IF (DO_JVS(2916)) & -! JVS(2916) = Jac_FULL(307,207) - JVS(2916) = 0.441*B(1135)+0.858*B(1137) +! JVS(2916) = Jac_FULL(309,328) + JVS(2916) = 0 IF (DO_JVS(2917)) & -! JVS(2917) = Jac_FULL(307,215) - JVS(2917) = 0.5*B(1011) +! JVS(2917) = Jac_FULL(309,334) + JVS(2917) = 0.2*B(1371) IF (DO_JVS(2918)) & -! JVS(2918) = Jac_FULL(307,223) - JVS(2918) = 0.284*B(1032)+0.135*B(1036) +! JVS(2918) = Jac_FULL(309,338) + JVS(2918) = B(157)+0.294*B(1040)+B(1047)+0.8*B(1067)+0.728*B(1117)+0.935*B(1132)+0.546*B(1144)+0.384*B(1203)+0.11& + &*B(1221)+0.758*B(1273) IF (DO_JVS(2919)) & -! JVS(2919) = Jac_FULL(307,224) - JVS(2919) = 0 +! JVS(2919) = Jac_FULL(309,341) + JVS(2919) = 0.659*B(151)+B(159)+0.5*B(161)+0.135*B(1044)+0.65*B(1051)+0.52*B(1065)+0.459*B(1115)+0.551*B(1130)+0.242& + &*B(1142)+0.34*B(1199)+0.09*B(1223)+0.36*B(1271) IF (DO_JVS(2920)) & -! JVS(2920) = Jac_FULL(307,230) - JVS(2920) = 0 +! JVS(2920) = Jac_FULL(309,343) + JVS(2920) = B(153)+B(168)+B(242)-B(290)-B(292)-B(294)+0.5*B(872)+B(1376)+B(1380) IF (DO_JVS(2921)) & -! JVS(2921) = Jac_FULL(307,231) +! JVS(2921) = Jac_FULL(309,345) JVS(2921) = 0 IF (DO_JVS(2922)) & -! JVS(2922) = Jac_FULL(307,232) - JVS(2922) = B(1046)+0.65*B(1050) +! JVS(2922) = Jac_FULL(309,348) + JVS(2922) = -B(296)+0.25*B(876) IF (DO_JVS(2923)) & -! JVS(2923) = Jac_FULL(307,242) +! JVS(2923) = Jac_FULL(309,352) JVS(2923) = 0 IF (DO_JVS(2924)) & -! JVS(2924) = Jac_FULL(307,243) - JVS(2924) = 0.52*B(1078)+0.8*B(1082)+B(1084) +! JVS(2924) = Jac_FULL(309,356) + JVS(2924) = 0.5*B(874)+B(1425)+0.9*B(1468)+0.95*B(1473) IF (DO_JVS(2925)) & -! JVS(2925) = Jac_FULL(307,248) - JVS(2925) = B(1773) +! JVS(2925) = Jac_FULL(310,188) + JVS(2925) = B(1192) IF (DO_JVS(2926)) & -! JVS(2926) = Jac_FULL(307,253) - JVS(2926) = 0.507*B(1276)+B(1282)+0.86*B(1283) +! JVS(2926) = Jac_FULL(310,279) + JVS(2926) = 0.535*B(1147) IF (DO_JVS(2927)) & -! JVS(2927) = Jac_FULL(307,256) - JVS(2927) = 0 +! JVS(2927) = Jac_FULL(310,308) + JVS(2927) = -B(1154) IF (DO_JVS(2928)) & -! JVS(2928) = Jac_FULL(307,258) - JVS(2928) = 0.586*B(1793) +! JVS(2928) = Jac_FULL(310,310) + JVS(2928) = -B(1151)-B(1155)-2*B(1156)-B(1157)-B(1163)-B(1167)-B(1173)-B(1175) IF (DO_JVS(2929)) & -! JVS(2929) = Jac_FULL(307,259) - JVS(2929) = 0 +! JVS(2929) = Jac_FULL(310,328) + JVS(2929) = -B(1164) IF (DO_JVS(2930)) & -! JVS(2930) = Jac_FULL(307,260) - JVS(2930) = 0.16*B(216)+0.065*B(369) +! JVS(2930) = Jac_FULL(310,334) + JVS(2930) = -B(1158) IF (DO_JVS(2931)) & -! JVS(2931) = Jac_FULL(307,267) - JVS(2931) = 0 +! JVS(2931) = Jac_FULL(310,338) + JVS(2931) = -B(1174)-B(1176) IF (DO_JVS(2932)) & -! JVS(2932) = Jac_FULL(307,268) - JVS(2932) = 0 +! JVS(2932) = Jac_FULL(310,341) + JVS(2932) = -B(1152) IF (DO_JVS(2933)) & -! JVS(2933) = Jac_FULL(307,271) - JVS(2933) = 0.042*B(1198)+0.051*B(1202) +! JVS(2933) = Jac_FULL(310,343) + JVS(2933) = B(1193) IF (DO_JVS(2934)) & -! JVS(2934) = Jac_FULL(307,272) - JVS(2934) = 0 +! JVS(2934) = Jac_FULL(310,348) + JVS(2934) = 0.535*B(1148)-B(1168) IF (DO_JVS(2935)) & -! JVS(2935) = Jac_FULL(307,273) +! JVS(2935) = Jac_FULL(310,352) JVS(2935) = 0 IF (DO_JVS(2936)) & -! JVS(2936) = Jac_FULL(307,275) +! JVS(2936) = Jac_FULL(310,356) JVS(2936) = 0 IF (DO_JVS(2937)) & -! JVS(2937) = Jac_FULL(307,276) - JVS(2937) = 0 +! JVS(2937) = Jac_FULL(311,126) + JVS(2937) = 0.791*B(338) IF (DO_JVS(2938)) & -! JVS(2938) = Jac_FULL(307,277) - JVS(2938) = 0 +! JVS(2938) = Jac_FULL(311,155) + JVS(2938) = 0.84*B(1268) IF (DO_JVS(2939)) & -! JVS(2939) = Jac_FULL(307,278) - JVS(2939) = 0 +! JVS(2939) = Jac_FULL(311,156) + JVS(2939) = B(937)+B(1765) IF (DO_JVS(2940)) & -! JVS(2940) = Jac_FULL(307,280) - JVS(2940) = 0 +! JVS(2940) = Jac_FULL(311,161) + JVS(2940) = 0.488*B(1280) IF (DO_JVS(2941)) & -! JVS(2941) = Jac_FULL(307,281) - JVS(2941) = 0 +! JVS(2941) = Jac_FULL(311,178) + JVS(2941) = 0.25*B(1807) IF (DO_JVS(2942)) & -! JVS(2942) = Jac_FULL(307,285) - JVS(2942) = 0.8*B(1072)+0.52*B(1076) +! JVS(2942) = Jac_FULL(311,189) + JVS(2942) = 0.25*B(1302) IF (DO_JVS(2943)) & -! JVS(2943) = Jac_FULL(307,286) - JVS(2943) = 0 +! JVS(2943) = Jac_FULL(311,198) + JVS(2943) = 0.571*B(1808) IF (DO_JVS(2944)) & -! JVS(2944) = Jac_FULL(307,287) - JVS(2944) = 0.77*B(1240)+0.77*B(1770) +! JVS(2944) = Jac_FULL(311,208) + JVS(2944) = 0.441*B(1135)+0.858*B(1137) IF (DO_JVS(2945)) & -! JVS(2945) = Jac_FULL(307,289) - JVS(2945) = 0 +! JVS(2945) = Jac_FULL(311,210) + JVS(2945) = 0.459*B(1114)+0.728*B(1116) IF (DO_JVS(2946)) & -! JVS(2946) = Jac_FULL(307,290) - JVS(2946) = 0 +! JVS(2946) = Jac_FULL(311,218) + JVS(2946) = 0.5*B(1011) IF (DO_JVS(2947)) & -! JVS(2947) = Jac_FULL(307,291) +! JVS(2947) = Jac_FULL(311,226) JVS(2947) = 0 IF (DO_JVS(2948)) & -! JVS(2948) = Jac_FULL(307,293) - JVS(2948) = 0.033*B(1141)+0.071*B(1143) +! JVS(2948) = Jac_FULL(311,228) + JVS(2948) = 0.284*B(1032)+0.135*B(1036) IF (DO_JVS(2949)) & -! JVS(2949) = Jac_FULL(307,299) - JVS(2949) = 0.5*B(1791) +! JVS(2949) = Jac_FULL(311,231) + JVS(2949) = 0 IF (DO_JVS(2950)) & -! JVS(2950) = Jac_FULL(307,301) +! JVS(2950) = Jac_FULL(311,233) JVS(2950) = 0 IF (DO_JVS(2951)) & -! JVS(2951) = Jac_FULL(307,303) - JVS(2951) = 0.45*B(1797)+0.8*B(1798) +! JVS(2951) = Jac_FULL(311,235) + JVS(2951) = B(1046)+0.65*B(1050) IF (DO_JVS(2952)) & -! JVS(2952) = Jac_FULL(307,304) - JVS(2952) = 0 +! JVS(2952) = Jac_FULL(311,245) + JVS(2952) = 0.52*B(1078)+0.8*B(1082)+B(1084) IF (DO_JVS(2953)) & -! JVS(2953) = Jac_FULL(307,305) +! JVS(2953) = Jac_FULL(311,246) JVS(2953) = 0 IF (DO_JVS(2954)) & -! JVS(2954) = Jac_FULL(307,307) - JVS(2954) = -B(320)-B(322)-B(1675) +! JVS(2954) = Jac_FULL(311,251) + JVS(2954) = B(1786) IF (DO_JVS(2955)) & -! JVS(2955) = Jac_FULL(307,308) - JVS(2955) = 0.5*B(1291)+B(1293)+B(1297)+0.7*B(1299) +! JVS(2955) = Jac_FULL(311,257) + JVS(2955) = 0.507*B(1276)+B(1282)+0.86*B(1283) IF (DO_JVS(2956)) & -! JVS(2956) = Jac_FULL(307,309) - JVS(2956) = 0 +! JVS(2956) = Jac_FULL(311,259) + JVS(2956) = 0.586*B(1806) IF (DO_JVS(2957)) & -! JVS(2957) = Jac_FULL(307,310) +! JVS(2957) = Jac_FULL(311,260) JVS(2957) = 0 IF (DO_JVS(2958)) & -! JVS(2958) = Jac_FULL(307,311) +! JVS(2958) = Jac_FULL(311,262) JVS(2958) = 0 IF (DO_JVS(2959)) & -! JVS(2959) = Jac_FULL(307,313) - JVS(2959) = 0.2*B(261) +! JVS(2959) = Jac_FULL(311,264) + JVS(2959) = 0.16*B(216)+0.065*B(369) IF (DO_JVS(2960)) & -! JVS(2960) = Jac_FULL(307,314) +! JVS(2960) = Jac_FULL(311,270) JVS(2960) = 0 IF (DO_JVS(2961)) & -! JVS(2961) = Jac_FULL(307,324) - JVS(2961) = 0.065*B(370) +! JVS(2961) = Jac_FULL(311,271) + JVS(2961) = 0 IF (DO_JVS(2962)) & -! JVS(2962) = Jac_FULL(307,328) - JVS(2962) = 0.16*B(217)+0.2*B(262)+0.7*B(1300) +! JVS(2962) = Jac_FULL(311,273) + JVS(2962) = 0.042*B(1198)+0.051*B(1202) IF (DO_JVS(2963)) & -! JVS(2963) = Jac_FULL(307,335) +! JVS(2963) = Jac_FULL(311,275) JVS(2963) = 0 IF (DO_JVS(2964)) & -! JVS(2964) = Jac_FULL(307,337) - JVS(2964) = 0.135*B(1037)+0.65*B(1051)+0.52*B(1077)+0.52*B(1079)+0.459*B(1115)+0.441*B(1136)+0.033*B(1142)+0.042& - &*B(1199)+0.507*B(1277)+0.5*B(1292) +! JVS(2964) = Jac_FULL(311,276) + JVS(2964) = 0 IF (DO_JVS(2965)) & -! JVS(2965) = Jac_FULL(307,340) +! JVS(2965) = Jac_FULL(311,278) JVS(2965) = 0 IF (DO_JVS(2966)) & -! JVS(2966) = Jac_FULL(307,341) +! JVS(2966) = Jac_FULL(311,279) JVS(2966) = 0 IF (DO_JVS(2967)) & -! JVS(2967) = Jac_FULL(307,342) +! JVS(2967) = Jac_FULL(311,280) JVS(2967) = 0 IF (DO_JVS(2968)) & -! JVS(2968) = Jac_FULL(307,345) - JVS(2968) = -B(321)-B(323)+0.791*B(339)+B(938)+0.5*B(1012)+0.77*B(1241)+0.84*B(1269)+0.488*B(1281)+0.25*B(1303) +! JVS(2968) = Jac_FULL(311,281) + JVS(2968) = 0 IF (DO_JVS(2969)) & -! JVS(2969) = Jac_FULL(307,346) - JVS(2969) = 0.284*B(1033)+B(1047)+0.8*B(1073)+0.8*B(1083)+0.728*B(1117)+0.858*B(1138)+0.071*B(1144)+0.051*B(1203)+0.86& - &*B(1284)+B(1294) +! JVS(2969) = Jac_FULL(311,282) + JVS(2969) = 0 IF (DO_JVS(2970)) & -! JVS(2970) = Jac_FULL(307,351) - JVS(2970) = B(1298) +! JVS(2970) = Jac_FULL(311,284) + JVS(2970) = 0 IF (DO_JVS(2971)) & -! JVS(2971) = Jac_FULL(308,248) - JVS(2971) = B(1242) +! JVS(2971) = Jac_FULL(311,288) + JVS(2971) = 0.8*B(1072)+0.52*B(1076) IF (DO_JVS(2972)) & -! JVS(2972) = Jac_FULL(308,253) +! JVS(2972) = Jac_FULL(311,289) JVS(2972) = 0 IF (DO_JVS(2973)) & -! JVS(2973) = Jac_FULL(308,276) - JVS(2973) = 0 +! JVS(2973) = Jac_FULL(311,290) + JVS(2973) = 0.77*B(1240)+0.77*B(1783) IF (DO_JVS(2974)) & -! JVS(2974) = Jac_FULL(308,301) +! JVS(2974) = Jac_FULL(311,292) JVS(2974) = 0 IF (DO_JVS(2975)) & -! JVS(2975) = Jac_FULL(308,303) +! JVS(2975) = Jac_FULL(311,293) JVS(2975) = 0 IF (DO_JVS(2976)) & -! JVS(2976) = Jac_FULL(308,304) +! JVS(2976) = Jac_FULL(311,294) JVS(2976) = 0 IF (DO_JVS(2977)) & -! JVS(2977) = Jac_FULL(308,305) - JVS(2977) = 0 +! JVS(2977) = Jac_FULL(311,299) + JVS(2977) = 0.033*B(1141)+0.071*B(1143) IF (DO_JVS(2978)) & -! JVS(2978) = Jac_FULL(308,308) - JVS(2978) = -B(1291)-B(1293)-B(1295)-B(1297)-B(1299) +! JVS(2978) = Jac_FULL(311,303) + JVS(2978) = 0.5*B(1804) IF (DO_JVS(2979)) & -! JVS(2979) = Jac_FULL(308,309) +! JVS(2979) = Jac_FULL(311,305) JVS(2979) = 0 IF (DO_JVS(2980)) & -! JVS(2980) = Jac_FULL(308,310) - JVS(2980) = 0 +! JVS(2980) = Jac_FULL(311,307) + JVS(2980) = 0.45*B(1810)+0.8*B(1811) IF (DO_JVS(2981)) & -! JVS(2981) = Jac_FULL(308,311) +! JVS(2981) = Jac_FULL(311,308) JVS(2981) = 0 IF (DO_JVS(2982)) & -! JVS(2982) = Jac_FULL(308,324) +! JVS(2982) = Jac_FULL(311,310) JVS(2982) = 0 IF (DO_JVS(2983)) & -! JVS(2983) = Jac_FULL(308,328) - JVS(2983) = -B(1300) +! JVS(2983) = Jac_FULL(311,311) + JVS(2983) = -B(320)-B(322)-B(1688) IF (DO_JVS(2984)) & -! JVS(2984) = Jac_FULL(308,335) - JVS(2984) = -B(1296) +! JVS(2984) = Jac_FULL(311,312) + JVS(2984) = 0.5*B(1291)+B(1293)+B(1297)+0.7*B(1299) IF (DO_JVS(2985)) & -! JVS(2985) = Jac_FULL(308,337) - JVS(2985) = -B(1292) +! JVS(2985) = Jac_FULL(311,313) + JVS(2985) = 0 IF (DO_JVS(2986)) & -! JVS(2986) = Jac_FULL(308,340) +! JVS(2986) = Jac_FULL(311,314) JVS(2986) = 0 IF (DO_JVS(2987)) & -! JVS(2987) = Jac_FULL(308,341) +! JVS(2987) = Jac_FULL(311,315) JVS(2987) = 0 IF (DO_JVS(2988)) & -! JVS(2988) = Jac_FULL(308,345) - JVS(2988) = B(1243) +! JVS(2988) = Jac_FULL(311,316) + JVS(2988) = 0.2*B(261) IF (DO_JVS(2989)) & -! JVS(2989) = Jac_FULL(308,346) - JVS(2989) = -B(1294) +! JVS(2989) = Jac_FULL(311,318) + JVS(2989) = 0 IF (DO_JVS(2990)) & -! JVS(2990) = Jac_FULL(308,351) - JVS(2990) = -B(1298) +! JVS(2990) = Jac_FULL(311,328) + JVS(2990) = 0.065*B(370) IF (DO_JVS(2991)) & -! JVS(2991) = Jac_FULL(309,135) - JVS(2991) = B(1089)+B(1091) +! JVS(2991) = Jac_FULL(311,334) + JVS(2991) = 0.16*B(217)+0.2*B(262)+0.7*B(1300) IF (DO_JVS(2992)) & -! JVS(2992) = Jac_FULL(309,144) - JVS(2992) = 0.14*B(1007)+B(1782) +! JVS(2992) = Jac_FULL(311,338) + JVS(2992) = 0.284*B(1033)+B(1047)+0.8*B(1073)+0.8*B(1083)+0.728*B(1117)+0.858*B(1138)+0.071*B(1144)+0.051*B(1203)+0.86& + &*B(1284)+B(1294) IF (DO_JVS(2993)) & -! JVS(2993) = Jac_FULL(309,168) - JVS(2993) = B(1785) +! JVS(2993) = Jac_FULL(311,341) + JVS(2993) = 0.135*B(1037)+0.65*B(1051)+0.52*B(1077)+0.52*B(1079)+0.459*B(1115)+0.441*B(1136)+0.033*B(1142)+0.042& + &*B(1199)+0.507*B(1277)+0.5*B(1292) IF (DO_JVS(2994)) & -! JVS(2994) = Jac_FULL(309,192) - JVS(2994) = 0.165*B(1025)+B(1776) +! JVS(2994) = Jac_FULL(311,342) + JVS(2994) = 0 IF (DO_JVS(2995)) & -! JVS(2995) = Jac_FULL(309,199) - JVS(2995) = 0 +! JVS(2995) = Jac_FULL(311,343) + JVS(2995) = -B(321)-B(323)+0.791*B(339)+B(938)+0.5*B(1012)+0.77*B(1241)+0.84*B(1269)+0.488*B(1281)+0.25*B(1303) IF (DO_JVS(2996)) & -! JVS(2996) = Jac_FULL(309,222) - JVS(2996) = 0.097*B(1787) +! JVS(2996) = Jac_FULL(311,345) + JVS(2996) = 0 IF (DO_JVS(2997)) & -! JVS(2997) = Jac_FULL(309,231) - JVS(2997) = 0.035*B(1003) +! JVS(2997) = Jac_FULL(311,348) + JVS(2997) = B(1298) IF (DO_JVS(2998)) & -! JVS(2998) = Jac_FULL(309,276) - JVS(2998) = 0.416*B(947) +! JVS(2998) = Jac_FULL(311,352) + JVS(2998) = 0 IF (DO_JVS(2999)) & -! JVS(2999) = Jac_FULL(309,299) - JVS(2999) = 0.005*B(1791) +! JVS(2999) = Jac_FULL(311,356) + JVS(2999) = 0 IF (DO_JVS(3000)) & -! JVS(3000) = Jac_FULL(309,303) - JVS(3000) = 0 +! JVS(3000) = Jac_FULL(312,251) + JVS(3000) = B(1242) IF (DO_JVS(3001)) & -! JVS(3001) = Jac_FULL(309,304) - JVS(3001) = 0.063*B(961)+B(967)+2*B(970)+B(971)+B(981)+B(995) +! JVS(3001) = Jac_FULL(312,257) + JVS(3001) = 0 IF (DO_JVS(3002)) & -! JVS(3002) = Jac_FULL(309,305) - JVS(3002) = B(972) +! JVS(3002) = Jac_FULL(312,279) + JVS(3002) = 0 IF (DO_JVS(3003)) & -! JVS(3003) = Jac_FULL(309,309) - JVS(3003) = -B(1228)-B(1230)-B(1232)-B(1234)-B(1674) +! JVS(3003) = Jac_FULL(312,305) + JVS(3003) = 0 IF (DO_JVS(3004)) & -! JVS(3004) = Jac_FULL(309,310) - JVS(3004) = 0.048*B(1149)+0.123*B(1153)+0.019*B(1154)+0.028*B(1159)+0.097*B(1161)+0.097*B(1165)+0.096*B(1169) +! JVS(3004) = Jac_FULL(312,307) + JVS(3004) = 0 IF (DO_JVS(3005)) & -! JVS(3005) = Jac_FULL(309,311) - JVS(3005) = 0.019*B(1155) +! JVS(3005) = Jac_FULL(312,308) + JVS(3005) = 0 IF (DO_JVS(3006)) & -! JVS(3006) = Jac_FULL(309,324) - JVS(3006) = 0.097*B(1162) +! JVS(3006) = Jac_FULL(312,310) + JVS(3006) = 0 IF (DO_JVS(3007)) & -! JVS(3007) = Jac_FULL(309,328) - JVS(3007) = B(982)+0.028*B(1160) +! JVS(3007) = Jac_FULL(312,312) + JVS(3007) = -B(1291)-B(1293)-B(1295)-B(1297)-B(1299) IF (DO_JVS(3008)) & -! JVS(3008) = Jac_FULL(309,337) - JVS(3008) = 0.063*B(962)+B(1092)+0.048*B(1150) +! JVS(3008) = Jac_FULL(312,313) + JVS(3008) = 0 IF (DO_JVS(3009)) & -! JVS(3009) = Jac_FULL(309,340) +! JVS(3009) = Jac_FULL(312,314) JVS(3009) = 0 IF (DO_JVS(3010)) & -! JVS(3010) = Jac_FULL(309,341) - JVS(3010) = 0.416*B(948)-B(1233) +! JVS(3010) = Jac_FULL(312,315) + JVS(3010) = 0 IF (DO_JVS(3011)) & -! JVS(3011) = Jac_FULL(309,345) - JVS(3011) = 0.035*B(1004)+0.14*B(1008)+0.165*B(1026)-B(1229)-B(1231) +! JVS(3011) = Jac_FULL(312,328) + JVS(3011) = 0 IF (DO_JVS(3012)) & -! JVS(3012) = Jac_FULL(309,346) - JVS(3012) = B(996)+B(1090)+0.096*B(1170) +! JVS(3012) = Jac_FULL(312,334) + JVS(3012) = -B(1300) IF (DO_JVS(3013)) & -! JVS(3013) = Jac_FULL(309,351) - JVS(3013) = 0.097*B(1166)-B(1235) +! JVS(3013) = Jac_FULL(312,338) + JVS(3013) = -B(1294) IF (DO_JVS(3014)) & -! JVS(3014) = Jac_FULL(310,222) - JVS(3014) = B(1190) +! JVS(3014) = Jac_FULL(312,341) + JVS(3014) = -B(1292) IF (DO_JVS(3015)) & -! JVS(3015) = Jac_FULL(310,276) - JVS(3015) = 0.465*B(1147) +! JVS(3015) = Jac_FULL(312,343) + JVS(3015) = B(1243) IF (DO_JVS(3016)) & -! JVS(3016) = Jac_FULL(310,310) - JVS(3016) = -B(1149)-2*B(1153)-B(1154)-B(1159)-B(1161)-B(1165)-B(1169)-B(1171) +! JVS(3016) = Jac_FULL(312,345) + JVS(3016) = -B(1296) IF (DO_JVS(3017)) & -! JVS(3017) = Jac_FULL(310,311) - JVS(3017) = -B(1155) +! JVS(3017) = Jac_FULL(312,348) + JVS(3017) = -B(1298) IF (DO_JVS(3018)) & -! JVS(3018) = Jac_FULL(310,324) - JVS(3018) = -B(1162) +! JVS(3018) = Jac_FULL(312,352) + JVS(3018) = 0 IF (DO_JVS(3019)) & -! JVS(3019) = Jac_FULL(310,328) - JVS(3019) = -B(1160) +! JVS(3019) = Jac_FULL(312,356) + JVS(3019) = 0 IF (DO_JVS(3020)) & -! JVS(3020) = Jac_FULL(310,337) - JVS(3020) = -B(1150) +! JVS(3020) = Jac_FULL(313,136) + JVS(3020) = B(1089)+B(1091) IF (DO_JVS(3021)) & -! JVS(3021) = Jac_FULL(310,340) - JVS(3021) = 0 +! JVS(3021) = Jac_FULL(313,151) + JVS(3021) = 0.14*B(1007)+B(1795) IF (DO_JVS(3022)) & -! JVS(3022) = Jac_FULL(310,341) - JVS(3022) = 0 +! JVS(3022) = Jac_FULL(313,177) + JVS(3022) = B(1798) IF (DO_JVS(3023)) & -! JVS(3023) = Jac_FULL(310,345) - JVS(3023) = B(1191) +! JVS(3023) = Jac_FULL(313,195) + JVS(3023) = 0.165*B(1025)+B(1789) IF (DO_JVS(3024)) & -! JVS(3024) = Jac_FULL(310,346) - JVS(3024) = -B(1170)-B(1172) +! JVS(3024) = Jac_FULL(313,202) + JVS(3024) = 0 IF (DO_JVS(3025)) & -! JVS(3025) = Jac_FULL(310,351) - JVS(3025) = 0.465*B(1148)-B(1166) +! JVS(3025) = Jac_FULL(313,225) + JVS(3025) = 0.097*B(1800) IF (DO_JVS(3026)) & -! JVS(3026) = Jac_FULL(311,186) - JVS(3026) = B(1192) +! JVS(3026) = Jac_FULL(313,231) + JVS(3026) = 0.035*B(1003) IF (DO_JVS(3027)) & -! JVS(3027) = Jac_FULL(311,276) - JVS(3027) = 0.535*B(1147) +! JVS(3027) = Jac_FULL(313,279) + JVS(3027) = 0.416*B(947) IF (DO_JVS(3028)) & -! JVS(3028) = Jac_FULL(311,310) - JVS(3028) = -B(1154) +! JVS(3028) = Jac_FULL(313,303) + JVS(3028) = 0.005*B(1804) IF (DO_JVS(3029)) & -! JVS(3029) = Jac_FULL(311,311) - JVS(3029) = -B(1151)-B(1155)-2*B(1156)-B(1157)-B(1163)-B(1167)-B(1173)-B(1175) +! JVS(3029) = Jac_FULL(313,307) + JVS(3029) = 0 IF (DO_JVS(3030)) & -! JVS(3030) = Jac_FULL(311,324) - JVS(3030) = -B(1164) +! JVS(3030) = Jac_FULL(313,308) + JVS(3030) = 0.048*B(1149)+0.123*B(1153)+0.019*B(1154)+0.028*B(1159)+0.097*B(1161)+0.097*B(1165)+0.096*B(1169) IF (DO_JVS(3031)) & -! JVS(3031) = Jac_FULL(311,328) - JVS(3031) = -B(1158) +! JVS(3031) = Jac_FULL(313,310) + JVS(3031) = 0.019*B(1155) IF (DO_JVS(3032)) & -! JVS(3032) = Jac_FULL(311,337) - JVS(3032) = -B(1152) +! JVS(3032) = Jac_FULL(313,313) + JVS(3032) = -B(1228)-B(1230)-B(1232)-B(1234)-B(1687) IF (DO_JVS(3033)) & -! JVS(3033) = Jac_FULL(311,340) - JVS(3033) = 0 +! JVS(3033) = Jac_FULL(313,314) + JVS(3033) = B(971) IF (DO_JVS(3034)) & -! JVS(3034) = Jac_FULL(311,341) - JVS(3034) = 0 +! JVS(3034) = Jac_FULL(313,315) + JVS(3034) = 0.063*B(961)+B(967)+2*B(970)+B(972)+B(981)+B(995) IF (DO_JVS(3035)) & -! JVS(3035) = Jac_FULL(311,345) - JVS(3035) = B(1193) +! JVS(3035) = Jac_FULL(313,328) + JVS(3035) = 0.097*B(1162) IF (DO_JVS(3036)) & -! JVS(3036) = Jac_FULL(311,346) - JVS(3036) = -B(1174)-B(1176) +! JVS(3036) = Jac_FULL(313,334) + JVS(3036) = B(982)+0.028*B(1160) IF (DO_JVS(3037)) & -! JVS(3037) = Jac_FULL(311,351) - JVS(3037) = 0.535*B(1148)-B(1168) +! JVS(3037) = Jac_FULL(313,338) + JVS(3037) = B(996)+B(1090)+0.096*B(1170) IF (DO_JVS(3038)) & -! JVS(3038) = Jac_FULL(312,109) - JVS(3038) = B(1358) +! JVS(3038) = Jac_FULL(313,341) + JVS(3038) = 0.063*B(962)+B(1092)+0.048*B(1150) IF (DO_JVS(3039)) & -! JVS(3039) = Jac_FULL(312,191) - JVS(3039) = 0.1*B(733) +! JVS(3039) = Jac_FULL(313,343) + JVS(3039) = 0.035*B(1004)+0.14*B(1008)+0.165*B(1026)-B(1229)-B(1231) IF (DO_JVS(3040)) & -! JVS(3040) = Jac_FULL(312,220) - JVS(3040) = 0.5*B(1342) +! JVS(3040) = Jac_FULL(313,348) + JVS(3040) = 0.097*B(1166)-B(1235) IF (DO_JVS(3041)) & -! JVS(3041) = Jac_FULL(312,233) +! JVS(3041) = Jac_FULL(313,352) JVS(3041) = 0 IF (DO_JVS(3042)) & -! JVS(3042) = Jac_FULL(312,255) - JVS(3042) = 0.33*B(808) +! JVS(3042) = Jac_FULL(313,356) + JVS(3042) = 0.416*B(948)-B(1233) IF (DO_JVS(3043)) & -! JVS(3043) = Jac_FULL(312,276) - JVS(3043) = 0.58*B(947) +! JVS(3043) = Jac_FULL(314,188) + JVS(3043) = 0.841*B(1802) IF (DO_JVS(3044)) & -! JVS(3044) = Jac_FULL(312,281) - JVS(3044) = 0 +! JVS(3044) = Jac_FULL(314,191) + JVS(3044) = 0.75*B(1023) IF (DO_JVS(3045)) & -! JVS(3045) = Jac_FULL(312,290) - JVS(3045) = 0.22*B(287) +! JVS(3045) = Jac_FULL(314,213) + JVS(3045) = 0.03*B(1027) IF (DO_JVS(3046)) & -! JVS(3046) = Jac_FULL(312,309) - JVS(3046) = 0.88*B(1232) +! JVS(3046) = Jac_FULL(314,279) + JVS(3046) = 0.5*B(635)+B(949) IF (DO_JVS(3047)) & -! JVS(3047) = Jac_FULL(312,310) +! JVS(3047) = Jac_FULL(314,310) JVS(3047) = 0 IF (DO_JVS(3048)) & -! JVS(3048) = Jac_FULL(312,311) - JVS(3048) = 0 +! JVS(3048) = Jac_FULL(314,314) + JVS(3048) = -B(957)-B(959)-B(965)-B(966)-2*B(969)-B(971)-2*B(973)-B(975)-B(977)-B(979)-B(985)-B(987)-B(989)-B(991) IF (DO_JVS(3049)) & -! JVS(3049) = Jac_FULL(312,312) - JVS(3049) = -B(691)-B(693)-B(695)-B(697)-B(699)-B(701)-B(703) +! JVS(3049) = Jac_FULL(314,315) + JVS(3049) = -B(972)-B(976) IF (DO_JVS(3050)) & -! JVS(3050) = Jac_FULL(312,314) - JVS(3050) = 0.5*B(1226) +! JVS(3050) = Jac_FULL(314,328) + JVS(3050) = 0 IF (DO_JVS(3051)) & -! JVS(3051) = Jac_FULL(312,324) - JVS(3051) = 0 +! JVS(3051) = Jac_FULL(314,334) + JVS(3051) = -B(978)-B(980) IF (DO_JVS(3052)) & -! JVS(3052) = Jac_FULL(312,328) - JVS(3052) = 0 +! JVS(3052) = Jac_FULL(314,338) + JVS(3052) = -B(986)-B(988)-B(990)-B(992) IF (DO_JVS(3053)) & -! JVS(3053) = Jac_FULL(312,329) - JVS(3053) = -B(692) +! JVS(3053) = Jac_FULL(314,341) + JVS(3053) = -B(958)-B(960) IF (DO_JVS(3054)) & -! JVS(3054) = Jac_FULL(312,335) - JVS(3054) = -B(696) +! JVS(3054) = Jac_FULL(314,343) + JVS(3054) = B(950)+0.75*B(1024)+0.03*B(1028) IF (DO_JVS(3055)) & -! JVS(3055) = Jac_FULL(312,336) - JVS(3055) = -B(698)-B(700) +! JVS(3055) = Jac_FULL(314,348) + JVS(3055) = 0 IF (DO_JVS(3056)) & -! JVS(3056) = Jac_FULL(312,337) - JVS(3056) = 0 +! JVS(3056) = Jac_FULL(314,352) + JVS(3056) = 0.5*B(636) IF (DO_JVS(3057)) & -! JVS(3057) = Jac_FULL(312,340) +! JVS(3057) = Jac_FULL(314,356) JVS(3057) = 0 IF (DO_JVS(3058)) & -! JVS(3058) = Jac_FULL(312,341) - JVS(3058) = 0.22*B(288)-B(702)+0.1*B(734)+0.33*B(809)+0.58*B(948)+0.5*B(1227)+0.88*B(1233)+0.5*B(1343)+B(1359) +! JVS(3058) = Jac_FULL(315,188) + JVS(3058) = 0.159*B(1802) IF (DO_JVS(3059)) & -! JVS(3059) = Jac_FULL(312,342) - JVS(3059) = 0 +! JVS(3059) = Jac_FULL(315,195) + JVS(3059) = 0.51*B(1025) IF (DO_JVS(3060)) & -! JVS(3060) = Jac_FULL(312,345) - JVS(3060) = 0 +! JVS(3060) = Jac_FULL(315,202) + JVS(3060) = 0.03*B(1029) IF (DO_JVS(3061)) & -! JVS(3061) = Jac_FULL(312,346) - JVS(3061) = -B(694) +! JVS(3061) = Jac_FULL(315,279) + JVS(3061) = 0.5*B(635)+B(951) IF (DO_JVS(3062)) & -! JVS(3062) = Jac_FULL(312,348) - JVS(3062) = -B(704) +! JVS(3062) = Jac_FULL(315,310) + JVS(3062) = 0 IF (DO_JVS(3063)) & -! JVS(3063) = Jac_FULL(312,351) - JVS(3063) = 0 +! JVS(3063) = Jac_FULL(315,314) + JVS(3063) = -B(971)-B(975) IF (DO_JVS(3064)) & -! JVS(3064) = Jac_FULL(313,244) - JVS(3064) = 0.7*B(61) +! JVS(3064) = Jac_FULL(315,315) + JVS(3064) = -B(961)-B(963)-B(967)-B(968)-2*B(970)-B(972)-2*B(974)-B(976)-B(981)-B(983)-B(993)-B(995)-B(997)-B(999) IF (DO_JVS(3065)) & -! JVS(3065) = Jac_FULL(313,271) +! JVS(3065) = Jac_FULL(315,328) JVS(3065) = 0 IF (DO_JVS(3066)) & -! JVS(3066) = Jac_FULL(313,276) - JVS(3066) = 0 +! JVS(3066) = Jac_FULL(315,334) + JVS(3066) = -B(982)-B(984) IF (DO_JVS(3067)) & -! JVS(3067) = Jac_FULL(313,287) - JVS(3067) = 0 +! JVS(3067) = Jac_FULL(315,338) + JVS(3067) = -B(994)-B(996)-B(998)-B(1000) IF (DO_JVS(3068)) & -! JVS(3068) = Jac_FULL(313,295) - JVS(3068) = B(212)+B(417)+B(633) +! JVS(3068) = Jac_FULL(315,341) + JVS(3068) = -B(962)-B(964) IF (DO_JVS(3069)) & -! JVS(3069) = Jac_FULL(313,300) - JVS(3069) = 0 +! JVS(3069) = Jac_FULL(315,343) + JVS(3069) = B(952)+0.51*B(1026)+0.03*B(1030) IF (DO_JVS(3070)) & -! JVS(3070) = Jac_FULL(313,301) +! JVS(3070) = Jac_FULL(315,348) JVS(3070) = 0 IF (DO_JVS(3071)) & -! JVS(3071) = Jac_FULL(313,303) - JVS(3071) = 0 +! JVS(3071) = Jac_FULL(315,352) + JVS(3071) = 0.5*B(636) IF (DO_JVS(3072)) & -! JVS(3072) = Jac_FULL(313,304) +! JVS(3072) = Jac_FULL(315,356) JVS(3072) = 0 IF (DO_JVS(3073)) & -! JVS(3073) = Jac_FULL(313,305) - JVS(3073) = 0 +! JVS(3073) = Jac_FULL(316,247) + JVS(3073) = 0.7*B(61) IF (DO_JVS(3074)) & -! JVS(3074) = Jac_FULL(313,309) +! JVS(3074) = Jac_FULL(316,273) JVS(3074) = 0 IF (DO_JVS(3075)) & -! JVS(3075) = Jac_FULL(313,310) +! JVS(3075) = Jac_FULL(316,279) JVS(3075) = 0 IF (DO_JVS(3076)) & -! JVS(3076) = Jac_FULL(313,311) +! JVS(3076) = Jac_FULL(316,290) JVS(3076) = 0 IF (DO_JVS(3077)) & -! JVS(3077) = Jac_FULL(313,313) - JVS(3077) = -B(183)-B(226)-B(261)-B(353) +! JVS(3077) = Jac_FULL(316,297) + JVS(3077) = B(212)+B(417)+B(633) IF (DO_JVS(3078)) & -! JVS(3078) = Jac_FULL(313,318) +! JVS(3078) = Jac_FULL(316,304) JVS(3078) = 0 IF (DO_JVS(3079)) & -! JVS(3079) = Jac_FULL(313,319) +! JVS(3079) = Jac_FULL(316,305) JVS(3079) = 0 IF (DO_JVS(3080)) & -! JVS(3080) = Jac_FULL(313,320) +! JVS(3080) = Jac_FULL(316,307) JVS(3080) = 0 IF (DO_JVS(3081)) & -! JVS(3081) = Jac_FULL(313,323) +! JVS(3081) = Jac_FULL(316,308) JVS(3081) = 0 IF (DO_JVS(3082)) & -! JVS(3082) = Jac_FULL(313,324) - JVS(3082) = -B(354) +! JVS(3082) = Jac_FULL(316,310) + JVS(3082) = 0 IF (DO_JVS(3083)) & -! JVS(3083) = Jac_FULL(313,328) - JVS(3083) = -B(262) +! JVS(3083) = Jac_FULL(316,313) + JVS(3083) = 0 IF (DO_JVS(3084)) & -! JVS(3084) = Jac_FULL(313,335) +! JVS(3084) = Jac_FULL(316,314) JVS(3084) = 0 IF (DO_JVS(3085)) & -! JVS(3085) = Jac_FULL(313,337) - JVS(3085) = -B(227) +! JVS(3085) = Jac_FULL(316,315) + JVS(3085) = 0 IF (DO_JVS(3086)) & -! JVS(3086) = Jac_FULL(313,340) - JVS(3086) = B(634) +! JVS(3086) = Jac_FULL(316,316) + JVS(3086) = -B(183)-B(226)-B(261)-B(353) IF (DO_JVS(3087)) & -! JVS(3087) = Jac_FULL(313,341) +! JVS(3087) = Jac_FULL(316,322) JVS(3087) = 0 IF (DO_JVS(3088)) & -! JVS(3088) = Jac_FULL(313,342) - JVS(3088) = B(418) +! JVS(3088) = Jac_FULL(316,323) + JVS(3088) = 0 IF (DO_JVS(3089)) & -! JVS(3089) = Jac_FULL(313,345) - JVS(3089) = 0.7*B(62)+B(213) +! JVS(3089) = Jac_FULL(316,324) + JVS(3089) = 0 IF (DO_JVS(3090)) & -! JVS(3090) = Jac_FULL(313,346) - JVS(3090) = -B(184) +! JVS(3090) = Jac_FULL(316,327) + JVS(3090) = 0 IF (DO_JVS(3091)) & -! JVS(3091) = Jac_FULL(313,351) - JVS(3091) = 0 +! JVS(3091) = Jac_FULL(316,328) + JVS(3091) = -B(354) IF (DO_JVS(3092)) & -! JVS(3092) = Jac_FULL(314,82) - JVS(3092) = 0.04*B(1383) +! JVS(3092) = Jac_FULL(316,334) + JVS(3092) = -B(262) IF (DO_JVS(3093)) & -! JVS(3093) = Jac_FULL(314,101) - JVS(3093) = 0.04*B(1385) +! JVS(3093) = Jac_FULL(316,338) + JVS(3093) = -B(184) IF (DO_JVS(3094)) & -! JVS(3094) = Jac_FULL(314,133) - JVS(3094) = B(1085)+B(1087) +! JVS(3094) = Jac_FULL(316,341) + JVS(3094) = -B(227) IF (DO_JVS(3095)) & -! JVS(3095) = Jac_FULL(314,150) - JVS(3095) = 0.23*B(1005)+B(1781) +! JVS(3095) = Jac_FULL(316,342) + JVS(3095) = B(418) IF (DO_JVS(3096)) & -! JVS(3096) = Jac_FULL(314,175) - JVS(3096) = B(1784) +! JVS(3096) = Jac_FULL(316,343) + JVS(3096) = 0.7*B(62)+B(213) IF (DO_JVS(3097)) & -! JVS(3097) = Jac_FULL(314,187) - JVS(3097) = 0.125*B(1023)+B(1775) +! JVS(3097) = Jac_FULL(316,345) + JVS(3097) = 0 IF (DO_JVS(3098)) & -! JVS(3098) = Jac_FULL(314,209) +! JVS(3098) = Jac_FULL(316,348) JVS(3098) = 0 IF (DO_JVS(3099)) & -! JVS(3099) = Jac_FULL(314,219) - JVS(3099) = 0.15*B(729) +! JVS(3099) = Jac_FULL(316,352) + JVS(3099) = B(634) IF (DO_JVS(3100)) & -! JVS(3100) = Jac_FULL(314,222) - JVS(3100) = 0.903*B(1787) +! JVS(3100) = Jac_FULL(316,356) + JVS(3100) = 0 IF (DO_JVS(3101)) & -! JVS(3101) = Jac_FULL(314,229) - JVS(3101) = 0.3*B(859)+0.3*B(861)+0.15*B(863)+0.45*B(1816) +! JVS(3101) = Jac_FULL(317,120) + JVS(3101) = B(1358) IF (DO_JVS(3102)) & -! JVS(3102) = Jac_FULL(314,230) - JVS(3102) = 0.035*B(1001) +! JVS(3102) = Jac_FULL(317,194) + JVS(3102) = 0.1*B(733) IF (DO_JVS(3103)) & -! JVS(3103) = Jac_FULL(314,262) - JVS(3103) = 0.5*B(871)+0.5*B(873)+0.25*B(875) +! JVS(3103) = Jac_FULL(317,223) + JVS(3103) = 0.5*B(1342) IF (DO_JVS(3104)) & -! JVS(3104) = Jac_FULL(314,276) - JVS(3104) = 0.177*B(947) +! JVS(3104) = Jac_FULL(317,229) + JVS(3104) = 0 IF (DO_JVS(3105)) & -! JVS(3105) = Jac_FULL(314,291) - JVS(3105) = 0.45*B(855)+0.45*B(857)+0.45*B(889)+0.45*B(891) +! JVS(3105) = Jac_FULL(317,256) + JVS(3105) = 0.33*B(808) IF (DO_JVS(3106)) & -! JVS(3106) = Jac_FULL(314,299) - JVS(3106) = 0.05*B(1791) +! JVS(3106) = Jac_FULL(317,279) + JVS(3106) = 0.58*B(947) IF (DO_JVS(3107)) & -! JVS(3107) = Jac_FULL(314,303) +! JVS(3107) = Jac_FULL(317,284) JVS(3107) = 0 IF (DO_JVS(3108)) & -! JVS(3108) = Jac_FULL(314,304) - JVS(3108) = B(971) +! JVS(3108) = Jac_FULL(317,293) + JVS(3108) = 0.22*B(287) IF (DO_JVS(3109)) & -! JVS(3109) = Jac_FULL(314,305) - JVS(3109) = 0.063*B(957)+B(965)+2*B(969)+B(972)+B(977)+B(987) +! JVS(3109) = Jac_FULL(317,313) + JVS(3109) = 0.88*B(1232) IF (DO_JVS(3110)) & -! JVS(3110) = Jac_FULL(314,310) - JVS(3110) = 0.479*B(1149)+1.737*B(1153)+0.544*B(1154)+0.583*B(1159)+0.903*B(1161)+0.903*B(1165)+0.904*B(1169) +! JVS(3110) = Jac_FULL(317,314) + JVS(3110) = 0 IF (DO_JVS(3111)) & -! JVS(3111) = Jac_FULL(314,311) - JVS(3111) = 0.544*B(1155) +! JVS(3111) = Jac_FULL(317,315) + JVS(3111) = 0 IF (DO_JVS(3112)) & -! JVS(3112) = Jac_FULL(314,314) - JVS(3112) = -B(1224)-B(1226)-B(1671)-B(1672)-B(1673) +! JVS(3112) = Jac_FULL(317,317) + JVS(3112) = -B(691)-B(693)-B(695)-B(697)-B(699)-B(701)-B(703) IF (DO_JVS(3113)) & -! JVS(3113) = Jac_FULL(314,324) - JVS(3113) = 0.45*B(892)+0.903*B(1162) +! JVS(3113) = Jac_FULL(317,318) + JVS(3113) = 0.5*B(1226) IF (DO_JVS(3114)) & -! JVS(3114) = Jac_FULL(314,328) - JVS(3114) = 0.45*B(890)+B(978)+0.583*B(1160) +! JVS(3114) = Jac_FULL(317,328) + JVS(3114) = 0 IF (DO_JVS(3115)) & -! JVS(3115) = Jac_FULL(314,337) - JVS(3115) = 0.063*B(958)+B(1088)+0.479*B(1150) +! JVS(3115) = Jac_FULL(317,334) + JVS(3115) = 0 IF (DO_JVS(3116)) & -! JVS(3116) = Jac_FULL(314,340) - JVS(3116) = 0 +! JVS(3116) = Jac_FULL(317,335) + JVS(3116) = -B(692) IF (DO_JVS(3117)) & -! JVS(3117) = Jac_FULL(314,341) - JVS(3117) = 0.15*B(730)+0.3*B(862)+0.5*B(874)+0.177*B(948)-B(1227) +! JVS(3117) = Jac_FULL(317,338) + JVS(3117) = -B(694) IF (DO_JVS(3118)) & -! JVS(3118) = Jac_FULL(314,345) - JVS(3118) = 0.3*B(860)+0.5*B(872)+0.035*B(1002)+0.23*B(1006)+0.125*B(1024)-B(1225)+0.04*B(1384)+0.04*B(1386) +! JVS(3118) = Jac_FULL(317,341) + JVS(3118) = 0 IF (DO_JVS(3119)) & -! JVS(3119) = Jac_FULL(314,346) - JVS(3119) = 0.45*B(856)+B(988)+B(1086)+0.904*B(1170) +! JVS(3119) = Jac_FULL(317,342) + JVS(3119) = 0 IF (DO_JVS(3120)) & -! JVS(3120) = Jac_FULL(314,351) - JVS(3120) = 0.45*B(858)+0.15*B(864)+0.25*B(876)+0.903*B(1166) +! JVS(3120) = Jac_FULL(317,343) + JVS(3120) = 0 IF (DO_JVS(3121)) & -! JVS(3121) = Jac_FULL(315,118) - JVS(3121) = 0.36*B(326) +! JVS(3121) = Jac_FULL(317,345) + JVS(3121) = -B(696) IF (DO_JVS(3122)) & -! JVS(3122) = Jac_FULL(315,251) - JVS(3122) = 0.34*B(1685) +! JVS(3122) = Jac_FULL(317,348) + JVS(3122) = 0 IF (DO_JVS(3123)) & -! JVS(3123) = Jac_FULL(315,279) - JVS(3123) = 0.34*B(1688) +! JVS(3123) = Jac_FULL(317,352) + JVS(3123) = 0 IF (DO_JVS(3124)) & -! JVS(3124) = Jac_FULL(315,292) - JVS(3124) = 0.415*B(1665) +! JVS(3124) = Jac_FULL(317,353) + JVS(3124) = -B(698)-B(700) IF (DO_JVS(3125)) & -! JVS(3125) = Jac_FULL(315,296) - JVS(3125) = 0 +! JVS(3125) = Jac_FULL(317,355) + JVS(3125) = -B(704) IF (DO_JVS(3126)) & -! JVS(3126) = Jac_FULL(315,298) - JVS(3126) = 0.49*B(1662) +! JVS(3126) = Jac_FULL(317,356) + JVS(3126) = 0.22*B(288)-B(702)+0.1*B(734)+0.33*B(809)+0.58*B(948)+0.5*B(1227)+0.88*B(1233)+0.5*B(1343)+B(1359) IF (DO_JVS(3127)) & -! JVS(3127) = Jac_FULL(315,300) - JVS(3127) = 0.34*B(171)+0.16*B(257)+0.29*B(351) +! JVS(3127) = Jac_FULL(318,85) + JVS(3127) = 0.04*B(1383) IF (DO_JVS(3128)) & -! JVS(3128) = Jac_FULL(315,314) - JVS(3128) = 0 +! JVS(3128) = Jac_FULL(318,103) + JVS(3128) = 0.04*B(1385) IF (DO_JVS(3129)) & -! JVS(3129) = Jac_FULL(315,315) - JVS(3129) = -B(112)-B(249)-2*B(274)-B(277)-B(367)-B(621) +! JVS(3129) = Jac_FULL(318,137) + JVS(3129) = B(1085)+B(1087) IF (DO_JVS(3130)) & -! JVS(3130) = Jac_FULL(315,318) - JVS(3130) = 0 +! JVS(3130) = Jac_FULL(318,150) + JVS(3130) = 0.23*B(1005)+B(1794) IF (DO_JVS(3131)) & -! JVS(3131) = Jac_FULL(315,319) - JVS(3131) = 0.34*B(177)+0.16*B(253)+0.29*B(349) +! JVS(3131) = Jac_FULL(318,175) + JVS(3131) = B(1797) IF (DO_JVS(3132)) & -! JVS(3132) = Jac_FULL(315,320) - JVS(3132) = 0 +! JVS(3132) = Jac_FULL(318,191) + JVS(3132) = 0.125*B(1023)+B(1788) IF (DO_JVS(3133)) & -! JVS(3133) = Jac_FULL(315,321) +! JVS(3133) = Jac_FULL(318,213) JVS(3133) = 0 IF (DO_JVS(3134)) & -! JVS(3134) = Jac_FULL(315,322) - JVS(3134) = 0.49*B(208)+0.22*B(283)+0.49*B(373)+0.49*B(375) +! JVS(3134) = Jac_FULL(318,222) + JVS(3134) = 0.15*B(729) IF (DO_JVS(3135)) & -! JVS(3135) = Jac_FULL(315,323) - JVS(3135) = 0 +! JVS(3135) = Jac_FULL(318,225) + JVS(3135) = 0.903*B(1800) IF (DO_JVS(3136)) & -! JVS(3136) = Jac_FULL(315,324) - JVS(3136) = 0.29*B(350)+0.29*B(352)-B(368)+0.49*B(374) +! JVS(3136) = Jac_FULL(318,233) + JVS(3136) = 0.035*B(1001) IF (DO_JVS(3137)) & -! JVS(3137) = Jac_FULL(315,328) - JVS(3137) = -B(250)+0.16*B(254)+0.16*B(258)+0.49*B(376) +! JVS(3137) = Jac_FULL(318,234) + JVS(3137) = 0.3*B(859)+0.3*B(861)+0.15*B(863)+0.45*B(1829) IF (DO_JVS(3138)) & -! JVS(3138) = Jac_FULL(315,335) - JVS(3138) = 0 +! JVS(3138) = Jac_FULL(318,263) + JVS(3138) = 0.5*B(871)+0.5*B(873)+0.25*B(875) IF (DO_JVS(3139)) & -! JVS(3139) = Jac_FULL(315,337) - JVS(3139) = -B(278)+0.22*B(284) +! JVS(3139) = Jac_FULL(318,279) + JVS(3139) = 0.177*B(947) IF (DO_JVS(3140)) & -! JVS(3140) = Jac_FULL(315,340) - JVS(3140) = -B(622) +! JVS(3140) = Jac_FULL(318,294) + JVS(3140) = 0.45*B(855)+0.45*B(857)+0.45*B(889)+0.45*B(891) IF (DO_JVS(3141)) & -! JVS(3141) = Jac_FULL(315,341) - JVS(3141) = 0 +! JVS(3141) = Jac_FULL(318,303) + JVS(3141) = 0.05*B(1804) IF (DO_JVS(3142)) & -! JVS(3142) = Jac_FULL(315,342) +! JVS(3142) = Jac_FULL(318,307) JVS(3142) = 0 IF (DO_JVS(3143)) & -! JVS(3143) = Jac_FULL(315,345) - JVS(3143) = 0.36*B(327) +! JVS(3143) = Jac_FULL(318,308) + JVS(3143) = 0.479*B(1149)+1.737*B(1153)+0.544*B(1154)+0.583*B(1159)+0.903*B(1161)+0.903*B(1165)+0.904*B(1169) IF (DO_JVS(3144)) & -! JVS(3144) = Jac_FULL(315,346) - JVS(3144) = -B(113)+0.34*B(172)+0.34*B(178)+0.49*B(209) +! JVS(3144) = Jac_FULL(318,310) + JVS(3144) = 0.544*B(1155) IF (DO_JVS(3145)) & -! JVS(3145) = Jac_FULL(315,351) - JVS(3145) = 0 +! JVS(3145) = Jac_FULL(318,314) + JVS(3145) = 0.063*B(957)+B(965)+2*B(969)+B(971)+B(977)+B(987) IF (DO_JVS(3146)) & -! JVS(3146) = Jac_FULL(316,148) - JVS(3146) = B(403) +! JVS(3146) = Jac_FULL(318,315) + JVS(3146) = B(972) IF (DO_JVS(3147)) & -! JVS(3147) = Jac_FULL(316,218) - JVS(3147) = B(1509) +! JVS(3147) = Jac_FULL(318,318) + JVS(3147) = -B(1224)-B(1226)-B(1684)-B(1685)-B(1686) IF (DO_JVS(3148)) & -! JVS(3148) = Jac_FULL(316,316) - JVS(3148) = -B(405)-B(1549)-B(1551)-B(1553)-B(1555)-B(1557)-B(1559)-B(1561)-B(1692) +! JVS(3148) = Jac_FULL(318,328) + JVS(3148) = 0.45*B(892)+0.903*B(1162) IF (DO_JVS(3149)) & -! JVS(3149) = Jac_FULL(316,335) - JVS(3149) = 0 +! JVS(3149) = Jac_FULL(318,334) + JVS(3149) = 0.45*B(890)+B(978)+0.583*B(1160) IF (DO_JVS(3150)) & -! JVS(3150) = Jac_FULL(316,336) - JVS(3150) = B(1510) +! JVS(3150) = Jac_FULL(318,338) + JVS(3150) = 0.45*B(856)+B(988)+B(1086)+0.904*B(1170) IF (DO_JVS(3151)) & -! JVS(3151) = Jac_FULL(316,337) - JVS(3151) = B(391) +! JVS(3151) = Jac_FULL(318,341) + JVS(3151) = 0.063*B(958)+B(1088)+0.479*B(1150) IF (DO_JVS(3152)) & -! JVS(3152) = Jac_FULL(316,339) - JVS(3152) = -B(1552) +! JVS(3152) = Jac_FULL(318,343) + JVS(3152) = 0.3*B(860)+0.5*B(872)+0.035*B(1002)+0.23*B(1006)+0.125*B(1024)-B(1225)+0.04*B(1384)+0.04*B(1386) IF (DO_JVS(3153)) & -! JVS(3153) = Jac_FULL(316,341) - JVS(3153) = B(1563)+B(1565)+B(1567) +! JVS(3153) = Jac_FULL(318,348) + JVS(3153) = 0.45*B(858)+0.15*B(864)+0.25*B(876)+0.903*B(1166) IF (DO_JVS(3154)) & -! JVS(3154) = Jac_FULL(316,342) +! JVS(3154) = Jac_FULL(318,352) JVS(3154) = 0 IF (DO_JVS(3155)) & -! JVS(3155) = Jac_FULL(316,343) - JVS(3155) = -B(406) +! JVS(3155) = Jac_FULL(318,356) + JVS(3155) = 0.15*B(730)+0.3*B(862)+0.5*B(874)+0.177*B(948)-B(1227) IF (DO_JVS(3156)) & -! JVS(3156) = Jac_FULL(316,344) - JVS(3156) = -B(1556) +! JVS(3156) = Jac_FULL(319,121) + JVS(3156) = 0.36*B(326) IF (DO_JVS(3157)) & -! JVS(3157) = Jac_FULL(316,345) - JVS(3157) = B(404) +! JVS(3157) = Jac_FULL(319,255) + JVS(3157) = 0.34*B(1698) IF (DO_JVS(3158)) & -! JVS(3158) = Jac_FULL(316,347) - JVS(3158) = B(392) +! JVS(3158) = Jac_FULL(319,283) + JVS(3158) = 0.34*B(1701) IF (DO_JVS(3159)) & -! JVS(3159) = Jac_FULL(316,348) - JVS(3159) = -B(1562) +! JVS(3159) = Jac_FULL(319,295) + JVS(3159) = 0.415*B(1678) IF (DO_JVS(3160)) & -! JVS(3160) = Jac_FULL(316,349) - JVS(3160) = -B(1558)+B(1566) +! JVS(3160) = Jac_FULL(319,300) + JVS(3160) = 0 IF (DO_JVS(3161)) & -! JVS(3161) = Jac_FULL(316,350) - JVS(3161) = -B(1560)+B(1568) +! JVS(3161) = Jac_FULL(319,302) + JVS(3161) = 0.49*B(1675) IF (DO_JVS(3162)) & -! JVS(3162) = Jac_FULL(316,352) - JVS(3162) = -B(1550)+B(1564) +! JVS(3162) = Jac_FULL(319,304) + JVS(3162) = 0.34*B(171)+0.16*B(257)+0.29*B(351) IF (DO_JVS(3163)) & -! JVS(3163) = Jac_FULL(316,353) - JVS(3163) = -B(1554) +! JVS(3163) = Jac_FULL(319,318) + JVS(3163) = 0 IF (DO_JVS(3164)) & -! JVS(3164) = Jac_FULL(317,317) - JVS(3164) = -B(545)-B(601)-B(603)-B(1513)-B(1515)-B(1517)-B(1519)-B(1521)-B(1523)-B(1525)-B(1707)-B(1708) +! JVS(3164) = Jac_FULL(319,319) + JVS(3164) = -B(112)-B(249)-2*B(274)-B(277)-B(367)-B(621) IF (DO_JVS(3165)) & -! JVS(3165) = Jac_FULL(317,335) - JVS(3165) = B(583) +! JVS(3165) = Jac_FULL(319,322) + JVS(3165) = 0 IF (DO_JVS(3166)) & -! JVS(3166) = Jac_FULL(317,336) - JVS(3166) = -B(1514) +! JVS(3166) = Jac_FULL(319,323) + JVS(3166) = 0.34*B(177)+0.16*B(253)+0.29*B(349) IF (DO_JVS(3167)) & -! JVS(3167) = Jac_FULL(317,338) - JVS(3167) = B(584) +! JVS(3167) = Jac_FULL(319,324) + JVS(3167) = 0 IF (DO_JVS(3168)) & -! JVS(3168) = Jac_FULL(317,339) - JVS(3168) = -B(1516) +! JVS(3168) = Jac_FULL(319,325) + JVS(3168) = 0.49*B(208)+0.22*B(283)+0.49*B(373)+0.49*B(375) IF (DO_JVS(3169)) & -! JVS(3169) = Jac_FULL(317,340) - JVS(3169) = -B(604) +! JVS(3169) = Jac_FULL(319,326) + JVS(3169) = 0 IF (DO_JVS(3170)) & -! JVS(3170) = Jac_FULL(317,343) - JVS(3170) = -B(602) +! JVS(3170) = Jac_FULL(319,327) + JVS(3170) = 0 IF (DO_JVS(3171)) & -! JVS(3171) = Jac_FULL(317,344) - JVS(3171) = -B(1526) +! JVS(3171) = Jac_FULL(319,328) + JVS(3171) = 0.29*B(350)+0.29*B(352)-B(368)+0.49*B(374) IF (DO_JVS(3172)) & -! JVS(3172) = Jac_FULL(317,345) - JVS(3172) = -B(546) +! JVS(3172) = Jac_FULL(319,334) + JVS(3172) = -B(250)+0.16*B(254)+0.16*B(258)+0.49*B(376) IF (DO_JVS(3173)) & -! JVS(3173) = Jac_FULL(317,349) - JVS(3173) = -B(1520) +! JVS(3173) = Jac_FULL(319,338) + JVS(3173) = -B(113)+0.34*B(172)+0.34*B(178)+0.49*B(209) IF (DO_JVS(3174)) & -! JVS(3174) = Jac_FULL(317,350) - JVS(3174) = -B(1522) +! JVS(3174) = Jac_FULL(319,341) + JVS(3174) = -B(278)+0.22*B(284) IF (DO_JVS(3175)) & -! JVS(3175) = Jac_FULL(317,352) - JVS(3175) = -B(1518) +! JVS(3175) = Jac_FULL(319,342) + JVS(3175) = 0 IF (DO_JVS(3176)) & -! JVS(3176) = Jac_FULL(317,353) - JVS(3176) = -B(1524) +! JVS(3176) = Jac_FULL(319,343) + JVS(3176) = 0.36*B(327) IF (DO_JVS(3177)) & -! JVS(3177) = Jac_FULL(318,251) - JVS(3177) = B(195) +! JVS(3177) = Jac_FULL(319,345) + JVS(3177) = 0 IF (DO_JVS(3178)) & -! JVS(3178) = Jac_FULL(318,269) - JVS(3178) = 0.5*B(1457)+0.5*B(1459) +! JVS(3178) = Jac_FULL(319,348) + JVS(3178) = 0 IF (DO_JVS(3179)) & -! JVS(3179) = Jac_FULL(318,318) - JVS(3179) = -B(181)-B(220)-B(255)-B(359) +! JVS(3179) = Jac_FULL(319,352) + JVS(3179) = -B(622) IF (DO_JVS(3180)) & -! JVS(3180) = Jac_FULL(318,319) +! JVS(3180) = Jac_FULL(319,356) JVS(3180) = 0 IF (DO_JVS(3181)) & -! JVS(3181) = Jac_FULL(318,320) - JVS(3181) = 0 +! JVS(3181) = Jac_FULL(320,153) + JVS(3181) = B(403) IF (DO_JVS(3182)) & -! JVS(3182) = Jac_FULL(318,324) - JVS(3182) = -B(360) +! JVS(3182) = Jac_FULL(320,221) + JVS(3182) = B(1509) IF (DO_JVS(3183)) & -! JVS(3183) = Jac_FULL(318,328) - JVS(3183) = -B(256) +! JVS(3183) = Jac_FULL(320,320) + JVS(3183) = -B(405)-B(1549)-B(1551)-B(1553)-B(1555)-B(1557)-B(1559)-B(1561)-B(1705) IF (DO_JVS(3184)) & -! JVS(3184) = Jac_FULL(318,335) - JVS(3184) = 0 +! JVS(3184) = Jac_FULL(320,339) + JVS(3184) = -B(1554) IF (DO_JVS(3185)) & -! JVS(3185) = Jac_FULL(318,337) - JVS(3185) = -B(221) +! JVS(3185) = Jac_FULL(320,340) + JVS(3185) = -B(1552) IF (DO_JVS(3186)) & -! JVS(3186) = Jac_FULL(318,341) - JVS(3186) = 0 +! JVS(3186) = Jac_FULL(320,341) + JVS(3186) = B(391) IF (DO_JVS(3187)) & -! JVS(3187) = Jac_FULL(318,345) - JVS(3187) = B(196)+0.5*B(1458) +! JVS(3187) = Jac_FULL(320,342) + JVS(3187) = 0 IF (DO_JVS(3188)) & -! JVS(3188) = Jac_FULL(318,346) - JVS(3188) = -B(182) +! JVS(3188) = Jac_FULL(320,343) + JVS(3188) = B(404) IF (DO_JVS(3189)) & -! JVS(3189) = Jac_FULL(318,351) - JVS(3189) = 0.5*B(1460) +! JVS(3189) = Jac_FULL(320,345) + JVS(3189) = 0 IF (DO_JVS(3190)) & -! JVS(3190) = Jac_FULL(319,97) - JVS(3190) = 0.21*B(332) +! JVS(3190) = Jac_FULL(320,346) + JVS(3190) = -B(1556) IF (DO_JVS(3191)) & -! JVS(3191) = Jac_FULL(319,130) - JVS(3191) = 0.8*B(849)+0.8*B(1815) +! JVS(3191) = Jac_FULL(320,347) + JVS(3191) = B(392) IF (DO_JVS(3192)) & -! JVS(3192) = Jac_FULL(319,142) - JVS(3192) = B(169) +! JVS(3192) = Jac_FULL(320,349) + JVS(3192) = -B(1558)+B(1565) IF (DO_JVS(3193)) & -! JVS(3193) = Jac_FULL(319,161) - JVS(3193) = 0.6*B(1813) +! JVS(3193) = Jac_FULL(320,350) + JVS(3193) = -B(1560)+B(1567) IF (DO_JVS(3194)) & -! JVS(3194) = Jac_FULL(319,162) - JVS(3194) = 0.3*B(798) +! JVS(3194) = Jac_FULL(320,351) + JVS(3194) = -B(406) IF (DO_JVS(3195)) & -! JVS(3195) = Jac_FULL(319,169) - JVS(3195) = 0.8*B(1814) +! JVS(3195) = Jac_FULL(320,353) + JVS(3195) = B(1510) IF (DO_JVS(3196)) & -! JVS(3196) = Jac_FULL(319,178) - JVS(3196) = 0.25*B(128) +! JVS(3196) = Jac_FULL(320,354) + JVS(3196) = -B(1550)+B(1563) IF (DO_JVS(3197)) & -! JVS(3197) = Jac_FULL(319,249) - JVS(3197) = 0.15*B(259)+0.27*B(361) +! JVS(3197) = Jac_FULL(320,355) + JVS(3197) = -B(1562) IF (DO_JVS(3198)) & -! JVS(3198) = Jac_FULL(319,272) - JVS(3198) = 0 +! JVS(3198) = Jac_FULL(320,356) + JVS(3198) = B(1564)+B(1566)+B(1568) IF (DO_JVS(3199)) & -! JVS(3199) = Jac_FULL(319,273) - JVS(3199) = 0.6*B(790)+0.4*B(792)+0.6*B(794) +! JVS(3199) = Jac_FULL(321,321) + JVS(3199) = -B(545)-B(601)-B(603)-B(1513)-B(1515)-B(1517)-B(1519)-B(1521)-B(1523)-B(1525)-B(1720)-B(1721) IF (DO_JVS(3200)) & -! JVS(3200) = Jac_FULL(319,274) - JVS(3200) = 0.352*B(838)+0.8*B(840)+0.8*B(845)+0.6*B(897)+0.8*B(899) +! JVS(3200) = Jac_FULL(321,339) + JVS(3200) = -B(1524) IF (DO_JVS(3201)) & -! JVS(3201) = Jac_FULL(319,275) - JVS(3201) = 0 +! JVS(3201) = Jac_FULL(321,340) + JVS(3201) = -B(1516) IF (DO_JVS(3202)) & -! JVS(3202) = Jac_FULL(319,279) - JVS(3202) = 0 +! JVS(3202) = Jac_FULL(321,343) + JVS(3202) = -B(546) IF (DO_JVS(3203)) & -! JVS(3203) = Jac_FULL(319,281) - JVS(3203) = 0 +! JVS(3203) = Jac_FULL(321,344) + JVS(3203) = B(583) IF (DO_JVS(3204)) & -! JVS(3204) = Jac_FULL(319,300) - JVS(3204) = 0 +! JVS(3204) = Jac_FULL(321,345) + JVS(3204) = B(584) IF (DO_JVS(3205)) & -! JVS(3205) = Jac_FULL(319,318) - JVS(3205) = 0.15*B(255)+0.27*B(359) +! JVS(3205) = Jac_FULL(321,346) + JVS(3205) = -B(1526) IF (DO_JVS(3206)) & -! JVS(3206) = Jac_FULL(319,319) - JVS(3206) = -B(177)-B(179)-B(218)-B(253)-B(349) +! JVS(3206) = Jac_FULL(321,349) + JVS(3206) = -B(1520) IF (DO_JVS(3207)) & -! JVS(3207) = Jac_FULL(319,320) - JVS(3207) = 0 +! JVS(3207) = Jac_FULL(321,350) + JVS(3207) = -B(1522) IF (DO_JVS(3208)) & -! JVS(3208) = Jac_FULL(319,324) - JVS(3208) = -B(350)+0.27*B(360)+0.27*B(362)+0.8*B(900) +! JVS(3208) = Jac_FULL(321,351) + JVS(3208) = -B(602) IF (DO_JVS(3209)) & -! JVS(3209) = Jac_FULL(319,328) - JVS(3209) = -B(254)+0.15*B(256)+0.15*B(260)+0.4*B(793)+0.6*B(898) +! JVS(3209) = Jac_FULL(321,352) + JVS(3209) = -B(604) IF (DO_JVS(3210)) & -! JVS(3210) = Jac_FULL(319,335) - JVS(3210) = 0 +! JVS(3210) = Jac_FULL(321,353) + JVS(3210) = -B(1514) IF (DO_JVS(3211)) & -! JVS(3211) = Jac_FULL(319,337) - JVS(3211) = -B(219)+0.352*B(839) +! JVS(3211) = Jac_FULL(321,354) + JVS(3211) = -B(1518) IF (DO_JVS(3212)) & -! JVS(3212) = Jac_FULL(319,340) - JVS(3212) = 0 +! JVS(3212) = Jac_FULL(322,255) + JVS(3212) = B(195) IF (DO_JVS(3213)) & -! JVS(3213) = Jac_FULL(319,341) - JVS(3213) = 0 +! JVS(3213) = Jac_FULL(322,272) + JVS(3213) = 0.5*B(1457)+0.5*B(1459) IF (DO_JVS(3214)) & -! JVS(3214) = Jac_FULL(319,345) - JVS(3214) = B(170)+0.21*B(333)+0.3*B(799)+0.8*B(850) +! JVS(3214) = Jac_FULL(322,322) + JVS(3214) = -B(181)-B(220)-B(255)-B(359) IF (DO_JVS(3215)) & -! JVS(3215) = Jac_FULL(319,346) - JVS(3215) = 0.25*B(129)-B(178)-B(180)+0.6*B(791)+0.8*B(841) +! JVS(3215) = Jac_FULL(322,323) + JVS(3215) = 0 IF (DO_JVS(3216)) & -! JVS(3216) = Jac_FULL(319,351) - JVS(3216) = 0.6*B(795)+0.8*B(846) +! JVS(3216) = Jac_FULL(322,324) + JVS(3216) = 0 IF (DO_JVS(3217)) & -! JVS(3217) = Jac_FULL(320,219) - JVS(3217) = 0.3*B(729) +! JVS(3217) = Jac_FULL(322,328) + JVS(3217) = -B(360) IF (DO_JVS(3218)) & -! JVS(3218) = Jac_FULL(320,292) - JVS(3218) = B(234)+B(251) +! JVS(3218) = Jac_FULL(322,334) + JVS(3218) = -B(256) IF (DO_JVS(3219)) & -! JVS(3219) = Jac_FULL(320,300) - JVS(3219) = 0 +! JVS(3219) = Jac_FULL(322,338) + JVS(3219) = -B(182) IF (DO_JVS(3220)) & -! JVS(3220) = Jac_FULL(320,318) - JVS(3220) = 0 +! JVS(3220) = Jac_FULL(322,341) + JVS(3220) = -B(221) IF (DO_JVS(3221)) & -! JVS(3221) = Jac_FULL(320,319) - JVS(3221) = 0 +! JVS(3221) = Jac_FULL(322,343) + JVS(3221) = B(196)+0.5*B(1458) IF (DO_JVS(3222)) & -! JVS(3222) = Jac_FULL(320,320) - JVS(3222) = -B(185)-B(228)-B(236)-B(263)-B(355) +! JVS(3222) = Jac_FULL(322,345) + JVS(3222) = 0 IF (DO_JVS(3223)) & -! JVS(3223) = Jac_FULL(320,324) - JVS(3223) = -B(356) +! JVS(3223) = Jac_FULL(322,348) + JVS(3223) = 0.5*B(1460) IF (DO_JVS(3224)) & -! JVS(3224) = Jac_FULL(320,328) - JVS(3224) = -B(264) +! JVS(3224) = Jac_FULL(322,356) + JVS(3224) = 0 IF (DO_JVS(3225)) & -! JVS(3225) = Jac_FULL(320,335) - JVS(3225) = 0 +! JVS(3225) = Jac_FULL(323,99) + JVS(3225) = 0.21*B(332) IF (DO_JVS(3226)) & -! JVS(3226) = Jac_FULL(320,337) - JVS(3226) = -B(229) +! JVS(3226) = Jac_FULL(323,134) + JVS(3226) = 0.8*B(849)+0.8*B(1828) IF (DO_JVS(3227)) & -! JVS(3227) = Jac_FULL(320,340) - JVS(3227) = 0 +! JVS(3227) = Jac_FULL(323,144) + JVS(3227) = B(169) IF (DO_JVS(3228)) & -! JVS(3228) = Jac_FULL(320,341) - JVS(3228) = 0.3*B(730) +! JVS(3228) = Jac_FULL(323,164) + JVS(3228) = 0.6*B(1826) IF (DO_JVS(3229)) & -! JVS(3229) = Jac_FULL(320,345) - JVS(3229) = B(235) +! JVS(3229) = Jac_FULL(323,165) + JVS(3229) = 0.3*B(798) IF (DO_JVS(3230)) & -! JVS(3230) = Jac_FULL(320,346) - JVS(3230) = -B(186)-B(237) +! JVS(3230) = Jac_FULL(323,171) + JVS(3230) = 0.8*B(1827) IF (DO_JVS(3231)) & -! JVS(3231) = Jac_FULL(320,351) - JVS(3231) = B(252) +! JVS(3231) = Jac_FULL(323,182) + JVS(3231) = 0.25*B(128) IF (DO_JVS(3232)) & -! JVS(3232) = Jac_FULL(321,99) - JVS(3232) = 0.36*B(328) +! JVS(3232) = Jac_FULL(323,252) + JVS(3232) = 0.15*B(259)+0.27*B(361) IF (DO_JVS(3233)) & -! JVS(3233) = Jac_FULL(321,141) - JVS(3233) = B(116)+B(421)+B(631) +! JVS(3233) = Jac_FULL(323,275) + JVS(3233) = 0.6*B(790)+0.4*B(792)+0.6*B(794) IF (DO_JVS(3234)) & -! JVS(3234) = Jac_FULL(321,251) - JVS(3234) = 0.05*B(1685) +! JVS(3234) = Jac_FULL(323,276) + JVS(3234) = 0 IF (DO_JVS(3235)) & -! JVS(3235) = Jac_FULL(321,279) - JVS(3235) = 0.05*B(1688) +! JVS(3235) = Jac_FULL(323,277) + JVS(3235) = 0.352*B(838)+0.8*B(840)+0.8*B(845)+0.6*B(897)+0.8*B(899) IF (DO_JVS(3236)) & -! JVS(3236) = Jac_FULL(321,292) - JVS(3236) = 0.06*B(1665) +! JVS(3236) = Jac_FULL(323,278) + JVS(3236) = 0 IF (DO_JVS(3237)) & -! JVS(3237) = Jac_FULL(321,298) - JVS(3237) = 0.07*B(1662) +! JVS(3237) = Jac_FULL(323,283) + JVS(3237) = 0 IF (DO_JVS(3238)) & -! JVS(3238) = Jac_FULL(321,300) - JVS(3238) = 0.05*B(171)+0.03*B(257)+0.045*B(351) +! JVS(3238) = Jac_FULL(323,284) + JVS(3238) = 0 IF (DO_JVS(3239)) & -! JVS(3239) = Jac_FULL(321,314) +! JVS(3239) = Jac_FULL(323,304) JVS(3239) = 0 IF (DO_JVS(3240)) & -! JVS(3240) = Jac_FULL(321,318) - JVS(3240) = 0 +! JVS(3240) = Jac_FULL(323,322) + JVS(3240) = 0.15*B(255)+0.27*B(359) IF (DO_JVS(3241)) & -! JVS(3241) = Jac_FULL(321,319) - JVS(3241) = 0.05*B(177)+0.03*B(253)+0.045*B(349) +! JVS(3241) = Jac_FULL(323,323) + JVS(3241) = -B(177)-B(179)-B(218)-B(253)-B(349) IF (DO_JVS(3242)) & -! JVS(3242) = Jac_FULL(321,320) +! JVS(3242) = Jac_FULL(323,324) JVS(3242) = 0 IF (DO_JVS(3243)) & -! JVS(3243) = Jac_FULL(321,321) - JVS(3243) = -B(118)-B(120)-B(214)-B(279)-B(371) +! JVS(3243) = Jac_FULL(323,328) + JVS(3243) = -B(350)+0.27*B(360)+0.27*B(362)+0.8*B(900) IF (DO_JVS(3244)) & -! JVS(3244) = Jac_FULL(321,322) - JVS(3244) = 0.07*B(208)+0.03*B(283)+0.07*B(373)+0.07*B(375) +! JVS(3244) = Jac_FULL(323,334) + JVS(3244) = -B(254)+0.15*B(256)+0.15*B(260)+0.4*B(793)+0.6*B(898) IF (DO_JVS(3245)) & -! JVS(3245) = Jac_FULL(321,323) - JVS(3245) = 0 +! JVS(3245) = Jac_FULL(323,338) + JVS(3245) = 0.25*B(129)-B(178)-B(180)+0.6*B(791)+0.8*B(841) IF (DO_JVS(3246)) & -! JVS(3246) = Jac_FULL(321,324) - JVS(3246) = 0.045*B(350)+0.045*B(352)-B(372)+0.07*B(374) +! JVS(3246) = Jac_FULL(323,341) + JVS(3246) = -B(219)+0.352*B(839) IF (DO_JVS(3247)) & -! JVS(3247) = Jac_FULL(321,328) - JVS(3247) = -B(215)+0.03*B(254)+0.03*B(258)+0.07*B(376) +! JVS(3247) = Jac_FULL(323,343) + JVS(3247) = B(170)+0.21*B(333)+0.3*B(799)+0.8*B(850) IF (DO_JVS(3248)) & -! JVS(3248) = Jac_FULL(321,335) +! JVS(3248) = Jac_FULL(323,345) JVS(3248) = 0 IF (DO_JVS(3249)) & -! JVS(3249) = Jac_FULL(321,337) - JVS(3249) = -B(280)+0.03*B(284) +! JVS(3249) = Jac_FULL(323,348) + JVS(3249) = 0.6*B(795)+0.8*B(846) IF (DO_JVS(3250)) & -! JVS(3250) = Jac_FULL(321,340) - JVS(3250) = B(632) +! JVS(3250) = Jac_FULL(323,352) + JVS(3250) = 0 IF (DO_JVS(3251)) & -! JVS(3251) = Jac_FULL(321,341) +! JVS(3251) = Jac_FULL(323,356) JVS(3251) = 0 IF (DO_JVS(3252)) & -! JVS(3252) = Jac_FULL(321,342) - JVS(3252) = B(422) +! JVS(3252) = Jac_FULL(324,222) + JVS(3252) = 0.3*B(729) IF (DO_JVS(3253)) & -! JVS(3253) = Jac_FULL(321,345) - JVS(3253) = B(117)+0.36*B(329) +! JVS(3253) = Jac_FULL(324,295) + JVS(3253) = B(234)+B(251) IF (DO_JVS(3254)) & -! JVS(3254) = Jac_FULL(321,346) - JVS(3254) = -B(119)-B(121)+0.05*B(172)+0.05*B(178)+0.07*B(209) +! JVS(3254) = Jac_FULL(324,304) + JVS(3254) = 0 IF (DO_JVS(3255)) & -! JVS(3255) = Jac_FULL(321,351) +! JVS(3255) = Jac_FULL(324,322) JVS(3255) = 0 IF (DO_JVS(3256)) & -! JVS(3256) = Jac_FULL(322,124) - JVS(3256) = B(205)+0.7*B(1806) +! JVS(3256) = Jac_FULL(324,323) + JVS(3256) = 0 IF (DO_JVS(3257)) & -! JVS(3257) = Jac_FULL(322,155) - JVS(3257) = B(336) +! JVS(3257) = Jac_FULL(324,324) + JVS(3257) = -B(185)-B(228)-B(236)-B(263)-B(355) IF (DO_JVS(3258)) & -! JVS(3258) = Jac_FULL(322,160) - JVS(3258) = 0.5*B(770)+B(1811) +! JVS(3258) = Jac_FULL(324,328) + JVS(3258) = -B(356) IF (DO_JVS(3259)) & -! JVS(3259) = Jac_FULL(322,176) - JVS(3259) = 0.4*B(772) +! JVS(3259) = Jac_FULL(324,334) + JVS(3259) = -B(264) IF (DO_JVS(3260)) & -! JVS(3260) = Jac_FULL(322,196) - JVS(3260) = 0.326*B(1686) +! JVS(3260) = Jac_FULL(324,338) + JVS(3260) = -B(186)-B(237) IF (DO_JVS(3261)) & -! JVS(3261) = Jac_FULL(322,201) - JVS(3261) = 0.33*B(1470) +! JVS(3261) = Jac_FULL(324,341) + JVS(3261) = -B(229) IF (DO_JVS(3262)) & -! JVS(3262) = Jac_FULL(322,221) - JVS(3262) = 0.33*B(1465) +! JVS(3262) = Jac_FULL(324,343) + JVS(3262) = B(235) IF (DO_JVS(3263)) & -! JVS(3263) = Jac_FULL(322,240) - JVS(3263) = B(1405)+0.44*B(1407) +! JVS(3263) = Jac_FULL(324,345) + JVS(3263) = 0 IF (DO_JVS(3264)) & -! JVS(3264) = Jac_FULL(322,246) - JVS(3264) = 0 +! JVS(3264) = Jac_FULL(324,348) + JVS(3264) = B(252) IF (DO_JVS(3265)) & -! JVS(3265) = Jac_FULL(322,269) +! JVS(3265) = Jac_FULL(324,352) JVS(3265) = 0 IF (DO_JVS(3266)) & -! JVS(3266) = Jac_FULL(322,277) - JVS(3266) = 0 +! JVS(3266) = Jac_FULL(324,356) + JVS(3266) = 0.3*B(730) IF (DO_JVS(3267)) & -! JVS(3267) = Jac_FULL(322,278) - JVS(3267) = 0.84*B(764)+B(766)+0.75*B(768) +! JVS(3267) = Jac_FULL(325,127) + JVS(3267) = B(205)+0.7*B(1819) IF (DO_JVS(3268)) & -! JVS(3268) = Jac_FULL(322,292) - JVS(3268) = 0.15*B(1665) +! JVS(3268) = Jac_FULL(325,158) + JVS(3268) = B(336) IF (DO_JVS(3269)) & -! JVS(3269) = Jac_FULL(322,298) - JVS(3269) = B(201)+B(210) +! JVS(3269) = Jac_FULL(325,163) + JVS(3269) = 0.5*B(770)+B(1824) IF (DO_JVS(3270)) & -! JVS(3270) = Jac_FULL(322,300) - JVS(3270) = 0 +! JVS(3270) = Jac_FULL(325,179) + JVS(3270) = 0.4*B(772) IF (DO_JVS(3271)) & -! JVS(3271) = Jac_FULL(322,314) - JVS(3271) = B(1673) +! JVS(3271) = Jac_FULL(325,200) + JVS(3271) = 0.326*B(1699) IF (DO_JVS(3272)) & -! JVS(3272) = Jac_FULL(322,318) - JVS(3272) = 0 +! JVS(3272) = Jac_FULL(325,204) + JVS(3272) = 0.33*B(1470) IF (DO_JVS(3273)) & -! JVS(3273) = Jac_FULL(322,319) - JVS(3273) = 0 +! JVS(3273) = Jac_FULL(325,224) + JVS(3273) = 0.33*B(1465) IF (DO_JVS(3274)) & -! JVS(3274) = Jac_FULL(322,320) - JVS(3274) = 0 +! JVS(3274) = Jac_FULL(325,243) + JVS(3274) = B(1405)+0.44*B(1407) IF (DO_JVS(3275)) & -! JVS(3275) = Jac_FULL(322,321) +! JVS(3275) = Jac_FULL(325,250) JVS(3275) = 0 IF (DO_JVS(3276)) & -! JVS(3276) = Jac_FULL(322,322) - JVS(3276) = -B(203)-B(208)-B(283)-B(373)-B(375) +! JVS(3276) = Jac_FULL(325,272) + JVS(3276) = 0 IF (DO_JVS(3277)) & -! JVS(3277) = Jac_FULL(322,323) +! JVS(3277) = Jac_FULL(325,281) JVS(3277) = 0 IF (DO_JVS(3278)) & -! JVS(3278) = Jac_FULL(322,324) - JVS(3278) = -B(374) +! JVS(3278) = Jac_FULL(325,282) + JVS(3278) = 0.84*B(764)+B(766)+0.75*B(768) IF (DO_JVS(3279)) & -! JVS(3279) = Jac_FULL(322,328) - JVS(3279) = -B(376)+0.75*B(769) +! JVS(3279) = Jac_FULL(325,295) + JVS(3279) = 0.15*B(1678) IF (DO_JVS(3280)) & -! JVS(3280) = Jac_FULL(322,335) - JVS(3280) = -B(204) +! JVS(3280) = Jac_FULL(325,302) + JVS(3280) = B(201)+B(210) IF (DO_JVS(3281)) & -! JVS(3281) = Jac_FULL(322,337) - JVS(3281) = -B(284)+0.44*B(1408) +! JVS(3281) = Jac_FULL(325,304) + JVS(3281) = 0 IF (DO_JVS(3282)) & -! JVS(3282) = Jac_FULL(322,340) - JVS(3282) = 0 +! JVS(3282) = Jac_FULL(325,318) + JVS(3282) = B(1686) IF (DO_JVS(3283)) & -! JVS(3283) = Jac_FULL(322,341) +! JVS(3283) = Jac_FULL(325,322) JVS(3283) = 0 IF (DO_JVS(3284)) & -! JVS(3284) = Jac_FULL(322,342) +! JVS(3284) = Jac_FULL(325,323) JVS(3284) = 0 IF (DO_JVS(3285)) & -! JVS(3285) = Jac_FULL(322,345) - JVS(3285) = B(202)+B(337)+0.5*B(771)+0.4*B(773)+0.33*B(1466)+0.33*B(1471) +! JVS(3285) = Jac_FULL(325,324) + JVS(3285) = 0 IF (DO_JVS(3286)) & -! JVS(3286) = Jac_FULL(322,346) - JVS(3286) = -B(209)+0.84*B(765)+B(1406) +! JVS(3286) = Jac_FULL(325,325) + JVS(3286) = -B(203)-B(208)-B(283)-B(373)-B(375) IF (DO_JVS(3287)) & -! JVS(3287) = Jac_FULL(322,351) - JVS(3287) = B(211)+B(767) +! JVS(3287) = Jac_FULL(325,326) + JVS(3287) = 0 IF (DO_JVS(3288)) & -! JVS(3288) = Jac_FULL(323,100) - JVS(3288) = 0.209*B(330) +! JVS(3288) = Jac_FULL(325,327) + JVS(3288) = 0 IF (DO_JVS(3289)) & -! JVS(3289) = Jac_FULL(323,141) - JVS(3289) = B(114)+B(629) +! JVS(3289) = Jac_FULL(325,328) + JVS(3289) = -B(374) IF (DO_JVS(3290)) & -! JVS(3290) = Jac_FULL(323,251) - JVS(3290) = 0.19*B(1685) +! JVS(3290) = Jac_FULL(325,334) + JVS(3290) = -B(376)+0.75*B(769) IF (DO_JVS(3291)) & -! JVS(3291) = Jac_FULL(323,279) - JVS(3291) = 0.19*B(1688) +! JVS(3291) = Jac_FULL(325,338) + JVS(3291) = -B(209)+0.84*B(765)+B(1406) IF (DO_JVS(3292)) & -! JVS(3292) = Jac_FULL(323,292) - JVS(3292) = 0.23*B(1665) +! JVS(3292) = Jac_FULL(325,341) + JVS(3292) = -B(284)+0.44*B(1408) IF (DO_JVS(3293)) & -! JVS(3293) = Jac_FULL(323,298) - JVS(3293) = 0.27*B(1662) +! JVS(3293) = Jac_FULL(325,342) + JVS(3293) = 0 IF (DO_JVS(3294)) & -! JVS(3294) = Jac_FULL(323,300) - JVS(3294) = 0.19*B(171)+0.09*B(257)+0.162*B(351) +! JVS(3294) = Jac_FULL(325,343) + JVS(3294) = B(202)+B(337)+0.5*B(771)+0.4*B(773)+0.33*B(1466)+0.33*B(1471) IF (DO_JVS(3295)) & -! JVS(3295) = Jac_FULL(323,314) - JVS(3295) = 0 +! JVS(3295) = Jac_FULL(325,345) + JVS(3295) = -B(204) IF (DO_JVS(3296)) & -! JVS(3296) = Jac_FULL(323,318) - JVS(3296) = 0 +! JVS(3296) = Jac_FULL(325,348) + JVS(3296) = B(211)+B(767) IF (DO_JVS(3297)) & -! JVS(3297) = Jac_FULL(323,319) - JVS(3297) = 0.19*B(177)+0.09*B(253)+0.162*B(349) +! JVS(3297) = Jac_FULL(325,352) + JVS(3297) = 0 IF (DO_JVS(3298)) & -! JVS(3298) = Jac_FULL(323,320) +! JVS(3298) = Jac_FULL(325,356) JVS(3298) = 0 IF (DO_JVS(3299)) & -! JVS(3299) = Jac_FULL(323,321) - JVS(3299) = 0 +! JVS(3299) = Jac_FULL(326,101) + JVS(3299) = 0.36*B(328) IF (DO_JVS(3300)) & -! JVS(3300) = Jac_FULL(323,322) - JVS(3300) = 0.27*B(208)+0.12*B(283)+0.27*B(373)+0.27*B(375) +! JVS(3300) = Jac_FULL(326,142) + JVS(3300) = B(116)+B(421)+B(631) IF (DO_JVS(3301)) & -! JVS(3301) = Jac_FULL(323,323) - JVS(3301) = -B(187)-B(189)-B(230)-B(265)-B(357) +! JVS(3301) = Jac_FULL(326,255) + JVS(3301) = 0.05*B(1698) IF (DO_JVS(3302)) & -! JVS(3302) = Jac_FULL(323,324) - JVS(3302) = 0.162*B(350)+0.162*B(352)-B(358)+0.27*B(374) +! JVS(3302) = Jac_FULL(326,283) + JVS(3302) = 0.05*B(1701) IF (DO_JVS(3303)) & -! JVS(3303) = Jac_FULL(323,328) - JVS(3303) = 0.09*B(254)+0.09*B(258)-B(266)+0.27*B(376) +! JVS(3303) = Jac_FULL(326,295) + JVS(3303) = 0.06*B(1678) IF (DO_JVS(3304)) & -! JVS(3304) = Jac_FULL(323,335) - JVS(3304) = 0 +! JVS(3304) = Jac_FULL(326,302) + JVS(3304) = 0.07*B(1675) IF (DO_JVS(3305)) & -! JVS(3305) = Jac_FULL(323,337) - JVS(3305) = -B(231)+0.12*B(284) +! JVS(3305) = Jac_FULL(326,304) + JVS(3305) = 0.05*B(171)+0.03*B(257)+0.045*B(351) IF (DO_JVS(3306)) & -! JVS(3306) = Jac_FULL(323,340) - JVS(3306) = B(630) +! JVS(3306) = Jac_FULL(326,318) + JVS(3306) = 0 IF (DO_JVS(3307)) & -! JVS(3307) = Jac_FULL(323,341) +! JVS(3307) = Jac_FULL(326,322) JVS(3307) = 0 IF (DO_JVS(3308)) & -! JVS(3308) = Jac_FULL(323,342) - JVS(3308) = 0 +! JVS(3308) = Jac_FULL(326,323) + JVS(3308) = 0.05*B(177)+0.03*B(253)+0.045*B(349) IF (DO_JVS(3309)) & -! JVS(3309) = Jac_FULL(323,345) - JVS(3309) = B(115)+0.209*B(331) +! JVS(3309) = Jac_FULL(326,324) + JVS(3309) = 0 IF (DO_JVS(3310)) & -! JVS(3310) = Jac_FULL(323,346) - JVS(3310) = 0.19*B(172)+0.19*B(178)-B(188)-B(190)+0.27*B(209) +! JVS(3310) = Jac_FULL(326,325) + JVS(3310) = 0.07*B(208)+0.03*B(283)+0.07*B(373)+0.07*B(375) IF (DO_JVS(3311)) & -! JVS(3311) = Jac_FULL(323,351) - JVS(3311) = 0 +! JVS(3311) = Jac_FULL(326,326) + JVS(3311) = -B(118)-B(120)-B(214)-B(279)-B(371) IF (DO_JVS(3312)) & -! JVS(3312) = Jac_FULL(324,92) - JVS(3312) = 0.78*B(342) +! JVS(3312) = Jac_FULL(326,327) + JVS(3312) = 0 IF (DO_JVS(3313)) & -! JVS(3313) = Jac_FULL(324,107) - JVS(3313) = 0.3*B(1304) +! JVS(3313) = Jac_FULL(326,328) + JVS(3313) = 0.045*B(350)+0.045*B(352)-B(372)+0.07*B(374) IF (DO_JVS(3314)) & -! JVS(3314) = Jac_FULL(324,115) - JVS(3314) = B(1320)+B(1763) +! JVS(3314) = Jac_FULL(326,334) + JVS(3314) = -B(215)+0.03*B(254)+0.03*B(258)+0.07*B(376) IF (DO_JVS(3315)) & -! JVS(3315) = Jac_FULL(324,122) - JVS(3315) = B(1412) +! JVS(3315) = Jac_FULL(326,338) + JVS(3315) = -B(119)-B(121)+0.05*B(172)+0.05*B(178)+0.07*B(209) IF (DO_JVS(3316)) & -! JVS(3316) = Jac_FULL(324,130) - JVS(3316) = B(849)+B(1815) +! JVS(3316) = Jac_FULL(326,341) + JVS(3316) = -B(280)+0.03*B(284) IF (DO_JVS(3317)) & -! JVS(3317) = Jac_FULL(324,139) - JVS(3317) = B(101)+0.7*B(1658) +! JVS(3317) = Jac_FULL(326,342) + JVS(3317) = B(422) IF (DO_JVS(3318)) & -! JVS(3318) = Jac_FULL(324,146) - JVS(3318) = B(1661) +! JVS(3318) = Jac_FULL(326,343) + JVS(3318) = B(117)+0.36*B(329) IF (DO_JVS(3319)) & -! JVS(3319) = Jac_FULL(324,159) - JVS(3319) = 0.087*B(1280)+0.262*B(1771) +! JVS(3319) = Jac_FULL(326,345) + JVS(3319) = 0 IF (DO_JVS(3320)) & -! JVS(3320) = Jac_FULL(324,169) - JVS(3320) = B(1814) +! JVS(3320) = Jac_FULL(326,348) + JVS(3320) = 0 IF (DO_JVS(3321)) & -! JVS(3321) = Jac_FULL(324,184) - JVS(3321) = 0 +! JVS(3321) = Jac_FULL(326,352) + JVS(3321) = B(632) IF (DO_JVS(3322)) & -! JVS(3322) = Jac_FULL(324,185) - JVS(3322) = 0.429*B(1768) +! JVS(3322) = Jac_FULL(326,356) + JVS(3322) = 0 IF (DO_JVS(3323)) & -! JVS(3323) = Jac_FULL(324,194) - JVS(3323) = 0.097*B(1258)+0.125*B(1769) +! JVS(3323) = Jac_FULL(327,102) + JVS(3323) = 0.209*B(330) IF (DO_JVS(3324)) & -! JVS(3324) = Jac_FULL(324,196) - JVS(3324) = 0.326*B(1686) +! JVS(3324) = Jac_FULL(327,142) + JVS(3324) = B(114)+B(629) IF (DO_JVS(3325)) & -! JVS(3325) = Jac_FULL(324,200) - JVS(3325) = 0 +! JVS(3325) = Jac_FULL(327,255) + JVS(3325) = 0.19*B(1698) IF (DO_JVS(3326)) & -! JVS(3326) = Jac_FULL(324,208) - JVS(3326) = B(1266)+B(1765) +! JVS(3326) = Jac_FULL(327,283) + JVS(3326) = 0.19*B(1701) IF (DO_JVS(3327)) & -! JVS(3327) = Jac_FULL(324,209) - JVS(3327) = 0.018*B(1027) +! JVS(3327) = Jac_FULL(327,295) + JVS(3327) = 0.23*B(1678) IF (DO_JVS(3328)) & -! JVS(3328) = Jac_FULL(324,227) - JVS(3328) = 0.5*B(1766) +! JVS(3328) = Jac_FULL(327,302) + JVS(3328) = 0.27*B(1675) IF (DO_JVS(3329)) & -! JVS(3329) = Jac_FULL(324,230) - JVS(3329) = 0 +! JVS(3329) = Jac_FULL(327,304) + JVS(3329) = 0.19*B(171)+0.09*B(257)+0.162*B(351) IF (DO_JVS(3330)) & -! JVS(3330) = Jac_FULL(324,231) +! JVS(3330) = Jac_FULL(327,318) JVS(3330) = 0 IF (DO_JVS(3331)) & -! JVS(3331) = Jac_FULL(324,240) +! JVS(3331) = Jac_FULL(327,322) JVS(3331) = 0 IF (DO_JVS(3332)) & -! JVS(3332) = Jac_FULL(324,243) - JVS(3332) = 0 +! JVS(3332) = Jac_FULL(327,323) + JVS(3332) = 0.19*B(177)+0.09*B(253)+0.162*B(349) IF (DO_JVS(3333)) & -! JVS(3333) = Jac_FULL(324,244) - JVS(3333) = B(1743) +! JVS(3333) = Jac_FULL(327,324) + JVS(3333) = 0 IF (DO_JVS(3334)) & -! JVS(3334) = Jac_FULL(324,247) - JVS(3334) = B(1764) +! JVS(3334) = Jac_FULL(327,325) + JVS(3334) = 0.27*B(208)+0.12*B(283)+0.27*B(373)+0.27*B(375) IF (DO_JVS(3335)) & -! JVS(3335) = Jac_FULL(324,249) - JVS(3335) = -B(361) +! JVS(3335) = Jac_FULL(327,326) + JVS(3335) = 0 IF (DO_JVS(3336)) & -! JVS(3336) = Jac_FULL(324,250) - JVS(3336) = -B(363) +! JVS(3336) = Jac_FULL(327,327) + JVS(3336) = -B(187)-B(189)-B(230)-B(265)-B(357) IF (DO_JVS(3337)) & -! JVS(3337) = Jac_FULL(324,254) - JVS(3337) = 0.36*B(1270)+0.758*B(1272) +! JVS(3337) = Jac_FULL(327,328) + JVS(3337) = 0.162*B(350)+0.162*B(352)-B(358)+0.27*B(374) IF (DO_JVS(3338)) & -! JVS(3338) = Jac_FULL(324,257) - JVS(3338) = -B(895) +! JVS(3338) = Jac_FULL(327,334) + JVS(3338) = 0.09*B(254)+0.09*B(258)-B(266)+0.27*B(376) IF (DO_JVS(3339)) & -! JVS(3339) = Jac_FULL(324,258) - JVS(3339) = 0 +! JVS(3339) = Jac_FULL(327,338) + JVS(3339) = 0.19*B(172)+0.19*B(178)-B(188)-B(190)+0.27*B(209) IF (DO_JVS(3340)) & -! JVS(3340) = Jac_FULL(324,259) - JVS(3340) = 0.175*B(1278)+0.35*B(1287) +! JVS(3340) = Jac_FULL(327,341) + JVS(3340) = -B(231)+0.12*B(284) IF (DO_JVS(3341)) & -! JVS(3341) = Jac_FULL(324,260) - JVS(3341) = -B(369) +! JVS(3341) = Jac_FULL(327,342) + JVS(3341) = 0 IF (DO_JVS(3342)) & -! JVS(3342) = Jac_FULL(324,261) - JVS(3342) = B(1318) +! JVS(3342) = Jac_FULL(327,343) + JVS(3342) = B(115)+0.209*B(331) IF (DO_JVS(3343)) & -! JVS(3343) = Jac_FULL(324,263) - JVS(3343) = -B(1395) +! JVS(3343) = Jac_FULL(327,345) + JVS(3343) = 0 IF (DO_JVS(3344)) & -! JVS(3344) = Jac_FULL(324,267) +! JVS(3344) = Jac_FULL(327,348) JVS(3344) = 0 IF (DO_JVS(3345)) & -! JVS(3345) = Jac_FULL(324,268) - JVS(3345) = 0 +! JVS(3345) = Jac_FULL(327,352) + JVS(3345) = B(630) IF (DO_JVS(3346)) & -! JVS(3346) = Jac_FULL(324,271) +! JVS(3346) = Jac_FULL(327,356) JVS(3346) = 0 IF (DO_JVS(3347)) & -! JVS(3347) = Jac_FULL(324,272) - JVS(3347) = 0 +! JVS(3347) = Jac_FULL(328,95) + JVS(3347) = 0.78*B(342) IF (DO_JVS(3348)) & -! JVS(3348) = Jac_FULL(324,274) - JVS(3348) = 0.44*B(838)+B(840)+B(845)+0.75*B(897) +! JVS(3348) = Jac_FULL(328,109) + JVS(3348) = 0.3*B(1304) IF (DO_JVS(3349)) & -! JVS(3349) = Jac_FULL(324,275) - JVS(3349) = -B(883) +! JVS(3349) = Jac_FULL(328,116) + JVS(3349) = B(1320)+B(1776) IF (DO_JVS(3350)) & -! JVS(3350) = Jac_FULL(324,276) - JVS(3350) = 0.3*B(953) +! JVS(3350) = Jac_FULL(328,125) + JVS(3350) = B(1412) IF (DO_JVS(3351)) & -! JVS(3351) = Jac_FULL(324,277) - JVS(3351) = -B(879) +! JVS(3351) = Jac_FULL(328,134) + JVS(3351) = B(849)+B(1828) IF (DO_JVS(3352)) & -! JVS(3352) = Jac_FULL(324,278) - JVS(3352) = 0 +! JVS(3352) = Jac_FULL(328,143) + JVS(3352) = B(101)+0.7*B(1671) IF (DO_JVS(3353)) & -! JVS(3353) = Jac_FULL(324,279) - JVS(3353) = 0 +! JVS(3353) = Jac_FULL(328,152) + JVS(3353) = B(1674) IF (DO_JVS(3354)) & -! JVS(3354) = Jac_FULL(324,280) - JVS(3354) = -B(913) +! JVS(3354) = Jac_FULL(328,161) + JVS(3354) = 0.087*B(1280)+0.262*B(1784) IF (DO_JVS(3355)) & -! JVS(3355) = Jac_FULL(324,281) - JVS(3355) = -B(887) +! JVS(3355) = Jac_FULL(328,171) + JVS(3355) = B(1827) IF (DO_JVS(3356)) & -! JVS(3356) = Jac_FULL(324,285) +! JVS(3356) = Jac_FULL(328,189) JVS(3356) = 0 IF (DO_JVS(3357)) & -! JVS(3357) = Jac_FULL(324,286) - JVS(3357) = 0 +! JVS(3357) = Jac_FULL(328,190) + JVS(3357) = 0.429*B(1781) IF (DO_JVS(3358)) & -! JVS(3358) = Jac_FULL(324,287) - JVS(3358) = 0 +! JVS(3358) = Jac_FULL(328,197) + JVS(3358) = 0.097*B(1258)+0.125*B(1782) IF (DO_JVS(3359)) & -! JVS(3359) = Jac_FULL(324,288) - JVS(3359) = 0.53*B(1767) +! JVS(3359) = Jac_FULL(328,200) + JVS(3359) = 0.326*B(1699) IF (DO_JVS(3360)) & -! JVS(3360) = Jac_FULL(324,289) - JVS(3360) = -B(915) +! JVS(3360) = Jac_FULL(328,203) + JVS(3360) = 0 IF (DO_JVS(3361)) & -! JVS(3361) = Jac_FULL(324,290) - JVS(3361) = 0 +! JVS(3361) = Jac_FULL(328,211) + JVS(3361) = B(1266)+B(1778) IF (DO_JVS(3362)) & -! JVS(3362) = Jac_FULL(324,291) - JVS(3362) = -B(891) +! JVS(3362) = Jac_FULL(328,213) + JVS(3362) = 0.018*B(1027) IF (DO_JVS(3363)) & -! JVS(3363) = Jac_FULL(324,292) - JVS(3363) = 0.85*B(1665) +! JVS(3363) = Jac_FULL(328,230) + JVS(3363) = 0.5*B(1779) IF (DO_JVS(3364)) & -! JVS(3364) = Jac_FULL(324,293) +! JVS(3364) = Jac_FULL(328,231) JVS(3364) = 0 IF (DO_JVS(3365)) & -! JVS(3365) = Jac_FULL(324,294) - JVS(3365) = B(314)+B(318)+B(1670) +! JVS(3365) = Jac_FULL(328,233) + JVS(3365) = 0 IF (DO_JVS(3366)) & -! JVS(3366) = Jac_FULL(324,295) - JVS(3366) = B(1663) +! JVS(3366) = Jac_FULL(328,243) + JVS(3366) = 0 IF (DO_JVS(3367)) & -! JVS(3367) = Jac_FULL(324,296) - JVS(3367) = -B(365) +! JVS(3367) = Jac_FULL(328,245) + JVS(3367) = 0 IF (DO_JVS(3368)) & -! JVS(3368) = Jac_FULL(324,299) - JVS(3368) = 0 +! JVS(3368) = Jac_FULL(328,247) + JVS(3368) = B(1756) IF (DO_JVS(3369)) & -! JVS(3369) = Jac_FULL(324,300) - JVS(3369) = -B(351) +! JVS(3369) = Jac_FULL(328,249) + JVS(3369) = B(1777) IF (DO_JVS(3370)) & -! JVS(3370) = Jac_FULL(324,301) - JVS(3370) = 0 +! JVS(3370) = Jac_FULL(328,252) + JVS(3370) = -B(361) IF (DO_JVS(3371)) & -! JVS(3371) = Jac_FULL(324,302) - JVS(3371) = 0.04*B(1236)+1.01*B(1772) +! JVS(3371) = Jac_FULL(328,253) + JVS(3371) = -B(363) IF (DO_JVS(3372)) & -! JVS(3372) = Jac_FULL(324,303) - JVS(3372) = 0 +! JVS(3372) = Jac_FULL(328,258) + JVS(3372) = 0.36*B(1270)+0.758*B(1272) IF (DO_JVS(3373)) & -! JVS(3373) = Jac_FULL(324,304) +! JVS(3373) = Jac_FULL(328,259) JVS(3373) = 0 IF (DO_JVS(3374)) & -! JVS(3374) = Jac_FULL(324,305) - JVS(3374) = 0.3*B(966) +! JVS(3374) = Jac_FULL(328,261) + JVS(3374) = -B(895) IF (DO_JVS(3375)) & -! JVS(3375) = Jac_FULL(324,307) - JVS(3375) = B(1675) +! JVS(3375) = Jac_FULL(328,262) + JVS(3375) = 0.175*B(1278)+0.35*B(1287) IF (DO_JVS(3376)) & -! JVS(3376) = Jac_FULL(324,308) - JVS(3376) = 0 +! JVS(3376) = Jac_FULL(328,264) + JVS(3376) = -B(369) IF (DO_JVS(3377)) & -! JVS(3377) = Jac_FULL(324,309) - JVS(3377) = 0.12*B(1232)+B(1674) +! JVS(3377) = Jac_FULL(328,265) + JVS(3377) = B(1318) IF (DO_JVS(3378)) & -! JVS(3378) = Jac_FULL(324,310) - JVS(3378) = -B(1161) +! JVS(3378) = Jac_FULL(328,266) + JVS(3378) = -B(1395) IF (DO_JVS(3379)) & -! JVS(3379) = Jac_FULL(324,311) - JVS(3379) = -B(1163) +! JVS(3379) = Jac_FULL(328,270) + JVS(3379) = 0 IF (DO_JVS(3380)) & -! JVS(3380) = Jac_FULL(324,313) - JVS(3380) = B(183)+0.15*B(226)+0.3*B(261)-0.1*B(353) +! JVS(3380) = Jac_FULL(328,271) + JVS(3380) = 0 IF (DO_JVS(3381)) & -! JVS(3381) = Jac_FULL(324,314) - JVS(3381) = 0.38*B(1226)+B(1672) +! JVS(3381) = Jac_FULL(328,273) + JVS(3381) = 0 IF (DO_JVS(3382)) & -! JVS(3382) = Jac_FULL(324,315) - JVS(3382) = -B(367) +! JVS(3382) = Jac_FULL(328,276) + JVS(3382) = -B(883) IF (DO_JVS(3383)) & -! JVS(3383) = Jac_FULL(324,318) - JVS(3383) = -B(359) +! JVS(3383) = Jac_FULL(328,277) + JVS(3383) = 0.44*B(838)+B(840)+B(845)+0.75*B(897) IF (DO_JVS(3384)) & -! JVS(3384) = Jac_FULL(324,319) - JVS(3384) = -B(349) +! JVS(3384) = Jac_FULL(328,278) + JVS(3384) = 0 IF (DO_JVS(3385)) & -! JVS(3385) = Jac_FULL(324,320) - JVS(3385) = 0.919*B(185)+0.15*B(228)+0.62*B(236)+0.5*B(263)-0.1*B(355) +! JVS(3385) = Jac_FULL(328,279) + JVS(3385) = 0.3*B(953) IF (DO_JVS(3386)) & -! JVS(3386) = Jac_FULL(324,321) - JVS(3386) = -B(371) +! JVS(3386) = Jac_FULL(328,280) + JVS(3386) = -B(913) IF (DO_JVS(3387)) & -! JVS(3387) = Jac_FULL(324,322) - JVS(3387) = -B(373) +! JVS(3387) = Jac_FULL(328,281) + JVS(3387) = -B(879) IF (DO_JVS(3388)) & -! JVS(3388) = Jac_FULL(324,323) - JVS(3388) = -B(357) +! JVS(3388) = Jac_FULL(328,282) + JVS(3388) = 0 IF (DO_JVS(3389)) & -! JVS(3389) = Jac_FULL(324,324) - JVS(3389) = -B(99)-B(104)-2*B(346)-B(347)-B(350)-B(352)-0.1*B(354)-0.1*B(356)-B(358)-B(360)-B(362)-B(364)-B(366)& - &-B(368)-B(370)-B(372)-B(374)-B(880)-B(884)-B(888)-B(892)-B(896)-B(914)-B(916)-B(1162)-B(1164)-B(1324)& - &-B(1396) +! JVS(3389) = Jac_FULL(328,283) + JVS(3389) = 0 IF (DO_JVS(3390)) & -! JVS(3390) = Jac_FULL(324,326) - JVS(3390) = 0.95*B(95)+B(97)+B(415)+0.12*B(1656) +! JVS(3390) = Jac_FULL(328,284) + JVS(3390) = -B(887) IF (DO_JVS(3391)) & -! JVS(3391) = Jac_FULL(324,328) - JVS(3391) = 0.3*B(262)+0.5*B(264)-B(348)+0.75*B(898) +! JVS(3391) = Jac_FULL(328,288) + JVS(3391) = 0 IF (DO_JVS(3392)) & -! JVS(3392) = Jac_FULL(324,335) - JVS(3392) = -B(100) +! JVS(3392) = Jac_FULL(328,289) + JVS(3392) = 0 IF (DO_JVS(3393)) & -! JVS(3393) = Jac_FULL(324,337) - JVS(3393) = 0.15*B(227)+0.15*B(229)+0.44*B(839)+0.36*B(1271)+0.175*B(1279)-B(1325) +! JVS(3393) = Jac_FULL(328,290) + JVS(3393) = 0 IF (DO_JVS(3394)) & -! JVS(3394) = Jac_FULL(324,340) - JVS(3394) = 0 +! JVS(3394) = Jac_FULL(328,291) + JVS(3394) = 0.53*B(1780) IF (DO_JVS(3395)) & -! JVS(3395) = Jac_FULL(324,341) - JVS(3395) = 0.38*B(1227)+0.12*B(1233) +! JVS(3395) = Jac_FULL(328,292) + JVS(3395) = -B(915) IF (DO_JVS(3396)) & -! JVS(3396) = Jac_FULL(324,342) - JVS(3396) = B(416) +! JVS(3396) = Jac_FULL(328,293) + JVS(3396) = 0 IF (DO_JVS(3397)) & -! JVS(3397) = Jac_FULL(324,345) - JVS(3397) = 0.95*B(96)+B(315)+0.78*B(343)+B(850)+0.3*B(954)+0.018*B(1028)+0.04*B(1237)+0.097*B(1259)+B(1267)+0.087& - &*B(1281)+0.3*B(1305)+B(1321)+B(1413) +! JVS(3397) = Jac_FULL(328,294) + JVS(3397) = -B(891) IF (DO_JVS(3398)) & -! JVS(3398) = Jac_FULL(324,346) - JVS(3398) = -B(105)+B(184)+0.919*B(186)+0.62*B(237)+B(841)+0.758*B(1273)+0.35*B(1288) +! JVS(3398) = Jac_FULL(328,295) + JVS(3398) = 0.85*B(1678) IF (DO_JVS(3399)) & -! JVS(3399) = Jac_FULL(324,351) - JVS(3399) = B(98)+B(319)+B(846)+B(1319) +! JVS(3399) = Jac_FULL(328,297) + JVS(3399) = B(1676) IF (DO_JVS(3400)) & -! JVS(3400) = Jac_FULL(325,72) - JVS(3400) = B(308) +! JVS(3400) = Jac_FULL(328,298) + JVS(3400) = B(314)+B(318)+B(1683) IF (DO_JVS(3401)) & -! JVS(3401) = Jac_FULL(325,80) - JVS(3401) = B(1741) +! JVS(3401) = Jac_FULL(328,299) + JVS(3401) = 0 IF (DO_JVS(3402)) & -! JVS(3402) = Jac_FULL(325,88) - JVS(3402) = 0.5*B(1322)+B(1761) +! JVS(3402) = Jac_FULL(328,300) + JVS(3402) = -B(365) IF (DO_JVS(3403)) & -! JVS(3403) = Jac_FULL(325,89) - JVS(3403) = B(22)+B(23) +! JVS(3403) = Jac_FULL(328,303) + JVS(3403) = 0 IF (DO_JVS(3404)) & -! JVS(3404) = Jac_FULL(325,92) - JVS(3404) = 0.22*B(342) +! JVS(3404) = Jac_FULL(328,304) + JVS(3404) = -B(351) IF (DO_JVS(3405)) & -! JVS(3405) = Jac_FULL(325,93) - JVS(3405) = B(939)+B(1757) +! JVS(3405) = Jac_FULL(328,305) + JVS(3405) = 0 IF (DO_JVS(3406)) & -! JVS(3406) = Jac_FULL(325,94) - JVS(3406) = B(381)+B(385) +! JVS(3406) = Jac_FULL(328,306) + JVS(3406) = 0.04*B(1236)+1.01*B(1785) IF (DO_JVS(3407)) & -! JVS(3407) = Jac_FULL(325,106) - JVS(3407) = 2*B(1372) +! JVS(3407) = Jac_FULL(328,307) + JVS(3407) = 0 IF (DO_JVS(3408)) & -! JVS(3408) = Jac_FULL(325,109) - JVS(3408) = B(1358) +! JVS(3408) = Jac_FULL(328,308) + JVS(3408) = -B(1161) IF (DO_JVS(3409)) & -! JVS(3409) = Jac_FULL(325,112) - JVS(3409) = B(1812) +! JVS(3409) = Jac_FULL(328,310) + JVS(3409) = -B(1163) IF (DO_JVS(3410)) & -! JVS(3410) = Jac_FULL(325,114) - JVS(3410) = B(306) +! JVS(3410) = Jac_FULL(328,311) + JVS(3410) = B(1688) IF (DO_JVS(3411)) & -! JVS(3411) = Jac_FULL(325,122) - JVS(3411) = B(1412) +! JVS(3411) = Jac_FULL(328,312) + JVS(3411) = 0 IF (DO_JVS(3412)) & -! JVS(3412) = Jac_FULL(325,123) - JVS(3412) = B(1683) +! JVS(3412) = Jac_FULL(328,313) + JVS(3412) = 0.12*B(1232)+B(1687) IF (DO_JVS(3413)) & -! JVS(3413) = Jac_FULL(325,127) - JVS(3413) = B(152) +! JVS(3413) = Jac_FULL(328,314) + JVS(3413) = 0.3*B(966) IF (DO_JVS(3414)) & -! JVS(3414) = Jac_FULL(325,130) - JVS(3414) = 0.4*B(849)+0.4*B(1815) +! JVS(3414) = Jac_FULL(328,315) + JVS(3414) = 0 IF (DO_JVS(3415)) & -! JVS(3415) = Jac_FULL(325,136) - JVS(3415) = 0 +! JVS(3415) = Jac_FULL(328,316) + JVS(3415) = B(183)+0.15*B(226)+0.3*B(261)-0.1*B(353) IF (DO_JVS(3416)) & -! JVS(3416) = Jac_FULL(325,137) - JVS(3416) = 0.5*B(743) +! JVS(3416) = Jac_FULL(328,318) + JVS(3416) = 0.38*B(1226)+B(1685) IF (DO_JVS(3417)) & -! JVS(3417) = Jac_FULL(325,138) - JVS(3417) = B(780) +! JVS(3417) = Jac_FULL(328,319) + JVS(3417) = -B(367) IF (DO_JVS(3418)) & -! JVS(3418) = Jac_FULL(325,139) - JVS(3418) = B(102) +! JVS(3418) = Jac_FULL(328,322) + JVS(3418) = -B(359) IF (DO_JVS(3419)) & -! JVS(3419) = Jac_FULL(325,140) - JVS(3419) = B(144)+B(146) +! JVS(3419) = Jac_FULL(328,323) + JVS(3419) = -B(349) IF (DO_JVS(3420)) & -! JVS(3420) = Jac_FULL(325,146) - JVS(3420) = B(1661) +! JVS(3420) = Jac_FULL(328,324) + JVS(3420) = 0.919*B(185)+0.15*B(228)+0.62*B(236)+0.5*B(263)-0.1*B(355) IF (DO_JVS(3421)) & -! JVS(3421) = Jac_FULL(325,149) - JVS(3421) = 0.25*B(1344)+B(1346) +! JVS(3421) = Jac_FULL(328,325) + JVS(3421) = -B(373) IF (DO_JVS(3422)) & -! JVS(3422) = Jac_FULL(325,159) - JVS(3422) = 0.25*B(1280)+0.75*B(1771) +! JVS(3422) = Jac_FULL(328,326) + JVS(3422) = -B(371) IF (DO_JVS(3423)) & -! JVS(3423) = Jac_FULL(325,160) - JVS(3423) = 0.5*B(770)+B(1811) +! JVS(3423) = Jac_FULL(328,327) + JVS(3423) = -B(357) IF (DO_JVS(3424)) & -! JVS(3424) = Jac_FULL(325,164) - JVS(3424) = 0.3*B(59)+B(1646) +! JVS(3424) = Jac_FULL(328,328) + JVS(3424) = -B(99)-B(104)-2*B(346)-B(347)-B(350)-B(352)-0.1*B(354)-0.1*B(356)-B(358)-B(360)-B(362)-B(364)-B(366)& + &-B(368)-B(370)-B(372)-B(374)-B(880)-B(884)-B(888)-B(892)-B(896)-B(914)-B(916)-B(1162)-B(1164)-B(1324)& + &-B(1396) IF (DO_JVS(3425)) & -! JVS(3425) = Jac_FULL(325,165) - JVS(3425) = 0.98*B(138) +! JVS(3425) = Jac_FULL(328,330) + JVS(3425) = 0.95*B(95)+B(97)+B(415)+0.12*B(1669) IF (DO_JVS(3426)) & -! JVS(3426) = Jac_FULL(325,168) - JVS(3426) = B(1785) +! JVS(3426) = Jac_FULL(328,334) + JVS(3426) = 0.3*B(262)+0.5*B(264)-B(348)+0.75*B(898) IF (DO_JVS(3427)) & -! JVS(3427) = Jac_FULL(325,169) - JVS(3427) = 0.4*B(1814) +! JVS(3427) = Jac_FULL(328,338) + JVS(3427) = -B(105)+B(184)+0.919*B(186)+0.62*B(237)+B(841)+0.758*B(1273)+0.35*B(1288) IF (DO_JVS(3428)) & -! JVS(3428) = Jac_FULL(325,175) - JVS(3428) = B(1784) +! JVS(3428) = Jac_FULL(328,341) + JVS(3428) = 0.15*B(227)+0.15*B(229)+0.44*B(839)+0.36*B(1271)+0.175*B(1279)-B(1325) IF (DO_JVS(3429)) & -! JVS(3429) = Jac_FULL(325,176) - JVS(3429) = 0.4*B(772) +! JVS(3429) = Jac_FULL(328,342) + JVS(3429) = B(416) IF (DO_JVS(3430)) & -! JVS(3430) = Jac_FULL(325,187) - JVS(3430) = B(1775) +! JVS(3430) = Jac_FULL(328,343) + JVS(3430) = 0.95*B(96)+B(315)+0.78*B(343)+B(850)+0.3*B(954)+0.018*B(1028)+0.04*B(1237)+0.097*B(1259)+B(1267)+0.087& + &*B(1281)+0.3*B(1305)+B(1321)+B(1413) IF (DO_JVS(3431)) & -! JVS(3431) = Jac_FULL(325,190) - JVS(3431) = 0.599*B(1121)+B(1123) +! JVS(3431) = Jac_FULL(328,345) + JVS(3431) = -B(100) IF (DO_JVS(3432)) & -! JVS(3432) = Jac_FULL(325,191) - JVS(3432) = 0.1*B(733) +! JVS(3432) = Jac_FULL(328,348) + JVS(3432) = B(98)+B(319)+B(846)+B(1319) IF (DO_JVS(3433)) & -! JVS(3433) = Jac_FULL(325,192) - JVS(3433) = B(1776) +! JVS(3433) = Jac_FULL(328,352) + JVS(3433) = 0 IF (DO_JVS(3434)) & -! JVS(3434) = Jac_FULL(325,196) - JVS(3434) = 0 +! JVS(3434) = Jac_FULL(328,356) + JVS(3434) = 0.38*B(1227)+0.12*B(1233) IF (DO_JVS(3435)) & -! JVS(3435) = Jac_FULL(325,197) - JVS(3435) = B(160)+B(162) +! JVS(3435) = Jac_FULL(329,74) + JVS(3435) = B(308) IF (DO_JVS(3436)) & -! JVS(3436) = Jac_FULL(325,199) - JVS(3436) = 0.018*B(1029) +! JVS(3436) = Jac_FULL(329,83) + JVS(3436) = B(1754) IF (DO_JVS(3437)) & -! JVS(3437) = Jac_FULL(325,200) - JVS(3437) = 0.12*B(1348) +! JVS(3437) = Jac_FULL(329,87) + JVS(3437) = B(381)+B(385) IF (DO_JVS(3438)) & -! JVS(3438) = Jac_FULL(325,205) - JVS(3438) = 0.059*B(1114)+0.272*B(1116) +! JVS(3438) = Jac_FULL(329,92) + JVS(3438) = 0.5*B(1322)+B(1774) IF (DO_JVS(3439)) & -! JVS(3439) = Jac_FULL(325,206) - JVS(3439) = 0.031*B(1129)+0.065*B(1131) +! JVS(3439) = Jac_FULL(329,93) + JVS(3439) = B(22)+B(23)+B(1650)+B(1651) IF (DO_JVS(3440)) & -! JVS(3440) = Jac_FULL(325,207) - JVS(3440) = 0.065*B(1135)+0.142*B(1137) +! JVS(3440) = Jac_FULL(329,95) + JVS(3440) = 0.22*B(342) IF (DO_JVS(3441)) & -! JVS(3441) = Jac_FULL(325,208) - JVS(3441) = B(1765) +! JVS(3441) = Jac_FULL(329,96) + JVS(3441) = B(939)+B(1770) IF (DO_JVS(3442)) & -! JVS(3442) = Jac_FULL(325,209) - JVS(3442) = 0.018*B(1027) +! JVS(3442) = Jac_FULL(329,112) + JVS(3442) = B(1825) IF (DO_JVS(3443)) & -! JVS(3443) = Jac_FULL(325,210) - JVS(3443) = B(1326)+B(1762) +! JVS(3443) = Jac_FULL(329,114) + JVS(3443) = 2*B(1372) IF (DO_JVS(3444)) & -! JVS(3444) = Jac_FULL(325,211) - JVS(3444) = B(820) +! JVS(3444) = Jac_FULL(329,115) + JVS(3444) = B(306) IF (DO_JVS(3445)) & -! JVS(3445) = Jac_FULL(325,212) - JVS(3445) = 0.603*B(148) +! JVS(3445) = Jac_FULL(329,120) + JVS(3445) = B(1358) IF (DO_JVS(3446)) & -! JVS(3446) = Jac_FULL(325,213) - JVS(3446) = B(300)+0.44*B(302)+B(304) +! JVS(3446) = Jac_FULL(329,125) + JVS(3446) = B(1412) IF (DO_JVS(3447)) & -! JVS(3447) = Jac_FULL(325,215) - JVS(3447) = 0.5*B(1011) +! JVS(3447) = Jac_FULL(329,126) + JVS(3447) = B(1696) IF (DO_JVS(3448)) & -! JVS(3448) = Jac_FULL(325,219) - JVS(3448) = 0.1*B(729) +! JVS(3448) = Jac_FULL(329,130) + JVS(3448) = B(152) IF (DO_JVS(3449)) & -! JVS(3449) = Jac_FULL(325,220) - JVS(3449) = B(1338)+B(1340)+0.5*B(1342) +! JVS(3449) = Jac_FULL(329,134) + JVS(3449) = 0.4*B(849)+0.4*B(1828) IF (DO_JVS(3450)) & -! JVS(3450) = Jac_FULL(325,222) - JVS(3450) = B(1787) +! JVS(3450) = Jac_FULL(329,138) + JVS(3450) = 0 IF (DO_JVS(3451)) & -! JVS(3451) = Jac_FULL(325,223) - JVS(3451) = 0.716*B(1032)+0.14*B(1036) +! JVS(3451) = Jac_FULL(329,139) + JVS(3451) = 0.5*B(743) IF (DO_JVS(3452)) & -! JVS(3452) = Jac_FULL(325,224) - JVS(3452) = 0.706*B(1039)+0.14*B(1043) +! JVS(3452) = Jac_FULL(329,140) + JVS(3452) = B(144)+B(146) IF (DO_JVS(3453)) & -! JVS(3453) = Jac_FULL(325,226) - JVS(3453) = 0.088*B(1200)+0.34*B(1206) +! JVS(3453) = Jac_FULL(329,141) + JVS(3453) = B(780) IF (DO_JVS(3454)) & -! JVS(3454) = Jac_FULL(325,228) - JVS(3454) = 0.25*B(443) +! JVS(3454) = Jac_FULL(329,143) + JVS(3454) = B(102) IF (DO_JVS(3455)) & -! JVS(3455) = Jac_FULL(325,229) - JVS(3455) = 0.1*B(859)+0.1*B(861)+0.05*B(863)+0.1*B(1816) +! JVS(3455) = Jac_FULL(329,148) + JVS(3455) = 0.25*B(1344)+B(1346) IF (DO_JVS(3456)) & -! JVS(3456) = Jac_FULL(325,230) - JVS(3456) = 0.085*B(1001) +! JVS(3456) = Jac_FULL(329,152) + JVS(3456) = B(1674) IF (DO_JVS(3457)) & -! JVS(3457) = Jac_FULL(325,231) - JVS(3457) = 0.165*B(1003) +! JVS(3457) = Jac_FULL(329,161) + JVS(3457) = 0.25*B(1280)+0.75*B(1784) IF (DO_JVS(3458)) & -! JVS(3458) = Jac_FULL(325,233) - JVS(3458) = 0.065*B(154)+0.3*B(1660) +! JVS(3458) = Jac_FULL(329,163) + JVS(3458) = 0.5*B(770)+B(1824) IF (DO_JVS(3459)) & -! JVS(3459) = Jac_FULL(325,234) - JVS(3459) = 0.8*B(1370) +! JVS(3459) = Jac_FULL(329,167) + JVS(3459) = 0.3*B(59)+B(1659) IF (DO_JVS(3460)) & -! JVS(3460) = Jac_FULL(325,235) - JVS(3460) = B(1463) +! JVS(3460) = Jac_FULL(329,168) + JVS(3460) = 0.98*B(138) IF (DO_JVS(3461)) & -! JVS(3461) = Jac_FULL(325,236) - JVS(3461) = B(1461) +! JVS(3461) = Jac_FULL(329,171) + JVS(3461) = 0.4*B(1827) IF (DO_JVS(3462)) & -! JVS(3462) = Jac_FULL(325,240) - JVS(3462) = 0 +! JVS(3462) = Jac_FULL(329,175) + JVS(3462) = B(1797) IF (DO_JVS(3463)) & -! JVS(3463) = Jac_FULL(325,243) - JVS(3463) = 0.65*B(1078)+B(1082) +! JVS(3463) = Jac_FULL(329,177) + JVS(3463) = B(1798) IF (DO_JVS(3464)) & -! JVS(3464) = Jac_FULL(325,244) - JVS(3464) = B(1743) +! JVS(3464) = Jac_FULL(329,179) + JVS(3464) = 0.4*B(772) IF (DO_JVS(3465)) & -! JVS(3465) = Jac_FULL(325,246) - JVS(3465) = 0 +! JVS(3465) = Jac_FULL(329,186) + JVS(3465) = 0.599*B(1121)+B(1123) IF (DO_JVS(3466)) & -! JVS(3466) = Jac_FULL(325,247) - JVS(3466) = B(1764) +! JVS(3466) = Jac_FULL(329,191) + JVS(3466) = B(1788) IF (DO_JVS(3467)) & -! JVS(3467) = Jac_FULL(325,249) - JVS(3467) = 0.64*B(175)+0.95*B(259)+0.351*B(361) +! JVS(3467) = Jac_FULL(329,194) + JVS(3467) = 0.1*B(733) IF (DO_JVS(3468)) & -! JVS(3468) = Jac_FULL(325,250) - JVS(3468) = B(191)+1.25*B(267)+0.9*B(363) +! JVS(3468) = Jac_FULL(329,195) + JVS(3468) = B(1789) IF (DO_JVS(3469)) & -! JVS(3469) = Jac_FULL(325,253) - JVS(3469) = 0.083*B(1276)+0.14*B(1283) +! JVS(3469) = Jac_FULL(329,200) + JVS(3469) = 0 IF (DO_JVS(3470)) & -! JVS(3470) = Jac_FULL(325,254) - JVS(3470) = 0.05*B(1270)+0.242*B(1272) +! JVS(3470) = Jac_FULL(329,201) + JVS(3470) = B(160)+B(162) IF (DO_JVS(3471)) & -! JVS(3471) = Jac_FULL(325,255) - JVS(3471) = 0.67*B(808) +! JVS(3471) = Jac_FULL(329,202) + JVS(3471) = 0.018*B(1029) IF (DO_JVS(3472)) & -! JVS(3472) = Jac_FULL(325,257) - JVS(3472) = B(893) +! JVS(3472) = Jac_FULL(329,203) + JVS(3472) = 0.12*B(1348) IF (DO_JVS(3473)) & -! JVS(3473) = Jac_FULL(325,258) - JVS(3473) = 0.133*B(1793) +! JVS(3473) = Jac_FULL(329,208) + JVS(3473) = 0.065*B(1135)+0.142*B(1137) IF (DO_JVS(3474)) & -! JVS(3474) = Jac_FULL(325,259) - JVS(3474) = 0.5*B(1278)+B(1287) +! JVS(3474) = Jac_FULL(329,209) + JVS(3474) = 0.031*B(1129)+0.065*B(1131) IF (DO_JVS(3475)) & -! JVS(3475) = Jac_FULL(325,260) - JVS(3475) = B(122)+1.25*B(216)+0.9*B(369) +! JVS(3475) = Jac_FULL(329,210) + JVS(3475) = 0.059*B(1114)+0.272*B(1116) IF (DO_JVS(3476)) & -! JVS(3476) = Jac_FULL(325,261) - JVS(3476) = B(687)+B(1749) +! JVS(3476) = Jac_FULL(329,211) + JVS(3476) = B(1778) IF (DO_JVS(3477)) & -! JVS(3477) = Jac_FULL(325,262) - JVS(3477) = 1.5*B(871)+1.5*B(873)+0.75*B(875) +! JVS(3477) = Jac_FULL(329,212) + JVS(3477) = B(820) IF (DO_JVS(3478)) & -! JVS(3478) = Jac_FULL(325,263) - JVS(3478) = B(1393) +! JVS(3478) = Jac_FULL(329,213) + JVS(3478) = 0.018*B(1027) IF (DO_JVS(3479)) & -! JVS(3479) = Jac_FULL(325,267) - JVS(3479) = 0 +! JVS(3479) = Jac_FULL(329,214) + JVS(3479) = B(1326)+B(1775) IF (DO_JVS(3480)) & -! JVS(3480) = Jac_FULL(325,268) - JVS(3480) = 0 +! JVS(3480) = Jac_FULL(329,215) + JVS(3480) = 0.603*B(148) IF (DO_JVS(3481)) & -! JVS(3481) = Jac_FULL(325,270) - JVS(3481) = B(1669) +! JVS(3481) = Jac_FULL(329,216) + JVS(3481) = B(300)+0.44*B(302)+B(304) IF (DO_JVS(3482)) & -! JVS(3482) = Jac_FULL(325,271) - JVS(3482) = 0.126*B(1198)+0.249*B(1202) +! JVS(3482) = Jac_FULL(329,218) + JVS(3482) = 0.5*B(1011) IF (DO_JVS(3483)) & -! JVS(3483) = Jac_FULL(325,272) - JVS(3483) = 0.75*B(830) +! JVS(3483) = Jac_FULL(329,222) + JVS(3483) = 0.1*B(729) IF (DO_JVS(3484)) & -! JVS(3484) = Jac_FULL(325,273) - JVS(3484) = 0.75*B(792) +! JVS(3484) = Jac_FULL(329,223) + JVS(3484) = B(1338)+B(1340)+0.5*B(1342) IF (DO_JVS(3485)) & -! JVS(3485) = Jac_FULL(325,274) - JVS(3485) = 0.176*B(838)+0.4*B(840)+0.4*B(845)+1.3*B(897)+0.4*B(899) +! JVS(3485) = Jac_FULL(329,225) + JVS(3485) = B(1800) IF (DO_JVS(3486)) & -! JVS(3486) = Jac_FULL(325,275) - JVS(3486) = 0.75*B(776)+B(778)+1.75*B(881)+B(883) +! JVS(3486) = Jac_FULL(329,226) + JVS(3486) = 0.706*B(1039)+0.14*B(1043) IF (DO_JVS(3487)) & -! JVS(3487) = Jac_FULL(325,276) - JVS(3487) = 0.827*B(947)+0.3*B(953)+0.3*B(955) +! JVS(3487) = Jac_FULL(329,228) + JVS(3487) = 0.716*B(1032)+0.14*B(1036) IF (DO_JVS(3488)) & -! JVS(3488) = Jac_FULL(325,277) - JVS(3488) = 0.75*B(877) +! JVS(3488) = Jac_FULL(329,229) + JVS(3488) = 0.065*B(154)+0.3*B(1673) IF (DO_JVS(3489)) & -! JVS(3489) = Jac_FULL(325,278) - JVS(3489) = 0.84*B(764)+B(766)+1.5*B(768) +! JVS(3489) = Jac_FULL(329,231) + JVS(3489) = 0.165*B(1003) IF (DO_JVS(3490)) & -! JVS(3490) = Jac_FULL(325,279) - JVS(3490) = 0 +! JVS(3490) = Jac_FULL(329,232) + JVS(3490) = 0.25*B(443) IF (DO_JVS(3491)) & -! JVS(3491) = Jac_FULL(325,280) - JVS(3491) = B(909)+0.202*B(922) +! JVS(3491) = Jac_FULL(329,233) + JVS(3491) = 0.085*B(1001) IF (DO_JVS(3492)) & -! JVS(3492) = Jac_FULL(325,281) - JVS(3492) = 0.75*B(885) +! JVS(3492) = Jac_FULL(329,234) + JVS(3492) = 0.1*B(859)+0.1*B(861)+0.05*B(863)+0.1*B(1829) IF (DO_JVS(3493)) & -! JVS(3493) = Jac_FULL(325,282) - JVS(3493) = B(89)+B(623) +! JVS(3493) = Jac_FULL(329,236) + JVS(3493) = 0.088*B(1200)+0.34*B(1206) IF (DO_JVS(3494)) & -! JVS(3494) = Jac_FULL(325,285) - JVS(3494) = 0 +! JVS(3494) = Jac_FULL(329,237) + JVS(3494) = B(1463) IF (DO_JVS(3495)) & -! JVS(3495) = Jac_FULL(325,286) - JVS(3495) = 0 +! JVS(3495) = Jac_FULL(329,238) + JVS(3495) = B(1461) IF (DO_JVS(3496)) & -! JVS(3496) = Jac_FULL(325,287) - JVS(3496) = 0.23*B(1770) +! JVS(3496) = Jac_FULL(329,239) + JVS(3496) = 0.8*B(1370) IF (DO_JVS(3497)) & -! JVS(3497) = Jac_FULL(325,288) - JVS(3497) = 0.47*B(1767) +! JVS(3497) = Jac_FULL(329,243) + JVS(3497) = 0 IF (DO_JVS(3498)) & -! JVS(3498) = Jac_FULL(325,289) - JVS(3498) = 0.287*B(903)+0.85*B(911)+0.287*B(915)+0.287*B(919)+0.202*B(923)+0.504*B(924) +! JVS(3498) = Jac_FULL(329,245) + JVS(3498) = 0.65*B(1078)+B(1082) IF (DO_JVS(3499)) & -! JVS(3499) = Jac_FULL(325,290) - JVS(3499) = 0.5*B(287) +! JVS(3499) = Jac_FULL(329,247) + JVS(3499) = B(1756) IF (DO_JVS(3500)) & -! JVS(3500) = Jac_FULL(325,291) - JVS(3500) = 0.1*B(855)+0.1*B(857)+0.85*B(889)+0.1*B(891) +! JVS(3500) = Jac_FULL(329,249) + JVS(3500) = B(1777) IF (DO_JVS(3501)) & -! JVS(3501) = Jac_FULL(325,293) - JVS(3501) = 0.104*B(1141)+0.383*B(1143) +! JVS(3501) = Jac_FULL(329,250) + JVS(3501) = 0 IF (DO_JVS(3502)) & -! JVS(3502) = Jac_FULL(325,296) - JVS(3502) = 0.75*B(247) +! JVS(3502) = Jac_FULL(329,252) + JVS(3502) = 0.64*B(175)+0.95*B(259)+0.351*B(361) IF (DO_JVS(3503)) & -! JVS(3503) = Jac_FULL(325,299) - JVS(3503) = 0.055*B(1791) +! JVS(3503) = Jac_FULL(329,253) + JVS(3503) = B(191)+1.25*B(267)+0.9*B(363) IF (DO_JVS(3504)) & -! JVS(3504) = Jac_FULL(325,300) - JVS(3504) = 0.75*B(257) +! JVS(3504) = Jac_FULL(329,256) + JVS(3504) = 0.67*B(808) IF (DO_JVS(3505)) & -! JVS(3505) = Jac_FULL(325,301) - JVS(3505) = 0 +! JVS(3505) = Jac_FULL(329,257) + JVS(3505) = 0.083*B(1276)+0.14*B(1283) IF (DO_JVS(3506)) & -! JVS(3506) = Jac_FULL(325,302) - JVS(3506) = 0.241*B(1236) +! JVS(3506) = Jac_FULL(329,258) + JVS(3506) = 0.05*B(1270)+0.242*B(1272) IF (DO_JVS(3507)) & -! JVS(3507) = Jac_FULL(325,303) - JVS(3507) = 0.022*B(1316)+0.55*B(1797)+0.15*B(1798) +! JVS(3507) = Jac_FULL(329,259) + JVS(3507) = 0.133*B(1806) IF (DO_JVS(3508)) & -! JVS(3508) = Jac_FULL(325,304) - JVS(3508) = 0.063*B(961)+B(967)+0.3*B(968)+2*B(970)+2*B(971)+2*B(981)+B(983)+B(995) +! JVS(3508) = Jac_FULL(329,261) + JVS(3508) = B(893) IF (DO_JVS(3509)) & -! JVS(3509) = Jac_FULL(325,305) - JVS(3509) = 0.063*B(957)+B(965)+0.3*B(966)+2*B(969)+2*B(972)+2*B(977)+B(979)+B(987) +! JVS(3509) = Jac_FULL(329,262) + JVS(3509) = 0.5*B(1278)+B(1287) IF (DO_JVS(3510)) & -! JVS(3510) = Jac_FULL(325,306) - JVS(3510) = 0.732*B(289)+0.9*B(1666) +! JVS(3510) = Jac_FULL(329,263) + JVS(3510) = 1.5*B(871)+1.5*B(873)+0.75*B(875) IF (DO_JVS(3511)) & -! JVS(3511) = Jac_FULL(325,307) - JVS(3511) = B(1675) +! JVS(3511) = Jac_FULL(329,264) + JVS(3511) = B(122)+1.25*B(216)+0.9*B(369) IF (DO_JVS(3512)) & -! JVS(3512) = Jac_FULL(325,308) - JVS(3512) = B(1299) +! JVS(3512) = Jac_FULL(329,265) + JVS(3512) = B(687)+B(1762) IF (DO_JVS(3513)) & -! JVS(3513) = Jac_FULL(325,309) - JVS(3513) = 0.12*B(1232)+B(1674) +! JVS(3513) = Jac_FULL(329,266) + JVS(3513) = B(1393) IF (DO_JVS(3514)) & -! JVS(3514) = Jac_FULL(325,310) - JVS(3514) = 0.527*B(1149)+1.86*B(1153)+0.563*B(1154)+1.577*B(1159)+B(1161)+B(1165)+B(1169) +! JVS(3514) = Jac_FULL(329,270) + JVS(3514) = 0 IF (DO_JVS(3515)) & -! JVS(3515) = Jac_FULL(325,311) - JVS(3515) = 0.563*B(1155)+0.645*B(1157) +! JVS(3515) = Jac_FULL(329,271) + JVS(3515) = 0 IF (DO_JVS(3516)) & -! JVS(3516) = Jac_FULL(325,312) - JVS(3516) = B(691)+B(693)+B(695)+0.06*B(697)+0.06*B(699)+B(701)+B(703) +! JVS(3516) = Jac_FULL(329,273) + JVS(3516) = 0.126*B(1198)+0.249*B(1202) IF (DO_JVS(3517)) & -! JVS(3517) = Jac_FULL(325,313) - JVS(3517) = B(183)+0.15*B(226)+0.5*B(261)+0.9*B(353) +! JVS(3517) = Jac_FULL(329,274) + JVS(3517) = B(1682) IF (DO_JVS(3518)) & -! JVS(3518) = Jac_FULL(325,314) - JVS(3518) = 0.6*B(1226)+B(1672) +! JVS(3518) = Jac_FULL(329,275) + JVS(3518) = 0.75*B(792) IF (DO_JVS(3519)) & -! JVS(3519) = Jac_FULL(325,315) - JVS(3519) = 0.75*B(249) +! JVS(3519) = Jac_FULL(329,276) + JVS(3519) = 0.75*B(776)+B(778)+1.75*B(881)+B(883) IF (DO_JVS(3520)) & -! JVS(3520) = Jac_FULL(325,318) - JVS(3520) = 0.64*B(181)+0.95*B(255)+0.351*B(359) +! JVS(3520) = Jac_FULL(329,277) + JVS(3520) = 0.176*B(838)+0.4*B(840)+0.4*B(845)+1.3*B(897)+0.4*B(899) IF (DO_JVS(3521)) & -! JVS(3521) = Jac_FULL(325,319) - JVS(3521) = 0.75*B(253) +! JVS(3521) = Jac_FULL(329,278) + JVS(3521) = 0.75*B(830) IF (DO_JVS(3522)) & -! JVS(3522) = Jac_FULL(325,320) - JVS(3522) = 0.31*B(236)+0.75*B(263) +! JVS(3522) = Jac_FULL(329,279) + JVS(3522) = 0.827*B(947)+0.3*B(953)+0.3*B(955) IF (DO_JVS(3523)) & -! JVS(3523) = Jac_FULL(325,321) - JVS(3523) = 0.75*B(214) +! JVS(3523) = Jac_FULL(329,280) + JVS(3523) = B(909)+0.202*B(922) IF (DO_JVS(3524)) & -! JVS(3524) = Jac_FULL(325,322) - JVS(3524) = B(375) +! JVS(3524) = Jac_FULL(329,281) + JVS(3524) = 0.75*B(877) IF (DO_JVS(3525)) & -! JVS(3525) = Jac_FULL(325,323) - JVS(3525) = 0.75*B(265) +! JVS(3525) = Jac_FULL(329,282) + JVS(3525) = 0.84*B(764)+B(766)+1.5*B(768) IF (DO_JVS(3526)) & -! JVS(3526) = Jac_FULL(325,324) - JVS(3526) = B(347)+0.9*B(354)+0.351*B(360)+0.351*B(362)+0.9*B(364)+0.9*B(370)+B(884)+0.1*B(892)+0.4*B(900)+0.287& - &*B(916)+B(1162) +! JVS(3526) = Jac_FULL(329,283) + JVS(3526) = 0 IF (DO_JVS(3527)) & -! JVS(3527) = Jac_FULL(325,325) - JVS(3527) = -B(20)-B(63)-B(93)-B(413)-B(485)-B(565)-B(1647)-B(1648) +! JVS(3527) = Jac_FULL(329,284) + JVS(3527) = 0.75*B(885) IF (DO_JVS(3528)) & -! JVS(3528) = Jac_FULL(325,326) - JVS(3528) = 0.05*B(95) +! JVS(3528) = Jac_FULL(329,285) + JVS(3528) = B(89)+B(623) IF (DO_JVS(3529)) & -! JVS(3529) = Jac_FULL(325,328) - JVS(3529) = B(34)+B(49)+B(55)+2*B(56)+0.87*B(57)+0.75*B(215)+1.25*B(217)+0.75*B(248)+0.75*B(250)+0.75*B(254)+0.95& - &*B(256)+0.75*B(258)+0.95*B(260)+0.5*B(262)+0.75*B(264)+0.75*B(266)+1.25*B(268)+B(348)+B(376)+B(529)+B(613)& - &+1.5*B(769)+0.75*B(793)+0.75*B(831)+0.75*B(878)+1.75*B(882)+0.75*B(886)+0.85*B(890)+B(894)+1.3*B(898)& - &+B(910)+0.85*B(912)+2*B(978)+B(980)+2*B(982)+B(984)+0.645*B(1158)+1.577*B(1160)+B(1300)+0.8*B(1371)+B(1394)& - &+B(1462)+B(1464)+B(1487) +! JVS(3529) = Jac_FULL(329,288) + JVS(3529) = 0 IF (DO_JVS(3530)) & -! JVS(3530) = Jac_FULL(325,329) - JVS(3530) = B(692) +! JVS(3530) = Jac_FULL(329,289) + JVS(3530) = 0 IF (DO_JVS(3531)) & -! JVS(3531) = Jac_FULL(325,334) - JVS(3531) = 0.25*B(444) +! JVS(3531) = Jac_FULL(329,290) + JVS(3531) = 0.23*B(1783) IF (DO_JVS(3532)) & -! JVS(3532) = Jac_FULL(325,335) - JVS(3532) = B(696) +! JVS(3532) = Jac_FULL(329,291) + JVS(3532) = 0.47*B(1780) IF (DO_JVS(3533)) & -! JVS(3533) = Jac_FULL(325,336) - JVS(3533) = 0.06*B(698)+0.06*B(700) +! JVS(3533) = Jac_FULL(329,292) + JVS(3533) = 0.287*B(903)+0.85*B(911)+0.287*B(915)+0.287*B(919)+0.202*B(923)+0.504*B(924) IF (DO_JVS(3534)) & -! JVS(3534) = Jac_FULL(325,337) - JVS(3534) = B(161)+0.15*B(227)+0.44*B(303)+0.176*B(839)+0.063*B(958)+0.063*B(962)+0.14*B(1037)+0.14*B(1044)+0.65& - &*B(1079)+0.059*B(1115)+0.599*B(1122)+0.031*B(1130)+0.065*B(1136)+0.104*B(1142)+0.527*B(1150)+0.126*B(1199)& - &+0.088*B(1201)+0.05*B(1271)+0.083*B(1277)+0.5*B(1279) +! JVS(3534) = Jac_FULL(329,293) + JVS(3534) = 0.5*B(287) IF (DO_JVS(3535)) & -! JVS(3535) = Jac_FULL(325,338) - JVS(3535) = B(530) +! JVS(3535) = Jac_FULL(329,294) + JVS(3535) = 0.1*B(855)+0.1*B(857)+0.85*B(889)+0.1*B(891) IF (DO_JVS(3536)) & -! JVS(3536) = Jac_FULL(325,340) - JVS(3536) = -B(566)+B(614)+B(624) +! JVS(3536) = Jac_FULL(329,299) + JVS(3536) = 0.104*B(1141)+0.383*B(1143) IF (DO_JVS(3537)) & -! JVS(3537) = Jac_FULL(325,341) - JVS(3537) = B(35)+B(147)+0.5*B(288)+B(702)+0.1*B(730)+0.1*B(734)+0.67*B(809)+B(821)+0.1*B(862)+1.5*B(874)+0.827*B(948)& - &+0.6*B(1227)+0.12*B(1233)+0.5*B(1343)+B(1359) +! JVS(3537) = Jac_FULL(329,300) + JVS(3537) = 0.75*B(247) IF (DO_JVS(3538)) & -! JVS(3538) = Jac_FULL(325,342) - JVS(3538) = -B(414) +! JVS(3538) = Jac_FULL(329,303) + JVS(3538) = 0.055*B(1804) IF (DO_JVS(3539)) & -! JVS(3539) = Jac_FULL(325,343) - JVS(3539) = -B(486) +! JVS(3539) = Jac_FULL(329,304) + JVS(3539) = 0.75*B(257) IF (DO_JVS(3540)) & -! JVS(3540) = Jac_FULL(325,345) - JVS(3540) = B(24)+0.87*B(58)+0.3*B(60)-B(64)+B(90)+0.05*B(96)+B(103)+B(153)+0.065*B(155)+0.732*B(290)+B(307)+B(309)& - &+0.22*B(343)+B(382)+B(688)+0.5*B(744)+0.5*B(771)+0.4*B(773)+B(781)+0.4*B(850)+0.1*B(860)+1.5*B(872)+B(940)& - &+0.3*B(954)+0.3*B(956)+0.085*B(1002)+0.165*B(1004)+0.5*B(1012)+0.018*B(1028)+0.018*B(1030)+0.241*B(1237)& - &+0.25*B(1281)+0.022*B(1317)+0.5*B(1323)+B(1327)+B(1339)+0.25*B(1345)+0.12*B(1349)+B(1413) +! JVS(3540) = Jac_FULL(329,305) + JVS(3540) = 0 IF (DO_JVS(3541)) & -! JVS(3541) = Jac_FULL(325,346) - JVS(3541) = B(50)+B(123)+0.98*B(139)+0.603*B(149)+B(163)+0.64*B(176)+0.64*B(182)+B(184)+B(192)+0.31*B(237)+B(301)& - &+B(694)+0.84*B(765)+0.75*B(777)+0.4*B(841)+0.1*B(856)+0.287*B(904)+B(988)+B(996)+0.716*B(1033)+0.706& - &*B(1040)+B(1083)+0.272*B(1117)+B(1124)+0.065*B(1132)+0.142*B(1138)+0.383*B(1144)+B(1170)+0.249*B(1203)+0.34& - &*B(1207)+0.242*B(1273)+0.14*B(1284)+B(1288) +! JVS(3541) = Jac_FULL(329,306) + JVS(3541) = 0.241*B(1236) IF (DO_JVS(3542)) & -! JVS(3542) = Jac_FULL(325,348) - JVS(3542) = -B(21)+B(25)+B(704) +! JVS(3542) = Jac_FULL(329,307) + JVS(3542) = 0.022*B(1316)+0.55*B(1810)+0.15*B(1811) IF (DO_JVS(3543)) & -! JVS(3543) = Jac_FULL(325,351) - JVS(3543) = -B(94)+B(145)+B(305)+B(386)+B(767)+B(779)+0.4*B(846)+0.1*B(858)+0.05*B(864)+0.75*B(876)+0.287*B(920)& - &+B(1166)+B(1341)+B(1347)+B(1488) +! JVS(3543) = Jac_FULL(329,308) + JVS(3543) = 0.527*B(1149)+1.86*B(1153)+0.563*B(1154)+1.577*B(1159)+B(1161)+B(1165)+B(1169) IF (DO_JVS(3544)) & -! JVS(3544) = Jac_FULL(326,83) - JVS(3544) = B(941)+B(1758) +! JVS(3544) = Jac_FULL(329,309) + JVS(3544) = 0.732*B(289)+0.9*B(1679) IF (DO_JVS(3545)) & -! JVS(3545) = Jac_FULL(326,118) - JVS(3545) = 0.64*B(326)+B(1677) +! JVS(3545) = Jac_FULL(329,310) + JVS(3545) = 0.563*B(1155)+0.645*B(1157) IF (DO_JVS(3546)) & -! JVS(3546) = Jac_FULL(326,123) - JVS(3546) = B(1683) +! JVS(3546) = Jac_FULL(329,311) + JVS(3546) = B(1688) IF (DO_JVS(3547)) & -! JVS(3547) = Jac_FULL(326,124) - JVS(3547) = B(206) +! JVS(3547) = Jac_FULL(329,312) + JVS(3547) = B(1299) IF (DO_JVS(3548)) & -! JVS(3548) = Jac_FULL(326,149) - JVS(3548) = 0.4*B(1344) +! JVS(3548) = Jac_FULL(329,313) + JVS(3548) = 0.12*B(1232)+B(1687) IF (DO_JVS(3549)) & -! JVS(3549) = Jac_FULL(326,155) - JVS(3549) = B(1684) +! JVS(3549) = Jac_FULL(329,314) + JVS(3549) = 0.063*B(957)+B(965)+0.3*B(966)+2*B(969)+2*B(971)+2*B(977)+B(979)+B(987) IF (DO_JVS(3550)) & -! JVS(3550) = Jac_FULL(326,156) - JVS(3550) = B(269)+B(625) +! JVS(3550) = Jac_FULL(329,315) + JVS(3550) = 0.063*B(961)+B(967)+0.3*B(968)+2*B(970)+2*B(972)+2*B(981)+B(983)+B(995) IF (DO_JVS(3551)) & -! JVS(3551) = Jac_FULL(326,165) - JVS(3551) = 0.65*B(138) +! JVS(3551) = Jac_FULL(329,316) + JVS(3551) = B(183)+0.15*B(226)+0.5*B(261)+0.9*B(353) IF (DO_JVS(3552)) & -! JVS(3552) = Jac_FULL(326,196) - JVS(3552) = 0.348*B(1686) +! JVS(3552) = Jac_FULL(329,317) + JVS(3552) = B(691)+B(693)+B(695)+0.06*B(697)+0.06*B(699)+B(701)+B(703) IF (DO_JVS(3553)) & -! JVS(3553) = Jac_FULL(326,240) - JVS(3553) = 0 +! JVS(3553) = Jac_FULL(329,318) + JVS(3553) = 0.6*B(1226)+B(1685) IF (DO_JVS(3554)) & -! JVS(3554) = Jac_FULL(326,241) - JVS(3554) = B(705)+B(707)+B(709)+B(711)+B(713) +! JVS(3554) = Jac_FULL(329,319) + JVS(3554) = 0.75*B(249) IF (DO_JVS(3555)) & -! JVS(3555) = Jac_FULL(326,246) - JVS(3555) = 0 +! JVS(3555) = Jac_FULL(329,322) + JVS(3555) = 0.64*B(181)+0.95*B(255)+0.351*B(359) IF (DO_JVS(3556)) & -! JVS(3556) = Jac_FULL(326,249) - JVS(3556) = 0.97*B(175)+0.38*B(259)+0.675*B(361) +! JVS(3556) = Jac_FULL(329,323) + JVS(3556) = 0.75*B(253) IF (DO_JVS(3557)) & -! JVS(3557) = Jac_FULL(326,250) - JVS(3557) = B(191)+0.5*B(267)+0.9*B(363) +! JVS(3557) = Jac_FULL(329,324) + JVS(3557) = 0.31*B(236)+0.75*B(263) IF (DO_JVS(3558)) & -! JVS(3558) = Jac_FULL(326,251) - JVS(3558) = 0.34*B(1685) +! JVS(3558) = Jac_FULL(329,325) + JVS(3558) = B(375) IF (DO_JVS(3559)) & -! JVS(3559) = Jac_FULL(326,260) - JVS(3559) = B(122)+0.5*B(216)+0.9*B(369) +! JVS(3559) = Jac_FULL(329,326) + JVS(3559) = 0.75*B(214) IF (DO_JVS(3560)) & -! JVS(3560) = Jac_FULL(326,279) - JVS(3560) = 0.34*B(1688) +! JVS(3560) = Jac_FULL(329,327) + JVS(3560) = 0.75*B(265) IF (DO_JVS(3561)) & -! JVS(3561) = Jac_FULL(326,290) - JVS(3561) = 0.5*B(287) +! JVS(3561) = Jac_FULL(329,328) + JVS(3561) = B(347)+0.9*B(354)+0.351*B(360)+0.351*B(362)+0.9*B(364)+0.9*B(370)+B(884)+0.1*B(892)+0.4*B(900)+0.287& + &*B(916)+B(1162) IF (DO_JVS(3562)) & -! JVS(3562) = Jac_FULL(326,296) - JVS(3562) = B(108)+0.75*B(247)+1.6*B(273)+B(365)+B(619) +! JVS(3562) = Jac_FULL(329,329) + JVS(3562) = -B(20)-B(63)-B(93)-B(413)-B(485)-B(565)-B(1648)-B(1660)-B(1661) IF (DO_JVS(3563)) & -! JVS(3563) = Jac_FULL(326,300) - JVS(3563) = 0.34*B(171)+0.16*B(257)+0.29*B(351) +! JVS(3563) = Jac_FULL(329,330) + JVS(3563) = 0.05*B(95) IF (DO_JVS(3564)) & -! JVS(3564) = Jac_FULL(326,314) - JVS(3564) = 0 +! JVS(3564) = Jac_FULL(329,334) + JVS(3564) = B(34)+B(49)+B(55)+2*B(56)+0.87*B(57)+0.75*B(215)+1.25*B(217)+0.75*B(248)+0.75*B(250)+0.75*B(254)+0.95& + &*B(256)+0.75*B(258)+0.95*B(260)+0.5*B(262)+0.75*B(264)+0.75*B(266)+1.25*B(268)+B(348)+B(376)+B(529)+B(613)& + &+1.5*B(769)+0.75*B(793)+0.75*B(831)+0.75*B(878)+1.75*B(882)+0.75*B(886)+0.85*B(890)+B(894)+1.3*B(898)& + &+B(910)+0.85*B(912)+2*B(978)+B(980)+2*B(982)+B(984)+0.645*B(1158)+1.577*B(1160)+B(1300)+0.8*B(1371)+B(1394)& + &+B(1462)+B(1464)+B(1487) IF (DO_JVS(3565)) & -! JVS(3565) = Jac_FULL(326,315) - JVS(3565) = B(112)+0.75*B(249)+1.6*B(274)+B(367)+B(621) +! JVS(3565) = Jac_FULL(329,335) + JVS(3565) = B(692) IF (DO_JVS(3566)) & -! JVS(3566) = Jac_FULL(326,318) - JVS(3566) = 0.97*B(181)+0.38*B(255)+0.675*B(359) +! JVS(3566) = Jac_FULL(329,337) + JVS(3566) = 0.25*B(444) IF (DO_JVS(3567)) & -! JVS(3567) = Jac_FULL(326,319) - JVS(3567) = 0.34*B(177)+0.16*B(253)+0.29*B(349) +! JVS(3567) = Jac_FULL(329,338) + JVS(3567) = B(50)+B(123)+0.98*B(139)+0.603*B(149)+B(163)+0.64*B(176)+0.64*B(182)+B(184)+B(192)+0.31*B(237)+B(301)& + &+B(694)+0.84*B(765)+0.75*B(777)+0.4*B(841)+0.1*B(856)+0.287*B(904)+B(988)+B(996)+0.716*B(1033)+0.706& + &*B(1040)+B(1083)+0.272*B(1117)+B(1124)+0.065*B(1132)+0.142*B(1138)+0.383*B(1144)+B(1170)+0.249*B(1203)+0.34& + &*B(1207)+0.242*B(1273)+0.14*B(1284)+B(1288) IF (DO_JVS(3568)) & -! JVS(3568) = Jac_FULL(326,320) - JVS(3568) = 0.919*B(185)+0.15*B(228)+0.62*B(236)+0.5*B(263)+0.9*B(355) +! JVS(3568) = Jac_FULL(329,341) + JVS(3568) = B(161)+0.15*B(227)+0.44*B(303)+0.176*B(839)+0.063*B(958)+0.063*B(962)+0.14*B(1037)+0.14*B(1044)+0.65& + &*B(1079)+0.059*B(1115)+0.599*B(1122)+0.031*B(1130)+0.065*B(1136)+0.104*B(1142)+0.527*B(1150)+0.126*B(1199)& + &+0.088*B(1201)+0.05*B(1271)+0.083*B(1277)+0.5*B(1279) IF (DO_JVS(3569)) & -! JVS(3569) = Jac_FULL(326,321) - JVS(3569) = 0 +! JVS(3569) = Jac_FULL(329,342) + JVS(3569) = -B(414) IF (DO_JVS(3570)) & -! JVS(3570) = Jac_FULL(326,322) - JVS(3570) = 0 +! JVS(3570) = Jac_FULL(329,343) + JVS(3570) = B(24)+0.87*B(58)+0.3*B(60)-B(64)+B(90)+0.05*B(96)+B(103)+B(153)+0.065*B(155)+0.732*B(290)+B(307)+B(309)& + &+0.22*B(343)+B(382)+B(688)+0.5*B(744)+0.5*B(771)+0.4*B(773)+B(781)+0.4*B(850)+0.1*B(860)+1.5*B(872)+B(940)& + &+0.3*B(954)+0.3*B(956)+0.085*B(1002)+0.165*B(1004)+0.5*B(1012)+0.018*B(1028)+0.018*B(1030)+0.241*B(1237)& + &+0.25*B(1281)+0.022*B(1317)+0.5*B(1323)+B(1327)+B(1339)+0.25*B(1345)+0.12*B(1349)+B(1413)+B(1652) IF (DO_JVS(3571)) & -! JVS(3571) = Jac_FULL(326,323) - JVS(3571) = 0 +! JVS(3571) = Jac_FULL(329,344) + JVS(3571) = B(530) IF (DO_JVS(3572)) & -! JVS(3572) = Jac_FULL(326,324) - JVS(3572) = 0.29*B(350)+0.29*B(352)+0.9*B(356)+0.675*B(360)+0.675*B(362)+0.9*B(364)+B(366)+B(368)+0.9*B(370) +! JVS(3572) = Jac_FULL(329,345) + JVS(3572) = B(696) IF (DO_JVS(3573)) & -! JVS(3573) = Jac_FULL(326,326) - JVS(3573) = -B(95)-B(97)-B(415)-B(1656)-B(1657) +! JVS(3573) = Jac_FULL(329,348) + JVS(3573) = -B(94)+B(145)+B(305)+B(386)+B(767)+B(779)+0.4*B(846)+0.1*B(858)+0.05*B(864)+0.75*B(876)+0.287*B(920)& + &+B(1166)+B(1341)+B(1347)+B(1488) IF (DO_JVS(3574)) & -! JVS(3574) = Jac_FULL(326,328) - JVS(3574) = 0.5*B(217)+0.75*B(248)+0.75*B(250)+0.16*B(254)+0.38*B(256)+0.16*B(258)+0.38*B(260)+0.5*B(264)+0.5*B(268) +! JVS(3574) = Jac_FULL(329,351) + JVS(3574) = -B(486) IF (DO_JVS(3575)) & -! JVS(3575) = Jac_FULL(326,329) - JVS(3575) = B(706) +! JVS(3575) = Jac_FULL(329,352) + JVS(3575) = -B(566)+B(614)+B(624) IF (DO_JVS(3576)) & -! JVS(3576) = Jac_FULL(326,335) - JVS(3576) = B(710) +! JVS(3576) = Jac_FULL(329,353) + JVS(3576) = 0.06*B(698)+0.06*B(700) IF (DO_JVS(3577)) & -! JVS(3577) = Jac_FULL(326,336) - JVS(3577) = B(714) +! JVS(3577) = Jac_FULL(329,355) + JVS(3577) = -B(21)+B(25)+B(704)-B(1649)+B(1653) IF (DO_JVS(3578)) & -! JVS(3578) = Jac_FULL(326,337) - JVS(3578) = 0.15*B(229) +! JVS(3578) = Jac_FULL(329,356) + JVS(3578) = B(35)+B(147)+0.5*B(288)+B(702)+0.1*B(730)+0.1*B(734)+0.67*B(809)+B(821)+0.1*B(862)+1.5*B(874)+0.827*B(948)& + &+0.6*B(1227)+0.12*B(1233)+0.5*B(1343)+B(1359) IF (DO_JVS(3579)) & -! JVS(3579) = Jac_FULL(326,340) - JVS(3579) = B(620)+B(622)+B(626) +! JVS(3579) = Jac_FULL(330,86) + JVS(3579) = B(941)+B(1771) IF (DO_JVS(3580)) & -! JVS(3580) = Jac_FULL(326,341) - JVS(3580) = 0.5*B(288) +! JVS(3580) = Jac_FULL(330,121) + JVS(3580) = 0.64*B(326)+B(1690) IF (DO_JVS(3581)) & -! JVS(3581) = Jac_FULL(326,342) - JVS(3581) = -B(416) +! JVS(3581) = Jac_FULL(330,126) + JVS(3581) = B(1696) IF (DO_JVS(3582)) & -! JVS(3582) = Jac_FULL(326,345) - JVS(3582) = -B(96)+B(207)+B(270)+0.64*B(327)+B(942)+0.4*B(1345) +! JVS(3582) = Jac_FULL(330,127) + JVS(3582) = B(206) IF (DO_JVS(3583)) & -! JVS(3583) = Jac_FULL(326,346) - JVS(3583) = B(109)+B(113)+B(123)+0.65*B(139)+0.34*B(172)+0.97*B(176)+0.34*B(178)+0.97*B(182)+0.919*B(186)+B(192)+0.62& - &*B(237)+B(708) +! JVS(3583) = Jac_FULL(330,148) + JVS(3583) = 0.4*B(1344) IF (DO_JVS(3584)) & -! JVS(3584) = Jac_FULL(326,348) - JVS(3584) = B(712) +! JVS(3584) = Jac_FULL(330,154) + JVS(3584) = B(269)+B(625) IF (DO_JVS(3585)) & -! JVS(3585) = Jac_FULL(326,351) - JVS(3585) = -B(98) +! JVS(3585) = Jac_FULL(330,158) + JVS(3585) = B(1697) IF (DO_JVS(3586)) & -! JVS(3586) = Jac_FULL(327,45) - JVS(3586) = B(936) +! JVS(3586) = Jac_FULL(330,168) + JVS(3586) = 0.65*B(138) IF (DO_JVS(3587)) & -! JVS(3587) = Jac_FULL(327,69) - JVS(3587) = B(126) +! JVS(3587) = Jac_FULL(330,200) + JVS(3587) = 0.348*B(1699) IF (DO_JVS(3588)) & -! JVS(3588) = Jac_FULL(327,94) - JVS(3588) = B(385) +! JVS(3588) = Jac_FULL(330,243) + JVS(3588) = 0 IF (DO_JVS(3589)) & -! JVS(3589) = Jac_FULL(327,103) - JVS(3589) = B(935) +! JVS(3589) = Jac_FULL(330,244) + JVS(3589) = B(705)+B(707)+B(709)+B(711)+B(713) IF (DO_JVS(3590)) & -! JVS(3590) = Jac_FULL(327,142) - JVS(3590) = B(193) +! JVS(3590) = Jac_FULL(330,250) + JVS(3590) = 0 IF (DO_JVS(3591)) & -! JVS(3591) = Jac_FULL(327,149) - JVS(3591) = B(1346) +! JVS(3591) = Jac_FULL(330,252) + JVS(3591) = 0.97*B(175)+0.38*B(259)+0.675*B(361) IF (DO_JVS(3592)) & -! JVS(3592) = Jac_FULL(327,154) - JVS(3592) = 0 +! JVS(3592) = Jac_FULL(330,253) + JVS(3592) = B(191)+0.5*B(267)+0.9*B(363) IF (DO_JVS(3593)) & -! JVS(3593) = Jac_FULL(327,158) - JVS(3593) = 0.5*B(1420) +! JVS(3593) = Jac_FULL(330,255) + JVS(3593) = 0.34*B(1698) IF (DO_JVS(3594)) & -! JVS(3594) = Jac_FULL(327,166) - JVS(3594) = -B(13) +! JVS(3594) = Jac_FULL(330,264) + JVS(3594) = B(122)+0.5*B(216)+0.9*B(369) IF (DO_JVS(3595)) & -! JVS(3595) = Jac_FULL(327,168) - JVS(3595) = 0 +! JVS(3595) = Jac_FULL(330,283) + JVS(3595) = 0.34*B(1701) IF (DO_JVS(3596)) & -! JVS(3596) = Jac_FULL(327,175) - JVS(3596) = 0 +! JVS(3596) = Jac_FULL(330,293) + JVS(3596) = 0.5*B(287) IF (DO_JVS(3597)) & -! JVS(3597) = Jac_FULL(327,179) - JVS(3597) = -B(6) +! JVS(3597) = Jac_FULL(330,300) + JVS(3597) = B(108)+0.75*B(247)+1.6*B(273)+B(365)+B(619) IF (DO_JVS(3598)) & -! JVS(3598) = Jac_FULL(327,183) - JVS(3598) = B(344) +! JVS(3598) = Jac_FULL(330,304) + JVS(3598) = 0.34*B(171)+0.16*B(257)+0.29*B(351) IF (DO_JVS(3599)) & -! JVS(3599) = Jac_FULL(327,186) +! JVS(3599) = Jac_FULL(330,318) JVS(3599) = 0 IF (DO_JVS(3600)) & -! JVS(3600) = Jac_FULL(327,195) - JVS(3600) = 0.742*B(1416) +! JVS(3600) = Jac_FULL(330,319) + JVS(3600) = B(112)+0.75*B(249)+1.6*B(274)+B(367)+B(621) IF (DO_JVS(3601)) & -! JVS(3601) = Jac_FULL(327,200) - JVS(3601) = B(1350) +! JVS(3601) = Jac_FULL(330,322) + JVS(3601) = 0.97*B(181)+0.38*B(255)+0.675*B(359) IF (DO_JVS(3602)) & -! JVS(3602) = Jac_FULL(327,202) - JVS(3602) = 0.5*B(1426) +! JVS(3602) = Jac_FULL(330,323) + JVS(3602) = 0.34*B(177)+0.16*B(253)+0.29*B(349) IF (DO_JVS(3603)) & -! JVS(3603) = Jac_FULL(327,204) - JVS(3603) = B(1430) +! JVS(3603) = Jac_FULL(330,324) + JVS(3603) = 0.919*B(185)+0.15*B(228)+0.62*B(236)+0.5*B(263)+0.9*B(355) IF (DO_JVS(3604)) & -! JVS(3604) = Jac_FULL(327,214) - JVS(3604) = 2*B(1496)+B(1498)+2*B(1500)+B(1501)+B(1503) +! JVS(3604) = Jac_FULL(330,325) + JVS(3604) = 0 IF (DO_JVS(3605)) & -! JVS(3605) = Jac_FULL(327,216) +! JVS(3605) = Jac_FULL(330,326) JVS(3605) = 0 IF (DO_JVS(3606)) & -! JVS(3606) = Jac_FULL(327,218) - JVS(3606) = B(1509)+B(1511) +! JVS(3606) = Jac_FULL(330,327) + JVS(3606) = 0 IF (DO_JVS(3607)) & -! JVS(3607) = Jac_FULL(327,220) - JVS(3607) = 0 +! JVS(3607) = Jac_FULL(330,328) + JVS(3607) = 0.29*B(350)+0.29*B(352)+0.9*B(356)+0.675*B(360)+0.675*B(362)+0.9*B(364)+B(366)+B(368)+0.9*B(370) IF (DO_JVS(3608)) & -! JVS(3608) = Jac_FULL(327,222) - JVS(3608) = 0 +! JVS(3608) = Jac_FULL(330,330) + JVS(3608) = -B(95)-B(97)-B(415)-B(1669)-B(1670) IF (DO_JVS(3609)) & -! JVS(3609) = Jac_FULL(327,225) - JVS(3609) = B(745) +! JVS(3609) = Jac_FULL(330,334) + JVS(3609) = 0.5*B(217)+0.75*B(248)+0.75*B(250)+0.16*B(254)+0.38*B(256)+0.16*B(258)+0.38*B(260)+0.5*B(264)+0.5*B(268) IF (DO_JVS(3610)) & -! JVS(3610) = Jac_FULL(327,226) - JVS(3610) = 0 +! JVS(3610) = Jac_FULL(330,335) + JVS(3610) = B(706) IF (DO_JVS(3611)) & -! JVS(3611) = Jac_FULL(327,242) - JVS(3611) = 0 +! JVS(3611) = Jac_FULL(330,338) + JVS(3611) = B(109)+B(113)+B(123)+0.65*B(139)+0.34*B(172)+0.97*B(176)+0.34*B(178)+0.97*B(182)+0.919*B(186)+B(192)+0.62& + &*B(237)+B(708) IF (DO_JVS(3612)) & -! JVS(3612) = Jac_FULL(327,248) - JVS(3612) = 0 +! JVS(3612) = Jac_FULL(330,341) + JVS(3612) = 0.15*B(229) IF (DO_JVS(3613)) & -! JVS(3613) = Jac_FULL(327,251) - JVS(3613) = 0 +! JVS(3613) = Jac_FULL(330,342) + JVS(3613) = -B(416) IF (DO_JVS(3614)) & -! JVS(3614) = Jac_FULL(327,253) - JVS(3614) = 0 +! JVS(3614) = Jac_FULL(330,343) + JVS(3614) = -B(96)+B(207)+B(270)+0.64*B(327)+B(942)+0.4*B(1345) IF (DO_JVS(3615)) & -! JVS(3615) = Jac_FULL(327,256) - JVS(3615) = 0 +! JVS(3615) = Jac_FULL(330,345) + JVS(3615) = B(710) IF (DO_JVS(3616)) & -! JVS(3616) = Jac_FULL(327,261) - JVS(3616) = B(1318) +! JVS(3616) = Jac_FULL(330,348) + JVS(3616) = -B(98) IF (DO_JVS(3617)) & -! JVS(3617) = Jac_FULL(327,266) - JVS(3617) = 0 +! JVS(3617) = Jac_FULL(330,352) + JVS(3617) = B(620)+B(622)+B(626) IF (DO_JVS(3618)) & -! JVS(3618) = Jac_FULL(327,267) - JVS(3618) = 0 +! JVS(3618) = Jac_FULL(330,353) + JVS(3618) = B(714) IF (DO_JVS(3619)) & -! JVS(3619) = Jac_FULL(327,268) - JVS(3619) = 0 +! JVS(3619) = Jac_FULL(330,355) + JVS(3619) = B(712) IF (DO_JVS(3620)) & -! JVS(3620) = Jac_FULL(327,269) - JVS(3620) = 0.5*B(1459) +! JVS(3620) = Jac_FULL(330,356) + JVS(3620) = 0.5*B(288) IF (DO_JVS(3621)) & -! JVS(3621) = Jac_FULL(327,270) - JVS(3621) = B(316) +! JVS(3621) = Jac_FULL(331,1) + JVS(3621) = 2*B(1747) IF (DO_JVS(3622)) & -! JVS(3622) = Jac_FULL(327,271) - JVS(3622) = 0 +! JVS(3622) = Jac_FULL(331,2) + JVS(3622) = B(1749) IF (DO_JVS(3623)) & -! JVS(3623) = Jac_FULL(327,272) - JVS(3623) = 0 +! JVS(3623) = Jac_FULL(331,3) + JVS(3623) = B(1748) IF (DO_JVS(3624)) & -! JVS(3624) = Jac_FULL(327,273) - JVS(3624) = 0 +! JVS(3624) = Jac_FULL(331,47) + JVS(3624) = 0.996*B(684)+B(1745) IF (DO_JVS(3625)) & -! JVS(3625) = Jac_FULL(327,275) - JVS(3625) = 0 +! JVS(3625) = Jac_FULL(331,55) + JVS(3625) = B(685)+B(1746) IF (DO_JVS(3626)) & -! JVS(3626) = Jac_FULL(327,276) - JVS(3626) = 0 +! JVS(3626) = Jac_FULL(331,65) + JVS(3626) = B(1742) IF (DO_JVS(3627)) & -! JVS(3627) = Jac_FULL(327,277) - JVS(3627) = 0 +! JVS(3627) = Jac_FULL(331,75) + JVS(3627) = B(675) IF (DO_JVS(3628)) & -! JVS(3628) = Jac_FULL(327,278) - JVS(3628) = 0 +! JVS(3628) = Jac_FULL(331,81) + JVS(3628) = B(1752) IF (DO_JVS(3629)) & -! JVS(3629) = Jac_FULL(327,280) - JVS(3629) = 0 +! JVS(3629) = Jac_FULL(331,98) + JVS(3629) = B(1741) IF (DO_JVS(3630)) & -! JVS(3630) = Jac_FULL(327,281) - JVS(3630) = 0 +! JVS(3630) = Jac_FULL(331,107) + JVS(3630) = B(1753) IF (DO_JVS(3631)) & -! JVS(3631) = Jac_FULL(327,285) - JVS(3631) = 0 +! JVS(3631) = Jac_FULL(331,172) + JVS(3631) = B(650)+B(673)+2*B(1738) IF (DO_JVS(3632)) & -! JVS(3632) = Jac_FULL(327,286) - JVS(3632) = 0 +! JVS(3632) = Jac_FULL(331,254) + JVS(3632) = B(648)+B(1743) IF (DO_JVS(3633)) & -! JVS(3633) = Jac_FULL(327,288) - JVS(3633) = 0 +! JVS(3633) = Jac_FULL(331,287) + JVS(3633) = B(1739) IF (DO_JVS(3634)) & -! JVS(3634) = Jac_FULL(327,289) - JVS(3634) = 0 +! JVS(3634) = Jac_FULL(331,296) + JVS(3634) = -B(655)+B(1744) IF (DO_JVS(3635)) & -! JVS(3635) = Jac_FULL(327,291) - JVS(3635) = 0 +! JVS(3635) = Jac_FULL(331,331) + JVS(3635) = -B(643)-B(646)-B(656)-B(657)-B(669)-B(671) IF (DO_JVS(3636)) & -! JVS(3636) = Jac_FULL(327,292) - JVS(3636) = B(251) +! JVS(3636) = Jac_FULL(331,336) + JVS(3636) = 0.2*B(659)+0.809*B(667)+B(681)+0.4*B(683)+B(1740) IF (DO_JVS(3637)) & -! JVS(3637) = Jac_FULL(327,293) - JVS(3637) = 0 +! JVS(3637) = Jac_FULL(331,338) + JVS(3637) = -B(644)+B(682) IF (DO_JVS(3638)) & -! JVS(3638) = Jac_FULL(327,294) - JVS(3638) = B(318) +! JVS(3638) = Jac_FULL(331,339) + JVS(3638) = 0 IF (DO_JVS(3639)) & -! JVS(3639) = Jac_FULL(327,298) - JVS(3639) = B(210) +! JVS(3639) = Jac_FULL(331,341) + JVS(3639) = -B(672) IF (DO_JVS(3640)) & -! JVS(3640) = Jac_FULL(327,299) - JVS(3640) = 0 +! JVS(3640) = Jac_FULL(331,343) + JVS(3640) = B(674)+B(676)+B(686) IF (DO_JVS(3641)) & -! JVS(3641) = Jac_FULL(327,300) - JVS(3641) = 0 +! JVS(3641) = Jac_FULL(331,344) + JVS(3641) = 0.809*B(668) IF (DO_JVS(3642)) & -! JVS(3642) = Jac_FULL(327,301) - JVS(3642) = 0 +! JVS(3642) = Jac_FULL(331,345) + JVS(3642) = -B(647) IF (DO_JVS(3643)) & -! JVS(3643) = Jac_FULL(327,302) +! JVS(3643) = Jac_FULL(331,346) JVS(3643) = 0 IF (DO_JVS(3644)) & -! JVS(3644) = Jac_FULL(327,303) - JVS(3644) = 0 +! JVS(3644) = Jac_FULL(331,347) + JVS(3644) = -B(658)+0.2*B(660) IF (DO_JVS(3645)) & -! JVS(3645) = Jac_FULL(327,304) - JVS(3645) = 0 +! JVS(3645) = Jac_FULL(331,348) + JVS(3645) = B(651) IF (DO_JVS(3646)) & -! JVS(3646) = Jac_FULL(327,305) +! JVS(3646) = Jac_FULL(331,349) JVS(3646) = 0 IF (DO_JVS(3647)) & -! JVS(3647) = Jac_FULL(327,306) - JVS(3647) = B(295) +! JVS(3647) = Jac_FULL(331,350) + JVS(3647) = 0 IF (DO_JVS(3648)) & -! JVS(3648) = Jac_FULL(327,307) +! JVS(3648) = Jac_FULL(331,353) JVS(3648) = 0 IF (DO_JVS(3649)) & -! JVS(3649) = Jac_FULL(327,308) - JVS(3649) = 0 +! JVS(3649) = Jac_FULL(331,356) + JVS(3649) = -B(670) IF (DO_JVS(3650)) & -! JVS(3650) = Jac_FULL(327,309) - JVS(3650) = 0.32*B(1234) +! JVS(3650) = Jac_FULL(332,78) + JVS(3650) = B(537) IF (DO_JVS(3651)) & -! JVS(3651) = Jac_FULL(327,310) - JVS(3651) = 0 +! JVS(3651) = Jac_FULL(332,123) + JVS(3651) = B(535) IF (DO_JVS(3652)) & -! JVS(3652) = Jac_FULL(327,311) - JVS(3652) = 0 +! JVS(3652) = Jac_FULL(332,248) + JVS(3652) = B(527) IF (DO_JVS(3653)) & -! JVS(3653) = Jac_FULL(327,313) - JVS(3653) = 0 +! JVS(3653) = Jac_FULL(332,301) + JVS(3653) = B(543) IF (DO_JVS(3654)) & -! JVS(3654) = Jac_FULL(327,314) - JVS(3654) = 0 +! JVS(3654) = Jac_FULL(332,321) + JVS(3654) = B(545)+B(1513) IF (DO_JVS(3655)) & -! JVS(3655) = Jac_FULL(327,317) - JVS(3655) = B(1513)+B(1515)+B(1517)+B(1519)+B(1521)+B(1523)+B(1525) +! JVS(3655) = Jac_FULL(332,332) + JVS(3655) = -B(541)-B(1539)-B(1541)-B(1543)-B(1545)-B(1547)-B(1722) IF (DO_JVS(3656)) & -! JVS(3656) = Jac_FULL(327,318) +! JVS(3656) = Jac_FULL(332,334) JVS(3656) = 0 IF (DO_JVS(3657)) & -! JVS(3657) = Jac_FULL(327,319) +! JVS(3657) = Jac_FULL(332,336) JVS(3657) = 0 IF (DO_JVS(3658)) & -! JVS(3658) = Jac_FULL(327,320) +! JVS(3658) = Jac_FULL(332,337) JVS(3658) = 0 IF (DO_JVS(3659)) & -! JVS(3659) = Jac_FULL(327,321) - JVS(3659) = 0 +! JVS(3659) = Jac_FULL(332,339) + JVS(3659) = -B(1544) IF (DO_JVS(3660)) & -! JVS(3660) = Jac_FULL(327,322) - JVS(3660) = 0 +! JVS(3660) = Jac_FULL(332,340) + JVS(3660) = -B(1540) IF (DO_JVS(3661)) & -! JVS(3661) = Jac_FULL(327,323) - JVS(3661) = 0 +! JVS(3661) = Jac_FULL(332,341) + JVS(3661) = B(579) IF (DO_JVS(3662)) & -! JVS(3662) = Jac_FULL(327,324) - JVS(3662) = 0 +! JVS(3662) = Jac_FULL(332,343) + JVS(3662) = B(528)+B(536)+B(538)-B(542)+B(544)+B(546) IF (DO_JVS(3663)) & -! JVS(3663) = Jac_FULL(327,325) - JVS(3663) = B(93) +! JVS(3663) = Jac_FULL(332,344) + JVS(3663) = B(580) IF (DO_JVS(3664)) & -! JVS(3664) = Jac_FULL(327,326) - JVS(3664) = B(97) +! JVS(3664) = Jac_FULL(332,345) + JVS(3664) = 0 IF (DO_JVS(3665)) & -! JVS(3665) = Jac_FULL(327,327) - JVS(3665) = -B(7)-B(14)-B(67)-B(1649) +! JVS(3665) = Jac_FULL(332,346) + JVS(3665) = -B(1546) IF (DO_JVS(3666)) & -! JVS(3666) = Jac_FULL(327,328) +! JVS(3666) = Jac_FULL(332,347) JVS(3666) = 0 IF (DO_JVS(3667)) & -! JVS(3667) = Jac_FULL(327,329) +! JVS(3667) = Jac_FULL(332,348) JVS(3667) = 0 IF (DO_JVS(3668)) & -! JVS(3668) = Jac_FULL(327,332) - JVS(3668) = B(1587)+B(1588)+B(1589)+B(1599)+B(1601)+B(1603)+B(1605) +! JVS(3668) = Jac_FULL(332,349) + JVS(3668) = 0 IF (DO_JVS(3669)) & -! JVS(3669) = Jac_FULL(327,334) +! JVS(3669) = Jac_FULL(332,350) JVS(3669) = 0 IF (DO_JVS(3670)) & -! JVS(3670) = Jac_FULL(327,335) - JVS(3670) = B(65)+0.5*B(1492) +! JVS(3670) = Jac_FULL(332,351) + JVS(3670) = 0 IF (DO_JVS(3671)) & -! JVS(3671) = Jac_FULL(327,336) - JVS(3671) = 2*B(1497)+B(1510)+B(1514)+B(1590) +! JVS(3671) = Jac_FULL(332,352) + JVS(3671) = 0 IF (DO_JVS(3672)) & -! JVS(3672) = Jac_FULL(327,337) - JVS(3672) = 0 +! JVS(3672) = Jac_FULL(332,353) + JVS(3672) = B(1514) IF (DO_JVS(3673)) & -! JVS(3673) = Jac_FULL(327,338) - JVS(3673) = 0 +! JVS(3673) = Jac_FULL(332,354) + JVS(3673) = -B(1542) IF (DO_JVS(3674)) & -! JVS(3674) = Jac_FULL(327,339) - JVS(3674) = B(1499)+B(1512)+B(1516) +! JVS(3674) = Jac_FULL(332,355) + JVS(3674) = -B(1548) IF (DO_JVS(3675)) & -! JVS(3675) = Jac_FULL(327,340) - JVS(3675) = 0 +! JVS(3675) = Jac_FULL(333,48) + JVS(3675) = B(936) IF (DO_JVS(3676)) & -! JVS(3676) = Jac_FULL(327,341) - JVS(3676) = 0 +! JVS(3676) = Jac_FULL(333,72) + JVS(3676) = B(126) IF (DO_JVS(3677)) & -! JVS(3677) = Jac_FULL(327,342) - JVS(3677) = 0 +! JVS(3677) = Jac_FULL(333,87) + JVS(3677) = B(385) IF (DO_JVS(3678)) & -! JVS(3678) = Jac_FULL(327,343) - JVS(3678) = 0 +! JVS(3678) = Jac_FULL(333,106) + JVS(3678) = B(935) IF (DO_JVS(3679)) & -! JVS(3679) = Jac_FULL(327,344) - JVS(3679) = B(1504)+B(1526)+B(1606) +! JVS(3679) = Jac_FULL(333,144) + JVS(3679) = B(193) IF (DO_JVS(3680)) & -! JVS(3680) = Jac_FULL(327,345) - JVS(3680) = B(66)-B(68) +! JVS(3680) = Jac_FULL(333,148) + JVS(3680) = B(1346) IF (DO_JVS(3681)) & -! JVS(3681) = Jac_FULL(327,346) +! JVS(3681) = Jac_FULL(333,156) JVS(3681) = 0 IF (DO_JVS(3682)) & -! JVS(3682) = Jac_FULL(327,347) - JVS(3682) = 0 +! JVS(3682) = Jac_FULL(333,162) + JVS(3682) = 0.5*B(1420) IF (DO_JVS(3683)) & -! JVS(3683) = Jac_FULL(327,348) - JVS(3683) = 0 +! JVS(3683) = Jac_FULL(333,169) + JVS(3683) = -B(13) IF (DO_JVS(3684)) & -! JVS(3684) = Jac_FULL(327,349) - JVS(3684) = B(1520)+B(1600) +! JVS(3684) = Jac_FULL(333,175) + JVS(3684) = 0 IF (DO_JVS(3685)) & -! JVS(3685) = Jac_FULL(327,350) - JVS(3685) = B(1522)+B(1602) +! JVS(3685) = Jac_FULL(333,177) + JVS(3685) = 0 IF (DO_JVS(3686)) & -! JVS(3686) = Jac_FULL(327,351) - JVS(3686) = B(94)+B(98)+B(127)+B(194)+B(211)+B(252)+B(296)+B(317)+B(319)+B(345)+B(386)+B(746)+0.32*B(1235)+B(1319)& - &+B(1347)+B(1351)+0.742*B(1417)+0.5*B(1421)+0.5*B(1427)+B(1431)+0.5*B(1460)+B(1493) +! JVS(3686) = Jac_FULL(333,183) + JVS(3686) = -B(6) IF (DO_JVS(3687)) & -! JVS(3687) = Jac_FULL(327,352) - JVS(3687) = B(1518) +! JVS(3687) = Jac_FULL(333,187) + JVS(3687) = B(344) IF (DO_JVS(3688)) & -! JVS(3688) = Jac_FULL(327,353) - JVS(3688) = B(1502)+B(1524)+B(1604) +! JVS(3688) = Jac_FULL(333,188) + JVS(3688) = 0 IF (DO_JVS(3689)) & -! JVS(3689) = Jac_FULL(328,52) - JVS(3689) = B(685) +! JVS(3689) = Jac_FULL(333,199) + JVS(3689) = 0.742*B(1416) IF (DO_JVS(3690)) & -! JVS(3690) = Jac_FULL(328,80) - JVS(3690) = B(380)+B(1742) +! JVS(3690) = Jac_FULL(333,203) + JVS(3690) = B(1350) IF (DO_JVS(3691)) & -! JVS(3691) = Jac_FULL(328,92) - JVS(3691) = B(1689) +! JVS(3691) = Jac_FULL(333,205) + JVS(3691) = 0.5*B(1426) IF (DO_JVS(3692)) & -! JVS(3692) = Jac_FULL(328,94) - JVS(3692) = B(381)+B(383)+B(385) +! JVS(3692) = Jac_FULL(333,207) + JVS(3692) = B(1430) IF (DO_JVS(3693)) & -! JVS(3693) = Jac_FULL(328,105) - JVS(3693) = B(497)+B(1698) +! JVS(3693) = Jac_FULL(333,217) + JVS(3693) = 2*B(1496)+B(1498)+2*B(1500)+B(1501)+B(1503) IF (DO_JVS(3694)) & -! JVS(3694) = Jac_FULL(328,139) - JVS(3694) = 0.3*B(1658) +! JVS(3694) = Jac_FULL(333,220) + JVS(3694) = 0 IF (DO_JVS(3695)) & -! JVS(3695) = Jac_FULL(328,155) - JVS(3695) = B(1684) +! JVS(3695) = Jac_FULL(333,221) + JVS(3695) = B(1509)+B(1511) IF (DO_JVS(3696)) & -! JVS(3696) = Jac_FULL(328,159) - JVS(3696) = 0.162*B(1280)+0.488*B(1771) +! JVS(3696) = Jac_FULL(333,223) + JVS(3696) = 0 IF (DO_JVS(3697)) & -! JVS(3697) = Jac_FULL(328,164) - JVS(3697) = 0.7*B(59)+B(615) +! JVS(3697) = Jac_FULL(333,225) + JVS(3697) = 0 IF (DO_JVS(3698)) & -! JVS(3698) = Jac_FULL(328,181) - JVS(3698) = 0.9*B(495)+B(1699) +! JVS(3698) = Jac_FULL(333,227) + JVS(3698) = B(745) IF (DO_JVS(3699)) & -! JVS(3699) = Jac_FULL(328,228) - JVS(3699) = B(47)+0.75*B(443)+B(563) +! JVS(3699) = Jac_FULL(333,236) + JVS(3699) = 0 IF (DO_JVS(3700)) & -! JVS(3700) = Jac_FULL(328,234) - JVS(3700) = -B(1370) +! JVS(3700) = Jac_FULL(333,246) + JVS(3700) = 0 IF (DO_JVS(3701)) & -! JVS(3701) = Jac_FULL(328,235) - JVS(3701) = -B(1463) +! JVS(3701) = Jac_FULL(333,251) + JVS(3701) = 0 IF (DO_JVS(3702)) & -! JVS(3702) = Jac_FULL(328,236) - JVS(3702) = -B(1461) +! JVS(3702) = Jac_FULL(333,255) + JVS(3702) = 0 IF (DO_JVS(3703)) & -! JVS(3703) = Jac_FULL(328,240) +! JVS(3703) = Jac_FULL(333,257) JVS(3703) = 0 IF (DO_JVS(3704)) & -! JVS(3704) = Jac_FULL(328,246) +! JVS(3704) = Jac_FULL(333,260) JVS(3704) = 0 IF (DO_JVS(3705)) & -! JVS(3705) = Jac_FULL(328,249) - JVS(3705) = -B(259)+0.9*B(361) +! JVS(3705) = Jac_FULL(333,265) + JVS(3705) = B(1318) IF (DO_JVS(3706)) & -! JVS(3706) = Jac_FULL(328,250) - JVS(3706) = -B(267)+0.9*B(363) +! JVS(3706) = Jac_FULL(333,269) + JVS(3706) = 0 IF (DO_JVS(3707)) & -! JVS(3707) = Jac_FULL(328,251) - JVS(3707) = 0.19*B(1685) +! JVS(3707) = Jac_FULL(333,270) + JVS(3707) = 0 IF (DO_JVS(3708)) & -! JVS(3708) = Jac_FULL(328,257) - JVS(3708) = -B(893)+B(895) +! JVS(3708) = Jac_FULL(333,271) + JVS(3708) = 0 IF (DO_JVS(3709)) & -! JVS(3709) = Jac_FULL(328,259) - JVS(3709) = 0.325*B(1278)+0.65*B(1287) +! JVS(3709) = Jac_FULL(333,272) + JVS(3709) = 0.5*B(1459) IF (DO_JVS(3710)) & -! JVS(3710) = Jac_FULL(328,260) - JVS(3710) = -B(216)+0.9*B(369) +! JVS(3710) = Jac_FULL(333,273) + JVS(3710) = 0 IF (DO_JVS(3711)) & -! JVS(3711) = Jac_FULL(328,263) - JVS(3711) = -B(1393)+B(1395) +! JVS(3711) = Jac_FULL(333,274) + JVS(3711) = B(316) IF (DO_JVS(3712)) & -! JVS(3712) = Jac_FULL(328,272) - JVS(3712) = -B(830) +! JVS(3712) = Jac_FULL(333,275) + JVS(3712) = 0 IF (DO_JVS(3713)) & -! JVS(3713) = Jac_FULL(328,273) - JVS(3713) = -B(792) +! JVS(3713) = Jac_FULL(333,276) + JVS(3713) = 0 IF (DO_JVS(3714)) & -! JVS(3714) = Jac_FULL(328,274) - JVS(3714) = -B(897)+B(899) +! JVS(3714) = Jac_FULL(333,278) + JVS(3714) = 0 IF (DO_JVS(3715)) & -! JVS(3715) = Jac_FULL(328,275) - JVS(3715) = -B(881)+0.9*B(883) +! JVS(3715) = Jac_FULL(333,279) + JVS(3715) = 0 IF (DO_JVS(3716)) & -! JVS(3716) = Jac_FULL(328,276) - JVS(3716) = 0.407*B(947) +! JVS(3716) = Jac_FULL(333,280) + JVS(3716) = 0 IF (DO_JVS(3717)) & -! JVS(3717) = Jac_FULL(328,277) - JVS(3717) = -B(877)+0.9*B(879) +! JVS(3717) = Jac_FULL(333,281) + JVS(3717) = 0 IF (DO_JVS(3718)) & -! JVS(3718) = Jac_FULL(328,278) - JVS(3718) = -B(768) +! JVS(3718) = Jac_FULL(333,282) + JVS(3718) = 0 IF (DO_JVS(3719)) & -! JVS(3719) = Jac_FULL(328,279) - JVS(3719) = 0.19*B(1688) +! JVS(3719) = Jac_FULL(333,284) + JVS(3719) = 0 IF (DO_JVS(3720)) & -! JVS(3720) = Jac_FULL(328,280) - JVS(3720) = -B(909)+B(913) +! JVS(3720) = Jac_FULL(333,288) + JVS(3720) = 0 IF (DO_JVS(3721)) & -! JVS(3721) = Jac_FULL(328,281) - JVS(3721) = -B(885)+0.9*B(887) +! JVS(3721) = Jac_FULL(333,289) + JVS(3721) = 0 IF (DO_JVS(3722)) & -! JVS(3722) = Jac_FULL(328,283) - JVS(3722) = B(199)+B(627) +! JVS(3722) = Jac_FULL(333,291) + JVS(3722) = 0 IF (DO_JVS(3723)) & -! JVS(3723) = Jac_FULL(328,289) - JVS(3723) = -B(911)+0.5*B(915) +! JVS(3723) = Jac_FULL(333,292) + JVS(3723) = 0 IF (DO_JVS(3724)) & -! JVS(3724) = Jac_FULL(328,290) - JVS(3724) = 0.28*B(287) +! JVS(3724) = Jac_FULL(333,294) + JVS(3724) = 0 IF (DO_JVS(3725)) & -! JVS(3725) = Jac_FULL(328,291) - JVS(3725) = -B(889)+0.9*B(891) +! JVS(3725) = Jac_FULL(333,295) + JVS(3725) = B(251) IF (DO_JVS(3726)) & -! JVS(3726) = Jac_FULL(328,292) - JVS(3726) = 0.15*B(1665) +! JVS(3726) = Jac_FULL(333,296) + JVS(3726) = B(1587)+B(1588)+B(1589)+B(1599)+B(1601)+B(1603)+B(1605) IF (DO_JVS(3727)) & -! JVS(3727) = Jac_FULL(328,295) - JVS(3727) = B(1663)+2*B(1664) +! JVS(3727) = Jac_FULL(333,298) + JVS(3727) = B(318) IF (DO_JVS(3728)) & -! JVS(3728) = Jac_FULL(328,296) - JVS(3728) = -B(247)+0.9*B(365) +! JVS(3728) = Jac_FULL(333,299) + JVS(3728) = 0 IF (DO_JVS(3729)) & -! JVS(3729) = Jac_FULL(328,300) - JVS(3729) = 0.19*B(171)-0.91*B(257)+0.9*B(351) +! JVS(3729) = Jac_FULL(333,302) + JVS(3729) = B(210) IF (DO_JVS(3730)) & -! JVS(3730) = Jac_FULL(328,304) - JVS(3730) = -B(981)-B(983) +! JVS(3730) = Jac_FULL(333,303) + JVS(3730) = 0 IF (DO_JVS(3731)) & -! JVS(3731) = Jac_FULL(328,305) - JVS(3731) = -B(977)-B(979) +! JVS(3731) = Jac_FULL(333,304) + JVS(3731) = 0 IF (DO_JVS(3732)) & -! JVS(3732) = Jac_FULL(328,307) - JVS(3732) = 0.5*B(322) +! JVS(3732) = Jac_FULL(333,305) + JVS(3732) = 0 IF (DO_JVS(3733)) & -! JVS(3733) = Jac_FULL(328,308) - JVS(3733) = -B(1299) +! JVS(3733) = Jac_FULL(333,306) + JVS(3733) = 0 IF (DO_JVS(3734)) & -! JVS(3734) = Jac_FULL(328,309) +! JVS(3734) = Jac_FULL(333,307) JVS(3734) = 0 IF (DO_JVS(3735)) & -! JVS(3735) = Jac_FULL(328,310) - JVS(3735) = -B(1159)+B(1161) +! JVS(3735) = Jac_FULL(333,308) + JVS(3735) = 0 IF (DO_JVS(3736)) & -! JVS(3736) = Jac_FULL(328,311) - JVS(3736) = -B(1157)+B(1163) +! JVS(3736) = Jac_FULL(333,309) + JVS(3736) = B(295) IF (DO_JVS(3737)) & -! JVS(3737) = Jac_FULL(328,313) - JVS(3737) = -B(261)+0.9*B(353) +! JVS(3737) = Jac_FULL(333,310) + JVS(3737) = 0 IF (DO_JVS(3738)) & -! JVS(3738) = Jac_FULL(328,314) - JVS(3738) = B(1673) +! JVS(3738) = Jac_FULL(333,311) + JVS(3738) = 0 IF (DO_JVS(3739)) & -! JVS(3739) = Jac_FULL(328,315) - JVS(3739) = -B(249)+0.9*B(367) +! JVS(3739) = Jac_FULL(333,312) + JVS(3739) = 0 IF (DO_JVS(3740)) & -! JVS(3740) = Jac_FULL(328,318) - JVS(3740) = -B(255)+0.9*B(359) +! JVS(3740) = Jac_FULL(333,313) + JVS(3740) = 0.32*B(1234) IF (DO_JVS(3741)) & -! JVS(3741) = Jac_FULL(328,319) - JVS(3741) = 0.19*B(177)-0.91*B(253)+0.9*B(349) +! JVS(3741) = Jac_FULL(333,314) + JVS(3741) = 0 IF (DO_JVS(3742)) & -! JVS(3742) = Jac_FULL(328,320) - JVS(3742) = 0.85*B(228)-0.75*B(263)+0.9*B(355) +! JVS(3742) = Jac_FULL(333,315) + JVS(3742) = 0 IF (DO_JVS(3743)) & -! JVS(3743) = Jac_FULL(328,321) - JVS(3743) = -B(214)+0.9*B(371) +! JVS(3743) = Jac_FULL(333,316) + JVS(3743) = 0 IF (DO_JVS(3744)) & -! JVS(3744) = Jac_FULL(328,322) - JVS(3744) = B(373)-B(375) +! JVS(3744) = Jac_FULL(333,318) + JVS(3744) = 0 IF (DO_JVS(3745)) & -! JVS(3745) = Jac_FULL(328,323) - JVS(3745) = -B(265)+0.9*B(357) +! JVS(3745) = Jac_FULL(333,321) + JVS(3745) = B(1513)+B(1515)+B(1517)+B(1519)+B(1521)+B(1523)+B(1525) IF (DO_JVS(3746)) & -! JVS(3746) = Jac_FULL(328,324) - JVS(3746) = B(104)+2*B(346)-0.1*B(347)+0.9*B(350)+0.9*B(352)+0.9*B(354)+0.9*B(356)+0.9*B(358)+0.9*B(360)+0.9*B(362)& - &+0.9*B(364)+0.9*B(366)+0.9*B(368)+0.9*B(370)+0.9*B(372)+B(374)+0.9*B(880)+0.9*B(884)+0.9*B(888)+0.9*B(892)& - &+B(896)+B(900)+B(914)+0.5*B(916)+B(1162)+B(1164)+0.5*B(1324)+B(1396) +! JVS(3746) = Jac_FULL(333,322) + JVS(3746) = 0 IF (DO_JVS(3747)) & -! JVS(3747) = Jac_FULL(328,326) - JVS(3747) = 0.88*B(1656) +! JVS(3747) = Jac_FULL(333,323) + JVS(3747) = 0 IF (DO_JVS(3748)) & -! JVS(3748) = Jac_FULL(328,328) - JVS(3748) = -B(34)-B(49)-B(51)-B(53)-2*B(55)-2*B(56)-B(57)-B(215)-B(217)-B(248)-B(250)-0.91*B(254)-B(256)-0.91*B(258)& - &-B(260)-B(262)-0.75*B(264)-B(266)-B(268)-0.1*B(348)-B(376)-B(378)-B(529)-B(613)-B(769)-B(793)-B(831)-B(878)& - &-B(882)-B(886)-B(890)-B(894)-B(898)-B(910)-B(912)-B(978)-B(980)-B(982)-B(984)-B(1158)-B(1160)-B(1300)& - &-B(1371)-B(1394)-B(1462)-B(1464)-B(1487) +! JVS(3748) = Jac_FULL(333,324) + JVS(3748) = 0 IF (DO_JVS(3749)) & -! JVS(3749) = Jac_FULL(328,329) +! JVS(3749) = Jac_FULL(333,326) JVS(3749) = 0 IF (DO_JVS(3750)) & -! JVS(3750) = Jac_FULL(328,334) - JVS(3750) = 0.75*B(444)+0.9*B(496)+B(498) +! JVS(3750) = Jac_FULL(333,327) + JVS(3750) = 0 IF (DO_JVS(3751)) & -! JVS(3751) = Jac_FULL(328,335) - JVS(3751) = -B(379) +! JVS(3751) = Jac_FULL(333,328) + JVS(3751) = 0 IF (DO_JVS(3752)) & -! JVS(3752) = Jac_FULL(328,336) - JVS(3752) = 0 +! JVS(3752) = Jac_FULL(333,329) + JVS(3752) = B(93) IF (DO_JVS(3753)) & -! JVS(3753) = Jac_FULL(328,337) - JVS(3753) = -B(54)+0.85*B(229)+0.325*B(1279)+0.5*B(1325) +! JVS(3753) = Jac_FULL(333,330) + JVS(3753) = B(97) IF (DO_JVS(3754)) & -! JVS(3754) = Jac_FULL(328,338) - JVS(3754) = -B(530) +! JVS(3754) = Jac_FULL(333,331) + JVS(3754) = 0 IF (DO_JVS(3755)) & -! JVS(3755) = Jac_FULL(328,340) - JVS(3755) = B(564)-B(614)+B(616)+B(628) +! JVS(3755) = Jac_FULL(333,333) + JVS(3755) = -B(7)-B(14)-B(67)-B(1662) IF (DO_JVS(3756)) & -! JVS(3756) = Jac_FULL(328,341) - JVS(3756) = -B(35)+0.28*B(288)+0.407*B(948) +! JVS(3756) = Jac_FULL(333,334) + JVS(3756) = 0 IF (DO_JVS(3757)) & -! JVS(3757) = Jac_FULL(328,342) +! JVS(3757) = Jac_FULL(333,335) JVS(3757) = 0 IF (DO_JVS(3758)) & -! JVS(3758) = Jac_FULL(328,345) - JVS(3758) = B(48)-B(58)+0.7*B(60)+B(200)+0.5*B(323)+B(382)+B(384)+B(686)+0.162*B(1281) +! JVS(3758) = Jac_FULL(333,336) + JVS(3758) = 0 IF (DO_JVS(3759)) & -! JVS(3759) = Jac_FULL(328,346) - JVS(3759) = -B(50)-B(52)+B(105)+0.19*B(172)+0.19*B(178)+0.65*B(1288) +! JVS(3759) = Jac_FULL(333,337) + JVS(3759) = 0 IF (DO_JVS(3760)) & -! JVS(3760) = Jac_FULL(328,348) +! JVS(3760) = Jac_FULL(333,338) JVS(3760) = 0 IF (DO_JVS(3761)) & -! JVS(3761) = Jac_FULL(328,351) - JVS(3761) = B(386)-B(1488) +! JVS(3761) = Jac_FULL(333,339) + JVS(3761) = B(1502)+B(1524)+B(1604) IF (DO_JVS(3762)) & -! JVS(3762) = Jac_FULL(329,60) - JVS(3762) = 0.364*B(1362) +! JVS(3762) = Jac_FULL(333,340) + JVS(3762) = B(1499)+B(1512)+B(1516) IF (DO_JVS(3763)) & -! JVS(3763) = Jac_FULL(329,68) - JVS(3763) = B(457)+B(1745) +! JVS(3763) = Jac_FULL(333,341) + JVS(3763) = 0 IF (DO_JVS(3764)) & -! JVS(3764) = Jac_FULL(329,75) - JVS(3764) = B(609) +! JVS(3764) = Jac_FULL(333,342) + JVS(3764) = 0 IF (DO_JVS(3765)) & -! JVS(3765) = Jac_FULL(329,79) - JVS(3765) = B(607) +! JVS(3765) = Jac_FULL(333,343) + JVS(3765) = B(65)-B(68) IF (DO_JVS(3766)) & -! JVS(3766) = Jac_FULL(329,82) - JVS(3766) = 0.27*B(1383) +! JVS(3766) = Jac_FULL(333,344) + JVS(3766) = 0 IF (DO_JVS(3767)) & -! JVS(3767) = Jac_FULL(329,101) - JVS(3767) = 0.3*B(1385) +! JVS(3767) = Jac_FULL(333,345) + JVS(3767) = B(66)+0.5*B(1492) IF (DO_JVS(3768)) & -! JVS(3768) = Jac_FULL(329,107) - JVS(3768) = B(1304) +! JVS(3768) = Jac_FULL(333,346) + JVS(3768) = B(1504)+B(1526)+B(1606) IF (DO_JVS(3769)) & -! JVS(3769) = Jac_FULL(329,113) - JVS(3769) = B(241) +! JVS(3769) = Jac_FULL(333,347) + JVS(3769) = 0 IF (DO_JVS(3770)) & -! JVS(3770) = Jac_FULL(329,114) - JVS(3770) = B(306) +! JVS(3770) = Jac_FULL(333,348) + JVS(3770) = B(94)+B(98)+B(127)+B(194)+B(211)+B(252)+B(296)+B(317)+B(319)+B(345)+B(386)+B(746)+0.32*B(1235)+B(1319)& + &+B(1347)+B(1351)+0.742*B(1417)+0.5*B(1421)+0.5*B(1427)+B(1431)+0.5*B(1460)+B(1493) IF (DO_JVS(3771)) & -! JVS(3771) = Jac_FULL(329,119) - JVS(3771) = B(1013) +! JVS(3771) = Jac_FULL(333,349) + JVS(3771) = B(1520)+B(1600) IF (DO_JVS(3772)) & -! JVS(3772) = Jac_FULL(329,122) - JVS(3772) = 2*B(1412) +! JVS(3772) = Jac_FULL(333,350) + JVS(3772) = B(1522)+B(1602) IF (DO_JVS(3773)) & -! JVS(3773) = Jac_FULL(329,124) - JVS(3773) = B(206) +! JVS(3773) = Jac_FULL(333,351) + JVS(3773) = 0 IF (DO_JVS(3774)) & -! JVS(3774) = Jac_FULL(329,126) - JVS(3774) = B(167) +! JVS(3774) = Jac_FULL(333,352) + JVS(3774) = 0 IF (DO_JVS(3775)) & -! JVS(3775) = Jac_FULL(329,127) - JVS(3775) = B(152) +! JVS(3775) = Jac_FULL(333,353) + JVS(3775) = 2*B(1497)+B(1510)+B(1514)+B(1590) IF (DO_JVS(3776)) & -! JVS(3776) = Jac_FULL(329,132) - JVS(3776) = B(156)+B(158) +! JVS(3776) = Jac_FULL(333,354) + JVS(3776) = B(1518) IF (DO_JVS(3777)) & -! JVS(3777) = Jac_FULL(329,139) - JVS(3777) = B(102) +! JVS(3777) = Jac_FULL(333,355) + JVS(3777) = 0 IF (DO_JVS(3778)) & -! JVS(3778) = Jac_FULL(329,143) - JVS(3778) = 0.2*B(1381) +! JVS(3778) = Jac_FULL(333,356) + JVS(3778) = 0 IF (DO_JVS(3779)) & -! JVS(3779) = Jac_FULL(329,144) - JVS(3779) = 0.23*B(1007)+B(1782) +! JVS(3779) = Jac_FULL(334,55) + JVS(3779) = B(685) IF (DO_JVS(3780)) & -! JVS(3780) = Jac_FULL(329,146) - JVS(3780) = B(1661) +! JVS(3780) = Jac_FULL(334,83) + JVS(3780) = B(380)+B(1755) IF (DO_JVS(3781)) & -! JVS(3781) = Jac_FULL(329,147) - JVS(3781) = 0.888*B(1308)+B(1796) +! JVS(3781) = Jac_FULL(334,87) + JVS(3781) = B(381)+B(383)+B(385) IF (DO_JVS(3782)) & -! JVS(3782) = Jac_FULL(329,150) - JVS(3782) = 0.42*B(1005)+B(1781) +! JVS(3782) = Jac_FULL(334,95) + JVS(3782) = B(1702) IF (DO_JVS(3783)) & -! JVS(3783) = Jac_FULL(329,153) - JVS(3783) = 0.84*B(1268) +! JVS(3783) = Jac_FULL(334,108) + JVS(3783) = B(497)+B(1711) IF (DO_JVS(3784)) & -! JVS(3784) = Jac_FULL(329,159) - JVS(3784) = 0.488*B(1280) +! JVS(3784) = Jac_FULL(334,143) + JVS(3784) = 0.3*B(1671) IF (DO_JVS(3785)) & -! JVS(3785) = Jac_FULL(329,167) - JVS(3785) = 0.15*B(725) +! JVS(3785) = Jac_FULL(334,158) + JVS(3785) = B(1697) IF (DO_JVS(3786)) & -! JVS(3786) = Jac_FULL(329,181) - JVS(3786) = B(605) +! JVS(3786) = Jac_FULL(334,161) + JVS(3786) = 0.162*B(1280)+0.488*B(1784) IF (DO_JVS(3787)) & -! JVS(3787) = Jac_FULL(329,182) - JVS(3787) = 0.33*B(1214)+0.33*B(1216) +! JVS(3787) = Jac_FULL(334,167) + JVS(3787) = 0.7*B(59)+B(615) IF (DO_JVS(3788)) & -! JVS(3788) = Jac_FULL(329,184) - JVS(3788) = 0.25*B(1302) +! JVS(3788) = Jac_FULL(334,184) + JVS(3788) = 0.9*B(495)+B(1712) IF (DO_JVS(3789)) & -! JVS(3789) = Jac_FULL(329,185) - JVS(3789) = B(1260)+0.571*B(1768) +! JVS(3789) = Jac_FULL(334,232) + JVS(3789) = B(47)+0.75*B(443)+B(563) IF (DO_JVS(3790)) & -! JVS(3790) = Jac_FULL(329,187) - JVS(3790) = 0.25*B(1023) +! JVS(3790) = Jac_FULL(334,237) + JVS(3790) = -B(1463) IF (DO_JVS(3791)) & -! JVS(3791) = Jac_FULL(329,191) - JVS(3791) = 0.1*B(733) +! JVS(3791) = Jac_FULL(334,238) + JVS(3791) = -B(1461) IF (DO_JVS(3792)) & -! JVS(3792) = Jac_FULL(329,192) - JVS(3792) = 0.33*B(1025) +! JVS(3792) = Jac_FULL(334,239) + JVS(3792) = -B(1370) IF (DO_JVS(3793)) & -! JVS(3793) = Jac_FULL(329,194) - JVS(3793) = 0.75*B(1258)+0.875*B(1769) +! JVS(3793) = Jac_FULL(334,243) + JVS(3793) = 0 IF (DO_JVS(3794)) & -! JVS(3794) = Jac_FULL(329,197) - JVS(3794) = B(160)+B(162) +! JVS(3794) = Jac_FULL(334,250) + JVS(3794) = 0 IF (DO_JVS(3795)) & -! JVS(3795) = Jac_FULL(329,199) - JVS(3795) = 0.054*B(1029) +! JVS(3795) = Jac_FULL(334,252) + JVS(3795) = -B(259)+0.9*B(361) IF (DO_JVS(3796)) & -! JVS(3796) = Jac_FULL(329,200) - JVS(3796) = 0.12*B(1348) +! JVS(3796) = Jac_FULL(334,253) + JVS(3796) = -B(267)+0.9*B(363) IF (DO_JVS(3797)) & -! JVS(3797) = Jac_FULL(329,201) - JVS(3797) = 0.25*B(1470)+0.5*B(1472)+0.05*B(1474) +! JVS(3797) = Jac_FULL(334,255) + JVS(3797) = 0.19*B(1698) IF (DO_JVS(3798)) & -! JVS(3798) = Jac_FULL(329,204) - JVS(3798) = B(1802) +! JVS(3798) = Jac_FULL(334,261) + JVS(3798) = -B(893)+B(895) IF (DO_JVS(3799)) & -! JVS(3799) = Jac_FULL(329,208) - JVS(3799) = 2*B(1266)+B(1765) +! JVS(3799) = Jac_FULL(334,262) + JVS(3799) = 0.325*B(1278)+0.65*B(1287) IF (DO_JVS(3800)) & -! JVS(3800) = Jac_FULL(329,209) - JVS(3800) = 0.036*B(1027) +! JVS(3800) = Jac_FULL(334,264) + JVS(3800) = -B(216)+0.9*B(369) IF (DO_JVS(3801)) & -! JVS(3801) = Jac_FULL(329,210) - JVS(3801) = B(1326)+B(1762) +! JVS(3801) = Jac_FULL(334,266) + JVS(3801) = -B(1393)+B(1395) IF (DO_JVS(3802)) & -! JVS(3802) = Jac_FULL(329,212) - JVS(3802) = 0 +! JVS(3802) = Jac_FULL(334,275) + JVS(3802) = -B(792) IF (DO_JVS(3803)) & -! JVS(3803) = Jac_FULL(329,213) - JVS(3803) = 0 +! JVS(3803) = Jac_FULL(334,276) + JVS(3803) = -B(881)+0.9*B(883) IF (DO_JVS(3804)) & -! JVS(3804) = Jac_FULL(329,215) - JVS(3804) = 1.5*B(1011) +! JVS(3804) = Jac_FULL(334,277) + JVS(3804) = -B(897)+B(899) IF (DO_JVS(3805)) & -! JVS(3805) = Jac_FULL(329,216) - JVS(3805) = 0.25*B(1244)+B(1774) +! JVS(3805) = Jac_FULL(334,278) + JVS(3805) = -B(830) IF (DO_JVS(3806)) & -! JVS(3806) = Jac_FULL(329,220) - JVS(3806) = 0.18*B(1342) +! JVS(3806) = Jac_FULL(334,279) + JVS(3806) = 0.407*B(947) IF (DO_JVS(3807)) & -! JVS(3807) = Jac_FULL(329,221) - JVS(3807) = 0.26*B(1465)+0.5*B(1467) +! JVS(3807) = Jac_FULL(334,280) + JVS(3807) = -B(909)+B(913) IF (DO_JVS(3808)) & -! JVS(3808) = Jac_FULL(329,223) - JVS(3808) = 0 +! JVS(3808) = Jac_FULL(334,281) + JVS(3808) = -B(877)+0.9*B(879) IF (DO_JVS(3809)) & -! JVS(3809) = Jac_FULL(329,225) - JVS(3809) = B(1808) +! JVS(3809) = Jac_FULL(334,282) + JVS(3809) = -B(768) IF (DO_JVS(3810)) & -! JVS(3810) = Jac_FULL(329,226) - JVS(3810) = 0 +! JVS(3810) = Jac_FULL(334,283) + JVS(3810) = 0.19*B(1701) IF (DO_JVS(3811)) & -! JVS(3811) = Jac_FULL(329,227) - JVS(3811) = B(1264)+0.5*B(1766) +! JVS(3811) = Jac_FULL(334,284) + JVS(3811) = -B(885)+0.9*B(887) IF (DO_JVS(3812)) & -! JVS(3812) = Jac_FULL(329,230) - JVS(3812) = 0.45*B(1001)+0.888*B(1779) +! JVS(3812) = Jac_FULL(334,286) + JVS(3812) = B(199)+B(627) IF (DO_JVS(3813)) & -! JVS(3813) = Jac_FULL(329,231) - JVS(3813) = 0.37*B(1003)+0.818*B(1780) +! JVS(3813) = Jac_FULL(334,292) + JVS(3813) = -B(911)+0.5*B(915) IF (DO_JVS(3814)) & -! JVS(3814) = Jac_FULL(329,233) - JVS(3814) = 0.7*B(1660) +! JVS(3814) = Jac_FULL(334,293) + JVS(3814) = 0.28*B(287) IF (DO_JVS(3815)) & -! JVS(3815) = Jac_FULL(329,238) - JVS(3815) = 0.638*B(1009) +! JVS(3815) = Jac_FULL(334,294) + JVS(3815) = -B(889)+0.9*B(891) IF (DO_JVS(3816)) & -! JVS(3816) = Jac_FULL(329,240) - JVS(3816) = 0 +! JVS(3816) = Jac_FULL(334,295) + JVS(3816) = 0.15*B(1678) IF (DO_JVS(3817)) & -! JVS(3817) = Jac_FULL(329,241) - JVS(3817) = -B(705) +! JVS(3817) = Jac_FULL(334,297) + JVS(3817) = B(1676)+2*B(1677) IF (DO_JVS(3818)) & -! JVS(3818) = Jac_FULL(329,243) - JVS(3818) = 0.52*B(1078)+0.8*B(1082)+2*B(1084) +! JVS(3818) = Jac_FULL(334,300) + JVS(3818) = -B(247)+0.9*B(365) IF (DO_JVS(3819)) & -! JVS(3819) = Jac_FULL(329,246) - JVS(3819) = 0 +! JVS(3819) = Jac_FULL(334,304) + JVS(3819) = 0.19*B(171)-0.91*B(257)+0.9*B(351) IF (DO_JVS(3820)) & -! JVS(3820) = Jac_FULL(329,248) - JVS(3820) = B(1773) +! JVS(3820) = Jac_FULL(334,308) + JVS(3820) = -B(1159)+B(1161) IF (DO_JVS(3821)) & -! JVS(3821) = Jac_FULL(329,253) - JVS(3821) = 0.507*B(1276)+B(1282)+0.86*B(1283) +! JVS(3821) = Jac_FULL(334,310) + JVS(3821) = -B(1157)+B(1163) IF (DO_JVS(3822)) & -! JVS(3822) = Jac_FULL(329,254) - JVS(3822) = 0 +! JVS(3822) = Jac_FULL(334,311) + JVS(3822) = 0.5*B(322) IF (DO_JVS(3823)) & -! JVS(3823) = Jac_FULL(329,255) - JVS(3823) = B(1817) +! JVS(3823) = Jac_FULL(334,312) + JVS(3823) = -B(1299) IF (DO_JVS(3824)) & -! JVS(3824) = Jac_FULL(329,258) - JVS(3824) = B(1306)+B(1792)+0.163*B(1793) +! JVS(3824) = Jac_FULL(334,313) + JVS(3824) = 0 IF (DO_JVS(3825)) & -! JVS(3825) = Jac_FULL(329,259) - JVS(3825) = 0.325*B(1278)+0.65*B(1287) +! JVS(3825) = Jac_FULL(334,314) + JVS(3825) = -B(977)-B(979) IF (DO_JVS(3826)) & -! JVS(3826) = Jac_FULL(329,261) - JVS(3826) = B(1749) +! JVS(3826) = Jac_FULL(334,315) + JVS(3826) = -B(981)-B(983) IF (DO_JVS(3827)) & -! JVS(3827) = Jac_FULL(329,266) - JVS(3827) = B(1314)+B(1800) +! JVS(3827) = Jac_FULL(334,316) + JVS(3827) = -B(261)+0.9*B(353) IF (DO_JVS(3828)) & -! JVS(3828) = Jac_FULL(329,267) - JVS(3828) = 0.6*B(1111)+0.55*B(1786) +! JVS(3828) = Jac_FULL(334,318) + JVS(3828) = B(1686) IF (DO_JVS(3829)) & -! JVS(3829) = Jac_FULL(329,268) - JVS(3829) = 0.6*B(1109)+0.55*B(1783) +! JVS(3829) = Jac_FULL(334,319) + JVS(3829) = -B(249)+0.9*B(367) IF (DO_JVS(3830)) & -! JVS(3830) = Jac_FULL(329,269) - JVS(3830) = 0.15*B(1457)+0.15*B(1459)+B(1805) +! JVS(3830) = Jac_FULL(334,322) + JVS(3830) = -B(255)+0.9*B(359) IF (DO_JVS(3831)) & -! JVS(3831) = Jac_FULL(329,270) - JVS(3831) = 2*B(312)+2*B(316)+2*B(1667)+2*B(1668)+B(1669) +! JVS(3831) = Jac_FULL(334,323) + JVS(3831) = 0.19*B(177)-0.91*B(253)+0.9*B(349) IF (DO_JVS(3832)) & -! JVS(3832) = Jac_FULL(329,271) - JVS(3832) = 0 +! JVS(3832) = Jac_FULL(334,324) + JVS(3832) = 0.85*B(228)-0.75*B(263)+0.9*B(355) IF (DO_JVS(3833)) & -! JVS(3833) = Jac_FULL(329,276) - JVS(3833) = 0.407*B(947)+0.6*B(953)+0.9*B(955) +! JVS(3833) = Jac_FULL(334,325) + JVS(3833) = B(373)-B(375) IF (DO_JVS(3834)) & -! JVS(3834) = Jac_FULL(329,277) - JVS(3834) = 0 +! JVS(3834) = Jac_FULL(334,326) + JVS(3834) = -B(214)+0.9*B(371) IF (DO_JVS(3835)) & -! JVS(3835) = Jac_FULL(329,281) - JVS(3835) = 0 +! JVS(3835) = Jac_FULL(334,327) + JVS(3835) = -B(265)+0.9*B(357) IF (DO_JVS(3836)) & -! JVS(3836) = Jac_FULL(329,285) - JVS(3836) = B(1071)+0.2*B(1072)+0.13*B(1076) +! JVS(3836) = Jac_FULL(334,328) + JVS(3836) = B(104)+2*B(346)-0.1*B(347)+0.9*B(350)+0.9*B(352)+0.9*B(354)+0.9*B(356)+0.9*B(358)+0.9*B(360)+0.9*B(362)& + &+0.9*B(364)+0.9*B(366)+0.9*B(368)+0.9*B(370)+0.9*B(372)+B(374)+0.9*B(880)+0.9*B(884)+0.9*B(888)+0.9*B(892)& + &+B(896)+B(900)+B(914)+0.5*B(916)+B(1162)+B(1164)+0.5*B(1324)+B(1396) IF (DO_JVS(3837)) & -! JVS(3837) = Jac_FULL(329,286) - JVS(3837) = B(1063)+0.13*B(1064)+0.2*B(1066) +! JVS(3837) = Jac_FULL(334,330) + JVS(3837) = 0.88*B(1669) IF (DO_JVS(3838)) & -! JVS(3838) = Jac_FULL(329,287) - JVS(3838) = 0.77*B(1240)+0.77*B(1770) +! JVS(3838) = Jac_FULL(334,334) + JVS(3838) = -B(34)-B(49)-B(51)-B(53)-2*B(55)-2*B(56)-B(57)-B(215)-B(217)-B(248)-B(250)-0.91*B(254)-B(256)-0.91*B(258)& + &-B(260)-B(262)-0.75*B(264)-B(266)-B(268)-0.1*B(348)-B(376)-B(378)-B(529)-B(613)-B(769)-B(793)-B(831)-B(878)& + &-B(882)-B(886)-B(890)-B(894)-B(898)-B(910)-B(912)-B(978)-B(980)-B(982)-B(984)-B(1158)-B(1160)-B(1300)& + &-B(1371)-B(1394)-B(1462)-B(1464)-B(1487) IF (DO_JVS(3839)) & -! JVS(3839) = Jac_FULL(329,288) +! JVS(3839) = Jac_FULL(334,335) JVS(3839) = 0 IF (DO_JVS(3840)) & -! JVS(3840) = Jac_FULL(329,290) - JVS(3840) = 0.56*B(287) +! JVS(3840) = Jac_FULL(334,337) + JVS(3840) = 0.75*B(444)+0.9*B(496)+B(498) IF (DO_JVS(3841)) & -! JVS(3841) = Jac_FULL(329,293) - JVS(3841) = 0 +! JVS(3841) = Jac_FULL(334,338) + JVS(3841) = -B(50)-B(52)+B(105)+0.19*B(172)+0.19*B(178)+0.65*B(1288) IF (DO_JVS(3842)) & -! JVS(3842) = Jac_FULL(329,294) - JVS(3842) = B(314)+B(318)+B(1670) +! JVS(3842) = Jac_FULL(334,341) + JVS(3842) = -B(54)+0.85*B(229)+0.325*B(1279)+0.5*B(1325) IF (DO_JVS(3843)) & -! JVS(3843) = Jac_FULL(329,295) - JVS(3843) = B(1664) +! JVS(3843) = Jac_FULL(334,342) + JVS(3843) = 0 IF (DO_JVS(3844)) & -! JVS(3844) = Jac_FULL(329,298) - JVS(3844) = B(1662) +! JVS(3844) = Jac_FULL(334,343) + JVS(3844) = B(48)-B(58)+0.7*B(60)+B(200)+0.5*B(323)+B(382)+B(384)+B(686)+0.162*B(1281) IF (DO_JVS(3845)) & -! JVS(3845) = Jac_FULL(329,299) - JVS(3845) = 0 +! JVS(3845) = Jac_FULL(334,344) + JVS(3845) = -B(530) IF (DO_JVS(3846)) & -! JVS(3846) = Jac_FULL(329,300) - JVS(3846) = 0 +! JVS(3846) = Jac_FULL(334,345) + JVS(3846) = -B(379) IF (DO_JVS(3847)) & -! JVS(3847) = Jac_FULL(329,301) - JVS(3847) = 0.539*B(1212)+0.839*B(1790) +! JVS(3847) = Jac_FULL(334,348) + JVS(3847) = B(386)-B(1488) IF (DO_JVS(3848)) & -! JVS(3848) = Jac_FULL(329,302) - JVS(3848) = 0 +! JVS(3848) = Jac_FULL(334,352) + JVS(3848) = B(564)-B(614)+B(616)+B(628) IF (DO_JVS(3849)) & -! JVS(3849) = Jac_FULL(329,303) +! JVS(3849) = Jac_FULL(334,353) JVS(3849) = 0 IF (DO_JVS(3850)) & -! JVS(3850) = Jac_FULL(329,304) - JVS(3850) = 0.9*B(968)+B(974)+B(975)+0.5*B(983)+0.55*B(999) +! JVS(3850) = Jac_FULL(334,355) + JVS(3850) = 0 IF (DO_JVS(3851)) & -! JVS(3851) = Jac_FULL(329,305) - JVS(3851) = 0.6*B(966)+B(973)+B(976)+0.5*B(979)+0.55*B(991) +! JVS(3851) = Jac_FULL(334,356) + JVS(3851) = -B(35)+0.28*B(288)+0.407*B(948) IF (DO_JVS(3852)) & -! JVS(3852) = Jac_FULL(329,306) - JVS(3852) = 0.505*B(289)+B(291)+B(1666) +! JVS(3852) = Jac_FULL(335,63) + JVS(3852) = 0.364*B(1362) IF (DO_JVS(3853)) & -! JVS(3853) = Jac_FULL(329,307) - JVS(3853) = 0.5*B(322) +! JVS(3853) = Jac_FULL(335,71) + JVS(3853) = B(457)+B(1758) IF (DO_JVS(3854)) & -! JVS(3854) = Jac_FULL(329,308) - JVS(3854) = 0 +! JVS(3854) = Jac_FULL(335,80) + JVS(3854) = B(607) IF (DO_JVS(3855)) & -! JVS(3855) = Jac_FULL(329,309) - JVS(3855) = 0.036*B(1228)+0.12*B(1232)+0.68*B(1234)+B(1674) +! JVS(3855) = Jac_FULL(335,84) + JVS(3855) = B(609) IF (DO_JVS(3856)) & -! JVS(3856) = Jac_FULL(329,310) - JVS(3856) = 0 +! JVS(3856) = Jac_FULL(335,85) + JVS(3856) = 0.27*B(1383) IF (DO_JVS(3857)) & -! JVS(3857) = Jac_FULL(329,311) - JVS(3857) = 0 +! JVS(3857) = Jac_FULL(335,103) + JVS(3857) = 0.3*B(1385) IF (DO_JVS(3858)) & -! JVS(3858) = Jac_FULL(329,312) - JVS(3858) = -B(691) +! JVS(3858) = Jac_FULL(335,109) + JVS(3858) = B(1304) IF (DO_JVS(3859)) & -! JVS(3859) = Jac_FULL(329,313) - JVS(3859) = 0 +! JVS(3859) = Jac_FULL(335,113) + JVS(3859) = B(241) IF (DO_JVS(3860)) & -! JVS(3860) = Jac_FULL(329,314) - JVS(3860) = 0.28*B(1226)+B(1671)+B(1672) +! JVS(3860) = Jac_FULL(335,115) + JVS(3860) = B(306) IF (DO_JVS(3861)) & -! JVS(3861) = Jac_FULL(329,318) - JVS(3861) = 0 +! JVS(3861) = Jac_FULL(335,122) + JVS(3861) = B(1013) IF (DO_JVS(3862)) & -! JVS(3862) = Jac_FULL(329,319) - JVS(3862) = 0 +! JVS(3862) = Jac_FULL(335,125) + JVS(3862) = 2*B(1412) IF (DO_JVS(3863)) & -! JVS(3863) = Jac_FULL(329,320) - JVS(3863) = 0 +! JVS(3863) = Jac_FULL(335,127) + JVS(3863) = B(206) IF (DO_JVS(3864)) & -! JVS(3864) = Jac_FULL(329,321) - JVS(3864) = 0 +! JVS(3864) = Jac_FULL(335,129) + JVS(3864) = B(167) IF (DO_JVS(3865)) & -! JVS(3865) = Jac_FULL(329,322) - JVS(3865) = 0 +! JVS(3865) = Jac_FULL(335,130) + JVS(3865) = B(152) IF (DO_JVS(3866)) & -! JVS(3866) = Jac_FULL(329,323) - JVS(3866) = 0 +! JVS(3866) = Jac_FULL(335,133) + JVS(3866) = B(156)+B(158) IF (DO_JVS(3867)) & -! JVS(3867) = Jac_FULL(329,324) - JVS(3867) = 0 +! JVS(3867) = Jac_FULL(335,143) + JVS(3867) = B(102) IF (DO_JVS(3868)) & -! JVS(3868) = Jac_FULL(329,325) - JVS(3868) = B(63)+B(93)+B(413)+B(485)+B(565)+B(1647)+B(1648) +! JVS(3868) = Jac_FULL(335,145) + JVS(3868) = 0.2*B(1381) IF (DO_JVS(3869)) & -! JVS(3869) = Jac_FULL(329,326) - JVS(3869) = 0.05*B(95)+0.88*B(1656)+B(1657) +! JVS(3869) = Jac_FULL(335,149) + JVS(3869) = 0.888*B(1308)+B(1809) IF (DO_JVS(3870)) & -! JVS(3870) = Jac_FULL(329,328) - JVS(3870) = 0.5*B(980)+0.5*B(984) +! JVS(3870) = Jac_FULL(335,150) + JVS(3870) = 0.42*B(1005)+B(1794) IF (DO_JVS(3871)) & -! JVS(3871) = Jac_FULL(329,329) - JVS(3871) = -B(45)-B(692)-B(706) +! JVS(3871) = Jac_FULL(335,151) + JVS(3871) = 0.23*B(1007)+B(1795) IF (DO_JVS(3872)) & -! JVS(3872) = Jac_FULL(329,334) - JVS(3872) = 0 +! JVS(3872) = Jac_FULL(335,152) + JVS(3872) = B(1674) IF (DO_JVS(3873)) & -! JVS(3873) = Jac_FULL(329,335) - JVS(3873) = 0 +! JVS(3873) = Jac_FULL(335,155) + JVS(3873) = 0.84*B(1268) IF (DO_JVS(3874)) & -! JVS(3874) = Jac_FULL(329,336) - JVS(3874) = 0 +! JVS(3874) = Jac_FULL(335,161) + JVS(3874) = 0.488*B(1280) IF (DO_JVS(3875)) & -! JVS(3875) = Jac_FULL(329,337) - JVS(3875) = B(159)+B(161)+0.13*B(1065)+0.13*B(1077)+0.52*B(1079)+0.33*B(1217)+0.507*B(1277)+0.325*B(1279) +! JVS(3875) = Jac_FULL(335,170) + JVS(3875) = 0.15*B(725) IF (DO_JVS(3876)) & -! JVS(3876) = Jac_FULL(329,338) - JVS(3876) = 0 +! JVS(3876) = Jac_FULL(335,184) + JVS(3876) = B(605) IF (DO_JVS(3877)) & -! JVS(3877) = Jac_FULL(329,340) - JVS(3877) = B(566)+B(606)+B(608)+B(610) +! JVS(3877) = Jac_FULL(335,185) + JVS(3877) = 0.33*B(1214)+0.33*B(1216) IF (DO_JVS(3878)) & -! JVS(3878) = Jac_FULL(329,341) - JVS(3878) = 0.56*B(288)+0.15*B(726)+0.1*B(734)+0.407*B(948)+0.28*B(1227)+0.12*B(1233)+0.18*B(1343)+0.5*B(1468)+0.5& - &*B(1473) +! JVS(3878) = Jac_FULL(335,189) + JVS(3878) = 0.25*B(1302) IF (DO_JVS(3879)) & -! JVS(3879) = Jac_FULL(329,342) - JVS(3879) = B(414) +! JVS(3879) = Jac_FULL(335,190) + JVS(3879) = B(1260)+0.571*B(1781) IF (DO_JVS(3880)) & -! JVS(3880) = Jac_FULL(329,343) - JVS(3880) = B(458)+B(486) +! JVS(3880) = Jac_FULL(335,191) + JVS(3880) = 0.25*B(1023) IF (DO_JVS(3881)) & -! JVS(3881) = Jac_FULL(329,345) - JVS(3881) = -B(46)+B(64)+0.05*B(96)+B(103)+B(153)+B(168)+B(207)+B(242)+0.505*B(290)+B(292)+B(307)+2*B(313)+B(315)+0.5& - &*B(323)+0.6*B(954)+0.9*B(956)+0.45*B(1002)+0.37*B(1004)+0.42*B(1006)+0.23*B(1008)+0.638*B(1010)+1.5*B(1012)& - &+B(1014)+0.25*B(1024)+0.33*B(1026)+0.036*B(1028)+0.054*B(1030)+0.6*B(1110)+0.6*B(1112)+0.539*B(1213)+0.036& - &*B(1229)+0.77*B(1241)+0.25*B(1245)+0.75*B(1259)+B(1261)+B(1265)+2*B(1267)+0.84*B(1269)+0.488*B(1281)+0.25& - &*B(1303)+B(1305)+B(1307)+0.888*B(1309)+B(1315)+B(1327)+0.12*B(1349)+0.364*B(1363)+0.2*B(1382)+0.27*B(1384)& - &+0.3*B(1386)+2*B(1413)+0.15*B(1458)+0.26*B(1466)+0.25*B(1471) +! JVS(3881) = Jac_FULL(335,194) + JVS(3881) = 0.1*B(733) IF (DO_JVS(3882)) & -! JVS(3882) = Jac_FULL(329,346) - JVS(3882) = B(157)+B(163)+0.55*B(992)+0.55*B(1000)+0.2*B(1067)+0.2*B(1073)+0.8*B(1083)+0.33*B(1215)+0.86*B(1284)+0.65& - &*B(1288) +! JVS(3882) = Jac_FULL(335,195) + JVS(3882) = 0.33*B(1025) IF (DO_JVS(3883)) & -! JVS(3883) = Jac_FULL(329,348) - JVS(3883) = 0 +! JVS(3883) = Jac_FULL(335,197) + JVS(3883) = 0.75*B(1258)+0.875*B(1782) IF (DO_JVS(3884)) & -! JVS(3884) = Jac_FULL(329,351) - JVS(3884) = B(94)+2*B(317)+B(319)+0.68*B(1235)+0.15*B(1460) +! JVS(3884) = Jac_FULL(335,201) + JVS(3884) = B(160)+B(162) IF (DO_JVS(3885)) & -! JVS(3885) = Jac_FULL(330,170) - JVS(3885) = B(673) +! JVS(3885) = Jac_FULL(335,202) + JVS(3885) = 0.054*B(1029) IF (DO_JVS(3886)) & -! JVS(3886) = Jac_FULL(330,252) - JVS(3886) = 0 +! JVS(3886) = Jac_FULL(335,203) + JVS(3886) = 0.12*B(1348) IF (DO_JVS(3887)) & -! JVS(3887) = Jac_FULL(330,284) - JVS(3887) = B(679) +! JVS(3887) = Jac_FULL(335,204) + JVS(3887) = 0.25*B(1470)+0.5*B(1472)+0.05*B(1474) IF (DO_JVS(3888)) & -! JVS(3888) = Jac_FULL(330,330) - JVS(3888) = -B(677)-B(1574)-B(1575)-B(1607)-B(1609)-B(1611)-B(1613)-B(1726) +! JVS(3888) = Jac_FULL(335,207) + JVS(3888) = B(1815) IF (DO_JVS(3889)) & -! JVS(3889) = Jac_FULL(330,331) - JVS(3889) = 0 +! JVS(3889) = Jac_FULL(335,211) + JVS(3889) = 2*B(1266)+B(1778) IF (DO_JVS(3890)) & -! JVS(3890) = Jac_FULL(330,332) - JVS(3890) = B(1589) +! JVS(3890) = Jac_FULL(335,213) + JVS(3890) = 0.036*B(1027) IF (DO_JVS(3891)) & -! JVS(3891) = Jac_FULL(330,335) - JVS(3891) = 0 +! JVS(3891) = Jac_FULL(335,214) + JVS(3891) = B(1326)+B(1775) IF (DO_JVS(3892)) & -! JVS(3892) = Jac_FULL(330,336) - JVS(3892) = B(1590) +! JVS(3892) = Jac_FULL(335,215) + JVS(3892) = 0 IF (DO_JVS(3893)) & -! JVS(3893) = Jac_FULL(330,337) - JVS(3893) = B(680) +! JVS(3893) = Jac_FULL(335,216) + JVS(3893) = 0 IF (DO_JVS(3894)) & -! JVS(3894) = Jac_FULL(330,338) - JVS(3894) = 0 +! JVS(3894) = Jac_FULL(335,218) + JVS(3894) = 1.5*B(1011) IF (DO_JVS(3895)) & -! JVS(3895) = Jac_FULL(330,341) - JVS(3895) = 0 +! JVS(3895) = Jac_FULL(335,220) + JVS(3895) = 0.25*B(1244)+B(1787) IF (DO_JVS(3896)) & -! JVS(3896) = Jac_FULL(330,344) - JVS(3896) = -B(1614) +! JVS(3896) = Jac_FULL(335,223) + JVS(3896) = 0.18*B(1342) IF (DO_JVS(3897)) & -! JVS(3897) = Jac_FULL(330,345) - JVS(3897) = B(674)-B(678) +! JVS(3897) = Jac_FULL(335,224) + JVS(3897) = 0.26*B(1465)+0.5*B(1467) IF (DO_JVS(3898)) & -! JVS(3898) = Jac_FULL(330,346) - JVS(3898) = 0 +! JVS(3898) = Jac_FULL(335,227) + JVS(3898) = B(1821) IF (DO_JVS(3899)) & -! JVS(3899) = Jac_FULL(330,347) +! JVS(3899) = Jac_FULL(335,228) JVS(3899) = 0 IF (DO_JVS(3900)) & -! JVS(3900) = Jac_FULL(330,349) - JVS(3900) = -B(1608) +! JVS(3900) = Jac_FULL(335,229) + JVS(3900) = 0.7*B(1673) IF (DO_JVS(3901)) & -! JVS(3901) = Jac_FULL(330,350) - JVS(3901) = -B(1610) +! JVS(3901) = Jac_FULL(335,230) + JVS(3901) = B(1264)+0.5*B(1779) IF (DO_JVS(3902)) & -! JVS(3902) = Jac_FULL(330,351) - JVS(3902) = 0 +! JVS(3902) = Jac_FULL(335,231) + JVS(3902) = 0.37*B(1003)+0.818*B(1793) IF (DO_JVS(3903)) & -! JVS(3903) = Jac_FULL(330,353) - JVS(3903) = -B(1612) +! JVS(3903) = Jac_FULL(335,233) + JVS(3903) = 0.45*B(1001)+0.888*B(1792) IF (DO_JVS(3904)) & -! JVS(3904) = Jac_FULL(331,1) - JVS(3904) = 2*B(1734) +! JVS(3904) = Jac_FULL(335,236) + JVS(3904) = 0 IF (DO_JVS(3905)) & -! JVS(3905) = Jac_FULL(331,2) - JVS(3905) = B(1736) +! JVS(3905) = Jac_FULL(335,242) + JVS(3905) = 0.638*B(1009) IF (DO_JVS(3906)) & -! JVS(3906) = Jac_FULL(331,3) - JVS(3906) = B(1735) +! JVS(3906) = Jac_FULL(335,243) + JVS(3906) = 0 IF (DO_JVS(3907)) & -! JVS(3907) = Jac_FULL(331,44) - JVS(3907) = 0.996*B(684)+B(1732) +! JVS(3907) = Jac_FULL(335,244) + JVS(3907) = -B(705) IF (DO_JVS(3908)) & -! JVS(3908) = Jac_FULL(331,52) - JVS(3908) = B(685)+B(1733) +! JVS(3908) = Jac_FULL(335,245) + JVS(3908) = 0.52*B(1078)+0.8*B(1082)+2*B(1084) IF (DO_JVS(3909)) & -! JVS(3909) = Jac_FULL(331,62) - JVS(3909) = B(1729) +! JVS(3909) = Jac_FULL(335,250) + JVS(3909) = 0 IF (DO_JVS(3910)) & -! JVS(3910) = Jac_FULL(331,73) - JVS(3910) = B(675) +! JVS(3910) = Jac_FULL(335,251) + JVS(3910) = B(1786) IF (DO_JVS(3911)) & -! JVS(3911) = Jac_FULL(331,77) - JVS(3911) = B(1739) +! JVS(3911) = Jac_FULL(335,256) + JVS(3911) = B(1830) IF (DO_JVS(3912)) & -! JVS(3912) = Jac_FULL(331,96) - JVS(3912) = B(1728) +! JVS(3912) = Jac_FULL(335,257) + JVS(3912) = 0.507*B(1276)+B(1282)+0.86*B(1283) IF (DO_JVS(3913)) & -! JVS(3913) = Jac_FULL(331,104) - JVS(3913) = B(1740) +! JVS(3913) = Jac_FULL(335,258) + JVS(3913) = 0 IF (DO_JVS(3914)) & -! JVS(3914) = Jac_FULL(331,170) - JVS(3914) = B(650)+B(673)+2*B(1725) +! JVS(3914) = Jac_FULL(335,259) + JVS(3914) = B(1306)+B(1805)+0.163*B(1806) IF (DO_JVS(3915)) & -! JVS(3915) = Jac_FULL(331,252) - JVS(3915) = B(648)+B(1730) +! JVS(3915) = Jac_FULL(335,262) + JVS(3915) = 0.325*B(1278)+0.65*B(1287) IF (DO_JVS(3916)) & -! JVS(3916) = Jac_FULL(331,284) - JVS(3916) = 0.2*B(659)+0.809*B(667)+B(681)+0.4*B(683)+B(1727) +! JVS(3916) = Jac_FULL(335,265) + JVS(3916) = B(1762) IF (DO_JVS(3917)) & -! JVS(3917) = Jac_FULL(331,330) - JVS(3917) = B(1726) +! JVS(3917) = Jac_FULL(335,269) + JVS(3917) = B(1314)+B(1813) IF (DO_JVS(3918)) & -! JVS(3918) = Jac_FULL(331,331) - JVS(3918) = -B(643)-B(646)-B(655)-B(657)-B(669)-B(671) +! JVS(3918) = Jac_FULL(335,270) + JVS(3918) = 0.6*B(1111)+0.55*B(1799) IF (DO_JVS(3919)) & -! JVS(3919) = Jac_FULL(331,332) - JVS(3919) = -B(656)+B(1731) +! JVS(3919) = Jac_FULL(335,271) + JVS(3919) = 0.6*B(1109)+0.55*B(1796) IF (DO_JVS(3920)) & -! JVS(3920) = Jac_FULL(331,335) - JVS(3920) = -B(647) +! JVS(3920) = Jac_FULL(335,272) + JVS(3920) = 0.15*B(1457)+0.15*B(1459)+B(1818) IF (DO_JVS(3921)) & -! JVS(3921) = Jac_FULL(331,336) +! JVS(3921) = Jac_FULL(335,273) JVS(3921) = 0 IF (DO_JVS(3922)) & -! JVS(3922) = Jac_FULL(331,337) - JVS(3922) = -B(672) +! JVS(3922) = Jac_FULL(335,274) + JVS(3922) = 2*B(312)+2*B(316)+2*B(1680)+2*B(1681)+B(1682) IF (DO_JVS(3923)) & -! JVS(3923) = Jac_FULL(331,338) - JVS(3923) = 0.809*B(668) +! JVS(3923) = Jac_FULL(335,279) + JVS(3923) = 0.407*B(947)+0.6*B(953)+0.9*B(955) IF (DO_JVS(3924)) & -! JVS(3924) = Jac_FULL(331,341) - JVS(3924) = -B(670) +! JVS(3924) = Jac_FULL(335,281) + JVS(3924) = 0 IF (DO_JVS(3925)) & -! JVS(3925) = Jac_FULL(331,344) +! JVS(3925) = Jac_FULL(335,284) JVS(3925) = 0 IF (DO_JVS(3926)) & -! JVS(3926) = Jac_FULL(331,345) - JVS(3926) = B(674)+B(676)+B(686) +! JVS(3926) = Jac_FULL(335,288) + JVS(3926) = B(1071)+0.2*B(1072)+0.13*B(1076) IF (DO_JVS(3927)) & -! JVS(3927) = Jac_FULL(331,346) - JVS(3927) = -B(644)+B(682) +! JVS(3927) = Jac_FULL(335,289) + JVS(3927) = B(1063)+0.13*B(1064)+0.2*B(1066) IF (DO_JVS(3928)) & -! JVS(3928) = Jac_FULL(331,347) - JVS(3928) = -B(658)+0.2*B(660) +! JVS(3928) = Jac_FULL(335,290) + JVS(3928) = 0.77*B(1240)+0.77*B(1783) IF (DO_JVS(3929)) & -! JVS(3929) = Jac_FULL(331,349) +! JVS(3929) = Jac_FULL(335,291) JVS(3929) = 0 IF (DO_JVS(3930)) & -! JVS(3930) = Jac_FULL(331,350) - JVS(3930) = 0 +! JVS(3930) = Jac_FULL(335,293) + JVS(3930) = 0.56*B(287) IF (DO_JVS(3931)) & -! JVS(3931) = Jac_FULL(331,351) - JVS(3931) = B(651) +! JVS(3931) = Jac_FULL(335,297) + JVS(3931) = B(1677) IF (DO_JVS(3932)) & -! JVS(3932) = Jac_FULL(331,353) - JVS(3932) = 0 +! JVS(3932) = Jac_FULL(335,298) + JVS(3932) = B(314)+B(318)+B(1683) IF (DO_JVS(3933)) & -! JVS(3933) = Jac_FULL(332,170) - JVS(3933) = B(650) +! JVS(3933) = Jac_FULL(335,299) + JVS(3933) = 0 IF (DO_JVS(3934)) & -! JVS(3934) = Jac_FULL(332,252) - JVS(3934) = 0 +! JVS(3934) = Jac_FULL(335,302) + JVS(3934) = B(1675) IF (DO_JVS(3935)) & -! JVS(3935) = Jac_FULL(332,284) - JVS(3935) = B(652) +! JVS(3935) = Jac_FULL(335,303) + JVS(3935) = 0 IF (DO_JVS(3936)) & -! JVS(3936) = Jac_FULL(332,330) +! JVS(3936) = Jac_FULL(335,304) JVS(3936) = 0 IF (DO_JVS(3937)) & -! JVS(3937) = Jac_FULL(332,331) - JVS(3937) = -B(655) +! JVS(3937) = Jac_FULL(335,305) + JVS(3937) = 0.539*B(1212)+0.839*B(1803) IF (DO_JVS(3938)) & -! JVS(3938) = Jac_FULL(332,332) - JVS(3938) = -B(654)-B(656)-B(1587)-B(1588)-B(1589)-B(1599)-B(1601)-B(1603)-B(1605)-B(1731) +! JVS(3938) = Jac_FULL(335,306) + JVS(3938) = 0 IF (DO_JVS(3939)) & -! JVS(3939) = Jac_FULL(332,335) - JVS(3939) = B(653) +! JVS(3939) = Jac_FULL(335,307) + JVS(3939) = 0 IF (DO_JVS(3940)) & -! JVS(3940) = Jac_FULL(332,336) - JVS(3940) = -B(1590) +! JVS(3940) = Jac_FULL(335,308) + JVS(3940) = 0 IF (DO_JVS(3941)) & -! JVS(3941) = Jac_FULL(332,337) - JVS(3941) = 0 +! JVS(3941) = Jac_FULL(335,309) + JVS(3941) = 0.505*B(289)+B(291)+B(1679) IF (DO_JVS(3942)) & -! JVS(3942) = Jac_FULL(332,338) +! JVS(3942) = Jac_FULL(335,310) JVS(3942) = 0 IF (DO_JVS(3943)) & -! JVS(3943) = Jac_FULL(332,341) - JVS(3943) = 0 +! JVS(3943) = Jac_FULL(335,311) + JVS(3943) = 0.5*B(322) IF (DO_JVS(3944)) & -! JVS(3944) = Jac_FULL(332,344) - JVS(3944) = -B(1606) +! JVS(3944) = Jac_FULL(335,312) + JVS(3944) = 0 IF (DO_JVS(3945)) & -! JVS(3945) = Jac_FULL(332,345) - JVS(3945) = 0 +! JVS(3945) = Jac_FULL(335,313) + JVS(3945) = 0.036*B(1228)+0.12*B(1232)+0.68*B(1234)+B(1687) IF (DO_JVS(3946)) & -! JVS(3946) = Jac_FULL(332,346) - JVS(3946) = 0 +! JVS(3946) = Jac_FULL(335,314) + JVS(3946) = 0.6*B(966)+B(973)+B(975)+0.5*B(979)+0.55*B(991) IF (DO_JVS(3947)) & -! JVS(3947) = Jac_FULL(332,347) - JVS(3947) = 0 +! JVS(3947) = Jac_FULL(335,315) + JVS(3947) = 0.9*B(968)+B(974)+B(976)+0.5*B(983)+0.55*B(999) IF (DO_JVS(3948)) & -! JVS(3948) = Jac_FULL(332,349) - JVS(3948) = -B(1600) +! JVS(3948) = Jac_FULL(335,316) + JVS(3948) = 0 IF (DO_JVS(3949)) & -! JVS(3949) = Jac_FULL(332,350) - JVS(3949) = -B(1602) +! JVS(3949) = Jac_FULL(335,317) + JVS(3949) = -B(691) IF (DO_JVS(3950)) & -! JVS(3950) = Jac_FULL(332,351) - JVS(3950) = B(651) +! JVS(3950) = Jac_FULL(335,318) + JVS(3950) = 0.28*B(1226)+B(1684)+B(1685) IF (DO_JVS(3951)) & -! JVS(3951) = Jac_FULL(332,353) - JVS(3951) = -B(1604) +! JVS(3951) = Jac_FULL(335,322) + JVS(3951) = 0 IF (DO_JVS(3952)) & -! JVS(3952) = Jac_FULL(333,76) - JVS(3952) = B(537) +! JVS(3952) = Jac_FULL(335,323) + JVS(3952) = 0 IF (DO_JVS(3953)) & -! JVS(3953) = Jac_FULL(333,120) - JVS(3953) = B(535) +! JVS(3953) = Jac_FULL(335,324) + JVS(3953) = 0 IF (DO_JVS(3954)) & -! JVS(3954) = Jac_FULL(333,245) - JVS(3954) = B(527) +! JVS(3954) = Jac_FULL(335,325) + JVS(3954) = 0 IF (DO_JVS(3955)) & -! JVS(3955) = Jac_FULL(333,284) +! JVS(3955) = Jac_FULL(335,326) JVS(3955) = 0 IF (DO_JVS(3956)) & -! JVS(3956) = Jac_FULL(333,297) - JVS(3956) = B(543) +! JVS(3956) = Jac_FULL(335,327) + JVS(3956) = 0 IF (DO_JVS(3957)) & -! JVS(3957) = Jac_FULL(333,317) - JVS(3957) = B(545)+B(1513) +! JVS(3957) = Jac_FULL(335,328) + JVS(3957) = 0 IF (DO_JVS(3958)) & -! JVS(3958) = Jac_FULL(333,328) - JVS(3958) = 0 +! JVS(3958) = Jac_FULL(335,329) + JVS(3958) = B(63)+B(93)+B(413)+B(485)+B(565)+B(1660)+B(1661) IF (DO_JVS(3959)) & -! JVS(3959) = Jac_FULL(333,329) - JVS(3959) = 0 +! JVS(3959) = Jac_FULL(335,330) + JVS(3959) = 0.05*B(95)+0.88*B(1669)+B(1670) IF (DO_JVS(3960)) & -! JVS(3960) = Jac_FULL(333,330) - JVS(3960) = 0 +! JVS(3960) = Jac_FULL(335,334) + JVS(3960) = 0.5*B(980)+0.5*B(984) IF (DO_JVS(3961)) & -! JVS(3961) = Jac_FULL(333,331) - JVS(3961) = 0 +! JVS(3961) = Jac_FULL(335,335) + JVS(3961) = -B(45)-B(692)-B(706) IF (DO_JVS(3962)) & -! JVS(3962) = Jac_FULL(333,332) +! JVS(3962) = Jac_FULL(335,337) JVS(3962) = 0 IF (DO_JVS(3963)) & -! JVS(3963) = Jac_FULL(333,333) - JVS(3963) = -B(541)-B(1539)-B(1541)-B(1543)-B(1545)-B(1547)-B(1709) +! JVS(3963) = Jac_FULL(335,338) + JVS(3963) = B(157)+B(163)+0.55*B(992)+0.55*B(1000)+0.2*B(1067)+0.2*B(1073)+0.8*B(1083)+0.33*B(1215)+0.86*B(1284)+0.65& + &*B(1288) IF (DO_JVS(3964)) & -! JVS(3964) = Jac_FULL(333,334) - JVS(3964) = 0 +! JVS(3964) = Jac_FULL(335,341) + JVS(3964) = B(159)+B(161)+0.13*B(1065)+0.13*B(1077)+0.52*B(1079)+0.33*B(1217)+0.507*B(1277)+0.325*B(1279) IF (DO_JVS(3965)) & -! JVS(3965) = Jac_FULL(333,335) - JVS(3965) = 0 +! JVS(3965) = Jac_FULL(335,342) + JVS(3965) = B(414) IF (DO_JVS(3966)) & -! JVS(3966) = Jac_FULL(333,336) - JVS(3966) = B(1514) +! JVS(3966) = Jac_FULL(335,343) + JVS(3966) = -B(46)+B(64)+0.05*B(96)+B(103)+B(153)+B(168)+B(207)+B(242)+0.505*B(290)+B(292)+B(307)+2*B(313)+B(315)+0.5& + &*B(323)+0.6*B(954)+0.9*B(956)+0.45*B(1002)+0.37*B(1004)+0.42*B(1006)+0.23*B(1008)+0.638*B(1010)+1.5*B(1012)& + &+B(1014)+0.25*B(1024)+0.33*B(1026)+0.036*B(1028)+0.054*B(1030)+0.6*B(1110)+0.6*B(1112)+0.539*B(1213)+0.036& + &*B(1229)+0.77*B(1241)+0.25*B(1245)+0.75*B(1259)+B(1261)+B(1265)+2*B(1267)+0.84*B(1269)+0.488*B(1281)+0.25& + &*B(1303)+B(1305)+B(1307)+0.888*B(1309)+B(1315)+B(1327)+0.12*B(1349)+0.364*B(1363)+0.2*B(1382)+0.27*B(1384)& + &+0.3*B(1386)+2*B(1413)+0.15*B(1458)+0.26*B(1466)+0.25*B(1471) IF (DO_JVS(3967)) & -! JVS(3967) = Jac_FULL(333,337) - JVS(3967) = B(579) +! JVS(3967) = Jac_FULL(335,344) + JVS(3967) = 0 IF (DO_JVS(3968)) & -! JVS(3968) = Jac_FULL(333,338) - JVS(3968) = B(580) +! JVS(3968) = Jac_FULL(335,345) + JVS(3968) = 0 IF (DO_JVS(3969)) & -! JVS(3969) = Jac_FULL(333,339) - JVS(3969) = -B(1540) +! JVS(3969) = Jac_FULL(335,348) + JVS(3969) = B(94)+2*B(317)+B(319)+0.68*B(1235)+0.15*B(1460) IF (DO_JVS(3970)) & -! JVS(3970) = Jac_FULL(333,340) - JVS(3970) = 0 +! JVS(3970) = Jac_FULL(335,351) + JVS(3970) = B(458)+B(486) IF (DO_JVS(3971)) & -! JVS(3971) = Jac_FULL(333,341) - JVS(3971) = 0 +! JVS(3971) = Jac_FULL(335,352) + JVS(3971) = B(566)+B(606)+B(608)+B(610) IF (DO_JVS(3972)) & -! JVS(3972) = Jac_FULL(333,342) +! JVS(3972) = Jac_FULL(335,353) JVS(3972) = 0 IF (DO_JVS(3973)) & -! JVS(3973) = Jac_FULL(333,343) +! JVS(3973) = Jac_FULL(335,355) JVS(3973) = 0 IF (DO_JVS(3974)) & -! JVS(3974) = Jac_FULL(333,344) - JVS(3974) = -B(1546) +! JVS(3974) = Jac_FULL(335,356) + JVS(3974) = 0.56*B(288)+0.15*B(726)+0.1*B(734)+0.407*B(948)+0.28*B(1227)+0.12*B(1233)+0.18*B(1343)+0.5*B(1468)+0.5& + &*B(1473) IF (DO_JVS(3975)) & -! JVS(3975) = Jac_FULL(333,345) - JVS(3975) = B(528)+B(536)+B(538)-B(542)+B(544)+B(546) +! JVS(3975) = Jac_FULL(336,47) + JVS(3975) = 0.008*B(684) IF (DO_JVS(3976)) & -! JVS(3976) = Jac_FULL(333,346) - JVS(3976) = 0 +! JVS(3976) = Jac_FULL(336,58) + JVS(3976) = B(1751) IF (DO_JVS(3977)) & -! JVS(3977) = Jac_FULL(333,347) - JVS(3977) = 0 +! JVS(3977) = Jac_FULL(336,98) + JVS(3977) = -B(661)+B(665) IF (DO_JVS(3978)) & -! JVS(3978) = Jac_FULL(333,348) - JVS(3978) = -B(1548) +! JVS(3978) = Jac_FULL(336,287) + JVS(3978) = B(677) IF (DO_JVS(3979)) & -! JVS(3979) = Jac_FULL(333,349) - JVS(3979) = 0 +! JVS(3979) = Jac_FULL(336,296) + JVS(3979) = B(654) IF (DO_JVS(3980)) & -! JVS(3980) = Jac_FULL(333,350) - JVS(3980) = 0 +! JVS(3980) = Jac_FULL(336,331) + JVS(3980) = B(657)+B(669) IF (DO_JVS(3981)) & -! JVS(3981) = Jac_FULL(333,351) - JVS(3981) = 0 +! JVS(3981) = Jac_FULL(336,336) + JVS(3981) = -B(652)-B(659)-B(662)-B(667)-B(679)-B(681)-2*B(683)-B(1740) IF (DO_JVS(3982)) & -! JVS(3982) = Jac_FULL(333,352) - JVS(3982) = -B(1542) +! JVS(3982) = Jac_FULL(336,338) + JVS(3982) = B(666)-B(682) IF (DO_JVS(3983)) & -! JVS(3983) = Jac_FULL(333,353) - JVS(3983) = -B(1544) +! JVS(3983) = Jac_FULL(336,339) + JVS(3983) = 0 IF (DO_JVS(3984)) & -! JVS(3984) = Jac_FULL(334,46) - JVS(3984) = -B(493) +! JVS(3984) = Jac_FULL(336,341) + JVS(3984) = -B(680) IF (DO_JVS(3985)) & -! JVS(3985) = Jac_FULL(334,47) - JVS(3985) = -B(505) +! JVS(3985) = Jac_FULL(336,343) + JVS(3985) = B(678) IF (DO_JVS(3986)) & -! JVS(3986) = Jac_FULL(334,48) - JVS(3986) = -B(507) +! JVS(3986) = Jac_FULL(336,344) + JVS(3986) = -B(668) IF (DO_JVS(3987)) & -! JVS(3987) = Jac_FULL(334,49) - JVS(3987) = -B(519) +! JVS(3987) = Jac_FULL(336,345) + JVS(3987) = -B(653) IF (DO_JVS(3988)) & -! JVS(3988) = Jac_FULL(334,50) - JVS(3988) = -B(521) +! JVS(3988) = Jac_FULL(336,346) + JVS(3988) = 0 IF (DO_JVS(3989)) & -! JVS(3989) = Jac_FULL(334,51) - JVS(3989) = -B(523) +! JVS(3989) = Jac_FULL(336,347) + JVS(3989) = B(658)-B(660) IF (DO_JVS(3990)) & -! JVS(3990) = Jac_FULL(334,53) - JVS(3990) = -B(511) +! JVS(3990) = Jac_FULL(336,348) + JVS(3990) = 0 IF (DO_JVS(3991)) & -! JVS(3991) = Jac_FULL(334,54) - JVS(3991) = -B(525) +! JVS(3991) = Jac_FULL(336,349) + JVS(3991) = 0 IF (DO_JVS(3992)) & -! JVS(3992) = Jac_FULL(334,61) - JVS(3992) = -B(509) +! JVS(3992) = Jac_FULL(336,350) + JVS(3992) = 0 IF (DO_JVS(3993)) & -! JVS(3993) = Jac_FULL(334,63) - JVS(3993) = -B(441)+B(1744) +! JVS(3993) = Jac_FULL(336,353) + JVS(3993) = 0 IF (DO_JVS(3994)) & -! JVS(3994) = Jac_FULL(334,67) - JVS(3994) = 0 +! JVS(3994) = Jac_FULL(336,356) + JVS(3994) = B(670) IF (DO_JVS(3995)) & -! JVS(3995) = Jac_FULL(334,78) - JVS(3995) = -B(499) +! JVS(3995) = Jac_FULL(337,49) + JVS(3995) = -B(493) IF (DO_JVS(3996)) & -! JVS(3996) = Jac_FULL(334,81) - JVS(3996) = -B(501) +! JVS(3996) = Jac_FULL(337,50) + JVS(3996) = -B(505) IF (DO_JVS(3997)) & -! JVS(3997) = Jac_FULL(334,84) - JVS(3997) = -B(517) +! JVS(3997) = Jac_FULL(337,51) + JVS(3997) = -B(507) IF (DO_JVS(3998)) & -! JVS(3998) = Jac_FULL(334,85) - JVS(3998) = -B(513) +! JVS(3998) = Jac_FULL(337,52) + JVS(3998) = -B(519) IF (DO_JVS(3999)) & -! JVS(3999) = Jac_FULL(334,86) - JVS(3999) = -B(515) +! JVS(3999) = Jac_FULL(337,53) + JVS(3999) = -B(521) IF (DO_JVS(4000)) & -! JVS(4000) = Jac_FULL(334,87) - JVS(4000) = -B(503) +! JVS(4000) = Jac_FULL(337,54) + JVS(4000) = -B(523) IF (DO_JVS(4001)) & -! JVS(4001) = Jac_FULL(334,105) - JVS(4001) = -B(497) +! JVS(4001) = Jac_FULL(337,56) + JVS(4001) = -B(511) IF (DO_JVS(4002)) & -! JVS(4002) = Jac_FULL(334,181) - JVS(4002) = -B(495) +! JVS(4002) = Jac_FULL(337,57) + JVS(4002) = -B(525) IF (DO_JVS(4003)) & -! JVS(4003) = Jac_FULL(334,228) - JVS(4003) = -B(443) +! JVS(4003) = Jac_FULL(337,64) + JVS(4003) = -B(509) IF (DO_JVS(4004)) & -! JVS(4004) = Jac_FULL(334,245) - JVS(4004) = -B(491) +! JVS(4004) = Jac_FULL(337,66) + JVS(4004) = -B(441)+B(1757) IF (DO_JVS(4005)) & -! JVS(4005) = Jac_FULL(334,290) +! JVS(4005) = Jac_FULL(337,70) JVS(4005) = 0 IF (DO_JVS(4006)) & -! JVS(4006) = Jac_FULL(334,297) - JVS(4006) = 0 +! JVS(4006) = Jac_FULL(337,79) + JVS(4006) = -B(499) IF (DO_JVS(4007)) & -! JVS(4007) = Jac_FULL(334,314) - JVS(4007) = 0 +! JVS(4007) = Jac_FULL(337,82) + JVS(4007) = -B(501) IF (DO_JVS(4008)) & -! JVS(4008) = Jac_FULL(334,317) - JVS(4008) = 0 +! JVS(4008) = Jac_FULL(337,88) + JVS(4008) = -B(517) IF (DO_JVS(4009)) & -! JVS(4009) = Jac_FULL(334,324) - JVS(4009) = 0 +! JVS(4009) = Jac_FULL(337,89) + JVS(4009) = -B(513) IF (DO_JVS(4010)) & -! JVS(4010) = Jac_FULL(334,326) - JVS(4010) = 0 +! JVS(4010) = Jac_FULL(337,90) + JVS(4010) = -B(515) IF (DO_JVS(4011)) & -! JVS(4011) = Jac_FULL(334,328) - JVS(4011) = 0 +! JVS(4011) = Jac_FULL(337,91) + JVS(4011) = -B(503) IF (DO_JVS(4012)) & -! JVS(4012) = Jac_FULL(334,329) - JVS(4012) = 0 +! JVS(4012) = Jac_FULL(337,108) + JVS(4012) = -B(497) IF (DO_JVS(4013)) & -! JVS(4013) = Jac_FULL(334,333) - JVS(4013) = 0 +! JVS(4013) = Jac_FULL(337,184) + JVS(4013) = -B(495) IF (DO_JVS(4014)) & -! JVS(4014) = Jac_FULL(334,334) - JVS(4014) = -B(433)-B(435)-B(437)-B(439)-B(442)-B(444)-B(455)-B(487)-B(489)-B(492)-B(494)-B(496)-B(498)-B(500)-B(502)& - &-B(504)-B(506)-B(508)-B(510)-B(512)-B(514)-B(516)-B(518)-B(520)-B(522)-B(524)-B(526) +! JVS(4014) = Jac_FULL(337,232) + JVS(4014) = -B(443) IF (DO_JVS(4015)) & -! JVS(4015) = Jac_FULL(334,335) - JVS(4015) = 0 +! JVS(4015) = Jac_FULL(337,248) + JVS(4015) = -B(491) IF (DO_JVS(4016)) & -! JVS(4016) = Jac_FULL(334,336) - JVS(4016) = -B(434) +! JVS(4016) = Jac_FULL(337,293) + JVS(4016) = 0 IF (DO_JVS(4017)) & -! JVS(4017) = Jac_FULL(334,337) +! JVS(4017) = Jac_FULL(337,301) JVS(4017) = 0 IF (DO_JVS(4018)) & -! JVS(4018) = Jac_FULL(334,338) +! JVS(4018) = Jac_FULL(337,318) JVS(4018) = 0 IF (DO_JVS(4019)) & -! JVS(4019) = Jac_FULL(334,339) - JVS(4019) = -B(488) +! JVS(4019) = Jac_FULL(337,321) + JVS(4019) = 0 IF (DO_JVS(4020)) & -! JVS(4020) = Jac_FULL(334,340) +! JVS(4020) = Jac_FULL(337,328) JVS(4020) = 0 IF (DO_JVS(4021)) & -! JVS(4021) = Jac_FULL(334,341) - JVS(4021) = -B(456)+B(1642) +! JVS(4021) = Jac_FULL(337,330) + JVS(4021) = 0 IF (DO_JVS(4022)) & -! JVS(4022) = Jac_FULL(334,342) +! JVS(4022) = Jac_FULL(337,332) JVS(4022) = 0 IF (DO_JVS(4023)) & -! JVS(4023) = Jac_FULL(334,343) +! JVS(4023) = Jac_FULL(337,334) JVS(4023) = 0 IF (DO_JVS(4024)) & -! JVS(4024) = Jac_FULL(334,344) +! JVS(4024) = Jac_FULL(337,335) JVS(4024) = 0 IF (DO_JVS(4025)) & -! JVS(4025) = Jac_FULL(334,345) +! JVS(4025) = Jac_FULL(337,336) JVS(4025) = 0 IF (DO_JVS(4026)) & -! JVS(4026) = Jac_FULL(334,346) - JVS(4026) = 0 +! JVS(4026) = Jac_FULL(337,337) + JVS(4026) = -B(433)-B(435)-B(437)-B(439)-B(442)-B(444)-B(455)-B(487)-B(489)-B(492)-B(494)-B(496)-B(498)-B(500)-B(502)& + &-B(504)-B(506)-B(508)-B(510)-B(512)-B(514)-B(516)-B(518)-B(520)-B(522)-B(524)-B(526) IF (DO_JVS(4027)) & -! JVS(4027) = Jac_FULL(334,347) +! JVS(4027) = Jac_FULL(337,338) JVS(4027) = 0 IF (DO_JVS(4028)) & -! JVS(4028) = Jac_FULL(334,348) +! JVS(4028) = Jac_FULL(337,339) JVS(4028) = 0 IF (DO_JVS(4029)) & -! JVS(4029) = Jac_FULL(334,349) - JVS(4029) = 0 +! JVS(4029) = Jac_FULL(337,340) + JVS(4029) = -B(488) IF (DO_JVS(4030)) & -! JVS(4030) = Jac_FULL(334,350) +! JVS(4030) = Jac_FULL(337,341) JVS(4030) = 0 IF (DO_JVS(4031)) & -! JVS(4031) = Jac_FULL(334,351) +! JVS(4031) = Jac_FULL(337,342) JVS(4031) = 0 IF (DO_JVS(4032)) & -! JVS(4032) = Jac_FULL(334,352) - JVS(4032) = -B(490) +! JVS(4032) = Jac_FULL(337,343) + JVS(4032) = 0 IF (DO_JVS(4033)) & -! JVS(4033) = Jac_FULL(334,353) +! JVS(4033) = Jac_FULL(337,344) JVS(4033) = 0 IF (DO_JVS(4034)) & -! JVS(4034) = Jac_FULL(335,56) - JVS(4034) = B(755) +! JVS(4034) = Jac_FULL(337,345) + JVS(4034) = 0 IF (DO_JVS(4035)) & -! JVS(4035) = Jac_FULL(335,57) - JVS(4035) = B(844) +! JVS(4035) = Jac_FULL(337,346) + JVS(4035) = 0 IF (DO_JVS(4036)) & -! JVS(4036) = Jac_FULL(335,59) - JVS(4036) = B(1695) +! JVS(4036) = Jac_FULL(337,347) + JVS(4036) = 0 IF (DO_JVS(4037)) & -! JVS(4037) = Jac_FULL(335,64) - JVS(4037) = B(1756) +! JVS(4037) = Jac_FULL(337,348) + JVS(4037) = 0 IF (DO_JVS(4038)) & -! JVS(4038) = Jac_FULL(335,65) - JVS(4038) = B(1754) +! JVS(4038) = Jac_FULL(337,349) + JVS(4038) = 0 IF (DO_JVS(4039)) & -! JVS(4039) = Jac_FULL(335,67) - JVS(4039) = -B(481) +! JVS(4039) = Jac_FULL(337,350) + JVS(4039) = 0 IF (DO_JVS(4040)) & -! JVS(4040) = Jac_FULL(335,70) - JVS(4040) = B(1375) +! JVS(4040) = Jac_FULL(337,351) + JVS(4040) = 0 IF (DO_JVS(4041)) & -! JVS(4041) = Jac_FULL(335,80) - JVS(4041) = B(380)+B(1742) +! JVS(4041) = Jac_FULL(337,352) + JVS(4041) = 0 IF (DO_JVS(4042)) & -! JVS(4042) = Jac_FULL(335,83) - JVS(4042) = B(941)+B(1758) +! JVS(4042) = Jac_FULL(337,353) + JVS(4042) = -B(434) IF (DO_JVS(4043)) & -! JVS(4043) = Jac_FULL(335,90) - JVS(4043) = B(1440)+B(1441) +! JVS(4043) = Jac_FULL(337,354) + JVS(4043) = -B(490) IF (DO_JVS(4044)) & -! JVS(4044) = Jac_FULL(335,91) - JVS(4044) = B(943)+B(1759) +! JVS(4044) = Jac_FULL(337,355) + JVS(4044) = 0 IF (DO_JVS(4045)) & -! JVS(4045) = Jac_FULL(335,93) - JVS(4045) = B(939)+B(1757) +! JVS(4045) = Jac_FULL(337,356) + JVS(4045) = -B(456)+B(1655) IF (DO_JVS(4046)) & -! JVS(4046) = Jac_FULL(335,95) - JVS(4046) = B(945)+B(1760) +! JVS(4046) = Jac_FULL(338,65) + JVS(4046) = 2*B(645)+B(1742) IF (DO_JVS(4047)) & -! JVS(4047) = Jac_FULL(335,96) - JVS(4047) = B(665) +! JVS(4047) = Jac_FULL(338,66) + JVS(4047) = 1.22*B(441) IF (DO_JVS(4048)) & -! JVS(4048) = Jac_FULL(335,108) - JVS(4048) = B(75)+B(76)+B(1652) +! JVS(4048) = Jac_FULL(338,70) + JVS(4048) = B(477)-B(479) IF (DO_JVS(4049)) & -! JVS(4049) = Jac_FULL(335,113) - JVS(4049) = B(240)+B(241) +! JVS(4049) = Jac_FULL(338,98) + JVS(4049) = -B(665) IF (DO_JVS(4050)) & -! JVS(4050) = Jac_FULL(335,114) - JVS(4050) = B(299)+B(306) +! JVS(4050) = Jac_FULL(338,124) + JVS(4050) = -B(1399) IF (DO_JVS(4051)) & -! JVS(4051) = Jac_FULL(335,116) - JVS(4051) = B(1356)+B(1687) +! JVS(4051) = Jac_FULL(338,133) + JVS(4051) = -B(156) IF (DO_JVS(4052)) & -! JVS(4052) = Jac_FULL(335,121) - JVS(4052) = B(1399) +! JVS(4052) = Jac_FULL(338,136) + JVS(4052) = -B(1089) IF (DO_JVS(4053)) & -! JVS(4053) = Jac_FULL(335,122) - JVS(4053) = B(1411)+B(1412) +! JVS(4053) = Jac_FULL(338,137) + JVS(4053) = -B(1085) IF (DO_JVS(4054)) & -! JVS(4054) = Jac_FULL(335,124) - JVS(4054) = B(205)+B(206)+0.7*B(1806) +! JVS(4054) = Jac_FULL(338,168) + JVS(4054) = -B(138) IF (DO_JVS(4055)) & -! JVS(4055) = Jac_FULL(335,125) - JVS(4055) = B(1676) +! JVS(4055) = Jac_FULL(338,173) + JVS(4055) = -B(1246) IF (DO_JVS(4056)) & -! JVS(4056) = Jac_FULL(335,126) - JVS(4056) = B(166)+B(1659) +! JVS(4056) = Jac_FULL(338,174) + JVS(4056) = -B(1252) IF (DO_JVS(4057)) & -! JVS(4057) = Jac_FULL(335,127) - JVS(4057) = B(152) +! JVS(4057) = Jac_FULL(338,181) + JVS(4057) = -B(1220) IF (DO_JVS(4058)) & -! JVS(4058) = Jac_FULL(335,132) - JVS(4058) = B(156) +! JVS(4058) = Jac_FULL(338,182) + JVS(4058) = -B(128)-B(130) IF (DO_JVS(4059)) & -! JVS(4059) = Jac_FULL(335,133) - JVS(4059) = B(1085) +! JVS(4059) = Jac_FULL(338,185) + JVS(4059) = -B(1214) IF (DO_JVS(4060)) & -! JVS(4060) = Jac_FULL(335,135) - JVS(4060) = B(1089) +! JVS(4060) = Jac_FULL(338,186) + JVS(4060) = -B(1123)-B(1125) IF (DO_JVS(4061)) & -! JVS(4061) = Jac_FULL(335,137) - JVS(4061) = 0.5*B(743) +! JVS(4061) = Jac_FULL(338,193) + JVS(4061) = -B(1352) IF (DO_JVS(4062)) & -! JVS(4062) = Jac_FULL(335,138) - JVS(4062) = 0.5*B(780) +! JVS(4062) = Jac_FULL(338,200) + JVS(4062) = 0 IF (DO_JVS(4063)) & -! JVS(4063) = Jac_FULL(335,139) - JVS(4063) = B(101)+B(102)+0.7*B(1658) +! JVS(4063) = Jac_FULL(338,201) + JVS(4063) = -B(162) IF (DO_JVS(4064)) & -! JVS(4064) = Jac_FULL(335,140) - JVS(4064) = B(144) +! JVS(4064) = Jac_FULL(338,203) + JVS(4064) = 0 IF (DO_JVS(4065)) & -! JVS(4065) = Jac_FULL(335,154) - JVS(4065) = B(1752) +! JVS(4065) = Jac_FULL(338,208) + JVS(4065) = -B(1137)-B(1139) IF (DO_JVS(4066)) & -! JVS(4066) = Jac_FULL(335,162) - JVS(4066) = 0.5*B(798) +! JVS(4066) = Jac_FULL(338,209) + JVS(4066) = -B(1131)-B(1133) IF (DO_JVS(4067)) & -! JVS(4067) = Jac_FULL(335,163) - JVS(4067) = B(834) +! JVS(4067) = Jac_FULL(338,210) + JVS(4067) = -B(1116)-B(1118) IF (DO_JVS(4068)) & -! JVS(4068) = Jac_FULL(335,165) - JVS(4068) = 2*B(138) +! JVS(4068) = Jac_FULL(338,215) + JVS(4068) = -B(148) IF (DO_JVS(4069)) & -! JVS(4069) = Jac_FULL(335,166) - JVS(4069) = 0 +! JVS(4069) = Jac_FULL(338,216) + JVS(4069) = -B(300) IF (DO_JVS(4070)) & -! JVS(4070) = Jac_FULL(335,168) - JVS(4070) = B(1099)+B(1785) +! JVS(4070) = Jac_FULL(338,223) + JVS(4070) = 0 IF (DO_JVS(4071)) & -! JVS(4071) = Jac_FULL(335,171) - JVS(4071) = B(1246)-B(1250) +! JVS(4071) = Jac_FULL(338,226) + JVS(4071) = -B(1039)-B(1041) IF (DO_JVS(4072)) & -! JVS(4072) = Jac_FULL(335,172) - JVS(4072) = B(1252)-B(1256) +! JVS(4072) = Jac_FULL(338,228) + JVS(4072) = -B(1032)-B(1034) IF (DO_JVS(4073)) & -! JVS(4073) = Jac_FULL(335,175) - JVS(4073) = B(1095)+B(1784) +! JVS(4073) = Jac_FULL(338,229) + JVS(4073) = 0 IF (DO_JVS(4074)) & -! JVS(4074) = Jac_FULL(335,176) - JVS(4074) = 0.5*B(772) +! JVS(4074) = Jac_FULL(338,231) + JVS(4074) = 0 IF (DO_JVS(4075)) & -! JVS(4075) = Jac_FULL(335,177) - JVS(4075) = 0.5*B(836) +! JVS(4075) = Jac_FULL(338,233) + JVS(4075) = 0 IF (DO_JVS(4076)) & -! JVS(4076) = Jac_FULL(335,178) - JVS(4076) = B(128) +! JVS(4076) = Jac_FULL(338,235) + JVS(4076) = -B(1046)-B(1048) IF (DO_JVS(4077)) & -! JVS(4077) = Jac_FULL(335,179) - JVS(4077) = 0 +! JVS(4077) = Jac_FULL(338,236) + JVS(4077) = -B(1206)-B(1208) IF (DO_JVS(4078)) & -! JVS(4078) = Jac_FULL(335,180) - JVS(4078) = 1.11*B(1220)+0.09*B(1222) +! JVS(4078) = Jac_FULL(338,237) + JVS(4078) = -B(1434) IF (DO_JVS(4079)) & -! JVS(4079) = Jac_FULL(335,182) - JVS(4079) = B(1214) +! JVS(4079) = Jac_FULL(338,238) + JVS(4079) = -B(1445) IF (DO_JVS(4080)) & -! JVS(4080) = Jac_FULL(335,184) - JVS(4080) = B(1301) +! JVS(4080) = Jac_FULL(338,239) + JVS(4080) = -B(1366) IF (DO_JVS(4081)) & -! JVS(4081) = Jac_FULL(335,186) - JVS(4081) = B(1188)+B(1789) +! JVS(4081) = Jac_FULL(338,240) + JVS(4081) = B(1663) IF (DO_JVS(4082)) & -! JVS(4082) = Jac_FULL(335,189) - JVS(4082) = 0.89*B(1352) +! JVS(4082) = Jac_FULL(338,243) + JVS(4082) = -B(1405) IF (DO_JVS(4083)) & -! JVS(4083) = Jac_FULL(335,190) - JVS(4083) = B(1123) +! JVS(4083) = Jac_FULL(338,244) + JVS(4083) = -B(707) IF (DO_JVS(4084)) & -! JVS(4084) = Jac_FULL(335,193) - JVS(4084) = 0.3*B(865)+0.3*B(867)+1.15*B(869) +! JVS(4084) = Jac_FULL(338,245) + JVS(4084) = -B(1080)-B(1082) IF (DO_JVS(4085)) & -! JVS(4085) = Jac_FULL(335,196) - JVS(4085) = B(1686) +! JVS(4085) = Jac_FULL(338,250) + JVS(4085) = -B(243) IF (DO_JVS(4086)) & -! JVS(4086) = Jac_FULL(335,197) - JVS(4086) = B(162)-B(164) +! JVS(4086) = Jac_FULL(338,252) + JVS(4086) = -B(175) IF (DO_JVS(4087)) & -! JVS(4087) = Jac_FULL(335,200) - JVS(4087) = 0 +! JVS(4087) = Jac_FULL(338,253) + JVS(4087) = -B(191) IF (DO_JVS(4088)) & -! JVS(4088) = Jac_FULL(335,203) - JVS(4088) = -B(1455) +! JVS(4088) = Jac_FULL(338,254) + JVS(4088) = 0 IF (DO_JVS(4089)) & -! JVS(4089) = Jac_FULL(335,205) - JVS(4089) = 0.459*B(1114)+1.728*B(1116) +! JVS(4089) = Jac_FULL(338,257) + JVS(4089) = -B(1283)-B(1285) IF (DO_JVS(4090)) & -! JVS(4090) = Jac_FULL(335,206) - JVS(4090) = B(1131) +! JVS(4090) = Jac_FULL(338,258) + JVS(4090) = -B(1272)-B(1274) IF (DO_JVS(4091)) & -! JVS(4091) = Jac_FULL(335,207) - JVS(4091) = B(1137) +! JVS(4091) = Jac_FULL(338,261) + JVS(4091) = -B(751) IF (DO_JVS(4092)) & -! JVS(4092) = Jac_FULL(335,211) - JVS(4092) = 0.5*B(818)+0.5*B(820)+B(822) +! JVS(4092) = Jac_FULL(338,262) + JVS(4092) = -B(1287) IF (DO_JVS(4093)) & -! JVS(4093) = Jac_FULL(335,212) - JVS(4093) = 0.942*B(148) +! JVS(4093) = Jac_FULL(338,264) + JVS(4093) = -B(122) IF (DO_JVS(4094)) & -! JVS(4094) = Jac_FULL(335,213) - JVS(4094) = -B(297)+B(300)+B(304) +! JVS(4094) = Jac_FULL(338,266) + JVS(4094) = -B(1389) IF (DO_JVS(4095)) & -! JVS(4095) = Jac_FULL(335,214) - JVS(4095) = B(86)+B(1655) +! JVS(4095) = Jac_FULL(338,270) + JVS(4095) = 0 IF (DO_JVS(4096)) & -! JVS(4096) = Jac_FULL(335,218) - JVS(4096) = B(1694) +! JVS(4096) = Jac_FULL(338,271) + JVS(4096) = 0 IF (DO_JVS(4097)) & -! JVS(4097) = Jac_FULL(335,220) - JVS(4097) = B(1340) +! JVS(4097) = Jac_FULL(338,272) + JVS(4097) = 0 IF (DO_JVS(4098)) & -! JVS(4098) = Jac_FULL(335,222) - JVS(4098) = B(1787) +! JVS(4098) = Jac_FULL(338,273) + JVS(4098) = -B(1202)-B(1204) IF (DO_JVS(4099)) & -! JVS(4099) = Jac_FULL(335,223) - JVS(4099) = B(1032) +! JVS(4099) = Jac_FULL(338,275) + JVS(4099) = -B(788)-B(790) IF (DO_JVS(4100)) & -! JVS(4100) = Jac_FULL(335,224) - JVS(4100) = B(1039) +! JVS(4100) = Jac_FULL(338,276) + JVS(4100) = -B(776) IF (DO_JVS(4101)) & -! JVS(4101) = Jac_FULL(335,226) - JVS(4101) = B(1206) +! JVS(4101) = Jac_FULL(338,277) + JVS(4101) = -B(840) IF (DO_JVS(4102)) & -! JVS(4102) = Jac_FULL(335,229) - JVS(4102) = 0.5*B(863) +! JVS(4102) = Jac_FULL(338,278) + JVS(4102) = -B(824) IF (DO_JVS(4103)) & -! JVS(4103) = Jac_FULL(335,230) +! JVS(4103) = Jac_FULL(338,279) JVS(4103) = 0 IF (DO_JVS(4104)) & -! JVS(4104) = Jac_FULL(335,231) - JVS(4104) = 0 +! JVS(4104) = Jac_FULL(338,280) + JVS(4104) = -B(901) IF (DO_JVS(4105)) & -! JVS(4105) = Jac_FULL(335,232) - JVS(4105) = B(1046) +! JVS(4105) = Jac_FULL(338,281) + JVS(4105) = -B(737) IF (DO_JVS(4106)) & -! JVS(4106) = Jac_FULL(335,233) - JVS(4106) = 0 +! JVS(4106) = Jac_FULL(338,282) + JVS(4106) = -B(764) IF (DO_JVS(4107)) & -! JVS(4107) = Jac_FULL(335,234) - JVS(4107) = 0.995*B(1366)+B(1368) +! JVS(4107) = Jac_FULL(338,283) + JVS(4107) = 0 IF (DO_JVS(4108)) & -! JVS(4108) = Jac_FULL(335,235) - JVS(4108) = B(1434)-B(1436) +! JVS(4108) = Jac_FULL(338,284) + JVS(4108) = -B(802) IF (DO_JVS(4109)) & -! JVS(4109) = Jac_FULL(335,236) - JVS(4109) = -B(1443)+B(1445)+B(1447) +! JVS(4109) = Jac_FULL(338,288) + JVS(4109) = -B(1072)-B(1074) IF (DO_JVS(4110)) & -! JVS(4110) = Jac_FULL(335,237) - JVS(4110) = 0 +! JVS(4110) = Jac_FULL(338,289) + JVS(4110) = -B(1066)-B(1068) IF (DO_JVS(4111)) & -! JVS(4111) = Jac_FULL(335,239) - JVS(4111) = B(71) +! JVS(4111) = Jac_FULL(338,292) + JVS(4111) = -B(903) IF (DO_JVS(4112)) & -! JVS(4112) = Jac_FULL(335,240) - JVS(4112) = B(1405)-B(1409) +! JVS(4112) = Jac_FULL(338,293) + JVS(4112) = 0 IF (DO_JVS(4113)) & -! JVS(4113) = Jac_FULL(335,241) - JVS(4113) = B(707)-B(709) +! JVS(4113) = Jac_FULL(338,294) + JVS(4113) = -B(853)-B(855) IF (DO_JVS(4114)) & -! JVS(4114) = Jac_FULL(335,242) - JVS(4114) = B(1751) +! JVS(4114) = Jac_FULL(338,299) + JVS(4114) = -B(1143)-B(1145) IF (DO_JVS(4115)) & -! JVS(4115) = Jac_FULL(335,243) - JVS(4115) = B(1082) +! JVS(4115) = Jac_FULL(338,300) + JVS(4115) = -B(108)-B(110) IF (DO_JVS(4116)) & -! JVS(4116) = Jac_FULL(335,246) - JVS(4116) = -B(238)+B(243) +! JVS(4116) = Jac_FULL(338,301) + JVS(4116) = 0 IF (DO_JVS(4117)) & -! JVS(4117) = Jac_FULL(335,247) - JVS(4117) = B(689)+B(1764) +! JVS(4117) = Jac_FULL(338,303) + JVS(4117) = 0 IF (DO_JVS(4118)) & -! JVS(4118) = Jac_FULL(335,248) - JVS(4118) = B(1773) +! JVS(4118) = Jac_FULL(338,304) + JVS(4118) = -B(171)-B(173) IF (DO_JVS(4119)) & -! JVS(4119) = Jac_FULL(335,249) - JVS(4119) = 2*B(175)+B(259)+B(361) +! JVS(4119) = Jac_FULL(338,305) + JVS(4119) = 0 IF (DO_JVS(4120)) & -! JVS(4120) = Jac_FULL(335,250) - JVS(4120) = 2*B(191)+B(267)+B(363) +! JVS(4120) = Jac_FULL(338,307) + JVS(4120) = 0 IF (DO_JVS(4121)) & -! JVS(4121) = Jac_FULL(335,251) - JVS(4121) = B(1685) +! JVS(4121) = Jac_FULL(338,308) + JVS(4121) = -B(1169)-B(1171) IF (DO_JVS(4122)) & -! JVS(4122) = Jac_FULL(335,252) - JVS(4122) = B(648)+2*B(649)+B(1730) +! JVS(4122) = Jac_FULL(338,309) + JVS(4122) = 0 IF (DO_JVS(4123)) & -! JVS(4123) = Jac_FULL(335,253) - JVS(4123) = B(1283) +! JVS(4123) = Jac_FULL(338,310) + JVS(4123) = -B(1173)-B(1175) IF (DO_JVS(4124)) & -! JVS(4124) = Jac_FULL(335,254) - JVS(4124) = B(1272) +! JVS(4124) = Jac_FULL(338,312) + JVS(4124) = -B(1293) IF (DO_JVS(4125)) & -! JVS(4125) = Jac_FULL(335,255) +! JVS(4125) = Jac_FULL(338,313) JVS(4125) = 0 IF (DO_JVS(4126)) & -! JVS(4126) = Jac_FULL(335,256) - JVS(4126) = B(1750) +! JVS(4126) = Jac_FULL(338,314) + JVS(4126) = -B(985)-B(987)-B(989)-B(991) IF (DO_JVS(4127)) & -! JVS(4127) = Jac_FULL(335,257) - JVS(4127) = B(751)-B(753)+B(756) +! JVS(4127) = Jac_FULL(338,315) + JVS(4127) = -B(993)-B(995)-B(997)-B(999) IF (DO_JVS(4128)) & -! JVS(4128) = Jac_FULL(335,259) - JVS(4128) = B(1287)-B(1289) +! JVS(4128) = Jac_FULL(338,316) + JVS(4128) = -B(183) IF (DO_JVS(4129)) & -! JVS(4129) = Jac_FULL(335,260) - JVS(4129) = B(122) +! JVS(4129) = Jac_FULL(338,317) + JVS(4129) = -B(693) IF (DO_JVS(4130)) & -! JVS(4130) = Jac_FULL(335,261) - JVS(4130) = B(687)+B(1318)+B(1749) +! JVS(4130) = Jac_FULL(338,318) + JVS(4130) = 0 IF (DO_JVS(4131)) & -! JVS(4131) = Jac_FULL(335,262) - JVS(4131) = 0.5*B(875) +! JVS(4131) = Jac_FULL(338,319) + JVS(4131) = -B(112) IF (DO_JVS(4132)) & -! JVS(4132) = Jac_FULL(335,263) - JVS(4132) = B(1389)+B(1391) +! JVS(4132) = Jac_FULL(338,322) + JVS(4132) = -B(181) IF (DO_JVS(4133)) & -! JVS(4133) = Jac_FULL(335,266) - JVS(4133) = B(1314)+B(1799)+B(1800) +! JVS(4133) = Jac_FULL(338,323) + JVS(4133) = -B(177)-B(179) IF (DO_JVS(4134)) & -! JVS(4134) = Jac_FULL(335,267) - JVS(4134) = B(1105)+B(1786) +! JVS(4134) = Jac_FULL(338,324) + JVS(4134) = -B(185)-B(236) IF (DO_JVS(4135)) & -! JVS(4135) = Jac_FULL(335,268) - JVS(4135) = B(1101)+B(1783) +! JVS(4135) = Jac_FULL(338,325) + JVS(4135) = -B(208) IF (DO_JVS(4136)) & -! JVS(4136) = Jac_FULL(335,269) - JVS(4136) = 0.5*B(1457)+B(1459) +! JVS(4136) = Jac_FULL(338,326) + JVS(4136) = -B(118)-B(120) IF (DO_JVS(4137)) & -! JVS(4137) = Jac_FULL(335,271) - JVS(4137) = 0.058*B(1198)+1.065*B(1202) +! JVS(4137) = Jac_FULL(338,327) + JVS(4137) = -B(187)-B(189) IF (DO_JVS(4138)) & -! JVS(4138) = Jac_FULL(335,272) - JVS(4138) = 0.84*B(824)+B(828) +! JVS(4138) = Jac_FULL(338,328) + JVS(4138) = -B(104) IF (DO_JVS(4139)) & -! JVS(4139) = Jac_FULL(335,273) - JVS(4139) = B(790)+B(794) +! JVS(4139) = Jac_FULL(338,330) + JVS(4139) = 0 IF (DO_JVS(4140)) & -! JVS(4140) = Jac_FULL(335,274) - JVS(4140) = B(840)-B(842)+B(845) +! JVS(4140) = Jac_FULL(338,331) + JVS(4140) = -B(643) IF (DO_JVS(4141)) & -! JVS(4141) = Jac_FULL(335,275) - JVS(4141) = 0.75*B(776)+B(778) +! JVS(4141) = Jac_FULL(338,333) + JVS(4141) = 0 IF (DO_JVS(4142)) & -! JVS(4142) = Jac_FULL(335,276) - JVS(4142) = 0 +! JVS(4142) = Jac_FULL(338,334) + JVS(4142) = -B(49)-B(51) IF (DO_JVS(4143)) & -! JVS(4143) = Jac_FULL(335,277) - JVS(4143) = 0.75*B(737)+B(739) +! JVS(4143) = Jac_FULL(338,335) + JVS(4143) = 0 IF (DO_JVS(4144)) & -! JVS(4144) = Jac_FULL(335,278) - JVS(4144) = 0.84*B(764)+B(766) +! JVS(4144) = Jac_FULL(338,336) + JVS(4144) = -B(681) IF (DO_JVS(4145)) & -! JVS(4145) = Jac_FULL(335,279) - JVS(4145) = B(1688) +! JVS(4145) = Jac_FULL(338,337) + JVS(4145) = 1.22*B(442) IF (DO_JVS(4146)) & -! JVS(4146) = Jac_FULL(335,280) - JVS(4146) = B(901)+B(917)+0.5*B(922) +! JVS(4146) = Jac_FULL(338,338) + JVS(4146) = -B(26)-B(42)-B(50)-B(52)-B(69)-B(80)-B(105)-B(109)-B(111)-B(113)-B(119)-B(121)-B(123)-B(129)-B(131)-B(139)& + &-B(149)-B(157)-B(163)-B(172)-B(174)-B(176)-B(178)-B(180)-B(182)-B(184)-B(186)-B(188)-B(190)-B(192)-B(209)& + &-B(237)-B(244)-B(301)-B(399)-B(465)-B(480)-B(581)-B(644)-B(666)-B(682)-B(694)-B(708)-B(738)-B(752)-B(765)& + &-B(777)-B(789)-B(791)-B(803)-B(825)-B(841)-B(854)-B(856)-B(902)-B(904)-B(986)-B(988)-B(990)-B(992)-B(994)& + &-B(996)-B(998)-B(1000)-B(1033)-B(1035)-B(1040)-B(1042)-B(1047)-B(1049)-B(1067)-B(1069)-B(1073)-B(1075)& + &-B(1081)-B(1083)-B(1086)-B(1090)-B(1117)-B(1119)-B(1124)-B(1126)-B(1132)-B(1134)-B(1138)-B(1140)-B(1144)& + &-B(1146)-B(1170)-B(1172)-B(1174)-B(1176)-B(1203)-B(1205)-B(1207)-B(1209)-B(1215)-B(1221)-B(1247)-B(1253)& + &-B(1273)-B(1275)-B(1284)-B(1286)-B(1288)-B(1294)-B(1353)-B(1367)-B(1390)-B(1400)-B(1406)-B(1435)-B(1446)& + &-B(1760) IF (DO_JVS(4147)) & -! JVS(4147) = Jac_FULL(335,281) - JVS(4147) = 0.75*B(802)+B(804) +! JVS(4147) = Jac_FULL(338,339) + JVS(4147) = 0 IF (DO_JVS(4148)) & -! JVS(4148) = Jac_FULL(335,284) - JVS(4148) = -B(652)+B(681) +! JVS(4148) = Jac_FULL(338,340) + JVS(4148) = 0 IF (DO_JVS(4149)) & -! JVS(4149) = Jac_FULL(335,285) - JVS(4149) = B(1072) +! JVS(4149) = Jac_FULL(338,341) + JVS(4149) = -B(43) IF (DO_JVS(4150)) & -! JVS(4150) = Jac_FULL(335,286) - JVS(4150) = B(1066) +! JVS(4150) = Jac_FULL(338,342) + JVS(4150) = 0 IF (DO_JVS(4151)) & -! JVS(4151) = Jac_FULL(335,289) - JVS(4151) = 2*B(903)+0.5*B(911)+B(915)+2*B(919)+0.5*B(923)+B(924) +! JVS(4151) = Jac_FULL(338,343) + JVS(4151) = -B(70) IF (DO_JVS(4152)) & -! JVS(4152) = Jac_FULL(335,290) - JVS(4152) = 0 +! JVS(4152) = Jac_FULL(338,344) + JVS(4152) = -B(582) IF (DO_JVS(4153)) & -! JVS(4153) = Jac_FULL(335,291) - JVS(4153) = B(855)+B(857) +! JVS(4153) = Jac_FULL(338,345) + JVS(4153) = B(91)+B(461)+B(1657) IF (DO_JVS(4154)) & -! JVS(4154) = Jac_FULL(335,293) - JVS(4154) = B(1143) +! JVS(4154) = Jac_FULL(338,346) + JVS(4154) = 0 IF (DO_JVS(4155)) & -! JVS(4155) = Jac_FULL(335,296) - JVS(4155) = B(108) +! JVS(4155) = Jac_FULL(338,347) + JVS(4155) = -B(400) IF (DO_JVS(4156)) & -! JVS(4156) = Jac_FULL(335,297) - JVS(4156) = B(543)+B(1706) +! JVS(4156) = Jac_FULL(338,348) + JVS(4156) = -B(81)+B(92)+B(1667) IF (DO_JVS(4157)) & -! JVS(4157) = Jac_FULL(335,299) - JVS(4157) = 0.565*B(1218)+1.555*B(1791) +! JVS(4157) = Jac_FULL(338,349) + JVS(4157) = 0 IF (DO_JVS(4158)) & -! JVS(4158) = Jac_FULL(335,300) - JVS(4158) = B(171) +! JVS(4158) = Jac_FULL(338,350) + JVS(4158) = 0 IF (DO_JVS(4159)) & -! JVS(4159) = Jac_FULL(335,301) - JVS(4159) = B(1210)+B(1790) +! JVS(4159) = Jac_FULL(338,351) + JVS(4159) = B(462)-B(466) IF (DO_JVS(4160)) & -! JVS(4160) = Jac_FULL(335,302) - JVS(4160) = 0.31*B(1236)+0.7*B(1772) +! JVS(4160) = Jac_FULL(338,352) + JVS(4160) = 0 IF (DO_JVS(4161)) & -! JVS(4161) = Jac_FULL(335,303) - JVS(4161) = 0.022*B(1316)+0.3*B(1797)+B(1798) +! JVS(4161) = Jac_FULL(338,353) + JVS(4161) = 0 IF (DO_JVS(4162)) & -! JVS(4162) = Jac_FULL(335,304) - JVS(4162) = B(995)+B(999) +! JVS(4162) = Jac_FULL(338,354) + JVS(4162) = 0 IF (DO_JVS(4163)) & -! JVS(4163) = Jac_FULL(335,305) - JVS(4163) = B(987)+B(991) +! JVS(4163) = Jac_FULL(338,355) + JVS(4163) = 0 IF (DO_JVS(4164)) & -! JVS(4164) = Jac_FULL(335,306) - JVS(4164) = 0 +! JVS(4164) = Jac_FULL(338,356) + JVS(4164) = -B(27) IF (DO_JVS(4165)) & -! JVS(4165) = Jac_FULL(335,308) - JVS(4165) = 0.5*B(1291)+2*B(1293)+2*B(1297)+0.7*B(1299) +! JVS(4165) = Jac_FULL(339,183) + JVS(4165) = B(4) IF (DO_JVS(4166)) & -! JVS(4166) = Jac_FULL(335,309) - JVS(4166) = 0 +! JVS(4166) = Jac_FULL(339,217) + JVS(4166) = -B(1501) IF (DO_JVS(4167)) & -! JVS(4167) = Jac_FULL(335,310) - JVS(4167) = 0.527*B(1149)+1.86*B(1153)+0.563*B(1154)+0.611*B(1159)+B(1161)+2*B(1165)+2*B(1169) +! JVS(4167) = Jac_FULL(339,254) + JVS(4167) = -B(1595) IF (DO_JVS(4168)) & -! JVS(4168) = Jac_FULL(335,311) - JVS(4168) = 0.563*B(1155)+B(1167)+B(1173) +! JVS(4168) = Jac_FULL(339,287) + JVS(4168) = -B(1611) IF (DO_JVS(4169)) & -! JVS(4169) = Jac_FULL(335,312) - JVS(4169) = B(693)-B(695) +! JVS(4169) = Jac_FULL(339,296) + JVS(4169) = -B(1603) IF (DO_JVS(4170)) & -! JVS(4170) = Jac_FULL(335,313) - JVS(4170) = B(183) +! JVS(4170) = Jac_FULL(339,301) + JVS(4170) = -B(1527) IF (DO_JVS(4171)) & -! JVS(4171) = Jac_FULL(335,314) - JVS(4171) = 0 +! JVS(4171) = Jac_FULL(339,320) + JVS(4171) = -B(1553) IF (DO_JVS(4172)) & -! JVS(4172) = Jac_FULL(335,315) - JVS(4172) = B(112) +! JVS(4172) = Jac_FULL(339,321) + JVS(4172) = -B(1523) IF (DO_JVS(4173)) & -! JVS(4173) = Jac_FULL(335,317) - JVS(4173) = B(1708) +! JVS(4173) = Jac_FULL(339,331) + JVS(4173) = 0 IF (DO_JVS(4174)) & -! JVS(4174) = Jac_FULL(335,318) - JVS(4174) = 2*B(181)+B(255)+B(359) +! JVS(4174) = Jac_FULL(339,332) + JVS(4174) = -B(1543) IF (DO_JVS(4175)) & -! JVS(4175) = Jac_FULL(335,319) - JVS(4175) = B(177) +! JVS(4175) = Jac_FULL(339,333) + JVS(4175) = 0 IF (DO_JVS(4176)) & -! JVS(4176) = Jac_FULL(335,320) - JVS(4176) = 0.928*B(185)+0.93*B(236) +! JVS(4176) = Jac_FULL(339,334) + JVS(4176) = 0 IF (DO_JVS(4177)) & -! JVS(4177) = Jac_FULL(335,321) - JVS(4177) = B(118) +! JVS(4177) = Jac_FULL(339,335) + JVS(4177) = 0 IF (DO_JVS(4178)) & -! JVS(4178) = Jac_FULL(335,322) - JVS(4178) = -B(203)+B(208) +! JVS(4178) = Jac_FULL(339,336) + JVS(4178) = 0 IF (DO_JVS(4179)) & -! JVS(4179) = Jac_FULL(335,323) - JVS(4179) = B(187) +! JVS(4179) = Jac_FULL(339,337) + JVS(4179) = 0 IF (DO_JVS(4180)) & -! JVS(4180) = Jac_FULL(335,324) - JVS(4180) = -B(99)+B(104)+B(360)+B(362)+B(364)+B(916)+B(1162) +! JVS(4180) = Jac_FULL(339,338) + JVS(4180) = 0 IF (DO_JVS(4181)) & -! JVS(4181) = Jac_FULL(335,326) - JVS(4181) = 0 +! JVS(4181) = Jac_FULL(339,339) + JVS(4181) = -B(1502)-B(1505)-B(1524)-B(1528)-B(1544)-B(1554)-B(1596)-B(1604)-B(1612) IF (DO_JVS(4182)) & -! JVS(4182) = Jac_FULL(335,327) - JVS(4182) = B(1649) +! JVS(4182) = Jac_FULL(339,340) + JVS(4182) = B(5) IF (DO_JVS(4183)) & -! JVS(4183) = Jac_FULL(335,328) - JVS(4183) = B(49)+B(256)+B(260)+B(268)-B(378)+0.5*B(912)+0.611*B(1160)+0.7*B(1300)+B(1487) +! JVS(4183) = Jac_FULL(339,341) + JVS(4183) = 0 IF (DO_JVS(4184)) & -! JVS(4184) = Jac_FULL(335,329) +! JVS(4184) = Jac_FULL(339,342) JVS(4184) = 0 IF (DO_JVS(4185)) & -! JVS(4185) = Jac_FULL(335,330) - JVS(4185) = 0 +! JVS(4185) = Jac_FULL(339,343) + JVS(4185) = -B(1506) IF (DO_JVS(4186)) & -! JVS(4186) = Jac_FULL(335,331) - JVS(4186) = -B(646) +! JVS(4186) = Jac_FULL(339,344) + JVS(4186) = 0 IF (DO_JVS(4187)) & -! JVS(4187) = Jac_FULL(335,332) - JVS(4187) = B(654) +! JVS(4187) = Jac_FULL(339,345) + JVS(4187) = 0 IF (DO_JVS(4188)) & -! JVS(4188) = Jac_FULL(335,334) +! JVS(4188) = Jac_FULL(339,346) JVS(4188) = 0 IF (DO_JVS(4189)) & -! JVS(4189) = Jac_FULL(335,335) - JVS(4189) = -B(32)-B(65)-B(73)-B(84)-B(100)-B(165)-B(204)-B(239)-B(298)-B(379)-B(423)-B(425)-B(461)-B(467)-B(482)& - &-B(583)-B(647)-B(653)-B(696)-B(710)-B(754)-B(843)-B(1251)-B(1257)-B(1290)-B(1410)-B(1437)-B(1444)-B(1456)& - &-B(1492)-B(1644) +! JVS(4189) = Jac_FULL(339,347) + JVS(4189) = 0 IF (DO_JVS(4190)) & -! JVS(4190) = Jac_FULL(335,336) +! JVS(4190) = Jac_FULL(339,348) JVS(4190) = 0 IF (DO_JVS(4191)) & -! JVS(4191) = Jac_FULL(335,337) - JVS(4191) = B(42)-B(74)+B(78)+0.459*B(1115)+0.527*B(1150)+0.058*B(1199)+0.09*B(1223)+0.5*B(1292) +! JVS(4191) = Jac_FULL(339,349) + JVS(4191) = 0 IF (DO_JVS(4192)) & -! JVS(4192) = Jac_FULL(335,338) - JVS(4192) = B(581)-B(584) +! JVS(4192) = Jac_FULL(339,350) + JVS(4192) = 0 IF (DO_JVS(4193)) & -! JVS(4193) = Jac_FULL(335,339) +! JVS(4193) = Jac_FULL(339,351) JVS(4193) = 0 IF (DO_JVS(4194)) & -! JVS(4194) = Jac_FULL(335,340) +! JVS(4194) = Jac_FULL(339,352) JVS(4194) = 0 IF (DO_JVS(4195)) & -! JVS(4195) = Jac_FULL(335,341) - JVS(4195) = B(26)-B(33)+0.5*B(821)+0.3*B(868) +! JVS(4195) = Jac_FULL(339,353) + JVS(4195) = 0 IF (DO_JVS(4196)) & -! JVS(4196) = Jac_FULL(335,342) - JVS(4196) = B(411)-B(424) +! JVS(4196) = Jac_FULL(339,354) + JVS(4196) = 0 IF (DO_JVS(4197)) & -! JVS(4197) = Jac_FULL(335,343) - JVS(4197) = -B(462)+B(463)+B(465)-B(468) +! JVS(4197) = Jac_FULL(339,355) + JVS(4197) = 0 IF (DO_JVS(4198)) & -! JVS(4198) = Jac_FULL(335,344) +! JVS(4198) = Jac_FULL(339,356) JVS(4198) = 0 IF (DO_JVS(4199)) & -! JVS(4199) = Jac_FULL(335,345) - JVS(4199) = -B(66)+B(72)+B(77)+B(82)+B(103)+B(153)+B(207)+B(242)+B(307)+B(544)+B(688)+B(690)+0.5*B(744)+0.5*B(773)+0.5& - &*B(781)+0.5*B(799)+0.5*B(819)+0.5*B(837)+0.3*B(866)+B(940)+B(942)+B(944)+B(946)+B(1096)+B(1100)+B(1102)& - &+B(1106)+B(1189)+B(1211)+0.565*B(1219)+0.31*B(1237)+B(1315)+0.022*B(1317)+B(1357)+B(1376)+B(1413)+B(1442)& - &+0.5*B(1458) +! JVS(4199) = Jac_FULL(340,80) + JVS(4199) = B(607) IF (DO_JVS(4200)) & -! JVS(4200) = Jac_FULL(335,346) - JVS(4200) = B(27)+B(43)+B(50)+2*B(80)+B(105)+B(109)+B(113)+B(119)+B(123)+B(129)+2*B(139)+0.942*B(149)+B(157)+B(163)& - &+B(172)+2*B(176)+B(178)+2*B(182)+B(184)+0.928*B(186)+B(188)+2*B(192)+B(209)+0.93*B(237)+B(244)+B(301)& - &+B(399)+B(466)+B(582)+B(666)+B(682)+B(694)+B(708)+0.75*B(738)+B(752)+0.84*B(765)+0.75*B(777)+B(791)+0.75& - &*B(803)+0.84*B(825)+B(841)+B(856)+B(902)+2*B(904)+B(988)+B(992)+B(996)+B(1000)+B(1033)+B(1040)+B(1047)& - &+B(1067)+B(1073)+B(1083)+B(1086)+B(1090)+1.728*B(1117)+B(1124)+B(1132)+B(1138)+B(1144)+2*B(1170)+B(1174)& - &+1.065*B(1203)+B(1207)+B(1215)+1.11*B(1221)+B(1247)+B(1253)+B(1273)+B(1284)+B(1288)+2*B(1294)+0.89*B(1353)& - &+0.995*B(1367)+B(1390)+B(1400)+B(1406)+B(1435)+B(1446) +! JVS(4200) = Jac_FULL(340,84) + JVS(4200) = B(609) IF (DO_JVS(4201)) & -! JVS(4201) = Jac_FULL(335,347) - JVS(4201) = B(400)-B(426) +! JVS(4201) = Jac_FULL(340,142) + JVS(4201) = B(629)+B(631) IF (DO_JVS(4202)) & -! JVS(4202) = Jac_FULL(335,348) - JVS(4202) = 0 +! JVS(4202) = Jac_FULL(340,144) + JVS(4202) = B(637) IF (DO_JVS(4203)) & -! JVS(4203) = Jac_FULL(335,349) - JVS(4203) = 0 +! JVS(4203) = Jac_FULL(340,154) + JVS(4203) = B(625) IF (DO_JVS(4204)) & -! JVS(4204) = Jac_FULL(335,350) - JVS(4204) = 0 +! JVS(4204) = Jac_FULL(340,167) + JVS(4204) = B(615) IF (DO_JVS(4205)) & -! JVS(4205) = Jac_FULL(335,351) - JVS(4205) = B(79)+2*B(81)+B(83)-B(85)+B(145)+B(305)+2*B(377)+B(412)+B(464)+B(740)+B(757)+B(767)+B(779)+B(795)+B(805)& - &+B(823)+B(829)+B(835)+B(846)+B(858)+0.5*B(864)+1.15*B(870)+0.5*B(876)+B(918)+2*B(920)+2*B(1166)+B(1168)+2& - &*B(1298)+B(1319)+B(1341)+B(1369)+B(1392)+B(1448)+B(1460)+B(1488)+B(1653) +! JVS(4205) = Jac_FULL(340,169) + JVS(4205) = -B(11) IF (DO_JVS(4206)) & -! JVS(4206) = Jac_FULL(335,352) - JVS(4206) = 0 +! JVS(4206) = Jac_FULL(340,183) + JVS(4206) = -B(4) IF (DO_JVS(4207)) & -! JVS(4207) = Jac_FULL(335,353) - JVS(4207) = 0 +! JVS(4207) = Jac_FULL(340,184) + JVS(4207) = 2*B(605) IF (DO_JVS(4208)) & -! JVS(4208) = Jac_FULL(336,43) - JVS(4208) = B(553) +! JVS(4208) = Jac_FULL(340,187) + JVS(4208) = B(617) IF (DO_JVS(4209)) & -! JVS(4209) = Jac_FULL(336,52) - JVS(4209) = B(685) +! JVS(4209) = Jac_FULL(340,217) + JVS(4209) = -B(1498) IF (DO_JVS(4210)) & -! JVS(4210) = Jac_FULL(336,73) - JVS(4210) = B(675) +! JVS(4210) = Jac_FULL(340,221) + JVS(4210) = -B(1511) IF (DO_JVS(4211)) & -! JVS(4211) = Jac_FULL(336,84) - JVS(4211) = B(561) +! JVS(4211) = Jac_FULL(340,232) + JVS(4211) = B(563) IF (DO_JVS(4212)) & -! JVS(4212) = Jac_FULL(336,85) - JVS(4212) = B(557) +! JVS(4212) = Jac_FULL(340,267) + JVS(4212) = B(571) IF (DO_JVS(4213)) & -! JVS(4213) = Jac_FULL(336,86) - JVS(4213) = B(559) +! JVS(4213) = Jac_FULL(340,268) + JVS(4213) = B(611) IF (DO_JVS(4214)) & -! JVS(4214) = Jac_FULL(336,87) - JVS(4214) = B(555) +! JVS(4214) = Jac_FULL(340,272) + JVS(4214) = 0 IF (DO_JVS(4215)) & -! JVS(4215) = Jac_FULL(336,105) - JVS(4215) = B(431) +! JVS(4215) = Jac_FULL(340,279) + JVS(4215) = B(635) IF (DO_JVS(4216)) & -! JVS(4216) = Jac_FULL(336,108) - JVS(4216) = B(76) +! JVS(4216) = Jac_FULL(340,285) + JVS(4216) = B(623) IF (DO_JVS(4217)) & -! JVS(4217) = Jac_FULL(336,116) - JVS(4217) = B(1687) +! JVS(4217) = Jac_FULL(340,286) + JVS(4217) = B(627) IF (DO_JVS(4218)) & -! JVS(4218) = Jac_FULL(336,164) - JVS(4218) = B(59) +! JVS(4218) = Jac_FULL(340,292) + JVS(4218) = 0 IF (DO_JVS(4219)) & -! JVS(4219) = Jac_FULL(336,173) - JVS(4219) = B(1336) +! JVS(4219) = Jac_FULL(340,293) + JVS(4219) = B(639) IF (DO_JVS(4220)) & -! JVS(4220) = Jac_FULL(336,181) - JVS(4220) = B(547) +! JVS(4220) = Jac_FULL(340,294) + JVS(4220) = 0 IF (DO_JVS(4221)) & -! JVS(4221) = Jac_FULL(336,183) - JVS(4221) = B(106) +! JVS(4221) = Jac_FULL(340,297) + JVS(4221) = B(633) IF (DO_JVS(4222)) & -! JVS(4222) = Jac_FULL(336,189) +! JVS(4222) = Jac_FULL(340,300) JVS(4222) = 0 IF (DO_JVS(4223)) & -! JVS(4223) = Jac_FULL(336,196) - JVS(4223) = B(136) +! JVS(4223) = Jac_FULL(340,301) + JVS(4223) = -B(1531) IF (DO_JVS(4224)) & -! JVS(4224) = Jac_FULL(336,200) +! JVS(4224) = Jac_FULL(340,304) JVS(4224) = 0 IF (DO_JVS(4225)) & -! JVS(4225) = Jac_FULL(336,201) +! JVS(4225) = Jac_FULL(340,305) JVS(4225) = 0 IF (DO_JVS(4226)) & -! JVS(4226) = Jac_FULL(336,214) - JVS(4226) = -B(1496) +! JVS(4226) = Jac_FULL(340,306) + JVS(4226) = 0 IF (DO_JVS(4227)) & -! JVS(4227) = Jac_FULL(336,217) - JVS(4227) = 0.02*B(475) +! JVS(4227) = Jac_FULL(340,307) + JVS(4227) = 0 IF (DO_JVS(4228)) & -! JVS(4228) = Jac_FULL(336,218) - JVS(4228) = -B(1509) +! JVS(4228) = Jac_FULL(340,308) + JVS(4228) = 0 IF (DO_JVS(4229)) & -! JVS(4229) = Jac_FULL(336,220) +! JVS(4229) = Jac_FULL(340,309) JVS(4229) = 0 IF (DO_JVS(4230)) & -! JVS(4230) = Jac_FULL(336,221) +! JVS(4230) = Jac_FULL(340,310) JVS(4230) = 0 IF (DO_JVS(4231)) & -! JVS(4231) = Jac_FULL(336,228) - JVS(4231) = B(47) +! JVS(4231) = Jac_FULL(340,311) + JVS(4231) = 0 IF (DO_JVS(4232)) & -! JVS(4232) = Jac_FULL(336,239) - JVS(4232) = B(71) +! JVS(4232) = Jac_FULL(340,312) + JVS(4232) = 0 IF (DO_JVS(4233)) & -! JVS(4233) = Jac_FULL(336,240) +! JVS(4233) = Jac_FULL(340,313) JVS(4233) = 0 IF (DO_JVS(4234)) & -! JVS(4234) = Jac_FULL(336,241) - JVS(4234) = -B(713)-B(715) +! JVS(4234) = Jac_FULL(340,314) + JVS(4234) = 0 IF (DO_JVS(4235)) & -! JVS(4235) = Jac_FULL(336,244) - JVS(4235) = B(61) +! JVS(4235) = Jac_FULL(340,315) + JVS(4235) = 0 IF (DO_JVS(4236)) & -! JVS(4236) = Jac_FULL(336,246) +! JVS(4236) = Jac_FULL(340,316) JVS(4236) = 0 IF (DO_JVS(4237)) & -! JVS(4237) = Jac_FULL(336,251) - JVS(4237) = B(195) +! JVS(4237) = Jac_FULL(340,317) + JVS(4237) = 0 IF (DO_JVS(4238)) & -! JVS(4238) = Jac_FULL(336,252) +! JVS(4238) = Jac_FULL(340,318) JVS(4238) = 0 IF (DO_JVS(4239)) & -! JVS(4239) = Jac_FULL(336,264) - JVS(4239) = B(40) +! JVS(4239) = Jac_FULL(340,319) + JVS(4239) = 0 IF (DO_JVS(4240)) & -! JVS(4240) = Jac_FULL(336,265) - JVS(4240) = B(87)+B(611) +! JVS(4240) = Jac_FULL(340,320) + JVS(4240) = -B(1551) IF (DO_JVS(4241)) & -! JVS(4241) = Jac_FULL(336,269) - JVS(4241) = 0 +! JVS(4241) = Jac_FULL(340,321) + JVS(4241) = -B(1515) IF (DO_JVS(4242)) & -! JVS(4242) = Jac_FULL(336,271) +! JVS(4242) = Jac_FULL(340,322) JVS(4242) = 0 IF (DO_JVS(4243)) & -! JVS(4243) = Jac_FULL(336,276) +! JVS(4243) = Jac_FULL(340,323) JVS(4243) = 0 IF (DO_JVS(4244)) & -! JVS(4244) = Jac_FULL(336,279) - JVS(4244) = B(197) +! JVS(4244) = Jac_FULL(340,324) + JVS(4244) = 0 IF (DO_JVS(4245)) & -! JVS(4245) = Jac_FULL(336,283) - JVS(4245) = B(199) +! JVS(4245) = Jac_FULL(340,325) + JVS(4245) = 0 IF (DO_JVS(4246)) & -! JVS(4246) = Jac_FULL(336,287) +! JVS(4246) = Jac_FULL(340,326) JVS(4246) = 0 IF (DO_JVS(4247)) & -! JVS(4247) = Jac_FULL(336,289) +! JVS(4247) = Jac_FULL(340,327) JVS(4247) = 0 IF (DO_JVS(4248)) & -! JVS(4248) = Jac_FULL(336,290) +! JVS(4248) = Jac_FULL(340,328) JVS(4248) = 0 IF (DO_JVS(4249)) & -! JVS(4249) = Jac_FULL(336,291) - JVS(4249) = 0 +! JVS(4249) = Jac_FULL(340,329) + JVS(4249) = B(565) IF (DO_JVS(4250)) & -! JVS(4250) = Jac_FULL(336,292) - JVS(4250) = B(234) +! JVS(4250) = Jac_FULL(340,330) + JVS(4250) = 0 IF (DO_JVS(4251)) & -! JVS(4251) = Jac_FULL(336,295) - JVS(4251) = B(212) +! JVS(4251) = Jac_FULL(340,332) + JVS(4251) = -B(1539)+B(1547) IF (DO_JVS(4252)) & -! JVS(4252) = Jac_FULL(336,296) +! JVS(4252) = Jac_FULL(340,333) JVS(4252) = 0 IF (DO_JVS(4253)) & -! JVS(4253) = Jac_FULL(336,297) +! JVS(4253) = Jac_FULL(340,334) JVS(4253) = 0 IF (DO_JVS(4254)) & -! JVS(4254) = Jac_FULL(336,298) - JVS(4254) = B(201) +! JVS(4254) = Jac_FULL(340,335) + JVS(4254) = 0 IF (DO_JVS(4255)) & -! JVS(4255) = Jac_FULL(336,300) +! JVS(4255) = Jac_FULL(340,336) JVS(4255) = 0 IF (DO_JVS(4256)) & -! JVS(4256) = Jac_FULL(336,301) - JVS(4256) = 0 +! JVS(4256) = Jac_FULL(340,337) + JVS(4256) = -0.88*B(487) IF (DO_JVS(4257)) & -! JVS(4257) = Jac_FULL(336,302) +! JVS(4257) = Jac_FULL(340,338) JVS(4257) = 0 IF (DO_JVS(4258)) & -! JVS(4258) = Jac_FULL(336,303) +! JVS(4258) = Jac_FULL(340,339) JVS(4258) = 0 IF (DO_JVS(4259)) & -! JVS(4259) = Jac_FULL(336,304) - JVS(4259) = 0 +! JVS(4259) = Jac_FULL(340,340) + JVS(4259) = -B(5)-B(12)-0.88*B(488)-B(539)-B(1499)-B(1512)-B(1516)-B(1532)-B(1540)-B(1552) IF (DO_JVS(4260)) & -! JVS(4260) = Jac_FULL(336,305) - JVS(4260) = 0 +! JVS(4260) = Jac_FULL(340,341) + JVS(4260) = B(573) IF (DO_JVS(4261)) & -! JVS(4261) = Jac_FULL(336,306) +! JVS(4261) = Jac_FULL(340,342) JVS(4261) = 0 IF (DO_JVS(4262)) & -! JVS(4262) = Jac_FULL(336,307) - JVS(4262) = 0 +! JVS(4262) = Jac_FULL(340,343) + JVS(4262) = B(533)-B(540) IF (DO_JVS(4263)) & -! JVS(4263) = Jac_FULL(336,308) - JVS(4263) = 0 +! JVS(4263) = Jac_FULL(340,344) + JVS(4263) = B(534) IF (DO_JVS(4264)) & -! JVS(4264) = Jac_FULL(336,309) +! JVS(4264) = Jac_FULL(340,345) JVS(4264) = 0 IF (DO_JVS(4265)) & -! JVS(4265) = Jac_FULL(336,310) +! JVS(4265) = Jac_FULL(340,346) JVS(4265) = 0 IF (DO_JVS(4266)) & -! JVS(4266) = Jac_FULL(336,311) +! JVS(4266) = Jac_FULL(340,347) JVS(4266) = 0 IF (DO_JVS(4267)) & -! JVS(4267) = Jac_FULL(336,312) - JVS(4267) = -B(697)-2*B(699) +! JVS(4267) = Jac_FULL(340,348) + JVS(4267) = 0 IF (DO_JVS(4268)) & -! JVS(4268) = Jac_FULL(336,313) +! JVS(4268) = Jac_FULL(340,349) JVS(4268) = 0 IF (DO_JVS(4269)) & -! JVS(4269) = Jac_FULL(336,314) +! JVS(4269) = Jac_FULL(340,350) JVS(4269) = 0 IF (DO_JVS(4270)) & -! JVS(4270) = Jac_FULL(336,315) +! JVS(4270) = Jac_FULL(340,351) JVS(4270) = 0 IF (DO_JVS(4271)) & -! JVS(4271) = Jac_FULL(336,316) - JVS(4271) = B(1549)+B(1551)+B(1553)+B(1555) +! JVS(4271) = Jac_FULL(340,352) + JVS(4271) = B(564)+B(566)+B(569)+B(572)+B(574)+2*B(606)+B(608)+B(610)+B(612)+B(616)+B(618)+B(624)+B(626)+B(628)+B(630)& + &+B(632)+B(634)+B(636)+B(638)+B(640) IF (DO_JVS(4272)) & -! JVS(4272) = Jac_FULL(336,317) - JVS(4272) = -B(1513) +! JVS(4272) = Jac_FULL(340,353) + JVS(4272) = 0 IF (DO_JVS(4273)) & -! JVS(4273) = Jac_FULL(336,318) +! JVS(4273) = Jac_FULL(340,354) JVS(4273) = 0 IF (DO_JVS(4274)) & -! JVS(4274) = Jac_FULL(336,319) - JVS(4274) = 0 +! JVS(4274) = Jac_FULL(340,355) + JVS(4274) = B(1548) IF (DO_JVS(4275)) & -! JVS(4275) = Jac_FULL(336,320) +! JVS(4275) = Jac_FULL(340,356) JVS(4275) = 0 IF (DO_JVS(4276)) & -! JVS(4276) = Jac_FULL(336,321) - JVS(4276) = 0 +! JVS(4276) = Jac_FULL(341,63) + JVS(4276) = 0.364*B(1362) IF (DO_JVS(4277)) & -! JVS(4277) = Jac_FULL(336,322) - JVS(4277) = 0 +! JVS(4277) = Jac_FULL(341,74) + JVS(4277) = B(308) IF (DO_JVS(4278)) & -! JVS(4278) = Jac_FULL(336,323) - JVS(4278) = 0 +! JVS(4278) = Jac_FULL(341,80) + JVS(4278) = B(549)+B(607) IF (DO_JVS(4279)) & -! JVS(4279) = Jac_FULL(336,324) - JVS(4279) = 0 +! JVS(4279) = Jac_FULL(341,83) + JVS(4279) = B(1754) IF (DO_JVS(4280)) & -! JVS(4280) = Jac_FULL(336,325) - JVS(4280) = B(63) +! JVS(4280) = Jac_FULL(341,84) + JVS(4280) = B(551)+B(609) IF (DO_JVS(4281)) & -! JVS(4281) = Jac_FULL(336,326) - JVS(4281) = B(95) +! JVS(4281) = Jac_FULL(341,85) + JVS(4281) = 0.19*B(1383) IF (DO_JVS(4282)) & -! JVS(4282) = Jac_FULL(336,327) - JVS(4282) = B(67) +! JVS(4282) = Jac_FULL(341,86) + JVS(4282) = B(1771) IF (DO_JVS(4283)) & -! JVS(4283) = Jac_FULL(336,328) - JVS(4283) = 0 +! JVS(4283) = Jac_FULL(341,92) + JVS(4283) = 0.5*B(1322) IF (DO_JVS(4284)) & -! JVS(4284) = Jac_FULL(336,329) - JVS(4284) = 0 +! JVS(4284) = Jac_FULL(341,94) + JVS(4284) = B(1772) IF (DO_JVS(4285)) & -! JVS(4285) = Jac_FULL(336,330) - JVS(4285) = B(677) +! JVS(4285) = Jac_FULL(341,96) + JVS(4285) = B(1770) IF (DO_JVS(4286)) & -! JVS(4286) = Jac_FULL(336,331) - JVS(4286) = 0 +! JVS(4286) = Jac_FULL(341,97) + JVS(4286) = B(1773) IF (DO_JVS(4287)) & -! JVS(4287) = Jac_FULL(336,332) - JVS(4287) = -B(1589) +! JVS(4287) = Jac_FULL(341,99) + JVS(4287) = B(1693) IF (DO_JVS(4288)) & -! JVS(4288) = Jac_FULL(336,333) - JVS(4288) = B(541)+B(1539)+B(1541)+B(1543)+B(1545) +! JVS(4288) = Jac_FULL(341,100) + JVS(4288) = B(1694) IF (DO_JVS(4289)) & -! JVS(4289) = Jac_FULL(336,334) - JVS(4289) = -B(433) +! JVS(4289) = Jac_FULL(341,101) + JVS(4289) = B(1691) IF (DO_JVS(4290)) & -! JVS(4290) = Jac_FULL(336,335) - JVS(4290) = 0 +! JVS(4290) = Jac_FULL(341,102) + JVS(4290) = B(1692) IF (DO_JVS(4291)) & -! JVS(4291) = Jac_FULL(336,336) - JVS(4291) = -B(434)-B(698)-2*B(700)-B(714)-B(716)-B(1497)-B(1510)-B(1514)-B(1590) +! JVS(4291) = Jac_FULL(341,103) + JVS(4291) = 0.15*B(1385) IF (DO_JVS(4292)) & -! JVS(4292) = Jac_FULL(336,337) - JVS(4292) = B(38)+0.02*B(476)+B(1491) +! JVS(4292) = Jac_FULL(341,104) + JVS(4292) = B(1695) IF (DO_JVS(4293)) & -! JVS(4293) = Jac_FULL(336,338) - JVS(4293) = 0 +! JVS(4293) = Jac_FULL(341,108) + JVS(4293) = B(431) IF (DO_JVS(4294)) & -! JVS(4294) = Jac_FULL(336,339) - JVS(4294) = B(539)+B(1540)+B(1552) +! JVS(4294) = Jac_FULL(341,110) + JVS(4294) = B(75)+B(1665) IF (DO_JVS(4295)) & -! JVS(4295) = Jac_FULL(336,340) - JVS(4295) = B(612) +! JVS(4295) = Jac_FULL(341,111) + JVS(4295) = B(1820) IF (DO_JVS(4296)) & -! JVS(4296) = Jac_FULL(336,341) - JVS(4296) = 0 +! JVS(4296) = Jac_FULL(341,112) + JVS(4296) = B(1825) IF (DO_JVS(4297)) & -! JVS(4297) = Jac_FULL(336,342) - JVS(4297) = 0 +! JVS(4297) = Jac_FULL(341,114) + JVS(4297) = B(1372)+B(1373) IF (DO_JVS(4298)) & -! JVS(4298) = Jac_FULL(336,343) - JVS(4298) = 0 +! JVS(4298) = Jac_FULL(341,116) + JVS(4298) = B(1776) IF (DO_JVS(4299)) & -! JVS(4299) = Jac_FULL(336,344) - JVS(4299) = B(1546)+B(1556) +! JVS(4299) = Jac_FULL(341,117) + JVS(4299) = B(1356)+B(1700) IF (DO_JVS(4300)) & -! JVS(4300) = Jac_FULL(336,345) - JVS(4300) = B(36)+B(39)+B(41)+B(48)+B(60)+B(62)+B(64)+B(68)+B(72)+B(77)+B(88)+B(96)+B(107)+B(137)+B(196)+B(198)+B(200)& - &+B(202)+B(213)+B(235)+B(395)+B(432)+B(449)+B(540)+B(542)+B(548)+B(554)+B(556)+B(558)+B(560)+B(562)+B(676)& - &+B(678)+B(686)+B(1337) +! JVS(4300) = Jac_FULL(341,121) + JVS(4300) = B(1690) IF (DO_JVS(4301)) & -! JVS(4301) = Jac_FULL(336,346) - JVS(4301) = 0 +! JVS(4301) = Jac_FULL(341,122) + JVS(4301) = B(1013) IF (DO_JVS(4302)) & -! JVS(4302) = Jac_FULL(336,347) - JVS(4302) = 0 +! JVS(4302) = Jac_FULL(341,124) + JVS(4302) = B(1399)-B(1401) IF (DO_JVS(4303)) & -! JVS(4303) = Jac_FULL(336,348) - JVS(4303) = 0 +! JVS(4303) = Jac_FULL(341,126) + JVS(4303) = B(1696) IF (DO_JVS(4304)) & -! JVS(4304) = Jac_FULL(336,349) - JVS(4304) = 0 +! JVS(4304) = Jac_FULL(341,128) + JVS(4304) = B(1689) IF (DO_JVS(4305)) & -! JVS(4305) = Jac_FULL(336,350) - JVS(4305) = 0 +! JVS(4305) = Jac_FULL(341,130) + JVS(4305) = B(152) IF (DO_JVS(4306)) & -! JVS(4306) = Jac_FULL(336,351) - JVS(4306) = 0 +! JVS(4306) = Jac_FULL(341,131) + JVS(4306) = 0.75*B(1052) IF (DO_JVS(4307)) & -! JVS(4307) = Jac_FULL(336,352) - JVS(4307) = B(396)+B(1542)+B(1550) +! JVS(4307) = Jac_FULL(341,133) + JVS(4307) = B(156) IF (DO_JVS(4308)) & -! JVS(4308) = Jac_FULL(336,353) - JVS(4308) = B(1544)+B(1554) +! JVS(4308) = Jac_FULL(341,135) + JVS(4308) = B(1262) IF (DO_JVS(4309)) & -! JVS(4309) = Jac_FULL(337,60) - JVS(4309) = 0.364*B(1362) +! JVS(4309) = Jac_FULL(341,136) + JVS(4309) = -B(1091) IF (DO_JVS(4310)) & -! JVS(4310) = Jac_FULL(337,72) - JVS(4310) = B(308) +! JVS(4310) = Jac_FULL(341,137) + JVS(4310) = -B(1087) IF (DO_JVS(4311)) & -! JVS(4311) = Jac_FULL(337,75) - JVS(4311) = B(551)+B(609) +! JVS(4311) = Jac_FULL(341,138) + JVS(4311) = 0 IF (DO_JVS(4312)) & -! JVS(4312) = Jac_FULL(337,79) - JVS(4312) = B(549)+B(607) +! JVS(4312) = Jac_FULL(341,139) + JVS(4312) = 0.5*B(743) IF (DO_JVS(4313)) & -! JVS(4313) = Jac_FULL(337,80) - JVS(4313) = B(1741) +! JVS(4313) = Jac_FULL(341,141) + JVS(4313) = 0.5*B(780) IF (DO_JVS(4314)) & -! JVS(4314) = Jac_FULL(337,82) - JVS(4314) = 0.19*B(1383) +! JVS(4314) = Jac_FULL(341,145) + JVS(4314) = 0.54*B(1381) IF (DO_JVS(4315)) & -! JVS(4315) = Jac_FULL(337,83) - JVS(4315) = B(1758) +! JVS(4315) = Jac_FULL(341,147) + JVS(4315) = B(1177) IF (DO_JVS(4316)) & -! JVS(4316) = Jac_FULL(337,88) - JVS(4316) = 0.5*B(1322) +! JVS(4316) = Jac_FULL(341,148) + JVS(4316) = 0.18*B(1344) IF (DO_JVS(4317)) & -! JVS(4317) = Jac_FULL(337,91) - JVS(4317) = B(1759) +! JVS(4317) = Jac_FULL(341,149) + JVS(4317) = 0.444*B(1308)+1.454*B(1809) IF (DO_JVS(4318)) & -! JVS(4318) = Jac_FULL(337,93) - JVS(4318) = B(1757) +! JVS(4318) = Jac_FULL(341,150) + JVS(4318) = B(1794) IF (DO_JVS(4319)) & -! JVS(4319) = Jac_FULL(337,95) - JVS(4319) = B(1760) +! JVS(4319) = Jac_FULL(341,151) + JVS(4319) = B(1795) IF (DO_JVS(4320)) & -! JVS(4320) = Jac_FULL(337,97) - JVS(4320) = B(1680) +! JVS(4320) = Jac_FULL(341,152) + JVS(4320) = B(1674) IF (DO_JVS(4321)) & -! JVS(4321) = Jac_FULL(337,98) - JVS(4321) = B(1681) +! JVS(4321) = Jac_FULL(341,154) + JVS(4321) = B(269) IF (DO_JVS(4322)) & -! JVS(4322) = Jac_FULL(337,99) - JVS(4322) = B(1678) +! JVS(4322) = Jac_FULL(341,155) + JVS(4322) = B(1268) IF (DO_JVS(4323)) & -! JVS(4323) = Jac_FULL(337,100) - JVS(4323) = B(1679) +! JVS(4323) = Jac_FULL(341,157) + JVS(4323) = B(1054) IF (DO_JVS(4324)) & -! JVS(4324) = Jac_FULL(337,101) - JVS(4324) = 0.15*B(1385) +! JVS(4324) = Jac_FULL(341,158) + JVS(4324) = B(1697) IF (DO_JVS(4325)) & -! JVS(4325) = Jac_FULL(337,102) - JVS(4325) = B(1682) +! JVS(4325) = Jac_FULL(341,159) + JVS(4325) = B(1058) IF (DO_JVS(4326)) & -! JVS(4326) = Jac_FULL(337,105) - JVS(4326) = B(431) +! JVS(4326) = Jac_FULL(341,162) + JVS(4326) = 0.727*B(1418) IF (DO_JVS(4327)) & -! JVS(4327) = Jac_FULL(337,106) - JVS(4327) = B(1372)+B(1373) +! JVS(4327) = Jac_FULL(341,164) + JVS(4327) = B(1826) IF (DO_JVS(4328)) & -! JVS(4328) = Jac_FULL(337,108) - JVS(4328) = B(75)+B(1652) +! JVS(4328) = Jac_FULL(341,167) + JVS(4328) = B(1659) IF (DO_JVS(4329)) & -! JVS(4329) = Jac_FULL(337,111) - JVS(4329) = B(1807) +! JVS(4329) = Jac_FULL(341,168) + JVS(4329) = -B(140) IF (DO_JVS(4330)) & -! JVS(4330) = Jac_FULL(337,112) - JVS(4330) = B(1812) +! JVS(4330) = Jac_FULL(341,173) + JVS(4330) = -B(1248) IF (DO_JVS(4331)) & -! JVS(4331) = Jac_FULL(337,115) - JVS(4331) = B(1763) +! JVS(4331) = Jac_FULL(341,174) + JVS(4331) = -B(1254) IF (DO_JVS(4332)) & -! JVS(4332) = Jac_FULL(337,116) - JVS(4332) = B(1356)+B(1687) +! JVS(4332) = Jac_FULL(341,175) + JVS(4332) = B(1797) IF (DO_JVS(4333)) & -! JVS(4333) = Jac_FULL(337,118) - JVS(4333) = B(1677) +! JVS(4333) = Jac_FULL(341,177) + JVS(4333) = B(1798) IF (DO_JVS(4334)) & -! JVS(4334) = Jac_FULL(337,119) - JVS(4334) = B(1013) +! JVS(4334) = Jac_FULL(341,178) + JVS(4334) = 0.75*B(1807) IF (DO_JVS(4335)) & -! JVS(4335) = Jac_FULL(337,121) - JVS(4335) = B(1399)-B(1401) +! JVS(4335) = Jac_FULL(341,181) + JVS(4335) = 0.89*B(1220)-0.27*B(1222) IF (DO_JVS(4336)) & -! JVS(4336) = Jac_FULL(337,123) - JVS(4336) = B(1683) +! JVS(4336) = Jac_FULL(341,182) + JVS(4336) = 0.75*B(128)-B(132) IF (DO_JVS(4337)) & -! JVS(4337) = Jac_FULL(337,125) - JVS(4337) = B(1676) +! JVS(4337) = Jac_FULL(341,184) + JVS(4337) = B(547)+B(605) IF (DO_JVS(4338)) & -! JVS(4338) = Jac_FULL(337,127) - JVS(4338) = B(152) +! JVS(4338) = Jac_FULL(341,185) + JVS(4338) = 0.33*B(1214)-0.67*B(1216) IF (DO_JVS(4339)) & -! JVS(4339) = Jac_FULL(337,128) - JVS(4339) = 0.75*B(1052) +! JVS(4339) = Jac_FULL(341,186) + JVS(4339) = B(1120)-0.401*B(1121)+B(1123) IF (DO_JVS(4340)) & -! JVS(4340) = Jac_FULL(337,131) - JVS(4340) = B(1262) +! JVS(4340) = Jac_FULL(341,188) + JVS(4340) = 0.159*B(1801) IF (DO_JVS(4341)) & -! JVS(4341) = Jac_FULL(337,132) - JVS(4341) = B(156) +! JVS(4341) = Jac_FULL(341,190) + JVS(4341) = 0.571*B(1781) IF (DO_JVS(4342)) & -! JVS(4342) = Jac_FULL(337,133) - JVS(4342) = -B(1087) +! JVS(4342) = Jac_FULL(341,191) + JVS(4342) = 0.25*B(1023)+B(1788) IF (DO_JVS(4343)) & -! JVS(4343) = Jac_FULL(337,135) - JVS(4343) = -B(1091) +! JVS(4343) = Jac_FULL(341,192) + JVS(4343) = B(271) IF (DO_JVS(4344)) & -! JVS(4344) = Jac_FULL(337,136) - JVS(4344) = 0 +! JVS(4344) = Jac_FULL(341,193) + JVS(4344) = B(1352)-B(1354) IF (DO_JVS(4345)) & -! JVS(4345) = Jac_FULL(337,137) - JVS(4345) = 0.5*B(743) +! JVS(4345) = Jac_FULL(341,195) + JVS(4345) = 0.33*B(1025)+B(1789) IF (DO_JVS(4346)) & -! JVS(4346) = Jac_FULL(337,138) - JVS(4346) = 0.5*B(780) +! JVS(4346) = Jac_FULL(341,197) + JVS(4346) = 0.715*B(1258)+0.125*B(1782) IF (DO_JVS(4347)) & -! JVS(4347) = Jac_FULL(337,143) - JVS(4347) = 0.54*B(1381) +! JVS(4347) = Jac_FULL(341,198) + JVS(4347) = B(1808) IF (DO_JVS(4348)) & -! JVS(4348) = Jac_FULL(337,144) - JVS(4348) = B(1782) +! JVS(4348) = Jac_FULL(341,199) + JVS(4348) = 0.8*B(1414) IF (DO_JVS(4349)) & -! JVS(4349) = Jac_FULL(337,145) - JVS(4349) = B(1177) +! JVS(4349) = Jac_FULL(341,200) + JVS(4349) = 0.326*B(1699) IF (DO_JVS(4350)) & -! JVS(4350) = Jac_FULL(337,146) - JVS(4350) = B(1661) +! JVS(4350) = Jac_FULL(341,201) + JVS(4350) = -0.75*B(160)+B(162) IF (DO_JVS(4351)) & -! JVS(4351) = Jac_FULL(337,147) - JVS(4351) = 0.444*B(1308)+1.454*B(1796) +! JVS(4351) = Jac_FULL(341,202) + JVS(4351) = 0.042*B(1029)+B(1791) IF (DO_JVS(4352)) & -! JVS(4352) = Jac_FULL(337,149) - JVS(4352) = 0.18*B(1344) +! JVS(4352) = Jac_FULL(341,203) + JVS(4352) = 0.03*B(1348) IF (DO_JVS(4353)) & -! JVS(4353) = Jac_FULL(337,150) - JVS(4353) = B(1781) +! JVS(4353) = Jac_FULL(341,204) + JVS(4353) = 0.33*B(1470)+0.1*B(1472)+0.2*B(1474) IF (DO_JVS(4354)) & -! JVS(4354) = Jac_FULL(337,151) - JVS(4354) = B(1054) +! JVS(4354) = Jac_FULL(341,205) + JVS(4354) = B(1424) IF (DO_JVS(4355)) & -! JVS(4355) = Jac_FULL(337,152) - JVS(4355) = B(1058) +! JVS(4355) = Jac_FULL(341,207) + JVS(4355) = B(1815) IF (DO_JVS(4356)) & -! JVS(4356) = Jac_FULL(337,153) - JVS(4356) = B(1268) +! JVS(4356) = Jac_FULL(341,208) + JVS(4356) = B(1128)-0.494*B(1135)+B(1137) IF (DO_JVS(4357)) & -! JVS(4357) = Jac_FULL(337,155) - JVS(4357) = B(1684) +! JVS(4357) = Jac_FULL(341,209) + JVS(4357) = B(1127)-0.418*B(1129)+B(1131) IF (DO_JVS(4358)) & -! JVS(4358) = Jac_FULL(337,156) - JVS(4358) = B(269) +! JVS(4358) = Jac_FULL(341,210) + JVS(4358) = B(1113)-0.941*B(1114)+0.272*B(1116) IF (DO_JVS(4359)) & -! JVS(4359) = Jac_FULL(337,158) - JVS(4359) = 0.727*B(1418) +! JVS(4359) = Jac_FULL(341,211) + JVS(4359) = B(1266)+B(1778) IF (DO_JVS(4360)) & -! JVS(4360) = Jac_FULL(337,161) - JVS(4360) = B(1813) +! JVS(4360) = Jac_FULL(341,213) + JVS(4360) = 0.024*B(1027)+B(1790) IF (DO_JVS(4361)) & -! JVS(4361) = Jac_FULL(337,164) - JVS(4361) = B(1646) +! JVS(4361) = Jac_FULL(341,214) + JVS(4361) = B(1775) IF (DO_JVS(4362)) & -! JVS(4362) = Jac_FULL(337,165) - JVS(4362) = -B(140) +! JVS(4362) = Jac_FULL(341,215) + JVS(4362) = 0.513*B(148)-B(150) IF (DO_JVS(4363)) & -! JVS(4363) = Jac_FULL(337,168) - JVS(4363) = B(1785) +! JVS(4363) = Jac_FULL(341,216) + JVS(4363) = B(300)-0.56*B(302)+B(304) IF (DO_JVS(4364)) & -! JVS(4364) = Jac_FULL(337,171) - JVS(4364) = -B(1248) +! JVS(4364) = Jac_FULL(341,219) + JVS(4364) = B(471)-B(475) IF (DO_JVS(4365)) & -! JVS(4365) = Jac_FULL(337,172) - JVS(4365) = -B(1254) +! JVS(4365) = Jac_FULL(341,220) + JVS(4365) = B(1787) IF (DO_JVS(4366)) & -! JVS(4366) = Jac_FULL(337,174) - JVS(4366) = 0.75*B(1794) +! JVS(4366) = Jac_FULL(341,222) + JVS(4366) = 0.05*B(729) IF (DO_JVS(4367)) & -! JVS(4367) = Jac_FULL(337,175) - JVS(4367) = B(1784) +! JVS(4367) = Jac_FULL(341,223) + JVS(4367) = 0.7*B(1338)+0.1*B(1342) IF (DO_JVS(4368)) & -! JVS(4368) = Jac_FULL(337,178) - JVS(4368) = 0.75*B(128)-B(132) +! JVS(4368) = Jac_FULL(341,224) + JVS(4368) = 0.33*B(1465)+0.1*B(1467)+0.2*B(1469) IF (DO_JVS(4369)) & -! JVS(4369) = Jac_FULL(337,180) - JVS(4369) = 0.89*B(1220)-0.27*B(1222) +! JVS(4369) = Jac_FULL(341,225) + JVS(4369) = 0.33*B(1800) IF (DO_JVS(4370)) & -! JVS(4370) = Jac_FULL(337,181) - JVS(4370) = B(547)+B(605) +! JVS(4370) = Jac_FULL(341,226) + JVS(4370) = B(1039)-0.725*B(1043) IF (DO_JVS(4371)) & -! JVS(4371) = Jac_FULL(337,182) - JVS(4371) = 0.33*B(1214)-0.67*B(1216) +! JVS(4371) = Jac_FULL(341,227) + JVS(4371) = B(1821) IF (DO_JVS(4372)) & -! JVS(4372) = Jac_FULL(337,185) - JVS(4372) = 0.571*B(1768) +! JVS(4372) = Jac_FULL(341,228) + JVS(4372) = B(1032)-0.725*B(1036) IF (DO_JVS(4373)) & -! JVS(4373) = Jac_FULL(337,186) - JVS(4373) = 0.159*B(1788) +! JVS(4373) = Jac_FULL(341,229) + JVS(4373) = 0.425*B(154)+0.3*B(1673) IF (DO_JVS(4374)) & -! JVS(4374) = Jac_FULL(337,187) - JVS(4374) = 0.25*B(1023)+B(1775) +! JVS(4374) = Jac_FULL(341,230) + JVS(4374) = 1.5*B(1779) IF (DO_JVS(4375)) & -! JVS(4375) = Jac_FULL(337,188) - JVS(4375) = B(271) +! JVS(4375) = Jac_FULL(341,231) + JVS(4375) = 0.165*B(1003)+0.182*B(1793) IF (DO_JVS(4376)) & -! JVS(4376) = Jac_FULL(337,189) - JVS(4376) = B(1352)-B(1354) +! JVS(4376) = Jac_FULL(341,232) + JVS(4376) = 0.2*B(443) IF (DO_JVS(4377)) & -! JVS(4377) = Jac_FULL(337,190) - JVS(4377) = B(1120)-0.401*B(1121)+B(1123) +! JVS(4377) = Jac_FULL(341,233) + JVS(4377) = 0.085*B(1001)+0.112*B(1792) IF (DO_JVS(4378)) & -! JVS(4378) = Jac_FULL(337,192) - JVS(4378) = 0.33*B(1025)+B(1776) +! JVS(4378) = Jac_FULL(341,234) + JVS(4378) = B(1761)+B(1829) IF (DO_JVS(4379)) & -! JVS(4379) = Jac_FULL(337,194) - JVS(4379) = 0.715*B(1258)+0.125*B(1769) +! JVS(4379) = Jac_FULL(341,235) + JVS(4379) = -B(1050) IF (DO_JVS(4380)) & -! JVS(4380) = Jac_FULL(337,195) - JVS(4380) = 0.8*B(1414) +! JVS(4380) = Jac_FULL(341,236) + JVS(4380) = -0.42*B(1200)+0.904*B(1206) IF (DO_JVS(4381)) & -! JVS(4381) = Jac_FULL(337,196) - JVS(4381) = 0.326*B(1686) +! JVS(4381) = Jac_FULL(341,237) + JVS(4381) = -B(1432)+B(1463) IF (DO_JVS(4382)) & -! JVS(4382) = Jac_FULL(337,197) - JVS(4382) = -0.75*B(160)+B(162) +! JVS(4382) = Jac_FULL(341,238) + JVS(4382) = -B(1449)+B(1461) IF (DO_JVS(4383)) & -! JVS(4383) = Jac_FULL(337,198) - JVS(4383) = B(1795) +! JVS(4383) = Jac_FULL(341,239) + JVS(4383) = -B(1364)+0.6*B(1370) IF (DO_JVS(4384)) & -! JVS(4384) = Jac_FULL(337,199) - JVS(4384) = 0.042*B(1029)+B(1778) +! JVS(4384) = Jac_FULL(341,242) + JVS(4384) = 0.283*B(1009) IF (DO_JVS(4385)) & -! JVS(4385) = Jac_FULL(337,200) - JVS(4385) = 0.03*B(1348) +! JVS(4385) = Jac_FULL(341,243) + JVS(4385) = -B(1407) IF (DO_JVS(4386)) & -! JVS(4386) = Jac_FULL(337,201) - JVS(4386) = 0.33*B(1470)+0.1*B(1472)+0.2*B(1474) +! JVS(4386) = Jac_FULL(341,245) + JVS(4386) = -0.35*B(1078)+B(1082)+B(1084) IF (DO_JVS(4387)) & -! JVS(4387) = Jac_FULL(337,202) - JVS(4387) = B(1424) +! JVS(4387) = Jac_FULL(341,250) + JVS(4387) = -B(245) IF (DO_JVS(4388)) & -! JVS(4388) = Jac_FULL(337,204) - JVS(4388) = B(1802) +! JVS(4388) = Jac_FULL(341,251) + JVS(4388) = B(1786) IF (DO_JVS(4389)) & -! JVS(4389) = Jac_FULL(337,205) - JVS(4389) = B(1113)-0.941*B(1114)+0.272*B(1116) +! JVS(4389) = Jac_FULL(341,252) + JVS(4389) = -B(224)+0.5*B(259) IF (DO_JVS(4390)) & -! JVS(4390) = Jac_FULL(337,206) - JVS(4390) = B(1127)-0.418*B(1129)+B(1131) +! JVS(4390) = Jac_FULL(341,253) + JVS(4390) = -B(232)+0.5*B(267) IF (DO_JVS(4391)) & -! JVS(4391) = Jac_FULL(337,207) - JVS(4391) = B(1128)-0.494*B(1135)+B(1137) +! JVS(4391) = Jac_FULL(341,255) + JVS(4391) = 0.27*B(1698) IF (DO_JVS(4392)) & -! JVS(4392) = Jac_FULL(337,208) - JVS(4392) = B(1266)+B(1765) +! JVS(4392) = Jac_FULL(341,256) + JVS(4392) = B(1830) IF (DO_JVS(4393)) & -! JVS(4393) = Jac_FULL(337,209) - JVS(4393) = 0.024*B(1027)+B(1777) +! JVS(4393) = Jac_FULL(341,257) + JVS(4393) = -0.493*B(1276)+0.86*B(1283) IF (DO_JVS(4394)) & -! JVS(4394) = Jac_FULL(337,210) - JVS(4394) = B(1762) +! JVS(4394) = Jac_FULL(341,258) + JVS(4394) = -0.695*B(1270)+0.242*B(1272) IF (DO_JVS(4395)) & -! JVS(4395) = Jac_FULL(337,212) - JVS(4395) = 0.513*B(148)-B(150) +! JVS(4395) = Jac_FULL(341,259) + JVS(4395) = 0.5*B(1306)+1.5*B(1805)+B(1806) IF (DO_JVS(4396)) & -! JVS(4396) = Jac_FULL(337,213) - JVS(4396) = B(300)-0.56*B(302)+B(304) +! JVS(4396) = Jac_FULL(341,261) + JVS(4396) = -B(749)+0.75*B(893) IF (DO_JVS(4397)) & -! JVS(4397) = Jac_FULL(337,216) - JVS(4397) = B(1774) +! JVS(4397) = Jac_FULL(341,262) + JVS(4397) = -B(1278) IF (DO_JVS(4398)) & -! JVS(4398) = Jac_FULL(337,217) - JVS(4398) = B(471)-B(475) +! JVS(4398) = Jac_FULL(341,263) + JVS(4398) = B(871)+0.5*B(875) IF (DO_JVS(4399)) & -! JVS(4399) = Jac_FULL(337,219) - JVS(4399) = 0.05*B(729) +! JVS(4399) = Jac_FULL(341,264) + JVS(4399) = B(122)+B(216)-B(281)+0.9*B(369) IF (DO_JVS(4400)) & -! JVS(4400) = Jac_FULL(337,220) - JVS(4400) = 0.7*B(1338)+0.1*B(1342) +! JVS(4400) = Jac_FULL(341,265) + JVS(4400) = B(1762) IF (DO_JVS(4401)) & -! JVS(4401) = Jac_FULL(337,221) - JVS(4401) = 0.33*B(1465)+0.1*B(1467)+0.2*B(1469) +! JVS(4401) = Jac_FULL(341,266) + JVS(4401) = B(1389)+B(1391)+2*B(1393)+B(1395) IF (DO_JVS(4402)) & -! JVS(4402) = Jac_FULL(337,222) - JVS(4402) = 0.33*B(1787) +! JVS(4402) = Jac_FULL(341,267) + JVS(4402) = B(40)+B(469)+B(571) IF (DO_JVS(4403)) & -! JVS(4403) = Jac_FULL(337,223) - JVS(4403) = B(1032)-0.725*B(1036) +! JVS(4403) = Jac_FULL(341,268) + JVS(4403) = B(87) IF (DO_JVS(4404)) & -! JVS(4404) = Jac_FULL(337,224) - JVS(4404) = B(1039)-0.725*B(1043) +! JVS(4404) = Jac_FULL(341,269) + JVS(4404) = B(1813) IF (DO_JVS(4405)) & -! JVS(4405) = Jac_FULL(337,225) - JVS(4405) = B(1808) +! JVS(4405) = Jac_FULL(341,270) + JVS(4405) = 0.4*B(1111)+0.45*B(1799) IF (DO_JVS(4406)) & -! JVS(4406) = Jac_FULL(337,226) - JVS(4406) = -0.42*B(1200)+0.904*B(1206) +! JVS(4406) = Jac_FULL(341,271) + JVS(4406) = 0.4*B(1109)+0.45*B(1796) IF (DO_JVS(4407)) & -! JVS(4407) = Jac_FULL(337,227) - JVS(4407) = 1.5*B(1766) +! JVS(4407) = Jac_FULL(341,272) + JVS(4407) = B(1818) IF (DO_JVS(4408)) & -! JVS(4408) = Jac_FULL(337,228) - JVS(4408) = 0.2*B(443) +! JVS(4408) = Jac_FULL(341,273) + JVS(4408) = -0.674*B(1198)+0.5*B(1202) IF (DO_JVS(4409)) & -! JVS(4409) = Jac_FULL(337,229) - JVS(4409) = B(1748)+B(1816) +! JVS(4409) = Jac_FULL(341,274) + JVS(4409) = B(312)+B(316)+2*B(1680) IF (DO_JVS(4410)) & -! JVS(4410) = Jac_FULL(337,230) - JVS(4410) = 0.085*B(1001)+0.112*B(1779) +! JVS(4410) = Jac_FULL(341,275) + JVS(4410) = -B(786)+B(790)+B(792)+B(794) IF (DO_JVS(4411)) & -! JVS(4411) = Jac_FULL(337,231) - JVS(4411) = 0.165*B(1003)+0.182*B(1780) +! JVS(4411) = Jac_FULL(341,276) + JVS(4411) = -B(774)+0.75*B(776)+B(778)+1.75*B(881)+B(883) IF (DO_JVS(4412)) & -! JVS(4412) = Jac_FULL(337,232) - JVS(4412) = -B(1050) +! JVS(4412) = Jac_FULL(341,277) + JVS(4412) = -B(838)+0.75*B(897) IF (DO_JVS(4413)) & -! JVS(4413) = Jac_FULL(337,233) - JVS(4413) = 0.425*B(154)+0.3*B(1660) +! JVS(4413) = Jac_FULL(341,278) + JVS(4413) = 0.84*B(824)-B(826)+B(828)+B(830) IF (DO_JVS(4414)) & -! JVS(4414) = Jac_FULL(337,234) - JVS(4414) = -B(1364)+0.6*B(1370) +! JVS(4414) = Jac_FULL(341,279) + JVS(4414) = 0.16*B(947)+0.4*B(953)+0.7*B(955) IF (DO_JVS(4415)) & -! JVS(4415) = Jac_FULL(337,235) - JVS(4415) = -B(1432)+B(1463) +! JVS(4415) = Jac_FULL(341,280) + JVS(4415) = B(901)-B(905)+2*B(909)+B(913)+B(917)+B(921)+0.5*B(922) IF (DO_JVS(4416)) & -! JVS(4416) = Jac_FULL(337,236) - JVS(4416) = -B(1449)+B(1461) +! JVS(4416) = Jac_FULL(341,281) + JVS(4416) = -B(735)+0.75*B(737)+B(739)+1.75*B(877)+B(879) IF (DO_JVS(4417)) & -! JVS(4417) = Jac_FULL(337,238) - JVS(4417) = 0.283*B(1009) +! JVS(4417) = Jac_FULL(341,282) + JVS(4417) = -B(762)+B(768) IF (DO_JVS(4418)) & -! JVS(4418) = Jac_FULL(337,240) - JVS(4418) = -B(1407) +! JVS(4418) = Jac_FULL(341,283) + JVS(4418) = 0.27*B(1701) IF (DO_JVS(4419)) & -! JVS(4419) = Jac_FULL(337,243) - JVS(4419) = -0.35*B(1078)+B(1082)+B(1084) +! JVS(4419) = Jac_FULL(341,284) + JVS(4419) = -B(800)+0.75*B(802)+B(804)+1.75*B(885)+B(887) IF (DO_JVS(4420)) & -! JVS(4420) = Jac_FULL(337,246) - JVS(4420) = -B(245) +! JVS(4420) = Jac_FULL(341,285) + JVS(4420) = B(89)+B(623) IF (DO_JVS(4421)) & -! JVS(4421) = Jac_FULL(337,248) - JVS(4421) = B(1773) +! JVS(4421) = Jac_FULL(341,288) + JVS(4421) = B(1070)+B(1072)-0.35*B(1076) IF (DO_JVS(4422)) & -! JVS(4422) = Jac_FULL(337,249) - JVS(4422) = -B(224)+0.5*B(259) +! JVS(4422) = Jac_FULL(341,289) + JVS(4422) = B(1062)-0.35*B(1064)+B(1066) IF (DO_JVS(4423)) & -! JVS(4423) = Jac_FULL(337,250) - JVS(4423) = -B(232)+0.5*B(267) +! JVS(4423) = Jac_FULL(341,290) + JVS(4423) = B(1783) IF (DO_JVS(4424)) & -! JVS(4424) = Jac_FULL(337,251) - JVS(4424) = 0.27*B(1685) +! JVS(4424) = Jac_FULL(341,291) + JVS(4424) = 0.47*B(1780) IF (DO_JVS(4425)) & -! JVS(4425) = Jac_FULL(337,253) - JVS(4425) = -0.493*B(1276)+0.86*B(1283) +! JVS(4425) = Jac_FULL(341,292) + JVS(4425) = -B(907)+0.5*B(911)+0.5*B(923) IF (DO_JVS(4426)) & -! JVS(4426) = Jac_FULL(337,254) - JVS(4426) = -0.695*B(1270)+0.242*B(1272) +! JVS(4426) = Jac_FULL(341,293) + JVS(4426) = 0.28*B(287) IF (DO_JVS(4427)) & -! JVS(4427) = Jac_FULL(337,255) - JVS(4427) = B(1817) +! JVS(4427) = Jac_FULL(341,294) + JVS(4427) = -B(851)+B(855)+B(857)+1.75*B(889)+B(891) IF (DO_JVS(4428)) & -! JVS(4428) = Jac_FULL(337,257) - JVS(4428) = -B(749)+0.75*B(893) +! JVS(4428) = Jac_FULL(341,298) + JVS(4428) = B(1683) IF (DO_JVS(4429)) & -! JVS(4429) = Jac_FULL(337,258) - JVS(4429) = 0.5*B(1306)+1.5*B(1792)+B(1793) +! JVS(4429) = Jac_FULL(341,299) + JVS(4429) = -0.621*B(1141)+B(1143) IF (DO_JVS(4430)) & -! JVS(4430) = Jac_FULL(337,259) - JVS(4430) = -B(1278) +! JVS(4430) = Jac_FULL(341,300) + JVS(4430) = B(108)+B(247)+1.2*B(273)-B(275)+0.9*B(365)+B(619) IF (DO_JVS(4431)) & -! JVS(4431) = Jac_FULL(337,260) - JVS(4431) = B(122)+B(216)-B(281)+0.9*B(369) +! JVS(4431) = Jac_FULL(341,302) + JVS(4431) = B(1675) IF (DO_JVS(4432)) & -! JVS(4432) = Jac_FULL(337,261) - JVS(4432) = B(1749) +! JVS(4432) = Jac_FULL(341,303) + JVS(4432) = 0.228*B(1804) IF (DO_JVS(4433)) & -! JVS(4433) = Jac_FULL(337,262) - JVS(4433) = B(871)+0.5*B(875) +! JVS(4433) = Jac_FULL(341,304) + JVS(4433) = 0.27*B(171)-B(222)+0.64*B(257)+0.243*B(351) IF (DO_JVS(4434)) & -! JVS(4434) = Jac_FULL(337,263) - JVS(4434) = B(1389)+B(1391)+2*B(1393)+B(1395) +! JVS(4434) = Jac_FULL(341,305) + JVS(4434) = 0.295*B(1212)+0.161*B(1803) IF (DO_JVS(4435)) & -! JVS(4435) = Jac_FULL(337,264) - JVS(4435) = B(40)+B(469)+B(571) +! JVS(4435) = Jac_FULL(341,306) + JVS(4435) = 0.29*B(1785) IF (DO_JVS(4436)) & -! JVS(4436) = Jac_FULL(337,265) - JVS(4436) = B(87) +! JVS(4436) = Jac_FULL(341,307) + JVS(4436) = 0.62*B(1316)+0.7*B(1810)+0.7*B(1811) IF (DO_JVS(4437)) & -! JVS(4437) = Jac_FULL(337,266) - JVS(4437) = B(1800) +! JVS(4437) = Jac_FULL(341,308) + JVS(4437) = -B(1149)+0.089*B(1154)+0.611*B(1159) IF (DO_JVS(4438)) & -! JVS(4438) = Jac_FULL(337,267) - JVS(4438) = 0.4*B(1111)+0.45*B(1786) +! JVS(4438) = Jac_FULL(341,309) + JVS(4438) = 0.773*B(289)+0.2*B(293)+1.73*B(1679) IF (DO_JVS(4439)) & -! JVS(4439) = Jac_FULL(337,268) - JVS(4439) = 0.4*B(1109)+0.45*B(1783) +! JVS(4439) = Jac_FULL(341,310) + JVS(4439) = -B(1151)+0.089*B(1155)+0.064*B(1156)+0.336*B(1157)+0.159*B(1163)+0.159*B(1167)+0.159*B(1173) IF (DO_JVS(4440)) & -! JVS(4440) = Jac_FULL(337,269) - JVS(4440) = B(1805) +! JVS(4440) = Jac_FULL(341,311) + JVS(4440) = B(320)+B(1688) IF (DO_JVS(4441)) & -! JVS(4441) = Jac_FULL(337,270) - JVS(4441) = B(312)+B(316)+2*B(1667) +! JVS(4441) = Jac_FULL(341,312) + JVS(4441) = -B(1291)+0.7*B(1299) IF (DO_JVS(4442)) & -! JVS(4442) = Jac_FULL(337,271) - JVS(4442) = -0.674*B(1198)+0.5*B(1202) +! JVS(4442) = Jac_FULL(341,313) + JVS(4442) = 0.036*B(1228)+B(1687) IF (DO_JVS(4443)) & -! JVS(4443) = Jac_FULL(337,272) - JVS(4443) = 0.84*B(824)-B(826)+B(828)+B(830) +! JVS(4443) = Jac_FULL(341,314) + JVS(4443) = -0.937*B(957)-B(959)+0.4*B(966)+2*B(969)+2*B(971)+B(973)+B(975)+2*B(977)+1.5*B(979)+B(987)+0.45*B(991) IF (DO_JVS(4444)) & -! JVS(4444) = Jac_FULL(337,273) - JVS(4444) = -B(786)+B(790)+B(792)+B(794) +! JVS(4444) = Jac_FULL(341,315) + JVS(4444) = -0.937*B(961)-B(963)+0.7*B(968)+2*B(970)+2*B(972)+B(974)+B(976)+2*B(981)+1.5*B(983)+B(995)+0.45*B(999) IF (DO_JVS(4445)) & -! JVS(4445) = Jac_FULL(337,274) - JVS(4445) = -B(838)+0.75*B(897) +! JVS(4445) = Jac_FULL(341,316) + JVS(4445) = -B(226)+0.3*B(261) IF (DO_JVS(4446)) & -! JVS(4446) = Jac_FULL(337,275) - JVS(4446) = -B(774)+0.75*B(776)+B(778)+1.75*B(881)+B(883) +! JVS(4446) = Jac_FULL(341,317) + JVS(4446) = 0 IF (DO_JVS(4447)) & -! JVS(4447) = Jac_FULL(337,276) - JVS(4447) = 0.16*B(947)+0.4*B(953)+0.7*B(955) +! JVS(4447) = Jac_FULL(341,318) + JVS(4447) = 0.1*B(1226)+B(1685) IF (DO_JVS(4448)) & -! JVS(4448) = Jac_FULL(337,277) - JVS(4448) = -B(735)+0.75*B(737)+B(739)+1.75*B(877)+B(879) +! JVS(4448) = Jac_FULL(341,319) + JVS(4448) = B(112)+B(249)+1.2*B(274)-B(277)+0.9*B(367)+B(621) IF (DO_JVS(4449)) & -! JVS(4449) = Jac_FULL(337,278) - JVS(4449) = -B(762)+B(768) +! JVS(4449) = Jac_FULL(341,322) + JVS(4449) = -B(220)+0.5*B(255) IF (DO_JVS(4450)) & -! JVS(4450) = Jac_FULL(337,279) - JVS(4450) = 0.27*B(1688) +! JVS(4450) = Jac_FULL(341,323) + JVS(4450) = 0.27*B(177)-B(218)+0.64*B(253)+0.243*B(349) IF (DO_JVS(4451)) & -! JVS(4451) = Jac_FULL(337,280) - JVS(4451) = B(901)-B(905)+2*B(909)+B(913)+B(917)+B(921)+0.5*B(922) +! JVS(4451) = Jac_FULL(341,324) + JVS(4451) = -B(228)+0.5*B(263) IF (DO_JVS(4452)) & -! JVS(4452) = Jac_FULL(337,281) - JVS(4452) = -B(800)+0.75*B(802)+B(804)+1.75*B(885)+B(887) +! JVS(4452) = Jac_FULL(341,325) + JVS(4452) = -B(283)+B(375) IF (DO_JVS(4453)) & -! JVS(4453) = Jac_FULL(337,282) - JVS(4453) = B(89)+B(623) +! JVS(4453) = Jac_FULL(341,326) + JVS(4453) = B(118)+B(214)-B(279)+0.9*B(371) IF (DO_JVS(4454)) & -! JVS(4454) = Jac_FULL(337,284) - JVS(4454) = -B(679) +! JVS(4454) = Jac_FULL(341,327) + JVS(4454) = B(187)-B(230)+B(265)+0.9*B(357) IF (DO_JVS(4455)) & -! JVS(4455) = Jac_FULL(337,285) - JVS(4455) = B(1070)+B(1072)-0.35*B(1076) +! JVS(4455) = Jac_FULL(341,328) + JVS(4455) = 0.9*B(347)+0.243*B(350)+0.243*B(352)+0.9*B(358)+0.9*B(366)+0.9*B(368)+0.9*B(370)+0.9*B(372)+B(880)+B(884)& + &+B(888)+B(892)+B(914)+0.159*B(1164)-B(1324)+B(1396) IF (DO_JVS(4456)) & -! JVS(4456) = Jac_FULL(337,286) - JVS(4456) = B(1062)-0.35*B(1064)+B(1066) +! JVS(4456) = Jac_FULL(341,329) + JVS(4456) = B(63)+B(93)+B(413)+B(485)+B(565)+B(1660) IF (DO_JVS(4457)) & -! JVS(4457) = Jac_FULL(337,287) - JVS(4457) = B(1770) +! JVS(4457) = Jac_FULL(341,330) + JVS(4457) = 0.05*B(95)+B(1669) IF (DO_JVS(4458)) & -! JVS(4458) = Jac_FULL(337,288) - JVS(4458) = 0.47*B(1767) +! JVS(4458) = Jac_FULL(341,331) + JVS(4458) = -B(671) IF (DO_JVS(4459)) & -! JVS(4459) = Jac_FULL(337,289) - JVS(4459) = -B(907)+0.5*B(911)+0.5*B(923) +! JVS(4459) = Jac_FULL(341,334) + JVS(4459) = B(34)+B(49)-B(53)+2*B(56)+1.74*B(57)+B(215)+B(217)+B(248)+B(250)+0.64*B(254)+0.5*B(256)+0.64*B(258)+0.5& + &*B(260)+0.3*B(262)+0.5*B(264)+B(266)+0.5*B(268)+0.9*B(348)+B(376)+B(529)+B(613)+B(769)+B(793)+B(831)+1.75& + &*B(878)+1.75*B(882)+1.75*B(886)+1.75*B(890)+0.75*B(894)+0.75*B(898)+2*B(910)+0.5*B(912)+2*B(978)+1.5*B(980)& + &+2*B(982)+1.5*B(984)+0.336*B(1158)+0.611*B(1160)+0.7*B(1300)+0.6*B(1371)+2*B(1394)+B(1462)+B(1464)+B(1487) IF (DO_JVS(4460)) & -! JVS(4460) = Jac_FULL(337,290) - JVS(4460) = 0.28*B(287) +! JVS(4460) = Jac_FULL(341,335) + JVS(4460) = B(45) IF (DO_JVS(4461)) & -! JVS(4461) = Jac_FULL(337,291) - JVS(4461) = -B(851)+B(855)+B(857)+1.75*B(889)+B(891) +! JVS(4461) = Jac_FULL(341,336) + JVS(4461) = -B(679) IF (DO_JVS(4462)) & -! JVS(4462) = Jac_FULL(337,293) - JVS(4462) = -0.621*B(1141)+B(1143) +! JVS(4462) = Jac_FULL(341,337) + JVS(4462) = 0.2*B(444) IF (DO_JVS(4463)) & -! JVS(4463) = Jac_FULL(337,294) - JVS(4463) = B(1670) +! JVS(4463) = Jac_FULL(341,338) + JVS(4463) = -B(42)+B(50)+B(109)+B(113)+B(119)+B(123)+0.75*B(129)+0.513*B(149)+B(157)+B(163)+0.27*B(172)+0.27*B(178)& + &+B(188)+B(301)+0.75*B(738)+0.75*B(777)+B(791)+0.75*B(803)+0.84*B(825)+B(856)+B(902)+B(988)+0.45*B(992)& + &+B(996)+0.45*B(1000)+B(1033)+B(1040)+B(1067)+B(1073)+B(1083)+0.272*B(1117)+B(1124)+B(1132)+B(1138)+B(1144)& + &+0.159*B(1174)+0.5*B(1203)+0.904*B(1207)+0.33*B(1215)+0.89*B(1221)+0.242*B(1273)+0.86*B(1284)+B(1353)& + &+B(1390)+B(1400) IF (DO_JVS(4464)) & -! JVS(4464) = Jac_FULL(337,296) - JVS(4464) = B(108)+B(247)+1.2*B(273)-B(275)+0.9*B(365)+B(619) +! JVS(4464) = Jac_FULL(341,339) + JVS(4464) = 0 IF (DO_JVS(4465)) & -! JVS(4465) = Jac_FULL(337,298) - JVS(4465) = B(1662) +! JVS(4465) = Jac_FULL(341,340) + JVS(4465) = 0 IF (DO_JVS(4466)) & -! JVS(4466) = Jac_FULL(337,299) - JVS(4466) = 0.228*B(1791) +! JVS(4466) = Jac_FULL(341,341) + JVS(4466) = -B(30)-B(38)-B(43)-2*B(44)-B(54)-B(73)-B(78)-B(133)-B(141)-B(151)-0.75*B(161)-B(219)-B(221)-B(223)-B(225)& + &-B(227)-B(229)-B(231)-B(233)-B(246)-B(276)-B(278)-B(280)-B(282)-B(284)-0.56*B(303)-B(391)-B(393)-B(453)& + &-B(476)-B(573)-B(575)-B(579)-B(672)-B(680)-B(736)-B(750)-B(763)-B(775)-B(787)-B(801)-B(827)-B(839)-B(852)& + &-B(906)-B(908)-0.937*B(958)-B(960)-0.937*B(962)-B(964)-0.725*B(1037)-0.725*B(1044)-B(1051)-0.35*B(1065)& + &-0.35*B(1077)-0.35*B(1079)-B(1088)-B(1092)-0.941*B(1115)-0.401*B(1122)-0.418*B(1130)-0.494*B(1136)-0.621& + &*B(1142)-B(1150)-B(1152)-0.674*B(1199)-0.42*B(1201)-0.67*B(1217)-0.27*B(1223)-B(1249)-B(1255)-0.695*B(1271)& + &-0.493*B(1277)-B(1279)-B(1292)-B(1325)-B(1355)-B(1365)-B(1402)-B(1408)-B(1433)-B(1450)-B(1491) IF (DO_JVS(4467)) & -! JVS(4467) = Jac_FULL(337,300) - JVS(4467) = 0.27*B(171)-B(222)+0.64*B(257)+0.243*B(351) +! JVS(4467) = Jac_FULL(341,342) + JVS(4467) = -B(394)+B(414) IF (DO_JVS(4468)) & -! JVS(4468) = Jac_FULL(337,301) - JVS(4468) = 0.295*B(1212)+0.161*B(1790) +! JVS(4468) = Jac_FULL(341,343) + JVS(4468) = B(28)-B(39)+B(41)+B(46)+1.74*B(58)+B(64)+B(82)+B(88)+B(90)+0.05*B(96)+B(153)+0.425*B(155)+B(270)+B(272)& + &+0.773*B(290)+0.2*B(294)+B(309)+B(313)+B(321)+B(387)+B(409)+B(432)+B(531)+B(548)+B(550)+B(552)+0.5*B(744)& + &+0.5*B(781)+B(872)+0.4*B(954)+0.7*B(956)+0.085*B(1002)+0.165*B(1004)+0.283*B(1010)+B(1014)+0.25*B(1024)& + &+0.33*B(1026)+0.024*B(1028)+0.042*B(1030)+0.75*B(1053)+B(1055)+B(1059)+0.4*B(1110)+0.4*B(1112)+0.295& + &*B(1213)+0.036*B(1229)+0.715*B(1259)+B(1263)+B(1267)+B(1269)+0.5*B(1307)+0.444*B(1309)+0.62*B(1317)+0.5& + &*B(1323)+0.7*B(1339)+0.18*B(1345)+0.03*B(1349)+B(1357)+0.364*B(1363)+0.54*B(1382)+0.19*B(1384)+0.15*B(1386)& + &+0.8*B(1415)+0.727*B(1419)+0.33*B(1466)+0.33*B(1471) IF (DO_JVS(4469)) & -! JVS(4469) = Jac_FULL(337,302) - JVS(4469) = 0.29*B(1772) +! JVS(4469) = Jac_FULL(341,344) + JVS(4469) = B(530)+B(532)-B(580) IF (DO_JVS(4470)) & -! JVS(4470) = Jac_FULL(337,303) - JVS(4470) = 0.62*B(1316)+0.7*B(1797)+0.7*B(1798) +! JVS(4470) = Jac_FULL(341,345) + JVS(4470) = -B(74) IF (DO_JVS(4471)) & -! JVS(4471) = Jac_FULL(337,304) - JVS(4471) = -0.937*B(961)-B(963)+0.7*B(968)+2*B(970)+2*B(971)+B(974)+B(975)+2*B(981)+1.5*B(983)+B(995)+0.45*B(999) +! JVS(4471) = Jac_FULL(341,346) + JVS(4471) = 0 IF (DO_JVS(4472)) & -! JVS(4472) = Jac_FULL(337,305) - JVS(4472) = -0.937*B(957)-B(959)+0.4*B(966)+2*B(969)+2*B(972)+B(973)+B(976)+2*B(977)+1.5*B(979)+B(987)+0.45*B(991) +! JVS(4472) = Jac_FULL(341,347) + JVS(4472) = -B(392)+B(410) IF (DO_JVS(4473)) & -! JVS(4473) = Jac_FULL(337,306) - JVS(4473) = 0.773*B(289)+0.2*B(293)+1.73*B(1666) +! JVS(4473) = Jac_FULL(341,348) + JVS(4473) = -B(79)+B(83)+B(94)+B(305)+B(317)+B(740)+B(779)+B(795)+B(805)+B(829)+B(858)+0.5*B(876)+B(918)+0.159*B(1168)& + &+B(1392)+B(1488) IF (DO_JVS(4474)) & -! JVS(4474) = Jac_FULL(337,307) - JVS(4474) = B(320)+B(1675) +! JVS(4474) = Jac_FULL(341,349) + JVS(4474) = 0 IF (DO_JVS(4475)) & -! JVS(4475) = Jac_FULL(337,308) - JVS(4475) = -B(1291)+0.7*B(1299) +! JVS(4475) = Jac_FULL(341,350) + JVS(4475) = 0 IF (DO_JVS(4476)) & -! JVS(4476) = Jac_FULL(337,309) - JVS(4476) = 0.036*B(1228)+B(1674) +! JVS(4476) = Jac_FULL(341,351) + JVS(4476) = -B(454)+B(470)+B(486) IF (DO_JVS(4477)) & -! JVS(4477) = Jac_FULL(337,310) - JVS(4477) = -B(1149)+0.089*B(1154)+0.611*B(1159) +! JVS(4477) = Jac_FULL(341,352) + JVS(4477) = B(566)+B(572)-B(574)-B(576)+B(606)+B(608)+B(610)+B(614)+B(620)+B(622)+B(624) IF (DO_JVS(4478)) & -! JVS(4478) = Jac_FULL(337,311) - JVS(4478) = -B(1151)+0.089*B(1155)+0.064*B(1156)+0.336*B(1157)+0.159*B(1163)+0.159*B(1167)+0.159*B(1173) +! JVS(4478) = Jac_FULL(341,353) + JVS(4478) = 0 IF (DO_JVS(4479)) & -! JVS(4479) = Jac_FULL(337,312) +! JVS(4479) = Jac_FULL(341,354) JVS(4479) = 0 IF (DO_JVS(4480)) & -! JVS(4480) = Jac_FULL(337,313) - JVS(4480) = -B(226)+0.3*B(261) +! JVS(4480) = Jac_FULL(341,355) + JVS(4480) = B(388) IF (DO_JVS(4481)) & -! JVS(4481) = Jac_FULL(337,314) - JVS(4481) = 0.1*B(1226)+B(1672) +! JVS(4481) = Jac_FULL(341,356) + JVS(4481) = B(29)-B(31)+B(35)+0.28*B(288)+0.05*B(730)+0.16*B(948)+0.1*B(1227)+0.1*B(1343)+B(1425)+0.1*B(1468)+0.1& + &*B(1473) IF (DO_JVS(4482)) & -! JVS(4482) = Jac_FULL(337,315) - JVS(4482) = B(112)+B(249)+1.2*B(274)-B(277)+0.9*B(367)+B(621) +! JVS(4482) = Jac_FULL(342,2) + JVS(4482) = B(1749) IF (DO_JVS(4483)) & -! JVS(4483) = Jac_FULL(337,318) - JVS(4483) = -B(220)+0.5*B(255) +! JVS(4483) = Jac_FULL(342,56) + JVS(4483) = B(1734) IF (DO_JVS(4484)) & -! JVS(4484) = Jac_FULL(337,319) - JVS(4484) = 0.27*B(177)-B(218)+0.64*B(253)+0.243*B(349) +! JVS(4484) = Jac_FULL(342,57) + JVS(4484) = 0.75*B(525)+2*B(1736) IF (DO_JVS(4485)) & -! JVS(4485) = Jac_FULL(337,320) - JVS(4485) = -B(228)+0.5*B(263) +! JVS(4485) = Jac_FULL(342,62) + JVS(4485) = B(1708) IF (DO_JVS(4486)) & -! JVS(4486) = Jac_FULL(337,321) - JVS(4486) = B(118)+B(214)-B(279)+0.9*B(371) +! JVS(4486) = Jac_FULL(342,64) + JVS(4486) = 0.34*B(509)+B(1735) IF (DO_JVS(4487)) & -! JVS(4487) = Jac_FULL(337,322) - JVS(4487) = -B(283)+B(375) +! JVS(4487) = Jac_FULL(342,79) + JVS(4487) = 2*B(429)+0.95*B(499)+2*B(1710) IF (DO_JVS(4488)) & -! JVS(4488) = Jac_FULL(337,323) - JVS(4488) = B(187)-B(230)+B(265)+0.9*B(357) +! JVS(4488) = Jac_FULL(342,81) + JVS(4488) = B(1752) IF (DO_JVS(4489)) & -! JVS(4489) = Jac_FULL(337,324) - JVS(4489) = 0.9*B(347)+0.243*B(350)+0.243*B(352)+0.9*B(358)+0.9*B(366)+0.9*B(368)+0.9*B(370)+0.9*B(372)+B(880)+B(884)& - &+B(888)+B(892)+B(914)+0.159*B(1164)-B(1324)+B(1396) +! JVS(4489) = Jac_FULL(342,82) + JVS(4489) = 3*B(427)+1.4*B(501)+3*B(1709) IF (DO_JVS(4490)) & -! JVS(4490) = Jac_FULL(337,325) - JVS(4490) = B(63)+B(93)+B(413)+B(485)+B(565)+B(1647) +! JVS(4490) = Jac_FULL(342,108) + JVS(4490) = B(431)+0.56*B(497)+B(1711) IF (DO_JVS(4491)) & -! JVS(4491) = Jac_FULL(337,326) - JVS(4491) = 0.05*B(95)+B(1656) +! JVS(4491) = Jac_FULL(342,142) + JVS(4491) = -B(421) IF (DO_JVS(4492)) & -! JVS(4492) = Jac_FULL(337,328) - JVS(4492) = B(34)+B(49)-B(53)+2*B(56)+1.74*B(57)+B(215)+B(217)+B(248)+B(250)+0.64*B(254)+0.5*B(256)+0.64*B(258)+0.5& - &*B(260)+0.3*B(262)+0.5*B(264)+B(266)+0.5*B(268)+0.9*B(348)+B(376)+B(529)+B(613)+B(769)+B(793)+B(831)+1.75& - &*B(878)+1.75*B(882)+1.75*B(886)+1.75*B(890)+0.75*B(894)+0.75*B(898)+2*B(910)+0.5*B(912)+2*B(978)+1.5*B(980)& - &+2*B(982)+1.5*B(984)+0.336*B(1158)+0.611*B(1160)+0.7*B(1300)+0.6*B(1371)+2*B(1394)+B(1462)+B(1464)+B(1487) +! JVS(4492) = Jac_FULL(342,153) + JVS(4492) = B(403)+2*B(1703) IF (DO_JVS(4493)) & -! JVS(4493) = Jac_FULL(337,329) - JVS(4493) = B(45) +! JVS(4493) = Jac_FULL(342,160) + JVS(4493) = B(1714) IF (DO_JVS(4494)) & -! JVS(4494) = Jac_FULL(337,330) - JVS(4494) = 0 +! JVS(4494) = Jac_FULL(342,187) + JVS(4494) = -B(419) IF (DO_JVS(4495)) & -! JVS(4495) = Jac_FULL(337,331) - JVS(4495) = -B(671) +! JVS(4495) = Jac_FULL(342,221) + JVS(4495) = -B(401)+B(1706) IF (DO_JVS(4496)) & -! JVS(4496) = Jac_FULL(337,332) +! JVS(4496) = Jac_FULL(342,254) JVS(4496) = 0 IF (DO_JVS(4497)) & -! JVS(4497) = Jac_FULL(337,334) - JVS(4497) = 0.2*B(444) +! JVS(4497) = Jac_FULL(342,287) + JVS(4497) = 0 IF (DO_JVS(4498)) & -! JVS(4498) = Jac_FULL(337,335) - JVS(4498) = -B(73) +! JVS(4498) = Jac_FULL(342,293) + JVS(4498) = -B(641) IF (DO_JVS(4499)) & -! JVS(4499) = Jac_FULL(337,336) +! JVS(4499) = Jac_FULL(342,296) JVS(4499) = 0 IF (DO_JVS(4500)) & -! JVS(4500) = Jac_FULL(337,337) - JVS(4500) = -B(30)-B(38)-B(42)-2*B(44)-B(54)-B(74)-B(78)-B(133)-B(141)-B(151)-0.75*B(161)-B(219)-B(221)-B(223)-B(225)& - &-B(227)-B(229)-B(231)-B(233)-B(246)-B(276)-B(278)-B(280)-B(282)-B(284)-0.56*B(303)-B(391)-B(393)-B(453)& - &-B(476)-B(573)-B(575)-B(579)-B(672)-B(680)-B(736)-B(750)-B(763)-B(775)-B(787)-B(801)-B(827)-B(839)-B(852)& - &-B(906)-B(908)-0.937*B(958)-B(960)-0.937*B(962)-B(964)-0.725*B(1037)-0.725*B(1044)-B(1051)-0.35*B(1065)& - &-0.35*B(1077)-0.35*B(1079)-B(1088)-B(1092)-0.941*B(1115)-0.401*B(1122)-0.418*B(1130)-0.494*B(1136)-0.621& - &*B(1142)-B(1150)-B(1152)-0.674*B(1199)-0.42*B(1201)-0.67*B(1217)-0.27*B(1223)-B(1249)-B(1255)-0.695*B(1271)& - &-0.493*B(1277)-B(1279)-B(1292)-B(1325)-B(1355)-B(1365)-B(1402)-B(1408)-B(1433)-B(1450)-B(1491) +! JVS(4500) = Jac_FULL(342,297) + JVS(4500) = -B(417) IF (DO_JVS(4501)) & -! JVS(4501) = Jac_FULL(337,338) - JVS(4501) = B(530)+B(531)-B(580) +! JVS(4501) = Jac_FULL(342,301) + JVS(4501) = 0 IF (DO_JVS(4502)) & -! JVS(4502) = Jac_FULL(337,339) +! JVS(4502) = Jac_FULL(342,304) JVS(4502) = 0 IF (DO_JVS(4503)) & -! JVS(4503) = Jac_FULL(337,340) - JVS(4503) = B(566)+B(572)-B(574)-B(576)+B(606)+B(608)+B(610)+B(614)+B(620)+B(622)+B(624) +! JVS(4503) = Jac_FULL(342,318) + JVS(4503) = 0 IF (DO_JVS(4504)) & -! JVS(4504) = Jac_FULL(337,341) - JVS(4504) = B(28)-B(31)+B(35)+0.28*B(288)+0.05*B(730)+0.16*B(948)+0.1*B(1227)+0.1*B(1343)+B(1425)+0.1*B(1468)+0.1& - &*B(1473) +! JVS(4504) = Jac_FULL(342,320) + JVS(4504) = B(1705) IF (DO_JVS(4505)) & -! JVS(4505) = Jac_FULL(337,342) - JVS(4505) = -B(394)+B(414) +! JVS(4505) = Jac_FULL(342,321) + JVS(4505) = 0 IF (DO_JVS(4506)) & -! JVS(4506) = Jac_FULL(337,343) - JVS(4506) = -B(454)+B(470)+B(486) +! JVS(4506) = Jac_FULL(342,322) + JVS(4506) = 0 IF (DO_JVS(4507)) & -! JVS(4507) = Jac_FULL(337,344) +! JVS(4507) = Jac_FULL(342,323) JVS(4507) = 0 IF (DO_JVS(4508)) & -! JVS(4508) = Jac_FULL(337,345) - JVS(4508) = B(29)-B(39)+B(41)+B(46)+1.74*B(58)+B(64)+B(82)+B(88)+B(90)+0.05*B(96)+B(153)+0.425*B(155)+B(270)+B(272)& - &+0.773*B(290)+0.2*B(294)+B(309)+B(313)+B(321)+B(387)+B(409)+B(432)+B(532)+B(548)+B(550)+B(552)+0.5*B(744)& - &+0.5*B(781)+B(872)+0.4*B(954)+0.7*B(956)+0.085*B(1002)+0.165*B(1004)+0.283*B(1010)+B(1014)+0.25*B(1024)& - &+0.33*B(1026)+0.024*B(1028)+0.042*B(1030)+0.75*B(1053)+B(1055)+B(1059)+0.4*B(1110)+0.4*B(1112)+0.295& - &*B(1213)+0.036*B(1229)+0.715*B(1259)+B(1263)+B(1267)+B(1269)+0.5*B(1307)+0.444*B(1309)+0.62*B(1317)+0.5& - &*B(1323)+0.7*B(1339)+0.18*B(1345)+0.03*B(1349)+B(1357)+0.364*B(1363)+0.54*B(1382)+0.19*B(1384)+0.15*B(1386)& - &+0.8*B(1415)+0.727*B(1419)+0.33*B(1466)+0.33*B(1471) +! JVS(4508) = Jac_FULL(342,324) + JVS(4508) = 0 IF (DO_JVS(4509)) & -! JVS(4509) = Jac_FULL(337,346) - JVS(4509) = -B(43)+B(50)+B(109)+B(113)+B(119)+B(123)+0.75*B(129)+0.513*B(149)+B(157)+B(163)+0.27*B(172)+0.27*B(178)& - &+B(188)+B(301)+0.75*B(738)+0.75*B(777)+B(791)+0.75*B(803)+0.84*B(825)+B(856)+B(902)+B(988)+0.45*B(992)& - &+B(996)+0.45*B(1000)+B(1033)+B(1040)+B(1067)+B(1073)+B(1083)+0.272*B(1117)+B(1124)+B(1132)+B(1138)+B(1144)& - &+0.159*B(1174)+0.5*B(1203)+0.904*B(1207)+0.33*B(1215)+0.89*B(1221)+0.242*B(1273)+0.86*B(1284)+B(1353)& - &+B(1390)+B(1400) +! JVS(4509) = Jac_FULL(342,327) + JVS(4509) = 0 IF (DO_JVS(4510)) & -! JVS(4510) = Jac_FULL(337,347) - JVS(4510) = -B(392)+B(410) +! JVS(4510) = Jac_FULL(342,328) + JVS(4510) = 0 IF (DO_JVS(4511)) & -! JVS(4511) = Jac_FULL(337,348) - JVS(4511) = B(388) +! JVS(4511) = Jac_FULL(342,329) + JVS(4511) = -B(413) IF (DO_JVS(4512)) & -! JVS(4512) = Jac_FULL(337,349) - JVS(4512) = 0 +! JVS(4512) = Jac_FULL(342,330) + JVS(4512) = -B(415) IF (DO_JVS(4513)) & -! JVS(4513) = Jac_FULL(337,350) - JVS(4513) = 0 +! JVS(4513) = Jac_FULL(342,331) + JVS(4513) = B(657) IF (DO_JVS(4514)) & -! JVS(4514) = Jac_FULL(337,351) - JVS(4514) = -B(79)+B(83)+B(94)+B(305)+B(317)+B(740)+B(779)+B(795)+B(805)+B(829)+B(858)+0.5*B(876)+B(918)+0.159*B(1168)& - &+B(1392)+B(1488) +! JVS(4514) = Jac_FULL(342,332) + JVS(4514) = 0 IF (DO_JVS(4515)) & -! JVS(4515) = Jac_FULL(337,352) +! JVS(4515) = Jac_FULL(342,334) JVS(4515) = 0 IF (DO_JVS(4516)) & -! JVS(4516) = Jac_FULL(337,353) +! JVS(4516) = Jac_FULL(342,335) JVS(4516) = 0 IF (DO_JVS(4517)) & -! JVS(4517) = Jac_FULL(338,46) - JVS(4517) = 0.79*B(493) +! JVS(4517) = Jac_FULL(342,336) + JVS(4517) = B(659) IF (DO_JVS(4518)) & -! JVS(4518) = Jac_FULL(338,47) - JVS(4518) = 0.9*B(505) +! JVS(4518) = Jac_FULL(342,337) + JVS(4518) = 0.6*B(489)+0.56*B(498)+0.95*B(500)+1.4*B(502)+0.34*B(510)+0.75*B(526) IF (DO_JVS(4519)) & -! JVS(4519) = Jac_FULL(338,48) - JVS(4519) = 0.86*B(507) +! JVS(4519) = Jac_FULL(342,338) + JVS(4519) = B(399) IF (DO_JVS(4520)) & -! JVS(4520) = Jac_FULL(338,49) - JVS(4520) = 0.8*B(519) +! JVS(4520) = Jac_FULL(342,339) + JVS(4520) = 0 IF (DO_JVS(4521)) & -! JVS(4521) = Jac_FULL(338,50) - JVS(4521) = 0.85*B(521) +! JVS(4521) = Jac_FULL(342,340) + JVS(4521) = 0 IF (DO_JVS(4522)) & -! JVS(4522) = Jac_FULL(338,51) - JVS(4522) = 0.86*B(523) +! JVS(4522) = Jac_FULL(342,341) + JVS(4522) = -B(393) IF (DO_JVS(4523)) & -! JVS(4523) = Jac_FULL(338,61) - JVS(4523) = 0.34*B(509) +! JVS(4523) = Jac_FULL(342,342) + JVS(4523) = -B(389)-B(394)-B(402)-B(411)-B(414)-B(416)-B(418)-B(420)-B(422)-B(423)-B(642) IF (DO_JVS(4524)) & -! JVS(4524) = Jac_FULL(338,76) - JVS(4524) = 2*B(592) +! JVS(4524) = Jac_FULL(342,343) + JVS(4524) = B(395)+B(404)+B(409)+3*B(428)+2*B(430)+B(432) IF (DO_JVS(4525)) & -! JVS(4525) = Jac_FULL(338,84) - JVS(4525) = 0.79*B(517) +! JVS(4525) = Jac_FULL(342,344) + JVS(4525) = B(595)+B(597) IF (DO_JVS(4526)) & -! JVS(4526) = Jac_FULL(338,85) - JVS(4526) = 0.69*B(513) +! JVS(4526) = Jac_FULL(342,345) + JVS(4526) = -B(424) IF (DO_JVS(4527)) & -! JVS(4527) = Jac_FULL(338,86) - JVS(4527) = 0.65*B(515) +! JVS(4527) = Jac_FULL(342,346) + JVS(4527) = 0 IF (DO_JVS(4528)) & -! JVS(4528) = Jac_FULL(338,87) - JVS(4528) = 0.56*B(503) +! JVS(4528) = Jac_FULL(342,347) + JVS(4528) = 2*B(397)+B(400)+B(410)+B(483)+B(596)+B(598)+B(658)+B(660)+B(1704) IF (DO_JVS(4529)) & -! JVS(4529) = Jac_FULL(338,110) - JVS(4529) = 0.1*B(593) +! JVS(4529) = Jac_FULL(342,348) + JVS(4529) = -B(412) IF (DO_JVS(4530)) & -! JVS(4530) = Jac_FULL(338,120) - JVS(4530) = B(1704) +! JVS(4530) = Jac_FULL(342,349) + JVS(4530) = 0 IF (DO_JVS(4531)) & -! JVS(4531) = Jac_FULL(338,181) - JVS(4531) = 0.46*B(495) +! JVS(4531) = Jac_FULL(342,350) + JVS(4531) = 0 IF (DO_JVS(4532)) & -! JVS(4532) = Jac_FULL(338,245) - JVS(4532) = 0.75*B(491) +! JVS(4532) = Jac_FULL(342,351) + JVS(4532) = B(407)+B(484) IF (DO_JVS(4533)) & -! JVS(4533) = Jac_FULL(338,284) - JVS(4533) = -B(667) +! JVS(4533) = Jac_FULL(342,352) + JVS(4533) = 0 IF (DO_JVS(4534)) & -! JVS(4534) = Jac_FULL(338,296) - JVS(4534) = B(619) +! JVS(4534) = Jac_FULL(342,353) + JVS(4534) = 0 IF (DO_JVS(4535)) & -! JVS(4535) = Jac_FULL(338,297) - JVS(4535) = 0 +! JVS(4535) = Jac_FULL(342,354) + JVS(4535) = B(396)+B(408)+0.6*B(490) IF (DO_JVS(4536)) & -! JVS(4536) = Jac_FULL(338,315) - JVS(4536) = B(621) +! JVS(4536) = Jac_FULL(342,355) + JVS(4536) = 0 IF (DO_JVS(4537)) & -! JVS(4537) = Jac_FULL(338,317) - JVS(4537) = B(601)+B(1708) +! JVS(4537) = Jac_FULL(342,356) + JVS(4537) = -B(390) IF (DO_JVS(4538)) & -! JVS(4538) = Jac_FULL(338,318) - JVS(4538) = 0 +! JVS(4538) = Jac_FULL(343,44) + JVS(4538) = -B(1489) IF (DO_JVS(4539)) & -! JVS(4539) = Jac_FULL(338,319) - JVS(4539) = 0 +! JVS(4539) = Jac_FULL(343,46) + JVS(4539) = -B(553) IF (DO_JVS(4540)) & -! JVS(4540) = Jac_FULL(338,320) - JVS(4540) = 0 +! JVS(4540) = Jac_FULL(343,55) + JVS(4540) = -B(685) IF (DO_JVS(4541)) & -! JVS(4541) = Jac_FULL(338,321) - JVS(4541) = 0 +! JVS(4541) = Jac_FULL(343,61) + JVS(4541) = -B(1397) IF (DO_JVS(4542)) & -! JVS(4542) = Jac_FULL(338,322) - JVS(4542) = 0 +! JVS(4542) = Jac_FULL(343,63) + JVS(4542) = -0.364*B(1362) IF (DO_JVS(4543)) & -! JVS(4543) = Jac_FULL(338,323) - JVS(4543) = 0 +! JVS(4543) = Jac_FULL(343,69) + JVS(4543) = -B(760)+B(1823) IF (DO_JVS(4544)) & -! JVS(4544) = Jac_FULL(338,324) - JVS(4544) = 0 +! JVS(4544) = Jac_FULL(343,71) + JVS(4544) = -B(459) IF (DO_JVS(4545)) & -! JVS(4545) = Jac_FULL(338,326) - JVS(4545) = 0 +! JVS(4545) = Jac_FULL(343,72) + JVS(4545) = -B(124) IF (DO_JVS(4546)) & -! JVS(4546) = Jac_FULL(338,328) - JVS(4546) = -B(529)+B(613) +! JVS(4546) = Jac_FULL(343,73) + JVS(4546) = -B(1375) IF (DO_JVS(4547)) & -! JVS(4547) = Jac_FULL(338,329) - JVS(4547) = 0 +! JVS(4547) = Jac_FULL(343,74) + JVS(4547) = -B(308) IF (DO_JVS(4548)) & -! JVS(4548) = Jac_FULL(338,330) - JVS(4548) = 0 +! JVS(4548) = Jac_FULL(343,75) + JVS(4548) = -B(675) IF (DO_JVS(4549)) & -! JVS(4549) = Jac_FULL(338,331) - JVS(4549) = 0 +! JVS(4549) = Jac_FULL(343,76) + JVS(4549) = -B(758)+B(1822) IF (DO_JVS(4550)) & -! JVS(4550) = Jac_FULL(338,332) - JVS(4550) = 0 +! JVS(4550) = Jac_FULL(343,77) + JVS(4550) = -B(1438)+B(1816) IF (DO_JVS(4551)) & -! JVS(4551) = Jac_FULL(338,333) - JVS(4551) = B(541) +! JVS(4551) = Jac_FULL(343,78) + JVS(4551) = -B(537) IF (DO_JVS(4552)) & -! JVS(4552) = Jac_FULL(338,334) - JVS(4552) = 0.22*B(487)+0.75*B(492)+0.79*B(494)+0.46*B(496)+0.56*B(504)+0.9*B(506)+0.86*B(508)+0.34*B(510)+0.69*B(514)& - &+0.65*B(516)+0.79*B(518)+0.8*B(520)+0.85*B(522)+0.86*B(524) +! JVS(4552) = Jac_FULL(343,79) + JVS(4552) = -B(429) IF (DO_JVS(4553)) & -! JVS(4553) = Jac_FULL(338,335) - JVS(4553) = -B(583) +! JVS(4553) = Jac_FULL(343,80) + JVS(4553) = -B(549) IF (DO_JVS(4554)) & -! JVS(4554) = Jac_FULL(338,336) - JVS(4554) = 0 +! JVS(4554) = Jac_FULL(343,82) + JVS(4554) = -B(427) IF (DO_JVS(4555)) & -! JVS(4555) = Jac_FULL(338,337) - JVS(4555) = B(575)-B(579) +! JVS(4555) = Jac_FULL(343,84) + JVS(4555) = -B(551) IF (DO_JVS(4556)) & -! JVS(4556) = Jac_FULL(338,338) - JVS(4556) = -B(530)-B(531)-B(533)-B(577)-B(580)-B(581)-B(584)-2*B(585)-2*B(586)-2*B(587)-2*B(591)-B(595)-B(597)-B(599)& - &-B(668)-B(1703) +! JVS(4556) = Jac_FULL(343,85) + JVS(4556) = -B(1383) IF (DO_JVS(4557)) & -! JVS(4557) = Jac_FULL(338,339) - JVS(4557) = 0.22*B(488) +! JVS(4557) = Jac_FULL(343,86) + JVS(4557) = -B(941) IF (DO_JVS(4558)) & -! JVS(4558) = Jac_FULL(338,340) - JVS(4558) = B(567)+B(576)+0.1*B(594)+B(614)+B(620)+B(622) +! JVS(4558) = Jac_FULL(343,87) + JVS(4558) = -B(381)-B(383) IF (DO_JVS(4559)) & -! JVS(4559) = Jac_FULL(338,341) - JVS(4559) = B(568) +! JVS(4559) = Jac_FULL(343,88) + JVS(4559) = -B(561) IF (DO_JVS(4560)) & -! JVS(4560) = Jac_FULL(338,342) - JVS(4560) = 0 +! JVS(4560) = Jac_FULL(343,89) + JVS(4560) = -B(557) IF (DO_JVS(4561)) & -! JVS(4561) = Jac_FULL(338,343) - JVS(4561) = -B(578)+B(602) +! JVS(4561) = Jac_FULL(343,90) + JVS(4561) = -B(559) IF (DO_JVS(4562)) & -! JVS(4562) = Jac_FULL(338,344) - JVS(4562) = 0 +! JVS(4562) = Jac_FULL(343,91) + JVS(4562) = 0.05*B(503)-B(555) IF (DO_JVS(4563)) & -! JVS(4563) = Jac_FULL(338,345) - JVS(4563) = -B(532)-B(534)+B(542) +! JVS(4563) = Jac_FULL(343,92) + JVS(4563) = -0.5*B(1322)+2*B(1774) IF (DO_JVS(4564)) & -! JVS(4564) = Jac_FULL(338,346) - JVS(4564) = -B(582) +! JVS(4564) = Jac_FULL(343,93) + JVS(4564) = -B(23)-B(1651) IF (DO_JVS(4565)) & -! JVS(4565) = Jac_FULL(338,347) - JVS(4565) = -B(596)-B(598)-B(600) +! JVS(4565) = Jac_FULL(343,94) + JVS(4565) = -B(943) IF (DO_JVS(4566)) & -! JVS(4566) = Jac_FULL(338,348) - JVS(4566) = 0 +! JVS(4566) = Jac_FULL(343,95) + JVS(4566) = -0.78*B(342)+B(1702) IF (DO_JVS(4567)) & -! JVS(4567) = Jac_FULL(338,349) - JVS(4567) = 0 +! JVS(4567) = Jac_FULL(343,96) + JVS(4567) = -B(939) IF (DO_JVS(4568)) & -! JVS(4568) = Jac_FULL(338,350) - JVS(4568) = 0 +! JVS(4568) = Jac_FULL(343,97) + JVS(4568) = -B(945) IF (DO_JVS(4569)) & -! JVS(4569) = Jac_FULL(338,351) - JVS(4569) = 0 +! JVS(4569) = Jac_FULL(343,99) + JVS(4569) = -0.21*B(332)+B(1693) IF (DO_JVS(4570)) & -! JVS(4570) = Jac_FULL(338,352) - JVS(4570) = 0 +! JVS(4570) = Jac_FULL(343,100) + JVS(4570) = -0.5*B(134)+B(1694) IF (DO_JVS(4571)) & -! JVS(4571) = Jac_FULL(338,353) - JVS(4571) = 0 +! JVS(4571) = Jac_FULL(343,101) + JVS(4571) = -0.36*B(328)+B(1691) IF (DO_JVS(4572)) & -! JVS(4572) = Jac_FULL(339,75) - JVS(4572) = B(609) +! JVS(4572) = Jac_FULL(343,102) + JVS(4572) = -0.209*B(330)+B(1692) IF (DO_JVS(4573)) & -! JVS(4573) = Jac_FULL(339,79) - JVS(4573) = B(607) +! JVS(4573) = Jac_FULL(343,103) + JVS(4573) = -B(1385) IF (DO_JVS(4574)) & -! JVS(4574) = Jac_FULL(339,141) - JVS(4574) = B(629)+B(631) +! JVS(4574) = Jac_FULL(343,104) + JVS(4574) = -0.21*B(334)+B(1695) IF (DO_JVS(4575)) & -! JVS(4575) = Jac_FULL(339,142) - JVS(4575) = B(637) +! JVS(4575) = Jac_FULL(343,105) + JVS(4575) = -B(1441) IF (DO_JVS(4576)) & -! JVS(4576) = Jac_FULL(339,156) - JVS(4576) = B(625) +! JVS(4576) = Jac_FULL(343,108) + JVS(4576) = -B(431) IF (DO_JVS(4577)) & -! JVS(4577) = Jac_FULL(339,164) - JVS(4577) = B(615) +! JVS(4577) = Jac_FULL(343,109) + JVS(4577) = -0.3*B(1304) IF (DO_JVS(4578)) & -! JVS(4578) = Jac_FULL(339,166) - JVS(4578) = -B(11) +! JVS(4578) = Jac_FULL(343,110) + JVS(4578) = -B(76)+B(1664) IF (DO_JVS(4579)) & -! JVS(4579) = Jac_FULL(339,179) - JVS(4579) = -B(4) +! JVS(4579) = Jac_FULL(343,111) + JVS(4579) = -B(741)+B(1820) IF (DO_JVS(4580)) & -! JVS(4580) = Jac_FULL(339,181) - JVS(4580) = 2*B(605) +! JVS(4580) = Jac_FULL(343,112) + JVS(4580) = -B(782)+B(1825) IF (DO_JVS(4581)) & -! JVS(4581) = Jac_FULL(339,183) - JVS(4581) = B(617) +! JVS(4581) = Jac_FULL(343,113) + JVS(4581) = -B(241) IF (DO_JVS(4582)) & -! JVS(4582) = Jac_FULL(339,214) - JVS(4582) = -B(1498) +! JVS(4582) = Jac_FULL(343,115) + JVS(4582) = -B(306) IF (DO_JVS(4583)) & -! JVS(4583) = Jac_FULL(339,218) - JVS(4583) = -B(1511) +! JVS(4583) = Jac_FULL(343,116) + JVS(4583) = -B(1320) IF (DO_JVS(4584)) & -! JVS(4584) = Jac_FULL(339,228) - JVS(4584) = B(563) +! JVS(4584) = Jac_FULL(343,117) + JVS(4584) = -B(1356) IF (DO_JVS(4585)) & -! JVS(4585) = Jac_FULL(339,264) - JVS(4585) = B(571) +! JVS(4585) = Jac_FULL(343,118) + JVS(4585) = -B(1451) IF (DO_JVS(4586)) & -! JVS(4586) = Jac_FULL(339,265) - JVS(4586) = B(611) +! JVS(4586) = Jac_FULL(343,120) + JVS(4586) = -B(1360) IF (DO_JVS(4587)) & -! JVS(4587) = Jac_FULL(339,269) - JVS(4587) = 0 +! JVS(4587) = Jac_FULL(343,121) + JVS(4587) = -0.36*B(326)+B(1690) IF (DO_JVS(4588)) & -! JVS(4588) = Jac_FULL(339,276) - JVS(4588) = B(635) +! JVS(4588) = Jac_FULL(343,122) + JVS(4588) = -B(1013) IF (DO_JVS(4589)) & -! JVS(4589) = Jac_FULL(339,282) - JVS(4589) = B(623) +! JVS(4589) = Jac_FULL(343,123) + JVS(4589) = -B(535) IF (DO_JVS(4590)) & -! JVS(4590) = Jac_FULL(339,283) - JVS(4590) = B(627) +! JVS(4590) = Jac_FULL(343,125) + JVS(4590) = -B(1412) IF (DO_JVS(4591)) & -! JVS(4591) = Jac_FULL(339,289) - JVS(4591) = 0 +! JVS(4591) = Jac_FULL(343,126) + JVS(4591) = -0.209*B(338)+B(1696) IF (DO_JVS(4592)) & -! JVS(4592) = Jac_FULL(339,290) - JVS(4592) = B(639) +! JVS(4592) = Jac_FULL(343,127) + JVS(4592) = -B(206) IF (DO_JVS(4593)) & -! JVS(4593) = Jac_FULL(339,291) - JVS(4593) = 0 +! JVS(4593) = Jac_FULL(343,128) + JVS(4593) = -0.209*B(324)+B(1689) IF (DO_JVS(4594)) & -! JVS(4594) = Jac_FULL(339,295) - JVS(4594) = B(633) +! JVS(4594) = Jac_FULL(343,129) + JVS(4594) = -B(167) IF (DO_JVS(4595)) & -! JVS(4595) = Jac_FULL(339,296) - JVS(4595) = 0 +! JVS(4595) = Jac_FULL(343,130) + JVS(4595) = -B(152) IF (DO_JVS(4596)) & -! JVS(4596) = Jac_FULL(339,297) - JVS(4596) = -B(1531) +! JVS(4596) = Jac_FULL(343,131) + JVS(4596) = -B(1052) IF (DO_JVS(4597)) & -! JVS(4597) = Jac_FULL(339,300) - JVS(4597) = 0 +! JVS(4597) = Jac_FULL(343,132) + JVS(4597) = -B(784) IF (DO_JVS(4598)) & -! JVS(4598) = Jac_FULL(339,301) - JVS(4598) = 0 +! JVS(4598) = Jac_FULL(343,134) + JVS(4598) = -B(849)+B(1828) IF (DO_JVS(4599)) & -! JVS(4599) = Jac_FULL(339,302) - JVS(4599) = 0 +! JVS(4599) = Jac_FULL(343,135) + JVS(4599) = -B(1262) IF (DO_JVS(4600)) & -! JVS(4600) = Jac_FULL(339,303) - JVS(4600) = 0 +! JVS(4600) = Jac_FULL(343,136) + JVS(4600) = B(1089)+2*B(1091) IF (DO_JVS(4601)) & -! JVS(4601) = Jac_FULL(339,304) - JVS(4601) = 0 +! JVS(4601) = Jac_FULL(343,137) + JVS(4601) = B(1085)+2*B(1087) IF (DO_JVS(4602)) & -! JVS(4602) = Jac_FULL(339,305) - JVS(4602) = 0 +! JVS(4602) = Jac_FULL(343,138) + JVS(4602) = -B(1377)+B(1814) IF (DO_JVS(4603)) & -! JVS(4603) = Jac_FULL(339,306) - JVS(4603) = 0 +! JVS(4603) = Jac_FULL(343,139) + JVS(4603) = -B(743) IF (DO_JVS(4604)) & -! JVS(4604) = Jac_FULL(339,307) - JVS(4604) = 0 +! JVS(4604) = Jac_FULL(343,140) + JVS(4604) = -B(142) IF (DO_JVS(4605)) & -! JVS(4605) = Jac_FULL(339,308) - JVS(4605) = 0 +! JVS(4605) = Jac_FULL(343,141) + JVS(4605) = -B(780) IF (DO_JVS(4606)) & -! JVS(4606) = Jac_FULL(339,309) - JVS(4606) = 0 +! JVS(4606) = Jac_FULL(343,142) + JVS(4606) = -B(114)-B(116) IF (DO_JVS(4607)) & -! JVS(4607) = Jac_FULL(339,310) - JVS(4607) = 0 +! JVS(4607) = Jac_FULL(343,143) + JVS(4607) = -B(102) IF (DO_JVS(4608)) & -! JVS(4608) = Jac_FULL(339,311) - JVS(4608) = 0 +! JVS(4608) = Jac_FULL(343,144) + JVS(4608) = -B(169) IF (DO_JVS(4609)) & -! JVS(4609) = Jac_FULL(339,312) - JVS(4609) = 0 +! JVS(4609) = Jac_FULL(343,145) + JVS(4609) = -B(1381) IF (DO_JVS(4610)) & -! JVS(4610) = Jac_FULL(339,313) - JVS(4610) = 0 +! JVS(4610) = Jac_FULL(343,146) + JVS(4610) = 2*B(1759) IF (DO_JVS(4611)) & -! JVS(4611) = Jac_FULL(339,314) - JVS(4611) = 0 +! JVS(4611) = Jac_FULL(343,148) + JVS(4611) = -B(1344) IF (DO_JVS(4612)) & -! JVS(4612) = Jac_FULL(339,315) - JVS(4612) = 0 +! JVS(4612) = Jac_FULL(343,149) + JVS(4612) = -0.556*B(1308)+0.546*B(1809) IF (DO_JVS(4613)) & -! JVS(4613) = Jac_FULL(339,316) - JVS(4613) = -B(1551) +! JVS(4613) = Jac_FULL(343,150) + JVS(4613) = B(1794) IF (DO_JVS(4614)) & -! JVS(4614) = Jac_FULL(339,317) - JVS(4614) = -B(1515) +! JVS(4614) = Jac_FULL(343,151) + JVS(4614) = B(1795) IF (DO_JVS(4615)) & -! JVS(4615) = Jac_FULL(339,318) - JVS(4615) = 0 +! JVS(4615) = Jac_FULL(343,152) + JVS(4615) = -B(1403) IF (DO_JVS(4616)) & -! JVS(4616) = Jac_FULL(339,319) - JVS(4616) = 0 +! JVS(4616) = Jac_FULL(343,153) + JVS(4616) = -B(403) IF (DO_JVS(4617)) & -! JVS(4617) = Jac_FULL(339,320) - JVS(4617) = 0 +! JVS(4617) = Jac_FULL(343,154) + JVS(4617) = -B(269) IF (DO_JVS(4618)) & -! JVS(4618) = Jac_FULL(339,321) - JVS(4618) = 0 +! JVS(4618) = Jac_FULL(343,155) + JVS(4618) = -B(1268) IF (DO_JVS(4619)) & -! JVS(4619) = Jac_FULL(339,322) - JVS(4619) = 0 +! JVS(4619) = Jac_FULL(343,156) + JVS(4619) = -B(937) IF (DO_JVS(4620)) & -! JVS(4620) = Jac_FULL(339,323) - JVS(4620) = 0 +! JVS(4620) = Jac_FULL(343,157) + JVS(4620) = -B(1054)-B(1056) IF (DO_JVS(4621)) & -! JVS(4621) = Jac_FULL(339,324) - JVS(4621) = 0 +! JVS(4621) = Jac_FULL(343,158) + JVS(4621) = -B(336)+B(1697) IF (DO_JVS(4622)) & -! JVS(4622) = Jac_FULL(339,325) - JVS(4622) = B(565) +! JVS(4622) = Jac_FULL(343,159) + JVS(4622) = -B(1058)-B(1060) IF (DO_JVS(4623)) & -! JVS(4623) = Jac_FULL(339,326) - JVS(4623) = 0 +! JVS(4623) = Jac_FULL(343,161) + JVS(4623) = -0.415*B(1280)+0.75*B(1784) IF (DO_JVS(4624)) & -! JVS(4624) = Jac_FULL(339,327) - JVS(4624) = 0 +! JVS(4624) = Jac_FULL(343,162) + JVS(4624) = -B(1418) IF (DO_JVS(4625)) & -! JVS(4625) = Jac_FULL(339,328) - JVS(4625) = 0 +! JVS(4625) = Jac_FULL(343,163) + JVS(4625) = -B(770)+B(1824) IF (DO_JVS(4626)) & -! JVS(4626) = Jac_FULL(339,329) - JVS(4626) = 0 +! JVS(4626) = Jac_FULL(343,164) + JVS(4626) = -B(796)+B(1826) IF (DO_JVS(4627)) & -! JVS(4627) = Jac_FULL(339,332) - JVS(4627) = 0 +! JVS(4627) = Jac_FULL(343,165) + JVS(4627) = -B(798) IF (DO_JVS(4628)) & -! JVS(4628) = Jac_FULL(339,333) - JVS(4628) = -B(1539)+B(1547) +! JVS(4628) = Jac_FULL(343,166) + JVS(4628) = -B(832) IF (DO_JVS(4629)) & -! JVS(4629) = Jac_FULL(339,334) - JVS(4629) = -0.88*B(487) +! JVS(4629) = Jac_FULL(343,167) + JVS(4629) = -0.7*B(59)+B(1659) IF (DO_JVS(4630)) & -! JVS(4630) = Jac_FULL(339,335) - JVS(4630) = 0 +! JVS(4630) = Jac_FULL(343,170) + JVS(4630) = -B(723)+0.865*B(725) IF (DO_JVS(4631)) & -! JVS(4631) = Jac_FULL(339,336) - JVS(4631) = 0 +! JVS(4631) = Jac_FULL(343,171) + JVS(4631) = -B(847)+B(1827) IF (DO_JVS(4632)) & -! JVS(4632) = Jac_FULL(339,337) - JVS(4632) = B(573) +! JVS(4632) = Jac_FULL(343,172) + JVS(4632) = -B(673) IF (DO_JVS(4633)) & -! JVS(4633) = Jac_FULL(339,338) - JVS(4633) = B(533) +! JVS(4633) = Jac_FULL(343,173) + JVS(4633) = B(1248) IF (DO_JVS(4634)) & -! JVS(4634) = Jac_FULL(339,339) - JVS(4634) = -B(5)-B(12)-0.88*B(488)-B(539)-B(1499)-B(1512)-B(1516)-B(1532)-B(1540)-B(1552) +! JVS(4634) = Jac_FULL(343,174) + JVS(4634) = B(1254) IF (DO_JVS(4635)) & -! JVS(4635) = Jac_FULL(339,340) - JVS(4635) = B(564)+B(566)+B(569)+B(572)+B(574)+2*B(606)+B(608)+B(610)+B(612)+B(616)+B(618)+B(624)+B(626)+B(628)+B(630)& - &+B(632)+B(634)+B(636)+B(638)+B(640) +! JVS(4635) = Jac_FULL(343,175) + JVS(4635) = -B(1093)-B(1095) IF (DO_JVS(4636)) & -! JVS(4636) = Jac_FULL(339,341) - JVS(4636) = 0 +! JVS(4636) = Jac_FULL(343,176) + JVS(4636) = -B(1336) IF (DO_JVS(4637)) & -! JVS(4637) = Jac_FULL(339,342) - JVS(4637) = 0 +! JVS(4637) = Jac_FULL(343,177) + JVS(4637) = -B(1097)-B(1099) IF (DO_JVS(4638)) & -! JVS(4638) = Jac_FULL(339,343) - JVS(4638) = 0 +! JVS(4638) = Jac_FULL(343,178) + JVS(4638) = 1.25*B(1807) IF (DO_JVS(4639)) & -! JVS(4639) = Jac_FULL(339,344) - JVS(4639) = 0 +! JVS(4639) = Jac_FULL(343,179) + JVS(4639) = -B(772) IF (DO_JVS(4640)) & -! JVS(4640) = Jac_FULL(339,345) - JVS(4640) = B(534)-B(540) +! JVS(4640) = Jac_FULL(343,180) + JVS(4640) = -B(836) IF (DO_JVS(4641)) & -! JVS(4641) = Jac_FULL(339,346) - JVS(4641) = 0 +! JVS(4641) = Jac_FULL(343,181) + JVS(4641) = 0.82*B(1222) IF (DO_JVS(4642)) & -! JVS(4642) = Jac_FULL(339,347) +! JVS(4642) = Jac_FULL(343,182) JVS(4642) = 0 IF (DO_JVS(4643)) & -! JVS(4643) = Jac_FULL(339,348) - JVS(4643) = B(1548) +! JVS(4643) = Jac_FULL(343,183) + JVS(4643) = 0 IF (DO_JVS(4644)) & -! JVS(4644) = Jac_FULL(339,349) - JVS(4644) = 0 +! JVS(4644) = Jac_FULL(343,184) + JVS(4644) = -B(547) IF (DO_JVS(4645)) & -! JVS(4645) = Jac_FULL(339,350) - JVS(4645) = 0 +! JVS(4645) = Jac_FULL(343,185) + JVS(4645) = B(1216) IF (DO_JVS(4646)) & -! JVS(4646) = Jac_FULL(339,351) - JVS(4646) = 0 +! JVS(4646) = Jac_FULL(343,186) + JVS(4646) = 0.599*B(1121) IF (DO_JVS(4647)) & -! JVS(4647) = Jac_FULL(339,352) - JVS(4647) = 0 +! JVS(4647) = Jac_FULL(343,187) + JVS(4647) = -B(106) IF (DO_JVS(4648)) & -! JVS(4648) = Jac_FULL(339,353) - JVS(4648) = 0 +! JVS(4648) = Jac_FULL(343,188) + JVS(4648) = -B(1182)-B(1188)-B(1192)+B(1801) IF (DO_JVS(4649)) & -! JVS(4649) = Jac_FULL(340,3) - JVS(4649) = B(1735) +! JVS(4649) = Jac_FULL(343,189) + JVS(4649) = -B(1302) IF (DO_JVS(4650)) & -! JVS(4650) = Jac_FULL(340,43) - JVS(4650) = 3*B(553)+3*B(1710) +! JVS(4650) = Jac_FULL(343,190) + JVS(4650) = B(1781) IF (DO_JVS(4651)) & -! JVS(4651) = Jac_FULL(340,46) - JVS(4651) = 2.37*B(493)+4*B(1711) +! JVS(4651) = Jac_FULL(343,191) + JVS(4651) = -B(1015)-B(1023)+B(1788) IF (DO_JVS(4652)) & -! JVS(4652) = Jac_FULL(340,47) - JVS(4652) = 1.8*B(505)+3*B(1712) +! JVS(4652) = Jac_FULL(343,192) + JVS(4652) = -B(271) IF (DO_JVS(4653)) & -! JVS(4653) = Jac_FULL(340,48) - JVS(4653) = 0.86*B(507)+2*B(1713) +! JVS(4653) = Jac_FULL(343,193) + JVS(4653) = B(1354) IF (DO_JVS(4654)) & -! JVS(4654) = Jac_FULL(340,49) - JVS(4654) = 1.9*B(519)+3*B(1714) +! JVS(4654) = Jac_FULL(343,194) + JVS(4654) = -B(731)+0.65*B(733) IF (DO_JVS(4655)) & -! JVS(4655) = Jac_FULL(340,50) - JVS(4655) = 0.95*B(521)+2*B(1715) +! JVS(4655) = Jac_FULL(343,195) + JVS(4655) = -B(1019)-B(1025)+B(1789) IF (DO_JVS(4656)) & -! JVS(4656) = Jac_FULL(340,51) - JVS(4656) = B(1716) +! JVS(4656) = Jac_FULL(343,196) + JVS(4656) = -B(865) IF (DO_JVS(4657)) & -! JVS(4657) = Jac_FULL(340,61) - JVS(4657) = 0.31*B(509)+B(1722) +! JVS(4657) = Jac_FULL(343,197) + JVS(4657) = -0.715*B(1258)+1.75*B(1782) IF (DO_JVS(4658)) & -! JVS(4658) = Jac_FULL(340,75) - JVS(4658) = 3*B(551)+2*B(609) +! JVS(4658) = Jac_FULL(343,198) + JVS(4658) = B(1808) IF (DO_JVS(4659)) & -! JVS(4659) = Jac_FULL(340,76) - JVS(4659) = B(1705) +! JVS(4659) = Jac_FULL(343,199) + JVS(4659) = -B(1414) IF (DO_JVS(4660)) & -! JVS(4660) = Jac_FULL(340,79) - JVS(4660) = 2*B(549)+B(607)+2*B(1700) +! JVS(4660) = Jac_FULL(343,200) + JVS(4660) = -B(136) IF (DO_JVS(4661)) & -! JVS(4661) = Jac_FULL(340,84) - JVS(4661) = 0.79*B(517)+2*B(561)+2*B(1717) +! JVS(4661) = Jac_FULL(343,201) + JVS(4661) = 0.25*B(160) IF (DO_JVS(4662)) & -! JVS(4662) = Jac_FULL(340,85) - JVS(4662) = 0.69*B(513)+2*B(557)+2*B(1718) +! JVS(4662) = Jac_FULL(343,202) + JVS(4662) = -0.255*B(1029)+B(1791) IF (DO_JVS(4663)) & -! JVS(4663) = Jac_FULL(340,86) - JVS(4663) = B(559)+B(1719) +! JVS(4663) = Jac_FULL(343,203) + JVS(4663) = -B(1348) IF (DO_JVS(4664)) & -! JVS(4664) = Jac_FULL(340,87) - JVS(4664) = 0.19*B(503)+B(555)+B(1720) +! JVS(4664) = Jac_FULL(343,204) + JVS(4664) = -0.75*B(1470)+0.1*B(1472) IF (DO_JVS(4665)) & -! JVS(4665) = Jac_FULL(340,104) - JVS(4665) = B(1740) +! JVS(4665) = Jac_FULL(343,205) + JVS(4665) = -B(1422)+B(1424) IF (DO_JVS(4666)) & -! JVS(4666) = Jac_FULL(340,110) - JVS(4666) = B(590)-B(593)+B(1724) +! JVS(4666) = Jac_FULL(343,207) + JVS(4666) = -B(1428) IF (DO_JVS(4667)) & -! JVS(4667) = Jac_FULL(340,141) - JVS(4667) = -B(629)-B(631) +! JVS(4667) = Jac_FULL(343,208) + JVS(4667) = 0.506*B(1135) IF (DO_JVS(4668)) & -! JVS(4668) = Jac_FULL(340,142) - JVS(4668) = -B(637) +! JVS(4668) = Jac_FULL(343,209) + JVS(4668) = 0.582*B(1129) IF (DO_JVS(4669)) & -! JVS(4669) = Jac_FULL(340,156) - JVS(4669) = -B(625) +! JVS(4669) = Jac_FULL(343,210) + JVS(4669) = 0.518*B(1114) IF (DO_JVS(4670)) & -! JVS(4670) = Jac_FULL(340,157) - JVS(4670) = B(1701) +! JVS(4670) = Jac_FULL(343,211) + JVS(4670) = -B(1266) IF (DO_JVS(4671)) & -! JVS(4671) = Jac_FULL(340,164) - JVS(4671) = -B(615) +! JVS(4671) = Jac_FULL(343,212) + JVS(4671) = -B(818) IF (DO_JVS(4672)) & -! JVS(4672) = Jac_FULL(340,181) - JVS(4672) = 0.35*B(495)+B(547)-B(605)+B(1699) +! JVS(4672) = Jac_FULL(343,213) + JVS(4672) = -0.595*B(1027)+B(1790) IF (DO_JVS(4673)) & -! JVS(4673) = Jac_FULL(340,183) - JVS(4673) = -B(617) +! JVS(4673) = Jac_FULL(343,214) + JVS(4673) = B(1775) IF (DO_JVS(4674)) & -! JVS(4674) = Jac_FULL(340,218) +! JVS(4674) = Jac_FULL(343,215) JVS(4674) = 0 IF (DO_JVS(4675)) & -! JVS(4675) = Jac_FULL(340,228) - JVS(4675) = -B(563) +! JVS(4675) = Jac_FULL(343,216) + JVS(4675) = 0.44*B(302) IF (DO_JVS(4676)) & -! JVS(4676) = Jac_FULL(340,245) - JVS(4676) = 0.75*B(491)+B(527)+2*B(1702) +! JVS(4676) = Jac_FULL(343,219) + JVS(4676) = B(473)+1.788*B(475) IF (DO_JVS(4677)) & -! JVS(4677) = Jac_FULL(340,252) - JVS(4677) = 0 +! JVS(4677) = Jac_FULL(343,220) + JVS(4677) = B(1787) IF (DO_JVS(4678)) & -! JVS(4678) = Jac_FULL(340,264) - JVS(4678) = -B(571) +! JVS(4678) = Jac_FULL(343,221) + JVS(4678) = 0 IF (DO_JVS(4679)) & -! JVS(4679) = Jac_FULL(340,265) - JVS(4679) = -B(611) +! JVS(4679) = Jac_FULL(343,222) + JVS(4679) = -B(727)+0.8*B(729) IF (DO_JVS(4680)) & -! JVS(4680) = Jac_FULL(340,269) - JVS(4680) = 0 +! JVS(4680) = Jac_FULL(343,223) + JVS(4680) = -B(1338)+0.18*B(1342) IF (DO_JVS(4681)) & -! JVS(4681) = Jac_FULL(340,276) - JVS(4681) = -B(635) +! JVS(4681) = Jac_FULL(343,224) + JVS(4681) = -0.75*B(1465)+0.1*B(1467) IF (DO_JVS(4682)) & -! JVS(4682) = Jac_FULL(340,282) - JVS(4682) = -B(623) +! JVS(4682) = Jac_FULL(343,225) + JVS(4682) = -B(1180)-B(1190)+0.67*B(1800) IF (DO_JVS(4683)) & -! JVS(4683) = Jac_FULL(340,283) - JVS(4683) = -B(627) +! JVS(4683) = Jac_FULL(343,226) + JVS(4683) = B(1038)+0.275*B(1043) IF (DO_JVS(4684)) & -! JVS(4684) = Jac_FULL(340,284) - JVS(4684) = 0.249*B(667) +! JVS(4684) = Jac_FULL(343,227) + JVS(4684) = -B(747) IF (DO_JVS(4685)) & -! JVS(4685) = Jac_FULL(340,289) - JVS(4685) = 0 +! JVS(4685) = Jac_FULL(343,228) + JVS(4685) = B(1031)+0.275*B(1036) IF (DO_JVS(4686)) & -! JVS(4686) = Jac_FULL(340,290) - JVS(4686) = -B(639) +! JVS(4686) = Jac_FULL(343,229) + JVS(4686) = -B(154) IF (DO_JVS(4687)) & -! JVS(4687) = Jac_FULL(340,291) - JVS(4687) = 0 +! JVS(4687) = Jac_FULL(343,231) + JVS(4687) = 0.165*B(1003)+1.637*B(1793) IF (DO_JVS(4688)) & -! JVS(4688) = Jac_FULL(340,295) - JVS(4688) = -B(633) +! JVS(4688) = Jac_FULL(343,232) + JVS(4688) = -B(47)+0.75*B(443) IF (DO_JVS(4689)) & -! JVS(4689) = Jac_FULL(340,296) - JVS(4689) = -B(619) +! JVS(4689) = Jac_FULL(343,233) + JVS(4689) = 0.085*B(1001)+1.662*B(1792) IF (DO_JVS(4690)) & -! JVS(4690) = Jac_FULL(340,297) - JVS(4690) = B(1706) +! JVS(4690) = Jac_FULL(343,234) + JVS(4690) = -0.7*B(859)+0.3*B(861)+0.15*B(863)+B(1761)+B(1829) IF (DO_JVS(4691)) & -! JVS(4691) = Jac_FULL(340,300) - JVS(4691) = 0 +! JVS(4691) = Jac_FULL(343,235) + JVS(4691) = B(1046)+1.3*B(1050) IF (DO_JVS(4692)) & -! JVS(4692) = Jac_FULL(340,301) - JVS(4692) = 0 +! JVS(4692) = Jac_FULL(343,236) + JVS(4692) = B(1196)+0.646*B(1200)+0.096*B(1206) IF (DO_JVS(4693)) & -! JVS(4693) = Jac_FULL(340,302) - JVS(4693) = 0 +! JVS(4693) = Jac_FULL(343,237) + JVS(4693) = 0.2*B(1432) IF (DO_JVS(4694)) & -! JVS(4694) = Jac_FULL(340,303) +! JVS(4694) = Jac_FULL(343,238) JVS(4694) = 0 IF (DO_JVS(4695)) & -! JVS(4695) = Jac_FULL(340,304) +! JVS(4695) = Jac_FULL(343,239) JVS(4695) = 0 IF (DO_JVS(4696)) & -! JVS(4696) = Jac_FULL(340,305) - JVS(4696) = 0 +! JVS(4696) = Jac_FULL(343,240) + JVS(4696) = -B(71)+B(1663) IF (DO_JVS(4697)) & -! JVS(4697) = Jac_FULL(340,306) - JVS(4697) = 0 +! JVS(4697) = Jac_FULL(343,241) + JVS(4697) = -B(812)+0.865*B(814) IF (DO_JVS(4698)) & -! JVS(4698) = Jac_FULL(340,307) - JVS(4698) = 0 +! JVS(4698) = Jac_FULL(343,242) + JVS(4698) = 0.065*B(1009) IF (DO_JVS(4699)) & -! JVS(4699) = Jac_FULL(340,308) - JVS(4699) = 0 +! JVS(4699) = Jac_FULL(343,243) + JVS(4699) = 0.44*B(1407) IF (DO_JVS(4700)) & -! JVS(4700) = Jac_FULL(340,309) +! JVS(4700) = Jac_FULL(343,244) JVS(4700) = 0 IF (DO_JVS(4701)) & -! JVS(4701) = Jac_FULL(340,310) - JVS(4701) = 0 +! JVS(4701) = Jac_FULL(343,245) + JVS(4701) = 0.65*B(1078)+B(1084) IF (DO_JVS(4702)) & -! JVS(4702) = Jac_FULL(340,311) - JVS(4702) = 0 +! JVS(4702) = Jac_FULL(343,246) + JVS(4702) = -B(927) IF (DO_JVS(4703)) & -! JVS(4703) = Jac_FULL(340,312) - JVS(4703) = 0 +! JVS(4703) = Jac_FULL(343,247) + JVS(4703) = -0.7*B(61)+B(1756) IF (DO_JVS(4704)) & -! JVS(4704) = Jac_FULL(340,313) - JVS(4704) = 0 +! JVS(4704) = Jac_FULL(343,248) + JVS(4704) = -B(527) IF (DO_JVS(4705)) & -! JVS(4705) = Jac_FULL(340,314) - JVS(4705) = 0 +! JVS(4705) = Jac_FULL(343,249) + JVS(4705) = -B(689) IF (DO_JVS(4706)) & -! JVS(4706) = Jac_FULL(340,315) - JVS(4706) = -B(621) +! JVS(4706) = Jac_FULL(343,250) + JVS(4706) = 0.44*B(245) IF (DO_JVS(4707)) & -! JVS(4707) = Jac_FULL(340,316) - JVS(4707) = 0 +! JVS(4707) = Jac_FULL(343,251) + JVS(4707) = -B(1242) IF (DO_JVS(4708)) & -! JVS(4708) = Jac_FULL(340,317) - JVS(4708) = -B(603)+B(1707) +! JVS(4708) = Jac_FULL(343,252) + JVS(4708) = 0 IF (DO_JVS(4709)) & -! JVS(4709) = Jac_FULL(340,318) +! JVS(4709) = Jac_FULL(343,253) JVS(4709) = 0 IF (DO_JVS(4710)) & -! JVS(4710) = Jac_FULL(340,319) +! JVS(4710) = Jac_FULL(343,254) JVS(4710) = 0 IF (DO_JVS(4711)) & -! JVS(4711) = Jac_FULL(340,320) - JVS(4711) = 0 +! JVS(4711) = Jac_FULL(343,255) + JVS(4711) = -B(195) IF (DO_JVS(4712)) & -! JVS(4712) = Jac_FULL(340,321) - JVS(4712) = 0 +! JVS(4712) = Jac_FULL(343,256) + JVS(4712) = -B(806)+0.6*B(808) IF (DO_JVS(4713)) & -! JVS(4713) = Jac_FULL(340,322) - JVS(4713) = 0 +! JVS(4713) = Jac_FULL(343,257) + JVS(4713) = 0.59*B(1276)+B(1282) IF (DO_JVS(4714)) & -! JVS(4714) = Jac_FULL(340,323) - JVS(4714) = 0 +! JVS(4714) = Jac_FULL(343,258) + JVS(4714) = 0.665*B(1270) IF (DO_JVS(4715)) & -! JVS(4715) = Jac_FULL(340,324) - JVS(4715) = 0 +! JVS(4715) = Jac_FULL(343,259) + JVS(4715) = -0.5*B(1306)+0.5*B(1805)+B(1806) IF (DO_JVS(4716)) & -! JVS(4716) = Jac_FULL(340,325) - JVS(4716) = -B(565) +! JVS(4716) = Jac_FULL(343,260) + JVS(4716) = -B(925) IF (DO_JVS(4717)) & -! JVS(4717) = Jac_FULL(340,326) - JVS(4717) = 0 +! JVS(4717) = Jac_FULL(343,261) + JVS(4717) = 0.44*B(749) IF (DO_JVS(4718)) & -! JVS(4718) = Jac_FULL(340,328) - JVS(4718) = -B(613) +! JVS(4718) = Jac_FULL(343,262) + JVS(4718) = 0.5*B(1278) IF (DO_JVS(4719)) & -! JVS(4719) = Jac_FULL(340,329) - JVS(4719) = 0 +! JVS(4719) = Jac_FULL(343,263) + JVS(4719) = -B(871)+B(873) IF (DO_JVS(4720)) & -! JVS(4720) = Jac_FULL(340,330) +! JVS(4720) = Jac_FULL(343,264) JVS(4720) = 0 IF (DO_JVS(4721)) & -! JVS(4721) = Jac_FULL(340,331) - JVS(4721) = 0 +! JVS(4721) = Jac_FULL(343,265) + JVS(4721) = -B(687) IF (DO_JVS(4722)) & -! JVS(4722) = Jac_FULL(340,332) - JVS(4722) = 0 +! JVS(4722) = Jac_FULL(343,266) + JVS(4722) = B(1387) IF (DO_JVS(4723)) & -! JVS(4723) = Jac_FULL(340,333) - JVS(4723) = B(1709) +! JVS(4723) = Jac_FULL(343,267) + JVS(4723) = -B(40)+B(469)+2*B(1658) IF (DO_JVS(4724)) & -! JVS(4724) = Jac_FULL(340,334) - JVS(4724) = 0.66*B(487)+0.75*B(492)+2.37*B(494)+0.35*B(496)+0.19*B(504)+1.8*B(506)+0.86*B(508)+0.31*B(510)+0.69*B(514)& - &+0.79*B(518)+1.9*B(520)+0.95*B(522) +! JVS(4724) = Jac_FULL(343,268) + JVS(4724) = -B(87) IF (DO_JVS(4725)) & -! JVS(4725) = Jac_FULL(340,335) - JVS(4725) = 0 +! JVS(4725) = Jac_FULL(343,269) + JVS(4725) = -B(1314)+B(1812) IF (DO_JVS(4726)) & -! JVS(4726) = Jac_FULL(340,336) - JVS(4726) = 0 +! JVS(4726) = Jac_FULL(343,270) + JVS(4726) = -B(1105)-B(1107)-0.4*B(1111)+0.55*B(1799) IF (DO_JVS(4727)) & -! JVS(4727) = Jac_FULL(340,337) - JVS(4727) = -B(573)-B(575) +! JVS(4727) = Jac_FULL(343,271) + JVS(4727) = -B(1101)-B(1103)-0.4*B(1109)+0.55*B(1796) IF (DO_JVS(4728)) & -! JVS(4728) = Jac_FULL(340,338) - JVS(4728) = B(531)+B(577)+B(581)+B(586)+B(587)+0.249*B(668)+B(1703) +! JVS(4728) = Jac_FULL(343,272) + JVS(4728) = -B(1457) IF (DO_JVS(4729)) & -! JVS(4729) = Jac_FULL(340,339) - JVS(4729) = 0.66*B(488)+B(539) +! JVS(4729) = Jac_FULL(343,273) + JVS(4729) = B(1197)+1.147*B(1198)+0.435*B(1202) IF (DO_JVS(4730)) & -! JVS(4730) = Jac_FULL(340,340) - JVS(4730) = -B(564)-B(566)-B(567)-B(569)-B(572)-B(574)-B(576)-B(588)-B(594)-B(604)-B(606)+B(608)+2*B(610)-B(612)& - &-B(614)-B(616)-B(618)-B(620)-B(622)-B(624)-B(626)-B(628)-B(630)-B(632)-B(634)-B(636)-B(638)-B(640) +! JVS(4730) = Jac_FULL(343,274) + JVS(4730) = -B(312) IF (DO_JVS(4731)) & -! JVS(4731) = Jac_FULL(340,341) - JVS(4731) = -B(568) +! JVS(4731) = Jac_FULL(343,275) + JVS(4731) = 0 IF (DO_JVS(4732)) & -! JVS(4732) = Jac_FULL(340,342) +! JVS(4732) = Jac_FULL(343,276) JVS(4732) = 0 IF (DO_JVS(4733)) & -! JVS(4733) = Jac_FULL(340,343) - JVS(4733) = B(578) +! JVS(4733) = Jac_FULL(343,277) + JVS(4733) = 0.44*B(838) IF (DO_JVS(4734)) & -! JVS(4734) = Jac_FULL(340,344) +! JVS(4734) = Jac_FULL(343,278) JVS(4734) = 0 IF (DO_JVS(4735)) & -! JVS(4735) = Jac_FULL(340,345) - JVS(4735) = B(528)+B(532)+B(540)+B(548)+2*B(550)+3*B(552)+3*B(554)+B(556)+2*B(558)+B(560)+2*B(562) +! JVS(4735) = Jac_FULL(343,279) + JVS(4735) = 0.28*B(947)-B(949)-B(951)+0.5*B(953)+0.5*B(955) IF (DO_JVS(4736)) & -! JVS(4736) = Jac_FULL(340,346) - JVS(4736) = B(582) +! JVS(4736) = Jac_FULL(343,280) + JVS(4736) = 0 IF (DO_JVS(4737)) & -! JVS(4737) = Jac_FULL(340,347) +! JVS(4737) = Jac_FULL(343,281) JVS(4737) = 0 IF (DO_JVS(4738)) & -! JVS(4738) = Jac_FULL(340,348) +! JVS(4738) = Jac_FULL(343,282) JVS(4738) = 0 IF (DO_JVS(4739)) & -! JVS(4739) = Jac_FULL(340,349) - JVS(4739) = 0 +! JVS(4739) = Jac_FULL(343,283) + JVS(4739) = -B(197) IF (DO_JVS(4740)) & -! JVS(4740) = Jac_FULL(340,350) +! JVS(4740) = Jac_FULL(343,284) JVS(4740) = 0 IF (DO_JVS(4741)) & -! JVS(4741) = Jac_FULL(340,351) - JVS(4741) = 0 +! JVS(4741) = Jac_FULL(343,285) + JVS(4741) = -B(89) IF (DO_JVS(4742)) & -! JVS(4742) = Jac_FULL(340,352) - JVS(4742) = 0 +! JVS(4742) = Jac_FULL(343,286) + JVS(4742) = -B(199) IF (DO_JVS(4743)) & -! JVS(4743) = Jac_FULL(340,353) - JVS(4743) = 0 +! JVS(4743) = Jac_FULL(343,287) + JVS(4743) = -B(677)+B(1739) IF (DO_JVS(4744)) & -! JVS(4744) = Jac_FULL(341,109) - JVS(4744) = -B(1358) +! JVS(4744) = Jac_FULL(343,288) + JVS(4744) = B(1071)+0.65*B(1076) IF (DO_JVS(4745)) & -! JVS(4745) = Jac_FULL(341,140) - JVS(4745) = -B(146) +! JVS(4745) = Jac_FULL(343,289) + JVS(4745) = B(1063)+0.65*B(1064) IF (DO_JVS(4746)) & -! JVS(4746) = Jac_FULL(341,166) - JVS(4746) = -B(8) +! JVS(4746) = Jac_FULL(343,290) + JVS(4746) = B(1783) IF (DO_JVS(4747)) & -! JVS(4747) = Jac_FULL(341,167) - JVS(4747) = -B(725) +! JVS(4747) = Jac_FULL(343,291) + JVS(4747) = B(1780) IF (DO_JVS(4748)) & -! JVS(4748) = Jac_FULL(341,179) - JVS(4748) = -B(1) +! JVS(4748) = Jac_FULL(343,292) + JVS(4748) = 0 IF (DO_JVS(4749)) & -! JVS(4749) = Jac_FULL(341,191) - JVS(4749) = -B(733) +! JVS(4749) = Jac_FULL(343,293) + JVS(4749) = -B(285)+0.36*B(287) IF (DO_JVS(4750)) & -! JVS(4750) = Jac_FULL(341,193) - JVS(4750) = -B(867) +! JVS(4750) = Jac_FULL(343,294) + JVS(4750) = 0 IF (DO_JVS(4751)) & -! JVS(4751) = Jac_FULL(341,201) - JVS(4751) = -B(1472) +! JVS(4751) = Jac_FULL(343,295) + JVS(4751) = -B(234) IF (DO_JVS(4752)) & -! JVS(4752) = Jac_FULL(341,202) - JVS(4752) = -B(1424) +! JVS(4752) = Jac_FULL(343,296) + JVS(4752) = 0 IF (DO_JVS(4753)) & -! JVS(4753) = Jac_FULL(341,203) - JVS(4753) = -B(1453) +! JVS(4753) = Jac_FULL(343,297) + JVS(4753) = -B(212) IF (DO_JVS(4754)) & -! JVS(4754) = Jac_FULL(341,211) - JVS(4754) = -B(820) +! JVS(4754) = Jac_FULL(343,298) + JVS(4754) = -B(314) IF (DO_JVS(4755)) & -! JVS(4755) = Jac_FULL(341,213) - JVS(4755) = 0.15*B(302) +! JVS(4755) = Jac_FULL(343,299) + JVS(4755) = 0.379*B(1141) IF (DO_JVS(4756)) & -! JVS(4756) = Jac_FULL(341,217) - JVS(4756) = -B(473) +! JVS(4756) = Jac_FULL(343,300) + JVS(4756) = 0 IF (DO_JVS(4757)) & -! JVS(4757) = Jac_FULL(341,219) - JVS(4757) = -B(729) +! JVS(4757) = Jac_FULL(343,301) + JVS(4757) = -B(543) IF (DO_JVS(4758)) & -! JVS(4758) = Jac_FULL(341,220) - JVS(4758) = -B(1342) +! JVS(4758) = Jac_FULL(343,302) + JVS(4758) = -B(201) IF (DO_JVS(4759)) & -! JVS(4759) = Jac_FULL(341,221) - JVS(4759) = -B(1467) +! JVS(4759) = Jac_FULL(343,303) + JVS(4759) = -B(1218) IF (DO_JVS(4760)) & -! JVS(4760) = Jac_FULL(341,228) +! JVS(4760) = Jac_FULL(343,304) JVS(4760) = 0 IF (DO_JVS(4761)) & -! JVS(4761) = Jac_FULL(341,229) - JVS(4761) = -B(861) +! JVS(4761) = Jac_FULL(343,305) + JVS(4761) = -B(1210)-0.756*B(1212)+0.645*B(1803) IF (DO_JVS(4762)) & -! JVS(4762) = Jac_FULL(341,233) - JVS(4762) = 0 +! JVS(4762) = Jac_FULL(343,306) + JVS(4762) = -0.98*B(1236)+0.01*B(1785) IF (DO_JVS(4763)) & -! JVS(4763) = Jac_FULL(341,235) - JVS(4763) = 0.15*B(1432) +! JVS(4763) = Jac_FULL(343,307) + JVS(4763) = -0.7*B(1316)+B(1810)+0.3*B(1811) IF (DO_JVS(4764)) & -! JVS(4764) = Jac_FULL(341,236) - JVS(4764) = 0 +! JVS(4764) = Jac_FULL(343,308) + JVS(4764) = 0.527*B(1149) IF (DO_JVS(4765)) & -! JVS(4765) = Jac_FULL(341,237) - JVS(4765) = -B(814) +! JVS(4765) = Jac_FULL(343,309) + JVS(4765) = -0.773*B(289)-B(293)+0.07*B(1679) IF (DO_JVS(4766)) & -! JVS(4766) = Jac_FULL(341,240) - JVS(4766) = 0.15*B(1407) +! JVS(4766) = Jac_FULL(343,310) + JVS(4766) = 0 IF (DO_JVS(4767)) & -! JVS(4767) = Jac_FULL(341,242) - JVS(4767) = -B(929) +! JVS(4767) = Jac_FULL(343,311) + JVS(4767) = -B(320) IF (DO_JVS(4768)) & -! JVS(4768) = Jac_FULL(341,246) - JVS(4768) = 0.15*B(245) +! JVS(4768) = Jac_FULL(343,312) + JVS(4768) = 0.5*B(1291) IF (DO_JVS(4769)) & -! JVS(4769) = Jac_FULL(341,255) - JVS(4769) = -B(808) +! JVS(4769) = Jac_FULL(343,313) + JVS(4769) = -B(1228)-B(1230)+0.12*B(1232)+0.68*B(1234) IF (DO_JVS(4770)) & -! JVS(4770) = Jac_FULL(341,257) - JVS(4770) = 0.15*B(749) +! JVS(4770) = Jac_FULL(343,314) + JVS(4770) = 0.063*B(957)+B(965)+1.5*B(966)+B(973)+B(975)+0.5*B(979)+0.55*B(991) IF (DO_JVS(4771)) & -! JVS(4771) = Jac_FULL(341,259) - JVS(4771) = 0.13*B(1278) +! JVS(4771) = Jac_FULL(343,315) + JVS(4771) = 0.063*B(961)+B(967)+1.5*B(968)+B(974)+B(976)+0.5*B(983)+0.55*B(999) IF (DO_JVS(4772)) & -! JVS(4772) = Jac_FULL(341,262) - JVS(4772) = -B(873) +! JVS(4772) = Jac_FULL(343,316) + JVS(4772) = 0.15*B(226) IF (DO_JVS(4773)) & -! JVS(4773) = Jac_FULL(341,269) +! JVS(4773) = Jac_FULL(343,317) JVS(4773) = 0 IF (DO_JVS(4774)) & -! JVS(4774) = Jac_FULL(341,274) - JVS(4774) = 0.15*B(838) +! JVS(4774) = Jac_FULL(343,318) + JVS(4774) = -B(1224)+0.08*B(1226) IF (DO_JVS(4775)) & -! JVS(4775) = Jac_FULL(341,275) +! JVS(4775) = Jac_FULL(343,319) JVS(4775) = 0 IF (DO_JVS(4776)) & -! JVS(4776) = Jac_FULL(341,276) - JVS(4776) = -B(947) +! JVS(4776) = Jac_FULL(343,320) + JVS(4776) = B(405)+B(1705) IF (DO_JVS(4777)) & -! JVS(4777) = Jac_FULL(341,277) - JVS(4777) = 0 +! JVS(4777) = Jac_FULL(343,321) + JVS(4777) = -B(545) IF (DO_JVS(4778)) & -! JVS(4778) = Jac_FULL(341,280) +! JVS(4778) = Jac_FULL(343,322) JVS(4778) = 0 IF (DO_JVS(4779)) & -! JVS(4779) = Jac_FULL(341,281) +! JVS(4779) = Jac_FULL(343,323) JVS(4779) = 0 IF (DO_JVS(4780)) & -! JVS(4780) = Jac_FULL(341,289) - JVS(4780) = 0 +! JVS(4780) = Jac_FULL(343,324) + JVS(4780) = 0.15*B(228) IF (DO_JVS(4781)) & -! JVS(4781) = Jac_FULL(341,290) - JVS(4781) = -B(287) +! JVS(4781) = Jac_FULL(343,325) + JVS(4781) = 0.44*B(283) IF (DO_JVS(4782)) & -! JVS(4782) = Jac_FULL(341,291) +! JVS(4782) = Jac_FULL(343,326) JVS(4782) = 0 IF (DO_JVS(4783)) & -! JVS(4783) = Jac_FULL(341,306) +! JVS(4783) = Jac_FULL(343,327) JVS(4783) = 0 IF (DO_JVS(4784)) & -! JVS(4784) = Jac_FULL(341,308) - JVS(4784) = 0.13*B(1291) +! JVS(4784) = Jac_FULL(343,328) + JVS(4784) = 0.5*B(1324) IF (DO_JVS(4785)) & -! JVS(4785) = Jac_FULL(341,309) - JVS(4785) = -B(1232) +! JVS(4785) = Jac_FULL(343,329) + JVS(4785) = -B(63)+B(485) IF (DO_JVS(4786)) & -! JVS(4786) = Jac_FULL(341,310) - JVS(4786) = 0 +! JVS(4786) = Jac_FULL(343,330) + JVS(4786) = -B(95) IF (DO_JVS(4787)) & -! JVS(4787) = Jac_FULL(341,311) +! JVS(4787) = Jac_FULL(343,331) JVS(4787) = 0 IF (DO_JVS(4788)) & -! JVS(4788) = Jac_FULL(341,312) - JVS(4788) = -B(701) +! JVS(4788) = Jac_FULL(343,332) + JVS(4788) = -B(541)+B(1722) IF (DO_JVS(4789)) & -! JVS(4789) = Jac_FULL(341,314) - JVS(4789) = -B(1226) +! JVS(4789) = Jac_FULL(343,333) + JVS(4789) = -B(67)+B(1662) IF (DO_JVS(4790)) & -! JVS(4790) = Jac_FULL(341,320) - JVS(4790) = 0 +! JVS(4790) = Jac_FULL(343,334) + JVS(4790) = -B(57)+0.5*B(980)+0.5*B(984) IF (DO_JVS(4791)) & -! JVS(4791) = Jac_FULL(341,322) - JVS(4791) = 0.15*B(283) +! JVS(4791) = Jac_FULL(343,335) + JVS(4791) = -B(45) IF (DO_JVS(4792)) & -! JVS(4792) = Jac_FULL(341,323) +! JVS(4792) = Jac_FULL(343,336) JVS(4792) = 0 IF (DO_JVS(4793)) & -! JVS(4793) = Jac_FULL(341,324) - JVS(4793) = 0.13*B(1324) +! JVS(4793) = Jac_FULL(343,337) + JVS(4793) = 2*B(433)+B(439)+0.75*B(444)+0.66*B(487)+0.6*B(489)+0.05*B(504) IF (DO_JVS(4794)) & -! JVS(4794) = Jac_FULL(341,325) - JVS(4794) = 0 +! JVS(4794) = Jac_FULL(343,338) + JVS(4794) = B(42)-B(69)+0.55*B(992)+0.55*B(1000)+B(1047)+B(1086)+B(1090)+0.435*B(1203)+0.096*B(1207) IF (DO_JVS(4795)) & -! JVS(4795) = Jac_FULL(341,326) - JVS(4795) = 0 +! JVS(4795) = Jac_FULL(343,339) + JVS(4795) = -B(1505) IF (DO_JVS(4796)) & -! JVS(4796) = Jac_FULL(341,327) - JVS(4796) = 0 +! JVS(4796) = Jac_FULL(343,340) + JVS(4796) = 0.66*B(488)-B(539) IF (DO_JVS(4797)) & -! JVS(4797) = Jac_FULL(341,328) - JVS(4797) = -B(34) +! JVS(4797) = Jac_FULL(343,341) + JVS(4797) = B(30)-B(38)+B(43)+B(78)+0.25*B(161)+0.15*B(227)+0.15*B(229)+0.44*B(246)+0.44*B(284)+0.44*B(303)+B(453)& + &+1.788*B(476)+B(575)+0.44*B(750)+0.44*B(839)+0.063*B(958)+0.063*B(962)+0.275*B(1037)+0.275*B(1044)+1.3& + &*B(1051)+0.65*B(1065)+0.65*B(1077)+0.65*B(1079)+2*B(1088)+2*B(1092)+0.518*B(1115)+0.599*B(1122)+0.582& + &*B(1130)+0.506*B(1136)+0.379*B(1142)+0.527*B(1150)+1.147*B(1199)+0.646*B(1201)+B(1217)+0.82*B(1223)+B(1249)& + &+B(1255)+0.665*B(1271)+0.59*B(1277)+0.5*B(1279)+0.5*B(1292)+0.5*B(1325)+B(1355)+B(1388)+0.44*B(1408)+0.2& + &*B(1433) IF (DO_JVS(4798)) & -! JVS(4798) = Jac_FULL(341,329) +! JVS(4798) = Jac_FULL(343,342) JVS(4798) = 0 IF (DO_JVS(4799)) & -! JVS(4799) = Jac_FULL(341,331) - JVS(4799) = -B(669) +! JVS(4799) = Jac_FULL(343,343) + JVS(4799) = -B(24)-B(28)-2*B(36)-2*B(37)-B(39)-B(41)-B(46)-B(48)-B(58)-0.7*B(60)-0.7*B(62)-B(64)-B(65)-B(68)-B(70)& + &-B(72)-B(77)-B(82)-B(88)-B(90)-B(96)-B(103)-B(107)-B(115)-B(117)-B(125)-0.5*B(135)-B(137)-B(143)-B(153)& + &-B(155)-B(168)-B(170)-B(196)-B(198)-B(200)-B(202)-B(207)-B(213)-B(235)-B(242)-B(270)-B(272)-B(286)-0.773& + &*B(290)-B(294)-B(307)-B(309)-B(313)-B(315)-B(321)-0.209*B(325)-0.36*B(327)-0.36*B(329)-0.209*B(331)-0.21& + &*B(333)-0.21*B(335)-B(337)-0.209*B(339)-0.78*B(343)-B(382)-B(384)-B(387)-B(395)-B(404)-B(409)-B(428)-B(430)& + &-B(432)-B(449)-B(451)-B(460)-B(528)-B(531)-B(533)-B(536)-B(538)-B(540)-B(542)-B(544)-B(546)-B(548)-B(550)& + &-B(552)-B(554)-B(556)-B(558)-B(560)-B(562)-B(674)-B(676)-B(678)-B(686)-B(688)-B(690)-B(724)-B(728)-B(732)& + &-B(742)-B(744)-B(748)-B(759)-B(761)-B(771)-B(773)-B(781)-B(783)-B(785)-B(797)-B(799)-B(807)-B(813)-B(819)& + &-B(833)-B(837)-B(848)-B(850)-0.7*B(860)-B(866)-B(872)-B(926)-B(928)-B(938)-B(940)-B(942)-B(944)-B(946)& + &-B(950)-B(952)+0.5*B(954)+0.5*B(956)+0.085*B(1002)+0.165*B(1004)+0.065*B(1010)-B(1014)-B(1016)-B(1020)& + &-B(1024)-B(1026)-0.595*B(1028)-0.255*B(1030)-B(1053)-B(1055)-B(1057)-B(1059)-B(1061)-B(1094)-B(1096)& + &-B(1098)-B(1100)-B(1102)-B(1104)-B(1106)-B(1108)-0.4*B(1110)-0.4*B(1112)-B(1181)-B(1183)-B(1189)-B(1191)& + &-B(1193)-B(1211)-0.756*B(1213)-B(1219)-B(1225)-B(1229)-B(1231)-0.98*B(1237)-B(1243)-0.715*B(1259)-B(1263)& + &-B(1267)-B(1269)-0.415*B(1281)-B(1303)-0.3*B(1305)-0.5*B(1307)-0.556*B(1309)-B(1315)-0.7*B(1317)-B(1321)& + &-0.5*B(1323)-B(1337)-B(1339)-B(1345)-B(1349)-B(1357)-B(1361)-0.364*B(1363)-B(1376)-B(1378)-B(1382)-B(1384)& + &-B(1386)-B(1398)-B(1404)-B(1413)-B(1415)-B(1419)-B(1423)-B(1429)-B(1439)-B(1442)-B(1452)-B(1458)-0.75& + &*B(1466)-0.75*B(1471)-B(1490)-B(1506)-B(1507)-B(1652) IF (DO_JVS(4800)) & -! JVS(4800) = Jac_FULL(341,332) - JVS(4800) = 0 +! JVS(4800) = Jac_FULL(343,344) + JVS(4800) = -B(532)-B(534) IF (DO_JVS(4801)) & -! JVS(4801) = Jac_FULL(341,334) - JVS(4801) = -B(455) +! JVS(4801) = Jac_FULL(343,345) + JVS(4801) = -B(66) IF (DO_JVS(4802)) & -! JVS(4802) = Jac_FULL(341,335) - JVS(4802) = -B(32) +! JVS(4802) = Jac_FULL(343,346) + JVS(4802) = -B(1508) IF (DO_JVS(4803)) & -! JVS(4803) = Jac_FULL(341,336) - JVS(4803) = 0 +! JVS(4803) = Jac_FULL(343,347) + JVS(4803) = -B(410) IF (DO_JVS(4804)) & -! JVS(4804) = Jac_FULL(341,337) - JVS(4804) = -B(30)+0.15*B(246)+0.15*B(284)+0.15*B(303)+0.15*B(750)+0.15*B(839)+0.13*B(1279)+0.13*B(1292)+0.13*B(1325)& - &+0.15*B(1408)+0.15*B(1433) +! JVS(4804) = Jac_FULL(343,348) + JVS(4804) = B(79)-B(83)+0.15*B(864)+0.68*B(1235) IF (DO_JVS(4805)) & -! JVS(4805) = Jac_FULL(341,338) +! JVS(4805) = Jac_FULL(343,349) JVS(4805) = 0 IF (DO_JVS(4806)) & -! JVS(4806) = Jac_FULL(341,339) +! JVS(4806) = Jac_FULL(343,350) JVS(4806) = 0 IF (DO_JVS(4807)) & -! JVS(4807) = Jac_FULL(341,340) - JVS(4807) = -B(567) +! JVS(4807) = Jac_FULL(343,351) + JVS(4807) = B(406)+B(407)-B(452)+B(454)+B(470)+B(486) IF (DO_JVS(4808)) & -! JVS(4808) = Jac_FULL(341,341) - JVS(4808) = -B(2)-B(9)-B(17)-B(26)-B(28)-B(31)-B(33)-B(35)-B(147)-B(288)-B(389)-B(447)-B(456)-B(474)-B(568)-B(670)& - &-B(702)-B(726)-B(730)-B(734)-B(809)-B(815)-B(821)-B(862)-B(868)-B(874)-B(930)-B(948)-B(1227)-B(1233)& - &-B(1343)-B(1359)-B(1425)-B(1454)-B(1468)-B(1473)-B(1563)-B(1565)-B(1567)-B(1641)-B(1642) +! JVS(4808) = Jac_FULL(343,352) + JVS(4808) = B(576) IF (DO_JVS(4809)) & -! JVS(4809) = Jac_FULL(341,342) - JVS(4809) = -B(390) +! JVS(4809) = Jac_FULL(343,353) + JVS(4809) = 2*B(434) IF (DO_JVS(4810)) & -! JVS(4810) = Jac_FULL(341,343) - JVS(4810) = B(445)-B(448) +! JVS(4810) = Jac_FULL(343,354) + JVS(4810) = -B(396)+B(408)+0.6*B(490) IF (DO_JVS(4811)) & -! JVS(4811) = Jac_FULL(341,344) - JVS(4811) = 0 +! JVS(4811) = Jac_FULL(343,355) + JVS(4811) = -B(25)-B(388)-B(1653) IF (DO_JVS(4812)) & -! JVS(4812) = Jac_FULL(341,345) - JVS(4812) = -B(29) +! JVS(4812) = Jac_FULL(343,356) + JVS(4812) = -B(29)+B(31)+0.36*B(288)+B(474)+0.865*B(726)+0.8*B(730)+0.65*B(734)+0.6*B(809)+0.865*B(815)+0.3*B(862)& + &+B(874)+0.28*B(948)+0.08*B(1227)+0.12*B(1233)+0.18*B(1343)+B(1425)+0.1*B(1468)+0.1*B(1473) IF (DO_JVS(4813)) & -! JVS(4813) = Jac_FULL(341,346) - JVS(4813) = -B(27) +! JVS(4813) = Jac_FULL(344,49) + JVS(4813) = 0.79*B(493) IF (DO_JVS(4814)) & -! JVS(4814) = Jac_FULL(341,347) - JVS(4814) = 0 +! JVS(4814) = Jac_FULL(344,50) + JVS(4814) = 0.9*B(505) IF (DO_JVS(4815)) & -! JVS(4815) = Jac_FULL(341,348) - JVS(4815) = -B(3)-B(10)-B(18) +! JVS(4815) = Jac_FULL(344,51) + JVS(4815) = 0.86*B(507) IF (DO_JVS(4816)) & -! JVS(4816) = Jac_FULL(341,349) - JVS(4816) = -B(1566) +! JVS(4816) = Jac_FULL(344,52) + JVS(4816) = 0.8*B(519) IF (DO_JVS(4817)) & -! JVS(4817) = Jac_FULL(341,350) - JVS(4817) = -B(1568) +! JVS(4817) = Jac_FULL(344,53) + JVS(4817) = 0.85*B(521) IF (DO_JVS(4818)) & -! JVS(4818) = Jac_FULL(341,351) - JVS(4818) = 0 +! JVS(4818) = Jac_FULL(344,54) + JVS(4818) = 0.86*B(523) IF (DO_JVS(4819)) & -! JVS(4819) = Jac_FULL(341,352) - JVS(4819) = -B(1564) +! JVS(4819) = Jac_FULL(344,64) + JVS(4819) = 0.34*B(509) IF (DO_JVS(4820)) & -! JVS(4820) = Jac_FULL(341,353) - JVS(4820) = 0 +! JVS(4820) = Jac_FULL(344,78) + JVS(4820) = 2*B(592) IF (DO_JVS(4821)) & -! JVS(4821) = Jac_FULL(342,2) - JVS(4821) = B(1736) +! JVS(4821) = Jac_FULL(344,88) + JVS(4821) = 0.79*B(517) IF (DO_JVS(4822)) & -! JVS(4822) = Jac_FULL(342,53) - JVS(4822) = B(1721) +! JVS(4822) = Jac_FULL(344,89) + JVS(4822) = 0.69*B(513) IF (DO_JVS(4823)) & -! JVS(4823) = Jac_FULL(342,54) - JVS(4823) = 0.75*B(525)+2*B(1723) +! JVS(4823) = Jac_FULL(344,90) + JVS(4823) = 0.65*B(515) IF (DO_JVS(4824)) & -! JVS(4824) = Jac_FULL(342,59) - JVS(4824) = B(1695) +! JVS(4824) = Jac_FULL(344,91) + JVS(4824) = 0.56*B(503) IF (DO_JVS(4825)) & -! JVS(4825) = Jac_FULL(342,61) - JVS(4825) = 0.34*B(509)+B(1722) +! JVS(4825) = Jac_FULL(344,119) + JVS(4825) = 0.1*B(593) IF (DO_JVS(4826)) & -! JVS(4826) = Jac_FULL(342,77) - JVS(4826) = B(1739) +! JVS(4826) = Jac_FULL(344,123) + JVS(4826) = B(1717) IF (DO_JVS(4827)) & -! JVS(4827) = Jac_FULL(342,78) - JVS(4827) = 2*B(429)+0.95*B(499)+2*B(1697) +! JVS(4827) = Jac_FULL(344,184) + JVS(4827) = 0.46*B(495) IF (DO_JVS(4828)) & -! JVS(4828) = Jac_FULL(342,81) - JVS(4828) = 3*B(427)+1.4*B(501)+3*B(1696) +! JVS(4828) = Jac_FULL(344,248) + JVS(4828) = 0.75*B(491) IF (DO_JVS(4829)) & -! JVS(4829) = Jac_FULL(342,105) - JVS(4829) = B(431)+0.56*B(497)+B(1698) +! JVS(4829) = Jac_FULL(344,300) + JVS(4829) = B(619) IF (DO_JVS(4830)) & -! JVS(4830) = Jac_FULL(342,141) - JVS(4830) = -B(421) +! JVS(4830) = Jac_FULL(344,301) + JVS(4830) = 0 IF (DO_JVS(4831)) & -! JVS(4831) = Jac_FULL(342,148) - JVS(4831) = B(403)+2*B(1690) +! JVS(4831) = Jac_FULL(344,319) + JVS(4831) = B(621) IF (DO_JVS(4832)) & -! JVS(4832) = Jac_FULL(342,157) - JVS(4832) = B(1701) +! JVS(4832) = Jac_FULL(344,321) + JVS(4832) = B(601)+B(1721) IF (DO_JVS(4833)) & -! JVS(4833) = Jac_FULL(342,183) - JVS(4833) = -B(419) +! JVS(4833) = Jac_FULL(344,322) + JVS(4833) = 0 IF (DO_JVS(4834)) & -! JVS(4834) = Jac_FULL(342,218) - JVS(4834) = -B(401)+B(1693) +! JVS(4834) = Jac_FULL(344,323) + JVS(4834) = 0 IF (DO_JVS(4835)) & -! JVS(4835) = Jac_FULL(342,252) +! JVS(4835) = Jac_FULL(344,324) JVS(4835) = 0 IF (DO_JVS(4836)) & -! JVS(4836) = Jac_FULL(342,284) - JVS(4836) = B(659) +! JVS(4836) = Jac_FULL(344,325) + JVS(4836) = 0 IF (DO_JVS(4837)) & -! JVS(4837) = Jac_FULL(342,290) - JVS(4837) = -B(641) +! JVS(4837) = Jac_FULL(344,326) + JVS(4837) = 0 IF (DO_JVS(4838)) & -! JVS(4838) = Jac_FULL(342,295) - JVS(4838) = -B(417) +! JVS(4838) = Jac_FULL(344,327) + JVS(4838) = 0 IF (DO_JVS(4839)) & -! JVS(4839) = Jac_FULL(342,297) +! JVS(4839) = Jac_FULL(344,328) JVS(4839) = 0 IF (DO_JVS(4840)) & -! JVS(4840) = Jac_FULL(342,300) +! JVS(4840) = Jac_FULL(344,330) JVS(4840) = 0 IF (DO_JVS(4841)) & -! JVS(4841) = Jac_FULL(342,314) - JVS(4841) = 0 +! JVS(4841) = Jac_FULL(344,332) + JVS(4841) = B(541) IF (DO_JVS(4842)) & -! JVS(4842) = Jac_FULL(342,316) - JVS(4842) = B(1692) +! JVS(4842) = Jac_FULL(344,334) + JVS(4842) = -B(529)+B(613) IF (DO_JVS(4843)) & -! JVS(4843) = Jac_FULL(342,317) +! JVS(4843) = Jac_FULL(344,335) JVS(4843) = 0 IF (DO_JVS(4844)) & -! JVS(4844) = Jac_FULL(342,318) - JVS(4844) = 0 +! JVS(4844) = Jac_FULL(344,336) + JVS(4844) = -B(667) IF (DO_JVS(4845)) & -! JVS(4845) = Jac_FULL(342,319) - JVS(4845) = 0 +! JVS(4845) = Jac_FULL(344,337) + JVS(4845) = 0.22*B(487)+0.75*B(492)+0.79*B(494)+0.46*B(496)+0.56*B(504)+0.9*B(506)+0.86*B(508)+0.34*B(510)+0.69*B(514)& + &+0.65*B(516)+0.79*B(518)+0.8*B(520)+0.85*B(522)+0.86*B(524) IF (DO_JVS(4846)) & -! JVS(4846) = Jac_FULL(342,320) - JVS(4846) = 0 +! JVS(4846) = Jac_FULL(344,338) + JVS(4846) = -B(581) IF (DO_JVS(4847)) & -! JVS(4847) = Jac_FULL(342,323) +! JVS(4847) = Jac_FULL(344,339) JVS(4847) = 0 IF (DO_JVS(4848)) & -! JVS(4848) = Jac_FULL(342,324) - JVS(4848) = 0 +! JVS(4848) = Jac_FULL(344,340) + JVS(4848) = 0.22*B(488) IF (DO_JVS(4849)) & -! JVS(4849) = Jac_FULL(342,325) - JVS(4849) = -B(413) +! JVS(4849) = Jac_FULL(344,341) + JVS(4849) = B(575)-B(579) IF (DO_JVS(4850)) & -! JVS(4850) = Jac_FULL(342,326) - JVS(4850) = -B(415) +! JVS(4850) = Jac_FULL(344,342) + JVS(4850) = 0 IF (DO_JVS(4851)) & -! JVS(4851) = Jac_FULL(342,328) - JVS(4851) = 0 +! JVS(4851) = Jac_FULL(344,343) + JVS(4851) = -B(531)-B(533)+B(542) IF (DO_JVS(4852)) & -! JVS(4852) = Jac_FULL(342,329) - JVS(4852) = 0 +! JVS(4852) = Jac_FULL(344,344) + JVS(4852) = -B(530)-B(532)-B(534)-B(577)-B(580)-B(582)-B(583)-2*B(585)-2*B(586)-2*B(587)-2*B(591)-B(595)-B(597)-B(599)& + &-B(668)-B(1716) IF (DO_JVS(4853)) & -! JVS(4853) = Jac_FULL(342,330) - JVS(4853) = 0 +! JVS(4853) = Jac_FULL(344,345) + JVS(4853) = -B(584) IF (DO_JVS(4854)) & -! JVS(4854) = Jac_FULL(342,331) - JVS(4854) = B(657) +! JVS(4854) = Jac_FULL(344,346) + JVS(4854) = 0 IF (DO_JVS(4855)) & -! JVS(4855) = Jac_FULL(342,332) - JVS(4855) = 0 +! JVS(4855) = Jac_FULL(344,347) + JVS(4855) = -B(596)-B(598)-B(600) IF (DO_JVS(4856)) & -! JVS(4856) = Jac_FULL(342,333) +! JVS(4856) = Jac_FULL(344,348) JVS(4856) = 0 IF (DO_JVS(4857)) & -! JVS(4857) = Jac_FULL(342,334) - JVS(4857) = 0.6*B(489)+0.56*B(498)+0.95*B(500)+1.4*B(502)+0.34*B(510)+0.75*B(526) +! JVS(4857) = Jac_FULL(344,349) + JVS(4857) = 0 IF (DO_JVS(4858)) & -! JVS(4858) = Jac_FULL(342,335) - JVS(4858) = -B(423) +! JVS(4858) = Jac_FULL(344,350) + JVS(4858) = 0 IF (DO_JVS(4859)) & -! JVS(4859) = Jac_FULL(342,336) - JVS(4859) = 0 +! JVS(4859) = Jac_FULL(344,351) + JVS(4859) = -B(578)+B(602) IF (DO_JVS(4860)) & -! JVS(4860) = Jac_FULL(342,337) - JVS(4860) = -B(393) +! JVS(4860) = Jac_FULL(344,352) + JVS(4860) = B(567)+B(576)+0.1*B(594)+B(614)+B(620)+B(622) IF (DO_JVS(4861)) & -! JVS(4861) = Jac_FULL(342,338) - JVS(4861) = B(595)+B(597) +! JVS(4861) = Jac_FULL(344,353) + JVS(4861) = 0 IF (DO_JVS(4862)) & -! JVS(4862) = Jac_FULL(342,339) +! JVS(4862) = Jac_FULL(344,354) JVS(4862) = 0 IF (DO_JVS(4863)) & -! JVS(4863) = Jac_FULL(342,340) +! JVS(4863) = Jac_FULL(344,355) JVS(4863) = 0 IF (DO_JVS(4864)) & -! JVS(4864) = Jac_FULL(342,341) - JVS(4864) = -B(389) +! JVS(4864) = Jac_FULL(344,356) + JVS(4864) = B(568) IF (DO_JVS(4865)) & -! JVS(4865) = Jac_FULL(342,342) - JVS(4865) = -B(390)-B(394)-B(402)-B(411)-B(414)-B(416)-B(418)-B(420)-B(422)-B(424)-B(642) +! JVS(4865) = Jac_FULL(345,59) + JVS(4865) = B(755) IF (DO_JVS(4866)) & -! JVS(4866) = Jac_FULL(342,343) - JVS(4866) = B(407)+B(483) +! JVS(4866) = Jac_FULL(345,60) + JVS(4866) = B(844) IF (DO_JVS(4867)) & -! JVS(4867) = Jac_FULL(342,344) - JVS(4867) = 0 +! JVS(4867) = Jac_FULL(345,62) + JVS(4867) = B(1708) IF (DO_JVS(4868)) & -! JVS(4868) = Jac_FULL(342,345) - JVS(4868) = B(395)+B(404)+B(409)+3*B(428)+2*B(430)+B(432) +! JVS(4868) = Jac_FULL(345,67) + JVS(4868) = B(1769) IF (DO_JVS(4869)) & -! JVS(4869) = Jac_FULL(342,346) - JVS(4869) = B(399) +! JVS(4869) = Jac_FULL(345,68) + JVS(4869) = B(1767) IF (DO_JVS(4870)) & -! JVS(4870) = Jac_FULL(342,347) - JVS(4870) = 2*B(397)+B(400)+B(410)+B(484)+B(596)+B(598)+B(658)+B(660)+B(1691) +! JVS(4870) = Jac_FULL(345,70) + JVS(4870) = -B(481) IF (DO_JVS(4871)) & -! JVS(4871) = Jac_FULL(342,348) - JVS(4871) = 0 +! JVS(4871) = Jac_FULL(345,73) + JVS(4871) = B(1375) IF (DO_JVS(4872)) & -! JVS(4872) = Jac_FULL(342,349) - JVS(4872) = 0 +! JVS(4872) = Jac_FULL(345,83) + JVS(4872) = B(380)+B(1755) IF (DO_JVS(4873)) & -! JVS(4873) = Jac_FULL(342,350) - JVS(4873) = 0 +! JVS(4873) = Jac_FULL(345,86) + JVS(4873) = B(941)+B(1771) IF (DO_JVS(4874)) & -! JVS(4874) = Jac_FULL(342,351) - JVS(4874) = -B(412) +! JVS(4874) = Jac_FULL(345,94) + JVS(4874) = B(943)+B(1772) IF (DO_JVS(4875)) & -! JVS(4875) = Jac_FULL(342,352) - JVS(4875) = B(396)+B(408)+0.6*B(490) +! JVS(4875) = Jac_FULL(345,96) + JVS(4875) = B(939)+B(1770) IF (DO_JVS(4876)) & -! JVS(4876) = Jac_FULL(342,353) - JVS(4876) = 0 +! JVS(4876) = Jac_FULL(345,97) + JVS(4876) = B(945)+B(1773) IF (DO_JVS(4877)) & -! JVS(4877) = Jac_FULL(343,46) - JVS(4877) = 0.21*B(493) +! JVS(4877) = Jac_FULL(345,98) + JVS(4877) = B(665) IF (DO_JVS(4878)) & -! JVS(4878) = Jac_FULL(343,47) - JVS(4878) = 0.1*B(505) +! JVS(4878) = Jac_FULL(345,105) + JVS(4878) = B(1440)+B(1441) IF (DO_JVS(4879)) & -! JVS(4879) = Jac_FULL(343,48) - JVS(4879) = 0.14*B(507) +! JVS(4879) = Jac_FULL(345,110) + JVS(4879) = B(75)+B(76)+B(1665) IF (DO_JVS(4880)) & -! JVS(4880) = Jac_FULL(343,49) - JVS(4880) = 0.1*B(519) +! JVS(4880) = Jac_FULL(345,113) + JVS(4880) = B(240)+B(241) IF (DO_JVS(4881)) & -! JVS(4881) = Jac_FULL(343,50) - JVS(4881) = 0.1*B(521) +! JVS(4881) = Jac_FULL(345,115) + JVS(4881) = B(299)+B(306) IF (DO_JVS(4882)) & -! JVS(4882) = Jac_FULL(343,51) - JVS(4882) = 0.14*B(523) +! JVS(4882) = Jac_FULL(345,117) + JVS(4882) = B(1356)+B(1700) IF (DO_JVS(4883)) & -! JVS(4883) = Jac_FULL(343,53) - JVS(4883) = 0.55*B(511) +! JVS(4883) = Jac_FULL(345,124) + JVS(4883) = B(1399) IF (DO_JVS(4884)) & -! JVS(4884) = Jac_FULL(343,54) - JVS(4884) = 0.25*B(525) +! JVS(4884) = Jac_FULL(345,125) + JVS(4884) = B(1411)+B(1412) IF (DO_JVS(4885)) & -! JVS(4885) = Jac_FULL(343,61) - JVS(4885) = 0.35*B(509) +! JVS(4885) = Jac_FULL(345,127) + JVS(4885) = B(205)+B(206)+0.7*B(1819) IF (DO_JVS(4886)) & -! JVS(4886) = Jac_FULL(343,67) - JVS(4886) = B(477)+B(479)+B(481) +! JVS(4886) = Jac_FULL(345,128) + JVS(4886) = B(1689) IF (DO_JVS(4887)) & -! JVS(4887) = Jac_FULL(343,68) - JVS(4887) = -B(457) +! JVS(4887) = Jac_FULL(345,129) + JVS(4887) = B(166)+B(1672) IF (DO_JVS(4888)) & -! JVS(4888) = Jac_FULL(343,78) - JVS(4888) = 0.05*B(499) +! JVS(4888) = Jac_FULL(345,130) + JVS(4888) = B(152) IF (DO_JVS(4889)) & -! JVS(4889) = Jac_FULL(343,81) - JVS(4889) = 0.3*B(501) +! JVS(4889) = Jac_FULL(345,133) + JVS(4889) = B(156) IF (DO_JVS(4890)) & -! JVS(4890) = Jac_FULL(343,84) - JVS(4890) = 0.21*B(517) +! JVS(4890) = Jac_FULL(345,136) + JVS(4890) = B(1089) IF (DO_JVS(4891)) & -! JVS(4891) = Jac_FULL(343,85) - JVS(4891) = 0.31*B(513) +! JVS(4891) = Jac_FULL(345,137) + JVS(4891) = B(1085) IF (DO_JVS(4892)) & -! JVS(4892) = Jac_FULL(343,86) - JVS(4892) = 0.35*B(515) +! JVS(4892) = Jac_FULL(345,139) + JVS(4892) = 0.5*B(743) IF (DO_JVS(4893)) & -! JVS(4893) = Jac_FULL(343,87) - JVS(4893) = 0.25*B(503) +! JVS(4893) = Jac_FULL(345,140) + JVS(4893) = B(144) IF (DO_JVS(4894)) & -! JVS(4894) = Jac_FULL(343,120) - JVS(4894) = B(1704) +! JVS(4894) = Jac_FULL(345,141) + JVS(4894) = 0.5*B(780) IF (DO_JVS(4895)) & -! JVS(4895) = Jac_FULL(343,181) - JVS(4895) = 0.1*B(495) +! JVS(4895) = Jac_FULL(345,143) + JVS(4895) = B(101)+B(102)+0.7*B(1671) IF (DO_JVS(4896)) & -! JVS(4896) = Jac_FULL(343,217) - JVS(4896) = 0.02*B(475) +! JVS(4896) = Jac_FULL(345,156) + JVS(4896) = B(1765) IF (DO_JVS(4897)) & -! JVS(4897) = Jac_FULL(343,228) - JVS(4897) = 0 +! JVS(4897) = Jac_FULL(345,165) + JVS(4897) = 0.5*B(798) IF (DO_JVS(4898)) & -! JVS(4898) = Jac_FULL(343,245) - JVS(4898) = 0.25*B(491) +! JVS(4898) = Jac_FULL(345,166) + JVS(4898) = B(834) IF (DO_JVS(4899)) & -! JVS(4899) = Jac_FULL(343,264) - JVS(4899) = -B(469) +! JVS(4899) = Jac_FULL(345,168) + JVS(4899) = 2*B(138) IF (DO_JVS(4900)) & -! JVS(4900) = Jac_FULL(343,276) +! JVS(4900) = Jac_FULL(345,169) JVS(4900) = 0 IF (DO_JVS(4901)) & -! JVS(4901) = Jac_FULL(343,284) - JVS(4901) = B(1727) +! JVS(4901) = Jac_FULL(345,173) + JVS(4901) = B(1246)-B(1250) IF (DO_JVS(4902)) & -! JVS(4902) = Jac_FULL(343,290) - JVS(4902) = 0 +! JVS(4902) = Jac_FULL(345,174) + JVS(4902) = B(1252)-B(1256) IF (DO_JVS(4903)) & -! JVS(4903) = Jac_FULL(343,297) - JVS(4903) = 0 +! JVS(4903) = Jac_FULL(345,175) + JVS(4903) = B(1095)+B(1797) IF (DO_JVS(4904)) & -! JVS(4904) = Jac_FULL(343,312) - JVS(4904) = 0 +! JVS(4904) = Jac_FULL(345,177) + JVS(4904) = B(1099)+B(1798) IF (DO_JVS(4905)) & -! JVS(4905) = Jac_FULL(343,314) - JVS(4905) = 0 +! JVS(4905) = Jac_FULL(345,179) + JVS(4905) = 0.5*B(772) IF (DO_JVS(4906)) & -! JVS(4906) = Jac_FULL(343,316) - JVS(4906) = -B(405) +! JVS(4906) = Jac_FULL(345,180) + JVS(4906) = 0.5*B(836) IF (DO_JVS(4907)) & -! JVS(4907) = Jac_FULL(343,317) - JVS(4907) = -B(601) +! JVS(4907) = Jac_FULL(345,181) + JVS(4907) = 1.11*B(1220)+0.09*B(1222) IF (DO_JVS(4908)) & -! JVS(4908) = Jac_FULL(343,324) - JVS(4908) = 0 +! JVS(4908) = Jac_FULL(345,182) + JVS(4908) = B(128) IF (DO_JVS(4909)) & -! JVS(4909) = Jac_FULL(343,325) - JVS(4909) = -B(485) +! JVS(4909) = Jac_FULL(345,183) + JVS(4909) = 0 IF (DO_JVS(4910)) & -! JVS(4910) = Jac_FULL(343,326) - JVS(4910) = 0 +! JVS(4910) = Jac_FULL(345,185) + JVS(4910) = B(1214) IF (DO_JVS(4911)) & -! JVS(4911) = Jac_FULL(343,328) - JVS(4911) = 0 +! JVS(4911) = Jac_FULL(345,186) + JVS(4911) = B(1123) IF (DO_JVS(4912)) & -! JVS(4912) = Jac_FULL(343,329) - JVS(4912) = 0 +! JVS(4912) = Jac_FULL(345,188) + JVS(4912) = B(1188)+B(1802) IF (DO_JVS(4913)) & -! JVS(4913) = Jac_FULL(343,330) - JVS(4913) = 0 +! JVS(4913) = Jac_FULL(345,189) + JVS(4913) = B(1301) IF (DO_JVS(4914)) & -! JVS(4914) = Jac_FULL(343,331) - JVS(4914) = 0 +! JVS(4914) = Jac_FULL(345,193) + JVS(4914) = 0.89*B(1352) IF (DO_JVS(4915)) & -! JVS(4915) = Jac_FULL(343,332) - JVS(4915) = 0 +! JVS(4915) = Jac_FULL(345,196) + JVS(4915) = 0.3*B(865)+0.3*B(867)+1.15*B(869) IF (DO_JVS(4916)) & -! JVS(4916) = Jac_FULL(343,333) - JVS(4916) = 0 +! JVS(4916) = Jac_FULL(345,200) + JVS(4916) = B(1699) IF (DO_JVS(4917)) & -! JVS(4917) = Jac_FULL(343,334) - JVS(4917) = B(435)+B(437)+B(455)+0.12*B(487)+0.2*B(489)+0.25*B(492)+0.21*B(494)+0.1*B(496)+0.05*B(500)+0.3*B(502)+0.25& - &*B(504)+0.1*B(506)+0.14*B(508)+0.35*B(510)+0.55*B(512)+0.31*B(514)+0.35*B(516)+0.21*B(518)+0.1*B(520)+0.1& - &*B(522)+0.14*B(524)+0.25*B(526) +! JVS(4917) = Jac_FULL(345,201) + JVS(4917) = B(162)-B(164) IF (DO_JVS(4918)) & -! JVS(4918) = Jac_FULL(343,335) - JVS(4918) = -B(461)-B(467)+B(482)+B(1644) +! JVS(4918) = Jac_FULL(345,203) + JVS(4918) = 0 IF (DO_JVS(4919)) & -! JVS(4919) = Jac_FULL(343,336) - JVS(4919) = 0 +! JVS(4919) = Jac_FULL(345,206) + JVS(4919) = -B(1455) IF (DO_JVS(4920)) & -! JVS(4920) = Jac_FULL(343,337) - JVS(4920) = -B(453)+0.02*B(476) +! JVS(4920) = Jac_FULL(345,208) + JVS(4920) = B(1137) IF (DO_JVS(4921)) & -! JVS(4921) = Jac_FULL(343,338) - JVS(4921) = -B(577)+B(1703) +! JVS(4921) = Jac_FULL(345,209) + JVS(4921) = B(1131) IF (DO_JVS(4922)) & -! JVS(4922) = Jac_FULL(343,339) - JVS(4922) = 0.12*B(488) +! JVS(4922) = Jac_FULL(345,210) + JVS(4922) = 0.459*B(1114)+1.728*B(1116) IF (DO_JVS(4923)) & -! JVS(4923) = Jac_FULL(343,340) - JVS(4923) = 0 +! JVS(4923) = Jac_FULL(345,212) + JVS(4923) = 0.5*B(818)+0.5*B(820)+B(822) IF (DO_JVS(4924)) & -! JVS(4924) = Jac_FULL(343,341) - JVS(4924) = -B(447)+B(456)+B(1641) +! JVS(4924) = Jac_FULL(345,215) + JVS(4924) = 0.942*B(148) IF (DO_JVS(4925)) & -! JVS(4925) = Jac_FULL(343,342) - JVS(4925) = 0 +! JVS(4925) = Jac_FULL(345,216) + JVS(4925) = -B(297)+B(300)+B(304) IF (DO_JVS(4926)) & -! JVS(4926) = Jac_FULL(343,343) - JVS(4926) = -B(406)-B(407)-B(445)-B(448)-B(451)-B(454)-B(458)-B(462)-B(463)-B(465)-B(468)-B(470)-B(483)-B(486)-B(578)& - &-B(602) +! JVS(4926) = Jac_FULL(345,217) + JVS(4926) = B(86)+B(1668) IF (DO_JVS(4927)) & -! JVS(4927) = Jac_FULL(343,344) - JVS(4927) = 0 +! JVS(4927) = Jac_FULL(345,221) + JVS(4927) = B(1707) IF (DO_JVS(4928)) & -! JVS(4928) = Jac_FULL(343,345) - JVS(4928) = B(36)-B(452) +! JVS(4928) = Jac_FULL(345,223) + JVS(4928) = B(1340) IF (DO_JVS(4929)) & -! JVS(4929) = Jac_FULL(343,346) - JVS(4929) = -B(466)+B(480)+B(1747) +! JVS(4929) = Jac_FULL(345,225) + JVS(4929) = B(1800) IF (DO_JVS(4930)) & -! JVS(4930) = Jac_FULL(343,347) - JVS(4930) = -B(484)+B(1691) +! JVS(4930) = Jac_FULL(345,226) + JVS(4930) = B(1039) IF (DO_JVS(4931)) & -! JVS(4931) = Jac_FULL(343,348) - JVS(4931) = 0 +! JVS(4931) = Jac_FULL(345,228) + JVS(4931) = B(1032) IF (DO_JVS(4932)) & -! JVS(4932) = Jac_FULL(343,349) +! JVS(4932) = Jac_FULL(345,229) JVS(4932) = 0 IF (DO_JVS(4933)) & -! JVS(4933) = Jac_FULL(343,350) +! JVS(4933) = Jac_FULL(345,231) JVS(4933) = 0 IF (DO_JVS(4934)) & -! JVS(4934) = Jac_FULL(343,351) - JVS(4934) = -B(464)+B(1653) +! JVS(4934) = Jac_FULL(345,233) + JVS(4934) = 0 IF (DO_JVS(4935)) & -! JVS(4935) = Jac_FULL(343,352) - JVS(4935) = -B(408)+0.2*B(490) +! JVS(4935) = Jac_FULL(345,234) + JVS(4935) = 0.5*B(863) IF (DO_JVS(4936)) & -! JVS(4936) = Jac_FULL(343,353) - JVS(4936) = 0 +! JVS(4936) = Jac_FULL(345,235) + JVS(4936) = B(1046) IF (DO_JVS(4937)) & -! JVS(4937) = Jac_FULL(344,166) - JVS(4937) = B(11) +! JVS(4937) = Jac_FULL(345,236) + JVS(4937) = B(1206) IF (DO_JVS(4938)) & -! JVS(4938) = Jac_FULL(344,214) - JVS(4938) = -B(1503) +! JVS(4938) = Jac_FULL(345,237) + JVS(4938) = B(1434)-B(1436) IF (DO_JVS(4939)) & -! JVS(4939) = Jac_FULL(344,252) - JVS(4939) = -B(1597) +! JVS(4939) = Jac_FULL(345,238) + JVS(4939) = -B(1443)+B(1445)+B(1447) IF (DO_JVS(4940)) & -! JVS(4940) = Jac_FULL(344,297) - JVS(4940) = -B(1529) +! JVS(4940) = Jac_FULL(345,239) + JVS(4940) = 0.995*B(1366)+B(1368) IF (DO_JVS(4941)) & -! JVS(4941) = Jac_FULL(344,316) - JVS(4941) = -B(1555) +! JVS(4941) = Jac_FULL(345,240) + JVS(4941) = B(71) IF (DO_JVS(4942)) & -! JVS(4942) = Jac_FULL(344,317) - JVS(4942) = -B(1525) +! JVS(4942) = Jac_FULL(345,241) + JVS(4942) = 0 IF (DO_JVS(4943)) & -! JVS(4943) = Jac_FULL(344,327) - JVS(4943) = 0 +! JVS(4943) = Jac_FULL(345,243) + JVS(4943) = B(1405)-B(1409) IF (DO_JVS(4944)) & -! JVS(4944) = Jac_FULL(344,328) - JVS(4944) = 0 +! JVS(4944) = Jac_FULL(345,244) + JVS(4944) = B(707)-B(709) IF (DO_JVS(4945)) & -! JVS(4945) = Jac_FULL(344,329) - JVS(4945) = 0 +! JVS(4945) = Jac_FULL(345,245) + JVS(4945) = B(1082) IF (DO_JVS(4946)) & -! JVS(4946) = Jac_FULL(344,330) - JVS(4946) = -B(1613) +! JVS(4946) = Jac_FULL(345,246) + JVS(4946) = B(1764) IF (DO_JVS(4947)) & -! JVS(4947) = Jac_FULL(344,331) - JVS(4947) = 0 +! JVS(4947) = Jac_FULL(345,249) + JVS(4947) = B(689)+B(1777) IF (DO_JVS(4948)) & -! JVS(4948) = Jac_FULL(344,332) - JVS(4948) = -B(1605) +! JVS(4948) = Jac_FULL(345,250) + JVS(4948) = -B(238)+B(243) IF (DO_JVS(4949)) & -! JVS(4949) = Jac_FULL(344,333) - JVS(4949) = -B(1545) +! JVS(4949) = Jac_FULL(345,251) + JVS(4949) = B(1786) IF (DO_JVS(4950)) & -! JVS(4950) = Jac_FULL(344,334) - JVS(4950) = 0 +! JVS(4950) = Jac_FULL(345,252) + JVS(4950) = 2*B(175)+B(259)+B(361) IF (DO_JVS(4951)) & -! JVS(4951) = Jac_FULL(344,335) - JVS(4951) = 0 +! JVS(4951) = Jac_FULL(345,253) + JVS(4951) = 2*B(191)+B(267)+B(363) IF (DO_JVS(4952)) & -! JVS(4952) = Jac_FULL(344,336) - JVS(4952) = 0 +! JVS(4952) = Jac_FULL(345,254) + JVS(4952) = B(648)+2*B(649)+B(1743) IF (DO_JVS(4953)) & -! JVS(4953) = Jac_FULL(344,337) - JVS(4953) = 0 +! JVS(4953) = Jac_FULL(345,255) + JVS(4953) = B(1698) IF (DO_JVS(4954)) & -! JVS(4954) = Jac_FULL(344,338) +! JVS(4954) = Jac_FULL(345,256) JVS(4954) = 0 IF (DO_JVS(4955)) & -! JVS(4955) = Jac_FULL(344,339) - JVS(4955) = B(12) +! JVS(4955) = Jac_FULL(345,257) + JVS(4955) = B(1283) IF (DO_JVS(4956)) & -! JVS(4956) = Jac_FULL(344,340) - JVS(4956) = 0 +! JVS(4956) = Jac_FULL(345,258) + JVS(4956) = B(1272) IF (DO_JVS(4957)) & -! JVS(4957) = Jac_FULL(344,341) - JVS(4957) = 0 +! JVS(4957) = Jac_FULL(345,260) + JVS(4957) = B(1763) IF (DO_JVS(4958)) & -! JVS(4958) = Jac_FULL(344,342) - JVS(4958) = 0 +! JVS(4958) = Jac_FULL(345,261) + JVS(4958) = B(751)-B(753)+B(756) IF (DO_JVS(4959)) & -! JVS(4959) = Jac_FULL(344,343) - JVS(4959) = 0 +! JVS(4959) = Jac_FULL(345,262) + JVS(4959) = B(1287)-B(1289) IF (DO_JVS(4960)) & -! JVS(4960) = Jac_FULL(344,344) - JVS(4960) = -B(1504)-B(1507)-B(1526)-B(1530)-B(1546)-B(1556)-B(1598)-B(1606)-B(1614) +! JVS(4960) = Jac_FULL(345,263) + JVS(4960) = 0.5*B(875) IF (DO_JVS(4961)) & -! JVS(4961) = Jac_FULL(344,345) - JVS(4961) = -B(1508) +! JVS(4961) = Jac_FULL(345,264) + JVS(4961) = B(122) IF (DO_JVS(4962)) & -! JVS(4962) = Jac_FULL(344,346) - JVS(4962) = 0 +! JVS(4962) = Jac_FULL(345,265) + JVS(4962) = B(687)+B(1318)+B(1762) IF (DO_JVS(4963)) & -! JVS(4963) = Jac_FULL(344,347) - JVS(4963) = 0 +! JVS(4963) = Jac_FULL(345,266) + JVS(4963) = B(1389)+B(1391) IF (DO_JVS(4964)) & -! JVS(4964) = Jac_FULL(344,348) - JVS(4964) = 0 +! JVS(4964) = Jac_FULL(345,269) + JVS(4964) = B(1314)+B(1812)+B(1813) IF (DO_JVS(4965)) & -! JVS(4965) = Jac_FULL(344,349) - JVS(4965) = 0 +! JVS(4965) = Jac_FULL(345,270) + JVS(4965) = B(1105)+B(1799) IF (DO_JVS(4966)) & -! JVS(4966) = Jac_FULL(344,350) - JVS(4966) = 0 +! JVS(4966) = Jac_FULL(345,271) + JVS(4966) = B(1101)+B(1796) IF (DO_JVS(4967)) & -! JVS(4967) = Jac_FULL(344,351) - JVS(4967) = 0 +! JVS(4967) = Jac_FULL(345,272) + JVS(4967) = 0.5*B(1457)+B(1459) IF (DO_JVS(4968)) & -! JVS(4968) = Jac_FULL(344,352) - JVS(4968) = 0 +! JVS(4968) = Jac_FULL(345,273) + JVS(4968) = 0.058*B(1198)+1.065*B(1202) IF (DO_JVS(4969)) & -! JVS(4969) = Jac_FULL(344,353) - JVS(4969) = 0 +! JVS(4969) = Jac_FULL(345,275) + JVS(4969) = B(790)+B(794) IF (DO_JVS(4970)) & -! JVS(4970) = Jac_FULL(345,41) - JVS(4970) = -B(1489) +! JVS(4970) = Jac_FULL(345,276) + JVS(4970) = 0.75*B(776)+B(778) IF (DO_JVS(4971)) & -! JVS(4971) = Jac_FULL(345,43) - JVS(4971) = -B(553) +! JVS(4971) = Jac_FULL(345,277) + JVS(4971) = B(840)-B(842)+B(845) IF (DO_JVS(4972)) & -! JVS(4972) = Jac_FULL(345,52) - JVS(4972) = -B(685) +! JVS(4972) = Jac_FULL(345,278) + JVS(4972) = 0.84*B(824)+B(828) IF (DO_JVS(4973)) & -! JVS(4973) = Jac_FULL(345,58) - JVS(4973) = -B(1397) +! JVS(4973) = Jac_FULL(345,279) + JVS(4973) = 0 IF (DO_JVS(4974)) & -! JVS(4974) = Jac_FULL(345,60) - JVS(4974) = -0.364*B(1362) +! JVS(4974) = Jac_FULL(345,280) + JVS(4974) = B(901)+B(917)+0.5*B(922) IF (DO_JVS(4975)) & -! JVS(4975) = Jac_FULL(345,66) - JVS(4975) = -B(760)+B(1810) +! JVS(4975) = Jac_FULL(345,281) + JVS(4975) = 0.75*B(737)+B(739) IF (DO_JVS(4976)) & -! JVS(4976) = Jac_FULL(345,68) - JVS(4976) = -B(459) +! JVS(4976) = Jac_FULL(345,282) + JVS(4976) = 0.84*B(764)+B(766) IF (DO_JVS(4977)) & -! JVS(4977) = Jac_FULL(345,69) - JVS(4977) = -B(124) +! JVS(4977) = Jac_FULL(345,283) + JVS(4977) = B(1701) IF (DO_JVS(4978)) & -! JVS(4978) = Jac_FULL(345,70) - JVS(4978) = -B(1375) +! JVS(4978) = Jac_FULL(345,284) + JVS(4978) = 0.75*B(802)+B(804) IF (DO_JVS(4979)) & -! JVS(4979) = Jac_FULL(345,71) - JVS(4979) = -B(1438)+B(1803) +! JVS(4979) = Jac_FULL(345,288) + JVS(4979) = B(1072) IF (DO_JVS(4980)) & -! JVS(4980) = Jac_FULL(345,72) - JVS(4980) = -B(308) +! JVS(4980) = Jac_FULL(345,289) + JVS(4980) = B(1066) IF (DO_JVS(4981)) & -! JVS(4981) = Jac_FULL(345,73) - JVS(4981) = -B(675) +! JVS(4981) = Jac_FULL(345,292) + JVS(4981) = 2*B(903)+0.5*B(911)+B(915)+2*B(919)+0.5*B(923)+B(924) IF (DO_JVS(4982)) & -! JVS(4982) = Jac_FULL(345,74) - JVS(4982) = -B(758)+B(1809) +! JVS(4982) = Jac_FULL(345,293) + JVS(4982) = 0 IF (DO_JVS(4983)) & -! JVS(4983) = Jac_FULL(345,75) - JVS(4983) = -B(551) +! JVS(4983) = Jac_FULL(345,294) + JVS(4983) = B(855)+B(857) IF (DO_JVS(4984)) & -! JVS(4984) = Jac_FULL(345,76) - JVS(4984) = -B(537) +! JVS(4984) = Jac_FULL(345,296) + JVS(4984) = B(654) IF (DO_JVS(4985)) & -! JVS(4985) = Jac_FULL(345,78) - JVS(4985) = -B(429) +! JVS(4985) = Jac_FULL(345,299) + JVS(4985) = B(1143) IF (DO_JVS(4986)) & -! JVS(4986) = Jac_FULL(345,79) - JVS(4986) = -B(549) +! JVS(4986) = Jac_FULL(345,300) + JVS(4986) = B(108) IF (DO_JVS(4987)) & -! JVS(4987) = Jac_FULL(345,81) - JVS(4987) = -B(427) +! JVS(4987) = Jac_FULL(345,301) + JVS(4987) = B(543)+B(1719) IF (DO_JVS(4988)) & -! JVS(4988) = Jac_FULL(345,82) - JVS(4988) = -B(1383) +! JVS(4988) = Jac_FULL(345,303) + JVS(4988) = 0.565*B(1218)+1.555*B(1804) IF (DO_JVS(4989)) & -! JVS(4989) = Jac_FULL(345,83) - JVS(4989) = -B(941) +! JVS(4989) = Jac_FULL(345,304) + JVS(4989) = B(171) IF (DO_JVS(4990)) & -! JVS(4990) = Jac_FULL(345,84) - JVS(4990) = -B(561) +! JVS(4990) = Jac_FULL(345,305) + JVS(4990) = B(1210)+B(1803) IF (DO_JVS(4991)) & -! JVS(4991) = Jac_FULL(345,85) - JVS(4991) = -B(557) +! JVS(4991) = Jac_FULL(345,306) + JVS(4991) = 0.31*B(1236)+0.7*B(1785) IF (DO_JVS(4992)) & -! JVS(4992) = Jac_FULL(345,86) - JVS(4992) = -B(559) +! JVS(4992) = Jac_FULL(345,307) + JVS(4992) = 0.022*B(1316)+0.3*B(1810)+B(1811) IF (DO_JVS(4993)) & -! JVS(4993) = Jac_FULL(345,87) - JVS(4993) = 0.05*B(503)-B(555) +! JVS(4993) = Jac_FULL(345,308) + JVS(4993) = 0.527*B(1149)+1.86*B(1153)+0.563*B(1154)+0.611*B(1159)+B(1161)+2*B(1165)+2*B(1169) IF (DO_JVS(4994)) & -! JVS(4994) = Jac_FULL(345,88) - JVS(4994) = -0.5*B(1322)+2*B(1761) +! JVS(4994) = Jac_FULL(345,309) + JVS(4994) = 0 IF (DO_JVS(4995)) & -! JVS(4995) = Jac_FULL(345,89) - JVS(4995) = -B(23) +! JVS(4995) = Jac_FULL(345,310) + JVS(4995) = 0.563*B(1155)+B(1167)+B(1173) IF (DO_JVS(4996)) & -! JVS(4996) = Jac_FULL(345,90) - JVS(4996) = -B(1441) +! JVS(4996) = Jac_FULL(345,312) + JVS(4996) = 0.5*B(1291)+2*B(1293)+2*B(1297)+0.7*B(1299) IF (DO_JVS(4997)) & -! JVS(4997) = Jac_FULL(345,91) - JVS(4997) = -B(943) +! JVS(4997) = Jac_FULL(345,313) + JVS(4997) = 0 IF (DO_JVS(4998)) & -! JVS(4998) = Jac_FULL(345,92) - JVS(4998) = -0.78*B(342)+B(1689) +! JVS(4998) = Jac_FULL(345,314) + JVS(4998) = B(987)+B(991) IF (DO_JVS(4999)) & -! JVS(4999) = Jac_FULL(345,93) - JVS(4999) = -B(939) +! JVS(4999) = Jac_FULL(345,315) + JVS(4999) = B(995)+B(999) IF (DO_JVS(5000)) & -! JVS(5000) = Jac_FULL(345,94) - JVS(5000) = -B(381)-B(383) +! JVS(5000) = Jac_FULL(345,316) + JVS(5000) = B(183) IF (DO_JVS(5001)) & -! JVS(5001) = Jac_FULL(345,95) - JVS(5001) = -B(945) +! JVS(5001) = Jac_FULL(345,317) + JVS(5001) = B(693)-B(695) IF (DO_JVS(5002)) & -! JVS(5002) = Jac_FULL(345,97) - JVS(5002) = -0.21*B(332)+B(1680) +! JVS(5002) = Jac_FULL(345,318) + JVS(5002) = 0 IF (DO_JVS(5003)) & -! JVS(5003) = Jac_FULL(345,98) - JVS(5003) = -0.5*B(134)+B(1681) +! JVS(5003) = Jac_FULL(345,319) + JVS(5003) = B(112) IF (DO_JVS(5004)) & -! JVS(5004) = Jac_FULL(345,99) - JVS(5004) = -0.36*B(328)+B(1678) +! JVS(5004) = Jac_FULL(345,321) + JVS(5004) = B(1721) IF (DO_JVS(5005)) & -! JVS(5005) = Jac_FULL(345,100) - JVS(5005) = -0.209*B(330)+B(1679) +! JVS(5005) = Jac_FULL(345,322) + JVS(5005) = 2*B(181)+B(255)+B(359) IF (DO_JVS(5006)) & -! JVS(5006) = Jac_FULL(345,101) - JVS(5006) = -B(1385) +! JVS(5006) = Jac_FULL(345,323) + JVS(5006) = B(177) IF (DO_JVS(5007)) & -! JVS(5007) = Jac_FULL(345,102) - JVS(5007) = -0.21*B(334)+B(1682) +! JVS(5007) = Jac_FULL(345,324) + JVS(5007) = 0.928*B(185)+0.93*B(236) IF (DO_JVS(5008)) & -! JVS(5008) = Jac_FULL(345,105) - JVS(5008) = -B(431) +! JVS(5008) = Jac_FULL(345,325) + JVS(5008) = -B(203)+B(208) IF (DO_JVS(5009)) & -! JVS(5009) = Jac_FULL(345,107) - JVS(5009) = -0.3*B(1304) +! JVS(5009) = Jac_FULL(345,326) + JVS(5009) = B(118) IF (DO_JVS(5010)) & -! JVS(5010) = Jac_FULL(345,108) - JVS(5010) = -B(76)+B(1651) +! JVS(5010) = Jac_FULL(345,327) + JVS(5010) = B(187) IF (DO_JVS(5011)) & -! JVS(5011) = Jac_FULL(345,109) - JVS(5011) = -B(1360) +! JVS(5011) = Jac_FULL(345,328) + JVS(5011) = -B(99)+B(104)+B(360)+B(362)+B(364)+B(916)+B(1162) IF (DO_JVS(5012)) & -! JVS(5012) = Jac_FULL(345,111) - JVS(5012) = -B(741)+B(1807) +! JVS(5012) = Jac_FULL(345,330) + JVS(5012) = 0 IF (DO_JVS(5013)) & -! JVS(5013) = Jac_FULL(345,112) - JVS(5013) = -B(782)+B(1812) +! JVS(5013) = Jac_FULL(345,331) + JVS(5013) = -B(646) IF (DO_JVS(5014)) & -! JVS(5014) = Jac_FULL(345,113) - JVS(5014) = -B(241) +! JVS(5014) = Jac_FULL(345,333) + JVS(5014) = B(1662) IF (DO_JVS(5015)) & -! JVS(5015) = Jac_FULL(345,114) - JVS(5015) = -B(306) +! JVS(5015) = Jac_FULL(345,334) + JVS(5015) = B(49)+B(256)+B(260)+B(268)-B(378)+0.5*B(912)+0.611*B(1160)+0.7*B(1300)+B(1487) IF (DO_JVS(5016)) & -! JVS(5016) = Jac_FULL(345,115) - JVS(5016) = -B(1320) +! JVS(5016) = Jac_FULL(345,335) + JVS(5016) = 0 IF (DO_JVS(5017)) & -! JVS(5017) = Jac_FULL(345,116) - JVS(5017) = -B(1356) +! JVS(5017) = Jac_FULL(345,336) + JVS(5017) = -B(652)+B(681) IF (DO_JVS(5018)) & -! JVS(5018) = Jac_FULL(345,117) - JVS(5018) = -B(1451) +! JVS(5018) = Jac_FULL(345,337) + JVS(5018) = 0 IF (DO_JVS(5019)) & -! JVS(5019) = Jac_FULL(345,118) - JVS(5019) = -0.36*B(326)+B(1677) +! JVS(5019) = Jac_FULL(345,338) + JVS(5019) = B(26)+B(42)+B(50)+2*B(80)+B(105)+B(109)+B(113)+B(119)+B(123)+B(129)+2*B(139)+0.942*B(149)+B(157)+B(163)& + &+B(172)+2*B(176)+B(178)+2*B(182)+B(184)+0.928*B(186)+B(188)+2*B(192)+B(209)+0.93*B(237)+B(244)+B(301)& + &+B(399)+B(465)+B(581)+B(666)+B(682)+B(694)+B(708)+0.75*B(738)+B(752)+0.84*B(765)+0.75*B(777)+B(791)+0.75& + &*B(803)+0.84*B(825)+B(841)+B(856)+B(902)+2*B(904)+B(988)+B(992)+B(996)+B(1000)+B(1033)+B(1040)+B(1047)& + &+B(1067)+B(1073)+B(1083)+B(1086)+B(1090)+1.728*B(1117)+B(1124)+B(1132)+B(1138)+B(1144)+2*B(1170)+B(1174)& + &+1.065*B(1203)+B(1207)+B(1215)+1.11*B(1221)+B(1247)+B(1253)+B(1273)+B(1284)+B(1288)+2*B(1294)+0.89*B(1353)& + &+0.995*B(1367)+B(1390)+B(1400)+B(1406)+B(1435)+B(1446) IF (DO_JVS(5020)) & -! JVS(5020) = Jac_FULL(345,119) - JVS(5020) = -B(1013) +! JVS(5020) = Jac_FULL(345,339) + JVS(5020) = 0 IF (DO_JVS(5021)) & -! JVS(5021) = Jac_FULL(345,120) - JVS(5021) = -B(535) +! JVS(5021) = Jac_FULL(345,340) + JVS(5021) = 0 IF (DO_JVS(5022)) & -! JVS(5022) = Jac_FULL(345,122) - JVS(5022) = -B(1412) +! JVS(5022) = Jac_FULL(345,341) + JVS(5022) = B(43)-B(73)+B(78)+0.459*B(1115)+0.527*B(1150)+0.058*B(1199)+0.09*B(1223)+0.5*B(1292) IF (DO_JVS(5023)) & -! JVS(5023) = Jac_FULL(345,123) - JVS(5023) = -0.209*B(338)+B(1683) +! JVS(5023) = Jac_FULL(345,342) + JVS(5023) = B(411)-B(423) IF (DO_JVS(5024)) & -! JVS(5024) = Jac_FULL(345,124) - JVS(5024) = -B(206) +! JVS(5024) = Jac_FULL(345,343) + JVS(5024) = -B(65)+B(72)+B(77)+B(82)+B(103)+B(153)+B(207)+B(242)+B(307)+B(544)+B(688)+B(690)+0.5*B(744)+0.5*B(773)+0.5& + &*B(781)+0.5*B(799)+0.5*B(819)+0.5*B(837)+0.3*B(866)+B(940)+B(942)+B(944)+B(946)+B(1096)+B(1100)+B(1102)& + &+B(1106)+B(1189)+B(1211)+0.565*B(1219)+0.31*B(1237)+B(1315)+0.022*B(1317)+B(1357)+B(1376)+B(1413)+B(1442)& + &+0.5*B(1458) IF (DO_JVS(5025)) & -! JVS(5025) = Jac_FULL(345,125) - JVS(5025) = -0.209*B(324)+B(1676) +! JVS(5025) = Jac_FULL(345,344) + JVS(5025) = B(582)-B(583) IF (DO_JVS(5026)) & -! JVS(5026) = Jac_FULL(345,126) - JVS(5026) = -B(167) +! JVS(5026) = Jac_FULL(345,345) + JVS(5026) = -B(32)-B(66)-B(74)-B(84)-B(100)-B(165)-B(204)-B(239)-B(298)-B(379)-B(424)-B(425)-B(461)-B(467)-B(482)& + &-B(584)-B(647)-B(653)-B(696)-B(710)-B(754)-B(843)-B(1251)-B(1257)-B(1290)-B(1410)-B(1437)-B(1444)-B(1456)& + &-B(1492)-B(1646)-B(1657) IF (DO_JVS(5027)) & -! JVS(5027) = Jac_FULL(345,127) - JVS(5027) = -B(152) +! JVS(5027) = Jac_FULL(345,346) + JVS(5027) = 0 IF (DO_JVS(5028)) & -! JVS(5028) = Jac_FULL(345,128) - JVS(5028) = -B(1052) +! JVS(5028) = Jac_FULL(345,347) + JVS(5028) = B(400)-B(426) IF (DO_JVS(5029)) & -! JVS(5029) = Jac_FULL(345,129) - JVS(5029) = -B(784) +! JVS(5029) = Jac_FULL(345,348) + JVS(5029) = B(79)+2*B(81)+B(83)-B(85)+B(145)+B(305)+2*B(377)+B(412)+B(463)+B(740)+B(757)+B(767)+B(779)+B(795)+B(805)& + &+B(823)+B(829)+B(835)+B(846)+B(858)+0.5*B(864)+1.15*B(870)+0.5*B(876)+B(918)+2*B(920)+2*B(1166)+B(1168)+2& + &*B(1298)+B(1319)+B(1341)+B(1369)+B(1392)+B(1448)+B(1460)+B(1488)+B(1666) IF (DO_JVS(5030)) & -! JVS(5030) = Jac_FULL(345,130) - JVS(5030) = -B(849)+B(1815) +! JVS(5030) = Jac_FULL(345,349) + JVS(5030) = 0 IF (DO_JVS(5031)) & -! JVS(5031) = Jac_FULL(345,131) - JVS(5031) = -B(1262) +! JVS(5031) = Jac_FULL(345,350) + JVS(5031) = 0 IF (DO_JVS(5032)) & -! JVS(5032) = Jac_FULL(345,133) - JVS(5032) = B(1085)+2*B(1087) +! JVS(5032) = Jac_FULL(345,351) + JVS(5032) = -B(462)+B(464)+B(466)-B(468) IF (DO_JVS(5033)) & -! JVS(5033) = Jac_FULL(345,134) - JVS(5033) = 2*B(1746) +! JVS(5033) = Jac_FULL(345,352) + JVS(5033) = 0 IF (DO_JVS(5034)) & -! JVS(5034) = Jac_FULL(345,135) - JVS(5034) = B(1089)+2*B(1091) +! JVS(5034) = Jac_FULL(345,353) + JVS(5034) = 0 IF (DO_JVS(5035)) & -! JVS(5035) = Jac_FULL(345,136) - JVS(5035) = -B(1377)+B(1801) +! JVS(5035) = Jac_FULL(345,354) + JVS(5035) = 0 IF (DO_JVS(5036)) & -! JVS(5036) = Jac_FULL(345,137) - JVS(5036) = -B(743) +! JVS(5036) = Jac_FULL(345,355) + JVS(5036) = -B(1647) IF (DO_JVS(5037)) & -! JVS(5037) = Jac_FULL(345,138) - JVS(5037) = -B(780) +! JVS(5037) = Jac_FULL(345,356) + JVS(5037) = B(27)-B(33)+0.5*B(821)+0.3*B(868) IF (DO_JVS(5038)) & -! JVS(5038) = Jac_FULL(345,139) - JVS(5038) = -B(102) +! JVS(5038) = Jac_FULL(346,169) + JVS(5038) = B(11) IF (DO_JVS(5039)) & -! JVS(5039) = Jac_FULL(345,140) - JVS(5039) = -B(142) +! JVS(5039) = Jac_FULL(346,217) + JVS(5039) = -B(1503) IF (DO_JVS(5040)) & -! JVS(5040) = Jac_FULL(345,141) - JVS(5040) = -B(114)-B(116) +! JVS(5040) = Jac_FULL(346,254) + JVS(5040) = -B(1597) IF (DO_JVS(5041)) & -! JVS(5041) = Jac_FULL(345,142) - JVS(5041) = -B(169) +! JVS(5041) = Jac_FULL(346,287) + JVS(5041) = -B(1613) IF (DO_JVS(5042)) & -! JVS(5042) = Jac_FULL(345,143) - JVS(5042) = -B(1381) +! JVS(5042) = Jac_FULL(346,296) + JVS(5042) = -B(1605) IF (DO_JVS(5043)) & -! JVS(5043) = Jac_FULL(345,144) - JVS(5043) = B(1782) +! JVS(5043) = Jac_FULL(346,301) + JVS(5043) = -B(1529) IF (DO_JVS(5044)) & -! JVS(5044) = Jac_FULL(345,146) - JVS(5044) = -B(1403) +! JVS(5044) = Jac_FULL(346,320) + JVS(5044) = -B(1555) IF (DO_JVS(5045)) & -! JVS(5045) = Jac_FULL(345,147) - JVS(5045) = -0.556*B(1308)+0.546*B(1796) +! JVS(5045) = Jac_FULL(346,321) + JVS(5045) = -B(1525) IF (DO_JVS(5046)) & -! JVS(5046) = Jac_FULL(345,148) - JVS(5046) = -B(403) +! JVS(5046) = Jac_FULL(346,331) + JVS(5046) = 0 IF (DO_JVS(5047)) & -! JVS(5047) = Jac_FULL(345,149) - JVS(5047) = -B(1344) +! JVS(5047) = Jac_FULL(346,332) + JVS(5047) = -B(1545) IF (DO_JVS(5048)) & -! JVS(5048) = Jac_FULL(345,150) - JVS(5048) = B(1781) +! JVS(5048) = Jac_FULL(346,333) + JVS(5048) = 0 IF (DO_JVS(5049)) & -! JVS(5049) = Jac_FULL(345,151) - JVS(5049) = -B(1054)-B(1056) +! JVS(5049) = Jac_FULL(346,334) + JVS(5049) = 0 IF (DO_JVS(5050)) & -! JVS(5050) = Jac_FULL(345,152) - JVS(5050) = -B(1058)-B(1060) +! JVS(5050) = Jac_FULL(346,335) + JVS(5050) = 0 IF (DO_JVS(5051)) & -! JVS(5051) = Jac_FULL(345,153) - JVS(5051) = -B(1268) +! JVS(5051) = Jac_FULL(346,336) + JVS(5051) = 0 IF (DO_JVS(5052)) & -! JVS(5052) = Jac_FULL(345,154) - JVS(5052) = -B(937) +! JVS(5052) = Jac_FULL(346,337) + JVS(5052) = 0 IF (DO_JVS(5053)) & -! JVS(5053) = Jac_FULL(345,155) - JVS(5053) = -B(336)+B(1684) +! JVS(5053) = Jac_FULL(346,338) + JVS(5053) = 0 IF (DO_JVS(5054)) & -! JVS(5054) = Jac_FULL(345,156) - JVS(5054) = -B(269) +! JVS(5054) = Jac_FULL(346,339) + JVS(5054) = 0 IF (DO_JVS(5055)) & -! JVS(5055) = Jac_FULL(345,158) - JVS(5055) = -B(1418) +! JVS(5055) = Jac_FULL(346,340) + JVS(5055) = B(12) IF (DO_JVS(5056)) & -! JVS(5056) = Jac_FULL(345,159) - JVS(5056) = -0.415*B(1280)+0.75*B(1771) +! JVS(5056) = Jac_FULL(346,341) + JVS(5056) = 0 IF (DO_JVS(5057)) & -! JVS(5057) = Jac_FULL(345,160) - JVS(5057) = -B(770)+B(1811) +! JVS(5057) = Jac_FULL(346,342) + JVS(5057) = 0 IF (DO_JVS(5058)) & -! JVS(5058) = Jac_FULL(345,161) - JVS(5058) = -B(796)+B(1813) +! JVS(5058) = Jac_FULL(346,343) + JVS(5058) = -B(1507) IF (DO_JVS(5059)) & -! JVS(5059) = Jac_FULL(345,162) - JVS(5059) = -B(798) +! JVS(5059) = Jac_FULL(346,344) + JVS(5059) = 0 IF (DO_JVS(5060)) & -! JVS(5060) = Jac_FULL(345,163) - JVS(5060) = -B(832) +! JVS(5060) = Jac_FULL(346,345) + JVS(5060) = 0 IF (DO_JVS(5061)) & -! JVS(5061) = Jac_FULL(345,164) - JVS(5061) = -0.7*B(59)+B(1646) +! JVS(5061) = Jac_FULL(346,346) + JVS(5061) = -B(1504)-B(1508)-B(1526)-B(1530)-B(1546)-B(1556)-B(1598)-B(1606)-B(1614) IF (DO_JVS(5062)) & -! JVS(5062) = Jac_FULL(345,167) - JVS(5062) = -B(723)+0.865*B(725) +! JVS(5062) = Jac_FULL(346,347) + JVS(5062) = 0 IF (DO_JVS(5063)) & -! JVS(5063) = Jac_FULL(345,168) - JVS(5063) = -B(1097)-B(1099) +! JVS(5063) = Jac_FULL(346,348) + JVS(5063) = 0 IF (DO_JVS(5064)) & -! JVS(5064) = Jac_FULL(345,169) - JVS(5064) = -B(847)+B(1814) +! JVS(5064) = Jac_FULL(346,349) + JVS(5064) = 0 IF (DO_JVS(5065)) & -! JVS(5065) = Jac_FULL(345,170) - JVS(5065) = -B(673) +! JVS(5065) = Jac_FULL(346,350) + JVS(5065) = 0 IF (DO_JVS(5066)) & -! JVS(5066) = Jac_FULL(345,171) - JVS(5066) = B(1248) +! JVS(5066) = Jac_FULL(346,351) + JVS(5066) = 0 IF (DO_JVS(5067)) & -! JVS(5067) = Jac_FULL(345,172) - JVS(5067) = B(1254) +! JVS(5067) = Jac_FULL(346,352) + JVS(5067) = 0 IF (DO_JVS(5068)) & -! JVS(5068) = Jac_FULL(345,173) - JVS(5068) = -B(1336) +! JVS(5068) = Jac_FULL(346,353) + JVS(5068) = 0 IF (DO_JVS(5069)) & -! JVS(5069) = Jac_FULL(345,174) - JVS(5069) = 1.25*B(1794) +! JVS(5069) = Jac_FULL(346,354) + JVS(5069) = 0 IF (DO_JVS(5070)) & -! JVS(5070) = Jac_FULL(345,175) - JVS(5070) = -B(1093)-B(1095) +! JVS(5070) = Jac_FULL(346,355) + JVS(5070) = 0 IF (DO_JVS(5071)) & -! JVS(5071) = Jac_FULL(345,176) - JVS(5071) = -B(772) +! JVS(5071) = Jac_FULL(346,356) + JVS(5071) = 0 IF (DO_JVS(5072)) & -! JVS(5072) = Jac_FULL(345,177) - JVS(5072) = -B(836) +! JVS(5072) = Jac_FULL(347,56) + JVS(5072) = 0.45*B(511) IF (DO_JVS(5073)) & -! JVS(5073) = Jac_FULL(345,178) - JVS(5073) = 0 +! JVS(5073) = Jac_FULL(347,57) + JVS(5073) = 0.75*B(525) IF (DO_JVS(5074)) & -! JVS(5074) = Jac_FULL(345,179) - JVS(5074) = 0 +! JVS(5074) = Jac_FULL(347,64) + JVS(5074) = 0.31*B(509) IF (DO_JVS(5075)) & -! JVS(5075) = Jac_FULL(345,180) - JVS(5075) = 0.82*B(1222) +! JVS(5075) = Jac_FULL(347,79) + JVS(5075) = 0.95*B(499) IF (DO_JVS(5076)) & -! JVS(5076) = Jac_FULL(345,181) - JVS(5076) = -B(547) +! JVS(5076) = Jac_FULL(347,82) + JVS(5076) = 0.7*B(501) IF (DO_JVS(5077)) & -! JVS(5077) = Jac_FULL(345,182) - JVS(5077) = B(1216) +! JVS(5077) = Jac_FULL(347,108) + JVS(5077) = 0.44*B(497) IF (DO_JVS(5078)) & -! JVS(5078) = Jac_FULL(345,183) - JVS(5078) = -B(106) +! JVS(5078) = Jac_FULL(347,221) + JVS(5078) = B(1707) IF (DO_JVS(5079)) & -! JVS(5079) = Jac_FULL(345,184) - JVS(5079) = -B(1302) +! JVS(5079) = Jac_FULL(347,320) + JVS(5079) = B(405) IF (DO_JVS(5080)) & -! JVS(5080) = Jac_FULL(345,185) - JVS(5080) = B(1768) +! JVS(5080) = Jac_FULL(347,331) + JVS(5080) = -B(657) IF (DO_JVS(5081)) & -! JVS(5081) = Jac_FULL(345,186) - JVS(5081) = -B(1182)-B(1188)-B(1192)+B(1788) +! JVS(5081) = Jac_FULL(347,336) + JVS(5081) = -B(659) IF (DO_JVS(5082)) & -! JVS(5082) = Jac_FULL(345,187) - JVS(5082) = -B(1015)-B(1023)+B(1775) +! JVS(5082) = Jac_FULL(347,337) + JVS(5082) = 0.2*B(489)+0.44*B(498)+0.95*B(500)+0.7*B(502)+0.31*B(510)+0.45*B(512)+0.75*B(526) IF (DO_JVS(5083)) & -! JVS(5083) = Jac_FULL(345,188) - JVS(5083) = -B(271) +! JVS(5083) = Jac_FULL(347,338) + JVS(5083) = -B(399) IF (DO_JVS(5084)) & -! JVS(5084) = Jac_FULL(345,189) - JVS(5084) = B(1354) +! JVS(5084) = Jac_FULL(347,339) + JVS(5084) = 0 IF (DO_JVS(5085)) & -! JVS(5085) = Jac_FULL(345,190) - JVS(5085) = 0.599*B(1121) +! JVS(5085) = Jac_FULL(347,340) + JVS(5085) = 0 IF (DO_JVS(5086)) & -! JVS(5086) = Jac_FULL(345,191) - JVS(5086) = -B(731)+0.65*B(733) +! JVS(5086) = Jac_FULL(347,341) + JVS(5086) = -B(391) IF (DO_JVS(5087)) & -! JVS(5087) = Jac_FULL(345,192) - JVS(5087) = -B(1019)-B(1025)+B(1776) +! JVS(5087) = Jac_FULL(347,342) + JVS(5087) = B(389)+B(411) IF (DO_JVS(5088)) & -! JVS(5088) = Jac_FULL(345,193) - JVS(5088) = -B(865) +! JVS(5088) = Jac_FULL(347,343) + JVS(5088) = -B(409) IF (DO_JVS(5089)) & -! JVS(5089) = Jac_FULL(345,194) - JVS(5089) = -0.715*B(1258)+1.75*B(1769) +! JVS(5089) = Jac_FULL(347,344) + JVS(5089) = -B(595)-B(597)-B(599) IF (DO_JVS(5090)) & -! JVS(5090) = Jac_FULL(345,195) - JVS(5090) = -B(1414) +! JVS(5090) = Jac_FULL(347,345) + JVS(5090) = -B(425) IF (DO_JVS(5091)) & -! JVS(5091) = Jac_FULL(345,196) - JVS(5091) = -B(136) +! JVS(5091) = Jac_FULL(347,346) + JVS(5091) = 0 IF (DO_JVS(5092)) & -! JVS(5092) = Jac_FULL(345,197) - JVS(5092) = 0.25*B(160) +! JVS(5092) = Jac_FULL(347,347) + JVS(5092) = -B(392)-2*B(397)-2*B(398)-B(400)-B(410)-B(426)-B(483)-B(596)-B(598)-B(600)-B(658)-B(660)-B(1704) IF (DO_JVS(5093)) & -! JVS(5093) = Jac_FULL(345,198) - JVS(5093) = B(1795) +! JVS(5093) = Jac_FULL(347,348) + JVS(5093) = B(412) IF (DO_JVS(5094)) & -! JVS(5094) = Jac_FULL(345,199) - JVS(5094) = -0.255*B(1029)+B(1778) +! JVS(5094) = Jac_FULL(347,349) + JVS(5094) = 0 IF (DO_JVS(5095)) & -! JVS(5095) = Jac_FULL(345,200) - JVS(5095) = -B(1348) +! JVS(5095) = Jac_FULL(347,350) + JVS(5095) = 0 IF (DO_JVS(5096)) & -! JVS(5096) = Jac_FULL(345,201) - JVS(5096) = -0.75*B(1470)+0.1*B(1472) +! JVS(5096) = Jac_FULL(347,351) + JVS(5096) = B(406)-B(484) IF (DO_JVS(5097)) & -! JVS(5097) = Jac_FULL(345,202) - JVS(5097) = -B(1422)+B(1424) +! JVS(5097) = Jac_FULL(347,352) + JVS(5097) = 0 IF (DO_JVS(5098)) & -! JVS(5098) = Jac_FULL(345,204) - JVS(5098) = -B(1428) +! JVS(5098) = Jac_FULL(347,353) + JVS(5098) = 0 IF (DO_JVS(5099)) & -! JVS(5099) = Jac_FULL(345,205) - JVS(5099) = 0.518*B(1114) +! JVS(5099) = Jac_FULL(347,354) + JVS(5099) = 0.2*B(490) IF (DO_JVS(5100)) & -! JVS(5100) = Jac_FULL(345,206) - JVS(5100) = 0.582*B(1129) +! JVS(5100) = Jac_FULL(347,355) + JVS(5100) = 0 IF (DO_JVS(5101)) & -! JVS(5101) = Jac_FULL(345,207) - JVS(5101) = 0.506*B(1135) +! JVS(5101) = Jac_FULL(347,356) + JVS(5101) = B(390) IF (DO_JVS(5102)) & -! JVS(5102) = Jac_FULL(345,208) - JVS(5102) = -B(1266) +! JVS(5102) = Jac_FULL(348,72) + JVS(5102) = -B(126) IF (DO_JVS(5103)) & -! JVS(5103) = Jac_FULL(345,209) - JVS(5103) = -0.595*B(1027)+B(1777) +! JVS(5103) = Jac_FULL(348,83) + JVS(5103) = B(1754) IF (DO_JVS(5104)) & -! JVS(5104) = Jac_FULL(345,210) - JVS(5104) = B(1762) +! JVS(5104) = Jac_FULL(348,87) + JVS(5104) = -B(385) IF (DO_JVS(5105)) & -! JVS(5105) = Jac_FULL(345,211) - JVS(5105) = -B(818) +! JVS(5105) = Jac_FULL(348,110) + JVS(5105) = B(1664) IF (DO_JVS(5106)) & -! JVS(5106) = Jac_FULL(345,212) - JVS(5106) = 0 +! JVS(5106) = Jac_FULL(348,127) + JVS(5106) = 0.3*B(1819) IF (DO_JVS(5107)) & -! JVS(5107) = Jac_FULL(345,213) - JVS(5107) = 0.44*B(302) +! JVS(5107) = Jac_FULL(348,129) + JVS(5107) = B(167) IF (DO_JVS(5108)) & -! JVS(5108) = Jac_FULL(345,216) - JVS(5108) = B(1774) +! JVS(5108) = Jac_FULL(348,140) + JVS(5108) = -B(144) IF (DO_JVS(5109)) & -! JVS(5109) = Jac_FULL(345,217) - JVS(5109) = B(473)+1.788*B(475) +! JVS(5109) = Jac_FULL(348,143) + JVS(5109) = 0.3*B(1671) IF (DO_JVS(5110)) & -! JVS(5110) = Jac_FULL(345,218) - JVS(5110) = 0 +! JVS(5110) = Jac_FULL(348,144) + JVS(5110) = -B(193) IF (DO_JVS(5111)) & -! JVS(5111) = Jac_FULL(345,219) - JVS(5111) = -B(727)+0.8*B(729) +! JVS(5111) = Jac_FULL(348,148) + JVS(5111) = -B(1346) IF (DO_JVS(5112)) & -! JVS(5112) = Jac_FULL(345,220) - JVS(5112) = -B(1338)+0.18*B(1342) +! JVS(5112) = Jac_FULL(348,156) + JVS(5112) = B(937) IF (DO_JVS(5113)) & -! JVS(5113) = Jac_FULL(345,221) - JVS(5113) = -0.75*B(1465)+0.1*B(1467) +! JVS(5113) = Jac_FULL(348,162) + JVS(5113) = -B(1420) IF (DO_JVS(5114)) & -! JVS(5114) = Jac_FULL(345,222) - JVS(5114) = -B(1180)-B(1190)+0.67*B(1787) +! JVS(5114) = Jac_FULL(348,166) + JVS(5114) = -B(834) IF (DO_JVS(5115)) & -! JVS(5115) = Jac_FULL(345,223) - JVS(5115) = B(1031)+0.275*B(1036) +! JVS(5115) = Jac_FULL(348,170) + JVS(5115) = -B(721) IF (DO_JVS(5116)) & -! JVS(5116) = Jac_FULL(345,224) - JVS(5116) = B(1038)+0.275*B(1043) +! JVS(5116) = Jac_FULL(348,172) + JVS(5116) = -B(650) IF (DO_JVS(5117)) & -! JVS(5117) = Jac_FULL(345,225) - JVS(5117) = -B(747) +! JVS(5117) = Jac_FULL(348,187) + JVS(5117) = -B(344) IF (DO_JVS(5118)) & -! JVS(5118) = Jac_FULL(345,226) - JVS(5118) = B(1196)+0.646*B(1200)+0.096*B(1206) +! JVS(5118) = Jac_FULL(348,189) + JVS(5118) = B(1302) IF (DO_JVS(5119)) & -! JVS(5119) = Jac_FULL(345,228) - JVS(5119) = -B(47)+0.75*B(443) +! JVS(5119) = Jac_FULL(348,194) + JVS(5119) = -B(717) IF (DO_JVS(5120)) & -! JVS(5120) = Jac_FULL(345,229) - JVS(5120) = -0.7*B(859)+0.3*B(861)+0.15*B(863)+B(1748)+B(1816) +! JVS(5120) = Jac_FULL(348,196) + JVS(5120) = -B(869) IF (DO_JVS(5121)) & -! JVS(5121) = Jac_FULL(345,230) - JVS(5121) = 0.085*B(1001)+1.662*B(1779) +! JVS(5121) = Jac_FULL(348,199) + JVS(5121) = -B(1416) IF (DO_JVS(5122)) & -! JVS(5122) = Jac_FULL(345,231) - JVS(5122) = 0.165*B(1003)+1.637*B(1780) +! JVS(5122) = Jac_FULL(348,201) + JVS(5122) = 0 IF (DO_JVS(5123)) & -! JVS(5123) = Jac_FULL(345,232) - JVS(5123) = B(1046)+1.3*B(1050) +! JVS(5123) = Jac_FULL(348,203) + JVS(5123) = -B(1350) IF (DO_JVS(5124)) & -! JVS(5124) = Jac_FULL(345,233) - JVS(5124) = -B(154) +! JVS(5124) = Jac_FULL(348,205) + JVS(5124) = -B(1426) IF (DO_JVS(5125)) & -! JVS(5125) = Jac_FULL(345,234) - JVS(5125) = 0 +! JVS(5125) = Jac_FULL(348,207) + JVS(5125) = -B(1430) IF (DO_JVS(5126)) & -! JVS(5126) = Jac_FULL(345,235) - JVS(5126) = 0.2*B(1432) +! JVS(5126) = Jac_FULL(348,212) + JVS(5126) = -B(822) IF (DO_JVS(5127)) & -! JVS(5127) = Jac_FULL(345,236) - JVS(5127) = 0 +! JVS(5127) = Jac_FULL(348,216) + JVS(5127) = -B(304) IF (DO_JVS(5128)) & -! JVS(5128) = Jac_FULL(345,237) - JVS(5128) = -B(812)+0.865*B(814) +! JVS(5128) = Jac_FULL(348,217) + JVS(5128) = B(86)+B(1668) IF (DO_JVS(5129)) & -! JVS(5129) = Jac_FULL(345,238) - JVS(5129) = 0.065*B(1009) +! JVS(5129) = Jac_FULL(348,221) + JVS(5129) = B(401)+B(1706) IF (DO_JVS(5130)) & -! JVS(5130) = Jac_FULL(345,239) - JVS(5130) = -B(71)+B(1650) +! JVS(5130) = Jac_FULL(348,222) + JVS(5130) = -B(719) IF (DO_JVS(5131)) & -! JVS(5131) = Jac_FULL(345,240) - JVS(5131) = 0.44*B(1407) +! JVS(5131) = Jac_FULL(348,223) + JVS(5131) = -B(1340) IF (DO_JVS(5132)) & -! JVS(5132) = Jac_FULL(345,241) - JVS(5132) = 0 +! JVS(5132) = Jac_FULL(348,227) + JVS(5132) = -B(745) IF (DO_JVS(5133)) & -! JVS(5133) = Jac_FULL(345,242) - JVS(5133) = -B(927) +! JVS(5133) = Jac_FULL(348,229) + JVS(5133) = 0 IF (DO_JVS(5134)) & -! JVS(5134) = Jac_FULL(345,243) - JVS(5134) = 0.65*B(1078)+B(1084) +! JVS(5134) = Jac_FULL(348,234) + JVS(5134) = -B(863) IF (DO_JVS(5135)) & -! JVS(5135) = Jac_FULL(345,244) - JVS(5135) = -0.7*B(61)+B(1743) +! JVS(5135) = Jac_FULL(348,238) + JVS(5135) = B(1443)-B(1447) IF (DO_JVS(5136)) & -! JVS(5136) = Jac_FULL(345,245) - JVS(5136) = -B(527) +! JVS(5136) = Jac_FULL(348,239) + JVS(5136) = -B(1368) IF (DO_JVS(5137)) & -! JVS(5137) = Jac_FULL(345,246) - JVS(5137) = 0.44*B(245) +! JVS(5137) = Jac_FULL(348,241) + JVS(5137) = -B(816) IF (DO_JVS(5138)) & -! JVS(5138) = Jac_FULL(345,247) - JVS(5138) = -B(689) +! JVS(5138) = Jac_FULL(348,244) + JVS(5138) = B(709) IF (DO_JVS(5139)) & -! JVS(5139) = Jac_FULL(345,248) - JVS(5139) = -B(1242) +! JVS(5139) = Jac_FULL(348,246) + JVS(5139) = -B(931) IF (DO_JVS(5140)) & -! JVS(5140) = Jac_FULL(345,249) +! JVS(5140) = Jac_FULL(348,250) JVS(5140) = 0 IF (DO_JVS(5141)) & -! JVS(5141) = Jac_FULL(345,250) +! JVS(5141) = Jac_FULL(348,254) JVS(5141) = 0 IF (DO_JVS(5142)) & -! JVS(5142) = Jac_FULL(345,251) - JVS(5142) = -B(195) +! JVS(5142) = Jac_FULL(348,256) + JVS(5142) = -B(810) IF (DO_JVS(5143)) & -! JVS(5143) = Jac_FULL(345,252) - JVS(5143) = 0 +! JVS(5143) = Jac_FULL(348,260) + JVS(5143) = -B(933) IF (DO_JVS(5144)) & -! JVS(5144) = Jac_FULL(345,253) - JVS(5144) = 0.59*B(1276)+B(1282) +! JVS(5144) = Jac_FULL(348,261) + JVS(5144) = -B(756) IF (DO_JVS(5145)) & -! JVS(5145) = Jac_FULL(345,254) - JVS(5145) = 0.665*B(1270) +! JVS(5145) = Jac_FULL(348,262) + JVS(5145) = 0 IF (DO_JVS(5146)) & -! JVS(5146) = Jac_FULL(345,255) - JVS(5146) = -B(806)+0.6*B(808) +! JVS(5146) = Jac_FULL(348,263) + JVS(5146) = -B(875) IF (DO_JVS(5147)) & -! JVS(5147) = Jac_FULL(345,256) - JVS(5147) = -B(925) +! JVS(5147) = Jac_FULL(348,265) + JVS(5147) = -B(1318) IF (DO_JVS(5148)) & -! JVS(5148) = Jac_FULL(345,257) - JVS(5148) = 0.44*B(749) +! JVS(5148) = Jac_FULL(348,266) + JVS(5148) = -B(1391) IF (DO_JVS(5149)) & -! JVS(5149) = Jac_FULL(345,258) - JVS(5149) = -0.5*B(1306)+0.5*B(1792)+B(1793) +! JVS(5149) = Jac_FULL(348,270) + JVS(5149) = 0 IF (DO_JVS(5150)) & -! JVS(5150) = Jac_FULL(345,259) - JVS(5150) = 0.5*B(1278) +! JVS(5150) = Jac_FULL(348,272) + JVS(5150) = -B(1459) IF (DO_JVS(5151)) & -! JVS(5151) = Jac_FULL(345,260) +! JVS(5151) = Jac_FULL(348,273) JVS(5151) = 0 IF (DO_JVS(5152)) & -! JVS(5152) = Jac_FULL(345,261) - JVS(5152) = -B(687) +! JVS(5152) = Jac_FULL(348,274) + JVS(5152) = -B(316) IF (DO_JVS(5153)) & -! JVS(5153) = Jac_FULL(345,262) - JVS(5153) = -B(871)+B(873) +! JVS(5153) = Jac_FULL(348,275) + JVS(5153) = -B(794) IF (DO_JVS(5154)) & -! JVS(5154) = Jac_FULL(345,263) - JVS(5154) = B(1387) +! JVS(5154) = Jac_FULL(348,276) + JVS(5154) = -B(778) IF (DO_JVS(5155)) & -! JVS(5155) = Jac_FULL(345,264) - JVS(5155) = -B(40)+B(469)+2*B(1645) +! JVS(5155) = Jac_FULL(348,277) + JVS(5155) = -B(845) IF (DO_JVS(5156)) & -! JVS(5156) = Jac_FULL(345,265) - JVS(5156) = -B(87) +! JVS(5156) = Jac_FULL(348,278) + JVS(5156) = -B(828) IF (DO_JVS(5157)) & -! JVS(5157) = Jac_FULL(345,266) - JVS(5157) = -B(1314)+B(1799) +! JVS(5157) = Jac_FULL(348,279) + JVS(5157) = -B(1147) IF (DO_JVS(5158)) & -! JVS(5158) = Jac_FULL(345,267) - JVS(5158) = -B(1105)-B(1107)-0.4*B(1111)+0.55*B(1786) +! JVS(5158) = Jac_FULL(348,280) + JVS(5158) = -B(917) IF (DO_JVS(5159)) & -! JVS(5159) = Jac_FULL(345,268) - JVS(5159) = -B(1101)-B(1103)-0.4*B(1109)+0.55*B(1783) +! JVS(5159) = Jac_FULL(348,281) + JVS(5159) = -B(739) IF (DO_JVS(5160)) & -! JVS(5160) = Jac_FULL(345,269) - JVS(5160) = -B(1457) +! JVS(5160) = Jac_FULL(348,282) + JVS(5160) = -B(766) IF (DO_JVS(5161)) & -! JVS(5161) = Jac_FULL(345,270) - JVS(5161) = -B(312) +! JVS(5161) = Jac_FULL(348,284) + JVS(5161) = -B(804) IF (DO_JVS(5162)) & -! JVS(5162) = Jac_FULL(345,271) - JVS(5162) = B(1197)+1.147*B(1198)+0.435*B(1202) +! JVS(5162) = Jac_FULL(348,288) + JVS(5162) = 0 IF (DO_JVS(5163)) & -! JVS(5163) = Jac_FULL(345,272) +! JVS(5163) = Jac_FULL(348,289) JVS(5163) = 0 IF (DO_JVS(5164)) & -! JVS(5164) = Jac_FULL(345,273) +! JVS(5164) = Jac_FULL(348,291) JVS(5164) = 0 IF (DO_JVS(5165)) & -! JVS(5165) = Jac_FULL(345,274) - JVS(5165) = 0.44*B(838) +! JVS(5165) = Jac_FULL(348,292) + JVS(5165) = -B(919) IF (DO_JVS(5166)) & -! JVS(5166) = Jac_FULL(345,275) - JVS(5166) = 0 +! JVS(5166) = Jac_FULL(348,293) + JVS(5166) = -B(310) IF (DO_JVS(5167)) & -! JVS(5167) = Jac_FULL(345,276) - JVS(5167) = 0.28*B(947)-B(949)-B(951)+0.5*B(953)+0.5*B(955) +! JVS(5167) = Jac_FULL(348,294) + JVS(5167) = -B(857) IF (DO_JVS(5168)) & -! JVS(5168) = Jac_FULL(345,277) - JVS(5168) = 0 +! JVS(5168) = Jac_FULL(348,295) + JVS(5168) = -B(251) IF (DO_JVS(5169)) & -! JVS(5169) = Jac_FULL(345,278) - JVS(5169) = 0 +! JVS(5169) = Jac_FULL(348,296) + JVS(5169) = B(655)+B(1744) IF (DO_JVS(5170)) & -! JVS(5170) = Jac_FULL(345,279) - JVS(5170) = -B(197) +! JVS(5170) = Jac_FULL(348,298) + JVS(5170) = -B(318) IF (DO_JVS(5171)) & -! JVS(5171) = Jac_FULL(345,280) +! JVS(5171) = Jac_FULL(348,299) JVS(5171) = 0 IF (DO_JVS(5172)) & -! JVS(5172) = Jac_FULL(345,281) - JVS(5172) = 0 +! JVS(5172) = Jac_FULL(348,302) + JVS(5172) = -B(210) IF (DO_JVS(5173)) & -! JVS(5173) = Jac_FULL(345,282) - JVS(5173) = -B(89) +! JVS(5173) = Jac_FULL(348,303) + JVS(5173) = 0 IF (DO_JVS(5174)) & -! JVS(5174) = Jac_FULL(345,283) - JVS(5174) = -B(199) +! JVS(5174) = Jac_FULL(348,304) + JVS(5174) = 0 IF (DO_JVS(5175)) & -! JVS(5175) = Jac_FULL(345,284) +! JVS(5175) = Jac_FULL(348,305) JVS(5175) = 0 IF (DO_JVS(5176)) & -! JVS(5176) = Jac_FULL(345,285) - JVS(5176) = B(1071)+0.65*B(1076) +! JVS(5176) = Jac_FULL(348,306) + JVS(5176) = 0.69*B(1236) IF (DO_JVS(5177)) & -! JVS(5177) = Jac_FULL(345,286) - JVS(5177) = B(1063)+0.65*B(1064) +! JVS(5177) = Jac_FULL(348,307) + JVS(5177) = 0 IF (DO_JVS(5178)) & -! JVS(5178) = Jac_FULL(345,287) - JVS(5178) = B(1770) +! JVS(5178) = Jac_FULL(348,308) + JVS(5178) = -B(1165) IF (DO_JVS(5179)) & -! JVS(5179) = Jac_FULL(345,288) - JVS(5179) = B(1767) +! JVS(5179) = Jac_FULL(348,309) + JVS(5179) = -B(295) IF (DO_JVS(5180)) & -! JVS(5180) = Jac_FULL(345,289) - JVS(5180) = 0 +! JVS(5180) = Jac_FULL(348,310) + JVS(5180) = -B(1167) IF (DO_JVS(5181)) & -! JVS(5181) = Jac_FULL(345,290) - JVS(5181) = -B(285)+0.36*B(287) +! JVS(5181) = Jac_FULL(348,311) + JVS(5181) = 0 IF (DO_JVS(5182)) & -! JVS(5182) = Jac_FULL(345,291) - JVS(5182) = 0 +! JVS(5182) = Jac_FULL(348,312) + JVS(5182) = -B(1297) IF (DO_JVS(5183)) & -! JVS(5183) = Jac_FULL(345,292) - JVS(5183) = -B(234) +! JVS(5183) = Jac_FULL(348,313) + JVS(5183) = -B(1234) IF (DO_JVS(5184)) & -! JVS(5184) = Jac_FULL(345,293) - JVS(5184) = 0.379*B(1141) +! JVS(5184) = Jac_FULL(348,314) + JVS(5184) = 0 IF (DO_JVS(5185)) & -! JVS(5185) = Jac_FULL(345,294) - JVS(5185) = -B(314) +! JVS(5185) = Jac_FULL(348,315) + JVS(5185) = 0 IF (DO_JVS(5186)) & -! JVS(5186) = Jac_FULL(345,295) - JVS(5186) = -B(212) +! JVS(5186) = Jac_FULL(348,316) + JVS(5186) = 0 IF (DO_JVS(5187)) & -! JVS(5187) = Jac_FULL(345,296) - JVS(5187) = 0 +! JVS(5187) = Jac_FULL(348,317) + JVS(5187) = B(695) IF (DO_JVS(5188)) & -! JVS(5188) = Jac_FULL(345,297) - JVS(5188) = -B(543) +! JVS(5188) = Jac_FULL(348,318) + JVS(5188) = 0 IF (DO_JVS(5189)) & -! JVS(5189) = Jac_FULL(345,298) - JVS(5189) = -B(201) +! JVS(5189) = Jac_FULL(348,321) + JVS(5189) = B(545)+B(601)+B(603)+B(1720) IF (DO_JVS(5190)) & -! JVS(5190) = Jac_FULL(345,299) - JVS(5190) = -B(1218) +! JVS(5190) = Jac_FULL(348,322) + JVS(5190) = 0 IF (DO_JVS(5191)) & -! JVS(5191) = Jac_FULL(345,300) +! JVS(5191) = Jac_FULL(348,323) JVS(5191) = 0 IF (DO_JVS(5192)) & -! JVS(5192) = Jac_FULL(345,301) - JVS(5192) = -B(1210)-0.756*B(1212)+0.645*B(1790) +! JVS(5192) = Jac_FULL(348,324) + JVS(5192) = 0 IF (DO_JVS(5193)) & -! JVS(5193) = Jac_FULL(345,302) - JVS(5193) = -0.98*B(1236)+0.01*B(1772) +! JVS(5193) = Jac_FULL(348,325) + JVS(5193) = 0 IF (DO_JVS(5194)) & -! JVS(5194) = Jac_FULL(345,303) - JVS(5194) = -0.7*B(1316)+B(1797)+0.3*B(1798) +! JVS(5194) = Jac_FULL(348,326) + JVS(5194) = 0 IF (DO_JVS(5195)) & -! JVS(5195) = Jac_FULL(345,304) - JVS(5195) = 0.063*B(961)+B(967)+1.5*B(968)+B(974)+B(975)+0.5*B(983)+0.55*B(999) +! JVS(5195) = Jac_FULL(348,327) + JVS(5195) = 0 IF (DO_JVS(5196)) & -! JVS(5196) = Jac_FULL(345,305) - JVS(5196) = 0.063*B(957)+B(965)+1.5*B(966)+B(973)+B(976)+0.5*B(979)+0.55*B(991) +! JVS(5196) = Jac_FULL(348,328) + JVS(5196) = 0 IF (DO_JVS(5197)) & -! JVS(5197) = Jac_FULL(345,306) - JVS(5197) = -0.773*B(289)-B(293)+0.07*B(1666) +! JVS(5197) = Jac_FULL(348,329) + JVS(5197) = -B(93) IF (DO_JVS(5198)) & -! JVS(5198) = Jac_FULL(345,307) - JVS(5198) = -B(320) +! JVS(5198) = Jac_FULL(348,330) + JVS(5198) = -B(97) IF (DO_JVS(5199)) & -! JVS(5199) = Jac_FULL(345,308) - JVS(5199) = 0.5*B(1291) +! JVS(5199) = Jac_FULL(348,331) + JVS(5199) = B(656) IF (DO_JVS(5200)) & -! JVS(5200) = Jac_FULL(345,309) - JVS(5200) = -B(1228)-B(1230)+0.12*B(1232)+0.68*B(1234) +! JVS(5200) = Jac_FULL(348,333) + JVS(5200) = B(67) IF (DO_JVS(5201)) & -! JVS(5201) = Jac_FULL(345,310) - JVS(5201) = 0.527*B(1149) +! JVS(5201) = Jac_FULL(348,334) + JVS(5201) = -B(1487) IF (DO_JVS(5202)) & -! JVS(5202) = Jac_FULL(345,311) +! JVS(5202) = Jac_FULL(348,335) JVS(5202) = 0 IF (DO_JVS(5203)) & -! JVS(5203) = Jac_FULL(345,312) +! JVS(5203) = Jac_FULL(348,336) JVS(5203) = 0 IF (DO_JVS(5204)) & -! JVS(5204) = Jac_FULL(345,313) - JVS(5204) = 0.15*B(226) +! JVS(5204) = Jac_FULL(348,337) + JVS(5204) = 0 IF (DO_JVS(5205)) & -! JVS(5205) = Jac_FULL(345,314) - JVS(5205) = -B(1224)+0.08*B(1226) +! JVS(5205) = Jac_FULL(348,338) + JVS(5205) = -B(80) IF (DO_JVS(5206)) & -! JVS(5206) = Jac_FULL(345,315) +! JVS(5206) = Jac_FULL(348,339) JVS(5206) = 0 IF (DO_JVS(5207)) & -! JVS(5207) = Jac_FULL(345,316) - JVS(5207) = B(405)+B(1692) +! JVS(5207) = Jac_FULL(348,340) + JVS(5207) = 0 IF (DO_JVS(5208)) & -! JVS(5208) = Jac_FULL(345,317) - JVS(5208) = -B(545) +! JVS(5208) = Jac_FULL(348,341) + JVS(5208) = -B(78) IF (DO_JVS(5209)) & -! JVS(5209) = Jac_FULL(345,318) - JVS(5209) = 0 +! JVS(5209) = Jac_FULL(348,342) + JVS(5209) = B(402)-B(411) IF (DO_JVS(5210)) & -! JVS(5210) = Jac_FULL(345,319) - JVS(5210) = 0 +! JVS(5210) = Jac_FULL(348,343) + JVS(5210) = B(68)-B(82)+B(168)+B(546)+B(938)+0.69*B(1237)+B(1303) IF (DO_JVS(5211)) & -! JVS(5211) = Jac_FULL(345,320) - JVS(5211) = 0.15*B(228) +! JVS(5211) = Jac_FULL(348,344) + JVS(5211) = 0 IF (DO_JVS(5212)) & -! JVS(5212) = Jac_FULL(345,321) - JVS(5212) = 0 +! JVS(5212) = Jac_FULL(348,345) + JVS(5212) = B(32)-B(84)-B(91)+B(467)+B(696)+B(710)+B(1444) IF (DO_JVS(5213)) & -! JVS(5213) = Jac_FULL(345,322) - JVS(5213) = 0.44*B(283) +! JVS(5213) = Jac_FULL(348,346) + JVS(5213) = 0 IF (DO_JVS(5214)) & -! JVS(5214) = Jac_FULL(345,323) +! JVS(5214) = Jac_FULL(348,347) JVS(5214) = 0 IF (DO_JVS(5215)) & -! JVS(5215) = Jac_FULL(345,324) - JVS(5215) = 0.5*B(1324) +! JVS(5215) = Jac_FULL(348,348) + JVS(5215) = -B(79)-B(81)-B(83)-B(85)-B(92)-B(94)-B(98)-B(127)-B(145)-B(194)-B(211)-B(252)-B(296)-B(305)-B(311)-B(317)& + &-B(319)-B(345)-2*B(377)-B(386)-B(412)-B(463)-B(651)-B(718)-B(720)-B(722)-B(740)-B(746)-B(757)-B(767)-B(779)& + &-B(795)-B(805)-B(811)-B(817)-B(823)-B(829)-B(835)-B(846)-B(858)-B(864)-B(870)-B(876)-B(918)-B(920)-B(932)& + &-B(934)-B(1148)-B(1166)-B(1168)-B(1235)-B(1298)-B(1319)-B(1341)-B(1347)-B(1351)-B(1369)-B(1392)-B(1417)& + &-B(1421)-B(1427)-B(1431)-B(1448)-B(1460)-B(1488)-B(1493)-B(1494)-B(1495)-B(1666)-B(1667) IF (DO_JVS(5216)) & -! JVS(5216) = Jac_FULL(345,325) - JVS(5216) = -B(63)+B(485) +! JVS(5216) = Jac_FULL(348,349) + JVS(5216) = 0 IF (DO_JVS(5217)) & -! JVS(5217) = Jac_FULL(345,326) - JVS(5217) = -B(95) +! JVS(5217) = Jac_FULL(348,350) + JVS(5217) = 0 IF (DO_JVS(5218)) & -! JVS(5218) = Jac_FULL(345,327) - JVS(5218) = -B(67)+B(1649) +! JVS(5218) = Jac_FULL(348,351) + JVS(5218) = -B(464)+B(468)+B(602) IF (DO_JVS(5219)) & -! JVS(5219) = Jac_FULL(345,328) - JVS(5219) = -B(57)+0.5*B(980)+0.5*B(984) +! JVS(5219) = Jac_FULL(348,352) + JVS(5219) = B(604) IF (DO_JVS(5220)) & -! JVS(5220) = Jac_FULL(345,329) - JVS(5220) = -B(45) +! JVS(5220) = Jac_FULL(348,353) + JVS(5220) = 0 IF (DO_JVS(5221)) & -! JVS(5221) = Jac_FULL(345,330) - JVS(5221) = -B(677)+B(1726) +! JVS(5221) = Jac_FULL(348,354) + JVS(5221) = 0 IF (DO_JVS(5222)) & -! JVS(5222) = Jac_FULL(345,331) +! JVS(5222) = Jac_FULL(348,355) JVS(5222) = 0 IF (DO_JVS(5223)) & -! JVS(5223) = Jac_FULL(345,332) - JVS(5223) = 0 +! JVS(5223) = Jac_FULL(348,356) + JVS(5223) = B(33) IF (DO_JVS(5224)) & -! JVS(5224) = Jac_FULL(345,333) - JVS(5224) = -B(541)+B(1709) +! JVS(5224) = Jac_FULL(349,254) + JVS(5224) = -B(1591) IF (DO_JVS(5225)) & -! JVS(5225) = Jac_FULL(345,334) - JVS(5225) = 2*B(433)+B(439)+0.75*B(444)+0.66*B(487)+0.6*B(489)+0.05*B(504) +! JVS(5225) = Jac_FULL(349,287) + JVS(5225) = -B(1607) IF (DO_JVS(5226)) & -! JVS(5226) = Jac_FULL(345,335) - JVS(5226) = -B(65) +! JVS(5226) = Jac_FULL(349,296) + JVS(5226) = -B(1599) IF (DO_JVS(5227)) & -! JVS(5227) = Jac_FULL(345,336) - JVS(5227) = 2*B(434) +! JVS(5227) = Jac_FULL(349,301) + JVS(5227) = -B(1533) IF (DO_JVS(5228)) & -! JVS(5228) = Jac_FULL(345,337) - JVS(5228) = B(30)-B(38)+B(42)+B(78)+0.25*B(161)+0.15*B(227)+0.15*B(229)+0.44*B(246)+0.44*B(284)+0.44*B(303)+B(453)& - &+1.788*B(476)+B(575)+0.44*B(750)+0.44*B(839)+0.063*B(958)+0.063*B(962)+0.275*B(1037)+0.275*B(1044)+1.3& - &*B(1051)+0.65*B(1065)+0.65*B(1077)+0.65*B(1079)+2*B(1088)+2*B(1092)+0.518*B(1115)+0.599*B(1122)+0.582& - &*B(1130)+0.506*B(1136)+0.379*B(1142)+0.527*B(1150)+1.147*B(1199)+0.646*B(1201)+B(1217)+0.82*B(1223)+B(1249)& - &+B(1255)+0.665*B(1271)+0.59*B(1277)+0.5*B(1279)+0.5*B(1292)+0.5*B(1325)+B(1355)+B(1388)+0.44*B(1408)+0.2& - &*B(1433) +! JVS(5228) = Jac_FULL(349,320) + JVS(5228) = -B(1557) IF (DO_JVS(5229)) & -! JVS(5229) = Jac_FULL(345,338) - JVS(5229) = -B(531)-B(533) +! JVS(5229) = Jac_FULL(349,321) + JVS(5229) = -B(1519) IF (DO_JVS(5230)) & -! JVS(5230) = Jac_FULL(345,339) - JVS(5230) = 0.66*B(488)-B(539) +! JVS(5230) = Jac_FULL(349,331) + JVS(5230) = 0 IF (DO_JVS(5231)) & -! JVS(5231) = Jac_FULL(345,340) - JVS(5231) = B(576) +! JVS(5231) = Jac_FULL(349,336) + JVS(5231) = 0 IF (DO_JVS(5232)) & -! JVS(5232) = Jac_FULL(345,341) - JVS(5232) = -B(28)+B(31)+0.36*B(288)+B(474)+0.865*B(726)+0.8*B(730)+0.65*B(734)+0.6*B(809)+0.865*B(815)+0.3*B(862)& - &+B(874)+0.28*B(948)+0.08*B(1227)+0.12*B(1233)+0.18*B(1343)+B(1425)+0.1*B(1468)+0.1*B(1473) +! JVS(5232) = Jac_FULL(349,338) + JVS(5232) = 0 IF (DO_JVS(5233)) & -! JVS(5233) = Jac_FULL(345,342) +! JVS(5233) = Jac_FULL(349,339) JVS(5233) = 0 IF (DO_JVS(5234)) & -! JVS(5234) = Jac_FULL(345,343) - JVS(5234) = B(406)+B(407)-B(451)+B(454)+B(470)+B(486) +! JVS(5234) = Jac_FULL(349,340) + JVS(5234) = 0 IF (DO_JVS(5235)) & -! JVS(5235) = Jac_FULL(345,344) - JVS(5235) = -B(1507) +! JVS(5235) = Jac_FULL(349,341) + JVS(5235) = 0 IF (DO_JVS(5236)) & -! JVS(5236) = Jac_FULL(345,345) - JVS(5236) = -B(24)-B(29)-2*B(36)-2*B(37)-B(39)-B(41)-B(46)-B(48)-B(58)-0.7*B(60)-0.7*B(62)-B(64)-B(66)-B(68)-B(69)& - &-B(72)-B(77)-B(82)-B(88)-B(90)-B(96)-B(103)-B(107)-B(115)-B(117)-B(125)-0.5*B(135)-B(137)-B(143)-B(153)& - &-B(155)-B(168)-B(170)-B(196)-B(198)-B(200)-B(202)-B(207)-B(213)-B(235)-B(242)-B(270)-B(272)-B(286)-0.773& - &*B(290)-B(294)-B(307)-B(309)-B(313)-B(315)-B(321)-0.209*B(325)-0.36*B(327)-0.36*B(329)-0.209*B(331)-0.21& - &*B(333)-0.21*B(335)-B(337)-0.209*B(339)-0.78*B(343)-B(382)-B(384)-B(387)-B(395)-B(404)-B(409)-B(428)-B(430)& - &-B(432)-B(449)-B(452)-B(460)-B(528)-B(532)-B(534)-B(536)-B(538)-B(540)-B(542)-B(544)-B(546)-B(548)-B(550)& - &-B(552)-B(554)-B(556)-B(558)-B(560)-B(562)-B(674)-B(676)-B(678)-B(686)-B(688)-B(690)-B(724)-B(728)-B(732)& - &-B(742)-B(744)-B(748)-B(759)-B(761)-B(771)-B(773)-B(781)-B(783)-B(785)-B(797)-B(799)-B(807)-B(813)-B(819)& - &-B(833)-B(837)-B(848)-B(850)-0.7*B(860)-B(866)-B(872)-B(926)-B(928)-B(938)-B(940)-B(942)-B(944)-B(946)& - &-B(950)-B(952)+0.5*B(954)+0.5*B(956)+0.085*B(1002)+0.165*B(1004)+0.065*B(1010)-B(1014)-B(1016)-B(1020)& - &-B(1024)-B(1026)-0.595*B(1028)-0.255*B(1030)-B(1053)-B(1055)-B(1057)-B(1059)-B(1061)-B(1094)-B(1096)& - &-B(1098)-B(1100)-B(1102)-B(1104)-B(1106)-B(1108)-0.4*B(1110)-0.4*B(1112)-B(1181)-B(1183)-B(1189)-B(1191)& - &-B(1193)-B(1211)-0.756*B(1213)-B(1219)-B(1225)-B(1229)-B(1231)-0.98*B(1237)-B(1243)-0.715*B(1259)-B(1263)& - &-B(1267)-B(1269)-0.415*B(1281)-B(1303)-0.3*B(1305)-0.5*B(1307)-0.556*B(1309)-B(1315)-0.7*B(1317)-B(1321)& - &-0.5*B(1323)-B(1337)-B(1339)-B(1345)-B(1349)-B(1357)-B(1361)-0.364*B(1363)-B(1376)-B(1378)-B(1382)-B(1384)& - &-B(1386)-B(1398)-B(1404)-B(1413)-B(1415)-B(1419)-B(1423)-B(1429)-B(1439)-B(1442)-B(1452)-B(1458)-0.75& - &*B(1466)-0.75*B(1471)-B(1490)-B(1505)-B(1508) +! JVS(5236) = Jac_FULL(349,342) + JVS(5236) = 0 IF (DO_JVS(5237)) & -! JVS(5237) = Jac_FULL(345,346) - JVS(5237) = B(43)-B(70)+0.55*B(992)+0.55*B(1000)+B(1047)+B(1086)+B(1090)+0.435*B(1203)+0.096*B(1207) +! JVS(5237) = Jac_FULL(349,343) + JVS(5237) = 0 IF (DO_JVS(5238)) & -! JVS(5238) = Jac_FULL(345,347) - JVS(5238) = -B(410) +! JVS(5238) = Jac_FULL(349,344) + JVS(5238) = 0 IF (DO_JVS(5239)) & -! JVS(5239) = Jac_FULL(345,348) - JVS(5239) = -B(25)-B(388) +! JVS(5239) = Jac_FULL(349,345) + JVS(5239) = 0 IF (DO_JVS(5240)) & -! JVS(5240) = Jac_FULL(345,349) +! JVS(5240) = Jac_FULL(349,346) JVS(5240) = 0 IF (DO_JVS(5241)) & -! JVS(5241) = Jac_FULL(345,350) +! JVS(5241) = Jac_FULL(349,347) JVS(5241) = 0 IF (DO_JVS(5242)) & -! JVS(5242) = Jac_FULL(345,351) - JVS(5242) = B(79)-B(83)+0.15*B(864)+0.68*B(1235) +! JVS(5242) = Jac_FULL(349,348) + JVS(5242) = 0 IF (DO_JVS(5243)) & -! JVS(5243) = Jac_FULL(345,352) - JVS(5243) = -B(396)+B(408)+0.6*B(490) +! JVS(5243) = Jac_FULL(349,349) + JVS(5243) = -B(1520)-B(1534)-B(1558)-B(1565)-B(1592)-B(1600)-B(1608) IF (DO_JVS(5244)) & -! JVS(5244) = Jac_FULL(345,353) - JVS(5244) = -B(1506) +! JVS(5244) = Jac_FULL(349,350) + JVS(5244) = 0 IF (DO_JVS(5245)) & -! JVS(5245) = Jac_FULL(346,62) - JVS(5245) = 2*B(645)+B(1729) +! JVS(5245) = Jac_FULL(349,351) + JVS(5245) = 0 IF (DO_JVS(5246)) & -! JVS(5246) = Jac_FULL(346,63) - JVS(5246) = 1.22*B(441) +! JVS(5246) = Jac_FULL(349,352) + JVS(5246) = 0 IF (DO_JVS(5247)) & -! JVS(5247) = Jac_FULL(346,67) - JVS(5247) = B(477)-B(479) +! JVS(5247) = Jac_FULL(349,353) + JVS(5247) = 0 IF (DO_JVS(5248)) & -! JVS(5248) = Jac_FULL(346,96) - JVS(5248) = -B(665) +! JVS(5248) = Jac_FULL(349,354) + JVS(5248) = B(1569) IF (DO_JVS(5249)) & -! JVS(5249) = Jac_FULL(346,121) - JVS(5249) = -B(1399) +! JVS(5249) = Jac_FULL(349,355) + JVS(5249) = 0 IF (DO_JVS(5250)) & -! JVS(5250) = Jac_FULL(346,132) - JVS(5250) = -B(156) +! JVS(5250) = Jac_FULL(349,356) + JVS(5250) = -B(1566) IF (DO_JVS(5251)) & -! JVS(5251) = Jac_FULL(346,133) - JVS(5251) = -B(1085) +! JVS(5251) = Jac_FULL(350,254) + JVS(5251) = -B(1593) IF (DO_JVS(5252)) & -! JVS(5252) = Jac_FULL(346,135) - JVS(5252) = -B(1089) +! JVS(5252) = Jac_FULL(350,287) + JVS(5252) = -B(1609) IF (DO_JVS(5253)) & -! JVS(5253) = Jac_FULL(346,165) - JVS(5253) = -B(138) +! JVS(5253) = Jac_FULL(350,296) + JVS(5253) = -B(1601) IF (DO_JVS(5254)) & -! JVS(5254) = Jac_FULL(346,171) - JVS(5254) = -B(1246) +! JVS(5254) = Jac_FULL(350,301) + JVS(5254) = -B(1535) IF (DO_JVS(5255)) & -! JVS(5255) = Jac_FULL(346,172) - JVS(5255) = -B(1252) +! JVS(5255) = Jac_FULL(350,320) + JVS(5255) = -B(1559) IF (DO_JVS(5256)) & -! JVS(5256) = Jac_FULL(346,178) - JVS(5256) = -B(128)-B(130) +! JVS(5256) = Jac_FULL(350,321) + JVS(5256) = -B(1521) IF (DO_JVS(5257)) & -! JVS(5257) = Jac_FULL(346,180) - JVS(5257) = -B(1220) +! JVS(5257) = Jac_FULL(350,331) + JVS(5257) = 0 IF (DO_JVS(5258)) & -! JVS(5258) = Jac_FULL(346,182) - JVS(5258) = -B(1214) +! JVS(5258) = Jac_FULL(350,336) + JVS(5258) = 0 IF (DO_JVS(5259)) & -! JVS(5259) = Jac_FULL(346,189) - JVS(5259) = -B(1352) +! JVS(5259) = Jac_FULL(350,338) + JVS(5259) = 0 IF (DO_JVS(5260)) & -! JVS(5260) = Jac_FULL(346,190) - JVS(5260) = -B(1123)-B(1125) +! JVS(5260) = Jac_FULL(350,339) + JVS(5260) = 0 IF (DO_JVS(5261)) & -! JVS(5261) = Jac_FULL(346,196) +! JVS(5261) = Jac_FULL(350,340) JVS(5261) = 0 IF (DO_JVS(5262)) & -! JVS(5262) = Jac_FULL(346,197) - JVS(5262) = -B(162) +! JVS(5262) = Jac_FULL(350,341) + JVS(5262) = 0 IF (DO_JVS(5263)) & -! JVS(5263) = Jac_FULL(346,200) +! JVS(5263) = Jac_FULL(350,342) JVS(5263) = 0 IF (DO_JVS(5264)) & -! JVS(5264) = Jac_FULL(346,205) - JVS(5264) = -B(1116)-B(1118) +! JVS(5264) = Jac_FULL(350,343) + JVS(5264) = 0 IF (DO_JVS(5265)) & -! JVS(5265) = Jac_FULL(346,206) - JVS(5265) = -B(1131)-B(1133) +! JVS(5265) = Jac_FULL(350,344) + JVS(5265) = 0 IF (DO_JVS(5266)) & -! JVS(5266) = Jac_FULL(346,207) - JVS(5266) = -B(1137)-B(1139) +! JVS(5266) = Jac_FULL(350,345) + JVS(5266) = 0 IF (DO_JVS(5267)) & -! JVS(5267) = Jac_FULL(346,212) - JVS(5267) = -B(148) +! JVS(5267) = Jac_FULL(350,346) + JVS(5267) = 0 IF (DO_JVS(5268)) & -! JVS(5268) = Jac_FULL(346,213) - JVS(5268) = -B(300) +! JVS(5268) = Jac_FULL(350,347) + JVS(5268) = 0 IF (DO_JVS(5269)) & -! JVS(5269) = Jac_FULL(346,220) +! JVS(5269) = Jac_FULL(350,348) JVS(5269) = 0 IF (DO_JVS(5270)) & -! JVS(5270) = Jac_FULL(346,223) - JVS(5270) = -B(1032)-B(1034) +! JVS(5270) = Jac_FULL(350,349) + JVS(5270) = 0 IF (DO_JVS(5271)) & -! JVS(5271) = Jac_FULL(346,224) - JVS(5271) = -B(1039)-B(1041) +! JVS(5271) = Jac_FULL(350,350) + JVS(5271) = -B(1522)-B(1536)-B(1560)-B(1567)-B(1594)-B(1602)-B(1610) IF (DO_JVS(5272)) & -! JVS(5272) = Jac_FULL(346,226) - JVS(5272) = -B(1206)-B(1208) +! JVS(5272) = Jac_FULL(350,351) + JVS(5272) = 0 IF (DO_JVS(5273)) & -! JVS(5273) = Jac_FULL(346,230) +! JVS(5273) = Jac_FULL(350,352) JVS(5273) = 0 IF (DO_JVS(5274)) & -! JVS(5274) = Jac_FULL(346,231) +! JVS(5274) = Jac_FULL(350,353) JVS(5274) = 0 IF (DO_JVS(5275)) & -! JVS(5275) = Jac_FULL(346,232) - JVS(5275) = -B(1046)-B(1048) +! JVS(5275) = Jac_FULL(350,354) + JVS(5275) = B(1570) IF (DO_JVS(5276)) & -! JVS(5276) = Jac_FULL(346,233) +! JVS(5276) = Jac_FULL(350,355) JVS(5276) = 0 IF (DO_JVS(5277)) & -! JVS(5277) = Jac_FULL(346,234) - JVS(5277) = -B(1366) +! JVS(5277) = Jac_FULL(350,356) + JVS(5277) = -B(1568) IF (DO_JVS(5278)) & -! JVS(5278) = Jac_FULL(346,235) - JVS(5278) = -B(1434) +! JVS(5278) = Jac_FULL(351,49) + JVS(5278) = 0.21*B(493) IF (DO_JVS(5279)) & -! JVS(5279) = Jac_FULL(346,236) - JVS(5279) = -B(1445) +! JVS(5279) = Jac_FULL(351,50) + JVS(5279) = 0.1*B(505) IF (DO_JVS(5280)) & -! JVS(5280) = Jac_FULL(346,239) - JVS(5280) = B(1650) +! JVS(5280) = Jac_FULL(351,51) + JVS(5280) = 0.14*B(507) IF (DO_JVS(5281)) & -! JVS(5281) = Jac_FULL(346,240) - JVS(5281) = -B(1405) +! JVS(5281) = Jac_FULL(351,52) + JVS(5281) = 0.1*B(519) IF (DO_JVS(5282)) & -! JVS(5282) = Jac_FULL(346,241) - JVS(5282) = -B(707) +! JVS(5282) = Jac_FULL(351,53) + JVS(5282) = 0.1*B(521) IF (DO_JVS(5283)) & -! JVS(5283) = Jac_FULL(346,243) - JVS(5283) = -B(1080)-B(1082) +! JVS(5283) = Jac_FULL(351,54) + JVS(5283) = 0.14*B(523) IF (DO_JVS(5284)) & -! JVS(5284) = Jac_FULL(346,246) - JVS(5284) = -B(243) +! JVS(5284) = Jac_FULL(351,56) + JVS(5284) = 0.55*B(511) IF (DO_JVS(5285)) & -! JVS(5285) = Jac_FULL(346,249) - JVS(5285) = -B(175) +! JVS(5285) = Jac_FULL(351,57) + JVS(5285) = 0.25*B(525) IF (DO_JVS(5286)) & -! JVS(5286) = Jac_FULL(346,250) - JVS(5286) = -B(191) +! JVS(5286) = Jac_FULL(351,64) + JVS(5286) = 0.35*B(509) IF (DO_JVS(5287)) & -! JVS(5287) = Jac_FULL(346,252) - JVS(5287) = 0 +! JVS(5287) = Jac_FULL(351,70) + JVS(5287) = B(477)+B(479)+B(481) IF (DO_JVS(5288)) & -! JVS(5288) = Jac_FULL(346,253) - JVS(5288) = -B(1283)-B(1285) +! JVS(5288) = Jac_FULL(351,71) + JVS(5288) = -B(457) IF (DO_JVS(5289)) & -! JVS(5289) = Jac_FULL(346,254) - JVS(5289) = -B(1272)-B(1274) +! JVS(5289) = Jac_FULL(351,79) + JVS(5289) = 0.05*B(499) IF (DO_JVS(5290)) & -! JVS(5290) = Jac_FULL(346,257) - JVS(5290) = -B(751) +! JVS(5290) = Jac_FULL(351,82) + JVS(5290) = 0.3*B(501) IF (DO_JVS(5291)) & -! JVS(5291) = Jac_FULL(346,259) - JVS(5291) = -B(1287) +! JVS(5291) = Jac_FULL(351,88) + JVS(5291) = 0.21*B(517) IF (DO_JVS(5292)) & -! JVS(5292) = Jac_FULL(346,260) - JVS(5292) = -B(122) +! JVS(5292) = Jac_FULL(351,89) + JVS(5292) = 0.31*B(513) IF (DO_JVS(5293)) & -! JVS(5293) = Jac_FULL(346,263) - JVS(5293) = -B(1389) +! JVS(5293) = Jac_FULL(351,90) + JVS(5293) = 0.35*B(515) IF (DO_JVS(5294)) & -! JVS(5294) = Jac_FULL(346,267) - JVS(5294) = 0 +! JVS(5294) = Jac_FULL(351,91) + JVS(5294) = 0.25*B(503) IF (DO_JVS(5295)) & -! JVS(5295) = Jac_FULL(346,268) - JVS(5295) = 0 +! JVS(5295) = Jac_FULL(351,123) + JVS(5295) = B(1717) IF (DO_JVS(5296)) & -! JVS(5296) = Jac_FULL(346,269) - JVS(5296) = 0 +! JVS(5296) = Jac_FULL(351,184) + JVS(5296) = 0.1*B(495) IF (DO_JVS(5297)) & -! JVS(5297) = Jac_FULL(346,271) - JVS(5297) = -B(1202)-B(1204) +! JVS(5297) = Jac_FULL(351,219) + JVS(5297) = 0.02*B(475) IF (DO_JVS(5298)) & -! JVS(5298) = Jac_FULL(346,272) - JVS(5298) = -B(824) +! JVS(5298) = Jac_FULL(351,232) + JVS(5298) = 0 IF (DO_JVS(5299)) & -! JVS(5299) = Jac_FULL(346,273) - JVS(5299) = -B(788)-B(790) +! JVS(5299) = Jac_FULL(351,248) + JVS(5299) = 0.25*B(491) IF (DO_JVS(5300)) & -! JVS(5300) = Jac_FULL(346,274) - JVS(5300) = -B(840) +! JVS(5300) = Jac_FULL(351,267) + JVS(5300) = -B(469) IF (DO_JVS(5301)) & -! JVS(5301) = Jac_FULL(346,275) - JVS(5301) = -B(776) +! JVS(5301) = Jac_FULL(351,279) + JVS(5301) = 0 IF (DO_JVS(5302)) & -! JVS(5302) = Jac_FULL(346,276) +! JVS(5302) = Jac_FULL(351,293) JVS(5302) = 0 IF (DO_JVS(5303)) & -! JVS(5303) = Jac_FULL(346,277) - JVS(5303) = -B(737) +! JVS(5303) = Jac_FULL(351,301) + JVS(5303) = 0 IF (DO_JVS(5304)) & -! JVS(5304) = Jac_FULL(346,278) - JVS(5304) = -B(764) +! JVS(5304) = Jac_FULL(351,317) + JVS(5304) = 0 IF (DO_JVS(5305)) & -! JVS(5305) = Jac_FULL(346,279) +! JVS(5305) = Jac_FULL(351,318) JVS(5305) = 0 IF (DO_JVS(5306)) & -! JVS(5306) = Jac_FULL(346,280) - JVS(5306) = -B(901) +! JVS(5306) = Jac_FULL(351,320) + JVS(5306) = -B(405) IF (DO_JVS(5307)) & -! JVS(5307) = Jac_FULL(346,281) - JVS(5307) = -B(802) +! JVS(5307) = Jac_FULL(351,321) + JVS(5307) = -B(601) IF (DO_JVS(5308)) & -! JVS(5308) = Jac_FULL(346,284) - JVS(5308) = -B(681) +! JVS(5308) = Jac_FULL(351,328) + JVS(5308) = 0 IF (DO_JVS(5309)) & -! JVS(5309) = Jac_FULL(346,285) - JVS(5309) = -B(1072)-B(1074) +! JVS(5309) = Jac_FULL(351,329) + JVS(5309) = -B(485) IF (DO_JVS(5310)) & -! JVS(5310) = Jac_FULL(346,286) - JVS(5310) = -B(1066)-B(1068) +! JVS(5310) = Jac_FULL(351,330) + JVS(5310) = 0 IF (DO_JVS(5311)) & -! JVS(5311) = Jac_FULL(346,289) - JVS(5311) = -B(903) +! JVS(5311) = Jac_FULL(351,332) + JVS(5311) = 0 IF (DO_JVS(5312)) & -! JVS(5312) = Jac_FULL(346,290) +! JVS(5312) = Jac_FULL(351,334) JVS(5312) = 0 IF (DO_JVS(5313)) & -! JVS(5313) = Jac_FULL(346,291) - JVS(5313) = -B(853)-B(855) +! JVS(5313) = Jac_FULL(351,335) + JVS(5313) = 0 IF (DO_JVS(5314)) & -! JVS(5314) = Jac_FULL(346,293) - JVS(5314) = -B(1143)-B(1145) +! JVS(5314) = Jac_FULL(351,336) + JVS(5314) = B(1740) IF (DO_JVS(5315)) & -! JVS(5315) = Jac_FULL(346,296) - JVS(5315) = -B(108)-B(110) +! JVS(5315) = Jac_FULL(351,337) + JVS(5315) = B(435)+B(437)+B(455)+0.12*B(487)+0.2*B(489)+0.25*B(492)+0.21*B(494)+0.1*B(496)+0.05*B(500)+0.3*B(502)+0.25& + &*B(504)+0.1*B(506)+0.14*B(508)+0.35*B(510)+0.55*B(512)+0.31*B(514)+0.35*B(516)+0.21*B(518)+0.1*B(520)+0.1& + &*B(522)+0.14*B(524)+0.25*B(526) IF (DO_JVS(5316)) & -! JVS(5316) = Jac_FULL(346,297) - JVS(5316) = 0 +! JVS(5316) = Jac_FULL(351,338) + JVS(5316) = -B(465)+B(480)+B(1760) IF (DO_JVS(5317)) & -! JVS(5317) = Jac_FULL(346,299) +! JVS(5317) = Jac_FULL(351,339) JVS(5317) = 0 IF (DO_JVS(5318)) & -! JVS(5318) = Jac_FULL(346,300) - JVS(5318) = -B(171)-B(173) +! JVS(5318) = Jac_FULL(351,340) + JVS(5318) = 0.12*B(488) IF (DO_JVS(5319)) & -! JVS(5319) = Jac_FULL(346,301) - JVS(5319) = 0 +! JVS(5319) = Jac_FULL(351,341) + JVS(5319) = -B(453)+0.02*B(476) IF (DO_JVS(5320)) & -! JVS(5320) = Jac_FULL(346,303) +! JVS(5320) = Jac_FULL(351,342) JVS(5320) = 0 IF (DO_JVS(5321)) & -! JVS(5321) = Jac_FULL(346,304) - JVS(5321) = -B(993)-B(995)-B(997)-B(999) +! JVS(5321) = Jac_FULL(351,343) + JVS(5321) = B(36)-B(451) IF (DO_JVS(5322)) & -! JVS(5322) = Jac_FULL(346,305) - JVS(5322) = -B(985)-B(987)-B(989)-B(991) +! JVS(5322) = Jac_FULL(351,344) + JVS(5322) = -B(577)+B(1716) IF (DO_JVS(5323)) & -! JVS(5323) = Jac_FULL(346,306) - JVS(5323) = 0 +! JVS(5323) = Jac_FULL(351,345) + JVS(5323) = -B(461)-B(467)+B(482)+B(1657) IF (DO_JVS(5324)) & -! JVS(5324) = Jac_FULL(346,308) - JVS(5324) = -B(1293) +! JVS(5324) = Jac_FULL(351,346) + JVS(5324) = 0 IF (DO_JVS(5325)) & -! JVS(5325) = Jac_FULL(346,309) - JVS(5325) = 0 +! JVS(5325) = Jac_FULL(351,347) + JVS(5325) = -B(483)+B(1704) IF (DO_JVS(5326)) & -! JVS(5326) = Jac_FULL(346,310) - JVS(5326) = -B(1169)-B(1171) +! JVS(5326) = Jac_FULL(351,348) + JVS(5326) = -B(463)+B(1666) IF (DO_JVS(5327)) & -! JVS(5327) = Jac_FULL(346,311) - JVS(5327) = -B(1173)-B(1175) +! JVS(5327) = Jac_FULL(351,349) + JVS(5327) = 0 IF (DO_JVS(5328)) & -! JVS(5328) = Jac_FULL(346,312) - JVS(5328) = -B(693) +! JVS(5328) = Jac_FULL(351,350) + JVS(5328) = 0 IF (DO_JVS(5329)) & -! JVS(5329) = Jac_FULL(346,313) - JVS(5329) = -B(183) +! JVS(5329) = Jac_FULL(351,351) + JVS(5329) = -B(406)-B(407)-B(445)-B(447)-B(452)-B(454)-B(458)-B(462)-B(464)-B(466)-B(468)-B(470)-B(484)-B(486)-B(578)& + &-B(602) IF (DO_JVS(5330)) & -! JVS(5330) = Jac_FULL(346,314) +! JVS(5330) = Jac_FULL(351,352) JVS(5330) = 0 IF (DO_JVS(5331)) & -! JVS(5331) = Jac_FULL(346,315) - JVS(5331) = -B(112) +! JVS(5331) = Jac_FULL(351,353) + JVS(5331) = 0 IF (DO_JVS(5332)) & -! JVS(5332) = Jac_FULL(346,318) - JVS(5332) = -B(181) +! JVS(5332) = Jac_FULL(351,354) + JVS(5332) = -B(408)+0.2*B(490) IF (DO_JVS(5333)) & -! JVS(5333) = Jac_FULL(346,319) - JVS(5333) = -B(177)-B(179) +! JVS(5333) = Jac_FULL(351,355) + JVS(5333) = 0 IF (DO_JVS(5334)) & -! JVS(5334) = Jac_FULL(346,320) - JVS(5334) = -B(185)-B(236) +! JVS(5334) = Jac_FULL(351,356) + JVS(5334) = -B(448)+B(456)+B(1654) IF (DO_JVS(5335)) & -! JVS(5335) = Jac_FULL(346,321) - JVS(5335) = -B(118)-B(120) +! JVS(5335) = Jac_FULL(352,3) + JVS(5335) = B(1748) IF (DO_JVS(5336)) & -! JVS(5336) = Jac_FULL(346,322) - JVS(5336) = -B(208) +! JVS(5336) = Jac_FULL(352,46) + JVS(5336) = 3*B(553)+3*B(1723) IF (DO_JVS(5337)) & -! JVS(5337) = Jac_FULL(346,323) - JVS(5337) = -B(187)-B(189) +! JVS(5337) = Jac_FULL(352,49) + JVS(5337) = 2.37*B(493)+4*B(1724) IF (DO_JVS(5338)) & -! JVS(5338) = Jac_FULL(346,324) - JVS(5338) = -B(104) +! JVS(5338) = Jac_FULL(352,50) + JVS(5338) = 1.8*B(505)+3*B(1725) IF (DO_JVS(5339)) & -! JVS(5339) = Jac_FULL(346,326) - JVS(5339) = 0 +! JVS(5339) = Jac_FULL(352,51) + JVS(5339) = 0.86*B(507)+2*B(1726) IF (DO_JVS(5340)) & -! JVS(5340) = Jac_FULL(346,327) - JVS(5340) = 0 +! JVS(5340) = Jac_FULL(352,52) + JVS(5340) = 1.9*B(519)+3*B(1727) IF (DO_JVS(5341)) & -! JVS(5341) = Jac_FULL(346,328) - JVS(5341) = -B(49)-B(51) +! JVS(5341) = Jac_FULL(352,53) + JVS(5341) = 0.95*B(521)+2*B(1728) IF (DO_JVS(5342)) & -! JVS(5342) = Jac_FULL(346,329) - JVS(5342) = 0 +! JVS(5342) = Jac_FULL(352,54) + JVS(5342) = B(1729) IF (DO_JVS(5343)) & -! JVS(5343) = Jac_FULL(346,330) - JVS(5343) = 0 +! JVS(5343) = Jac_FULL(352,64) + JVS(5343) = 0.31*B(509)+B(1735) IF (DO_JVS(5344)) & -! JVS(5344) = Jac_FULL(346,331) - JVS(5344) = -B(643) +! JVS(5344) = Jac_FULL(352,78) + JVS(5344) = B(1718) IF (DO_JVS(5345)) & -! JVS(5345) = Jac_FULL(346,332) - JVS(5345) = 0 +! JVS(5345) = Jac_FULL(352,80) + JVS(5345) = 2*B(549)+B(607)+2*B(1713) IF (DO_JVS(5346)) & -! JVS(5346) = Jac_FULL(346,334) - JVS(5346) = 1.22*B(442) +! JVS(5346) = Jac_FULL(352,84) + JVS(5346) = 3*B(551)+2*B(609) IF (DO_JVS(5347)) & -! JVS(5347) = Jac_FULL(346,335) - JVS(5347) = B(91)+B(461)+B(1644) +! JVS(5347) = Jac_FULL(352,88) + JVS(5347) = 0.79*B(517)+2*B(561)+2*B(1730) IF (DO_JVS(5348)) & -! JVS(5348) = Jac_FULL(346,336) - JVS(5348) = 0 +! JVS(5348) = Jac_FULL(352,89) + JVS(5348) = 0.69*B(513)+2*B(557)+2*B(1731) IF (DO_JVS(5349)) & -! JVS(5349) = Jac_FULL(346,337) - JVS(5349) = -B(42) +! JVS(5349) = Jac_FULL(352,90) + JVS(5349) = B(559)+B(1732) IF (DO_JVS(5350)) & -! JVS(5350) = Jac_FULL(346,338) - JVS(5350) = -B(581) +! JVS(5350) = Jac_FULL(352,91) + JVS(5350) = 0.19*B(503)+B(555)+B(1733) IF (DO_JVS(5351)) & -! JVS(5351) = Jac_FULL(346,339) - JVS(5351) = 0 +! JVS(5351) = Jac_FULL(352,107) + JVS(5351) = B(1753) IF (DO_JVS(5352)) & -! JVS(5352) = Jac_FULL(346,340) - JVS(5352) = 0 +! JVS(5352) = Jac_FULL(352,119) + JVS(5352) = B(590)-B(593)+B(1737) IF (DO_JVS(5353)) & -! JVS(5353) = Jac_FULL(346,341) - JVS(5353) = -B(26) +! JVS(5353) = Jac_FULL(352,142) + JVS(5353) = -B(629)-B(631) IF (DO_JVS(5354)) & -! JVS(5354) = Jac_FULL(346,342) - JVS(5354) = 0 +! JVS(5354) = Jac_FULL(352,144) + JVS(5354) = -B(637) IF (DO_JVS(5355)) & -! JVS(5355) = Jac_FULL(346,343) - JVS(5355) = B(462)-B(465) +! JVS(5355) = Jac_FULL(352,154) + JVS(5355) = -B(625) IF (DO_JVS(5356)) & -! JVS(5356) = Jac_FULL(346,344) - JVS(5356) = 0 +! JVS(5356) = Jac_FULL(352,160) + JVS(5356) = B(1714) IF (DO_JVS(5357)) & -! JVS(5357) = Jac_FULL(346,345) - JVS(5357) = -B(69) +! JVS(5357) = Jac_FULL(352,167) + JVS(5357) = -B(615) IF (DO_JVS(5358)) & -! JVS(5358) = Jac_FULL(346,346) - JVS(5358) = -B(27)-B(43)-B(50)-B(52)-B(70)-B(80)-B(105)-B(109)-B(111)-B(113)-B(119)-B(121)-B(123)-B(129)-B(131)-B(139)& - &-B(149)-B(157)-B(163)-B(172)-B(174)-B(176)-B(178)-B(180)-B(182)-B(184)-B(186)-B(188)-B(190)-B(192)-B(209)& - &-B(237)-B(244)-B(301)-B(399)-B(466)-B(480)-B(582)-B(644)-B(666)-B(682)-B(694)-B(708)-B(738)-B(752)-B(765)& - &-B(777)-B(789)-B(791)-B(803)-B(825)-B(841)-B(854)-B(856)-B(902)-B(904)-B(986)-B(988)-B(990)-B(992)-B(994)& - &-B(996)-B(998)-B(1000)-B(1033)-B(1035)-B(1040)-B(1042)-B(1047)-B(1049)-B(1067)-B(1069)-B(1073)-B(1075)& - &-B(1081)-B(1083)-B(1086)-B(1090)-B(1117)-B(1119)-B(1124)-B(1126)-B(1132)-B(1134)-B(1138)-B(1140)-B(1144)& - &-B(1146)-B(1170)-B(1172)-B(1174)-B(1176)-B(1203)-B(1205)-B(1207)-B(1209)-B(1215)-B(1221)-B(1247)-B(1253)& - &-B(1273)-B(1275)-B(1284)-B(1286)-B(1288)-B(1294)-B(1353)-B(1367)-B(1390)-B(1400)-B(1406)-B(1435)-B(1446)& - &-B(1747) +! JVS(5358) = Jac_FULL(352,184) + JVS(5358) = 0.35*B(495)+B(547)-B(605)+B(1712) IF (DO_JVS(5359)) & -! JVS(5359) = Jac_FULL(346,347) - JVS(5359) = -B(400) +! JVS(5359) = Jac_FULL(352,187) + JVS(5359) = -B(617) IF (DO_JVS(5360)) & -! JVS(5360) = Jac_FULL(346,348) +! JVS(5360) = Jac_FULL(352,221) JVS(5360) = 0 IF (DO_JVS(5361)) & -! JVS(5361) = Jac_FULL(346,349) - JVS(5361) = 0 +! JVS(5361) = Jac_FULL(352,232) + JVS(5361) = -B(563) IF (DO_JVS(5362)) & -! JVS(5362) = Jac_FULL(346,350) - JVS(5362) = 0 +! JVS(5362) = Jac_FULL(352,248) + JVS(5362) = 0.75*B(491)+B(527)+2*B(1715) IF (DO_JVS(5363)) & -! JVS(5363) = Jac_FULL(346,351) - JVS(5363) = -B(81)+B(92)+B(1654) +! JVS(5363) = Jac_FULL(352,254) + JVS(5363) = 0 IF (DO_JVS(5364)) & -! JVS(5364) = Jac_FULL(346,352) - JVS(5364) = 0 +! JVS(5364) = Jac_FULL(352,267) + JVS(5364) = -B(571) IF (DO_JVS(5365)) & -! JVS(5365) = Jac_FULL(346,353) - JVS(5365) = 0 +! JVS(5365) = Jac_FULL(352,268) + JVS(5365) = -B(611) IF (DO_JVS(5366)) & -! JVS(5366) = Jac_FULL(347,53) - JVS(5366) = 0.45*B(511) +! JVS(5366) = Jac_FULL(352,272) + JVS(5366) = 0 IF (DO_JVS(5367)) & -! JVS(5367) = Jac_FULL(347,54) - JVS(5367) = 0.75*B(525) +! JVS(5367) = Jac_FULL(352,279) + JVS(5367) = -B(635) IF (DO_JVS(5368)) & -! JVS(5368) = Jac_FULL(347,61) - JVS(5368) = 0.31*B(509) +! JVS(5368) = Jac_FULL(352,285) + JVS(5368) = -B(623) IF (DO_JVS(5369)) & -! JVS(5369) = Jac_FULL(347,78) - JVS(5369) = 0.95*B(499) +! JVS(5369) = Jac_FULL(352,286) + JVS(5369) = -B(627) IF (DO_JVS(5370)) & -! JVS(5370) = Jac_FULL(347,81) - JVS(5370) = 0.7*B(501) +! JVS(5370) = Jac_FULL(352,287) + JVS(5370) = 0 IF (DO_JVS(5371)) & -! JVS(5371) = Jac_FULL(347,105) - JVS(5371) = 0.44*B(497) +! JVS(5371) = Jac_FULL(352,292) + JVS(5371) = 0 IF (DO_JVS(5372)) & -! JVS(5372) = Jac_FULL(347,218) - JVS(5372) = B(1694) +! JVS(5372) = Jac_FULL(352,293) + JVS(5372) = -B(639) IF (DO_JVS(5373)) & -! JVS(5373) = Jac_FULL(347,284) - JVS(5373) = -B(659) +! JVS(5373) = Jac_FULL(352,294) + JVS(5373) = 0 IF (DO_JVS(5374)) & -! JVS(5374) = Jac_FULL(347,316) - JVS(5374) = B(405) +! JVS(5374) = Jac_FULL(352,296) + JVS(5374) = 0 IF (DO_JVS(5375)) & -! JVS(5375) = Jac_FULL(347,330) - JVS(5375) = 0 +! JVS(5375) = Jac_FULL(352,297) + JVS(5375) = -B(633) IF (DO_JVS(5376)) & -! JVS(5376) = Jac_FULL(347,331) - JVS(5376) = -B(657) +! JVS(5376) = Jac_FULL(352,300) + JVS(5376) = -B(619) IF (DO_JVS(5377)) & -! JVS(5377) = Jac_FULL(347,332) - JVS(5377) = 0 +! JVS(5377) = Jac_FULL(352,301) + JVS(5377) = B(1719) IF (DO_JVS(5378)) & -! JVS(5378) = Jac_FULL(347,334) - JVS(5378) = 0.2*B(489)+0.44*B(498)+0.95*B(500)+0.7*B(502)+0.31*B(510)+0.45*B(512)+0.75*B(526) +! JVS(5378) = Jac_FULL(352,304) + JVS(5378) = 0 IF (DO_JVS(5379)) & -! JVS(5379) = Jac_FULL(347,335) - JVS(5379) = -B(425) +! JVS(5379) = Jac_FULL(352,305) + JVS(5379) = 0 IF (DO_JVS(5380)) & -! JVS(5380) = Jac_FULL(347,336) +! JVS(5380) = Jac_FULL(352,306) JVS(5380) = 0 IF (DO_JVS(5381)) & -! JVS(5381) = Jac_FULL(347,337) - JVS(5381) = -B(391) +! JVS(5381) = Jac_FULL(352,307) + JVS(5381) = 0 IF (DO_JVS(5382)) & -! JVS(5382) = Jac_FULL(347,338) - JVS(5382) = -B(595)-B(597)-B(599) +! JVS(5382) = Jac_FULL(352,308) + JVS(5382) = 0 IF (DO_JVS(5383)) & -! JVS(5383) = Jac_FULL(347,339) +! JVS(5383) = Jac_FULL(352,309) JVS(5383) = 0 IF (DO_JVS(5384)) & -! JVS(5384) = Jac_FULL(347,340) +! JVS(5384) = Jac_FULL(352,310) JVS(5384) = 0 IF (DO_JVS(5385)) & -! JVS(5385) = Jac_FULL(347,341) - JVS(5385) = B(389) +! JVS(5385) = Jac_FULL(352,311) + JVS(5385) = 0 IF (DO_JVS(5386)) & -! JVS(5386) = Jac_FULL(347,342) - JVS(5386) = B(390)+B(411) +! JVS(5386) = Jac_FULL(352,312) + JVS(5386) = 0 IF (DO_JVS(5387)) & -! JVS(5387) = Jac_FULL(347,343) - JVS(5387) = B(406)-B(483) +! JVS(5387) = Jac_FULL(352,313) + JVS(5387) = 0 IF (DO_JVS(5388)) & -! JVS(5388) = Jac_FULL(347,344) +! JVS(5388) = Jac_FULL(352,314) JVS(5388) = 0 IF (DO_JVS(5389)) & -! JVS(5389) = Jac_FULL(347,345) - JVS(5389) = -B(409) +! JVS(5389) = Jac_FULL(352,315) + JVS(5389) = 0 IF (DO_JVS(5390)) & -! JVS(5390) = Jac_FULL(347,346) - JVS(5390) = -B(399) +! JVS(5390) = Jac_FULL(352,316) + JVS(5390) = 0 IF (DO_JVS(5391)) & -! JVS(5391) = Jac_FULL(347,347) - JVS(5391) = -B(392)-2*B(397)-2*B(398)-B(400)-B(410)-B(426)-B(484)-B(596)-B(598)-B(600)-B(658)-B(660)-B(1691) +! JVS(5391) = Jac_FULL(352,317) + JVS(5391) = 0 IF (DO_JVS(5392)) & -! JVS(5392) = Jac_FULL(347,348) +! JVS(5392) = Jac_FULL(352,318) JVS(5392) = 0 IF (DO_JVS(5393)) & -! JVS(5393) = Jac_FULL(347,349) - JVS(5393) = 0 +! JVS(5393) = Jac_FULL(352,319) + JVS(5393) = -B(621) IF (DO_JVS(5394)) & -! JVS(5394) = Jac_FULL(347,350) +! JVS(5394) = Jac_FULL(352,320) JVS(5394) = 0 IF (DO_JVS(5395)) & -! JVS(5395) = Jac_FULL(347,351) - JVS(5395) = B(412) +! JVS(5395) = Jac_FULL(352,321) + JVS(5395) = -B(603)+B(1720) IF (DO_JVS(5396)) & -! JVS(5396) = Jac_FULL(347,352) - JVS(5396) = 0.2*B(490) +! JVS(5396) = Jac_FULL(352,322) + JVS(5396) = 0 IF (DO_JVS(5397)) & -! JVS(5397) = Jac_FULL(347,353) +! JVS(5397) = Jac_FULL(352,323) JVS(5397) = 0 IF (DO_JVS(5398)) & -! JVS(5398) = Jac_FULL(348,68) - JVS(5398) = B(457)+B(459)+B(1745) +! JVS(5398) = Jac_FULL(352,324) + JVS(5398) = 0 IF (DO_JVS(5399)) & -! JVS(5399) = Jac_FULL(348,89) - JVS(5399) = B(22)-B(23) +! JVS(5399) = Jac_FULL(352,325) + JVS(5399) = 0 IF (DO_JVS(5400)) & -! JVS(5400) = Jac_FULL(348,94) - JVS(5400) = B(381)+0.75*B(383)+B(385) +! JVS(5400) = Jac_FULL(352,326) + JVS(5400) = 0 IF (DO_JVS(5401)) & -! JVS(5401) = Jac_FULL(348,134) - JVS(5401) = B(1746) +! JVS(5401) = Jac_FULL(352,327) + JVS(5401) = 0 IF (DO_JVS(5402)) & -! JVS(5402) = Jac_FULL(348,166) - JVS(5402) = -B(8) +! JVS(5402) = Jac_FULL(352,328) + JVS(5402) = 0 IF (DO_JVS(5403)) & -! JVS(5403) = Jac_FULL(348,179) - JVS(5403) = -B(1) +! JVS(5403) = Jac_FULL(352,329) + JVS(5403) = -B(565) IF (DO_JVS(5404)) & -! JVS(5404) = Jac_FULL(348,241) - JVS(5404) = -B(711) +! JVS(5404) = Jac_FULL(352,330) + JVS(5404) = 0 IF (DO_JVS(5405)) & -! JVS(5405) = Jac_FULL(348,264) - JVS(5405) = -B(15) +! JVS(5405) = Jac_FULL(352,331) + JVS(5405) = 0 IF (DO_JVS(5406)) & -! JVS(5406) = Jac_FULL(348,276) - JVS(5406) = 0 +! JVS(5406) = Jac_FULL(352,332) + JVS(5406) = B(1722) IF (DO_JVS(5407)) & -! JVS(5407) = Jac_FULL(348,290) - JVS(5407) = 0 +! JVS(5407) = Jac_FULL(352,334) + JVS(5407) = -B(613) IF (DO_JVS(5408)) & -! JVS(5408) = Jac_FULL(348,312) - JVS(5408) = -B(703) +! JVS(5408) = Jac_FULL(352,335) + JVS(5408) = 0 IF (DO_JVS(5409)) & -! JVS(5409) = Jac_FULL(348,314) - JVS(5409) = 0 +! JVS(5409) = Jac_FULL(352,336) + JVS(5409) = 0.249*B(667) IF (DO_JVS(5410)) & -! JVS(5410) = Jac_FULL(348,316) - JVS(5410) = -B(1561) +! JVS(5410) = Jac_FULL(352,337) + JVS(5410) = 0.66*B(487)+0.75*B(492)+2.37*B(494)+0.35*B(496)+0.19*B(504)+1.8*B(506)+0.86*B(508)+0.31*B(510)+0.69*B(514)& + &+0.79*B(518)+1.9*B(520)+0.95*B(522) IF (DO_JVS(5411)) & -! JVS(5411) = Jac_FULL(348,324) - JVS(5411) = 0 +! JVS(5411) = Jac_FULL(352,338) + JVS(5411) = B(581) IF (DO_JVS(5412)) & -! JVS(5412) = Jac_FULL(348,325) - JVS(5412) = -B(20) +! JVS(5412) = Jac_FULL(352,339) + JVS(5412) = 0 IF (DO_JVS(5413)) & -! JVS(5413) = Jac_FULL(348,326) - JVS(5413) = 0 +! JVS(5413) = Jac_FULL(352,340) + JVS(5413) = 0.66*B(488)+B(539) IF (DO_JVS(5414)) & -! JVS(5414) = Jac_FULL(348,327) - JVS(5414) = 0 +! JVS(5414) = Jac_FULL(352,341) + JVS(5414) = -B(573)-B(575) IF (DO_JVS(5415)) & -! JVS(5415) = Jac_FULL(348,328) +! JVS(5415) = Jac_FULL(352,342) JVS(5415) = 0 IF (DO_JVS(5416)) & -! JVS(5416) = Jac_FULL(348,329) - JVS(5416) = 0 +! JVS(5416) = Jac_FULL(352,343) + JVS(5416) = B(528)+B(531)+B(540)+B(548)+2*B(550)+3*B(552)+3*B(554)+B(556)+2*B(558)+B(560)+2*B(562) IF (DO_JVS(5417)) & -! JVS(5417) = Jac_FULL(348,332) - JVS(5417) = 0 +! JVS(5417) = Jac_FULL(352,344) + JVS(5417) = B(532)+B(577)+B(582)+B(586)+B(587)+0.249*B(668)+B(1716) IF (DO_JVS(5418)) & -! JVS(5418) = Jac_FULL(348,333) - JVS(5418) = -B(1547) +! JVS(5418) = Jac_FULL(352,345) + JVS(5418) = 0 IF (DO_JVS(5419)) & -! JVS(5419) = Jac_FULL(348,334) +! JVS(5419) = Jac_FULL(352,346) JVS(5419) = 0 IF (DO_JVS(5420)) & -! JVS(5420) = Jac_FULL(348,335) +! JVS(5420) = Jac_FULL(352,347) JVS(5420) = 0 IF (DO_JVS(5421)) & -! JVS(5421) = Jac_FULL(348,336) +! JVS(5421) = Jac_FULL(352,348) JVS(5421) = 0 IF (DO_JVS(5422)) & -! JVS(5422) = Jac_FULL(348,337) +! JVS(5422) = Jac_FULL(352,349) JVS(5422) = 0 IF (DO_JVS(5423)) & -! JVS(5423) = Jac_FULL(348,338) +! JVS(5423) = Jac_FULL(352,350) JVS(5423) = 0 IF (DO_JVS(5424)) & -! JVS(5424) = Jac_FULL(348,339) - JVS(5424) = 0 +! JVS(5424) = Jac_FULL(352,351) + JVS(5424) = B(578) IF (DO_JVS(5425)) & -! JVS(5425) = Jac_FULL(348,340) - JVS(5425) = 0 +! JVS(5425) = Jac_FULL(352,352) + JVS(5425) = -B(564)-B(566)-B(567)-B(569)-B(572)-B(574)-B(576)-B(588)-B(594)-B(604)-B(606)+B(608)+2*B(610)-B(612)& + &-B(614)-B(616)-B(618)-B(620)-B(622)-B(624)-B(626)-B(628)-B(630)-B(632)-B(634)-B(636)-B(638)-B(640) IF (DO_JVS(5426)) & -! JVS(5426) = Jac_FULL(348,341) - JVS(5426) = -B(2)-B(9)-B(17) +! JVS(5426) = Jac_FULL(352,353) + JVS(5426) = 0 IF (DO_JVS(5427)) & -! JVS(5427) = Jac_FULL(348,342) +! JVS(5427) = Jac_FULL(352,354) JVS(5427) = 0 IF (DO_JVS(5428)) & -! JVS(5428) = Jac_FULL(348,343) - JVS(5428) = B(458) +! JVS(5428) = Jac_FULL(352,355) + JVS(5428) = 0 IF (DO_JVS(5429)) & -! JVS(5429) = Jac_FULL(348,344) - JVS(5429) = 0 +! JVS(5429) = Jac_FULL(352,356) + JVS(5429) = -B(568) IF (DO_JVS(5430)) & -! JVS(5430) = Jac_FULL(348,345) - JVS(5430) = -B(24)+B(382)+0.75*B(384)-B(387)+B(460) +! JVS(5430) = Jac_FULL(353,46) + JVS(5430) = B(553) IF (DO_JVS(5431)) & -! JVS(5431) = Jac_FULL(348,346) - JVS(5431) = 0 +! JVS(5431) = Jac_FULL(353,55) + JVS(5431) = B(685) IF (DO_JVS(5432)) & -! JVS(5432) = Jac_FULL(348,347) - JVS(5432) = 0 +! JVS(5432) = Jac_FULL(353,75) + JVS(5432) = B(675) IF (DO_JVS(5433)) & -! JVS(5433) = Jac_FULL(348,348) - JVS(5433) = -B(3)-B(10)-B(16)-B(18)-B(19)-B(21)-B(25)-B(388)-B(704)-B(712)-B(1548)-B(1562) +! JVS(5433) = Jac_FULL(353,88) + JVS(5433) = B(561) IF (DO_JVS(5434)) & -! JVS(5434) = Jac_FULL(348,349) - JVS(5434) = 0 +! JVS(5434) = Jac_FULL(353,89) + JVS(5434) = B(557) IF (DO_JVS(5435)) & -! JVS(5435) = Jac_FULL(348,350) - JVS(5435) = 0 +! JVS(5435) = Jac_FULL(353,90) + JVS(5435) = B(559) IF (DO_JVS(5436)) & -! JVS(5436) = Jac_FULL(348,351) - JVS(5436) = B(386) +! JVS(5436) = Jac_FULL(353,91) + JVS(5436) = B(555) IF (DO_JVS(5437)) & -! JVS(5437) = Jac_FULL(348,352) - JVS(5437) = 0 +! JVS(5437) = Jac_FULL(353,108) + JVS(5437) = B(431) IF (DO_JVS(5438)) & -! JVS(5438) = Jac_FULL(348,353) - JVS(5438) = 0 +! JVS(5438) = Jac_FULL(353,110) + JVS(5438) = B(76) IF (DO_JVS(5439)) & -! JVS(5439) = Jac_FULL(349,252) - JVS(5439) = -B(1591) +! JVS(5439) = Jac_FULL(353,117) + JVS(5439) = B(1700) IF (DO_JVS(5440)) & -! JVS(5440) = Jac_FULL(349,297) - JVS(5440) = -B(1533) +! JVS(5440) = Jac_FULL(353,167) + JVS(5440) = B(59) IF (DO_JVS(5441)) & -! JVS(5441) = Jac_FULL(349,316) - JVS(5441) = -B(1557) +! JVS(5441) = Jac_FULL(353,176) + JVS(5441) = B(1336) IF (DO_JVS(5442)) & -! JVS(5442) = Jac_FULL(349,317) - JVS(5442) = -B(1519) +! JVS(5442) = Jac_FULL(353,184) + JVS(5442) = B(547) IF (DO_JVS(5443)) & -! JVS(5443) = Jac_FULL(349,330) - JVS(5443) = -B(1607) +! JVS(5443) = Jac_FULL(353,187) + JVS(5443) = B(106) IF (DO_JVS(5444)) & -! JVS(5444) = Jac_FULL(349,331) +! JVS(5444) = Jac_FULL(353,193) JVS(5444) = 0 IF (DO_JVS(5445)) & -! JVS(5445) = Jac_FULL(349,332) - JVS(5445) = -B(1599) +! JVS(5445) = Jac_FULL(353,200) + JVS(5445) = B(136) IF (DO_JVS(5446)) & -! JVS(5446) = Jac_FULL(349,335) +! JVS(5446) = Jac_FULL(353,203) JVS(5446) = 0 IF (DO_JVS(5447)) & -! JVS(5447) = Jac_FULL(349,336) +! JVS(5447) = Jac_FULL(353,204) JVS(5447) = 0 IF (DO_JVS(5448)) & -! JVS(5448) = Jac_FULL(349,337) - JVS(5448) = 0 +! JVS(5448) = Jac_FULL(353,217) + JVS(5448) = -B(1496) IF (DO_JVS(5449)) & -! JVS(5449) = Jac_FULL(349,338) - JVS(5449) = 0 +! JVS(5449) = Jac_FULL(353,219) + JVS(5449) = 0.02*B(475) IF (DO_JVS(5450)) & -! JVS(5450) = Jac_FULL(349,339) - JVS(5450) = 0 +! JVS(5450) = Jac_FULL(353,221) + JVS(5450) = -B(1509) IF (DO_JVS(5451)) & -! JVS(5451) = Jac_FULL(349,340) +! JVS(5451) = Jac_FULL(353,223) JVS(5451) = 0 IF (DO_JVS(5452)) & -! JVS(5452) = Jac_FULL(349,341) - JVS(5452) = -B(1565) +! JVS(5452) = Jac_FULL(353,224) + JVS(5452) = 0 IF (DO_JVS(5453)) & -! JVS(5453) = Jac_FULL(349,342) - JVS(5453) = 0 +! JVS(5453) = Jac_FULL(353,232) + JVS(5453) = B(47) IF (DO_JVS(5454)) & -! JVS(5454) = Jac_FULL(349,343) - JVS(5454) = 0 +! JVS(5454) = Jac_FULL(353,240) + JVS(5454) = B(71) IF (DO_JVS(5455)) & -! JVS(5455) = Jac_FULL(349,344) +! JVS(5455) = Jac_FULL(353,243) JVS(5455) = 0 IF (DO_JVS(5456)) & -! JVS(5456) = Jac_FULL(349,345) - JVS(5456) = 0 +! JVS(5456) = Jac_FULL(353,244) + JVS(5456) = -B(713)-B(715) IF (DO_JVS(5457)) & -! JVS(5457) = Jac_FULL(349,346) - JVS(5457) = 0 +! JVS(5457) = Jac_FULL(353,247) + JVS(5457) = B(61) IF (DO_JVS(5458)) & -! JVS(5458) = Jac_FULL(349,347) +! JVS(5458) = Jac_FULL(353,250) JVS(5458) = 0 IF (DO_JVS(5459)) & -! JVS(5459) = Jac_FULL(349,348) +! JVS(5459) = Jac_FULL(353,254) JVS(5459) = 0 IF (DO_JVS(5460)) & -! JVS(5460) = Jac_FULL(349,349) - JVS(5460) = -B(1520)-B(1534)-B(1558)-B(1566)-B(1592)-B(1600)-B(1608) +! JVS(5460) = Jac_FULL(353,255) + JVS(5460) = B(195) IF (DO_JVS(5461)) & -! JVS(5461) = Jac_FULL(349,350) - JVS(5461) = 0 +! JVS(5461) = Jac_FULL(353,267) + JVS(5461) = B(40) IF (DO_JVS(5462)) & -! JVS(5462) = Jac_FULL(349,351) - JVS(5462) = 0 +! JVS(5462) = Jac_FULL(353,268) + JVS(5462) = B(87)+B(611) IF (DO_JVS(5463)) & -! JVS(5463) = Jac_FULL(349,352) - JVS(5463) = B(1569) +! JVS(5463) = Jac_FULL(353,272) + JVS(5463) = 0 IF (DO_JVS(5464)) & -! JVS(5464) = Jac_FULL(349,353) +! JVS(5464) = Jac_FULL(353,273) JVS(5464) = 0 IF (DO_JVS(5465)) & -! JVS(5465) = Jac_FULL(350,252) - JVS(5465) = -B(1593) +! JVS(5465) = Jac_FULL(353,279) + JVS(5465) = 0 IF (DO_JVS(5466)) & -! JVS(5466) = Jac_FULL(350,297) - JVS(5466) = -B(1535) +! JVS(5466) = Jac_FULL(353,283) + JVS(5466) = B(197) IF (DO_JVS(5467)) & -! JVS(5467) = Jac_FULL(350,316) - JVS(5467) = -B(1559) +! JVS(5467) = Jac_FULL(353,286) + JVS(5467) = B(199) IF (DO_JVS(5468)) & -! JVS(5468) = Jac_FULL(350,317) - JVS(5468) = -B(1521) +! JVS(5468) = Jac_FULL(353,287) + JVS(5468) = B(677) IF (DO_JVS(5469)) & -! JVS(5469) = Jac_FULL(350,330) - JVS(5469) = -B(1609) +! JVS(5469) = Jac_FULL(353,290) + JVS(5469) = 0 IF (DO_JVS(5470)) & -! JVS(5470) = Jac_FULL(350,331) +! JVS(5470) = Jac_FULL(353,292) JVS(5470) = 0 IF (DO_JVS(5471)) & -! JVS(5471) = Jac_FULL(350,332) - JVS(5471) = -B(1601) +! JVS(5471) = Jac_FULL(353,293) + JVS(5471) = 0 IF (DO_JVS(5472)) & -! JVS(5472) = Jac_FULL(350,335) +! JVS(5472) = Jac_FULL(353,294) JVS(5472) = 0 IF (DO_JVS(5473)) & -! JVS(5473) = Jac_FULL(350,336) - JVS(5473) = 0 +! JVS(5473) = Jac_FULL(353,295) + JVS(5473) = B(234) IF (DO_JVS(5474)) & -! JVS(5474) = Jac_FULL(350,337) - JVS(5474) = 0 +! JVS(5474) = Jac_FULL(353,296) + JVS(5474) = -B(1589) IF (DO_JVS(5475)) & -! JVS(5475) = Jac_FULL(350,338) - JVS(5475) = 0 +! JVS(5475) = Jac_FULL(353,297) + JVS(5475) = B(212) IF (DO_JVS(5476)) & -! JVS(5476) = Jac_FULL(350,339) +! JVS(5476) = Jac_FULL(353,300) JVS(5476) = 0 IF (DO_JVS(5477)) & -! JVS(5477) = Jac_FULL(350,340) +! JVS(5477) = Jac_FULL(353,301) JVS(5477) = 0 IF (DO_JVS(5478)) & -! JVS(5478) = Jac_FULL(350,341) - JVS(5478) = -B(1567) +! JVS(5478) = Jac_FULL(353,302) + JVS(5478) = B(201) IF (DO_JVS(5479)) & -! JVS(5479) = Jac_FULL(350,342) +! JVS(5479) = Jac_FULL(353,304) JVS(5479) = 0 IF (DO_JVS(5480)) & -! JVS(5480) = Jac_FULL(350,343) +! JVS(5480) = Jac_FULL(353,305) JVS(5480) = 0 IF (DO_JVS(5481)) & -! JVS(5481) = Jac_FULL(350,344) +! JVS(5481) = Jac_FULL(353,306) JVS(5481) = 0 IF (DO_JVS(5482)) & -! JVS(5482) = Jac_FULL(350,345) +! JVS(5482) = Jac_FULL(353,307) JVS(5482) = 0 IF (DO_JVS(5483)) & -! JVS(5483) = Jac_FULL(350,346) +! JVS(5483) = Jac_FULL(353,308) JVS(5483) = 0 IF (DO_JVS(5484)) & -! JVS(5484) = Jac_FULL(350,347) +! JVS(5484) = Jac_FULL(353,309) JVS(5484) = 0 IF (DO_JVS(5485)) & -! JVS(5485) = Jac_FULL(350,348) +! JVS(5485) = Jac_FULL(353,310) JVS(5485) = 0 IF (DO_JVS(5486)) & -! JVS(5486) = Jac_FULL(350,349) +! JVS(5486) = Jac_FULL(353,311) JVS(5486) = 0 IF (DO_JVS(5487)) & -! JVS(5487) = Jac_FULL(350,350) - JVS(5487) = -B(1522)-B(1536)-B(1560)-B(1568)-B(1594)-B(1602)-B(1610) +! JVS(5487) = Jac_FULL(353,312) + JVS(5487) = 0 IF (DO_JVS(5488)) & -! JVS(5488) = Jac_FULL(350,351) +! JVS(5488) = Jac_FULL(353,313) JVS(5488) = 0 IF (DO_JVS(5489)) & -! JVS(5489) = Jac_FULL(350,352) - JVS(5489) = B(1570) +! JVS(5489) = Jac_FULL(353,314) + JVS(5489) = 0 IF (DO_JVS(5490)) & -! JVS(5490) = Jac_FULL(350,353) +! JVS(5490) = Jac_FULL(353,315) JVS(5490) = 0 IF (DO_JVS(5491)) & -! JVS(5491) = Jac_FULL(351,69) - JVS(5491) = -B(126) +! JVS(5491) = Jac_FULL(353,316) + JVS(5491) = 0 IF (DO_JVS(5492)) & -! JVS(5492) = Jac_FULL(351,80) - JVS(5492) = B(1741) +! JVS(5492) = Jac_FULL(353,317) + JVS(5492) = -B(697)-2*B(699) IF (DO_JVS(5493)) & -! JVS(5493) = Jac_FULL(351,94) - JVS(5493) = -B(385) +! JVS(5493) = Jac_FULL(353,318) + JVS(5493) = 0 IF (DO_JVS(5494)) & -! JVS(5494) = Jac_FULL(351,108) - JVS(5494) = B(1651) +! JVS(5494) = Jac_FULL(353,319) + JVS(5494) = 0 IF (DO_JVS(5495)) & -! JVS(5495) = Jac_FULL(351,124) - JVS(5495) = 0.3*B(1806) +! JVS(5495) = Jac_FULL(353,320) + JVS(5495) = B(1549)+B(1551)+B(1553)+B(1555) IF (DO_JVS(5496)) & -! JVS(5496) = Jac_FULL(351,126) - JVS(5496) = B(167) +! JVS(5496) = Jac_FULL(353,321) + JVS(5496) = -B(1513) IF (DO_JVS(5497)) & -! JVS(5497) = Jac_FULL(351,139) - JVS(5497) = 0.3*B(1658) +! JVS(5497) = Jac_FULL(353,322) + JVS(5497) = 0 IF (DO_JVS(5498)) & -! JVS(5498) = Jac_FULL(351,140) - JVS(5498) = -B(144) +! JVS(5498) = Jac_FULL(353,323) + JVS(5498) = 0 IF (DO_JVS(5499)) & -! JVS(5499) = Jac_FULL(351,142) - JVS(5499) = -B(193) +! JVS(5499) = Jac_FULL(353,324) + JVS(5499) = 0 IF (DO_JVS(5500)) & -! JVS(5500) = Jac_FULL(351,149) - JVS(5500) = -B(1346) +! JVS(5500) = Jac_FULL(353,325) + JVS(5500) = 0 IF (DO_JVS(5501)) & -! JVS(5501) = Jac_FULL(351,154) - JVS(5501) = B(937) +! JVS(5501) = Jac_FULL(353,326) + JVS(5501) = 0 IF (DO_JVS(5502)) & -! JVS(5502) = Jac_FULL(351,158) - JVS(5502) = -B(1420) +! JVS(5502) = Jac_FULL(353,327) + JVS(5502) = 0 IF (DO_JVS(5503)) & -! JVS(5503) = Jac_FULL(351,163) - JVS(5503) = -B(834) +! JVS(5503) = Jac_FULL(353,328) + JVS(5503) = 0 IF (DO_JVS(5504)) & -! JVS(5504) = Jac_FULL(351,167) - JVS(5504) = -B(721) +! JVS(5504) = Jac_FULL(353,329) + JVS(5504) = B(63) IF (DO_JVS(5505)) & -! JVS(5505) = Jac_FULL(351,170) - JVS(5505) = -B(650) +! JVS(5505) = Jac_FULL(353,330) + JVS(5505) = B(95) IF (DO_JVS(5506)) & -! JVS(5506) = Jac_FULL(351,183) - JVS(5506) = -B(344) +! JVS(5506) = Jac_FULL(353,331) + JVS(5506) = 0 IF (DO_JVS(5507)) & -! JVS(5507) = Jac_FULL(351,184) - JVS(5507) = B(1302) +! JVS(5507) = Jac_FULL(353,332) + JVS(5507) = B(541)+B(1539)+B(1541)+B(1543)+B(1545) IF (DO_JVS(5508)) & -! JVS(5508) = Jac_FULL(351,191) - JVS(5508) = -B(717) +! JVS(5508) = Jac_FULL(353,333) + JVS(5508) = B(67) IF (DO_JVS(5509)) & -! JVS(5509) = Jac_FULL(351,193) - JVS(5509) = -B(869) +! JVS(5509) = Jac_FULL(353,334) + JVS(5509) = 0 IF (DO_JVS(5510)) & -! JVS(5510) = Jac_FULL(351,195) - JVS(5510) = -B(1416) +! JVS(5510) = Jac_FULL(353,335) + JVS(5510) = 0 IF (DO_JVS(5511)) & -! JVS(5511) = Jac_FULL(351,197) +! JVS(5511) = Jac_FULL(353,336) JVS(5511) = 0 IF (DO_JVS(5512)) & -! JVS(5512) = Jac_FULL(351,200) - JVS(5512) = -B(1350) +! JVS(5512) = Jac_FULL(353,337) + JVS(5512) = -B(433) IF (DO_JVS(5513)) & -! JVS(5513) = Jac_FULL(351,202) - JVS(5513) = -B(1426) +! JVS(5513) = Jac_FULL(353,338) + JVS(5513) = 0 IF (DO_JVS(5514)) & -! JVS(5514) = Jac_FULL(351,204) - JVS(5514) = -B(1430) +! JVS(5514) = Jac_FULL(353,339) + JVS(5514) = B(1544)+B(1554) IF (DO_JVS(5515)) & -! JVS(5515) = Jac_FULL(351,211) - JVS(5515) = -B(822) +! JVS(5515) = Jac_FULL(353,340) + JVS(5515) = B(539)+B(1540)+B(1552) IF (DO_JVS(5516)) & -! JVS(5516) = Jac_FULL(351,213) - JVS(5516) = -B(304) +! JVS(5516) = Jac_FULL(353,341) + JVS(5516) = B(38)+0.02*B(476)+B(1491) IF (DO_JVS(5517)) & -! JVS(5517) = Jac_FULL(351,214) - JVS(5517) = B(86)+B(1655) +! JVS(5517) = Jac_FULL(353,342) + JVS(5517) = 0 IF (DO_JVS(5518)) & -! JVS(5518) = Jac_FULL(351,218) - JVS(5518) = B(401)+B(1693) +! JVS(5518) = Jac_FULL(353,343) + JVS(5518) = B(36)+B(39)+B(41)+B(48)+B(60)+B(62)+B(64)+B(68)+B(72)+B(77)+B(88)+B(96)+B(107)+B(137)+B(196)+B(198)+B(200)& + &+B(202)+B(213)+B(235)+B(395)+B(432)+B(449)+B(540)+B(542)+B(548)+B(554)+B(556)+B(558)+B(560)+B(562)+B(676)& + &+B(678)+B(686)+B(1337) IF (DO_JVS(5519)) & -! JVS(5519) = Jac_FULL(351,219) - JVS(5519) = -B(719) +! JVS(5519) = Jac_FULL(353,344) + JVS(5519) = 0 IF (DO_JVS(5520)) & -! JVS(5520) = Jac_FULL(351,220) - JVS(5520) = -B(1340) +! JVS(5520) = Jac_FULL(353,345) + JVS(5520) = 0 IF (DO_JVS(5521)) & -! JVS(5521) = Jac_FULL(351,225) - JVS(5521) = -B(745) +! JVS(5521) = Jac_FULL(353,346) + JVS(5521) = B(1546)+B(1556) IF (DO_JVS(5522)) & -! JVS(5522) = Jac_FULL(351,229) - JVS(5522) = -B(863) +! JVS(5522) = Jac_FULL(353,347) + JVS(5522) = 0 IF (DO_JVS(5523)) & -! JVS(5523) = Jac_FULL(351,233) +! JVS(5523) = Jac_FULL(353,348) JVS(5523) = 0 IF (DO_JVS(5524)) & -! JVS(5524) = Jac_FULL(351,234) - JVS(5524) = -B(1368) +! JVS(5524) = Jac_FULL(353,349) + JVS(5524) = 0 IF (DO_JVS(5525)) & -! JVS(5525) = Jac_FULL(351,236) - JVS(5525) = B(1443)-B(1447) +! JVS(5525) = Jac_FULL(353,350) + JVS(5525) = 0 IF (DO_JVS(5526)) & -! JVS(5526) = Jac_FULL(351,237) - JVS(5526) = -B(816) +! JVS(5526) = Jac_FULL(353,351) + JVS(5526) = 0 IF (DO_JVS(5527)) & -! JVS(5527) = Jac_FULL(351,241) - JVS(5527) = B(709) +! JVS(5527) = Jac_FULL(353,352) + JVS(5527) = B(612) IF (DO_JVS(5528)) & -! JVS(5528) = Jac_FULL(351,242) - JVS(5528) = -B(931) +! JVS(5528) = Jac_FULL(353,353) + JVS(5528) = -B(434)-B(698)-2*B(700)-B(714)-B(716)-B(1497)-B(1510)-B(1514)-B(1590) IF (DO_JVS(5529)) & -! JVS(5529) = Jac_FULL(351,246) - JVS(5529) = 0 +! JVS(5529) = Jac_FULL(353,354) + JVS(5529) = B(396)+B(1542)+B(1550) IF (DO_JVS(5530)) & -! JVS(5530) = Jac_FULL(351,252) +! JVS(5530) = Jac_FULL(353,355) JVS(5530) = 0 IF (DO_JVS(5531)) & -! JVS(5531) = Jac_FULL(351,255) - JVS(5531) = -B(810) +! JVS(5531) = Jac_FULL(353,356) + JVS(5531) = 0 IF (DO_JVS(5532)) & -! JVS(5532) = Jac_FULL(351,256) - JVS(5532) = -B(933) +! JVS(5532) = Jac_FULL(354,142) + JVS(5532) = B(421) IF (DO_JVS(5533)) & -! JVS(5533) = Jac_FULL(351,257) - JVS(5533) = -B(756) +! JVS(5533) = Jac_FULL(354,187) + JVS(5533) = B(419) IF (DO_JVS(5534)) & -! JVS(5534) = Jac_FULL(351,259) - JVS(5534) = 0 +! JVS(5534) = Jac_FULL(354,293) + JVS(5534) = B(641) IF (DO_JVS(5535)) & -! JVS(5535) = Jac_FULL(351,261) - JVS(5535) = -B(1318) +! JVS(5535) = Jac_FULL(354,297) + JVS(5535) = B(417) IF (DO_JVS(5536)) & -! JVS(5536) = Jac_FULL(351,262) - JVS(5536) = -B(875) +! JVS(5536) = Jac_FULL(354,301) + JVS(5536) = -B(1537) IF (DO_JVS(5537)) & -! JVS(5537) = Jac_FULL(351,263) - JVS(5537) = -B(1391) +! JVS(5537) = Jac_FULL(354,304) + JVS(5537) = 0 IF (DO_JVS(5538)) & -! JVS(5538) = Jac_FULL(351,267) +! JVS(5538) = Jac_FULL(354,318) JVS(5538) = 0 IF (DO_JVS(5539)) & -! JVS(5539) = Jac_FULL(351,269) - JVS(5539) = -B(1459) +! JVS(5539) = Jac_FULL(354,320) + JVS(5539) = -B(1549)+B(1561) IF (DO_JVS(5540)) & -! JVS(5540) = Jac_FULL(351,270) - JVS(5540) = -B(316) +! JVS(5540) = Jac_FULL(354,321) + JVS(5540) = -B(1517) IF (DO_JVS(5541)) & -! JVS(5541) = Jac_FULL(351,271) +! JVS(5541) = Jac_FULL(354,322) JVS(5541) = 0 IF (DO_JVS(5542)) & -! JVS(5542) = Jac_FULL(351,272) - JVS(5542) = -B(828) +! JVS(5542) = Jac_FULL(354,323) + JVS(5542) = 0 IF (DO_JVS(5543)) & -! JVS(5543) = Jac_FULL(351,273) - JVS(5543) = -B(794) +! JVS(5543) = Jac_FULL(354,324) + JVS(5543) = 0 IF (DO_JVS(5544)) & -! JVS(5544) = Jac_FULL(351,274) - JVS(5544) = -B(845) +! JVS(5544) = Jac_FULL(354,327) + JVS(5544) = 0 IF (DO_JVS(5545)) & -! JVS(5545) = Jac_FULL(351,275) - JVS(5545) = -B(778) +! JVS(5545) = Jac_FULL(354,328) + JVS(5545) = 0 IF (DO_JVS(5546)) & -! JVS(5546) = Jac_FULL(351,276) - JVS(5546) = -B(1147) +! JVS(5546) = Jac_FULL(354,329) + JVS(5546) = B(413) IF (DO_JVS(5547)) & -! JVS(5547) = Jac_FULL(351,277) - JVS(5547) = -B(739) +! JVS(5547) = Jac_FULL(354,330) + JVS(5547) = B(415) IF (DO_JVS(5548)) & -! JVS(5548) = Jac_FULL(351,278) - JVS(5548) = -B(766) +! JVS(5548) = Jac_FULL(354,332) + JVS(5548) = -B(1541) IF (DO_JVS(5549)) & -! JVS(5549) = Jac_FULL(351,280) - JVS(5549) = -B(917) +! JVS(5549) = Jac_FULL(354,334) + JVS(5549) = 0 IF (DO_JVS(5550)) & -! JVS(5550) = Jac_FULL(351,281) - JVS(5550) = -B(804) +! JVS(5550) = Jac_FULL(354,335) + JVS(5550) = 0 IF (DO_JVS(5551)) & -! JVS(5551) = Jac_FULL(351,285) +! JVS(5551) = Jac_FULL(354,336) JVS(5551) = 0 IF (DO_JVS(5552)) & -! JVS(5552) = Jac_FULL(351,286) - JVS(5552) = 0 +! JVS(5552) = Jac_FULL(354,337) + JVS(5552) = -0.8*B(489) IF (DO_JVS(5553)) & -! JVS(5553) = Jac_FULL(351,288) +! JVS(5553) = Jac_FULL(354,338) JVS(5553) = 0 IF (DO_JVS(5554)) & -! JVS(5554) = Jac_FULL(351,289) - JVS(5554) = -B(919) +! JVS(5554) = Jac_FULL(354,339) + JVS(5554) = 0 IF (DO_JVS(5555)) & -! JVS(5555) = Jac_FULL(351,290) - JVS(5555) = -B(310) +! JVS(5555) = Jac_FULL(354,340) + JVS(5555) = 0 IF (DO_JVS(5556)) & -! JVS(5556) = Jac_FULL(351,291) - JVS(5556) = -B(857) +! JVS(5556) = Jac_FULL(354,341) + JVS(5556) = B(393) IF (DO_JVS(5557)) & -! JVS(5557) = Jac_FULL(351,292) - JVS(5557) = -B(251) +! JVS(5557) = Jac_FULL(354,342) + JVS(5557) = B(394)+B(414)+B(416)+B(418)+B(420)+B(422)+B(642) IF (DO_JVS(5558)) & -! JVS(5558) = Jac_FULL(351,293) - JVS(5558) = 0 +! JVS(5558) = Jac_FULL(354,343) + JVS(5558) = -B(395) IF (DO_JVS(5559)) & -! JVS(5559) = Jac_FULL(351,294) - JVS(5559) = -B(318) +! JVS(5559) = Jac_FULL(354,344) + JVS(5559) = 0 IF (DO_JVS(5560)) & -! JVS(5560) = Jac_FULL(351,298) - JVS(5560) = -B(210) +! JVS(5560) = Jac_FULL(354,345) + JVS(5560) = 0 IF (DO_JVS(5561)) & -! JVS(5561) = Jac_FULL(351,299) +! JVS(5561) = Jac_FULL(354,346) JVS(5561) = 0 IF (DO_JVS(5562)) & -! JVS(5562) = Jac_FULL(351,300) +! JVS(5562) = Jac_FULL(354,347) JVS(5562) = 0 IF (DO_JVS(5563)) & -! JVS(5563) = Jac_FULL(351,301) +! JVS(5563) = Jac_FULL(354,348) JVS(5563) = 0 IF (DO_JVS(5564)) & -! JVS(5564) = Jac_FULL(351,302) - JVS(5564) = 0.69*B(1236) +! JVS(5564) = Jac_FULL(354,349) + JVS(5564) = 0 IF (DO_JVS(5565)) & -! JVS(5565) = Jac_FULL(351,303) +! JVS(5565) = Jac_FULL(354,350) JVS(5565) = 0 IF (DO_JVS(5566)) & -! JVS(5566) = Jac_FULL(351,304) - JVS(5566) = 0 +! JVS(5566) = Jac_FULL(354,351) + JVS(5566) = -B(407) IF (DO_JVS(5567)) & -! JVS(5567) = Jac_FULL(351,305) +! JVS(5567) = Jac_FULL(354,352) JVS(5567) = 0 IF (DO_JVS(5568)) & -! JVS(5568) = Jac_FULL(351,306) - JVS(5568) = -B(295) +! JVS(5568) = Jac_FULL(354,353) + JVS(5568) = 0 IF (DO_JVS(5569)) & -! JVS(5569) = Jac_FULL(351,307) - JVS(5569) = 0 +! JVS(5569) = Jac_FULL(354,354) + JVS(5569) = -B(396)-B(408)-0.8*B(490)-B(1518)-B(1538)-B(1542)-B(1550)-B(1563)-B(1569)-B(1570) IF (DO_JVS(5570)) & -! JVS(5570) = Jac_FULL(351,308) - JVS(5570) = -B(1297) +! JVS(5570) = Jac_FULL(354,355) + JVS(5570) = B(1562) IF (DO_JVS(5571)) & -! JVS(5571) = Jac_FULL(351,309) - JVS(5571) = -B(1234) +! JVS(5571) = Jac_FULL(354,356) + JVS(5571) = -B(1564) IF (DO_JVS(5572)) & -! JVS(5572) = Jac_FULL(351,310) - JVS(5572) = -B(1165) +! JVS(5572) = Jac_FULL(355,71) + JVS(5572) = B(457)+B(459)+B(1758) IF (DO_JVS(5573)) & -! JVS(5573) = Jac_FULL(351,311) - JVS(5573) = -B(1167) +! JVS(5573) = Jac_FULL(355,87) + JVS(5573) = B(381)+0.75*B(383)+B(385) IF (DO_JVS(5574)) & -! JVS(5574) = Jac_FULL(351,312) - JVS(5574) = B(695) +! JVS(5574) = Jac_FULL(355,93) + JVS(5574) = B(22)-B(23)+B(1650)-B(1651) IF (DO_JVS(5575)) & -! JVS(5575) = Jac_FULL(351,313) - JVS(5575) = 0 +! JVS(5575) = Jac_FULL(355,146) + JVS(5575) = B(1759) IF (DO_JVS(5576)) & -! JVS(5576) = Jac_FULL(351,314) - JVS(5576) = 0 +! JVS(5576) = Jac_FULL(355,169) + JVS(5576) = -B(8) IF (DO_JVS(5577)) & -! JVS(5577) = Jac_FULL(351,317) - JVS(5577) = B(545)+B(601)+B(603)+B(1707) +! JVS(5577) = Jac_FULL(355,183) + JVS(5577) = -B(1) IF (DO_JVS(5578)) & -! JVS(5578) = Jac_FULL(351,318) - JVS(5578) = 0 +! JVS(5578) = Jac_FULL(355,244) + JVS(5578) = -B(711) IF (DO_JVS(5579)) & -! JVS(5579) = Jac_FULL(351,319) - JVS(5579) = 0 +! JVS(5579) = Jac_FULL(355,267) + JVS(5579) = -B(15)-B(1641) IF (DO_JVS(5580)) & -! JVS(5580) = Jac_FULL(351,320) +! JVS(5580) = Jac_FULL(355,279) JVS(5580) = 0 IF (DO_JVS(5581)) & -! JVS(5581) = Jac_FULL(351,321) +! JVS(5581) = Jac_FULL(355,293) JVS(5581) = 0 IF (DO_JVS(5582)) & -! JVS(5582) = Jac_FULL(351,322) - JVS(5582) = 0 +! JVS(5582) = Jac_FULL(355,317) + JVS(5582) = -B(703) IF (DO_JVS(5583)) & -! JVS(5583) = Jac_FULL(351,323) +! JVS(5583) = Jac_FULL(355,318) JVS(5583) = 0 IF (DO_JVS(5584)) & -! JVS(5584) = Jac_FULL(351,324) - JVS(5584) = 0 +! JVS(5584) = Jac_FULL(355,320) + JVS(5584) = -B(1561) IF (DO_JVS(5585)) & -! JVS(5585) = Jac_FULL(351,325) - JVS(5585) = -B(93) +! JVS(5585) = Jac_FULL(355,328) + JVS(5585) = 0 IF (DO_JVS(5586)) & -! JVS(5586) = Jac_FULL(351,326) - JVS(5586) = -B(97) +! JVS(5586) = Jac_FULL(355,329) + JVS(5586) = -B(20)-B(1648) IF (DO_JVS(5587)) & -! JVS(5587) = Jac_FULL(351,327) - JVS(5587) = B(67) +! JVS(5587) = Jac_FULL(355,330) + JVS(5587) = 0 IF (DO_JVS(5588)) & -! JVS(5588) = Jac_FULL(351,328) - JVS(5588) = -B(1487) +! JVS(5588) = Jac_FULL(355,332) + JVS(5588) = -B(1547) IF (DO_JVS(5589)) & -! JVS(5589) = Jac_FULL(351,329) +! JVS(5589) = Jac_FULL(355,333) JVS(5589) = 0 IF (DO_JVS(5590)) & -! JVS(5590) = Jac_FULL(351,331) - JVS(5590) = B(655) +! JVS(5590) = Jac_FULL(355,334) + JVS(5590) = 0 IF (DO_JVS(5591)) & -! JVS(5591) = Jac_FULL(351,332) - JVS(5591) = B(656)+B(1731) +! JVS(5591) = Jac_FULL(355,335) + JVS(5591) = 0 IF (DO_JVS(5592)) & -! JVS(5592) = Jac_FULL(351,334) +! JVS(5592) = Jac_FULL(355,336) JVS(5592) = 0 IF (DO_JVS(5593)) & -! JVS(5593) = Jac_FULL(351,335) - JVS(5593) = B(32)-B(84)-B(91)+B(467)+B(696)+B(710)+B(1444) +! JVS(5593) = Jac_FULL(355,337) + JVS(5593) = 0 IF (DO_JVS(5594)) & -! JVS(5594) = Jac_FULL(351,336) +! JVS(5594) = Jac_FULL(355,338) JVS(5594) = 0 IF (DO_JVS(5595)) & -! JVS(5595) = Jac_FULL(351,337) - JVS(5595) = -B(78) +! JVS(5595) = Jac_FULL(355,339) + JVS(5595) = 0 IF (DO_JVS(5596)) & -! JVS(5596) = Jac_FULL(351,338) +! JVS(5596) = Jac_FULL(355,340) JVS(5596) = 0 IF (DO_JVS(5597)) & -! JVS(5597) = Jac_FULL(351,339) +! JVS(5597) = Jac_FULL(355,341) JVS(5597) = 0 IF (DO_JVS(5598)) & -! JVS(5598) = Jac_FULL(351,340) - JVS(5598) = B(604) +! JVS(5598) = Jac_FULL(355,342) + JVS(5598) = 0 IF (DO_JVS(5599)) & -! JVS(5599) = Jac_FULL(351,341) - JVS(5599) = B(33) +! JVS(5599) = Jac_FULL(355,343) + JVS(5599) = -B(24)+B(382)+0.75*B(384)-B(387)+B(460)-B(1652) IF (DO_JVS(5600)) & -! JVS(5600) = Jac_FULL(351,342) - JVS(5600) = B(402)-B(411) +! JVS(5600) = Jac_FULL(355,344) + JVS(5600) = 0 IF (DO_JVS(5601)) & -! JVS(5601) = Jac_FULL(351,343) - JVS(5601) = -B(463)+B(468)+B(602) +! JVS(5601) = Jac_FULL(355,345) + JVS(5601) = -B(1646) IF (DO_JVS(5602)) & -! JVS(5602) = Jac_FULL(351,344) +! JVS(5602) = Jac_FULL(355,346) JVS(5602) = 0 IF (DO_JVS(5603)) & -! JVS(5603) = Jac_FULL(351,345) - JVS(5603) = B(68)-B(82)+B(168)+B(546)+B(938)+0.69*B(1237)+B(1303) +! JVS(5603) = Jac_FULL(355,347) + JVS(5603) = 0 IF (DO_JVS(5604)) & -! JVS(5604) = Jac_FULL(351,346) - JVS(5604) = -B(80) +! JVS(5604) = Jac_FULL(355,348) + JVS(5604) = B(386) IF (DO_JVS(5605)) & -! JVS(5605) = Jac_FULL(351,347) +! JVS(5605) = Jac_FULL(355,349) JVS(5605) = 0 IF (DO_JVS(5606)) & -! JVS(5606) = Jac_FULL(351,348) +! JVS(5606) = Jac_FULL(355,350) JVS(5606) = 0 IF (DO_JVS(5607)) & -! JVS(5607) = Jac_FULL(351,349) - JVS(5607) = 0 +! JVS(5607) = Jac_FULL(355,351) + JVS(5607) = B(458) IF (DO_JVS(5608)) & -! JVS(5608) = Jac_FULL(351,350) +! JVS(5608) = Jac_FULL(355,352) JVS(5608) = 0 IF (DO_JVS(5609)) & -! JVS(5609) = Jac_FULL(351,351) - JVS(5609) = -B(79)-B(81)-B(83)-B(85)-B(92)-B(94)-B(98)-B(127)-B(145)-B(194)-B(211)-B(252)-B(296)-B(305)-B(311)-B(317)& - &-B(319)-B(345)-2*B(377)-B(386)-B(412)-B(464)-B(651)-B(718)-B(720)-B(722)-B(740)-B(746)-B(757)-B(767)-B(779)& - &-B(795)-B(805)-B(811)-B(817)-B(823)-B(829)-B(835)-B(846)-B(858)-B(864)-B(870)-B(876)-B(918)-B(920)-B(932)& - &-B(934)-B(1148)-B(1166)-B(1168)-B(1235)-B(1298)-B(1319)-B(1341)-B(1347)-B(1351)-B(1369)-B(1392)-B(1417)& - &-B(1421)-B(1427)-B(1431)-B(1448)-B(1460)-B(1488)-B(1493)-B(1494)-B(1495)-B(1653)-B(1654) +! JVS(5609) = Jac_FULL(355,353) + JVS(5609) = 0 IF (DO_JVS(5610)) & -! JVS(5610) = Jac_FULL(351,352) +! JVS(5610) = Jac_FULL(355,354) JVS(5610) = 0 IF (DO_JVS(5611)) & -! JVS(5611) = Jac_FULL(351,353) - JVS(5611) = 0 +! JVS(5611) = Jac_FULL(355,355) + JVS(5611) = -B(2)-B(9)-B(16)-B(17)-B(19)-B(21)-B(25)-B(388)-B(704)-B(712)-B(1548)-B(1562)-B(1642)-B(1643)-B(1645)& + &-B(1647)-B(1649)-B(1653) IF (DO_JVS(5612)) & -! JVS(5612) = Jac_FULL(352,141) - JVS(5612) = B(421) +! JVS(5612) = Jac_FULL(355,356) + JVS(5612) = -B(3)-B(10)-B(18)-B(1644) IF (DO_JVS(5613)) & -! JVS(5613) = Jac_FULL(352,183) - JVS(5613) = B(419) +! JVS(5613) = Jac_FULL(356,120) + JVS(5613) = -B(1358) IF (DO_JVS(5614)) & -! JVS(5614) = Jac_FULL(352,290) - JVS(5614) = B(641) +! JVS(5614) = Jac_FULL(356,140) + JVS(5614) = -B(146) IF (DO_JVS(5615)) & -! JVS(5615) = Jac_FULL(352,295) - JVS(5615) = B(417) +! JVS(5615) = Jac_FULL(356,169) + JVS(5615) = -B(8) IF (DO_JVS(5616)) & -! JVS(5616) = Jac_FULL(352,297) - JVS(5616) = -B(1537) +! JVS(5616) = Jac_FULL(356,170) + JVS(5616) = -B(725) IF (DO_JVS(5617)) & -! JVS(5617) = Jac_FULL(352,300) - JVS(5617) = 0 +! JVS(5617) = Jac_FULL(356,183) + JVS(5617) = -B(1) IF (DO_JVS(5618)) & -! JVS(5618) = Jac_FULL(352,314) - JVS(5618) = 0 +! JVS(5618) = Jac_FULL(356,194) + JVS(5618) = -B(733) IF (DO_JVS(5619)) & -! JVS(5619) = Jac_FULL(352,316) - JVS(5619) = -B(1549)+B(1561) +! JVS(5619) = Jac_FULL(356,196) + JVS(5619) = -B(867) IF (DO_JVS(5620)) & -! JVS(5620) = Jac_FULL(352,317) - JVS(5620) = -B(1517) +! JVS(5620) = Jac_FULL(356,204) + JVS(5620) = -B(1472) IF (DO_JVS(5621)) & -! JVS(5621) = Jac_FULL(352,318) - JVS(5621) = 0 +! JVS(5621) = Jac_FULL(356,205) + JVS(5621) = -B(1424) IF (DO_JVS(5622)) & -! JVS(5622) = Jac_FULL(352,319) - JVS(5622) = 0 +! JVS(5622) = Jac_FULL(356,206) + JVS(5622) = -B(1453) IF (DO_JVS(5623)) & -! JVS(5623) = Jac_FULL(352,320) - JVS(5623) = 0 +! JVS(5623) = Jac_FULL(356,212) + JVS(5623) = -B(820) IF (DO_JVS(5624)) & -! JVS(5624) = Jac_FULL(352,323) - JVS(5624) = 0 +! JVS(5624) = Jac_FULL(356,216) + JVS(5624) = 0.15*B(302) IF (DO_JVS(5625)) & -! JVS(5625) = Jac_FULL(352,324) - JVS(5625) = 0 +! JVS(5625) = Jac_FULL(356,219) + JVS(5625) = -B(473) IF (DO_JVS(5626)) & -! JVS(5626) = Jac_FULL(352,325) - JVS(5626) = B(413) +! JVS(5626) = Jac_FULL(356,222) + JVS(5626) = -B(729) IF (DO_JVS(5627)) & -! JVS(5627) = Jac_FULL(352,326) - JVS(5627) = B(415) +! JVS(5627) = Jac_FULL(356,223) + JVS(5627) = -B(1342) IF (DO_JVS(5628)) & -! JVS(5628) = Jac_FULL(352,328) - JVS(5628) = 0 +! JVS(5628) = Jac_FULL(356,224) + JVS(5628) = -B(1467) IF (DO_JVS(5629)) & -! JVS(5629) = Jac_FULL(352,329) +! JVS(5629) = Jac_FULL(356,229) JVS(5629) = 0 IF (DO_JVS(5630)) & -! JVS(5630) = Jac_FULL(352,333) - JVS(5630) = -B(1541) +! JVS(5630) = Jac_FULL(356,232) + JVS(5630) = 0 IF (DO_JVS(5631)) & -! JVS(5631) = Jac_FULL(352,334) - JVS(5631) = -0.8*B(489) +! JVS(5631) = Jac_FULL(356,234) + JVS(5631) = -B(861) IF (DO_JVS(5632)) & -! JVS(5632) = Jac_FULL(352,335) - JVS(5632) = 0 +! JVS(5632) = Jac_FULL(356,237) + JVS(5632) = 0.15*B(1432) IF (DO_JVS(5633)) & -! JVS(5633) = Jac_FULL(352,336) +! JVS(5633) = Jac_FULL(356,238) JVS(5633) = 0 IF (DO_JVS(5634)) & -! JVS(5634) = Jac_FULL(352,337) - JVS(5634) = B(393) +! JVS(5634) = Jac_FULL(356,241) + JVS(5634) = -B(814) IF (DO_JVS(5635)) & -! JVS(5635) = Jac_FULL(352,338) - JVS(5635) = 0 +! JVS(5635) = Jac_FULL(356,243) + JVS(5635) = 0.15*B(1407) IF (DO_JVS(5636)) & -! JVS(5636) = Jac_FULL(352,339) - JVS(5636) = 0 +! JVS(5636) = Jac_FULL(356,246) + JVS(5636) = -B(929) IF (DO_JVS(5637)) & -! JVS(5637) = Jac_FULL(352,340) - JVS(5637) = 0 +! JVS(5637) = Jac_FULL(356,250) + JVS(5637) = 0.15*B(245) IF (DO_JVS(5638)) & -! JVS(5638) = Jac_FULL(352,341) - JVS(5638) = -B(1563) +! JVS(5638) = Jac_FULL(356,256) + JVS(5638) = -B(808) IF (DO_JVS(5639)) & -! JVS(5639) = Jac_FULL(352,342) - JVS(5639) = B(394)+B(414)+B(416)+B(418)+B(420)+B(422)+B(642) +! JVS(5639) = Jac_FULL(356,261) + JVS(5639) = 0.15*B(749) IF (DO_JVS(5640)) & -! JVS(5640) = Jac_FULL(352,343) - JVS(5640) = -B(407) +! JVS(5640) = Jac_FULL(356,262) + JVS(5640) = 0.13*B(1278) IF (DO_JVS(5641)) & -! JVS(5641) = Jac_FULL(352,344) - JVS(5641) = 0 +! JVS(5641) = Jac_FULL(356,263) + JVS(5641) = -B(873) IF (DO_JVS(5642)) & -! JVS(5642) = Jac_FULL(352,345) - JVS(5642) = -B(395) +! JVS(5642) = Jac_FULL(356,272) + JVS(5642) = 0 IF (DO_JVS(5643)) & -! JVS(5643) = Jac_FULL(352,346) - JVS(5643) = 0 +! JVS(5643) = Jac_FULL(356,277) + JVS(5643) = 0.15*B(838) IF (DO_JVS(5644)) & -! JVS(5644) = Jac_FULL(352,347) +! JVS(5644) = Jac_FULL(356,278) JVS(5644) = 0 IF (DO_JVS(5645)) & -! JVS(5645) = Jac_FULL(352,348) - JVS(5645) = B(1562) +! JVS(5645) = Jac_FULL(356,279) + JVS(5645) = -B(947) IF (DO_JVS(5646)) & -! JVS(5646) = Jac_FULL(352,349) +! JVS(5646) = Jac_FULL(356,280) JVS(5646) = 0 IF (DO_JVS(5647)) & -! JVS(5647) = Jac_FULL(352,350) +! JVS(5647) = Jac_FULL(356,281) JVS(5647) = 0 IF (DO_JVS(5648)) & -! JVS(5648) = Jac_FULL(352,351) +! JVS(5648) = Jac_FULL(356,284) JVS(5648) = 0 IF (DO_JVS(5649)) & -! JVS(5649) = Jac_FULL(352,352) - JVS(5649) = -B(396)-B(408)-0.8*B(490)-B(1518)-B(1538)-B(1542)-B(1550)-B(1564)-B(1569)-B(1570) +! JVS(5649) = Jac_FULL(356,292) + JVS(5649) = 0 IF (DO_JVS(5650)) & -! JVS(5650) = Jac_FULL(352,353) - JVS(5650) = 0 +! JVS(5650) = Jac_FULL(356,293) + JVS(5650) = -B(287) IF (DO_JVS(5651)) & -! JVS(5651) = Jac_FULL(353,179) - JVS(5651) = B(4) +! JVS(5651) = Jac_FULL(356,294) + JVS(5651) = 0 IF (DO_JVS(5652)) & -! JVS(5652) = Jac_FULL(353,214) - JVS(5652) = -B(1501) +! JVS(5652) = Jac_FULL(356,309) + JVS(5652) = 0 IF (DO_JVS(5653)) & -! JVS(5653) = Jac_FULL(353,252) - JVS(5653) = -B(1595) +! JVS(5653) = Jac_FULL(356,310) + JVS(5653) = 0 IF (DO_JVS(5654)) & -! JVS(5654) = Jac_FULL(353,297) - JVS(5654) = -B(1527) +! JVS(5654) = Jac_FULL(356,312) + JVS(5654) = 0.13*B(1291) IF (DO_JVS(5655)) & -! JVS(5655) = Jac_FULL(353,316) - JVS(5655) = -B(1553) +! JVS(5655) = Jac_FULL(356,313) + JVS(5655) = -B(1232) IF (DO_JVS(5656)) & -! JVS(5656) = Jac_FULL(353,317) - JVS(5656) = -B(1523) +! JVS(5656) = Jac_FULL(356,314) + JVS(5656) = 0 IF (DO_JVS(5657)) & -! JVS(5657) = Jac_FULL(353,327) +! JVS(5657) = Jac_FULL(356,315) JVS(5657) = 0 IF (DO_JVS(5658)) & -! JVS(5658) = Jac_FULL(353,328) - JVS(5658) = 0 +! JVS(5658) = Jac_FULL(356,317) + JVS(5658) = -B(701) IF (DO_JVS(5659)) & -! JVS(5659) = Jac_FULL(353,329) - JVS(5659) = 0 +! JVS(5659) = Jac_FULL(356,318) + JVS(5659) = -B(1226) IF (DO_JVS(5660)) & -! JVS(5660) = Jac_FULL(353,330) - JVS(5660) = -B(1611) +! JVS(5660) = Jac_FULL(356,324) + JVS(5660) = 0 IF (DO_JVS(5661)) & -! JVS(5661) = Jac_FULL(353,331) - JVS(5661) = 0 +! JVS(5661) = Jac_FULL(356,325) + JVS(5661) = 0.15*B(283) IF (DO_JVS(5662)) & -! JVS(5662) = Jac_FULL(353,332) - JVS(5662) = -B(1603) +! JVS(5662) = Jac_FULL(356,326) + JVS(5662) = 0 IF (DO_JVS(5663)) & -! JVS(5663) = Jac_FULL(353,333) - JVS(5663) = -B(1543) +! JVS(5663) = Jac_FULL(356,327) + JVS(5663) = 0 IF (DO_JVS(5664)) & -! JVS(5664) = Jac_FULL(353,334) - JVS(5664) = 0 +! JVS(5664) = Jac_FULL(356,328) + JVS(5664) = 0.13*B(1324) IF (DO_JVS(5665)) & -! JVS(5665) = Jac_FULL(353,335) +! JVS(5665) = Jac_FULL(356,329) JVS(5665) = 0 IF (DO_JVS(5666)) & -! JVS(5666) = Jac_FULL(353,336) +! JVS(5666) = Jac_FULL(356,330) JVS(5666) = 0 IF (DO_JVS(5667)) & -! JVS(5667) = Jac_FULL(353,337) - JVS(5667) = 0 +! JVS(5667) = Jac_FULL(356,331) + JVS(5667) = -B(669) IF (DO_JVS(5668)) & -! JVS(5668) = Jac_FULL(353,338) +! JVS(5668) = Jac_FULL(356,333) JVS(5668) = 0 IF (DO_JVS(5669)) & -! JVS(5669) = Jac_FULL(353,339) - JVS(5669) = B(5) +! JVS(5669) = Jac_FULL(356,334) + JVS(5669) = -B(34) IF (DO_JVS(5670)) & -! JVS(5670) = Jac_FULL(353,340) +! JVS(5670) = Jac_FULL(356,335) JVS(5670) = 0 IF (DO_JVS(5671)) & -! JVS(5671) = Jac_FULL(353,341) +! JVS(5671) = Jac_FULL(356,336) JVS(5671) = 0 IF (DO_JVS(5672)) & -! JVS(5672) = Jac_FULL(353,342) - JVS(5672) = 0 +! JVS(5672) = Jac_FULL(356,337) + JVS(5672) = -B(455) IF (DO_JVS(5673)) & -! JVS(5673) = Jac_FULL(353,343) - JVS(5673) = 0 +! JVS(5673) = Jac_FULL(356,338) + JVS(5673) = -B(26) IF (DO_JVS(5674)) & -! JVS(5674) = Jac_FULL(353,344) +! JVS(5674) = Jac_FULL(356,339) JVS(5674) = 0 IF (DO_JVS(5675)) & -! JVS(5675) = Jac_FULL(353,345) - JVS(5675) = -B(1505) +! JVS(5675) = Jac_FULL(356,340) + JVS(5675) = 0 IF (DO_JVS(5676)) & -! JVS(5676) = Jac_FULL(353,346) - JVS(5676) = 0 +! JVS(5676) = Jac_FULL(356,341) + JVS(5676) = -B(30)+0.15*B(246)+0.15*B(284)+0.15*B(303)+0.15*B(750)+0.15*B(839)+0.13*B(1279)+0.13*B(1292)+0.13*B(1325)& + &+0.15*B(1408)+0.15*B(1433) IF (DO_JVS(5677)) & -! JVS(5677) = Jac_FULL(353,347) - JVS(5677) = 0 +! JVS(5677) = Jac_FULL(356,342) + JVS(5677) = -B(389) IF (DO_JVS(5678)) & -! JVS(5678) = Jac_FULL(353,348) - JVS(5678) = 0 +! JVS(5678) = Jac_FULL(356,343) + JVS(5678) = -B(28) IF (DO_JVS(5679)) & -! JVS(5679) = Jac_FULL(353,349) +! JVS(5679) = Jac_FULL(356,344) JVS(5679) = 0 IF (DO_JVS(5680)) & -! JVS(5680) = Jac_FULL(353,350) - JVS(5680) = 0 +! JVS(5680) = Jac_FULL(356,345) + JVS(5680) = -B(32) IF (DO_JVS(5681)) & -! JVS(5681) = Jac_FULL(353,351) +! JVS(5681) = Jac_FULL(356,346) JVS(5681) = 0 IF (DO_JVS(5682)) & -! JVS(5682) = Jac_FULL(353,352) +! JVS(5682) = Jac_FULL(356,347) JVS(5682) = 0 IF (DO_JVS(5683)) & -! JVS(5683) = Jac_FULL(353,353) - JVS(5683) = -B(1502)-B(1506)-B(1524)-B(1528)-B(1544)-B(1554)-B(1596)-B(1604)-B(1612) +! JVS(5683) = Jac_FULL(356,348) + JVS(5683) = 0 +IF (DO_JVS(5684)) & +! JVS(5684) = Jac_FULL(356,349) + JVS(5684) = -B(1565) +IF (DO_JVS(5685)) & +! JVS(5685) = Jac_FULL(356,350) + JVS(5685) = -B(1567) +IF (DO_JVS(5686)) & +! JVS(5686) = Jac_FULL(356,351) + JVS(5686) = B(445)-B(447) +IF (DO_JVS(5687)) & +! JVS(5687) = Jac_FULL(356,352) + JVS(5687) = -B(567) +IF (DO_JVS(5688)) & +! JVS(5688) = Jac_FULL(356,353) + JVS(5688) = 0 +IF (DO_JVS(5689)) & +! JVS(5689) = Jac_FULL(356,354) + JVS(5689) = -B(1563) +IF (DO_JVS(5690)) & +! JVS(5690) = Jac_FULL(356,355) + JVS(5690) = -B(2)-B(9)-B(17)-B(1643) +IF (DO_JVS(5691)) & +! JVS(5691) = Jac_FULL(356,356) + JVS(5691) = -B(3)-B(10)-B(18)-B(27)-B(29)-B(31)-B(33)-B(35)-B(147)-B(288)-B(390)-B(448)-B(456)-B(474)-B(568)-B(670)& + &-B(702)-B(726)-B(730)-B(734)-B(809)-B(815)-B(821)-B(862)-B(868)-B(874)-B(930)-B(948)-B(1227)-B(1233)& + &-B(1343)-B(1359)-B(1425)-B(1454)-B(1468)-B(1473)-B(1564)-B(1566)-B(1568)-B(1644)-B(1654)-B(1655) END SUBROUTINE Jac_SP @@ -20912,867 +20965,871 @@ SUBROUTINE Jac_SP_Vec ( JVS, UV, JUV ) JUV(1) = JVS(1)*UV(1) JUV(2) = JVS(2)*UV(2) JUV(3) = JVS(3)*UV(3) - JUV(4) = JVS(4)*UV(4)+JVS(5)*UV(42)+JVS(6)*UV(44)+JVS(7)*UV(55)+JVS(8)*UV(73) - JUV(5) = JVS(9)*UV(5)+JVS(10)*UV(269) - JUV(6) = JVS(11)*UV(6)+JVS(12)*UV(41)+JVS(13)*UV(345) - JUV(7) = JVS(14)*UV(7)+JVS(15)*UV(66)+JVS(16)*UV(68)+JVS(17)*UV(71)+JVS(18)*UV(74)+JVS(19)*UV(90)+JVS(20)*UV(92)& - &+JVS(21)*UV(115)+JVS(22)*UV(130)+JVS(23)*UV(133)+JVS(24)*UV(135)+JVS(25)*UV(139)+JVS(26)*UV(159)+JVS(27)& - &*UV(169)+JVS(28)*UV(173)+JVS(29)*UV(182)+JVS(30)*UV(194)+JVS(31)*UV(198)+JVS(32)*UV(213)+JVS(33)*UV(216)& - &+JVS(34)*UV(235)+JVS(35)*UV(238)+JVS(36)*UV(240)+JVS(37)*UV(241)+JVS(38)*UV(246)+JVS(39)*UV(249)+JVS(40)& - &*UV(250)+JVS(41)*UV(257)+JVS(42)*UV(259)+JVS(43)*UV(260)+JVS(44)*UV(261)+JVS(45)*UV(263)+JVS(46)*UV(265)& - &+JVS(47)*UV(269)+JVS(48)*UV(274)+JVS(49)*UV(275)+JVS(50)*UV(276)+JVS(51)*UV(277)+JVS(52)*UV(280)+JVS(53)& - &*UV(281)+JVS(54)*UV(283)+JVS(55)*UV(287)+JVS(56)*UV(290)+JVS(57)*UV(291)+JVS(58)*UV(296)+JVS(59)*UV(300)& - &+JVS(60)*UV(306)+JVS(61)*UV(307)+JVS(62)*UV(308)+JVS(63)*UV(310)+JVS(64)*UV(311)+JVS(65)*UV(312)+JVS(66)& - &*UV(313)+JVS(67)*UV(315)+JVS(68)*UV(318)+JVS(69)*UV(319)+JVS(70)*UV(320)+JVS(71)*UV(321)+JVS(72)*UV(322)& - &+JVS(73)*UV(323)+JVS(74)*UV(324)+JVS(75)*UV(328)+JVS(76)*UV(329)+JVS(77)*UV(337)+JVS(78)*UV(340)+JVS(79)& - &*UV(341)+JVS(80)*UV(345)+JVS(81)*UV(346)+JVS(82)*UV(351) - JUV(8) = JVS(83)*UV(8)+JVS(84)*UV(45)+JVS(85)*UV(103) - JUV(9) = JVS(86)*UV(9)+JVS(87)*UV(42)+JVS(88)*UV(44)+JVS(89)*UV(55)+JVS(90)*UV(73)+JVS(91)*UV(252)+JVS(92)*UV(330)& - &+JVS(93)*UV(332) - JUV(10) = JVS(94)*UV(10)+JVS(95)*UV(42)+JVS(96)*UV(44)+JVS(97)*UV(55)+JVS(98)*UV(73)+JVS(99)*UV(252)+JVS(100)*UV(330)& - &+JVS(101)*UV(332) - JUV(11) = JVS(102)*UV(11)+JVS(103)*UV(13)+JVS(104)*UV(337) - JUV(12) = JVS(105)*UV(12)+JVS(106)*UV(13)+JVS(107)*UV(346) - JUV(13) = JVS(108)*UV(13)+JVS(109)*UV(143)+JVS(110)*UV(337)+JVS(111)*UV(345)+JVS(112)*UV(346) - JUV(14) = JVS(113)*UV(14)+JVS(114)*UV(276)+JVS(115)*UV(345) - JUV(15) = JVS(116)*UV(15)+JVS(117)*UV(276)+JVS(118)*UV(351) - JUV(16) = JVS(119)*UV(16)+JVS(120)*UV(18)+JVS(121)*UV(337) - JUV(17) = JVS(122)*UV(17)+JVS(123)*UV(18)+JVS(124)*UV(346) - JUV(18) = JVS(125)*UV(18)+JVS(126)*UV(19)+JVS(127)*UV(337)+JVS(128)*UV(345)+JVS(129)*UV(346) - JUV(19) = JVS(130)*UV(19)+JVS(131)*UV(345) - JUV(20) = JVS(132)*UV(20)+JVS(133)*UV(22)+JVS(134)*UV(337) - JUV(21) = JVS(135)*UV(21)+JVS(136)*UV(22)+JVS(137)*UV(346) - JUV(22) = JVS(138)*UV(22)+JVS(139)*UV(82)+JVS(140)*UV(337)+JVS(141)*UV(345)+JVS(142)*UV(346) + JUV(4) = JVS(4)*UV(4)+JVS(5)*UV(45)+JVS(6)*UV(47)+JVS(7)*UV(58)+JVS(8)*UV(75) + JUV(5) = JVS(9)*UV(5)+JVS(10)*UV(272) + JUV(6) = JVS(11)*UV(6)+JVS(12)*UV(44)+JVS(13)*UV(343) + JUV(7) = JVS(14)*UV(7)+JVS(15)*UV(69)+JVS(16)*UV(71)+JVS(17)*UV(76)+JVS(18)*UV(77)+JVS(19)*UV(95)+JVS(20)*UV(105)& + &+JVS(21)*UV(116)+JVS(22)*UV(134)+JVS(23)*UV(136)+JVS(24)*UV(137)+JVS(25)*UV(143)+JVS(26)*UV(161)+JVS(27)& + &*UV(171)+JVS(28)*UV(176)+JVS(29)*UV(185)+JVS(30)*UV(197)+JVS(31)*UV(198)+JVS(32)*UV(216)+JVS(33)*UV(220)& + &+JVS(34)*UV(237)+JVS(35)*UV(242)+JVS(36)*UV(243)+JVS(37)*UV(244)+JVS(38)*UV(250)+JVS(39)*UV(252)+JVS(40)& + &*UV(253)+JVS(41)*UV(261)+JVS(42)*UV(262)+JVS(43)*UV(264)+JVS(44)*UV(265)+JVS(45)*UV(266)+JVS(46)*UV(268)& + &+JVS(47)*UV(272)+JVS(48)*UV(276)+JVS(49)*UV(277)+JVS(50)*UV(279)+JVS(51)*UV(280)+JVS(52)*UV(281)+JVS(53)& + &*UV(284)+JVS(54)*UV(286)+JVS(55)*UV(290)+JVS(56)*UV(293)+JVS(57)*UV(294)+JVS(58)*UV(300)+JVS(59)*UV(304)& + &+JVS(60)*UV(308)+JVS(61)*UV(309)+JVS(62)*UV(310)+JVS(63)*UV(311)+JVS(64)*UV(312)+JVS(65)*UV(316)+JVS(66)& + &*UV(317)+JVS(67)*UV(319)+JVS(68)*UV(322)+JVS(69)*UV(323)+JVS(70)*UV(324)+JVS(71)*UV(325)+JVS(72)*UV(326)& + &+JVS(73)*UV(327)+JVS(74)*UV(328)+JVS(75)*UV(334)+JVS(76)*UV(335)+JVS(77)*UV(338)+JVS(78)*UV(341)+JVS(79)& + &*UV(343)+JVS(80)*UV(348)+JVS(81)*UV(352)+JVS(82)*UV(356) + JUV(8) = JVS(83)*UV(8)+JVS(84)*UV(48)+JVS(85)*UV(106) + JUV(9) = JVS(86)*UV(9)+JVS(87)*UV(45)+JVS(88)*UV(47)+JVS(89)*UV(58)+JVS(90)*UV(75)+JVS(91)*UV(254)+JVS(92)*UV(287)& + &+JVS(93)*UV(296) + JUV(10) = JVS(94)*UV(10)+JVS(95)*UV(45)+JVS(96)*UV(47)+JVS(97)*UV(58)+JVS(98)*UV(75)+JVS(99)*UV(254)+JVS(100)*UV(287)& + &+JVS(101)*UV(296) + JUV(11) = JVS(102)*UV(11)+JVS(103)*UV(13)+JVS(104)*UV(341) + JUV(12) = JVS(105)*UV(12)+JVS(106)*UV(13)+JVS(107)*UV(338) + JUV(13) = JVS(108)*UV(13)+JVS(109)*UV(145)+JVS(110)*UV(338)+JVS(111)*UV(341)+JVS(112)*UV(343) + JUV(14) = JVS(113)*UV(14)+JVS(114)*UV(279)+JVS(115)*UV(343) + JUV(15) = JVS(116)*UV(15)+JVS(117)*UV(279)+JVS(118)*UV(348) + JUV(16) = JVS(119)*UV(16)+JVS(120)*UV(18)+JVS(121)*UV(341) + JUV(17) = JVS(122)*UV(17)+JVS(123)*UV(18)+JVS(124)*UV(338) + JUV(18) = JVS(125)*UV(18)+JVS(126)*UV(19)+JVS(127)*UV(338)+JVS(128)*UV(341)+JVS(129)*UV(343) + JUV(19) = JVS(130)*UV(19)+JVS(131)*UV(343) + JUV(20) = JVS(132)*UV(20)+JVS(133)*UV(22)+JVS(134)*UV(341) + JUV(21) = JVS(135)*UV(21)+JVS(136)*UV(22)+JVS(137)*UV(338) + JUV(22) = JVS(138)*UV(22)+JVS(139)*UV(85)+JVS(140)*UV(338)+JVS(141)*UV(341)+JVS(142)*UV(343) JUV(23) = JVS(143)*UV(23)+JVS(144)*UV(24) - JUV(24) = JVS(145)*UV(24)+JVS(146)*UV(187)+JVS(147)*UV(192)+JVS(148)*UV(199)+JVS(149)*UV(209)+JVS(150)*UV(345) - JUV(25) = JVS(151)*UV(25)+JVS(152)*UV(27)+JVS(153)*UV(337) - JUV(26) = JVS(154)*UV(26)+JVS(155)*UV(27)+JVS(156)*UV(346) - JUV(27) = JVS(157)*UV(27)+JVS(158)*UV(101)+JVS(159)*UV(337)+JVS(160)*UV(345)+JVS(161)*UV(346) - JUV(28) = JVS(162)*UV(28)+JVS(163)*UV(94)+JVS(164)*UV(345) - JUV(29) = JVS(165)*UV(29)+JVS(166)*UV(166)+JVS(167)*UV(341)+JVS(168)*UV(348) - JUV(30) = JVS(169)*UV(30)+JVS(170)*UV(115)+JVS(171)*UV(270)+JVS(172)*UV(294) - JUV(31) = JVS(173)*UV(31)+JVS(174)*UV(107)+JVS(175)*UV(128)+JVS(176)*UV(151)+JVS(177)*UV(152)+JVS(178)*UV(215) - JUV(32) = JVS(179)*UV(32)+JVS(180)*UV(241)+JVS(181)*UV(312)+JVS(182)*UV(345)+JVS(183)*UV(348) - JUV(33) = JVS(184)*UV(33)+JVS(185)*UV(89)+JVS(186)*UV(345)+JVS(187)*UV(348) - JUV(34) = JVS(188)*UV(34)+JVS(189)*UV(45)+JVS(190)*UV(56)+JVS(191)*UV(57)+JVS(192)*UV(63)+JVS(193)*UV(67)+JVS(194)& - &*UV(70)+JVS(195)*UV(80)+JVS(196)*UV(83)+JVS(197)*UV(90)+JVS(198)*UV(91)+JVS(199)*UV(93)+JVS(200)*UV(95)& - &+JVS(201)*UV(103)+JVS(202)*UV(108)+JVS(203)*UV(110)+JVS(204)*UV(113)+JVS(205)*UV(114)+JVS(206)*UV(116)& - &+JVS(207)*UV(121)+JVS(208)*UV(122)+JVS(209)*UV(124)+JVS(210)*UV(126)+JVS(211)*UV(127)+JVS(212)*UV(132)& - &+JVS(213)*UV(133)+JVS(214)*UV(135)+JVS(215)*UV(137)+JVS(216)*UV(138)+JVS(217)*UV(139)+JVS(218)*UV(148)& - &+JVS(219)*UV(154)+JVS(220)*UV(162)+JVS(221)*UV(165)+JVS(222)*UV(170)+JVS(223)*UV(171)+JVS(224)*UV(172)& - &+JVS(225)*UV(176)+JVS(226)*UV(177)+JVS(227)*UV(178)+JVS(228)*UV(180)+JVS(229)*UV(182)+JVS(230)*UV(184)& - &+JVS(231)*UV(189)+JVS(232)*UV(190)+JVS(233)*UV(193)+JVS(234)*UV(196)+JVS(235)*UV(197)+JVS(236)*UV(205)& - &+JVS(237)*UV(206)+JVS(238)*UV(207)+JVS(239)*UV(211)+JVS(240)*UV(212)+JVS(241)*UV(213)+JVS(242)*UV(217)& - &+JVS(243)*UV(223)+JVS(244)*UV(224)+JVS(245)*UV(226)+JVS(246)*UV(232)+JVS(247)*UV(234)+JVS(248)*UV(235)& - &+JVS(249)*UV(236)+JVS(250)*UV(239)+JVS(251)*UV(240)+JVS(252)*UV(241)+JVS(253)*UV(243)+JVS(254)*UV(245)& - &+JVS(255)*UV(246)+JVS(256)*UV(249)+JVS(257)*UV(250)+JVS(258)*UV(253)+JVS(259)*UV(254)+JVS(260)*UV(257)& - &+JVS(261)*UV(259)+JVS(262)*UV(260)+JVS(263)*UV(263)+JVS(264)*UV(269)+JVS(265)*UV(271)+JVS(266)*UV(272)& - &+JVS(267)*UV(273)+JVS(268)*UV(274)+JVS(269)*UV(275)+JVS(270)*UV(277)+JVS(271)*UV(278)+JVS(272)*UV(280)& - &+JVS(273)*UV(281)+JVS(274)*UV(285)+JVS(275)*UV(286)+JVS(276)*UV(289)+JVS(277)*UV(291)+JVS(278)*UV(293)& - &+JVS(279)*UV(296)+JVS(280)*UV(297)+JVS(281)*UV(300)+JVS(282)*UV(302)+JVS(283)*UV(304)+JVS(284)*UV(305)& - &+JVS(285)*UV(308)+JVS(286)*UV(310)+JVS(287)*UV(311)+JVS(288)*UV(312)+JVS(289)*UV(313)+JVS(290)*UV(315)& - &+JVS(291)*UV(317)+JVS(292)*UV(318)+JVS(293)*UV(319)+JVS(294)*UV(320)+JVS(295)*UV(321)+JVS(296)*UV(322)& - &+JVS(297)*UV(323)+JVS(298)*UV(324)+JVS(299)*UV(327)+JVS(300)*UV(328)+JVS(301)*UV(335)+JVS(302)*UV(337)& - &+JVS(303)*UV(340)+JVS(304)*UV(345)+JVS(305)*UV(346) - JUV(35) = JVS(306)*UV(35)+JVS(307)*UV(42)+JVS(308)*UV(44)+JVS(309)*UV(49)+JVS(310)*UV(50)+JVS(311)*UV(55)+JVS(312)& - &*UV(63)+JVS(313)*UV(64)+JVS(314)*UV(65)+JVS(315)*UV(68)+JVS(316)*UV(69)+JVS(317)*UV(76)+JVS(318)*UV(87)& - &+JVS(319)*UV(94)+JVS(320)*UV(96)+JVS(321)*UV(105)+JVS(322)*UV(109)+JVS(323)*UV(120)+JVS(324)*UV(140)+JVS(325)& - &*UV(142)+JVS(326)*UV(149)+JVS(327)*UV(154)+JVS(328)*UV(158)+JVS(329)*UV(163)+JVS(330)*UV(166)+JVS(331)& - &*UV(167)+JVS(332)*UV(168)+JVS(333)*UV(175)+JVS(334)*UV(179)+JVS(335)*UV(181)+JVS(336)*UV(183)+JVS(337)& - &*UV(186)+JVS(338)*UV(191)+JVS(339)*UV(195)+JVS(340)*UV(197)+JVS(341)*UV(200)+JVS(342)*UV(201)+JVS(343)& - &*UV(202)+JVS(344)*UV(203)+JVS(345)*UV(204)+JVS(346)*UV(211)+JVS(347)*UV(213)+JVS(348)*UV(214)+JVS(349)& - &*UV(216)+JVS(350)*UV(217)+JVS(351)*UV(218)+JVS(352)*UV(219)+JVS(353)*UV(220)+JVS(354)*UV(221)+JVS(355)& - &*UV(222)+JVS(356)*UV(225)+JVS(357)*UV(228)+JVS(358)*UV(229)+JVS(359)*UV(234)+JVS(360)*UV(235)+JVS(361)& - &*UV(236)+JVS(362)*UV(237)+JVS(363)*UV(240)+JVS(364)*UV(242)+JVS(365)*UV(246)+JVS(366)*UV(248)+JVS(367)& - &*UV(251)+JVS(368)*UV(252)+JVS(369)*UV(255)+JVS(370)*UV(256)+JVS(371)*UV(257)+JVS(372)*UV(261)+JVS(373)& - &*UV(262)+JVS(374)*UV(263)+JVS(375)*UV(264)+JVS(376)*UV(266)+JVS(377)*UV(267)+JVS(378)*UV(268)+JVS(379)& - &*UV(270)+JVS(380)*UV(272)+JVS(381)*UV(273)+JVS(382)*UV(274)+JVS(383)*UV(275)+JVS(384)*UV(276)+JVS(385)& - &*UV(277)+JVS(386)*UV(278)+JVS(387)*UV(280)+JVS(388)*UV(281)+JVS(389)*UV(284)+JVS(390)*UV(289)+JVS(391)& - &*UV(290)+JVS(392)*UV(291)+JVS(393)*UV(292)+JVS(394)*UV(294)+JVS(395)*UV(297)+JVS(396)*UV(298)+JVS(397)& - &*UV(299)+JVS(398)*UV(302)+JVS(399)*UV(303)+JVS(400)*UV(306)+JVS(401)*UV(308)+JVS(402)*UV(309)+JVS(403)& - &*UV(310)+JVS(404)*UV(311)+JVS(405)*UV(312)+JVS(406)*UV(314)+JVS(407)*UV(316)+JVS(408)*UV(317)+JVS(409)& - &*UV(325)+JVS(410)*UV(326)+JVS(411)*UV(328)+JVS(412)*UV(330)+JVS(413)*UV(332)+JVS(414)*UV(333)+JVS(415)& - &*UV(334)+JVS(416)*UV(335)+JVS(417)*UV(336)+JVS(418)*UV(337)+JVS(419)*UV(338)+JVS(420)*UV(339)+JVS(421)& - &*UV(341)+JVS(422)*UV(343)+JVS(423)*UV(344)+JVS(424)*UV(345)+JVS(425)*UV(347)+JVS(426)*UV(348)+JVS(427)& - &*UV(349)+JVS(428)*UV(350)+JVS(429)*UV(351)+JVS(430)*UV(352)+JVS(431)*UV(353) - JUV(36) = JVS(432)*UV(36)+JVS(433)*UV(60)+JVS(434)*UV(68)+JVS(435)*UV(75)+JVS(436)*UV(79)+JVS(437)*UV(82)+JVS(438)& - &*UV(101)+JVS(439)*UV(107)+JVS(440)*UV(113)+JVS(441)*UV(114)+JVS(442)*UV(119)+JVS(443)*UV(122)+JVS(444)& - &*UV(124)+JVS(445)*UV(126)+JVS(446)*UV(127)+JVS(447)*UV(132)+JVS(448)*UV(139)+JVS(449)*UV(143)+JVS(450)& - &*UV(144)+JVS(451)*UV(146)+JVS(452)*UV(147)+JVS(453)*UV(150)+JVS(454)*UV(153)+JVS(455)*UV(159)+JVS(456)& - &*UV(167)+JVS(457)*UV(181)+JVS(458)*UV(182)+JVS(459)*UV(184)+JVS(460)*UV(185)+JVS(461)*UV(187)+JVS(462)& - &*UV(191)+JVS(463)*UV(192)+JVS(464)*UV(194)+JVS(465)*UV(197)+JVS(466)*UV(199)+JVS(467)*UV(200)+JVS(468)& - &*UV(201)+JVS(469)*UV(204)+JVS(470)*UV(208)+JVS(471)*UV(209)+JVS(472)*UV(210)+JVS(473)*UV(215)+JVS(474)& - &*UV(216)+JVS(475)*UV(220)+JVS(476)*UV(221)+JVS(477)*UV(225)+JVS(478)*UV(227)+JVS(479)*UV(230)+JVS(480)& - &*UV(231)+JVS(481)*UV(233)+JVS(482)*UV(238)+JVS(483)*UV(243)+JVS(484)*UV(248)+JVS(485)*UV(253)+JVS(486)& - &*UV(255)+JVS(487)*UV(258)+JVS(488)*UV(259)+JVS(489)*UV(261)+JVS(490)*UV(266)+JVS(491)*UV(267)+JVS(492)& - &*UV(268)+JVS(493)*UV(269)+JVS(494)*UV(270)+JVS(495)*UV(276)+JVS(496)*UV(285)+JVS(497)*UV(286)+JVS(498)& - &*UV(287)+JVS(499)*UV(290)+JVS(500)*UV(294)+JVS(501)*UV(295)+JVS(502)*UV(298)+JVS(503)*UV(301)+JVS(504)& - &*UV(304)+JVS(505)*UV(305)+JVS(506)*UV(306)+JVS(507)*UV(307)+JVS(508)*UV(309)+JVS(509)*UV(314)+JVS(510)& - &*UV(325)+JVS(511)*UV(326)+JVS(512)*UV(328)+JVS(513)*UV(337)+JVS(514)*UV(340)+JVS(515)*UV(341)+JVS(516)& - &*UV(342)+JVS(517)*UV(343)+JVS(518)*UV(345)+JVS(519)*UV(346)+JVS(520)*UV(351) - JUV(37) = JVS(521)*UV(37)+JVS(522)*UV(241)+JVS(523)*UV(312)+JVS(524)*UV(329)+JVS(525)*UV(345) - JUV(38) = JVS(526)*UV(38)+JVS(527)*UV(89)+JVS(528)*UV(179)+JVS(529)*UV(241)+JVS(530)*UV(264)+JVS(531)*UV(312)+JVS(532)& - &*UV(316)+JVS(533)*UV(333)+JVS(534)*UV(341)+JVS(535)*UV(345)+JVS(536)*UV(348) - JUV(39) = JVS(537)*UV(39)+JVS(538)*UV(228)+JVS(539)*UV(334)+JVS(540)*UV(340)+JVS(541)*UV(345) - JUV(40) = JVS(542)*UV(40)+JVS(543)*UV(241)+JVS(544)*UV(276)+JVS(545)*UV(312)+JVS(546)*UV(314)+JVS(547)*UV(336)& - &+JVS(548)*UV(337)+JVS(549)*UV(341)+JVS(550)*UV(345) - JUV(41) = JVS(551)*UV(41)+JVS(552)*UV(345) - JUV(42) = JVS(553)*UV(42)+JVS(554)*UV(96) - JUV(43) = JVS(555)*UV(43)+JVS(556)*UV(345) - JUV(44) = JVS(557)*UV(44)+JVS(558)*UV(284) - JUV(45) = JVS(559)*UV(45)+JVS(560)*UV(154)+JVS(561)*UV(242)+JVS(562)*UV(256) - JUV(46) = JVS(563)*UV(46)+JVS(564)*UV(334) - JUV(47) = JVS(565)*UV(47)+JVS(566)*UV(334) - JUV(48) = JVS(567)*UV(48)+JVS(568)*UV(334) - JUV(49) = JVS(569)*UV(49)+JVS(570)*UV(334) - JUV(50) = JVS(571)*UV(50)+JVS(572)*UV(334) - JUV(51) = JVS(573)*UV(51)+JVS(574)*UV(334) - JUV(52) = JVS(575)*UV(52)+JVS(576)*UV(345) - JUV(53) = JVS(577)*UV(53)+JVS(578)*UV(334) - JUV(54) = JVS(579)*UV(54)+JVS(580)*UV(334) - JUV(55) = JVS(581)*UV(55)+JVS(582)*UV(96)+JVS(583)*UV(284) - JUV(56) = JVS(584)*UV(56)+JVS(585)*UV(257)+JVS(586)*UV(335) - JUV(57) = JVS(587)*UV(57)+JVS(588)*UV(274)+JVS(589)*UV(335) - JUV(58) = JVS(590)*UV(58)+JVS(591)*UV(200)+JVS(592)*UV(345) - JUV(59) = JVS(593)*UV(59)+JVS(594)*UV(335)+JVS(595)*UV(342) - JUV(60) = JVS(596)*UV(60)+JVS(597)*UV(345) - JUV(61) = JVS(598)*UV(61)+JVS(599)*UV(334) - JUV(62) = JVS(600)*UV(62)+JVS(601)*UV(331)+JVS(602)*UV(346) - JUV(63) = JVS(603)*UV(63)+JVS(604)*UV(67)+JVS(605)*UV(334)+JVS(606)*UV(335) - JUV(64) = JVS(607)*UV(64)+JVS(608)*UV(179)+JVS(609)*UV(327)+JVS(610)*UV(351) - JUV(65) = JVS(611)*UV(65)+JVS(612)*UV(166)+JVS(613)*UV(327)+JVS(614)*UV(351) - JUV(66) = JVS(615)*UV(66)+JVS(616)*UV(257)+JVS(617)*UV(328)+JVS(618)*UV(337)+JVS(619)*UV(345) - JUV(67) = JVS(620)*UV(67)+JVS(621)*UV(335)+JVS(622)*UV(346) - JUV(68) = JVS(623)*UV(68)+JVS(624)*UV(343)+JVS(625)*UV(345) - JUV(69) = JVS(626)*UV(69)+JVS(627)*UV(345)+JVS(628)*UV(351) - JUV(70) = JVS(629)*UV(70)+JVS(630)*UV(234)+JVS(631)*UV(345)+JVS(632)*UV(346) - JUV(71) = JVS(633)*UV(71)+JVS(634)*UV(235)+JVS(635)*UV(337)+JVS(636)*UV(345) - JUV(72) = JVS(637)*UV(72)+JVS(638)*UV(213)+JVS(639)*UV(337)+JVS(640)*UV(345) - JUV(73) = JVS(641)*UV(73)+JVS(642)*UV(331)+JVS(643)*UV(337)+JVS(644)*UV(345) - JUV(74) = JVS(645)*UV(74)+JVS(646)*UV(257)+JVS(647)*UV(337)+JVS(648)*UV(345) - JUV(75) = JVS(649)*UV(75)+JVS(650)*UV(340)+JVS(651)*UV(345) - JUV(76) = JVS(652)*UV(76)+JVS(653)*UV(338)+JVS(654)*UV(345) - JUV(77) = JVS(655)*UV(77)+JVS(656)*UV(252)+JVS(657)*UV(330)+JVS(658)*UV(332)+JVS(659)*UV(349)+JVS(660)*UV(350) - JUV(78) = JVS(661)*UV(78)+JVS(662)*UV(334)+JVS(663)*UV(345) - JUV(79) = JVS(664)*UV(79)+JVS(665)*UV(340)+JVS(666)*UV(345) - JUV(80) = JVS(667)*UV(80)+JVS(668)*UV(328)+JVS(669)*UV(335) - JUV(81) = JVS(670)*UV(81)+JVS(671)*UV(334)+JVS(672)*UV(345) - JUV(82) = JVS(673)*UV(82)+JVS(674)*UV(345) - JUV(83) = JVS(675)*UV(83)+JVS(676)*UV(296)+JVS(677)*UV(345)+JVS(678)*UV(346) - JUV(84) = JVS(679)*UV(84)+JVS(680)*UV(334)+JVS(681)*UV(345) - JUV(85) = JVS(682)*UV(85)+JVS(683)*UV(334)+JVS(684)*UV(345) - JUV(86) = JVS(685)*UV(86)+JVS(686)*UV(334)+JVS(687)*UV(345) - JUV(87) = JVS(688)*UV(87)+JVS(689)*UV(334)+JVS(690)*UV(345) - JUV(88) = JVS(691)*UV(88)+JVS(692)*UV(312)+JVS(693)*UV(336)+JVS(694)*UV(345) - JUV(89) = JVS(695)*UV(89)+JVS(696)*UV(325)+JVS(697)*UV(345)+JVS(698)*UV(348) - JUV(90) = JVS(699)*UV(90)+JVS(700)*UV(235)+JVS(701)*UV(335)+JVS(702)*UV(345) - JUV(91) = JVS(703)*UV(91)+JVS(704)*UV(323)+JVS(705)*UV(345)+JVS(706)*UV(346) - JUV(92) = JVS(707)*UV(92)+JVS(708)*UV(324)+JVS(709)*UV(337)+JVS(710)*UV(345) - JUV(93) = JVS(711)*UV(93)+JVS(712)*UV(328)+JVS(713)*UV(345)+JVS(714)*UV(346) - JUV(94) = JVS(715)*UV(94)+JVS(716)*UV(345)+JVS(717)*UV(351) - JUV(95) = JVS(718)*UV(95)+JVS(719)*UV(321)+JVS(720)*UV(345)+JVS(721)*UV(346) - JUV(96) = JVS(722)*UV(42)+JVS(723)*UV(44)+JVS(724)*UV(55)+JVS(725)*UV(96)+JVS(726)*UV(284)+JVS(727)*UV(346)+JVS(728)& + JUV(24) = JVS(145)*UV(24)+JVS(146)*UV(191)+JVS(147)*UV(195)+JVS(148)*UV(202)+JVS(149)*UV(213)+JVS(150)*UV(343) + JUV(25) = JVS(151)*UV(25)+JVS(152)*UV(27)+JVS(153)*UV(341) + JUV(26) = JVS(154)*UV(26)+JVS(155)*UV(27)+JVS(156)*UV(338) + JUV(27) = JVS(157)*UV(27)+JVS(158)*UV(103)+JVS(159)*UV(338)+JVS(160)*UV(341)+JVS(161)*UV(343) + JUV(28) = JVS(162)*UV(28)+JVS(163)*UV(87)+JVS(164)*UV(343) + JUV(29) = JVS(165)*UV(29)+JVS(166)*UV(169)+JVS(167)*UV(355)+JVS(168)*UV(356) + JUV(30) = JVS(169)*UV(30)+JVS(170)*UV(116)+JVS(171)*UV(274)+JVS(172)*UV(298) + JUV(31) = JVS(173)*UV(31)+JVS(174)*UV(109)+JVS(175)*UV(131)+JVS(176)*UV(157)+JVS(177)*UV(159)+JVS(178)*UV(218) + JUV(32) = JVS(179)*UV(32)+JVS(180)*UV(244)+JVS(181)*UV(317)+JVS(182)*UV(343)+JVS(183)*UV(355) + JUV(33) = JVS(184)*UV(33)+JVS(185)*UV(93)+JVS(186)*UV(267)+JVS(187)*UV(343)+JVS(188)*UV(355)+JVS(189)*UV(356) + JUV(34) = JVS(190)*UV(34)+JVS(191)*UV(93)+JVS(192)*UV(267)+JVS(193)*UV(329)+JVS(194)*UV(343)+JVS(195)*UV(345)+JVS(196)& + &*UV(355)+JVS(197)*UV(356) + JUV(35) = JVS(198)*UV(35)+JVS(199)*UV(329)+JVS(200)*UV(355) + JUV(36) = JVS(201)*UV(36)+JVS(202)*UV(93) + JUV(37) = JVS(203)*UV(37)+JVS(204)*UV(48)+JVS(205)*UV(59)+JVS(206)*UV(60)+JVS(207)*UV(66)+JVS(208)*UV(70)+JVS(209)& + &*UV(73)+JVS(210)*UV(83)+JVS(211)*UV(86)+JVS(212)*UV(94)+JVS(213)*UV(96)+JVS(214)*UV(97)+JVS(215)*UV(105)& + &+JVS(216)*UV(106)+JVS(217)*UV(110)+JVS(218)*UV(113)+JVS(219)*UV(115)+JVS(220)*UV(117)+JVS(221)*UV(119)& + &+JVS(222)*UV(124)+JVS(223)*UV(125)+JVS(224)*UV(127)+JVS(225)*UV(129)+JVS(226)*UV(130)+JVS(227)*UV(133)& + &+JVS(228)*UV(136)+JVS(229)*UV(137)+JVS(230)*UV(139)+JVS(231)*UV(141)+JVS(232)*UV(143)+JVS(233)*UV(153)& + &+JVS(234)*UV(156)+JVS(235)*UV(165)+JVS(236)*UV(168)+JVS(237)*UV(172)+JVS(238)*UV(173)+JVS(239)*UV(174)& + &+JVS(240)*UV(179)+JVS(241)*UV(180)+JVS(242)*UV(181)+JVS(243)*UV(182)+JVS(244)*UV(185)+JVS(245)*UV(186)& + &+JVS(246)*UV(189)+JVS(247)*UV(193)+JVS(248)*UV(196)+JVS(249)*UV(200)+JVS(250)*UV(201)+JVS(251)*UV(208)& + &+JVS(252)*UV(209)+JVS(253)*UV(210)+JVS(254)*UV(212)+JVS(255)*UV(215)+JVS(256)*UV(216)+JVS(257)*UV(219)& + &+JVS(258)*UV(226)+JVS(259)*UV(228)+JVS(260)*UV(235)+JVS(261)*UV(236)+JVS(262)*UV(237)+JVS(263)*UV(238)& + &+JVS(264)*UV(239)+JVS(265)*UV(240)+JVS(266)*UV(243)+JVS(267)*UV(244)+JVS(268)*UV(245)+JVS(269)*UV(248)& + &+JVS(270)*UV(250)+JVS(271)*UV(252)+JVS(272)*UV(253)+JVS(273)*UV(257)+JVS(274)*UV(258)+JVS(275)*UV(261)& + &+JVS(276)*UV(262)+JVS(277)*UV(264)+JVS(278)*UV(266)+JVS(279)*UV(272)+JVS(280)*UV(273)+JVS(281)*UV(275)& + &+JVS(282)*UV(276)+JVS(283)*UV(277)+JVS(284)*UV(278)+JVS(285)*UV(280)+JVS(286)*UV(281)+JVS(287)*UV(282)& + &+JVS(288)*UV(284)+JVS(289)*UV(288)+JVS(290)*UV(289)+JVS(291)*UV(292)+JVS(292)*UV(294)+JVS(293)*UV(299)& + &+JVS(294)*UV(300)+JVS(295)*UV(301)+JVS(296)*UV(304)+JVS(297)*UV(306)+JVS(298)*UV(308)+JVS(299)*UV(310)& + &+JVS(300)*UV(312)+JVS(301)*UV(314)+JVS(302)*UV(315)+JVS(303)*UV(316)+JVS(304)*UV(317)+JVS(305)*UV(319)& + &+JVS(306)*UV(321)+JVS(307)*UV(322)+JVS(308)*UV(323)+JVS(309)*UV(324)+JVS(310)*UV(325)+JVS(311)*UV(326)& + &+JVS(312)*UV(327)+JVS(313)*UV(328)+JVS(314)*UV(333)+JVS(315)*UV(334)+JVS(316)*UV(338)+JVS(317)*UV(341)& + &+JVS(318)*UV(343)+JVS(319)*UV(345)+JVS(320)*UV(352) + JUV(38) = JVS(321)*UV(38)+JVS(322)*UV(45)+JVS(323)*UV(47)+JVS(324)*UV(52)+JVS(325)*UV(53)+JVS(326)*UV(58)+JVS(327)& + &*UV(66)+JVS(328)*UV(67)+JVS(329)*UV(68)+JVS(330)*UV(71)+JVS(331)*UV(72)+JVS(332)*UV(78)+JVS(333)*UV(87)& + &+JVS(334)*UV(91)+JVS(335)*UV(98)+JVS(336)*UV(108)+JVS(337)*UV(120)+JVS(338)*UV(123)+JVS(339)*UV(140)+JVS(340)& + &*UV(144)+JVS(341)*UV(148)+JVS(342)*UV(156)+JVS(343)*UV(162)+JVS(344)*UV(166)+JVS(345)*UV(169)+JVS(346)& + &*UV(170)+JVS(347)*UV(175)+JVS(348)*UV(177)+JVS(349)*UV(183)+JVS(350)*UV(184)+JVS(351)*UV(187)+JVS(352)& + &*UV(188)+JVS(353)*UV(194)+JVS(354)*UV(199)+JVS(355)*UV(201)+JVS(356)*UV(203)+JVS(357)*UV(204)+JVS(358)& + &*UV(205)+JVS(359)*UV(206)+JVS(360)*UV(207)+JVS(361)*UV(212)+JVS(362)*UV(216)+JVS(363)*UV(217)+JVS(364)& + &*UV(219)+JVS(365)*UV(220)+JVS(366)*UV(221)+JVS(367)*UV(222)+JVS(368)*UV(223)+JVS(369)*UV(224)+JVS(370)& + &*UV(225)+JVS(371)*UV(227)+JVS(372)*UV(232)+JVS(373)*UV(234)+JVS(374)*UV(237)+JVS(375)*UV(238)+JVS(376)& + &*UV(239)+JVS(377)*UV(241)+JVS(378)*UV(243)+JVS(379)*UV(246)+JVS(380)*UV(250)+JVS(381)*UV(251)+JVS(382)& + &*UV(254)+JVS(383)*UV(255)+JVS(384)*UV(256)+JVS(385)*UV(260)+JVS(386)*UV(261)+JVS(387)*UV(263)+JVS(388)& + &*UV(265)+JVS(389)*UV(266)+JVS(390)*UV(267)+JVS(391)*UV(269)+JVS(392)*UV(270)+JVS(393)*UV(271)+JVS(394)& + &*UV(274)+JVS(395)*UV(275)+JVS(396)*UV(276)+JVS(397)*UV(277)+JVS(398)*UV(278)+JVS(399)*UV(279)+JVS(400)& + &*UV(280)+JVS(401)*UV(281)+JVS(402)*UV(282)+JVS(403)*UV(284)+JVS(404)*UV(287)+JVS(405)*UV(292)+JVS(406)& + &*UV(293)+JVS(407)*UV(294)+JVS(408)*UV(295)+JVS(409)*UV(296)+JVS(410)*UV(298)+JVS(411)*UV(301)+JVS(412)& + &*UV(302)+JVS(413)*UV(303)+JVS(414)*UV(306)+JVS(415)*UV(307)+JVS(416)*UV(308)+JVS(417)*UV(309)+JVS(418)& + &*UV(310)+JVS(419)*UV(312)+JVS(420)*UV(313)+JVS(421)*UV(317)+JVS(422)*UV(318)+JVS(423)*UV(320)+JVS(424)& + &*UV(321)+JVS(425)*UV(329)+JVS(426)*UV(330)+JVS(427)*UV(332)+JVS(428)*UV(334)+JVS(429)*UV(336)+JVS(430)& + &*UV(337)+JVS(431)*UV(339)+JVS(432)*UV(340)+JVS(433)*UV(341)+JVS(434)*UV(343)+JVS(435)*UV(344)+JVS(436)& + &*UV(345)+JVS(437)*UV(346)+JVS(438)*UV(347)+JVS(439)*UV(348)+JVS(440)*UV(349)+JVS(441)*UV(350)+JVS(442)& + &*UV(351)+JVS(443)*UV(353)+JVS(444)*UV(354)+JVS(445)*UV(355)+JVS(446)*UV(356) + JUV(39) = JVS(447)*UV(39)+JVS(448)*UV(63)+JVS(449)*UV(71)+JVS(450)*UV(80)+JVS(451)*UV(84)+JVS(452)*UV(85)+JVS(453)& + &*UV(103)+JVS(454)*UV(109)+JVS(455)*UV(113)+JVS(456)*UV(115)+JVS(457)*UV(122)+JVS(458)*UV(125)+JVS(459)& + &*UV(127)+JVS(460)*UV(129)+JVS(461)*UV(130)+JVS(462)*UV(133)+JVS(463)*UV(143)+JVS(464)*UV(145)+JVS(465)& + &*UV(149)+JVS(466)*UV(150)+JVS(467)*UV(151)+JVS(468)*UV(152)+JVS(469)*UV(155)+JVS(470)*UV(161)+JVS(471)& + &*UV(170)+JVS(472)*UV(184)+JVS(473)*UV(185)+JVS(474)*UV(189)+JVS(475)*UV(190)+JVS(476)*UV(191)+JVS(477)& + &*UV(194)+JVS(478)*UV(195)+JVS(479)*UV(197)+JVS(480)*UV(201)+JVS(481)*UV(202)+JVS(482)*UV(203)+JVS(483)& + &*UV(204)+JVS(484)*UV(207)+JVS(485)*UV(211)+JVS(486)*UV(213)+JVS(487)*UV(214)+JVS(488)*UV(218)+JVS(489)& + &*UV(220)+JVS(490)*UV(223)+JVS(491)*UV(224)+JVS(492)*UV(227)+JVS(493)*UV(229)+JVS(494)*UV(230)+JVS(495)& + &*UV(231)+JVS(496)*UV(233)+JVS(497)*UV(242)+JVS(498)*UV(245)+JVS(499)*UV(251)+JVS(500)*UV(256)+JVS(501)& + &*UV(257)+JVS(502)*UV(259)+JVS(503)*UV(262)+JVS(504)*UV(265)+JVS(505)*UV(269)+JVS(506)*UV(270)+JVS(507)& + &*UV(271)+JVS(508)*UV(272)+JVS(509)*UV(274)+JVS(510)*UV(279)+JVS(511)*UV(288)+JVS(512)*UV(289)+JVS(513)& + &*UV(290)+JVS(514)*UV(293)+JVS(515)*UV(297)+JVS(516)*UV(298)+JVS(517)*UV(302)+JVS(518)*UV(305)+JVS(519)& + &*UV(309)+JVS(520)*UV(311)+JVS(521)*UV(313)+JVS(522)*UV(314)+JVS(523)*UV(315)+JVS(524)*UV(318)+JVS(525)& + &*UV(329)+JVS(526)*UV(330)+JVS(527)*UV(334)+JVS(528)*UV(338)+JVS(529)*UV(341)+JVS(530)*UV(342)+JVS(531)& + &*UV(343)+JVS(532)*UV(348)+JVS(533)*UV(351)+JVS(534)*UV(352)+JVS(535)*UV(356) + JUV(40) = JVS(536)*UV(40)+JVS(537)*UV(244)+JVS(538)*UV(317)+JVS(539)*UV(335)+JVS(540)*UV(343) + JUV(41) = JVS(541)*UV(41)+JVS(542)*UV(93)+JVS(543)*UV(183)+JVS(544)*UV(244)+JVS(545)*UV(267)+JVS(546)*UV(317)+JVS(547)& + &*UV(320)+JVS(548)*UV(332)+JVS(549)*UV(343)+JVS(550)*UV(345)+JVS(551)*UV(355)+JVS(552)*UV(356) + JUV(42) = JVS(553)*UV(42)+JVS(554)*UV(232)+JVS(555)*UV(337)+JVS(556)*UV(343)+JVS(557)*UV(352) + JUV(43) = JVS(558)*UV(43)+JVS(559)*UV(244)+JVS(560)*UV(279)+JVS(561)*UV(317)+JVS(562)*UV(318)+JVS(563)*UV(341)& + &+JVS(564)*UV(343)+JVS(565)*UV(353)+JVS(566)*UV(356) + JUV(44) = JVS(567)*UV(44)+JVS(568)*UV(343) + JUV(45) = JVS(569)*UV(45)+JVS(570)*UV(98) + JUV(46) = JVS(571)*UV(46)+JVS(572)*UV(343) + JUV(47) = JVS(573)*UV(47)+JVS(574)*UV(336) + JUV(48) = JVS(575)*UV(48)+JVS(576)*UV(156)+JVS(577)*UV(246)+JVS(578)*UV(260) + JUV(49) = JVS(579)*UV(49)+JVS(580)*UV(337) + JUV(50) = JVS(581)*UV(50)+JVS(582)*UV(337) + JUV(51) = JVS(583)*UV(51)+JVS(584)*UV(337) + JUV(52) = JVS(585)*UV(52)+JVS(586)*UV(337) + JUV(53) = JVS(587)*UV(53)+JVS(588)*UV(337) + JUV(54) = JVS(589)*UV(54)+JVS(590)*UV(337) + JUV(55) = JVS(591)*UV(55)+JVS(592)*UV(343) + JUV(56) = JVS(593)*UV(56)+JVS(594)*UV(337) + JUV(57) = JVS(595)*UV(57)+JVS(596)*UV(337) + JUV(58) = JVS(597)*UV(58)+JVS(598)*UV(98)+JVS(599)*UV(336) + JUV(59) = JVS(600)*UV(59)+JVS(601)*UV(261)+JVS(602)*UV(345) + JUV(60) = JVS(603)*UV(60)+JVS(604)*UV(277)+JVS(605)*UV(345) + JUV(61) = JVS(606)*UV(61)+JVS(607)*UV(203)+JVS(608)*UV(343) + JUV(62) = JVS(609)*UV(62)+JVS(610)*UV(342)+JVS(611)*UV(345) + JUV(63) = JVS(612)*UV(63)+JVS(613)*UV(343) + JUV(64) = JVS(614)*UV(64)+JVS(615)*UV(337) + JUV(65) = JVS(616)*UV(65)+JVS(617)*UV(331)+JVS(618)*UV(338) + JUV(66) = JVS(619)*UV(66)+JVS(620)*UV(70)+JVS(621)*UV(337)+JVS(622)*UV(345) + JUV(67) = JVS(623)*UV(67)+JVS(624)*UV(183)+JVS(625)*UV(333)+JVS(626)*UV(348) + JUV(68) = JVS(627)*UV(68)+JVS(628)*UV(169)+JVS(629)*UV(333)+JVS(630)*UV(348) + JUV(69) = JVS(631)*UV(69)+JVS(632)*UV(261)+JVS(633)*UV(334)+JVS(634)*UV(341)+JVS(635)*UV(343) + JUV(70) = JVS(636)*UV(70)+JVS(637)*UV(338)+JVS(638)*UV(345) + JUV(71) = JVS(639)*UV(71)+JVS(640)*UV(343)+JVS(641)*UV(351) + JUV(72) = JVS(642)*UV(72)+JVS(643)*UV(343)+JVS(644)*UV(348) + JUV(73) = JVS(645)*UV(73)+JVS(646)*UV(239)+JVS(647)*UV(338)+JVS(648)*UV(343) + JUV(74) = JVS(649)*UV(74)+JVS(650)*UV(216)+JVS(651)*UV(341)+JVS(652)*UV(343) + JUV(75) = JVS(653)*UV(75)+JVS(654)*UV(331)+JVS(655)*UV(341)+JVS(656)*UV(343) + JUV(76) = JVS(657)*UV(76)+JVS(658)*UV(261)+JVS(659)*UV(341)+JVS(660)*UV(343) + JUV(77) = JVS(661)*UV(77)+JVS(662)*UV(237)+JVS(663)*UV(341)+JVS(664)*UV(343) + JUV(78) = JVS(665)*UV(78)+JVS(666)*UV(343)+JVS(667)*UV(344) + JUV(79) = JVS(668)*UV(79)+JVS(669)*UV(337)+JVS(670)*UV(343) + JUV(80) = JVS(671)*UV(80)+JVS(672)*UV(343)+JVS(673)*UV(352) + JUV(81) = JVS(674)*UV(81)+JVS(675)*UV(254)+JVS(676)*UV(287)+JVS(677)*UV(296)+JVS(678)*UV(349)+JVS(679)*UV(350) + JUV(82) = JVS(680)*UV(82)+JVS(681)*UV(337)+JVS(682)*UV(343) + JUV(83) = JVS(683)*UV(83)+JVS(684)*UV(334)+JVS(685)*UV(345) + JUV(84) = JVS(686)*UV(84)+JVS(687)*UV(343)+JVS(688)*UV(352) + JUV(85) = JVS(689)*UV(85)+JVS(690)*UV(343) + JUV(86) = JVS(691)*UV(86)+JVS(692)*UV(300)+JVS(693)*UV(338)+JVS(694)*UV(343) + JUV(87) = JVS(695)*UV(87)+JVS(696)*UV(343)+JVS(697)*UV(348) + JUV(88) = JVS(698)*UV(88)+JVS(699)*UV(337)+JVS(700)*UV(343) + JUV(89) = JVS(701)*UV(89)+JVS(702)*UV(337)+JVS(703)*UV(343) + JUV(90) = JVS(704)*UV(90)+JVS(705)*UV(337)+JVS(706)*UV(343) + JUV(91) = JVS(707)*UV(91)+JVS(708)*UV(337)+JVS(709)*UV(343) + JUV(92) = JVS(710)*UV(92)+JVS(711)*UV(317)+JVS(712)*UV(343)+JVS(713)*UV(353) + JUV(93) = JVS(714)*UV(93)+JVS(715)*UV(329)+JVS(716)*UV(343)+JVS(717)*UV(355) + JUV(94) = JVS(718)*UV(94)+JVS(719)*UV(327)+JVS(720)*UV(338)+JVS(721)*UV(343) + JUV(95) = JVS(722)*UV(95)+JVS(723)*UV(328)+JVS(724)*UV(341)+JVS(725)*UV(343) + JUV(96) = JVS(726)*UV(96)+JVS(727)*UV(334)+JVS(728)*UV(338)+JVS(729)*UV(343) + JUV(97) = JVS(730)*UV(97)+JVS(731)*UV(326)+JVS(732)*UV(338)+JVS(733)*UV(343) + JUV(98) = JVS(734)*UV(45)+JVS(735)*UV(47)+JVS(736)*UV(58)+JVS(737)*UV(98)+JVS(738)*UV(336)+JVS(739)*UV(338)+JVS(740)& &*UV(347) - JUV(97) = JVS(729)*UV(97)+JVS(730)*UV(319)+JVS(731)*UV(337)+JVS(732)*UV(345) - JUV(98) = JVS(733)*UV(98)+JVS(734)*UV(178)+JVS(735)*UV(337)+JVS(736)*UV(345) - JUV(99) = JVS(737)*UV(99)+JVS(738)*UV(321)+JVS(739)*UV(337)+JVS(740)*UV(345) - JUV(100) = JVS(741)*UV(100)+JVS(742)*UV(323)+JVS(743)*UV(337)+JVS(744)*UV(345) - JUV(101) = JVS(745)*UV(101)+JVS(746)*UV(345) - JUV(102) = JVS(747)*UV(102)+JVS(748)*UV(300)+JVS(749)*UV(337)+JVS(750)*UV(345) - JUV(103) = JVS(751)*UV(103)+JVS(752)*UV(168)+JVS(753)*UV(175)+JVS(754)*UV(186)+JVS(755)*UV(216)+JVS(756)*UV(222)& - &+JVS(757)*UV(248)+JVS(758)*UV(251)+JVS(759)*UV(266)+JVS(760)*UV(267)+JVS(761)*UV(268)+JVS(762)*UV(299)& - &+JVS(763)*UV(302)+JVS(764)*UV(303) - JUV(104) = JVS(765)*UV(104)+JVS(766)*UV(252)+JVS(767)*UV(284)+JVS(768)*UV(330)+JVS(769)*UV(332)+JVS(770)*UV(338)& - &+JVS(771)*UV(344)+JVS(772)*UV(353) - JUV(105) = JVS(773)*UV(105)+JVS(774)*UV(334)+JVS(775)*UV(345) - JUV(106) = JVS(776)*UV(106)+JVS(777)*UV(136)+JVS(778)*UV(234)+JVS(779)*UV(328)+JVS(780)*UV(346)+JVS(781)*UV(351) - JUV(107) = JVS(782)*UV(107)+JVS(783)*UV(159)+JVS(784)*UV(184)+JVS(785)*UV(345) - JUV(108) = JVS(786)*UV(108)+JVS(787)*UV(335)+JVS(788)*UV(337)+JVS(789)*UV(345) - JUV(109) = JVS(790)*UV(109)+JVS(791)*UV(233)+JVS(792)*UV(341)+JVS(793)*UV(345) - JUV(110) = JVS(794)*UV(76)+JVS(795)*UV(110)+JVS(796)*UV(328)+JVS(797)*UV(338)+JVS(798)*UV(340)+JVS(799)*UV(345)& - &+JVS(800)*UV(347) - JUV(111) = JVS(801)*UV(111)+JVS(802)*UV(277)+JVS(803)*UV(337)+JVS(804)*UV(345) - JUV(112) = JVS(805)*UV(112)+JVS(806)*UV(275)+JVS(807)*UV(337)+JVS(808)*UV(345) - JUV(113) = JVS(809)*UV(113)+JVS(810)*UV(246)+JVS(811)*UV(335)+JVS(812)*UV(345) - JUV(114) = JVS(813)*UV(114)+JVS(814)*UV(213)+JVS(815)*UV(335)+JVS(816)*UV(345) - JUV(115) = JVS(817)*UV(115)+JVS(818)*UV(194)+JVS(819)*UV(302)+JVS(820)*UV(314)+JVS(821)*UV(341)+JVS(822)*UV(345) - JUV(116) = JVS(823)*UV(116)+JVS(824)*UV(189)+JVS(825)*UV(345)+JVS(826)*UV(346) - JUV(117) = JVS(827)*UV(90)+JVS(828)*UV(117)+JVS(829)*UV(235)+JVS(830)*UV(236)+JVS(832)*UV(337)+JVS(833)*UV(345) - JUV(118) = JVS(834)*UV(118)+JVS(835)*UV(296)+JVS(836)*UV(315)+JVS(837)*UV(337)+JVS(838)*UV(345) - JUV(119) = JVS(839)*UV(119)+JVS(840)*UV(230)+JVS(841)*UV(231)+JVS(842)*UV(301)+JVS(843)*UV(345) - JUV(120) = JVS(844)*UV(120)+JVS(845)*UV(284)+JVS(846)*UV(338)+JVS(847)*UV(345)+JVS(848)*UV(347) - JUV(121) = JVS(849)*UV(58)+JVS(850)*UV(121)+JVS(852)*UV(337)+JVS(853)*UV(345)+JVS(854)*UV(346) - JUV(122) = JVS(855)*UV(122)+JVS(856)*UV(240)+JVS(857)*UV(335)+JVS(858)*UV(345) - JUV(123) = JVS(859)*UV(123)+JVS(860)*UV(260)+JVS(861)*UV(337)+JVS(862)*UV(345) - JUV(124) = JVS(863)*UV(124)+JVS(864)*UV(322)+JVS(865)*UV(335)+JVS(866)*UV(345) - JUV(125) = JVS(867)*UV(125)+JVS(868)*UV(250)+JVS(869)*UV(337)+JVS(870)*UV(345) - JUV(126) = JVS(871)*UV(126)+JVS(872)*UV(197)+JVS(873)*UV(335)+JVS(874)*UV(345) - JUV(127) = JVS(875)*UV(127)+JVS(876)*UV(212)+JVS(877)*UV(345)+JVS(878)*UV(346) - JUV(128) = JVS(879)*UV(128)+JVS(880)*UV(199)+JVS(881)*UV(209)+JVS(882)*UV(267)+JVS(883)*UV(268)+JVS(884)*UV(345) - JUV(129) = JVS(885)*UV(112)+JVS(886)*UV(129)+JVS(887)*UV(138)+JVS(888)*UV(191)+JVS(889)*UV(275)+JVS(890)*UV(324)& - &+JVS(891)*UV(328)+JVS(893)*UV(341)+JVS(894)*UV(345)+JVS(895)*UV(346)+JVS(896)*UV(351) - JUV(130) = JVS(897)*UV(130)+JVS(898)*UV(274)+JVS(899)*UV(328)+JVS(900)*UV(337)+JVS(901)*UV(345) - JUV(131) = JVS(902)*UV(131)+JVS(903)*UV(258)+JVS(904)*UV(286)+JVS(905)*UV(337)+JVS(906)*UV(345)+JVS(907)*UV(346) - JUV(132) = JVS(908)*UV(132)+JVS(909)*UV(233)+JVS(910)*UV(337)+JVS(911)*UV(345)+JVS(912)*UV(346) - JUV(133) = JVS(913)*UV(133)+JVS(914)*UV(230)+JVS(915)*UV(337)+JVS(916)*UV(345)+JVS(917)*UV(346) - JUV(134) = JVS(918)*UV(89)+JVS(919)*UV(134)+JVS(920)*UV(179)+JVS(921)*UV(241)+JVS(922)*UV(264)+JVS(923)*UV(312)& - &+JVS(924)*UV(316)+JVS(926)*UV(333)+JVS(927)*UV(341)+JVS(928)*UV(345)+JVS(929)*UV(348) - JUV(135) = JVS(930)*UV(135)+JVS(931)*UV(231)+JVS(932)*UV(337)+JVS(933)*UV(345)+JVS(934)*UV(346) - JUV(136) = JVS(935)*UV(136)+JVS(936)*UV(234)+JVS(937)*UV(328)+JVS(938)*UV(337)+JVS(939)*UV(345) - JUV(137) = JVS(940)*UV(137)+JVS(941)*UV(277)+JVS(942)*UV(345)+JVS(943)*UV(346) - JUV(138) = JVS(944)*UV(138)+JVS(945)*UV(275)+JVS(946)*UV(345)+JVS(947)*UV(346) - JUV(139) = JVS(948)*UV(139)+JVS(949)*UV(324)+JVS(950)*UV(335)+JVS(951)*UV(345) - JUV(140) = JVS(952)*UV(140)+JVS(953)*UV(341)+JVS(954)*UV(345)+JVS(955)*UV(351) - JUV(141) = JVS(956)*UV(141)+JVS(957)*UV(340)+JVS(958)*UV(342)+JVS(959)*UV(345) - JUV(142) = JVS(960)*UV(142)+JVS(961)*UV(340)+JVS(962)*UV(345)+JVS(963)*UV(351) - JUV(143) = JVS(964)*UV(143)+JVS(965)*UV(220)+JVS(966)*UV(341)+JVS(967)*UV(345) - JUV(144) = JVS(968)*UV(144)+JVS(969)*UV(199)+JVS(970)*UV(276)+JVS(971)*UV(304)+JVS(972)*UV(345) - JUV(145) = JVS(973)*UV(145)+JVS(974)*UV(186)+JVS(975)*UV(299)+JVS(976)*UV(310)+JVS(977)*UV(311)+JVS(978)*UV(324)& - &+JVS(979)*UV(328)+JVS(980)*UV(346)+JVS(981)*UV(351) - JUV(146) = JVS(982)*UV(121)+JVS(983)*UV(146)+JVS(985)*UV(337)+JVS(986)*UV(345)+JVS(987)*UV(346) - JUV(147) = JVS(988)*UV(147)+JVS(989)*UV(285)+JVS(990)*UV(286)+JVS(991)*UV(345) - JUV(148) = JVS(992)*UV(148)+JVS(993)*UV(218)+JVS(994)*UV(316)+JVS(995)*UV(342)+JVS(996)*UV(345)+JVS(997)*UV(347)& - &+JVS(998)*UV(349)+JVS(999)*UV(350)+JVS(1000)*UV(352) - JUV(149) = JVS(1001)*UV(149)+JVS(1002)*UV(345)+JVS(1003)*UV(351) - JUV(150) = JVS(1004)*UV(150)+JVS(1005)*UV(209)+JVS(1006)*UV(276)+JVS(1007)*UV(305)+JVS(1008)*UV(345) - JUV(151) = JVS(1009)*UV(151)+JVS(1010)*UV(168)+JVS(1011)*UV(175)+JVS(1012)*UV(187)+JVS(1013)*UV(192)+JVS(1014)*UV(345) - JUV(152) = JVS(1015)*UV(152)+JVS(1016)*UV(168)+JVS(1017)*UV(175)+JVS(1018)*UV(187)+JVS(1019)*UV(192)+JVS(1020)*UV(345) - JUV(153) = JVS(1021)*UV(153)+JVS(1022)*UV(258)+JVS(1023)*UV(285)+JVS(1024)*UV(337)+JVS(1025)*UV(345)+JVS(1026)*UV(346) - JUV(154) = JVS(1027)*UV(154)+JVS(1028)*UV(242)+JVS(1029)*UV(256)+JVS(1030)*UV(341)+JVS(1031)*UV(345)+JVS(1032)*UV(351) - JUV(155) = JVS(1033)*UV(155)+JVS(1034)*UV(240)+JVS(1035)*UV(246)+JVS(1036)*UV(322)+JVS(1037)*UV(337)+JVS(1038)*UV(345) - JUV(156) = JVS(1039)*UV(156)+JVS(1040)*UV(296)+JVS(1041)*UV(315)+JVS(1042)*UV(328)+JVS(1043)*UV(340)+JVS(1044)*UV(345) - JUV(157) = JVS(1045)*UV(157)+JVS(1046)*UV(218)+JVS(1047)*UV(297)+JVS(1048)*UV(316)+JVS(1049)*UV(317)+JVS(1050)*UV(333)& - &+JVS(1051)*UV(338)+JVS(1052)*UV(339)+JVS(1053)*UV(344)+JVS(1054)*UV(347)+JVS(1055)*UV(349)+JVS(1056)*UV(350)& - &+JVS(1057)*UV(352)+JVS(1058)*UV(353) - JUV(158) = JVS(1059)*UV(82)+JVS(1060)*UV(101)+JVS(1061)*UV(149)+JVS(1062)*UV(158)+JVS(1063)*UV(200)+JVS(1064)*UV(345)& - &+JVS(1065)*UV(351) - JUV(159) = JVS(1066)*UV(159)+JVS(1067)*UV(259)+JVS(1068)*UV(337)+JVS(1069)*UV(345) - JUV(160) = JVS(1070)*UV(160)+JVS(1071)*UV(278)+JVS(1072)*UV(328)+JVS(1073)*UV(337)+JVS(1074)*UV(345) - JUV(161) = JVS(1075)*UV(161)+JVS(1076)*UV(273)+JVS(1077)*UV(328)+JVS(1078)*UV(337)+JVS(1079)*UV(345) - JUV(162) = JVS(1080)*UV(138)+JVS(1081)*UV(162)+JVS(1082)*UV(273)+JVS(1084)*UV(345)+JVS(1085)*UV(346) - JUV(163) = JVS(1086)*UV(163)+JVS(1087)*UV(255)+JVS(1088)*UV(272)+JVS(1089)*UV(328)+JVS(1090)*UV(341)+JVS(1091)*UV(345)& - &+JVS(1092)*UV(346)+JVS(1093)*UV(351) - JUV(164) = JVS(1094)*UV(164)+JVS(1095)*UV(328)+JVS(1096)*UV(337)+JVS(1097)*UV(340)+JVS(1098)*UV(345) - JUV(165) = JVS(1099)*UV(165)+JVS(1100)*UV(196)+JVS(1101)*UV(337)+JVS(1102)*UV(345)+JVS(1103)*UV(346) - JUV(166) = JVS(1104)*UV(166)+JVS(1105)*UV(327)+JVS(1106)*UV(339)+JVS(1107)*UV(341)+JVS(1108)*UV(348) - JUV(167) = JVS(1109)*UV(167)+JVS(1110)*UV(341)+JVS(1111)*UV(345)+JVS(1112)*UV(351) - JUV(168) = JVS(1113)*UV(168)+JVS(1114)*UV(304)+JVS(1115)*UV(345)+JVS(1116)*UV(346) - JUV(169) = JVS(1117)*UV(169)+JVS(1118)*UV(272)+JVS(1119)*UV(274)+JVS(1120)*UV(328)+JVS(1121)*UV(337)+JVS(1122)*UV(345) - JUV(170) = JVS(1123)*UV(62)+JVS(1124)*UV(170)+JVS(1125)*UV(252)+JVS(1126)*UV(331)+JVS(1127)*UV(332)+JVS(1128)*UV(345)& - &+JVS(1130)*UV(351) - JUV(171) = JVS(1131)*UV(171)+JVS(1132)*UV(230)+JVS(1133)*UV(301)+JVS(1134)*UV(335)+JVS(1135)*UV(337)+JVS(1136)*UV(346) - JUV(172) = JVS(1137)*UV(172)+JVS(1138)*UV(231)+JVS(1139)*UV(301)+JVS(1140)*UV(335)+JVS(1141)*UV(337)+JVS(1142)*UV(346) - JUV(173) = JVS(1143)*UV(101)+JVS(1144)*UV(173)+JVS(1145)*UV(200)+JVS(1146)*UV(201)+JVS(1147)*UV(221)+JVS(1148)*UV(240)& - &+JVS(1149)*UV(246)+JVS(1150)*UV(289)+JVS(1151)*UV(322)+JVS(1152)*UV(324)+JVS(1153)*UV(337)+JVS(1154)*UV(345) - JUV(174) = JVS(1155)*UV(174)+JVS(1156)*UV(223)+JVS(1157)*UV(224)+JVS(1158)*UV(232)+JVS(1159)*UV(337)+JVS(1160)*UV(345) - JUV(175) = JVS(1161)*UV(175)+JVS(1162)*UV(305)+JVS(1163)*UV(345)+JVS(1164)*UV(346) - JUV(176) = JVS(1165)*UV(137)+JVS(1166)*UV(176)+JVS(1168)*UV(278)+JVS(1169)*UV(345)+JVS(1170)*UV(346) - JUV(177) = JVS(1171)*UV(177)+JVS(1172)*UV(211)+JVS(1173)*UV(237)+JVS(1174)*UV(255)+JVS(1175)*UV(272)+JVS(1176)*UV(341)& - &+JVS(1177)*UV(345)+JVS(1178)*UV(346)+JVS(1179)*UV(351) - JUV(178) = JVS(1180)*UV(69)+JVS(1181)*UV(98)+JVS(1182)*UV(178)+JVS(1183)*UV(337)+JVS(1184)*UV(345)+JVS(1185)*UV(346)& - &+JVS(1186)*UV(351) - JUV(179) = JVS(1187)*UV(179)+JVS(1188)*UV(327)+JVS(1189)*UV(339)+JVS(1190)*UV(341)+JVS(1191)*UV(348) - JUV(180) = JVS(1192)*UV(180)+JVS(1193)*UV(299)+JVS(1194)*UV(337)+JVS(1195)*UV(345)+JVS(1196)*UV(346) - JUV(181) = JVS(1197)*UV(181)+JVS(1198)*UV(334)+JVS(1199)*UV(340)+JVS(1200)*UV(345) - JUV(182) = JVS(1201)*UV(182)+JVS(1202)*UV(301)+JVS(1203)*UV(303)+JVS(1204)*UV(337)+JVS(1205)*UV(345)+JVS(1206)*UV(346) - JUV(183) = JVS(1207)*UV(183)+JVS(1208)*UV(340)+JVS(1209)*UV(342)+JVS(1210)*UV(345)+JVS(1211)*UV(351) - JUV(184) = JVS(1212)*UV(184)+JVS(1213)*UV(259)+JVS(1214)*UV(308)+JVS(1215)*UV(335)+JVS(1216)*UV(345) - JUV(185) = JVS(1217)*UV(119)+JVS(1218)*UV(147)+JVS(1219)*UV(185)+JVS(1220)*UV(230)+JVS(1221)*UV(231)+JVS(1224)*UV(301)& - &+JVS(1225)*UV(345) - JUV(186) = JVS(1226)*UV(186)+JVS(1227)*UV(311)+JVS(1228)*UV(337)+JVS(1229)*UV(345) - JUV(187) = JVS(1230)*UV(187)+JVS(1231)*UV(305)+JVS(1232)*UV(337)+JVS(1233)*UV(345) - JUV(188) = JVS(1234)*UV(188)+JVS(1235)*UV(249)+JVS(1236)*UV(250)+JVS(1237)*UV(260)+JVS(1238)*UV(289)+JVS(1239)*UV(300)& - &+JVS(1240)*UV(318)+JVS(1241)*UV(319)+JVS(1242)*UV(320)+JVS(1243)*UV(321)+JVS(1244)*UV(323)+JVS(1245)*UV(328)& - &+JVS(1246)*UV(345) - JUV(189) = JVS(1247)*UV(149)+JVS(1248)*UV(189)+JVS(1249)*UV(200)+JVS(1250)*UV(220)+JVS(1251)*UV(337)+JVS(1252)*UV(345)& - &+JVS(1253)*UV(346) - JUV(190) = JVS(1255)*UV(168)+JVS(1256)*UV(190)+JVS(1258)*UV(337)+JVS(1259)*UV(345)+JVS(1260)*UV(346) - JUV(191) = JVS(1261)*UV(191)+JVS(1262)*UV(341)+JVS(1263)*UV(345)+JVS(1264)*UV(351) - JUV(192) = JVS(1265)*UV(192)+JVS(1266)*UV(304)+JVS(1267)*UV(337)+JVS(1268)*UV(345) - JUV(193) = JVS(1269)*UV(193)+JVS(1270)*UV(291)+JVS(1271)*UV(341)+JVS(1272)*UV(345)+JVS(1273)*UV(346)+JVS(1274)*UV(351) - JUV(194) = JVS(1275)*UV(194)+JVS(1276)*UV(230)+JVS(1277)*UV(231)+JVS(1278)*UV(301)+JVS(1279)*UV(303)+JVS(1280)*UV(345) - JUV(195) = JVS(1281)*UV(143)+JVS(1282)*UV(195)+JVS(1285)*UV(345)+JVS(1286)*UV(351) - JUV(196) = JVS(1287)*UV(165)+JVS(1288)*UV(178)+JVS(1289)*UV(196)+JVS(1290)*UV(337)+JVS(1291)*UV(345)+JVS(1292)*UV(346) - JUV(197) = JVS(1294)*UV(126)+JVS(1295)*UV(197)+JVS(1296)*UV(233)+JVS(1297)*UV(335)+JVS(1298)*UV(337)+JVS(1299)*UV(345)& - &+JVS(1300)*UV(346) - JUV(198) = JVS(1301)*UV(174)+JVS(1302)*UV(198)+JVS(1303)*UV(223)+JVS(1304)*UV(224)+JVS(1305)*UV(232)+JVS(1307)*UV(345) - JUV(199) = JVS(1308)*UV(199)+JVS(1309)*UV(304)+JVS(1310)*UV(337)+JVS(1311)*UV(345) - JUV(200) = JVS(1312)*UV(200)+JVS(1313)*UV(345)+JVS(1314)*UV(351) - JUV(201) = JVS(1315)*UV(82)+JVS(1316)*UV(101)+JVS(1317)*UV(149)+JVS(1318)*UV(158)+JVS(1319)*UV(200)+JVS(1320)*UV(201)& - &+JVS(1321)*UV(341)+JVS(1322)*UV(345)+JVS(1323)*UV(351) - JUV(202) = JVS(1324)*UV(158)+JVS(1325)*UV(195)+JVS(1327)*UV(202)+JVS(1329)*UV(341)+JVS(1330)*UV(345)+JVS(1331)*UV(351) - JUV(203) = JVS(1332)*UV(117)+JVS(1333)*UV(158)+JVS(1334)*UV(195)+JVS(1336)*UV(202)+JVS(1337)*UV(203)+JVS(1340)*UV(236)& - &+JVS(1341)*UV(328)+JVS(1342)*UV(335)+JVS(1344)*UV(341)+JVS(1345)*UV(345)+JVS(1346)*UV(346)+JVS(1347)*UV(351) - JUV(204) = JVS(1348)*UV(82)+JVS(1349)*UV(101)+JVS(1350)*UV(116)+JVS(1351)*UV(149)+JVS(1352)*UV(189)+JVS(1353)*UV(200)& - &+JVS(1354)*UV(204)+JVS(1355)*UV(220)+JVS(1356)*UV(337)+JVS(1357)*UV(341)+JVS(1358)*UV(345)+JVS(1359)*UV(346)& - &+JVS(1360)*UV(351) - JUV(205) = JVS(1361)*UV(175)+JVS(1362)*UV(205)+JVS(1364)*UV(337)+JVS(1365)*UV(345)+JVS(1366)*UV(346) - JUV(206) = JVS(1367)*UV(206)+JVS(1368)*UV(268)+JVS(1369)*UV(337)+JVS(1370)*UV(345)+JVS(1371)*UV(346) - JUV(207) = JVS(1372)*UV(207)+JVS(1373)*UV(267)+JVS(1374)*UV(337)+JVS(1375)*UV(345)+JVS(1376)*UV(346) - JUV(208) = JVS(1377)*UV(131)+JVS(1378)*UV(147)+JVS(1379)*UV(208)+JVS(1380)*UV(243)+JVS(1381)*UV(254)+JVS(1385)*UV(288)& - &+JVS(1386)*UV(337)+JVS(1387)*UV(345)+JVS(1388)*UV(346) - JUV(209) = JVS(1389)*UV(209)+JVS(1390)*UV(305)+JVS(1391)*UV(337)+JVS(1392)*UV(345) - JUV(210) = JVS(1393)*UV(209)+JVS(1394)*UV(210)+JVS(1395)*UV(223)+JVS(1396)*UV(226)+JVS(1397)*UV(271)+JVS(1398)*UV(276)& - &+JVS(1399)*UV(303)+JVS(1400)*UV(305)+JVS(1401)*UV(337)+JVS(1402)*UV(345)+JVS(1403)*UV(346) - JUV(211) = JVS(1404)*UV(211)+JVS(1405)*UV(281)+JVS(1406)*UV(341)+JVS(1407)*UV(345)+JVS(1408)*UV(346)+JVS(1409)*UV(351) - JUV(212) = JVS(1410)*UV(140)+JVS(1411)*UV(212)+JVS(1412)*UV(337)+JVS(1414)*UV(345)+JVS(1415)*UV(346) - JUV(213) = JVS(1417)*UV(114)+JVS(1418)*UV(213)+JVS(1419)*UV(306)+JVS(1420)*UV(335)+JVS(1421)*UV(337)+JVS(1422)*UV(345)& - &+JVS(1423)*UV(346)+JVS(1424)*UV(351) - JUV(214) = JVS(1425)*UV(214)+JVS(1426)*UV(335)+JVS(1427)*UV(336)+JVS(1428)*UV(339)+JVS(1429)*UV(344)+JVS(1430)*UV(351)& - &+JVS(1431)*UV(353) - JUV(215) = JVS(1432)*UV(128)+JVS(1433)*UV(144)+JVS(1434)*UV(150)+JVS(1435)*UV(151)+JVS(1436)*UV(152)+JVS(1439)*UV(186)& - &+JVS(1444)*UV(215)+JVS(1445)*UV(230)+JVS(1446)*UV(231)+JVS(1450)*UV(301)+JVS(1455)*UV(345) - JUV(216) = JVS(1457)*UV(206)+JVS(1458)*UV(216)+JVS(1459)*UV(226)+JVS(1460)*UV(268)+JVS(1461)*UV(271)+JVS(1462)*UV(293)& - &+JVS(1463)*UV(301)+JVS(1464)*UV(308)+JVS(1465)*UV(328)+JVS(1466)*UV(337)+JVS(1467)*UV(345)+JVS(1468)*UV(346) - JUV(217) = JVS(1469)*UV(181)+JVS(1470)*UV(217)+JVS(1471)*UV(228)+JVS(1472)*UV(325)+JVS(1473)*UV(334)+JVS(1474)*UV(337)& - &+JVS(1475)*UV(339)+JVS(1476)*UV(340)+JVS(1477)*UV(341)+JVS(1478)*UV(343)+JVS(1479)*UV(345)+JVS(1480)*UV(352) - JUV(218) = JVS(1481)*UV(218)+JVS(1482)*UV(335)+JVS(1483)*UV(336)+JVS(1484)*UV(339)+JVS(1485)*UV(342)+JVS(1486)*UV(347) - JUV(219) = JVS(1487)*UV(219)+JVS(1488)*UV(341)+JVS(1489)*UV(345)+JVS(1490)*UV(351) - JUV(220) = JVS(1491)*UV(220)+JVS(1492)*UV(341)+JVS(1493)*UV(345)+JVS(1494)*UV(351) - JUV(221) = JVS(1495)*UV(82)+JVS(1496)*UV(101)+JVS(1497)*UV(143)+JVS(1498)*UV(149)+JVS(1499)*UV(195)+JVS(1500)*UV(200)& - &+JVS(1501)*UV(202)+JVS(1503)*UV(221)+JVS(1504)*UV(269)+JVS(1505)*UV(341)+JVS(1506)*UV(345)+JVS(1507)*UV(351) - JUV(222) = JVS(1508)*UV(222)+JVS(1509)*UV(310)+JVS(1510)*UV(311)+JVS(1511)*UV(328)+JVS(1512)*UV(337)+JVS(1513)*UV(345) - JUV(223) = JVS(1514)*UV(187)+JVS(1515)*UV(209)+JVS(1516)*UV(223)+JVS(1518)*UV(337)+JVS(1519)*UV(345)+JVS(1520)*UV(346) - JUV(224) = JVS(1521)*UV(192)+JVS(1522)*UV(199)+JVS(1523)*UV(224)+JVS(1525)*UV(337)+JVS(1526)*UV(345)+JVS(1527)*UV(346) - JUV(225) = JVS(1528)*UV(111)+JVS(1529)*UV(137)+JVS(1530)*UV(191)+JVS(1531)*UV(225)+JVS(1532)*UV(277)+JVS(1533)*UV(324)& - &+JVS(1534)*UV(328)+JVS(1536)*UV(341)+JVS(1537)*UV(345)+JVS(1538)*UV(346)+JVS(1539)*UV(351) - JUV(226) = JVS(1540)*UV(186)+JVS(1541)*UV(226)+JVS(1543)*UV(337)+JVS(1544)*UV(345)+JVS(1545)*UV(346) - JUV(227) = JVS(1546)*UV(131)+JVS(1547)*UV(147)+JVS(1548)*UV(153)+JVS(1549)*UV(194)+JVS(1550)*UV(227)+JVS(1553)*UV(258)& - &+JVS(1556)*UV(288)+JVS(1558)*UV(302)+JVS(1561)*UV(345) - JUV(228) = JVS(1563)*UV(228)+JVS(1564)*UV(290)+JVS(1565)*UV(326)+JVS(1566)*UV(334)+JVS(1567)*UV(340)+JVS(1568)*UV(341)& - &+JVS(1569)*UV(345) - JUV(229) = JVS(1570)*UV(229)+JVS(1571)*UV(291)+JVS(1572)*UV(337)+JVS(1573)*UV(341)+JVS(1574)*UV(345)+JVS(1575)*UV(351) - JUV(230) = JVS(1576)*UV(209)+JVS(1577)*UV(230)+JVS(1578)*UV(276)+JVS(1579)*UV(305)+JVS(1581)*UV(345) - JUV(231) = JVS(1582)*UV(199)+JVS(1583)*UV(231)+JVS(1584)*UV(276)+JVS(1585)*UV(304)+JVS(1587)*UV(345) - JUV(232) = JVS(1588)*UV(187)+JVS(1589)*UV(192)+JVS(1590)*UV(232)+JVS(1593)*UV(337)+JVS(1594)*UV(345)+JVS(1595)*UV(346) - JUV(233) = JVS(1596)*UV(140)+JVS(1597)*UV(212)+JVS(1598)*UV(233)+JVS(1600)*UV(341)+JVS(1601)*UV(345)+JVS(1602)*UV(346)& - &+JVS(1603)*UV(351) - JUV(234) = JVS(1604)*UV(109)+JVS(1605)*UV(136)+JVS(1607)*UV(234)+JVS(1608)*UV(246)+JVS(1609)*UV(328)+JVS(1610)*UV(337)& - &+JVS(1612)*UV(345)+JVS(1613)*UV(346)+JVS(1614)*UV(351) - JUV(235) = JVS(1615)*UV(71)+JVS(1616)*UV(90)+JVS(1617)*UV(204)+JVS(1619)*UV(235)+JVS(1620)*UV(328)+JVS(1621)*UV(335)& - &+JVS(1622)*UV(337)+JVS(1624)*UV(345)+JVS(1625)*UV(346)+JVS(1626)*UV(351) - JUV(236) = JVS(1627)*UV(71)+JVS(1628)*UV(117)+JVS(1629)*UV(203)+JVS(1630)*UV(204)+JVS(1631)*UV(220)+JVS(1632)*UV(235)& - &+JVS(1633)*UV(236)+JVS(1634)*UV(328)+JVS(1635)*UV(335)+JVS(1636)*UV(337)+JVS(1637)*UV(341)+JVS(1638)*UV(345)& - &+JVS(1639)*UV(346)+JVS(1640)*UV(351) - JUV(237) = JVS(1641)*UV(237)+JVS(1642)*UV(281)+JVS(1643)*UV(324)+JVS(1644)*UV(328)+JVS(1645)*UV(337)+JVS(1646)*UV(341)& - &+JVS(1647)*UV(345)+JVS(1648)*UV(346)+JVS(1649)*UV(351) - JUV(238) = JVS(1650)*UV(199)+JVS(1651)*UV(209)+JVS(1652)*UV(238)+JVS(1653)*UV(267)+JVS(1654)*UV(268)+JVS(1655)*UV(304)& - &+JVS(1656)*UV(305)+JVS(1657)*UV(328)+JVS(1659)*UV(345)+JVS(1660)*UV(346) - JUV(239) = JVS(1661)*UV(64)+JVS(1662)*UV(65)+JVS(1665)*UV(239)+JVS(1666)*UV(252)+JVS(1667)*UV(269)+JVS(1668)*UV(297)& - &+JVS(1670)*UV(335)+JVS(1671)*UV(339)+JVS(1673)*UV(344)+JVS(1674)*UV(345)+JVS(1675)*UV(346)+JVS(1677)*UV(349)& - &+JVS(1678)*UV(350)+JVS(1680)*UV(352)+JVS(1681)*UV(353) - JUV(240) = JVS(1682)*UV(122)+JVS(1683)*UV(146)+JVS(1685)*UV(240)+JVS(1686)*UV(335)+JVS(1687)*UV(337)+JVS(1688)*UV(345)& - &+JVS(1689)*UV(346) - JUV(241) = JVS(1691)*UV(241)+JVS(1692)*UV(290)+JVS(1693)*UV(329)+JVS(1694)*UV(335)+JVS(1695)*UV(336)+JVS(1696)*UV(341)& - &+JVS(1697)*UV(346)+JVS(1698)*UV(348) - JUV(242) = JVS(1699)*UV(193)+JVS(1700)*UV(242)+JVS(1701)*UV(280)+JVS(1702)*UV(289)+JVS(1704)*UV(324)+JVS(1705)*UV(328)& - &+JVS(1706)*UV(337)+JVS(1707)*UV(341)+JVS(1708)*UV(345)+JVS(1710)*UV(351) - JUV(243) = JVS(1711)*UV(128)+JVS(1712)*UV(192)+JVS(1715)*UV(243)+JVS(1720)*UV(337)+JVS(1721)*UV(345)+JVS(1722)*UV(346) - JUV(244) = JVS(1723)*UV(199)+JVS(1724)*UV(224)+JVS(1725)*UV(226)+JVS(1726)*UV(244)+JVS(1727)*UV(271)+JVS(1728)*UV(276)& - &+JVS(1729)*UV(287)+JVS(1730)*UV(303)+JVS(1731)*UV(304)+JVS(1732)*UV(309)+JVS(1734)*UV(313)+JVS(1735)*UV(320)& - &+JVS(1736)*UV(337)+JVS(1737)*UV(345)+JVS(1738)*UV(346) - JUV(245) = JVS(1739)*UV(110)+JVS(1740)*UV(245)+JVS(1741)*UV(297)+JVS(1742)*UV(317)+JVS(1744)*UV(333)+JVS(1745)*UV(334)& - &+JVS(1746)*UV(338)+JVS(1747)*UV(339)+JVS(1748)*UV(340)+JVS(1749)*UV(344)+JVS(1750)*UV(345)+JVS(1752)*UV(353) - JUV(246) = JVS(1753)*UV(113)+JVS(1754)*UV(246)+JVS(1755)*UV(320)+JVS(1756)*UV(335)+JVS(1757)*UV(337)+JVS(1759)*UV(346) - JUV(247) = JVS(1760)*UV(125)+JVS(1761)*UV(180)+JVS(1762)*UV(182)+JVS(1763)*UV(206)+JVS(1764)*UV(216)+JVS(1765)*UV(226)& - &+JVS(1766)*UV(247)+JVS(1769)*UV(271)+JVS(1770)*UV(293)+JVS(1775)*UV(309)+JVS(1778)*UV(337)+JVS(1779)*UV(345)& - &+JVS(1780)*UV(346)+JVS(1781)*UV(351) - JUV(248) = JVS(1782)*UV(172)+JVS(1783)*UV(205)+JVS(1785)*UV(248)+JVS(1786)*UV(253)+JVS(1789)*UV(303)+JVS(1792)*UV(308)& - &+JVS(1793)*UV(335)+JVS(1794)*UV(337)+JVS(1795)*UV(345)+JVS(1796)*UV(346) - JUV(249) = JVS(1797)*UV(249)+JVS(1798)*UV(279)+JVS(1799)*UV(324)+JVS(1800)*UV(328)+JVS(1801)*UV(337)+JVS(1802)*UV(345)& - &+JVS(1803)*UV(346) - JUV(250) = JVS(1804)*UV(125)+JVS(1805)*UV(250)+JVS(1806)*UV(290)+JVS(1807)*UV(324)+JVS(1808)*UV(328)+JVS(1809)*UV(337)& - &+JVS(1810)*UV(345)+JVS(1811)*UV(346)+JVS(1812)*UV(351) - JUV(251) = JVS(1813)*UV(251)+JVS(1814)*UV(318)+JVS(1815)*UV(319)+JVS(1816)*UV(320)+JVS(1817)*UV(337)+JVS(1818)*UV(345)& - &+JVS(1819)*UV(346) - JUV(252) = JVS(1820)*UV(252)+JVS(1821)*UV(331)+JVS(1822)*UV(335)+JVS(1823)*UV(344)+JVS(1824)*UV(349)+JVS(1825)*UV(350)& - &+JVS(1826)*UV(353) - JUV(253) = JVS(1827)*UV(172)+JVS(1829)*UV(253)+JVS(1833)*UV(309)+JVS(1835)*UV(337)+JVS(1836)*UV(345)+JVS(1837)*UV(346) - JUV(254) = JVS(1838)*UV(171)+JVS(1840)*UV(254)+JVS(1844)*UV(314)+JVS(1846)*UV(337)+JVS(1847)*UV(345)+JVS(1848)*UV(346) - JUV(255) = JVS(1849)*UV(167)+JVS(1850)*UV(255)+JVS(1851)*UV(281)+JVS(1852)*UV(324)+JVS(1853)*UV(328)+JVS(1854)*UV(337)& - &+JVS(1855)*UV(341)+JVS(1856)*UV(345)+JVS(1857)*UV(346)+JVS(1858)*UV(351) - JUV(256) = JVS(1859)*UV(162)+JVS(1860)*UV(176)+JVS(1861)*UV(177)+JVS(1865)*UV(256)+JVS(1871)*UV(280)+JVS(1873)*UV(289)& - &+JVS(1874)*UV(324)+JVS(1875)*UV(328)+JVS(1876)*UV(337)+JVS(1878)*UV(345)+JVS(1879)*UV(346)+JVS(1880)*UV(351) - JUV(257) = JVS(1881)*UV(56)+JVS(1882)*UV(74)+JVS(1883)*UV(111)+JVS(1884)*UV(225)+JVS(1885)*UV(257)+JVS(1887)*UV(324)& - &+JVS(1888)*UV(328)+JVS(1889)*UV(335)+JVS(1890)*UV(337)+JVS(1892)*UV(345)+JVS(1893)*UV(346)+JVS(1894)*UV(351) - JUV(258) = JVS(1895)*UV(174)+JVS(1896)*UV(223)+JVS(1897)*UV(224)+JVS(1899)*UV(243)+JVS(1900)*UV(258)+JVS(1903)*UV(285)& - &+JVS(1904)*UV(286)+JVS(1907)*UV(337)+JVS(1908)*UV(345) - JUV(259) = JVS(1910)*UV(159)+JVS(1911)*UV(184)+JVS(1912)*UV(259)+JVS(1914)*UV(309)+JVS(1915)*UV(335)+JVS(1916)*UV(337)& - &+JVS(1917)*UV(345)+JVS(1918)*UV(346)+JVS(1919)*UV(351) - JUV(260) = JVS(1920)*UV(123)+JVS(1921)*UV(260)+JVS(1922)*UV(290)+JVS(1923)*UV(324)+JVS(1924)*UV(328)+JVS(1925)*UV(337)& - &+JVS(1926)*UV(340)+JVS(1927)*UV(342)+JVS(1928)*UV(345)+JVS(1929)*UV(346) - JUV(261) = JVS(1930)*UV(180)+JVS(1931)*UV(182)+JVS(1932)*UV(207)+JVS(1933)*UV(226)+JVS(1934)*UV(261)+JVS(1936)*UV(271)& - &+JVS(1937)*UV(293)+JVS(1940)*UV(302)+JVS(1941)*UV(303)+JVS(1943)*UV(337)+JVS(1944)*UV(345)+JVS(1945)*UV(346)& - &+JVS(1946)*UV(351) - JUV(262) = JVS(1947)*UV(193)+JVS(1948)*UV(219)+JVS(1949)*UV(229)+JVS(1950)*UV(262)+JVS(1951)*UV(291)+JVS(1952)*UV(324)& - &+JVS(1953)*UV(328)+JVS(1955)*UV(341)+JVS(1956)*UV(345)+JVS(1957)*UV(346)+JVS(1958)*UV(351) - JUV(263) = JVS(1959)*UV(82)+JVS(1960)*UV(101)+JVS(1961)*UV(137)+JVS(1962)*UV(138)+JVS(1963)*UV(143)+JVS(1964)*UV(149)& - &+JVS(1965)*UV(158)+JVS(1966)*UV(160)+JVS(1967)*UV(167)+JVS(1968)*UV(176)+JVS(1969)*UV(193)+JVS(1970)*UV(195)& - &+JVS(1971)*UV(200)+JVS(1972)*UV(202)+JVS(1973)*UV(211)+JVS(1974)*UV(219)+JVS(1975)*UV(220)+JVS(1976)*UV(229)& - &+JVS(1977)*UV(237)+JVS(1978)*UV(255)+JVS(1979)*UV(262)+JVS(1980)*UV(263)+JVS(1983)*UV(278)+JVS(1986)*UV(324)& - &+JVS(1987)*UV(328)+JVS(1988)*UV(337)+JVS(1989)*UV(341)+JVS(1990)*UV(345)+JVS(1991)*UV(346)+JVS(1992)*UV(351) - JUV(264) = JVS(1993)*UV(241)+JVS(1994)*UV(264)+JVS(1995)*UV(276)+JVS(1997)*UV(312)+JVS(1998)*UV(314)+JVS(2001)*UV(336)& - &+JVS(2002)*UV(337)+JVS(2003)*UV(340)+JVS(2004)*UV(341)+JVS(2005)*UV(343)+JVS(2006)*UV(345)+JVS(2008)*UV(348) - JUV(265) = JVS(2009)*UV(60)+JVS(2010)*UV(88)+JVS(2011)*UV(107)+JVS(2014)*UV(194)+JVS(2015)*UV(201)+JVS(2016)*UV(221)& - &+JVS(2020)*UV(265)+JVS(2024)*UV(302)+JVS(2028)*UV(306)+JVS(2029)*UV(307)+JVS(2032)*UV(312)+JVS(2034)*UV(336)& - &+JVS(2036)*UV(340)+JVS(2037)*UV(341)+JVS(2038)*UV(345) - JUV(266) = JVS(2041)*UV(190)+JVS(2042)*UV(205)+JVS(2043)*UV(206)+JVS(2044)*UV(207)+JVS(2045)*UV(226)+JVS(2046)*UV(243)& - &+JVS(2047)*UV(266)+JVS(2050)*UV(271)+JVS(2051)*UV(285)+JVS(2052)*UV(286)+JVS(2053)*UV(303)+JVS(2058)*UV(345)& - &+JVS(2059)*UV(346) - JUV(267) = JVS(2060)*UV(267)+JVS(2061)*UV(305)+JVS(2062)*UV(311)+JVS(2063)*UV(328)+JVS(2064)*UV(345)+JVS(2065)*UV(346) - JUV(268) = JVS(2066)*UV(268)+JVS(2067)*UV(304)+JVS(2068)*UV(310)+JVS(2069)*UV(311)+JVS(2070)*UV(328)+JVS(2071)*UV(345)& - &+JVS(2072)*UV(346) - JUV(269) = JVS(2073)*UV(158)+JVS(2074)*UV(195)+JVS(2076)*UV(202)+JVS(2077)*UV(203)+JVS(2081)*UV(269)+JVS(2083)*UV(335)& - &+JVS(2086)*UV(345)+JVS(2088)*UV(351) - JUV(270) = JVS(2089)*UV(60)+JVS(2090)*UV(82)+JVS(2091)*UV(101)+JVS(2092)*UV(143)+JVS(2093)*UV(185)+JVS(2094)*UV(194)& - &+JVS(2095)*UV(195)+JVS(2096)*UV(198)+JVS(2097)*UV(200)+JVS(2098)*UV(210)+JVS(2100)*UV(221)+JVS(2104)*UV(227)& - &+JVS(2108)*UV(233)+JVS(2109)*UV(258)+JVS(2113)*UV(270)+JVS(2116)*UV(285)+JVS(2124)*UV(306)+JVS(2129)*UV(337)& - &+JVS(2130)*UV(341)+JVS(2131)*UV(345)+JVS(2132)*UV(346)+JVS(2133)*UV(351) - JUV(271) = JVS(2134)*UV(222)+JVS(2135)*UV(271)+JVS(2139)*UV(337)+JVS(2140)*UV(345)+JVS(2141)*UV(346) - JUV(272) = JVS(2142)*UV(211)+JVS(2143)*UV(237)+JVS(2144)*UV(272)+JVS(2147)*UV(328)+JVS(2148)*UV(337)+JVS(2149)*UV(341)& - &+JVS(2150)*UV(345)+JVS(2151)*UV(346)+JVS(2152)*UV(351) - JUV(273) = JVS(2153)*UV(129)+JVS(2155)*UV(161)+JVS(2156)*UV(191)+JVS(2157)*UV(273)+JVS(2160)*UV(328)+JVS(2161)*UV(337)& - &+JVS(2162)*UV(341)+JVS(2163)*UV(345)+JVS(2164)*UV(346)+JVS(2165)*UV(351) - JUV(274) = JVS(2166)*UV(57)+JVS(2167)*UV(161)+JVS(2168)*UV(162)+JVS(2169)*UV(163)+JVS(2170)*UV(167)+JVS(2171)*UV(169)& - &+JVS(2172)*UV(177)+JVS(2173)*UV(211)+JVS(2174)*UV(237)+JVS(2175)*UV(255)+JVS(2177)*UV(273)+JVS(2178)*UV(274)& - &+JVS(2181)*UV(324)+JVS(2182)*UV(328)+JVS(2183)*UV(335)+JVS(2184)*UV(337)+JVS(2185)*UV(341)+JVS(2186)*UV(345)& - &+JVS(2187)*UV(346)+JVS(2188)*UV(351) - JUV(275) = JVS(2189)*UV(112)+JVS(2190)*UV(191)+JVS(2191)*UV(219)+JVS(2192)*UV(275)+JVS(2193)*UV(324)+JVS(2194)*UV(328)& - &+JVS(2195)*UV(337)+JVS(2197)*UV(345)+JVS(2198)*UV(346)+JVS(2199)*UV(351) - JUV(276) = JVS(2200)*UV(276)+JVS(2201)*UV(340)+JVS(2202)*UV(341)+JVS(2203)*UV(345)+JVS(2204)*UV(351) - JUV(277) = JVS(2205)*UV(111)+JVS(2206)*UV(191)+JVS(2207)*UV(219)+JVS(2208)*UV(277)+JVS(2209)*UV(324)+JVS(2210)*UV(328)& - &+JVS(2211)*UV(337)+JVS(2212)*UV(341)+JVS(2213)*UV(345)+JVS(2214)*UV(346)+JVS(2215)*UV(351) - JUV(278) = JVS(2216)*UV(66)+JVS(2217)*UV(74)+JVS(2218)*UV(160)+JVS(2219)*UV(225)+JVS(2220)*UV(257)+JVS(2222)*UV(278)& - &+JVS(2223)*UV(324)+JVS(2224)*UV(328)+JVS(2226)*UV(337)+JVS(2228)*UV(345)+JVS(2229)*UV(346)+JVS(2230)*UV(351) - JUV(279) = JVS(2231)*UV(249)+JVS(2232)*UV(279)+JVS(2233)*UV(300)+JVS(2234)*UV(320)+JVS(2237)*UV(337)+JVS(2238)*UV(345)& - &+JVS(2239)*UV(346) - JUV(280) = JVS(2240)*UV(167)+JVS(2241)*UV(191)+JVS(2242)*UV(193)+JVS(2243)*UV(219)+JVS(2244)*UV(229)+JVS(2245)*UV(262)& - &+JVS(2246)*UV(280)+JVS(2247)*UV(289)+JVS(2249)*UV(324)+JVS(2250)*UV(328)+JVS(2251)*UV(337)+JVS(2254)*UV(346)& - &+JVS(2255)*UV(351) - JUV(281) = JVS(2256)*UV(167)+JVS(2257)*UV(191)+JVS(2258)*UV(219)+JVS(2259)*UV(281)+JVS(2260)*UV(324)+JVS(2261)*UV(328)& - &+JVS(2262)*UV(337)+JVS(2264)*UV(345)+JVS(2265)*UV(346)+JVS(2266)*UV(351) - JUV(282) = JVS(2267)*UV(234)+JVS(2269)*UV(249)+JVS(2270)*UV(250)+JVS(2271)*UV(260)+JVS(2272)*UV(272)+JVS(2273)*UV(273)& - &+JVS(2274)*UV(275)+JVS(2275)*UV(277)+JVS(2276)*UV(278)+JVS(2278)*UV(281)+JVS(2279)*UV(282)+JVS(2280)*UV(289)& - &+JVS(2282)*UV(291)+JVS(2283)*UV(296)+JVS(2284)*UV(300)+JVS(2285)*UV(306)+JVS(2286)*UV(310)+JVS(2287)*UV(311)& - &+JVS(2288)*UV(313)+JVS(2289)*UV(315)+JVS(2290)*UV(318)+JVS(2291)*UV(319)+JVS(2292)*UV(320)+JVS(2293)*UV(321)& - &+JVS(2294)*UV(323)+JVS(2296)*UV(328)+JVS(2299)*UV(340)+JVS(2302)*UV(345) - JUV(283) = JVS(2305)*UV(201)+JVS(2306)*UV(241)+JVS(2307)*UV(249)+JVS(2308)*UV(250)+JVS(2309)*UV(260)+JVS(2310)*UV(275)& - &+JVS(2311)*UV(277)+JVS(2313)*UV(281)+JVS(2314)*UV(283)+JVS(2316)*UV(291)+JVS(2317)*UV(296)+JVS(2318)*UV(300)& - &+JVS(2319)*UV(307)+JVS(2320)*UV(313)+JVS(2321)*UV(315)+JVS(2322)*UV(318)+JVS(2323)*UV(319)+JVS(2324)*UV(320)& - &+JVS(2325)*UV(321)+JVS(2326)*UV(323)+JVS(2327)*UV(324)+JVS(2328)*UV(328)+JVS(2331)*UV(336)+JVS(2332)*UV(337)& - &+JVS(2333)*UV(340)+JVS(2334)*UV(341)+JVS(2336)*UV(345) - JUV(284) = JVS(2340)*UV(44)+JVS(2341)*UV(55)+JVS(2342)*UV(96)+JVS(2343)*UV(284)+JVS(2344)*UV(330)+JVS(2345)*UV(331)& - &+JVS(2346)*UV(332)+JVS(2347)*UV(335)+JVS(2348)*UV(337)+JVS(2349)*UV(338)+JVS(2350)*UV(341)+JVS(2351)*UV(345)& - &+JVS(2352)*UV(346)+JVS(2353)*UV(347) - JUV(285) = JVS(2354)*UV(147)+JVS(2355)*UV(151)+JVS(2356)*UV(152)+JVS(2361)*UV(238)+JVS(2364)*UV(285)+JVS(2371)*UV(337)& - &+JVS(2372)*UV(345)+JVS(2373)*UV(346) - JUV(286) = JVS(2374)*UV(147)+JVS(2375)*UV(151)+JVS(2376)*UV(152)+JVS(2381)*UV(238)+JVS(2385)*UV(286)+JVS(2391)*UV(337)& - &+JVS(2392)*UV(345)+JVS(2393)*UV(346) - JUV(287) = JVS(2394)*UV(144)+JVS(2395)*UV(192)+JVS(2396)*UV(198)+JVS(2398)*UV(223)+JVS(2400)*UV(231)+JVS(2402)*UV(238)& - &+JVS(2403)*UV(253)+JVS(2404)*UV(258)+JVS(2405)*UV(266)+JVS(2406)*UV(267)+JVS(2408)*UV(271)+JVS(2412)*UV(287)& - &+JVS(2414)*UV(303)+JVS(2415)*UV(304)+JVS(2416)*UV(305)+JVS(2420)*UV(328)+JVS(2422)*UV(337)+JVS(2425)*UV(345)& - &+JVS(2426)*UV(346) - JUV(288) = JVS(2428)*UV(150)+JVS(2429)*UV(187)+JVS(2430)*UV(198)+JVS(2433)*UV(224)+JVS(2434)*UV(230)+JVS(2436)*UV(238)& - &+JVS(2437)*UV(254)+JVS(2438)*UV(266)+JVS(2440)*UV(268)+JVS(2441)*UV(271)+JVS(2445)*UV(288)+JVS(2448)*UV(304)& - &+JVS(2449)*UV(305)+JVS(2453)*UV(328)+JVS(2455)*UV(337)+JVS(2458)*UV(345)+JVS(2459)*UV(346) - JUV(289) = JVS(2461)*UV(167)+JVS(2462)*UV(191)+JVS(2463)*UV(219)+JVS(2464)*UV(280)+JVS(2465)*UV(289)+JVS(2467)*UV(324)& - &+JVS(2468)*UV(328)+JVS(2469)*UV(337)+JVS(2472)*UV(346)+JVS(2473)*UV(351) - JUV(290) = JVS(2474)*UV(290)+JVS(2475)*UV(314)+JVS(2476)*UV(340)+JVS(2477)*UV(341)+JVS(2478)*UV(342)+JVS(2479)*UV(345)& - &+JVS(2480)*UV(351) - JUV(291) = JVS(2481)*UV(219)+JVS(2482)*UV(291)+JVS(2483)*UV(324)+JVS(2484)*UV(328)+JVS(2485)*UV(337)+JVS(2487)*UV(345)& - &+JVS(2488)*UV(346)+JVS(2489)*UV(351) - JUV(292) = JVS(2490)*UV(160)+JVS(2491)*UV(176)+JVS(2492)*UV(178)+JVS(2493)*UV(219)+JVS(2494)*UV(251)+JVS(2495)*UV(256)& - &+JVS(2496)*UV(262)+JVS(2501)*UV(278)+JVS(2502)*UV(279)+JVS(2503)*UV(280)+JVS(2505)*UV(289)+JVS(2507)*UV(292)& - &+JVS(2508)*UV(300)+JVS(2510)*UV(319)+JVS(2511)*UV(320)+JVS(2512)*UV(324)+JVS(2513)*UV(328)+JVS(2516)*UV(341)& - &+JVS(2517)*UV(345)+JVS(2518)*UV(346)+JVS(2519)*UV(351) - JUV(293) = JVS(2520)*UV(145)+JVS(2522)*UV(222)+JVS(2523)*UV(293)+JVS(2525)*UV(303)+JVS(2530)*UV(337)+JVS(2531)*UV(345)& - &+JVS(2532)*UV(346) - JUV(294) = JVS(2534)*UV(82)+JVS(2535)*UV(101)+JVS(2536)*UV(107)+JVS(2539)*UV(185)+JVS(2540)*UV(194)+JVS(2541)*UV(198)& - &+JVS(2542)*UV(199)+JVS(2543)*UV(200)+JVS(2544)*UV(201)+JVS(2545)*UV(209)+JVS(2546)*UV(215)+JVS(2549)*UV(227)& - &+JVS(2550)*UV(230)+JVS(2551)*UV(231)+JVS(2553)*UV(238)+JVS(2554)*UV(244)+JVS(2555)*UV(247)+JVS(2557)*UV(253)& - &+JVS(2558)*UV(254)+JVS(2559)*UV(258)+JVS(2561)*UV(266)+JVS(2565)*UV(276)+JVS(2567)*UV(286)+JVS(2568)*UV(287)& - &+JVS(2569)*UV(288)+JVS(2572)*UV(294)+JVS(2575)*UV(302)+JVS(2577)*UV(304)+JVS(2578)*UV(305)+JVS(2579)*UV(307)& - &+JVS(2581)*UV(309)+JVS(2584)*UV(313)+JVS(2585)*UV(314)+JVS(2587)*UV(324)+JVS(2588)*UV(328)+JVS(2590)*UV(337)& - &+JVS(2592)*UV(341)+JVS(2594)*UV(345)+JVS(2595)*UV(346)+JVS(2596)*UV(351) - JUV(295) = JVS(2597)*UV(91)+JVS(2598)*UV(100)+JVS(2599)*UV(160)+JVS(2600)*UV(161)+JVS(2601)*UV(162)+JVS(2602)*UV(176)& - &+JVS(2603)*UV(219)+JVS(2604)*UV(229)+JVS(2605)*UV(251)+JVS(2606)*UV(262)+JVS(2607)*UV(273)+JVS(2610)*UV(278)& - &+JVS(2611)*UV(279)+JVS(2612)*UV(291)+JVS(2613)*UV(295)+JVS(2614)*UV(300)+JVS(2616)*UV(319)+JVS(2618)*UV(323)& - &+JVS(2619)*UV(324)+JVS(2620)*UV(328)+JVS(2623)*UV(340)+JVS(2624)*UV(341)+JVS(2625)*UV(342)+JVS(2626)*UV(345)& - &+JVS(2627)*UV(346)+JVS(2628)*UV(351) - JUV(296) = JVS(2629)*UV(173)+JVS(2630)*UV(183)+JVS(2639)*UV(296)+JVS(2642)*UV(324)+JVS(2643)*UV(328)+JVS(2645)*UV(337)& - &+JVS(2646)*UV(340)+JVS(2648)*UV(342)+JVS(2649)*UV(345)+JVS(2650)*UV(346)+JVS(2651)*UV(351) - JUV(297) = JVS(2652)*UV(214)+JVS(2653)*UV(297)+JVS(2656)*UV(339)+JVS(2657)*UV(344)+JVS(2658)*UV(345)+JVS(2659)*UV(349)& - &+JVS(2660)*UV(350)+JVS(2662)*UV(352)+JVS(2663)*UV(353) - JUV(298) = JVS(2664)*UV(95)+JVS(2665)*UV(97)+JVS(2666)*UV(98)+JVS(2667)*UV(99)+JVS(2668)*UV(102)+JVS(2669)*UV(125)& - &+JVS(2670)*UV(130)+JVS(2671)*UV(161)+JVS(2672)*UV(162)+JVS(2673)*UV(165)+JVS(2674)*UV(169)+JVS(2675)*UV(178)& - &+JVS(2676)*UV(188)+JVS(2677)*UV(196)+JVS(2678)*UV(201)+JVS(2679)*UV(212)+JVS(2680)*UV(219)+JVS(2681)*UV(221)& - &+JVS(2682)*UV(229)+JVS(2683)*UV(242)+JVS(2684)*UV(249)+JVS(2685)*UV(250)+JVS(2686)*UV(251)+JVS(2687)*UV(260)& - &+JVS(2690)*UV(273)+JVS(2691)*UV(274)+JVS(2693)*UV(279)+JVS(2694)*UV(280)+JVS(2696)*UV(289)+JVS(2699)*UV(298)& - &+JVS(2700)*UV(300)+JVS(2702)*UV(318)+JVS(2703)*UV(319)+JVS(2705)*UV(321)+JVS(2707)*UV(324)+JVS(2708)*UV(328)& - &+JVS(2710)*UV(337)+JVS(2712)*UV(341)+JVS(2714)*UV(345)+JVS(2715)*UV(346)+JVS(2716)*UV(351) - JUV(299) = JVS(2717)*UV(180)+JVS(2718)*UV(190)+JVS(2719)*UV(205)+JVS(2720)*UV(206)+JVS(2721)*UV(207)+JVS(2722)*UV(226)& - &+JVS(2725)*UV(271)+JVS(2726)*UV(293)+JVS(2727)*UV(299)+JVS(2731)*UV(310)+JVS(2732)*UV(311)+JVS(2735)*UV(337)& - &+JVS(2736)*UV(345)+JVS(2737)*UV(346) - JUV(300) = JVS(2739)*UV(102)+JVS(2740)*UV(142)+JVS(2741)*UV(201)+JVS(2742)*UV(300)+JVS(2743)*UV(324)+JVS(2744)*UV(328)& - &+JVS(2745)*UV(337)+JVS(2746)*UV(340)+JVS(2748)*UV(345)+JVS(2749)*UV(346)+JVS(2750)*UV(351) - JUV(301) = JVS(2751)*UV(145)+JVS(2752)*UV(186)+JVS(2753)*UV(267)+JVS(2754)*UV(268)+JVS(2755)*UV(299)+JVS(2756)*UV(301)& - &+JVS(2760)*UV(310)+JVS(2761)*UV(311)+JVS(2762)*UV(324)+JVS(2763)*UV(328)+JVS(2765)*UV(345)+JVS(2766)*UV(346)& - &+JVS(2767)*UV(351) - JUV(302) = JVS(2768)*UV(171)+JVS(2769)*UV(190)+JVS(2770)*UV(207)+JVS(2771)*UV(226)+JVS(2773)*UV(254)+JVS(2774)*UV(267)& - &+JVS(2775)*UV(271)+JVS(2777)*UV(293)+JVS(2779)*UV(301)+JVS(2780)*UV(302)+JVS(2781)*UV(303)+JVS(2789)*UV(335)& - &+JVS(2790)*UV(337)+JVS(2793)*UV(345)+JVS(2794)*UV(346) - JUV(303) = JVS(2796)*UV(186)+JVS(2797)*UV(190)+JVS(2798)*UV(205)+JVS(2799)*UV(206)+JVS(2800)*UV(207)+JVS(2801)*UV(222)& - &+JVS(2802)*UV(223)+JVS(2803)*UV(224)+JVS(2804)*UV(226)+JVS(2805)*UV(232)+JVS(2808)*UV(271)+JVS(2809)*UV(293)& - &+JVS(2810)*UV(299)+JVS(2811)*UV(303)+JVS(2818)*UV(337)+JVS(2819)*UV(345)+JVS(2820)*UV(346) - JUV(304) = JVS(2822)*UV(186)+JVS(2823)*UV(192)+JVS(2824)*UV(199)+JVS(2825)*UV(276)+JVS(2826)*UV(304)+JVS(2827)*UV(305)& - &+JVS(2829)*UV(328)+JVS(2830)*UV(337)+JVS(2831)*UV(340)+JVS(2833)*UV(345)+JVS(2834)*UV(346) - JUV(305) = JVS(2836)*UV(186)+JVS(2837)*UV(187)+JVS(2838)*UV(209)+JVS(2839)*UV(276)+JVS(2840)*UV(304)+JVS(2841)*UV(305)& - &+JVS(2843)*UV(328)+JVS(2844)*UV(337)+JVS(2845)*UV(340)+JVS(2847)*UV(345)+JVS(2848)*UV(346) - JUV(306) = JVS(2850)*UV(70)+JVS(2851)*UV(106)+JVS(2852)*UV(113)+JVS(2853)*UV(126)+JVS(2854)*UV(127)+JVS(2855)*UV(132)& - &+JVS(2856)*UV(136)+JVS(2857)*UV(174)+JVS(2858)*UV(180)+JVS(2859)*UV(197)+JVS(2860)*UV(198)+JVS(2861)*UV(201)& - &+JVS(2862)*UV(202)+JVS(2863)*UV(205)+JVS(2864)*UV(206)+JVS(2865)*UV(212)+JVS(2867)*UV(221)+JVS(2869)*UV(224)& - &+JVS(2870)*UV(232)+JVS(2872)*UV(234)+JVS(2874)*UV(254)+JVS(2875)*UV(258)+JVS(2876)*UV(262)+JVS(2877)*UV(266)& - &+JVS(2881)*UV(271)+JVS(2884)*UV(286)+JVS(2885)*UV(288)+JVS(2887)*UV(293)+JVS(2888)*UV(299)+JVS(2890)*UV(302)& - &+JVS(2891)*UV(303)+JVS(2894)*UV(306)+JVS(2900)*UV(328)+JVS(2902)*UV(337)+JVS(2904)*UV(341)+JVS(2905)*UV(345)& - &+JVS(2906)*UV(346)+JVS(2907)*UV(351) - JUV(307) = JVS(2908)*UV(123)+JVS(2909)*UV(153)+JVS(2910)*UV(154)+JVS(2911)*UV(159)+JVS(2912)*UV(174)+JVS(2913)*UV(184)& - &+JVS(2914)*UV(198)+JVS(2915)*UV(205)+JVS(2916)*UV(207)+JVS(2917)*UV(215)+JVS(2918)*UV(223)+JVS(2922)*UV(232)& - &+JVS(2924)*UV(243)+JVS(2925)*UV(248)+JVS(2926)*UV(253)+JVS(2928)*UV(258)+JVS(2930)*UV(260)+JVS(2933)*UV(271)& - &+JVS(2942)*UV(285)+JVS(2944)*UV(287)+JVS(2948)*UV(293)+JVS(2949)*UV(299)+JVS(2951)*UV(303)+JVS(2954)*UV(307)& - &+JVS(2955)*UV(308)+JVS(2959)*UV(313)+JVS(2961)*UV(324)+JVS(2962)*UV(328)+JVS(2964)*UV(337)+JVS(2968)*UV(345)& - &+JVS(2969)*UV(346)+JVS(2970)*UV(351) - JUV(308) = JVS(2971)*UV(248)+JVS(2978)*UV(308)+JVS(2983)*UV(328)+JVS(2984)*UV(335)+JVS(2985)*UV(337)+JVS(2988)*UV(345)& - &+JVS(2989)*UV(346)+JVS(2990)*UV(351) - JUV(309) = JVS(2991)*UV(135)+JVS(2992)*UV(144)+JVS(2993)*UV(168)+JVS(2994)*UV(192)+JVS(2996)*UV(222)+JVS(2997)*UV(231)& - &+JVS(2998)*UV(276)+JVS(2999)*UV(299)+JVS(3001)*UV(304)+JVS(3002)*UV(305)+JVS(3003)*UV(309)+JVS(3004)*UV(310)& - &+JVS(3005)*UV(311)+JVS(3006)*UV(324)+JVS(3007)*UV(328)+JVS(3008)*UV(337)+JVS(3010)*UV(341)+JVS(3011)*UV(345)& - &+JVS(3012)*UV(346)+JVS(3013)*UV(351) - JUV(310) = JVS(3014)*UV(222)+JVS(3015)*UV(276)+JVS(3016)*UV(310)+JVS(3017)*UV(311)+JVS(3018)*UV(324)+JVS(3019)*UV(328)& - &+JVS(3020)*UV(337)+JVS(3023)*UV(345)+JVS(3024)*UV(346)+JVS(3025)*UV(351) - JUV(311) = JVS(3026)*UV(186)+JVS(3027)*UV(276)+JVS(3028)*UV(310)+JVS(3029)*UV(311)+JVS(3030)*UV(324)+JVS(3031)*UV(328)& - &+JVS(3032)*UV(337)+JVS(3035)*UV(345)+JVS(3036)*UV(346)+JVS(3037)*UV(351) - JUV(312) = JVS(3038)*UV(109)+JVS(3039)*UV(191)+JVS(3040)*UV(220)+JVS(3042)*UV(255)+JVS(3043)*UV(276)+JVS(3045)*UV(290)& - &+JVS(3046)*UV(309)+JVS(3049)*UV(312)+JVS(3050)*UV(314)+JVS(3053)*UV(329)+JVS(3054)*UV(335)+JVS(3055)*UV(336)& - &+JVS(3058)*UV(341)+JVS(3061)*UV(346)+JVS(3062)*UV(348) - JUV(313) = JVS(3064)*UV(244)+JVS(3068)*UV(295)+JVS(3077)*UV(313)+JVS(3082)*UV(324)+JVS(3083)*UV(328)+JVS(3085)*UV(337)& - &+JVS(3086)*UV(340)+JVS(3088)*UV(342)+JVS(3089)*UV(345)+JVS(3090)*UV(346) - JUV(314) = JVS(3092)*UV(82)+JVS(3093)*UV(101)+JVS(3094)*UV(133)+JVS(3095)*UV(150)+JVS(3096)*UV(175)+JVS(3097)*UV(187)& - &+JVS(3099)*UV(219)+JVS(3100)*UV(222)+JVS(3101)*UV(229)+JVS(3102)*UV(230)+JVS(3103)*UV(262)+JVS(3104)*UV(276)& - &+JVS(3105)*UV(291)+JVS(3106)*UV(299)+JVS(3108)*UV(304)+JVS(3109)*UV(305)+JVS(3110)*UV(310)+JVS(3111)*UV(311)& - &+JVS(3112)*UV(314)+JVS(3113)*UV(324)+JVS(3114)*UV(328)+JVS(3115)*UV(337)+JVS(3117)*UV(341)+JVS(3118)*UV(345)& - &+JVS(3119)*UV(346)+JVS(3120)*UV(351) - JUV(315) = JVS(3121)*UV(118)+JVS(3122)*UV(251)+JVS(3123)*UV(279)+JVS(3124)*UV(292)+JVS(3126)*UV(298)+JVS(3127)*UV(300)& - &+JVS(3129)*UV(315)+JVS(3131)*UV(319)+JVS(3134)*UV(322)+JVS(3136)*UV(324)+JVS(3137)*UV(328)+JVS(3139)*UV(337)& - &+JVS(3140)*UV(340)+JVS(3143)*UV(345)+JVS(3144)*UV(346) - JUV(316) = JVS(3146)*UV(148)+JVS(3147)*UV(218)+JVS(3148)*UV(316)+JVS(3150)*UV(336)+JVS(3151)*UV(337)+JVS(3152)*UV(339)& - &+JVS(3153)*UV(341)+JVS(3155)*UV(343)+JVS(3156)*UV(344)+JVS(3157)*UV(345)+JVS(3158)*UV(347)+JVS(3159)*UV(348)& - &+JVS(3160)*UV(349)+JVS(3161)*UV(350)+JVS(3162)*UV(352)+JVS(3163)*UV(353) - JUV(317) = JVS(3164)*UV(317)+JVS(3165)*UV(335)+JVS(3166)*UV(336)+JVS(3167)*UV(338)+JVS(3168)*UV(339)+JVS(3169)*UV(340)& - &+JVS(3170)*UV(343)+JVS(3171)*UV(344)+JVS(3172)*UV(345)+JVS(3173)*UV(349)+JVS(3174)*UV(350)+JVS(3175)*UV(352)& - &+JVS(3176)*UV(353) - JUV(318) = JVS(3177)*UV(251)+JVS(3178)*UV(269)+JVS(3179)*UV(318)+JVS(3182)*UV(324)+JVS(3183)*UV(328)+JVS(3185)*UV(337)& - &+JVS(3187)*UV(345)+JVS(3188)*UV(346)+JVS(3189)*UV(351) - JUV(319) = JVS(3190)*UV(97)+JVS(3191)*UV(130)+JVS(3192)*UV(142)+JVS(3193)*UV(161)+JVS(3194)*UV(162)+JVS(3195)*UV(169)& - &+JVS(3196)*UV(178)+JVS(3197)*UV(249)+JVS(3199)*UV(273)+JVS(3200)*UV(274)+JVS(3205)*UV(318)+JVS(3206)*UV(319)& - &+JVS(3208)*UV(324)+JVS(3209)*UV(328)+JVS(3211)*UV(337)+JVS(3214)*UV(345)+JVS(3215)*UV(346)+JVS(3216)*UV(351) - JUV(320) = JVS(3217)*UV(219)+JVS(3218)*UV(292)+JVS(3222)*UV(320)+JVS(3223)*UV(324)+JVS(3224)*UV(328)+JVS(3226)*UV(337)& - &+JVS(3228)*UV(341)+JVS(3229)*UV(345)+JVS(3230)*UV(346)+JVS(3231)*UV(351) - JUV(321) = JVS(3232)*UV(99)+JVS(3233)*UV(141)+JVS(3234)*UV(251)+JVS(3235)*UV(279)+JVS(3236)*UV(292)+JVS(3237)*UV(298)& - &+JVS(3238)*UV(300)+JVS(3241)*UV(319)+JVS(3243)*UV(321)+JVS(3244)*UV(322)+JVS(3246)*UV(324)+JVS(3247)*UV(328)& - &+JVS(3249)*UV(337)+JVS(3250)*UV(340)+JVS(3252)*UV(342)+JVS(3253)*UV(345)+JVS(3254)*UV(346) - JUV(322) = JVS(3256)*UV(124)+JVS(3257)*UV(155)+JVS(3258)*UV(160)+JVS(3259)*UV(176)+JVS(3260)*UV(196)+JVS(3261)*UV(201)& - &+JVS(3262)*UV(221)+JVS(3263)*UV(240)+JVS(3267)*UV(278)+JVS(3268)*UV(292)+JVS(3269)*UV(298)+JVS(3271)*UV(314)& - &+JVS(3276)*UV(322)+JVS(3278)*UV(324)+JVS(3279)*UV(328)+JVS(3280)*UV(335)+JVS(3281)*UV(337)+JVS(3285)*UV(345)& - &+JVS(3286)*UV(346)+JVS(3287)*UV(351) - JUV(323) = JVS(3288)*UV(100)+JVS(3289)*UV(141)+JVS(3290)*UV(251)+JVS(3291)*UV(279)+JVS(3292)*UV(292)+JVS(3293)*UV(298)& - &+JVS(3294)*UV(300)+JVS(3297)*UV(319)+JVS(3300)*UV(322)+JVS(3301)*UV(323)+JVS(3302)*UV(324)+JVS(3303)*UV(328)& - &+JVS(3305)*UV(337)+JVS(3306)*UV(340)+JVS(3309)*UV(345)+JVS(3310)*UV(346) - JUV(324) = JVS(3312)*UV(92)+JVS(3313)*UV(107)+JVS(3314)*UV(115)+JVS(3315)*UV(122)+JVS(3316)*UV(130)+JVS(3317)*UV(139)& - &+JVS(3318)*UV(146)+JVS(3319)*UV(159)+JVS(3320)*UV(169)+JVS(3322)*UV(185)+JVS(3323)*UV(194)+JVS(3324)*UV(196)& - &+JVS(3326)*UV(208)+JVS(3327)*UV(209)+JVS(3328)*UV(227)+JVS(3333)*UV(244)+JVS(3334)*UV(247)+JVS(3335)*UV(249)& - &+JVS(3336)*UV(250)+JVS(3337)*UV(254)+JVS(3338)*UV(257)+JVS(3340)*UV(259)+JVS(3341)*UV(260)+JVS(3342)*UV(261)& - &+JVS(3343)*UV(263)+JVS(3348)*UV(274)+JVS(3349)*UV(275)+JVS(3350)*UV(276)+JVS(3351)*UV(277)+JVS(3354)*UV(280)& - &+JVS(3355)*UV(281)+JVS(3359)*UV(288)+JVS(3360)*UV(289)+JVS(3362)*UV(291)+JVS(3363)*UV(292)+JVS(3365)*UV(294)& - &+JVS(3366)*UV(295)+JVS(3367)*UV(296)+JVS(3369)*UV(300)+JVS(3371)*UV(302)+JVS(3374)*UV(305)+JVS(3375)*UV(307)& - &+JVS(3377)*UV(309)+JVS(3378)*UV(310)+JVS(3379)*UV(311)+JVS(3380)*UV(313)+JVS(3381)*UV(314)+JVS(3382)*UV(315)& - &+JVS(3383)*UV(318)+JVS(3384)*UV(319)+JVS(3385)*UV(320)+JVS(3386)*UV(321)+JVS(3387)*UV(322)+JVS(3388)*UV(323)& - &+JVS(3389)*UV(324)+JVS(3390)*UV(326)+JVS(3391)*UV(328)+JVS(3392)*UV(335)+JVS(3393)*UV(337)+JVS(3395)*UV(341)& - &+JVS(3396)*UV(342)+JVS(3397)*UV(345)+JVS(3398)*UV(346)+JVS(3399)*UV(351) - JUV(325) = JVS(3400)*UV(72)+JVS(3401)*UV(80)+JVS(3402)*UV(88)+JVS(3403)*UV(89)+JVS(3404)*UV(92)+JVS(3405)*UV(93)& - &+JVS(3406)*UV(94)+JVS(3407)*UV(106)+JVS(3408)*UV(109)+JVS(3409)*UV(112)+JVS(3410)*UV(114)+JVS(3411)*UV(122)& - &+JVS(3412)*UV(123)+JVS(3413)*UV(127)+JVS(3414)*UV(130)+JVS(3416)*UV(137)+JVS(3417)*UV(138)+JVS(3418)*UV(139)& - &+JVS(3419)*UV(140)+JVS(3420)*UV(146)+JVS(3421)*UV(149)+JVS(3422)*UV(159)+JVS(3423)*UV(160)+JVS(3424)*UV(164)& - &+JVS(3425)*UV(165)+JVS(3426)*UV(168)+JVS(3427)*UV(169)+JVS(3428)*UV(175)+JVS(3429)*UV(176)+JVS(3430)*UV(187)& - &+JVS(3431)*UV(190)+JVS(3432)*UV(191)+JVS(3433)*UV(192)+JVS(3435)*UV(197)+JVS(3436)*UV(199)+JVS(3437)*UV(200)& - &+JVS(3438)*UV(205)+JVS(3439)*UV(206)+JVS(3440)*UV(207)+JVS(3441)*UV(208)+JVS(3442)*UV(209)+JVS(3443)*UV(210)& - &+JVS(3444)*UV(211)+JVS(3445)*UV(212)+JVS(3446)*UV(213)+JVS(3447)*UV(215)+JVS(3448)*UV(219)+JVS(3449)*UV(220)& - &+JVS(3450)*UV(222)+JVS(3451)*UV(223)+JVS(3452)*UV(224)+JVS(3453)*UV(226)+JVS(3454)*UV(228)+JVS(3455)*UV(229)& - &+JVS(3456)*UV(230)+JVS(3457)*UV(231)+JVS(3458)*UV(233)+JVS(3459)*UV(234)+JVS(3460)*UV(235)+JVS(3461)*UV(236)& - &+JVS(3463)*UV(243)+JVS(3464)*UV(244)+JVS(3466)*UV(247)+JVS(3467)*UV(249)+JVS(3468)*UV(250)+JVS(3469)*UV(253)& - &+JVS(3470)*UV(254)+JVS(3471)*UV(255)+JVS(3472)*UV(257)+JVS(3473)*UV(258)+JVS(3474)*UV(259)+JVS(3475)*UV(260)& - &+JVS(3476)*UV(261)+JVS(3477)*UV(262)+JVS(3478)*UV(263)+JVS(3481)*UV(270)+JVS(3482)*UV(271)+JVS(3483)*UV(272)& - &+JVS(3484)*UV(273)+JVS(3485)*UV(274)+JVS(3486)*UV(275)+JVS(3487)*UV(276)+JVS(3488)*UV(277)+JVS(3489)*UV(278)& - &+JVS(3491)*UV(280)+JVS(3492)*UV(281)+JVS(3493)*UV(282)+JVS(3496)*UV(287)+JVS(3497)*UV(288)+JVS(3498)*UV(289)& - &+JVS(3499)*UV(290)+JVS(3500)*UV(291)+JVS(3501)*UV(293)+JVS(3502)*UV(296)+JVS(3503)*UV(299)+JVS(3504)*UV(300)& - &+JVS(3506)*UV(302)+JVS(3507)*UV(303)+JVS(3508)*UV(304)+JVS(3509)*UV(305)+JVS(3510)*UV(306)+JVS(3511)*UV(307)& - &+JVS(3512)*UV(308)+JVS(3513)*UV(309)+JVS(3514)*UV(310)+JVS(3515)*UV(311)+JVS(3516)*UV(312)+JVS(3517)*UV(313)& - &+JVS(3518)*UV(314)+JVS(3519)*UV(315)+JVS(3520)*UV(318)+JVS(3521)*UV(319)+JVS(3522)*UV(320)+JVS(3523)*UV(321)& - &+JVS(3524)*UV(322)+JVS(3525)*UV(323)+JVS(3526)*UV(324)+JVS(3527)*UV(325)+JVS(3528)*UV(326)+JVS(3529)*UV(328)& - &+JVS(3530)*UV(329)+JVS(3531)*UV(334)+JVS(3532)*UV(335)+JVS(3533)*UV(336)+JVS(3534)*UV(337)+JVS(3535)*UV(338)& - &+JVS(3536)*UV(340)+JVS(3537)*UV(341)+JVS(3538)*UV(342)+JVS(3539)*UV(343)+JVS(3540)*UV(345)+JVS(3541)*UV(346)& - &+JVS(3542)*UV(348)+JVS(3543)*UV(351) - JUV(326) = JVS(3544)*UV(83)+JVS(3545)*UV(118)+JVS(3546)*UV(123)+JVS(3547)*UV(124)+JVS(3548)*UV(149)+JVS(3549)*UV(155)& - &+JVS(3550)*UV(156)+JVS(3551)*UV(165)+JVS(3552)*UV(196)+JVS(3554)*UV(241)+JVS(3556)*UV(249)+JVS(3557)*UV(250)& - &+JVS(3558)*UV(251)+JVS(3559)*UV(260)+JVS(3560)*UV(279)+JVS(3561)*UV(290)+JVS(3562)*UV(296)+JVS(3563)*UV(300)& - &+JVS(3565)*UV(315)+JVS(3566)*UV(318)+JVS(3567)*UV(319)+JVS(3568)*UV(320)+JVS(3572)*UV(324)+JVS(3573)*UV(326)& - &+JVS(3574)*UV(328)+JVS(3575)*UV(329)+JVS(3576)*UV(335)+JVS(3577)*UV(336)+JVS(3578)*UV(337)+JVS(3579)*UV(340)& - &+JVS(3580)*UV(341)+JVS(3581)*UV(342)+JVS(3582)*UV(345)+JVS(3583)*UV(346)+JVS(3584)*UV(348)+JVS(3585)*UV(351) - JUV(327) = JVS(3586)*UV(45)+JVS(3587)*UV(69)+JVS(3588)*UV(94)+JVS(3589)*UV(103)+JVS(3590)*UV(142)+JVS(3591)*UV(149)& - &+JVS(3593)*UV(158)+JVS(3594)*UV(166)+JVS(3597)*UV(179)+JVS(3598)*UV(183)+JVS(3600)*UV(195)+JVS(3601)*UV(200)& - &+JVS(3602)*UV(202)+JVS(3603)*UV(204)+JVS(3604)*UV(214)+JVS(3606)*UV(218)+JVS(3609)*UV(225)+JVS(3616)*UV(261)& - &+JVS(3620)*UV(269)+JVS(3621)*UV(270)+JVS(3636)*UV(292)+JVS(3638)*UV(294)+JVS(3639)*UV(298)+JVS(3647)*UV(306)& - &+JVS(3650)*UV(309)+JVS(3655)*UV(317)+JVS(3663)*UV(325)+JVS(3664)*UV(326)+JVS(3665)*UV(327)+JVS(3668)*UV(332)& - &+JVS(3670)*UV(335)+JVS(3671)*UV(336)+JVS(3674)*UV(339)+JVS(3679)*UV(344)+JVS(3680)*UV(345)+JVS(3684)*UV(349)& - &+JVS(3685)*UV(350)+JVS(3686)*UV(351)+JVS(3687)*UV(352)+JVS(3688)*UV(353) - JUV(328) = JVS(3689)*UV(52)+JVS(3690)*UV(80)+JVS(3691)*UV(92)+JVS(3692)*UV(94)+JVS(3693)*UV(105)+JVS(3694)*UV(139)& - &+JVS(3695)*UV(155)+JVS(3696)*UV(159)+JVS(3697)*UV(164)+JVS(3698)*UV(181)+JVS(3699)*UV(228)+JVS(3700)*UV(234)& - &+JVS(3701)*UV(235)+JVS(3702)*UV(236)+JVS(3705)*UV(249)+JVS(3706)*UV(250)+JVS(3707)*UV(251)+JVS(3708)*UV(257)& - &+JVS(3709)*UV(259)+JVS(3710)*UV(260)+JVS(3711)*UV(263)+JVS(3712)*UV(272)+JVS(3713)*UV(273)+JVS(3714)*UV(274)& - &+JVS(3715)*UV(275)+JVS(3716)*UV(276)+JVS(3717)*UV(277)+JVS(3718)*UV(278)+JVS(3719)*UV(279)+JVS(3720)*UV(280)& - &+JVS(3721)*UV(281)+JVS(3722)*UV(283)+JVS(3723)*UV(289)+JVS(3724)*UV(290)+JVS(3725)*UV(291)+JVS(3726)*UV(292)& - &+JVS(3727)*UV(295)+JVS(3728)*UV(296)+JVS(3729)*UV(300)+JVS(3730)*UV(304)+JVS(3731)*UV(305)+JVS(3732)*UV(307)& - &+JVS(3733)*UV(308)+JVS(3735)*UV(310)+JVS(3736)*UV(311)+JVS(3737)*UV(313)+JVS(3738)*UV(314)+JVS(3739)*UV(315)& - &+JVS(3740)*UV(318)+JVS(3741)*UV(319)+JVS(3742)*UV(320)+JVS(3743)*UV(321)+JVS(3744)*UV(322)+JVS(3745)*UV(323)& - &+JVS(3746)*UV(324)+JVS(3747)*UV(326)+JVS(3748)*UV(328)+JVS(3750)*UV(334)+JVS(3751)*UV(335)+JVS(3753)*UV(337)& - &+JVS(3754)*UV(338)+JVS(3755)*UV(340)+JVS(3756)*UV(341)+JVS(3758)*UV(345)+JVS(3759)*UV(346)+JVS(3761)*UV(351) - JUV(329) = JVS(3762)*UV(60)+JVS(3763)*UV(68)+JVS(3764)*UV(75)+JVS(3765)*UV(79)+JVS(3766)*UV(82)+JVS(3767)*UV(101)& - &+JVS(3768)*UV(107)+JVS(3769)*UV(113)+JVS(3770)*UV(114)+JVS(3771)*UV(119)+JVS(3772)*UV(122)+JVS(3773)*UV(124)& - &+JVS(3774)*UV(126)+JVS(3775)*UV(127)+JVS(3776)*UV(132)+JVS(3777)*UV(139)+JVS(3778)*UV(143)+JVS(3779)*UV(144)& - &+JVS(3780)*UV(146)+JVS(3781)*UV(147)+JVS(3782)*UV(150)+JVS(3783)*UV(153)+JVS(3784)*UV(159)+JVS(3785)*UV(167)& - &+JVS(3786)*UV(181)+JVS(3787)*UV(182)+JVS(3788)*UV(184)+JVS(3789)*UV(185)+JVS(3790)*UV(187)+JVS(3791)*UV(191)& - &+JVS(3792)*UV(192)+JVS(3793)*UV(194)+JVS(3794)*UV(197)+JVS(3795)*UV(199)+JVS(3796)*UV(200)+JVS(3797)*UV(201)& - &+JVS(3798)*UV(204)+JVS(3799)*UV(208)+JVS(3800)*UV(209)+JVS(3801)*UV(210)+JVS(3804)*UV(215)+JVS(3805)*UV(216)& - &+JVS(3806)*UV(220)+JVS(3807)*UV(221)+JVS(3809)*UV(225)+JVS(3811)*UV(227)+JVS(3812)*UV(230)+JVS(3813)*UV(231)& - &+JVS(3814)*UV(233)+JVS(3815)*UV(238)+JVS(3817)*UV(241)+JVS(3818)*UV(243)+JVS(3820)*UV(248)+JVS(3821)*UV(253)& - &+JVS(3823)*UV(255)+JVS(3824)*UV(258)+JVS(3825)*UV(259)+JVS(3826)*UV(261)+JVS(3827)*UV(266)+JVS(3828)*UV(267)& - &+JVS(3829)*UV(268)+JVS(3830)*UV(269)+JVS(3831)*UV(270)+JVS(3833)*UV(276)+JVS(3836)*UV(285)+JVS(3837)*UV(286)& - &+JVS(3838)*UV(287)+JVS(3840)*UV(290)+JVS(3842)*UV(294)+JVS(3843)*UV(295)+JVS(3844)*UV(298)+JVS(3847)*UV(301)& - &+JVS(3850)*UV(304)+JVS(3851)*UV(305)+JVS(3852)*UV(306)+JVS(3853)*UV(307)+JVS(3855)*UV(309)+JVS(3858)*UV(312)& - &+JVS(3860)*UV(314)+JVS(3868)*UV(325)+JVS(3869)*UV(326)+JVS(3870)*UV(328)+JVS(3871)*UV(329)+JVS(3875)*UV(337)& - &+JVS(3877)*UV(340)+JVS(3878)*UV(341)+JVS(3879)*UV(342)+JVS(3880)*UV(343)+JVS(3881)*UV(345)+JVS(3882)*UV(346)& - &+JVS(3884)*UV(351) - JUV(330) = JVS(3885)*UV(170)+JVS(3887)*UV(284)+JVS(3888)*UV(330)+JVS(3890)*UV(332)+JVS(3892)*UV(336)+JVS(3893)*UV(337)& - &+JVS(3896)*UV(344)+JVS(3897)*UV(345)+JVS(3900)*UV(349)+JVS(3901)*UV(350)+JVS(3903)*UV(353) - JUV(331) = JVS(3904)*UV(1)+JVS(3905)*UV(2)+JVS(3906)*UV(3)+JVS(3907)*UV(44)+JVS(3908)*UV(52)+JVS(3909)*UV(62)& - &+JVS(3910)*UV(73)+JVS(3911)*UV(77)+JVS(3912)*UV(96)+JVS(3913)*UV(104)+JVS(3914)*UV(170)+JVS(3915)*UV(252)& - &+JVS(3916)*UV(284)+JVS(3917)*UV(330)+JVS(3918)*UV(331)+JVS(3919)*UV(332)+JVS(3920)*UV(335)+JVS(3922)*UV(337)& - &+JVS(3923)*UV(338)+JVS(3924)*UV(341)+JVS(3926)*UV(345)+JVS(3927)*UV(346)+JVS(3928)*UV(347)+JVS(3931)*UV(351) - JUV(332) = JVS(3933)*UV(170)+JVS(3935)*UV(284)+JVS(3937)*UV(331)+JVS(3938)*UV(332)+JVS(3939)*UV(335)+JVS(3940)*UV(336)& - &+JVS(3944)*UV(344)+JVS(3948)*UV(349)+JVS(3949)*UV(350)+JVS(3950)*UV(351)+JVS(3951)*UV(353) - JUV(333) = JVS(3952)*UV(76)+JVS(3953)*UV(120)+JVS(3954)*UV(245)+JVS(3956)*UV(297)+JVS(3957)*UV(317)+JVS(3963)*UV(333)& - &+JVS(3966)*UV(336)+JVS(3967)*UV(337)+JVS(3968)*UV(338)+JVS(3969)*UV(339)+JVS(3974)*UV(344)+JVS(3975)*UV(345)& - &+JVS(3978)*UV(348)+JVS(3982)*UV(352)+JVS(3983)*UV(353) - JUV(334) = JVS(3984)*UV(46)+JVS(3985)*UV(47)+JVS(3986)*UV(48)+JVS(3987)*UV(49)+JVS(3988)*UV(50)+JVS(3989)*UV(51)& - &+JVS(3990)*UV(53)+JVS(3991)*UV(54)+JVS(3992)*UV(61)+JVS(3993)*UV(63)+JVS(3995)*UV(78)+JVS(3996)*UV(81)& - &+JVS(3997)*UV(84)+JVS(3998)*UV(85)+JVS(3999)*UV(86)+JVS(4000)*UV(87)+JVS(4001)*UV(105)+JVS(4002)*UV(181)& - &+JVS(4003)*UV(228)+JVS(4004)*UV(245)+JVS(4014)*UV(334)+JVS(4016)*UV(336)+JVS(4019)*UV(339)+JVS(4021)*UV(341)& - &+JVS(4032)*UV(352) - JUV(335) = JVS(4034)*UV(56)+JVS(4035)*UV(57)+JVS(4036)*UV(59)+JVS(4037)*UV(64)+JVS(4038)*UV(65)+JVS(4039)*UV(67)& - &+JVS(4040)*UV(70)+JVS(4041)*UV(80)+JVS(4042)*UV(83)+JVS(4043)*UV(90)+JVS(4044)*UV(91)+JVS(4045)*UV(93)& - &+JVS(4046)*UV(95)+JVS(4047)*UV(96)+JVS(4048)*UV(108)+JVS(4049)*UV(113)+JVS(4050)*UV(114)+JVS(4051)*UV(116)& - &+JVS(4052)*UV(121)+JVS(4053)*UV(122)+JVS(4054)*UV(124)+JVS(4055)*UV(125)+JVS(4056)*UV(126)+JVS(4057)*UV(127)& - &+JVS(4058)*UV(132)+JVS(4059)*UV(133)+JVS(4060)*UV(135)+JVS(4061)*UV(137)+JVS(4062)*UV(138)+JVS(4063)*UV(139)& - &+JVS(4064)*UV(140)+JVS(4065)*UV(154)+JVS(4066)*UV(162)+JVS(4067)*UV(163)+JVS(4068)*UV(165)+JVS(4070)*UV(168)& - &+JVS(4071)*UV(171)+JVS(4072)*UV(172)+JVS(4073)*UV(175)+JVS(4074)*UV(176)+JVS(4075)*UV(177)+JVS(4076)*UV(178)& - &+JVS(4078)*UV(180)+JVS(4079)*UV(182)+JVS(4080)*UV(184)+JVS(4081)*UV(186)+JVS(4082)*UV(189)+JVS(4083)*UV(190)& - &+JVS(4084)*UV(193)+JVS(4085)*UV(196)+JVS(4086)*UV(197)+JVS(4088)*UV(203)+JVS(4089)*UV(205)+JVS(4090)*UV(206)& - &+JVS(4091)*UV(207)+JVS(4092)*UV(211)+JVS(4093)*UV(212)+JVS(4094)*UV(213)+JVS(4095)*UV(214)+JVS(4096)*UV(218)& - &+JVS(4097)*UV(220)+JVS(4098)*UV(222)+JVS(4099)*UV(223)+JVS(4100)*UV(224)+JVS(4101)*UV(226)+JVS(4102)*UV(229)& - &+JVS(4105)*UV(232)+JVS(4107)*UV(234)+JVS(4108)*UV(235)+JVS(4109)*UV(236)+JVS(4111)*UV(239)+JVS(4112)*UV(240)& - &+JVS(4113)*UV(241)+JVS(4114)*UV(242)+JVS(4115)*UV(243)+JVS(4116)*UV(246)+JVS(4117)*UV(247)+JVS(4118)*UV(248)& - &+JVS(4119)*UV(249)+JVS(4120)*UV(250)+JVS(4121)*UV(251)+JVS(4122)*UV(252)+JVS(4123)*UV(253)+JVS(4124)*UV(254)& - &+JVS(4126)*UV(256)+JVS(4127)*UV(257)+JVS(4128)*UV(259)+JVS(4129)*UV(260)+JVS(4130)*UV(261)+JVS(4131)*UV(262)& - &+JVS(4132)*UV(263)+JVS(4133)*UV(266)+JVS(4134)*UV(267)+JVS(4135)*UV(268)+JVS(4136)*UV(269)+JVS(4137)*UV(271)& - &+JVS(4138)*UV(272)+JVS(4139)*UV(273)+JVS(4140)*UV(274)+JVS(4141)*UV(275)+JVS(4143)*UV(277)+JVS(4144)*UV(278)& - &+JVS(4145)*UV(279)+JVS(4146)*UV(280)+JVS(4147)*UV(281)+JVS(4148)*UV(284)+JVS(4149)*UV(285)+JVS(4150)*UV(286)& - &+JVS(4151)*UV(289)+JVS(4153)*UV(291)+JVS(4154)*UV(293)+JVS(4155)*UV(296)+JVS(4156)*UV(297)+JVS(4157)*UV(299)& - &+JVS(4158)*UV(300)+JVS(4159)*UV(301)+JVS(4160)*UV(302)+JVS(4161)*UV(303)+JVS(4162)*UV(304)+JVS(4163)*UV(305)& - &+JVS(4165)*UV(308)+JVS(4167)*UV(310)+JVS(4168)*UV(311)+JVS(4169)*UV(312)+JVS(4170)*UV(313)+JVS(4172)*UV(315)& - &+JVS(4173)*UV(317)+JVS(4174)*UV(318)+JVS(4175)*UV(319)+JVS(4176)*UV(320)+JVS(4177)*UV(321)+JVS(4178)*UV(322)& - &+JVS(4179)*UV(323)+JVS(4180)*UV(324)+JVS(4182)*UV(327)+JVS(4183)*UV(328)+JVS(4186)*UV(331)+JVS(4187)*UV(332)& - &+JVS(4189)*UV(335)+JVS(4191)*UV(337)+JVS(4192)*UV(338)+JVS(4195)*UV(341)+JVS(4196)*UV(342)+JVS(4197)*UV(343)& - &+JVS(4199)*UV(345)+JVS(4200)*UV(346)+JVS(4201)*UV(347)+JVS(4205)*UV(351) - JUV(336) = JVS(4208)*UV(43)+JVS(4209)*UV(52)+JVS(4210)*UV(73)+JVS(4211)*UV(84)+JVS(4212)*UV(85)+JVS(4213)*UV(86)& - &+JVS(4214)*UV(87)+JVS(4215)*UV(105)+JVS(4216)*UV(108)+JVS(4217)*UV(116)+JVS(4218)*UV(164)+JVS(4219)*UV(173)& - &+JVS(4220)*UV(181)+JVS(4221)*UV(183)+JVS(4223)*UV(196)+JVS(4226)*UV(214)+JVS(4227)*UV(217)+JVS(4228)*UV(218)& - &+JVS(4231)*UV(228)+JVS(4232)*UV(239)+JVS(4234)*UV(241)+JVS(4235)*UV(244)+JVS(4237)*UV(251)+JVS(4239)*UV(264)& - &+JVS(4240)*UV(265)+JVS(4244)*UV(279)+JVS(4245)*UV(283)+JVS(4250)*UV(292)+JVS(4251)*UV(295)+JVS(4254)*UV(298)& - &+JVS(4267)*UV(312)+JVS(4271)*UV(316)+JVS(4272)*UV(317)+JVS(4280)*UV(325)+JVS(4281)*UV(326)+JVS(4282)*UV(327)& - &+JVS(4285)*UV(330)+JVS(4287)*UV(332)+JVS(4288)*UV(333)+JVS(4289)*UV(334)+JVS(4291)*UV(336)+JVS(4292)*UV(337)& - &+JVS(4294)*UV(339)+JVS(4295)*UV(340)+JVS(4299)*UV(344)+JVS(4300)*UV(345)+JVS(4307)*UV(352)+JVS(4308)*UV(353) - JUV(337) = JVS(4309)*UV(60)+JVS(4310)*UV(72)+JVS(4311)*UV(75)+JVS(4312)*UV(79)+JVS(4313)*UV(80)+JVS(4314)*UV(82)& - &+JVS(4315)*UV(83)+JVS(4316)*UV(88)+JVS(4317)*UV(91)+JVS(4318)*UV(93)+JVS(4319)*UV(95)+JVS(4320)*UV(97)& - &+JVS(4321)*UV(98)+JVS(4322)*UV(99)+JVS(4323)*UV(100)+JVS(4324)*UV(101)+JVS(4325)*UV(102)+JVS(4326)*UV(105)& - &+JVS(4327)*UV(106)+JVS(4328)*UV(108)+JVS(4329)*UV(111)+JVS(4330)*UV(112)+JVS(4331)*UV(115)+JVS(4332)*UV(116)& - &+JVS(4333)*UV(118)+JVS(4334)*UV(119)+JVS(4335)*UV(121)+JVS(4336)*UV(123)+JVS(4337)*UV(125)+JVS(4338)*UV(127)& - &+JVS(4339)*UV(128)+JVS(4340)*UV(131)+JVS(4341)*UV(132)+JVS(4342)*UV(133)+JVS(4343)*UV(135)+JVS(4345)*UV(137)& - &+JVS(4346)*UV(138)+JVS(4347)*UV(143)+JVS(4348)*UV(144)+JVS(4349)*UV(145)+JVS(4350)*UV(146)+JVS(4351)*UV(147)& - &+JVS(4352)*UV(149)+JVS(4353)*UV(150)+JVS(4354)*UV(151)+JVS(4355)*UV(152)+JVS(4356)*UV(153)+JVS(4357)*UV(155)& - &+JVS(4358)*UV(156)+JVS(4359)*UV(158)+JVS(4360)*UV(161)+JVS(4361)*UV(164)+JVS(4362)*UV(165)+JVS(4363)*UV(168)& - &+JVS(4364)*UV(171)+JVS(4365)*UV(172)+JVS(4366)*UV(174)+JVS(4367)*UV(175)+JVS(4368)*UV(178)+JVS(4369)*UV(180)& - &+JVS(4370)*UV(181)+JVS(4371)*UV(182)+JVS(4372)*UV(185)+JVS(4373)*UV(186)+JVS(4374)*UV(187)+JVS(4375)*UV(188)& - &+JVS(4376)*UV(189)+JVS(4377)*UV(190)+JVS(4378)*UV(192)+JVS(4379)*UV(194)+JVS(4380)*UV(195)+JVS(4381)*UV(196)& - &+JVS(4382)*UV(197)+JVS(4383)*UV(198)+JVS(4384)*UV(199)+JVS(4385)*UV(200)+JVS(4386)*UV(201)+JVS(4387)*UV(202)& - &+JVS(4388)*UV(204)+JVS(4389)*UV(205)+JVS(4390)*UV(206)+JVS(4391)*UV(207)+JVS(4392)*UV(208)+JVS(4393)*UV(209)& - &+JVS(4394)*UV(210)+JVS(4395)*UV(212)+JVS(4396)*UV(213)+JVS(4397)*UV(216)+JVS(4398)*UV(217)+JVS(4399)*UV(219)& - &+JVS(4400)*UV(220)+JVS(4401)*UV(221)+JVS(4402)*UV(222)+JVS(4403)*UV(223)+JVS(4404)*UV(224)+JVS(4405)*UV(225)& - &+JVS(4406)*UV(226)+JVS(4407)*UV(227)+JVS(4408)*UV(228)+JVS(4409)*UV(229)+JVS(4410)*UV(230)+JVS(4411)*UV(231)& - &+JVS(4412)*UV(232)+JVS(4413)*UV(233)+JVS(4414)*UV(234)+JVS(4415)*UV(235)+JVS(4416)*UV(236)+JVS(4417)*UV(238)& - &+JVS(4418)*UV(240)+JVS(4419)*UV(243)+JVS(4420)*UV(246)+JVS(4421)*UV(248)+JVS(4422)*UV(249)+JVS(4423)*UV(250)& - &+JVS(4424)*UV(251)+JVS(4425)*UV(253)+JVS(4426)*UV(254)+JVS(4427)*UV(255)+JVS(4428)*UV(257)+JVS(4429)*UV(258)& - &+JVS(4430)*UV(259)+JVS(4431)*UV(260)+JVS(4432)*UV(261)+JVS(4433)*UV(262)+JVS(4434)*UV(263)+JVS(4435)*UV(264)& - &+JVS(4436)*UV(265)+JVS(4437)*UV(266)+JVS(4438)*UV(267)+JVS(4439)*UV(268)+JVS(4440)*UV(269)+JVS(4441)*UV(270)& - &+JVS(4442)*UV(271)+JVS(4443)*UV(272)+JVS(4444)*UV(273)+JVS(4445)*UV(274)+JVS(4446)*UV(275)+JVS(4447)*UV(276)& - &+JVS(4448)*UV(277)+JVS(4449)*UV(278)+JVS(4450)*UV(279)+JVS(4451)*UV(280)+JVS(4452)*UV(281)+JVS(4453)*UV(282)& - &+JVS(4454)*UV(284)+JVS(4455)*UV(285)+JVS(4456)*UV(286)+JVS(4457)*UV(287)+JVS(4458)*UV(288)+JVS(4459)*UV(289)& - &+JVS(4460)*UV(290)+JVS(4461)*UV(291)+JVS(4462)*UV(293)+JVS(4463)*UV(294)+JVS(4464)*UV(296)+JVS(4465)*UV(298)& - &+JVS(4466)*UV(299)+JVS(4467)*UV(300)+JVS(4468)*UV(301)+JVS(4469)*UV(302)+JVS(4470)*UV(303)+JVS(4471)*UV(304)& - &+JVS(4472)*UV(305)+JVS(4473)*UV(306)+JVS(4474)*UV(307)+JVS(4475)*UV(308)+JVS(4476)*UV(309)+JVS(4477)*UV(310)& - &+JVS(4478)*UV(311)+JVS(4480)*UV(313)+JVS(4481)*UV(314)+JVS(4482)*UV(315)+JVS(4483)*UV(318)+JVS(4484)*UV(319)& - &+JVS(4485)*UV(320)+JVS(4486)*UV(321)+JVS(4487)*UV(322)+JVS(4488)*UV(323)+JVS(4489)*UV(324)+JVS(4490)*UV(325)& - &+JVS(4491)*UV(326)+JVS(4492)*UV(328)+JVS(4493)*UV(329)+JVS(4495)*UV(331)+JVS(4497)*UV(334)+JVS(4498)*UV(335)& - &+JVS(4500)*UV(337)+JVS(4501)*UV(338)+JVS(4503)*UV(340)+JVS(4504)*UV(341)+JVS(4505)*UV(342)+JVS(4506)*UV(343)& - &+JVS(4508)*UV(345)+JVS(4509)*UV(346)+JVS(4510)*UV(347)+JVS(4511)*UV(348)+JVS(4514)*UV(351) - JUV(338) = JVS(4517)*UV(46)+JVS(4518)*UV(47)+JVS(4519)*UV(48)+JVS(4520)*UV(49)+JVS(4521)*UV(50)+JVS(4522)*UV(51)& - &+JVS(4523)*UV(61)+JVS(4524)*UV(76)+JVS(4525)*UV(84)+JVS(4526)*UV(85)+JVS(4527)*UV(86)+JVS(4528)*UV(87)& - &+JVS(4529)*UV(110)+JVS(4530)*UV(120)+JVS(4531)*UV(181)+JVS(4532)*UV(245)+JVS(4533)*UV(284)+JVS(4534)*UV(296)& - &+JVS(4536)*UV(315)+JVS(4537)*UV(317)+JVS(4546)*UV(328)+JVS(4551)*UV(333)+JVS(4552)*UV(334)+JVS(4553)*UV(335)& - &+JVS(4555)*UV(337)+JVS(4556)*UV(338)+JVS(4557)*UV(339)+JVS(4558)*UV(340)+JVS(4559)*UV(341)+JVS(4561)*UV(343)& - &+JVS(4563)*UV(345)+JVS(4564)*UV(346)+JVS(4565)*UV(347) - JUV(339) = JVS(4572)*UV(75)+JVS(4573)*UV(79)+JVS(4574)*UV(141)+JVS(4575)*UV(142)+JVS(4576)*UV(156)+JVS(4577)*UV(164)& - &+JVS(4578)*UV(166)+JVS(4579)*UV(179)+JVS(4580)*UV(181)+JVS(4581)*UV(183)+JVS(4582)*UV(214)+JVS(4583)*UV(218)& - &+JVS(4584)*UV(228)+JVS(4585)*UV(264)+JVS(4586)*UV(265)+JVS(4588)*UV(276)+JVS(4589)*UV(282)+JVS(4590)*UV(283)& - &+JVS(4592)*UV(290)+JVS(4594)*UV(295)+JVS(4596)*UV(297)+JVS(4613)*UV(316)+JVS(4614)*UV(317)+JVS(4622)*UV(325)& - &+JVS(4628)*UV(333)+JVS(4629)*UV(334)+JVS(4632)*UV(337)+JVS(4633)*UV(338)+JVS(4634)*UV(339)+JVS(4635)*UV(340)& - &+JVS(4640)*UV(345)+JVS(4643)*UV(348) - JUV(340) = JVS(4649)*UV(3)+JVS(4650)*UV(43)+JVS(4651)*UV(46)+JVS(4652)*UV(47)+JVS(4653)*UV(48)+JVS(4654)*UV(49)& - &+JVS(4655)*UV(50)+JVS(4656)*UV(51)+JVS(4657)*UV(61)+JVS(4658)*UV(75)+JVS(4659)*UV(76)+JVS(4660)*UV(79)& - &+JVS(4661)*UV(84)+JVS(4662)*UV(85)+JVS(4663)*UV(86)+JVS(4664)*UV(87)+JVS(4665)*UV(104)+JVS(4666)*UV(110)& - &+JVS(4667)*UV(141)+JVS(4668)*UV(142)+JVS(4669)*UV(156)+JVS(4670)*UV(157)+JVS(4671)*UV(164)+JVS(4672)*UV(181)& - &+JVS(4673)*UV(183)+JVS(4675)*UV(228)+JVS(4676)*UV(245)+JVS(4678)*UV(264)+JVS(4679)*UV(265)+JVS(4681)*UV(276)& - &+JVS(4682)*UV(282)+JVS(4683)*UV(283)+JVS(4684)*UV(284)+JVS(4686)*UV(290)+JVS(4688)*UV(295)+JVS(4689)*UV(296)& - &+JVS(4690)*UV(297)+JVS(4706)*UV(315)+JVS(4708)*UV(317)+JVS(4716)*UV(325)+JVS(4718)*UV(328)+JVS(4723)*UV(333)& - &+JVS(4724)*UV(334)+JVS(4727)*UV(337)+JVS(4728)*UV(338)+JVS(4729)*UV(339)+JVS(4730)*UV(340)+JVS(4731)*UV(341)& - &+JVS(4733)*UV(343)+JVS(4735)*UV(345)+JVS(4736)*UV(346) - JUV(341) = JVS(4744)*UV(109)+JVS(4745)*UV(140)+JVS(4746)*UV(166)+JVS(4747)*UV(167)+JVS(4748)*UV(179)+JVS(4749)*UV(191)& - &+JVS(4750)*UV(193)+JVS(4751)*UV(201)+JVS(4752)*UV(202)+JVS(4753)*UV(203)+JVS(4754)*UV(211)+JVS(4755)*UV(213)& - &+JVS(4756)*UV(217)+JVS(4757)*UV(219)+JVS(4758)*UV(220)+JVS(4759)*UV(221)+JVS(4761)*UV(229)+JVS(4763)*UV(235)& - &+JVS(4765)*UV(237)+JVS(4766)*UV(240)+JVS(4767)*UV(242)+JVS(4768)*UV(246)+JVS(4769)*UV(255)+JVS(4770)*UV(257)& - &+JVS(4771)*UV(259)+JVS(4772)*UV(262)+JVS(4774)*UV(274)+JVS(4776)*UV(276)+JVS(4781)*UV(290)+JVS(4784)*UV(308)& - &+JVS(4785)*UV(309)+JVS(4788)*UV(312)+JVS(4789)*UV(314)+JVS(4791)*UV(322)+JVS(4793)*UV(324)+JVS(4797)*UV(328)& - &+JVS(4799)*UV(331)+JVS(4801)*UV(334)+JVS(4802)*UV(335)+JVS(4804)*UV(337)+JVS(4807)*UV(340)+JVS(4808)*UV(341)& - &+JVS(4809)*UV(342)+JVS(4810)*UV(343)+JVS(4812)*UV(345)+JVS(4813)*UV(346)+JVS(4815)*UV(348)+JVS(4816)*UV(349)& - &+JVS(4817)*UV(350)+JVS(4819)*UV(352) - JUV(342) = JVS(4821)*UV(2)+JVS(4822)*UV(53)+JVS(4823)*UV(54)+JVS(4824)*UV(59)+JVS(4825)*UV(61)+JVS(4826)*UV(77)& - &+JVS(4827)*UV(78)+JVS(4828)*UV(81)+JVS(4829)*UV(105)+JVS(4830)*UV(141)+JVS(4831)*UV(148)+JVS(4832)*UV(157)& - &+JVS(4833)*UV(183)+JVS(4834)*UV(218)+JVS(4836)*UV(284)+JVS(4837)*UV(290)+JVS(4838)*UV(295)+JVS(4842)*UV(316)& - &+JVS(4849)*UV(325)+JVS(4850)*UV(326)+JVS(4854)*UV(331)+JVS(4857)*UV(334)+JVS(4858)*UV(335)+JVS(4860)*UV(337)& - &+JVS(4861)*UV(338)+JVS(4864)*UV(341)+JVS(4865)*UV(342)+JVS(4866)*UV(343)+JVS(4868)*UV(345)+JVS(4869)*UV(346)& - &+JVS(4870)*UV(347)+JVS(4874)*UV(351)+JVS(4875)*UV(352) - JUV(343) = JVS(4877)*UV(46)+JVS(4878)*UV(47)+JVS(4879)*UV(48)+JVS(4880)*UV(49)+JVS(4881)*UV(50)+JVS(4882)*UV(51)& - &+JVS(4883)*UV(53)+JVS(4884)*UV(54)+JVS(4885)*UV(61)+JVS(4886)*UV(67)+JVS(4887)*UV(68)+JVS(4888)*UV(78)& - &+JVS(4889)*UV(81)+JVS(4890)*UV(84)+JVS(4891)*UV(85)+JVS(4892)*UV(86)+JVS(4893)*UV(87)+JVS(4894)*UV(120)& - &+JVS(4895)*UV(181)+JVS(4896)*UV(217)+JVS(4898)*UV(245)+JVS(4899)*UV(264)+JVS(4901)*UV(284)+JVS(4906)*UV(316)& - &+JVS(4907)*UV(317)+JVS(4909)*UV(325)+JVS(4917)*UV(334)+JVS(4918)*UV(335)+JVS(4920)*UV(337)+JVS(4921)*UV(338)& - &+JVS(4922)*UV(339)+JVS(4924)*UV(341)+JVS(4926)*UV(343)+JVS(4928)*UV(345)+JVS(4929)*UV(346)+JVS(4930)*UV(347)& - &+JVS(4934)*UV(351)+JVS(4935)*UV(352) - JUV(344) = JVS(4937)*UV(166)+JVS(4938)*UV(214)+JVS(4939)*UV(252)+JVS(4940)*UV(297)+JVS(4941)*UV(316)+JVS(4942)*UV(317)& - &+JVS(4946)*UV(330)+JVS(4948)*UV(332)+JVS(4949)*UV(333)+JVS(4955)*UV(339)+JVS(4960)*UV(344)+JVS(4961)*UV(345) - JUV(345) = JVS(4970)*UV(41)+JVS(4971)*UV(43)+JVS(4972)*UV(52)+JVS(4973)*UV(58)+JVS(4974)*UV(60)+JVS(4975)*UV(66)& - &+JVS(4976)*UV(68)+JVS(4977)*UV(69)+JVS(4978)*UV(70)+JVS(4979)*UV(71)+JVS(4980)*UV(72)+JVS(4981)*UV(73)& - &+JVS(4982)*UV(74)+JVS(4983)*UV(75)+JVS(4984)*UV(76)+JVS(4985)*UV(78)+JVS(4986)*UV(79)+JVS(4987)*UV(81)& - &+JVS(4988)*UV(82)+JVS(4989)*UV(83)+JVS(4990)*UV(84)+JVS(4991)*UV(85)+JVS(4992)*UV(86)+JVS(4993)*UV(87)& - &+JVS(4994)*UV(88)+JVS(4995)*UV(89)+JVS(4996)*UV(90)+JVS(4997)*UV(91)+JVS(4998)*UV(92)+JVS(4999)*UV(93)& - &+JVS(5000)*UV(94)+JVS(5001)*UV(95)+JVS(5002)*UV(97)+JVS(5003)*UV(98)+JVS(5004)*UV(99)+JVS(5005)*UV(100)& - &+JVS(5006)*UV(101)+JVS(5007)*UV(102)+JVS(5008)*UV(105)+JVS(5009)*UV(107)+JVS(5010)*UV(108)+JVS(5011)*UV(109)& - &+JVS(5012)*UV(111)+JVS(5013)*UV(112)+JVS(5014)*UV(113)+JVS(5015)*UV(114)+JVS(5016)*UV(115)+JVS(5017)*UV(116)& - &+JVS(5018)*UV(117)+JVS(5019)*UV(118)+JVS(5020)*UV(119)+JVS(5021)*UV(120)+JVS(5022)*UV(122)+JVS(5023)*UV(123)& - &+JVS(5024)*UV(124)+JVS(5025)*UV(125)+JVS(5026)*UV(126)+JVS(5027)*UV(127)+JVS(5028)*UV(128)+JVS(5029)*UV(129)& - &+JVS(5030)*UV(130)+JVS(5031)*UV(131)+JVS(5032)*UV(133)+JVS(5033)*UV(134)+JVS(5034)*UV(135)+JVS(5035)*UV(136)& - &+JVS(5036)*UV(137)+JVS(5037)*UV(138)+JVS(5038)*UV(139)+JVS(5039)*UV(140)+JVS(5040)*UV(141)+JVS(5041)*UV(142)& - &+JVS(5042)*UV(143)+JVS(5043)*UV(144)+JVS(5044)*UV(146)+JVS(5045)*UV(147)+JVS(5046)*UV(148)+JVS(5047)*UV(149)& - &+JVS(5048)*UV(150)+JVS(5049)*UV(151)+JVS(5050)*UV(152)+JVS(5051)*UV(153)+JVS(5052)*UV(154)+JVS(5053)*UV(155)& - &+JVS(5054)*UV(156)+JVS(5055)*UV(158)+JVS(5056)*UV(159)+JVS(5057)*UV(160)+JVS(5058)*UV(161)+JVS(5059)*UV(162)& - &+JVS(5060)*UV(163)+JVS(5061)*UV(164)+JVS(5062)*UV(167)+JVS(5063)*UV(168)+JVS(5064)*UV(169)+JVS(5065)*UV(170)& - &+JVS(5066)*UV(171)+JVS(5067)*UV(172)+JVS(5068)*UV(173)+JVS(5069)*UV(174)+JVS(5070)*UV(175)+JVS(5071)*UV(176)& - &+JVS(5072)*UV(177)+JVS(5075)*UV(180)+JVS(5076)*UV(181)+JVS(5077)*UV(182)+JVS(5078)*UV(183)+JVS(5079)*UV(184)& - &+JVS(5080)*UV(185)+JVS(5081)*UV(186)+JVS(5082)*UV(187)+JVS(5083)*UV(188)+JVS(5084)*UV(189)+JVS(5085)*UV(190)& - &+JVS(5086)*UV(191)+JVS(5087)*UV(192)+JVS(5088)*UV(193)+JVS(5089)*UV(194)+JVS(5090)*UV(195)+JVS(5091)*UV(196)& - &+JVS(5092)*UV(197)+JVS(5093)*UV(198)+JVS(5094)*UV(199)+JVS(5095)*UV(200)+JVS(5096)*UV(201)+JVS(5097)*UV(202)& - &+JVS(5098)*UV(204)+JVS(5099)*UV(205)+JVS(5100)*UV(206)+JVS(5101)*UV(207)+JVS(5102)*UV(208)+JVS(5103)*UV(209)& - &+JVS(5104)*UV(210)+JVS(5105)*UV(211)+JVS(5107)*UV(213)+JVS(5108)*UV(216)+JVS(5109)*UV(217)+JVS(5111)*UV(219)& - &+JVS(5112)*UV(220)+JVS(5113)*UV(221)+JVS(5114)*UV(222)+JVS(5115)*UV(223)+JVS(5116)*UV(224)+JVS(5117)*UV(225)& - &+JVS(5118)*UV(226)+JVS(5119)*UV(228)+JVS(5120)*UV(229)+JVS(5121)*UV(230)+JVS(5122)*UV(231)+JVS(5123)*UV(232)& - &+JVS(5124)*UV(233)+JVS(5126)*UV(235)+JVS(5128)*UV(237)+JVS(5129)*UV(238)+JVS(5130)*UV(239)+JVS(5131)*UV(240)& - &+JVS(5133)*UV(242)+JVS(5134)*UV(243)+JVS(5135)*UV(244)+JVS(5136)*UV(245)+JVS(5137)*UV(246)+JVS(5138)*UV(247)& - &+JVS(5139)*UV(248)+JVS(5142)*UV(251)+JVS(5144)*UV(253)+JVS(5145)*UV(254)+JVS(5146)*UV(255)+JVS(5147)*UV(256)& - &+JVS(5148)*UV(257)+JVS(5149)*UV(258)+JVS(5150)*UV(259)+JVS(5152)*UV(261)+JVS(5153)*UV(262)+JVS(5154)*UV(263)& - &+JVS(5155)*UV(264)+JVS(5156)*UV(265)+JVS(5157)*UV(266)+JVS(5158)*UV(267)+JVS(5159)*UV(268)+JVS(5160)*UV(269)& - &+JVS(5161)*UV(270)+JVS(5162)*UV(271)+JVS(5165)*UV(274)+JVS(5167)*UV(276)+JVS(5170)*UV(279)+JVS(5173)*UV(282)& - &+JVS(5174)*UV(283)+JVS(5176)*UV(285)+JVS(5177)*UV(286)+JVS(5178)*UV(287)+JVS(5179)*UV(288)+JVS(5181)*UV(290)& - &+JVS(5183)*UV(292)+JVS(5184)*UV(293)+JVS(5185)*UV(294)+JVS(5186)*UV(295)+JVS(5188)*UV(297)+JVS(5189)*UV(298)& - &+JVS(5190)*UV(299)+JVS(5192)*UV(301)+JVS(5193)*UV(302)+JVS(5194)*UV(303)+JVS(5195)*UV(304)+JVS(5196)*UV(305)& - &+JVS(5197)*UV(306)+JVS(5198)*UV(307)+JVS(5199)*UV(308)+JVS(5200)*UV(309)+JVS(5201)*UV(310)+JVS(5204)*UV(313)& - &+JVS(5205)*UV(314)+JVS(5207)*UV(316)+JVS(5208)*UV(317)+JVS(5211)*UV(320)+JVS(5213)*UV(322)+JVS(5215)*UV(324)& - &+JVS(5216)*UV(325)+JVS(5217)*UV(326)+JVS(5218)*UV(327)+JVS(5219)*UV(328)+JVS(5220)*UV(329)+JVS(5221)*UV(330)& - &+JVS(5224)*UV(333)+JVS(5225)*UV(334)+JVS(5226)*UV(335)+JVS(5227)*UV(336)+JVS(5228)*UV(337)+JVS(5229)*UV(338)& - &+JVS(5230)*UV(339)+JVS(5231)*UV(340)+JVS(5232)*UV(341)+JVS(5234)*UV(343)+JVS(5235)*UV(344)+JVS(5236)*UV(345)& - &+JVS(5237)*UV(346)+JVS(5238)*UV(347)+JVS(5239)*UV(348)+JVS(5242)*UV(351)+JVS(5243)*UV(352)+JVS(5244)*UV(353) - JUV(346) = JVS(5245)*UV(62)+JVS(5246)*UV(63)+JVS(5247)*UV(67)+JVS(5248)*UV(96)+JVS(5249)*UV(121)+JVS(5250)*UV(132)& - &+JVS(5251)*UV(133)+JVS(5252)*UV(135)+JVS(5253)*UV(165)+JVS(5254)*UV(171)+JVS(5255)*UV(172)+JVS(5256)*UV(178)& - &+JVS(5257)*UV(180)+JVS(5258)*UV(182)+JVS(5259)*UV(189)+JVS(5260)*UV(190)+JVS(5262)*UV(197)+JVS(5264)*UV(205)& - &+JVS(5265)*UV(206)+JVS(5266)*UV(207)+JVS(5267)*UV(212)+JVS(5268)*UV(213)+JVS(5270)*UV(223)+JVS(5271)*UV(224)& - &+JVS(5272)*UV(226)+JVS(5275)*UV(232)+JVS(5277)*UV(234)+JVS(5278)*UV(235)+JVS(5279)*UV(236)+JVS(5280)*UV(239)& - &+JVS(5281)*UV(240)+JVS(5282)*UV(241)+JVS(5283)*UV(243)+JVS(5284)*UV(246)+JVS(5285)*UV(249)+JVS(5286)*UV(250)& - &+JVS(5288)*UV(253)+JVS(5289)*UV(254)+JVS(5290)*UV(257)+JVS(5291)*UV(259)+JVS(5292)*UV(260)+JVS(5293)*UV(263)& - &+JVS(5297)*UV(271)+JVS(5298)*UV(272)+JVS(5299)*UV(273)+JVS(5300)*UV(274)+JVS(5301)*UV(275)+JVS(5303)*UV(277)& - &+JVS(5304)*UV(278)+JVS(5306)*UV(280)+JVS(5307)*UV(281)+JVS(5308)*UV(284)+JVS(5309)*UV(285)+JVS(5310)*UV(286)& - &+JVS(5311)*UV(289)+JVS(5313)*UV(291)+JVS(5314)*UV(293)+JVS(5315)*UV(296)+JVS(5318)*UV(300)+JVS(5321)*UV(304)& - &+JVS(5322)*UV(305)+JVS(5324)*UV(308)+JVS(5326)*UV(310)+JVS(5327)*UV(311)+JVS(5328)*UV(312)+JVS(5329)*UV(313)& - &+JVS(5331)*UV(315)+JVS(5332)*UV(318)+JVS(5333)*UV(319)+JVS(5334)*UV(320)+JVS(5335)*UV(321)+JVS(5336)*UV(322)& - &+JVS(5337)*UV(323)+JVS(5338)*UV(324)+JVS(5341)*UV(328)+JVS(5344)*UV(331)+JVS(5346)*UV(334)+JVS(5347)*UV(335)& - &+JVS(5349)*UV(337)+JVS(5350)*UV(338)+JVS(5353)*UV(341)+JVS(5355)*UV(343)+JVS(5357)*UV(345)+JVS(5358)*UV(346)& - &+JVS(5359)*UV(347)+JVS(5363)*UV(351) - JUV(347) = JVS(5366)*UV(53)+JVS(5367)*UV(54)+JVS(5368)*UV(61)+JVS(5369)*UV(78)+JVS(5370)*UV(81)+JVS(5371)*UV(105)& - &+JVS(5372)*UV(218)+JVS(5373)*UV(284)+JVS(5374)*UV(316)+JVS(5376)*UV(331)+JVS(5378)*UV(334)+JVS(5379)*UV(335)& - &+JVS(5381)*UV(337)+JVS(5382)*UV(338)+JVS(5385)*UV(341)+JVS(5386)*UV(342)+JVS(5387)*UV(343)+JVS(5389)*UV(345)& - &+JVS(5390)*UV(346)+JVS(5391)*UV(347)+JVS(5395)*UV(351)+JVS(5396)*UV(352) - JUV(348) = JVS(5398)*UV(68)+JVS(5399)*UV(89)+JVS(5400)*UV(94)+JVS(5401)*UV(134)+JVS(5402)*UV(166)+JVS(5403)*UV(179)& - &+JVS(5404)*UV(241)+JVS(5405)*UV(264)+JVS(5408)*UV(312)+JVS(5410)*UV(316)+JVS(5412)*UV(325)+JVS(5418)*UV(333)& - &+JVS(5426)*UV(341)+JVS(5428)*UV(343)+JVS(5430)*UV(345)+JVS(5433)*UV(348)+JVS(5436)*UV(351) - JUV(349) = JVS(5439)*UV(252)+JVS(5440)*UV(297)+JVS(5441)*UV(316)+JVS(5442)*UV(317)+JVS(5443)*UV(330)+JVS(5445)*UV(332)& - &+JVS(5452)*UV(341)+JVS(5460)*UV(349)+JVS(5463)*UV(352) - JUV(350) = JVS(5465)*UV(252)+JVS(5466)*UV(297)+JVS(5467)*UV(316)+JVS(5468)*UV(317)+JVS(5469)*UV(330)+JVS(5471)*UV(332)& - &+JVS(5478)*UV(341)+JVS(5487)*UV(350)+JVS(5489)*UV(352) - JUV(351) = JVS(5491)*UV(69)+JVS(5492)*UV(80)+JVS(5493)*UV(94)+JVS(5494)*UV(108)+JVS(5495)*UV(124)+JVS(5496)*UV(126)& - &+JVS(5497)*UV(139)+JVS(5498)*UV(140)+JVS(5499)*UV(142)+JVS(5500)*UV(149)+JVS(5501)*UV(154)+JVS(5502)*UV(158)& - &+JVS(5503)*UV(163)+JVS(5504)*UV(167)+JVS(5505)*UV(170)+JVS(5506)*UV(183)+JVS(5507)*UV(184)+JVS(5508)*UV(191)& - &+JVS(5509)*UV(193)+JVS(5510)*UV(195)+JVS(5512)*UV(200)+JVS(5513)*UV(202)+JVS(5514)*UV(204)+JVS(5515)*UV(211)& - &+JVS(5516)*UV(213)+JVS(5517)*UV(214)+JVS(5518)*UV(218)+JVS(5519)*UV(219)+JVS(5520)*UV(220)+JVS(5521)*UV(225)& - &+JVS(5522)*UV(229)+JVS(5524)*UV(234)+JVS(5525)*UV(236)+JVS(5526)*UV(237)+JVS(5527)*UV(241)+JVS(5528)*UV(242)& - &+JVS(5531)*UV(255)+JVS(5532)*UV(256)+JVS(5533)*UV(257)+JVS(5535)*UV(261)+JVS(5536)*UV(262)+JVS(5537)*UV(263)& - &+JVS(5539)*UV(269)+JVS(5540)*UV(270)+JVS(5542)*UV(272)+JVS(5543)*UV(273)+JVS(5544)*UV(274)+JVS(5545)*UV(275)& - &+JVS(5546)*UV(276)+JVS(5547)*UV(277)+JVS(5548)*UV(278)+JVS(5549)*UV(280)+JVS(5550)*UV(281)+JVS(5554)*UV(289)& - &+JVS(5555)*UV(290)+JVS(5556)*UV(291)+JVS(5557)*UV(292)+JVS(5559)*UV(294)+JVS(5560)*UV(298)+JVS(5564)*UV(302)& - &+JVS(5568)*UV(306)+JVS(5570)*UV(308)+JVS(5571)*UV(309)+JVS(5572)*UV(310)+JVS(5573)*UV(311)+JVS(5574)*UV(312)& - &+JVS(5577)*UV(317)+JVS(5585)*UV(325)+JVS(5586)*UV(326)+JVS(5587)*UV(327)+JVS(5588)*UV(328)+JVS(5590)*UV(331)& - &+JVS(5591)*UV(332)+JVS(5593)*UV(335)+JVS(5595)*UV(337)+JVS(5598)*UV(340)+JVS(5599)*UV(341)+JVS(5600)*UV(342)& - &+JVS(5601)*UV(343)+JVS(5603)*UV(345)+JVS(5604)*UV(346)+JVS(5609)*UV(351) - JUV(352) = JVS(5612)*UV(141)+JVS(5613)*UV(183)+JVS(5614)*UV(290)+JVS(5615)*UV(295)+JVS(5616)*UV(297)+JVS(5619)*UV(316)& - &+JVS(5620)*UV(317)+JVS(5626)*UV(325)+JVS(5627)*UV(326)+JVS(5630)*UV(333)+JVS(5631)*UV(334)+JVS(5634)*UV(337)& - &+JVS(5638)*UV(341)+JVS(5639)*UV(342)+JVS(5640)*UV(343)+JVS(5642)*UV(345)+JVS(5645)*UV(348)+JVS(5649)*UV(352) - JUV(353) = JVS(5651)*UV(179)+JVS(5652)*UV(214)+JVS(5653)*UV(252)+JVS(5654)*UV(297)+JVS(5655)*UV(316)+JVS(5656)*UV(317)& - &+JVS(5660)*UV(330)+JVS(5662)*UV(332)+JVS(5663)*UV(333)+JVS(5669)*UV(339)+JVS(5675)*UV(345)+JVS(5683)*UV(353) + JUV(99) = JVS(741)*UV(99)+JVS(742)*UV(323)+JVS(743)*UV(341)+JVS(744)*UV(343) + JUV(100) = JVS(745)*UV(100)+JVS(746)*UV(182)+JVS(747)*UV(341)+JVS(748)*UV(343) + JUV(101) = JVS(749)*UV(101)+JVS(750)*UV(326)+JVS(751)*UV(341)+JVS(752)*UV(343) + JUV(102) = JVS(753)*UV(102)+JVS(754)*UV(327)+JVS(755)*UV(341)+JVS(756)*UV(343) + JUV(103) = JVS(757)*UV(103)+JVS(758)*UV(343) + JUV(104) = JVS(759)*UV(104)+JVS(760)*UV(304)+JVS(761)*UV(341)+JVS(762)*UV(343) + JUV(105) = JVS(763)*UV(105)+JVS(764)*UV(237)+JVS(765)*UV(343)+JVS(766)*UV(345) + JUV(106) = JVS(767)*UV(106)+JVS(768)*UV(175)+JVS(769)*UV(177)+JVS(770)*UV(188)+JVS(771)*UV(220)+JVS(772)*UV(225)& + &+JVS(773)*UV(251)+JVS(774)*UV(255)+JVS(775)*UV(269)+JVS(776)*UV(270)+JVS(777)*UV(271)+JVS(778)*UV(303)& + &+JVS(779)*UV(306)+JVS(780)*UV(307) + JUV(107) = JVS(781)*UV(107)+JVS(782)*UV(254)+JVS(783)*UV(287)+JVS(784)*UV(296)+JVS(785)*UV(336)+JVS(786)*UV(339)& + &+JVS(787)*UV(344)+JVS(788)*UV(346) + JUV(108) = JVS(789)*UV(108)+JVS(790)*UV(337)+JVS(791)*UV(343) + JUV(109) = JVS(792)*UV(109)+JVS(793)*UV(161)+JVS(794)*UV(189)+JVS(795)*UV(343) + JUV(110) = JVS(796)*UV(110)+JVS(797)*UV(341)+JVS(798)*UV(343)+JVS(799)*UV(345) + JUV(111) = JVS(800)*UV(111)+JVS(801)*UV(281)+JVS(802)*UV(341)+JVS(803)*UV(343) + JUV(112) = JVS(804)*UV(112)+JVS(805)*UV(276)+JVS(806)*UV(341)+JVS(807)*UV(343) + JUV(113) = JVS(808)*UV(113)+JVS(809)*UV(250)+JVS(810)*UV(343)+JVS(811)*UV(345) + JUV(114) = JVS(812)*UV(114)+JVS(813)*UV(138)+JVS(814)*UV(239)+JVS(815)*UV(334)+JVS(816)*UV(338)+JVS(817)*UV(348) + JUV(115) = JVS(818)*UV(115)+JVS(819)*UV(216)+JVS(820)*UV(343)+JVS(821)*UV(345) + JUV(116) = JVS(822)*UV(116)+JVS(823)*UV(197)+JVS(824)*UV(306)+JVS(825)*UV(318)+JVS(826)*UV(343)+JVS(827)*UV(356) + JUV(117) = JVS(828)*UV(117)+JVS(829)*UV(193)+JVS(830)*UV(338)+JVS(831)*UV(343) + JUV(118) = JVS(832)*UV(105)+JVS(833)*UV(118)+JVS(834)*UV(237)+JVS(835)*UV(238)+JVS(836)*UV(341)+JVS(837)*UV(343) + JUV(119) = JVS(839)*UV(78)+JVS(840)*UV(119)+JVS(841)*UV(334)+JVS(842)*UV(343)+JVS(843)*UV(344)+JVS(844)*UV(347)& + &+JVS(845)*UV(352) + JUV(120) = JVS(846)*UV(120)+JVS(847)*UV(229)+JVS(848)*UV(343)+JVS(849)*UV(356) + JUV(121) = JVS(850)*UV(121)+JVS(851)*UV(300)+JVS(852)*UV(319)+JVS(853)*UV(341)+JVS(854)*UV(343) + JUV(122) = JVS(855)*UV(122)+JVS(856)*UV(231)+JVS(857)*UV(233)+JVS(858)*UV(305)+JVS(859)*UV(343) + JUV(123) = JVS(860)*UV(123)+JVS(861)*UV(336)+JVS(862)*UV(343)+JVS(863)*UV(344)+JVS(864)*UV(347) + JUV(124) = JVS(865)*UV(61)+JVS(866)*UV(124)+JVS(868)*UV(338)+JVS(869)*UV(341)+JVS(870)*UV(343) + JUV(125) = JVS(871)*UV(125)+JVS(872)*UV(243)+JVS(873)*UV(343)+JVS(874)*UV(345) + JUV(126) = JVS(875)*UV(126)+JVS(876)*UV(264)+JVS(877)*UV(341)+JVS(878)*UV(343) + JUV(127) = JVS(879)*UV(127)+JVS(880)*UV(325)+JVS(881)*UV(343)+JVS(882)*UV(345) + JUV(128) = JVS(883)*UV(128)+JVS(884)*UV(253)+JVS(885)*UV(341)+JVS(886)*UV(343) + JUV(129) = JVS(887)*UV(129)+JVS(888)*UV(201)+JVS(889)*UV(343)+JVS(890)*UV(345) + JUV(130) = JVS(891)*UV(130)+JVS(892)*UV(215)+JVS(893)*UV(338)+JVS(894)*UV(343) + JUV(131) = JVS(895)*UV(131)+JVS(896)*UV(202)+JVS(897)*UV(213)+JVS(898)*UV(270)+JVS(899)*UV(271)+JVS(900)*UV(343) + JUV(132) = JVS(901)*UV(112)+JVS(902)*UV(132)+JVS(903)*UV(141)+JVS(904)*UV(194)+JVS(905)*UV(276)+JVS(906)*UV(328)& + &+JVS(907)*UV(334)+JVS(908)*UV(338)+JVS(910)*UV(343)+JVS(911)*UV(348)+JVS(912)*UV(356) + JUV(133) = JVS(913)*UV(133)+JVS(914)*UV(229)+JVS(915)*UV(338)+JVS(916)*UV(341)+JVS(917)*UV(343) + JUV(134) = JVS(918)*UV(134)+JVS(919)*UV(277)+JVS(920)*UV(334)+JVS(921)*UV(341)+JVS(922)*UV(343) + JUV(135) = JVS(923)*UV(135)+JVS(924)*UV(259)+JVS(925)*UV(289)+JVS(926)*UV(338)+JVS(927)*UV(341)+JVS(928)*UV(343) + JUV(136) = JVS(929)*UV(136)+JVS(930)*UV(231)+JVS(931)*UV(338)+JVS(932)*UV(341)+JVS(933)*UV(343) + JUV(137) = JVS(934)*UV(137)+JVS(935)*UV(233)+JVS(936)*UV(338)+JVS(937)*UV(341)+JVS(938)*UV(343) + JUV(138) = JVS(939)*UV(138)+JVS(940)*UV(239)+JVS(941)*UV(334)+JVS(942)*UV(341)+JVS(943)*UV(343) + JUV(139) = JVS(944)*UV(139)+JVS(945)*UV(281)+JVS(946)*UV(338)+JVS(947)*UV(343) + JUV(140) = JVS(948)*UV(140)+JVS(949)*UV(343)+JVS(950)*UV(348)+JVS(951)*UV(356) + JUV(141) = JVS(952)*UV(141)+JVS(953)*UV(276)+JVS(954)*UV(338)+JVS(955)*UV(343) + JUV(142) = JVS(956)*UV(142)+JVS(957)*UV(342)+JVS(958)*UV(343)+JVS(959)*UV(352) + JUV(143) = JVS(960)*UV(143)+JVS(961)*UV(328)+JVS(962)*UV(343)+JVS(963)*UV(345) + JUV(144) = JVS(964)*UV(144)+JVS(965)*UV(343)+JVS(966)*UV(348)+JVS(967)*UV(352) + JUV(145) = JVS(968)*UV(145)+JVS(969)*UV(223)+JVS(970)*UV(343)+JVS(971)*UV(356) + JUV(146) = JVS(972)*UV(93)+JVS(973)*UV(146)+JVS(974)*UV(183)+JVS(975)*UV(244)+JVS(976)*UV(267)+JVS(977)*UV(317)& + &+JVS(978)*UV(320)+JVS(980)*UV(332)+JVS(981)*UV(343)+JVS(982)*UV(345)+JVS(983)*UV(355)+JVS(984)*UV(356) + JUV(147) = JVS(985)*UV(147)+JVS(986)*UV(188)+JVS(987)*UV(303)+JVS(988)*UV(308)+JVS(989)*UV(310)+JVS(990)*UV(328)& + &+JVS(991)*UV(334)+JVS(992)*UV(338)+JVS(993)*UV(348) + JUV(148) = JVS(994)*UV(148)+JVS(995)*UV(343)+JVS(996)*UV(348) + JUV(149) = JVS(997)*UV(149)+JVS(998)*UV(288)+JVS(999)*UV(289)+JVS(1000)*UV(343) + JUV(150) = JVS(1001)*UV(150)+JVS(1002)*UV(213)+JVS(1003)*UV(279)+JVS(1004)*UV(314)+JVS(1005)*UV(343) + JUV(151) = JVS(1006)*UV(151)+JVS(1007)*UV(202)+JVS(1008)*UV(279)+JVS(1009)*UV(315)+JVS(1010)*UV(343) + JUV(152) = JVS(1011)*UV(124)+JVS(1012)*UV(152)+JVS(1014)*UV(338)+JVS(1015)*UV(341)+JVS(1016)*UV(343) + JUV(153) = JVS(1017)*UV(153)+JVS(1018)*UV(221)+JVS(1019)*UV(320)+JVS(1020)*UV(342)+JVS(1021)*UV(343)+JVS(1022)*UV(347)& + &+JVS(1023)*UV(349)+JVS(1024)*UV(350)+JVS(1025)*UV(354) + JUV(154) = JVS(1026)*UV(154)+JVS(1027)*UV(300)+JVS(1028)*UV(319)+JVS(1029)*UV(334)+JVS(1030)*UV(343)+JVS(1031)*UV(352) + JUV(155) = JVS(1032)*UV(155)+JVS(1033)*UV(259)+JVS(1034)*UV(288)+JVS(1035)*UV(338)+JVS(1036)*UV(341)+JVS(1037)*UV(343) + JUV(156) = JVS(1038)*UV(156)+JVS(1039)*UV(246)+JVS(1040)*UV(260)+JVS(1041)*UV(343)+JVS(1042)*UV(348)+JVS(1043)*UV(356) + JUV(157) = JVS(1044)*UV(157)+JVS(1045)*UV(175)+JVS(1046)*UV(177)+JVS(1047)*UV(191)+JVS(1048)*UV(195)+JVS(1049)*UV(343) + JUV(158) = JVS(1050)*UV(158)+JVS(1051)*UV(243)+JVS(1052)*UV(250)+JVS(1053)*UV(325)+JVS(1054)*UV(341)+JVS(1055)*UV(343) + JUV(159) = JVS(1056)*UV(159)+JVS(1057)*UV(175)+JVS(1058)*UV(177)+JVS(1059)*UV(191)+JVS(1060)*UV(195)+JVS(1061)*UV(343) + JUV(160) = JVS(1062)*UV(160)+JVS(1063)*UV(221)+JVS(1064)*UV(301)+JVS(1065)*UV(320)+JVS(1066)*UV(321)+JVS(1067)*UV(332)& + &+JVS(1068)*UV(339)+JVS(1069)*UV(340)+JVS(1070)*UV(344)+JVS(1071)*UV(346)+JVS(1072)*UV(347)+JVS(1073)*UV(349)& + &+JVS(1074)*UV(350)+JVS(1075)*UV(354) + JUV(161) = JVS(1076)*UV(161)+JVS(1077)*UV(262)+JVS(1078)*UV(341)+JVS(1079)*UV(343) + JUV(162) = JVS(1080)*UV(85)+JVS(1081)*UV(103)+JVS(1082)*UV(148)+JVS(1083)*UV(162)+JVS(1084)*UV(203)+JVS(1085)*UV(343)& + &+JVS(1086)*UV(348) + JUV(163) = JVS(1087)*UV(163)+JVS(1088)*UV(282)+JVS(1089)*UV(334)+JVS(1090)*UV(341)+JVS(1091)*UV(343) + JUV(164) = JVS(1092)*UV(164)+JVS(1093)*UV(275)+JVS(1094)*UV(334)+JVS(1095)*UV(341)+JVS(1096)*UV(343) + JUV(165) = JVS(1097)*UV(141)+JVS(1098)*UV(165)+JVS(1099)*UV(275)+JVS(1101)*UV(338)+JVS(1102)*UV(343) + JUV(166) = JVS(1103)*UV(166)+JVS(1104)*UV(256)+JVS(1105)*UV(278)+JVS(1106)*UV(334)+JVS(1107)*UV(338)+JVS(1108)*UV(343)& + &+JVS(1109)*UV(348)+JVS(1110)*UV(356) + JUV(167) = JVS(1111)*UV(167)+JVS(1112)*UV(334)+JVS(1113)*UV(341)+JVS(1114)*UV(343)+JVS(1115)*UV(352) + JUV(168) = JVS(1116)*UV(168)+JVS(1117)*UV(200)+JVS(1118)*UV(338)+JVS(1119)*UV(341)+JVS(1120)*UV(343) + JUV(169) = JVS(1121)*UV(169)+JVS(1122)*UV(333)+JVS(1123)*UV(340)+JVS(1124)*UV(355)+JVS(1125)*UV(356) + JUV(170) = JVS(1126)*UV(170)+JVS(1127)*UV(343)+JVS(1128)*UV(348)+JVS(1129)*UV(356) + JUV(171) = JVS(1130)*UV(171)+JVS(1131)*UV(277)+JVS(1132)*UV(278)+JVS(1133)*UV(334)+JVS(1134)*UV(341)+JVS(1135)*UV(343) + JUV(172) = JVS(1136)*UV(65)+JVS(1137)*UV(172)+JVS(1138)*UV(254)+JVS(1139)*UV(296)+JVS(1140)*UV(331)+JVS(1142)*UV(343)& + &+JVS(1143)*UV(348) + JUV(173) = JVS(1144)*UV(173)+JVS(1145)*UV(233)+JVS(1146)*UV(305)+JVS(1147)*UV(338)+JVS(1148)*UV(341)+JVS(1149)*UV(345) + JUV(174) = JVS(1150)*UV(174)+JVS(1151)*UV(231)+JVS(1152)*UV(305)+JVS(1153)*UV(338)+JVS(1154)*UV(341)+JVS(1155)*UV(345) + JUV(175) = JVS(1156)*UV(175)+JVS(1157)*UV(314)+JVS(1158)*UV(338)+JVS(1159)*UV(343) + JUV(176) = JVS(1160)*UV(103)+JVS(1161)*UV(176)+JVS(1162)*UV(203)+JVS(1163)*UV(204)+JVS(1164)*UV(224)+JVS(1165)*UV(243)& + &+JVS(1166)*UV(250)+JVS(1167)*UV(292)+JVS(1168)*UV(325)+JVS(1169)*UV(328)+JVS(1170)*UV(341)+JVS(1171)*UV(343) + JUV(177) = JVS(1172)*UV(177)+JVS(1173)*UV(315)+JVS(1174)*UV(338)+JVS(1175)*UV(343) + JUV(178) = JVS(1176)*UV(178)+JVS(1177)*UV(226)+JVS(1178)*UV(228)+JVS(1179)*UV(235)+JVS(1180)*UV(341)+JVS(1181)*UV(343) + JUV(179) = JVS(1182)*UV(139)+JVS(1183)*UV(179)+JVS(1185)*UV(282)+JVS(1186)*UV(338)+JVS(1187)*UV(343) + JUV(180) = JVS(1188)*UV(180)+JVS(1189)*UV(212)+JVS(1190)*UV(241)+JVS(1191)*UV(256)+JVS(1192)*UV(278)+JVS(1193)*UV(338)& + &+JVS(1194)*UV(343)+JVS(1195)*UV(348)+JVS(1196)*UV(356) + JUV(181) = JVS(1197)*UV(181)+JVS(1198)*UV(303)+JVS(1199)*UV(338)+JVS(1200)*UV(341)+JVS(1201)*UV(343) + JUV(182) = JVS(1202)*UV(72)+JVS(1203)*UV(100)+JVS(1204)*UV(182)+JVS(1205)*UV(338)+JVS(1206)*UV(341)+JVS(1207)*UV(343)& + &+JVS(1208)*UV(348) + JUV(183) = JVS(1209)*UV(183)+JVS(1210)*UV(333)+JVS(1211)*UV(340)+JVS(1212)*UV(355)+JVS(1213)*UV(356) + JUV(184) = JVS(1214)*UV(184)+JVS(1215)*UV(337)+JVS(1216)*UV(343)+JVS(1217)*UV(352) + JUV(185) = JVS(1218)*UV(185)+JVS(1219)*UV(305)+JVS(1220)*UV(307)+JVS(1221)*UV(338)+JVS(1222)*UV(341)+JVS(1223)*UV(343) + JUV(186) = JVS(1224)*UV(177)+JVS(1225)*UV(186)+JVS(1227)*UV(338)+JVS(1228)*UV(341)+JVS(1229)*UV(343) + JUV(187) = JVS(1230)*UV(187)+JVS(1231)*UV(342)+JVS(1232)*UV(343)+JVS(1233)*UV(348)+JVS(1234)*UV(352) + JUV(188) = JVS(1235)*UV(188)+JVS(1236)*UV(310)+JVS(1237)*UV(341)+JVS(1238)*UV(343) + JUV(189) = JVS(1239)*UV(189)+JVS(1240)*UV(262)+JVS(1241)*UV(312)+JVS(1242)*UV(343)+JVS(1243)*UV(345) + JUV(190) = JVS(1244)*UV(122)+JVS(1245)*UV(149)+JVS(1246)*UV(190)+JVS(1247)*UV(231)+JVS(1248)*UV(233)+JVS(1251)*UV(305)& + &+JVS(1252)*UV(343) + JUV(191) = JVS(1253)*UV(191)+JVS(1254)*UV(314)+JVS(1255)*UV(341)+JVS(1256)*UV(343) + JUV(192) = JVS(1257)*UV(192)+JVS(1258)*UV(252)+JVS(1259)*UV(253)+JVS(1260)*UV(264)+JVS(1261)*UV(292)+JVS(1262)*UV(304)& + &+JVS(1263)*UV(322)+JVS(1264)*UV(323)+JVS(1265)*UV(324)+JVS(1266)*UV(326)+JVS(1267)*UV(327)+JVS(1268)*UV(334)& + &+JVS(1269)*UV(343) + JUV(193) = JVS(1270)*UV(148)+JVS(1271)*UV(193)+JVS(1272)*UV(203)+JVS(1273)*UV(223)+JVS(1274)*UV(338)+JVS(1275)*UV(341)& + &+JVS(1276)*UV(343) + JUV(194) = JVS(1278)*UV(194)+JVS(1279)*UV(343)+JVS(1280)*UV(348)+JVS(1281)*UV(356) + JUV(195) = JVS(1282)*UV(195)+JVS(1283)*UV(315)+JVS(1284)*UV(341)+JVS(1285)*UV(343) + JUV(196) = JVS(1286)*UV(196)+JVS(1287)*UV(294)+JVS(1288)*UV(338)+JVS(1289)*UV(343)+JVS(1290)*UV(348)+JVS(1291)*UV(356) + JUV(197) = JVS(1292)*UV(197)+JVS(1293)*UV(231)+JVS(1294)*UV(233)+JVS(1295)*UV(305)+JVS(1296)*UV(307)+JVS(1297)*UV(343) + JUV(198) = JVS(1298)*UV(178)+JVS(1299)*UV(198)+JVS(1300)*UV(226)+JVS(1301)*UV(228)+JVS(1302)*UV(235)+JVS(1304)*UV(343) + JUV(199) = JVS(1305)*UV(145)+JVS(1306)*UV(199)+JVS(1308)*UV(343)+JVS(1309)*UV(348) + JUV(200) = JVS(1311)*UV(168)+JVS(1312)*UV(182)+JVS(1313)*UV(200)+JVS(1314)*UV(338)+JVS(1315)*UV(341)+JVS(1316)*UV(343) + JUV(201) = JVS(1318)*UV(129)+JVS(1319)*UV(201)+JVS(1320)*UV(229)+JVS(1321)*UV(338)+JVS(1322)*UV(341)+JVS(1323)*UV(343)& + &+JVS(1324)*UV(345) + JUV(202) = JVS(1325)*UV(202)+JVS(1326)*UV(315)+JVS(1327)*UV(341)+JVS(1328)*UV(343) + JUV(203) = JVS(1329)*UV(203)+JVS(1330)*UV(343)+JVS(1331)*UV(348) + JUV(204) = JVS(1332)*UV(85)+JVS(1333)*UV(103)+JVS(1334)*UV(148)+JVS(1335)*UV(162)+JVS(1336)*UV(203)+JVS(1337)*UV(204)& + &+JVS(1338)*UV(343)+JVS(1339)*UV(348)+JVS(1340)*UV(356) + JUV(205) = JVS(1341)*UV(162)+JVS(1342)*UV(199)+JVS(1344)*UV(205)+JVS(1346)*UV(343)+JVS(1347)*UV(348)+JVS(1348)*UV(356) + JUV(206) = JVS(1349)*UV(118)+JVS(1350)*UV(162)+JVS(1351)*UV(199)+JVS(1353)*UV(205)+JVS(1354)*UV(206)+JVS(1357)*UV(238)& + &+JVS(1358)*UV(334)+JVS(1359)*UV(338)+JVS(1361)*UV(343)+JVS(1362)*UV(345)+JVS(1363)*UV(348)+JVS(1364)*UV(356) + JUV(207) = JVS(1365)*UV(85)+JVS(1366)*UV(103)+JVS(1367)*UV(117)+JVS(1368)*UV(148)+JVS(1369)*UV(193)+JVS(1370)*UV(203)& + &+JVS(1371)*UV(207)+JVS(1372)*UV(223)+JVS(1373)*UV(338)+JVS(1374)*UV(341)+JVS(1375)*UV(343)+JVS(1376)*UV(348)& + &+JVS(1377)*UV(356) + JUV(208) = JVS(1378)*UV(208)+JVS(1379)*UV(270)+JVS(1380)*UV(338)+JVS(1381)*UV(341)+JVS(1382)*UV(343) + JUV(209) = JVS(1383)*UV(209)+JVS(1384)*UV(271)+JVS(1385)*UV(338)+JVS(1386)*UV(341)+JVS(1387)*UV(343) + JUV(210) = JVS(1388)*UV(175)+JVS(1389)*UV(210)+JVS(1391)*UV(338)+JVS(1392)*UV(341)+JVS(1393)*UV(343) + JUV(211) = JVS(1394)*UV(135)+JVS(1395)*UV(149)+JVS(1396)*UV(211)+JVS(1397)*UV(245)+JVS(1398)*UV(258)+JVS(1402)*UV(291)& + &+JVS(1403)*UV(338)+JVS(1404)*UV(341)+JVS(1405)*UV(343) + JUV(212) = JVS(1406)*UV(212)+JVS(1407)*UV(284)+JVS(1408)*UV(338)+JVS(1409)*UV(343)+JVS(1410)*UV(348)+JVS(1411)*UV(356) + JUV(213) = JVS(1412)*UV(213)+JVS(1413)*UV(314)+JVS(1414)*UV(341)+JVS(1415)*UV(343) + JUV(214) = JVS(1416)*UV(213)+JVS(1417)*UV(214)+JVS(1418)*UV(228)+JVS(1419)*UV(236)+JVS(1420)*UV(273)+JVS(1421)*UV(279)& + &+JVS(1422)*UV(307)+JVS(1423)*UV(314)+JVS(1424)*UV(338)+JVS(1425)*UV(341)+JVS(1426)*UV(343) + JUV(215) = JVS(1427)*UV(140)+JVS(1428)*UV(215)+JVS(1429)*UV(338)+JVS(1430)*UV(341)+JVS(1431)*UV(343) + JUV(216) = JVS(1434)*UV(115)+JVS(1435)*UV(216)+JVS(1436)*UV(309)+JVS(1437)*UV(338)+JVS(1438)*UV(341)+JVS(1439)*UV(343)& + &+JVS(1440)*UV(345)+JVS(1441)*UV(348) + JUV(217) = JVS(1442)*UV(217)+JVS(1443)*UV(339)+JVS(1444)*UV(340)+JVS(1445)*UV(345)+JVS(1446)*UV(346)+JVS(1447)*UV(348)& + &+JVS(1448)*UV(353) + JUV(218) = JVS(1449)*UV(131)+JVS(1450)*UV(150)+JVS(1451)*UV(151)+JVS(1452)*UV(157)+JVS(1453)*UV(159)+JVS(1456)*UV(188)& + &+JVS(1461)*UV(218)+JVS(1462)*UV(231)+JVS(1463)*UV(233)+JVS(1467)*UV(305)+JVS(1473)*UV(343) + JUV(219) = JVS(1474)*UV(184)+JVS(1475)*UV(219)+JVS(1476)*UV(232)+JVS(1477)*UV(329)+JVS(1478)*UV(337)+JVS(1479)*UV(340)& + &+JVS(1480)*UV(341)+JVS(1481)*UV(343)+JVS(1482)*UV(351)+JVS(1483)*UV(352)+JVS(1484)*UV(354)+JVS(1485)*UV(356) + JUV(220) = JVS(1486)*UV(209)+JVS(1487)*UV(220)+JVS(1488)*UV(236)+JVS(1489)*UV(271)+JVS(1490)*UV(273)+JVS(1491)*UV(299)& + &+JVS(1492)*UV(305)+JVS(1493)*UV(312)+JVS(1494)*UV(334)+JVS(1495)*UV(338)+JVS(1496)*UV(341)+JVS(1497)*UV(343) + JUV(221) = JVS(1498)*UV(221)+JVS(1499)*UV(340)+JVS(1500)*UV(342)+JVS(1501)*UV(345)+JVS(1502)*UV(347)+JVS(1503)*UV(353) + JUV(222) = JVS(1504)*UV(222)+JVS(1505)*UV(343)+JVS(1506)*UV(348)+JVS(1507)*UV(356) + JUV(223) = JVS(1508)*UV(223)+JVS(1509)*UV(343)+JVS(1510)*UV(348)+JVS(1511)*UV(356) + JUV(224) = JVS(1512)*UV(85)+JVS(1513)*UV(103)+JVS(1514)*UV(145)+JVS(1515)*UV(148)+JVS(1516)*UV(199)+JVS(1517)*UV(203)& + &+JVS(1518)*UV(205)+JVS(1520)*UV(224)+JVS(1521)*UV(272)+JVS(1522)*UV(343)+JVS(1523)*UV(348)+JVS(1524)*UV(356) + JUV(225) = JVS(1525)*UV(225)+JVS(1526)*UV(308)+JVS(1527)*UV(310)+JVS(1528)*UV(334)+JVS(1529)*UV(341)+JVS(1530)*UV(343) + JUV(226) = JVS(1531)*UV(195)+JVS(1532)*UV(202)+JVS(1533)*UV(226)+JVS(1535)*UV(338)+JVS(1536)*UV(341)+JVS(1537)*UV(343) + JUV(227) = JVS(1538)*UV(111)+JVS(1539)*UV(139)+JVS(1540)*UV(194)+JVS(1541)*UV(227)+JVS(1542)*UV(281)+JVS(1543)*UV(328)& + &+JVS(1544)*UV(334)+JVS(1545)*UV(338)+JVS(1547)*UV(343)+JVS(1548)*UV(348)+JVS(1549)*UV(356) + JUV(228) = JVS(1550)*UV(191)+JVS(1551)*UV(213)+JVS(1552)*UV(228)+JVS(1554)*UV(338)+JVS(1555)*UV(341)+JVS(1556)*UV(343) + JUV(229) = JVS(1557)*UV(140)+JVS(1558)*UV(215)+JVS(1559)*UV(229)+JVS(1560)*UV(338)+JVS(1562)*UV(343)+JVS(1563)*UV(348)& + &+JVS(1564)*UV(356) + JUV(230) = JVS(1565)*UV(135)+JVS(1566)*UV(149)+JVS(1567)*UV(155)+JVS(1568)*UV(197)+JVS(1569)*UV(230)+JVS(1572)*UV(259)& + &+JVS(1575)*UV(291)+JVS(1577)*UV(306)+JVS(1581)*UV(343) + JUV(231) = JVS(1582)*UV(202)+JVS(1583)*UV(231)+JVS(1584)*UV(279)+JVS(1585)*UV(315)+JVS(1587)*UV(343) + JUV(232) = JVS(1588)*UV(232)+JVS(1589)*UV(293)+JVS(1590)*UV(330)+JVS(1591)*UV(337)+JVS(1592)*UV(343)+JVS(1593)*UV(352)& + &+JVS(1594)*UV(356) + JUV(233) = JVS(1595)*UV(213)+JVS(1596)*UV(233)+JVS(1597)*UV(279)+JVS(1598)*UV(314)+JVS(1600)*UV(343) + JUV(234) = JVS(1601)*UV(234)+JVS(1602)*UV(294)+JVS(1603)*UV(341)+JVS(1604)*UV(343)+JVS(1605)*UV(348)+JVS(1606)*UV(356) + JUV(235) = JVS(1607)*UV(191)+JVS(1608)*UV(195)+JVS(1609)*UV(235)+JVS(1612)*UV(338)+JVS(1613)*UV(341)+JVS(1614)*UV(343) + JUV(236) = JVS(1615)*UV(188)+JVS(1616)*UV(236)+JVS(1618)*UV(338)+JVS(1619)*UV(341)+JVS(1620)*UV(343) + JUV(237) = JVS(1621)*UV(77)+JVS(1622)*UV(105)+JVS(1623)*UV(207)+JVS(1625)*UV(237)+JVS(1626)*UV(334)+JVS(1627)*UV(338)& + &+JVS(1628)*UV(341)+JVS(1629)*UV(343)+JVS(1630)*UV(345)+JVS(1631)*UV(348) + JUV(238) = JVS(1633)*UV(77)+JVS(1634)*UV(118)+JVS(1635)*UV(206)+JVS(1636)*UV(207)+JVS(1637)*UV(223)+JVS(1638)*UV(237)& + &+JVS(1639)*UV(238)+JVS(1640)*UV(334)+JVS(1641)*UV(338)+JVS(1642)*UV(341)+JVS(1643)*UV(343)+JVS(1644)*UV(345)& + &+JVS(1645)*UV(348)+JVS(1646)*UV(356) + JUV(239) = JVS(1647)*UV(120)+JVS(1648)*UV(138)+JVS(1650)*UV(239)+JVS(1651)*UV(250)+JVS(1652)*UV(334)+JVS(1653)*UV(338)& + &+JVS(1654)*UV(341)+JVS(1655)*UV(343)+JVS(1656)*UV(348) + JUV(240) = JVS(1658)*UV(67)+JVS(1659)*UV(68)+JVS(1662)*UV(240)+JVS(1663)*UV(254)+JVS(1664)*UV(272)+JVS(1665)*UV(301)& + &+JVS(1667)*UV(338)+JVS(1668)*UV(339)+JVS(1669)*UV(340)+JVS(1670)*UV(343)+JVS(1671)*UV(345)+JVS(1672)*UV(346)& + &+JVS(1674)*UV(349)+JVS(1675)*UV(350)+JVS(1676)*UV(354) + JUV(241) = JVS(1679)*UV(241)+JVS(1680)*UV(284)+JVS(1681)*UV(328)+JVS(1682)*UV(334)+JVS(1683)*UV(338)+JVS(1684)*UV(341)& + &+JVS(1685)*UV(343)+JVS(1686)*UV(348)+JVS(1687)*UV(356) + JUV(242) = JVS(1688)*UV(202)+JVS(1689)*UV(213)+JVS(1690)*UV(242)+JVS(1691)*UV(270)+JVS(1692)*UV(271)+JVS(1693)*UV(314)& + &+JVS(1694)*UV(315)+JVS(1695)*UV(334)+JVS(1696)*UV(338)+JVS(1698)*UV(343) + JUV(243) = JVS(1699)*UV(125)+JVS(1700)*UV(152)+JVS(1702)*UV(243)+JVS(1703)*UV(338)+JVS(1704)*UV(341)+JVS(1705)*UV(343)& + &+JVS(1706)*UV(345) + JUV(244) = JVS(1708)*UV(244)+JVS(1709)*UV(293)+JVS(1710)*UV(335)+JVS(1711)*UV(338)+JVS(1712)*UV(345)+JVS(1713)*UV(353)& + &+JVS(1714)*UV(355)+JVS(1715)*UV(356) + JUV(245) = JVS(1716)*UV(131)+JVS(1717)*UV(195)+JVS(1720)*UV(245)+JVS(1725)*UV(338)+JVS(1726)*UV(341)+JVS(1727)*UV(343) + JUV(246) = JVS(1728)*UV(196)+JVS(1729)*UV(246)+JVS(1730)*UV(280)+JVS(1731)*UV(292)+JVS(1733)*UV(328)+JVS(1734)*UV(334)& + &+JVS(1736)*UV(341)+JVS(1737)*UV(343)+JVS(1738)*UV(348)+JVS(1739)*UV(356) + JUV(247) = JVS(1740)*UV(202)+JVS(1741)*UV(226)+JVS(1742)*UV(236)+JVS(1743)*UV(247)+JVS(1744)*UV(273)+JVS(1745)*UV(279)& + &+JVS(1746)*UV(290)+JVS(1747)*UV(307)+JVS(1749)*UV(313)+JVS(1750)*UV(315)+JVS(1751)*UV(316)+JVS(1752)*UV(324)& + &+JVS(1753)*UV(338)+JVS(1754)*UV(341)+JVS(1755)*UV(343) + JUV(248) = JVS(1756)*UV(119)+JVS(1757)*UV(248)+JVS(1758)*UV(301)+JVS(1759)*UV(321)+JVS(1760)*UV(332)+JVS(1762)*UV(337)& + &+JVS(1763)*UV(339)+JVS(1764)*UV(340)+JVS(1765)*UV(343)+JVS(1766)*UV(344)+JVS(1767)*UV(346)+JVS(1769)*UV(352) + JUV(249) = JVS(1770)*UV(128)+JVS(1771)*UV(181)+JVS(1772)*UV(185)+JVS(1773)*UV(209)+JVS(1774)*UV(220)+JVS(1775)*UV(236)& + &+JVS(1776)*UV(249)+JVS(1779)*UV(273)+JVS(1780)*UV(299)+JVS(1786)*UV(313)+JVS(1788)*UV(338)+JVS(1789)*UV(341)& + &+JVS(1790)*UV(343)+JVS(1791)*UV(348) + JUV(250) = JVS(1792)*UV(113)+JVS(1793)*UV(250)+JVS(1794)*UV(324)+JVS(1795)*UV(338)+JVS(1796)*UV(341)+JVS(1798)*UV(345) + JUV(251) = JVS(1799)*UV(174)+JVS(1800)*UV(210)+JVS(1802)*UV(251)+JVS(1803)*UV(257)+JVS(1806)*UV(307)+JVS(1807)*UV(312)& + &+JVS(1810)*UV(338)+JVS(1811)*UV(341)+JVS(1812)*UV(343)+JVS(1813)*UV(345) + JUV(252) = JVS(1814)*UV(252)+JVS(1815)*UV(283)+JVS(1816)*UV(328)+JVS(1817)*UV(334)+JVS(1818)*UV(338)+JVS(1819)*UV(341)& + &+JVS(1820)*UV(343) + JUV(253) = JVS(1821)*UV(128)+JVS(1822)*UV(253)+JVS(1823)*UV(293)+JVS(1824)*UV(328)+JVS(1825)*UV(334)+JVS(1826)*UV(338)& + &+JVS(1827)*UV(341)+JVS(1828)*UV(343)+JVS(1829)*UV(348) + JUV(254) = JVS(1830)*UV(254)+JVS(1831)*UV(331)+JVS(1832)*UV(339)+JVS(1833)*UV(345)+JVS(1834)*UV(346)+JVS(1835)*UV(349)& + &+JVS(1836)*UV(350) + JUV(255) = JVS(1837)*UV(255)+JVS(1838)*UV(322)+JVS(1839)*UV(323)+JVS(1840)*UV(324)+JVS(1841)*UV(338)+JVS(1842)*UV(341)& + &+JVS(1843)*UV(343) + JUV(256) = JVS(1844)*UV(170)+JVS(1845)*UV(256)+JVS(1846)*UV(284)+JVS(1847)*UV(328)+JVS(1848)*UV(334)+JVS(1849)*UV(338)& + &+JVS(1850)*UV(341)+JVS(1851)*UV(343)+JVS(1852)*UV(348)+JVS(1853)*UV(356) + JUV(257) = JVS(1854)*UV(174)+JVS(1856)*UV(257)+JVS(1859)*UV(313)+JVS(1861)*UV(338)+JVS(1862)*UV(341)+JVS(1863)*UV(343) + JUV(258) = JVS(1865)*UV(173)+JVS(1867)*UV(258)+JVS(1871)*UV(318)+JVS(1872)*UV(338)+JVS(1873)*UV(341)+JVS(1874)*UV(343) + JUV(259) = JVS(1876)*UV(178)+JVS(1877)*UV(226)+JVS(1878)*UV(228)+JVS(1880)*UV(245)+JVS(1881)*UV(259)+JVS(1884)*UV(288)& + &+JVS(1885)*UV(289)+JVS(1889)*UV(341)+JVS(1890)*UV(343) + JUV(260) = JVS(1891)*UV(165)+JVS(1892)*UV(179)+JVS(1893)*UV(180)+JVS(1897)*UV(260)+JVS(1901)*UV(280)+JVS(1905)*UV(292)& + &+JVS(1906)*UV(328)+JVS(1907)*UV(334)+JVS(1908)*UV(338)+JVS(1909)*UV(341)+JVS(1910)*UV(343)+JVS(1911)*UV(348) + JUV(261) = JVS(1913)*UV(59)+JVS(1914)*UV(76)+JVS(1915)*UV(111)+JVS(1916)*UV(227)+JVS(1917)*UV(261)+JVS(1919)*UV(328)& + &+JVS(1920)*UV(334)+JVS(1921)*UV(338)+JVS(1922)*UV(341)+JVS(1923)*UV(343)+JVS(1924)*UV(345)+JVS(1925)*UV(348) + JUV(262) = JVS(1927)*UV(161)+JVS(1928)*UV(189)+JVS(1929)*UV(262)+JVS(1931)*UV(313)+JVS(1932)*UV(338)+JVS(1933)*UV(341)& + &+JVS(1934)*UV(343)+JVS(1935)*UV(345)+JVS(1936)*UV(348) + JUV(263) = JVS(1937)*UV(196)+JVS(1938)*UV(222)+JVS(1939)*UV(234)+JVS(1940)*UV(263)+JVS(1941)*UV(294)+JVS(1942)*UV(328)& + &+JVS(1943)*UV(334)+JVS(1944)*UV(338)+JVS(1946)*UV(343)+JVS(1947)*UV(348)+JVS(1948)*UV(356) + JUV(264) = JVS(1949)*UV(126)+JVS(1950)*UV(264)+JVS(1951)*UV(293)+JVS(1952)*UV(328)+JVS(1953)*UV(334)+JVS(1954)*UV(338)& + &+JVS(1955)*UV(341)+JVS(1956)*UV(342)+JVS(1957)*UV(343)+JVS(1958)*UV(352) + JUV(265) = JVS(1959)*UV(181)+JVS(1960)*UV(185)+JVS(1961)*UV(208)+JVS(1962)*UV(236)+JVS(1963)*UV(265)+JVS(1965)*UV(273)& + &+JVS(1966)*UV(299)+JVS(1969)*UV(306)+JVS(1970)*UV(307)+JVS(1972)*UV(338)+JVS(1973)*UV(341)+JVS(1974)*UV(343)& + &+JVS(1975)*UV(348) + JUV(266) = JVS(1976)*UV(85)+JVS(1977)*UV(103)+JVS(1978)*UV(139)+JVS(1979)*UV(141)+JVS(1980)*UV(145)+JVS(1981)*UV(148)& + &+JVS(1982)*UV(162)+JVS(1983)*UV(163)+JVS(1984)*UV(170)+JVS(1985)*UV(179)+JVS(1986)*UV(196)+JVS(1987)*UV(199)& + &+JVS(1988)*UV(203)+JVS(1989)*UV(205)+JVS(1990)*UV(212)+JVS(1991)*UV(222)+JVS(1992)*UV(223)+JVS(1993)*UV(234)& + &+JVS(1994)*UV(241)+JVS(1995)*UV(256)+JVS(1996)*UV(263)+JVS(1997)*UV(266)+JVS(2000)*UV(282)+JVS(2003)*UV(328)& + &+JVS(2004)*UV(334)+JVS(2005)*UV(338)+JVS(2006)*UV(341)+JVS(2007)*UV(343)+JVS(2008)*UV(348)+JVS(2009)*UV(356) + JUV(267) = JVS(2010)*UV(244)+JVS(2011)*UV(267)+JVS(2012)*UV(279)+JVS(2014)*UV(317)+JVS(2015)*UV(318)+JVS(2018)*UV(341)& + &+JVS(2019)*UV(343)+JVS(2021)*UV(351)+JVS(2022)*UV(352)+JVS(2023)*UV(353)+JVS(2024)*UV(355)+JVS(2025)*UV(356) + JUV(268) = JVS(2026)*UV(63)+JVS(2027)*UV(92)+JVS(2028)*UV(109)+JVS(2031)*UV(197)+JVS(2032)*UV(204)+JVS(2033)*UV(224)& + &+JVS(2037)*UV(268)+JVS(2041)*UV(306)+JVS(2043)*UV(309)+JVS(2044)*UV(311)+JVS(2049)*UV(317)+JVS(2052)*UV(343)& + &+JVS(2055)*UV(352)+JVS(2056)*UV(353)+JVS(2057)*UV(356) + JUV(269) = JVS(2058)*UV(186)+JVS(2059)*UV(208)+JVS(2060)*UV(209)+JVS(2061)*UV(210)+JVS(2062)*UV(236)+JVS(2063)*UV(245)& + &+JVS(2064)*UV(269)+JVS(2067)*UV(273)+JVS(2068)*UV(288)+JVS(2069)*UV(289)+JVS(2070)*UV(307)+JVS(2074)*UV(338)& + &+JVS(2076)*UV(343) + JUV(270) = JVS(2077)*UV(270)+JVS(2078)*UV(310)+JVS(2079)*UV(314)+JVS(2080)*UV(334)+JVS(2081)*UV(338)+JVS(2082)*UV(343) + JUV(271) = JVS(2083)*UV(271)+JVS(2084)*UV(308)+JVS(2085)*UV(310)+JVS(2086)*UV(315)+JVS(2087)*UV(334)+JVS(2088)*UV(338)& + &+JVS(2089)*UV(343) + JUV(272) = JVS(2090)*UV(162)+JVS(2091)*UV(199)+JVS(2093)*UV(205)+JVS(2094)*UV(206)+JVS(2098)*UV(272)+JVS(2102)*UV(343)& + &+JVS(2103)*UV(345)+JVS(2104)*UV(348) + JUV(273) = JVS(2106)*UV(225)+JVS(2107)*UV(273)+JVS(2111)*UV(338)+JVS(2112)*UV(341)+JVS(2113)*UV(343) + JUV(274) = JVS(2114)*UV(63)+JVS(2115)*UV(85)+JVS(2116)*UV(103)+JVS(2117)*UV(145)+JVS(2118)*UV(190)+JVS(2119)*UV(197)& + &+JVS(2120)*UV(198)+JVS(2121)*UV(199)+JVS(2122)*UV(203)+JVS(2123)*UV(214)+JVS(2125)*UV(224)+JVS(2128)*UV(229)& + &+JVS(2129)*UV(230)+JVS(2134)*UV(259)+JVS(2139)*UV(274)+JVS(2141)*UV(288)+JVS(2148)*UV(309)+JVS(2153)*UV(338)& + &+JVS(2154)*UV(341)+JVS(2155)*UV(343)+JVS(2157)*UV(348)+JVS(2158)*UV(356) + JUV(275) = JVS(2159)*UV(132)+JVS(2161)*UV(164)+JVS(2162)*UV(194)+JVS(2163)*UV(275)+JVS(2166)*UV(334)+JVS(2167)*UV(338)& + &+JVS(2168)*UV(341)+JVS(2169)*UV(343)+JVS(2170)*UV(348)+JVS(2171)*UV(356) + JUV(276) = JVS(2172)*UV(112)+JVS(2173)*UV(194)+JVS(2174)*UV(222)+JVS(2175)*UV(276)+JVS(2176)*UV(328)+JVS(2177)*UV(334)& + &+JVS(2178)*UV(338)+JVS(2179)*UV(341)+JVS(2180)*UV(343)+JVS(2181)*UV(348) + JUV(277) = JVS(2183)*UV(60)+JVS(2184)*UV(164)+JVS(2185)*UV(165)+JVS(2186)*UV(166)+JVS(2187)*UV(170)+JVS(2188)*UV(171)& + &+JVS(2189)*UV(180)+JVS(2190)*UV(212)+JVS(2191)*UV(241)+JVS(2192)*UV(256)+JVS(2193)*UV(275)+JVS(2195)*UV(277)& + &+JVS(2198)*UV(328)+JVS(2199)*UV(334)+JVS(2200)*UV(338)+JVS(2201)*UV(341)+JVS(2202)*UV(343)+JVS(2203)*UV(345)& + &+JVS(2204)*UV(348)+JVS(2205)*UV(356) + JUV(278) = JVS(2206)*UV(212)+JVS(2207)*UV(241)+JVS(2208)*UV(278)+JVS(2211)*UV(334)+JVS(2212)*UV(338)+JVS(2213)*UV(341)& + &+JVS(2214)*UV(343)+JVS(2215)*UV(348)+JVS(2216)*UV(356) + JUV(279) = JVS(2217)*UV(279)+JVS(2218)*UV(343)+JVS(2219)*UV(348)+JVS(2220)*UV(352)+JVS(2221)*UV(356) + JUV(280) = JVS(2222)*UV(170)+JVS(2223)*UV(194)+JVS(2224)*UV(196)+JVS(2225)*UV(222)+JVS(2226)*UV(234)+JVS(2227)*UV(263)& + &+JVS(2228)*UV(280)+JVS(2229)*UV(292)+JVS(2231)*UV(328)+JVS(2232)*UV(334)+JVS(2233)*UV(338)+JVS(2234)*UV(341)& + &+JVS(2236)*UV(348) + JUV(281) = JVS(2238)*UV(111)+JVS(2239)*UV(194)+JVS(2240)*UV(222)+JVS(2241)*UV(281)+JVS(2242)*UV(328)+JVS(2243)*UV(334)& + &+JVS(2244)*UV(338)+JVS(2245)*UV(341)+JVS(2246)*UV(343)+JVS(2247)*UV(348)+JVS(2248)*UV(356) + JUV(282) = JVS(2249)*UV(69)+JVS(2250)*UV(76)+JVS(2251)*UV(163)+JVS(2252)*UV(227)+JVS(2253)*UV(261)+JVS(2255)*UV(282)& + &+JVS(2256)*UV(328)+JVS(2257)*UV(334)+JVS(2258)*UV(338)+JVS(2259)*UV(341)+JVS(2260)*UV(343)+JVS(2262)*UV(348) + JUV(283) = JVS(2264)*UV(252)+JVS(2265)*UV(283)+JVS(2266)*UV(304)+JVS(2267)*UV(324)+JVS(2270)*UV(338)+JVS(2271)*UV(341)& + &+JVS(2272)*UV(343) + JUV(284) = JVS(2273)*UV(170)+JVS(2274)*UV(194)+JVS(2275)*UV(222)+JVS(2276)*UV(284)+JVS(2277)*UV(328)+JVS(2278)*UV(334)& + &+JVS(2279)*UV(338)+JVS(2280)*UV(341)+JVS(2281)*UV(343)+JVS(2282)*UV(348) + JUV(285) = JVS(2284)*UV(239)+JVS(2286)*UV(252)+JVS(2287)*UV(253)+JVS(2288)*UV(264)+JVS(2289)*UV(275)+JVS(2290)*UV(276)& + &+JVS(2291)*UV(278)+JVS(2292)*UV(281)+JVS(2293)*UV(282)+JVS(2295)*UV(284)+JVS(2296)*UV(285)+JVS(2297)*UV(292)& + &+JVS(2299)*UV(294)+JVS(2300)*UV(300)+JVS(2301)*UV(304)+JVS(2302)*UV(308)+JVS(2303)*UV(309)+JVS(2304)*UV(310)& + &+JVS(2305)*UV(316)+JVS(2306)*UV(319)+JVS(2307)*UV(322)+JVS(2308)*UV(323)+JVS(2309)*UV(324)+JVS(2310)*UV(326)& + &+JVS(2311)*UV(327)+JVS(2313)*UV(334)+JVS(2317)*UV(343)+JVS(2320)*UV(352) + JUV(286) = JVS(2322)*UV(204)+JVS(2323)*UV(244)+JVS(2324)*UV(252)+JVS(2325)*UV(253)+JVS(2326)*UV(264)+JVS(2327)*UV(276)& + &+JVS(2328)*UV(281)+JVS(2330)*UV(284)+JVS(2331)*UV(286)+JVS(2333)*UV(294)+JVS(2334)*UV(300)+JVS(2335)*UV(304)& + &+JVS(2336)*UV(311)+JVS(2337)*UV(316)+JVS(2338)*UV(319)+JVS(2339)*UV(322)+JVS(2340)*UV(323)+JVS(2341)*UV(324)& + &+JVS(2342)*UV(326)+JVS(2343)*UV(327)+JVS(2344)*UV(328)+JVS(2345)*UV(334)+JVS(2348)*UV(341)+JVS(2350)*UV(343)& + &+JVS(2353)*UV(352)+JVS(2354)*UV(353)+JVS(2356)*UV(356) + JUV(287) = JVS(2357)*UV(172)+JVS(2359)*UV(287)+JVS(2360)*UV(296)+JVS(2362)*UV(336)+JVS(2364)*UV(339)+JVS(2365)*UV(341)& + &+JVS(2366)*UV(343)+JVS(2368)*UV(346)+JVS(2370)*UV(349)+JVS(2371)*UV(350)+JVS(2372)*UV(353) + JUV(288) = JVS(2373)*UV(149)+JVS(2374)*UV(157)+JVS(2375)*UV(159)+JVS(2380)*UV(242)+JVS(2383)*UV(288)+JVS(2390)*UV(338)& + &+JVS(2391)*UV(341)+JVS(2392)*UV(343) + JUV(289) = JVS(2393)*UV(149)+JVS(2394)*UV(157)+JVS(2395)*UV(159)+JVS(2400)*UV(242)+JVS(2404)*UV(289)+JVS(2410)*UV(338)& + &+JVS(2411)*UV(341)+JVS(2412)*UV(343) + JUV(290) = JVS(2413)*UV(151)+JVS(2414)*UV(195)+JVS(2415)*UV(198)+JVS(2418)*UV(228)+JVS(2419)*UV(231)+JVS(2421)*UV(242)& + &+JVS(2422)*UV(257)+JVS(2423)*UV(259)+JVS(2424)*UV(269)+JVS(2425)*UV(270)+JVS(2427)*UV(273)+JVS(2431)*UV(290)& + &+JVS(2433)*UV(307)+JVS(2437)*UV(314)+JVS(2438)*UV(315)+JVS(2439)*UV(334)+JVS(2440)*UV(338)+JVS(2441)*UV(341)& + &+JVS(2442)*UV(343) + JUV(291) = JVS(2447)*UV(150)+JVS(2448)*UV(191)+JVS(2449)*UV(198)+JVS(2451)*UV(226)+JVS(2453)*UV(233)+JVS(2455)*UV(242)& + &+JVS(2456)*UV(258)+JVS(2457)*UV(269)+JVS(2459)*UV(271)+JVS(2460)*UV(273)+JVS(2464)*UV(291)+JVS(2469)*UV(314)& + &+JVS(2470)*UV(315)+JVS(2472)*UV(334)+JVS(2473)*UV(338)+JVS(2474)*UV(341)+JVS(2475)*UV(343) + JUV(292) = JVS(2480)*UV(170)+JVS(2481)*UV(194)+JVS(2482)*UV(222)+JVS(2483)*UV(280)+JVS(2484)*UV(292)+JVS(2486)*UV(328)& + &+JVS(2487)*UV(334)+JVS(2488)*UV(338)+JVS(2489)*UV(341)+JVS(2491)*UV(348) + JUV(293) = JVS(2493)*UV(293)+JVS(2494)*UV(318)+JVS(2495)*UV(342)+JVS(2496)*UV(343)+JVS(2497)*UV(348)+JVS(2498)*UV(352)& + &+JVS(2499)*UV(356) + JUV(294) = JVS(2500)*UV(222)+JVS(2501)*UV(294)+JVS(2502)*UV(328)+JVS(2503)*UV(334)+JVS(2504)*UV(338)+JVS(2505)*UV(341)& + &+JVS(2506)*UV(343)+JVS(2507)*UV(348) + JUV(295) = JVS(2509)*UV(163)+JVS(2510)*UV(179)+JVS(2511)*UV(182)+JVS(2512)*UV(222)+JVS(2513)*UV(255)+JVS(2514)*UV(260)& + &+JVS(2515)*UV(263)+JVS(2519)*UV(280)+JVS(2521)*UV(282)+JVS(2522)*UV(283)+JVS(2524)*UV(292)+JVS(2526)*UV(295)& + &+JVS(2527)*UV(304)+JVS(2529)*UV(323)+JVS(2530)*UV(324)+JVS(2531)*UV(328)+JVS(2532)*UV(334)+JVS(2533)*UV(338)& + &+JVS(2535)*UV(343)+JVS(2537)*UV(348)+JVS(2538)*UV(356) + JUV(296) = JVS(2539)*UV(172)+JVS(2541)*UV(296)+JVS(2542)*UV(331)+JVS(2543)*UV(336)+JVS(2545)*UV(339)+JVS(2547)*UV(345)& + &+JVS(2548)*UV(346)+JVS(2549)*UV(348)+JVS(2550)*UV(349)+JVS(2551)*UV(350)+JVS(2552)*UV(353) + JUV(297) = JVS(2553)*UV(94)+JVS(2554)*UV(102)+JVS(2555)*UV(163)+JVS(2556)*UV(164)+JVS(2557)*UV(165)+JVS(2558)*UV(179)& + &+JVS(2559)*UV(222)+JVS(2560)*UV(234)+JVS(2561)*UV(255)+JVS(2562)*UV(263)+JVS(2563)*UV(275)+JVS(2566)*UV(282)& + &+JVS(2567)*UV(283)+JVS(2568)*UV(294)+JVS(2569)*UV(297)+JVS(2570)*UV(304)+JVS(2572)*UV(323)+JVS(2574)*UV(327)& + &+JVS(2575)*UV(328)+JVS(2576)*UV(334)+JVS(2577)*UV(338)+JVS(2579)*UV(342)+JVS(2580)*UV(343)+JVS(2582)*UV(348)& + &+JVS(2583)*UV(352)+JVS(2584)*UV(356) + JUV(298) = JVS(2585)*UV(85)+JVS(2586)*UV(103)+JVS(2587)*UV(109)+JVS(2590)*UV(190)+JVS(2591)*UV(197)+JVS(2592)*UV(198)& + &+JVS(2593)*UV(202)+JVS(2594)*UV(203)+JVS(2595)*UV(204)+JVS(2596)*UV(213)+JVS(2597)*UV(218)+JVS(2600)*UV(230)& + &+JVS(2601)*UV(231)+JVS(2602)*UV(233)+JVS(2604)*UV(242)+JVS(2605)*UV(247)+JVS(2606)*UV(249)+JVS(2608)*UV(257)& + &+JVS(2609)*UV(258)+JVS(2610)*UV(259)+JVS(2612)*UV(269)+JVS(2616)*UV(279)+JVS(2618)*UV(289)+JVS(2619)*UV(290)& + &+JVS(2620)*UV(291)+JVS(2622)*UV(298)+JVS(2626)*UV(306)+JVS(2630)*UV(311)+JVS(2632)*UV(313)+JVS(2633)*UV(314)& + &+JVS(2634)*UV(315)+JVS(2635)*UV(316)+JVS(2636)*UV(318)+JVS(2638)*UV(328)+JVS(2639)*UV(334)+JVS(2640)*UV(338)& + &+JVS(2641)*UV(341)+JVS(2643)*UV(343)+JVS(2645)*UV(348)+JVS(2647)*UV(356) + JUV(299) = JVS(2648)*UV(147)+JVS(2650)*UV(225)+JVS(2651)*UV(299)+JVS(2653)*UV(307)+JVS(2658)*UV(338)+JVS(2659)*UV(341)& + &+JVS(2660)*UV(343) + JUV(300) = JVS(2662)*UV(176)+JVS(2663)*UV(187)+JVS(2672)*UV(300)+JVS(2675)*UV(328)+JVS(2676)*UV(334)+JVS(2677)*UV(338)& + &+JVS(2678)*UV(341)+JVS(2679)*UV(342)+JVS(2680)*UV(343)+JVS(2682)*UV(348)+JVS(2683)*UV(352) + JUV(301) = JVS(2685)*UV(217)+JVS(2686)*UV(301)+JVS(2687)*UV(339)+JVS(2688)*UV(340)+JVS(2689)*UV(343)+JVS(2691)*UV(346)& + &+JVS(2693)*UV(349)+JVS(2694)*UV(350)+JVS(2696)*UV(354) + JUV(302) = JVS(2697)*UV(97)+JVS(2698)*UV(99)+JVS(2699)*UV(100)+JVS(2700)*UV(101)+JVS(2701)*UV(104)+JVS(2702)*UV(128)& + &+JVS(2703)*UV(134)+JVS(2704)*UV(164)+JVS(2705)*UV(165)+JVS(2706)*UV(168)+JVS(2707)*UV(171)+JVS(2708)*UV(182)& + &+JVS(2709)*UV(192)+JVS(2710)*UV(200)+JVS(2711)*UV(204)+JVS(2712)*UV(215)+JVS(2713)*UV(222)+JVS(2714)*UV(224)& + &+JVS(2715)*UV(234)+JVS(2716)*UV(246)+JVS(2717)*UV(252)+JVS(2718)*UV(253)+JVS(2719)*UV(255)+JVS(2720)*UV(264)& + &+JVS(2722)*UV(275)+JVS(2724)*UV(277)+JVS(2726)*UV(280)+JVS(2727)*UV(283)+JVS(2729)*UV(292)+JVS(2732)*UV(302)& + &+JVS(2733)*UV(304)+JVS(2735)*UV(322)+JVS(2736)*UV(323)+JVS(2738)*UV(326)+JVS(2740)*UV(328)+JVS(2741)*UV(334)& + &+JVS(2742)*UV(338)+JVS(2743)*UV(341)+JVS(2745)*UV(343)+JVS(2747)*UV(348)+JVS(2749)*UV(356) + JUV(303) = JVS(2750)*UV(181)+JVS(2751)*UV(186)+JVS(2752)*UV(208)+JVS(2753)*UV(209)+JVS(2754)*UV(210)+JVS(2755)*UV(236)& + &+JVS(2758)*UV(273)+JVS(2759)*UV(299)+JVS(2760)*UV(303)+JVS(2762)*UV(308)+JVS(2763)*UV(310)+JVS(2768)*UV(338)& + &+JVS(2769)*UV(341)+JVS(2770)*UV(343) + JUV(304) = JVS(2772)*UV(104)+JVS(2773)*UV(144)+JVS(2774)*UV(204)+JVS(2775)*UV(304)+JVS(2776)*UV(328)+JVS(2777)*UV(334)& + &+JVS(2778)*UV(338)+JVS(2779)*UV(341)+JVS(2780)*UV(343)+JVS(2781)*UV(348)+JVS(2782)*UV(352) + JUV(305) = JVS(2784)*UV(147)+JVS(2785)*UV(188)+JVS(2786)*UV(270)+JVS(2787)*UV(271)+JVS(2788)*UV(303)+JVS(2789)*UV(305)& + &+JVS(2791)*UV(308)+JVS(2792)*UV(310)+JVS(2795)*UV(328)+JVS(2796)*UV(334)+JVS(2797)*UV(338)+JVS(2799)*UV(343)& + &+JVS(2800)*UV(348) + JUV(306) = JVS(2801)*UV(173)+JVS(2802)*UV(186)+JVS(2803)*UV(208)+JVS(2805)*UV(236)+JVS(2806)*UV(258)+JVS(2807)*UV(270)& + &+JVS(2808)*UV(273)+JVS(2810)*UV(299)+JVS(2812)*UV(305)+JVS(2813)*UV(306)+JVS(2814)*UV(307)+JVS(2822)*UV(338)& + &+JVS(2823)*UV(341)+JVS(2824)*UV(343)+JVS(2825)*UV(345) + JUV(307) = JVS(2829)*UV(186)+JVS(2830)*UV(188)+JVS(2831)*UV(208)+JVS(2832)*UV(209)+JVS(2833)*UV(210)+JVS(2834)*UV(225)& + &+JVS(2835)*UV(226)+JVS(2836)*UV(228)+JVS(2837)*UV(235)+JVS(2838)*UV(236)+JVS(2841)*UV(273)+JVS(2842)*UV(299)& + &+JVS(2843)*UV(303)+JVS(2844)*UV(307)+JVS(2851)*UV(338)+JVS(2852)*UV(341)+JVS(2853)*UV(343) + JUV(308) = JVS(2855)*UV(225)+JVS(2856)*UV(279)+JVS(2857)*UV(308)+JVS(2858)*UV(310)+JVS(2859)*UV(328)+JVS(2860)*UV(334)& + &+JVS(2861)*UV(338)+JVS(2862)*UV(341)+JVS(2863)*UV(343)+JVS(2864)*UV(348) + JUV(309) = JVS(2867)*UV(73)+JVS(2868)*UV(113)+JVS(2869)*UV(114)+JVS(2870)*UV(129)+JVS(2871)*UV(130)+JVS(2872)*UV(133)& + &+JVS(2873)*UV(138)+JVS(2874)*UV(178)+JVS(2875)*UV(181)+JVS(2876)*UV(198)+JVS(2877)*UV(201)+JVS(2878)*UV(204)& + &+JVS(2879)*UV(205)+JVS(2880)*UV(209)+JVS(2881)*UV(210)+JVS(2882)*UV(215)+JVS(2884)*UV(224)+JVS(2885)*UV(226)& + &+JVS(2888)*UV(235)+JVS(2889)*UV(239)+JVS(2891)*UV(258)+JVS(2892)*UV(259)+JVS(2893)*UV(263)+JVS(2894)*UV(269)& + &+JVS(2898)*UV(273)+JVS(2901)*UV(289)+JVS(2902)*UV(291)+JVS(2904)*UV(299)+JVS(2905)*UV(303)+JVS(2907)*UV(306)& + &+JVS(2908)*UV(307)+JVS(2910)*UV(309)+JVS(2917)*UV(334)+JVS(2918)*UV(338)+JVS(2919)*UV(341)+JVS(2920)*UV(343)& + &+JVS(2922)*UV(348)+JVS(2924)*UV(356) + JUV(310) = JVS(2925)*UV(188)+JVS(2926)*UV(279)+JVS(2927)*UV(308)+JVS(2928)*UV(310)+JVS(2929)*UV(328)+JVS(2930)*UV(334)& + &+JVS(2931)*UV(338)+JVS(2932)*UV(341)+JVS(2933)*UV(343)+JVS(2934)*UV(348) + JUV(311) = JVS(2937)*UV(126)+JVS(2938)*UV(155)+JVS(2939)*UV(156)+JVS(2940)*UV(161)+JVS(2941)*UV(178)+JVS(2942)*UV(189)& + &+JVS(2943)*UV(198)+JVS(2944)*UV(208)+JVS(2945)*UV(210)+JVS(2946)*UV(218)+JVS(2948)*UV(228)+JVS(2951)*UV(235)& + &+JVS(2952)*UV(245)+JVS(2954)*UV(251)+JVS(2955)*UV(257)+JVS(2956)*UV(259)+JVS(2959)*UV(264)+JVS(2962)*UV(273)& + &+JVS(2971)*UV(288)+JVS(2973)*UV(290)+JVS(2977)*UV(299)+JVS(2978)*UV(303)+JVS(2980)*UV(307)+JVS(2983)*UV(311)& + &+JVS(2984)*UV(312)+JVS(2988)*UV(316)+JVS(2990)*UV(328)+JVS(2991)*UV(334)+JVS(2992)*UV(338)+JVS(2993)*UV(341)& + &+JVS(2995)*UV(343)+JVS(2997)*UV(348) + JUV(312) = JVS(3000)*UV(251)+JVS(3007)*UV(312)+JVS(3012)*UV(334)+JVS(3013)*UV(338)+JVS(3014)*UV(341)+JVS(3015)*UV(343)& + &+JVS(3016)*UV(345)+JVS(3017)*UV(348) + JUV(313) = JVS(3020)*UV(136)+JVS(3021)*UV(151)+JVS(3022)*UV(177)+JVS(3023)*UV(195)+JVS(3025)*UV(225)+JVS(3026)*UV(231)& + &+JVS(3027)*UV(279)+JVS(3028)*UV(303)+JVS(3030)*UV(308)+JVS(3031)*UV(310)+JVS(3032)*UV(313)+JVS(3033)*UV(314)& + &+JVS(3034)*UV(315)+JVS(3035)*UV(328)+JVS(3036)*UV(334)+JVS(3037)*UV(338)+JVS(3038)*UV(341)+JVS(3039)*UV(343)& + &+JVS(3040)*UV(348)+JVS(3042)*UV(356) + JUV(314) = JVS(3043)*UV(188)+JVS(3044)*UV(191)+JVS(3045)*UV(213)+JVS(3046)*UV(279)+JVS(3048)*UV(314)+JVS(3049)*UV(315)& + &+JVS(3051)*UV(334)+JVS(3052)*UV(338)+JVS(3053)*UV(341)+JVS(3054)*UV(343)+JVS(3056)*UV(352) + JUV(315) = JVS(3058)*UV(188)+JVS(3059)*UV(195)+JVS(3060)*UV(202)+JVS(3061)*UV(279)+JVS(3063)*UV(314)+JVS(3064)*UV(315)& + &+JVS(3066)*UV(334)+JVS(3067)*UV(338)+JVS(3068)*UV(341)+JVS(3069)*UV(343)+JVS(3071)*UV(352) + JUV(316) = JVS(3073)*UV(247)+JVS(3077)*UV(297)+JVS(3086)*UV(316)+JVS(3091)*UV(328)+JVS(3092)*UV(334)+JVS(3093)*UV(338)& + &+JVS(3094)*UV(341)+JVS(3095)*UV(342)+JVS(3096)*UV(343)+JVS(3099)*UV(352) + JUV(317) = JVS(3101)*UV(120)+JVS(3102)*UV(194)+JVS(3103)*UV(223)+JVS(3105)*UV(256)+JVS(3106)*UV(279)+JVS(3108)*UV(293)& + &+JVS(3109)*UV(313)+JVS(3112)*UV(317)+JVS(3113)*UV(318)+JVS(3116)*UV(335)+JVS(3117)*UV(338)+JVS(3121)*UV(345)& + &+JVS(3124)*UV(353)+JVS(3125)*UV(355)+JVS(3126)*UV(356) + JUV(318) = JVS(3127)*UV(85)+JVS(3128)*UV(103)+JVS(3129)*UV(137)+JVS(3130)*UV(150)+JVS(3131)*UV(175)+JVS(3132)*UV(191)& + &+JVS(3134)*UV(222)+JVS(3135)*UV(225)+JVS(3136)*UV(233)+JVS(3137)*UV(234)+JVS(3138)*UV(263)+JVS(3139)*UV(279)& + &+JVS(3140)*UV(294)+JVS(3141)*UV(303)+JVS(3143)*UV(308)+JVS(3144)*UV(310)+JVS(3145)*UV(314)+JVS(3146)*UV(315)& + &+JVS(3147)*UV(318)+JVS(3148)*UV(328)+JVS(3149)*UV(334)+JVS(3150)*UV(338)+JVS(3151)*UV(341)+JVS(3152)*UV(343)& + &+JVS(3153)*UV(348)+JVS(3155)*UV(356) + JUV(319) = JVS(3156)*UV(121)+JVS(3157)*UV(255)+JVS(3158)*UV(283)+JVS(3159)*UV(295)+JVS(3161)*UV(302)+JVS(3162)*UV(304)& + &+JVS(3164)*UV(319)+JVS(3166)*UV(323)+JVS(3168)*UV(325)+JVS(3171)*UV(328)+JVS(3172)*UV(334)+JVS(3173)*UV(338)& + &+JVS(3174)*UV(341)+JVS(3176)*UV(343)+JVS(3179)*UV(352) + JUV(320) = JVS(3181)*UV(153)+JVS(3182)*UV(221)+JVS(3183)*UV(320)+JVS(3184)*UV(339)+JVS(3185)*UV(340)+JVS(3186)*UV(341)& + &+JVS(3188)*UV(343)+JVS(3190)*UV(346)+JVS(3191)*UV(347)+JVS(3192)*UV(349)+JVS(3193)*UV(350)+JVS(3194)*UV(351)& + &+JVS(3195)*UV(353)+JVS(3196)*UV(354)+JVS(3197)*UV(355)+JVS(3198)*UV(356) + JUV(321) = JVS(3199)*UV(321)+JVS(3200)*UV(339)+JVS(3201)*UV(340)+JVS(3202)*UV(343)+JVS(3203)*UV(344)+JVS(3204)*UV(345)& + &+JVS(3205)*UV(346)+JVS(3206)*UV(349)+JVS(3207)*UV(350)+JVS(3208)*UV(351)+JVS(3209)*UV(352)+JVS(3210)*UV(353)& + &+JVS(3211)*UV(354) + JUV(322) = JVS(3212)*UV(255)+JVS(3213)*UV(272)+JVS(3214)*UV(322)+JVS(3217)*UV(328)+JVS(3218)*UV(334)+JVS(3219)*UV(338)& + &+JVS(3220)*UV(341)+JVS(3221)*UV(343)+JVS(3223)*UV(348) + JUV(323) = JVS(3225)*UV(99)+JVS(3226)*UV(134)+JVS(3227)*UV(144)+JVS(3228)*UV(164)+JVS(3229)*UV(165)+JVS(3230)*UV(171)& + &+JVS(3231)*UV(182)+JVS(3232)*UV(252)+JVS(3233)*UV(275)+JVS(3235)*UV(277)+JVS(3240)*UV(322)+JVS(3241)*UV(323)& + &+JVS(3243)*UV(328)+JVS(3244)*UV(334)+JVS(3245)*UV(338)+JVS(3246)*UV(341)+JVS(3247)*UV(343)+JVS(3249)*UV(348) + JUV(324) = JVS(3252)*UV(222)+JVS(3253)*UV(295)+JVS(3257)*UV(324)+JVS(3258)*UV(328)+JVS(3259)*UV(334)+JVS(3260)*UV(338)& + &+JVS(3261)*UV(341)+JVS(3262)*UV(343)+JVS(3264)*UV(348)+JVS(3266)*UV(356) + JUV(325) = JVS(3267)*UV(127)+JVS(3268)*UV(158)+JVS(3269)*UV(163)+JVS(3270)*UV(179)+JVS(3271)*UV(200)+JVS(3272)*UV(204)& + &+JVS(3273)*UV(224)+JVS(3274)*UV(243)+JVS(3278)*UV(282)+JVS(3279)*UV(295)+JVS(3280)*UV(302)+JVS(3282)*UV(318)& + &+JVS(3286)*UV(325)+JVS(3289)*UV(328)+JVS(3290)*UV(334)+JVS(3291)*UV(338)+JVS(3292)*UV(341)+JVS(3294)*UV(343)& + &+JVS(3295)*UV(345)+JVS(3296)*UV(348) + JUV(326) = JVS(3299)*UV(101)+JVS(3300)*UV(142)+JVS(3301)*UV(255)+JVS(3302)*UV(283)+JVS(3303)*UV(295)+JVS(3304)*UV(302)& + &+JVS(3305)*UV(304)+JVS(3308)*UV(323)+JVS(3310)*UV(325)+JVS(3311)*UV(326)+JVS(3313)*UV(328)+JVS(3314)*UV(334)& + &+JVS(3315)*UV(338)+JVS(3316)*UV(341)+JVS(3317)*UV(342)+JVS(3318)*UV(343)+JVS(3321)*UV(352) + JUV(327) = JVS(3323)*UV(102)+JVS(3324)*UV(142)+JVS(3325)*UV(255)+JVS(3326)*UV(283)+JVS(3327)*UV(295)+JVS(3328)*UV(302)& + &+JVS(3329)*UV(304)+JVS(3332)*UV(323)+JVS(3334)*UV(325)+JVS(3336)*UV(327)+JVS(3337)*UV(328)+JVS(3338)*UV(334)& + &+JVS(3339)*UV(338)+JVS(3340)*UV(341)+JVS(3342)*UV(343)+JVS(3345)*UV(352) + JUV(328) = JVS(3347)*UV(95)+JVS(3348)*UV(109)+JVS(3349)*UV(116)+JVS(3350)*UV(125)+JVS(3351)*UV(134)+JVS(3352)*UV(143)& + &+JVS(3353)*UV(152)+JVS(3354)*UV(161)+JVS(3355)*UV(171)+JVS(3357)*UV(190)+JVS(3358)*UV(197)+JVS(3359)*UV(200)& + &+JVS(3361)*UV(211)+JVS(3362)*UV(213)+JVS(3363)*UV(230)+JVS(3368)*UV(247)+JVS(3369)*UV(249)+JVS(3370)*UV(252)& + &+JVS(3371)*UV(253)+JVS(3372)*UV(258)+JVS(3374)*UV(261)+JVS(3375)*UV(262)+JVS(3376)*UV(264)+JVS(3377)*UV(265)& + &+JVS(3378)*UV(266)+JVS(3382)*UV(276)+JVS(3383)*UV(277)+JVS(3385)*UV(279)+JVS(3386)*UV(280)+JVS(3387)*UV(281)& + &+JVS(3390)*UV(284)+JVS(3394)*UV(291)+JVS(3395)*UV(292)+JVS(3397)*UV(294)+JVS(3398)*UV(295)+JVS(3399)*UV(297)& + &+JVS(3400)*UV(298)+JVS(3402)*UV(300)+JVS(3404)*UV(304)+JVS(3406)*UV(306)+JVS(3408)*UV(308)+JVS(3409)*UV(310)& + &+JVS(3410)*UV(311)+JVS(3412)*UV(313)+JVS(3413)*UV(314)+JVS(3415)*UV(316)+JVS(3416)*UV(318)+JVS(3417)*UV(319)& + &+JVS(3418)*UV(322)+JVS(3419)*UV(323)+JVS(3420)*UV(324)+JVS(3421)*UV(325)+JVS(3422)*UV(326)+JVS(3423)*UV(327)& + &+JVS(3424)*UV(328)+JVS(3425)*UV(330)+JVS(3426)*UV(334)+JVS(3427)*UV(338)+JVS(3428)*UV(341)+JVS(3429)*UV(342)& + &+JVS(3430)*UV(343)+JVS(3431)*UV(345)+JVS(3432)*UV(348)+JVS(3434)*UV(356) + JUV(329) = JVS(3435)*UV(74)+JVS(3436)*UV(83)+JVS(3437)*UV(87)+JVS(3438)*UV(92)+JVS(3439)*UV(93)+JVS(3440)*UV(95)& + &+JVS(3441)*UV(96)+JVS(3442)*UV(112)+JVS(3443)*UV(114)+JVS(3444)*UV(115)+JVS(3445)*UV(120)+JVS(3446)*UV(125)& + &+JVS(3447)*UV(126)+JVS(3448)*UV(130)+JVS(3449)*UV(134)+JVS(3451)*UV(139)+JVS(3452)*UV(140)+JVS(3453)*UV(141)& + &+JVS(3454)*UV(143)+JVS(3455)*UV(148)+JVS(3456)*UV(152)+JVS(3457)*UV(161)+JVS(3458)*UV(163)+JVS(3459)*UV(167)& + &+JVS(3460)*UV(168)+JVS(3461)*UV(171)+JVS(3462)*UV(175)+JVS(3463)*UV(177)+JVS(3464)*UV(179)+JVS(3465)*UV(186)& + &+JVS(3466)*UV(191)+JVS(3467)*UV(194)+JVS(3468)*UV(195)+JVS(3470)*UV(201)+JVS(3471)*UV(202)+JVS(3472)*UV(203)& + &+JVS(3473)*UV(208)+JVS(3474)*UV(209)+JVS(3475)*UV(210)+JVS(3476)*UV(211)+JVS(3477)*UV(212)+JVS(3478)*UV(213)& + &+JVS(3479)*UV(214)+JVS(3480)*UV(215)+JVS(3481)*UV(216)+JVS(3482)*UV(218)+JVS(3483)*UV(222)+JVS(3484)*UV(223)& + &+JVS(3485)*UV(225)+JVS(3486)*UV(226)+JVS(3487)*UV(228)+JVS(3488)*UV(229)+JVS(3489)*UV(231)+JVS(3490)*UV(232)& + &+JVS(3491)*UV(233)+JVS(3492)*UV(234)+JVS(3493)*UV(236)+JVS(3494)*UV(237)+JVS(3495)*UV(238)+JVS(3496)*UV(239)& + &+JVS(3498)*UV(245)+JVS(3499)*UV(247)+JVS(3500)*UV(249)+JVS(3502)*UV(252)+JVS(3503)*UV(253)+JVS(3504)*UV(256)& + &+JVS(3505)*UV(257)+JVS(3506)*UV(258)+JVS(3507)*UV(259)+JVS(3508)*UV(261)+JVS(3509)*UV(262)+JVS(3510)*UV(263)& + &+JVS(3511)*UV(264)+JVS(3512)*UV(265)+JVS(3513)*UV(266)+JVS(3516)*UV(273)+JVS(3517)*UV(274)+JVS(3518)*UV(275)& + &+JVS(3519)*UV(276)+JVS(3520)*UV(277)+JVS(3521)*UV(278)+JVS(3522)*UV(279)+JVS(3523)*UV(280)+JVS(3524)*UV(281)& + &+JVS(3525)*UV(282)+JVS(3527)*UV(284)+JVS(3528)*UV(285)+JVS(3531)*UV(290)+JVS(3532)*UV(291)+JVS(3533)*UV(292)& + &+JVS(3534)*UV(293)+JVS(3535)*UV(294)+JVS(3536)*UV(299)+JVS(3537)*UV(300)+JVS(3538)*UV(303)+JVS(3539)*UV(304)& + &+JVS(3541)*UV(306)+JVS(3542)*UV(307)+JVS(3543)*UV(308)+JVS(3544)*UV(309)+JVS(3545)*UV(310)+JVS(3546)*UV(311)& + &+JVS(3547)*UV(312)+JVS(3548)*UV(313)+JVS(3549)*UV(314)+JVS(3550)*UV(315)+JVS(3551)*UV(316)+JVS(3552)*UV(317)& + &+JVS(3553)*UV(318)+JVS(3554)*UV(319)+JVS(3555)*UV(322)+JVS(3556)*UV(323)+JVS(3557)*UV(324)+JVS(3558)*UV(325)& + &+JVS(3559)*UV(326)+JVS(3560)*UV(327)+JVS(3561)*UV(328)+JVS(3562)*UV(329)+JVS(3563)*UV(330)+JVS(3564)*UV(334)& + &+JVS(3565)*UV(335)+JVS(3566)*UV(337)+JVS(3567)*UV(338)+JVS(3568)*UV(341)+JVS(3569)*UV(342)+JVS(3570)*UV(343)& + &+JVS(3571)*UV(344)+JVS(3572)*UV(345)+JVS(3573)*UV(348)+JVS(3574)*UV(351)+JVS(3575)*UV(352)+JVS(3576)*UV(353)& + &+JVS(3577)*UV(355)+JVS(3578)*UV(356) + JUV(330) = JVS(3579)*UV(86)+JVS(3580)*UV(121)+JVS(3581)*UV(126)+JVS(3582)*UV(127)+JVS(3583)*UV(148)+JVS(3584)*UV(154)& + &+JVS(3585)*UV(158)+JVS(3586)*UV(168)+JVS(3587)*UV(200)+JVS(3589)*UV(244)+JVS(3591)*UV(252)+JVS(3592)*UV(253)& + &+JVS(3593)*UV(255)+JVS(3594)*UV(264)+JVS(3595)*UV(283)+JVS(3596)*UV(293)+JVS(3597)*UV(300)+JVS(3598)*UV(304)& + &+JVS(3600)*UV(319)+JVS(3601)*UV(322)+JVS(3602)*UV(323)+JVS(3603)*UV(324)+JVS(3607)*UV(328)+JVS(3608)*UV(330)& + &+JVS(3609)*UV(334)+JVS(3610)*UV(335)+JVS(3611)*UV(338)+JVS(3612)*UV(341)+JVS(3613)*UV(342)+JVS(3614)*UV(343)& + &+JVS(3615)*UV(345)+JVS(3616)*UV(348)+JVS(3617)*UV(352)+JVS(3618)*UV(353)+JVS(3619)*UV(355)+JVS(3620)*UV(356) + JUV(331) = JVS(3621)*UV(1)+JVS(3622)*UV(2)+JVS(3623)*UV(3)+JVS(3624)*UV(47)+JVS(3625)*UV(55)+JVS(3626)*UV(65)& + &+JVS(3627)*UV(75)+JVS(3628)*UV(81)+JVS(3629)*UV(98)+JVS(3630)*UV(107)+JVS(3631)*UV(172)+JVS(3632)*UV(254)& + &+JVS(3633)*UV(287)+JVS(3634)*UV(296)+JVS(3635)*UV(331)+JVS(3636)*UV(336)+JVS(3637)*UV(338)+JVS(3639)*UV(341)& + &+JVS(3640)*UV(343)+JVS(3641)*UV(344)+JVS(3642)*UV(345)+JVS(3644)*UV(347)+JVS(3645)*UV(348)+JVS(3649)*UV(356) + JUV(332) = JVS(3650)*UV(78)+JVS(3651)*UV(123)+JVS(3652)*UV(248)+JVS(3653)*UV(301)+JVS(3654)*UV(321)+JVS(3655)*UV(332)& + &+JVS(3659)*UV(339)+JVS(3660)*UV(340)+JVS(3661)*UV(341)+JVS(3662)*UV(343)+JVS(3663)*UV(344)+JVS(3665)*UV(346)& + &+JVS(3672)*UV(353)+JVS(3673)*UV(354)+JVS(3674)*UV(355) + JUV(333) = JVS(3675)*UV(48)+JVS(3676)*UV(72)+JVS(3677)*UV(87)+JVS(3678)*UV(106)+JVS(3679)*UV(144)+JVS(3680)*UV(148)& + &+JVS(3682)*UV(162)+JVS(3683)*UV(169)+JVS(3686)*UV(183)+JVS(3687)*UV(187)+JVS(3689)*UV(199)+JVS(3690)*UV(203)& + &+JVS(3691)*UV(205)+JVS(3692)*UV(207)+JVS(3693)*UV(217)+JVS(3695)*UV(221)+JVS(3698)*UV(227)+JVS(3705)*UV(265)& + &+JVS(3709)*UV(272)+JVS(3711)*UV(274)+JVS(3725)*UV(295)+JVS(3726)*UV(296)+JVS(3727)*UV(298)+JVS(3729)*UV(302)& + &+JVS(3736)*UV(309)+JVS(3740)*UV(313)+JVS(3745)*UV(321)+JVS(3752)*UV(329)+JVS(3753)*UV(330)+JVS(3755)*UV(333)& + &+JVS(3761)*UV(339)+JVS(3762)*UV(340)+JVS(3765)*UV(343)+JVS(3767)*UV(345)+JVS(3768)*UV(346)+JVS(3770)*UV(348)& + &+JVS(3771)*UV(349)+JVS(3772)*UV(350)+JVS(3775)*UV(353)+JVS(3776)*UV(354) + JUV(334) = JVS(3779)*UV(55)+JVS(3780)*UV(83)+JVS(3781)*UV(87)+JVS(3782)*UV(95)+JVS(3783)*UV(108)+JVS(3784)*UV(143)& + &+JVS(3785)*UV(158)+JVS(3786)*UV(161)+JVS(3787)*UV(167)+JVS(3788)*UV(184)+JVS(3789)*UV(232)+JVS(3790)*UV(237)& + &+JVS(3791)*UV(238)+JVS(3792)*UV(239)+JVS(3795)*UV(252)+JVS(3796)*UV(253)+JVS(3797)*UV(255)+JVS(3798)*UV(261)& + &+JVS(3799)*UV(262)+JVS(3800)*UV(264)+JVS(3801)*UV(266)+JVS(3802)*UV(275)+JVS(3803)*UV(276)+JVS(3804)*UV(277)& + &+JVS(3805)*UV(278)+JVS(3806)*UV(279)+JVS(3807)*UV(280)+JVS(3808)*UV(281)+JVS(3809)*UV(282)+JVS(3810)*UV(283)& + &+JVS(3811)*UV(284)+JVS(3812)*UV(286)+JVS(3813)*UV(292)+JVS(3814)*UV(293)+JVS(3815)*UV(294)+JVS(3816)*UV(295)& + &+JVS(3817)*UV(297)+JVS(3818)*UV(300)+JVS(3819)*UV(304)+JVS(3820)*UV(308)+JVS(3821)*UV(310)+JVS(3822)*UV(311)& + &+JVS(3823)*UV(312)+JVS(3825)*UV(314)+JVS(3826)*UV(315)+JVS(3827)*UV(316)+JVS(3828)*UV(318)+JVS(3829)*UV(319)& + &+JVS(3830)*UV(322)+JVS(3831)*UV(323)+JVS(3832)*UV(324)+JVS(3833)*UV(325)+JVS(3834)*UV(326)+JVS(3835)*UV(327)& + &+JVS(3836)*UV(328)+JVS(3837)*UV(330)+JVS(3838)*UV(334)+JVS(3840)*UV(337)+JVS(3841)*UV(338)+JVS(3842)*UV(341)& + &+JVS(3844)*UV(343)+JVS(3845)*UV(344)+JVS(3846)*UV(345)+JVS(3847)*UV(348)+JVS(3848)*UV(352)+JVS(3851)*UV(356) + JUV(335) = JVS(3852)*UV(63)+JVS(3853)*UV(71)+JVS(3854)*UV(80)+JVS(3855)*UV(84)+JVS(3856)*UV(85)+JVS(3857)*UV(103)& + &+JVS(3858)*UV(109)+JVS(3859)*UV(113)+JVS(3860)*UV(115)+JVS(3861)*UV(122)+JVS(3862)*UV(125)+JVS(3863)*UV(127)& + &+JVS(3864)*UV(129)+JVS(3865)*UV(130)+JVS(3866)*UV(133)+JVS(3867)*UV(143)+JVS(3868)*UV(145)+JVS(3869)*UV(149)& + &+JVS(3870)*UV(150)+JVS(3871)*UV(151)+JVS(3872)*UV(152)+JVS(3873)*UV(155)+JVS(3874)*UV(161)+JVS(3875)*UV(170)& + &+JVS(3876)*UV(184)+JVS(3877)*UV(185)+JVS(3878)*UV(189)+JVS(3879)*UV(190)+JVS(3880)*UV(191)+JVS(3881)*UV(194)& + &+JVS(3882)*UV(195)+JVS(3883)*UV(197)+JVS(3884)*UV(201)+JVS(3885)*UV(202)+JVS(3886)*UV(203)+JVS(3887)*UV(204)& + &+JVS(3888)*UV(207)+JVS(3889)*UV(211)+JVS(3890)*UV(213)+JVS(3891)*UV(214)+JVS(3894)*UV(218)+JVS(3895)*UV(220)& + &+JVS(3896)*UV(223)+JVS(3897)*UV(224)+JVS(3898)*UV(227)+JVS(3900)*UV(229)+JVS(3901)*UV(230)+JVS(3902)*UV(231)& + &+JVS(3903)*UV(233)+JVS(3905)*UV(242)+JVS(3907)*UV(244)+JVS(3908)*UV(245)+JVS(3910)*UV(251)+JVS(3911)*UV(256)& + &+JVS(3912)*UV(257)+JVS(3914)*UV(259)+JVS(3915)*UV(262)+JVS(3916)*UV(265)+JVS(3917)*UV(269)+JVS(3918)*UV(270)& + &+JVS(3919)*UV(271)+JVS(3920)*UV(272)+JVS(3922)*UV(274)+JVS(3923)*UV(279)+JVS(3926)*UV(288)+JVS(3927)*UV(289)& + &+JVS(3928)*UV(290)+JVS(3930)*UV(293)+JVS(3931)*UV(297)+JVS(3932)*UV(298)+JVS(3934)*UV(302)+JVS(3937)*UV(305)& + &+JVS(3941)*UV(309)+JVS(3943)*UV(311)+JVS(3945)*UV(313)+JVS(3946)*UV(314)+JVS(3947)*UV(315)+JVS(3949)*UV(317)& + &+JVS(3950)*UV(318)+JVS(3958)*UV(329)+JVS(3959)*UV(330)+JVS(3960)*UV(334)+JVS(3961)*UV(335)+JVS(3963)*UV(338)& + &+JVS(3964)*UV(341)+JVS(3965)*UV(342)+JVS(3966)*UV(343)+JVS(3969)*UV(348)+JVS(3970)*UV(351)+JVS(3971)*UV(352)& + &+JVS(3974)*UV(356) + JUV(336) = JVS(3975)*UV(47)+JVS(3976)*UV(58)+JVS(3977)*UV(98)+JVS(3978)*UV(287)+JVS(3979)*UV(296)+JVS(3980)*UV(331)& + &+JVS(3981)*UV(336)+JVS(3982)*UV(338)+JVS(3984)*UV(341)+JVS(3985)*UV(343)+JVS(3986)*UV(344)+JVS(3987)*UV(345)& + &+JVS(3989)*UV(347)+JVS(3994)*UV(356) + JUV(337) = JVS(3995)*UV(49)+JVS(3996)*UV(50)+JVS(3997)*UV(51)+JVS(3998)*UV(52)+JVS(3999)*UV(53)+JVS(4000)*UV(54)& + &+JVS(4001)*UV(56)+JVS(4002)*UV(57)+JVS(4003)*UV(64)+JVS(4004)*UV(66)+JVS(4006)*UV(79)+JVS(4007)*UV(82)& + &+JVS(4008)*UV(88)+JVS(4009)*UV(89)+JVS(4010)*UV(90)+JVS(4011)*UV(91)+JVS(4012)*UV(108)+JVS(4013)*UV(184)& + &+JVS(4014)*UV(232)+JVS(4015)*UV(248)+JVS(4026)*UV(337)+JVS(4029)*UV(340)+JVS(4042)*UV(353)+JVS(4043)*UV(354)& + &+JVS(4045)*UV(356) + JUV(338) = JVS(4046)*UV(65)+JVS(4047)*UV(66)+JVS(4048)*UV(70)+JVS(4049)*UV(98)+JVS(4050)*UV(124)+JVS(4051)*UV(133)& + &+JVS(4052)*UV(136)+JVS(4053)*UV(137)+JVS(4054)*UV(168)+JVS(4055)*UV(173)+JVS(4056)*UV(174)+JVS(4057)*UV(181)& + &+JVS(4058)*UV(182)+JVS(4059)*UV(185)+JVS(4060)*UV(186)+JVS(4061)*UV(193)+JVS(4063)*UV(201)+JVS(4065)*UV(208)& + &+JVS(4066)*UV(209)+JVS(4067)*UV(210)+JVS(4068)*UV(215)+JVS(4069)*UV(216)+JVS(4071)*UV(226)+JVS(4072)*UV(228)& + &+JVS(4076)*UV(235)+JVS(4077)*UV(236)+JVS(4078)*UV(237)+JVS(4079)*UV(238)+JVS(4080)*UV(239)+JVS(4081)*UV(240)& + &+JVS(4082)*UV(243)+JVS(4083)*UV(244)+JVS(4084)*UV(245)+JVS(4085)*UV(250)+JVS(4086)*UV(252)+JVS(4087)*UV(253)& + &+JVS(4089)*UV(257)+JVS(4090)*UV(258)+JVS(4091)*UV(261)+JVS(4092)*UV(262)+JVS(4093)*UV(264)+JVS(4094)*UV(266)& + &+JVS(4098)*UV(273)+JVS(4099)*UV(275)+JVS(4100)*UV(276)+JVS(4101)*UV(277)+JVS(4102)*UV(278)+JVS(4104)*UV(280)& + &+JVS(4105)*UV(281)+JVS(4106)*UV(282)+JVS(4108)*UV(284)+JVS(4109)*UV(288)+JVS(4110)*UV(289)+JVS(4111)*UV(292)& + &+JVS(4113)*UV(294)+JVS(4114)*UV(299)+JVS(4115)*UV(300)+JVS(4118)*UV(304)+JVS(4121)*UV(308)+JVS(4123)*UV(310)& + &+JVS(4124)*UV(312)+JVS(4126)*UV(314)+JVS(4127)*UV(315)+JVS(4128)*UV(316)+JVS(4129)*UV(317)+JVS(4131)*UV(319)& + &+JVS(4132)*UV(322)+JVS(4133)*UV(323)+JVS(4134)*UV(324)+JVS(4135)*UV(325)+JVS(4136)*UV(326)+JVS(4137)*UV(327)& + &+JVS(4138)*UV(328)+JVS(4140)*UV(331)+JVS(4142)*UV(334)+JVS(4144)*UV(336)+JVS(4145)*UV(337)+JVS(4146)*UV(338)& + &+JVS(4149)*UV(341)+JVS(4151)*UV(343)+JVS(4152)*UV(344)+JVS(4153)*UV(345)+JVS(4155)*UV(347)+JVS(4156)*UV(348)& + &+JVS(4159)*UV(351)+JVS(4164)*UV(356) + JUV(339) = JVS(4165)*UV(183)+JVS(4166)*UV(217)+JVS(4167)*UV(254)+JVS(4168)*UV(287)+JVS(4169)*UV(296)+JVS(4170)*UV(301)& + &+JVS(4171)*UV(320)+JVS(4172)*UV(321)+JVS(4174)*UV(332)+JVS(4181)*UV(339)+JVS(4182)*UV(340)+JVS(4185)*UV(343) + JUV(340) = JVS(4199)*UV(80)+JVS(4200)*UV(84)+JVS(4201)*UV(142)+JVS(4202)*UV(144)+JVS(4203)*UV(154)+JVS(4204)*UV(167)& + &+JVS(4205)*UV(169)+JVS(4206)*UV(183)+JVS(4207)*UV(184)+JVS(4208)*UV(187)+JVS(4209)*UV(217)+JVS(4210)*UV(221)& + &+JVS(4211)*UV(232)+JVS(4212)*UV(267)+JVS(4213)*UV(268)+JVS(4215)*UV(279)+JVS(4216)*UV(285)+JVS(4217)*UV(286)& + &+JVS(4219)*UV(293)+JVS(4221)*UV(297)+JVS(4223)*UV(301)+JVS(4240)*UV(320)+JVS(4241)*UV(321)+JVS(4249)*UV(329)& + &+JVS(4251)*UV(332)+JVS(4256)*UV(337)+JVS(4259)*UV(340)+JVS(4260)*UV(341)+JVS(4262)*UV(343)+JVS(4263)*UV(344)& + &+JVS(4271)*UV(352)+JVS(4274)*UV(355) + JUV(341) = JVS(4276)*UV(63)+JVS(4277)*UV(74)+JVS(4278)*UV(80)+JVS(4279)*UV(83)+JVS(4280)*UV(84)+JVS(4281)*UV(85)& + &+JVS(4282)*UV(86)+JVS(4283)*UV(92)+JVS(4284)*UV(94)+JVS(4285)*UV(96)+JVS(4286)*UV(97)+JVS(4287)*UV(99)& + &+JVS(4288)*UV(100)+JVS(4289)*UV(101)+JVS(4290)*UV(102)+JVS(4291)*UV(103)+JVS(4292)*UV(104)+JVS(4293)*UV(108)& + &+JVS(4294)*UV(110)+JVS(4295)*UV(111)+JVS(4296)*UV(112)+JVS(4297)*UV(114)+JVS(4298)*UV(116)+JVS(4299)*UV(117)& + &+JVS(4300)*UV(121)+JVS(4301)*UV(122)+JVS(4302)*UV(124)+JVS(4303)*UV(126)+JVS(4304)*UV(128)+JVS(4305)*UV(130)& + &+JVS(4306)*UV(131)+JVS(4307)*UV(133)+JVS(4308)*UV(135)+JVS(4309)*UV(136)+JVS(4310)*UV(137)+JVS(4312)*UV(139)& + &+JVS(4313)*UV(141)+JVS(4314)*UV(145)+JVS(4315)*UV(147)+JVS(4316)*UV(148)+JVS(4317)*UV(149)+JVS(4318)*UV(150)& + &+JVS(4319)*UV(151)+JVS(4320)*UV(152)+JVS(4321)*UV(154)+JVS(4322)*UV(155)+JVS(4323)*UV(157)+JVS(4324)*UV(158)& + &+JVS(4325)*UV(159)+JVS(4326)*UV(162)+JVS(4327)*UV(164)+JVS(4328)*UV(167)+JVS(4329)*UV(168)+JVS(4330)*UV(173)& + &+JVS(4331)*UV(174)+JVS(4332)*UV(175)+JVS(4333)*UV(177)+JVS(4334)*UV(178)+JVS(4335)*UV(181)+JVS(4336)*UV(182)& + &+JVS(4337)*UV(184)+JVS(4338)*UV(185)+JVS(4339)*UV(186)+JVS(4340)*UV(188)+JVS(4341)*UV(190)+JVS(4342)*UV(191)& + &+JVS(4343)*UV(192)+JVS(4344)*UV(193)+JVS(4345)*UV(195)+JVS(4346)*UV(197)+JVS(4347)*UV(198)+JVS(4348)*UV(199)& + &+JVS(4349)*UV(200)+JVS(4350)*UV(201)+JVS(4351)*UV(202)+JVS(4352)*UV(203)+JVS(4353)*UV(204)+JVS(4354)*UV(205)& + &+JVS(4355)*UV(207)+JVS(4356)*UV(208)+JVS(4357)*UV(209)+JVS(4358)*UV(210)+JVS(4359)*UV(211)+JVS(4360)*UV(213)& + &+JVS(4361)*UV(214)+JVS(4362)*UV(215)+JVS(4363)*UV(216)+JVS(4364)*UV(219)+JVS(4365)*UV(220)+JVS(4366)*UV(222)& + &+JVS(4367)*UV(223)+JVS(4368)*UV(224)+JVS(4369)*UV(225)+JVS(4370)*UV(226)+JVS(4371)*UV(227)+JVS(4372)*UV(228)& + &+JVS(4373)*UV(229)+JVS(4374)*UV(230)+JVS(4375)*UV(231)+JVS(4376)*UV(232)+JVS(4377)*UV(233)+JVS(4378)*UV(234)& + &+JVS(4379)*UV(235)+JVS(4380)*UV(236)+JVS(4381)*UV(237)+JVS(4382)*UV(238)+JVS(4383)*UV(239)+JVS(4384)*UV(242)& + &+JVS(4385)*UV(243)+JVS(4386)*UV(245)+JVS(4387)*UV(250)+JVS(4388)*UV(251)+JVS(4389)*UV(252)+JVS(4390)*UV(253)& + &+JVS(4391)*UV(255)+JVS(4392)*UV(256)+JVS(4393)*UV(257)+JVS(4394)*UV(258)+JVS(4395)*UV(259)+JVS(4396)*UV(261)& + &+JVS(4397)*UV(262)+JVS(4398)*UV(263)+JVS(4399)*UV(264)+JVS(4400)*UV(265)+JVS(4401)*UV(266)+JVS(4402)*UV(267)& + &+JVS(4403)*UV(268)+JVS(4404)*UV(269)+JVS(4405)*UV(270)+JVS(4406)*UV(271)+JVS(4407)*UV(272)+JVS(4408)*UV(273)& + &+JVS(4409)*UV(274)+JVS(4410)*UV(275)+JVS(4411)*UV(276)+JVS(4412)*UV(277)+JVS(4413)*UV(278)+JVS(4414)*UV(279)& + &+JVS(4415)*UV(280)+JVS(4416)*UV(281)+JVS(4417)*UV(282)+JVS(4418)*UV(283)+JVS(4419)*UV(284)+JVS(4420)*UV(285)& + &+JVS(4421)*UV(288)+JVS(4422)*UV(289)+JVS(4423)*UV(290)+JVS(4424)*UV(291)+JVS(4425)*UV(292)+JVS(4426)*UV(293)& + &+JVS(4427)*UV(294)+JVS(4428)*UV(298)+JVS(4429)*UV(299)+JVS(4430)*UV(300)+JVS(4431)*UV(302)+JVS(4432)*UV(303)& + &+JVS(4433)*UV(304)+JVS(4434)*UV(305)+JVS(4435)*UV(306)+JVS(4436)*UV(307)+JVS(4437)*UV(308)+JVS(4438)*UV(309)& + &+JVS(4439)*UV(310)+JVS(4440)*UV(311)+JVS(4441)*UV(312)+JVS(4442)*UV(313)+JVS(4443)*UV(314)+JVS(4444)*UV(315)& + &+JVS(4445)*UV(316)+JVS(4447)*UV(318)+JVS(4448)*UV(319)+JVS(4449)*UV(322)+JVS(4450)*UV(323)+JVS(4451)*UV(324)& + &+JVS(4452)*UV(325)+JVS(4453)*UV(326)+JVS(4454)*UV(327)+JVS(4455)*UV(328)+JVS(4456)*UV(329)+JVS(4457)*UV(330)& + &+JVS(4458)*UV(331)+JVS(4459)*UV(334)+JVS(4460)*UV(335)+JVS(4461)*UV(336)+JVS(4462)*UV(337)+JVS(4463)*UV(338)& + &+JVS(4466)*UV(341)+JVS(4467)*UV(342)+JVS(4468)*UV(343)+JVS(4469)*UV(344)+JVS(4470)*UV(345)+JVS(4472)*UV(347)& + &+JVS(4473)*UV(348)+JVS(4476)*UV(351)+JVS(4477)*UV(352)+JVS(4480)*UV(355)+JVS(4481)*UV(356) + JUV(342) = JVS(4482)*UV(2)+JVS(4483)*UV(56)+JVS(4484)*UV(57)+JVS(4485)*UV(62)+JVS(4486)*UV(64)+JVS(4487)*UV(79)& + &+JVS(4488)*UV(81)+JVS(4489)*UV(82)+JVS(4490)*UV(108)+JVS(4491)*UV(142)+JVS(4492)*UV(153)+JVS(4493)*UV(160)& + &+JVS(4494)*UV(187)+JVS(4495)*UV(221)+JVS(4498)*UV(293)+JVS(4500)*UV(297)+JVS(4504)*UV(320)+JVS(4511)*UV(329)& + &+JVS(4512)*UV(330)+JVS(4513)*UV(331)+JVS(4517)*UV(336)+JVS(4518)*UV(337)+JVS(4519)*UV(338)+JVS(4522)*UV(341)& + &+JVS(4523)*UV(342)+JVS(4524)*UV(343)+JVS(4525)*UV(344)+JVS(4526)*UV(345)+JVS(4528)*UV(347)+JVS(4529)*UV(348)& + &+JVS(4532)*UV(351)+JVS(4535)*UV(354)+JVS(4537)*UV(356) + JUV(343) = JVS(4538)*UV(44)+JVS(4539)*UV(46)+JVS(4540)*UV(55)+JVS(4541)*UV(61)+JVS(4542)*UV(63)+JVS(4543)*UV(69)& + &+JVS(4544)*UV(71)+JVS(4545)*UV(72)+JVS(4546)*UV(73)+JVS(4547)*UV(74)+JVS(4548)*UV(75)+JVS(4549)*UV(76)& + &+JVS(4550)*UV(77)+JVS(4551)*UV(78)+JVS(4552)*UV(79)+JVS(4553)*UV(80)+JVS(4554)*UV(82)+JVS(4555)*UV(84)& + &+JVS(4556)*UV(85)+JVS(4557)*UV(86)+JVS(4558)*UV(87)+JVS(4559)*UV(88)+JVS(4560)*UV(89)+JVS(4561)*UV(90)& + &+JVS(4562)*UV(91)+JVS(4563)*UV(92)+JVS(4564)*UV(93)+JVS(4565)*UV(94)+JVS(4566)*UV(95)+JVS(4567)*UV(96)& + &+JVS(4568)*UV(97)+JVS(4569)*UV(99)+JVS(4570)*UV(100)+JVS(4571)*UV(101)+JVS(4572)*UV(102)+JVS(4573)*UV(103)& + &+JVS(4574)*UV(104)+JVS(4575)*UV(105)+JVS(4576)*UV(108)+JVS(4577)*UV(109)+JVS(4578)*UV(110)+JVS(4579)*UV(111)& + &+JVS(4580)*UV(112)+JVS(4581)*UV(113)+JVS(4582)*UV(115)+JVS(4583)*UV(116)+JVS(4584)*UV(117)+JVS(4585)*UV(118)& + &+JVS(4586)*UV(120)+JVS(4587)*UV(121)+JVS(4588)*UV(122)+JVS(4589)*UV(123)+JVS(4590)*UV(125)+JVS(4591)*UV(126)& + &+JVS(4592)*UV(127)+JVS(4593)*UV(128)+JVS(4594)*UV(129)+JVS(4595)*UV(130)+JVS(4596)*UV(131)+JVS(4597)*UV(132)& + &+JVS(4598)*UV(134)+JVS(4599)*UV(135)+JVS(4600)*UV(136)+JVS(4601)*UV(137)+JVS(4602)*UV(138)+JVS(4603)*UV(139)& + &+JVS(4604)*UV(140)+JVS(4605)*UV(141)+JVS(4606)*UV(142)+JVS(4607)*UV(143)+JVS(4608)*UV(144)+JVS(4609)*UV(145)& + &+JVS(4610)*UV(146)+JVS(4611)*UV(148)+JVS(4612)*UV(149)+JVS(4613)*UV(150)+JVS(4614)*UV(151)+JVS(4615)*UV(152)& + &+JVS(4616)*UV(153)+JVS(4617)*UV(154)+JVS(4618)*UV(155)+JVS(4619)*UV(156)+JVS(4620)*UV(157)+JVS(4621)*UV(158)& + &+JVS(4622)*UV(159)+JVS(4623)*UV(161)+JVS(4624)*UV(162)+JVS(4625)*UV(163)+JVS(4626)*UV(164)+JVS(4627)*UV(165)& + &+JVS(4628)*UV(166)+JVS(4629)*UV(167)+JVS(4630)*UV(170)+JVS(4631)*UV(171)+JVS(4632)*UV(172)+JVS(4633)*UV(173)& + &+JVS(4634)*UV(174)+JVS(4635)*UV(175)+JVS(4636)*UV(176)+JVS(4637)*UV(177)+JVS(4638)*UV(178)+JVS(4639)*UV(179)& + &+JVS(4640)*UV(180)+JVS(4641)*UV(181)+JVS(4644)*UV(184)+JVS(4645)*UV(185)+JVS(4646)*UV(186)+JVS(4647)*UV(187)& + &+JVS(4648)*UV(188)+JVS(4649)*UV(189)+JVS(4650)*UV(190)+JVS(4651)*UV(191)+JVS(4652)*UV(192)+JVS(4653)*UV(193)& + &+JVS(4654)*UV(194)+JVS(4655)*UV(195)+JVS(4656)*UV(196)+JVS(4657)*UV(197)+JVS(4658)*UV(198)+JVS(4659)*UV(199)& + &+JVS(4660)*UV(200)+JVS(4661)*UV(201)+JVS(4662)*UV(202)+JVS(4663)*UV(203)+JVS(4664)*UV(204)+JVS(4665)*UV(205)& + &+JVS(4666)*UV(207)+JVS(4667)*UV(208)+JVS(4668)*UV(209)+JVS(4669)*UV(210)+JVS(4670)*UV(211)+JVS(4671)*UV(212)& + &+JVS(4672)*UV(213)+JVS(4673)*UV(214)+JVS(4675)*UV(216)+JVS(4676)*UV(219)+JVS(4677)*UV(220)+JVS(4679)*UV(222)& + &+JVS(4680)*UV(223)+JVS(4681)*UV(224)+JVS(4682)*UV(225)+JVS(4683)*UV(226)+JVS(4684)*UV(227)+JVS(4685)*UV(228)& + &+JVS(4686)*UV(229)+JVS(4687)*UV(231)+JVS(4688)*UV(232)+JVS(4689)*UV(233)+JVS(4690)*UV(234)+JVS(4691)*UV(235)& + &+JVS(4692)*UV(236)+JVS(4693)*UV(237)+JVS(4696)*UV(240)+JVS(4697)*UV(241)+JVS(4698)*UV(242)+JVS(4699)*UV(243)& + &+JVS(4701)*UV(245)+JVS(4702)*UV(246)+JVS(4703)*UV(247)+JVS(4704)*UV(248)+JVS(4705)*UV(249)+JVS(4706)*UV(250)& + &+JVS(4707)*UV(251)+JVS(4711)*UV(255)+JVS(4712)*UV(256)+JVS(4713)*UV(257)+JVS(4714)*UV(258)+JVS(4715)*UV(259)& + &+JVS(4716)*UV(260)+JVS(4717)*UV(261)+JVS(4718)*UV(262)+JVS(4719)*UV(263)+JVS(4721)*UV(265)+JVS(4722)*UV(266)& + &+JVS(4723)*UV(267)+JVS(4724)*UV(268)+JVS(4725)*UV(269)+JVS(4726)*UV(270)+JVS(4727)*UV(271)+JVS(4728)*UV(272)& + &+JVS(4729)*UV(273)+JVS(4730)*UV(274)+JVS(4733)*UV(277)+JVS(4735)*UV(279)+JVS(4739)*UV(283)+JVS(4741)*UV(285)& + &+JVS(4742)*UV(286)+JVS(4743)*UV(287)+JVS(4744)*UV(288)+JVS(4745)*UV(289)+JVS(4746)*UV(290)+JVS(4747)*UV(291)& + &+JVS(4749)*UV(293)+JVS(4751)*UV(295)+JVS(4753)*UV(297)+JVS(4754)*UV(298)+JVS(4755)*UV(299)+JVS(4757)*UV(301)& + &+JVS(4758)*UV(302)+JVS(4759)*UV(303)+JVS(4761)*UV(305)+JVS(4762)*UV(306)+JVS(4763)*UV(307)+JVS(4764)*UV(308)& + &+JVS(4765)*UV(309)+JVS(4767)*UV(311)+JVS(4768)*UV(312)+JVS(4769)*UV(313)+JVS(4770)*UV(314)+JVS(4771)*UV(315)& + &+JVS(4772)*UV(316)+JVS(4774)*UV(318)+JVS(4776)*UV(320)+JVS(4777)*UV(321)+JVS(4780)*UV(324)+JVS(4781)*UV(325)& + &+JVS(4784)*UV(328)+JVS(4785)*UV(329)+JVS(4786)*UV(330)+JVS(4788)*UV(332)+JVS(4789)*UV(333)+JVS(4790)*UV(334)& + &+JVS(4791)*UV(335)+JVS(4793)*UV(337)+JVS(4794)*UV(338)+JVS(4795)*UV(339)+JVS(4796)*UV(340)+JVS(4797)*UV(341)& + &+JVS(4799)*UV(343)+JVS(4800)*UV(344)+JVS(4801)*UV(345)+JVS(4802)*UV(346)+JVS(4803)*UV(347)+JVS(4804)*UV(348)& + &+JVS(4807)*UV(351)+JVS(4808)*UV(352)+JVS(4809)*UV(353)+JVS(4810)*UV(354)+JVS(4811)*UV(355)+JVS(4812)*UV(356) + JUV(344) = JVS(4813)*UV(49)+JVS(4814)*UV(50)+JVS(4815)*UV(51)+JVS(4816)*UV(52)+JVS(4817)*UV(53)+JVS(4818)*UV(54)& + &+JVS(4819)*UV(64)+JVS(4820)*UV(78)+JVS(4821)*UV(88)+JVS(4822)*UV(89)+JVS(4823)*UV(90)+JVS(4824)*UV(91)& + &+JVS(4825)*UV(119)+JVS(4826)*UV(123)+JVS(4827)*UV(184)+JVS(4828)*UV(248)+JVS(4829)*UV(300)+JVS(4831)*UV(319)& + &+JVS(4832)*UV(321)+JVS(4841)*UV(332)+JVS(4842)*UV(334)+JVS(4844)*UV(336)+JVS(4845)*UV(337)+JVS(4846)*UV(338)& + &+JVS(4848)*UV(340)+JVS(4849)*UV(341)+JVS(4851)*UV(343)+JVS(4852)*UV(344)+JVS(4853)*UV(345)+JVS(4855)*UV(347)& + &+JVS(4859)*UV(351)+JVS(4860)*UV(352)+JVS(4864)*UV(356) + JUV(345) = JVS(4865)*UV(59)+JVS(4866)*UV(60)+JVS(4867)*UV(62)+JVS(4868)*UV(67)+JVS(4869)*UV(68)+JVS(4870)*UV(70)& + &+JVS(4871)*UV(73)+JVS(4872)*UV(83)+JVS(4873)*UV(86)+JVS(4874)*UV(94)+JVS(4875)*UV(96)+JVS(4876)*UV(97)& + &+JVS(4877)*UV(98)+JVS(4878)*UV(105)+JVS(4879)*UV(110)+JVS(4880)*UV(113)+JVS(4881)*UV(115)+JVS(4882)*UV(117)& + &+JVS(4883)*UV(124)+JVS(4884)*UV(125)+JVS(4885)*UV(127)+JVS(4886)*UV(128)+JVS(4887)*UV(129)+JVS(4888)*UV(130)& + &+JVS(4889)*UV(133)+JVS(4890)*UV(136)+JVS(4891)*UV(137)+JVS(4892)*UV(139)+JVS(4893)*UV(140)+JVS(4894)*UV(141)& + &+JVS(4895)*UV(143)+JVS(4896)*UV(156)+JVS(4897)*UV(165)+JVS(4898)*UV(166)+JVS(4899)*UV(168)+JVS(4901)*UV(173)& + &+JVS(4902)*UV(174)+JVS(4903)*UV(175)+JVS(4904)*UV(177)+JVS(4905)*UV(179)+JVS(4906)*UV(180)+JVS(4907)*UV(181)& + &+JVS(4908)*UV(182)+JVS(4910)*UV(185)+JVS(4911)*UV(186)+JVS(4912)*UV(188)+JVS(4913)*UV(189)+JVS(4914)*UV(193)& + &+JVS(4915)*UV(196)+JVS(4916)*UV(200)+JVS(4917)*UV(201)+JVS(4919)*UV(206)+JVS(4920)*UV(208)+JVS(4921)*UV(209)& + &+JVS(4922)*UV(210)+JVS(4923)*UV(212)+JVS(4924)*UV(215)+JVS(4925)*UV(216)+JVS(4926)*UV(217)+JVS(4927)*UV(221)& + &+JVS(4928)*UV(223)+JVS(4929)*UV(225)+JVS(4930)*UV(226)+JVS(4931)*UV(228)+JVS(4935)*UV(234)+JVS(4936)*UV(235)& + &+JVS(4937)*UV(236)+JVS(4938)*UV(237)+JVS(4939)*UV(238)+JVS(4940)*UV(239)+JVS(4941)*UV(240)+JVS(4943)*UV(243)& + &+JVS(4944)*UV(244)+JVS(4945)*UV(245)+JVS(4946)*UV(246)+JVS(4947)*UV(249)+JVS(4948)*UV(250)+JVS(4949)*UV(251)& + &+JVS(4950)*UV(252)+JVS(4951)*UV(253)+JVS(4952)*UV(254)+JVS(4953)*UV(255)+JVS(4955)*UV(257)+JVS(4956)*UV(258)& + &+JVS(4957)*UV(260)+JVS(4958)*UV(261)+JVS(4959)*UV(262)+JVS(4960)*UV(263)+JVS(4961)*UV(264)+JVS(4962)*UV(265)& + &+JVS(4963)*UV(266)+JVS(4964)*UV(269)+JVS(4965)*UV(270)+JVS(4966)*UV(271)+JVS(4967)*UV(272)+JVS(4968)*UV(273)& + &+JVS(4969)*UV(275)+JVS(4970)*UV(276)+JVS(4971)*UV(277)+JVS(4972)*UV(278)+JVS(4974)*UV(280)+JVS(4975)*UV(281)& + &+JVS(4976)*UV(282)+JVS(4977)*UV(283)+JVS(4978)*UV(284)+JVS(4979)*UV(288)+JVS(4980)*UV(289)+JVS(4981)*UV(292)& + &+JVS(4983)*UV(294)+JVS(4984)*UV(296)+JVS(4985)*UV(299)+JVS(4986)*UV(300)+JVS(4987)*UV(301)+JVS(4988)*UV(303)& + &+JVS(4989)*UV(304)+JVS(4990)*UV(305)+JVS(4991)*UV(306)+JVS(4992)*UV(307)+JVS(4993)*UV(308)+JVS(4995)*UV(310)& + &+JVS(4996)*UV(312)+JVS(4998)*UV(314)+JVS(4999)*UV(315)+JVS(5000)*UV(316)+JVS(5001)*UV(317)+JVS(5003)*UV(319)& + &+JVS(5004)*UV(321)+JVS(5005)*UV(322)+JVS(5006)*UV(323)+JVS(5007)*UV(324)+JVS(5008)*UV(325)+JVS(5009)*UV(326)& + &+JVS(5010)*UV(327)+JVS(5011)*UV(328)+JVS(5013)*UV(331)+JVS(5014)*UV(333)+JVS(5015)*UV(334)+JVS(5017)*UV(336)& + &+JVS(5019)*UV(338)+JVS(5022)*UV(341)+JVS(5023)*UV(342)+JVS(5024)*UV(343)+JVS(5025)*UV(344)+JVS(5026)*UV(345)& + &+JVS(5028)*UV(347)+JVS(5029)*UV(348)+JVS(5032)*UV(351)+JVS(5036)*UV(355)+JVS(5037)*UV(356) + JUV(346) = JVS(5038)*UV(169)+JVS(5039)*UV(217)+JVS(5040)*UV(254)+JVS(5041)*UV(287)+JVS(5042)*UV(296)+JVS(5043)*UV(301)& + &+JVS(5044)*UV(320)+JVS(5045)*UV(321)+JVS(5047)*UV(332)+JVS(5055)*UV(340)+JVS(5058)*UV(343)+JVS(5061)*UV(346) + JUV(347) = JVS(5072)*UV(56)+JVS(5073)*UV(57)+JVS(5074)*UV(64)+JVS(5075)*UV(79)+JVS(5076)*UV(82)+JVS(5077)*UV(108)& + &+JVS(5078)*UV(221)+JVS(5079)*UV(320)+JVS(5080)*UV(331)+JVS(5081)*UV(336)+JVS(5082)*UV(337)+JVS(5083)*UV(338)& + &+JVS(5086)*UV(341)+JVS(5087)*UV(342)+JVS(5088)*UV(343)+JVS(5089)*UV(344)+JVS(5090)*UV(345)+JVS(5092)*UV(347)& + &+JVS(5093)*UV(348)+JVS(5096)*UV(351)+JVS(5099)*UV(354)+JVS(5101)*UV(356) + JUV(348) = JVS(5102)*UV(72)+JVS(5103)*UV(83)+JVS(5104)*UV(87)+JVS(5105)*UV(110)+JVS(5106)*UV(127)+JVS(5107)*UV(129)& + &+JVS(5108)*UV(140)+JVS(5109)*UV(143)+JVS(5110)*UV(144)+JVS(5111)*UV(148)+JVS(5112)*UV(156)+JVS(5113)*UV(162)& + &+JVS(5114)*UV(166)+JVS(5115)*UV(170)+JVS(5116)*UV(172)+JVS(5117)*UV(187)+JVS(5118)*UV(189)+JVS(5119)*UV(194)& + &+JVS(5120)*UV(196)+JVS(5121)*UV(199)+JVS(5123)*UV(203)+JVS(5124)*UV(205)+JVS(5125)*UV(207)+JVS(5126)*UV(212)& + &+JVS(5127)*UV(216)+JVS(5128)*UV(217)+JVS(5129)*UV(221)+JVS(5130)*UV(222)+JVS(5131)*UV(223)+JVS(5132)*UV(227)& + &+JVS(5134)*UV(234)+JVS(5135)*UV(238)+JVS(5136)*UV(239)+JVS(5137)*UV(241)+JVS(5138)*UV(244)+JVS(5139)*UV(246)& + &+JVS(5142)*UV(256)+JVS(5143)*UV(260)+JVS(5144)*UV(261)+JVS(5146)*UV(263)+JVS(5147)*UV(265)+JVS(5148)*UV(266)& + &+JVS(5150)*UV(272)+JVS(5152)*UV(274)+JVS(5153)*UV(275)+JVS(5154)*UV(276)+JVS(5155)*UV(277)+JVS(5156)*UV(278)& + &+JVS(5157)*UV(279)+JVS(5158)*UV(280)+JVS(5159)*UV(281)+JVS(5160)*UV(282)+JVS(5161)*UV(284)+JVS(5165)*UV(292)& + &+JVS(5166)*UV(293)+JVS(5167)*UV(294)+JVS(5168)*UV(295)+JVS(5169)*UV(296)+JVS(5170)*UV(298)+JVS(5172)*UV(302)& + &+JVS(5176)*UV(306)+JVS(5178)*UV(308)+JVS(5179)*UV(309)+JVS(5180)*UV(310)+JVS(5182)*UV(312)+JVS(5183)*UV(313)& + &+JVS(5187)*UV(317)+JVS(5189)*UV(321)+JVS(5197)*UV(329)+JVS(5198)*UV(330)+JVS(5199)*UV(331)+JVS(5200)*UV(333)& + &+JVS(5201)*UV(334)+JVS(5205)*UV(338)+JVS(5208)*UV(341)+JVS(5209)*UV(342)+JVS(5210)*UV(343)+JVS(5212)*UV(345)& + &+JVS(5215)*UV(348)+JVS(5218)*UV(351)+JVS(5219)*UV(352)+JVS(5223)*UV(356) + JUV(349) = JVS(5224)*UV(254)+JVS(5225)*UV(287)+JVS(5226)*UV(296)+JVS(5227)*UV(301)+JVS(5228)*UV(320)+JVS(5229)*UV(321)& + &+JVS(5243)*UV(349)+JVS(5248)*UV(354)+JVS(5250)*UV(356) + JUV(350) = JVS(5251)*UV(254)+JVS(5252)*UV(287)+JVS(5253)*UV(296)+JVS(5254)*UV(301)+JVS(5255)*UV(320)+JVS(5256)*UV(321)& + &+JVS(5271)*UV(350)+JVS(5275)*UV(354)+JVS(5277)*UV(356) + JUV(351) = JVS(5278)*UV(49)+JVS(5279)*UV(50)+JVS(5280)*UV(51)+JVS(5281)*UV(52)+JVS(5282)*UV(53)+JVS(5283)*UV(54)& + &+JVS(5284)*UV(56)+JVS(5285)*UV(57)+JVS(5286)*UV(64)+JVS(5287)*UV(70)+JVS(5288)*UV(71)+JVS(5289)*UV(79)& + &+JVS(5290)*UV(82)+JVS(5291)*UV(88)+JVS(5292)*UV(89)+JVS(5293)*UV(90)+JVS(5294)*UV(91)+JVS(5295)*UV(123)& + &+JVS(5296)*UV(184)+JVS(5297)*UV(219)+JVS(5299)*UV(248)+JVS(5300)*UV(267)+JVS(5306)*UV(320)+JVS(5307)*UV(321)& + &+JVS(5309)*UV(329)+JVS(5314)*UV(336)+JVS(5315)*UV(337)+JVS(5316)*UV(338)+JVS(5318)*UV(340)+JVS(5319)*UV(341)& + &+JVS(5321)*UV(343)+JVS(5322)*UV(344)+JVS(5323)*UV(345)+JVS(5325)*UV(347)+JVS(5326)*UV(348)+JVS(5329)*UV(351)& + &+JVS(5332)*UV(354)+JVS(5334)*UV(356) + JUV(352) = JVS(5335)*UV(3)+JVS(5336)*UV(46)+JVS(5337)*UV(49)+JVS(5338)*UV(50)+JVS(5339)*UV(51)+JVS(5340)*UV(52)& + &+JVS(5341)*UV(53)+JVS(5342)*UV(54)+JVS(5343)*UV(64)+JVS(5344)*UV(78)+JVS(5345)*UV(80)+JVS(5346)*UV(84)& + &+JVS(5347)*UV(88)+JVS(5348)*UV(89)+JVS(5349)*UV(90)+JVS(5350)*UV(91)+JVS(5351)*UV(107)+JVS(5352)*UV(119)& + &+JVS(5353)*UV(142)+JVS(5354)*UV(144)+JVS(5355)*UV(154)+JVS(5356)*UV(160)+JVS(5357)*UV(167)+JVS(5358)*UV(184)& + &+JVS(5359)*UV(187)+JVS(5361)*UV(232)+JVS(5362)*UV(248)+JVS(5364)*UV(267)+JVS(5365)*UV(268)+JVS(5367)*UV(279)& + &+JVS(5368)*UV(285)+JVS(5369)*UV(286)+JVS(5372)*UV(293)+JVS(5375)*UV(297)+JVS(5376)*UV(300)+JVS(5377)*UV(301)& + &+JVS(5393)*UV(319)+JVS(5395)*UV(321)+JVS(5403)*UV(329)+JVS(5406)*UV(332)+JVS(5407)*UV(334)+JVS(5409)*UV(336)& + &+JVS(5410)*UV(337)+JVS(5411)*UV(338)+JVS(5413)*UV(340)+JVS(5414)*UV(341)+JVS(5416)*UV(343)+JVS(5417)*UV(344)& + &+JVS(5424)*UV(351)+JVS(5425)*UV(352)+JVS(5429)*UV(356) + JUV(353) = JVS(5430)*UV(46)+JVS(5431)*UV(55)+JVS(5432)*UV(75)+JVS(5433)*UV(88)+JVS(5434)*UV(89)+JVS(5435)*UV(90)& + &+JVS(5436)*UV(91)+JVS(5437)*UV(108)+JVS(5438)*UV(110)+JVS(5439)*UV(117)+JVS(5440)*UV(167)+JVS(5441)*UV(176)& + &+JVS(5442)*UV(184)+JVS(5443)*UV(187)+JVS(5445)*UV(200)+JVS(5448)*UV(217)+JVS(5449)*UV(219)+JVS(5450)*UV(221)& + &+JVS(5453)*UV(232)+JVS(5454)*UV(240)+JVS(5456)*UV(244)+JVS(5457)*UV(247)+JVS(5460)*UV(255)+JVS(5461)*UV(267)& + &+JVS(5462)*UV(268)+JVS(5466)*UV(283)+JVS(5467)*UV(286)+JVS(5468)*UV(287)+JVS(5473)*UV(295)+JVS(5474)*UV(296)& + &+JVS(5475)*UV(297)+JVS(5478)*UV(302)+JVS(5492)*UV(317)+JVS(5495)*UV(320)+JVS(5496)*UV(321)+JVS(5504)*UV(329)& + &+JVS(5505)*UV(330)+JVS(5507)*UV(332)+JVS(5508)*UV(333)+JVS(5512)*UV(337)+JVS(5514)*UV(339)+JVS(5515)*UV(340)& + &+JVS(5516)*UV(341)+JVS(5518)*UV(343)+JVS(5521)*UV(346)+JVS(5527)*UV(352)+JVS(5528)*UV(353)+JVS(5529)*UV(354) + JUV(354) = JVS(5532)*UV(142)+JVS(5533)*UV(187)+JVS(5534)*UV(293)+JVS(5535)*UV(297)+JVS(5536)*UV(301)+JVS(5539)*UV(320)& + &+JVS(5540)*UV(321)+JVS(5546)*UV(329)+JVS(5547)*UV(330)+JVS(5548)*UV(332)+JVS(5552)*UV(337)+JVS(5556)*UV(341)& + &+JVS(5557)*UV(342)+JVS(5558)*UV(343)+JVS(5566)*UV(351)+JVS(5569)*UV(354)+JVS(5570)*UV(355)+JVS(5571)*UV(356) + JUV(355) = JVS(5572)*UV(71)+JVS(5573)*UV(87)+JVS(5574)*UV(93)+JVS(5575)*UV(146)+JVS(5576)*UV(169)+JVS(5577)*UV(183)& + &+JVS(5578)*UV(244)+JVS(5579)*UV(267)+JVS(5582)*UV(317)+JVS(5584)*UV(320)+JVS(5586)*UV(329)+JVS(5588)*UV(332)& + &+JVS(5599)*UV(343)+JVS(5601)*UV(345)+JVS(5604)*UV(348)+JVS(5607)*UV(351)+JVS(5611)*UV(355)+JVS(5612)*UV(356) + JUV(356) = JVS(5613)*UV(120)+JVS(5614)*UV(140)+JVS(5615)*UV(169)+JVS(5616)*UV(170)+JVS(5617)*UV(183)+JVS(5618)*UV(194)& + &+JVS(5619)*UV(196)+JVS(5620)*UV(204)+JVS(5621)*UV(205)+JVS(5622)*UV(206)+JVS(5623)*UV(212)+JVS(5624)*UV(216)& + &+JVS(5625)*UV(219)+JVS(5626)*UV(222)+JVS(5627)*UV(223)+JVS(5628)*UV(224)+JVS(5631)*UV(234)+JVS(5632)*UV(237)& + &+JVS(5634)*UV(241)+JVS(5635)*UV(243)+JVS(5636)*UV(246)+JVS(5637)*UV(250)+JVS(5638)*UV(256)+JVS(5639)*UV(261)& + &+JVS(5640)*UV(262)+JVS(5641)*UV(263)+JVS(5643)*UV(277)+JVS(5645)*UV(279)+JVS(5650)*UV(293)+JVS(5654)*UV(312)& + &+JVS(5655)*UV(313)+JVS(5658)*UV(317)+JVS(5659)*UV(318)+JVS(5661)*UV(325)+JVS(5664)*UV(328)+JVS(5667)*UV(331)& + &+JVS(5669)*UV(334)+JVS(5672)*UV(337)+JVS(5673)*UV(338)+JVS(5676)*UV(341)+JVS(5677)*UV(342)+JVS(5678)*UV(343)& + &+JVS(5680)*UV(345)+JVS(5684)*UV(349)+JVS(5685)*UV(350)+JVS(5686)*UV(351)+JVS(5687)*UV(352)+JVS(5689)*UV(354)& + &+JVS(5690)*UV(355)+JVS(5691)*UV(356) END SUBROUTINE Jac_SP_Vec @@ -21799,9 +21856,9 @@ SUBROUTINE JacTR_SP_Vec ( JVS, UV, JTUV ) ! JTUV - Jacobian transposed times user vector REAL(kind=dp) :: JTUV(NVAR) - JTUV(1) = JVS(1)*UV(1)+JVS(3904)*UV(331) - JTUV(2) = JVS(2)*UV(2)+JVS(3905)*UV(331)+JVS(4821)*UV(342) - JTUV(3) = JVS(3)*UV(3)+JVS(3906)*UV(331)+JVS(4649)*UV(340) + JTUV(1) = JVS(1)*UV(1)+JVS(3621)*UV(331) + JTUV(2) = JVS(2)*UV(2)+JVS(3622)*UV(331)+JVS(4482)*UV(342) + JTUV(3) = JVS(3)*UV(3)+JVS(3623)*UV(331)+JVS(5335)*UV(352) JTUV(4) = JVS(4)*UV(4) JTUV(5) = JVS(9)*UV(5) JTUV(6) = JVS(11)*UV(6) @@ -21832,908 +21889,916 @@ SUBROUTINE JacTR_SP_Vec ( JVS, UV, JTUV ) JTUV(31) = JVS(173)*UV(31) JTUV(32) = JVS(179)*UV(32) JTUV(33) = JVS(184)*UV(33) - JTUV(34) = JVS(188)*UV(34) - JTUV(35) = JVS(306)*UV(35) - JTUV(36) = JVS(432)*UV(36) - JTUV(37) = JVS(521)*UV(37) - JTUV(38) = JVS(526)*UV(38) - JTUV(39) = JVS(537)*UV(39) - JTUV(40) = JVS(542)*UV(40) - JTUV(41) = JVS(12)*UV(6)+JVS(551)*UV(41)+JVS(4970)*UV(345) - JTUV(42) = JVS(5)*UV(4)+JVS(87)*UV(9)+JVS(95)*UV(10)+JVS(307)*UV(35)+JVS(553)*UV(42)+JVS(722)*UV(96) - JTUV(43) = JVS(555)*UV(43)+JVS(4208)*UV(336)+JVS(4650)*UV(340)+JVS(4971)*UV(345) - JTUV(44) = JVS(6)*UV(4)+JVS(88)*UV(9)+JVS(96)*UV(10)+JVS(308)*UV(35)+JVS(557)*UV(44)+JVS(723)*UV(96)+JVS(2340)*UV(284)& - &+JVS(3907)*UV(331) - JTUV(45) = JVS(84)*UV(8)+JVS(189)*UV(34)+JVS(559)*UV(45)+JVS(3586)*UV(327) - JTUV(46) = JVS(563)*UV(46)+JVS(3984)*UV(334)+JVS(4517)*UV(338)+JVS(4651)*UV(340)+JVS(4877)*UV(343) - JTUV(47) = JVS(565)*UV(47)+JVS(3985)*UV(334)+JVS(4518)*UV(338)+JVS(4652)*UV(340)+JVS(4878)*UV(343) - JTUV(48) = JVS(567)*UV(48)+JVS(3986)*UV(334)+JVS(4519)*UV(338)+JVS(4653)*UV(340)+JVS(4879)*UV(343) - JTUV(49) = JVS(309)*UV(35)+JVS(569)*UV(49)+JVS(3987)*UV(334)+JVS(4520)*UV(338)+JVS(4654)*UV(340)+JVS(4880)*UV(343) - JTUV(50) = JVS(310)*UV(35)+JVS(571)*UV(50)+JVS(3988)*UV(334)+JVS(4521)*UV(338)+JVS(4655)*UV(340)+JVS(4881)*UV(343) - JTUV(51) = JVS(573)*UV(51)+JVS(3989)*UV(334)+JVS(4522)*UV(338)+JVS(4656)*UV(340)+JVS(4882)*UV(343) - JTUV(52) = JVS(575)*UV(52)+JVS(3689)*UV(328)+JVS(3908)*UV(331)+JVS(4209)*UV(336)+JVS(4972)*UV(345) - JTUV(53) = JVS(577)*UV(53)+JVS(3990)*UV(334)+JVS(4822)*UV(342)+JVS(4883)*UV(343)+JVS(5366)*UV(347) - JTUV(54) = JVS(579)*UV(54)+JVS(3991)*UV(334)+JVS(4823)*UV(342)+JVS(4884)*UV(343)+JVS(5367)*UV(347) - JTUV(55) = JVS(7)*UV(4)+JVS(89)*UV(9)+JVS(97)*UV(10)+JVS(311)*UV(35)+JVS(581)*UV(55)+JVS(724)*UV(96)+JVS(2341)*UV(284) - JTUV(56) = JVS(190)*UV(34)+JVS(584)*UV(56)+JVS(1881)*UV(257)+JVS(4034)*UV(335) - JTUV(57) = JVS(191)*UV(34)+JVS(587)*UV(57)+JVS(2166)*UV(274)+JVS(4035)*UV(335) - JTUV(58) = JVS(590)*UV(58)+JVS(849)*UV(121)+JVS(4973)*UV(345) - JTUV(59) = JVS(593)*UV(59)+JVS(4036)*UV(335)+JVS(4824)*UV(342) - JTUV(60) = JVS(433)*UV(36)+JVS(596)*UV(60)+JVS(2009)*UV(265)+JVS(2089)*UV(270)+JVS(3762)*UV(329)+JVS(4309)*UV(337)& - &+JVS(4974)*UV(345) - JTUV(61) = JVS(598)*UV(61)+JVS(3992)*UV(334)+JVS(4523)*UV(338)+JVS(4657)*UV(340)+JVS(4825)*UV(342)+JVS(4885)*UV(343)& - &+JVS(5368)*UV(347) - JTUV(62) = JVS(600)*UV(62)+JVS(1123)*UV(170)+JVS(3909)*UV(331)+JVS(5245)*UV(346) - JTUV(63) = JVS(192)*UV(34)+JVS(312)*UV(35)+JVS(603)*UV(63)+JVS(3993)*UV(334)+JVS(5246)*UV(346) - JTUV(64) = JVS(313)*UV(35)+JVS(607)*UV(64)+JVS(1661)*UV(239)+JVS(4037)*UV(335) - JTUV(65) = JVS(314)*UV(35)+JVS(611)*UV(65)+JVS(1662)*UV(239)+JVS(4038)*UV(335) - JTUV(66) = JVS(15)*UV(7)+JVS(615)*UV(66)+JVS(2216)*UV(278)+JVS(4975)*UV(345) - JTUV(67) = JVS(193)*UV(34)+JVS(604)*UV(63)+JVS(620)*UV(67)+JVS(4039)*UV(335)+JVS(4886)*UV(343)+JVS(5247)*UV(346) - JTUV(68) = JVS(16)*UV(7)+JVS(315)*UV(35)+JVS(434)*UV(36)+JVS(623)*UV(68)+JVS(3763)*UV(329)+JVS(4887)*UV(343)+JVS(4976)& - &*UV(345)+JVS(5398)*UV(348) - JTUV(69) = JVS(316)*UV(35)+JVS(626)*UV(69)+JVS(1180)*UV(178)+JVS(3587)*UV(327)+JVS(4977)*UV(345)+JVS(5491)*UV(351) - JTUV(70) = JVS(194)*UV(34)+JVS(629)*UV(70)+JVS(2850)*UV(306)+JVS(4040)*UV(335)+JVS(4978)*UV(345) - JTUV(71) = JVS(17)*UV(7)+JVS(633)*UV(71)+JVS(1615)*UV(235)+JVS(1627)*UV(236)+JVS(4979)*UV(345) - JTUV(72) = JVS(637)*UV(72)+JVS(3400)*UV(325)+JVS(4310)*UV(337)+JVS(4980)*UV(345) - JTUV(73) = JVS(8)*UV(4)+JVS(90)*UV(9)+JVS(98)*UV(10)+JVS(641)*UV(73)+JVS(3910)*UV(331)+JVS(4210)*UV(336)+JVS(4981)& - &*UV(345) - JTUV(74) = JVS(18)*UV(7)+JVS(645)*UV(74)+JVS(1882)*UV(257)+JVS(2217)*UV(278)+JVS(4982)*UV(345) - JTUV(75) = JVS(435)*UV(36)+JVS(649)*UV(75)+JVS(3764)*UV(329)+JVS(4311)*UV(337)+JVS(4572)*UV(339)+JVS(4658)*UV(340)& - &+JVS(4983)*UV(345) - JTUV(76) = JVS(317)*UV(35)+JVS(652)*UV(76)+JVS(794)*UV(110)+JVS(3952)*UV(333)+JVS(4524)*UV(338)+JVS(4659)*UV(340)& - &+JVS(4984)*UV(345) - JTUV(77) = JVS(655)*UV(77)+JVS(3911)*UV(331)+JVS(4826)*UV(342) - JTUV(78) = JVS(661)*UV(78)+JVS(3995)*UV(334)+JVS(4827)*UV(342)+JVS(4888)*UV(343)+JVS(4985)*UV(345)+JVS(5369)*UV(347) - JTUV(79) = JVS(436)*UV(36)+JVS(664)*UV(79)+JVS(3765)*UV(329)+JVS(4312)*UV(337)+JVS(4573)*UV(339)+JVS(4660)*UV(340)& - &+JVS(4986)*UV(345) - JTUV(80) = JVS(195)*UV(34)+JVS(667)*UV(80)+JVS(3401)*UV(325)+JVS(3690)*UV(328)+JVS(4041)*UV(335)+JVS(4313)*UV(337)& - &+JVS(5492)*UV(351) - JTUV(81) = JVS(670)*UV(81)+JVS(3996)*UV(334)+JVS(4828)*UV(342)+JVS(4889)*UV(343)+JVS(4987)*UV(345)+JVS(5370)*UV(347) - JTUV(82) = JVS(139)*UV(22)+JVS(437)*UV(36)+JVS(673)*UV(82)+JVS(1059)*UV(158)+JVS(1315)*UV(201)+JVS(1348)*UV(204)& - &+JVS(1495)*UV(221)+JVS(1959)*UV(263)+JVS(2090)*UV(270)+JVS(2534)*UV(294)+JVS(3092)*UV(314)+JVS(3766)*UV(329)& - &+JVS(4314)*UV(337)+JVS(4988)*UV(345) - JTUV(83) = JVS(196)*UV(34)+JVS(675)*UV(83)+JVS(3544)*UV(326)+JVS(4042)*UV(335)+JVS(4315)*UV(337)+JVS(4989)*UV(345) - JTUV(84) = JVS(679)*UV(84)+JVS(3997)*UV(334)+JVS(4211)*UV(336)+JVS(4525)*UV(338)+JVS(4661)*UV(340)+JVS(4890)*UV(343)& - &+JVS(4990)*UV(345) - JTUV(85) = JVS(682)*UV(85)+JVS(3998)*UV(334)+JVS(4212)*UV(336)+JVS(4526)*UV(338)+JVS(4662)*UV(340)+JVS(4891)*UV(343)& - &+JVS(4991)*UV(345) - JTUV(86) = JVS(685)*UV(86)+JVS(3999)*UV(334)+JVS(4213)*UV(336)+JVS(4527)*UV(338)+JVS(4663)*UV(340)+JVS(4892)*UV(343)& - &+JVS(4992)*UV(345) - JTUV(87) = JVS(318)*UV(35)+JVS(688)*UV(87)+JVS(4000)*UV(334)+JVS(4214)*UV(336)+JVS(4528)*UV(338)+JVS(4664)*UV(340)& - &+JVS(4893)*UV(343)+JVS(4993)*UV(345) - JTUV(88) = JVS(691)*UV(88)+JVS(2010)*UV(265)+JVS(3402)*UV(325)+JVS(4316)*UV(337)+JVS(4994)*UV(345) - JTUV(89) = JVS(185)*UV(33)+JVS(527)*UV(38)+JVS(695)*UV(89)+JVS(918)*UV(134)+JVS(3403)*UV(325)+JVS(4995)*UV(345)& - &+JVS(5399)*UV(348) - JTUV(90) = JVS(19)*UV(7)+JVS(197)*UV(34)+JVS(699)*UV(90)+JVS(827)*UV(117)+JVS(1616)*UV(235)+JVS(4043)*UV(335)& - &+JVS(4996)*UV(345) - JTUV(91) = JVS(198)*UV(34)+JVS(703)*UV(91)+JVS(2597)*UV(295)+JVS(4044)*UV(335)+JVS(4317)*UV(337)+JVS(4997)*UV(345) - JTUV(92) = JVS(20)*UV(7)+JVS(707)*UV(92)+JVS(3312)*UV(324)+JVS(3404)*UV(325)+JVS(3691)*UV(328)+JVS(4998)*UV(345) - JTUV(93) = JVS(199)*UV(34)+JVS(711)*UV(93)+JVS(3405)*UV(325)+JVS(4045)*UV(335)+JVS(4318)*UV(337)+JVS(4999)*UV(345) - JTUV(94) = JVS(163)*UV(28)+JVS(319)*UV(35)+JVS(715)*UV(94)+JVS(3406)*UV(325)+JVS(3588)*UV(327)+JVS(3692)*UV(328)& - &+JVS(5000)*UV(345)+JVS(5400)*UV(348)+JVS(5493)*UV(351) - JTUV(95) = JVS(200)*UV(34)+JVS(718)*UV(95)+JVS(2664)*UV(298)+JVS(4046)*UV(335)+JVS(4319)*UV(337)+JVS(5001)*UV(345) - JTUV(96) = JVS(320)*UV(35)+JVS(554)*UV(42)+JVS(582)*UV(55)+JVS(725)*UV(96)+JVS(2342)*UV(284)+JVS(3912)*UV(331)& - &+JVS(4047)*UV(335)+JVS(5248)*UV(346) - JTUV(97) = JVS(729)*UV(97)+JVS(2665)*UV(298)+JVS(3190)*UV(319)+JVS(4320)*UV(337)+JVS(5002)*UV(345) - JTUV(98) = JVS(733)*UV(98)+JVS(1181)*UV(178)+JVS(2666)*UV(298)+JVS(4321)*UV(337)+JVS(5003)*UV(345) - JTUV(99) = JVS(737)*UV(99)+JVS(2667)*UV(298)+JVS(3232)*UV(321)+JVS(4322)*UV(337)+JVS(5004)*UV(345) - JTUV(100) = JVS(741)*UV(100)+JVS(2598)*UV(295)+JVS(3288)*UV(323)+JVS(4323)*UV(337)+JVS(5005)*UV(345) - JTUV(101) = JVS(158)*UV(27)+JVS(438)*UV(36)+JVS(745)*UV(101)+JVS(1060)*UV(158)+JVS(1143)*UV(173)+JVS(1316)*UV(201)& - &+JVS(1349)*UV(204)+JVS(1496)*UV(221)+JVS(1960)*UV(263)+JVS(2091)*UV(270)+JVS(2535)*UV(294)+JVS(3093)& - &*UV(314)+JVS(3767)*UV(329)+JVS(4324)*UV(337)+JVS(5006)*UV(345) - JTUV(102) = JVS(747)*UV(102)+JVS(2668)*UV(298)+JVS(2739)*UV(300)+JVS(4325)*UV(337)+JVS(5007)*UV(345) - JTUV(103) = JVS(85)*UV(8)+JVS(201)*UV(34)+JVS(751)*UV(103)+JVS(3589)*UV(327) - JTUV(104) = JVS(765)*UV(104)+JVS(3913)*UV(331)+JVS(4665)*UV(340) - JTUV(105) = JVS(321)*UV(35)+JVS(773)*UV(105)+JVS(3693)*UV(328)+JVS(4001)*UV(334)+JVS(4215)*UV(336)+JVS(4326)*UV(337)& - &+JVS(4829)*UV(342)+JVS(5008)*UV(345)+JVS(5371)*UV(347) - JTUV(106) = JVS(776)*UV(106)+JVS(2851)*UV(306)+JVS(3407)*UV(325)+JVS(4327)*UV(337) - JTUV(107) = JVS(174)*UV(31)+JVS(439)*UV(36)+JVS(782)*UV(107)+JVS(2011)*UV(265)+JVS(2536)*UV(294)+JVS(3313)*UV(324)& - &+JVS(3768)*UV(329)+JVS(5009)*UV(345) - JTUV(108) = JVS(202)*UV(34)+JVS(786)*UV(108)+JVS(4048)*UV(335)+JVS(4216)*UV(336)+JVS(4328)*UV(337)+JVS(5010)*UV(345)& - &+JVS(5494)*UV(351) - JTUV(109) = JVS(322)*UV(35)+JVS(790)*UV(109)+JVS(1604)*UV(234)+JVS(3038)*UV(312)+JVS(3408)*UV(325)+JVS(4744)*UV(341)& - &+JVS(5011)*UV(345) - JTUV(110) = JVS(203)*UV(34)+JVS(795)*UV(110)+JVS(1739)*UV(245)+JVS(4529)*UV(338)+JVS(4666)*UV(340) - JTUV(111) = JVS(801)*UV(111)+JVS(1528)*UV(225)+JVS(1883)*UV(257)+JVS(2205)*UV(277)+JVS(4329)*UV(337)+JVS(5012)*UV(345) - JTUV(112) = JVS(805)*UV(112)+JVS(885)*UV(129)+JVS(2189)*UV(275)+JVS(3409)*UV(325)+JVS(4330)*UV(337)+JVS(5013)*UV(345) - JTUV(113) = JVS(204)*UV(34)+JVS(440)*UV(36)+JVS(809)*UV(113)+JVS(1753)*UV(246)+JVS(2852)*UV(306)+JVS(3769)*UV(329)& - &+JVS(4049)*UV(335)+JVS(5014)*UV(345) - JTUV(114) = JVS(205)*UV(34)+JVS(441)*UV(36)+JVS(813)*UV(114)+JVS(1417)*UV(213)+JVS(3410)*UV(325)+JVS(3770)*UV(329)& - &+JVS(4050)*UV(335)+JVS(5015)*UV(345) - JTUV(115) = JVS(21)*UV(7)+JVS(170)*UV(30)+JVS(817)*UV(115)+JVS(3314)*UV(324)+JVS(4331)*UV(337)+JVS(5016)*UV(345) - JTUV(116) = JVS(206)*UV(34)+JVS(823)*UV(116)+JVS(1350)*UV(204)+JVS(4051)*UV(335)+JVS(4217)*UV(336)+JVS(4332)*UV(337)& - &+JVS(5017)*UV(345) - JTUV(117) = JVS(828)*UV(117)+JVS(1332)*UV(203)+JVS(1628)*UV(236)+JVS(5018)*UV(345) - JTUV(118) = JVS(834)*UV(118)+JVS(3121)*UV(315)+JVS(3545)*UV(326)+JVS(4333)*UV(337)+JVS(5019)*UV(345) - JTUV(119) = JVS(442)*UV(36)+JVS(839)*UV(119)+JVS(1217)*UV(185)+JVS(3771)*UV(329)+JVS(4334)*UV(337)+JVS(5020)*UV(345) - JTUV(120) = JVS(323)*UV(35)+JVS(844)*UV(120)+JVS(3953)*UV(333)+JVS(4530)*UV(338)+JVS(4894)*UV(343)+JVS(5021)*UV(345) - JTUV(121) = JVS(207)*UV(34)+JVS(850)*UV(121)+JVS(982)*UV(146)+JVS(4052)*UV(335)+JVS(4335)*UV(337)+JVS(5249)*UV(346) - JTUV(122) = JVS(208)*UV(34)+JVS(443)*UV(36)+JVS(855)*UV(122)+JVS(1682)*UV(240)+JVS(3315)*UV(324)+JVS(3411)*UV(325)& - &+JVS(3772)*UV(329)+JVS(4053)*UV(335)+JVS(5022)*UV(345) - JTUV(123) = JVS(859)*UV(123)+JVS(1920)*UV(260)+JVS(2908)*UV(307)+JVS(3412)*UV(325)+JVS(3546)*UV(326)+JVS(4336)*UV(337)& - &+JVS(5023)*UV(345) - JTUV(124) = JVS(209)*UV(34)+JVS(444)*UV(36)+JVS(863)*UV(124)+JVS(3256)*UV(322)+JVS(3547)*UV(326)+JVS(3773)*UV(329)& - &+JVS(4054)*UV(335)+JVS(5024)*UV(345)+JVS(5495)*UV(351) - JTUV(125) = JVS(867)*UV(125)+JVS(1760)*UV(247)+JVS(1804)*UV(250)+JVS(2669)*UV(298)+JVS(4055)*UV(335)+JVS(4337)*UV(337)& - &+JVS(5025)*UV(345) - JTUV(126) = JVS(210)*UV(34)+JVS(445)*UV(36)+JVS(871)*UV(126)+JVS(1294)*UV(197)+JVS(2853)*UV(306)+JVS(3774)*UV(329)& - &+JVS(4056)*UV(335)+JVS(5026)*UV(345)+JVS(5496)*UV(351) - JTUV(127) = JVS(211)*UV(34)+JVS(446)*UV(36)+JVS(875)*UV(127)+JVS(2854)*UV(306)+JVS(3413)*UV(325)+JVS(3775)*UV(329)& - &+JVS(4057)*UV(335)+JVS(4338)*UV(337)+JVS(5027)*UV(345) - JTUV(128) = JVS(175)*UV(31)+JVS(879)*UV(128)+JVS(1432)*UV(215)+JVS(1711)*UV(243)+JVS(4339)*UV(337)+JVS(5028)*UV(345) - JTUV(129) = JVS(886)*UV(129)+JVS(2153)*UV(273)+JVS(5029)*UV(345) - JTUV(130) = JVS(22)*UV(7)+JVS(897)*UV(130)+JVS(2670)*UV(298)+JVS(3191)*UV(319)+JVS(3316)*UV(324)+JVS(3414)*UV(325)& - &+JVS(5030)*UV(345) - JTUV(131) = JVS(902)*UV(131)+JVS(1377)*UV(208)+JVS(1546)*UV(227)+JVS(4340)*UV(337)+JVS(5031)*UV(345) - JTUV(132) = JVS(212)*UV(34)+JVS(447)*UV(36)+JVS(908)*UV(132)+JVS(2855)*UV(306)+JVS(3776)*UV(329)+JVS(4058)*UV(335)& - &+JVS(4341)*UV(337)+JVS(5250)*UV(346) - JTUV(133) = JVS(23)*UV(7)+JVS(213)*UV(34)+JVS(913)*UV(133)+JVS(3094)*UV(314)+JVS(4059)*UV(335)+JVS(4342)*UV(337)& - &+JVS(5032)*UV(345)+JVS(5251)*UV(346) - JTUV(134) = JVS(919)*UV(134)+JVS(5033)*UV(345)+JVS(5401)*UV(348) - JTUV(135) = JVS(24)*UV(7)+JVS(214)*UV(34)+JVS(930)*UV(135)+JVS(2991)*UV(309)+JVS(4060)*UV(335)+JVS(4343)*UV(337)& - &+JVS(5034)*UV(345)+JVS(5252)*UV(346) - JTUV(136) = JVS(777)*UV(106)+JVS(935)*UV(136)+JVS(1605)*UV(234)+JVS(2856)*UV(306)+JVS(5035)*UV(345) - JTUV(137) = JVS(215)*UV(34)+JVS(940)*UV(137)+JVS(1165)*UV(176)+JVS(1529)*UV(225)+JVS(1961)*UV(263)+JVS(3416)*UV(325)& - &+JVS(4061)*UV(335)+JVS(4345)*UV(337)+JVS(5036)*UV(345) - JTUV(138) = JVS(216)*UV(34)+JVS(887)*UV(129)+JVS(944)*UV(138)+JVS(1080)*UV(162)+JVS(1962)*UV(263)+JVS(3417)*UV(325)& - &+JVS(4062)*UV(335)+JVS(4346)*UV(337)+JVS(5037)*UV(345) - JTUV(139) = JVS(25)*UV(7)+JVS(217)*UV(34)+JVS(448)*UV(36)+JVS(948)*UV(139)+JVS(3317)*UV(324)+JVS(3418)*UV(325)& - &+JVS(3694)*UV(328)+JVS(3777)*UV(329)+JVS(4063)*UV(335)+JVS(5038)*UV(345)+JVS(5497)*UV(351) - JTUV(140) = JVS(324)*UV(35)+JVS(952)*UV(140)+JVS(1410)*UV(212)+JVS(1596)*UV(233)+JVS(3419)*UV(325)+JVS(4064)*UV(335)& - &+JVS(4745)*UV(341)+JVS(5039)*UV(345)+JVS(5498)*UV(351) - JTUV(141) = JVS(956)*UV(141)+JVS(3233)*UV(321)+JVS(3289)*UV(323)+JVS(4574)*UV(339)+JVS(4667)*UV(340)+JVS(4830)*UV(342)& - &+JVS(5040)*UV(345)+JVS(5612)*UV(352) - JTUV(142) = JVS(325)*UV(35)+JVS(960)*UV(142)+JVS(2740)*UV(300)+JVS(3192)*UV(319)+JVS(3590)*UV(327)+JVS(4575)*UV(339)& - &+JVS(4668)*UV(340)+JVS(5041)*UV(345)+JVS(5499)*UV(351) - JTUV(143) = JVS(109)*UV(13)+JVS(449)*UV(36)+JVS(964)*UV(143)+JVS(1281)*UV(195)+JVS(1497)*UV(221)+JVS(1963)*UV(263)& - &+JVS(2092)*UV(270)+JVS(3778)*UV(329)+JVS(4347)*UV(337)+JVS(5042)*UV(345) - JTUV(144) = JVS(450)*UV(36)+JVS(968)*UV(144)+JVS(1433)*UV(215)+JVS(2394)*UV(287)+JVS(2992)*UV(309)+JVS(3779)*UV(329)& - &+JVS(4348)*UV(337)+JVS(5043)*UV(345) - JTUV(145) = JVS(973)*UV(145)+JVS(2520)*UV(293)+JVS(2751)*UV(301)+JVS(4349)*UV(337) - JTUV(146) = JVS(451)*UV(36)+JVS(983)*UV(146)+JVS(1683)*UV(240)+JVS(3318)*UV(324)+JVS(3420)*UV(325)+JVS(3780)*UV(329)& - &+JVS(4350)*UV(337)+JVS(5044)*UV(345) - JTUV(147) = JVS(452)*UV(36)+JVS(988)*UV(147)+JVS(1218)*UV(185)+JVS(1378)*UV(208)+JVS(1547)*UV(227)+JVS(2354)*UV(285)& - &+JVS(2374)*UV(286)+JVS(3781)*UV(329)+JVS(4351)*UV(337)+JVS(5045)*UV(345) - JTUV(148) = JVS(218)*UV(34)+JVS(992)*UV(148)+JVS(3146)*UV(316)+JVS(4831)*UV(342)+JVS(5046)*UV(345) - JTUV(149) = JVS(326)*UV(35)+JVS(1001)*UV(149)+JVS(1061)*UV(158)+JVS(1247)*UV(189)+JVS(1317)*UV(201)+JVS(1351)*UV(204)& - &+JVS(1498)*UV(221)+JVS(1964)*UV(263)+JVS(3421)*UV(325)+JVS(3548)*UV(326)+JVS(3591)*UV(327)+JVS(4352)& - &*UV(337)+JVS(5047)*UV(345)+JVS(5500)*UV(351) - JTUV(150) = JVS(453)*UV(36)+JVS(1004)*UV(150)+JVS(1434)*UV(215)+JVS(2428)*UV(288)+JVS(3095)*UV(314)+JVS(3782)*UV(329)& - &+JVS(4353)*UV(337)+JVS(5048)*UV(345) - JTUV(151) = JVS(176)*UV(31)+JVS(1009)*UV(151)+JVS(1435)*UV(215)+JVS(2355)*UV(285)+JVS(2375)*UV(286)+JVS(4354)*UV(337)& - &+JVS(5049)*UV(345) - JTUV(152) = JVS(177)*UV(31)+JVS(1015)*UV(152)+JVS(1436)*UV(215)+JVS(2356)*UV(285)+JVS(2376)*UV(286)+JVS(4355)*UV(337)& - &+JVS(5050)*UV(345) - JTUV(153) = JVS(454)*UV(36)+JVS(1021)*UV(153)+JVS(1548)*UV(227)+JVS(2909)*UV(307)+JVS(3783)*UV(329)+JVS(4356)*UV(337)& - &+JVS(5051)*UV(345) - JTUV(154) = JVS(219)*UV(34)+JVS(327)*UV(35)+JVS(560)*UV(45)+JVS(1027)*UV(154)+JVS(2910)*UV(307)+JVS(4065)*UV(335)& - &+JVS(5052)*UV(345)+JVS(5501)*UV(351) - JTUV(155) = JVS(1033)*UV(155)+JVS(3257)*UV(322)+JVS(3549)*UV(326)+JVS(3695)*UV(328)+JVS(4357)*UV(337)+JVS(5053)& - &*UV(345) - JTUV(156) = JVS(1039)*UV(156)+JVS(3550)*UV(326)+JVS(4358)*UV(337)+JVS(4576)*UV(339)+JVS(4669)*UV(340)+JVS(5054)& - &*UV(345) - JTUV(157) = JVS(1045)*UV(157)+JVS(4670)*UV(340)+JVS(4832)*UV(342) - JTUV(158) = JVS(328)*UV(35)+JVS(1062)*UV(158)+JVS(1318)*UV(201)+JVS(1324)*UV(202)+JVS(1333)*UV(203)+JVS(1965)*UV(263)& - &+JVS(2073)*UV(269)+JVS(3593)*UV(327)+JVS(4359)*UV(337)+JVS(5055)*UV(345)+JVS(5502)*UV(351) - JTUV(159) = JVS(26)*UV(7)+JVS(455)*UV(36)+JVS(783)*UV(107)+JVS(1066)*UV(159)+JVS(1910)*UV(259)+JVS(2911)*UV(307)& - &+JVS(3319)*UV(324)+JVS(3422)*UV(325)+JVS(3696)*UV(328)+JVS(3784)*UV(329)+JVS(5056)*UV(345) - JTUV(160) = JVS(1070)*UV(160)+JVS(1966)*UV(263)+JVS(2218)*UV(278)+JVS(2490)*UV(292)+JVS(2599)*UV(295)+JVS(3258)& - &*UV(322)+JVS(3423)*UV(325)+JVS(5057)*UV(345) - JTUV(161) = JVS(1075)*UV(161)+JVS(2155)*UV(273)+JVS(2167)*UV(274)+JVS(2600)*UV(295)+JVS(2671)*UV(298)+JVS(3193)& - &*UV(319)+JVS(4360)*UV(337)+JVS(5058)*UV(345) - JTUV(162) = JVS(220)*UV(34)+JVS(1081)*UV(162)+JVS(1859)*UV(256)+JVS(2168)*UV(274)+JVS(2601)*UV(295)+JVS(2672)*UV(298)& - &+JVS(3194)*UV(319)+JVS(4066)*UV(335)+JVS(5059)*UV(345) - JTUV(163) = JVS(329)*UV(35)+JVS(1086)*UV(163)+JVS(2169)*UV(274)+JVS(4067)*UV(335)+JVS(5060)*UV(345)+JVS(5503)*UV(351) - JTUV(164) = JVS(1094)*UV(164)+JVS(3424)*UV(325)+JVS(3697)*UV(328)+JVS(4218)*UV(336)+JVS(4361)*UV(337)+JVS(4577)& - &*UV(339)+JVS(4671)*UV(340)+JVS(5061)*UV(345) - JTUV(165) = JVS(221)*UV(34)+JVS(1099)*UV(165)+JVS(1287)*UV(196)+JVS(2673)*UV(298)+JVS(3425)*UV(325)+JVS(3551)*UV(326)& - &+JVS(4068)*UV(335)+JVS(4362)*UV(337)+JVS(5253)*UV(346) - JTUV(166) = JVS(166)*UV(29)+JVS(330)*UV(35)+JVS(612)*UV(65)+JVS(1104)*UV(166)+JVS(3594)*UV(327)+JVS(4578)*UV(339)& - &+JVS(4746)*UV(341)+JVS(4937)*UV(344)+JVS(5402)*UV(348) - JTUV(167) = JVS(331)*UV(35)+JVS(456)*UV(36)+JVS(1109)*UV(167)+JVS(1849)*UV(255)+JVS(1967)*UV(263)+JVS(2170)*UV(274)& - &+JVS(2240)*UV(280)+JVS(2256)*UV(281)+JVS(2461)*UV(289)+JVS(3785)*UV(329)+JVS(4747)*UV(341)+JVS(5062)& - &*UV(345)+JVS(5504)*UV(351) - JTUV(168) = JVS(332)*UV(35)+JVS(752)*UV(103)+JVS(1010)*UV(151)+JVS(1016)*UV(152)+JVS(1113)*UV(168)+JVS(1255)*UV(190)& - &+JVS(2993)*UV(309)+JVS(3426)*UV(325)+JVS(4070)*UV(335)+JVS(4363)*UV(337)+JVS(5063)*UV(345) - JTUV(169) = JVS(27)*UV(7)+JVS(1117)*UV(169)+JVS(2171)*UV(274)+JVS(2674)*UV(298)+JVS(3195)*UV(319)+JVS(3320)*UV(324)& - &+JVS(3427)*UV(325)+JVS(5064)*UV(345) - JTUV(170) = JVS(222)*UV(34)+JVS(1124)*UV(170)+JVS(3885)*UV(330)+JVS(3914)*UV(331)+JVS(3933)*UV(332)+JVS(5065)*UV(345)& - &+JVS(5505)*UV(351) - JTUV(171) = JVS(223)*UV(34)+JVS(1131)*UV(171)+JVS(1838)*UV(254)+JVS(2768)*UV(302)+JVS(4071)*UV(335)+JVS(4364)*UV(337)& - &+JVS(5066)*UV(345)+JVS(5254)*UV(346) - JTUV(172) = JVS(224)*UV(34)+JVS(1137)*UV(172)+JVS(1782)*UV(248)+JVS(1827)*UV(253)+JVS(4072)*UV(335)+JVS(4365)*UV(337)& - &+JVS(5067)*UV(345)+JVS(5255)*UV(346) - JTUV(173) = JVS(28)*UV(7)+JVS(1144)*UV(173)+JVS(2629)*UV(296)+JVS(4219)*UV(336)+JVS(5068)*UV(345) - JTUV(174) = JVS(1155)*UV(174)+JVS(1301)*UV(198)+JVS(1895)*UV(258)+JVS(2857)*UV(306)+JVS(2912)*UV(307)+JVS(4366)& - &*UV(337)+JVS(5069)*UV(345) - JTUV(175) = JVS(333)*UV(35)+JVS(753)*UV(103)+JVS(1011)*UV(151)+JVS(1017)*UV(152)+JVS(1161)*UV(175)+JVS(1361)*UV(205)& - &+JVS(3096)*UV(314)+JVS(3428)*UV(325)+JVS(4073)*UV(335)+JVS(4367)*UV(337)+JVS(5070)*UV(345) - JTUV(176) = JVS(225)*UV(34)+JVS(1166)*UV(176)+JVS(1860)*UV(256)+JVS(1968)*UV(263)+JVS(2491)*UV(292)+JVS(2602)*UV(295)& - &+JVS(3259)*UV(322)+JVS(3429)*UV(325)+JVS(4074)*UV(335)+JVS(5071)*UV(345) - JTUV(177) = JVS(226)*UV(34)+JVS(1171)*UV(177)+JVS(1861)*UV(256)+JVS(2172)*UV(274)+JVS(4075)*UV(335)+JVS(5072)*UV(345) - JTUV(178) = JVS(227)*UV(34)+JVS(734)*UV(98)+JVS(1182)*UV(178)+JVS(1288)*UV(196)+JVS(2492)*UV(292)+JVS(2675)*UV(298)& - &+JVS(3196)*UV(319)+JVS(4076)*UV(335)+JVS(4368)*UV(337)+JVS(5256)*UV(346) - JTUV(179) = JVS(334)*UV(35)+JVS(528)*UV(38)+JVS(608)*UV(64)+JVS(920)*UV(134)+JVS(1187)*UV(179)+JVS(3597)*UV(327)& - &+JVS(4579)*UV(339)+JVS(4748)*UV(341)+JVS(5403)*UV(348)+JVS(5651)*UV(353) - JTUV(180) = JVS(228)*UV(34)+JVS(1192)*UV(180)+JVS(1761)*UV(247)+JVS(1930)*UV(261)+JVS(2717)*UV(299)+JVS(2858)*UV(306)& - &+JVS(4078)*UV(335)+JVS(4369)*UV(337)+JVS(5075)*UV(345)+JVS(5257)*UV(346) - JTUV(181) = JVS(335)*UV(35)+JVS(457)*UV(36)+JVS(1197)*UV(181)+JVS(1469)*UV(217)+JVS(3698)*UV(328)+JVS(3786)*UV(329)& - &+JVS(4002)*UV(334)+JVS(4220)*UV(336)+JVS(4370)*UV(337)+JVS(4531)*UV(338)+JVS(4580)*UV(339)+JVS(4672)& - &*UV(340)+JVS(4895)*UV(343)+JVS(5076)*UV(345) - JTUV(182) = JVS(29)*UV(7)+JVS(229)*UV(34)+JVS(458)*UV(36)+JVS(1201)*UV(182)+JVS(1762)*UV(247)+JVS(1931)*UV(261)& - &+JVS(3787)*UV(329)+JVS(4079)*UV(335)+JVS(4371)*UV(337)+JVS(5077)*UV(345)+JVS(5258)*UV(346) - JTUV(183) = JVS(336)*UV(35)+JVS(1207)*UV(183)+JVS(2630)*UV(296)+JVS(3598)*UV(327)+JVS(4221)*UV(336)+JVS(4581)*UV(339)& - &+JVS(4673)*UV(340)+JVS(4833)*UV(342)+JVS(5078)*UV(345)+JVS(5506)*UV(351)+JVS(5613)*UV(352) - JTUV(184) = JVS(230)*UV(34)+JVS(459)*UV(36)+JVS(784)*UV(107)+JVS(1212)*UV(184)+JVS(1911)*UV(259)+JVS(2913)*UV(307)& - &+JVS(3788)*UV(329)+JVS(4080)*UV(335)+JVS(5079)*UV(345)+JVS(5507)*UV(351) - JTUV(185) = JVS(460)*UV(36)+JVS(1219)*UV(185)+JVS(2093)*UV(270)+JVS(2539)*UV(294)+JVS(3322)*UV(324)+JVS(3789)*UV(329)& - &+JVS(4372)*UV(337)+JVS(5080)*UV(345) - JTUV(186) = JVS(337)*UV(35)+JVS(754)*UV(103)+JVS(974)*UV(145)+JVS(1226)*UV(186)+JVS(1439)*UV(215)+JVS(1540)*UV(226)& - &+JVS(2752)*UV(301)+JVS(2796)*UV(303)+JVS(2822)*UV(304)+JVS(2836)*UV(305)+JVS(3026)*UV(311)+JVS(4081)& - &*UV(335)+JVS(4373)*UV(337)+JVS(5081)*UV(345) - JTUV(187) = JVS(146)*UV(24)+JVS(461)*UV(36)+JVS(1012)*UV(151)+JVS(1018)*UV(152)+JVS(1230)*UV(187)+JVS(1514)*UV(223)& - &+JVS(1588)*UV(232)+JVS(2429)*UV(288)+JVS(2837)*UV(305)+JVS(3097)*UV(314)+JVS(3430)*UV(325)+JVS(3790)& - &*UV(329)+JVS(4374)*UV(337)+JVS(5082)*UV(345) - JTUV(188) = JVS(1234)*UV(188)+JVS(2676)*UV(298)+JVS(4375)*UV(337)+JVS(5083)*UV(345) - JTUV(189) = JVS(231)*UV(34)+JVS(824)*UV(116)+JVS(1248)*UV(189)+JVS(1352)*UV(204)+JVS(4082)*UV(335)+JVS(4376)*UV(337)& - &+JVS(5084)*UV(345)+JVS(5259)*UV(346) - JTUV(190) = JVS(232)*UV(34)+JVS(1256)*UV(190)+JVS(2041)*UV(266)+JVS(2718)*UV(299)+JVS(2769)*UV(302)+JVS(2797)*UV(303)& - &+JVS(3431)*UV(325)+JVS(4083)*UV(335)+JVS(4377)*UV(337)+JVS(5085)*UV(345)+JVS(5260)*UV(346) - JTUV(191) = JVS(338)*UV(35)+JVS(462)*UV(36)+JVS(888)*UV(129)+JVS(1261)*UV(191)+JVS(1530)*UV(225)+JVS(2156)*UV(273)& - &+JVS(2190)*UV(275)+JVS(2206)*UV(277)+JVS(2241)*UV(280)+JVS(2257)*UV(281)+JVS(2462)*UV(289)+JVS(3039)& - &*UV(312)+JVS(3432)*UV(325)+JVS(3791)*UV(329)+JVS(4749)*UV(341)+JVS(5086)*UV(345)+JVS(5508)*UV(351) - JTUV(192) = JVS(147)*UV(24)+JVS(463)*UV(36)+JVS(1013)*UV(151)+JVS(1019)*UV(152)+JVS(1265)*UV(192)+JVS(1521)*UV(224)& - &+JVS(1589)*UV(232)+JVS(1712)*UV(243)+JVS(2395)*UV(287)+JVS(2823)*UV(304)+JVS(2994)*UV(309)+JVS(3433)& - &*UV(325)+JVS(3792)*UV(329)+JVS(4378)*UV(337)+JVS(5087)*UV(345) - JTUV(193) = JVS(233)*UV(34)+JVS(1269)*UV(193)+JVS(1699)*UV(242)+JVS(1947)*UV(262)+JVS(1969)*UV(263)+JVS(2242)*UV(280)& - &+JVS(4084)*UV(335)+JVS(4750)*UV(341)+JVS(5088)*UV(345)+JVS(5509)*UV(351) - JTUV(194) = JVS(30)*UV(7)+JVS(464)*UV(36)+JVS(818)*UV(115)+JVS(1275)*UV(194)+JVS(1549)*UV(227)+JVS(2014)*UV(265)& - &+JVS(2094)*UV(270)+JVS(2540)*UV(294)+JVS(3323)*UV(324)+JVS(3793)*UV(329)+JVS(4379)*UV(337)+JVS(5089)& - &*UV(345) - JTUV(195) = JVS(339)*UV(35)+JVS(1282)*UV(195)+JVS(1325)*UV(202)+JVS(1334)*UV(203)+JVS(1499)*UV(221)+JVS(1970)*UV(263)& - &+JVS(2074)*UV(269)+JVS(2095)*UV(270)+JVS(3600)*UV(327)+JVS(4380)*UV(337)+JVS(5090)*UV(345)+JVS(5510)& - &*UV(351) - JTUV(196) = JVS(234)*UV(34)+JVS(1100)*UV(165)+JVS(1289)*UV(196)+JVS(2677)*UV(298)+JVS(3260)*UV(322)+JVS(3324)*UV(324)& - &+JVS(3552)*UV(326)+JVS(4085)*UV(335)+JVS(4223)*UV(336)+JVS(4381)*UV(337)+JVS(5091)*UV(345) - JTUV(197) = JVS(235)*UV(34)+JVS(340)*UV(35)+JVS(465)*UV(36)+JVS(872)*UV(126)+JVS(1295)*UV(197)+JVS(2859)*UV(306)& - &+JVS(3435)*UV(325)+JVS(3794)*UV(329)+JVS(4086)*UV(335)+JVS(4382)*UV(337)+JVS(5092)*UV(345)+JVS(5262)& - &*UV(346) - JTUV(198) = JVS(31)*UV(7)+JVS(1302)*UV(198)+JVS(2096)*UV(270)+JVS(2396)*UV(287)+JVS(2430)*UV(288)+JVS(2541)*UV(294)& - &+JVS(2860)*UV(306)+JVS(2914)*UV(307)+JVS(4383)*UV(337)+JVS(5093)*UV(345) - JTUV(199) = JVS(148)*UV(24)+JVS(466)*UV(36)+JVS(880)*UV(128)+JVS(969)*UV(144)+JVS(1308)*UV(199)+JVS(1522)*UV(224)& - &+JVS(1582)*UV(231)+JVS(1650)*UV(238)+JVS(1723)*UV(244)+JVS(2542)*UV(294)+JVS(2824)*UV(304)+JVS(3436)& - &*UV(325)+JVS(3795)*UV(329)+JVS(4384)*UV(337)+JVS(5094)*UV(345) - JTUV(200) = JVS(341)*UV(35)+JVS(467)*UV(36)+JVS(591)*UV(58)+JVS(1063)*UV(158)+JVS(1145)*UV(173)+JVS(1249)*UV(189)& - &+JVS(1312)*UV(200)+JVS(1319)*UV(201)+JVS(1353)*UV(204)+JVS(1500)*UV(221)+JVS(1971)*UV(263)+JVS(2097)& - &*UV(270)+JVS(2543)*UV(294)+JVS(3437)*UV(325)+JVS(3601)*UV(327)+JVS(3796)*UV(329)+JVS(4385)*UV(337)& - &+JVS(5095)*UV(345)+JVS(5512)*UV(351) - JTUV(201) = JVS(342)*UV(35)+JVS(468)*UV(36)+JVS(1146)*UV(173)+JVS(1320)*UV(201)+JVS(2015)*UV(265)+JVS(2305)*UV(283)& - &+JVS(2544)*UV(294)+JVS(2678)*UV(298)+JVS(2741)*UV(300)+JVS(2861)*UV(306)+JVS(3261)*UV(322)+JVS(3797)& - &*UV(329)+JVS(4386)*UV(337)+JVS(4751)*UV(341)+JVS(5096)*UV(345) - JTUV(202) = JVS(343)*UV(35)+JVS(1327)*UV(202)+JVS(1336)*UV(203)+JVS(1501)*UV(221)+JVS(1972)*UV(263)+JVS(2076)*UV(269)& - &+JVS(2862)*UV(306)+JVS(3602)*UV(327)+JVS(4387)*UV(337)+JVS(4752)*UV(341)+JVS(5097)*UV(345)+JVS(5513)& - &*UV(351) - JTUV(203) = JVS(344)*UV(35)+JVS(1337)*UV(203)+JVS(1629)*UV(236)+JVS(2077)*UV(269)+JVS(4088)*UV(335)+JVS(4753)*UV(341) - JTUV(204) = JVS(345)*UV(35)+JVS(469)*UV(36)+JVS(1354)*UV(204)+JVS(1617)*UV(235)+JVS(1630)*UV(236)+JVS(3603)*UV(327)& - &+JVS(3798)*UV(329)+JVS(4388)*UV(337)+JVS(5098)*UV(345)+JVS(5514)*UV(351) - JTUV(205) = JVS(236)*UV(34)+JVS(1362)*UV(205)+JVS(1783)*UV(248)+JVS(2042)*UV(266)+JVS(2719)*UV(299)+JVS(2798)*UV(303)& - &+JVS(2863)*UV(306)+JVS(2915)*UV(307)+JVS(3438)*UV(325)+JVS(4089)*UV(335)+JVS(4389)*UV(337)+JVS(5099)& - &*UV(345)+JVS(5264)*UV(346) - JTUV(206) = JVS(237)*UV(34)+JVS(1367)*UV(206)+JVS(1457)*UV(216)+JVS(1763)*UV(247)+JVS(2043)*UV(266)+JVS(2720)*UV(299)& - &+JVS(2799)*UV(303)+JVS(2864)*UV(306)+JVS(3439)*UV(325)+JVS(4090)*UV(335)+JVS(4390)*UV(337)+JVS(5100)& - &*UV(345)+JVS(5265)*UV(346) - JTUV(207) = JVS(238)*UV(34)+JVS(1372)*UV(207)+JVS(1932)*UV(261)+JVS(2044)*UV(266)+JVS(2721)*UV(299)+JVS(2770)*UV(302)& - &+JVS(2800)*UV(303)+JVS(2916)*UV(307)+JVS(3440)*UV(325)+JVS(4091)*UV(335)+JVS(4391)*UV(337)+JVS(5101)& - &*UV(345)+JVS(5266)*UV(346) - JTUV(208) = JVS(470)*UV(36)+JVS(1379)*UV(208)+JVS(3326)*UV(324)+JVS(3441)*UV(325)+JVS(3799)*UV(329)+JVS(4392)*UV(337)& - &+JVS(5102)*UV(345) - JTUV(209) = JVS(149)*UV(24)+JVS(471)*UV(36)+JVS(881)*UV(128)+JVS(1005)*UV(150)+JVS(1389)*UV(209)+JVS(1393)*UV(210)& - &+JVS(1515)*UV(223)+JVS(1576)*UV(230)+JVS(1651)*UV(238)+JVS(2545)*UV(294)+JVS(2838)*UV(305)+JVS(3327)& - &*UV(324)+JVS(3442)*UV(325)+JVS(3800)*UV(329)+JVS(4393)*UV(337)+JVS(5103)*UV(345) - JTUV(210) = JVS(472)*UV(36)+JVS(1394)*UV(210)+JVS(2098)*UV(270)+JVS(3443)*UV(325)+JVS(3801)*UV(329)+JVS(4394)*UV(337)& - &+JVS(5104)*UV(345) - JTUV(211) = JVS(239)*UV(34)+JVS(346)*UV(35)+JVS(1172)*UV(177)+JVS(1404)*UV(211)+JVS(1973)*UV(263)+JVS(2142)*UV(272)& - &+JVS(2173)*UV(274)+JVS(3444)*UV(325)+JVS(4092)*UV(335)+JVS(4754)*UV(341)+JVS(5105)*UV(345)+JVS(5515)& - &*UV(351) - JTUV(212) = JVS(240)*UV(34)+JVS(876)*UV(127)+JVS(1411)*UV(212)+JVS(1597)*UV(233)+JVS(2679)*UV(298)+JVS(2865)*UV(306)& - &+JVS(3445)*UV(325)+JVS(4093)*UV(335)+JVS(4395)*UV(337)+JVS(5267)*UV(346) - JTUV(213) = JVS(32)*UV(7)+JVS(241)*UV(34)+JVS(347)*UV(35)+JVS(638)*UV(72)+JVS(814)*UV(114)+JVS(1418)*UV(213)+JVS(3446)& - &*UV(325)+JVS(4094)*UV(335)+JVS(4396)*UV(337)+JVS(4755)*UV(341)+JVS(5107)*UV(345)+JVS(5268)*UV(346)& - &+JVS(5516)*UV(351) - JTUV(214) = JVS(348)*UV(35)+JVS(1425)*UV(214)+JVS(2652)*UV(297)+JVS(3604)*UV(327)+JVS(4095)*UV(335)+JVS(4226)*UV(336)& - &+JVS(4582)*UV(339)+JVS(4938)*UV(344)+JVS(5517)*UV(351)+JVS(5652)*UV(353) - JTUV(215) = JVS(178)*UV(31)+JVS(473)*UV(36)+JVS(1444)*UV(215)+JVS(2546)*UV(294)+JVS(2917)*UV(307)+JVS(3447)*UV(325)& - &+JVS(3804)*UV(329) - JTUV(216) = JVS(33)*UV(7)+JVS(349)*UV(35)+JVS(474)*UV(36)+JVS(755)*UV(103)+JVS(1458)*UV(216)+JVS(1764)*UV(247)& - &+JVS(3805)*UV(329)+JVS(4397)*UV(337)+JVS(5108)*UV(345) - JTUV(217) = JVS(242)*UV(34)+JVS(350)*UV(35)+JVS(1470)*UV(217)+JVS(4227)*UV(336)+JVS(4398)*UV(337)+JVS(4756)*UV(341)& - &+JVS(4896)*UV(343)+JVS(5109)*UV(345) - JTUV(218) = JVS(351)*UV(35)+JVS(993)*UV(148)+JVS(1046)*UV(157)+JVS(1481)*UV(218)+JVS(3147)*UV(316)+JVS(3606)*UV(327)& - &+JVS(4096)*UV(335)+JVS(4228)*UV(336)+JVS(4583)*UV(339)+JVS(4834)*UV(342)+JVS(5372)*UV(347)+JVS(5518)& - &*UV(351) - JTUV(219) = JVS(352)*UV(35)+JVS(1487)*UV(219)+JVS(1948)*UV(262)+JVS(1974)*UV(263)+JVS(2191)*UV(275)+JVS(2207)*UV(277)& - &+JVS(2243)*UV(280)+JVS(2258)*UV(281)+JVS(2463)*UV(289)+JVS(2481)*UV(291)+JVS(2493)*UV(292)+JVS(2603)& - &*UV(295)+JVS(2680)*UV(298)+JVS(3099)*UV(314)+JVS(3217)*UV(320)+JVS(3448)*UV(325)+JVS(4399)*UV(337)& - &+JVS(4757)*UV(341)+JVS(5111)*UV(345)+JVS(5519)*UV(351) - JTUV(220) = JVS(353)*UV(35)+JVS(475)*UV(36)+JVS(965)*UV(143)+JVS(1250)*UV(189)+JVS(1355)*UV(204)+JVS(1491)*UV(220)& - &+JVS(1631)*UV(236)+JVS(1975)*UV(263)+JVS(3040)*UV(312)+JVS(3449)*UV(325)+JVS(3806)*UV(329)+JVS(4097)& - &*UV(335)+JVS(4400)*UV(337)+JVS(4758)*UV(341)+JVS(5112)*UV(345)+JVS(5520)*UV(351) - JTUV(221) = JVS(354)*UV(35)+JVS(476)*UV(36)+JVS(1147)*UV(173)+JVS(1503)*UV(221)+JVS(2016)*UV(265)+JVS(2100)*UV(270)& - &+JVS(2681)*UV(298)+JVS(2867)*UV(306)+JVS(3262)*UV(322)+JVS(3807)*UV(329)+JVS(4401)*UV(337)+JVS(4759)& - &*UV(341)+JVS(5113)*UV(345) - JTUV(222) = JVS(355)*UV(35)+JVS(756)*UV(103)+JVS(1508)*UV(222)+JVS(2134)*UV(271)+JVS(2522)*UV(293)+JVS(2801)*UV(303)& - &+JVS(2996)*UV(309)+JVS(3014)*UV(310)+JVS(3100)*UV(314)+JVS(3450)*UV(325)+JVS(4098)*UV(335)+JVS(4402)& - &*UV(337)+JVS(5114)*UV(345) - JTUV(223) = JVS(243)*UV(34)+JVS(1156)*UV(174)+JVS(1303)*UV(198)+JVS(1395)*UV(210)+JVS(1516)*UV(223)+JVS(1896)*UV(258)& - &+JVS(2398)*UV(287)+JVS(2802)*UV(303)+JVS(2918)*UV(307)+JVS(3451)*UV(325)+JVS(4099)*UV(335)+JVS(4403)& - &*UV(337)+JVS(5115)*UV(345)+JVS(5270)*UV(346) - JTUV(224) = JVS(244)*UV(34)+JVS(1157)*UV(174)+JVS(1304)*UV(198)+JVS(1523)*UV(224)+JVS(1724)*UV(244)+JVS(1897)*UV(258)& - &+JVS(2433)*UV(288)+JVS(2803)*UV(303)+JVS(2869)*UV(306)+JVS(3452)*UV(325)+JVS(4100)*UV(335)+JVS(4404)& - &*UV(337)+JVS(5116)*UV(345)+JVS(5271)*UV(346) - JTUV(225) = JVS(356)*UV(35)+JVS(477)*UV(36)+JVS(1531)*UV(225)+JVS(1884)*UV(257)+JVS(2219)*UV(278)+JVS(3609)*UV(327)& - &+JVS(3809)*UV(329)+JVS(4405)*UV(337)+JVS(5117)*UV(345)+JVS(5521)*UV(351) - JTUV(226) = JVS(245)*UV(34)+JVS(1396)*UV(210)+JVS(1459)*UV(216)+JVS(1541)*UV(226)+JVS(1725)*UV(244)+JVS(1765)*UV(247)& - &+JVS(1933)*UV(261)+JVS(2045)*UV(266)+JVS(2722)*UV(299)+JVS(2771)*UV(302)+JVS(2804)*UV(303)+JVS(3453)& - &*UV(325)+JVS(4101)*UV(335)+JVS(4406)*UV(337)+JVS(5118)*UV(345)+JVS(5272)*UV(346) - JTUV(227) = JVS(478)*UV(36)+JVS(1550)*UV(227)+JVS(2104)*UV(270)+JVS(2549)*UV(294)+JVS(3328)*UV(324)+JVS(3811)*UV(329)& - &+JVS(4407)*UV(337) - JTUV(228) = JVS(357)*UV(35)+JVS(538)*UV(39)+JVS(1471)*UV(217)+JVS(1563)*UV(228)+JVS(3454)*UV(325)+JVS(3699)*UV(328)& - &+JVS(4003)*UV(334)+JVS(4231)*UV(336)+JVS(4408)*UV(337)+JVS(4584)*UV(339)+JVS(4675)*UV(340)+JVS(5119)& - &*UV(345) - JTUV(229) = JVS(358)*UV(35)+JVS(1570)*UV(229)+JVS(1949)*UV(262)+JVS(1976)*UV(263)+JVS(2244)*UV(280)+JVS(2604)*UV(295)& - &+JVS(2682)*UV(298)+JVS(3101)*UV(314)+JVS(3455)*UV(325)+JVS(4102)*UV(335)+JVS(4409)*UV(337)+JVS(4761)& - &*UV(341)+JVS(5120)*UV(345)+JVS(5522)*UV(351) - JTUV(230) = JVS(479)*UV(36)+JVS(840)*UV(119)+JVS(914)*UV(133)+JVS(1132)*UV(171)+JVS(1220)*UV(185)+JVS(1276)*UV(194)& - &+JVS(1445)*UV(215)+JVS(1577)*UV(230)+JVS(2434)*UV(288)+JVS(2550)*UV(294)+JVS(3102)*UV(314)+JVS(3456)& - &*UV(325)+JVS(3812)*UV(329)+JVS(4410)*UV(337)+JVS(5121)*UV(345) - JTUV(231) = JVS(480)*UV(36)+JVS(841)*UV(119)+JVS(931)*UV(135)+JVS(1138)*UV(172)+JVS(1221)*UV(185)+JVS(1277)*UV(194)& - &+JVS(1446)*UV(215)+JVS(1583)*UV(231)+JVS(2400)*UV(287)+JVS(2551)*UV(294)+JVS(2997)*UV(309)+JVS(3457)& - &*UV(325)+JVS(3813)*UV(329)+JVS(4411)*UV(337)+JVS(5122)*UV(345) - JTUV(232) = JVS(246)*UV(34)+JVS(1158)*UV(174)+JVS(1305)*UV(198)+JVS(1590)*UV(232)+JVS(2805)*UV(303)+JVS(2870)*UV(306)& - &+JVS(2922)*UV(307)+JVS(4105)*UV(335)+JVS(4412)*UV(337)+JVS(5123)*UV(345)+JVS(5275)*UV(346) - JTUV(233) = JVS(481)*UV(36)+JVS(791)*UV(109)+JVS(909)*UV(132)+JVS(1296)*UV(197)+JVS(1598)*UV(233)+JVS(2108)*UV(270)& - &+JVS(3458)*UV(325)+JVS(3814)*UV(329)+JVS(4413)*UV(337)+JVS(5124)*UV(345) - JTUV(234) = JVS(247)*UV(34)+JVS(359)*UV(35)+JVS(630)*UV(70)+JVS(778)*UV(106)+JVS(936)*UV(136)+JVS(1607)*UV(234)& - &+JVS(2267)*UV(282)+JVS(2872)*UV(306)+JVS(3459)*UV(325)+JVS(3700)*UV(328)+JVS(4107)*UV(335)+JVS(4414)& - &*UV(337)+JVS(5277)*UV(346)+JVS(5524)*UV(351) - JTUV(235) = JVS(34)*UV(7)+JVS(248)*UV(34)+JVS(360)*UV(35)+JVS(634)*UV(71)+JVS(700)*UV(90)+JVS(829)*UV(117)+JVS(1619)& - &*UV(235)+JVS(1632)*UV(236)+JVS(3460)*UV(325)+JVS(3701)*UV(328)+JVS(4108)*UV(335)+JVS(4415)*UV(337)& - &+JVS(4763)*UV(341)+JVS(5126)*UV(345)+JVS(5278)*UV(346) - JTUV(236) = JVS(249)*UV(34)+JVS(361)*UV(35)+JVS(830)*UV(117)+JVS(1340)*UV(203)+JVS(1633)*UV(236)+JVS(3461)*UV(325)& - &+JVS(3702)*UV(328)+JVS(4109)*UV(335)+JVS(4416)*UV(337)+JVS(5279)*UV(346)+JVS(5525)*UV(351) - JTUV(237) = JVS(362)*UV(35)+JVS(1173)*UV(177)+JVS(1641)*UV(237)+JVS(1977)*UV(263)+JVS(2143)*UV(272)+JVS(2174)*UV(274)& - &+JVS(4765)*UV(341)+JVS(5128)*UV(345)+JVS(5526)*UV(351) - JTUV(238) = JVS(35)*UV(7)+JVS(482)*UV(36)+JVS(1652)*UV(238)+JVS(2361)*UV(285)+JVS(2381)*UV(286)+JVS(2402)*UV(287)& - &+JVS(2436)*UV(288)+JVS(2553)*UV(294)+JVS(3815)*UV(329)+JVS(4417)*UV(337)+JVS(5129)*UV(345) - JTUV(239) = JVS(250)*UV(34)+JVS(1665)*UV(239)+JVS(4111)*UV(335)+JVS(4232)*UV(336)+JVS(5130)*UV(345)+JVS(5280)*UV(346) - JTUV(240) = JVS(36)*UV(7)+JVS(251)*UV(34)+JVS(363)*UV(35)+JVS(856)*UV(122)+JVS(1034)*UV(155)+JVS(1148)*UV(173)& - &+JVS(1685)*UV(240)+JVS(3263)*UV(322)+JVS(4112)*UV(335)+JVS(4418)*UV(337)+JVS(4766)*UV(341)+JVS(5131)& - &*UV(345)+JVS(5281)*UV(346) - JTUV(241) = JVS(37)*UV(7)+JVS(180)*UV(32)+JVS(252)*UV(34)+JVS(522)*UV(37)+JVS(529)*UV(38)+JVS(543)*UV(40)+JVS(921)& - &*UV(134)+JVS(1691)*UV(241)+JVS(1993)*UV(264)+JVS(2306)*UV(283)+JVS(3554)*UV(326)+JVS(3817)*UV(329)& - &+JVS(4113)*UV(335)+JVS(4234)*UV(336)+JVS(5282)*UV(346)+JVS(5404)*UV(348)+JVS(5527)*UV(351) - JTUV(242) = JVS(364)*UV(35)+JVS(561)*UV(45)+JVS(1028)*UV(154)+JVS(1700)*UV(242)+JVS(2683)*UV(298)+JVS(4114)*UV(335)& - &+JVS(4767)*UV(341)+JVS(5133)*UV(345)+JVS(5528)*UV(351) - JTUV(243) = JVS(253)*UV(34)+JVS(483)*UV(36)+JVS(1380)*UV(208)+JVS(1715)*UV(243)+JVS(1899)*UV(258)+JVS(2046)*UV(266)& - &+JVS(2924)*UV(307)+JVS(3463)*UV(325)+JVS(3818)*UV(329)+JVS(4115)*UV(335)+JVS(4419)*UV(337)+JVS(5134)& - &*UV(345)+JVS(5283)*UV(346) - JTUV(244) = JVS(1726)*UV(244)+JVS(2554)*UV(294)+JVS(3064)*UV(313)+JVS(3333)*UV(324)+JVS(3464)*UV(325)+JVS(4235)& - &*UV(336)+JVS(5135)*UV(345) - JTUV(245) = JVS(254)*UV(34)+JVS(1740)*UV(245)+JVS(3954)*UV(333)+JVS(4004)*UV(334)+JVS(4532)*UV(338)+JVS(4676)*UV(340)& - &+JVS(4898)*UV(343)+JVS(5136)*UV(345) - JTUV(246) = JVS(38)*UV(7)+JVS(255)*UV(34)+JVS(365)*UV(35)+JVS(810)*UV(113)+JVS(1035)*UV(155)+JVS(1149)*UV(173)& - &+JVS(1608)*UV(234)+JVS(1754)*UV(246)+JVS(4116)*UV(335)+JVS(4420)*UV(337)+JVS(4768)*UV(341)+JVS(5137)& - &*UV(345)+JVS(5284)*UV(346) - JTUV(247) = JVS(1766)*UV(247)+JVS(2555)*UV(294)+JVS(3334)*UV(324)+JVS(3466)*UV(325)+JVS(4117)*UV(335)+JVS(5138)& + JTUV(34) = JVS(190)*UV(34) + JTUV(35) = JVS(198)*UV(35) + JTUV(36) = JVS(201)*UV(36) + JTUV(37) = JVS(203)*UV(37) + JTUV(38) = JVS(321)*UV(38) + JTUV(39) = JVS(447)*UV(39) + JTUV(40) = JVS(536)*UV(40) + JTUV(41) = JVS(541)*UV(41) + JTUV(42) = JVS(553)*UV(42) + JTUV(43) = JVS(558)*UV(43) + JTUV(44) = JVS(12)*UV(6)+JVS(567)*UV(44)+JVS(4538)*UV(343) + JTUV(45) = JVS(5)*UV(4)+JVS(87)*UV(9)+JVS(95)*UV(10)+JVS(322)*UV(38)+JVS(569)*UV(45)+JVS(734)*UV(98) + JTUV(46) = JVS(571)*UV(46)+JVS(4539)*UV(343)+JVS(5336)*UV(352)+JVS(5430)*UV(353) + JTUV(47) = JVS(6)*UV(4)+JVS(88)*UV(9)+JVS(96)*UV(10)+JVS(323)*UV(38)+JVS(573)*UV(47)+JVS(735)*UV(98)+JVS(3624)*UV(331)& + &+JVS(3975)*UV(336) + JTUV(48) = JVS(84)*UV(8)+JVS(204)*UV(37)+JVS(575)*UV(48)+JVS(3675)*UV(333) + JTUV(49) = JVS(579)*UV(49)+JVS(3995)*UV(337)+JVS(4813)*UV(344)+JVS(5278)*UV(351)+JVS(5337)*UV(352) + JTUV(50) = JVS(581)*UV(50)+JVS(3996)*UV(337)+JVS(4814)*UV(344)+JVS(5279)*UV(351)+JVS(5338)*UV(352) + JTUV(51) = JVS(583)*UV(51)+JVS(3997)*UV(337)+JVS(4815)*UV(344)+JVS(5280)*UV(351)+JVS(5339)*UV(352) + JTUV(52) = JVS(324)*UV(38)+JVS(585)*UV(52)+JVS(3998)*UV(337)+JVS(4816)*UV(344)+JVS(5281)*UV(351)+JVS(5340)*UV(352) + JTUV(53) = JVS(325)*UV(38)+JVS(587)*UV(53)+JVS(3999)*UV(337)+JVS(4817)*UV(344)+JVS(5282)*UV(351)+JVS(5341)*UV(352) + JTUV(54) = JVS(589)*UV(54)+JVS(4000)*UV(337)+JVS(4818)*UV(344)+JVS(5283)*UV(351)+JVS(5342)*UV(352) + JTUV(55) = JVS(591)*UV(55)+JVS(3625)*UV(331)+JVS(3779)*UV(334)+JVS(4540)*UV(343)+JVS(5431)*UV(353) + JTUV(56) = JVS(593)*UV(56)+JVS(4001)*UV(337)+JVS(4483)*UV(342)+JVS(5072)*UV(347)+JVS(5284)*UV(351) + JTUV(57) = JVS(595)*UV(57)+JVS(4002)*UV(337)+JVS(4484)*UV(342)+JVS(5073)*UV(347)+JVS(5285)*UV(351) + JTUV(58) = JVS(7)*UV(4)+JVS(89)*UV(9)+JVS(97)*UV(10)+JVS(326)*UV(38)+JVS(597)*UV(58)+JVS(736)*UV(98)+JVS(3976)*UV(336) + JTUV(59) = JVS(205)*UV(37)+JVS(600)*UV(59)+JVS(1913)*UV(261)+JVS(4865)*UV(345) + JTUV(60) = JVS(206)*UV(37)+JVS(603)*UV(60)+JVS(2183)*UV(277)+JVS(4866)*UV(345) + JTUV(61) = JVS(606)*UV(61)+JVS(865)*UV(124)+JVS(4541)*UV(343) + JTUV(62) = JVS(609)*UV(62)+JVS(4485)*UV(342)+JVS(4867)*UV(345) + JTUV(63) = JVS(448)*UV(39)+JVS(612)*UV(63)+JVS(2026)*UV(268)+JVS(2114)*UV(274)+JVS(3852)*UV(335)+JVS(4276)*UV(341)& + &+JVS(4542)*UV(343) + JTUV(64) = JVS(614)*UV(64)+JVS(4003)*UV(337)+JVS(4486)*UV(342)+JVS(4819)*UV(344)+JVS(5074)*UV(347)+JVS(5286)*UV(351)& + &+JVS(5343)*UV(352) + JTUV(65) = JVS(616)*UV(65)+JVS(1136)*UV(172)+JVS(3626)*UV(331)+JVS(4046)*UV(338) + JTUV(66) = JVS(207)*UV(37)+JVS(327)*UV(38)+JVS(619)*UV(66)+JVS(4004)*UV(337)+JVS(4047)*UV(338) + JTUV(67) = JVS(328)*UV(38)+JVS(623)*UV(67)+JVS(1658)*UV(240)+JVS(4868)*UV(345) + JTUV(68) = JVS(329)*UV(38)+JVS(627)*UV(68)+JVS(1659)*UV(240)+JVS(4869)*UV(345) + JTUV(69) = JVS(15)*UV(7)+JVS(631)*UV(69)+JVS(2249)*UV(282)+JVS(4543)*UV(343) + JTUV(70) = JVS(208)*UV(37)+JVS(620)*UV(66)+JVS(636)*UV(70)+JVS(4048)*UV(338)+JVS(4870)*UV(345)+JVS(5287)*UV(351) + JTUV(71) = JVS(16)*UV(7)+JVS(330)*UV(38)+JVS(449)*UV(39)+JVS(639)*UV(71)+JVS(3853)*UV(335)+JVS(4544)*UV(343)+JVS(5288)& + &*UV(351)+JVS(5572)*UV(355) + JTUV(72) = JVS(331)*UV(38)+JVS(642)*UV(72)+JVS(1202)*UV(182)+JVS(3676)*UV(333)+JVS(4545)*UV(343)+JVS(5102)*UV(348) + JTUV(73) = JVS(209)*UV(37)+JVS(645)*UV(73)+JVS(2867)*UV(309)+JVS(4546)*UV(343)+JVS(4871)*UV(345) + JTUV(74) = JVS(649)*UV(74)+JVS(3435)*UV(329)+JVS(4277)*UV(341)+JVS(4547)*UV(343) + JTUV(75) = JVS(8)*UV(4)+JVS(90)*UV(9)+JVS(98)*UV(10)+JVS(653)*UV(75)+JVS(3627)*UV(331)+JVS(4548)*UV(343)+JVS(5432)& + &*UV(353) + JTUV(76) = JVS(17)*UV(7)+JVS(657)*UV(76)+JVS(1914)*UV(261)+JVS(2250)*UV(282)+JVS(4549)*UV(343) + JTUV(77) = JVS(18)*UV(7)+JVS(661)*UV(77)+JVS(1621)*UV(237)+JVS(1633)*UV(238)+JVS(4550)*UV(343) + JTUV(78) = JVS(332)*UV(38)+JVS(665)*UV(78)+JVS(839)*UV(119)+JVS(3650)*UV(332)+JVS(4551)*UV(343)+JVS(4820)*UV(344)& + &+JVS(5344)*UV(352) + JTUV(79) = JVS(668)*UV(79)+JVS(4006)*UV(337)+JVS(4487)*UV(342)+JVS(4552)*UV(343)+JVS(5075)*UV(347)+JVS(5289)*UV(351) + JTUV(80) = JVS(450)*UV(39)+JVS(671)*UV(80)+JVS(3854)*UV(335)+JVS(4199)*UV(340)+JVS(4278)*UV(341)+JVS(4553)*UV(343)& + &+JVS(5345)*UV(352) + JTUV(81) = JVS(674)*UV(81)+JVS(3628)*UV(331)+JVS(4488)*UV(342) + JTUV(82) = JVS(680)*UV(82)+JVS(4007)*UV(337)+JVS(4489)*UV(342)+JVS(4554)*UV(343)+JVS(5076)*UV(347)+JVS(5290)*UV(351) + JTUV(83) = JVS(210)*UV(37)+JVS(683)*UV(83)+JVS(3436)*UV(329)+JVS(3780)*UV(334)+JVS(4279)*UV(341)+JVS(4872)*UV(345)& + &+JVS(5103)*UV(348) + JTUV(84) = JVS(451)*UV(39)+JVS(686)*UV(84)+JVS(3855)*UV(335)+JVS(4200)*UV(340)+JVS(4280)*UV(341)+JVS(4555)*UV(343)& + &+JVS(5346)*UV(352) + JTUV(85) = JVS(139)*UV(22)+JVS(452)*UV(39)+JVS(689)*UV(85)+JVS(1080)*UV(162)+JVS(1332)*UV(204)+JVS(1365)*UV(207)& + &+JVS(1512)*UV(224)+JVS(1976)*UV(266)+JVS(2115)*UV(274)+JVS(2585)*UV(298)+JVS(3127)*UV(318)+JVS(3856)*UV(335)& + &+JVS(4281)*UV(341)+JVS(4556)*UV(343) + JTUV(86) = JVS(211)*UV(37)+JVS(691)*UV(86)+JVS(3579)*UV(330)+JVS(4282)*UV(341)+JVS(4557)*UV(343)+JVS(4873)*UV(345) + JTUV(87) = JVS(163)*UV(28)+JVS(333)*UV(38)+JVS(695)*UV(87)+JVS(3437)*UV(329)+JVS(3677)*UV(333)+JVS(3781)*UV(334)& + &+JVS(4558)*UV(343)+JVS(5104)*UV(348)+JVS(5573)*UV(355) + JTUV(88) = JVS(698)*UV(88)+JVS(4008)*UV(337)+JVS(4559)*UV(343)+JVS(4821)*UV(344)+JVS(5291)*UV(351)+JVS(5347)*UV(352)& + &+JVS(5433)*UV(353) + JTUV(89) = JVS(701)*UV(89)+JVS(4009)*UV(337)+JVS(4560)*UV(343)+JVS(4822)*UV(344)+JVS(5292)*UV(351)+JVS(5348)*UV(352)& + &+JVS(5434)*UV(353) + JTUV(90) = JVS(704)*UV(90)+JVS(4010)*UV(337)+JVS(4561)*UV(343)+JVS(4823)*UV(344)+JVS(5293)*UV(351)+JVS(5349)*UV(352)& + &+JVS(5435)*UV(353) + JTUV(91) = JVS(334)*UV(38)+JVS(707)*UV(91)+JVS(4011)*UV(337)+JVS(4562)*UV(343)+JVS(4824)*UV(344)+JVS(5294)*UV(351)& + &+JVS(5350)*UV(352)+JVS(5436)*UV(353) + JTUV(92) = JVS(710)*UV(92)+JVS(2027)*UV(268)+JVS(3438)*UV(329)+JVS(4283)*UV(341)+JVS(4563)*UV(343) + JTUV(93) = JVS(185)*UV(33)+JVS(191)*UV(34)+JVS(202)*UV(36)+JVS(542)*UV(41)+JVS(714)*UV(93)+JVS(972)*UV(146)+JVS(3439)& + &*UV(329)+JVS(4564)*UV(343)+JVS(5574)*UV(355) + JTUV(94) = JVS(212)*UV(37)+JVS(718)*UV(94)+JVS(2553)*UV(297)+JVS(4284)*UV(341)+JVS(4565)*UV(343)+JVS(4874)*UV(345) + JTUV(95) = JVS(19)*UV(7)+JVS(722)*UV(95)+JVS(3347)*UV(328)+JVS(3440)*UV(329)+JVS(3782)*UV(334)+JVS(4566)*UV(343) + JTUV(96) = JVS(213)*UV(37)+JVS(726)*UV(96)+JVS(3441)*UV(329)+JVS(4285)*UV(341)+JVS(4567)*UV(343)+JVS(4875)*UV(345) + JTUV(97) = JVS(214)*UV(37)+JVS(730)*UV(97)+JVS(2697)*UV(302)+JVS(4286)*UV(341)+JVS(4568)*UV(343)+JVS(4876)*UV(345) + JTUV(98) = JVS(335)*UV(38)+JVS(570)*UV(45)+JVS(598)*UV(58)+JVS(737)*UV(98)+JVS(3629)*UV(331)+JVS(3977)*UV(336)& + &+JVS(4049)*UV(338)+JVS(4877)*UV(345) + JTUV(99) = JVS(741)*UV(99)+JVS(2698)*UV(302)+JVS(3225)*UV(323)+JVS(4287)*UV(341)+JVS(4569)*UV(343) + JTUV(100) = JVS(745)*UV(100)+JVS(1203)*UV(182)+JVS(2699)*UV(302)+JVS(4288)*UV(341)+JVS(4570)*UV(343) + JTUV(101) = JVS(749)*UV(101)+JVS(2700)*UV(302)+JVS(3299)*UV(326)+JVS(4289)*UV(341)+JVS(4571)*UV(343) + JTUV(102) = JVS(753)*UV(102)+JVS(2554)*UV(297)+JVS(3323)*UV(327)+JVS(4290)*UV(341)+JVS(4572)*UV(343) + JTUV(103) = JVS(158)*UV(27)+JVS(453)*UV(39)+JVS(757)*UV(103)+JVS(1081)*UV(162)+JVS(1160)*UV(176)+JVS(1333)*UV(204)& + &+JVS(1366)*UV(207)+JVS(1513)*UV(224)+JVS(1977)*UV(266)+JVS(2116)*UV(274)+JVS(2586)*UV(298)+JVS(3128)& + &*UV(318)+JVS(3857)*UV(335)+JVS(4291)*UV(341)+JVS(4573)*UV(343) + JTUV(104) = JVS(759)*UV(104)+JVS(2701)*UV(302)+JVS(2772)*UV(304)+JVS(4292)*UV(341)+JVS(4574)*UV(343) + JTUV(105) = JVS(20)*UV(7)+JVS(215)*UV(37)+JVS(763)*UV(105)+JVS(832)*UV(118)+JVS(1622)*UV(237)+JVS(4575)*UV(343)& + &+JVS(4878)*UV(345) + JTUV(106) = JVS(85)*UV(8)+JVS(216)*UV(37)+JVS(767)*UV(106)+JVS(3678)*UV(333) + JTUV(107) = JVS(781)*UV(107)+JVS(3630)*UV(331)+JVS(5351)*UV(352) + JTUV(108) = JVS(336)*UV(38)+JVS(789)*UV(108)+JVS(3783)*UV(334)+JVS(4012)*UV(337)+JVS(4293)*UV(341)+JVS(4490)*UV(342)& + &+JVS(4576)*UV(343)+JVS(5077)*UV(347)+JVS(5437)*UV(353) + JTUV(109) = JVS(174)*UV(31)+JVS(454)*UV(39)+JVS(792)*UV(109)+JVS(2028)*UV(268)+JVS(2587)*UV(298)+JVS(3348)*UV(328)& + &+JVS(3858)*UV(335)+JVS(4577)*UV(343) + JTUV(110) = JVS(217)*UV(37)+JVS(796)*UV(110)+JVS(4294)*UV(341)+JVS(4578)*UV(343)+JVS(4879)*UV(345)+JVS(5105)*UV(348)& + &+JVS(5438)*UV(353) + JTUV(111) = JVS(800)*UV(111)+JVS(1538)*UV(227)+JVS(1915)*UV(261)+JVS(2238)*UV(281)+JVS(4295)*UV(341)+JVS(4579)*UV(343) + JTUV(112) = JVS(804)*UV(112)+JVS(901)*UV(132)+JVS(2172)*UV(276)+JVS(3442)*UV(329)+JVS(4296)*UV(341)+JVS(4580)*UV(343) + JTUV(113) = JVS(218)*UV(37)+JVS(455)*UV(39)+JVS(808)*UV(113)+JVS(1792)*UV(250)+JVS(2868)*UV(309)+JVS(3859)*UV(335)& + &+JVS(4581)*UV(343)+JVS(4880)*UV(345) + JTUV(114) = JVS(812)*UV(114)+JVS(2869)*UV(309)+JVS(3443)*UV(329)+JVS(4297)*UV(341) + JTUV(115) = JVS(219)*UV(37)+JVS(456)*UV(39)+JVS(818)*UV(115)+JVS(1434)*UV(216)+JVS(3444)*UV(329)+JVS(3860)*UV(335)& + &+JVS(4582)*UV(343)+JVS(4881)*UV(345) + JTUV(116) = JVS(21)*UV(7)+JVS(170)*UV(30)+JVS(822)*UV(116)+JVS(3349)*UV(328)+JVS(4298)*UV(341)+JVS(4583)*UV(343) + JTUV(117) = JVS(220)*UV(37)+JVS(828)*UV(117)+JVS(1367)*UV(207)+JVS(4299)*UV(341)+JVS(4584)*UV(343)+JVS(4882)*UV(345)& + &+JVS(5439)*UV(353) + JTUV(118) = JVS(833)*UV(118)+JVS(1349)*UV(206)+JVS(1634)*UV(238)+JVS(4585)*UV(343) + JTUV(119) = JVS(221)*UV(37)+JVS(840)*UV(119)+JVS(1756)*UV(248)+JVS(4825)*UV(344)+JVS(5352)*UV(352) + JTUV(120) = JVS(337)*UV(38)+JVS(846)*UV(120)+JVS(1647)*UV(239)+JVS(3101)*UV(317)+JVS(3445)*UV(329)+JVS(4586)*UV(343)& + &+JVS(5613)*UV(356) + JTUV(121) = JVS(850)*UV(121)+JVS(3156)*UV(319)+JVS(3580)*UV(330)+JVS(4300)*UV(341)+JVS(4587)*UV(343) + JTUV(122) = JVS(457)*UV(39)+JVS(855)*UV(122)+JVS(1244)*UV(190)+JVS(3861)*UV(335)+JVS(4301)*UV(341)+JVS(4588)*UV(343) + JTUV(123) = JVS(338)*UV(38)+JVS(860)*UV(123)+JVS(3651)*UV(332)+JVS(4589)*UV(343)+JVS(4826)*UV(344)+JVS(5295)*UV(351) + JTUV(124) = JVS(222)*UV(37)+JVS(866)*UV(124)+JVS(1011)*UV(152)+JVS(4050)*UV(338)+JVS(4302)*UV(341)+JVS(4883)*UV(345) + JTUV(125) = JVS(223)*UV(37)+JVS(458)*UV(39)+JVS(871)*UV(125)+JVS(1699)*UV(243)+JVS(3350)*UV(328)+JVS(3446)*UV(329)& + &+JVS(3862)*UV(335)+JVS(4590)*UV(343)+JVS(4884)*UV(345) + JTUV(126) = JVS(875)*UV(126)+JVS(1949)*UV(264)+JVS(2937)*UV(311)+JVS(3447)*UV(329)+JVS(3581)*UV(330)+JVS(4303)*UV(341)& + &+JVS(4591)*UV(343) + JTUV(127) = JVS(224)*UV(37)+JVS(459)*UV(39)+JVS(879)*UV(127)+JVS(3267)*UV(325)+JVS(3582)*UV(330)+JVS(3863)*UV(335)& + &+JVS(4592)*UV(343)+JVS(4885)*UV(345)+JVS(5106)*UV(348) + JTUV(128) = JVS(883)*UV(128)+JVS(1770)*UV(249)+JVS(1821)*UV(253)+JVS(2702)*UV(302)+JVS(4304)*UV(341)+JVS(4593)*UV(343)& + &+JVS(4886)*UV(345) + JTUV(129) = JVS(225)*UV(37)+JVS(460)*UV(39)+JVS(887)*UV(129)+JVS(1318)*UV(201)+JVS(2870)*UV(309)+JVS(3864)*UV(335)& + &+JVS(4594)*UV(343)+JVS(4887)*UV(345)+JVS(5107)*UV(348) + JTUV(130) = JVS(226)*UV(37)+JVS(461)*UV(39)+JVS(891)*UV(130)+JVS(2871)*UV(309)+JVS(3448)*UV(329)+JVS(3865)*UV(335)& + &+JVS(4305)*UV(341)+JVS(4595)*UV(343)+JVS(4888)*UV(345) + JTUV(131) = JVS(175)*UV(31)+JVS(895)*UV(131)+JVS(1449)*UV(218)+JVS(1716)*UV(245)+JVS(4306)*UV(341)+JVS(4596)*UV(343) + JTUV(132) = JVS(902)*UV(132)+JVS(2159)*UV(275)+JVS(4597)*UV(343) + JTUV(133) = JVS(227)*UV(37)+JVS(462)*UV(39)+JVS(913)*UV(133)+JVS(2872)*UV(309)+JVS(3866)*UV(335)+JVS(4051)*UV(338)& + &+JVS(4307)*UV(341)+JVS(4889)*UV(345) + JTUV(134) = JVS(22)*UV(7)+JVS(918)*UV(134)+JVS(2703)*UV(302)+JVS(3226)*UV(323)+JVS(3351)*UV(328)+JVS(3449)*UV(329)& + &+JVS(4598)*UV(343) + JTUV(135) = JVS(923)*UV(135)+JVS(1394)*UV(211)+JVS(1565)*UV(230)+JVS(4308)*UV(341)+JVS(4599)*UV(343) + JTUV(136) = JVS(23)*UV(7)+JVS(228)*UV(37)+JVS(929)*UV(136)+JVS(3020)*UV(313)+JVS(4052)*UV(338)+JVS(4309)*UV(341)& + &+JVS(4600)*UV(343)+JVS(4890)*UV(345) + JTUV(137) = JVS(24)*UV(7)+JVS(229)*UV(37)+JVS(934)*UV(137)+JVS(3129)*UV(318)+JVS(4053)*UV(338)+JVS(4310)*UV(341)& + &+JVS(4601)*UV(343)+JVS(4891)*UV(345) + JTUV(138) = JVS(813)*UV(114)+JVS(939)*UV(138)+JVS(1648)*UV(239)+JVS(2873)*UV(309)+JVS(4602)*UV(343) + JTUV(139) = JVS(230)*UV(37)+JVS(944)*UV(139)+JVS(1182)*UV(179)+JVS(1539)*UV(227)+JVS(1978)*UV(266)+JVS(3451)*UV(329)& + &+JVS(4312)*UV(341)+JVS(4603)*UV(343)+JVS(4892)*UV(345) + JTUV(140) = JVS(339)*UV(38)+JVS(948)*UV(140)+JVS(1427)*UV(215)+JVS(1557)*UV(229)+JVS(3452)*UV(329)+JVS(4604)*UV(343)& + &+JVS(4893)*UV(345)+JVS(5108)*UV(348)+JVS(5614)*UV(356) + JTUV(141) = JVS(231)*UV(37)+JVS(903)*UV(132)+JVS(952)*UV(141)+JVS(1097)*UV(165)+JVS(1979)*UV(266)+JVS(3453)*UV(329)& + &+JVS(4313)*UV(341)+JVS(4605)*UV(343)+JVS(4894)*UV(345) + JTUV(142) = JVS(956)*UV(142)+JVS(3300)*UV(326)+JVS(3324)*UV(327)+JVS(4201)*UV(340)+JVS(4491)*UV(342)+JVS(4606)*UV(343)& + &+JVS(5353)*UV(352)+JVS(5532)*UV(354) + JTUV(143) = JVS(25)*UV(7)+JVS(232)*UV(37)+JVS(463)*UV(39)+JVS(960)*UV(143)+JVS(3352)*UV(328)+JVS(3454)*UV(329)& + &+JVS(3784)*UV(334)+JVS(3867)*UV(335)+JVS(4607)*UV(343)+JVS(4895)*UV(345)+JVS(5109)*UV(348) + JTUV(144) = JVS(340)*UV(38)+JVS(964)*UV(144)+JVS(2773)*UV(304)+JVS(3227)*UV(323)+JVS(3679)*UV(333)+JVS(4202)*UV(340)& + &+JVS(4608)*UV(343)+JVS(5110)*UV(348)+JVS(5354)*UV(352) + JTUV(145) = JVS(109)*UV(13)+JVS(464)*UV(39)+JVS(968)*UV(145)+JVS(1305)*UV(199)+JVS(1514)*UV(224)+JVS(1980)*UV(266)& + &+JVS(2117)*UV(274)+JVS(3868)*UV(335)+JVS(4314)*UV(341)+JVS(4609)*UV(343) + JTUV(146) = JVS(973)*UV(146)+JVS(4610)*UV(343)+JVS(5575)*UV(355) + JTUV(147) = JVS(985)*UV(147)+JVS(2648)*UV(299)+JVS(2784)*UV(305)+JVS(4315)*UV(341) + JTUV(148) = JVS(341)*UV(38)+JVS(994)*UV(148)+JVS(1082)*UV(162)+JVS(1270)*UV(193)+JVS(1334)*UV(204)+JVS(1368)*UV(207)& + &+JVS(1515)*UV(224)+JVS(1981)*UV(266)+JVS(3455)*UV(329)+JVS(3583)*UV(330)+JVS(3680)*UV(333)+JVS(4316)& + &*UV(341)+JVS(4611)*UV(343)+JVS(5111)*UV(348) + JTUV(149) = JVS(465)*UV(39)+JVS(997)*UV(149)+JVS(1245)*UV(190)+JVS(1395)*UV(211)+JVS(1566)*UV(230)+JVS(2373)*UV(288)& + &+JVS(2393)*UV(289)+JVS(3869)*UV(335)+JVS(4317)*UV(341)+JVS(4612)*UV(343) + JTUV(150) = JVS(466)*UV(39)+JVS(1001)*UV(150)+JVS(1450)*UV(218)+JVS(2447)*UV(291)+JVS(3130)*UV(318)+JVS(3870)*UV(335)& + &+JVS(4318)*UV(341)+JVS(4613)*UV(343) + JTUV(151) = JVS(467)*UV(39)+JVS(1006)*UV(151)+JVS(1451)*UV(218)+JVS(2413)*UV(290)+JVS(3021)*UV(313)+JVS(3871)*UV(335)& + &+JVS(4319)*UV(341)+JVS(4614)*UV(343) + JTUV(152) = JVS(468)*UV(39)+JVS(1012)*UV(152)+JVS(1700)*UV(243)+JVS(3353)*UV(328)+JVS(3456)*UV(329)+JVS(3872)*UV(335)& + &+JVS(4320)*UV(341)+JVS(4615)*UV(343) + JTUV(153) = JVS(233)*UV(37)+JVS(1017)*UV(153)+JVS(3181)*UV(320)+JVS(4492)*UV(342)+JVS(4616)*UV(343) + JTUV(154) = JVS(1026)*UV(154)+JVS(3584)*UV(330)+JVS(4203)*UV(340)+JVS(4321)*UV(341)+JVS(4617)*UV(343)+JVS(5355)& + &*UV(352) + JTUV(155) = JVS(469)*UV(39)+JVS(1032)*UV(155)+JVS(1567)*UV(230)+JVS(2938)*UV(311)+JVS(3873)*UV(335)+JVS(4322)*UV(341)& + &+JVS(4618)*UV(343) + JTUV(156) = JVS(234)*UV(37)+JVS(342)*UV(38)+JVS(576)*UV(48)+JVS(1038)*UV(156)+JVS(2939)*UV(311)+JVS(4619)*UV(343)& + &+JVS(4896)*UV(345)+JVS(5112)*UV(348) + JTUV(157) = JVS(176)*UV(31)+JVS(1044)*UV(157)+JVS(1452)*UV(218)+JVS(2374)*UV(288)+JVS(2394)*UV(289)+JVS(4323)*UV(341)& + &+JVS(4620)*UV(343) + JTUV(158) = JVS(1050)*UV(158)+JVS(3268)*UV(325)+JVS(3585)*UV(330)+JVS(3785)*UV(334)+JVS(4324)*UV(341)+JVS(4621)& + &*UV(343) + JTUV(159) = JVS(177)*UV(31)+JVS(1056)*UV(159)+JVS(1453)*UV(218)+JVS(2375)*UV(288)+JVS(2395)*UV(289)+JVS(4325)*UV(341)& + &+JVS(4622)*UV(343) + JTUV(160) = JVS(1062)*UV(160)+JVS(4493)*UV(342)+JVS(5356)*UV(352) + JTUV(161) = JVS(26)*UV(7)+JVS(470)*UV(39)+JVS(793)*UV(109)+JVS(1076)*UV(161)+JVS(1927)*UV(262)+JVS(2940)*UV(311)& + &+JVS(3354)*UV(328)+JVS(3457)*UV(329)+JVS(3786)*UV(334)+JVS(3874)*UV(335)+JVS(4623)*UV(343) + JTUV(162) = JVS(343)*UV(38)+JVS(1083)*UV(162)+JVS(1335)*UV(204)+JVS(1341)*UV(205)+JVS(1350)*UV(206)+JVS(1982)*UV(266)& + &+JVS(2090)*UV(272)+JVS(3682)*UV(333)+JVS(4326)*UV(341)+JVS(4624)*UV(343)+JVS(5113)*UV(348) + JTUV(163) = JVS(1087)*UV(163)+JVS(1983)*UV(266)+JVS(2251)*UV(282)+JVS(2509)*UV(295)+JVS(2555)*UV(297)+JVS(3269)& + &*UV(325)+JVS(3458)*UV(329)+JVS(4625)*UV(343) + JTUV(164) = JVS(1092)*UV(164)+JVS(2161)*UV(275)+JVS(2184)*UV(277)+JVS(2556)*UV(297)+JVS(2704)*UV(302)+JVS(3228)& + &*UV(323)+JVS(4327)*UV(341)+JVS(4626)*UV(343) + JTUV(165) = JVS(235)*UV(37)+JVS(1098)*UV(165)+JVS(1891)*UV(260)+JVS(2185)*UV(277)+JVS(2557)*UV(297)+JVS(2705)*UV(302)& + &+JVS(3229)*UV(323)+JVS(4627)*UV(343)+JVS(4897)*UV(345) + JTUV(166) = JVS(344)*UV(38)+JVS(1103)*UV(166)+JVS(2186)*UV(277)+JVS(4628)*UV(343)+JVS(4898)*UV(345)+JVS(5114)*UV(348) + JTUV(167) = JVS(1111)*UV(167)+JVS(3459)*UV(329)+JVS(3787)*UV(334)+JVS(4204)*UV(340)+JVS(4328)*UV(341)+JVS(4629)& + &*UV(343)+JVS(5357)*UV(352)+JVS(5440)*UV(353) + JTUV(168) = JVS(236)*UV(37)+JVS(1116)*UV(168)+JVS(1311)*UV(200)+JVS(2706)*UV(302)+JVS(3460)*UV(329)+JVS(3586)*UV(330)& + &+JVS(4054)*UV(338)+JVS(4329)*UV(341)+JVS(4899)*UV(345) + JTUV(169) = JVS(166)*UV(29)+JVS(345)*UV(38)+JVS(628)*UV(68)+JVS(1121)*UV(169)+JVS(3683)*UV(333)+JVS(4205)*UV(340)& + &+JVS(5038)*UV(346)+JVS(5576)*UV(355)+JVS(5615)*UV(356) + JTUV(170) = JVS(346)*UV(38)+JVS(471)*UV(39)+JVS(1126)*UV(170)+JVS(1844)*UV(256)+JVS(1984)*UV(266)+JVS(2187)*UV(277)& + &+JVS(2222)*UV(280)+JVS(2273)*UV(284)+JVS(2480)*UV(292)+JVS(3875)*UV(335)+JVS(4630)*UV(343)+JVS(5115)& + &*UV(348)+JVS(5616)*UV(356) + JTUV(171) = JVS(27)*UV(7)+JVS(1130)*UV(171)+JVS(2188)*UV(277)+JVS(2707)*UV(302)+JVS(3230)*UV(323)+JVS(3355)*UV(328)& + &+JVS(3461)*UV(329)+JVS(4631)*UV(343) + JTUV(172) = JVS(237)*UV(37)+JVS(1137)*UV(172)+JVS(2357)*UV(287)+JVS(2539)*UV(296)+JVS(3631)*UV(331)+JVS(4632)*UV(343)& + &+JVS(5116)*UV(348) + JTUV(173) = JVS(238)*UV(37)+JVS(1144)*UV(173)+JVS(1865)*UV(258)+JVS(2801)*UV(306)+JVS(4055)*UV(338)+JVS(4330)*UV(341)& + &+JVS(4633)*UV(343)+JVS(4901)*UV(345) + JTUV(174) = JVS(239)*UV(37)+JVS(1150)*UV(174)+JVS(1799)*UV(251)+JVS(1854)*UV(257)+JVS(4056)*UV(338)+JVS(4331)*UV(341)& + &+JVS(4634)*UV(343)+JVS(4902)*UV(345) + JTUV(175) = JVS(347)*UV(38)+JVS(768)*UV(106)+JVS(1045)*UV(157)+JVS(1057)*UV(159)+JVS(1156)*UV(175)+JVS(1388)*UV(210)& + &+JVS(3131)*UV(318)+JVS(3462)*UV(329)+JVS(4332)*UV(341)+JVS(4635)*UV(343)+JVS(4903)*UV(345) + JTUV(176) = JVS(28)*UV(7)+JVS(1161)*UV(176)+JVS(2662)*UV(300)+JVS(4636)*UV(343)+JVS(5441)*UV(353) + JTUV(177) = JVS(348)*UV(38)+JVS(769)*UV(106)+JVS(1046)*UV(157)+JVS(1058)*UV(159)+JVS(1172)*UV(177)+JVS(1224)*UV(186)& + &+JVS(3022)*UV(313)+JVS(3463)*UV(329)+JVS(4333)*UV(341)+JVS(4637)*UV(343)+JVS(4904)*UV(345) + JTUV(178) = JVS(1176)*UV(178)+JVS(1298)*UV(198)+JVS(1876)*UV(259)+JVS(2874)*UV(309)+JVS(2941)*UV(311)+JVS(4334)& + &*UV(341)+JVS(4638)*UV(343) + JTUV(179) = JVS(240)*UV(37)+JVS(1183)*UV(179)+JVS(1892)*UV(260)+JVS(1985)*UV(266)+JVS(2510)*UV(295)+JVS(2558)*UV(297)& + &+JVS(3270)*UV(325)+JVS(3464)*UV(329)+JVS(4639)*UV(343)+JVS(4905)*UV(345) + JTUV(180) = JVS(241)*UV(37)+JVS(1188)*UV(180)+JVS(1893)*UV(260)+JVS(2189)*UV(277)+JVS(4640)*UV(343)+JVS(4906)*UV(345) + JTUV(181) = JVS(242)*UV(37)+JVS(1197)*UV(181)+JVS(1771)*UV(249)+JVS(1959)*UV(265)+JVS(2750)*UV(303)+JVS(2875)*UV(309)& + &+JVS(4057)*UV(338)+JVS(4335)*UV(341)+JVS(4641)*UV(343)+JVS(4907)*UV(345) + JTUV(182) = JVS(243)*UV(37)+JVS(746)*UV(100)+JVS(1204)*UV(182)+JVS(1312)*UV(200)+JVS(2511)*UV(295)+JVS(2708)*UV(302)& + &+JVS(3231)*UV(323)+JVS(4058)*UV(338)+JVS(4336)*UV(341)+JVS(4908)*UV(345) + JTUV(183) = JVS(349)*UV(38)+JVS(543)*UV(41)+JVS(624)*UV(67)+JVS(974)*UV(146)+JVS(1209)*UV(183)+JVS(3686)*UV(333)& + &+JVS(4165)*UV(339)+JVS(4206)*UV(340)+JVS(5577)*UV(355)+JVS(5617)*UV(356) + JTUV(184) = JVS(350)*UV(38)+JVS(472)*UV(39)+JVS(1214)*UV(184)+JVS(1474)*UV(219)+JVS(3788)*UV(334)+JVS(3876)*UV(335)& + &+JVS(4013)*UV(337)+JVS(4207)*UV(340)+JVS(4337)*UV(341)+JVS(4644)*UV(343)+JVS(4827)*UV(344)+JVS(5296)& + &*UV(351)+JVS(5358)*UV(352)+JVS(5442)*UV(353) + JTUV(185) = JVS(29)*UV(7)+JVS(244)*UV(37)+JVS(473)*UV(39)+JVS(1218)*UV(185)+JVS(1772)*UV(249)+JVS(1960)*UV(265)& + &+JVS(3877)*UV(335)+JVS(4059)*UV(338)+JVS(4338)*UV(341)+JVS(4645)*UV(343)+JVS(4910)*UV(345) + JTUV(186) = JVS(245)*UV(37)+JVS(1225)*UV(186)+JVS(2058)*UV(269)+JVS(2751)*UV(303)+JVS(2802)*UV(306)+JVS(2829)*UV(307)& + &+JVS(3465)*UV(329)+JVS(4060)*UV(338)+JVS(4339)*UV(341)+JVS(4646)*UV(343)+JVS(4911)*UV(345) + JTUV(187) = JVS(351)*UV(38)+JVS(1230)*UV(187)+JVS(2663)*UV(300)+JVS(3687)*UV(333)+JVS(4208)*UV(340)+JVS(4494)*UV(342)& + &+JVS(4647)*UV(343)+JVS(5117)*UV(348)+JVS(5359)*UV(352)+JVS(5443)*UV(353)+JVS(5533)*UV(354) + JTUV(188) = JVS(352)*UV(38)+JVS(770)*UV(106)+JVS(986)*UV(147)+JVS(1235)*UV(188)+JVS(1456)*UV(218)+JVS(1615)*UV(236)& + &+JVS(2785)*UV(305)+JVS(2830)*UV(307)+JVS(2925)*UV(310)+JVS(3043)*UV(314)+JVS(3058)*UV(315)+JVS(4340)& + &*UV(341)+JVS(4648)*UV(343)+JVS(4912)*UV(345) + JTUV(189) = JVS(246)*UV(37)+JVS(474)*UV(39)+JVS(794)*UV(109)+JVS(1239)*UV(189)+JVS(1928)*UV(262)+JVS(2942)*UV(311)& + &+JVS(3878)*UV(335)+JVS(4649)*UV(343)+JVS(4913)*UV(345)+JVS(5118)*UV(348) + JTUV(190) = JVS(475)*UV(39)+JVS(1246)*UV(190)+JVS(2118)*UV(274)+JVS(2590)*UV(298)+JVS(3357)*UV(328)+JVS(3879)*UV(335)& + &+JVS(4341)*UV(341)+JVS(4650)*UV(343) + JTUV(191) = JVS(146)*UV(24)+JVS(476)*UV(39)+JVS(1047)*UV(157)+JVS(1059)*UV(159)+JVS(1253)*UV(191)+JVS(1550)*UV(228)& + &+JVS(1607)*UV(235)+JVS(2448)*UV(291)+JVS(3044)*UV(314)+JVS(3132)*UV(318)+JVS(3466)*UV(329)+JVS(3880)& + &*UV(335)+JVS(4342)*UV(341)+JVS(4651)*UV(343) + JTUV(192) = JVS(1257)*UV(192)+JVS(2709)*UV(302)+JVS(4343)*UV(341)+JVS(4652)*UV(343) + JTUV(193) = JVS(247)*UV(37)+JVS(829)*UV(117)+JVS(1271)*UV(193)+JVS(1369)*UV(207)+JVS(4061)*UV(338)+JVS(4344)*UV(341)& + &+JVS(4653)*UV(343)+JVS(4914)*UV(345) + JTUV(194) = JVS(353)*UV(38)+JVS(477)*UV(39)+JVS(904)*UV(132)+JVS(1278)*UV(194)+JVS(1540)*UV(227)+JVS(2162)*UV(275)& + &+JVS(2173)*UV(276)+JVS(2223)*UV(280)+JVS(2239)*UV(281)+JVS(2274)*UV(284)+JVS(2481)*UV(292)+JVS(3102)& + &*UV(317)+JVS(3467)*UV(329)+JVS(3881)*UV(335)+JVS(4654)*UV(343)+JVS(5119)*UV(348)+JVS(5618)*UV(356) + JTUV(195) = JVS(147)*UV(24)+JVS(478)*UV(39)+JVS(1048)*UV(157)+JVS(1060)*UV(159)+JVS(1282)*UV(195)+JVS(1531)*UV(226)& + &+JVS(1608)*UV(235)+JVS(1717)*UV(245)+JVS(2414)*UV(290)+JVS(3023)*UV(313)+JVS(3059)*UV(315)+JVS(3468)& + &*UV(329)+JVS(3882)*UV(335)+JVS(4345)*UV(341)+JVS(4655)*UV(343) + JTUV(196) = JVS(248)*UV(37)+JVS(1286)*UV(196)+JVS(1728)*UV(246)+JVS(1937)*UV(263)+JVS(1986)*UV(266)+JVS(2224)*UV(280)& + &+JVS(4656)*UV(343)+JVS(4915)*UV(345)+JVS(5120)*UV(348)+JVS(5619)*UV(356) + JTUV(197) = JVS(30)*UV(7)+JVS(479)*UV(39)+JVS(823)*UV(116)+JVS(1292)*UV(197)+JVS(1568)*UV(230)+JVS(2031)*UV(268)& + &+JVS(2119)*UV(274)+JVS(2591)*UV(298)+JVS(3358)*UV(328)+JVS(3883)*UV(335)+JVS(4346)*UV(341)+JVS(4657)& + &*UV(343) + JTUV(198) = JVS(31)*UV(7)+JVS(1299)*UV(198)+JVS(2120)*UV(274)+JVS(2415)*UV(290)+JVS(2449)*UV(291)+JVS(2592)*UV(298)& + &+JVS(2876)*UV(309)+JVS(2943)*UV(311)+JVS(4347)*UV(341)+JVS(4658)*UV(343) + JTUV(199) = JVS(354)*UV(38)+JVS(1306)*UV(199)+JVS(1342)*UV(205)+JVS(1351)*UV(206)+JVS(1516)*UV(224)+JVS(1987)*UV(266)& + &+JVS(2091)*UV(272)+JVS(2121)*UV(274)+JVS(3689)*UV(333)+JVS(4348)*UV(341)+JVS(4659)*UV(343)+JVS(5121)& + &*UV(348) + JTUV(200) = JVS(249)*UV(37)+JVS(1117)*UV(168)+JVS(1313)*UV(200)+JVS(2710)*UV(302)+JVS(3271)*UV(325)+JVS(3359)*UV(328)& + &+JVS(3587)*UV(330)+JVS(4349)*UV(341)+JVS(4660)*UV(343)+JVS(4916)*UV(345)+JVS(5445)*UV(353) + JTUV(201) = JVS(250)*UV(37)+JVS(355)*UV(38)+JVS(480)*UV(39)+JVS(888)*UV(129)+JVS(1319)*UV(201)+JVS(2877)*UV(309)& + &+JVS(3470)*UV(329)+JVS(3884)*UV(335)+JVS(4063)*UV(338)+JVS(4350)*UV(341)+JVS(4661)*UV(343)+JVS(4917)& &*UV(345) - JTUV(248) = JVS(366)*UV(35)+JVS(484)*UV(36)+JVS(757)*UV(103)+JVS(1785)*UV(248)+JVS(2925)*UV(307)+JVS(2971)*UV(308)& - &+JVS(3820)*UV(329)+JVS(4118)*UV(335)+JVS(4421)*UV(337)+JVS(5139)*UV(345) - JTUV(249) = JVS(39)*UV(7)+JVS(256)*UV(34)+JVS(1235)*UV(188)+JVS(1797)*UV(249)+JVS(2231)*UV(279)+JVS(2269)*UV(282)& - &+JVS(2307)*UV(283)+JVS(2684)*UV(298)+JVS(3197)*UV(319)+JVS(3335)*UV(324)+JVS(3467)*UV(325)+JVS(3556)& - &*UV(326)+JVS(3705)*UV(328)+JVS(4119)*UV(335)+JVS(4422)*UV(337)+JVS(5285)*UV(346) - JTUV(250) = JVS(40)*UV(7)+JVS(257)*UV(34)+JVS(868)*UV(125)+JVS(1236)*UV(188)+JVS(1805)*UV(250)+JVS(2270)*UV(282)& - &+JVS(2308)*UV(283)+JVS(2685)*UV(298)+JVS(3336)*UV(324)+JVS(3468)*UV(325)+JVS(3557)*UV(326)+JVS(3706)& - &*UV(328)+JVS(4120)*UV(335)+JVS(4423)*UV(337)+JVS(5286)*UV(346) - JTUV(251) = JVS(367)*UV(35)+JVS(758)*UV(103)+JVS(1813)*UV(251)+JVS(2494)*UV(292)+JVS(2605)*UV(295)+JVS(2686)*UV(298)& - &+JVS(3122)*UV(315)+JVS(3177)*UV(318)+JVS(3234)*UV(321)+JVS(3290)*UV(323)+JVS(3558)*UV(326)+JVS(3707)& - &*UV(328)+JVS(4121)*UV(335)+JVS(4237)*UV(336)+JVS(4424)*UV(337)+JVS(5142)*UV(345) - JTUV(252) = JVS(91)*UV(9)+JVS(99)*UV(10)+JVS(368)*UV(35)+JVS(656)*UV(77)+JVS(766)*UV(104)+JVS(1125)*UV(170)+JVS(1666)& - &*UV(239)+JVS(1820)*UV(252)+JVS(3915)*UV(331)+JVS(4122)*UV(335)+JVS(4939)*UV(344)+JVS(5439)*UV(349)& - &+JVS(5465)*UV(350)+JVS(5653)*UV(353) - JTUV(253) = JVS(258)*UV(34)+JVS(485)*UV(36)+JVS(1786)*UV(248)+JVS(1829)*UV(253)+JVS(2403)*UV(287)+JVS(2557)*UV(294)& - &+JVS(2926)*UV(307)+JVS(3469)*UV(325)+JVS(3821)*UV(329)+JVS(4123)*UV(335)+JVS(4425)*UV(337)+JVS(5144)& - &*UV(345)+JVS(5288)*UV(346) - JTUV(254) = JVS(259)*UV(34)+JVS(1381)*UV(208)+JVS(1840)*UV(254)+JVS(2437)*UV(288)+JVS(2558)*UV(294)+JVS(2773)*UV(302)& - &+JVS(2874)*UV(306)+JVS(3337)*UV(324)+JVS(3470)*UV(325)+JVS(4124)*UV(335)+JVS(4426)*UV(337)+JVS(5145)& - &*UV(345)+JVS(5289)*UV(346) - JTUV(255) = JVS(369)*UV(35)+JVS(486)*UV(36)+JVS(1087)*UV(163)+JVS(1174)*UV(177)+JVS(1850)*UV(255)+JVS(1978)*UV(263)& - &+JVS(2175)*UV(274)+JVS(3042)*UV(312)+JVS(3471)*UV(325)+JVS(3823)*UV(329)+JVS(4427)*UV(337)+JVS(4769)& - &*UV(341)+JVS(5146)*UV(345)+JVS(5531)*UV(351) - JTUV(256) = JVS(370)*UV(35)+JVS(562)*UV(45)+JVS(1029)*UV(154)+JVS(1865)*UV(256)+JVS(2495)*UV(292)+JVS(4126)*UV(335)& - &+JVS(5147)*UV(345)+JVS(5532)*UV(351) - JTUV(257) = JVS(41)*UV(7)+JVS(260)*UV(34)+JVS(371)*UV(35)+JVS(585)*UV(56)+JVS(616)*UV(66)+JVS(646)*UV(74)+JVS(1885)& - &*UV(257)+JVS(2220)*UV(278)+JVS(3338)*UV(324)+JVS(3472)*UV(325)+JVS(3708)*UV(328)+JVS(4127)*UV(335)& - &+JVS(4428)*UV(337)+JVS(4770)*UV(341)+JVS(5148)*UV(345)+JVS(5290)*UV(346)+JVS(5533)*UV(351) - JTUV(258) = JVS(487)*UV(36)+JVS(903)*UV(131)+JVS(1022)*UV(153)+JVS(1553)*UV(227)+JVS(1900)*UV(258)+JVS(2109)*UV(270)& - &+JVS(2404)*UV(287)+JVS(2559)*UV(294)+JVS(2875)*UV(306)+JVS(2928)*UV(307)+JVS(3473)*UV(325)+JVS(3824)& - &*UV(329)+JVS(4429)*UV(337)+JVS(5149)*UV(345) - JTUV(259) = JVS(42)*UV(7)+JVS(261)*UV(34)+JVS(488)*UV(36)+JVS(1067)*UV(159)+JVS(1213)*UV(184)+JVS(1912)*UV(259)& - &+JVS(3340)*UV(324)+JVS(3474)*UV(325)+JVS(3709)*UV(328)+JVS(3825)*UV(329)+JVS(4128)*UV(335)+JVS(4430)& - &*UV(337)+JVS(4771)*UV(341)+JVS(5150)*UV(345)+JVS(5291)*UV(346) - JTUV(260) = JVS(43)*UV(7)+JVS(262)*UV(34)+JVS(860)*UV(123)+JVS(1237)*UV(188)+JVS(1921)*UV(260)+JVS(2271)*UV(282)& - &+JVS(2309)*UV(283)+JVS(2687)*UV(298)+JVS(2930)*UV(307)+JVS(3341)*UV(324)+JVS(3475)*UV(325)+JVS(3559)& - &*UV(326)+JVS(3710)*UV(328)+JVS(4129)*UV(335)+JVS(4431)*UV(337)+JVS(5292)*UV(346) - JTUV(261) = JVS(44)*UV(7)+JVS(372)*UV(35)+JVS(489)*UV(36)+JVS(1934)*UV(261)+JVS(3342)*UV(324)+JVS(3476)*UV(325)& - &+JVS(3616)*UV(327)+JVS(3826)*UV(329)+JVS(4130)*UV(335)+JVS(4432)*UV(337)+JVS(5152)*UV(345)+JVS(5535)& - &*UV(351) - JTUV(262) = JVS(373)*UV(35)+JVS(1950)*UV(262)+JVS(1979)*UV(263)+JVS(2245)*UV(280)+JVS(2496)*UV(292)+JVS(2606)*UV(295)& - &+JVS(2876)*UV(306)+JVS(3103)*UV(314)+JVS(3477)*UV(325)+JVS(4131)*UV(335)+JVS(4433)*UV(337)+JVS(4772)& - &*UV(341)+JVS(5153)*UV(345)+JVS(5536)*UV(351) - JTUV(263) = JVS(45)*UV(7)+JVS(263)*UV(34)+JVS(374)*UV(35)+JVS(1980)*UV(263)+JVS(3343)*UV(324)+JVS(3478)*UV(325)& - &+JVS(3711)*UV(328)+JVS(4132)*UV(335)+JVS(4434)*UV(337)+JVS(5154)*UV(345)+JVS(5293)*UV(346)+JVS(5537)& - &*UV(351) - JTUV(264) = JVS(375)*UV(35)+JVS(530)*UV(38)+JVS(922)*UV(134)+JVS(1994)*UV(264)+JVS(4239)*UV(336)+JVS(4435)*UV(337)& - &+JVS(4585)*UV(339)+JVS(4678)*UV(340)+JVS(4899)*UV(343)+JVS(5155)*UV(345)+JVS(5405)*UV(348) - JTUV(265) = JVS(46)*UV(7)+JVS(2020)*UV(265)+JVS(4240)*UV(336)+JVS(4436)*UV(337)+JVS(4586)*UV(339)+JVS(4679)*UV(340)& - &+JVS(5156)*UV(345) - JTUV(266) = JVS(376)*UV(35)+JVS(490)*UV(36)+JVS(759)*UV(103)+JVS(2047)*UV(266)+JVS(2405)*UV(287)+JVS(2438)*UV(288)& - &+JVS(2561)*UV(294)+JVS(2877)*UV(306)+JVS(3827)*UV(329)+JVS(4133)*UV(335)+JVS(4437)*UV(337)+JVS(5157)& + JTUV(202) = JVS(148)*UV(24)+JVS(481)*UV(39)+JVS(896)*UV(131)+JVS(1007)*UV(151)+JVS(1325)*UV(202)+JVS(1532)*UV(226)& + &+JVS(1582)*UV(231)+JVS(1688)*UV(242)+JVS(1740)*UV(247)+JVS(2593)*UV(298)+JVS(3060)*UV(315)+JVS(3471)& + &*UV(329)+JVS(3885)*UV(335)+JVS(4351)*UV(341)+JVS(4662)*UV(343) + JTUV(203) = JVS(356)*UV(38)+JVS(482)*UV(39)+JVS(607)*UV(61)+JVS(1084)*UV(162)+JVS(1162)*UV(176)+JVS(1272)*UV(193)& + &+JVS(1329)*UV(203)+JVS(1336)*UV(204)+JVS(1370)*UV(207)+JVS(1517)*UV(224)+JVS(1988)*UV(266)+JVS(2122)& + &*UV(274)+JVS(2594)*UV(298)+JVS(3472)*UV(329)+JVS(3690)*UV(333)+JVS(3886)*UV(335)+JVS(4352)*UV(341)& + &+JVS(4663)*UV(343)+JVS(5123)*UV(348) + JTUV(204) = JVS(357)*UV(38)+JVS(483)*UV(39)+JVS(1163)*UV(176)+JVS(1337)*UV(204)+JVS(2032)*UV(268)+JVS(2322)*UV(286)& + &+JVS(2595)*UV(298)+JVS(2711)*UV(302)+JVS(2774)*UV(304)+JVS(2878)*UV(309)+JVS(3272)*UV(325)+JVS(3887)& + &*UV(335)+JVS(4353)*UV(341)+JVS(4664)*UV(343)+JVS(5620)*UV(356) + JTUV(205) = JVS(358)*UV(38)+JVS(1344)*UV(205)+JVS(1353)*UV(206)+JVS(1518)*UV(224)+JVS(1989)*UV(266)+JVS(2093)*UV(272)& + &+JVS(2879)*UV(309)+JVS(3691)*UV(333)+JVS(4354)*UV(341)+JVS(4665)*UV(343)+JVS(5124)*UV(348)+JVS(5621)& + &*UV(356) + JTUV(206) = JVS(359)*UV(38)+JVS(1354)*UV(206)+JVS(1635)*UV(238)+JVS(2094)*UV(272)+JVS(4919)*UV(345)+JVS(5622)*UV(356) + JTUV(207) = JVS(360)*UV(38)+JVS(484)*UV(39)+JVS(1371)*UV(207)+JVS(1623)*UV(237)+JVS(1636)*UV(238)+JVS(3692)*UV(333)& + &+JVS(3888)*UV(335)+JVS(4355)*UV(341)+JVS(4666)*UV(343)+JVS(5125)*UV(348) + JTUV(208) = JVS(251)*UV(37)+JVS(1378)*UV(208)+JVS(1961)*UV(265)+JVS(2059)*UV(269)+JVS(2752)*UV(303)+JVS(2803)*UV(306)& + &+JVS(2831)*UV(307)+JVS(2944)*UV(311)+JVS(3473)*UV(329)+JVS(4065)*UV(338)+JVS(4356)*UV(341)+JVS(4667)& + &*UV(343)+JVS(4920)*UV(345) + JTUV(209) = JVS(252)*UV(37)+JVS(1383)*UV(209)+JVS(1486)*UV(220)+JVS(1773)*UV(249)+JVS(2060)*UV(269)+JVS(2753)*UV(303)& + &+JVS(2832)*UV(307)+JVS(2880)*UV(309)+JVS(3474)*UV(329)+JVS(4066)*UV(338)+JVS(4357)*UV(341)+JVS(4668)& + &*UV(343)+JVS(4921)*UV(345) + JTUV(210) = JVS(253)*UV(37)+JVS(1389)*UV(210)+JVS(1800)*UV(251)+JVS(2061)*UV(269)+JVS(2754)*UV(303)+JVS(2833)*UV(307)& + &+JVS(2881)*UV(309)+JVS(2945)*UV(311)+JVS(3475)*UV(329)+JVS(4067)*UV(338)+JVS(4358)*UV(341)+JVS(4669)& + &*UV(343)+JVS(4922)*UV(345) + JTUV(211) = JVS(485)*UV(39)+JVS(1396)*UV(211)+JVS(3361)*UV(328)+JVS(3476)*UV(329)+JVS(3889)*UV(335)+JVS(4359)*UV(341)& + &+JVS(4670)*UV(343) + JTUV(212) = JVS(254)*UV(37)+JVS(361)*UV(38)+JVS(1189)*UV(180)+JVS(1406)*UV(212)+JVS(1990)*UV(266)+JVS(2190)*UV(277)& + &+JVS(2206)*UV(278)+JVS(3477)*UV(329)+JVS(4671)*UV(343)+JVS(4923)*UV(345)+JVS(5126)*UV(348)+JVS(5623)& + &*UV(356) + JTUV(213) = JVS(149)*UV(24)+JVS(486)*UV(39)+JVS(897)*UV(131)+JVS(1002)*UV(150)+JVS(1412)*UV(213)+JVS(1416)*UV(214)& + &+JVS(1551)*UV(228)+JVS(1595)*UV(233)+JVS(1689)*UV(242)+JVS(2596)*UV(298)+JVS(3045)*UV(314)+JVS(3362)& + &*UV(328)+JVS(3478)*UV(329)+JVS(3890)*UV(335)+JVS(4360)*UV(341)+JVS(4672)*UV(343) + JTUV(214) = JVS(487)*UV(39)+JVS(1417)*UV(214)+JVS(2123)*UV(274)+JVS(3479)*UV(329)+JVS(3891)*UV(335)+JVS(4361)*UV(341)& + &+JVS(4673)*UV(343) + JTUV(215) = JVS(255)*UV(37)+JVS(892)*UV(130)+JVS(1428)*UV(215)+JVS(1558)*UV(229)+JVS(2712)*UV(302)+JVS(2882)*UV(309)& + &+JVS(3480)*UV(329)+JVS(4068)*UV(338)+JVS(4362)*UV(341)+JVS(4924)*UV(345) + JTUV(216) = JVS(32)*UV(7)+JVS(256)*UV(37)+JVS(362)*UV(38)+JVS(650)*UV(74)+JVS(819)*UV(115)+JVS(1435)*UV(216)+JVS(3481)& + &*UV(329)+JVS(4069)*UV(338)+JVS(4363)*UV(341)+JVS(4675)*UV(343)+JVS(4925)*UV(345)+JVS(5127)*UV(348)& + &+JVS(5624)*UV(356) + JTUV(217) = JVS(363)*UV(38)+JVS(1442)*UV(217)+JVS(2685)*UV(301)+JVS(3693)*UV(333)+JVS(4166)*UV(339)+JVS(4209)*UV(340)& + &+JVS(4926)*UV(345)+JVS(5039)*UV(346)+JVS(5128)*UV(348)+JVS(5448)*UV(353) + JTUV(218) = JVS(178)*UV(31)+JVS(488)*UV(39)+JVS(1461)*UV(218)+JVS(2597)*UV(298)+JVS(2946)*UV(311)+JVS(3482)*UV(329)& + &+JVS(3894)*UV(335) + JTUV(219) = JVS(257)*UV(37)+JVS(364)*UV(38)+JVS(1475)*UV(219)+JVS(4364)*UV(341)+JVS(4676)*UV(343)+JVS(5297)*UV(351)& + &+JVS(5449)*UV(353)+JVS(5625)*UV(356) + JTUV(220) = JVS(33)*UV(7)+JVS(365)*UV(38)+JVS(489)*UV(39)+JVS(771)*UV(106)+JVS(1487)*UV(220)+JVS(1774)*UV(249)& + &+JVS(3895)*UV(335)+JVS(4365)*UV(341)+JVS(4677)*UV(343) + JTUV(221) = JVS(366)*UV(38)+JVS(1018)*UV(153)+JVS(1063)*UV(160)+JVS(1498)*UV(221)+JVS(3182)*UV(320)+JVS(3695)*UV(333)& + &+JVS(4210)*UV(340)+JVS(4495)*UV(342)+JVS(4927)*UV(345)+JVS(5078)*UV(347)+JVS(5129)*UV(348)+JVS(5450)& + &*UV(353) + JTUV(222) = JVS(367)*UV(38)+JVS(1504)*UV(222)+JVS(1938)*UV(263)+JVS(1991)*UV(266)+JVS(2174)*UV(276)+JVS(2225)*UV(280)& + &+JVS(2240)*UV(281)+JVS(2275)*UV(284)+JVS(2482)*UV(292)+JVS(2500)*UV(294)+JVS(2512)*UV(295)+JVS(2559)& + &*UV(297)+JVS(2713)*UV(302)+JVS(3134)*UV(318)+JVS(3252)*UV(324)+JVS(3483)*UV(329)+JVS(4366)*UV(341)& + &+JVS(4679)*UV(343)+JVS(5130)*UV(348)+JVS(5626)*UV(356) + JTUV(223) = JVS(368)*UV(38)+JVS(490)*UV(39)+JVS(969)*UV(145)+JVS(1273)*UV(193)+JVS(1372)*UV(207)+JVS(1508)*UV(223)& + &+JVS(1637)*UV(238)+JVS(1992)*UV(266)+JVS(3103)*UV(317)+JVS(3484)*UV(329)+JVS(3896)*UV(335)+JVS(4367)& + &*UV(341)+JVS(4680)*UV(343)+JVS(4928)*UV(345)+JVS(5131)*UV(348)+JVS(5627)*UV(356) + JTUV(224) = JVS(369)*UV(38)+JVS(491)*UV(39)+JVS(1164)*UV(176)+JVS(1520)*UV(224)+JVS(2033)*UV(268)+JVS(2125)*UV(274)& + &+JVS(2714)*UV(302)+JVS(2884)*UV(309)+JVS(3273)*UV(325)+JVS(3897)*UV(335)+JVS(4368)*UV(341)+JVS(4681)& + &*UV(343)+JVS(5628)*UV(356) + JTUV(225) = JVS(370)*UV(38)+JVS(772)*UV(106)+JVS(1525)*UV(225)+JVS(2106)*UV(273)+JVS(2650)*UV(299)+JVS(2834)*UV(307)& + &+JVS(2855)*UV(308)+JVS(3025)*UV(313)+JVS(3135)*UV(318)+JVS(3485)*UV(329)+JVS(4369)*UV(341)+JVS(4682)& + &*UV(343)+JVS(4929)*UV(345) + JTUV(226) = JVS(258)*UV(37)+JVS(1177)*UV(178)+JVS(1300)*UV(198)+JVS(1533)*UV(226)+JVS(1741)*UV(247)+JVS(1877)*UV(259)& + &+JVS(2451)*UV(291)+JVS(2835)*UV(307)+JVS(2885)*UV(309)+JVS(3486)*UV(329)+JVS(4071)*UV(338)+JVS(4370)& + &*UV(341)+JVS(4683)*UV(343)+JVS(4930)*UV(345) + JTUV(227) = JVS(371)*UV(38)+JVS(492)*UV(39)+JVS(1541)*UV(227)+JVS(1916)*UV(261)+JVS(2252)*UV(282)+JVS(3698)*UV(333)& + &+JVS(3898)*UV(335)+JVS(4371)*UV(341)+JVS(4684)*UV(343)+JVS(5132)*UV(348) + JTUV(228) = JVS(259)*UV(37)+JVS(1178)*UV(178)+JVS(1301)*UV(198)+JVS(1418)*UV(214)+JVS(1552)*UV(228)+JVS(1878)*UV(259)& + &+JVS(2418)*UV(290)+JVS(2836)*UV(307)+JVS(2948)*UV(311)+JVS(3487)*UV(329)+JVS(4072)*UV(338)+JVS(4372)& + &*UV(341)+JVS(4685)*UV(343)+JVS(4931)*UV(345) + JTUV(229) = JVS(493)*UV(39)+JVS(847)*UV(120)+JVS(914)*UV(133)+JVS(1320)*UV(201)+JVS(1559)*UV(229)+JVS(2128)*UV(274)& + &+JVS(3488)*UV(329)+JVS(3900)*UV(335)+JVS(4373)*UV(341)+JVS(4686)*UV(343) + JTUV(230) = JVS(494)*UV(39)+JVS(1569)*UV(230)+JVS(2129)*UV(274)+JVS(2600)*UV(298)+JVS(3363)*UV(328)+JVS(3901)*UV(335)& + &+JVS(4374)*UV(341) + JTUV(231) = JVS(495)*UV(39)+JVS(856)*UV(122)+JVS(930)*UV(136)+JVS(1151)*UV(174)+JVS(1247)*UV(190)+JVS(1293)*UV(197)& + &+JVS(1462)*UV(218)+JVS(1583)*UV(231)+JVS(2419)*UV(290)+JVS(2601)*UV(298)+JVS(3026)*UV(313)+JVS(3489)& + &*UV(329)+JVS(3902)*UV(335)+JVS(4375)*UV(341)+JVS(4687)*UV(343) + JTUV(232) = JVS(372)*UV(38)+JVS(554)*UV(42)+JVS(1476)*UV(219)+JVS(1588)*UV(232)+JVS(3490)*UV(329)+JVS(3789)*UV(334)& + &+JVS(4014)*UV(337)+JVS(4211)*UV(340)+JVS(4376)*UV(341)+JVS(4688)*UV(343)+JVS(5361)*UV(352)+JVS(5453)& + &*UV(353) + JTUV(233) = JVS(496)*UV(39)+JVS(857)*UV(122)+JVS(935)*UV(137)+JVS(1145)*UV(173)+JVS(1248)*UV(190)+JVS(1294)*UV(197)& + &+JVS(1463)*UV(218)+JVS(1596)*UV(233)+JVS(2453)*UV(291)+JVS(2602)*UV(298)+JVS(3136)*UV(318)+JVS(3491)& + &*UV(329)+JVS(3903)*UV(335)+JVS(4377)*UV(341)+JVS(4689)*UV(343) + JTUV(234) = JVS(373)*UV(38)+JVS(1601)*UV(234)+JVS(1939)*UV(263)+JVS(1993)*UV(266)+JVS(2226)*UV(280)+JVS(2560)*UV(297)& + &+JVS(2715)*UV(302)+JVS(3137)*UV(318)+JVS(3492)*UV(329)+JVS(4378)*UV(341)+JVS(4690)*UV(343)+JVS(4935)& + &*UV(345)+JVS(5134)*UV(348)+JVS(5631)*UV(356) + JTUV(235) = JVS(260)*UV(37)+JVS(1179)*UV(178)+JVS(1302)*UV(198)+JVS(1609)*UV(235)+JVS(2837)*UV(307)+JVS(2888)*UV(309)& + &+JVS(2951)*UV(311)+JVS(4076)*UV(338)+JVS(4379)*UV(341)+JVS(4691)*UV(343)+JVS(4936)*UV(345) + JTUV(236) = JVS(261)*UV(37)+JVS(1419)*UV(214)+JVS(1488)*UV(220)+JVS(1616)*UV(236)+JVS(1742)*UV(247)+JVS(1775)*UV(249)& + &+JVS(1962)*UV(265)+JVS(2062)*UV(269)+JVS(2755)*UV(303)+JVS(2805)*UV(306)+JVS(2838)*UV(307)+JVS(3493)& + &*UV(329)+JVS(4077)*UV(338)+JVS(4380)*UV(341)+JVS(4692)*UV(343)+JVS(4937)*UV(345) + JTUV(237) = JVS(34)*UV(7)+JVS(262)*UV(37)+JVS(374)*UV(38)+JVS(662)*UV(77)+JVS(764)*UV(105)+JVS(834)*UV(118)+JVS(1625)& + &*UV(237)+JVS(1638)*UV(238)+JVS(3494)*UV(329)+JVS(3790)*UV(334)+JVS(4078)*UV(338)+JVS(4381)*UV(341)& + &+JVS(4693)*UV(343)+JVS(4938)*UV(345)+JVS(5632)*UV(356) + JTUV(238) = JVS(263)*UV(37)+JVS(375)*UV(38)+JVS(835)*UV(118)+JVS(1357)*UV(206)+JVS(1639)*UV(238)+JVS(3495)*UV(329)& + &+JVS(3791)*UV(334)+JVS(4079)*UV(338)+JVS(4382)*UV(341)+JVS(4939)*UV(345)+JVS(5135)*UV(348) + JTUV(239) = JVS(264)*UV(37)+JVS(376)*UV(38)+JVS(646)*UV(73)+JVS(814)*UV(114)+JVS(940)*UV(138)+JVS(1650)*UV(239)& + &+JVS(2284)*UV(285)+JVS(2889)*UV(309)+JVS(3496)*UV(329)+JVS(3792)*UV(334)+JVS(4080)*UV(338)+JVS(4383)& + &*UV(341)+JVS(4940)*UV(345)+JVS(5136)*UV(348) + JTUV(240) = JVS(265)*UV(37)+JVS(1662)*UV(240)+JVS(4081)*UV(338)+JVS(4696)*UV(343)+JVS(4941)*UV(345)+JVS(5454)*UV(353) + JTUV(241) = JVS(377)*UV(38)+JVS(1190)*UV(180)+JVS(1679)*UV(241)+JVS(1994)*UV(266)+JVS(2191)*UV(277)+JVS(2207)*UV(278)& + &+JVS(4697)*UV(343)+JVS(5137)*UV(348)+JVS(5634)*UV(356) + JTUV(242) = JVS(35)*UV(7)+JVS(497)*UV(39)+JVS(1690)*UV(242)+JVS(2380)*UV(288)+JVS(2400)*UV(289)+JVS(2421)*UV(290)& + &+JVS(2455)*UV(291)+JVS(2604)*UV(298)+JVS(3905)*UV(335)+JVS(4384)*UV(341)+JVS(4698)*UV(343) + JTUV(243) = JVS(36)*UV(7)+JVS(266)*UV(37)+JVS(378)*UV(38)+JVS(872)*UV(125)+JVS(1051)*UV(158)+JVS(1165)*UV(176)& + &+JVS(1702)*UV(243)+JVS(3274)*UV(325)+JVS(4082)*UV(338)+JVS(4385)*UV(341)+JVS(4699)*UV(343)+JVS(4943)& + &*UV(345)+JVS(5635)*UV(356) + JTUV(244) = JVS(37)*UV(7)+JVS(180)*UV(32)+JVS(267)*UV(37)+JVS(537)*UV(40)+JVS(544)*UV(41)+JVS(559)*UV(43)+JVS(975)& + &*UV(146)+JVS(1708)*UV(244)+JVS(2010)*UV(267)+JVS(2323)*UV(286)+JVS(3589)*UV(330)+JVS(3907)*UV(335)& + &+JVS(4083)*UV(338)+JVS(4944)*UV(345)+JVS(5138)*UV(348)+JVS(5456)*UV(353)+JVS(5578)*UV(355) + JTUV(245) = JVS(268)*UV(37)+JVS(498)*UV(39)+JVS(1397)*UV(211)+JVS(1720)*UV(245)+JVS(1880)*UV(259)+JVS(2063)*UV(269)& + &+JVS(2952)*UV(311)+JVS(3498)*UV(329)+JVS(3908)*UV(335)+JVS(4084)*UV(338)+JVS(4386)*UV(341)+JVS(4701)& + &*UV(343)+JVS(4945)*UV(345) + JTUV(246) = JVS(379)*UV(38)+JVS(577)*UV(48)+JVS(1039)*UV(156)+JVS(1729)*UV(246)+JVS(2716)*UV(302)+JVS(4702)*UV(343)& + &+JVS(4946)*UV(345)+JVS(5139)*UV(348)+JVS(5636)*UV(356) + JTUV(247) = JVS(1743)*UV(247)+JVS(2605)*UV(298)+JVS(3073)*UV(316)+JVS(3368)*UV(328)+JVS(3499)*UV(329)+JVS(4703)& + &*UV(343)+JVS(5457)*UV(353) + JTUV(248) = JVS(269)*UV(37)+JVS(1757)*UV(248)+JVS(3652)*UV(332)+JVS(4015)*UV(337)+JVS(4704)*UV(343)+JVS(4828)*UV(344)& + &+JVS(5299)*UV(351)+JVS(5362)*UV(352) + JTUV(249) = JVS(1776)*UV(249)+JVS(2606)*UV(298)+JVS(3369)*UV(328)+JVS(3500)*UV(329)+JVS(4705)*UV(343)+JVS(4947)& &*UV(345) - JTUV(267) = JVS(377)*UV(35)+JVS(491)*UV(36)+JVS(760)*UV(103)+JVS(882)*UV(128)+JVS(1373)*UV(207)+JVS(1653)*UV(238)& - &+JVS(2060)*UV(267)+JVS(2406)*UV(287)+JVS(2753)*UV(301)+JVS(2774)*UV(302)+JVS(3828)*UV(329)+JVS(4134)& - &*UV(335)+JVS(4438)*UV(337)+JVS(5158)*UV(345) - JTUV(268) = JVS(378)*UV(35)+JVS(492)*UV(36)+JVS(761)*UV(103)+JVS(883)*UV(128)+JVS(1368)*UV(206)+JVS(1460)*UV(216)& - &+JVS(1654)*UV(238)+JVS(2066)*UV(268)+JVS(2440)*UV(288)+JVS(2754)*UV(301)+JVS(3829)*UV(329)+JVS(4135)& - &*UV(335)+JVS(4439)*UV(337)+JVS(5159)*UV(345) - JTUV(269) = JVS(10)*UV(5)+JVS(47)*UV(7)+JVS(264)*UV(34)+JVS(493)*UV(36)+JVS(1504)*UV(221)+JVS(1667)*UV(239)+JVS(2081)& - &*UV(269)+JVS(3178)*UV(318)+JVS(3620)*UV(327)+JVS(3830)*UV(329)+JVS(4136)*UV(335)+JVS(4440)*UV(337)& - &+JVS(5160)*UV(345)+JVS(5539)*UV(351) - JTUV(270) = JVS(171)*UV(30)+JVS(379)*UV(35)+JVS(494)*UV(36)+JVS(2113)*UV(270)+JVS(3481)*UV(325)+JVS(3621)*UV(327)& - &+JVS(3831)*UV(329)+JVS(4441)*UV(337)+JVS(5161)*UV(345)+JVS(5540)*UV(351) - JTUV(271) = JVS(265)*UV(34)+JVS(1397)*UV(210)+JVS(1461)*UV(216)+JVS(1727)*UV(244)+JVS(1769)*UV(247)+JVS(1936)*UV(261)& - &+JVS(2050)*UV(266)+JVS(2135)*UV(271)+JVS(2408)*UV(287)+JVS(2441)*UV(288)+JVS(2725)*UV(299)+JVS(2775)& - &*UV(302)+JVS(2808)*UV(303)+JVS(2881)*UV(306)+JVS(2933)*UV(307)+JVS(3482)*UV(325)+JVS(4137)*UV(335)& - &+JVS(4442)*UV(337)+JVS(5162)*UV(345)+JVS(5297)*UV(346) - JTUV(272) = JVS(266)*UV(34)+JVS(380)*UV(35)+JVS(1088)*UV(163)+JVS(1118)*UV(169)+JVS(1175)*UV(177)+JVS(2144)*UV(272)& - &+JVS(2272)*UV(282)+JVS(3483)*UV(325)+JVS(3712)*UV(328)+JVS(4138)*UV(335)+JVS(4443)*UV(337)+JVS(5298)& - &*UV(346)+JVS(5542)*UV(351) - JTUV(273) = JVS(267)*UV(34)+JVS(381)*UV(35)+JVS(1076)*UV(161)+JVS(1082)*UV(162)+JVS(2157)*UV(273)+JVS(2177)*UV(274)& - &+JVS(2273)*UV(282)+JVS(2607)*UV(295)+JVS(2690)*UV(298)+JVS(3199)*UV(319)+JVS(3484)*UV(325)+JVS(3713)& - &*UV(328)+JVS(4139)*UV(335)+JVS(4444)*UV(337)+JVS(5299)*UV(346)+JVS(5543)*UV(351) - JTUV(274) = JVS(48)*UV(7)+JVS(268)*UV(34)+JVS(382)*UV(35)+JVS(588)*UV(57)+JVS(898)*UV(130)+JVS(1119)*UV(169)+JVS(2178)& - &*UV(274)+JVS(2691)*UV(298)+JVS(3200)*UV(319)+JVS(3348)*UV(324)+JVS(3485)*UV(325)+JVS(3714)*UV(328)& - &+JVS(4140)*UV(335)+JVS(4445)*UV(337)+JVS(4774)*UV(341)+JVS(5165)*UV(345)+JVS(5300)*UV(346)+JVS(5544)& - &*UV(351) - JTUV(275) = JVS(49)*UV(7)+JVS(269)*UV(34)+JVS(383)*UV(35)+JVS(806)*UV(112)+JVS(889)*UV(129)+JVS(945)*UV(138)+JVS(2192)& - &*UV(275)+JVS(2274)*UV(282)+JVS(2310)*UV(283)+JVS(3349)*UV(324)+JVS(3486)*UV(325)+JVS(3715)*UV(328)& - &+JVS(4141)*UV(335)+JVS(4446)*UV(337)+JVS(5301)*UV(346)+JVS(5545)*UV(351) - JTUV(276) = JVS(50)*UV(7)+JVS(114)*UV(14)+JVS(117)*UV(15)+JVS(384)*UV(35)+JVS(495)*UV(36)+JVS(544)*UV(40)+JVS(970)& - &*UV(144)+JVS(1006)*UV(150)+JVS(1398)*UV(210)+JVS(1578)*UV(230)+JVS(1584)*UV(231)+JVS(1728)*UV(244)& - &+JVS(1995)*UV(264)+JVS(2200)*UV(276)+JVS(2565)*UV(294)+JVS(2825)*UV(304)+JVS(2839)*UV(305)+JVS(2998)& - &*UV(309)+JVS(3015)*UV(310)+JVS(3027)*UV(311)+JVS(3043)*UV(312)+JVS(3104)*UV(314)+JVS(3350)*UV(324)& - &+JVS(3487)*UV(325)+JVS(3716)*UV(328)+JVS(3833)*UV(329)+JVS(4447)*UV(337)+JVS(4588)*UV(339)+JVS(4681)& - &*UV(340)+JVS(4776)*UV(341)+JVS(5167)*UV(345)+JVS(5546)*UV(351) - JTUV(277) = JVS(51)*UV(7)+JVS(270)*UV(34)+JVS(385)*UV(35)+JVS(802)*UV(111)+JVS(941)*UV(137)+JVS(1532)*UV(225)& - &+JVS(2208)*UV(277)+JVS(2275)*UV(282)+JVS(2311)*UV(283)+JVS(3351)*UV(324)+JVS(3488)*UV(325)+JVS(3717)& - &*UV(328)+JVS(4143)*UV(335)+JVS(4448)*UV(337)+JVS(5303)*UV(346)+JVS(5547)*UV(351) - JTUV(278) = JVS(271)*UV(34)+JVS(386)*UV(35)+JVS(1071)*UV(160)+JVS(1168)*UV(176)+JVS(1983)*UV(263)+JVS(2222)*UV(278)& - &+JVS(2276)*UV(282)+JVS(2501)*UV(292)+JVS(2610)*UV(295)+JVS(3267)*UV(322)+JVS(3489)*UV(325)+JVS(3718)& - &*UV(328)+JVS(4144)*UV(335)+JVS(4449)*UV(337)+JVS(5304)*UV(346)+JVS(5548)*UV(351) - JTUV(279) = JVS(1798)*UV(249)+JVS(2232)*UV(279)+JVS(2502)*UV(292)+JVS(2611)*UV(295)+JVS(2693)*UV(298)+JVS(3123)& - &*UV(315)+JVS(3235)*UV(321)+JVS(3291)*UV(323)+JVS(3560)*UV(326)+JVS(3719)*UV(328)+JVS(4145)*UV(335)& - &+JVS(4244)*UV(336)+JVS(4450)*UV(337)+JVS(5170)*UV(345) - JTUV(280) = JVS(52)*UV(7)+JVS(272)*UV(34)+JVS(387)*UV(35)+JVS(1701)*UV(242)+JVS(1871)*UV(256)+JVS(2246)*UV(280)& - &+JVS(2464)*UV(289)+JVS(2503)*UV(292)+JVS(2694)*UV(298)+JVS(3354)*UV(324)+JVS(3491)*UV(325)+JVS(3720)& - &*UV(328)+JVS(4146)*UV(335)+JVS(4451)*UV(337)+JVS(5306)*UV(346)+JVS(5549)*UV(351) - JTUV(281) = JVS(53)*UV(7)+JVS(273)*UV(34)+JVS(388)*UV(35)+JVS(1405)*UV(211)+JVS(1642)*UV(237)+JVS(1851)*UV(255)& - &+JVS(2259)*UV(281)+JVS(2278)*UV(282)+JVS(2313)*UV(283)+JVS(3355)*UV(324)+JVS(3492)*UV(325)+JVS(3721)& - &*UV(328)+JVS(4147)*UV(335)+JVS(4452)*UV(337)+JVS(5307)*UV(346)+JVS(5550)*UV(351) - JTUV(282) = JVS(2279)*UV(282)+JVS(3493)*UV(325)+JVS(4453)*UV(337)+JVS(4589)*UV(339)+JVS(4682)*UV(340)+JVS(5173)& + JTUV(250) = JVS(38)*UV(7)+JVS(270)*UV(37)+JVS(380)*UV(38)+JVS(809)*UV(113)+JVS(1052)*UV(158)+JVS(1166)*UV(176)& + &+JVS(1651)*UV(239)+JVS(1793)*UV(250)+JVS(4085)*UV(338)+JVS(4387)*UV(341)+JVS(4706)*UV(343)+JVS(4948)& + &*UV(345)+JVS(5637)*UV(356) + JTUV(251) = JVS(381)*UV(38)+JVS(499)*UV(39)+JVS(773)*UV(106)+JVS(1802)*UV(251)+JVS(2954)*UV(311)+JVS(3000)*UV(312)& + &+JVS(3910)*UV(335)+JVS(4388)*UV(341)+JVS(4707)*UV(343)+JVS(4949)*UV(345) + JTUV(252) = JVS(39)*UV(7)+JVS(271)*UV(37)+JVS(1258)*UV(192)+JVS(1814)*UV(252)+JVS(2264)*UV(283)+JVS(2286)*UV(285)& + &+JVS(2324)*UV(286)+JVS(2717)*UV(302)+JVS(3232)*UV(323)+JVS(3370)*UV(328)+JVS(3502)*UV(329)+JVS(3591)& + &*UV(330)+JVS(3795)*UV(334)+JVS(4086)*UV(338)+JVS(4389)*UV(341)+JVS(4950)*UV(345) + JTUV(253) = JVS(40)*UV(7)+JVS(272)*UV(37)+JVS(884)*UV(128)+JVS(1259)*UV(192)+JVS(1822)*UV(253)+JVS(2287)*UV(285)& + &+JVS(2325)*UV(286)+JVS(2718)*UV(302)+JVS(3371)*UV(328)+JVS(3503)*UV(329)+JVS(3592)*UV(330)+JVS(3796)& + &*UV(334)+JVS(4087)*UV(338)+JVS(4390)*UV(341)+JVS(4951)*UV(345) + JTUV(254) = JVS(91)*UV(9)+JVS(99)*UV(10)+JVS(382)*UV(38)+JVS(675)*UV(81)+JVS(782)*UV(107)+JVS(1138)*UV(172)+JVS(1663)& + &*UV(240)+JVS(1830)*UV(254)+JVS(3632)*UV(331)+JVS(4167)*UV(339)+JVS(4952)*UV(345)+JVS(5040)*UV(346)& + &+JVS(5224)*UV(349)+JVS(5251)*UV(350) + JTUV(255) = JVS(383)*UV(38)+JVS(774)*UV(106)+JVS(1837)*UV(255)+JVS(2513)*UV(295)+JVS(2561)*UV(297)+JVS(2719)*UV(302)& + &+JVS(3157)*UV(319)+JVS(3212)*UV(322)+JVS(3301)*UV(326)+JVS(3325)*UV(327)+JVS(3593)*UV(330)+JVS(3797)& + &*UV(334)+JVS(4391)*UV(341)+JVS(4711)*UV(343)+JVS(4953)*UV(345)+JVS(5460)*UV(353) + JTUV(256) = JVS(384)*UV(38)+JVS(500)*UV(39)+JVS(1104)*UV(166)+JVS(1191)*UV(180)+JVS(1845)*UV(256)+JVS(1995)*UV(266)& + &+JVS(2192)*UV(277)+JVS(3105)*UV(317)+JVS(3504)*UV(329)+JVS(3911)*UV(335)+JVS(4392)*UV(341)+JVS(4712)& + &*UV(343)+JVS(5142)*UV(348)+JVS(5638)*UV(356) + JTUV(257) = JVS(273)*UV(37)+JVS(501)*UV(39)+JVS(1803)*UV(251)+JVS(1856)*UV(257)+JVS(2422)*UV(290)+JVS(2608)*UV(298)& + &+JVS(2955)*UV(311)+JVS(3505)*UV(329)+JVS(3912)*UV(335)+JVS(4089)*UV(338)+JVS(4393)*UV(341)+JVS(4713)& + &*UV(343)+JVS(4955)*UV(345) + JTUV(258) = JVS(274)*UV(37)+JVS(1398)*UV(211)+JVS(1867)*UV(258)+JVS(2456)*UV(291)+JVS(2609)*UV(298)+JVS(2806)*UV(306)& + &+JVS(2891)*UV(309)+JVS(3372)*UV(328)+JVS(3506)*UV(329)+JVS(4090)*UV(338)+JVS(4394)*UV(341)+JVS(4714)& + &*UV(343)+JVS(4956)*UV(345) + JTUV(259) = JVS(502)*UV(39)+JVS(924)*UV(135)+JVS(1033)*UV(155)+JVS(1572)*UV(230)+JVS(1881)*UV(259)+JVS(2134)*UV(274)& + &+JVS(2423)*UV(290)+JVS(2610)*UV(298)+JVS(2892)*UV(309)+JVS(2956)*UV(311)+JVS(3507)*UV(329)+JVS(3914)& + &*UV(335)+JVS(4395)*UV(341)+JVS(4715)*UV(343) + JTUV(260) = JVS(385)*UV(38)+JVS(578)*UV(48)+JVS(1040)*UV(156)+JVS(1897)*UV(260)+JVS(2514)*UV(295)+JVS(4716)*UV(343)& + &+JVS(4957)*UV(345)+JVS(5143)*UV(348) + JTUV(261) = JVS(41)*UV(7)+JVS(275)*UV(37)+JVS(386)*UV(38)+JVS(601)*UV(59)+JVS(632)*UV(69)+JVS(658)*UV(76)+JVS(1917)& + &*UV(261)+JVS(2253)*UV(282)+JVS(3374)*UV(328)+JVS(3508)*UV(329)+JVS(3798)*UV(334)+JVS(4091)*UV(338)& + &+JVS(4396)*UV(341)+JVS(4717)*UV(343)+JVS(4958)*UV(345)+JVS(5144)*UV(348)+JVS(5639)*UV(356) + JTUV(262) = JVS(42)*UV(7)+JVS(276)*UV(37)+JVS(503)*UV(39)+JVS(1077)*UV(161)+JVS(1240)*UV(189)+JVS(1929)*UV(262)& + &+JVS(3375)*UV(328)+JVS(3509)*UV(329)+JVS(3799)*UV(334)+JVS(3915)*UV(335)+JVS(4092)*UV(338)+JVS(4397)& + &*UV(341)+JVS(4718)*UV(343)+JVS(4959)*UV(345)+JVS(5640)*UV(356) + JTUV(263) = JVS(387)*UV(38)+JVS(1940)*UV(263)+JVS(1996)*UV(266)+JVS(2227)*UV(280)+JVS(2515)*UV(295)+JVS(2562)*UV(297)& + &+JVS(2893)*UV(309)+JVS(3138)*UV(318)+JVS(3510)*UV(329)+JVS(4398)*UV(341)+JVS(4719)*UV(343)+JVS(4960)& + &*UV(345)+JVS(5146)*UV(348)+JVS(5641)*UV(356) + JTUV(264) = JVS(43)*UV(7)+JVS(277)*UV(37)+JVS(876)*UV(126)+JVS(1260)*UV(192)+JVS(1950)*UV(264)+JVS(2288)*UV(285)& + &+JVS(2326)*UV(286)+JVS(2720)*UV(302)+JVS(2959)*UV(311)+JVS(3376)*UV(328)+JVS(3511)*UV(329)+JVS(3594)& + &*UV(330)+JVS(3800)*UV(334)+JVS(4093)*UV(338)+JVS(4399)*UV(341)+JVS(4961)*UV(345) + JTUV(265) = JVS(44)*UV(7)+JVS(388)*UV(38)+JVS(504)*UV(39)+JVS(1963)*UV(265)+JVS(3377)*UV(328)+JVS(3512)*UV(329)& + &+JVS(3705)*UV(333)+JVS(3916)*UV(335)+JVS(4400)*UV(341)+JVS(4721)*UV(343)+JVS(4962)*UV(345)+JVS(5147)& + &*UV(348) + JTUV(266) = JVS(45)*UV(7)+JVS(278)*UV(37)+JVS(389)*UV(38)+JVS(1997)*UV(266)+JVS(3378)*UV(328)+JVS(3513)*UV(329)& + &+JVS(3801)*UV(334)+JVS(4094)*UV(338)+JVS(4401)*UV(341)+JVS(4722)*UV(343)+JVS(4963)*UV(345)+JVS(5148)& + &*UV(348) + JTUV(267) = JVS(186)*UV(33)+JVS(192)*UV(34)+JVS(390)*UV(38)+JVS(545)*UV(41)+JVS(976)*UV(146)+JVS(2011)*UV(267)& + &+JVS(4212)*UV(340)+JVS(4402)*UV(341)+JVS(4723)*UV(343)+JVS(5300)*UV(351)+JVS(5364)*UV(352)+JVS(5461)& + &*UV(353)+JVS(5579)*UV(355) + JTUV(268) = JVS(46)*UV(7)+JVS(2037)*UV(268)+JVS(4213)*UV(340)+JVS(4403)*UV(341)+JVS(4724)*UV(343)+JVS(5365)*UV(352)& + &+JVS(5462)*UV(353) + JTUV(269) = JVS(391)*UV(38)+JVS(505)*UV(39)+JVS(775)*UV(106)+JVS(2064)*UV(269)+JVS(2424)*UV(290)+JVS(2457)*UV(291)& + &+JVS(2612)*UV(298)+JVS(2894)*UV(309)+JVS(3917)*UV(335)+JVS(4404)*UV(341)+JVS(4725)*UV(343)+JVS(4964)& &*UV(345) - JTUV(283) = JVS(54)*UV(7)+JVS(2314)*UV(283)+JVS(3722)*UV(328)+JVS(4245)*UV(336)+JVS(4590)*UV(339)+JVS(4683)*UV(340)& - &+JVS(5174)*UV(345) - JTUV(284) = JVS(389)*UV(35)+JVS(558)*UV(44)+JVS(583)*UV(55)+JVS(726)*UV(96)+JVS(767)*UV(104)+JVS(845)*UV(120)& - &+JVS(2343)*UV(284)+JVS(3887)*UV(330)+JVS(3916)*UV(331)+JVS(3935)*UV(332)+JVS(4148)*UV(335)+JVS(4454)& - &*UV(337)+JVS(4533)*UV(338)+JVS(4684)*UV(340)+JVS(4836)*UV(342)+JVS(4901)*UV(343)+JVS(5308)*UV(346)& - &+JVS(5373)*UV(347) - JTUV(285) = JVS(274)*UV(34)+JVS(496)*UV(36)+JVS(989)*UV(147)+JVS(1023)*UV(153)+JVS(1903)*UV(258)+JVS(2051)*UV(266)& - &+JVS(2116)*UV(270)+JVS(2364)*UV(285)+JVS(2942)*UV(307)+JVS(3836)*UV(329)+JVS(4149)*UV(335)+JVS(4455)& - &*UV(337)+JVS(5176)*UV(345)+JVS(5309)*UV(346) - JTUV(286) = JVS(275)*UV(34)+JVS(497)*UV(36)+JVS(904)*UV(131)+JVS(990)*UV(147)+JVS(1904)*UV(258)+JVS(2052)*UV(266)& - &+JVS(2385)*UV(286)+JVS(2567)*UV(294)+JVS(2884)*UV(306)+JVS(3837)*UV(329)+JVS(4150)*UV(335)+JVS(4456)& - &*UV(337)+JVS(5177)*UV(345)+JVS(5310)*UV(346) - JTUV(287) = JVS(55)*UV(7)+JVS(498)*UV(36)+JVS(1729)*UV(244)+JVS(2412)*UV(287)+JVS(2568)*UV(294)+JVS(2944)*UV(307)& - &+JVS(3496)*UV(325)+JVS(3838)*UV(329)+JVS(4457)*UV(337)+JVS(5178)*UV(345) - JTUV(288) = JVS(1385)*UV(208)+JVS(1556)*UV(227)+JVS(2445)*UV(288)+JVS(2569)*UV(294)+JVS(2885)*UV(306)+JVS(3359)& - &*UV(324)+JVS(3497)*UV(325)+JVS(4458)*UV(337)+JVS(5179)*UV(345) - JTUV(289) = JVS(276)*UV(34)+JVS(390)*UV(35)+JVS(1150)*UV(173)+JVS(1238)*UV(188)+JVS(1702)*UV(242)+JVS(1873)*UV(256)& - &+JVS(2247)*UV(280)+JVS(2280)*UV(282)+JVS(2465)*UV(289)+JVS(2505)*UV(292)+JVS(2696)*UV(298)+JVS(3360)& - &*UV(324)+JVS(3498)*UV(325)+JVS(3723)*UV(328)+JVS(4151)*UV(335)+JVS(4459)*UV(337)+JVS(5311)*UV(346)& - &+JVS(5554)*UV(351) - JTUV(290) = JVS(56)*UV(7)+JVS(391)*UV(35)+JVS(499)*UV(36)+JVS(1564)*UV(228)+JVS(1692)*UV(241)+JVS(1806)*UV(250)& - &+JVS(1922)*UV(260)+JVS(2474)*UV(290)+JVS(3045)*UV(312)+JVS(3499)*UV(325)+JVS(3561)*UV(326)+JVS(3724)& - &*UV(328)+JVS(3840)*UV(329)+JVS(4460)*UV(337)+JVS(4592)*UV(339)+JVS(4686)*UV(340)+JVS(4781)*UV(341)& - &+JVS(4837)*UV(342)+JVS(5181)*UV(345)+JVS(5555)*UV(351)+JVS(5614)*UV(352) - JTUV(291) = JVS(57)*UV(7)+JVS(277)*UV(34)+JVS(392)*UV(35)+JVS(1270)*UV(193)+JVS(1571)*UV(229)+JVS(1951)*UV(262)& - &+JVS(2282)*UV(282)+JVS(2316)*UV(283)+JVS(2482)*UV(291)+JVS(2612)*UV(295)+JVS(3105)*UV(314)+JVS(3362)& - &*UV(324)+JVS(3500)*UV(325)+JVS(3725)*UV(328)+JVS(4153)*UV(335)+JVS(4461)*UV(337)+JVS(5313)*UV(346)& - &+JVS(5556)*UV(351) - JTUV(292) = JVS(393)*UV(35)+JVS(2507)*UV(292)+JVS(3124)*UV(315)+JVS(3218)*UV(320)+JVS(3236)*UV(321)+JVS(3268)*UV(322)& - &+JVS(3292)*UV(323)+JVS(3363)*UV(324)+JVS(3636)*UV(327)+JVS(3726)*UV(328)+JVS(4250)*UV(336)+JVS(5183)& - &*UV(345)+JVS(5557)*UV(351) - JTUV(293) = JVS(278)*UV(34)+JVS(1462)*UV(216)+JVS(1770)*UV(247)+JVS(1937)*UV(261)+JVS(2523)*UV(293)+JVS(2726)*UV(299)& - &+JVS(2777)*UV(302)+JVS(2809)*UV(303)+JVS(2887)*UV(306)+JVS(2948)*UV(307)+JVS(3501)*UV(325)+JVS(4154)& - &*UV(335)+JVS(4462)*UV(337)+JVS(5184)*UV(345)+JVS(5314)*UV(346) - JTUV(294) = JVS(172)*UV(30)+JVS(394)*UV(35)+JVS(500)*UV(36)+JVS(2572)*UV(294)+JVS(3365)*UV(324)+JVS(3638)*UV(327)& - &+JVS(3842)*UV(329)+JVS(4463)*UV(337)+JVS(5185)*UV(345)+JVS(5559)*UV(351) - JTUV(295) = JVS(501)*UV(36)+JVS(2613)*UV(295)+JVS(3068)*UV(313)+JVS(3366)*UV(324)+JVS(3727)*UV(328)+JVS(3843)*UV(329)& - &+JVS(4251)*UV(336)+JVS(4594)*UV(339)+JVS(4688)*UV(340)+JVS(4838)*UV(342)+JVS(5186)*UV(345)+JVS(5615)& + JTUV(270) = JVS(392)*UV(38)+JVS(506)*UV(39)+JVS(776)*UV(106)+JVS(898)*UV(131)+JVS(1379)*UV(208)+JVS(1691)*UV(242)& + &+JVS(2077)*UV(270)+JVS(2425)*UV(290)+JVS(2786)*UV(305)+JVS(2807)*UV(306)+JVS(3918)*UV(335)+JVS(4405)& + &*UV(341)+JVS(4726)*UV(343)+JVS(4965)*UV(345) + JTUV(271) = JVS(393)*UV(38)+JVS(507)*UV(39)+JVS(777)*UV(106)+JVS(899)*UV(131)+JVS(1384)*UV(209)+JVS(1489)*UV(220)& + &+JVS(1692)*UV(242)+JVS(2083)*UV(271)+JVS(2459)*UV(291)+JVS(2787)*UV(305)+JVS(3919)*UV(335)+JVS(4406)& + &*UV(341)+JVS(4727)*UV(343)+JVS(4966)*UV(345) + JTUV(272) = JVS(10)*UV(5)+JVS(47)*UV(7)+JVS(279)*UV(37)+JVS(508)*UV(39)+JVS(1521)*UV(224)+JVS(1664)*UV(240)+JVS(2098)& + &*UV(272)+JVS(3213)*UV(322)+JVS(3709)*UV(333)+JVS(3920)*UV(335)+JVS(4407)*UV(341)+JVS(4728)*UV(343)& + &+JVS(4967)*UV(345)+JVS(5150)*UV(348) + JTUV(273) = JVS(280)*UV(37)+JVS(1420)*UV(214)+JVS(1490)*UV(220)+JVS(1744)*UV(247)+JVS(1779)*UV(249)+JVS(1965)*UV(265)& + &+JVS(2067)*UV(269)+JVS(2107)*UV(273)+JVS(2427)*UV(290)+JVS(2460)*UV(291)+JVS(2758)*UV(303)+JVS(2808)& + &*UV(306)+JVS(2841)*UV(307)+JVS(2898)*UV(309)+JVS(2962)*UV(311)+JVS(3516)*UV(329)+JVS(4098)*UV(338)& + &+JVS(4408)*UV(341)+JVS(4729)*UV(343)+JVS(4968)*UV(345) + JTUV(274) = JVS(171)*UV(30)+JVS(394)*UV(38)+JVS(509)*UV(39)+JVS(2139)*UV(274)+JVS(3517)*UV(329)+JVS(3711)*UV(333)& + &+JVS(3922)*UV(335)+JVS(4409)*UV(341)+JVS(4730)*UV(343)+JVS(5152)*UV(348) + JTUV(275) = JVS(281)*UV(37)+JVS(395)*UV(38)+JVS(1093)*UV(164)+JVS(1099)*UV(165)+JVS(2163)*UV(275)+JVS(2193)*UV(277)& + &+JVS(2289)*UV(285)+JVS(2563)*UV(297)+JVS(2722)*UV(302)+JVS(3233)*UV(323)+JVS(3518)*UV(329)+JVS(3802)& + &*UV(334)+JVS(4099)*UV(338)+JVS(4410)*UV(341)+JVS(4969)*UV(345)+JVS(5153)*UV(348) + JTUV(276) = JVS(48)*UV(7)+JVS(282)*UV(37)+JVS(396)*UV(38)+JVS(805)*UV(112)+JVS(905)*UV(132)+JVS(953)*UV(141)+JVS(2175)& + &*UV(276)+JVS(2290)*UV(285)+JVS(2327)*UV(286)+JVS(3382)*UV(328)+JVS(3519)*UV(329)+JVS(3803)*UV(334)& + &+JVS(4100)*UV(338)+JVS(4411)*UV(341)+JVS(4970)*UV(345)+JVS(5154)*UV(348) + JTUV(277) = JVS(49)*UV(7)+JVS(283)*UV(37)+JVS(397)*UV(38)+JVS(604)*UV(60)+JVS(919)*UV(134)+JVS(1131)*UV(171)+JVS(2195)& + &*UV(277)+JVS(2724)*UV(302)+JVS(3235)*UV(323)+JVS(3383)*UV(328)+JVS(3520)*UV(329)+JVS(3804)*UV(334)& + &+JVS(4101)*UV(338)+JVS(4412)*UV(341)+JVS(4733)*UV(343)+JVS(4971)*UV(345)+JVS(5155)*UV(348)+JVS(5643)& + &*UV(356) + JTUV(278) = JVS(284)*UV(37)+JVS(398)*UV(38)+JVS(1105)*UV(166)+JVS(1132)*UV(171)+JVS(1192)*UV(180)+JVS(2208)*UV(278)& + &+JVS(2291)*UV(285)+JVS(3521)*UV(329)+JVS(3805)*UV(334)+JVS(4102)*UV(338)+JVS(4413)*UV(341)+JVS(4972)& + &*UV(345)+JVS(5156)*UV(348) + JTUV(279) = JVS(50)*UV(7)+JVS(114)*UV(14)+JVS(117)*UV(15)+JVS(399)*UV(38)+JVS(510)*UV(39)+JVS(560)*UV(43)+JVS(1003)& + &*UV(150)+JVS(1008)*UV(151)+JVS(1421)*UV(214)+JVS(1584)*UV(231)+JVS(1597)*UV(233)+JVS(1745)*UV(247)& + &+JVS(2012)*UV(267)+JVS(2217)*UV(279)+JVS(2616)*UV(298)+JVS(2856)*UV(308)+JVS(2926)*UV(310)+JVS(3027)& + &*UV(313)+JVS(3046)*UV(314)+JVS(3061)*UV(315)+JVS(3106)*UV(317)+JVS(3139)*UV(318)+JVS(3385)*UV(328)& + &+JVS(3522)*UV(329)+JVS(3806)*UV(334)+JVS(3923)*UV(335)+JVS(4215)*UV(340)+JVS(4414)*UV(341)+JVS(4735)& + &*UV(343)+JVS(5157)*UV(348)+JVS(5367)*UV(352)+JVS(5645)*UV(356) + JTUV(280) = JVS(51)*UV(7)+JVS(285)*UV(37)+JVS(400)*UV(38)+JVS(1730)*UV(246)+JVS(1901)*UV(260)+JVS(2228)*UV(280)& + &+JVS(2483)*UV(292)+JVS(2519)*UV(295)+JVS(2726)*UV(302)+JVS(3386)*UV(328)+JVS(3523)*UV(329)+JVS(3807)& + &*UV(334)+JVS(4104)*UV(338)+JVS(4415)*UV(341)+JVS(4974)*UV(345)+JVS(5158)*UV(348) + JTUV(281) = JVS(52)*UV(7)+JVS(286)*UV(37)+JVS(401)*UV(38)+JVS(801)*UV(111)+JVS(945)*UV(139)+JVS(1542)*UV(227)& + &+JVS(2241)*UV(281)+JVS(2292)*UV(285)+JVS(2328)*UV(286)+JVS(3387)*UV(328)+JVS(3524)*UV(329)+JVS(3808)& + &*UV(334)+JVS(4105)*UV(338)+JVS(4416)*UV(341)+JVS(4975)*UV(345)+JVS(5159)*UV(348) + JTUV(282) = JVS(287)*UV(37)+JVS(402)*UV(38)+JVS(1088)*UV(163)+JVS(1185)*UV(179)+JVS(2000)*UV(266)+JVS(2255)*UV(282)& + &+JVS(2293)*UV(285)+JVS(2521)*UV(295)+JVS(2566)*UV(297)+JVS(3278)*UV(325)+JVS(3525)*UV(329)+JVS(3809)& + &*UV(334)+JVS(4106)*UV(338)+JVS(4417)*UV(341)+JVS(4976)*UV(345)+JVS(5160)*UV(348) + JTUV(283) = JVS(1815)*UV(252)+JVS(2265)*UV(283)+JVS(2522)*UV(295)+JVS(2567)*UV(297)+JVS(2727)*UV(302)+JVS(3158)& + &*UV(319)+JVS(3302)*UV(326)+JVS(3326)*UV(327)+JVS(3595)*UV(330)+JVS(3810)*UV(334)+JVS(4418)*UV(341)& + &+JVS(4739)*UV(343)+JVS(4977)*UV(345)+JVS(5466)*UV(353) + JTUV(284) = JVS(53)*UV(7)+JVS(288)*UV(37)+JVS(403)*UV(38)+JVS(1407)*UV(212)+JVS(1680)*UV(241)+JVS(1846)*UV(256)& + &+JVS(2276)*UV(284)+JVS(2295)*UV(285)+JVS(2330)*UV(286)+JVS(3390)*UV(328)+JVS(3527)*UV(329)+JVS(3811)& + &*UV(334)+JVS(4108)*UV(338)+JVS(4419)*UV(341)+JVS(4978)*UV(345)+JVS(5161)*UV(348) + JTUV(285) = JVS(2296)*UV(285)+JVS(3528)*UV(329)+JVS(4216)*UV(340)+JVS(4420)*UV(341)+JVS(4741)*UV(343)+JVS(5368)& &*UV(352) - JTUV(296) = JVS(58)*UV(7)+JVS(279)*UV(34)+JVS(676)*UV(83)+JVS(835)*UV(118)+JVS(1040)*UV(156)+JVS(2283)*UV(282)& - &+JVS(2317)*UV(283)+JVS(2639)*UV(296)+JVS(3367)*UV(324)+JVS(3502)*UV(325)+JVS(3562)*UV(326)+JVS(3728)& - &*UV(328)+JVS(4155)*UV(335)+JVS(4464)*UV(337)+JVS(4534)*UV(338)+JVS(4689)*UV(340)+JVS(5315)*UV(346) - JTUV(297) = JVS(280)*UV(34)+JVS(395)*UV(35)+JVS(1047)*UV(157)+JVS(1668)*UV(239)+JVS(1741)*UV(245)+JVS(2653)*UV(297)& - &+JVS(3956)*UV(333)+JVS(4156)*UV(335)+JVS(4596)*UV(339)+JVS(4690)*UV(340)+JVS(4940)*UV(344)+JVS(5188)& - &*UV(345)+JVS(5440)*UV(349)+JVS(5466)*UV(350)+JVS(5616)*UV(352)+JVS(5654)*UV(353) - JTUV(298) = JVS(396)*UV(35)+JVS(502)*UV(36)+JVS(2699)*UV(298)+JVS(3126)*UV(315)+JVS(3237)*UV(321)+JVS(3269)*UV(322)& - &+JVS(3293)*UV(323)+JVS(3639)*UV(327)+JVS(3844)*UV(329)+JVS(4254)*UV(336)+JVS(4465)*UV(337)+JVS(5189)& - &*UV(345)+JVS(5560)*UV(351) - JTUV(299) = JVS(397)*UV(35)+JVS(762)*UV(103)+JVS(975)*UV(145)+JVS(1193)*UV(180)+JVS(2727)*UV(299)+JVS(2755)*UV(301)& - &+JVS(2810)*UV(303)+JVS(2888)*UV(306)+JVS(2949)*UV(307)+JVS(2999)*UV(309)+JVS(3106)*UV(314)+JVS(3503)& - &*UV(325)+JVS(4157)*UV(335)+JVS(4466)*UV(337)+JVS(5190)*UV(345) - JTUV(300) = JVS(59)*UV(7)+JVS(281)*UV(34)+JVS(748)*UV(102)+JVS(1239)*UV(188)+JVS(2233)*UV(279)+JVS(2284)*UV(282)& - &+JVS(2318)*UV(283)+JVS(2508)*UV(292)+JVS(2614)*UV(295)+JVS(2700)*UV(298)+JVS(2742)*UV(300)+JVS(3127)& - &*UV(315)+JVS(3238)*UV(321)+JVS(3294)*UV(323)+JVS(3369)*UV(324)+JVS(3504)*UV(325)+JVS(3563)*UV(326)& - &+JVS(3729)*UV(328)+JVS(4158)*UV(335)+JVS(4467)*UV(337)+JVS(5318)*UV(346) - JTUV(301) = JVS(503)*UV(36)+JVS(842)*UV(119)+JVS(1133)*UV(171)+JVS(1139)*UV(172)+JVS(1202)*UV(182)+JVS(1224)*UV(185)& - &+JVS(1278)*UV(194)+JVS(1450)*UV(215)+JVS(1463)*UV(216)+JVS(2756)*UV(301)+JVS(2779)*UV(302)+JVS(3847)& - &*UV(329)+JVS(4159)*UV(335)+JVS(4468)*UV(337)+JVS(5192)*UV(345) - JTUV(302) = JVS(282)*UV(34)+JVS(398)*UV(35)+JVS(763)*UV(103)+JVS(819)*UV(115)+JVS(1558)*UV(227)+JVS(1940)*UV(261)& - &+JVS(2024)*UV(265)+JVS(2575)*UV(294)+JVS(2780)*UV(302)+JVS(2890)*UV(306)+JVS(3371)*UV(324)+JVS(3506)& - &*UV(325)+JVS(4160)*UV(335)+JVS(4469)*UV(337)+JVS(5193)*UV(345)+JVS(5564)*UV(351) - JTUV(303) = JVS(399)*UV(35)+JVS(764)*UV(103)+JVS(1203)*UV(182)+JVS(1279)*UV(194)+JVS(1399)*UV(210)+JVS(1730)*UV(244)& - &+JVS(1789)*UV(248)+JVS(1941)*UV(261)+JVS(2053)*UV(266)+JVS(2414)*UV(287)+JVS(2525)*UV(293)+JVS(2781)& - &*UV(302)+JVS(2811)*UV(303)+JVS(2891)*UV(306)+JVS(2951)*UV(307)+JVS(3507)*UV(325)+JVS(4161)*UV(335)& - &+JVS(4470)*UV(337)+JVS(5194)*UV(345) - JTUV(304) = JVS(283)*UV(34)+JVS(504)*UV(36)+JVS(971)*UV(144)+JVS(1114)*UV(168)+JVS(1266)*UV(192)+JVS(1309)*UV(199)& - &+JVS(1585)*UV(231)+JVS(1655)*UV(238)+JVS(1731)*UV(244)+JVS(2067)*UV(268)+JVS(2415)*UV(287)+JVS(2448)& - &*UV(288)+JVS(2577)*UV(294)+JVS(2826)*UV(304)+JVS(2840)*UV(305)+JVS(3001)*UV(309)+JVS(3108)*UV(314)& - &+JVS(3508)*UV(325)+JVS(3730)*UV(328)+JVS(3850)*UV(329)+JVS(4162)*UV(335)+JVS(4471)*UV(337)+JVS(5195)& - &*UV(345)+JVS(5321)*UV(346) - JTUV(305) = JVS(284)*UV(34)+JVS(505)*UV(36)+JVS(1007)*UV(150)+JVS(1162)*UV(175)+JVS(1231)*UV(187)+JVS(1390)*UV(209)& - &+JVS(1400)*UV(210)+JVS(1579)*UV(230)+JVS(1656)*UV(238)+JVS(2061)*UV(267)+JVS(2416)*UV(287)+JVS(2449)& - &*UV(288)+JVS(2578)*UV(294)+JVS(2827)*UV(304)+JVS(2841)*UV(305)+JVS(3002)*UV(309)+JVS(3109)*UV(314)& - &+JVS(3374)*UV(324)+JVS(3509)*UV(325)+JVS(3731)*UV(328)+JVS(3851)*UV(329)+JVS(4163)*UV(335)+JVS(4472)& - &*UV(337)+JVS(5196)*UV(345)+JVS(5322)*UV(346) - JTUV(306) = JVS(60)*UV(7)+JVS(400)*UV(35)+JVS(506)*UV(36)+JVS(1419)*UV(213)+JVS(2028)*UV(265)+JVS(2124)*UV(270)& - &+JVS(2285)*UV(282)+JVS(2894)*UV(306)+JVS(3510)*UV(325)+JVS(3647)*UV(327)+JVS(3852)*UV(329)+JVS(4473)& - &*UV(337)+JVS(5197)*UV(345)+JVS(5568)*UV(351) - JTUV(307) = JVS(61)*UV(7)+JVS(507)*UV(36)+JVS(2029)*UV(265)+JVS(2319)*UV(283)+JVS(2579)*UV(294)+JVS(2954)*UV(307)& - &+JVS(3375)*UV(324)+JVS(3511)*UV(325)+JVS(3732)*UV(328)+JVS(3853)*UV(329)+JVS(4474)*UV(337)+JVS(5198)& - &*UV(345) - JTUV(308) = JVS(62)*UV(7)+JVS(285)*UV(34)+JVS(401)*UV(35)+JVS(1214)*UV(184)+JVS(1464)*UV(216)+JVS(1792)*UV(248)& - &+JVS(2955)*UV(307)+JVS(2978)*UV(308)+JVS(3512)*UV(325)+JVS(3733)*UV(328)+JVS(4165)*UV(335)+JVS(4475)& - &*UV(337)+JVS(4784)*UV(341)+JVS(5199)*UV(345)+JVS(5324)*UV(346)+JVS(5570)*UV(351) - JTUV(309) = JVS(402)*UV(35)+JVS(508)*UV(36)+JVS(1732)*UV(244)+JVS(1775)*UV(247)+JVS(1833)*UV(253)+JVS(1914)*UV(259)& - &+JVS(2581)*UV(294)+JVS(3003)*UV(309)+JVS(3046)*UV(312)+JVS(3377)*UV(324)+JVS(3513)*UV(325)+JVS(3650)& - &*UV(327)+JVS(3855)*UV(329)+JVS(4476)*UV(337)+JVS(4785)*UV(341)+JVS(5200)*UV(345)+JVS(5571)*UV(351) - JTUV(310) = JVS(63)*UV(7)+JVS(286)*UV(34)+JVS(403)*UV(35)+JVS(976)*UV(145)+JVS(1509)*UV(222)+JVS(2068)*UV(268)& - &+JVS(2286)*UV(282)+JVS(2731)*UV(299)+JVS(2760)*UV(301)+JVS(3004)*UV(309)+JVS(3016)*UV(310)+JVS(3028)& - &*UV(311)+JVS(3110)*UV(314)+JVS(3378)*UV(324)+JVS(3514)*UV(325)+JVS(3735)*UV(328)+JVS(4167)*UV(335)& - &+JVS(4477)*UV(337)+JVS(5201)*UV(345)+JVS(5326)*UV(346)+JVS(5572)*UV(351) - JTUV(311) = JVS(64)*UV(7)+JVS(287)*UV(34)+JVS(404)*UV(35)+JVS(977)*UV(145)+JVS(1227)*UV(186)+JVS(1510)*UV(222)& - &+JVS(2062)*UV(267)+JVS(2069)*UV(268)+JVS(2287)*UV(282)+JVS(2732)*UV(299)+JVS(2761)*UV(301)+JVS(3005)& - &*UV(309)+JVS(3017)*UV(310)+JVS(3029)*UV(311)+JVS(3111)*UV(314)+JVS(3379)*UV(324)+JVS(3515)*UV(325)& - &+JVS(3736)*UV(328)+JVS(4168)*UV(335)+JVS(4478)*UV(337)+JVS(5327)*UV(346)+JVS(5573)*UV(351) - JTUV(312) = JVS(65)*UV(7)+JVS(181)*UV(32)+JVS(288)*UV(34)+JVS(405)*UV(35)+JVS(523)*UV(37)+JVS(531)*UV(38)+JVS(545)& - &*UV(40)+JVS(692)*UV(88)+JVS(923)*UV(134)+JVS(1997)*UV(264)+JVS(2032)*UV(265)+JVS(3049)*UV(312)+JVS(3516)& - &*UV(325)+JVS(3858)*UV(329)+JVS(4169)*UV(335)+JVS(4267)*UV(336)+JVS(4788)*UV(341)+JVS(5328)*UV(346)& - &+JVS(5408)*UV(348)+JVS(5574)*UV(351) - JTUV(313) = JVS(66)*UV(7)+JVS(289)*UV(34)+JVS(1734)*UV(244)+JVS(2288)*UV(282)+JVS(2320)*UV(283)+JVS(2584)*UV(294)& - &+JVS(2959)*UV(307)+JVS(3077)*UV(313)+JVS(3380)*UV(324)+JVS(3517)*UV(325)+JVS(3737)*UV(328)+JVS(4170)& - &*UV(335)+JVS(4480)*UV(337)+JVS(5204)*UV(345)+JVS(5329)*UV(346) - JTUV(314) = JVS(406)*UV(35)+JVS(509)*UV(36)+JVS(546)*UV(40)+JVS(820)*UV(115)+JVS(1844)*UV(254)+JVS(1998)*UV(264)& - &+JVS(2475)*UV(290)+JVS(2585)*UV(294)+JVS(3050)*UV(312)+JVS(3112)*UV(314)+JVS(3271)*UV(322)+JVS(3381)& - &*UV(324)+JVS(3518)*UV(325)+JVS(3738)*UV(328)+JVS(3860)*UV(329)+JVS(4481)*UV(337)+JVS(4789)*UV(341)& - &+JVS(5205)*UV(345) - JTUV(315) = JVS(67)*UV(7)+JVS(290)*UV(34)+JVS(836)*UV(118)+JVS(1041)*UV(156)+JVS(2289)*UV(282)+JVS(2321)*UV(283)& - &+JVS(3129)*UV(315)+JVS(3382)*UV(324)+JVS(3519)*UV(325)+JVS(3565)*UV(326)+JVS(3739)*UV(328)+JVS(4172)& - &*UV(335)+JVS(4482)*UV(337)+JVS(4536)*UV(338)+JVS(4706)*UV(340)+JVS(5331)*UV(346) - JTUV(316) = JVS(407)*UV(35)+JVS(532)*UV(38)+JVS(924)*UV(134)+JVS(994)*UV(148)+JVS(1048)*UV(157)+JVS(3148)*UV(316)& - &+JVS(4271)*UV(336)+JVS(4613)*UV(339)+JVS(4842)*UV(342)+JVS(4906)*UV(343)+JVS(4941)*UV(344)+JVS(5207)& - &*UV(345)+JVS(5374)*UV(347)+JVS(5410)*UV(348)+JVS(5441)*UV(349)+JVS(5467)*UV(350)+JVS(5619)*UV(352)& - &+JVS(5655)*UV(353) - JTUV(317) = JVS(291)*UV(34)+JVS(408)*UV(35)+JVS(1049)*UV(157)+JVS(1742)*UV(245)+JVS(3164)*UV(317)+JVS(3655)*UV(327)& - &+JVS(3957)*UV(333)+JVS(4173)*UV(335)+JVS(4272)*UV(336)+JVS(4537)*UV(338)+JVS(4614)*UV(339)+JVS(4708)& - &*UV(340)+JVS(4907)*UV(343)+JVS(4942)*UV(344)+JVS(5208)*UV(345)+JVS(5442)*UV(349)+JVS(5468)*UV(350)& - &+JVS(5577)*UV(351)+JVS(5620)*UV(352)+JVS(5656)*UV(353) - JTUV(318) = JVS(68)*UV(7)+JVS(292)*UV(34)+JVS(1240)*UV(188)+JVS(1814)*UV(251)+JVS(2290)*UV(282)+JVS(2322)*UV(283)& - &+JVS(2702)*UV(298)+JVS(3179)*UV(318)+JVS(3205)*UV(319)+JVS(3383)*UV(324)+JVS(3520)*UV(325)+JVS(3566)& - &*UV(326)+JVS(3740)*UV(328)+JVS(4174)*UV(335)+JVS(4483)*UV(337)+JVS(5332)*UV(346) - JTUV(319) = JVS(69)*UV(7)+JVS(293)*UV(34)+JVS(730)*UV(97)+JVS(1241)*UV(188)+JVS(1815)*UV(251)+JVS(2291)*UV(282)& - &+JVS(2323)*UV(283)+JVS(2510)*UV(292)+JVS(2616)*UV(295)+JVS(2703)*UV(298)+JVS(3131)*UV(315)+JVS(3206)& - &*UV(319)+JVS(3241)*UV(321)+JVS(3297)*UV(323)+JVS(3384)*UV(324)+JVS(3521)*UV(325)+JVS(3567)*UV(326)& - &+JVS(3741)*UV(328)+JVS(4175)*UV(335)+JVS(4484)*UV(337)+JVS(5333)*UV(346) - JTUV(320) = JVS(70)*UV(7)+JVS(294)*UV(34)+JVS(1242)*UV(188)+JVS(1735)*UV(244)+JVS(1755)*UV(246)+JVS(1816)*UV(251)& - &+JVS(2234)*UV(279)+JVS(2292)*UV(282)+JVS(2324)*UV(283)+JVS(2511)*UV(292)+JVS(3222)*UV(320)+JVS(3385)& - &*UV(324)+JVS(3522)*UV(325)+JVS(3568)*UV(326)+JVS(3742)*UV(328)+JVS(4176)*UV(335)+JVS(4485)*UV(337)& - &+JVS(5211)*UV(345)+JVS(5334)*UV(346) - JTUV(321) = JVS(71)*UV(7)+JVS(295)*UV(34)+JVS(719)*UV(95)+JVS(738)*UV(99)+JVS(1243)*UV(188)+JVS(2293)*UV(282)& - &+JVS(2325)*UV(283)+JVS(2705)*UV(298)+JVS(3243)*UV(321)+JVS(3386)*UV(324)+JVS(3523)*UV(325)+JVS(3743)& - &*UV(328)+JVS(4177)*UV(335)+JVS(4486)*UV(337)+JVS(5335)*UV(346) - JTUV(322) = JVS(72)*UV(7)+JVS(296)*UV(34)+JVS(864)*UV(124)+JVS(1036)*UV(155)+JVS(1151)*UV(173)+JVS(3134)*UV(315)& - &+JVS(3244)*UV(321)+JVS(3276)*UV(322)+JVS(3300)*UV(323)+JVS(3387)*UV(324)+JVS(3524)*UV(325)+JVS(3744)& - &*UV(328)+JVS(4178)*UV(335)+JVS(4487)*UV(337)+JVS(4791)*UV(341)+JVS(5213)*UV(345)+JVS(5336)*UV(346) - JTUV(323) = JVS(73)*UV(7)+JVS(297)*UV(34)+JVS(704)*UV(91)+JVS(742)*UV(100)+JVS(1244)*UV(188)+JVS(2294)*UV(282)& - &+JVS(2326)*UV(283)+JVS(2618)*UV(295)+JVS(3301)*UV(323)+JVS(3388)*UV(324)+JVS(3525)*UV(325)+JVS(3745)& - &*UV(328)+JVS(4179)*UV(335)+JVS(4488)*UV(337)+JVS(5337)*UV(346) - JTUV(324) = JVS(74)*UV(7)+JVS(298)*UV(34)+JVS(708)*UV(92)+JVS(890)*UV(129)+JVS(949)*UV(139)+JVS(978)*UV(145)+JVS(1152)& - &*UV(173)+JVS(1533)*UV(225)+JVS(1643)*UV(237)+JVS(1704)*UV(242)+JVS(1799)*UV(249)+JVS(1807)*UV(250)& - &+JVS(1852)*UV(255)+JVS(1874)*UV(256)+JVS(1887)*UV(257)+JVS(1923)*UV(260)+JVS(1952)*UV(262)+JVS(1986)& - &*UV(263)+JVS(2181)*UV(274)+JVS(2193)*UV(275)+JVS(2209)*UV(277)+JVS(2223)*UV(278)+JVS(2249)*UV(280)& - &+JVS(2260)*UV(281)+JVS(2327)*UV(283)+JVS(2467)*UV(289)+JVS(2483)*UV(291)+JVS(2512)*UV(292)+JVS(2587)& - &*UV(294)+JVS(2619)*UV(295)+JVS(2642)*UV(296)+JVS(2707)*UV(298)+JVS(2743)*UV(300)+JVS(2762)*UV(301)& - &+JVS(2961)*UV(307)+JVS(3006)*UV(309)+JVS(3018)*UV(310)+JVS(3030)*UV(311)+JVS(3082)*UV(313)+JVS(3113)& - &*UV(314)+JVS(3136)*UV(315)+JVS(3182)*UV(318)+JVS(3208)*UV(319)+JVS(3223)*UV(320)+JVS(3246)*UV(321)& - &+JVS(3278)*UV(322)+JVS(3302)*UV(323)+JVS(3389)*UV(324)+JVS(3526)*UV(325)+JVS(3572)*UV(326)+JVS(3746)& - &*UV(328)+JVS(4180)*UV(335)+JVS(4489)*UV(337)+JVS(4793)*UV(341)+JVS(5215)*UV(345)+JVS(5338)*UV(346) - JTUV(325) = JVS(409)*UV(35)+JVS(510)*UV(36)+JVS(696)*UV(89)+JVS(1472)*UV(217)+JVS(3527)*UV(325)+JVS(3663)*UV(327)& - &+JVS(3868)*UV(329)+JVS(4280)*UV(336)+JVS(4490)*UV(337)+JVS(4622)*UV(339)+JVS(4716)*UV(340)+JVS(4849)& - &*UV(342)+JVS(4909)*UV(343)+JVS(5216)*UV(345)+JVS(5412)*UV(348)+JVS(5585)*UV(351)+JVS(5626)*UV(352) - JTUV(326) = JVS(410)*UV(35)+JVS(511)*UV(36)+JVS(1565)*UV(228)+JVS(3390)*UV(324)+JVS(3528)*UV(325)+JVS(3573)*UV(326)& - &+JVS(3664)*UV(327)+JVS(3747)*UV(328)+JVS(3869)*UV(329)+JVS(4281)*UV(336)+JVS(4491)*UV(337)+JVS(4850)& - &*UV(342)+JVS(5217)*UV(345)+JVS(5586)*UV(351)+JVS(5627)*UV(352) - JTUV(327) = JVS(299)*UV(34)+JVS(609)*UV(64)+JVS(613)*UV(65)+JVS(1105)*UV(166)+JVS(1188)*UV(179)+JVS(3665)*UV(327)& - &+JVS(4182)*UV(335)+JVS(4282)*UV(336)+JVS(5218)*UV(345)+JVS(5587)*UV(351) - JTUV(328) = JVS(75)*UV(7)+JVS(300)*UV(34)+JVS(411)*UV(35)+JVS(512)*UV(36)+JVS(617)*UV(66)+JVS(668)*UV(80)+JVS(712)& - &*UV(93)+JVS(779)*UV(106)+JVS(796)*UV(110)+JVS(891)*UV(129)+JVS(899)*UV(130)+JVS(937)*UV(136)+JVS(979)& - &*UV(145)+JVS(1042)*UV(156)+JVS(1072)*UV(160)+JVS(1077)*UV(161)+JVS(1089)*UV(163)+JVS(1095)*UV(164)& - &+JVS(1120)*UV(169)+JVS(1245)*UV(188)+JVS(1341)*UV(203)+JVS(1465)*UV(216)+JVS(1511)*UV(222)+JVS(1534)& - &*UV(225)+JVS(1609)*UV(234)+JVS(1620)*UV(235)+JVS(1634)*UV(236)+JVS(1644)*UV(237)+JVS(1657)*UV(238)& - &+JVS(1705)*UV(242)+JVS(1800)*UV(249)+JVS(1808)*UV(250)+JVS(1853)*UV(255)+JVS(1875)*UV(256)+JVS(1888)& - &*UV(257)+JVS(1924)*UV(260)+JVS(1953)*UV(262)+JVS(1987)*UV(263)+JVS(2063)*UV(267)+JVS(2070)*UV(268)& - &+JVS(2147)*UV(272)+JVS(2160)*UV(273)+JVS(2182)*UV(274)+JVS(2194)*UV(275)+JVS(2210)*UV(277)+JVS(2224)& - &*UV(278)+JVS(2250)*UV(280)+JVS(2261)*UV(281)+JVS(2296)*UV(282)+JVS(2328)*UV(283)+JVS(2420)*UV(287)& - &+JVS(2453)*UV(288)+JVS(2468)*UV(289)+JVS(2484)*UV(291)+JVS(2513)*UV(292)+JVS(2588)*UV(294)+JVS(2620)& - &*UV(295)+JVS(2643)*UV(296)+JVS(2708)*UV(298)+JVS(2744)*UV(300)+JVS(2763)*UV(301)+JVS(2829)*UV(304)& - &+JVS(2843)*UV(305)+JVS(2900)*UV(306)+JVS(2962)*UV(307)+JVS(2983)*UV(308)+JVS(3007)*UV(309)+JVS(3019)& - &*UV(310)+JVS(3031)*UV(311)+JVS(3083)*UV(313)+JVS(3114)*UV(314)+JVS(3137)*UV(315)+JVS(3183)*UV(318)& - &+JVS(3209)*UV(319)+JVS(3224)*UV(320)+JVS(3247)*UV(321)+JVS(3279)*UV(322)+JVS(3303)*UV(323)+JVS(3391)& - &*UV(324)+JVS(3529)*UV(325)+JVS(3574)*UV(326)+JVS(3748)*UV(328)+JVS(3870)*UV(329)+JVS(4183)*UV(335)& - &+JVS(4492)*UV(337)+JVS(4546)*UV(338)+JVS(4718)*UV(340)+JVS(4797)*UV(341)+JVS(5219)*UV(345)+JVS(5341)& - &*UV(346)+JVS(5588)*UV(351) - JTUV(329) = JVS(76)*UV(7)+JVS(524)*UV(37)+JVS(1693)*UV(241)+JVS(3053)*UV(312)+JVS(3530)*UV(325)+JVS(3575)*UV(326)& - &+JVS(3871)*UV(329)+JVS(4493)*UV(337)+JVS(5220)*UV(345) - JTUV(330) = JVS(92)*UV(9)+JVS(100)*UV(10)+JVS(412)*UV(35)+JVS(657)*UV(77)+JVS(768)*UV(104)+JVS(2344)*UV(284)+JVS(3888)& - &*UV(330)+JVS(3917)*UV(331)+JVS(4285)*UV(336)+JVS(4946)*UV(344)+JVS(5221)*UV(345)+JVS(5443)*UV(349)& - &+JVS(5469)*UV(350)+JVS(5660)*UV(353) - JTUV(331) = JVS(601)*UV(62)+JVS(642)*UV(73)+JVS(1126)*UV(170)+JVS(1821)*UV(252)+JVS(2345)*UV(284)+JVS(3918)*UV(331)& - &+JVS(3937)*UV(332)+JVS(4186)*UV(335)+JVS(4495)*UV(337)+JVS(4799)*UV(341)+JVS(4854)*UV(342)+JVS(5344)& - &*UV(346)+JVS(5376)*UV(347)+JVS(5590)*UV(351) - JTUV(332) = JVS(93)*UV(9)+JVS(101)*UV(10)+JVS(413)*UV(35)+JVS(658)*UV(77)+JVS(769)*UV(104)+JVS(1127)*UV(170)+JVS(2346)& - &*UV(284)+JVS(3668)*UV(327)+JVS(3890)*UV(330)+JVS(3919)*UV(331)+JVS(3938)*UV(332)+JVS(4187)*UV(335)& - &+JVS(4287)*UV(336)+JVS(4948)*UV(344)+JVS(5445)*UV(349)+JVS(5471)*UV(350)+JVS(5591)*UV(351)+JVS(5662)& + JTUV(286) = JVS(54)*UV(7)+JVS(2331)*UV(286)+JVS(3812)*UV(334)+JVS(4217)*UV(340)+JVS(4742)*UV(343)+JVS(5369)*UV(352)& + &+JVS(5467)*UV(353) + JTUV(287) = JVS(92)*UV(9)+JVS(100)*UV(10)+JVS(404)*UV(38)+JVS(676)*UV(81)+JVS(783)*UV(107)+JVS(2359)*UV(287)+JVS(3633)& + &*UV(331)+JVS(3978)*UV(336)+JVS(4168)*UV(339)+JVS(4743)*UV(343)+JVS(5041)*UV(346)+JVS(5225)*UV(349)& + &+JVS(5252)*UV(350)+JVS(5468)*UV(353) + JTUV(288) = JVS(289)*UV(37)+JVS(511)*UV(39)+JVS(998)*UV(149)+JVS(1034)*UV(155)+JVS(1884)*UV(259)+JVS(2068)*UV(269)& + &+JVS(2141)*UV(274)+JVS(2383)*UV(288)+JVS(2971)*UV(311)+JVS(3926)*UV(335)+JVS(4109)*UV(338)+JVS(4421)& + &*UV(341)+JVS(4744)*UV(343)+JVS(4979)*UV(345) + JTUV(289) = JVS(290)*UV(37)+JVS(512)*UV(39)+JVS(925)*UV(135)+JVS(999)*UV(149)+JVS(1885)*UV(259)+JVS(2069)*UV(269)& + &+JVS(2404)*UV(289)+JVS(2618)*UV(298)+JVS(2901)*UV(309)+JVS(3927)*UV(335)+JVS(4110)*UV(338)+JVS(4422)& + &*UV(341)+JVS(4745)*UV(343)+JVS(4980)*UV(345) + JTUV(290) = JVS(55)*UV(7)+JVS(513)*UV(39)+JVS(1746)*UV(247)+JVS(2431)*UV(290)+JVS(2619)*UV(298)+JVS(2973)*UV(311)& + &+JVS(3531)*UV(329)+JVS(3928)*UV(335)+JVS(4423)*UV(341)+JVS(4746)*UV(343) + JTUV(291) = JVS(1402)*UV(211)+JVS(1575)*UV(230)+JVS(2464)*UV(291)+JVS(2620)*UV(298)+JVS(2902)*UV(309)+JVS(3394)& + &*UV(328)+JVS(3532)*UV(329)+JVS(4424)*UV(341)+JVS(4747)*UV(343) + JTUV(292) = JVS(291)*UV(37)+JVS(405)*UV(38)+JVS(1167)*UV(176)+JVS(1261)*UV(192)+JVS(1731)*UV(246)+JVS(1905)*UV(260)& + &+JVS(2229)*UV(280)+JVS(2297)*UV(285)+JVS(2484)*UV(292)+JVS(2524)*UV(295)+JVS(2729)*UV(302)+JVS(3395)& + &*UV(328)+JVS(3533)*UV(329)+JVS(3813)*UV(334)+JVS(4111)*UV(338)+JVS(4425)*UV(341)+JVS(4981)*UV(345)& + &+JVS(5165)*UV(348) + JTUV(293) = JVS(56)*UV(7)+JVS(406)*UV(38)+JVS(514)*UV(39)+JVS(1589)*UV(232)+JVS(1709)*UV(244)+JVS(1823)*UV(253)& + &+JVS(1951)*UV(264)+JVS(2493)*UV(293)+JVS(3108)*UV(317)+JVS(3534)*UV(329)+JVS(3596)*UV(330)+JVS(3814)& + &*UV(334)+JVS(3930)*UV(335)+JVS(4219)*UV(340)+JVS(4426)*UV(341)+JVS(4498)*UV(342)+JVS(4749)*UV(343)& + &+JVS(5166)*UV(348)+JVS(5372)*UV(352)+JVS(5534)*UV(354)+JVS(5650)*UV(356) + JTUV(294) = JVS(57)*UV(7)+JVS(292)*UV(37)+JVS(407)*UV(38)+JVS(1287)*UV(196)+JVS(1602)*UV(234)+JVS(1941)*UV(263)& + &+JVS(2299)*UV(285)+JVS(2333)*UV(286)+JVS(2501)*UV(294)+JVS(2568)*UV(297)+JVS(3140)*UV(318)+JVS(3397)& + &*UV(328)+JVS(3535)*UV(329)+JVS(3815)*UV(334)+JVS(4113)*UV(338)+JVS(4427)*UV(341)+JVS(4983)*UV(345)& + &+JVS(5167)*UV(348) + JTUV(295) = JVS(408)*UV(38)+JVS(2526)*UV(295)+JVS(3159)*UV(319)+JVS(3253)*UV(324)+JVS(3279)*UV(325)+JVS(3303)*UV(326)& + &+JVS(3327)*UV(327)+JVS(3398)*UV(328)+JVS(3725)*UV(333)+JVS(3816)*UV(334)+JVS(4751)*UV(343)+JVS(5168)& + &*UV(348)+JVS(5473)*UV(353) + JTUV(296) = JVS(93)*UV(9)+JVS(101)*UV(10)+JVS(409)*UV(38)+JVS(677)*UV(81)+JVS(784)*UV(107)+JVS(1139)*UV(172)+JVS(2360)& + &*UV(287)+JVS(2541)*UV(296)+JVS(3634)*UV(331)+JVS(3726)*UV(333)+JVS(3979)*UV(336)+JVS(4169)*UV(339)& + &+JVS(4984)*UV(345)+JVS(5042)*UV(346)+JVS(5169)*UV(348)+JVS(5226)*UV(349)+JVS(5253)*UV(350)+JVS(5474)& &*UV(353) - JTUV(333) = JVS(414)*UV(35)+JVS(533)*UV(38)+JVS(926)*UV(134)+JVS(1050)*UV(157)+JVS(1744)*UV(245)+JVS(3963)*UV(333)& - &+JVS(4288)*UV(336)+JVS(4551)*UV(338)+JVS(4628)*UV(339)+JVS(4723)*UV(340)+JVS(4949)*UV(344)+JVS(5224)& - &*UV(345)+JVS(5418)*UV(348)+JVS(5630)*UV(352)+JVS(5663)*UV(353) - JTUV(334) = JVS(415)*UV(35)+JVS(539)*UV(39)+JVS(564)*UV(46)+JVS(566)*UV(47)+JVS(568)*UV(48)+JVS(570)*UV(49)+JVS(572)& - &*UV(50)+JVS(574)*UV(51)+JVS(578)*UV(53)+JVS(580)*UV(54)+JVS(599)*UV(61)+JVS(605)*UV(63)+JVS(662)*UV(78)& - &+JVS(671)*UV(81)+JVS(680)*UV(84)+JVS(683)*UV(85)+JVS(686)*UV(86)+JVS(689)*UV(87)+JVS(774)*UV(105)+JVS(1198)& - &*UV(181)+JVS(1473)*UV(217)+JVS(1566)*UV(228)+JVS(1745)*UV(245)+JVS(3531)*UV(325)+JVS(3750)*UV(328)& - &+JVS(4014)*UV(334)+JVS(4289)*UV(336)+JVS(4497)*UV(337)+JVS(4552)*UV(338)+JVS(4629)*UV(339)+JVS(4724)& - &*UV(340)+JVS(4801)*UV(341)+JVS(4857)*UV(342)+JVS(4917)*UV(343)+JVS(5225)*UV(345)+JVS(5346)*UV(346)& - &+JVS(5378)*UV(347)+JVS(5631)*UV(352) - JTUV(335) = JVS(301)*UV(34)+JVS(416)*UV(35)+JVS(586)*UV(56)+JVS(589)*UV(57)+JVS(594)*UV(59)+JVS(606)*UV(63)+JVS(621)& - &*UV(67)+JVS(669)*UV(80)+JVS(701)*UV(90)+JVS(787)*UV(108)+JVS(811)*UV(113)+JVS(815)*UV(114)+JVS(857)*UV(122)& - &+JVS(865)*UV(124)+JVS(873)*UV(126)+JVS(950)*UV(139)+JVS(1134)*UV(171)+JVS(1140)*UV(172)+JVS(1215)*UV(184)& - &+JVS(1297)*UV(197)+JVS(1342)*UV(203)+JVS(1420)*UV(213)+JVS(1426)*UV(214)+JVS(1482)*UV(218)+JVS(1621)& - &*UV(235)+JVS(1635)*UV(236)+JVS(1670)*UV(239)+JVS(1686)*UV(240)+JVS(1694)*UV(241)+JVS(1756)*UV(246)& - &+JVS(1793)*UV(248)+JVS(1822)*UV(252)+JVS(1889)*UV(257)+JVS(1915)*UV(259)+JVS(2083)*UV(269)+JVS(2183)& - &*UV(274)+JVS(2347)*UV(284)+JVS(2789)*UV(302)+JVS(2984)*UV(308)+JVS(3054)*UV(312)+JVS(3165)*UV(317)& - &+JVS(3280)*UV(322)+JVS(3392)*UV(324)+JVS(3532)*UV(325)+JVS(3576)*UV(326)+JVS(3670)*UV(327)+JVS(3751)& - &*UV(328)+JVS(3920)*UV(331)+JVS(3939)*UV(332)+JVS(4189)*UV(335)+JVS(4498)*UV(337)+JVS(4553)*UV(338)& - &+JVS(4802)*UV(341)+JVS(4858)*UV(342)+JVS(4918)*UV(343)+JVS(5226)*UV(345)+JVS(5347)*UV(346)+JVS(5379)& - &*UV(347)+JVS(5593)*UV(351) - JTUV(336) = JVS(417)*UV(35)+JVS(547)*UV(40)+JVS(693)*UV(88)+JVS(1427)*UV(214)+JVS(1483)*UV(218)+JVS(1695)*UV(241)& - &+JVS(2001)*UV(264)+JVS(2034)*UV(265)+JVS(2331)*UV(283)+JVS(3055)*UV(312)+JVS(3150)*UV(316)+JVS(3166)& - &*UV(317)+JVS(3533)*UV(325)+JVS(3577)*UV(326)+JVS(3671)*UV(327)+JVS(3892)*UV(330)+JVS(3940)*UV(332)& - &+JVS(3966)*UV(333)+JVS(4016)*UV(334)+JVS(4291)*UV(336)+JVS(5227)*UV(345) - JTUV(337) = JVS(77)*UV(7)+JVS(104)*UV(11)+JVS(110)*UV(13)+JVS(121)*UV(16)+JVS(127)*UV(18)+JVS(134)*UV(20)+JVS(140)& - &*UV(22)+JVS(153)*UV(25)+JVS(159)*UV(27)+JVS(302)*UV(34)+JVS(418)*UV(35)+JVS(513)*UV(36)+JVS(548)*UV(40)& - &+JVS(618)*UV(66)+JVS(635)*UV(71)+JVS(639)*UV(72)+JVS(643)*UV(73)+JVS(647)*UV(74)+JVS(709)*UV(92)+JVS(731)& - &*UV(97)+JVS(735)*UV(98)+JVS(739)*UV(99)+JVS(743)*UV(100)+JVS(749)*UV(102)+JVS(788)*UV(108)+JVS(803)*UV(111)& - &+JVS(807)*UV(112)+JVS(832)*UV(117)+JVS(837)*UV(118)+JVS(852)*UV(121)+JVS(861)*UV(123)+JVS(869)*UV(125)& - &+JVS(900)*UV(130)+JVS(905)*UV(131)+JVS(910)*UV(132)+JVS(915)*UV(133)+JVS(932)*UV(135)+JVS(938)*UV(136)& - &+JVS(985)*UV(146)+JVS(1024)*UV(153)+JVS(1037)*UV(155)+JVS(1068)*UV(159)+JVS(1073)*UV(160)+JVS(1078)*UV(161)& - &+JVS(1096)*UV(164)+JVS(1101)*UV(165)+JVS(1121)*UV(169)+JVS(1135)*UV(171)+JVS(1141)*UV(172)+JVS(1153)& - &*UV(173)+JVS(1159)*UV(174)+JVS(1183)*UV(178)+JVS(1194)*UV(180)+JVS(1204)*UV(182)+JVS(1228)*UV(186)& - &+JVS(1232)*UV(187)+JVS(1251)*UV(189)+JVS(1258)*UV(190)+JVS(1267)*UV(192)+JVS(1290)*UV(196)+JVS(1298)& - &*UV(197)+JVS(1310)*UV(199)+JVS(1356)*UV(204)+JVS(1364)*UV(205)+JVS(1369)*UV(206)+JVS(1374)*UV(207)& - &+JVS(1386)*UV(208)+JVS(1391)*UV(209)+JVS(1401)*UV(210)+JVS(1412)*UV(212)+JVS(1421)*UV(213)+JVS(1466)& - &*UV(216)+JVS(1474)*UV(217)+JVS(1512)*UV(222)+JVS(1518)*UV(223)+JVS(1525)*UV(224)+JVS(1543)*UV(226)& - &+JVS(1572)*UV(229)+JVS(1593)*UV(232)+JVS(1610)*UV(234)+JVS(1622)*UV(235)+JVS(1636)*UV(236)+JVS(1645)& - &*UV(237)+JVS(1687)*UV(240)+JVS(1706)*UV(242)+JVS(1720)*UV(243)+JVS(1736)*UV(244)+JVS(1757)*UV(246)& - &+JVS(1778)*UV(247)+JVS(1794)*UV(248)+JVS(1801)*UV(249)+JVS(1809)*UV(250)+JVS(1817)*UV(251)+JVS(1835)& - &*UV(253)+JVS(1846)*UV(254)+JVS(1854)*UV(255)+JVS(1876)*UV(256)+JVS(1890)*UV(257)+JVS(1907)*UV(258)& - &+JVS(1916)*UV(259)+JVS(1925)*UV(260)+JVS(1943)*UV(261)+JVS(1988)*UV(263)+JVS(2002)*UV(264)+JVS(2129)& - &*UV(270)+JVS(2139)*UV(271)+JVS(2148)*UV(272)+JVS(2161)*UV(273)+JVS(2184)*UV(274)+JVS(2195)*UV(275)& - &+JVS(2211)*UV(277)+JVS(2226)*UV(278)+JVS(2237)*UV(279)+JVS(2251)*UV(280)+JVS(2262)*UV(281)+JVS(2332)& - &*UV(283)+JVS(2348)*UV(284)+JVS(2371)*UV(285)+JVS(2391)*UV(286)+JVS(2422)*UV(287)+JVS(2455)*UV(288)& - &+JVS(2469)*UV(289)+JVS(2485)*UV(291)+JVS(2530)*UV(293)+JVS(2590)*UV(294)+JVS(2645)*UV(296)+JVS(2710)& - &*UV(298)+JVS(2735)*UV(299)+JVS(2745)*UV(300)+JVS(2790)*UV(302)+JVS(2818)*UV(303)+JVS(2830)*UV(304)& - &+JVS(2844)*UV(305)+JVS(2902)*UV(306)+JVS(2964)*UV(307)+JVS(2985)*UV(308)+JVS(3008)*UV(309)+JVS(3020)& - &*UV(310)+JVS(3032)*UV(311)+JVS(3085)*UV(313)+JVS(3115)*UV(314)+JVS(3139)*UV(315)+JVS(3151)*UV(316)& - &+JVS(3185)*UV(318)+JVS(3211)*UV(319)+JVS(3226)*UV(320)+JVS(3249)*UV(321)+JVS(3281)*UV(322)+JVS(3305)& - &*UV(323)+JVS(3393)*UV(324)+JVS(3534)*UV(325)+JVS(3578)*UV(326)+JVS(3753)*UV(328)+JVS(3875)*UV(329)& - &+JVS(3893)*UV(330)+JVS(3922)*UV(331)+JVS(3967)*UV(333)+JVS(4191)*UV(335)+JVS(4292)*UV(336)+JVS(4500)& - &*UV(337)+JVS(4555)*UV(338)+JVS(4632)*UV(339)+JVS(4727)*UV(340)+JVS(4804)*UV(341)+JVS(4860)*UV(342)& - &+JVS(4920)*UV(343)+JVS(5228)*UV(345)+JVS(5349)*UV(346)+JVS(5381)*UV(347)+JVS(5595)*UV(351)+JVS(5634)& - &*UV(352) - JTUV(338) = JVS(419)*UV(35)+JVS(653)*UV(76)+JVS(770)*UV(104)+JVS(797)*UV(110)+JVS(846)*UV(120)+JVS(1051)*UV(157)& - &+JVS(1746)*UV(245)+JVS(2349)*UV(284)+JVS(3167)*UV(317)+JVS(3535)*UV(325)+JVS(3754)*UV(328)+JVS(3923)& - &*UV(331)+JVS(3968)*UV(333)+JVS(4192)*UV(335)+JVS(4501)*UV(337)+JVS(4556)*UV(338)+JVS(4633)*UV(339)& - &+JVS(4728)*UV(340)+JVS(4861)*UV(342)+JVS(4921)*UV(343)+JVS(5229)*UV(345)+JVS(5350)*UV(346)+JVS(5382)& - &*UV(347) - JTUV(339) = JVS(420)*UV(35)+JVS(1052)*UV(157)+JVS(1106)*UV(166)+JVS(1189)*UV(179)+JVS(1428)*UV(214)+JVS(1475)*UV(217)& - &+JVS(1484)*UV(218)+JVS(1671)*UV(239)+JVS(1747)*UV(245)+JVS(2656)*UV(297)+JVS(3152)*UV(316)+JVS(3168)& - &*UV(317)+JVS(3674)*UV(327)+JVS(3969)*UV(333)+JVS(4019)*UV(334)+JVS(4294)*UV(336)+JVS(4557)*UV(338)& - &+JVS(4634)*UV(339)+JVS(4729)*UV(340)+JVS(4922)*UV(343)+JVS(4955)*UV(344)+JVS(5230)*UV(345)+JVS(5669)& + JTUV(297) = JVS(515)*UV(39)+JVS(2569)*UV(297)+JVS(3077)*UV(316)+JVS(3399)*UV(328)+JVS(3817)*UV(334)+JVS(3931)*UV(335)& + &+JVS(4221)*UV(340)+JVS(4500)*UV(342)+JVS(4753)*UV(343)+JVS(5375)*UV(352)+JVS(5475)*UV(353)+JVS(5535)& + &*UV(354) + JTUV(298) = JVS(172)*UV(30)+JVS(410)*UV(38)+JVS(516)*UV(39)+JVS(2622)*UV(298)+JVS(3400)*UV(328)+JVS(3727)*UV(333)& + &+JVS(3932)*UV(335)+JVS(4428)*UV(341)+JVS(4754)*UV(343)+JVS(5170)*UV(348) + JTUV(299) = JVS(293)*UV(37)+JVS(1491)*UV(220)+JVS(1780)*UV(249)+JVS(1966)*UV(265)+JVS(2651)*UV(299)+JVS(2759)*UV(303)& + &+JVS(2810)*UV(306)+JVS(2842)*UV(307)+JVS(2904)*UV(309)+JVS(2977)*UV(311)+JVS(3536)*UV(329)+JVS(4114)& + &*UV(338)+JVS(4429)*UV(341)+JVS(4755)*UV(343)+JVS(4985)*UV(345) + JTUV(300) = JVS(58)*UV(7)+JVS(294)*UV(37)+JVS(692)*UV(86)+JVS(851)*UV(121)+JVS(1027)*UV(154)+JVS(2300)*UV(285)& + &+JVS(2334)*UV(286)+JVS(2672)*UV(300)+JVS(3402)*UV(328)+JVS(3537)*UV(329)+JVS(3597)*UV(330)+JVS(3818)& + &*UV(334)+JVS(4115)*UV(338)+JVS(4430)*UV(341)+JVS(4829)*UV(344)+JVS(4986)*UV(345)+JVS(5376)*UV(352) + JTUV(301) = JVS(295)*UV(37)+JVS(411)*UV(38)+JVS(1064)*UV(160)+JVS(1665)*UV(240)+JVS(1758)*UV(248)+JVS(2686)*UV(301)& + &+JVS(3653)*UV(332)+JVS(4170)*UV(339)+JVS(4223)*UV(340)+JVS(4757)*UV(343)+JVS(4987)*UV(345)+JVS(5043)& + &*UV(346)+JVS(5227)*UV(349)+JVS(5254)*UV(350)+JVS(5377)*UV(352)+JVS(5536)*UV(354) + JTUV(302) = JVS(412)*UV(38)+JVS(517)*UV(39)+JVS(2732)*UV(302)+JVS(3161)*UV(319)+JVS(3280)*UV(325)+JVS(3304)*UV(326)& + &+JVS(3328)*UV(327)+JVS(3729)*UV(333)+JVS(3934)*UV(335)+JVS(4431)*UV(341)+JVS(4758)*UV(343)+JVS(5172)& + &*UV(348)+JVS(5478)*UV(353) + JTUV(303) = JVS(413)*UV(38)+JVS(778)*UV(106)+JVS(987)*UV(147)+JVS(1198)*UV(181)+JVS(2760)*UV(303)+JVS(2788)*UV(305)& + &+JVS(2843)*UV(307)+JVS(2905)*UV(309)+JVS(2978)*UV(311)+JVS(3028)*UV(313)+JVS(3141)*UV(318)+JVS(3538)& + &*UV(329)+JVS(4432)*UV(341)+JVS(4759)*UV(343)+JVS(4988)*UV(345) + JTUV(304) = JVS(59)*UV(7)+JVS(296)*UV(37)+JVS(760)*UV(104)+JVS(1262)*UV(192)+JVS(2266)*UV(283)+JVS(2301)*UV(285)& + &+JVS(2335)*UV(286)+JVS(2527)*UV(295)+JVS(2570)*UV(297)+JVS(2733)*UV(302)+JVS(2775)*UV(304)+JVS(3162)& + &*UV(319)+JVS(3305)*UV(326)+JVS(3329)*UV(327)+JVS(3404)*UV(328)+JVS(3539)*UV(329)+JVS(3598)*UV(330)& + &+JVS(3819)*UV(334)+JVS(4118)*UV(338)+JVS(4433)*UV(341)+JVS(4989)*UV(345) + JTUV(305) = JVS(518)*UV(39)+JVS(858)*UV(122)+JVS(1146)*UV(173)+JVS(1152)*UV(174)+JVS(1219)*UV(185)+JVS(1251)*UV(190)& + &+JVS(1295)*UV(197)+JVS(1467)*UV(218)+JVS(1492)*UV(220)+JVS(2789)*UV(305)+JVS(2812)*UV(306)+JVS(3937)& + &*UV(335)+JVS(4434)*UV(341)+JVS(4761)*UV(343)+JVS(4990)*UV(345) + JTUV(306) = JVS(297)*UV(37)+JVS(414)*UV(38)+JVS(779)*UV(106)+JVS(824)*UV(116)+JVS(1577)*UV(230)+JVS(1969)*UV(265)& + &+JVS(2041)*UV(268)+JVS(2626)*UV(298)+JVS(2813)*UV(306)+JVS(2907)*UV(309)+JVS(3406)*UV(328)+JVS(3541)& + &*UV(329)+JVS(4435)*UV(341)+JVS(4762)*UV(343)+JVS(4991)*UV(345)+JVS(5176)*UV(348) + JTUV(307) = JVS(415)*UV(38)+JVS(780)*UV(106)+JVS(1220)*UV(185)+JVS(1296)*UV(197)+JVS(1422)*UV(214)+JVS(1747)*UV(247)& + &+JVS(1806)*UV(251)+JVS(1970)*UV(265)+JVS(2070)*UV(269)+JVS(2433)*UV(290)+JVS(2653)*UV(299)+JVS(2814)& + &*UV(306)+JVS(2844)*UV(307)+JVS(2908)*UV(309)+JVS(2980)*UV(311)+JVS(3542)*UV(329)+JVS(4436)*UV(341)& + &+JVS(4763)*UV(343)+JVS(4992)*UV(345) + JTUV(308) = JVS(60)*UV(7)+JVS(298)*UV(37)+JVS(416)*UV(38)+JVS(988)*UV(147)+JVS(1526)*UV(225)+JVS(2084)*UV(271)& + &+JVS(2302)*UV(285)+JVS(2762)*UV(303)+JVS(2791)*UV(305)+JVS(2857)*UV(308)+JVS(2927)*UV(310)+JVS(3030)& + &*UV(313)+JVS(3143)*UV(318)+JVS(3408)*UV(328)+JVS(3543)*UV(329)+JVS(3820)*UV(334)+JVS(4121)*UV(338)& + &+JVS(4437)*UV(341)+JVS(4764)*UV(343)+JVS(4993)*UV(345)+JVS(5178)*UV(348) + JTUV(309) = JVS(61)*UV(7)+JVS(417)*UV(38)+JVS(519)*UV(39)+JVS(1436)*UV(216)+JVS(2043)*UV(268)+JVS(2148)*UV(274)& + &+JVS(2303)*UV(285)+JVS(2910)*UV(309)+JVS(3544)*UV(329)+JVS(3736)*UV(333)+JVS(3941)*UV(335)+JVS(4438)& + &*UV(341)+JVS(4765)*UV(343)+JVS(5179)*UV(348) + JTUV(310) = JVS(62)*UV(7)+JVS(299)*UV(37)+JVS(418)*UV(38)+JVS(989)*UV(147)+JVS(1236)*UV(188)+JVS(1527)*UV(225)& + &+JVS(2078)*UV(270)+JVS(2085)*UV(271)+JVS(2304)*UV(285)+JVS(2763)*UV(303)+JVS(2792)*UV(305)+JVS(2858)& + &*UV(308)+JVS(2928)*UV(310)+JVS(3031)*UV(313)+JVS(3144)*UV(318)+JVS(3409)*UV(328)+JVS(3545)*UV(329)& + &+JVS(3821)*UV(334)+JVS(4123)*UV(338)+JVS(4439)*UV(341)+JVS(4995)*UV(345)+JVS(5180)*UV(348) + JTUV(311) = JVS(63)*UV(7)+JVS(520)*UV(39)+JVS(2044)*UV(268)+JVS(2336)*UV(286)+JVS(2630)*UV(298)+JVS(2983)*UV(311)& + &+JVS(3410)*UV(328)+JVS(3546)*UV(329)+JVS(3822)*UV(334)+JVS(3943)*UV(335)+JVS(4440)*UV(341)+JVS(4767)& + &*UV(343) + JTUV(312) = JVS(64)*UV(7)+JVS(300)*UV(37)+JVS(419)*UV(38)+JVS(1241)*UV(189)+JVS(1493)*UV(220)+JVS(1807)*UV(251)& + &+JVS(2984)*UV(311)+JVS(3007)*UV(312)+JVS(3547)*UV(329)+JVS(3823)*UV(334)+JVS(4124)*UV(338)+JVS(4441)& + &*UV(341)+JVS(4768)*UV(343)+JVS(4996)*UV(345)+JVS(5182)*UV(348)+JVS(5654)*UV(356) + JTUV(313) = JVS(420)*UV(38)+JVS(521)*UV(39)+JVS(1749)*UV(247)+JVS(1786)*UV(249)+JVS(1859)*UV(257)+JVS(1931)*UV(262)& + &+JVS(2632)*UV(298)+JVS(3032)*UV(313)+JVS(3109)*UV(317)+JVS(3412)*UV(328)+JVS(3548)*UV(329)+JVS(3740)& + &*UV(333)+JVS(3945)*UV(335)+JVS(4442)*UV(341)+JVS(4769)*UV(343)+JVS(5183)*UV(348)+JVS(5655)*UV(356) + JTUV(314) = JVS(301)*UV(37)+JVS(522)*UV(39)+JVS(1004)*UV(150)+JVS(1157)*UV(175)+JVS(1254)*UV(191)+JVS(1413)*UV(213)& + &+JVS(1423)*UV(214)+JVS(1598)*UV(233)+JVS(1693)*UV(242)+JVS(2079)*UV(270)+JVS(2437)*UV(290)+JVS(2469)& + &*UV(291)+JVS(2633)*UV(298)+JVS(3033)*UV(313)+JVS(3048)*UV(314)+JVS(3063)*UV(315)+JVS(3145)*UV(318)& + &+JVS(3413)*UV(328)+JVS(3549)*UV(329)+JVS(3825)*UV(334)+JVS(3946)*UV(335)+JVS(4126)*UV(338)+JVS(4443)& + &*UV(341)+JVS(4770)*UV(343)+JVS(4998)*UV(345) + JTUV(315) = JVS(302)*UV(37)+JVS(523)*UV(39)+JVS(1009)*UV(151)+JVS(1173)*UV(177)+JVS(1283)*UV(195)+JVS(1326)*UV(202)& + &+JVS(1585)*UV(231)+JVS(1694)*UV(242)+JVS(1750)*UV(247)+JVS(2086)*UV(271)+JVS(2438)*UV(290)+JVS(2470)& + &*UV(291)+JVS(2634)*UV(298)+JVS(3034)*UV(313)+JVS(3049)*UV(314)+JVS(3064)*UV(315)+JVS(3146)*UV(318)& + &+JVS(3550)*UV(329)+JVS(3826)*UV(334)+JVS(3947)*UV(335)+JVS(4127)*UV(338)+JVS(4444)*UV(341)+JVS(4771)& + &*UV(343)+JVS(4999)*UV(345) + JTUV(316) = JVS(65)*UV(7)+JVS(303)*UV(37)+JVS(1751)*UV(247)+JVS(2305)*UV(285)+JVS(2337)*UV(286)+JVS(2635)*UV(298)& + &+JVS(2988)*UV(311)+JVS(3086)*UV(316)+JVS(3415)*UV(328)+JVS(3551)*UV(329)+JVS(3827)*UV(334)+JVS(4128)& + &*UV(338)+JVS(4445)*UV(341)+JVS(4772)*UV(343)+JVS(5000)*UV(345) + JTUV(317) = JVS(66)*UV(7)+JVS(181)*UV(32)+JVS(304)*UV(37)+JVS(421)*UV(38)+JVS(538)*UV(40)+JVS(546)*UV(41)+JVS(561)& + &*UV(43)+JVS(711)*UV(92)+JVS(977)*UV(146)+JVS(2014)*UV(267)+JVS(2049)*UV(268)+JVS(3112)*UV(317)+JVS(3552)& + &*UV(329)+JVS(3949)*UV(335)+JVS(4129)*UV(338)+JVS(5001)*UV(345)+JVS(5187)*UV(348)+JVS(5492)*UV(353)& + &+JVS(5582)*UV(355)+JVS(5658)*UV(356) + JTUV(318) = JVS(422)*UV(38)+JVS(524)*UV(39)+JVS(562)*UV(43)+JVS(825)*UV(116)+JVS(1871)*UV(258)+JVS(2015)*UV(267)& + &+JVS(2494)*UV(293)+JVS(2636)*UV(298)+JVS(3113)*UV(317)+JVS(3147)*UV(318)+JVS(3282)*UV(325)+JVS(3416)& + &*UV(328)+JVS(3553)*UV(329)+JVS(3828)*UV(334)+JVS(3950)*UV(335)+JVS(4447)*UV(341)+JVS(4774)*UV(343)& + &+JVS(5659)*UV(356) + JTUV(319) = JVS(67)*UV(7)+JVS(305)*UV(37)+JVS(852)*UV(121)+JVS(1028)*UV(154)+JVS(2306)*UV(285)+JVS(2338)*UV(286)& + &+JVS(3164)*UV(319)+JVS(3417)*UV(328)+JVS(3554)*UV(329)+JVS(3600)*UV(330)+JVS(3829)*UV(334)+JVS(4131)& + &*UV(338)+JVS(4448)*UV(341)+JVS(4831)*UV(344)+JVS(5003)*UV(345)+JVS(5393)*UV(352) + JTUV(320) = JVS(423)*UV(38)+JVS(547)*UV(41)+JVS(978)*UV(146)+JVS(1019)*UV(153)+JVS(1065)*UV(160)+JVS(3183)*UV(320)& + &+JVS(4171)*UV(339)+JVS(4240)*UV(340)+JVS(4504)*UV(342)+JVS(4776)*UV(343)+JVS(5044)*UV(346)+JVS(5079)& + &*UV(347)+JVS(5228)*UV(349)+JVS(5255)*UV(350)+JVS(5306)*UV(351)+JVS(5495)*UV(353)+JVS(5539)*UV(354)& + &+JVS(5584)*UV(355) + JTUV(321) = JVS(306)*UV(37)+JVS(424)*UV(38)+JVS(1066)*UV(160)+JVS(1759)*UV(248)+JVS(3199)*UV(321)+JVS(3654)*UV(332)& + &+JVS(3745)*UV(333)+JVS(4172)*UV(339)+JVS(4241)*UV(340)+JVS(4777)*UV(343)+JVS(4832)*UV(344)+JVS(5004)& + &*UV(345)+JVS(5045)*UV(346)+JVS(5189)*UV(348)+JVS(5229)*UV(349)+JVS(5256)*UV(350)+JVS(5307)*UV(351)& + &+JVS(5395)*UV(352)+JVS(5496)*UV(353)+JVS(5540)*UV(354) + JTUV(322) = JVS(68)*UV(7)+JVS(307)*UV(37)+JVS(1263)*UV(192)+JVS(1838)*UV(255)+JVS(2307)*UV(285)+JVS(2339)*UV(286)& + &+JVS(2735)*UV(302)+JVS(3214)*UV(322)+JVS(3240)*UV(323)+JVS(3418)*UV(328)+JVS(3555)*UV(329)+JVS(3601)& + &*UV(330)+JVS(3830)*UV(334)+JVS(4132)*UV(338)+JVS(4449)*UV(341)+JVS(5005)*UV(345) + JTUV(323) = JVS(69)*UV(7)+JVS(308)*UV(37)+JVS(742)*UV(99)+JVS(1264)*UV(192)+JVS(1839)*UV(255)+JVS(2308)*UV(285)& + &+JVS(2340)*UV(286)+JVS(2529)*UV(295)+JVS(2572)*UV(297)+JVS(2736)*UV(302)+JVS(3166)*UV(319)+JVS(3241)& + &*UV(323)+JVS(3308)*UV(326)+JVS(3332)*UV(327)+JVS(3419)*UV(328)+JVS(3556)*UV(329)+JVS(3602)*UV(330)& + &+JVS(3831)*UV(334)+JVS(4133)*UV(338)+JVS(4450)*UV(341)+JVS(5006)*UV(345) + JTUV(324) = JVS(70)*UV(7)+JVS(309)*UV(37)+JVS(1265)*UV(192)+JVS(1752)*UV(247)+JVS(1794)*UV(250)+JVS(1840)*UV(255)& + &+JVS(2267)*UV(283)+JVS(2309)*UV(285)+JVS(2341)*UV(286)+JVS(2530)*UV(295)+JVS(3257)*UV(324)+JVS(3420)& + &*UV(328)+JVS(3557)*UV(329)+JVS(3603)*UV(330)+JVS(3832)*UV(334)+JVS(4134)*UV(338)+JVS(4451)*UV(341)& + &+JVS(4780)*UV(343)+JVS(5007)*UV(345) + JTUV(325) = JVS(71)*UV(7)+JVS(310)*UV(37)+JVS(880)*UV(127)+JVS(1053)*UV(158)+JVS(1168)*UV(176)+JVS(3168)*UV(319)& + &+JVS(3286)*UV(325)+JVS(3310)*UV(326)+JVS(3334)*UV(327)+JVS(3421)*UV(328)+JVS(3558)*UV(329)+JVS(3833)& + &*UV(334)+JVS(4135)*UV(338)+JVS(4452)*UV(341)+JVS(4781)*UV(343)+JVS(5008)*UV(345)+JVS(5661)*UV(356) + JTUV(326) = JVS(72)*UV(7)+JVS(311)*UV(37)+JVS(731)*UV(97)+JVS(750)*UV(101)+JVS(1266)*UV(192)+JVS(2310)*UV(285)& + &+JVS(2342)*UV(286)+JVS(2738)*UV(302)+JVS(3311)*UV(326)+JVS(3422)*UV(328)+JVS(3559)*UV(329)+JVS(3834)& + &*UV(334)+JVS(4136)*UV(338)+JVS(4453)*UV(341)+JVS(5009)*UV(345) + JTUV(327) = JVS(73)*UV(7)+JVS(312)*UV(37)+JVS(719)*UV(94)+JVS(754)*UV(102)+JVS(1267)*UV(192)+JVS(2311)*UV(285)& + &+JVS(2343)*UV(286)+JVS(2574)*UV(297)+JVS(3336)*UV(327)+JVS(3423)*UV(328)+JVS(3560)*UV(329)+JVS(3835)& + &*UV(334)+JVS(4137)*UV(338)+JVS(4454)*UV(341)+JVS(5010)*UV(345) + JTUV(328) = JVS(74)*UV(7)+JVS(313)*UV(37)+JVS(723)*UV(95)+JVS(906)*UV(132)+JVS(961)*UV(143)+JVS(990)*UV(147)+JVS(1169)& + &*UV(176)+JVS(1543)*UV(227)+JVS(1681)*UV(241)+JVS(1733)*UV(246)+JVS(1816)*UV(252)+JVS(1824)*UV(253)& + &+JVS(1847)*UV(256)+JVS(1906)*UV(260)+JVS(1919)*UV(261)+JVS(1942)*UV(263)+JVS(1952)*UV(264)+JVS(2003)& + &*UV(266)+JVS(2176)*UV(276)+JVS(2198)*UV(277)+JVS(2231)*UV(280)+JVS(2242)*UV(281)+JVS(2256)*UV(282)& + &+JVS(2277)*UV(284)+JVS(2344)*UV(286)+JVS(2486)*UV(292)+JVS(2502)*UV(294)+JVS(2531)*UV(295)+JVS(2575)& + &*UV(297)+JVS(2638)*UV(298)+JVS(2675)*UV(300)+JVS(2740)*UV(302)+JVS(2776)*UV(304)+JVS(2795)*UV(305)& + &+JVS(2859)*UV(308)+JVS(2929)*UV(310)+JVS(2990)*UV(311)+JVS(3035)*UV(313)+JVS(3091)*UV(316)+JVS(3148)& + &*UV(318)+JVS(3171)*UV(319)+JVS(3217)*UV(322)+JVS(3243)*UV(323)+JVS(3258)*UV(324)+JVS(3289)*UV(325)& + &+JVS(3313)*UV(326)+JVS(3337)*UV(327)+JVS(3424)*UV(328)+JVS(3561)*UV(329)+JVS(3607)*UV(330)+JVS(3836)& + &*UV(334)+JVS(4138)*UV(338)+JVS(4455)*UV(341)+JVS(4784)*UV(343)+JVS(5011)*UV(345)+JVS(5664)*UV(356) + JTUV(329) = JVS(193)*UV(34)+JVS(199)*UV(35)+JVS(425)*UV(38)+JVS(525)*UV(39)+JVS(715)*UV(93)+JVS(1477)*UV(219)& + &+JVS(3562)*UV(329)+JVS(3752)*UV(333)+JVS(3958)*UV(335)+JVS(4249)*UV(340)+JVS(4456)*UV(341)+JVS(4511)& + &*UV(342)+JVS(4785)*UV(343)+JVS(5197)*UV(348)+JVS(5309)*UV(351)+JVS(5403)*UV(352)+JVS(5504)*UV(353)& + &+JVS(5546)*UV(354)+JVS(5586)*UV(355) + JTUV(330) = JVS(426)*UV(38)+JVS(526)*UV(39)+JVS(1590)*UV(232)+JVS(3425)*UV(328)+JVS(3563)*UV(329)+JVS(3608)*UV(330)& + &+JVS(3753)*UV(333)+JVS(3837)*UV(334)+JVS(3959)*UV(335)+JVS(4457)*UV(341)+JVS(4512)*UV(342)+JVS(4786)& + &*UV(343)+JVS(5198)*UV(348)+JVS(5505)*UV(353)+JVS(5547)*UV(354) + JTUV(331) = JVS(617)*UV(65)+JVS(654)*UV(75)+JVS(1140)*UV(172)+JVS(1831)*UV(254)+JVS(2542)*UV(296)+JVS(3635)*UV(331)& + &+JVS(3980)*UV(336)+JVS(4140)*UV(338)+JVS(4458)*UV(341)+JVS(4513)*UV(342)+JVS(5013)*UV(345)+JVS(5080)& + &*UV(347)+JVS(5199)*UV(348)+JVS(5667)*UV(356) + JTUV(332) = JVS(427)*UV(38)+JVS(548)*UV(41)+JVS(980)*UV(146)+JVS(1067)*UV(160)+JVS(1760)*UV(248)+JVS(3655)*UV(332)& + &+JVS(4174)*UV(339)+JVS(4251)*UV(340)+JVS(4788)*UV(343)+JVS(4841)*UV(344)+JVS(5047)*UV(346)+JVS(5406)& + &*UV(352)+JVS(5507)*UV(353)+JVS(5548)*UV(354)+JVS(5588)*UV(355) + JTUV(333) = JVS(314)*UV(37)+JVS(625)*UV(67)+JVS(629)*UV(68)+JVS(1122)*UV(169)+JVS(1210)*UV(183)+JVS(3755)*UV(333)& + &+JVS(4789)*UV(343)+JVS(5014)*UV(345)+JVS(5200)*UV(348)+JVS(5508)*UV(353) + JTUV(334) = JVS(75)*UV(7)+JVS(315)*UV(37)+JVS(428)*UV(38)+JVS(527)*UV(39)+JVS(633)*UV(69)+JVS(684)*UV(83)+JVS(727)& + &*UV(96)+JVS(815)*UV(114)+JVS(841)*UV(119)+JVS(907)*UV(132)+JVS(920)*UV(134)+JVS(941)*UV(138)+JVS(991)& + &*UV(147)+JVS(1029)*UV(154)+JVS(1089)*UV(163)+JVS(1094)*UV(164)+JVS(1106)*UV(166)+JVS(1112)*UV(167)& + &+JVS(1133)*UV(171)+JVS(1268)*UV(192)+JVS(1358)*UV(206)+JVS(1494)*UV(220)+JVS(1528)*UV(225)+JVS(1544)& + &*UV(227)+JVS(1626)*UV(237)+JVS(1640)*UV(238)+JVS(1652)*UV(239)+JVS(1682)*UV(241)+JVS(1695)*UV(242)& + &+JVS(1734)*UV(246)+JVS(1817)*UV(252)+JVS(1825)*UV(253)+JVS(1848)*UV(256)+JVS(1907)*UV(260)+JVS(1920)& + &*UV(261)+JVS(1943)*UV(263)+JVS(1953)*UV(264)+JVS(2004)*UV(266)+JVS(2080)*UV(270)+JVS(2087)*UV(271)& + &+JVS(2166)*UV(275)+JVS(2177)*UV(276)+JVS(2199)*UV(277)+JVS(2211)*UV(278)+JVS(2232)*UV(280)+JVS(2243)& + &*UV(281)+JVS(2257)*UV(282)+JVS(2278)*UV(284)+JVS(2313)*UV(285)+JVS(2345)*UV(286)+JVS(2439)*UV(290)& + &+JVS(2472)*UV(291)+JVS(2487)*UV(292)+JVS(2503)*UV(294)+JVS(2532)*UV(295)+JVS(2576)*UV(297)+JVS(2639)& + &*UV(298)+JVS(2676)*UV(300)+JVS(2741)*UV(302)+JVS(2777)*UV(304)+JVS(2796)*UV(305)+JVS(2860)*UV(308)& + &+JVS(2917)*UV(309)+JVS(2930)*UV(310)+JVS(2991)*UV(311)+JVS(3012)*UV(312)+JVS(3036)*UV(313)+JVS(3051)& + &*UV(314)+JVS(3066)*UV(315)+JVS(3092)*UV(316)+JVS(3149)*UV(318)+JVS(3172)*UV(319)+JVS(3218)*UV(322)& + &+JVS(3244)*UV(323)+JVS(3259)*UV(324)+JVS(3290)*UV(325)+JVS(3314)*UV(326)+JVS(3338)*UV(327)+JVS(3426)& + &*UV(328)+JVS(3564)*UV(329)+JVS(3609)*UV(330)+JVS(3838)*UV(334)+JVS(3960)*UV(335)+JVS(4142)*UV(338)& + &+JVS(4459)*UV(341)+JVS(4790)*UV(343)+JVS(4842)*UV(344)+JVS(5015)*UV(345)+JVS(5201)*UV(348)+JVS(5407)& + &*UV(352)+JVS(5669)*UV(356) + JTUV(335) = JVS(76)*UV(7)+JVS(539)*UV(40)+JVS(1710)*UV(244)+JVS(3116)*UV(317)+JVS(3565)*UV(329)+JVS(3610)*UV(330)& + &+JVS(3961)*UV(335)+JVS(4460)*UV(341)+JVS(4791)*UV(343) + JTUV(336) = JVS(429)*UV(38)+JVS(574)*UV(47)+JVS(599)*UV(58)+JVS(738)*UV(98)+JVS(785)*UV(107)+JVS(861)*UV(123)& + &+JVS(2362)*UV(287)+JVS(2543)*UV(296)+JVS(3636)*UV(331)+JVS(3981)*UV(336)+JVS(4144)*UV(338)+JVS(4461)& + &*UV(341)+JVS(4517)*UV(342)+JVS(4844)*UV(344)+JVS(5017)*UV(345)+JVS(5081)*UV(347)+JVS(5314)*UV(351)& + &+JVS(5409)*UV(352) + JTUV(337) = JVS(430)*UV(38)+JVS(555)*UV(42)+JVS(580)*UV(49)+JVS(582)*UV(50)+JVS(584)*UV(51)+JVS(586)*UV(52)+JVS(588)& + &*UV(53)+JVS(590)*UV(54)+JVS(594)*UV(56)+JVS(596)*UV(57)+JVS(615)*UV(64)+JVS(621)*UV(66)+JVS(669)*UV(79)& + &+JVS(681)*UV(82)+JVS(699)*UV(88)+JVS(702)*UV(89)+JVS(705)*UV(90)+JVS(708)*UV(91)+JVS(790)*UV(108)+JVS(1215)& + &*UV(184)+JVS(1478)*UV(219)+JVS(1591)*UV(232)+JVS(1762)*UV(248)+JVS(3566)*UV(329)+JVS(3840)*UV(334)& + &+JVS(4026)*UV(337)+JVS(4145)*UV(338)+JVS(4256)*UV(340)+JVS(4462)*UV(341)+JVS(4518)*UV(342)+JVS(4793)& + &*UV(343)+JVS(4845)*UV(344)+JVS(5082)*UV(347)+JVS(5315)*UV(351)+JVS(5410)*UV(352)+JVS(5512)*UV(353)& + &+JVS(5552)*UV(354)+JVS(5672)*UV(356) + JTUV(338) = JVS(77)*UV(7)+JVS(107)*UV(12)+JVS(110)*UV(13)+JVS(124)*UV(17)+JVS(127)*UV(18)+JVS(137)*UV(21)+JVS(140)& + &*UV(22)+JVS(156)*UV(26)+JVS(159)*UV(27)+JVS(316)*UV(37)+JVS(528)*UV(39)+JVS(618)*UV(65)+JVS(637)*UV(70)& + &+JVS(647)*UV(73)+JVS(693)*UV(86)+JVS(720)*UV(94)+JVS(728)*UV(96)+JVS(732)*UV(97)+JVS(739)*UV(98)+JVS(816)& + &*UV(114)+JVS(830)*UV(117)+JVS(868)*UV(124)+JVS(893)*UV(130)+JVS(908)*UV(132)+JVS(915)*UV(133)+JVS(926)& + &*UV(135)+JVS(931)*UV(136)+JVS(936)*UV(137)+JVS(946)*UV(139)+JVS(954)*UV(141)+JVS(992)*UV(147)+JVS(1014)& + &*UV(152)+JVS(1035)*UV(155)+JVS(1101)*UV(165)+JVS(1107)*UV(166)+JVS(1118)*UV(168)+JVS(1147)*UV(173)& + &+JVS(1153)*UV(174)+JVS(1158)*UV(175)+JVS(1174)*UV(177)+JVS(1186)*UV(179)+JVS(1193)*UV(180)+JVS(1199)& + &*UV(181)+JVS(1205)*UV(182)+JVS(1221)*UV(185)+JVS(1227)*UV(186)+JVS(1274)*UV(193)+JVS(1288)*UV(196)& + &+JVS(1314)*UV(200)+JVS(1321)*UV(201)+JVS(1359)*UV(206)+JVS(1373)*UV(207)+JVS(1380)*UV(208)+JVS(1385)& + &*UV(209)+JVS(1391)*UV(210)+JVS(1403)*UV(211)+JVS(1408)*UV(212)+JVS(1424)*UV(214)+JVS(1429)*UV(215)& + &+JVS(1437)*UV(216)+JVS(1495)*UV(220)+JVS(1535)*UV(226)+JVS(1545)*UV(227)+JVS(1554)*UV(228)+JVS(1560)& + &*UV(229)+JVS(1612)*UV(235)+JVS(1618)*UV(236)+JVS(1627)*UV(237)+JVS(1641)*UV(238)+JVS(1653)*UV(239)& + &+JVS(1667)*UV(240)+JVS(1683)*UV(241)+JVS(1696)*UV(242)+JVS(1703)*UV(243)+JVS(1711)*UV(244)+JVS(1725)& + &*UV(245)+JVS(1753)*UV(247)+JVS(1788)*UV(249)+JVS(1795)*UV(250)+JVS(1810)*UV(251)+JVS(1818)*UV(252)& + &+JVS(1826)*UV(253)+JVS(1841)*UV(255)+JVS(1849)*UV(256)+JVS(1861)*UV(257)+JVS(1872)*UV(258)+JVS(1908)& + &*UV(260)+JVS(1921)*UV(261)+JVS(1932)*UV(262)+JVS(1944)*UV(263)+JVS(1954)*UV(264)+JVS(1972)*UV(265)& + &+JVS(2005)*UV(266)+JVS(2074)*UV(269)+JVS(2081)*UV(270)+JVS(2088)*UV(271)+JVS(2111)*UV(273)+JVS(2153)& + &*UV(274)+JVS(2167)*UV(275)+JVS(2178)*UV(276)+JVS(2200)*UV(277)+JVS(2212)*UV(278)+JVS(2233)*UV(280)& + &+JVS(2244)*UV(281)+JVS(2258)*UV(282)+JVS(2270)*UV(283)+JVS(2279)*UV(284)+JVS(2390)*UV(288)+JVS(2410)& + &*UV(289)+JVS(2440)*UV(290)+JVS(2473)*UV(291)+JVS(2488)*UV(292)+JVS(2504)*UV(294)+JVS(2533)*UV(295)& + &+JVS(2577)*UV(297)+JVS(2640)*UV(298)+JVS(2658)*UV(299)+JVS(2677)*UV(300)+JVS(2742)*UV(302)+JVS(2768)& + &*UV(303)+JVS(2778)*UV(304)+JVS(2797)*UV(305)+JVS(2822)*UV(306)+JVS(2851)*UV(307)+JVS(2861)*UV(308)& + &+JVS(2918)*UV(309)+JVS(2931)*UV(310)+JVS(2992)*UV(311)+JVS(3013)*UV(312)+JVS(3037)*UV(313)+JVS(3052)& + &*UV(314)+JVS(3067)*UV(315)+JVS(3093)*UV(316)+JVS(3117)*UV(317)+JVS(3150)*UV(318)+JVS(3173)*UV(319)& + &+JVS(3219)*UV(322)+JVS(3245)*UV(323)+JVS(3260)*UV(324)+JVS(3291)*UV(325)+JVS(3315)*UV(326)+JVS(3339)& + &*UV(327)+JVS(3427)*UV(328)+JVS(3567)*UV(329)+JVS(3611)*UV(330)+JVS(3637)*UV(331)+JVS(3841)*UV(334)& + &+JVS(3963)*UV(335)+JVS(3982)*UV(336)+JVS(4146)*UV(338)+JVS(4463)*UV(341)+JVS(4519)*UV(342)+JVS(4794)& + &*UV(343)+JVS(4846)*UV(344)+JVS(5019)*UV(345)+JVS(5083)*UV(347)+JVS(5205)*UV(348)+JVS(5316)*UV(351)& + &+JVS(5411)*UV(352)+JVS(5673)*UV(356) + JTUV(339) = JVS(431)*UV(38)+JVS(786)*UV(107)+JVS(1068)*UV(160)+JVS(1443)*UV(217)+JVS(1668)*UV(240)+JVS(1763)*UV(248)& + &+JVS(1832)*UV(254)+JVS(2364)*UV(287)+JVS(2545)*UV(296)+JVS(2687)*UV(301)+JVS(3184)*UV(320)+JVS(3200)& + &*UV(321)+JVS(3659)*UV(332)+JVS(3761)*UV(333)+JVS(4181)*UV(339)+JVS(4795)*UV(343)+JVS(5514)*UV(353) + JTUV(340) = JVS(432)*UV(38)+JVS(1069)*UV(160)+JVS(1123)*UV(169)+JVS(1211)*UV(183)+JVS(1444)*UV(217)+JVS(1479)*UV(219)& + &+JVS(1499)*UV(221)+JVS(1669)*UV(240)+JVS(1764)*UV(248)+JVS(2688)*UV(301)+JVS(3185)*UV(320)+JVS(3201)& + &*UV(321)+JVS(3660)*UV(332)+JVS(3762)*UV(333)+JVS(4029)*UV(337)+JVS(4182)*UV(339)+JVS(4259)*UV(340)& + &+JVS(4796)*UV(343)+JVS(4848)*UV(344)+JVS(5055)*UV(346)+JVS(5318)*UV(351)+JVS(5413)*UV(352)+JVS(5515)& &*UV(353) - JTUV(340) = JVS(78)*UV(7)+JVS(303)*UV(34)+JVS(514)*UV(36)+JVS(540)*UV(39)+JVS(650)*UV(75)+JVS(665)*UV(79)+JVS(798)& - &*UV(110)+JVS(957)*UV(141)+JVS(961)*UV(142)+JVS(1043)*UV(156)+JVS(1097)*UV(164)+JVS(1199)*UV(181)+JVS(1208)& - &*UV(183)+JVS(1476)*UV(217)+JVS(1567)*UV(228)+JVS(1748)*UV(245)+JVS(1926)*UV(260)+JVS(2003)*UV(264)& - &+JVS(2036)*UV(265)+JVS(2201)*UV(276)+JVS(2299)*UV(282)+JVS(2333)*UV(283)+JVS(2476)*UV(290)+JVS(2623)& - &*UV(295)+JVS(2646)*UV(296)+JVS(2746)*UV(300)+JVS(2831)*UV(304)+JVS(2845)*UV(305)+JVS(3086)*UV(313)& - &+JVS(3140)*UV(315)+JVS(3169)*UV(317)+JVS(3250)*UV(321)+JVS(3306)*UV(323)+JVS(3536)*UV(325)+JVS(3579)& - &*UV(326)+JVS(3755)*UV(328)+JVS(3877)*UV(329)+JVS(4295)*UV(336)+JVS(4503)*UV(337)+JVS(4558)*UV(338)& - &+JVS(4635)*UV(339)+JVS(4730)*UV(340)+JVS(4807)*UV(341)+JVS(5231)*UV(345)+JVS(5598)*UV(351) - JTUV(341) = JVS(79)*UV(7)+JVS(167)*UV(29)+JVS(421)*UV(35)+JVS(515)*UV(36)+JVS(534)*UV(38)+JVS(549)*UV(40)+JVS(792)& - &*UV(109)+JVS(821)*UV(115)+JVS(893)*UV(129)+JVS(927)*UV(134)+JVS(953)*UV(140)+JVS(966)*UV(143)+JVS(1030)& - &*UV(154)+JVS(1090)*UV(163)+JVS(1107)*UV(166)+JVS(1110)*UV(167)+JVS(1176)*UV(177)+JVS(1190)*UV(179)& - &+JVS(1262)*UV(191)+JVS(1271)*UV(193)+JVS(1321)*UV(201)+JVS(1329)*UV(202)+JVS(1344)*UV(203)+JVS(1357)& - &*UV(204)+JVS(1406)*UV(211)+JVS(1477)*UV(217)+JVS(1488)*UV(219)+JVS(1492)*UV(220)+JVS(1505)*UV(221)& - &+JVS(1536)*UV(225)+JVS(1568)*UV(228)+JVS(1573)*UV(229)+JVS(1600)*UV(233)+JVS(1637)*UV(236)+JVS(1646)& - &*UV(237)+JVS(1696)*UV(241)+JVS(1707)*UV(242)+JVS(1855)*UV(255)+JVS(1955)*UV(262)+JVS(1989)*UV(263)& - &+JVS(2004)*UV(264)+JVS(2037)*UV(265)+JVS(2130)*UV(270)+JVS(2149)*UV(272)+JVS(2162)*UV(273)+JVS(2185)& - &*UV(274)+JVS(2202)*UV(276)+JVS(2212)*UV(277)+JVS(2334)*UV(283)+JVS(2350)*UV(284)+JVS(2477)*UV(290)& - &+JVS(2516)*UV(292)+JVS(2592)*UV(294)+JVS(2624)*UV(295)+JVS(2712)*UV(298)+JVS(2904)*UV(306)+JVS(3010)& - &*UV(309)+JVS(3058)*UV(312)+JVS(3117)*UV(314)+JVS(3153)*UV(316)+JVS(3228)*UV(320)+JVS(3395)*UV(324)& - &+JVS(3537)*UV(325)+JVS(3580)*UV(326)+JVS(3756)*UV(328)+JVS(3878)*UV(329)+JVS(3924)*UV(331)+JVS(4021)& - &*UV(334)+JVS(4195)*UV(335)+JVS(4504)*UV(337)+JVS(4559)*UV(338)+JVS(4731)*UV(340)+JVS(4808)*UV(341)& - &+JVS(4864)*UV(342)+JVS(4924)*UV(343)+JVS(5232)*UV(345)+JVS(5353)*UV(346)+JVS(5385)*UV(347)+JVS(5426)& - &*UV(348)+JVS(5452)*UV(349)+JVS(5478)*UV(350)+JVS(5599)*UV(351)+JVS(5638)*UV(352) - JTUV(342) = JVS(516)*UV(36)+JVS(595)*UV(59)+JVS(958)*UV(141)+JVS(995)*UV(148)+JVS(1209)*UV(183)+JVS(1485)*UV(218)& - &+JVS(1927)*UV(260)+JVS(2478)*UV(290)+JVS(2625)*UV(295)+JVS(2648)*UV(296)+JVS(3088)*UV(313)+JVS(3252)& - &*UV(321)+JVS(3396)*UV(324)+JVS(3538)*UV(325)+JVS(3581)*UV(326)+JVS(3879)*UV(329)+JVS(4196)*UV(335)& - &+JVS(4505)*UV(337)+JVS(4809)*UV(341)+JVS(4865)*UV(342)+JVS(5386)*UV(347)+JVS(5600)*UV(351)+JVS(5639)& + JTUV(341) = JVS(78)*UV(7)+JVS(104)*UV(11)+JVS(111)*UV(13)+JVS(121)*UV(16)+JVS(128)*UV(18)+JVS(134)*UV(20)+JVS(141)& + &*UV(22)+JVS(153)*UV(25)+JVS(160)*UV(27)+JVS(317)*UV(37)+JVS(433)*UV(38)+JVS(529)*UV(39)+JVS(563)*UV(43)& + &+JVS(634)*UV(69)+JVS(651)*UV(74)+JVS(655)*UV(75)+JVS(659)*UV(76)+JVS(663)*UV(77)+JVS(724)*UV(95)+JVS(743)& + &*UV(99)+JVS(747)*UV(100)+JVS(751)*UV(101)+JVS(755)*UV(102)+JVS(761)*UV(104)+JVS(797)*UV(110)+JVS(802)& + &*UV(111)+JVS(806)*UV(112)+JVS(836)*UV(118)+JVS(853)*UV(121)+JVS(869)*UV(124)+JVS(877)*UV(126)+JVS(885)& + &*UV(128)+JVS(916)*UV(133)+JVS(921)*UV(134)+JVS(927)*UV(135)+JVS(932)*UV(136)+JVS(937)*UV(137)+JVS(942)& + &*UV(138)+JVS(1015)*UV(152)+JVS(1036)*UV(155)+JVS(1054)*UV(158)+JVS(1078)*UV(161)+JVS(1090)*UV(163)& + &+JVS(1095)*UV(164)+JVS(1113)*UV(167)+JVS(1119)*UV(168)+JVS(1134)*UV(171)+JVS(1148)*UV(173)+JVS(1154)& + &*UV(174)+JVS(1170)*UV(176)+JVS(1180)*UV(178)+JVS(1200)*UV(181)+JVS(1206)*UV(182)+JVS(1222)*UV(185)& + &+JVS(1228)*UV(186)+JVS(1237)*UV(188)+JVS(1255)*UV(191)+JVS(1275)*UV(193)+JVS(1284)*UV(195)+JVS(1315)& + &*UV(200)+JVS(1322)*UV(201)+JVS(1327)*UV(202)+JVS(1374)*UV(207)+JVS(1381)*UV(208)+JVS(1386)*UV(209)& + &+JVS(1392)*UV(210)+JVS(1404)*UV(211)+JVS(1414)*UV(213)+JVS(1425)*UV(214)+JVS(1430)*UV(215)+JVS(1438)& + &*UV(216)+JVS(1480)*UV(219)+JVS(1496)*UV(220)+JVS(1529)*UV(225)+JVS(1536)*UV(226)+JVS(1555)*UV(228)& + &+JVS(1603)*UV(234)+JVS(1613)*UV(235)+JVS(1619)*UV(236)+JVS(1628)*UV(237)+JVS(1642)*UV(238)+JVS(1654)& + &*UV(239)+JVS(1684)*UV(241)+JVS(1704)*UV(243)+JVS(1726)*UV(245)+JVS(1736)*UV(246)+JVS(1754)*UV(247)& + &+JVS(1789)*UV(249)+JVS(1796)*UV(250)+JVS(1811)*UV(251)+JVS(1819)*UV(252)+JVS(1827)*UV(253)+JVS(1842)& + &*UV(255)+JVS(1850)*UV(256)+JVS(1862)*UV(257)+JVS(1873)*UV(258)+JVS(1889)*UV(259)+JVS(1909)*UV(260)& + &+JVS(1922)*UV(261)+JVS(1933)*UV(262)+JVS(1955)*UV(264)+JVS(1973)*UV(265)+JVS(2006)*UV(266)+JVS(2018)& + &*UV(267)+JVS(2112)*UV(273)+JVS(2154)*UV(274)+JVS(2168)*UV(275)+JVS(2179)*UV(276)+JVS(2201)*UV(277)& + &+JVS(2213)*UV(278)+JVS(2234)*UV(280)+JVS(2245)*UV(281)+JVS(2259)*UV(282)+JVS(2271)*UV(283)+JVS(2280)& + &*UV(284)+JVS(2348)*UV(286)+JVS(2365)*UV(287)+JVS(2391)*UV(288)+JVS(2411)*UV(289)+JVS(2441)*UV(290)& + &+JVS(2474)*UV(291)+JVS(2489)*UV(292)+JVS(2505)*UV(294)+JVS(2641)*UV(298)+JVS(2659)*UV(299)+JVS(2678)& + &*UV(300)+JVS(2743)*UV(302)+JVS(2769)*UV(303)+JVS(2779)*UV(304)+JVS(2823)*UV(306)+JVS(2852)*UV(307)& + &+JVS(2862)*UV(308)+JVS(2919)*UV(309)+JVS(2932)*UV(310)+JVS(2993)*UV(311)+JVS(3014)*UV(312)+JVS(3038)& + &*UV(313)+JVS(3053)*UV(314)+JVS(3068)*UV(315)+JVS(3094)*UV(316)+JVS(3151)*UV(318)+JVS(3174)*UV(319)& + &+JVS(3186)*UV(320)+JVS(3220)*UV(322)+JVS(3246)*UV(323)+JVS(3261)*UV(324)+JVS(3292)*UV(325)+JVS(3316)& + &*UV(326)+JVS(3340)*UV(327)+JVS(3428)*UV(328)+JVS(3568)*UV(329)+JVS(3612)*UV(330)+JVS(3639)*UV(331)& + &+JVS(3661)*UV(332)+JVS(3842)*UV(334)+JVS(3964)*UV(335)+JVS(3984)*UV(336)+JVS(4149)*UV(338)+JVS(4260)& + &*UV(340)+JVS(4466)*UV(341)+JVS(4522)*UV(342)+JVS(4797)*UV(343)+JVS(4849)*UV(344)+JVS(5022)*UV(345)& + &+JVS(5086)*UV(347)+JVS(5208)*UV(348)+JVS(5319)*UV(351)+JVS(5414)*UV(352)+JVS(5516)*UV(353)+JVS(5556)& + &*UV(354)+JVS(5676)*UV(356) + JTUV(342) = JVS(530)*UV(39)+JVS(610)*UV(62)+JVS(957)*UV(142)+JVS(1020)*UV(153)+JVS(1231)*UV(187)+JVS(1500)*UV(221)& + &+JVS(1956)*UV(264)+JVS(2495)*UV(293)+JVS(2579)*UV(297)+JVS(2679)*UV(300)+JVS(3095)*UV(316)+JVS(3317)& + &*UV(326)+JVS(3429)*UV(328)+JVS(3569)*UV(329)+JVS(3613)*UV(330)+JVS(3965)*UV(335)+JVS(4467)*UV(341)& + &+JVS(4523)*UV(342)+JVS(5023)*UV(345)+JVS(5087)*UV(347)+JVS(5209)*UV(348)+JVS(5557)*UV(354)+JVS(5677)& + &*UV(356) + JTUV(343) = JVS(13)*UV(6)+JVS(79)*UV(7)+JVS(112)*UV(13)+JVS(115)*UV(14)+JVS(129)*UV(18)+JVS(131)*UV(19)+JVS(142)& + &*UV(22)+JVS(150)*UV(24)+JVS(161)*UV(27)+JVS(164)*UV(28)+JVS(182)*UV(32)+JVS(187)*UV(33)+JVS(194)*UV(34)& + &+JVS(318)*UV(37)+JVS(434)*UV(38)+JVS(531)*UV(39)+JVS(540)*UV(40)+JVS(549)*UV(41)+JVS(556)*UV(42)+JVS(564)& + &*UV(43)+JVS(568)*UV(44)+JVS(572)*UV(46)+JVS(592)*UV(55)+JVS(608)*UV(61)+JVS(613)*UV(63)+JVS(635)*UV(69)& + &+JVS(640)*UV(71)+JVS(643)*UV(72)+JVS(648)*UV(73)+JVS(652)*UV(74)+JVS(656)*UV(75)+JVS(660)*UV(76)+JVS(664)& + &*UV(77)+JVS(666)*UV(78)+JVS(670)*UV(79)+JVS(672)*UV(80)+JVS(682)*UV(82)+JVS(687)*UV(84)+JVS(690)*UV(85)& + &+JVS(694)*UV(86)+JVS(696)*UV(87)+JVS(700)*UV(88)+JVS(703)*UV(89)+JVS(706)*UV(90)+JVS(709)*UV(91)+JVS(712)& + &*UV(92)+JVS(716)*UV(93)+JVS(721)*UV(94)+JVS(725)*UV(95)+JVS(729)*UV(96)+JVS(733)*UV(97)+JVS(744)*UV(99)& + &+JVS(748)*UV(100)+JVS(752)*UV(101)+JVS(756)*UV(102)+JVS(758)*UV(103)+JVS(762)*UV(104)+JVS(765)*UV(105)& + &+JVS(791)*UV(108)+JVS(795)*UV(109)+JVS(798)*UV(110)+JVS(803)*UV(111)+JVS(807)*UV(112)+JVS(810)*UV(113)& + &+JVS(820)*UV(115)+JVS(826)*UV(116)+JVS(831)*UV(117)+JVS(837)*UV(118)+JVS(842)*UV(119)+JVS(848)*UV(120)& + &+JVS(854)*UV(121)+JVS(859)*UV(122)+JVS(862)*UV(123)+JVS(870)*UV(124)+JVS(873)*UV(125)+JVS(878)*UV(126)& + &+JVS(881)*UV(127)+JVS(886)*UV(128)+JVS(889)*UV(129)+JVS(894)*UV(130)+JVS(900)*UV(131)+JVS(910)*UV(132)& + &+JVS(917)*UV(133)+JVS(922)*UV(134)+JVS(928)*UV(135)+JVS(933)*UV(136)+JVS(938)*UV(137)+JVS(943)*UV(138)& + &+JVS(947)*UV(139)+JVS(949)*UV(140)+JVS(955)*UV(141)+JVS(958)*UV(142)+JVS(962)*UV(143)+JVS(965)*UV(144)& + &+JVS(970)*UV(145)+JVS(981)*UV(146)+JVS(995)*UV(148)+JVS(1000)*UV(149)+JVS(1005)*UV(150)+JVS(1010)*UV(151)& + &+JVS(1016)*UV(152)+JVS(1021)*UV(153)+JVS(1030)*UV(154)+JVS(1037)*UV(155)+JVS(1041)*UV(156)+JVS(1049)& + &*UV(157)+JVS(1055)*UV(158)+JVS(1061)*UV(159)+JVS(1079)*UV(161)+JVS(1085)*UV(162)+JVS(1091)*UV(163)& + &+JVS(1096)*UV(164)+JVS(1102)*UV(165)+JVS(1108)*UV(166)+JVS(1114)*UV(167)+JVS(1120)*UV(168)+JVS(1127)& + &*UV(170)+JVS(1135)*UV(171)+JVS(1142)*UV(172)+JVS(1159)*UV(175)+JVS(1171)*UV(176)+JVS(1175)*UV(177)& + &+JVS(1181)*UV(178)+JVS(1187)*UV(179)+JVS(1194)*UV(180)+JVS(1201)*UV(181)+JVS(1207)*UV(182)+JVS(1216)& + &*UV(184)+JVS(1223)*UV(185)+JVS(1229)*UV(186)+JVS(1232)*UV(187)+JVS(1238)*UV(188)+JVS(1242)*UV(189)& + &+JVS(1252)*UV(190)+JVS(1256)*UV(191)+JVS(1269)*UV(192)+JVS(1276)*UV(193)+JVS(1279)*UV(194)+JVS(1285)& + &*UV(195)+JVS(1289)*UV(196)+JVS(1297)*UV(197)+JVS(1304)*UV(198)+JVS(1308)*UV(199)+JVS(1316)*UV(200)& + &+JVS(1323)*UV(201)+JVS(1328)*UV(202)+JVS(1330)*UV(203)+JVS(1338)*UV(204)+JVS(1346)*UV(205)+JVS(1361)& + &*UV(206)+JVS(1375)*UV(207)+JVS(1382)*UV(208)+JVS(1387)*UV(209)+JVS(1393)*UV(210)+JVS(1405)*UV(211)& + &+JVS(1409)*UV(212)+JVS(1415)*UV(213)+JVS(1426)*UV(214)+JVS(1431)*UV(215)+JVS(1439)*UV(216)+JVS(1473)& + &*UV(218)+JVS(1481)*UV(219)+JVS(1497)*UV(220)+JVS(1505)*UV(222)+JVS(1509)*UV(223)+JVS(1522)*UV(224)& + &+JVS(1530)*UV(225)+JVS(1537)*UV(226)+JVS(1547)*UV(227)+JVS(1556)*UV(228)+JVS(1562)*UV(229)+JVS(1581)& + &*UV(230)+JVS(1587)*UV(231)+JVS(1592)*UV(232)+JVS(1600)*UV(233)+JVS(1604)*UV(234)+JVS(1614)*UV(235)& + &+JVS(1620)*UV(236)+JVS(1629)*UV(237)+JVS(1643)*UV(238)+JVS(1655)*UV(239)+JVS(1670)*UV(240)+JVS(1685)& + &*UV(241)+JVS(1698)*UV(242)+JVS(1705)*UV(243)+JVS(1727)*UV(245)+JVS(1737)*UV(246)+JVS(1755)*UV(247)& + &+JVS(1765)*UV(248)+JVS(1790)*UV(249)+JVS(1812)*UV(251)+JVS(1820)*UV(252)+JVS(1828)*UV(253)+JVS(1843)& + &*UV(255)+JVS(1851)*UV(256)+JVS(1863)*UV(257)+JVS(1874)*UV(258)+JVS(1890)*UV(259)+JVS(1910)*UV(260)& + &+JVS(1923)*UV(261)+JVS(1934)*UV(262)+JVS(1946)*UV(263)+JVS(1957)*UV(264)+JVS(1974)*UV(265)+JVS(2007)& + &*UV(266)+JVS(2019)*UV(267)+JVS(2052)*UV(268)+JVS(2076)*UV(269)+JVS(2082)*UV(270)+JVS(2089)*UV(271)& + &+JVS(2102)*UV(272)+JVS(2113)*UV(273)+JVS(2155)*UV(274)+JVS(2169)*UV(275)+JVS(2180)*UV(276)+JVS(2202)& + &*UV(277)+JVS(2214)*UV(278)+JVS(2218)*UV(279)+JVS(2246)*UV(281)+JVS(2260)*UV(282)+JVS(2272)*UV(283)& + &+JVS(2281)*UV(284)+JVS(2317)*UV(285)+JVS(2350)*UV(286)+JVS(2366)*UV(287)+JVS(2392)*UV(288)+JVS(2412)& + &*UV(289)+JVS(2442)*UV(290)+JVS(2475)*UV(291)+JVS(2496)*UV(293)+JVS(2506)*UV(294)+JVS(2535)*UV(295)& + &+JVS(2580)*UV(297)+JVS(2643)*UV(298)+JVS(2660)*UV(299)+JVS(2680)*UV(300)+JVS(2689)*UV(301)+JVS(2745)& + &*UV(302)+JVS(2770)*UV(303)+JVS(2780)*UV(304)+JVS(2799)*UV(305)+JVS(2824)*UV(306)+JVS(2853)*UV(307)& + &+JVS(2863)*UV(308)+JVS(2920)*UV(309)+JVS(2933)*UV(310)+JVS(2995)*UV(311)+JVS(3015)*UV(312)+JVS(3039)& + &*UV(313)+JVS(3054)*UV(314)+JVS(3069)*UV(315)+JVS(3096)*UV(316)+JVS(3152)*UV(318)+JVS(3176)*UV(319)& + &+JVS(3188)*UV(320)+JVS(3202)*UV(321)+JVS(3221)*UV(322)+JVS(3247)*UV(323)+JVS(3262)*UV(324)+JVS(3294)& + &*UV(325)+JVS(3318)*UV(326)+JVS(3342)*UV(327)+JVS(3430)*UV(328)+JVS(3570)*UV(329)+JVS(3614)*UV(330)& + &+JVS(3640)*UV(331)+JVS(3662)*UV(332)+JVS(3765)*UV(333)+JVS(3844)*UV(334)+JVS(3966)*UV(335)+JVS(3985)& + &*UV(336)+JVS(4151)*UV(338)+JVS(4185)*UV(339)+JVS(4262)*UV(340)+JVS(4468)*UV(341)+JVS(4524)*UV(342)& + &+JVS(4799)*UV(343)+JVS(4851)*UV(344)+JVS(5024)*UV(345)+JVS(5058)*UV(346)+JVS(5088)*UV(347)+JVS(5210)& + &*UV(348)+JVS(5321)*UV(351)+JVS(5416)*UV(352)+JVS(5518)*UV(353)+JVS(5558)*UV(354)+JVS(5599)*UV(355)& + &+JVS(5678)*UV(356) + JTUV(344) = JVS(435)*UV(38)+JVS(667)*UV(78)+JVS(787)*UV(107)+JVS(843)*UV(119)+JVS(863)*UV(123)+JVS(1070)*UV(160)& + &+JVS(1766)*UV(248)+JVS(3203)*UV(321)+JVS(3571)*UV(329)+JVS(3641)*UV(331)+JVS(3663)*UV(332)+JVS(3845)& + &*UV(334)+JVS(3986)*UV(336)+JVS(4152)*UV(338)+JVS(4263)*UV(340)+JVS(4469)*UV(341)+JVS(4525)*UV(342)& + &+JVS(4800)*UV(343)+JVS(4852)*UV(344)+JVS(5025)*UV(345)+JVS(5089)*UV(347)+JVS(5322)*UV(351)+JVS(5417)& &*UV(352) - JTUV(343) = JVS(422)*UV(35)+JVS(517)*UV(36)+JVS(624)*UV(68)+JVS(1478)*UV(217)+JVS(2005)*UV(264)+JVS(3155)*UV(316)& - &+JVS(3170)*UV(317)+JVS(3539)*UV(325)+JVS(3880)*UV(329)+JVS(4197)*UV(335)+JVS(4506)*UV(337)+JVS(4561)& - &*UV(338)+JVS(4733)*UV(340)+JVS(4810)*UV(341)+JVS(4866)*UV(342)+JVS(4926)*UV(343)+JVS(5234)*UV(345)& - &+JVS(5355)*UV(346)+JVS(5387)*UV(347)+JVS(5428)*UV(348)+JVS(5601)*UV(351)+JVS(5640)*UV(352) - JTUV(344) = JVS(423)*UV(35)+JVS(771)*UV(104)+JVS(1053)*UV(157)+JVS(1429)*UV(214)+JVS(1673)*UV(239)+JVS(1749)*UV(245)& - &+JVS(1823)*UV(252)+JVS(2657)*UV(297)+JVS(3156)*UV(316)+JVS(3171)*UV(317)+JVS(3679)*UV(327)+JVS(3896)& - &*UV(330)+JVS(3944)*UV(332)+JVS(3974)*UV(333)+JVS(4299)*UV(336)+JVS(4960)*UV(344)+JVS(5235)*UV(345) - JTUV(345) = JVS(13)*UV(6)+JVS(80)*UV(7)+JVS(111)*UV(13)+JVS(115)*UV(14)+JVS(128)*UV(18)+JVS(131)*UV(19)+JVS(141)& - &*UV(22)+JVS(150)*UV(24)+JVS(160)*UV(27)+JVS(164)*UV(28)+JVS(182)*UV(32)+JVS(186)*UV(33)+JVS(304)*UV(34)& - &+JVS(424)*UV(35)+JVS(518)*UV(36)+JVS(525)*UV(37)+JVS(535)*UV(38)+JVS(541)*UV(39)+JVS(550)*UV(40)+JVS(552)& - &*UV(41)+JVS(556)*UV(43)+JVS(576)*UV(52)+JVS(592)*UV(58)+JVS(597)*UV(60)+JVS(619)*UV(66)+JVS(625)*UV(68)& - &+JVS(627)*UV(69)+JVS(631)*UV(70)+JVS(636)*UV(71)+JVS(640)*UV(72)+JVS(644)*UV(73)+JVS(648)*UV(74)+JVS(651)& - &*UV(75)+JVS(654)*UV(76)+JVS(663)*UV(78)+JVS(666)*UV(79)+JVS(672)*UV(81)+JVS(674)*UV(82)+JVS(677)*UV(83)& - &+JVS(681)*UV(84)+JVS(684)*UV(85)+JVS(687)*UV(86)+JVS(690)*UV(87)+JVS(694)*UV(88)+JVS(697)*UV(89)+JVS(702)& - &*UV(90)+JVS(705)*UV(91)+JVS(710)*UV(92)+JVS(713)*UV(93)+JVS(716)*UV(94)+JVS(720)*UV(95)+JVS(732)*UV(97)& - &+JVS(736)*UV(98)+JVS(740)*UV(99)+JVS(744)*UV(100)+JVS(746)*UV(101)+JVS(750)*UV(102)+JVS(775)*UV(105)& - &+JVS(785)*UV(107)+JVS(789)*UV(108)+JVS(793)*UV(109)+JVS(799)*UV(110)+JVS(804)*UV(111)+JVS(808)*UV(112)& - &+JVS(812)*UV(113)+JVS(816)*UV(114)+JVS(822)*UV(115)+JVS(825)*UV(116)+JVS(833)*UV(117)+JVS(838)*UV(118)& - &+JVS(843)*UV(119)+JVS(847)*UV(120)+JVS(853)*UV(121)+JVS(858)*UV(122)+JVS(862)*UV(123)+JVS(866)*UV(124)& - &+JVS(870)*UV(125)+JVS(874)*UV(126)+JVS(877)*UV(127)+JVS(884)*UV(128)+JVS(894)*UV(129)+JVS(901)*UV(130)& - &+JVS(906)*UV(131)+JVS(911)*UV(132)+JVS(916)*UV(133)+JVS(928)*UV(134)+JVS(933)*UV(135)+JVS(939)*UV(136)& - &+JVS(942)*UV(137)+JVS(946)*UV(138)+JVS(951)*UV(139)+JVS(954)*UV(140)+JVS(959)*UV(141)+JVS(962)*UV(142)& - &+JVS(967)*UV(143)+JVS(972)*UV(144)+JVS(986)*UV(146)+JVS(991)*UV(147)+JVS(996)*UV(148)+JVS(1002)*UV(149)& - &+JVS(1008)*UV(150)+JVS(1014)*UV(151)+JVS(1020)*UV(152)+JVS(1025)*UV(153)+JVS(1031)*UV(154)+JVS(1038)& - &*UV(155)+JVS(1044)*UV(156)+JVS(1064)*UV(158)+JVS(1069)*UV(159)+JVS(1074)*UV(160)+JVS(1079)*UV(161)& - &+JVS(1084)*UV(162)+JVS(1091)*UV(163)+JVS(1098)*UV(164)+JVS(1102)*UV(165)+JVS(1111)*UV(167)+JVS(1115)& - &*UV(168)+JVS(1122)*UV(169)+JVS(1128)*UV(170)+JVS(1154)*UV(173)+JVS(1160)*UV(174)+JVS(1163)*UV(175)& - &+JVS(1169)*UV(176)+JVS(1177)*UV(177)+JVS(1184)*UV(178)+JVS(1195)*UV(180)+JVS(1200)*UV(181)+JVS(1205)& - &*UV(182)+JVS(1210)*UV(183)+JVS(1216)*UV(184)+JVS(1225)*UV(185)+JVS(1229)*UV(186)+JVS(1233)*UV(187)& - &+JVS(1246)*UV(188)+JVS(1252)*UV(189)+JVS(1259)*UV(190)+JVS(1263)*UV(191)+JVS(1268)*UV(192)+JVS(1272)& - &*UV(193)+JVS(1280)*UV(194)+JVS(1285)*UV(195)+JVS(1291)*UV(196)+JVS(1299)*UV(197)+JVS(1307)*UV(198)& - &+JVS(1311)*UV(199)+JVS(1313)*UV(200)+JVS(1322)*UV(201)+JVS(1330)*UV(202)+JVS(1345)*UV(203)+JVS(1358)& - &*UV(204)+JVS(1365)*UV(205)+JVS(1370)*UV(206)+JVS(1375)*UV(207)+JVS(1387)*UV(208)+JVS(1392)*UV(209)& - &+JVS(1402)*UV(210)+JVS(1407)*UV(211)+JVS(1414)*UV(212)+JVS(1422)*UV(213)+JVS(1455)*UV(215)+JVS(1467)& - &*UV(216)+JVS(1479)*UV(217)+JVS(1489)*UV(219)+JVS(1493)*UV(220)+JVS(1506)*UV(221)+JVS(1513)*UV(222)& - &+JVS(1519)*UV(223)+JVS(1526)*UV(224)+JVS(1537)*UV(225)+JVS(1544)*UV(226)+JVS(1561)*UV(227)+JVS(1569)& - &*UV(228)+JVS(1574)*UV(229)+JVS(1581)*UV(230)+JVS(1587)*UV(231)+JVS(1594)*UV(232)+JVS(1601)*UV(233)& - &+JVS(1612)*UV(234)+JVS(1624)*UV(235)+JVS(1638)*UV(236)+JVS(1647)*UV(237)+JVS(1659)*UV(238)+JVS(1674)& - &*UV(239)+JVS(1688)*UV(240)+JVS(1708)*UV(242)+JVS(1721)*UV(243)+JVS(1737)*UV(244)+JVS(1750)*UV(245)& - &+JVS(1779)*UV(247)+JVS(1795)*UV(248)+JVS(1802)*UV(249)+JVS(1810)*UV(250)+JVS(1818)*UV(251)+JVS(1836)& - &*UV(253)+JVS(1847)*UV(254)+JVS(1856)*UV(255)+JVS(1878)*UV(256)+JVS(1892)*UV(257)+JVS(1908)*UV(258)& - &+JVS(1917)*UV(259)+JVS(1928)*UV(260)+JVS(1944)*UV(261)+JVS(1956)*UV(262)+JVS(1990)*UV(263)+JVS(2006)& - &*UV(264)+JVS(2038)*UV(265)+JVS(2058)*UV(266)+JVS(2064)*UV(267)+JVS(2071)*UV(268)+JVS(2086)*UV(269)& - &+JVS(2131)*UV(270)+JVS(2140)*UV(271)+JVS(2150)*UV(272)+JVS(2163)*UV(273)+JVS(2186)*UV(274)+JVS(2197)& - &*UV(275)+JVS(2203)*UV(276)+JVS(2213)*UV(277)+JVS(2228)*UV(278)+JVS(2238)*UV(279)+JVS(2264)*UV(281)& - &+JVS(2302)*UV(282)+JVS(2336)*UV(283)+JVS(2351)*UV(284)+JVS(2372)*UV(285)+JVS(2392)*UV(286)+JVS(2425)& - &*UV(287)+JVS(2458)*UV(288)+JVS(2479)*UV(290)+JVS(2487)*UV(291)+JVS(2517)*UV(292)+JVS(2531)*UV(293)& - &+JVS(2594)*UV(294)+JVS(2626)*UV(295)+JVS(2649)*UV(296)+JVS(2658)*UV(297)+JVS(2714)*UV(298)+JVS(2736)& - &*UV(299)+JVS(2748)*UV(300)+JVS(2765)*UV(301)+JVS(2793)*UV(302)+JVS(2819)*UV(303)+JVS(2833)*UV(304)& - &+JVS(2847)*UV(305)+JVS(2905)*UV(306)+JVS(2968)*UV(307)+JVS(2988)*UV(308)+JVS(3011)*UV(309)+JVS(3023)& - &*UV(310)+JVS(3035)*UV(311)+JVS(3089)*UV(313)+JVS(3118)*UV(314)+JVS(3143)*UV(315)+JVS(3157)*UV(316)& - &+JVS(3172)*UV(317)+JVS(3187)*UV(318)+JVS(3214)*UV(319)+JVS(3229)*UV(320)+JVS(3253)*UV(321)+JVS(3285)& - &*UV(322)+JVS(3309)*UV(323)+JVS(3397)*UV(324)+JVS(3540)*UV(325)+JVS(3582)*UV(326)+JVS(3680)*UV(327)& - &+JVS(3758)*UV(328)+JVS(3881)*UV(329)+JVS(3897)*UV(330)+JVS(3926)*UV(331)+JVS(3975)*UV(333)+JVS(4199)& - &*UV(335)+JVS(4300)*UV(336)+JVS(4508)*UV(337)+JVS(4563)*UV(338)+JVS(4640)*UV(339)+JVS(4735)*UV(340)& - &+JVS(4812)*UV(341)+JVS(4868)*UV(342)+JVS(4928)*UV(343)+JVS(4961)*UV(344)+JVS(5236)*UV(345)+JVS(5357)& - &*UV(346)+JVS(5389)*UV(347)+JVS(5430)*UV(348)+JVS(5603)*UV(351)+JVS(5642)*UV(352)+JVS(5675)*UV(353) - JTUV(346) = JVS(81)*UV(7)+JVS(107)*UV(12)+JVS(112)*UV(13)+JVS(124)*UV(17)+JVS(129)*UV(18)+JVS(137)*UV(21)+JVS(142)& - &*UV(22)+JVS(156)*UV(26)+JVS(161)*UV(27)+JVS(305)*UV(34)+JVS(519)*UV(36)+JVS(602)*UV(62)+JVS(622)*UV(67)& - &+JVS(632)*UV(70)+JVS(678)*UV(83)+JVS(706)*UV(91)+JVS(714)*UV(93)+JVS(721)*UV(95)+JVS(727)*UV(96)+JVS(780)& - &*UV(106)+JVS(826)*UV(116)+JVS(854)*UV(121)+JVS(878)*UV(127)+JVS(895)*UV(129)+JVS(907)*UV(131)+JVS(912)& - &*UV(132)+JVS(917)*UV(133)+JVS(934)*UV(135)+JVS(943)*UV(137)+JVS(947)*UV(138)+JVS(980)*UV(145)+JVS(987)& - &*UV(146)+JVS(1026)*UV(153)+JVS(1085)*UV(162)+JVS(1092)*UV(163)+JVS(1103)*UV(165)+JVS(1116)*UV(168)& - &+JVS(1136)*UV(171)+JVS(1142)*UV(172)+JVS(1164)*UV(175)+JVS(1170)*UV(176)+JVS(1178)*UV(177)+JVS(1185)& - &*UV(178)+JVS(1196)*UV(180)+JVS(1206)*UV(182)+JVS(1253)*UV(189)+JVS(1260)*UV(190)+JVS(1273)*UV(193)& - &+JVS(1292)*UV(196)+JVS(1300)*UV(197)+JVS(1346)*UV(203)+JVS(1359)*UV(204)+JVS(1366)*UV(205)+JVS(1371)& - &*UV(206)+JVS(1376)*UV(207)+JVS(1388)*UV(208)+JVS(1403)*UV(210)+JVS(1408)*UV(211)+JVS(1415)*UV(212)& - &+JVS(1423)*UV(213)+JVS(1468)*UV(216)+JVS(1520)*UV(223)+JVS(1527)*UV(224)+JVS(1538)*UV(225)+JVS(1545)& - &*UV(226)+JVS(1595)*UV(232)+JVS(1602)*UV(233)+JVS(1613)*UV(234)+JVS(1625)*UV(235)+JVS(1639)*UV(236)& - &+JVS(1648)*UV(237)+JVS(1660)*UV(238)+JVS(1675)*UV(239)+JVS(1689)*UV(240)+JVS(1697)*UV(241)+JVS(1722)& - &*UV(243)+JVS(1738)*UV(244)+JVS(1759)*UV(246)+JVS(1780)*UV(247)+JVS(1796)*UV(248)+JVS(1803)*UV(249)& - &+JVS(1811)*UV(250)+JVS(1819)*UV(251)+JVS(1837)*UV(253)+JVS(1848)*UV(254)+JVS(1857)*UV(255)+JVS(1879)& - &*UV(256)+JVS(1893)*UV(257)+JVS(1918)*UV(259)+JVS(1929)*UV(260)+JVS(1945)*UV(261)+JVS(1957)*UV(262)& - &+JVS(1991)*UV(263)+JVS(2059)*UV(266)+JVS(2065)*UV(267)+JVS(2072)*UV(268)+JVS(2132)*UV(270)+JVS(2141)& - &*UV(271)+JVS(2151)*UV(272)+JVS(2164)*UV(273)+JVS(2187)*UV(274)+JVS(2198)*UV(275)+JVS(2214)*UV(277)& - &+JVS(2229)*UV(278)+JVS(2239)*UV(279)+JVS(2254)*UV(280)+JVS(2265)*UV(281)+JVS(2352)*UV(284)+JVS(2373)& - &*UV(285)+JVS(2393)*UV(286)+JVS(2426)*UV(287)+JVS(2459)*UV(288)+JVS(2472)*UV(289)+JVS(2488)*UV(291)& - &+JVS(2518)*UV(292)+JVS(2532)*UV(293)+JVS(2595)*UV(294)+JVS(2627)*UV(295)+JVS(2650)*UV(296)+JVS(2715)& - &*UV(298)+JVS(2737)*UV(299)+JVS(2749)*UV(300)+JVS(2766)*UV(301)+JVS(2794)*UV(302)+JVS(2820)*UV(303)& - &+JVS(2834)*UV(304)+JVS(2848)*UV(305)+JVS(2906)*UV(306)+JVS(2969)*UV(307)+JVS(2989)*UV(308)+JVS(3012)& - &*UV(309)+JVS(3024)*UV(310)+JVS(3036)*UV(311)+JVS(3061)*UV(312)+JVS(3090)*UV(313)+JVS(3119)*UV(314)& - &+JVS(3144)*UV(315)+JVS(3188)*UV(318)+JVS(3215)*UV(319)+JVS(3230)*UV(320)+JVS(3254)*UV(321)+JVS(3286)& - &*UV(322)+JVS(3310)*UV(323)+JVS(3398)*UV(324)+JVS(3541)*UV(325)+JVS(3583)*UV(326)+JVS(3759)*UV(328)& - &+JVS(3882)*UV(329)+JVS(3927)*UV(331)+JVS(4200)*UV(335)+JVS(4509)*UV(337)+JVS(4564)*UV(338)+JVS(4736)& - &*UV(340)+JVS(4813)*UV(341)+JVS(4869)*UV(342)+JVS(4929)*UV(343)+JVS(5237)*UV(345)+JVS(5358)*UV(346)& - &+JVS(5390)*UV(347)+JVS(5604)*UV(351) - JTUV(347) = JVS(425)*UV(35)+JVS(728)*UV(96)+JVS(800)*UV(110)+JVS(848)*UV(120)+JVS(997)*UV(148)+JVS(1054)*UV(157)& - &+JVS(1486)*UV(218)+JVS(2353)*UV(284)+JVS(3158)*UV(316)+JVS(3928)*UV(331)+JVS(4201)*UV(335)+JVS(4510)& - &*UV(337)+JVS(4565)*UV(338)+JVS(4870)*UV(342)+JVS(4930)*UV(343)+JVS(5238)*UV(345)+JVS(5359)*UV(346)& - &+JVS(5391)*UV(347) - JTUV(348) = JVS(168)*UV(29)+JVS(183)*UV(32)+JVS(187)*UV(33)+JVS(426)*UV(35)+JVS(536)*UV(38)+JVS(698)*UV(89)+JVS(929)& - &*UV(134)+JVS(1108)*UV(166)+JVS(1191)*UV(179)+JVS(1698)*UV(241)+JVS(2008)*UV(264)+JVS(3062)*UV(312)& - &+JVS(3159)*UV(316)+JVS(3542)*UV(325)+JVS(3584)*UV(326)+JVS(3978)*UV(333)+JVS(4511)*UV(337)+JVS(4643)& - &*UV(339)+JVS(4815)*UV(341)+JVS(5239)*UV(345)+JVS(5433)*UV(348)+JVS(5645)*UV(352) - JTUV(349) = JVS(427)*UV(35)+JVS(659)*UV(77)+JVS(998)*UV(148)+JVS(1055)*UV(157)+JVS(1677)*UV(239)+JVS(1824)*UV(252)& - &+JVS(2659)*UV(297)+JVS(3160)*UV(316)+JVS(3173)*UV(317)+JVS(3684)*UV(327)+JVS(3900)*UV(330)+JVS(3948)& - &*UV(332)+JVS(4816)*UV(341)+JVS(5460)*UV(349) - JTUV(350) = JVS(428)*UV(35)+JVS(660)*UV(77)+JVS(999)*UV(148)+JVS(1056)*UV(157)+JVS(1678)*UV(239)+JVS(1825)*UV(252)& - &+JVS(2660)*UV(297)+JVS(3161)*UV(316)+JVS(3174)*UV(317)+JVS(3685)*UV(327)+JVS(3901)*UV(330)+JVS(3949)& - &*UV(332)+JVS(4817)*UV(341)+JVS(5487)*UV(350) - JTUV(351) = JVS(82)*UV(7)+JVS(118)*UV(15)+JVS(429)*UV(35)+JVS(520)*UV(36)+JVS(610)*UV(64)+JVS(614)*UV(65)+JVS(628)& - &*UV(69)+JVS(717)*UV(94)+JVS(781)*UV(106)+JVS(896)*UV(129)+JVS(955)*UV(140)+JVS(963)*UV(142)+JVS(981)& - &*UV(145)+JVS(1003)*UV(149)+JVS(1032)*UV(154)+JVS(1065)*UV(158)+JVS(1093)*UV(163)+JVS(1112)*UV(167)& - &+JVS(1130)*UV(170)+JVS(1179)*UV(177)+JVS(1186)*UV(178)+JVS(1211)*UV(183)+JVS(1264)*UV(191)+JVS(1274)& - &*UV(193)+JVS(1286)*UV(195)+JVS(1314)*UV(200)+JVS(1323)*UV(201)+JVS(1331)*UV(202)+JVS(1347)*UV(203)& - &+JVS(1360)*UV(204)+JVS(1409)*UV(211)+JVS(1424)*UV(213)+JVS(1430)*UV(214)+JVS(1490)*UV(219)+JVS(1494)& - &*UV(220)+JVS(1507)*UV(221)+JVS(1539)*UV(225)+JVS(1575)*UV(229)+JVS(1603)*UV(233)+JVS(1614)*UV(234)& - &+JVS(1626)*UV(235)+JVS(1640)*UV(236)+JVS(1649)*UV(237)+JVS(1710)*UV(242)+JVS(1781)*UV(247)+JVS(1812)& - &*UV(250)+JVS(1858)*UV(255)+JVS(1880)*UV(256)+JVS(1894)*UV(257)+JVS(1919)*UV(259)+JVS(1946)*UV(261)& - &+JVS(1958)*UV(262)+JVS(1992)*UV(263)+JVS(2088)*UV(269)+JVS(2133)*UV(270)+JVS(2152)*UV(272)+JVS(2165)& - &*UV(273)+JVS(2188)*UV(274)+JVS(2199)*UV(275)+JVS(2204)*UV(276)+JVS(2215)*UV(277)+JVS(2230)*UV(278)& - &+JVS(2255)*UV(280)+JVS(2266)*UV(281)+JVS(2473)*UV(289)+JVS(2480)*UV(290)+JVS(2489)*UV(291)+JVS(2519)& - &*UV(292)+JVS(2596)*UV(294)+JVS(2628)*UV(295)+JVS(2651)*UV(296)+JVS(2716)*UV(298)+JVS(2750)*UV(300)& - &+JVS(2767)*UV(301)+JVS(2907)*UV(306)+JVS(2970)*UV(307)+JVS(2990)*UV(308)+JVS(3013)*UV(309)+JVS(3025)& - &*UV(310)+JVS(3037)*UV(311)+JVS(3120)*UV(314)+JVS(3189)*UV(318)+JVS(3216)*UV(319)+JVS(3231)*UV(320)& - &+JVS(3287)*UV(322)+JVS(3399)*UV(324)+JVS(3543)*UV(325)+JVS(3585)*UV(326)+JVS(3686)*UV(327)+JVS(3761)& - &*UV(328)+JVS(3884)*UV(329)+JVS(3931)*UV(331)+JVS(3950)*UV(332)+JVS(4205)*UV(335)+JVS(4514)*UV(337)& - &+JVS(4874)*UV(342)+JVS(4934)*UV(343)+JVS(5242)*UV(345)+JVS(5363)*UV(346)+JVS(5395)*UV(347)+JVS(5436)& - &*UV(348)+JVS(5609)*UV(351) - JTUV(352) = JVS(430)*UV(35)+JVS(1000)*UV(148)+JVS(1057)*UV(157)+JVS(1480)*UV(217)+JVS(1680)*UV(239)+JVS(2662)*UV(297)& - &+JVS(3162)*UV(316)+JVS(3175)*UV(317)+JVS(3687)*UV(327)+JVS(3982)*UV(333)+JVS(4032)*UV(334)+JVS(4307)& - &*UV(336)+JVS(4819)*UV(341)+JVS(4875)*UV(342)+JVS(4935)*UV(343)+JVS(5243)*UV(345)+JVS(5396)*UV(347)& - &+JVS(5463)*UV(349)+JVS(5489)*UV(350)+JVS(5649)*UV(352) - JTUV(353) = JVS(431)*UV(35)+JVS(772)*UV(104)+JVS(1058)*UV(157)+JVS(1431)*UV(214)+JVS(1681)*UV(239)+JVS(1752)*UV(245)& - &+JVS(1826)*UV(252)+JVS(2663)*UV(297)+JVS(3163)*UV(316)+JVS(3176)*UV(317)+JVS(3688)*UV(327)+JVS(3903)& - &*UV(330)+JVS(3951)*UV(332)+JVS(3983)*UV(333)+JVS(4308)*UV(336)+JVS(5244)*UV(345)+JVS(5683)*UV(353) + JTUV(345) = JVS(195)*UV(34)+JVS(319)*UV(37)+JVS(436)*UV(38)+JVS(550)*UV(41)+JVS(602)*UV(59)+JVS(605)*UV(60)+JVS(611)& + &*UV(62)+JVS(622)*UV(66)+JVS(638)*UV(70)+JVS(685)*UV(83)+JVS(766)*UV(105)+JVS(799)*UV(110)+JVS(811)*UV(113)& + &+JVS(821)*UV(115)+JVS(874)*UV(125)+JVS(882)*UV(127)+JVS(890)*UV(129)+JVS(963)*UV(143)+JVS(982)*UV(146)& + &+JVS(1149)*UV(173)+JVS(1155)*UV(174)+JVS(1243)*UV(189)+JVS(1324)*UV(201)+JVS(1362)*UV(206)+JVS(1440)& + &*UV(216)+JVS(1445)*UV(217)+JVS(1501)*UV(221)+JVS(1630)*UV(237)+JVS(1644)*UV(238)+JVS(1671)*UV(240)& + &+JVS(1706)*UV(243)+JVS(1712)*UV(244)+JVS(1798)*UV(250)+JVS(1813)*UV(251)+JVS(1833)*UV(254)+JVS(1924)& + &*UV(261)+JVS(1935)*UV(262)+JVS(2103)*UV(272)+JVS(2203)*UV(277)+JVS(2547)*UV(296)+JVS(2825)*UV(306)& + &+JVS(3016)*UV(312)+JVS(3121)*UV(317)+JVS(3204)*UV(321)+JVS(3295)*UV(325)+JVS(3431)*UV(328)+JVS(3572)& + &*UV(329)+JVS(3615)*UV(330)+JVS(3642)*UV(331)+JVS(3767)*UV(333)+JVS(3846)*UV(334)+JVS(3987)*UV(336)& + &+JVS(4153)*UV(338)+JVS(4470)*UV(341)+JVS(4526)*UV(342)+JVS(4801)*UV(343)+JVS(4853)*UV(344)+JVS(5026)& + &*UV(345)+JVS(5090)*UV(347)+JVS(5212)*UV(348)+JVS(5323)*UV(351)+JVS(5601)*UV(355)+JVS(5680)*UV(356) + JTUV(346) = JVS(437)*UV(38)+JVS(788)*UV(107)+JVS(1071)*UV(160)+JVS(1446)*UV(217)+JVS(1672)*UV(240)+JVS(1767)*UV(248)& + &+JVS(1834)*UV(254)+JVS(2368)*UV(287)+JVS(2548)*UV(296)+JVS(2691)*UV(301)+JVS(3190)*UV(320)+JVS(3205)& + &*UV(321)+JVS(3665)*UV(332)+JVS(3768)*UV(333)+JVS(4802)*UV(343)+JVS(5061)*UV(346)+JVS(5521)*UV(353) + JTUV(347) = JVS(438)*UV(38)+JVS(740)*UV(98)+JVS(844)*UV(119)+JVS(864)*UV(123)+JVS(1022)*UV(153)+JVS(1072)*UV(160)& + &+JVS(1502)*UV(221)+JVS(3191)*UV(320)+JVS(3644)*UV(331)+JVS(3989)*UV(336)+JVS(4155)*UV(338)+JVS(4472)& + &*UV(341)+JVS(4528)*UV(342)+JVS(4803)*UV(343)+JVS(4855)*UV(344)+JVS(5028)*UV(345)+JVS(5092)*UV(347)& + &+JVS(5325)*UV(351) + JTUV(348) = JVS(80)*UV(7)+JVS(118)*UV(15)+JVS(439)*UV(38)+JVS(532)*UV(39)+JVS(626)*UV(67)+JVS(630)*UV(68)+JVS(644)& + &*UV(72)+JVS(697)*UV(87)+JVS(817)*UV(114)+JVS(911)*UV(132)+JVS(950)*UV(140)+JVS(966)*UV(144)+JVS(993)& + &*UV(147)+JVS(996)*UV(148)+JVS(1042)*UV(156)+JVS(1086)*UV(162)+JVS(1109)*UV(166)+JVS(1128)*UV(170)+JVS(1143)& + &*UV(172)+JVS(1195)*UV(180)+JVS(1208)*UV(182)+JVS(1233)*UV(187)+JVS(1280)*UV(194)+JVS(1290)*UV(196)& + &+JVS(1309)*UV(199)+JVS(1331)*UV(203)+JVS(1339)*UV(204)+JVS(1347)*UV(205)+JVS(1363)*UV(206)+JVS(1376)& + &*UV(207)+JVS(1410)*UV(212)+JVS(1441)*UV(216)+JVS(1447)*UV(217)+JVS(1506)*UV(222)+JVS(1510)*UV(223)& + &+JVS(1523)*UV(224)+JVS(1548)*UV(227)+JVS(1563)*UV(229)+JVS(1605)*UV(234)+JVS(1631)*UV(237)+JVS(1645)& + &*UV(238)+JVS(1656)*UV(239)+JVS(1686)*UV(241)+JVS(1738)*UV(246)+JVS(1791)*UV(249)+JVS(1829)*UV(253)& + &+JVS(1852)*UV(256)+JVS(1911)*UV(260)+JVS(1925)*UV(261)+JVS(1936)*UV(262)+JVS(1947)*UV(263)+JVS(1975)& + &*UV(265)+JVS(2008)*UV(266)+JVS(2104)*UV(272)+JVS(2157)*UV(274)+JVS(2170)*UV(275)+JVS(2181)*UV(276)& + &+JVS(2204)*UV(277)+JVS(2215)*UV(278)+JVS(2219)*UV(279)+JVS(2236)*UV(280)+JVS(2247)*UV(281)+JVS(2262)& + &*UV(282)+JVS(2282)*UV(284)+JVS(2491)*UV(292)+JVS(2497)*UV(293)+JVS(2507)*UV(294)+JVS(2537)*UV(295)& + &+JVS(2549)*UV(296)+JVS(2582)*UV(297)+JVS(2645)*UV(298)+JVS(2682)*UV(300)+JVS(2747)*UV(302)+JVS(2781)& + &*UV(304)+JVS(2800)*UV(305)+JVS(2864)*UV(308)+JVS(2922)*UV(309)+JVS(2934)*UV(310)+JVS(2997)*UV(311)& + &+JVS(3017)*UV(312)+JVS(3040)*UV(313)+JVS(3153)*UV(318)+JVS(3223)*UV(322)+JVS(3249)*UV(323)+JVS(3264)& + &*UV(324)+JVS(3296)*UV(325)+JVS(3432)*UV(328)+JVS(3573)*UV(329)+JVS(3616)*UV(330)+JVS(3645)*UV(331)& + &+JVS(3770)*UV(333)+JVS(3847)*UV(334)+JVS(3969)*UV(335)+JVS(4156)*UV(338)+JVS(4473)*UV(341)+JVS(4529)& + &*UV(342)+JVS(4804)*UV(343)+JVS(5029)*UV(345)+JVS(5093)*UV(347)+JVS(5215)*UV(348)+JVS(5326)*UV(351)& + &+JVS(5604)*UV(355) + JTUV(349) = JVS(440)*UV(38)+JVS(678)*UV(81)+JVS(1023)*UV(153)+JVS(1073)*UV(160)+JVS(1674)*UV(240)+JVS(1835)*UV(254)& + &+JVS(2370)*UV(287)+JVS(2550)*UV(296)+JVS(2693)*UV(301)+JVS(3192)*UV(320)+JVS(3206)*UV(321)+JVS(3771)& + &*UV(333)+JVS(5243)*UV(349)+JVS(5684)*UV(356) + JTUV(350) = JVS(441)*UV(38)+JVS(679)*UV(81)+JVS(1024)*UV(153)+JVS(1074)*UV(160)+JVS(1675)*UV(240)+JVS(1836)*UV(254)& + &+JVS(2371)*UV(287)+JVS(2551)*UV(296)+JVS(2694)*UV(301)+JVS(3193)*UV(320)+JVS(3207)*UV(321)+JVS(3772)& + &*UV(333)+JVS(5271)*UV(350)+JVS(5685)*UV(356) + JTUV(351) = JVS(442)*UV(38)+JVS(533)*UV(39)+JVS(641)*UV(71)+JVS(1482)*UV(219)+JVS(2021)*UV(267)+JVS(3194)*UV(320)& + &+JVS(3208)*UV(321)+JVS(3574)*UV(329)+JVS(3970)*UV(335)+JVS(4159)*UV(338)+JVS(4476)*UV(341)+JVS(4532)& + &*UV(342)+JVS(4807)*UV(343)+JVS(4859)*UV(344)+JVS(5032)*UV(345)+JVS(5096)*UV(347)+JVS(5218)*UV(348)& + &+JVS(5329)*UV(351)+JVS(5424)*UV(352)+JVS(5566)*UV(354)+JVS(5607)*UV(355)+JVS(5686)*UV(356) + JTUV(352) = JVS(81)*UV(7)+JVS(320)*UV(37)+JVS(534)*UV(39)+JVS(557)*UV(42)+JVS(673)*UV(80)+JVS(688)*UV(84)+JVS(845)& + &*UV(119)+JVS(959)*UV(142)+JVS(967)*UV(144)+JVS(1031)*UV(154)+JVS(1115)*UV(167)+JVS(1217)*UV(184)+JVS(1234)& + &*UV(187)+JVS(1483)*UV(219)+JVS(1593)*UV(232)+JVS(1769)*UV(248)+JVS(1958)*UV(264)+JVS(2022)*UV(267)& + &+JVS(2055)*UV(268)+JVS(2220)*UV(279)+JVS(2320)*UV(285)+JVS(2353)*UV(286)+JVS(2498)*UV(293)+JVS(2583)& + &*UV(297)+JVS(2683)*UV(300)+JVS(2782)*UV(304)+JVS(3056)*UV(314)+JVS(3071)*UV(315)+JVS(3099)*UV(316)& + &+JVS(3179)*UV(319)+JVS(3209)*UV(321)+JVS(3321)*UV(326)+JVS(3345)*UV(327)+JVS(3575)*UV(329)+JVS(3617)& + &*UV(330)+JVS(3848)*UV(334)+JVS(3971)*UV(335)+JVS(4271)*UV(340)+JVS(4477)*UV(341)+JVS(4808)*UV(343)& + &+JVS(4860)*UV(344)+JVS(5219)*UV(348)+JVS(5425)*UV(352)+JVS(5527)*UV(353)+JVS(5687)*UV(356) + JTUV(353) = JVS(443)*UV(38)+JVS(565)*UV(43)+JVS(713)*UV(92)+JVS(1448)*UV(217)+JVS(1503)*UV(221)+JVS(1713)*UV(244)& + &+JVS(2023)*UV(267)+JVS(2056)*UV(268)+JVS(2354)*UV(286)+JVS(2372)*UV(287)+JVS(2552)*UV(296)+JVS(3124)& + &*UV(317)+JVS(3195)*UV(320)+JVS(3210)*UV(321)+JVS(3576)*UV(329)+JVS(3618)*UV(330)+JVS(3672)*UV(332)& + &+JVS(3775)*UV(333)+JVS(4042)*UV(337)+JVS(4809)*UV(343)+JVS(5528)*UV(353) + JTUV(354) = JVS(444)*UV(38)+JVS(1025)*UV(153)+JVS(1075)*UV(160)+JVS(1484)*UV(219)+JVS(1676)*UV(240)+JVS(2696)*UV(301)& + &+JVS(3196)*UV(320)+JVS(3211)*UV(321)+JVS(3673)*UV(332)+JVS(3776)*UV(333)+JVS(4043)*UV(337)+JVS(4535)& + &*UV(342)+JVS(4810)*UV(343)+JVS(5099)*UV(347)+JVS(5248)*UV(349)+JVS(5275)*UV(350)+JVS(5332)*UV(351)& + &+JVS(5529)*UV(353)+JVS(5569)*UV(354)+JVS(5689)*UV(356) + JTUV(355) = JVS(167)*UV(29)+JVS(183)*UV(32)+JVS(188)*UV(33)+JVS(196)*UV(34)+JVS(200)*UV(35)+JVS(445)*UV(38)+JVS(551)& + &*UV(41)+JVS(717)*UV(93)+JVS(983)*UV(146)+JVS(1124)*UV(169)+JVS(1212)*UV(183)+JVS(1714)*UV(244)+JVS(2024)& + &*UV(267)+JVS(3125)*UV(317)+JVS(3197)*UV(320)+JVS(3577)*UV(329)+JVS(3619)*UV(330)+JVS(3674)*UV(332)& + &+JVS(4274)*UV(340)+JVS(4480)*UV(341)+JVS(4811)*UV(343)+JVS(5036)*UV(345)+JVS(5570)*UV(354)+JVS(5611)& + &*UV(355)+JVS(5690)*UV(356) + JTUV(356) = JVS(82)*UV(7)+JVS(168)*UV(29)+JVS(189)*UV(33)+JVS(197)*UV(34)+JVS(446)*UV(38)+JVS(535)*UV(39)+JVS(552)& + &*UV(41)+JVS(566)*UV(43)+JVS(827)*UV(116)+JVS(849)*UV(120)+JVS(912)*UV(132)+JVS(951)*UV(140)+JVS(971)& + &*UV(145)+JVS(984)*UV(146)+JVS(1043)*UV(156)+JVS(1110)*UV(166)+JVS(1125)*UV(169)+JVS(1129)*UV(170)+JVS(1196)& + &*UV(180)+JVS(1213)*UV(183)+JVS(1281)*UV(194)+JVS(1291)*UV(196)+JVS(1340)*UV(204)+JVS(1348)*UV(205)& + &+JVS(1364)*UV(206)+JVS(1377)*UV(207)+JVS(1411)*UV(212)+JVS(1485)*UV(219)+JVS(1507)*UV(222)+JVS(1511)& + &*UV(223)+JVS(1524)*UV(224)+JVS(1549)*UV(227)+JVS(1564)*UV(229)+JVS(1594)*UV(232)+JVS(1606)*UV(234)& + &+JVS(1646)*UV(238)+JVS(1687)*UV(241)+JVS(1715)*UV(244)+JVS(1739)*UV(246)+JVS(1853)*UV(256)+JVS(1948)& + &*UV(263)+JVS(2009)*UV(266)+JVS(2025)*UV(267)+JVS(2057)*UV(268)+JVS(2158)*UV(274)+JVS(2171)*UV(275)& + &+JVS(2205)*UV(277)+JVS(2216)*UV(278)+JVS(2221)*UV(279)+JVS(2248)*UV(281)+JVS(2356)*UV(286)+JVS(2499)& + &*UV(293)+JVS(2538)*UV(295)+JVS(2584)*UV(297)+JVS(2647)*UV(298)+JVS(2749)*UV(302)+JVS(2924)*UV(309)& + &+JVS(3042)*UV(313)+JVS(3126)*UV(317)+JVS(3155)*UV(318)+JVS(3198)*UV(320)+JVS(3266)*UV(324)+JVS(3434)& + &*UV(328)+JVS(3578)*UV(329)+JVS(3620)*UV(330)+JVS(3649)*UV(331)+JVS(3851)*UV(334)+JVS(3974)*UV(335)& + &+JVS(3994)*UV(336)+JVS(4045)*UV(337)+JVS(4164)*UV(338)+JVS(4481)*UV(341)+JVS(4537)*UV(342)+JVS(4812)& + &*UV(343)+JVS(4864)*UV(344)+JVS(5037)*UV(345)+JVS(5101)*UV(347)+JVS(5223)*UV(348)+JVS(5250)*UV(349)& + &+JVS(5277)*UV(350)+JVS(5334)*UV(351)+JVS(5429)*UV(352)+JVS(5571)*UV(354)+JVS(5612)*UV(355)+JVS(5691)& + &*UV(356) END SUBROUTINE JacTR_SP_Vec diff --git a/KPP/fullchem/gckpp_JacobianSP.F90 b/KPP/fullchem/gckpp_JacobianSP.F90 index be1974b0e..4eabbd406 100644 --- a/KPP/fullchem/gckpp_JacobianSP.F90 +++ b/KPP/fullchem/gckpp_JacobianSP.F90 @@ -2,7 +2,7 @@ ! ! Sparse Jacobian Data Structures File ! -! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor +! Generated by KPP-3.3.0 symbolic chemistry Kinetics PreProcessor ! (https:/github.com/KineticPreProcessor/KPP ! KPP is distributed under GPL, the general public licence ! (http://www.gnu.org/copyleft/gpl.html) @@ -48,1045 +48,1047 @@ MODULE gckpp_JacobianSP 24, 24, 24, 24, 24, 24, 25, 25, 25, 26, 26, 26, & ! index 145 - 156 27, 27, 27, 27, 27, 28, 28, 28, 29, 29, 29, 29, & ! index 157 - 168 30, 30, 30, 30, 31, 31, 31, 31, 31, 31, 32, 32, & ! index 169 - 180 - 32, 32, 32, 33, 33, 33, 33, 34, 34, 34, 34, 34, & ! index 181 - 192 - 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, & ! index 193 - 204 - 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, & ! index 205 - 216 - 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, & ! index 217 - 228 - 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, & ! index 229 - 240 - 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, & ! index 241 - 252 - 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, & ! index 253 - 264 - 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, & ! index 265 - 276 - 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, & ! index 277 - 288 - 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, 34, & ! index 289 - 300 - 34, 34, 34, 34, 34, 35, 35, 35, 35, 35, 35, 35, & ! index 301 - 312 - 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, & ! index 313 - 324 - 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, & ! index 325 - 336 - 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, & ! index 337 - 348 - 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35 /) ! index up to 360 + 32, 32, 32, 33, 33, 33, 33, 33, 33, 34, 34, 34, & ! index 181 - 192 + 34, 34, 34, 34, 34, 35, 35, 35, 36, 36, 37, 37, & ! index 193 - 204 + 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, & ! index 205 - 216 + 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, & ! index 217 - 228 + 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, & ! index 229 - 240 + 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, & ! index 241 - 252 + 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, & ! index 253 - 264 + 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, & ! index 265 - 276 + 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, & ! index 277 - 288 + 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, & ! index 289 - 300 + 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37, & ! index 301 - 312 + 37, 37, 37, 37, 37, 37, 37, 37, 38, 38, 38, 38, & ! index 313 - 324 + 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, & ! index 325 - 336 + 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, & ! index 337 - 348 + 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38 /) ! index up to 360 INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_1 = (/ & - 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, & ! index 361 - 372 - 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, & ! index 373 - 384 - 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, & ! index 385 - 396 - 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, & ! index 397 - 408 - 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, & ! index 409 - 420 - 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 35, 36, & ! index 421 - 432 - 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, & ! index 433 - 444 - 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, & ! index 445 - 456 - 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, & ! index 457 - 468 - 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, & ! index 469 - 480 - 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, & ! index 481 - 492 - 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, & ! index 493 - 504 - 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, & ! index 505 - 516 - 36, 36, 36, 36, 37, 37, 37, 37, 37, 38, 38, 38, & ! index 517 - 528 - 38, 38, 38, 38, 38, 38, 38, 38, 39, 39, 39, 39, & ! index 529 - 540 - 39, 40, 40, 40, 40, 40, 40, 40, 40, 40, 41, 41, & ! index 541 - 552 - 42, 42, 43, 43, 44, 44, 45, 45, 45, 45, 46, 46, & ! index 553 - 564 - 47, 47, 48, 48, 49, 49, 50, 50, 51, 51, 52, 52, & ! index 565 - 576 - 53, 53, 54, 54, 55, 55, 55, 56, 56, 56, 57, 57, & ! index 577 - 588 - 57, 58, 58, 58, 59, 59, 59, 60, 60, 61, 61, 62, & ! index 589 - 600 - 62, 62, 63, 63, 63, 63, 64, 64, 64, 64, 65, 65, & ! index 601 - 612 - 65, 65, 66, 66, 66, 66, 66, 67, 67, 67, 68, 68, & ! index 613 - 624 - 68, 69, 69, 69, 70, 70, 70, 70, 71, 71, 71, 71, & ! index 625 - 636 - 72, 72, 72, 72, 73, 73, 73, 73, 74, 74, 74, 74, & ! index 637 - 648 - 75, 75, 75, 76, 76, 76, 77, 77, 77, 77, 77, 77, & ! index 649 - 660 - 78, 78, 78, 79, 79, 79, 80, 80, 80, 81, 81, 81, & ! index 661 - 672 - 82, 82, 83, 83, 83, 83, 84, 84, 84, 85, 85, 85, & ! index 673 - 684 - 86, 86, 86, 87, 87, 87, 88, 88, 88, 88, 89, 89, & ! index 685 - 696 - 89, 89, 90, 90, 90, 90, 91, 91, 91, 91, 92, 92, & ! index 697 - 708 - 92, 92, 93, 93, 93, 93, 94, 94, 94, 95, 95, 95 /) ! index up to 720 + 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, & ! index 361 - 372 + 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, & ! index 373 - 384 + 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, & ! index 385 - 396 + 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, & ! index 397 - 408 + 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, & ! index 409 - 420 + 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, & ! index 421 - 432 + 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, & ! index 433 - 444 + 38, 38, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, & ! index 445 - 456 + 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, & ! index 457 - 468 + 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, & ! index 469 - 480 + 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, & ! index 481 - 492 + 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, & ! index 493 - 504 + 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, & ! index 505 - 516 + 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, 39, & ! index 517 - 528 + 39, 39, 39, 39, 39, 39, 39, 40, 40, 40, 40, 40, & ! index 529 - 540 + 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, 41, & ! index 541 - 552 + 42, 42, 42, 42, 42, 43, 43, 43, 43, 43, 43, 43, & ! index 553 - 564 + 43, 43, 44, 44, 45, 45, 46, 46, 47, 47, 48, 48, & ! index 565 - 576 + 48, 48, 49, 49, 50, 50, 51, 51, 52, 52, 53, 53, & ! index 577 - 588 + 54, 54, 55, 55, 56, 56, 57, 57, 58, 58, 58, 59, & ! index 589 - 600 + 59, 59, 60, 60, 60, 61, 61, 61, 62, 62, 62, 63, & ! index 601 - 612 + 63, 64, 64, 65, 65, 65, 66, 66, 66, 66, 67, 67, & ! index 613 - 624 + 67, 67, 68, 68, 68, 68, 69, 69, 69, 69, 69, 70, & ! index 625 - 636 + 70, 70, 71, 71, 71, 72, 72, 72, 73, 73, 73, 73, & ! index 637 - 648 + 74, 74, 74, 74, 75, 75, 75, 75, 76, 76, 76, 76, & ! index 649 - 660 + 77, 77, 77, 77, 78, 78, 78, 79, 79, 79, 80, 80, & ! index 661 - 672 + 80, 81, 81, 81, 81, 81, 81, 82, 82, 82, 83, 83, & ! index 673 - 684 + 83, 84, 84, 84, 85, 85, 86, 86, 86, 86, 87, 87, & ! index 685 - 696 + 87, 88, 88, 88, 89, 89, 89, 90, 90, 90, 91, 91, & ! index 697 - 708 + 91, 92, 92, 92, 92, 93, 93, 93, 93, 94, 94, 94 /) ! index up to 720 INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_2 = (/ & - 95, 96, 96, 96, 96, 96, 96, 96, 97, 97, 97, 97, & ! index 721 - 732 - 98, 98, 98, 98, 99, 99, 99, 99,100,100,100,100, & ! index 733 - 744 - 101,101,102,102,102,102,103,103,103,103,103,103, & ! index 745 - 756 - 103,103,103,103,103,103,103,103,104,104,104,104, & ! index 757 - 768 - 104,104,104,104,105,105,105,106,106,106,106,106, & ! index 769 - 780 - 106,107,107,107,107,108,108,108,108,109,109,109, & ! index 781 - 792 - 109,110,110,110,110,110,110,110,111,111,111,111, & ! index 793 - 804 - 112,112,112,112,113,113,113,113,114,114,114,114, & ! index 805 - 816 - 115,115,115,115,115,115,116,116,116,116,117,117, & ! index 817 - 828 - 117,117,117,117,117,118,118,118,118,118,119,119, & ! index 829 - 840 - 119,119,119,120,120,120,120,120,121,121,121,121, & ! index 841 - 852 - 121,121,122,122,122,122,123,123,123,123,124,124, & ! index 853 - 864 - 124,124,125,125,125,125,126,126,126,126,127,127, & ! index 865 - 876 - 127,127,128,128,128,128,128,128,129,129,129,129, & ! index 877 - 888 - 129,129,129,129,129,129,129,129,130,130,130,130, & ! index 889 - 900 - 130,131,131,131,131,131,131,132,132,132,132,132, & ! index 901 - 912 - 133,133,133,133,133,134,134,134,134,134,134,134, & ! index 913 - 924 - 134,134,134,134,134,135,135,135,135,135,136,136, & ! index 925 - 936 - 136,136,136,137,137,137,137,138,138,138,138,139, & ! index 937 - 948 - 139,139,139,140,140,140,140,141,141,141,141,142, & ! index 949 - 960 - 142,142,142,143,143,143,143,144,144,144,144,144, & ! index 961 - 972 - 145,145,145,145,145,145,145,145,145,146,146,146, & ! index 973 - 984 - 146,146,146,147,147,147,147,148,148,148,148,148, & ! index 985 - 996 - 148,148,148,148,149,149,149,150,150,150,150,150, & ! index 997 - 1008 - 151,151,151,151,151,151,152,152,152,152,152,152, & ! index 1009 - 1020 - 153,153,153,153,153,153,154,154,154,154,154,154, & ! index 1021 - 1032 - 155,155,155,155,155,155,156,156,156,156,156,156, & ! index 1033 - 1044 - 157,157,157,157,157,157,157,157,157,157,157,157, & ! index 1045 - 1056 - 157,157,158,158,158,158,158,158,158,159,159,159, & ! index 1057 - 1068 - 159,160,160,160,160,160,161,161,161,161,161,162 /) ! index up to 1080 + 94, 95, 95, 95, 95, 96, 96, 96, 96, 97, 97, 97, & ! index 721 - 732 + 97, 98, 98, 98, 98, 98, 98, 98, 99, 99, 99, 99, & ! index 733 - 744 + 100,100,100,100,101,101,101,101,102,102,102,102, & ! index 745 - 756 + 103,103,104,104,104,104,105,105,105,105,106,106, & ! index 757 - 768 + 106,106,106,106,106,106,106,106,106,106,106,106, & ! index 769 - 780 + 107,107,107,107,107,107,107,107,108,108,108,109, & ! index 781 - 792 + 109,109,109,110,110,110,110,111,111,111,111,112, & ! index 793 - 804 + 112,112,112,113,113,113,113,114,114,114,114,114, & ! index 805 - 816 + 114,115,115,115,115,116,116,116,116,116,116,117, & ! index 817 - 828 + 117,117,117,118,118,118,118,118,118,118,119,119, & ! index 829 - 840 + 119,119,119,119,119,120,120,120,120,121,121,121, & ! index 841 - 852 + 121,121,122,122,122,122,122,123,123,123,123,123, & ! index 853 - 864 + 124,124,124,124,124,124,125,125,125,125,126,126, & ! index 865 - 876 + 126,126,127,127,127,127,128,128,128,128,129,129, & ! index 877 - 888 + 129,129,130,130,130,130,131,131,131,131,131,131, & ! index 889 - 900 + 132,132,132,132,132,132,132,132,132,132,132,132, & ! index 901 - 912 + 133,133,133,133,133,134,134,134,134,134,135,135, & ! index 913 - 924 + 135,135,135,135,136,136,136,136,136,137,137,137, & ! index 925 - 936 + 137,137,138,138,138,138,138,139,139,139,139,140, & ! index 937 - 948 + 140,140,140,141,141,141,141,142,142,142,142,143, & ! index 949 - 960 + 143,143,143,144,144,144,144,145,145,145,145,146, & ! index 961 - 972 + 146,146,146,146,146,146,146,146,146,146,146,146, & ! index 973 - 984 + 147,147,147,147,147,147,147,147,147,148,148,148, & ! index 985 - 996 + 149,149,149,149,150,150,150,150,150,151,151,151, & ! index 997 - 1008 + 151,151,152,152,152,152,152,152,153,153,153,153, & ! index 1009 - 1020 + 153,153,153,153,153,154,154,154,154,154,154,155, & ! index 1021 - 1032 + 155,155,155,155,155,156,156,156,156,156,156,157, & ! index 1033 - 1044 + 157,157,157,157,157,158,158,158,158,158,158,159, & ! index 1045 - 1056 + 159,159,159,159,159,160,160,160,160,160,160,160, & ! index 1057 - 1068 + 160,160,160,160,160,160,160,161,161,161,161,162 /) ! index up to 1080 INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_3 = (/ & - 162,162,162,162,162,163,163,163,163,163,163,163, & ! index 1081 - 1092 - 163,164,164,164,164,164,165,165,165,165,165,166, & ! index 1093 - 1104 - 166,166,166,166,167,167,167,167,168,168,168,168, & ! index 1105 - 1116 - 169,169,169,169,169,169,170,170,170,170,170,170, & ! index 1117 - 1128 - 170,170,171,171,171,171,171,171,172,172,172,172, & ! index 1129 - 1140 - 172,172,173,173,173,173,173,173,173,173,173,173, & ! index 1141 - 1152 - 173,173,174,174,174,174,174,174,175,175,175,175, & ! index 1153 - 1164 - 176,176,176,176,176,176,177,177,177,177,177,177, & ! index 1165 - 1176 - 177,177,177,178,178,178,178,178,178,178,179,179, & ! index 1177 - 1188 - 179,179,179,180,180,180,180,180,181,181,181,181, & ! index 1189 - 1200 - 182,182,182,182,182,182,183,183,183,183,183,184, & ! index 1201 - 1212 - 184,184,184,184,185,185,185,185,185,185,185,185, & ! index 1213 - 1224 - 185,186,186,186,186,187,187,187,187,188,188,188, & ! index 1225 - 1236 - 188,188,188,188,188,188,188,188,188,188,189,189, & ! index 1237 - 1248 - 189,189,189,189,189,189,190,190,190,190,190,190, & ! index 1249 - 1260 - 191,191,191,191,192,192,192,192,193,193,193,193, & ! index 1261 - 1272 - 193,193,194,194,194,194,194,194,195,195,195,195, & ! index 1273 - 1284 - 195,195,196,196,196,196,196,196,196,197,197,197, & ! index 1285 - 1296 - 197,197,197,197,198,198,198,198,198,198,198,199, & ! index 1297 - 1308 - 199,199,199,200,200,200,201,201,201,201,201,201, & ! index 1309 - 1320 - 201,201,201,202,202,202,202,202,202,202,202,203, & ! index 1321 - 1332 - 203,203,203,203,203,203,203,203,203,203,203,203, & ! index 1333 - 1344 - 203,203,203,204,204,204,204,204,204,204,204,204, & ! index 1345 - 1356 - 204,204,204,204,205,205,205,205,205,205,206,206, & ! index 1357 - 1368 - 206,206,206,207,207,207,207,207,208,208,208,208, & ! index 1369 - 1380 - 208,208,208,208,208,208,208,208,209,209,209,209, & ! index 1381 - 1392 - 210,210,210,210,210,210,210,210,210,210,210,211, & ! index 1393 - 1404 - 211,211,211,211,211,212,212,212,212,212,212,212, & ! index 1405 - 1416 - 213,213,213,213,213,213,213,213,214,214,214,214, & ! index 1417 - 1428 - 214,214,214,215,215,215,215,215,215,215,215,215 /) ! index up to 1440 + 162,162,162,162,162,162,163,163,163,163,163,164, & ! index 1081 - 1092 + 164,164,164,164,165,165,165,165,165,165,166,166, & ! index 1093 - 1104 + 166,166,166,166,166,166,167,167,167,167,167,168, & ! index 1105 - 1116 + 168,168,168,168,169,169,169,169,169,170,170,170, & ! index 1117 - 1128 + 170,171,171,171,171,171,171,172,172,172,172,172, & ! index 1129 - 1140 + 172,172,172,173,173,173,173,173,173,174,174,174, & ! index 1141 - 1152 + 174,174,174,175,175,175,175,176,176,176,176,176, & ! index 1153 - 1164 + 176,176,176,176,176,176,176,177,177,177,177,178, & ! index 1165 - 1176 + 178,178,178,178,178,179,179,179,179,179,179,180, & ! index 1177 - 1188 + 180,180,180,180,180,180,180,180,181,181,181,181, & ! index 1189 - 1200 + 181,182,182,182,182,182,182,182,183,183,183,183, & ! index 1201 - 1212 + 183,184,184,184,184,185,185,185,185,185,185,186, & ! index 1213 - 1224 + 186,186,186,186,186,187,187,187,187,187,188,188, & ! index 1225 - 1236 + 188,188,189,189,189,189,189,190,190,190,190,190, & ! index 1237 - 1248 + 190,190,190,190,191,191,191,191,192,192,192,192, & ! index 1249 - 1260 + 192,192,192,192,192,192,192,192,192,193,193,193, & ! index 1261 - 1272 + 193,193,193,193,193,194,194,194,194,195,195,195, & ! index 1273 - 1284 + 195,196,196,196,196,196,196,197,197,197,197,197, & ! index 1285 - 1296 + 197,198,198,198,198,198,198,198,199,199,199,199, & ! index 1297 - 1308 + 199,199,200,200,200,200,200,200,200,201,201,201, & ! index 1309 - 1320 + 201,201,201,201,202,202,202,202,203,203,203,204, & ! index 1321 - 1332 + 204,204,204,204,204,204,204,204,205,205,205,205, & ! index 1333 - 1344 + 205,205,205,205,206,206,206,206,206,206,206,206, & ! index 1345 - 1356 + 206,206,206,206,206,206,206,206,207,207,207,207, & ! index 1357 - 1368 + 207,207,207,207,207,207,207,207,207,208,208,208, & ! index 1369 - 1380 + 208,208,209,209,209,209,209,210,210,210,210,210, & ! index 1381 - 1392 + 210,211,211,211,211,211,211,211,211,211,211,211, & ! index 1393 - 1404 + 211,212,212,212,212,212,212,213,213,213,213,214, & ! index 1405 - 1416 + 214,214,214,214,214,214,214,214,214,214,215,215, & ! index 1417 - 1428 + 215,215,215,215,215,216,216,216,216,216,216,216 /) ! index up to 1440 INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_4 = (/ & - 215,215,215,215,215,215,215,215,215,215,215,215, & ! index 1441 - 1452 - 215,215,215,215,216,216,216,216,216,216,216,216, & ! index 1453 - 1464 - 216,216,216,216,217,217,217,217,217,217,217,217, & ! index 1465 - 1476 - 217,217,217,217,218,218,218,218,218,218,219,219, & ! index 1477 - 1488 - 219,219,220,220,220,220,221,221,221,221,221,221, & ! index 1489 - 1500 - 221,221,221,221,221,221,221,222,222,222,222,222, & ! index 1501 - 1512 - 222,223,223,223,223,223,223,223,224,224,224,224, & ! index 1513 - 1524 - 224,224,224,225,225,225,225,225,225,225,225,225, & ! index 1525 - 1536 - 225,225,225,226,226,226,226,226,226,227,227,227, & ! index 1537 - 1548 - 227,227,227,227,227,227,227,227,227,227,227,227, & ! index 1549 - 1560 - 227,227,228,228,228,228,228,228,228,229,229,229, & ! index 1561 - 1572 - 229,229,229,230,230,230,230,230,230,231,231,231, & ! index 1573 - 1584 - 231,231,231,232,232,232,232,232,232,232,232,233, & ! index 1585 - 1596 - 233,233,233,233,233,233,233,234,234,234,234,234, & ! index 1597 - 1608 - 234,234,234,234,234,234,235,235,235,235,235,235, & ! index 1609 - 1620 - 235,235,235,235,235,235,236,236,236,236,236,236, & ! index 1621 - 1632 - 236,236,236,236,236,236,236,236,237,237,237,237, & ! index 1633 - 1644 - 237,237,237,237,237,238,238,238,238,238,238,238, & ! index 1645 - 1656 - 238,238,238,238,239,239,239,239,239,239,239,239, & ! index 1657 - 1668 - 239,239,239,239,239,239,239,239,239,239,239,239, & ! index 1669 - 1680 - 239,240,240,240,240,240,240,240,240,240,241,241, & ! index 1681 - 1692 - 241,241,241,241,241,241,242,242,242,242,242,242, & ! index 1693 - 1704 - 242,242,242,242,242,242,243,243,243,243,243,243, & ! index 1705 - 1716 - 243,243,243,243,243,243,244,244,244,244,244,244, & ! index 1717 - 1728 - 244,244,244,244,244,244,244,244,244,244,245,245, & ! index 1729 - 1740 - 245,245,245,245,245,245,245,245,245,245,245,245, & ! index 1741 - 1752 - 246,246,246,246,246,246,246,247,247,247,247,247, & ! index 1753 - 1764 - 247,247,247,247,247,247,247,247,247,247,247,247, & ! index 1765 - 1776 - 247,247,247,247,247,248,248,248,248,248,248,248, & ! index 1777 - 1788 - 248,248,248,248,248,248,248,248,249,249,249,249 /) ! index up to 1800 + 216,217,217,217,217,217,217,217,218,218,218,218, & ! index 1441 - 1452 + 218,218,218,218,218,218,218,218,218,218,218,218, & ! index 1453 - 1464 + 218,218,218,218,218,218,218,218,218,219,219,219, & ! index 1465 - 1476 + 219,219,219,219,219,219,219,219,219,220,220,220, & ! index 1477 - 1488 + 220,220,220,220,220,220,220,220,220,221,221,221, & ! index 1489 - 1500 + 221,221,221,222,222,222,222,223,223,223,223,224, & ! index 1501 - 1512 + 224,224,224,224,224,224,224,224,224,224,224,224, & ! index 1513 - 1524 + 225,225,225,225,225,225,226,226,226,226,226,226, & ! index 1525 - 1536 + 226,227,227,227,227,227,227,227,227,227,227,227, & ! index 1537 - 1548 + 227,228,228,228,228,228,228,228,229,229,229,229, & ! index 1549 - 1560 + 229,229,229,229,230,230,230,230,230,230,230,230, & ! index 1561 - 1572 + 230,230,230,230,230,230,230,230,230,231,231,231, & ! index 1573 - 1584 + 231,231,231,232,232,232,232,232,232,232,233,233, & ! index 1585 - 1596 + 233,233,233,233,234,234,234,234,234,234,235,235, & ! index 1597 - 1608 + 235,235,235,235,235,235,236,236,236,236,236,236, & ! index 1609 - 1620 + 237,237,237,237,237,237,237,237,237,237,237,237, & ! index 1621 - 1632 + 238,238,238,238,238,238,238,238,238,238,238,238, & ! index 1633 - 1644 + 238,238,239,239,239,239,239,239,239,239,239,239, & ! index 1645 - 1656 + 239,240,240,240,240,240,240,240,240,240,240,240, & ! index 1657 - 1668 + 240,240,240,240,240,240,240,240,240,240,241,241, & ! index 1669 - 1680 + 241,241,241,241,241,241,241,242,242,242,242,242, & ! index 1681 - 1692 + 242,242,242,242,242,242,243,243,243,243,243,243, & ! index 1693 - 1704 + 243,243,243,244,244,244,244,244,244,244,244,245, & ! index 1705 - 1716 + 245,245,245,245,245,245,245,245,245,245,245,246, & ! index 1717 - 1728 + 246,246,246,246,246,246,246,246,246,246,246,247, & ! index 1729 - 1740 + 247,247,247,247,247,247,247,247,247,247,247,247, & ! index 1741 - 1752 + 247,247,247,248,248,248,248,248,248,248,248,248, & ! index 1753 - 1764 + 248,248,248,248,248,249,249,249,249,249,249,249, & ! index 1765 - 1776 + 249,249,249,249,249,249,249,249,249,249,249,249, & ! index 1777 - 1788 + 249,249,249,250,250,250,250,250,250,250,251,251 /) ! index up to 1800 INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_5 = (/ & - 249,249,249,250,250,250,250,250,250,250,250,250, & ! index 1801 - 1812 - 251,251,251,251,251,251,251,252,252,252,252,252, & ! index 1813 - 1824 - 252,252,253,253,253,253,253,253,253,253,253,253, & ! index 1825 - 1836 - 253,254,254,254,254,254,254,254,254,254,254,254, & ! index 1837 - 1848 - 255,255,255,255,255,255,255,255,255,255,256,256, & ! index 1849 - 1860 - 256,256,256,256,256,256,256,256,256,256,256,256, & ! index 1861 - 1872 - 256,256,256,256,256,256,256,256,257,257,257,257, & ! index 1873 - 1884 - 257,257,257,257,257,257,257,257,257,257,258,258, & ! index 1885 - 1896 - 258,258,258,258,258,258,258,258,258,258,258,258, & ! index 1897 - 1908 - 258,259,259,259,259,259,259,259,259,259,259,260, & ! index 1909 - 1920 - 260,260,260,260,260,260,260,260,260,261,261,261, & ! index 1921 - 1932 - 261,261,261,261,261,261,261,261,261,261,261,261, & ! index 1933 - 1944 - 261,261,262,262,262,262,262,262,262,262,262,262, & ! index 1945 - 1956 - 262,262,263,263,263,263,263,263,263,263,263,263, & ! index 1957 - 1968 - 263,263,263,263,263,263,263,263,263,263,263,263, & ! index 1969 - 1980 - 263,263,263,263,263,263,263,263,263,263,263,263, & ! index 1981 - 1992 - 264,264,264,264,264,264,264,264,264,264,264,264, & ! index 1993 - 2004 - 264,264,264,264,265,265,265,265,265,265,265,265, & ! index 2005 - 2016 - 265,265,265,265,265,265,265,265,265,265,265,265, & ! index 2017 - 2028 - 265,265,265,265,265,265,265,265,265,265,265,265, & ! index 2029 - 2040 - 266,266,266,266,266,266,266,266,266,266,266,266, & ! index 2041 - 2052 - 266,266,266,266,266,266,266,267,267,267,267,267, & ! index 2053 - 2064 - 267,268,268,268,268,268,268,268,269,269,269,269, & ! index 2065 - 2076 - 269,269,269,269,269,269,269,269,269,269,269,269, & ! index 2077 - 2088 - 270,270,270,270,270,270,270,270,270,270,270,270, & ! index 2089 - 2100 - 270,270,270,270,270,270,270,270,270,270,270,270, & ! index 2101 - 2112 - 270,270,270,270,270,270,270,270,270,270,270,270, & ! index 2113 - 2124 - 270,270,270,270,270,270,270,270,270,271,271,271, & ! index 2125 - 2136 - 271,271,271,271,271,272,272,272,272,272,272,272, & ! index 2137 - 2148 - 272,272,272,272,273,273,273,273,273,273,273,273 /) ! index up to 2160 + 251,251,251,251,251,251,251,251,251,251,251,251, & ! index 1801 - 1812 + 251,252,252,252,252,252,252,252,253,253,253,253, & ! index 1813 - 1824 + 253,253,253,253,253,254,254,254,254,254,254,254, & ! index 1825 - 1836 + 255,255,255,255,255,255,255,256,256,256,256,256, & ! index 1837 - 1848 + 256,256,256,256,256,257,257,257,257,257,257,257, & ! index 1849 - 1860 + 257,257,257,257,258,258,258,258,258,258,258,258, & ! index 1861 - 1872 + 258,258,258,259,259,259,259,259,259,259,259,259, & ! index 1873 - 1884 + 259,259,259,259,259,259,260,260,260,260,260,260, & ! index 1885 - 1896 + 260,260,260,260,260,260,260,260,260,260,260,260, & ! index 1897 - 1908 + 260,260,260,260,261,261,261,261,261,261,261,261, & ! index 1909 - 1920 + 261,261,261,261,261,261,262,262,262,262,262,262, & ! index 1921 - 1932 + 262,262,262,262,263,263,263,263,263,263,263,263, & ! index 1933 - 1944 + 263,263,263,263,264,264,264,264,264,264,264,264, & ! index 1945 - 1956 + 264,264,265,265,265,265,265,265,265,265,265,265, & ! index 1957 - 1968 + 265,265,265,265,265,265,265,266,266,266,266,266, & ! index 1969 - 1980 + 266,266,266,266,266,266,266,266,266,266,266,266, & ! index 1981 - 1992 + 266,266,266,266,266,266,266,266,266,266,266,266, & ! index 1993 - 2004 + 266,266,266,266,266,267,267,267,267,267,267,267, & ! index 2005 - 2016 + 267,267,267,267,267,267,267,267,267,268,268,268, & ! index 2017 - 2028 + 268,268,268,268,268,268,268,268,268,268,268,268, & ! index 2029 - 2040 + 268,268,268,268,268,268,268,268,268,268,268,268, & ! index 2041 - 2052 + 268,268,268,268,268,269,269,269,269,269,269,269, & ! index 2053 - 2064 + 269,269,269,269,269,269,269,269,269,269,269,269, & ! index 2065 - 2076 + 270,270,270,270,270,270,271,271,271,271,271,271, & ! index 2077 - 2088 + 271,272,272,272,272,272,272,272,272,272,272,272, & ! index 2089 - 2100 + 272,272,272,272,272,273,273,273,273,273,273,273, & ! index 2101 - 2112 + 273,274,274,274,274,274,274,274,274,274,274,274, & ! index 2113 - 2124 + 274,274,274,274,274,274,274,274,274,274,274,274, & ! index 2125 - 2136 + 274,274,274,274,274,274,274,274,274,274,274,274, & ! index 2137 - 2148 + 274,274,274,274,274,274,274,274,274,274,275,275 /) ! index up to 2160 INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_6 = (/ & - 273,273,273,273,273,274,274,274,274,274,274,274, & ! index 2161 - 2172 - 274,274,274,274,274,274,274,274,274,274,274,274, & ! index 2173 - 2184 - 274,274,274,274,275,275,275,275,275,275,275,275, & ! index 2185 - 2196 - 275,275,275,276,276,276,276,276,277,277,277,277, & ! index 2197 - 2208 - 277,277,277,277,277,277,277,278,278,278,278,278, & ! index 2209 - 2220 - 278,278,278,278,278,278,278,278,278,278,279,279, & ! index 2221 - 2232 - 279,279,279,279,279,279,279,280,280,280,280,280, & ! index 2233 - 2244 - 280,280,280,280,280,280,280,280,280,280,280,281, & ! index 2245 - 2256 - 281,281,281,281,281,281,281,281,281,281,282,282, & ! index 2257 - 2268 - 282,282,282,282,282,282,282,282,282,282,282,282, & ! index 2269 - 2280 - 282,282,282,282,282,282,282,282,282,282,282,282, & ! index 2281 - 2292 - 282,282,282,282,282,282,282,282,282,282,282,282, & ! index 2293 - 2304 - 283,283,283,283,283,283,283,283,283,283,283,283, & ! index 2305 - 2316 - 283,283,283,283,283,283,283,283,283,283,283,283, & ! index 2317 - 2328 - 283,283,283,283,283,283,283,283,283,283,283,284, & ! index 2329 - 2340 - 284,284,284,284,284,284,284,284,284,284,284,284, & ! index 2341 - 2352 - 284,285,285,285,285,285,285,285,285,285,285,285, & ! index 2353 - 2364 - 285,285,285,285,285,285,285,285,285,286,286,286, & ! index 2365 - 2376 - 286,286,286,286,286,286,286,286,286,286,286,286, & ! index 2377 - 2388 - 286,286,286,286,286,287,287,287,287,287,287,287, & ! index 2389 - 2400 - 287,287,287,287,287,287,287,287,287,287,287,287, & ! index 2401 - 2412 - 287,287,287,287,287,287,287,287,287,287,287,287, & ! index 2413 - 2424 - 287,287,287,288,288,288,288,288,288,288,288,288, & ! index 2425 - 2436 - 288,288,288,288,288,288,288,288,288,288,288,288, & ! index 2437 - 2448 - 288,288,288,288,288,288,288,288,288,288,288,288, & ! index 2449 - 2460 - 289,289,289,289,289,289,289,289,289,289,289,289, & ! index 2461 - 2472 - 289,290,290,290,290,290,290,290,291,291,291,291, & ! index 2473 - 2484 - 291,291,291,291,291,292,292,292,292,292,292,292, & ! index 2485 - 2496 - 292,292,292,292,292,292,292,292,292,292,292,292, & ! index 2497 - 2508 - 292,292,292,292,292,292,292,292,292,292,292,293 /) ! index up to 2520 + 275,275,275,275,275,275,275,275,275,275,275,276, & ! index 2161 - 2172 + 276,276,276,276,276,276,276,276,276,276,277,277, & ! index 2173 - 2184 + 277,277,277,277,277,277,277,277,277,277,277,277, & ! index 2185 - 2196 + 277,277,277,277,277,277,277,277,277,278,278,278, & ! index 2197 - 2208 + 278,278,278,278,278,278,278,278,279,279,279,279, & ! index 2209 - 2220 + 279,280,280,280,280,280,280,280,280,280,280,280, & ! index 2221 - 2232 + 280,280,280,280,280,281,281,281,281,281,281,281, & ! index 2233 - 2244 + 281,281,281,281,282,282,282,282,282,282,282,282, & ! index 2245 - 2256 + 282,282,282,282,282,282,282,283,283,283,283,283, & ! index 2257 - 2268 + 283,283,283,283,284,284,284,284,284,284,284,284, & ! index 2269 - 2280 + 284,284,284,285,285,285,285,285,285,285,285,285, & ! index 2281 - 2292 + 285,285,285,285,285,285,285,285,285,285,285,285, & ! index 2293 - 2304 + 285,285,285,285,285,285,285,285,285,285,285,285, & ! index 2305 - 2316 + 285,285,285,285,285,286,286,286,286,286,286,286, & ! index 2317 - 2328 + 286,286,286,286,286,286,286,286,286,286,286,286, & ! index 2329 - 2340 + 286,286,286,286,286,286,286,286,286,286,286,286, & ! index 2341 - 2352 + 286,286,286,286,287,287,287,287,287,287,287,287, & ! index 2353 - 2364 + 287,287,287,287,287,287,287,287,288,288,288,288, & ! index 2365 - 2376 + 288,288,288,288,288,288,288,288,288,288,288,288, & ! index 2377 - 2388 + 288,288,288,288,289,289,289,289,289,289,289,289, & ! index 2389 - 2400 + 289,289,289,289,289,289,289,289,289,289,289,289, & ! index 2401 - 2412 + 290,290,290,290,290,290,290,290,290,290,290,290, & ! index 2413 - 2424 + 290,290,290,290,290,290,290,290,290,290,290,290, & ! index 2425 - 2436 + 290,290,290,290,290,290,290,290,290,290,291,291, & ! index 2437 - 2448 + 291,291,291,291,291,291,291,291,291,291,291,291, & ! index 2449 - 2460 + 291,291,291,291,291,291,291,291,291,291,291,291, & ! index 2461 - 2472 + 291,291,291,291,291,291,291,292,292,292,292,292, & ! index 2473 - 2484 + 292,292,292,292,292,292,292,292,293,293,293,293, & ! index 2485 - 2496 + 293,293,293,294,294,294,294,294,294,294,294,294, & ! index 2497 - 2508 + 295,295,295,295,295,295,295,295,295,295,295,295 /) ! index up to 2520 INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_7 = (/ & - 293,293,293,293,293,293,293,293,293,293,293,293, & ! index 2521 - 2532 - 293,294,294,294,294,294,294,294,294,294,294,294, & ! index 2533 - 2544 - 294,294,294,294,294,294,294,294,294,294,294,294, & ! index 2545 - 2556 - 294,294,294,294,294,294,294,294,294,294,294,294, & ! index 2557 - 2568 - 294,294,294,294,294,294,294,294,294,294,294,294, & ! index 2569 - 2580 - 294,294,294,294,294,294,294,294,294,294,294,294, & ! index 2581 - 2592 - 294,294,294,294,295,295,295,295,295,295,295,295, & ! index 2593 - 2604 - 295,295,295,295,295,295,295,295,295,295,295,295, & ! index 2605 - 2616 - 295,295,295,295,295,295,295,295,295,295,295,295, & ! index 2617 - 2628 - 296,296,296,296,296,296,296,296,296,296,296,296, & ! index 2629 - 2640 - 296,296,296,296,296,296,296,296,296,296,296,297, & ! index 2641 - 2652 - 297,297,297,297,297,297,297,297,297,297,297,298, & ! index 2653 - 2664 - 298,298,298,298,298,298,298,298,298,298,298,298, & ! index 2665 - 2676 - 298,298,298,298,298,298,298,298,298,298,298,298, & ! index 2677 - 2688 - 298,298,298,298,298,298,298,298,298,298,298,298, & ! index 2689 - 2700 - 298,298,298,298,298,298,298,298,298,298,298,298, & ! index 2701 - 2712 - 298,298,298,298,299,299,299,299,299,299,299,299, & ! index 2713 - 2724 - 299,299,299,299,299,299,299,299,299,299,299,299, & ! index 2725 - 2736 - 299,299,300,300,300,300,300,300,300,300,300,300, & ! index 2737 - 2748 - 300,300,301,301,301,301,301,301,301,301,301,301, & ! index 2749 - 2760 - 301,301,301,301,301,301,301,302,302,302,302,302, & ! index 2761 - 2772 - 302,302,302,302,302,302,302,302,302,302,302,302, & ! index 2773 - 2784 - 302,302,302,302,302,302,302,302,302,302,302,303, & ! index 2785 - 2796 - 303,303,303,303,303,303,303,303,303,303,303,303, & ! index 2797 - 2808 - 303,303,303,303,303,303,303,303,303,303,303,303, & ! index 2809 - 2820 - 303,304,304,304,304,304,304,304,304,304,304,304, & ! index 2821 - 2832 - 304,304,304,305,305,305,305,305,305,305,305,305, & ! index 2833 - 2844 - 305,305,305,305,305,306,306,306,306,306,306,306, & ! index 2845 - 2856 - 306,306,306,306,306,306,306,306,306,306,306,306, & ! index 2857 - 2868 - 306,306,306,306,306,306,306,306,306,306,306,306 /) ! index up to 2880 + 295,295,295,295,295,295,295,295,295,295,295,295, & ! index 2521 - 2532 + 295,295,295,295,295,295,296,296,296,296,296,296, & ! index 2533 - 2544 + 296,296,296,296,296,296,296,296,297,297,297,297, & ! index 2545 - 2556 + 297,297,297,297,297,297,297,297,297,297,297,297, & ! index 2557 - 2568 + 297,297,297,297,297,297,297,297,297,297,297,297, & ! index 2569 - 2580 + 297,297,297,297,298,298,298,298,298,298,298,298, & ! index 2581 - 2592 + 298,298,298,298,298,298,298,298,298,298,298,298, & ! index 2593 - 2604 + 298,298,298,298,298,298,298,298,298,298,298,298, & ! index 2605 - 2616 + 298,298,298,298,298,298,298,298,298,298,298,298, & ! index 2617 - 2628 + 298,298,298,298,298,298,298,298,298,298,298,298, & ! index 2629 - 2640 + 298,298,298,298,298,298,298,299,299,299,299,299, & ! index 2641 - 2652 + 299,299,299,299,299,299,299,299,299,300,300,300, & ! index 2653 - 2664 + 300,300,300,300,300,300,300,300,300,300,300,300, & ! index 2665 - 2676 + 300,300,300,300,300,300,300,300,301,301,301,301, & ! index 2677 - 2688 + 301,301,301,301,301,301,301,301,302,302,302,302, & ! index 2689 - 2700 + 302,302,302,302,302,302,302,302,302,302,302,302, & ! index 2701 - 2712 + 302,302,302,302,302,302,302,302,302,302,302,302, & ! index 2713 - 2724 + 302,302,302,302,302,302,302,302,302,302,302,302, & ! index 2725 - 2736 + 302,302,302,302,302,302,302,302,302,302,302,302, & ! index 2737 - 2748 + 302,303,303,303,303,303,303,303,303,303,303,303, & ! index 2749 - 2760 + 303,303,303,303,303,303,303,303,303,303,303,304, & ! index 2761 - 2772 + 304,304,304,304,304,304,304,304,304,304,304,305, & ! index 2773 - 2784 + 305,305,305,305,305,305,305,305,305,305,305,305, & ! index 2785 - 2796 + 305,305,305,305,306,306,306,306,306,306,306,306, & ! index 2797 - 2808 + 306,306,306,306,306,306,306,306,306,306,306,306, & ! index 2809 - 2820 + 306,306,306,306,306,306,306,306,307,307,307,307, & ! index 2821 - 2832 + 307,307,307,307,307,307,307,307,307,307,307,307, & ! index 2833 - 2844 + 307,307,307,307,307,307,307,307,307,307,308,308, & ! index 2845 - 2856 + 308,308,308,308,308,308,308,308,308,308,309,309, & ! index 2857 - 2868 + 309,309,309,309,309,309,309,309,309,309,309,309 /) ! index up to 2880 INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_8 = (/ & - 306,306,306,306,306,306,306,306,306,306,306,306, & ! index 2881 - 2892 - 306,306,306,306,306,306,306,306,306,306,306,306, & ! index 2893 - 2904 - 306,306,306,307,307,307,307,307,307,307,307,307, & ! index 2905 - 2916 - 307,307,307,307,307,307,307,307,307,307,307,307, & ! index 2917 - 2928 - 307,307,307,307,307,307,307,307,307,307,307,307, & ! index 2929 - 2940 - 307,307,307,307,307,307,307,307,307,307,307,307, & ! index 2941 - 2952 - 307,307,307,307,307,307,307,307,307,307,307,307, & ! index 2953 - 2964 - 307,307,307,307,307,307,308,308,308,308,308,308, & ! index 2965 - 2976 - 308,308,308,308,308,308,308,308,308,308,308,308, & ! index 2977 - 2988 - 308,308,309,309,309,309,309,309,309,309,309,309, & ! index 2989 - 3000 - 309,309,309,309,309,309,309,309,309,309,309,309, & ! index 3001 - 3012 - 309,310,310,310,310,310,310,310,310,310,310,310, & ! index 3013 - 3024 - 310,311,311,311,311,311,311,311,311,311,311,311, & ! index 3025 - 3036 - 311,312,312,312,312,312,312,312,312,312,312,312, & ! index 3037 - 3048 - 312,312,312,312,312,312,312,312,312,312,312,312, & ! index 3049 - 3060 - 312,312,312,313,313,313,313,313,313,313,313,313, & ! index 3061 - 3072 - 313,313,313,313,313,313,313,313,313,313,313,313, & ! index 3073 - 3084 - 313,313,313,313,313,313,313,314,314,314,314,314, & ! index 3085 - 3096 - 314,314,314,314,314,314,314,314,314,314,314,314, & ! index 3097 - 3108 - 314,314,314,314,314,314,314,314,314,314,314,314, & ! index 3109 - 3120 - 315,315,315,315,315,315,315,315,315,315,315,315, & ! index 3121 - 3132 - 315,315,315,315,315,315,315,315,315,315,315,315, & ! index 3133 - 3144 - 315,316,316,316,316,316,316,316,316,316,316,316, & ! index 3145 - 3156 - 316,316,316,316,316,316,316,317,317,317,317,317, & ! index 3157 - 3168 - 317,317,317,317,317,317,317,317,318,318,318,318, & ! index 3169 - 3180 - 318,318,318,318,318,318,318,318,318,319,319,319, & ! index 3181 - 3192 - 319,319,319,319,319,319,319,319,319,319,319,319, & ! index 3193 - 3204 - 319,319,319,319,319,319,319,319,319,319,319,319, & ! index 3205 - 3216 - 320,320,320,320,320,320,320,320,320,320,320,320, & ! index 3217 - 3228 - 320,320,320,321,321,321,321,321,321,321,321,321 /) ! index up to 3240 + 309,309,309,309,309,309,309,309,309,309,309,309, & ! index 2881 - 2892 + 309,309,309,309,309,309,309,309,309,309,309,309, & ! index 2893 - 2904 + 309,309,309,309,309,309,309,309,309,309,309,309, & ! index 2905 - 2916 + 309,309,309,309,309,309,309,309,310,310,310,310, & ! index 2917 - 2928 + 310,310,310,310,310,310,310,310,311,311,311,311, & ! index 2929 - 2940 + 311,311,311,311,311,311,311,311,311,311,311,311, & ! index 2941 - 2952 + 311,311,311,311,311,311,311,311,311,311,311,311, & ! index 2953 - 2964 + 311,311,311,311,311,311,311,311,311,311,311,311, & ! index 2965 - 2976 + 311,311,311,311,311,311,311,311,311,311,311,311, & ! index 2977 - 2988 + 311,311,311,311,311,311,311,311,311,311,311,312, & ! index 2989 - 3000 + 312,312,312,312,312,312,312,312,312,312,312,312, & ! index 3001 - 3012 + 312,312,312,312,312,312,312,313,313,313,313,313, & ! index 3013 - 3024 + 313,313,313,313,313,313,313,313,313,313,313,313, & ! index 3025 - 3036 + 313,313,313,313,313,313,314,314,314,314,314,314, & ! index 3037 - 3048 + 314,314,314,314,314,314,314,314,314,315,315,315, & ! index 3049 - 3060 + 315,315,315,315,315,315,315,315,315,315,315,315, & ! index 3061 - 3072 + 316,316,316,316,316,316,316,316,316,316,316,316, & ! index 3073 - 3084 + 316,316,316,316,316,316,316,316,316,316,316,316, & ! index 3085 - 3096 + 316,316,316,316,317,317,317,317,317,317,317,317, & ! index 3097 - 3108 + 317,317,317,317,317,317,317,317,317,317,317,317, & ! index 3109 - 3120 + 317,317,317,317,317,317,318,318,318,318,318,318, & ! index 3121 - 3132 + 318,318,318,318,318,318,318,318,318,318,318,318, & ! index 3133 - 3144 + 318,318,318,318,318,318,318,318,318,318,318,319, & ! index 3145 - 3156 + 319,319,319,319,319,319,319,319,319,319,319,319, & ! index 3157 - 3168 + 319,319,319,319,319,319,319,319,319,319,319,319, & ! index 3169 - 3180 + 320,320,320,320,320,320,320,320,320,320,320,320, & ! index 3181 - 3192 + 320,320,320,320,320,320,321,321,321,321,321,321, & ! index 3193 - 3204 + 321,321,321,321,321,321,321,322,322,322,322,322, & ! index 3205 - 3216 + 322,322,322,322,322,322,322,322,323,323,323,323, & ! index 3217 - 3228 + 323,323,323,323,323,323,323,323,323,323,323,323 /) ! index up to 3240 INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_9 = (/ & - 321,321,321,321,321,321,321,321,321,321,321,321, & ! index 3241 - 3252 - 321,321,321,322,322,322,322,322,322,322,322,322, & ! index 3253 - 3264 - 322,322,322,322,322,322,322,322,322,322,322,322, & ! index 3265 - 3276 - 322,322,322,322,322,322,322,322,322,322,322,323, & ! index 3277 - 3288 - 323,323,323,323,323,323,323,323,323,323,323,323, & ! index 3289 - 3300 - 323,323,323,323,323,323,323,323,323,323,323,324, & ! index 3301 - 3312 - 324,324,324,324,324,324,324,324,324,324,324,324, & ! index 3313 - 3324 - 324,324,324,324,324,324,324,324,324,324,324,324, & ! index 3325 - 3336 - 324,324,324,324,324,324,324,324,324,324,324,324, & ! index 3337 - 3348 - 324,324,324,324,324,324,324,324,324,324,324,324, & ! index 3349 - 3360 - 324,324,324,324,324,324,324,324,324,324,324,324, & ! index 3361 - 3372 - 324,324,324,324,324,324,324,324,324,324,324,324, & ! index 3373 - 3384 - 324,324,324,324,324,324,324,324,324,324,324,324, & ! index 3385 - 3396 - 324,324,324,325,325,325,325,325,325,325,325,325, & ! index 3397 - 3408 - 325,325,325,325,325,325,325,325,325,325,325,325, & ! index 3409 - 3420 - 325,325,325,325,325,325,325,325,325,325,325,325, & ! index 3421 - 3432 - 325,325,325,325,325,325,325,325,325,325,325,325, & ! index 3433 - 3444 - 325,325,325,325,325,325,325,325,325,325,325,325, & ! index 3445 - 3456 - 325,325,325,325,325,325,325,325,325,325,325,325, & ! index 3457 - 3468 - 325,325,325,325,325,325,325,325,325,325,325,325, & ! index 3469 - 3480 - 325,325,325,325,325,325,325,325,325,325,325,325, & ! index 3481 - 3492 - 325,325,325,325,325,325,325,325,325,325,325,325, & ! index 3493 - 3504 - 325,325,325,325,325,325,325,325,325,325,325,325, & ! index 3505 - 3516 - 325,325,325,325,325,325,325,325,325,325,325,325, & ! index 3517 - 3528 - 325,325,325,325,325,325,325,325,325,325,325,325, & ! index 3529 - 3540 - 325,325,325,326,326,326,326,326,326,326,326,326, & ! index 3541 - 3552 - 326,326,326,326,326,326,326,326,326,326,326,326, & ! index 3553 - 3564 - 326,326,326,326,326,326,326,326,326,326,326,326, & ! index 3565 - 3576 - 326,326,326,326,326,326,326,326,326,327,327,327, & ! index 3577 - 3588 - 327,327,327,327,327,327,327,327,327,327,327,327 /) ! index up to 3600 + 323,323,323,323,323,323,323,323,323,323,323,324, & ! index 3241 - 3252 + 324,324,324,324,324,324,324,324,324,324,324,324, & ! index 3253 - 3264 + 324,324,325,325,325,325,325,325,325,325,325,325, & ! index 3265 - 3276 + 325,325,325,325,325,325,325,325,325,325,325,325, & ! index 3277 - 3288 + 325,325,325,325,325,325,325,325,325,325,326,326, & ! index 3289 - 3300 + 326,326,326,326,326,326,326,326,326,326,326,326, & ! index 3301 - 3312 + 326,326,326,326,326,326,326,326,326,326,327,327, & ! index 3313 - 3324 + 327,327,327,327,327,327,327,327,327,327,327,327, & ! index 3325 - 3336 + 327,327,327,327,327,327,327,327,327,327,328,328, & ! index 3337 - 3348 + 328,328,328,328,328,328,328,328,328,328,328,328, & ! index 3349 - 3360 + 328,328,328,328,328,328,328,328,328,328,328,328, & ! index 3361 - 3372 + 328,328,328,328,328,328,328,328,328,328,328,328, & ! index 3373 - 3384 + 328,328,328,328,328,328,328,328,328,328,328,328, & ! index 3385 - 3396 + 328,328,328,328,328,328,328,328,328,328,328,328, & ! index 3397 - 3408 + 328,328,328,328,328,328,328,328,328,328,328,328, & ! index 3409 - 3420 + 328,328,328,328,328,328,328,328,328,328,328,328, & ! index 3421 - 3432 + 328,328,329,329,329,329,329,329,329,329,329,329, & ! index 3433 - 3444 + 329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3445 - 3456 + 329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3457 - 3468 + 329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3469 - 3480 + 329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3481 - 3492 + 329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3493 - 3504 + 329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3505 - 3516 + 329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3517 - 3528 + 329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3529 - 3540 + 329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3541 - 3552 + 329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3553 - 3564 + 329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3565 - 3576 + 329,329,330,330,330,330,330,330,330,330,330,330, & ! index 3577 - 3588 + 330,330,330,330,330,330,330,330,330,330,330,330 /) ! index up to 3600 INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_10 = (/ & - 327,327,327,327,327,327,327,327,327,327,327,327, & ! index 3601 - 3612 - 327,327,327,327,327,327,327,327,327,327,327,327, & ! index 3613 - 3624 - 327,327,327,327,327,327,327,327,327,327,327,327, & ! index 3625 - 3636 - 327,327,327,327,327,327,327,327,327,327,327,327, & ! index 3637 - 3648 - 327,327,327,327,327,327,327,327,327,327,327,327, & ! index 3649 - 3660 - 327,327,327,327,327,327,327,327,327,327,327,327, & ! index 3661 - 3672 - 327,327,327,327,327,327,327,327,327,327,327,327, & ! index 3673 - 3684 - 327,327,327,327,328,328,328,328,328,328,328,328, & ! index 3685 - 3696 - 328,328,328,328,328,328,328,328,328,328,328,328, & ! index 3697 - 3708 - 328,328,328,328,328,328,328,328,328,328,328,328, & ! index 3709 - 3720 - 328,328,328,328,328,328,328,328,328,328,328,328, & ! index 3721 - 3732 - 328,328,328,328,328,328,328,328,328,328,328,328, & ! index 3733 - 3744 - 328,328,328,328,328,328,328,328,328,328,328,328, & ! index 3745 - 3756 - 328,328,328,328,328,329,329,329,329,329,329,329, & ! index 3757 - 3768 - 329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3769 - 3780 - 329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3781 - 3792 - 329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3793 - 3804 - 329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3805 - 3816 - 329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3817 - 3828 - 329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3829 - 3840 - 329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3841 - 3852 - 329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3853 - 3864 - 329,329,329,329,329,329,329,329,329,329,329,329, & ! index 3865 - 3876 - 329,329,329,329,329,329,329,329,330,330,330,330, & ! index 3877 - 3888 - 330,330,330,330,330,330,330,330,330,330,330,330, & ! index 3889 - 3900 - 330,330,330,331,331,331,331,331,331,331,331,331, & ! index 3901 - 3912 - 331,331,331,331,331,331,331,331,331,331,331,331, & ! index 3913 - 3924 - 331,331,331,331,331,331,331,331,332,332,332,332, & ! index 3925 - 3936 - 332,332,332,332,332,332,332,332,332,332,332,332, & ! index 3937 - 3948 - 332,332,332,333,333,333,333,333,333,333,333,333 /) ! index up to 3960 + 330,330,330,330,330,330,330,330,330,330,330,330, & ! index 3601 - 3612 + 330,330,330,330,330,330,330,330,331,331,331,331, & ! index 3613 - 3624 + 331,331,331,331,331,331,331,331,331,331,331,331, & ! index 3625 - 3636 + 331,331,331,331,331,331,331,331,331,331,331,331, & ! index 3637 - 3648 + 331,332,332,332,332,332,332,332,332,332,332,332, & ! index 3649 - 3660 + 332,332,332,332,332,332,332,332,332,332,332,332, & ! index 3661 - 3672 + 332,332,333,333,333,333,333,333,333,333,333,333, & ! index 3673 - 3684 + 333,333,333,333,333,333,333,333,333,333,333,333, & ! index 3685 - 3696 + 333,333,333,333,333,333,333,333,333,333,333,333, & ! index 3697 - 3708 + 333,333,333,333,333,333,333,333,333,333,333,333, & ! index 3709 - 3720 + 333,333,333,333,333,333,333,333,333,333,333,333, & ! index 3721 - 3732 + 333,333,333,333,333,333,333,333,333,333,333,333, & ! index 3733 - 3744 + 333,333,333,333,333,333,333,333,333,333,333,333, & ! index 3745 - 3756 + 333,333,333,333,333,333,333,333,333,333,333,333, & ! index 3757 - 3768 + 333,333,333,333,333,333,333,333,333,333,334,334, & ! index 3769 - 3780 + 334,334,334,334,334,334,334,334,334,334,334,334, & ! index 3781 - 3792 + 334,334,334,334,334,334,334,334,334,334,334,334, & ! index 3793 - 3804 + 334,334,334,334,334,334,334,334,334,334,334,334, & ! index 3805 - 3816 + 334,334,334,334,334,334,334,334,334,334,334,334, & ! index 3817 - 3828 + 334,334,334,334,334,334,334,334,334,334,334,334, & ! index 3829 - 3840 + 334,334,334,334,334,334,334,334,334,334,334,335, & ! index 3841 - 3852 + 335,335,335,335,335,335,335,335,335,335,335,335, & ! index 3853 - 3864 + 335,335,335,335,335,335,335,335,335,335,335,335, & ! index 3865 - 3876 + 335,335,335,335,335,335,335,335,335,335,335,335, & ! index 3877 - 3888 + 335,335,335,335,335,335,335,335,335,335,335,335, & ! index 3889 - 3900 + 335,335,335,335,335,335,335,335,335,335,335,335, & ! index 3901 - 3912 + 335,335,335,335,335,335,335,335,335,335,335,335, & ! index 3913 - 3924 + 335,335,335,335,335,335,335,335,335,335,335,335, & ! index 3925 - 3936 + 335,335,335,335,335,335,335,335,335,335,335,335, & ! index 3937 - 3948 + 335,335,335,335,335,335,335,335,335,335,335,335 /) ! index up to 3960 INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_11 = (/ & - 333,333,333,333,333,333,333,333,333,333,333,333, & ! index 3961 - 3972 - 333,333,333,333,333,333,333,333,333,333,333,334, & ! index 3973 - 3984 - 334,334,334,334,334,334,334,334,334,334,334,334, & ! index 3985 - 3996 - 334,334,334,334,334,334,334,334,334,334,334,334, & ! index 3997 - 4008 - 334,334,334,334,334,334,334,334,334,334,334,334, & ! index 4009 - 4020 - 334,334,334,334,334,334,334,334,334,334,334,334, & ! index 4021 - 4032 - 334,335,335,335,335,335,335,335,335,335,335,335, & ! index 4033 - 4044 - 335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4045 - 4056 - 335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4057 - 4068 - 335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4069 - 4080 - 335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4081 - 4092 - 335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4093 - 4104 - 335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4105 - 4116 - 335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4117 - 4128 - 335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4129 - 4140 - 335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4141 - 4152 - 335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4153 - 4164 - 335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4165 - 4176 - 335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4177 - 4188 - 335,335,335,335,335,335,335,335,335,335,335,335, & ! index 4189 - 4200 - 335,335,335,335,335,335,335,336,336,336,336,336, & ! index 4201 - 4212 - 336,336,336,336,336,336,336,336,336,336,336,336, & ! index 4213 - 4224 - 336,336,336,336,336,336,336,336,336,336,336,336, & ! index 4225 - 4236 - 336,336,336,336,336,336,336,336,336,336,336,336, & ! index 4237 - 4248 - 336,336,336,336,336,336,336,336,336,336,336,336, & ! index 4249 - 4260 - 336,336,336,336,336,336,336,336,336,336,336,336, & ! index 4261 - 4272 - 336,336,336,336,336,336,336,336,336,336,336,336, & ! index 4273 - 4284 - 336,336,336,336,336,336,336,336,336,336,336,336, & ! index 4285 - 4296 - 336,336,336,336,336,336,336,336,336,336,336,336, & ! index 4297 - 4308 - 337,337,337,337,337,337,337,337,337,337,337,337 /) ! index up to 4320 + 335,335,335,335,335,335,335,335,335,335,335,335, & ! index 3961 - 3972 + 335,335,336,336,336,336,336,336,336,336,336,336, & ! index 3973 - 3984 + 336,336,336,336,336,336,336,336,336,336,337,337, & ! index 3985 - 3996 + 337,337,337,337,337,337,337,337,337,337,337,337, & ! index 3997 - 4008 + 337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4009 - 4020 + 337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4021 - 4032 + 337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4033 - 4044 + 337,338,338,338,338,338,338,338,338,338,338,338, & ! index 4045 - 4056 + 338,338,338,338,338,338,338,338,338,338,338,338, & ! index 4057 - 4068 + 338,338,338,338,338,338,338,338,338,338,338,338, & ! index 4069 - 4080 + 338,338,338,338,338,338,338,338,338,338,338,338, & ! index 4081 - 4092 + 338,338,338,338,338,338,338,338,338,338,338,338, & ! index 4093 - 4104 + 338,338,338,338,338,338,338,338,338,338,338,338, & ! index 4105 - 4116 + 338,338,338,338,338,338,338,338,338,338,338,338, & ! index 4117 - 4128 + 338,338,338,338,338,338,338,338,338,338,338,338, & ! index 4129 - 4140 + 338,338,338,338,338,338,338,338,338,338,338,338, & ! index 4141 - 4152 + 338,338,338,338,338,338,338,338,338,338,338,338, & ! index 4153 - 4164 + 339,339,339,339,339,339,339,339,339,339,339,339, & ! index 4165 - 4176 + 339,339,339,339,339,339,339,339,339,339,339,339, & ! index 4177 - 4188 + 339,339,339,339,339,339,339,339,339,339,340,340, & ! index 4189 - 4200 + 340,340,340,340,340,340,340,340,340,340,340,340, & ! index 4201 - 4212 + 340,340,340,340,340,340,340,340,340,340,340,340, & ! index 4213 - 4224 + 340,340,340,340,340,340,340,340,340,340,340,340, & ! index 4225 - 4236 + 340,340,340,340,340,340,340,340,340,340,340,340, & ! index 4237 - 4248 + 340,340,340,340,340,340,340,340,340,340,340,340, & ! index 4249 - 4260 + 340,340,340,340,340,340,340,340,340,340,340,340, & ! index 4261 - 4272 + 340,340,340,341,341,341,341,341,341,341,341,341, & ! index 4273 - 4284 + 341,341,341,341,341,341,341,341,341,341,341,341, & ! index 4285 - 4296 + 341,341,341,341,341,341,341,341,341,341,341,341, & ! index 4297 - 4308 + 341,341,341,341,341,341,341,341,341,341,341,341 /) ! index up to 4320 INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_12 = (/ & - 337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4321 - 4332 - 337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4333 - 4344 - 337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4345 - 4356 - 337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4357 - 4368 - 337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4369 - 4380 - 337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4381 - 4392 - 337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4393 - 4404 - 337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4405 - 4416 - 337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4417 - 4428 - 337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4429 - 4440 - 337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4441 - 4452 - 337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4453 - 4464 - 337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4465 - 4476 - 337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4477 - 4488 - 337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4489 - 4500 - 337,337,337,337,337,337,337,337,337,337,337,337, & ! index 4501 - 4512 - 337,337,337,337,338,338,338,338,338,338,338,338, & ! index 4513 - 4524 - 338,338,338,338,338,338,338,338,338,338,338,338, & ! index 4525 - 4536 - 338,338,338,338,338,338,338,338,338,338,338,338, & ! index 4537 - 4548 - 338,338,338,338,338,338,338,338,338,338,338,338, & ! index 4549 - 4560 - 338,338,338,338,338,338,338,338,338,338,338,339, & ! index 4561 - 4572 - 339,339,339,339,339,339,339,339,339,339,339,339, & ! index 4573 - 4584 - 339,339,339,339,339,339,339,339,339,339,339,339, & ! index 4585 - 4596 - 339,339,339,339,339,339,339,339,339,339,339,339, & ! index 4597 - 4608 - 339,339,339,339,339,339,339,339,339,339,339,339, & ! index 4609 - 4620 - 339,339,339,339,339,339,339,339,339,339,339,339, & ! index 4621 - 4632 - 339,339,339,339,339,339,339,339,339,339,339,339, & ! index 4633 - 4644 - 339,339,339,339,340,340,340,340,340,340,340,340, & ! index 4645 - 4656 - 340,340,340,340,340,340,340,340,340,340,340,340, & ! index 4657 - 4668 - 340,340,340,340,340,340,340,340,340,340,340,340 /) ! index up to 4680 + 341,341,341,341,341,341,341,341,341,341,341,341, & ! index 4321 - 4332 + 341,341,341,341,341,341,341,341,341,341,341,341, & ! index 4333 - 4344 + 341,341,341,341,341,341,341,341,341,341,341,341, & ! index 4345 - 4356 + 341,341,341,341,341,341,341,341,341,341,341,341, & ! index 4357 - 4368 + 341,341,341,341,341,341,341,341,341,341,341,341, & ! index 4369 - 4380 + 341,341,341,341,341,341,341,341,341,341,341,341, & ! index 4381 - 4392 + 341,341,341,341,341,341,341,341,341,341,341,341, & ! index 4393 - 4404 + 341,341,341,341,341,341,341,341,341,341,341,341, & ! index 4405 - 4416 + 341,341,341,341,341,341,341,341,341,341,341,341, & ! index 4417 - 4428 + 341,341,341,341,341,341,341,341,341,341,341,341, & ! index 4429 - 4440 + 341,341,341,341,341,341,341,341,341,341,341,341, & ! index 4441 - 4452 + 341,341,341,341,341,341,341,341,341,341,341,341, & ! index 4453 - 4464 + 341,341,341,341,341,341,341,341,341,341,341,341, & ! index 4465 - 4476 + 341,341,341,341,341,342,342,342,342,342,342,342, & ! index 4477 - 4488 + 342,342,342,342,342,342,342,342,342,342,342,342, & ! index 4489 - 4500 + 342,342,342,342,342,342,342,342,342,342,342,342, & ! index 4501 - 4512 + 342,342,342,342,342,342,342,342,342,342,342,342, & ! index 4513 - 4524 + 342,342,342,342,342,342,342,342,342,342,342,342, & ! index 4525 - 4536 + 342,343,343,343,343,343,343,343,343,343,343,343, & ! index 4537 - 4548 + 343,343,343,343,343,343,343,343,343,343,343,343, & ! index 4549 - 4560 + 343,343,343,343,343,343,343,343,343,343,343,343, & ! index 4561 - 4572 + 343,343,343,343,343,343,343,343,343,343,343,343, & ! index 4573 - 4584 + 343,343,343,343,343,343,343,343,343,343,343,343, & ! index 4585 - 4596 + 343,343,343,343,343,343,343,343,343,343,343,343, & ! index 4597 - 4608 + 343,343,343,343,343,343,343,343,343,343,343,343, & ! index 4609 - 4620 + 343,343,343,343,343,343,343,343,343,343,343,343, & ! index 4621 - 4632 + 343,343,343,343,343,343,343,343,343,343,343,343, & ! index 4633 - 4644 + 343,343,343,343,343,343,343,343,343,343,343,343, & ! index 4645 - 4656 + 343,343,343,343,343,343,343,343,343,343,343,343, & ! index 4657 - 4668 + 343,343,343,343,343,343,343,343,343,343,343,343 /) ! index up to 4680 INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_13 = (/ & - 340,340,340,340,340,340,340,340,340,340,340,340, & ! index 4681 - 4692 - 340,340,340,340,340,340,340,340,340,340,340,340, & ! index 4693 - 4704 - 340,340,340,340,340,340,340,340,340,340,340,340, & ! index 4705 - 4716 - 340,340,340,340,340,340,340,340,340,340,340,340, & ! index 4717 - 4728 - 340,340,340,340,340,340,340,340,340,340,340,340, & ! index 4729 - 4740 - 340,340,340,341,341,341,341,341,341,341,341,341, & ! index 4741 - 4752 - 341,341,341,341,341,341,341,341,341,341,341,341, & ! index 4753 - 4764 - 341,341,341,341,341,341,341,341,341,341,341,341, & ! index 4765 - 4776 - 341,341,341,341,341,341,341,341,341,341,341,341, & ! index 4777 - 4788 - 341,341,341,341,341,341,341,341,341,341,341,341, & ! index 4789 - 4800 - 341,341,341,341,341,341,341,341,341,341,341,341, & ! index 4801 - 4812 - 341,341,341,341,341,341,341,341,342,342,342,342, & ! index 4813 - 4824 - 342,342,342,342,342,342,342,342,342,342,342,342, & ! index 4825 - 4836 - 342,342,342,342,342,342,342,342,342,342,342,342, & ! index 4837 - 4848 - 342,342,342,342,342,342,342,342,342,342,342,342, & ! index 4849 - 4860 - 342,342,342,342,342,342,342,342,342,342,342,342, & ! index 4861 - 4872 - 342,342,342,342,343,343,343,343,343,343,343,343, & ! index 4873 - 4884 - 343,343,343,343,343,343,343,343,343,343,343,343, & ! index 4885 - 4896 - 343,343,343,343,343,343,343,343,343,343,343,343, & ! index 4897 - 4908 - 343,343,343,343,343,343,343,343,343,343,343,343, & ! index 4909 - 4920 - 343,343,343,343,343,343,343,343,343,343,343,343, & ! index 4921 - 4932 - 343,343,343,343,344,344,344,344,344,344,344,344, & ! index 4933 - 4944 - 344,344,344,344,344,344,344,344,344,344,344,344, & ! index 4945 - 4956 - 344,344,344,344,344,344,344,344,344,344,344,344, & ! index 4957 - 4968 - 344,345,345,345,345,345,345,345,345,345,345,345, & ! index 4969 - 4980 + 343,343,343,343,343,343,343,343,343,343,343,343, & ! index 4681 - 4692 + 343,343,343,343,343,343,343,343,343,343,343,343, & ! index 4693 - 4704 + 343,343,343,343,343,343,343,343,343,343,343,343, & ! index 4705 - 4716 + 343,343,343,343,343,343,343,343,343,343,343,343, & ! index 4717 - 4728 + 343,343,343,343,343,343,343,343,343,343,343,343, & ! index 4729 - 4740 + 343,343,343,343,343,343,343,343,343,343,343,343, & ! index 4741 - 4752 + 343,343,343,343,343,343,343,343,343,343,343,343, & ! index 4753 - 4764 + 343,343,343,343,343,343,343,343,343,343,343,343, & ! index 4765 - 4776 + 343,343,343,343,343,343,343,343,343,343,343,343, & ! index 4777 - 4788 + 343,343,343,343,343,343,343,343,343,343,343,343, & ! index 4789 - 4800 + 343,343,343,343,343,343,343,343,343,343,343,343, & ! index 4801 - 4812 + 344,344,344,344,344,344,344,344,344,344,344,344, & ! index 4813 - 4824 + 344,344,344,344,344,344,344,344,344,344,344,344, & ! index 4825 - 4836 + 344,344,344,344,344,344,344,344,344,344,344,344, & ! index 4837 - 4848 + 344,344,344,344,344,344,344,344,344,344,344,344, & ! index 4849 - 4860 + 344,344,344,344,345,345,345,345,345,345,345,345, & ! index 4861 - 4872 + 345,345,345,345,345,345,345,345,345,345,345,345, & ! index 4873 - 4884 + 345,345,345,345,345,345,345,345,345,345,345,345, & ! index 4885 - 4896 + 345,345,345,345,345,345,345,345,345,345,345,345, & ! index 4897 - 4908 + 345,345,345,345,345,345,345,345,345,345,345,345, & ! index 4909 - 4920 + 345,345,345,345,345,345,345,345,345,345,345,345, & ! index 4921 - 4932 + 345,345,345,345,345,345,345,345,345,345,345,345, & ! index 4933 - 4944 + 345,345,345,345,345,345,345,345,345,345,345,345, & ! index 4945 - 4956 + 345,345,345,345,345,345,345,345,345,345,345,345, & ! index 4957 - 4968 + 345,345,345,345,345,345,345,345,345,345,345,345, & ! index 4969 - 4980 345,345,345,345,345,345,345,345,345,345,345,345, & ! index 4981 - 4992 345,345,345,345,345,345,345,345,345,345,345,345, & ! index 4993 - 5004 345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5005 - 5016 345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5017 - 5028 - 345,345,345,345,345,345,345,345,345,345,345,345 /) ! index up to 5040 + 345,345,345,345,345,345,345,345,345,346,346,346 /) ! index up to 5040 INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_14 = (/ & - 345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5041 - 5052 - 345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5053 - 5064 - 345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5065 - 5076 - 345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5077 - 5088 - 345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5089 - 5100 - 345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5101 - 5112 - 345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5113 - 5124 - 345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5125 - 5136 - 345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5137 - 5148 - 345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5149 - 5160 - 345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5161 - 5172 - 345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5173 - 5184 - 345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5185 - 5196 - 345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5197 - 5208 - 345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5209 - 5220 - 345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5221 - 5232 - 345,345,345,345,345,345,345,345,345,345,345,345, & ! index 5233 - 5244 - 346,346,346,346,346,346,346,346,346,346,346,346, & ! index 5245 - 5256 - 346,346,346,346,346,346,346,346,346,346,346,346, & ! index 5257 - 5268 - 346,346,346,346,346,346,346,346,346,346,346,346, & ! index 5269 - 5280 - 346,346,346,346,346,346,346,346,346,346,346,346, & ! index 5281 - 5292 - 346,346,346,346,346,346,346,346,346,346,346,346, & ! index 5293 - 5304 - 346,346,346,346,346,346,346,346,346,346,346,346, & ! index 5305 - 5316 - 346,346,346,346,346,346,346,346,346,346,346,346, & ! index 5317 - 5328 - 346,346,346,346,346,346,346,346,346,346,346,346, & ! index 5329 - 5340 - 346,346,346,346,346,346,346,346,346,346,346,346, & ! index 5341 - 5352 - 346,346,346,346,346,346,346,346,346,346,346,346, & ! index 5353 - 5364 - 346,347,347,347,347,347,347,347,347,347,347,347, & ! index 5365 - 5376 - 347,347,347,347,347,347,347,347,347,347,347,347, & ! index 5377 - 5388 - 347,347,347,347,347,347,347,347,347,348,348,348 /) ! index up to 5400 - INTEGER, PARAMETER, DIMENSION(283) :: LU_IROW_15 = (/ & - 348,348,348,348,348,348,348,348,348,348,348,348, & ! index 5401 - 5412 - 348,348,348,348,348,348,348,348,348,348,348,348, & ! index 5413 - 5424 - 348,348,348,348,348,348,348,348,348,348,348,348, & ! index 5425 - 5436 - 348,348,349,349,349,349,349,349,349,349,349,349, & ! index 5437 - 5448 - 349,349,349,349,349,349,349,349,349,349,349,349, & ! index 5449 - 5460 - 349,349,349,349,350,350,350,350,350,350,350,350, & ! index 5461 - 5472 - 350,350,350,350,350,350,350,350,350,350,350,350, & ! index 5473 - 5484 - 350,350,350,350,350,350,351,351,351,351,351,351, & ! index 5485 - 5496 - 351,351,351,351,351,351,351,351,351,351,351,351, & ! index 5497 - 5508 - 351,351,351,351,351,351,351,351,351,351,351,351, & ! index 5509 - 5520 - 351,351,351,351,351,351,351,351,351,351,351,351, & ! index 5521 - 5532 - 351,351,351,351,351,351,351,351,351,351,351,351, & ! index 5533 - 5544 - 351,351,351,351,351,351,351,351,351,351,351,351, & ! index 5545 - 5556 - 351,351,351,351,351,351,351,351,351,351,351,351, & ! index 5557 - 5568 - 351,351,351,351,351,351,351,351,351,351,351,351, & ! index 5569 - 5580 - 351,351,351,351,351,351,351,351,351,351,351,351, & ! index 5581 - 5592 - 351,351,351,351,351,351,351,351,351,351,351,351, & ! index 5593 - 5604 - 351,351,351,351,351,351,351,352,352,352,352,352, & ! index 5605 - 5616 - 352,352,352,352,352,352,352,352,352,352,352,352, & ! index 5617 - 5628 - 352,352,352,352,352,352,352,352,352,352,352,352, & ! index 5629 - 5640 - 352,352,352,352,352,352,352,352,352,352,353,353, & ! index 5641 - 5652 - 353,353,353,353,353,353,353,353,353,353,353,353, & ! index 5653 - 5664 - 353,353,353,353,353,353,353,353,353,353,353,353, & ! index 5665 - 5676 - 353,353,353,353,353,353,353 /) ! index up to 5683 - INTEGER, PARAMETER, DIMENSION(5683) :: LU_IROW = (/& + 346,346,346,346,346,346,346,346,346,346,346,346, & ! index 5041 - 5052 + 346,346,346,346,346,346,346,346,346,346,346,346, & ! index 5053 - 5064 + 346,346,346,346,346,346,346,347,347,347,347,347, & ! index 5065 - 5076 + 347,347,347,347,347,347,347,347,347,347,347,347, & ! index 5077 - 5088 + 347,347,347,347,347,347,347,347,347,347,347,347, & ! index 5089 - 5100 + 347,348,348,348,348,348,348,348,348,348,348,348, & ! index 5101 - 5112 + 348,348,348,348,348,348,348,348,348,348,348,348, & ! index 5113 - 5124 + 348,348,348,348,348,348,348,348,348,348,348,348, & ! index 5125 - 5136 + 348,348,348,348,348,348,348,348,348,348,348,348, & ! index 5137 - 5148 + 348,348,348,348,348,348,348,348,348,348,348,348, & ! index 5149 - 5160 + 348,348,348,348,348,348,348,348,348,348,348,348, & ! index 5161 - 5172 + 348,348,348,348,348,348,348,348,348,348,348,348, & ! index 5173 - 5184 + 348,348,348,348,348,348,348,348,348,348,348,348, & ! index 5185 - 5196 + 348,348,348,348,348,348,348,348,348,348,348,348, & ! index 5197 - 5208 + 348,348,348,348,348,348,348,348,348,348,348,348, & ! index 5209 - 5220 + 348,348,348,349,349,349,349,349,349,349,349,349, & ! index 5221 - 5232 + 349,349,349,349,349,349,349,349,349,349,349,349, & ! index 5233 - 5244 + 349,349,349,349,349,349,350,350,350,350,350,350, & ! index 5245 - 5256 + 350,350,350,350,350,350,350,350,350,350,350,350, & ! index 5257 - 5268 + 350,350,350,350,350,350,350,350,350,351,351,351, & ! index 5269 - 5280 + 351,351,351,351,351,351,351,351,351,351,351,351, & ! index 5281 - 5292 + 351,351,351,351,351,351,351,351,351,351,351,351, & ! index 5293 - 5304 + 351,351,351,351,351,351,351,351,351,351,351,351, & ! index 5305 - 5316 + 351,351,351,351,351,351,351,351,351,351,351,351, & ! index 5317 - 5328 + 351,351,351,351,351,351,352,352,352,352,352,352, & ! index 5329 - 5340 + 352,352,352,352,352,352,352,352,352,352,352,352, & ! index 5341 - 5352 + 352,352,352,352,352,352,352,352,352,352,352,352, & ! index 5353 - 5364 + 352,352,352,352,352,352,352,352,352,352,352,352, & ! index 5365 - 5376 + 352,352,352,352,352,352,352,352,352,352,352,352, & ! index 5377 - 5388 + 352,352,352,352,352,352,352,352,352,352,352,352 /) ! index up to 5400 + INTEGER, PARAMETER, DIMENSION(291) :: LU_IROW_15 = (/ & + 352,352,352,352,352,352,352,352,352,352,352,352, & ! index 5401 - 5412 + 352,352,352,352,352,352,352,352,352,352,352,352, & ! index 5413 - 5424 + 352,352,352,352,352,353,353,353,353,353,353,353, & ! index 5425 - 5436 + 353,353,353,353,353,353,353,353,353,353,353,353, & ! index 5437 - 5448 + 353,353,353,353,353,353,353,353,353,353,353,353, & ! index 5449 - 5460 + 353,353,353,353,353,353,353,353,353,353,353,353, & ! index 5461 - 5472 + 353,353,353,353,353,353,353,353,353,353,353,353, & ! index 5473 - 5484 + 353,353,353,353,353,353,353,353,353,353,353,353, & ! index 5485 - 5496 + 353,353,353,353,353,353,353,353,353,353,353,353, & ! index 5497 - 5508 + 353,353,353,353,353,353,353,353,353,353,353,353, & ! index 5509 - 5520 + 353,353,353,353,353,353,353,353,353,353,353,354, & ! index 5521 - 5532 + 354,354,354,354,354,354,354,354,354,354,354,354, & ! index 5533 - 5544 + 354,354,354,354,354,354,354,354,354,354,354,354, & ! index 5545 - 5556 + 354,354,354,354,354,354,354,354,354,354,354,354, & ! index 5557 - 5568 + 354,354,354,355,355,355,355,355,355,355,355,355, & ! index 5569 - 5580 + 355,355,355,355,355,355,355,355,355,355,355,355, & ! index 5581 - 5592 + 355,355,355,355,355,355,355,355,355,355,355,355, & ! index 5593 - 5604 + 355,355,355,355,355,355,355,355,356,356,356,356, & ! index 5605 - 5616 + 356,356,356,356,356,356,356,356,356,356,356,356, & ! index 5617 - 5628 + 356,356,356,356,356,356,356,356,356,356,356,356, & ! index 5629 - 5640 + 356,356,356,356,356,356,356,356,356,356,356,356, & ! index 5641 - 5652 + 356,356,356,356,356,356,356,356,356,356,356,356, & ! index 5653 - 5664 + 356,356,356,356,356,356,356,356,356,356,356,356, & ! index 5665 - 5676 + 356,356,356,356,356,356,356,356,356,356,356,356, & ! index 5677 - 5688 + 356,356,356 /) ! index up to 5691 + INTEGER, PARAMETER, DIMENSION(5691) :: LU_IROW = (/& LU_IROW_0, LU_IROW_1, LU_IROW_2, LU_IROW_3, LU_IROW_4, & LU_IROW_5, LU_IROW_6, LU_IROW_7, LU_IROW_8, LU_IROW_9, & LU_IROW_10, LU_IROW_11, LU_IROW_12, LU_IROW_13, LU_IROW_14, & LU_IROW_15 /) INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_0 = (/ & - 1, 2, 3, 4, 42, 44, 55, 73, 5,269, 6, 41, & ! index 1 - 12 - 345, 7, 66, 68, 71, 74, 90, 92,115,130,133,135, & ! index 13 - 24 - 139,159,169,173,182,194,198,213,216,235,238,240, & ! index 25 - 36 - 241,246,249,250,257,259,260,261,263,265,269,274, & ! index 37 - 48 - 275,276,277,280,281,283,287,290,291,296,300,306, & ! index 49 - 60 - 307,308,310,311,312,313,315,318,319,320,321,322, & ! index 61 - 72 - 323,324,328,329,337,340,341,345,346,351, 8, 45, & ! index 73 - 84 - 103, 9, 42, 44, 55, 73,252,330,332, 10, 42, 44, & ! index 85 - 96 - 55, 73,252,330,332, 11, 13,337, 12, 13,346, 13, & ! index 97 - 108 - 143,337,345,346, 14,276,345, 15,276,351, 16, 18, & ! index 109 - 120 - 337, 17, 18,346, 18, 19,337,345,346, 19,345, 20, & ! index 121 - 132 - 22,337, 21, 22,346, 22, 82,337,345,346, 23, 24, & ! index 133 - 144 - 24,187,192,199,209,345, 25, 27,337, 26, 27,346, & ! index 145 - 156 - 27,101,337,345,346, 28, 94,345, 29,166,341,348, & ! index 157 - 168 - 30,115,270,294, 31,107,128,151,152,215, 32,241, & ! index 169 - 180 - 312,345,348, 33, 89,345,348, 34, 45, 56, 57, 63, & ! index 181 - 192 - 67, 70, 80, 83, 90, 91, 93, 95,103,108,110,113, & ! index 193 - 204 - 114,116,121,122,124,126,127,132,133,135,137,138, & ! index 205 - 216 - 139,148,154,162,165,170,171,172,176,177,178,180, & ! index 217 - 228 - 182,184,189,190,193,196,197,205,206,207,211,212, & ! index 229 - 240 - 213,217,223,224,226,232,234,235,236,239,240,241, & ! index 241 - 252 - 243,245,246,249,250,253,254,257,259,260,263,269, & ! index 253 - 264 - 271,272,273,274,275,277,278,280,281,285,286,289, & ! index 265 - 276 - 291,293,296,297,300,302,304,305,308,310,311,312, & ! index 277 - 288 - 313,315,317,318,319,320,321,322,323,324,327,328, & ! index 289 - 300 - 335,337,340,345,346, 35, 42, 44, 49, 50, 55, 63, & ! index 301 - 312 - 64, 65, 68, 69, 76, 87, 94, 96,105,109,120,140, & ! index 313 - 324 - 142,149,154,158,163,166,167,168,175,179,181,183, & ! index 325 - 336 - 186,191,195,197,200,201,202,203,204,211,213,214, & ! index 337 - 348 - 216,217,218,219,220,221,222,225,228,229,234,235 /) ! index up to 360 + 1, 2, 3, 4, 45, 47, 58, 75, 5,272, 6, 44, & ! index 1 - 12 + 343, 7, 69, 71, 76, 77, 95,105,116,134,136,137, & ! index 13 - 24 + 143,161,171,176,185,197,198,216,220,237,242,243, & ! index 25 - 36 + 244,250,252,253,261,262,264,265,266,268,272,276, & ! index 37 - 48 + 277,279,280,281,284,286,290,293,294,300,304,308, & ! index 49 - 60 + 309,310,311,312,316,317,319,322,323,324,325,326, & ! index 61 - 72 + 327,328,334,335,338,341,343,348,352,356, 8, 48, & ! index 73 - 84 + 106, 9, 45, 47, 58, 75,254,287,296, 10, 45, 47, & ! index 85 - 96 + 58, 75,254,287,296, 11, 13,341, 12, 13,338, 13, & ! index 97 - 108 + 145,338,341,343, 14,279,343, 15,279,348, 16, 18, & ! index 109 - 120 + 341, 17, 18,338, 18, 19,338,341,343, 19,343, 20, & ! index 121 - 132 + 22,341, 21, 22,338, 22, 85,338,341,343, 23, 24, & ! index 133 - 144 + 24,191,195,202,213,343, 25, 27,341, 26, 27,338, & ! index 145 - 156 + 27,103,338,341,343, 28, 87,343, 29,169,355,356, & ! index 157 - 168 + 30,116,274,298, 31,109,131,157,159,218, 32,244, & ! index 169 - 180 + 317,343,355, 33, 93,267,343,355,356, 34, 93,267, & ! index 181 - 192 + 329,343,345,355,356, 35,329,355, 36, 93, 37, 48, & ! index 193 - 204 + 59, 60, 66, 70, 73, 83, 86, 94, 96, 97,105,106, & ! index 205 - 216 + 110,113,115,117,119,124,125,127,129,130,133,136, & ! index 217 - 228 + 137,139,141,143,153,156,165,168,172,173,174,179, & ! index 229 - 240 + 180,181,182,185,186,189,193,196,200,201,208,209, & ! index 241 - 252 + 210,212,215,216,219,226,228,235,236,237,238,239, & ! index 253 - 264 + 240,243,244,245,248,250,252,253,257,258,261,262, & ! index 265 - 276 + 264,266,272,273,275,276,277,278,280,281,282,284, & ! index 277 - 288 + 288,289,292,294,299,300,301,304,306,308,310,312, & ! index 289 - 300 + 314,315,316,317,319,321,322,323,324,325,326,327, & ! index 301 - 312 + 328,333,334,338,341,343,345,352, 38, 45, 47, 52, & ! index 313 - 324 + 53, 58, 66, 67, 68, 71, 72, 78, 87, 91, 98,108, & ! index 325 - 336 + 120,123,140,144,148,156,162,166,169,170,175,177, & ! index 337 - 348 + 183,184,187,188,194,199,201,203,204,205,206,207 /) ! index up to 360 INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_1 = (/ & - 236,237,240,242,246,248,251,252,255,256,257,261, & ! index 361 - 372 - 262,263,264,266,267,268,270,272,273,274,275,276, & ! index 373 - 384 - 277,278,280,281,284,289,290,291,292,294,297,298, & ! index 385 - 396 - 299,302,303,306,308,309,310,311,312,314,316,317, & ! index 397 - 408 - 325,326,328,330,332,333,334,335,336,337,338,339, & ! index 409 - 420 - 341,343,344,345,347,348,349,350,351,352,353, 36, & ! index 421 - 432 - 60, 68, 75, 79, 82,101,107,113,114,119,122,124, & ! index 433 - 444 - 126,127,132,139,143,144,146,147,150,153,159,167, & ! index 445 - 456 - 181,182,184,185,187,191,192,194,197,199,200,201, & ! index 457 - 468 - 204,208,209,210,215,216,220,221,225,227,230,231, & ! index 469 - 480 - 233,238,243,248,253,255,258,259,261,266,267,268, & ! index 481 - 492 - 269,270,276,285,286,287,290,294,295,298,301,304, & ! index 493 - 504 - 305,306,307,309,314,325,326,328,337,340,341,342, & ! index 505 - 516 - 343,345,346,351, 37,241,312,329,345, 38, 89,179, & ! index 517 - 528 - 241,264,312,316,333,341,345,348, 39,228,334,340, & ! index 529 - 540 - 345, 40,241,276,312,314,336,337,341,345, 41,345, & ! index 541 - 552 - 42, 96, 43,345, 44,284, 45,154,242,256, 46,334, & ! index 553 - 564 - 47,334, 48,334, 49,334, 50,334, 51,334, 52,345, & ! index 565 - 576 - 53,334, 54,334, 55, 96,284, 56,257,335, 57,274, & ! index 577 - 588 - 335, 58,200,345, 59,335,342, 60,345, 61,334, 62, & ! index 589 - 600 - 331,346, 63, 67,334,335, 64,179,327,351, 65,166, & ! index 601 - 612 - 327,351, 66,257,328,337,345, 67,335,346, 68,343, & ! index 613 - 624 - 345, 69,345,351, 70,234,345,346, 71,235,337,345, & ! index 625 - 636 - 72,213,337,345, 73,331,337,345, 74,257,337,345, & ! index 637 - 648 - 75,340,345, 76,338,345, 77,252,330,332,349,350, & ! index 649 - 660 - 78,334,345, 79,340,345, 80,328,335, 81,334,345, & ! index 661 - 672 - 82,345, 83,296,345,346, 84,334,345, 85,334,345, & ! index 673 - 684 - 86,334,345, 87,334,345, 88,312,336,345, 89,325, & ! index 685 - 696 - 345,348, 90,235,335,345, 91,323,345,346, 92,324, & ! index 697 - 708 - 337,345, 93,328,345,346, 94,345,351, 95,321,345 /) ! index up to 720 + 212,216,217,219,220,221,222,223,224,225,227,232, & ! index 361 - 372 + 234,237,238,239,241,243,246,250,251,254,255,256, & ! index 373 - 384 + 260,261,263,265,266,267,269,270,271,274,275,276, & ! index 385 - 396 + 277,278,279,280,281,282,284,287,292,293,294,295, & ! index 397 - 408 + 296,298,301,302,303,306,307,308,309,310,312,313, & ! index 409 - 420 + 317,318,320,321,329,330,332,334,336,337,339,340, & ! index 421 - 432 + 341,343,344,345,346,347,348,349,350,351,353,354, & ! index 433 - 444 + 355,356, 39, 63, 71, 80, 84, 85,103,109,113,115, & ! index 445 - 456 + 122,125,127,129,130,133,143,145,149,150,151,152, & ! index 457 - 468 + 155,161,170,184,185,189,190,191,194,195,197,201, & ! index 469 - 480 + 202,203,204,207,211,213,214,218,220,223,224,227, & ! index 481 - 492 + 229,230,231,233,242,245,251,256,257,259,262,265, & ! index 493 - 504 + 269,270,271,272,274,279,288,289,290,293,297,298, & ! index 505 - 516 + 302,305,309,311,313,314,315,318,329,330,334,338, & ! index 517 - 528 + 341,342,343,348,351,352,356, 40,244,317,335,343, & ! index 529 - 540 + 41, 93,183,244,267,317,320,332,343,345,355,356, & ! index 541 - 552 + 42,232,337,343,352, 43,244,279,317,318,341,343, & ! index 553 - 564 + 353,356, 44,343, 45, 98, 46,343, 47,336, 48,156, & ! index 565 - 576 + 246,260, 49,337, 50,337, 51,337, 52,337, 53,337, & ! index 577 - 588 + 54,337, 55,343, 56,337, 57,337, 58, 98,336, 59, & ! index 589 - 600 + 261,345, 60,277,345, 61,203,343, 62,342,345, 63, & ! index 601 - 612 + 343, 64,337, 65,331,338, 66, 70,337,345, 67,183, & ! index 613 - 624 + 333,348, 68,169,333,348, 69,261,334,341,343, 70, & ! index 625 - 636 + 338,345, 71,343,351, 72,343,348, 73,239,338,343, & ! index 637 - 648 + 74,216,341,343, 75,331,341,343, 76,261,341,343, & ! index 649 - 660 + 77,237,341,343, 78,343,344, 79,337,343, 80,343, & ! index 661 - 672 + 352, 81,254,287,296,349,350, 82,337,343, 83,334, & ! index 673 - 684 + 345, 84,343,352, 85,343, 86,300,338,343, 87,343, & ! index 685 - 696 + 348, 88,337,343, 89,337,343, 90,337,343, 91,337, & ! index 697 - 708 + 343, 92,317,343,353, 93,329,343,355, 94,327,338 /) ! index up to 720 INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_2 = (/ & - 346, 42, 44, 55, 96,284,346,347, 97,319,337,345, & ! index 721 - 732 - 98,178,337,345, 99,321,337,345,100,323,337,345, & ! index 733 - 744 - 101,345,102,300,337,345,103,168,175,186,216,222, & ! index 745 - 756 - 248,251,266,267,268,299,302,303,104,252,284,330, & ! index 757 - 768 - 332,338,344,353,105,334,345,106,136,234,328,346, & ! index 769 - 780 - 351,107,159,184,345,108,335,337,345,109,233,341, & ! index 781 - 792 - 345, 76,110,328,338,340,345,347,111,277,337,345, & ! index 793 - 804 - 112,275,337,345,113,246,335,345,114,213,335,345, & ! index 805 - 816 - 115,194,302,314,341,345,116,189,345,346, 90,117, & ! index 817 - 828 - 235,236,335,337,345,118,296,315,337,345,119,230, & ! index 829 - 840 - 231,301,345,120,284,338,345,347, 58,121,200,337, & ! index 841 - 852 - 345,346,122,240,335,345,123,260,337,345,124,322, & ! index 853 - 864 - 335,345,125,250,337,345,126,197,335,345,127,212, & ! index 865 - 876 - 345,346,128,199,209,267,268,345,112,129,138,191, & ! index 877 - 888 - 275,324,328,337,341,345,346,351,130,274,328,337, & ! index 889 - 900 - 345,131,258,286,337,345,346,132,233,337,345,346, & ! index 901 - 912 - 133,230,337,345,346, 89,134,179,241,264,312,316, & ! index 913 - 924 - 325,333,341,345,348,135,231,337,345,346,136,234, & ! index 925 - 936 - 328,337,345,137,277,345,346,138,275,345,346,139, & ! index 937 - 948 - 324,335,345,140,341,345,351,141,340,342,345,142, & ! index 949 - 960 - 340,345,351,143,220,341,345,144,199,276,304,345, & ! index 961 - 972 - 145,186,299,310,311,324,328,346,351,121,146,200, & ! index 973 - 984 - 337,345,346,147,285,286,345,148,218,316,342,345, & ! index 985 - 996 - 347,349,350,352,149,345,351,150,209,276,305,345, & ! index 997 - 1008 - 151,168,175,187,192,345,152,168,175,187,192,345, & ! index 1009 - 1020 - 153,258,285,337,345,346,154,242,256,341,345,351, & ! index 1021 - 1032 - 155,240,246,322,337,345,156,296,315,328,340,345, & ! index 1033 - 1044 - 157,218,297,316,317,333,338,339,344,347,349,350, & ! index 1045 - 1056 - 352,353, 82,101,149,158,200,345,351,159,259,337, & ! index 1057 - 1068 - 345,160,278,328,337,345,161,273,328,337,345,138 /) ! index up to 1080 + 343, 95,328,341,343, 96,334,338,343, 97,326,338, & ! index 721 - 732 + 343, 45, 47, 58, 98,336,338,347, 99,323,341,343, & ! index 733 - 744 + 100,182,341,343,101,326,341,343,102,327,341,343, & ! index 745 - 756 + 103,343,104,304,341,343,105,237,343,345,106,175, & ! index 757 - 768 + 177,188,220,225,251,255,269,270,271,303,306,307, & ! index 769 - 780 + 107,254,287,296,336,339,344,346,108,337,343,109, & ! index 781 - 792 + 161,189,343,110,341,343,345,111,281,341,343,112, & ! index 793 - 804 + 276,341,343,113,250,343,345,114,138,239,334,338, & ! index 805 - 816 + 348,115,216,343,345,116,197,306,318,343,356,117, & ! index 817 - 828 + 193,338,343,105,118,237,238,341,343,345, 78,119, & ! index 829 - 840 + 334,343,344,347,352,120,229,343,356,121,300,319, & ! index 841 - 852 + 341,343,122,231,233,305,343,123,336,343,344,347, & ! index 853 - 864 + 61,124,203,338,341,343,125,243,343,345,126,264, & ! index 865 - 876 + 341,343,127,325,343,345,128,253,341,343,129,201, & ! index 877 - 888 + 343,345,130,215,338,343,131,202,213,270,271,343, & ! index 889 - 900 + 112,132,141,194,276,328,334,338,341,343,348,356, & ! index 901 - 912 + 133,229,338,341,343,134,277,334,341,343,135,259, & ! index 913 - 924 + 289,338,341,343,136,231,338,341,343,137,233,338, & ! index 925 - 936 + 341,343,138,239,334,341,343,139,281,338,343,140, & ! index 937 - 948 + 343,348,356,141,276,338,343,142,342,343,352,143, & ! index 949 - 960 + 328,343,345,144,343,348,352,145,223,343,356, 93, & ! index 961 - 972 + 146,183,244,267,317,320,329,332,343,345,355,356, & ! index 973 - 984 + 147,188,303,308,310,328,334,338,348,148,343,348, & ! index 985 - 996 + 149,288,289,343,150,213,279,314,343,151,202,279, & ! index 997 - 1008 + 315,343,124,152,203,338,341,343,153,221,320,342, & ! index 1009 - 1020 + 343,347,349,350,354,154,300,319,334,343,352,155, & ! index 1021 - 1032 + 259,288,338,341,343,156,246,260,343,348,356,157, & ! index 1033 - 1044 + 175,177,191,195,343,158,243,250,325,341,343,159, & ! index 1045 - 1056 + 175,177,191,195,343,160,221,301,320,321,332,339, & ! index 1057 - 1068 + 340,344,346,347,349,350,354,161,262,341,343, 85 /) ! index up to 1080 INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_3 = (/ & - 162,273,275,345,346,163,255,272,328,341,345,346, & ! index 1081 - 1092 - 351,164,328,337,340,345,165,196,337,345,346,166, & ! index 1093 - 1104 - 327,339,341,348,167,341,345,351,168,304,345,346, & ! index 1105 - 1116 - 169,272,274,328,337,345, 62,170,252,331,332,345, & ! index 1117 - 1128 - 346,351,171,230,301,335,337,346,172,231,301,335, & ! index 1129 - 1140 - 337,346,101,173,200,201,221,240,246,289,322,324, & ! index 1141 - 1152 - 337,345,174,223,224,232,337,345,175,305,345,346, & ! index 1153 - 1164 - 137,176,277,278,345,346,177,211,237,255,272,341, & ! index 1165 - 1176 - 345,346,351, 69, 98,178,337,345,346,351,179,327, & ! index 1177 - 1188 - 339,341,348,180,299,337,345,346,181,334,340,345, & ! index 1189 - 1200 - 182,301,303,337,345,346,183,340,342,345,351,184, & ! index 1201 - 1212 - 259,308,335,345,119,147,185,230,231,285,286,301, & ! index 1213 - 1224 - 345,186,311,337,345,187,305,337,345,188,249,250, & ! index 1225 - 1236 - 260,289,300,318,319,320,321,323,328,345,149,189, & ! index 1237 - 1248 - 200,220,337,345,346,351,168,190,304,337,345,346, & ! index 1249 - 1260 - 191,341,345,351,192,304,337,345,193,291,341,345, & ! index 1261 - 1272 - 346,351,194,230,231,301,303,345,143,195,220,341, & ! index 1273 - 1284 - 345,351,165,178,196,337,345,346,351,126,197,233, & ! index 1285 - 1296 - 335,337,345,346,174,198,223,224,232,337,345,199, & ! index 1297 - 1308 - 304,337,345,200,345,351, 82,101,149,158,200,201, & ! index 1309 - 1320 - 341,345,351,158,195,200,202,220,341,345,351,117, & ! index 1321 - 1332 - 158,195,200,202,203,220,235,236,328,335,337,341, & ! index 1333 - 1344 - 345,346,351, 82,101,116,149,189,200,204,220,337, & ! index 1345 - 1356 - 341,345,346,351,175,205,305,337,345,346,206,268, & ! index 1357 - 1368 - 337,345,346,207,267,337,345,346,131,147,208,243, & ! index 1369 - 1380 - 254,258,285,286,288,337,345,346,209,305,337,345, & ! index 1381 - 1392 - 209,210,223,226,271,276,303,305,337,345,346,211, & ! index 1393 - 1404 - 281,341,345,346,351,140,212,337,341,345,346,351, & ! index 1405 - 1416 - 114,213,306,335,337,345,346,351,214,335,336,339, & ! index 1417 - 1428 - 344,351,353,128,144,150,151,152,168,175,186,187 /) ! index up to 1440 + 103,148,162,203,343,348,163,282,334,341,343,164, & ! index 1081 - 1092 + 275,334,341,343,141,165,275,276,338,343,166,256, & ! index 1093 - 1104 + 278,334,338,343,348,356,167,334,341,343,352,168, & ! index 1105 - 1116 + 200,338,341,343,169,333,340,355,356,170,343,348, & ! index 1117 - 1128 + 356,171,277,278,334,341,343, 65,172,254,296,331, & ! index 1129 - 1140 + 338,343,348,173,233,305,338,341,345,174,231,305, & ! index 1141 - 1152 + 338,341,345,175,314,338,343,103,176,203,204,224, & ! index 1153 - 1164 + 243,250,292,325,328,341,343,177,315,338,343,178, & ! index 1165 - 1176 + 226,228,235,341,343,139,179,281,282,338,343,180, & ! index 1177 - 1188 + 212,241,256,278,338,343,348,356,181,303,338,341, & ! index 1189 - 1200 + 343, 72,100,182,338,341,343,348,183,333,340,355, & ! index 1201 - 1212 + 356,184,337,343,352,185,305,307,338,341,343,177, & ! index 1213 - 1224 + 186,315,338,341,343,187,342,343,348,352,188,310, & ! index 1225 - 1236 + 341,343,189,262,312,343,345,122,149,190,231,233, & ! index 1237 - 1248 + 288,289,305,343,191,314,341,343,192,252,253,264, & ! index 1249 - 1260 + 292,304,322,323,324,326,327,334,343,148,193,203, & ! index 1261 - 1272 + 223,338,341,343,348,194,343,348,356,195,315,341, & ! index 1273 - 1284 + 343,196,294,338,343,348,356,197,231,233,305,307, & ! index 1285 - 1296 + 343,178,198,226,228,235,341,343,145,199,223,343, & ! index 1297 - 1308 + 348,356,168,182,200,338,341,343,348,129,201,229, & ! index 1309 - 1320 + 338,341,343,345,202,315,341,343,203,343,348, 85, & ! index 1321 - 1332 + 103,148,162,203,204,343,348,356,162,199,203,205, & ! index 1333 - 1344 + 223,343,348,356,118,162,199,203,205,206,223,237, & ! index 1345 - 1356 + 238,334,338,341,343,345,348,356, 85,103,117,148, & ! index 1357 - 1368 + 193,203,207,223,338,341,343,348,356,208,270,338, & ! index 1369 - 1380 + 341,343,209,271,338,341,343,175,210,314,338,341, & ! index 1381 - 1392 + 343,135,149,211,245,258,259,288,289,291,338,341, & ! index 1393 - 1404 + 343,212,284,338,343,348,356,213,314,341,343,213, & ! index 1405 - 1416 + 214,228,236,273,279,307,314,338,341,343,140,215, & ! index 1417 - 1428 + 338,341,343,348,356,115,216,309,338,341,343,345 /) ! index up to 1440 INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_4 = (/ & - 192,199,209,215,230,231,267,268,276,301,304,305, & ! index 1441 - 1452 - 311,337,345,346,206,216,226,268,271,293,301,308, & ! index 1453 - 1464 - 328,337,345,346,181,217,228,325,334,337,339,340, & ! index 1465 - 1476 - 341,343,345,352,218,335,336,339,342,347,219,341, & ! index 1477 - 1488 - 345,351,220,341,345,351, 82,101,143,149,195,200, & ! index 1489 - 1500 - 202,220,221,269,341,345,351,222,310,311,328,337, & ! index 1501 - 1512 - 345,187,209,223,305,337,345,346,192,199,224,304, & ! index 1513 - 1524 - 337,345,346,111,137,191,225,277,324,328,337,341, & ! index 1525 - 1536 - 345,346,351,186,226,311,337,345,346,131,147,153, & ! index 1537 - 1548 - 194,227,230,231,258,285,286,288,301,302,303,337, & ! index 1549 - 1560 - 345,346,228,290,326,334,340,341,345,229,291,337, & ! index 1561 - 1572 - 341,345,351,209,230,276,305,337,345,199,231,276, & ! index 1573 - 1584 - 304,337,345,187,192,232,304,305,337,345,346,140, & ! index 1585 - 1596 - 212,233,337,341,345,346,351,109,136,233,234,246, & ! index 1597 - 1608 - 328,337,341,345,346,351, 71, 90,204,220,235,328, & ! index 1609 - 1620 - 335,337,341,345,346,351, 71,117,203,204,220,235, & ! index 1621 - 1632 - 236,328,335,337,341,345,346,351,237,281,324,328, & ! index 1633 - 1644 - 337,341,345,346,351,199,209,238,267,268,304,305, & ! index 1645 - 1656 - 328,337,345,346, 64, 65,166,179,239,252,269,297, & ! index 1657 - 1668 - 327,335,339,341,344,345,346,348,349,350,351,352, & ! index 1669 - 1680 - 353,122,146,200,240,335,337,345,346,351,241,290, & ! index 1681 - 1692 - 329,335,336,341,346,348,193,242,280,289,291,324, & ! index 1693 - 1704 - 328,337,341,345,346,351,128,192,199,209,243,267, & ! index 1705 - 1716 - 268,304,305,337,345,346,199,224,226,244,271,276, & ! index 1717 - 1728 - 287,303,304,309,311,313,320,337,345,346,110,245, & ! index 1729 - 1740 - 297,317,328,333,334,338,339,340,344,345,347,353, & ! index 1741 - 1752 - 113,246,320,335,337,345,346,125,180,182,206,216, & ! index 1753 - 1764 - 226,247,250,268,271,293,299,301,303,308,309,311, & ! index 1765 - 1776 - 328,337,345,346,351,172,205,231,248,253,276,301, & ! index 1777 - 1788 - 303,304,305,308,335,337,345,346,249,279,324,328 /) ! index up to 1800 + 348,217,339,340,345,346,348,353,131,150,151,157, & ! index 1441 - 1452 + 159,175,177,188,191,195,202,213,218,231,233,270, & ! index 1453 - 1464 + 271,279,305,310,314,315,338,341,343,184,219,232, & ! index 1465 - 1476 + 329,337,340,341,343,351,352,354,356,209,220,236, & ! index 1477 - 1488 + 271,273,299,305,312,334,338,341,343,221,340,342, & ! index 1489 - 1500 + 345,347,353,222,343,348,356,223,343,348,356, 85, & ! index 1501 - 1512 + 103,145,148,199,203,205,223,224,272,343,348,356, & ! index 1513 - 1524 + 225,308,310,334,341,343,195,202,226,315,338,341, & ! index 1525 - 1536 + 343,111,139,194,227,281,328,334,338,341,343,348, & ! index 1537 - 1548 + 356,191,213,228,314,338,341,343,140,215,229,338, & ! index 1549 - 1560 + 341,343,348,356,135,149,155,197,230,231,233,259, & ! index 1561 - 1572 + 288,289,291,305,306,307,338,341,343,202,231,279, & ! index 1573 - 1584 + 315,341,343,232,293,330,337,343,352,356,213,233, & ! index 1585 - 1596 + 279,314,341,343,234,294,341,343,348,356,191,195, & ! index 1597 - 1608 + 235,314,315,338,341,343,188,236,310,338,341,343, & ! index 1609 - 1620 + 77,105,207,223,237,334,338,341,343,345,348,356, & ! index 1621 - 1632 + 77,118,206,207,223,237,238,334,338,341,343,345, & ! index 1633 - 1644 + 348,356,120,138,229,239,250,334,338,341,343,348, & ! index 1645 - 1656 + 356, 67, 68,169,183,240,254,272,301,333,338,339, & ! index 1657 - 1668 + 340,343,345,346,348,349,350,354,355,356,241,284, & ! index 1669 - 1680 + 328,334,338,341,343,348,356,202,213,242,270,271, & ! index 1681 - 1692 + 314,315,334,338,341,343,125,152,203,243,338,341, & ! index 1693 - 1704 + 343,345,348,244,293,335,338,345,353,355,356,131, & ! index 1705 - 1716 + 195,202,213,245,270,271,314,315,338,341,343,196, & ! index 1717 - 1728 + 246,280,292,294,328,334,338,341,343,348,356,202, & ! index 1729 - 1740 + 226,236,247,273,279,290,307,310,313,315,316,324, & ! index 1741 - 1752 + 338,341,343,119,248,301,321,332,334,337,339,340, & ! index 1753 - 1764 + 343,344,346,347,352,128,181,185,209,220,236,249, & ! index 1765 - 1776 + 253,271,273,299,303,305,307,310,312,313,334,338, & ! index 1777 - 1788 + 341,343,348,113,250,324,338,341,343,345,174,210 /) ! index up to 1800 INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_5 = (/ & - 337,345,346,125,250,290,324,328,337,345,346,351, & ! index 1801 - 1812 - 251,318,319,320,337,345,346,252,331,335,344,349, & ! index 1813 - 1824 - 350,353,172,231,253,276,301,304,309,335,337,345, & ! index 1825 - 1836 - 346,171,230,254,276,301,305,314,335,337,345,346, & ! index 1837 - 1848 - 167,255,281,324,328,337,341,345,346,351,162,176, & ! index 1849 - 1860 - 177,211,237,255,256,272,273,275,277,278,280,281, & ! index 1861 - 1872 - 289,324,328,337,341,345,346,351, 56, 74,111,225, & ! index 1873 - 1884 - 257,277,324,328,335,337,341,345,346,351,174,223, & ! index 1885 - 1896 - 224,232,243,258,267,268,285,286,304,305,337,345, & ! index 1897 - 1908 - 346,159,184,259,308,309,335,337,345,346,351,123, & ! index 1909 - 1920 - 260,290,324,328,337,340,342,345,346,180,182,207, & ! index 1921 - 1932 - 226,261,267,271,293,299,301,302,303,311,337,345, & ! index 1933 - 1944 - 346,351,193,219,229,262,291,324,328,337,341,345, & ! index 1945 - 1956 - 346,351, 82,101,137,138,143,149,158,160,167,176, & ! index 1957 - 1968 - 193,195,200,202,211,219,220,229,237,255,262,263, & ! index 1969 - 1980 - 275,277,278,281,291,324,328,337,341,345,346,351, & ! index 1981 - 1992 - 241,264,276,290,312,314,329,335,336,337,340,341, & ! index 1993 - 2004 - 343,345,346,348, 60, 88,107,159,184,194,201,221, & ! index 2005 - 2016 - 230,231,259,265,269,276,301,302,303,304,305,306, & ! index 2017 - 2028 - 307,308,309,312,335,336,337,340,341,345,346,351, & ! index 2029 - 2040 - 190,205,206,207,226,243,266,267,268,271,285,286, & ! index 2041 - 2052 - 303,304,305,311,337,345,346,267,305,311,328,345, & ! index 2053 - 2064 - 346,268,304,310,311,328,345,346,158,195,200,202, & ! index 2065 - 2076 - 203,220,235,236,269,328,335,337,341,345,346,351, & ! index 2077 - 2088 - 60, 82,101,143,185,194,195,198,200,210,220,221, & ! index 2089 - 2100 - 223,224,226,227,230,231,232,233,258,267,268,269, & ! index 2101 - 2112 - 270,271,276,285,286,288,301,302,303,304,305,306, & ! index 2113 - 2124 - 310,311,328,335,337,341,345,346,351,222,271,310, & ! index 2125 - 2136 - 311,328,337,345,346,211,237,272,281,324,328,337, & ! index 2137 - 2148 - 341,345,346,351,129,138,161,191,273,275,324,328 /) ! index up to 2160 + 231,251,257,279,305,307,312,314,315,338,341,343, & ! index 1801 - 1812 + 345,252,283,328,334,338,341,343,128,253,293,328, & ! index 1813 - 1824 + 334,338,341,343,348,254,331,339,345,346,349,350, & ! index 1825 - 1836 + 255,322,323,324,338,341,343,170,256,284,328,334, & ! index 1837 - 1848 + 338,341,343,348,356,174,231,257,279,305,313,315, & ! index 1849 - 1860 + 338,341,343,345,173,233,258,279,305,314,318,338, & ! index 1861 - 1872 + 341,343,345,178,226,228,235,245,259,270,271,288, & ! index 1873 - 1884 + 289,314,315,338,341,343,165,179,180,212,241,256, & ! index 1885 - 1896 + 260,275,276,278,280,281,282,284,292,328,334,338, & ! index 1897 - 1908 + 341,343,348,356, 59, 76,111,227,261,281,328,334, & ! index 1909 - 1920 + 338,341,343,345,348,356,161,189,262,312,313,338, & ! index 1921 - 1932 + 341,343,345,348,196,222,234,263,294,328,334,338, & ! index 1933 - 1944 + 341,343,348,356,126,264,293,328,334,338,341,342, & ! index 1945 - 1956 + 343,352,181,185,208,236,265,270,273,299,303,305, & ! index 1957 - 1968 + 306,307,310,338,341,343,348, 85,103,139,141,145, & ! index 1969 - 1980 + 148,162,163,170,179,196,199,203,205,212,222,223, & ! index 1981 - 1992 + 234,241,256,263,266,276,281,282,284,294,328,334, & ! index 1993 - 2004 + 338,341,343,348,356,244,267,279,293,317,318,335, & ! index 2005 - 2016 + 338,341,343,345,351,352,353,355,356, 63, 92,109, & ! index 2017 - 2028 + 161,189,197,204,224,231,233,262,268,272,279,305, & ! index 2029 - 2040 + 306,307,309,311,312,313,314,315,317,338,341,343, & ! index 2041 - 2052 + 345,348,352,353,356,186,208,209,210,236,245,269, & ! index 2053 - 2064 + 270,271,273,288,289,307,310,314,315,338,341,343, & ! index 2065 - 2076 + 270,310,314,334,338,343,271,308,310,315,334,338, & ! index 2077 - 2088 + 343,162,199,203,205,206,223,237,238,272,334,338, & ! index 2089 - 2100 + 341,343,345,348,356,225,273,308,310,334,338,341, & ! index 2101 - 2112 + 343, 63, 85,103,145,190,197,198,199,203,214,223, & ! index 2113 - 2124 + 224,226,228,229,230,231,233,235,236,259,270,271, & ! index 2125 - 2136 + 272,273,274,279,288,289,291,305,306,307,308,309, & ! index 2137 - 2148 + 310,314,315,334,338,341,343,345,348,356,132,141 /) ! index up to 2160 INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_6 = (/ & - 337,341,345,346,351, 57,161,162,163,167,169,177, & ! index 2161 - 2172 - 211,237,255,272,273,274,275,281,324,328,335,337, & ! index 2173 - 2184 - 341,345,346,351,112,191,219,275,324,328,337,341, & ! index 2185 - 2196 - 345,346,351,276,340,341,345,351,111,191,219,277, & ! index 2197 - 2208 - 324,328,337,341,345,346,351, 66, 74,160,225,257, & ! index 2209 - 2220 - 277,278,324,328,335,337,341,345,346,351,249,279, & ! index 2221 - 2232 - 300,320,324,328,337,345,346,167,191,193,219,229, & ! index 2233 - 2244 - 262,280,289,291,324,328,337,341,345,346,351,167, & ! index 2245 - 2256 - 191,219,281,324,328,337,341,345,346,351,234,246, & ! index 2257 - 2268 - 249,250,260,272,273,275,277,278,279,281,282,289, & ! index 2269 - 2280 - 290,291,296,300,306,310,311,313,315,318,319,320, & ! index 2281 - 2292 - 321,323,324,328,335,337,340,341,342,345,346,351, & ! index 2293 - 2304 - 201,241,249,250,260,275,277,279,281,283,290,291, & ! index 2305 - 2316 - 296,300,307,313,315,318,319,320,321,323,324,328, & ! index 2317 - 2328 - 329,335,336,337,340,341,342,345,346,348,351, 44, & ! index 2329 - 2340 - 55, 96,284,330,331,332,335,337,338,341,345,346, & ! index 2341 - 2352 - 347,147,151,152,168,175,187,192,238,267,268,285, & ! index 2353 - 2364 - 286,304,305,310,311,328,337,345,346,147,151,152, & ! index 2365 - 2376 - 168,175,187,192,238,267,268,285,286,304,305,310, & ! index 2377 - 2388 - 311,328,337,345,346,144,192,198,199,223,224,231, & ! index 2389 - 2400 - 232,238,253,258,266,267,268,271,276,285,286,287, & ! index 2401 - 2412 - 301,303,304,305,309,310,311,328,335,337,340,341, & ! index 2413 - 2424 - 345,346,351,150,187,198,209,223,224,230,232,238, & ! index 2425 - 2436 - 254,266,267,268,271,276,285,286,288,301,303,304, & ! index 2437 - 2448 - 305,310,311,314,328,335,337,340,341,345,346,351, & ! index 2449 - 2460 - 167,191,219,280,289,291,324,328,337,341,345,346, & ! index 2461 - 2472 - 351,290,314,340,341,342,345,351,219,291,324,328, & ! index 2473 - 2484 - 337,341,345,346,351,160,176,178,219,251,256,262, & ! index 2485 - 2496 - 272,273,275,277,278,279,280,281,289,291,292,300, & ! index 2497 - 2508 - 318,319,320,324,328,335,337,341,345,346,351,145 /) ! index up to 2520 + 164,194,275,276,328,334,338,341,343,348,356,112, & ! index 2161 - 2172 + 194,222,276,328,334,338,341,343,348,356, 60,164, & ! index 2173 - 2184 + 165,166,170,171,180,212,241,256,275,276,277,278, & ! index 2185 - 2196 + 284,328,334,338,341,343,345,348,356,212,241,278, & ! index 2197 - 2208 + 284,328,334,338,341,343,348,356,279,343,348,352, & ! index 2209 - 2220 + 356,170,194,196,222,234,263,280,292,294,328,334, & ! index 2221 - 2232 + 338,341,343,348,356,111,194,222,281,328,334,338, & ! index 2233 - 2244 + 341,343,348,356, 69, 76,163,227,261,281,282,328, & ! index 2245 - 2256 + 334,338,341,343,345,348,356,252,283,304,324,328, & ! index 2257 - 2268 + 334,338,341,343,170,194,222,284,328,334,338,341, & ! index 2269 - 2280 + 343,348,356,239,250,252,253,264,275,276,278,281, & ! index 2281 - 2292 + 282,283,284,285,292,293,294,300,304,308,309,310, & ! index 2293 - 2304 + 316,319,322,323,324,326,327,328,334,338,341,342, & ! index 2305 - 2316 + 343,345,348,352,356,204,244,252,253,264,276,281, & ! index 2317 - 2328 + 283,284,286,293,294,300,304,311,316,319,322,323, & ! index 2329 - 2340 + 324,326,327,328,334,335,338,341,342,343,345,348, & ! index 2341 - 2352 + 352,353,355,356,172,254,287,296,331,336,338,339, & ! index 2353 - 2364 + 341,343,345,346,348,349,350,353,149,157,159,175, & ! index 2365 - 2376 + 177,191,195,242,270,271,288,289,308,310,314,315, & ! index 2377 - 2388 + 334,338,341,343,149,157,159,175,177,191,195,242, & ! index 2389 - 2400 + 270,271,288,289,308,310,314,315,334,338,341,343, & ! index 2401 - 2412 + 151,195,198,202,226,228,231,235,242,257,259,269, & ! index 2413 - 2424 + 270,271,273,279,288,289,290,305,307,308,310,313, & ! index 2425 - 2436 + 314,315,334,338,341,343,345,348,352,356,150,191, & ! index 2437 - 2448 + 198,213,226,228,233,235,242,258,269,270,271,273, & ! index 2449 - 2460 + 279,288,289,291,305,307,308,310,314,315,318,334, & ! index 2461 - 2472 + 338,341,343,345,348,352,356,170,194,222,280,292, & ! index 2473 - 2484 + 294,328,334,338,341,343,348,356,293,318,342,343, & ! index 2485 - 2496 + 348,352,356,222,294,328,334,338,341,343,348,356, & ! index 2497 - 2508 + 163,179,182,222,255,260,263,275,276,278,280,281 /) ! index up to 2520 INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_7 = (/ & - 186,222,293,299,303,310,311,324,328,337,345,346, & ! index 2521 - 2532 - 351, 82,101,107,159,184,185,194,198,199,200,201, & ! index 2533 - 2544 - 209,215,223,224,227,230,231,232,238,244,247,250, & ! index 2545 - 2556 - 253,254,258,259,266,267,268,271,276,285,286,287, & ! index 2557 - 2568 - 288,290,293,294,299,301,302,303,304,305,307,308, & ! index 2569 - 2580 - 309,310,311,313,314,320,324,328,335,337,340,341, & ! index 2581 - 2592 - 342,345,346,351, 91,100,160,161,162,176,219,229, & ! index 2593 - 2604 - 251,262,273,275,277,278,279,291,295,300,318,319, & ! index 2605 - 2616 - 320,323,324,328,335,337,340,341,342,345,346,351, & ! index 2617 - 2628 - 173,183,200,201,221,240,246,269,289,291,296,320, & ! index 2629 - 2640 - 322,324,328,335,337,340,341,342,345,346,351,214, & ! index 2641 - 2652 - 297,335,336,339,344,345,349,350,351,352,353, 95, & ! index 2653 - 2664 - 97, 98, 99,102,125,130,161,162,165,169,178,188, & ! index 2665 - 2676 - 196,201,212,219,221,229,242,249,250,251,260,269, & ! index 2677 - 2688 - 272,273,274,275,279,280,281,289,290,291,298,300, & ! index 2689 - 2700 - 314,318,319,320,321,323,324,328,335,337,340,341, & ! index 2701 - 2712 - 342,345,346,351,180,190,205,206,207,226,267,268, & ! index 2713 - 2724 - 271,293,299,303,304,305,310,311,324,328,337,345, & ! index 2725 - 2736 - 346,351,102,142,201,300,324,328,337,340,341,345, & ! index 2737 - 2748 - 346,351,145,186,267,268,299,301,303,304,305,310, & ! index 2749 - 2760 - 311,324,328,337,345,346,351,171,190,207,226,230, & ! index 2761 - 2772 - 254,267,271,276,293,299,301,302,303,304,305,310, & ! index 2773 - 2784 - 311,314,324,328,335,337,340,341,345,346,351,186, & ! index 2785 - 2796 - 190,205,206,207,222,223,224,226,232,267,268,271, & ! index 2797 - 2808 - 293,299,303,304,305,310,311,324,328,337,345,346, & ! index 2809 - 2820 - 351,186,192,199,276,304,305,311,328,337,340,341, & ! index 2821 - 2832 - 345,346,351,186,187,209,276,304,305,311,328,337, & ! index 2833 - 2844 - 340,341,345,346,351, 70,106,113,126,127,132,136, & ! index 2845 - 2856 - 174,180,197,198,201,202,205,206,212,220,221,223, & ! index 2857 - 2868 - 224,232,233,234,246,254,258,262,266,267,268,269 /) ! index up to 2880 + 282,283,284,292,294,295,304,322,323,324,328,334, & ! index 2521 - 2532 + 338,341,343,345,348,356,172,254,296,331,336,338, & ! index 2533 - 2544 + 339,343,345,346,348,349,350,353, 94,102,163,164, & ! index 2545 - 2556 + 165,179,222,234,255,263,275,276,281,282,283,294, & ! index 2557 - 2568 + 297,304,322,323,324,327,328,334,338,341,342,343, & ! index 2569 - 2580 + 345,348,352,356, 85,103,109,161,189,190,197,198, & ! index 2581 - 2592 + 202,203,204,213,218,226,228,230,231,233,235,242, & ! index 2593 - 2604 + 247,249,253,257,258,259,262,269,270,271,273,279, & ! index 2605 - 2616 + 288,289,290,291,293,298,299,303,305,306,307,308, & ! index 2617 - 2628 + 310,311,312,313,314,315,316,318,324,328,334,338, & ! index 2629 - 2640 + 341,342,343,345,348,352,356,147,188,225,299,303, & ! index 2641 - 2652 + 307,308,310,328,334,338,341,343,348,176,187,203, & ! index 2653 - 2664 + 204,224,243,250,272,292,294,300,324,325,328,334, & ! index 2665 - 2676 + 338,341,342,343,345,348,352,356,217,301,339,340, & ! index 2677 - 2688 + 343,345,346,348,349,350,353,354, 97, 99,100,101, & ! index 2689 - 2700 + 104,128,134,164,165,168,171,182,192,200,204,215, & ! index 2701 - 2712 + 222,224,234,246,252,253,255,264,272,275,276,277, & ! index 2713 - 2724 + 278,280,283,284,292,293,294,302,304,318,322,323, & ! index 2725 - 2736 + 324,326,327,328,334,338,341,342,343,345,348,352, & ! index 2737 - 2748 + 356,181,186,208,209,210,236,270,271,273,299,303, & ! index 2749 - 2760 + 307,308,310,314,315,328,334,338,341,343,348,104, & ! index 2761 - 2772 + 144,204,304,328,334,338,341,343,348,352,356,147, & ! index 2773 - 2784 + 188,270,271,303,305,307,308,310,314,315,328,334, & ! index 2785 - 2796 + 338,341,343,348,173,186,208,233,236,258,270,273, & ! index 2797 - 2808 + 279,299,303,305,306,307,308,310,314,315,318,328, & ! index 2809 - 2820 + 334,338,341,343,345,348,352,356,186,188,208,209, & ! index 2821 - 2832 + 210,225,226,228,235,236,270,271,273,299,303,307, & ! index 2833 - 2844 + 308,310,314,315,328,334,338,341,343,348,225,279, & ! index 2845 - 2856 + 308,310,328,334,338,341,343,348,352,356, 73,113, & ! index 2857 - 2868 + 114,129,130,133,138,178,181,198,201,204,205,209 /) ! index up to 2880 INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_8 = (/ & - 271,276,285,286,288,291,293,299,301,302,303,304, & ! index 2881 - 2892 - 305,306,310,311,314,320,324,328,335,337,340,341, & ! index 2893 - 2904 - 345,346,351,123,153,154,159,174,184,198,205,207, & ! index 2905 - 2916 - 215,223,224,230,231,232,242,243,248,253,256,258, & ! index 2917 - 2928 - 259,260,267,268,271,272,273,275,276,277,278,280, & ! index 2929 - 2940 - 281,285,286,287,289,290,291,293,299,301,303,304, & ! index 2941 - 2952 - 305,307,308,309,310,311,313,314,324,328,335,337, & ! index 2953 - 2964 - 340,341,342,345,346,351,248,253,276,301,303,304, & ! index 2965 - 2976 - 305,308,309,310,311,324,328,335,337,340,341,345, & ! index 2977 - 2988 - 346,351,135,144,168,192,199,222,231,276,299,303, & ! index 2989 - 3000 - 304,305,309,310,311,324,328,337,340,341,345,346, & ! index 3001 - 3012 - 351,222,276,310,311,324,328,337,340,341,345,346, & ! index 3013 - 3024 - 351,186,276,310,311,324,328,337,340,341,345,346, & ! index 3025 - 3036 - 351,109,191,220,233,255,276,281,290,309,310,311, & ! index 3037 - 3048 - 312,314,324,328,329,335,336,337,340,341,342,345, & ! index 3049 - 3060 - 346,348,351,244,271,276,287,295,300,301,303,304, & ! index 3061 - 3072 - 305,309,310,311,313,318,319,320,323,324,328,335, & ! index 3073 - 3084 - 337,340,341,342,345,346,351, 82,101,133,150,175, & ! index 3085 - 3096 - 187,209,219,222,229,230,262,276,291,299,303,304, & ! index 3097 - 3108 - 305,310,311,314,324,328,337,340,341,345,346,351, & ! index 3109 - 3120 - 118,251,279,292,296,298,300,314,315,318,319,320, & ! index 3121 - 3132 - 321,322,323,324,328,335,337,340,341,342,345,346, & ! index 3133 - 3144 - 351,148,218,316,335,336,337,339,341,342,343,344, & ! index 3145 - 3156 - 345,347,348,349,350,352,353,317,335,336,338,339, & ! index 3157 - 3168 - 340,343,344,345,349,350,352,353,251,269,318,319, & ! index 3169 - 3180 - 320,324,328,335,337,341,345,346,351, 97,130,142, & ! index 3181 - 3192 - 161,162,169,178,249,272,273,274,275,279,281,300, & ! index 3193 - 3204 - 318,319,320,324,328,335,337,340,341,345,346,351, & ! index 3205 - 3216 - 219,292,300,318,319,320,324,328,335,337,340,341, & ! index 3217 - 3228 - 345,346,351, 99,141,251,279,292,298,300,314,318 /) ! index up to 3240 + 210,215,223,224,226,228,229,235,239,250,258,259, & ! index 2881 - 2892 + 263,269,270,271,272,273,279,288,289,291,294,299, & ! index 2893 - 2904 + 303,305,306,307,308,309,310,314,315,318,324,328, & ! index 2905 - 2916 + 334,338,341,343,345,348,352,356,188,279,308,310, & ! index 2917 - 2928 + 328,334,338,341,343,348,352,356,126,155,156,161, & ! index 2929 - 2940 + 178,189,198,208,210,218,226,228,231,233,235,245, & ! index 2941 - 2952 + 246,251,257,259,260,262,264,270,271,273,275,276, & ! index 2953 - 2964 + 278,279,280,281,282,284,288,289,290,292,293,294, & ! index 2965 - 2976 + 299,303,305,307,308,310,311,312,313,314,315,316, & ! index 2977 - 2988 + 318,328,334,338,341,342,343,345,348,352,356,251, & ! index 2989 - 3000 + 257,279,305,307,308,310,312,313,314,315,328,334, & ! index 3001 - 3012 + 338,341,343,345,348,352,356,136,151,177,195,202, & ! index 3013 - 3024 + 225,231,279,303,307,308,310,313,314,315,328,334, & ! index 3025 - 3036 + 338,341,343,348,352,356,188,191,213,279,310,314, & ! index 3037 - 3048 + 315,328,334,338,341,343,348,352,356,188,195,202, & ! index 3049 - 3060 + 279,310,314,315,328,334,338,341,343,348,352,356, & ! index 3061 - 3072 + 247,273,279,290,297,304,305,307,308,310,313,314, & ! index 3073 - 3084 + 315,316,322,323,324,327,328,334,338,341,342,343, & ! index 3085 - 3096 + 345,348,352,356,120,194,223,229,256,279,284,293, & ! index 3097 - 3108 + 313,314,315,317,318,328,334,335,338,341,342,343, & ! index 3109 - 3120 + 345,348,352,353,355,356, 85,103,137,150,175,191, & ! index 3121 - 3132 + 213,222,225,233,234,263,279,294,303,307,308,310, & ! index 3133 - 3144 + 314,315,318,328,334,338,341,343,348,352,356,121, & ! index 3145 - 3156 + 255,283,295,300,302,304,318,319,322,323,324,325, & ! index 3157 - 3168 + 326,327,328,334,338,341,342,343,345,348,352,356, & ! index 3169 - 3180 + 153,221,320,339,340,341,342,343,345,346,347,349, & ! index 3181 - 3192 + 350,351,353,354,355,356,321,339,340,343,344,345, & ! index 3193 - 3204 + 346,349,350,351,352,353,354,255,272,322,323,324, & ! index 3205 - 3216 + 328,334,338,341,343,345,348,356, 99,134,144,164, & ! index 3217 - 3228 + 165,171,182,252,275,276,277,278,283,284,304,322 /) ! index up to 3240 INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_9 = (/ & - 319,320,321,322,323,324,328,335,337,340,341,342, & ! index 3241 - 3252 - 345,346,351,124,155,160,176,196,201,221,240,246, & ! index 3253 - 3264 - 269,277,278,292,298,300,314,318,319,320,321,322, & ! index 3265 - 3276 - 323,324,328,335,337,340,341,342,345,346,351,100, & ! index 3277 - 3288 - 141,251,279,292,298,300,314,318,319,320,321,322, & ! index 3289 - 3300 - 323,324,328,335,337,340,341,342,345,346,351, 92, & ! index 3301 - 3312 - 107,115,122,130,139,146,159,169,184,185,194,196, & ! index 3313 - 3324 - 200,208,209,227,230,231,240,243,244,247,249,250, & ! index 3325 - 3336 - 254,257,258,259,260,261,263,267,268,271,272,274, & ! index 3337 - 3348 - 275,276,277,278,279,280,281,285,286,287,288,289, & ! index 3349 - 3360 - 290,291,292,293,294,295,296,299,300,301,302,303, & ! index 3361 - 3372 - 304,305,307,308,309,310,311,313,314,315,318,319, & ! index 3373 - 3384 - 320,321,322,323,324,326,328,335,337,340,341,342, & ! index 3385 - 3396 - 345,346,351, 72, 80, 88, 89, 92, 93, 94,106,109, & ! index 3397 - 3408 - 112,114,122,123,127,130,136,137,138,139,140,146, & ! index 3409 - 3420 - 149,159,160,164,165,168,169,175,176,187,190,191, & ! index 3421 - 3432 - 192,196,197,199,200,205,206,207,208,209,210,211, & ! index 3433 - 3444 - 212,213,215,219,220,222,223,224,226,228,229,230, & ! index 3445 - 3456 - 231,233,234,235,236,240,243,244,246,247,249,250, & ! index 3457 - 3468 - 253,254,255,257,258,259,260,261,262,263,267,268, & ! index 3469 - 3480 - 270,271,272,273,274,275,276,277,278,279,280,281, & ! index 3481 - 3492 - 282,285,286,287,288,289,290,291,293,296,299,300, & ! index 3493 - 3504 - 301,302,303,304,305,306,307,308,309,310,311,312, & ! index 3505 - 3516 - 313,314,315,318,319,320,321,322,323,324,325,326, & ! index 3517 - 3528 - 328,329,334,335,336,337,338,340,341,342,343,345, & ! index 3529 - 3540 - 346,348,351, 83,118,123,124,149,155,156,165,196, & ! index 3541 - 3552 - 240,241,246,249,250,251,260,279,290,296,300,314, & ! index 3553 - 3564 - 315,318,319,320,321,322,323,324,326,328,329,335, & ! index 3565 - 3576 - 336,337,340,341,342,345,346,348,351, 45, 69, 94, & ! index 3577 - 3588 - 103,142,149,154,158,166,168,175,179,183,186,195 /) ! index up to 3600 + 323,324,328,334,338,341,343,345,348,352,356,222, & ! index 3241 - 3252 + 295,304,322,323,324,328,334,338,341,343,345,348, & ! index 3253 - 3264 + 352,356,127,158,163,179,200,204,224,243,250,272, & ! index 3265 - 3276 + 281,282,295,302,304,318,322,323,324,325,326,327, & ! index 3277 - 3288 + 328,334,338,341,342,343,345,348,352,356,101,142, & ! index 3289 - 3300 + 255,283,295,302,304,318,322,323,324,325,326,327, & ! index 3301 - 3312 + 328,334,338,341,342,343,345,348,352,356,102,142, & ! index 3313 - 3324 + 255,283,295,302,304,318,322,323,324,325,326,327, & ! index 3325 - 3336 + 328,334,338,341,342,343,345,348,352,356, 95,109, & ! index 3337 - 3348 + 116,125,134,143,152,161,171,189,190,197,200,203, & ! index 3349 - 3360 + 211,213,230,231,233,243,245,247,249,252,253,258, & ! index 3361 - 3372 + 259,261,262,264,265,266,270,271,273,276,277,278, & ! index 3373 - 3384 + 279,280,281,282,283,284,288,289,290,291,292,293, & ! index 3385 - 3396 + 294,295,297,298,299,300,303,304,305,306,307,308, & ! index 3397 - 3408 + 310,311,312,313,314,315,316,318,319,322,323,324, & ! index 3409 - 3420 + 325,326,327,328,330,334,338,341,342,343,345,348, & ! index 3421 - 3432 + 352,356, 74, 83, 87, 92, 93, 95, 96,112,114,115, & ! index 3433 - 3444 + 120,125,126,130,134,138,139,140,141,143,148,152, & ! index 3445 - 3456 + 161,163,167,168,171,175,177,179,186,191,194,195, & ! index 3457 - 3468 + 200,201,202,203,208,209,210,211,212,213,214,215, & ! index 3469 - 3480 + 216,218,222,223,225,226,228,229,231,232,233,234, & ! index 3481 - 3492 + 236,237,238,239,243,245,247,249,250,252,253,256, & ! index 3493 - 3504 + 257,258,259,261,262,263,264,265,266,270,271,273, & ! index 3505 - 3516 + 274,275,276,277,278,279,280,281,282,283,284,285, & ! index 3517 - 3528 + 288,289,290,291,292,293,294,299,300,303,304,305, & ! index 3529 - 3540 + 306,307,308,309,310,311,312,313,314,315,316,317, & ! index 3541 - 3552 + 318,319,322,323,324,325,326,327,328,329,330,334, & ! index 3553 - 3564 + 335,337,338,341,342,343,344,345,348,351,352,353, & ! index 3565 - 3576 + 355,356, 86,121,126,127,148,154,158,168,200,243, & ! index 3577 - 3588 + 244,250,252,253,255,264,283,293,300,304,318,319 /) ! index up to 3600 INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_10 = (/ & - 200,202,204,214,216,218,220,222,225,226,242,248, & ! index 3601 - 3612 - 251,253,256,261,266,267,268,269,270,271,272,273, & ! index 3613 - 3624 - 275,276,277,278,280,281,285,286,288,289,291,292, & ! index 3625 - 3636 - 293,294,298,299,300,301,302,303,304,305,306,307, & ! index 3637 - 3648 - 308,309,310,311,313,314,317,318,319,320,321,322, & ! index 3649 - 3660 - 323,324,325,326,327,328,329,332,334,335,336,337, & ! index 3661 - 3672 - 338,339,340,341,342,343,344,345,346,347,348,349, & ! index 3673 - 3684 - 350,351,352,353, 52, 80, 92, 94,105,139,155,159, & ! index 3685 - 3696 - 164,181,228,234,235,236,240,246,249,250,251,257, & ! index 3697 - 3708 - 259,260,263,272,273,274,275,276,277,278,279,280, & ! index 3709 - 3720 - 281,283,289,290,291,292,295,296,300,304,305,307, & ! index 3721 - 3732 - 308,309,310,311,313,314,315,318,319,320,321,322, & ! index 3733 - 3744 - 323,324,326,328,329,334,335,336,337,338,340,341, & ! index 3745 - 3756 - 342,345,346,348,351, 60, 68, 75, 79, 82,101,107, & ! index 3757 - 3768 - 113,114,119,122,124,126,127,132,139,143,144,146, & ! index 3769 - 3780 - 147,150,153,159,167,181,182,184,185,187,191,192, & ! index 3781 - 3792 - 194,197,199,200,201,204,208,209,210,212,213,215, & ! index 3793 - 3804 - 216,220,221,223,225,226,227,230,231,233,238,240, & ! index 3805 - 3816 - 241,243,246,248,253,254,255,258,259,261,266,267, & ! index 3817 - 3828 - 268,269,270,271,276,277,281,285,286,287,288,290, & ! index 3829 - 3840 - 293,294,295,298,299,300,301,302,303,304,305,306, & ! index 3841 - 3852 - 307,308,309,310,311,312,313,314,318,319,320,321, & ! index 3853 - 3864 - 322,323,324,325,326,328,329,334,335,336,337,338, & ! index 3865 - 3876 - 340,341,342,343,345,346,348,351,170,252,284,330, & ! index 3877 - 3888 - 331,332,335,336,337,338,341,344,345,346,347,349, & ! index 3889 - 3900 - 350,351,353, 1, 2, 3, 44, 52, 62, 73, 77, 96, & ! index 3901 - 3912 - 104,170,252,284,330,331,332,335,336,337,338,341, & ! index 3913 - 3924 - 344,345,346,347,349,350,351,353,170,252,284,330, & ! index 3925 - 3936 - 331,332,335,336,337,338,341,344,345,346,347,349, & ! index 3937 - 3948 - 350,351,353, 76,120,245,284,297,317,328,329,330 /) ! index up to 3960 + 322,323,324,325,326,327,328,330,334,335,338,341, & ! index 3601 - 3612 + 342,343,345,348,352,353,355,356, 1, 2, 3, 47, & ! index 3613 - 3624 + 55, 65, 75, 81, 98,107,172,254,287,296,331,336, & ! index 3625 - 3636 + 338,339,341,343,344,345,346,347,348,349,350,353, & ! index 3637 - 3648 + 356, 78,123,248,301,321,332,334,336,337,339,340, & ! index 3649 - 3660 + 341,343,344,345,346,347,348,349,350,351,352,353, & ! index 3661 - 3672 + 354,355, 48, 72, 87,106,144,148,156,162,169,175, & ! index 3673 - 3684 + 177,183,187,188,199,203,205,207,217,220,221,223, & ! index 3685 - 3696 + 225,227,236,246,251,255,257,260,265,269,270,271, & ! index 3697 - 3708 + 272,273,274,275,276,278,279,280,281,282,284,288, & ! index 3709 - 3720 + 289,291,292,294,295,296,298,299,302,303,304,305, & ! index 3721 - 3732 + 306,307,308,309,310,311,312,313,314,315,316,318, & ! index 3733 - 3744 + 321,322,323,324,326,327,328,329,330,331,333,334, & ! index 3745 - 3756 + 335,336,337,338,339,340,341,342,343,344,345,346, & ! index 3757 - 3768 + 347,348,349,350,351,352,353,354,355,356, 55, 83, & ! index 3769 - 3780 + 87, 95,108,143,158,161,167,184,232,237,238,239, & ! index 3781 - 3792 + 243,250,252,253,255,261,262,264,266,275,276,277, & ! index 3793 - 3804 + 278,279,280,281,282,283,284,286,292,293,294,295, & ! index 3805 - 3816 + 297,300,304,308,310,311,312,313,314,315,316,318, & ! index 3817 - 3828 + 319,322,323,324,325,326,327,328,330,334,335,337, & ! index 3829 - 3840 + 338,341,342,343,344,345,348,352,353,355,356, 63, & ! index 3841 - 3852 + 71, 80, 84, 85,103,109,113,115,122,125,127,129, & ! index 3853 - 3864 + 130,133,143,145,149,150,151,152,155,161,170,184, & ! index 3865 - 3876 + 185,189,190,191,194,195,197,201,202,203,204,207, & ! index 3877 - 3888 + 211,213,214,215,216,218,220,223,224,227,228,229, & ! index 3889 - 3900 + 230,231,233,236,242,243,244,245,250,251,256,257, & ! index 3901 - 3912 + 258,259,262,265,269,270,271,272,273,274,279,281, & ! index 3913 - 3924 + 284,288,289,290,291,293,297,298,299,302,303,304, & ! index 3925 - 3936 + 305,306,307,308,309,310,311,312,313,314,315,316, & ! index 3937 - 3948 + 317,318,322,323,324,325,326,327,328,329,330,334 /) ! index up to 3960 INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_11 = (/ & - 331,332,333,334,335,336,337,338,339,340,341,342, & ! index 3961 - 3972 - 343,344,345,346,347,348,349,350,351,352,353, 46, & ! index 3973 - 3984 - 47, 48, 49, 50, 51, 53, 54, 61, 63, 67, 78, 81, & ! index 3985 - 3996 - 84, 85, 86, 87,105,181,228,245,290,297,314,317, & ! index 3997 - 4008 - 324,326,328,329,333,334,335,336,337,338,339,340, & ! index 4009 - 4020 - 341,342,343,344,345,346,347,348,349,350,351,352, & ! index 4021 - 4032 - 353, 56, 57, 59, 64, 65, 67, 70, 80, 83, 90, 91, & ! index 4033 - 4044 - 93, 95, 96,108,113,114,116,121,122,124,125,126, & ! index 4045 - 4056 - 127,132,133,135,137,138,139,140,154,162,163,165, & ! index 4057 - 4068 - 166,168,171,172,175,176,177,178,179,180,182,184, & ! index 4069 - 4080 - 186,189,190,193,196,197,200,203,205,206,207,211, & ! index 4081 - 4092 - 212,213,214,218,220,222,223,224,226,229,230,231, & ! index 4093 - 4104 - 232,233,234,235,236,237,239,240,241,242,243,246, & ! index 4105 - 4116 - 247,248,249,250,251,252,253,254,255,256,257,259, & ! index 4117 - 4128 - 260,261,262,263,266,267,268,269,271,272,273,274, & ! index 4129 - 4140 - 275,276,277,278,279,280,281,284,285,286,289,290, & ! index 4141 - 4152 - 291,293,296,297,299,300,301,302,303,304,305,306, & ! index 4153 - 4164 - 308,309,310,311,312,313,314,315,317,318,319,320, & ! index 4165 - 4176 - 321,322,323,324,326,327,328,329,330,331,332,334, & ! index 4177 - 4188 - 335,336,337,338,339,340,341,342,343,344,345,346, & ! index 4189 - 4200 - 347,348,349,350,351,352,353, 43, 52, 73, 84, 85, & ! index 4201 - 4212 - 86, 87,105,108,116,164,173,181,183,189,196,200, & ! index 4213 - 4224 - 201,214,217,218,220,221,228,239,240,241,244,246, & ! index 4225 - 4236 - 251,252,264,265,269,271,276,279,283,287,289,290, & ! index 4237 - 4248 - 291,292,295,296,297,298,300,301,302,303,304,305, & ! index 4249 - 4260 - 306,307,308,309,310,311,312,313,314,315,316,317, & ! index 4261 - 4272 - 318,319,320,321,322,323,324,325,326,327,328,329, & ! index 4273 - 4284 - 330,331,332,333,334,335,336,337,338,339,340,341, & ! index 4285 - 4296 - 342,343,344,345,346,347,348,349,350,351,352,353, & ! index 4297 - 4308 - 60, 72, 75, 79, 80, 82, 83, 88, 91, 93, 95, 97 /) ! index up to 4320 + 335,337,338,341,342,343,344,345,348,351,352,353, & ! index 3961 - 3972 + 355,356, 47, 58, 98,287,296,331,336,338,339,341, & ! index 3973 - 3984 + 343,344,345,346,347,348,349,350,353,356, 49, 50, & ! index 3985 - 3996 + 51, 52, 53, 54, 56, 57, 64, 66, 70, 79, 82, 88, & ! index 3997 - 4008 + 89, 90, 91,108,184,232,248,293,301,318,321,328, & ! index 4009 - 4020 + 330,332,334,335,336,337,338,339,340,341,342,343, & ! index 4021 - 4032 + 344,345,346,347,348,349,350,351,352,353,354,355, & ! index 4033 - 4044 + 356, 65, 66, 70, 98,124,133,136,137,168,173,174, & ! index 4045 - 4056 + 181,182,185,186,193,200,201,203,208,209,210,215, & ! index 4057 - 4068 + 216,223,226,228,229,231,233,235,236,237,238,239, & ! index 4069 - 4080 + 240,243,244,245,250,252,253,254,257,258,261,262, & ! index 4081 - 4092 + 264,266,270,271,272,273,275,276,277,278,279,280, & ! index 4093 - 4104 + 281,282,283,284,288,289,292,293,294,299,300,301, & ! index 4105 - 4116 + 303,304,305,307,308,309,310,312,313,314,315,316, & ! index 4117 - 4128 + 317,318,319,322,323,324,325,326,327,328,330,331, & ! index 4129 - 4140 + 333,334,335,336,337,338,339,340,341,342,343,344, & ! index 4141 - 4152 + 345,346,347,348,349,350,351,352,353,354,355,356, & ! index 4153 - 4164 + 183,217,254,287,296,301,320,321,331,332,333,334, & ! index 4165 - 4176 + 335,336,337,338,339,340,341,342,343,344,345,346, & ! index 4177 - 4188 + 347,348,349,350,351,352,353,354,355,356, 80, 84, & ! index 4189 - 4200 + 142,144,154,167,169,183,184,187,217,221,232,267, & ! index 4201 - 4212 + 268,272,279,285,286,292,293,294,297,300,301,304, & ! index 4213 - 4224 + 305,306,307,308,309,310,311,312,313,314,315,316, & ! index 4225 - 4236 + 317,318,319,320,321,322,323,324,325,326,327,328, & ! index 4237 - 4248 + 329,330,332,333,334,335,336,337,338,339,340,341, & ! index 4249 - 4260 + 342,343,344,345,346,347,348,349,350,351,352,353, & ! index 4261 - 4272 + 354,355,356, 63, 74, 80, 83, 84, 85, 86, 92, 94, & ! index 4273 - 4284 + 96, 97, 99,100,101,102,103,104,108,110,111,112, & ! index 4285 - 4296 + 114,116,117,121,122,124,126,128,130,131,133,135, & ! index 4297 - 4308 + 136,137,138,139,141,145,147,148,149,150,151,152 /) ! index up to 4320 INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_12 = (/ & - 98, 99,100,101,102,105,106,108,111,112,115,116, & ! index 4321 - 4332 - 118,119,121,123,125,127,128,131,132,133,135,136, & ! index 4333 - 4344 - 137,138,143,144,145,146,147,149,150,151,152,153, & ! index 4345 - 4356 - 155,156,158,161,164,165,168,171,172,174,175,178, & ! index 4357 - 4368 - 180,181,182,185,186,187,188,189,190,192,194,195, & ! index 4369 - 4380 - 196,197,198,199,200,201,202,204,205,206,207,208, & ! index 4381 - 4392 - 209,210,212,213,216,217,219,220,221,222,223,224, & ! index 4393 - 4404 - 225,226,227,228,229,230,231,232,233,234,235,236, & ! index 4405 - 4416 - 238,240,243,246,248,249,250,251,253,254,255,257, & ! index 4417 - 4428 - 258,259,260,261,262,263,264,265,266,267,268,269, & ! index 4429 - 4440 - 270,271,272,273,274,275,276,277,278,279,280,281, & ! index 4441 - 4452 - 282,284,285,286,287,288,289,290,291,293,294,296, & ! index 4453 - 4464 - 298,299,300,301,302,303,304,305,306,307,308,309, & ! index 4465 - 4476 - 310,311,312,313,314,315,318,319,320,321,322,323, & ! index 4477 - 4488 - 324,325,326,328,329,330,331,332,334,335,336,337, & ! index 4489 - 4500 - 338,339,340,341,342,343,344,345,346,347,348,349, & ! index 4501 - 4512 - 350,351,352,353, 46, 47, 48, 49, 50, 51, 61, 76, & ! index 4513 - 4524 - 84, 85, 86, 87,110,120,181,245,284,296,297,315, & ! index 4525 - 4536 - 317,318,319,320,321,322,323,324,326,328,329,330, & ! index 4537 - 4548 - 331,332,333,334,335,336,337,338,339,340,341,342, & ! index 4549 - 4560 - 343,344,345,346,347,348,349,350,351,352,353, 75, & ! index 4561 - 4572 - 79,141,142,156,164,166,179,181,183,214,218,228, & ! index 4573 - 4584 - 264,265,269,276,282,283,289,290,291,295,296,297, & ! index 4585 - 4596 - 300,301,302,303,304,305,306,307,308,309,310,311, & ! index 4597 - 4608 - 312,313,314,315,316,317,318,319,320,321,322,323, & ! index 4609 - 4620 - 324,325,326,327,328,329,332,333,334,335,336,337, & ! index 4621 - 4632 - 338,339,340,341,342,343,344,345,346,347,348,349, & ! index 4633 - 4644 - 350,351,352,353, 3, 43, 46, 47, 48, 49, 50, 51, & ! index 4645 - 4656 - 61, 75, 76, 79, 84, 85, 86, 87,104,110,141,142, & ! index 4657 - 4668 - 156,157,164,181,183,218,228,245,252,264,265,269 /) ! index up to 4680 + 154,155,157,158,159,162,164,167,168,173,174,175, & ! index 4321 - 4332 + 177,178,181,182,184,185,186,188,190,191,192,193, & ! index 4333 - 4344 + 195,197,198,199,200,201,202,203,204,205,207,208, & ! index 4345 - 4356 + 209,210,211,213,214,215,216,219,220,222,223,224, & ! index 4357 - 4368 + 225,226,227,228,229,230,231,232,233,234,235,236, & ! index 4369 - 4380 + 237,238,239,242,243,245,250,251,252,253,255,256, & ! index 4381 - 4392 + 257,258,259,261,262,263,264,265,266,267,268,269, & ! index 4393 - 4404 + 270,271,272,273,274,275,276,277,278,279,280,281, & ! index 4405 - 4416 + 282,283,284,285,288,289,290,291,292,293,294,298, & ! index 4417 - 4428 + 299,300,302,303,304,305,306,307,308,309,310,311, & ! index 4429 - 4440 + 312,313,314,315,316,317,318,319,322,323,324,325, & ! index 4441 - 4452 + 326,327,328,329,330,331,334,335,336,337,338,339, & ! index 4453 - 4464 + 340,341,342,343,344,345,346,347,348,349,350,351, & ! index 4465 - 4476 + 352,353,354,355,356, 2, 56, 57, 62, 64, 79, 81, & ! index 4477 - 4488 + 82,108,142,153,160,187,221,254,287,293,296,297, & ! index 4489 - 4500 + 301,304,318,320,321,322,323,324,327,328,329,330, & ! index 4501 - 4512 + 331,332,334,335,336,337,338,339,340,341,342,343, & ! index 4513 - 4524 + 344,345,346,347,348,349,350,351,352,353,354,355, & ! index 4525 - 4536 + 356, 44, 46, 55, 61, 63, 69, 71, 72, 73, 74, 75, & ! index 4537 - 4548 + 76, 77, 78, 79, 80, 82, 84, 85, 86, 87, 88, 89, & ! index 4549 - 4560 + 90, 91, 92, 93, 94, 95, 96, 97, 99,100,101,102, & ! index 4561 - 4572 + 103,104,105,108,109,110,111,112,113,115,116,117, & ! index 4573 - 4584 + 118,120,121,122,123,125,126,127,128,129,130,131, & ! index 4585 - 4596 + 132,134,135,136,137,138,139,140,141,142,143,144, & ! index 4597 - 4608 + 145,146,148,149,150,151,152,153,154,155,156,157, & ! index 4609 - 4620 + 158,159,161,162,163,164,165,166,167,170,171,172, & ! index 4621 - 4632 + 173,174,175,176,177,178,179,180,181,182,183,184, & ! index 4633 - 4644 + 185,186,187,188,189,190,191,192,193,194,195,196, & ! index 4645 - 4656 + 197,198,199,200,201,202,203,204,205,207,208,209, & ! index 4657 - 4668 + 210,211,212,213,214,215,216,219,220,221,222,223 /) ! index up to 4680 INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_13 = (/ & - 276,282,283,284,289,290,291,295,296,297,300,301, & ! index 4681 - 4692 - 302,303,304,305,306,307,308,309,310,311,312,313, & ! index 4693 - 4704 - 314,315,316,317,318,319,320,321,322,323,324,325, & ! index 4705 - 4716 - 326,328,329,330,331,332,333,334,335,336,337,338, & ! index 4717 - 4728 - 339,340,341,342,343,344,345,346,347,348,349,350, & ! index 4729 - 4740 - 351,352,353,109,140,166,167,179,191,193,201,202, & ! index 4741 - 4752 - 203,211,213,217,219,220,221,228,229,233,235,236, & ! index 4753 - 4764 - 237,240,242,246,255,257,259,262,269,274,275,276, & ! index 4765 - 4776 - 277,280,281,289,290,291,306,308,309,310,311,312, & ! index 4777 - 4788 - 314,320,322,323,324,325,326,327,328,329,331,332, & ! index 4789 - 4800 - 334,335,336,337,338,339,340,341,342,343,344,345, & ! index 4801 - 4812 - 346,347,348,349,350,351,352,353, 2, 53, 54, 59, & ! index 4813 - 4824 - 61, 77, 78, 81,105,141,148,157,183,218,252,284, & ! index 4825 - 4836 - 290,295,297,300,314,316,317,318,319,320,323,324, & ! index 4837 - 4848 - 325,326,328,329,330,331,332,333,334,335,336,337, & ! index 4849 - 4860 - 338,339,340,341,342,343,344,345,346,347,348,349, & ! index 4861 - 4872 - 350,351,352,353, 46, 47, 48, 49, 50, 51, 53, 54, & ! index 4873 - 4884 - 61, 67, 68, 78, 81, 84, 85, 86, 87,120,181,217, & ! index 4885 - 4896 - 228,245,264,276,284,290,297,312,314,316,317,324, & ! index 4897 - 4908 - 325,326,328,329,330,331,332,333,334,335,336,337, & ! index 4909 - 4920 - 338,339,340,341,342,343,344,345,346,347,348,349, & ! index 4921 - 4932 - 350,351,352,353,166,214,252,297,316,317,327,328, & ! index 4933 - 4944 - 329,330,331,332,333,334,335,336,337,338,339,340, & ! index 4945 - 4956 - 341,342,343,344,345,346,347,348,349,350,351,352, & ! index 4957 - 4968 - 353, 41, 43, 52, 58, 60, 66, 68, 69, 70, 71, 72, & ! index 4969 - 4980 - 73, 74, 75, 76, 78, 79, 81, 82, 83, 84, 85, 86, & ! index 4981 - 4992 - 87, 88, 89, 90, 91, 92, 93, 94, 95, 97, 98, 99, & ! index 4993 - 5004 - 100,101,102,105,107,108,109,111,112,113,114,115, & ! index 5005 - 5016 - 116,117,118,119,120,122,123,124,125,126,127,128, & ! index 5017 - 5028 - 129,130,131,133,134,135,136,137,138,139,140,141 /) ! index up to 5040 + 224,225,226,227,228,229,231,232,233,234,235,236, & ! index 4681 - 4692 + 237,238,239,240,241,242,243,244,245,246,247,248, & ! index 4693 - 4704 + 249,250,251,252,253,254,255,256,257,258,259,260, & ! index 4705 - 4716 + 261,262,263,264,265,266,267,268,269,270,271,272, & ! index 4717 - 4728 + 273,274,275,276,277,278,279,280,281,282,283,284, & ! index 4729 - 4740 + 285,286,287,288,289,290,291,292,293,294,295,296, & ! index 4741 - 4752 + 297,298,299,300,301,302,303,304,305,306,307,308, & ! index 4753 - 4764 + 309,310,311,312,313,314,315,316,317,318,319,320, & ! index 4765 - 4776 + 321,322,323,324,325,326,327,328,329,330,331,332, & ! index 4777 - 4788 + 333,334,335,336,337,338,339,340,341,342,343,344, & ! index 4789 - 4800 + 345,346,347,348,349,350,351,352,353,354,355,356, & ! index 4801 - 4812 + 49, 50, 51, 52, 53, 54, 64, 78, 88, 89, 90, 91, & ! index 4813 - 4824 + 119,123,184,248,300,301,319,321,322,323,324,325, & ! index 4825 - 4836 + 326,327,328,330,332,334,335,336,337,338,339,340, & ! index 4837 - 4848 + 341,342,343,344,345,346,347,348,349,350,351,352, & ! index 4849 - 4860 + 353,354,355,356, 59, 60, 62, 67, 68, 70, 73, 83, & ! index 4861 - 4872 + 86, 94, 96, 97, 98,105,110,113,115,117,124,125, & ! index 4873 - 4884 + 127,128,129,130,133,136,137,139,140,141,143,156, & ! index 4885 - 4896 + 165,166,168,169,173,174,175,177,179,180,181,182, & ! index 4897 - 4908 + 183,185,186,188,189,193,196,200,201,203,206,208, & ! index 4909 - 4920 + 209,210,212,215,216,217,221,223,225,226,228,229, & ! index 4921 - 4932 + 231,233,234,235,236,237,238,239,240,241,243,244, & ! index 4933 - 4944 + 245,246,249,250,251,252,253,254,255,256,257,258, & ! index 4945 - 4956 + 260,261,262,263,264,265,266,269,270,271,272,273, & ! index 4957 - 4968 + 275,276,277,278,279,280,281,282,283,284,288,289, & ! index 4969 - 4980 + 292,293,294,296,299,300,301,303,304,305,306,307, & ! index 4981 - 4992 + 308,309,310,312,313,314,315,316,317,318,319,321, & ! index 4993 - 5004 + 322,323,324,325,326,327,328,330,331,333,334,335, & ! index 5005 - 5016 + 336,337,338,339,340,341,342,343,344,345,346,347, & ! index 5017 - 5028 + 348,349,350,351,352,353,354,355,356,169,217,254 /) ! index up to 5040 INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_14 = (/ & - 142,143,144,146,147,148,149,150,151,152,153,154, & ! index 5041 - 5052 - 155,156,158,159,160,161,162,163,164,167,168,169, & ! index 5053 - 5064 - 170,171,172,173,174,175,176,177,178,179,180,181, & ! index 5065 - 5076 - 182,183,184,185,186,187,188,189,190,191,192,193, & ! index 5077 - 5088 - 194,195,196,197,198,199,200,201,202,204,205,206, & ! index 5089 - 5100 - 207,208,209,210,211,212,213,216,217,218,219,220, & ! index 5101 - 5112 - 221,222,223,224,225,226,228,229,230,231,232,233, & ! index 5113 - 5124 - 234,235,236,237,238,239,240,241,242,243,244,245, & ! index 5125 - 5136 - 246,247,248,249,250,251,252,253,254,255,256,257, & ! index 5137 - 5148 - 258,259,260,261,262,263,264,265,266,267,268,269, & ! index 5149 - 5160 - 270,271,272,273,274,275,276,277,278,279,280,281, & ! index 5161 - 5172 - 282,283,284,285,286,287,288,289,290,291,292,293, & ! index 5173 - 5184 - 294,295,296,297,298,299,300,301,302,303,304,305, & ! index 5185 - 5196 - 306,307,308,309,310,311,312,313,314,315,316,317, & ! index 5197 - 5208 - 318,319,320,321,322,323,324,325,326,327,328,329, & ! index 5209 - 5220 - 330,331,332,333,334,335,336,337,338,339,340,341, & ! index 5221 - 5232 - 342,343,344,345,346,347,348,349,350,351,352,353, & ! index 5233 - 5244 - 62, 63, 67, 96,121,132,133,135,165,171,172,178, & ! index 5245 - 5256 - 180,182,189,190,196,197,200,205,206,207,212,213, & ! index 5257 - 5268 - 220,223,224,226,230,231,232,233,234,235,236,239, & ! index 5269 - 5280 - 240,241,243,246,249,250,252,253,254,257,259,260, & ! index 5281 - 5292 - 263,267,268,269,271,272,273,274,275,276,277,278, & ! index 5293 - 5304 - 279,280,281,284,285,286,289,290,291,293,296,297, & ! index 5305 - 5316 - 299,300,301,303,304,305,306,308,309,310,311,312, & ! index 5317 - 5328 - 313,314,315,318,319,320,321,322,323,324,326,327, & ! index 5329 - 5340 - 328,329,330,331,332,334,335,336,337,338,339,340, & ! index 5341 - 5352 - 341,342,343,344,345,346,347,348,349,350,351,352, & ! index 5353 - 5364 - 353, 53, 54, 61, 78, 81,105,218,284,316,330,331, & ! index 5365 - 5376 - 332,334,335,336,337,338,339,340,341,342,343,344, & ! index 5377 - 5388 - 345,346,347,348,349,350,351,352,353, 68, 89, 94 /) ! index up to 5400 - INTEGER, PARAMETER, DIMENSION(283) :: LU_ICOL_15 = (/ & - 134,166,179,241,264,276,290,312,314,316,324,325, & ! index 5401 - 5412 - 326,327,328,329,332,333,334,335,336,337,338,339, & ! index 5413 - 5424 - 340,341,342,343,344,345,346,347,348,349,350,351, & ! index 5425 - 5436 - 352,353,252,297,316,317,330,331,332,335,336,337, & ! index 5437 - 5448 - 338,339,340,341,342,343,344,345,346,347,348,349, & ! index 5449 - 5460 - 350,351,352,353,252,297,316,317,330,331,332,335, & ! index 5461 - 5472 - 336,337,338,339,340,341,342,343,344,345,346,347, & ! index 5473 - 5484 - 348,349,350,351,352,353, 69, 80, 94,108,124,126, & ! index 5485 - 5496 - 139,140,142,149,154,158,163,167,170,183,184,191, & ! index 5497 - 5508 - 193,195,197,200,202,204,211,213,214,218,219,220, & ! index 5509 - 5520 - 225,229,233,234,236,237,241,242,246,252,255,256, & ! index 5521 - 5532 - 257,259,261,262,263,267,269,270,271,272,273,274, & ! index 5533 - 5544 - 275,276,277,278,280,281,285,286,288,289,290,291, & ! index 5545 - 5556 - 292,293,294,298,299,300,301,302,303,304,305,306, & ! index 5557 - 5568 - 307,308,309,310,311,312,313,314,317,318,319,320, & ! index 5569 - 5580 - 321,322,323,324,325,326,327,328,329,331,332,334, & ! index 5581 - 5592 - 335,336,337,338,339,340,341,342,343,344,345,346, & ! index 5593 - 5604 - 347,348,349,350,351,352,353,141,183,290,295,297, & ! index 5605 - 5616 - 300,314,316,317,318,319,320,323,324,325,326,328, & ! index 5617 - 5628 - 329,333,334,335,336,337,338,339,340,341,342,343, & ! index 5629 - 5640 - 344,345,346,347,348,349,350,351,352,353,179,214, & ! index 5641 - 5652 - 252,297,316,317,327,328,329,330,331,332,333,334, & ! index 5653 - 5664 - 335,336,337,338,339,340,341,342,343,344,345,346, & ! index 5665 - 5676 - 347,348,349,350,351,352,353 /) ! index up to 5683 - INTEGER, PARAMETER, DIMENSION(5683) :: LU_ICOL = (/& + 287,296,301,320,321,331,332,333,334,335,336,337, & ! index 5041 - 5052 + 338,339,340,341,342,343,344,345,346,347,348,349, & ! index 5053 - 5064 + 350,351,352,353,354,355,356, 56, 57, 64, 79, 82, & ! index 5065 - 5076 + 108,221,320,331,336,337,338,339,340,341,342,343, & ! index 5077 - 5088 + 344,345,346,347,348,349,350,351,352,353,354,355, & ! index 5089 - 5100 + 356, 72, 83, 87,110,127,129,140,143,144,148,156, & ! index 5101 - 5112 + 162,166,170,172,187,189,194,196,199,201,203,205, & ! index 5113 - 5124 + 207,212,216,217,221,222,223,227,229,234,238,239, & ! index 5125 - 5136 + 241,244,246,250,254,256,260,261,262,263,265,266, & ! index 5137 - 5148 + 270,272,273,274,275,276,277,278,279,280,281,282, & ! index 5149 - 5160 + 284,288,289,291,292,293,294,295,296,298,299,302, & ! index 5161 - 5172 + 303,304,305,306,307,308,309,310,311,312,313,314, & ! index 5173 - 5184 + 315,316,317,318,321,322,323,324,325,326,327,328, & ! index 5185 - 5196 + 329,330,331,333,334,335,336,337,338,339,340,341, & ! index 5197 - 5208 + 342,343,344,345,346,347,348,349,350,351,352,353, & ! index 5209 - 5220 + 354,355,356,254,287,296,301,320,321,331,336,338, & ! index 5221 - 5232 + 339,340,341,342,343,344,345,346,347,348,349,350, & ! index 5233 - 5244 + 351,352,353,354,355,356,254,287,296,301,320,321, & ! index 5245 - 5256 + 331,336,338,339,340,341,342,343,344,345,346,347, & ! index 5257 - 5268 + 348,349,350,351,352,353,354,355,356, 49, 50, 51, & ! index 5269 - 5280 + 52, 53, 54, 56, 57, 64, 70, 71, 79, 82, 88, 89, & ! index 5281 - 5292 + 90, 91,123,184,219,232,248,267,279,293,301,317, & ! index 5293 - 5304 + 318,320,321,328,329,330,332,334,335,336,337,338, & ! index 5305 - 5316 + 339,340,341,342,343,344,345,346,347,348,349,350, & ! index 5317 - 5328 + 351,352,353,354,355,356, 3, 46, 49, 50, 51, 52, & ! index 5329 - 5340 + 53, 54, 64, 78, 80, 84, 88, 89, 90, 91,107,119, & ! index 5341 - 5352 + 142,144,154,160,167,184,187,221,232,248,254,267, & ! index 5353 - 5364 + 268,272,279,285,286,287,292,293,294,296,297,300, & ! index 5365 - 5376 + 301,304,305,306,307,308,309,310,311,312,313,314, & ! index 5377 - 5388 + 315,316,317,318,319,320,321,322,323,324,325,326 /) ! index up to 5400 + INTEGER, PARAMETER, DIMENSION(291) :: LU_ICOL_15 = (/ & + 327,328,329,330,331,332,334,335,336,337,338,339, & ! index 5401 - 5412 + 340,341,342,343,344,345,346,347,348,349,350,351, & ! index 5413 - 5424 + 352,353,354,355,356, 46, 55, 75, 88, 89, 90, 91, & ! index 5425 - 5436 + 108,110,117,167,176,184,187,193,200,203,204,217, & ! index 5437 - 5448 + 219,221,223,224,232,240,243,244,247,250,254,255, & ! index 5449 - 5460 + 267,268,272,273,279,283,286,287,290,292,293,294, & ! index 5461 - 5472 + 295,296,297,300,301,302,304,305,306,307,308,309, & ! index 5473 - 5484 + 310,311,312,313,314,315,316,317,318,319,320,321, & ! index 5485 - 5496 + 322,323,324,325,326,327,328,329,330,331,332,333, & ! index 5497 - 5508 + 334,335,336,337,338,339,340,341,342,343,344,345, & ! index 5509 - 5520 + 346,347,348,349,350,351,352,353,354,355,356,142, & ! index 5521 - 5532 + 187,293,297,301,304,318,320,321,322,323,324,327, & ! index 5533 - 5544 + 328,329,330,332,334,335,336,337,338,339,340,341, & ! index 5545 - 5556 + 342,343,344,345,346,347,348,349,350,351,352,353, & ! index 5557 - 5568 + 354,355,356, 71, 87, 93,146,169,183,244,267,279, & ! index 5569 - 5580 + 293,317,318,320,328,329,330,332,333,334,335,336, & ! index 5581 - 5592 + 337,338,339,340,341,342,343,344,345,346,347,348, & ! index 5593 - 5604 + 349,350,351,352,353,354,355,356,120,140,169,170, & ! index 5605 - 5616 + 183,194,196,204,205,206,212,216,219,222,223,224, & ! index 5617 - 5628 + 229,232,234,237,238,241,243,246,250,256,261,262, & ! index 5629 - 5640 + 263,272,277,278,279,280,281,284,292,293,294,309, & ! index 5641 - 5652 + 310,312,313,314,315,317,318,324,325,326,327,328, & ! index 5653 - 5664 + 329,330,331,333,334,335,336,337,338,339,340,341, & ! index 5665 - 5676 + 342,343,344,345,346,347,348,349,350,351,352,353, & ! index 5677 - 5688 + 354,355,356 /) ! index up to 5691 + INTEGER, PARAMETER, DIMENSION(5691) :: LU_ICOL = (/& LU_ICOL_0, LU_ICOL_1, LU_ICOL_2, LU_ICOL_3, LU_ICOL_4, & LU_ICOL_5, LU_ICOL_6, LU_ICOL_7, LU_ICOL_8, LU_ICOL_9, & LU_ICOL_10, LU_ICOL_11, LU_ICOL_12, LU_ICOL_13, LU_ICOL_14, & LU_ICOL_15 /) - INTEGER, PARAMETER, DIMENSION(354) :: LU_CROW = (/ & + INTEGER, PARAMETER, DIMENSION(357) :: LU_CROW = (/ & 1, 2, 3, 4, 9, 11, 14, 83, 86, 94,102,105, & ! index 1 - 12 108,113,116,119,122,125,130,132,135,138,143,145, & ! index 13 - 24 - 151,154,157,162,165,169,173,179,184,188,306,432, & ! index 25 - 36 - 521,526,537,542,551,553,555,557,559,563,565,567, & ! index 37 - 48 - 569,571,573,575,577,579,581,584,587,590,593,596, & ! index 49 - 60 - 598,600,603,607,611,615,620,623,626,629,633,637, & ! index 61 - 72 - 641,645,649,652,655,661,664,667,670,673,675,679, & ! index 73 - 84 - 682,685,688,691,695,699,703,707,711,715,718,722, & ! index 85 - 96 - 729,733,737,741,745,747,751,765,773,776,782,786, & ! index 97 - 108 - 790,794,801,805,809,813,817,823,827,834,839,844, & ! index 109 - 120 - 849,855,859,863,867,871,875,879,885,897,902,908, & ! index 121 - 132 - 913,918,930,935,940,944,948,952,956,960,964,968, & ! index 133 - 144 - 973,982,988,992,1001,1004,1009,1015,1021,1027,1033,1039, & ! index 145 - 156 - 1045,1059,1066,1070,1075,1080,1086,1094,1099,1104,1109,1113, & ! index 157 - 168 - 1117,1123,1131,1137,1143,1155,1161,1165,1171,1180,1187,1192, & ! index 169 - 180 - 1197,1201,1207,1212,1217,1226,1230,1234,1247,1255,1261,1265, & ! index 181 - 192 - 1269,1275,1281,1287,1294,1301,1308,1312,1315,1324,1332,1348, & ! index 193 - 204 - 1361,1367,1372,1377,1389,1393,1404,1410,1417,1425,1432,1457, & ! index 205 - 216 - 1469,1481,1487,1491,1495,1508,1514,1521,1528,1540,1546,1563, & ! index 217 - 228 - 1570,1576,1582,1588,1596,1604,1615,1627,1641,1650,1661,1682, & ! index 229 - 240 - 1691,1699,1711,1723,1739,1753,1760,1782,1797,1804,1813,1820, & ! index 241 - 252 - 1827,1838,1849,1859,1881,1895,1910,1920,1930,1947,1959,1993, & ! index 253 - 264 - 2009,2041,2060,2066,2073,2089,2134,2142,2153,2166,2189,2200, & ! index 265 - 276 - 2205,2216,2231,2240,2256,2267,2305,2340,2354,2374,2394,2428, & ! index 277 - 288 - 2461,2474,2481,2490,2520,2534,2597,2629,2652,2664,2717,2739, & ! index 289 - 300 - 2751,2768,2796,2822,2836,2850,2908,2971,2991,3014,3026,3038, & ! index 301 - 312 - 3064,3092,3121,3146,3164,3177,3190,3217,3232,3256,3288,3312, & ! index 313 - 324 - 3400,3544,3586,3689,3762,3885,3904,3933,3952,3984,4034,4208, & ! index 325 - 336 - 4309,4517,4572,4649,4744,4821,4877,4937,4970,5245,5366,5398, & ! index 337 - 348 - 5439,5465,5491,5612,5651,5684 /) ! index up to 354 + 151,154,157,162,165,169,173,179,184,190,198,201, & ! index 25 - 36 + 203,321,447,536,541,553,558,567,569,571,573,575, & ! index 37 - 48 + 579,581,583,585,587,589,591,593,595,597,600,603, & ! index 49 - 60 + 606,609,612,614,616,619,623,627,631,636,639,642, & ! index 61 - 72 + 645,649,653,657,661,665,668,671,674,680,683,686, & ! index 73 - 84 + 689,691,695,698,701,704,707,710,714,718,722,726, & ! index 85 - 96 + 730,734,741,745,749,753,757,759,763,767,781,789, & ! index 97 - 108 + 792,796,800,804,808,812,818,822,828,832,839,846, & ! index 109 - 120 + 850,855,860,865,871,875,879,883,887,891,895,901, & ! index 121 - 132 + 913,918,923,929,934,939,944,948,952,956,960,964, & ! index 133 - 144 + 968,972,985,994,997,1001,1006,1011,1017,1026,1032,1038, & ! index 145 - 156 + 1044,1050,1056,1062,1076,1080,1087,1092,1097,1103,1111,1116, & ! index 157 - 168 + 1121,1126,1130,1136,1144,1150,1156,1160,1172,1176,1182,1188, & ! index 169 - 180 + 1197,1202,1209,1214,1218,1224,1230,1235,1239,1244,1253,1257, & ! index 181 - 192 + 1270,1278,1282,1286,1292,1298,1305,1311,1318,1325,1329,1332, & ! index 193 - 204 + 1341,1349,1365,1378,1383,1388,1394,1406,1412,1416,1427,1434, & ! index 205 - 216 + 1442,1449,1474,1486,1498,1504,1508,1512,1525,1531,1538,1550, & ! index 217 - 228 + 1557,1565,1582,1588,1595,1601,1607,1615,1621,1633,1647,1658, & ! index 229 - 240 + 1679,1688,1699,1708,1716,1728,1740,1756,1770,1792,1799,1814, & ! index 241 - 252 + 1821,1830,1837,1844,1854,1865,1876,1891,1913,1927,1937,1949, & ! index 253 - 264 + 1959,1976,2010,2026,2058,2077,2083,2090,2106,2114,2159,2172, & ! index 265 - 276 + 2183,2206,2217,2222,2238,2249,2264,2273,2284,2322,2357,2373, & ! index 277 - 288 + 2393,2413,2447,2480,2493,2500,2509,2539,2553,2585,2648,2662, & ! index 289 - 300 + 2685,2697,2750,2772,2784,2801,2829,2855,2867,2925,2937,3000, & ! index 301 - 312 + 3020,3043,3058,3073,3101,3127,3156,3181,3199,3212,3225,3252, & ! index 313 - 324 + 3267,3299,3323,3347,3435,3579,3621,3650,3675,3779,3852,3975, & ! index 325 - 336 + 3995,4046,4165,4199,4276,4482,4538,4813,4865,5038,5072,5102, & ! index 337 - 348 + 5224,5251,5278,5335,5430,5532,5572,5613,5692 /) ! index up to 357 - INTEGER, PARAMETER, DIMENSION(354) :: LU_DIAG = (/ & + INTEGER, PARAMETER, DIMENSION(357) :: LU_DIAG = (/ & 1, 2, 3, 4, 9, 11, 14, 83, 86, 94,102,105, & ! index 1 - 12 108,113,116,119,122,125,130,132,135,138,143,145, & ! index 13 - 24 - 151,154,157,162,165,169,173,179,184,188,306,432, & ! index 25 - 36 - 521,526,537,542,551,553,555,557,559,563,565,567, & ! index 37 - 48 - 569,571,573,575,577,579,581,584,587,590,593,596, & ! index 49 - 60 - 598,600,603,607,611,615,620,623,626,629,633,637, & ! index 61 - 72 - 641,645,649,652,655,661,664,667,670,673,675,679, & ! index 73 - 84 - 682,685,688,691,695,699,703,707,711,715,718,725, & ! index 85 - 96 - 729,733,737,741,745,747,751,765,773,776,782,786, & ! index 97 - 108 - 790,795,801,805,809,813,817,823,828,834,839,844, & ! index 109 - 120 - 850,855,859,863,867,871,875,879,886,897,902,908, & ! index 121 - 132 - 913,919,930,935,940,944,948,952,956,960,964,968, & ! index 133 - 144 - 973,983,988,992,1001,1004,1009,1015,1021,1027,1033,1039, & ! index 145 - 156 - 1045,1062,1066,1070,1075,1081,1086,1094,1099,1104,1109,1113, & ! index 157 - 168 - 1117,1124,1131,1137,1144,1155,1161,1166,1171,1182,1187,1192, & ! index 169 - 180 - 1197,1201,1207,1212,1219,1226,1230,1234,1248,1256,1261,1265, & ! index 181 - 192 - 1269,1275,1282,1289,1295,1302,1308,1312,1320,1327,1337,1354, & ! index 193 - 204 - 1362,1367,1372,1379,1389,1394,1404,1411,1418,1425,1444,1458, & ! index 205 - 216 - 1470,1481,1487,1491,1503,1508,1516,1523,1531,1541,1550,1563, & ! index 217 - 228 - 1570,1577,1583,1590,1598,1607,1619,1633,1641,1652,1665,1685, & ! index 229 - 240 - 1691,1700,1715,1726,1740,1754,1766,1785,1797,1805,1813,1820, & ! index 241 - 252 - 1829,1840,1850,1865,1885,1900,1912,1921,1934,1950,1980,1994, & ! index 253 - 264 - 2020,2047,2060,2066,2081,2113,2135,2144,2157,2178,2192,2200, & ! index 265 - 276 - 2208,2222,2232,2246,2259,2279,2314,2343,2364,2385,2412,2445, & ! index 277 - 288 - 2465,2474,2482,2507,2523,2572,2613,2639,2653,2699,2727,2742, & ! index 289 - 300 - 2756,2780,2811,2826,2841,2894,2954,2978,3003,3016,3029,3049, & ! index 301 - 312 - 3077,3112,3129,3148,3164,3179,3206,3222,3243,3276,3301,3389, & ! index 313 - 324 - 3527,3573,3665,3748,3871,3888,3918,3938,3963,4014,4189,4291, & ! index 325 - 336 - 4500,4556,4634,4730,4808,4865,4926,4960,5236,5358,5391,5433, & ! index 337 - 348 - 5460,5487,5609,5649,5683,5684 /) ! index up to 354 + 151,154,157,162,165,169,173,179,184,190,198,201, & ! index 25 - 36 + 203,321,447,536,541,553,558,567,569,571,573,575, & ! index 37 - 48 + 579,581,583,585,587,589,591,593,595,597,600,603, & ! index 49 - 60 + 606,609,612,614,616,619,623,627,631,636,639,642, & ! index 61 - 72 + 645,649,653,657,661,665,668,671,674,680,683,686, & ! index 73 - 84 + 689,691,695,698,701,704,707,710,714,718,722,726, & ! index 85 - 96 + 730,737,741,745,749,753,757,759,763,767,781,789, & ! index 97 - 108 + 792,796,800,804,808,812,818,822,828,833,840,846, & ! index 109 - 120 + 850,855,860,866,871,875,879,883,887,891,895,902, & ! index 121 - 132 + 913,918,923,929,934,939,944,948,952,956,960,964, & ! index 133 - 144 + 968,973,985,994,997,1001,1006,1012,1017,1026,1032,1038, & ! index 145 - 156 + 1044,1050,1056,1062,1076,1083,1087,1092,1098,1103,1111,1116, & ! index 157 - 168 + 1121,1126,1130,1137,1144,1150,1156,1161,1172,1176,1183,1188, & ! index 169 - 180 + 1197,1204,1209,1214,1218,1225,1230,1235,1239,1246,1253,1257, & ! index 181 - 192 + 1271,1278,1282,1286,1292,1299,1306,1313,1319,1325,1329,1337, & ! index 193 - 204 + 1344,1354,1371,1378,1383,1389,1396,1406,1412,1417,1428,1435, & ! index 205 - 216 + 1442,1461,1475,1487,1498,1504,1508,1520,1525,1533,1541,1552, & ! index 217 - 228 + 1559,1569,1583,1588,1596,1601,1609,1616,1625,1639,1650,1662, & ! index 229 - 240 + 1679,1690,1702,1708,1720,1729,1743,1757,1776,1793,1802,1814, & ! index 241 - 252 + 1822,1830,1837,1845,1856,1867,1881,1897,1917,1929,1940,1950, & ! index 253 - 264 + 1963,1997,2011,2037,2064,2077,2083,2098,2107,2139,2163,2175, & ! index 265 - 276 + 2195,2208,2217,2228,2241,2255,2265,2276,2296,2331,2359,2383, & ! index 277 - 288 + 2404,2431,2464,2484,2493,2501,2526,2541,2569,2622,2651,2672, & ! index 289 - 300 + 2686,2732,2760,2775,2789,2813,2844,2857,2910,2928,2983,3007, & ! index 301 - 312 + 3032,3048,3064,3086,3112,3147,3164,3183,3199,3214,3241,3257, & ! index 313 - 324 + 3286,3311,3336,3424,3562,3608,3635,3655,3755,3838,3961,3981, & ! index 325 - 336 + 4026,4146,4181,4259,4466,4523,4799,4852,5026,5061,5092,5215, & ! index 337 - 348 + 5243,5271,5329,5425,5528,5569,5611,5691,5692 /) ! index up to 357 END MODULE gckpp_JacobianSP diff --git a/KPP/fullchem/gckpp_LinearAlgebra.F90 b/KPP/fullchem/gckpp_LinearAlgebra.F90 index b2eda36a3..3af978073 100644 --- a/KPP/fullchem/gckpp_LinearAlgebra.F90 +++ b/KPP/fullchem/gckpp_LinearAlgebra.F90 @@ -2,7 +2,7 @@ ! ! Linear Algebra Data and Routines File ! -! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor +! Generated by KPP-3.3.0 symbolic chemistry Kinetics PreProcessor ! (https:/github.com/KineticPreProcessor/KPP ! KPP is distributed under GPL, the general public licence ! (http://www.gnu.org/copyleft/gpl.html) @@ -648,1657 +648,1664 @@ SUBROUTINE KppSolve ( JVS, X ) ! X - Vector for variables REAL(kind=dp) :: X(NVAR) -IF (DO_SLV(96)) & - X(96) = X(96)-JVS(722)*X(42)-JVS(723)*X(44)-JVS(724)*X(55) -IF (DO_SLV(110)) & - X(110) = X(110)-JVS(794)*X(76) -IF (DO_SLV(117)) & - X(117) = X(117)-JVS(827)*X(90) -IF (DO_SLV(121)) & - X(121) = X(121)-JVS(849)*X(58) -IF (DO_SLV(129)) & - X(129) = X(129)-JVS(885)*X(112) -IF (DO_SLV(134)) & - X(134) = X(134)-JVS(918)*X(89) +IF (DO_SLV(98)) & + X(98) = X(98)-JVS(734)*X(45)-JVS(735)*X(47)-JVS(736)*X(58) +IF (DO_SLV(118)) & + X(118) = X(118)-JVS(832)*X(105) +IF (DO_SLV(119)) & + X(119) = X(119)-JVS(839)*X(78) +IF (DO_SLV(124)) & + X(124) = X(124)-JVS(865)*X(61) +IF (DO_SLV(132)) & + X(132) = X(132)-JVS(901)*X(112) IF (DO_SLV(146)) & - X(146) = X(146)-JVS(982)*X(121) -IF (DO_SLV(158)) & - X(158) = X(158)-JVS(1059)*X(82)-JVS(1060)*X(101)-JVS(1061)*X(149) + X(146) = X(146)-JVS(972)*X(93) +IF (DO_SLV(152)) & + X(152) = X(152)-JVS(1011)*X(124) IF (DO_SLV(162)) & - X(162) = X(162)-JVS(1080)*X(138) -IF (DO_SLV(170)) & - X(170) = X(170)-JVS(1123)*X(62) -IF (DO_SLV(173)) & - X(173) = X(173)-JVS(1143)*X(101) + X(162) = X(162)-JVS(1080)*X(85)-JVS(1081)*X(103)-JVS(1082)*X(148) +IF (DO_SLV(165)) & + X(165) = X(165)-JVS(1097)*X(141) +IF (DO_SLV(172)) & + X(172) = X(172)-JVS(1136)*X(65) IF (DO_SLV(176)) & - X(176) = X(176)-JVS(1165)*X(137) -IF (DO_SLV(178)) & - X(178) = X(178)-JVS(1180)*X(69)-JVS(1181)*X(98) -IF (DO_SLV(185)) & - X(185) = X(185)-JVS(1217)*X(119)-JVS(1218)*X(147) -IF (DO_SLV(189)) & - X(189) = X(189)-JVS(1247)*X(149) + X(176) = X(176)-JVS(1160)*X(103) +IF (DO_SLV(179)) & + X(179) = X(179)-JVS(1182)*X(139) +IF (DO_SLV(182)) & + X(182) = X(182)-JVS(1202)*X(72)-JVS(1203)*X(100) +IF (DO_SLV(186)) & + X(186) = X(186)-JVS(1224)*X(177) IF (DO_SLV(190)) & - X(190) = X(190)-JVS(1255)*X(168) -IF (DO_SLV(195)) & - X(195) = X(195)-JVS(1281)*X(143) -IF (DO_SLV(196)) & - X(196) = X(196)-JVS(1287)*X(165)-JVS(1288)*X(178) -IF (DO_SLV(197)) & - X(197) = X(197)-JVS(1294)*X(126) + X(190) = X(190)-JVS(1244)*X(122)-JVS(1245)*X(149) +IF (DO_SLV(193)) & + X(193) = X(193)-JVS(1270)*X(148) IF (DO_SLV(198)) & - X(198) = X(198)-JVS(1301)*X(174) + X(198) = X(198)-JVS(1298)*X(178) +IF (DO_SLV(199)) & + X(199) = X(199)-JVS(1305)*X(145) +IF (DO_SLV(200)) & + X(200) = X(200)-JVS(1311)*X(168)-JVS(1312)*X(182) IF (DO_SLV(201)) & - X(201) = X(201)-JVS(1315)*X(82)-JVS(1316)*X(101)-JVS(1317)*X(149)-JVS(1318)*X(158)-JVS(1319)*X(200) -IF (DO_SLV(202)) & - X(202) = X(202)-JVS(1324)*X(158)-JVS(1325)*X(195)-JVS(1326)*X(200) -IF (DO_SLV(203)) & - X(203) = X(203)-JVS(1332)*X(117)-JVS(1333)*X(158)-JVS(1334)*X(195)-JVS(1335)*X(200)-JVS(1336)*X(202) + X(201) = X(201)-JVS(1318)*X(129) IF (DO_SLV(204)) & - X(204) = X(204)-JVS(1348)*X(82)-JVS(1349)*X(101)-JVS(1350)*X(116)-JVS(1351)*X(149)-JVS(1352)*X(189)-JVS(1353)*X(200) + X(204) = X(204)-JVS(1332)*X(85)-JVS(1333)*X(103)-JVS(1334)*X(148)-JVS(1335)*X(162)-JVS(1336)*X(203) IF (DO_SLV(205)) & - X(205) = X(205)-JVS(1361)*X(175) -IF (DO_SLV(208)) & - X(208) = X(208)-JVS(1377)*X(131)-JVS(1378)*X(147) + X(205) = X(205)-JVS(1341)*X(162)-JVS(1342)*X(199)-JVS(1343)*X(203) +IF (DO_SLV(206)) & + X(206) = X(206)-JVS(1349)*X(118)-JVS(1350)*X(162)-JVS(1351)*X(199)-JVS(1352)*X(203)-JVS(1353)*X(205) +IF (DO_SLV(207)) & + X(207) = X(207)-JVS(1365)*X(85)-JVS(1366)*X(103)-JVS(1367)*X(117)-JVS(1368)*X(148)-JVS(1369)*X(193)-JVS(1370)*X(203) IF (DO_SLV(210)) & - X(210) = X(210)-JVS(1393)*X(209) -IF (DO_SLV(212)) & - X(212) = X(212)-JVS(1410)*X(140) -IF (DO_SLV(213)) & - X(213) = X(213)-JVS(1417)*X(114) + X(210) = X(210)-JVS(1388)*X(175) +IF (DO_SLV(211)) & + X(211) = X(211)-JVS(1394)*X(135)-JVS(1395)*X(149) +IF (DO_SLV(214)) & + X(214) = X(214)-JVS(1416)*X(213) IF (DO_SLV(215)) & - X(215) = X(215)-JVS(1432)*X(128)-JVS(1433)*X(144)-JVS(1434)*X(150)-JVS(1435)*X(151)-JVS(1436)*X(152)-JVS(1437)*X(168)& - &-JVS(1438)*X(175)-JVS(1439)*X(186)-JVS(1440)*X(187)-JVS(1441)*X(192)-JVS(1442)*X(199)-JVS(1443)*X(209) + X(215) = X(215)-JVS(1427)*X(140) IF (DO_SLV(216)) & - X(216) = X(216)-JVS(1457)*X(206) -IF (DO_SLV(217)) & - X(217) = X(217)-JVS(1469)*X(181) -IF (DO_SLV(221)) & - X(221) = X(221)-JVS(1495)*X(82)-JVS(1496)*X(101)-JVS(1497)*X(143)-JVS(1498)*X(149)-JVS(1499)*X(195)-JVS(1500)*X(200)& - &-JVS(1501)*X(202)-JVS(1502)*X(220) -IF (DO_SLV(223)) & - X(223) = X(223)-JVS(1514)*X(187)-JVS(1515)*X(209) + X(216) = X(216)-JVS(1434)*X(115) +IF (DO_SLV(218)) & + X(218) = X(218)-JVS(1449)*X(131)-JVS(1450)*X(150)-JVS(1451)*X(151)-JVS(1452)*X(157)-JVS(1453)*X(159)-JVS(1454)*X(175)& + &-JVS(1455)*X(177)-JVS(1456)*X(188)-JVS(1457)*X(191)-JVS(1458)*X(195)-JVS(1459)*X(202)-JVS(1460)*X(213) +IF (DO_SLV(219)) & + X(219) = X(219)-JVS(1474)*X(184) +IF (DO_SLV(220)) & + X(220) = X(220)-JVS(1486)*X(209) IF (DO_SLV(224)) & - X(224) = X(224)-JVS(1521)*X(192)-JVS(1522)*X(199) -IF (DO_SLV(225)) & - X(225) = X(225)-JVS(1528)*X(111)-JVS(1529)*X(137)-JVS(1530)*X(191) + X(224) = X(224)-JVS(1512)*X(85)-JVS(1513)*X(103)-JVS(1514)*X(145)-JVS(1515)*X(148)-JVS(1516)*X(199)-JVS(1517)*X(203)& + &-JVS(1518)*X(205)-JVS(1519)*X(223) IF (DO_SLV(226)) & - X(226) = X(226)-JVS(1540)*X(186) + X(226) = X(226)-JVS(1531)*X(195)-JVS(1532)*X(202) IF (DO_SLV(227)) & - X(227) = X(227)-JVS(1546)*X(131)-JVS(1547)*X(147)-JVS(1548)*X(153)-JVS(1549)*X(194) + X(227) = X(227)-JVS(1538)*X(111)-JVS(1539)*X(139)-JVS(1540)*X(194) +IF (DO_SLV(228)) & + X(228) = X(228)-JVS(1550)*X(191)-JVS(1551)*X(213) +IF (DO_SLV(229)) & + X(229) = X(229)-JVS(1557)*X(140)-JVS(1558)*X(215) IF (DO_SLV(230)) & - X(230) = X(230)-JVS(1576)*X(209) + X(230) = X(230)-JVS(1565)*X(135)-JVS(1566)*X(149)-JVS(1567)*X(155)-JVS(1568)*X(197) IF (DO_SLV(231)) & - X(231) = X(231)-JVS(1582)*X(199) -IF (DO_SLV(232)) & - X(232) = X(232)-JVS(1588)*X(187)-JVS(1589)*X(192) + X(231) = X(231)-JVS(1582)*X(202) IF (DO_SLV(233)) & - X(233) = X(233)-JVS(1596)*X(140)-JVS(1597)*X(212) -IF (DO_SLV(234)) & - X(234) = X(234)-JVS(1604)*X(109)-JVS(1605)*X(136)-JVS(1606)*X(233) + X(233) = X(233)-JVS(1595)*X(213) IF (DO_SLV(235)) & - X(235) = X(235)-JVS(1615)*X(71)-JVS(1616)*X(90)-JVS(1617)*X(204)-JVS(1618)*X(220) + X(235) = X(235)-JVS(1607)*X(191)-JVS(1608)*X(195) IF (DO_SLV(236)) & - X(236) = X(236)-JVS(1627)*X(71)-JVS(1628)*X(117)-JVS(1629)*X(203)-JVS(1630)*X(204)-JVS(1631)*X(220)-JVS(1632)*X(235) + X(236) = X(236)-JVS(1615)*X(188) +IF (DO_SLV(237)) & + X(237) = X(237)-JVS(1621)*X(77)-JVS(1622)*X(105)-JVS(1623)*X(207)-JVS(1624)*X(223) IF (DO_SLV(238)) & - X(238) = X(238)-JVS(1650)*X(199)-JVS(1651)*X(209) + X(238) = X(238)-JVS(1633)*X(77)-JVS(1634)*X(118)-JVS(1635)*X(206)-JVS(1636)*X(207)-JVS(1637)*X(223)-JVS(1638)*X(237) IF (DO_SLV(239)) & - X(239) = X(239)-JVS(1661)*X(64)-JVS(1662)*X(65)-JVS(1663)*X(166)-JVS(1664)*X(179) + X(239) = X(239)-JVS(1647)*X(120)-JVS(1648)*X(138)-JVS(1649)*X(229) IF (DO_SLV(240)) & - X(240) = X(240)-JVS(1682)*X(122)-JVS(1683)*X(146)-JVS(1684)*X(200) + X(240) = X(240)-JVS(1658)*X(67)-JVS(1659)*X(68)-JVS(1660)*X(169)-JVS(1661)*X(183) IF (DO_SLV(242)) & - X(242) = X(242)-JVS(1699)*X(193) + X(242) = X(242)-JVS(1688)*X(202)-JVS(1689)*X(213) IF (DO_SLV(243)) & - X(243) = X(243)-JVS(1711)*X(128)-JVS(1712)*X(192)-JVS(1713)*X(199)-JVS(1714)*X(209) -IF (DO_SLV(244)) & - X(244) = X(244)-JVS(1723)*X(199)-JVS(1724)*X(224)-JVS(1725)*X(226) + X(243) = X(243)-JVS(1699)*X(125)-JVS(1700)*X(152)-JVS(1701)*X(203) IF (DO_SLV(245)) & - X(245) = X(245)-JVS(1739)*X(110) + X(245) = X(245)-JVS(1716)*X(131)-JVS(1717)*X(195)-JVS(1718)*X(202)-JVS(1719)*X(213) IF (DO_SLV(246)) & - X(246) = X(246)-JVS(1753)*X(113) + X(246) = X(246)-JVS(1728)*X(196) IF (DO_SLV(247)) & - X(247) = X(247)-JVS(1760)*X(125)-JVS(1761)*X(180)-JVS(1762)*X(182)-JVS(1763)*X(206)-JVS(1764)*X(216)-JVS(1765)*X(226) + X(247) = X(247)-JVS(1740)*X(202)-JVS(1741)*X(226)-JVS(1742)*X(236) IF (DO_SLV(248)) & - X(248) = X(248)-JVS(1782)*X(172)-JVS(1783)*X(205)-JVS(1784)*X(231) + X(248) = X(248)-JVS(1756)*X(119) +IF (DO_SLV(249)) & + X(249) = X(249)-JVS(1770)*X(128)-JVS(1771)*X(181)-JVS(1772)*X(185)-JVS(1773)*X(209)-JVS(1774)*X(220)-JVS(1775)*X(236) IF (DO_SLV(250)) & - X(250) = X(250)-JVS(1804)*X(125) + X(250) = X(250)-JVS(1792)*X(113) +IF (DO_SLV(251)) & + X(251) = X(251)-JVS(1799)*X(174)-JVS(1800)*X(210)-JVS(1801)*X(231) IF (DO_SLV(253)) & - X(253) = X(253)-JVS(1827)*X(172)-JVS(1828)*X(231) -IF (DO_SLV(254)) & - X(254) = X(254)-JVS(1838)*X(171)-JVS(1839)*X(230) -IF (DO_SLV(255)) & - X(255) = X(255)-JVS(1849)*X(167) + X(253) = X(253)-JVS(1821)*X(128) IF (DO_SLV(256)) & - X(256) = X(256)-JVS(1859)*X(162)-JVS(1860)*X(176)-JVS(1861)*X(177)-JVS(1862)*X(211)-JVS(1863)*X(237)-JVS(1864)*X(255) + X(256) = X(256)-JVS(1844)*X(170) IF (DO_SLV(257)) & - X(257) = X(257)-JVS(1881)*X(56)-JVS(1882)*X(74)-JVS(1883)*X(111)-JVS(1884)*X(225) + X(257) = X(257)-JVS(1854)*X(174)-JVS(1855)*X(231) IF (DO_SLV(258)) & - X(258) = X(258)-JVS(1895)*X(174)-JVS(1896)*X(223)-JVS(1897)*X(224)-JVS(1898)*X(232)-JVS(1899)*X(243) + X(258) = X(258)-JVS(1865)*X(173)-JVS(1866)*X(233) IF (DO_SLV(259)) & - X(259) = X(259)-JVS(1910)*X(159)-JVS(1911)*X(184) + X(259) = X(259)-JVS(1876)*X(178)-JVS(1877)*X(226)-JVS(1878)*X(228)-JVS(1879)*X(235)-JVS(1880)*X(245) IF (DO_SLV(260)) & - X(260) = X(260)-JVS(1920)*X(123) + X(260) = X(260)-JVS(1891)*X(165)-JVS(1892)*X(179)-JVS(1893)*X(180)-JVS(1894)*X(212)-JVS(1895)*X(241)-JVS(1896)*X(256) IF (DO_SLV(261)) & - X(261) = X(261)-JVS(1930)*X(180)-JVS(1931)*X(182)-JVS(1932)*X(207)-JVS(1933)*X(226) + X(261) = X(261)-JVS(1913)*X(59)-JVS(1914)*X(76)-JVS(1915)*X(111)-JVS(1916)*X(227) IF (DO_SLV(262)) & - X(262) = X(262)-JVS(1947)*X(193)-JVS(1948)*X(219)-JVS(1949)*X(229) + X(262) = X(262)-JVS(1927)*X(161)-JVS(1928)*X(189) IF (DO_SLV(263)) & - X(263) = X(263)-JVS(1959)*X(82)-JVS(1960)*X(101)-JVS(1961)*X(137)-JVS(1962)*X(138)-JVS(1963)*X(143)-JVS(1964)*X(149)& - &-JVS(1965)*X(158)-JVS(1966)*X(160)-JVS(1967)*X(167)-JVS(1968)*X(176)-JVS(1969)*X(193)-JVS(1970)*X(195)& - &-JVS(1971)*X(200)-JVS(1972)*X(202)-JVS(1973)*X(211)-JVS(1974)*X(219)-JVS(1975)*X(220)-JVS(1976)*X(229)& - &-JVS(1977)*X(237)-JVS(1978)*X(255)-JVS(1979)*X(262) + X(263) = X(263)-JVS(1937)*X(196)-JVS(1938)*X(222)-JVS(1939)*X(234) IF (DO_SLV(264)) & - X(264) = X(264)-JVS(1993)*X(241) + X(264) = X(264)-JVS(1949)*X(126) IF (DO_SLV(265)) & - X(265) = X(265)-JVS(2009)*X(60)-JVS(2010)*X(88)-JVS(2011)*X(107)-JVS(2012)*X(159)-JVS(2013)*X(184)-JVS(2014)*X(194)& - &-JVS(2015)*X(201)-JVS(2016)*X(221)-JVS(2017)*X(230)-JVS(2018)*X(231)-JVS(2019)*X(259) + X(265) = X(265)-JVS(1959)*X(181)-JVS(1960)*X(185)-JVS(1961)*X(208)-JVS(1962)*X(236) IF (DO_SLV(266)) & - X(266) = X(266)-JVS(2041)*X(190)-JVS(2042)*X(205)-JVS(2043)*X(206)-JVS(2044)*X(207)-JVS(2045)*X(226)-JVS(2046)*X(243) + X(266) = X(266)-JVS(1976)*X(85)-JVS(1977)*X(103)-JVS(1978)*X(139)-JVS(1979)*X(141)-JVS(1980)*X(145)-JVS(1981)*X(148)& + &-JVS(1982)*X(162)-JVS(1983)*X(163)-JVS(1984)*X(170)-JVS(1985)*X(179)-JVS(1986)*X(196)-JVS(1987)*X(199)& + &-JVS(1988)*X(203)-JVS(1989)*X(205)-JVS(1990)*X(212)-JVS(1991)*X(222)-JVS(1992)*X(223)-JVS(1993)*X(234)& + &-JVS(1994)*X(241)-JVS(1995)*X(256)-JVS(1996)*X(263) +IF (DO_SLV(267)) & + X(267) = X(267)-JVS(2010)*X(244) +IF (DO_SLV(268)) & + X(268) = X(268)-JVS(2026)*X(63)-JVS(2027)*X(92)-JVS(2028)*X(109)-JVS(2029)*X(161)-JVS(2030)*X(189)-JVS(2031)*X(197)& + &-JVS(2032)*X(204)-JVS(2033)*X(224)-JVS(2034)*X(231)-JVS(2035)*X(233)-JVS(2036)*X(262) IF (DO_SLV(269)) & - X(269) = X(269)-JVS(2073)*X(158)-JVS(2074)*X(195)-JVS(2075)*X(200)-JVS(2076)*X(202)-JVS(2077)*X(203)-JVS(2078)*X(220)& - &-JVS(2079)*X(235)-JVS(2080)*X(236) -IF (DO_SLV(270)) & - X(270) = X(270)-JVS(2089)*X(60)-JVS(2090)*X(82)-JVS(2091)*X(101)-JVS(2092)*X(143)-JVS(2093)*X(185)-JVS(2094)*X(194)& - &-JVS(2095)*X(195)-JVS(2096)*X(198)-JVS(2097)*X(200)-JVS(2098)*X(210)-JVS(2099)*X(220)-JVS(2100)*X(221)& - &-JVS(2101)*X(223)-JVS(2102)*X(224)-JVS(2103)*X(226)-JVS(2104)*X(227)-JVS(2105)*X(230)-JVS(2106)*X(231)& - &-JVS(2107)*X(232)-JVS(2108)*X(233)-JVS(2109)*X(258)-JVS(2110)*X(267)-JVS(2111)*X(268)-JVS(2112)*X(269) -IF (DO_SLV(271)) & - X(271) = X(271)-JVS(2134)*X(222) + X(269) = X(269)-JVS(2058)*X(186)-JVS(2059)*X(208)-JVS(2060)*X(209)-JVS(2061)*X(210)-JVS(2062)*X(236)-JVS(2063)*X(245) IF (DO_SLV(272)) & - X(272) = X(272)-JVS(2142)*X(211)-JVS(2143)*X(237) + X(272) = X(272)-JVS(2090)*X(162)-JVS(2091)*X(199)-JVS(2092)*X(203)-JVS(2093)*X(205)-JVS(2094)*X(206)-JVS(2095)*X(223)& + &-JVS(2096)*X(237)-JVS(2097)*X(238) IF (DO_SLV(273)) & - X(273) = X(273)-JVS(2153)*X(129)-JVS(2154)*X(138)-JVS(2155)*X(161)-JVS(2156)*X(191) + X(273) = X(273)-JVS(2106)*X(225) IF (DO_SLV(274)) & - X(274) = X(274)-JVS(2166)*X(57)-JVS(2167)*X(161)-JVS(2168)*X(162)-JVS(2169)*X(163)-JVS(2170)*X(167)-JVS(2171)*X(169)& - &-JVS(2172)*X(177)-JVS(2173)*X(211)-JVS(2174)*X(237)-JVS(2175)*X(255)-JVS(2176)*X(272)-JVS(2177)*X(273) + X(274) = X(274)-JVS(2114)*X(63)-JVS(2115)*X(85)-JVS(2116)*X(103)-JVS(2117)*X(145)-JVS(2118)*X(190)-JVS(2119)*X(197)& + &-JVS(2120)*X(198)-JVS(2121)*X(199)-JVS(2122)*X(203)-JVS(2123)*X(214)-JVS(2124)*X(223)-JVS(2125)*X(224)& + &-JVS(2126)*X(226)-JVS(2127)*X(228)-JVS(2128)*X(229)-JVS(2129)*X(230)-JVS(2130)*X(231)-JVS(2131)*X(233)& + &-JVS(2132)*X(235)-JVS(2133)*X(236)-JVS(2134)*X(259)-JVS(2135)*X(270)-JVS(2136)*X(271)-JVS(2137)*X(272)& + &-JVS(2138)*X(273) IF (DO_SLV(275)) & - X(275) = X(275)-JVS(2189)*X(112)-JVS(2190)*X(191)-JVS(2191)*X(219) + X(275) = X(275)-JVS(2159)*X(132)-JVS(2160)*X(141)-JVS(2161)*X(164)-JVS(2162)*X(194) +IF (DO_SLV(276)) & + X(276) = X(276)-JVS(2172)*X(112)-JVS(2173)*X(194)-JVS(2174)*X(222) IF (DO_SLV(277)) & - X(277) = X(277)-JVS(2205)*X(111)-JVS(2206)*X(191)-JVS(2207)*X(219) + X(277) = X(277)-JVS(2183)*X(60)-JVS(2184)*X(164)-JVS(2185)*X(165)-JVS(2186)*X(166)-JVS(2187)*X(170)-JVS(2188)*X(171)& + &-JVS(2189)*X(180)-JVS(2190)*X(212)-JVS(2191)*X(241)-JVS(2192)*X(256)-JVS(2193)*X(275)-JVS(2194)*X(276) IF (DO_SLV(278)) & - X(278) = X(278)-JVS(2216)*X(66)-JVS(2217)*X(74)-JVS(2218)*X(160)-JVS(2219)*X(225)-JVS(2220)*X(257)-JVS(2221)*X(277) -IF (DO_SLV(279)) & - X(279) = X(279)-JVS(2231)*X(249) + X(278) = X(278)-JVS(2206)*X(212)-JVS(2207)*X(241) IF (DO_SLV(280)) & - X(280) = X(280)-JVS(2240)*X(167)-JVS(2241)*X(191)-JVS(2242)*X(193)-JVS(2243)*X(219)-JVS(2244)*X(229)-JVS(2245)*X(262) + X(280) = X(280)-JVS(2222)*X(170)-JVS(2223)*X(194)-JVS(2224)*X(196)-JVS(2225)*X(222)-JVS(2226)*X(234)-JVS(2227)*X(263) IF (DO_SLV(281)) & - X(281) = X(281)-JVS(2256)*X(167)-JVS(2257)*X(191)-JVS(2258)*X(219) + X(281) = X(281)-JVS(2238)*X(111)-JVS(2239)*X(194)-JVS(2240)*X(222) IF (DO_SLV(282)) & - X(282) = X(282)-JVS(2267)*X(234)-JVS(2268)*X(246)-JVS(2269)*X(249)-JVS(2270)*X(250)-JVS(2271)*X(260)-JVS(2272)*X(272)& - &-JVS(2273)*X(273)-JVS(2274)*X(275)-JVS(2275)*X(277)-JVS(2276)*X(278)-JVS(2277)*X(279)-JVS(2278)*X(281) + X(282) = X(282)-JVS(2249)*X(69)-JVS(2250)*X(76)-JVS(2251)*X(163)-JVS(2252)*X(227)-JVS(2253)*X(261)-JVS(2254)*X(281) IF (DO_SLV(283)) & - X(283) = X(283)-JVS(2305)*X(201)-JVS(2306)*X(241)-JVS(2307)*X(249)-JVS(2308)*X(250)-JVS(2309)*X(260)-JVS(2310)*X(275)& - &-JVS(2311)*X(277)-JVS(2312)*X(279)-JVS(2313)*X(281) + X(283) = X(283)-JVS(2264)*X(252) IF (DO_SLV(284)) & - X(284) = X(284)-JVS(2340)*X(44)-JVS(2341)*X(55)-JVS(2342)*X(96) + X(284) = X(284)-JVS(2273)*X(170)-JVS(2274)*X(194)-JVS(2275)*X(222) IF (DO_SLV(285)) & - X(285) = X(285)-JVS(2354)*X(147)-JVS(2355)*X(151)-JVS(2356)*X(152)-JVS(2357)*X(168)-JVS(2358)*X(175)-JVS(2359)*X(187)& - &-JVS(2360)*X(192)-JVS(2361)*X(238)-JVS(2362)*X(267)-JVS(2363)*X(268) + X(285) = X(285)-JVS(2284)*X(239)-JVS(2285)*X(250)-JVS(2286)*X(252)-JVS(2287)*X(253)-JVS(2288)*X(264)-JVS(2289)*X(275)& + &-JVS(2290)*X(276)-JVS(2291)*X(278)-JVS(2292)*X(281)-JVS(2293)*X(282)-JVS(2294)*X(283)-JVS(2295)*X(284) IF (DO_SLV(286)) & - X(286) = X(286)-JVS(2374)*X(147)-JVS(2375)*X(151)-JVS(2376)*X(152)-JVS(2377)*X(168)-JVS(2378)*X(175)-JVS(2379)*X(187)& - &-JVS(2380)*X(192)-JVS(2381)*X(238)-JVS(2382)*X(267)-JVS(2383)*X(268)-JVS(2384)*X(285) + X(286) = X(286)-JVS(2322)*X(204)-JVS(2323)*X(244)-JVS(2324)*X(252)-JVS(2325)*X(253)-JVS(2326)*X(264)-JVS(2327)*X(276)& + &-JVS(2328)*X(281)-JVS(2329)*X(283)-JVS(2330)*X(284) IF (DO_SLV(287)) & - X(287) = X(287)-JVS(2394)*X(144)-JVS(2395)*X(192)-JVS(2396)*X(198)-JVS(2397)*X(199)-JVS(2398)*X(223)-JVS(2399)*X(224)& - &-JVS(2400)*X(231)-JVS(2401)*X(232)-JVS(2402)*X(238)-JVS(2403)*X(253)-JVS(2404)*X(258)-JVS(2405)*X(266)& - &-JVS(2406)*X(267)-JVS(2407)*X(268)-JVS(2408)*X(271)-JVS(2409)*X(276)-JVS(2410)*X(285)-JVS(2411)*X(286) + X(287) = X(287)-JVS(2357)*X(172)-JVS(2358)*X(254) IF (DO_SLV(288)) & - X(288) = X(288)-JVS(2428)*X(150)-JVS(2429)*X(187)-JVS(2430)*X(198)-JVS(2431)*X(209)-JVS(2432)*X(223)-JVS(2433)*X(224)& - &-JVS(2434)*X(230)-JVS(2435)*X(232)-JVS(2436)*X(238)-JVS(2437)*X(254)-JVS(2438)*X(266)-JVS(2439)*X(267)& - &-JVS(2440)*X(268)-JVS(2441)*X(271)-JVS(2442)*X(276)-JVS(2443)*X(285)-JVS(2444)*X(286) + X(288) = X(288)-JVS(2373)*X(149)-JVS(2374)*X(157)-JVS(2375)*X(159)-JVS(2376)*X(175)-JVS(2377)*X(177)-JVS(2378)*X(191)& + &-JVS(2379)*X(195)-JVS(2380)*X(242)-JVS(2381)*X(270)-JVS(2382)*X(271) IF (DO_SLV(289)) & - X(289) = X(289)-JVS(2461)*X(167)-JVS(2462)*X(191)-JVS(2463)*X(219)-JVS(2464)*X(280) + X(289) = X(289)-JVS(2393)*X(149)-JVS(2394)*X(157)-JVS(2395)*X(159)-JVS(2396)*X(175)-JVS(2397)*X(177)-JVS(2398)*X(191)& + &-JVS(2399)*X(195)-JVS(2400)*X(242)-JVS(2401)*X(270)-JVS(2402)*X(271)-JVS(2403)*X(288) +IF (DO_SLV(290)) & + X(290) = X(290)-JVS(2413)*X(151)-JVS(2414)*X(195)-JVS(2415)*X(198)-JVS(2416)*X(202)-JVS(2417)*X(226)-JVS(2418)*X(228)& + &-JVS(2419)*X(231)-JVS(2420)*X(235)-JVS(2421)*X(242)-JVS(2422)*X(257)-JVS(2423)*X(259)-JVS(2424)*X(269)& + &-JVS(2425)*X(270)-JVS(2426)*X(271)-JVS(2427)*X(273)-JVS(2428)*X(279)-JVS(2429)*X(288)-JVS(2430)*X(289) IF (DO_SLV(291)) & - X(291) = X(291)-JVS(2481)*X(219) + X(291) = X(291)-JVS(2447)*X(150)-JVS(2448)*X(191)-JVS(2449)*X(198)-JVS(2450)*X(213)-JVS(2451)*X(226)-JVS(2452)*X(228)& + &-JVS(2453)*X(233)-JVS(2454)*X(235)-JVS(2455)*X(242)-JVS(2456)*X(258)-JVS(2457)*X(269)-JVS(2458)*X(270)& + &-JVS(2459)*X(271)-JVS(2460)*X(273)-JVS(2461)*X(279)-JVS(2462)*X(288)-JVS(2463)*X(289) IF (DO_SLV(292)) & - X(292) = X(292)-JVS(2490)*X(160)-JVS(2491)*X(176)-JVS(2492)*X(178)-JVS(2493)*X(219)-JVS(2494)*X(251)-JVS(2495)*X(256)& - &-JVS(2496)*X(262)-JVS(2497)*X(272)-JVS(2498)*X(273)-JVS(2499)*X(275)-JVS(2500)*X(277)-JVS(2501)*X(278)& - &-JVS(2502)*X(279)-JVS(2503)*X(280)-JVS(2504)*X(281)-JVS(2505)*X(289)-JVS(2506)*X(291) -IF (DO_SLV(293)) & - X(293) = X(293)-JVS(2520)*X(145)-JVS(2521)*X(186)-JVS(2522)*X(222) + X(292) = X(292)-JVS(2480)*X(170)-JVS(2481)*X(194)-JVS(2482)*X(222)-JVS(2483)*X(280) IF (DO_SLV(294)) & - X(294) = X(294)-JVS(2534)*X(82)-JVS(2535)*X(101)-JVS(2536)*X(107)-JVS(2537)*X(159)-JVS(2538)*X(184)-JVS(2539)*X(185)& - &-JVS(2540)*X(194)-JVS(2541)*X(198)-JVS(2542)*X(199)-JVS(2543)*X(200)-JVS(2544)*X(201)-JVS(2545)*X(209)& - &-JVS(2546)*X(215)-JVS(2547)*X(223)-JVS(2548)*X(224)-JVS(2549)*X(227)-JVS(2550)*X(230)-JVS(2551)*X(231)& - &-JVS(2552)*X(232)-JVS(2553)*X(238)-JVS(2554)*X(244)-JVS(2555)*X(247)-JVS(2556)*X(250)-JVS(2557)*X(253)& - &-JVS(2558)*X(254)-JVS(2559)*X(258)-JVS(2560)*X(259)-JVS(2561)*X(266)-JVS(2562)*X(267)-JVS(2563)*X(268)& - &-JVS(2564)*X(271)-JVS(2565)*X(276)-JVS(2566)*X(285)-JVS(2567)*X(286)-JVS(2568)*X(287)-JVS(2569)*X(288)& - &-JVS(2570)*X(290)-JVS(2571)*X(293) + X(294) = X(294)-JVS(2500)*X(222) IF (DO_SLV(295)) & - X(295) = X(295)-JVS(2597)*X(91)-JVS(2598)*X(100)-JVS(2599)*X(160)-JVS(2600)*X(161)-JVS(2601)*X(162)-JVS(2602)*X(176)& - &-JVS(2603)*X(219)-JVS(2604)*X(229)-JVS(2605)*X(251)-JVS(2606)*X(262)-JVS(2607)*X(273)-JVS(2608)*X(275)& - &-JVS(2609)*X(277)-JVS(2610)*X(278)-JVS(2611)*X(279)-JVS(2612)*X(291) + X(295) = X(295)-JVS(2509)*X(163)-JVS(2510)*X(179)-JVS(2511)*X(182)-JVS(2512)*X(222)-JVS(2513)*X(255)-JVS(2514)*X(260)& + &-JVS(2515)*X(263)-JVS(2516)*X(275)-JVS(2517)*X(276)-JVS(2518)*X(278)-JVS(2519)*X(280)-JVS(2520)*X(281)& + &-JVS(2521)*X(282)-JVS(2522)*X(283)-JVS(2523)*X(284)-JVS(2524)*X(292)-JVS(2525)*X(294) IF (DO_SLV(296)) & - X(296) = X(296)-JVS(2629)*X(173)-JVS(2630)*X(183)-JVS(2631)*X(200)-JVS(2632)*X(201)-JVS(2633)*X(221)-JVS(2634)*X(240)& - &-JVS(2635)*X(246)-JVS(2636)*X(269)-JVS(2637)*X(289)-JVS(2638)*X(291) + X(296) = X(296)-JVS(2539)*X(172)-JVS(2540)*X(254) IF (DO_SLV(297)) & - X(297) = X(297)-JVS(2652)*X(214) + X(297) = X(297)-JVS(2553)*X(94)-JVS(2554)*X(102)-JVS(2555)*X(163)-JVS(2556)*X(164)-JVS(2557)*X(165)-JVS(2558)*X(179)& + &-JVS(2559)*X(222)-JVS(2560)*X(234)-JVS(2561)*X(255)-JVS(2562)*X(263)-JVS(2563)*X(275)-JVS(2564)*X(276)& + &-JVS(2565)*X(281)-JVS(2566)*X(282)-JVS(2567)*X(283)-JVS(2568)*X(294) IF (DO_SLV(298)) & - X(298) = X(298)-JVS(2664)*X(95)-JVS(2665)*X(97)-JVS(2666)*X(98)-JVS(2667)*X(99)-JVS(2668)*X(102)-JVS(2669)*X(125)& - &-JVS(2670)*X(130)-JVS(2671)*X(161)-JVS(2672)*X(162)-JVS(2673)*X(165)-JVS(2674)*X(169)-JVS(2675)*X(178)& - &-JVS(2676)*X(188)-JVS(2677)*X(196)-JVS(2678)*X(201)-JVS(2679)*X(212)-JVS(2680)*X(219)-JVS(2681)*X(221)& - &-JVS(2682)*X(229)-JVS(2683)*X(242)-JVS(2684)*X(249)-JVS(2685)*X(250)-JVS(2686)*X(251)-JVS(2687)*X(260)& - &-JVS(2688)*X(269)-JVS(2689)*X(272)-JVS(2690)*X(273)-JVS(2691)*X(274)-JVS(2692)*X(275)-JVS(2693)*X(279)& - &-JVS(2694)*X(280)-JVS(2695)*X(281)-JVS(2696)*X(289)-JVS(2697)*X(290)-JVS(2698)*X(291) + X(298) = X(298)-JVS(2585)*X(85)-JVS(2586)*X(103)-JVS(2587)*X(109)-JVS(2588)*X(161)-JVS(2589)*X(189)-JVS(2590)*X(190)& + &-JVS(2591)*X(197)-JVS(2592)*X(198)-JVS(2593)*X(202)-JVS(2594)*X(203)-JVS(2595)*X(204)-JVS(2596)*X(213)& + &-JVS(2597)*X(218)-JVS(2598)*X(226)-JVS(2599)*X(228)-JVS(2600)*X(230)-JVS(2601)*X(231)-JVS(2602)*X(233)& + &-JVS(2603)*X(235)-JVS(2604)*X(242)-JVS(2605)*X(247)-JVS(2606)*X(249)-JVS(2607)*X(253)-JVS(2608)*X(257)& + &-JVS(2609)*X(258)-JVS(2610)*X(259)-JVS(2611)*X(262)-JVS(2612)*X(269)-JVS(2613)*X(270)-JVS(2614)*X(271)& + &-JVS(2615)*X(273)-JVS(2616)*X(279)-JVS(2617)*X(288)-JVS(2618)*X(289)-JVS(2619)*X(290)-JVS(2620)*X(291)& + &-JVS(2621)*X(293) IF (DO_SLV(299)) & - X(299) = X(299)-JVS(2717)*X(180)-JVS(2718)*X(190)-JVS(2719)*X(205)-JVS(2720)*X(206)-JVS(2721)*X(207)-JVS(2722)*X(226)& - &-JVS(2723)*X(267)-JVS(2724)*X(268)-JVS(2725)*X(271)-JVS(2726)*X(293) + X(299) = X(299)-JVS(2648)*X(147)-JVS(2649)*X(188)-JVS(2650)*X(225) IF (DO_SLV(300)) & - X(300) = X(300)-JVS(2739)*X(102)-JVS(2740)*X(142)-JVS(2741)*X(201) + X(300) = X(300)-JVS(2662)*X(176)-JVS(2663)*X(187)-JVS(2664)*X(203)-JVS(2665)*X(204)-JVS(2666)*X(224)-JVS(2667)*X(243)& + &-JVS(2668)*X(250)-JVS(2669)*X(272)-JVS(2670)*X(292)-JVS(2671)*X(294) IF (DO_SLV(301)) & - X(301) = X(301)-JVS(2751)*X(145)-JVS(2752)*X(186)-JVS(2753)*X(267)-JVS(2754)*X(268)-JVS(2755)*X(299) + X(301) = X(301)-JVS(2685)*X(217) IF (DO_SLV(302)) & - X(302) = X(302)-JVS(2768)*X(171)-JVS(2769)*X(190)-JVS(2770)*X(207)-JVS(2771)*X(226)-JVS(2772)*X(230)-JVS(2773)*X(254)& - &-JVS(2774)*X(267)-JVS(2775)*X(271)-JVS(2776)*X(276)-JVS(2777)*X(293)-JVS(2778)*X(299)-JVS(2779)*X(301) + X(302) = X(302)-JVS(2697)*X(97)-JVS(2698)*X(99)-JVS(2699)*X(100)-JVS(2700)*X(101)-JVS(2701)*X(104)-JVS(2702)*X(128)& + &-JVS(2703)*X(134)-JVS(2704)*X(164)-JVS(2705)*X(165)-JVS(2706)*X(168)-JVS(2707)*X(171)-JVS(2708)*X(182)& + &-JVS(2709)*X(192)-JVS(2710)*X(200)-JVS(2711)*X(204)-JVS(2712)*X(215)-JVS(2713)*X(222)-JVS(2714)*X(224)& + &-JVS(2715)*X(234)-JVS(2716)*X(246)-JVS(2717)*X(252)-JVS(2718)*X(253)-JVS(2719)*X(255)-JVS(2720)*X(264)& + &-JVS(2721)*X(272)-JVS(2722)*X(275)-JVS(2723)*X(276)-JVS(2724)*X(277)-JVS(2725)*X(278)-JVS(2726)*X(280)& + &-JVS(2727)*X(283)-JVS(2728)*X(284)-JVS(2729)*X(292)-JVS(2730)*X(293)-JVS(2731)*X(294) IF (DO_SLV(303)) & - X(303) = X(303)-JVS(2796)*X(186)-JVS(2797)*X(190)-JVS(2798)*X(205)-JVS(2799)*X(206)-JVS(2800)*X(207)-JVS(2801)*X(222)& - &-JVS(2802)*X(223)-JVS(2803)*X(224)-JVS(2804)*X(226)-JVS(2805)*X(232)-JVS(2806)*X(267)-JVS(2807)*X(268)& - &-JVS(2808)*X(271)-JVS(2809)*X(293)-JVS(2810)*X(299) + X(303) = X(303)-JVS(2750)*X(181)-JVS(2751)*X(186)-JVS(2752)*X(208)-JVS(2753)*X(209)-JVS(2754)*X(210)-JVS(2755)*X(236)& + &-JVS(2756)*X(270)-JVS(2757)*X(271)-JVS(2758)*X(273)-JVS(2759)*X(299) IF (DO_SLV(304)) & - X(304) = X(304)-JVS(2822)*X(186)-JVS(2823)*X(192)-JVS(2824)*X(199)-JVS(2825)*X(276) + X(304) = X(304)-JVS(2772)*X(104)-JVS(2773)*X(144)-JVS(2774)*X(204) IF (DO_SLV(305)) & - X(305) = X(305)-JVS(2836)*X(186)-JVS(2837)*X(187)-JVS(2838)*X(209)-JVS(2839)*X(276)-JVS(2840)*X(304) + X(305) = X(305)-JVS(2784)*X(147)-JVS(2785)*X(188)-JVS(2786)*X(270)-JVS(2787)*X(271)-JVS(2788)*X(303) IF (DO_SLV(306)) & - X(306) = X(306)-JVS(2850)*X(70)-JVS(2851)*X(106)-JVS(2852)*X(113)-JVS(2853)*X(126)-JVS(2854)*X(127)-JVS(2855)*X(132)& - &-JVS(2856)*X(136)-JVS(2857)*X(174)-JVS(2858)*X(180)-JVS(2859)*X(197)-JVS(2860)*X(198)-JVS(2861)*X(201)& - &-JVS(2862)*X(202)-JVS(2863)*X(205)-JVS(2864)*X(206)-JVS(2865)*X(212)-JVS(2866)*X(220)-JVS(2867)*X(221)& - &-JVS(2868)*X(223)-JVS(2869)*X(224)-JVS(2870)*X(232)-JVS(2871)*X(233)-JVS(2872)*X(234)-JVS(2873)*X(246)& - &-JVS(2874)*X(254)-JVS(2875)*X(258)-JVS(2876)*X(262)-JVS(2877)*X(266)-JVS(2878)*X(267)-JVS(2879)*X(268)& - &-JVS(2880)*X(269)-JVS(2881)*X(271)-JVS(2882)*X(276)-JVS(2883)*X(285)-JVS(2884)*X(286)-JVS(2885)*X(288)& - &-JVS(2886)*X(291)-JVS(2887)*X(293)-JVS(2888)*X(299)-JVS(2889)*X(301)-JVS(2890)*X(302)-JVS(2891)*X(303)& - &-JVS(2892)*X(304)-JVS(2893)*X(305) + X(306) = X(306)-JVS(2801)*X(173)-JVS(2802)*X(186)-JVS(2803)*X(208)-JVS(2804)*X(233)-JVS(2805)*X(236)-JVS(2806)*X(258)& + &-JVS(2807)*X(270)-JVS(2808)*X(273)-JVS(2809)*X(279)-JVS(2810)*X(299)-JVS(2811)*X(303)-JVS(2812)*X(305) IF (DO_SLV(307)) & - X(307) = X(307)-JVS(2908)*X(123)-JVS(2909)*X(153)-JVS(2910)*X(154)-JVS(2911)*X(159)-JVS(2912)*X(174)-JVS(2913)*X(184)& - &-JVS(2914)*X(198)-JVS(2915)*X(205)-JVS(2916)*X(207)-JVS(2917)*X(215)-JVS(2918)*X(223)-JVS(2919)*X(224)& - &-JVS(2920)*X(230)-JVS(2921)*X(231)-JVS(2922)*X(232)-JVS(2923)*X(242)-JVS(2924)*X(243)-JVS(2925)*X(248)& - &-JVS(2926)*X(253)-JVS(2927)*X(256)-JVS(2928)*X(258)-JVS(2929)*X(259)-JVS(2930)*X(260)-JVS(2931)*X(267)& - &-JVS(2932)*X(268)-JVS(2933)*X(271)-JVS(2934)*X(272)-JVS(2935)*X(273)-JVS(2936)*X(275)-JVS(2937)*X(276)& - &-JVS(2938)*X(277)-JVS(2939)*X(278)-JVS(2940)*X(280)-JVS(2941)*X(281)-JVS(2942)*X(285)-JVS(2943)*X(286)& - &-JVS(2944)*X(287)-JVS(2945)*X(289)-JVS(2946)*X(290)-JVS(2947)*X(291)-JVS(2948)*X(293)-JVS(2949)*X(299)& - &-JVS(2950)*X(301)-JVS(2951)*X(303)-JVS(2952)*X(304)-JVS(2953)*X(305) + X(307) = X(307)-JVS(2829)*X(186)-JVS(2830)*X(188)-JVS(2831)*X(208)-JVS(2832)*X(209)-JVS(2833)*X(210)-JVS(2834)*X(225)& + &-JVS(2835)*X(226)-JVS(2836)*X(228)-JVS(2837)*X(235)-JVS(2838)*X(236)-JVS(2839)*X(270)-JVS(2840)*X(271)& + &-JVS(2841)*X(273)-JVS(2842)*X(299)-JVS(2843)*X(303) IF (DO_SLV(308)) & - X(308) = X(308)-JVS(2971)*X(248)-JVS(2972)*X(253)-JVS(2973)*X(276)-JVS(2974)*X(301)-JVS(2975)*X(303)-JVS(2976)*X(304)& - &-JVS(2977)*X(305) + X(308) = X(308)-JVS(2855)*X(225)-JVS(2856)*X(279) IF (DO_SLV(309)) & - X(309) = X(309)-JVS(2991)*X(135)-JVS(2992)*X(144)-JVS(2993)*X(168)-JVS(2994)*X(192)-JVS(2995)*X(199)-JVS(2996)*X(222)& - &-JVS(2997)*X(231)-JVS(2998)*X(276)-JVS(2999)*X(299)-JVS(3000)*X(303)-JVS(3001)*X(304)-JVS(3002)*X(305) + X(309) = X(309)-JVS(2867)*X(73)-JVS(2868)*X(113)-JVS(2869)*X(114)-JVS(2870)*X(129)-JVS(2871)*X(130)-JVS(2872)*X(133)& + &-JVS(2873)*X(138)-JVS(2874)*X(178)-JVS(2875)*X(181)-JVS(2876)*X(198)-JVS(2877)*X(201)-JVS(2878)*X(204)& + &-JVS(2879)*X(205)-JVS(2880)*X(209)-JVS(2881)*X(210)-JVS(2882)*X(215)-JVS(2883)*X(223)-JVS(2884)*X(224)& + &-JVS(2885)*X(226)-JVS(2886)*X(228)-JVS(2887)*X(229)-JVS(2888)*X(235)-JVS(2889)*X(239)-JVS(2890)*X(250)& + &-JVS(2891)*X(258)-JVS(2892)*X(259)-JVS(2893)*X(263)-JVS(2894)*X(269)-JVS(2895)*X(270)-JVS(2896)*X(271)& + &-JVS(2897)*X(272)-JVS(2898)*X(273)-JVS(2899)*X(279)-JVS(2900)*X(288)-JVS(2901)*X(289)-JVS(2902)*X(291)& + &-JVS(2903)*X(294)-JVS(2904)*X(299)-JVS(2905)*X(303)-JVS(2906)*X(305)-JVS(2907)*X(306)-JVS(2908)*X(307)& + &-JVS(2909)*X(308) IF (DO_SLV(310)) & - X(310) = X(310)-JVS(3014)*X(222)-JVS(3015)*X(276) + X(310) = X(310)-JVS(2925)*X(188)-JVS(2926)*X(279)-JVS(2927)*X(308) IF (DO_SLV(311)) & - X(311) = X(311)-JVS(3026)*X(186)-JVS(3027)*X(276)-JVS(3028)*X(310) + X(311) = X(311)-JVS(2937)*X(126)-JVS(2938)*X(155)-JVS(2939)*X(156)-JVS(2940)*X(161)-JVS(2941)*X(178)-JVS(2942)*X(189)& + &-JVS(2943)*X(198)-JVS(2944)*X(208)-JVS(2945)*X(210)-JVS(2946)*X(218)-JVS(2947)*X(226)-JVS(2948)*X(228)& + &-JVS(2949)*X(231)-JVS(2950)*X(233)-JVS(2951)*X(235)-JVS(2952)*X(245)-JVS(2953)*X(246)-JVS(2954)*X(251)& + &-JVS(2955)*X(257)-JVS(2956)*X(259)-JVS(2957)*X(260)-JVS(2958)*X(262)-JVS(2959)*X(264)-JVS(2960)*X(270)& + &-JVS(2961)*X(271)-JVS(2962)*X(273)-JVS(2963)*X(275)-JVS(2964)*X(276)-JVS(2965)*X(278)-JVS(2966)*X(279)& + &-JVS(2967)*X(280)-JVS(2968)*X(281)-JVS(2969)*X(282)-JVS(2970)*X(284)-JVS(2971)*X(288)-JVS(2972)*X(289)& + &-JVS(2973)*X(290)-JVS(2974)*X(292)-JVS(2975)*X(293)-JVS(2976)*X(294)-JVS(2977)*X(299)-JVS(2978)*X(303)& + &-JVS(2979)*X(305)-JVS(2980)*X(307)-JVS(2981)*X(308)-JVS(2982)*X(310) IF (DO_SLV(312)) & - X(312) = X(312)-JVS(3038)*X(109)-JVS(3039)*X(191)-JVS(3040)*X(220)-JVS(3041)*X(233)-JVS(3042)*X(255)-JVS(3043)*X(276)& - &-JVS(3044)*X(281)-JVS(3045)*X(290)-JVS(3046)*X(309)-JVS(3047)*X(310)-JVS(3048)*X(311) + X(312) = X(312)-JVS(3000)*X(251)-JVS(3001)*X(257)-JVS(3002)*X(279)-JVS(3003)*X(305)-JVS(3004)*X(307)-JVS(3005)*X(308)& + &-JVS(3006)*X(310) IF (DO_SLV(313)) & - X(313) = X(313)-JVS(3064)*X(244)-JVS(3065)*X(271)-JVS(3066)*X(276)-JVS(3067)*X(287)-JVS(3068)*X(295)-JVS(3069)*X(300)& - &-JVS(3070)*X(301)-JVS(3071)*X(303)-JVS(3072)*X(304)-JVS(3073)*X(305)-JVS(3074)*X(309)-JVS(3075)*X(310)& - &-JVS(3076)*X(311) + X(313) = X(313)-JVS(3020)*X(136)-JVS(3021)*X(151)-JVS(3022)*X(177)-JVS(3023)*X(195)-JVS(3024)*X(202)-JVS(3025)*X(225)& + &-JVS(3026)*X(231)-JVS(3027)*X(279)-JVS(3028)*X(303)-JVS(3029)*X(307)-JVS(3030)*X(308)-JVS(3031)*X(310) IF (DO_SLV(314)) & - X(314) = X(314)-JVS(3092)*X(82)-JVS(3093)*X(101)-JVS(3094)*X(133)-JVS(3095)*X(150)-JVS(3096)*X(175)-JVS(3097)*X(187)& - &-JVS(3098)*X(209)-JVS(3099)*X(219)-JVS(3100)*X(222)-JVS(3101)*X(229)-JVS(3102)*X(230)-JVS(3103)*X(262)& - &-JVS(3104)*X(276)-JVS(3105)*X(291)-JVS(3106)*X(299)-JVS(3107)*X(303)-JVS(3108)*X(304)-JVS(3109)*X(305)& - &-JVS(3110)*X(310)-JVS(3111)*X(311) + X(314) = X(314)-JVS(3043)*X(188)-JVS(3044)*X(191)-JVS(3045)*X(213)-JVS(3046)*X(279)-JVS(3047)*X(310) IF (DO_SLV(315)) & - X(315) = X(315)-JVS(3121)*X(118)-JVS(3122)*X(251)-JVS(3123)*X(279)-JVS(3124)*X(292)-JVS(3125)*X(296)-JVS(3126)*X(298)& - &-JVS(3127)*X(300)-JVS(3128)*X(314) + X(315) = X(315)-JVS(3058)*X(188)-JVS(3059)*X(195)-JVS(3060)*X(202)-JVS(3061)*X(279)-JVS(3062)*X(310)-JVS(3063)*X(314) IF (DO_SLV(316)) & - X(316) = X(316)-JVS(3146)*X(148)-JVS(3147)*X(218) + X(316) = X(316)-JVS(3073)*X(247)-JVS(3074)*X(273)-JVS(3075)*X(279)-JVS(3076)*X(290)-JVS(3077)*X(297)-JVS(3078)*X(304)& + &-JVS(3079)*X(305)-JVS(3080)*X(307)-JVS(3081)*X(308)-JVS(3082)*X(310)-JVS(3083)*X(313)-JVS(3084)*X(314)& + &-JVS(3085)*X(315) +IF (DO_SLV(317)) & + X(317) = X(317)-JVS(3101)*X(120)-JVS(3102)*X(194)-JVS(3103)*X(223)-JVS(3104)*X(229)-JVS(3105)*X(256)-JVS(3106)*X(279)& + &-JVS(3107)*X(284)-JVS(3108)*X(293)-JVS(3109)*X(313)-JVS(3110)*X(314)-JVS(3111)*X(315) IF (DO_SLV(318)) & - X(318) = X(318)-JVS(3177)*X(251)-JVS(3178)*X(269) + X(318) = X(318)-JVS(3127)*X(85)-JVS(3128)*X(103)-JVS(3129)*X(137)-JVS(3130)*X(150)-JVS(3131)*X(175)-JVS(3132)*X(191)& + &-JVS(3133)*X(213)-JVS(3134)*X(222)-JVS(3135)*X(225)-JVS(3136)*X(233)-JVS(3137)*X(234)-JVS(3138)*X(263)& + &-JVS(3139)*X(279)-JVS(3140)*X(294)-JVS(3141)*X(303)-JVS(3142)*X(307)-JVS(3143)*X(308)-JVS(3144)*X(310)& + &-JVS(3145)*X(314)-JVS(3146)*X(315) IF (DO_SLV(319)) & - X(319) = X(319)-JVS(3190)*X(97)-JVS(3191)*X(130)-JVS(3192)*X(142)-JVS(3193)*X(161)-JVS(3194)*X(162)-JVS(3195)*X(169)& - &-JVS(3196)*X(178)-JVS(3197)*X(249)-JVS(3198)*X(272)-JVS(3199)*X(273)-JVS(3200)*X(274)-JVS(3201)*X(275)& - &-JVS(3202)*X(279)-JVS(3203)*X(281)-JVS(3204)*X(300)-JVS(3205)*X(318) + X(319) = X(319)-JVS(3156)*X(121)-JVS(3157)*X(255)-JVS(3158)*X(283)-JVS(3159)*X(295)-JVS(3160)*X(300)-JVS(3161)*X(302)& + &-JVS(3162)*X(304)-JVS(3163)*X(318) IF (DO_SLV(320)) & - X(320) = X(320)-JVS(3217)*X(219)-JVS(3218)*X(292)-JVS(3219)*X(300)-JVS(3220)*X(318)-JVS(3221)*X(319) -IF (DO_SLV(321)) & - X(321) = X(321)-JVS(3232)*X(99)-JVS(3233)*X(141)-JVS(3234)*X(251)-JVS(3235)*X(279)-JVS(3236)*X(292)-JVS(3237)*X(298)& - &-JVS(3238)*X(300)-JVS(3239)*X(314)-JVS(3240)*X(318)-JVS(3241)*X(319)-JVS(3242)*X(320) + X(320) = X(320)-JVS(3181)*X(153)-JVS(3182)*X(221) IF (DO_SLV(322)) & - X(322) = X(322)-JVS(3256)*X(124)-JVS(3257)*X(155)-JVS(3258)*X(160)-JVS(3259)*X(176)-JVS(3260)*X(196)-JVS(3261)*X(201)& - &-JVS(3262)*X(221)-JVS(3263)*X(240)-JVS(3264)*X(246)-JVS(3265)*X(269)-JVS(3266)*X(277)-JVS(3267)*X(278)& - &-JVS(3268)*X(292)-JVS(3269)*X(298)-JVS(3270)*X(300)-JVS(3271)*X(314)-JVS(3272)*X(318)-JVS(3273)*X(319)& - &-JVS(3274)*X(320)-JVS(3275)*X(321) + X(322) = X(322)-JVS(3212)*X(255)-JVS(3213)*X(272) IF (DO_SLV(323)) & - X(323) = X(323)-JVS(3288)*X(100)-JVS(3289)*X(141)-JVS(3290)*X(251)-JVS(3291)*X(279)-JVS(3292)*X(292)-JVS(3293)*X(298)& - &-JVS(3294)*X(300)-JVS(3295)*X(314)-JVS(3296)*X(318)-JVS(3297)*X(319)-JVS(3298)*X(320)-JVS(3299)*X(321)& - &-JVS(3300)*X(322) + X(323) = X(323)-JVS(3225)*X(99)-JVS(3226)*X(134)-JVS(3227)*X(144)-JVS(3228)*X(164)-JVS(3229)*X(165)-JVS(3230)*X(171)& + &-JVS(3231)*X(182)-JVS(3232)*X(252)-JVS(3233)*X(275)-JVS(3234)*X(276)-JVS(3235)*X(277)-JVS(3236)*X(278)& + &-JVS(3237)*X(283)-JVS(3238)*X(284)-JVS(3239)*X(304)-JVS(3240)*X(322) IF (DO_SLV(324)) & - X(324) = X(324)-JVS(3312)*X(92)-JVS(3313)*X(107)-JVS(3314)*X(115)-JVS(3315)*X(122)-JVS(3316)*X(130)-JVS(3317)*X(139)& - &-JVS(3318)*X(146)-JVS(3319)*X(159)-JVS(3320)*X(169)-JVS(3321)*X(184)-JVS(3322)*X(185)-JVS(3323)*X(194)& - &-JVS(3324)*X(196)-JVS(3325)*X(200)-JVS(3326)*X(208)-JVS(3327)*X(209)-JVS(3328)*X(227)-JVS(3329)*X(230)& - &-JVS(3330)*X(231)-JVS(3331)*X(240)-JVS(3332)*X(243)-JVS(3333)*X(244)-JVS(3334)*X(247)-JVS(3335)*X(249)& - &-JVS(3336)*X(250)-JVS(3337)*X(254)-JVS(3338)*X(257)-JVS(3339)*X(258)-JVS(3340)*X(259)-JVS(3341)*X(260)& - &-JVS(3342)*X(261)-JVS(3343)*X(263)-JVS(3344)*X(267)-JVS(3345)*X(268)-JVS(3346)*X(271)-JVS(3347)*X(272)& - &-JVS(3348)*X(274)-JVS(3349)*X(275)-JVS(3350)*X(276)-JVS(3351)*X(277)-JVS(3352)*X(278)-JVS(3353)*X(279)& - &-JVS(3354)*X(280)-JVS(3355)*X(281)-JVS(3356)*X(285)-JVS(3357)*X(286)-JVS(3358)*X(287)-JVS(3359)*X(288)& - &-JVS(3360)*X(289)-JVS(3361)*X(290)-JVS(3362)*X(291)-JVS(3363)*X(292)-JVS(3364)*X(293)-JVS(3365)*X(294)& - &-JVS(3366)*X(295)-JVS(3367)*X(296)-JVS(3368)*X(299)-JVS(3369)*X(300)-JVS(3370)*X(301)-JVS(3371)*X(302)& - &-JVS(3372)*X(303)-JVS(3373)*X(304)-JVS(3374)*X(305)-JVS(3375)*X(307)-JVS(3376)*X(308)-JVS(3377)*X(309)& - &-JVS(3378)*X(310)-JVS(3379)*X(311)-JVS(3380)*X(313)-JVS(3381)*X(314)-JVS(3382)*X(315)-JVS(3383)*X(318)& - &-JVS(3384)*X(319)-JVS(3385)*X(320)-JVS(3386)*X(321)-JVS(3387)*X(322)-JVS(3388)*X(323) + X(324) = X(324)-JVS(3252)*X(222)-JVS(3253)*X(295)-JVS(3254)*X(304)-JVS(3255)*X(322)-JVS(3256)*X(323) IF (DO_SLV(325)) & - X(325) = X(325)-JVS(3400)*X(72)-JVS(3401)*X(80)-JVS(3402)*X(88)-JVS(3403)*X(89)-JVS(3404)*X(92)-JVS(3405)*X(93)& - &-JVS(3406)*X(94)-JVS(3407)*X(106)-JVS(3408)*X(109)-JVS(3409)*X(112)-JVS(3410)*X(114)-JVS(3411)*X(122)& - &-JVS(3412)*X(123)-JVS(3413)*X(127)-JVS(3414)*X(130)-JVS(3415)*X(136)-JVS(3416)*X(137)-JVS(3417)*X(138)& - &-JVS(3418)*X(139)-JVS(3419)*X(140)-JVS(3420)*X(146)-JVS(3421)*X(149)-JVS(3422)*X(159)-JVS(3423)*X(160)& - &-JVS(3424)*X(164)-JVS(3425)*X(165)-JVS(3426)*X(168)-JVS(3427)*X(169)-JVS(3428)*X(175)-JVS(3429)*X(176)& - &-JVS(3430)*X(187)-JVS(3431)*X(190)-JVS(3432)*X(191)-JVS(3433)*X(192)-JVS(3434)*X(196)-JVS(3435)*X(197)& - &-JVS(3436)*X(199)-JVS(3437)*X(200)-JVS(3438)*X(205)-JVS(3439)*X(206)-JVS(3440)*X(207)-JVS(3441)*X(208)& - &-JVS(3442)*X(209)-JVS(3443)*X(210)-JVS(3444)*X(211)-JVS(3445)*X(212)-JVS(3446)*X(213)-JVS(3447)*X(215)& - &-JVS(3448)*X(219)-JVS(3449)*X(220)-JVS(3450)*X(222)-JVS(3451)*X(223)-JVS(3452)*X(224)-JVS(3453)*X(226)& - &-JVS(3454)*X(228)-JVS(3455)*X(229)-JVS(3456)*X(230)-JVS(3457)*X(231)-JVS(3458)*X(233)-JVS(3459)*X(234)& - &-JVS(3460)*X(235)-JVS(3461)*X(236)-JVS(3462)*X(240)-JVS(3463)*X(243)-JVS(3464)*X(244)-JVS(3465)*X(246)& - &-JVS(3466)*X(247)-JVS(3467)*X(249)-JVS(3468)*X(250)-JVS(3469)*X(253)-JVS(3470)*X(254)-JVS(3471)*X(255)& - &-JVS(3472)*X(257)-JVS(3473)*X(258)-JVS(3474)*X(259)-JVS(3475)*X(260)-JVS(3476)*X(261)-JVS(3477)*X(262)& - &-JVS(3478)*X(263)-JVS(3479)*X(267)-JVS(3480)*X(268)-JVS(3481)*X(270)-JVS(3482)*X(271)-JVS(3483)*X(272)& - &-JVS(3484)*X(273)-JVS(3485)*X(274)-JVS(3486)*X(275)-JVS(3487)*X(276)-JVS(3488)*X(277)-JVS(3489)*X(278)& - &-JVS(3490)*X(279)-JVS(3491)*X(280)-JVS(3492)*X(281)-JVS(3493)*X(282)-JVS(3494)*X(285)-JVS(3495)*X(286)& - &-JVS(3496)*X(287)-JVS(3497)*X(288)-JVS(3498)*X(289)-JVS(3499)*X(290)-JVS(3500)*X(291)-JVS(3501)*X(293)& - &-JVS(3502)*X(296)-JVS(3503)*X(299)-JVS(3504)*X(300)-JVS(3505)*X(301)-JVS(3506)*X(302)-JVS(3507)*X(303)& - &-JVS(3508)*X(304)-JVS(3509)*X(305)-JVS(3510)*X(306)-JVS(3511)*X(307)-JVS(3512)*X(308)-JVS(3513)*X(309)& - &-JVS(3514)*X(310)-JVS(3515)*X(311)-JVS(3516)*X(312)-JVS(3517)*X(313)-JVS(3518)*X(314)-JVS(3519)*X(315)& - &-JVS(3520)*X(318)-JVS(3521)*X(319)-JVS(3522)*X(320)-JVS(3523)*X(321)-JVS(3524)*X(322)-JVS(3525)*X(323)& - &-JVS(3526)*X(324) + X(325) = X(325)-JVS(3267)*X(127)-JVS(3268)*X(158)-JVS(3269)*X(163)-JVS(3270)*X(179)-JVS(3271)*X(200)-JVS(3272)*X(204)& + &-JVS(3273)*X(224)-JVS(3274)*X(243)-JVS(3275)*X(250)-JVS(3276)*X(272)-JVS(3277)*X(281)-JVS(3278)*X(282)& + &-JVS(3279)*X(295)-JVS(3280)*X(302)-JVS(3281)*X(304)-JVS(3282)*X(318)-JVS(3283)*X(322)-JVS(3284)*X(323)& + &-JVS(3285)*X(324) IF (DO_SLV(326)) & - X(326) = X(326)-JVS(3544)*X(83)-JVS(3545)*X(118)-JVS(3546)*X(123)-JVS(3547)*X(124)-JVS(3548)*X(149)-JVS(3549)*X(155)& - &-JVS(3550)*X(156)-JVS(3551)*X(165)-JVS(3552)*X(196)-JVS(3553)*X(240)-JVS(3554)*X(241)-JVS(3555)*X(246)& - &-JVS(3556)*X(249)-JVS(3557)*X(250)-JVS(3558)*X(251)-JVS(3559)*X(260)-JVS(3560)*X(279)-JVS(3561)*X(290)& - &-JVS(3562)*X(296)-JVS(3563)*X(300)-JVS(3564)*X(314)-JVS(3565)*X(315)-JVS(3566)*X(318)-JVS(3567)*X(319)& - &-JVS(3568)*X(320)-JVS(3569)*X(321)-JVS(3570)*X(322)-JVS(3571)*X(323)-JVS(3572)*X(324) + X(326) = X(326)-JVS(3299)*X(101)-JVS(3300)*X(142)-JVS(3301)*X(255)-JVS(3302)*X(283)-JVS(3303)*X(295)-JVS(3304)*X(302)& + &-JVS(3305)*X(304)-JVS(3306)*X(318)-JVS(3307)*X(322)-JVS(3308)*X(323)-JVS(3309)*X(324)-JVS(3310)*X(325) IF (DO_SLV(327)) & - X(327) = X(327)-JVS(3586)*X(45)-JVS(3587)*X(69)-JVS(3588)*X(94)-JVS(3589)*X(103)-JVS(3590)*X(142)-JVS(3591)*X(149)& - &-JVS(3592)*X(154)-JVS(3593)*X(158)-JVS(3594)*X(166)-JVS(3595)*X(168)-JVS(3596)*X(175)-JVS(3597)*X(179)& - &-JVS(3598)*X(183)-JVS(3599)*X(186)-JVS(3600)*X(195)-JVS(3601)*X(200)-JVS(3602)*X(202)-JVS(3603)*X(204)& - &-JVS(3604)*X(214)-JVS(3605)*X(216)-JVS(3606)*X(218)-JVS(3607)*X(220)-JVS(3608)*X(222)-JVS(3609)*X(225)& - &-JVS(3610)*X(226)-JVS(3611)*X(242)-JVS(3612)*X(248)-JVS(3613)*X(251)-JVS(3614)*X(253)-JVS(3615)*X(256)& - &-JVS(3616)*X(261)-JVS(3617)*X(266)-JVS(3618)*X(267)-JVS(3619)*X(268)-JVS(3620)*X(269)-JVS(3621)*X(270)& - &-JVS(3622)*X(271)-JVS(3623)*X(272)-JVS(3624)*X(273)-JVS(3625)*X(275)-JVS(3626)*X(276)-JVS(3627)*X(277)& - &-JVS(3628)*X(278)-JVS(3629)*X(280)-JVS(3630)*X(281)-JVS(3631)*X(285)-JVS(3632)*X(286)-JVS(3633)*X(288)& - &-JVS(3634)*X(289)-JVS(3635)*X(291)-JVS(3636)*X(292)-JVS(3637)*X(293)-JVS(3638)*X(294)-JVS(3639)*X(298)& - &-JVS(3640)*X(299)-JVS(3641)*X(300)-JVS(3642)*X(301)-JVS(3643)*X(302)-JVS(3644)*X(303)-JVS(3645)*X(304)& - &-JVS(3646)*X(305)-JVS(3647)*X(306)-JVS(3648)*X(307)-JVS(3649)*X(308)-JVS(3650)*X(309)-JVS(3651)*X(310)& - &-JVS(3652)*X(311)-JVS(3653)*X(313)-JVS(3654)*X(314)-JVS(3655)*X(317)-JVS(3656)*X(318)-JVS(3657)*X(319)& - &-JVS(3658)*X(320)-JVS(3659)*X(321)-JVS(3660)*X(322)-JVS(3661)*X(323)-JVS(3662)*X(324)-JVS(3663)*X(325)& - &-JVS(3664)*X(326) + X(327) = X(327)-JVS(3323)*X(102)-JVS(3324)*X(142)-JVS(3325)*X(255)-JVS(3326)*X(283)-JVS(3327)*X(295)-JVS(3328)*X(302)& + &-JVS(3329)*X(304)-JVS(3330)*X(318)-JVS(3331)*X(322)-JVS(3332)*X(323)-JVS(3333)*X(324)-JVS(3334)*X(325)& + &-JVS(3335)*X(326) IF (DO_SLV(328)) & - X(328) = X(328)-JVS(3689)*X(52)-JVS(3690)*X(80)-JVS(3691)*X(92)-JVS(3692)*X(94)-JVS(3693)*X(105)-JVS(3694)*X(139)& - &-JVS(3695)*X(155)-JVS(3696)*X(159)-JVS(3697)*X(164)-JVS(3698)*X(181)-JVS(3699)*X(228)-JVS(3700)*X(234)& - &-JVS(3701)*X(235)-JVS(3702)*X(236)-JVS(3703)*X(240)-JVS(3704)*X(246)-JVS(3705)*X(249)-JVS(3706)*X(250)& - &-JVS(3707)*X(251)-JVS(3708)*X(257)-JVS(3709)*X(259)-JVS(3710)*X(260)-JVS(3711)*X(263)-JVS(3712)*X(272)& - &-JVS(3713)*X(273)-JVS(3714)*X(274)-JVS(3715)*X(275)-JVS(3716)*X(276)-JVS(3717)*X(277)-JVS(3718)*X(278)& - &-JVS(3719)*X(279)-JVS(3720)*X(280)-JVS(3721)*X(281)-JVS(3722)*X(283)-JVS(3723)*X(289)-JVS(3724)*X(290)& - &-JVS(3725)*X(291)-JVS(3726)*X(292)-JVS(3727)*X(295)-JVS(3728)*X(296)-JVS(3729)*X(300)-JVS(3730)*X(304)& - &-JVS(3731)*X(305)-JVS(3732)*X(307)-JVS(3733)*X(308)-JVS(3734)*X(309)-JVS(3735)*X(310)-JVS(3736)*X(311)& - &-JVS(3737)*X(313)-JVS(3738)*X(314)-JVS(3739)*X(315)-JVS(3740)*X(318)-JVS(3741)*X(319)-JVS(3742)*X(320)& - &-JVS(3743)*X(321)-JVS(3744)*X(322)-JVS(3745)*X(323)-JVS(3746)*X(324)-JVS(3747)*X(326) + X(328) = X(328)-JVS(3347)*X(95)-JVS(3348)*X(109)-JVS(3349)*X(116)-JVS(3350)*X(125)-JVS(3351)*X(134)-JVS(3352)*X(143)& + &-JVS(3353)*X(152)-JVS(3354)*X(161)-JVS(3355)*X(171)-JVS(3356)*X(189)-JVS(3357)*X(190)-JVS(3358)*X(197)& + &-JVS(3359)*X(200)-JVS(3360)*X(203)-JVS(3361)*X(211)-JVS(3362)*X(213)-JVS(3363)*X(230)-JVS(3364)*X(231)& + &-JVS(3365)*X(233)-JVS(3366)*X(243)-JVS(3367)*X(245)-JVS(3368)*X(247)-JVS(3369)*X(249)-JVS(3370)*X(252)& + &-JVS(3371)*X(253)-JVS(3372)*X(258)-JVS(3373)*X(259)-JVS(3374)*X(261)-JVS(3375)*X(262)-JVS(3376)*X(264)& + &-JVS(3377)*X(265)-JVS(3378)*X(266)-JVS(3379)*X(270)-JVS(3380)*X(271)-JVS(3381)*X(273)-JVS(3382)*X(276)& + &-JVS(3383)*X(277)-JVS(3384)*X(278)-JVS(3385)*X(279)-JVS(3386)*X(280)-JVS(3387)*X(281)-JVS(3388)*X(282)& + &-JVS(3389)*X(283)-JVS(3390)*X(284)-JVS(3391)*X(288)-JVS(3392)*X(289)-JVS(3393)*X(290)-JVS(3394)*X(291)& + &-JVS(3395)*X(292)-JVS(3396)*X(293)-JVS(3397)*X(294)-JVS(3398)*X(295)-JVS(3399)*X(297)-JVS(3400)*X(298)& + &-JVS(3401)*X(299)-JVS(3402)*X(300)-JVS(3403)*X(303)-JVS(3404)*X(304)-JVS(3405)*X(305)-JVS(3406)*X(306)& + &-JVS(3407)*X(307)-JVS(3408)*X(308)-JVS(3409)*X(310)-JVS(3410)*X(311)-JVS(3411)*X(312)-JVS(3412)*X(313)& + &-JVS(3413)*X(314)-JVS(3414)*X(315)-JVS(3415)*X(316)-JVS(3416)*X(318)-JVS(3417)*X(319)-JVS(3418)*X(322)& + &-JVS(3419)*X(323)-JVS(3420)*X(324)-JVS(3421)*X(325)-JVS(3422)*X(326)-JVS(3423)*X(327) IF (DO_SLV(329)) & - X(329) = X(329)-JVS(3762)*X(60)-JVS(3763)*X(68)-JVS(3764)*X(75)-JVS(3765)*X(79)-JVS(3766)*X(82)-JVS(3767)*X(101)& - &-JVS(3768)*X(107)-JVS(3769)*X(113)-JVS(3770)*X(114)-JVS(3771)*X(119)-JVS(3772)*X(122)-JVS(3773)*X(124)& - &-JVS(3774)*X(126)-JVS(3775)*X(127)-JVS(3776)*X(132)-JVS(3777)*X(139)-JVS(3778)*X(143)-JVS(3779)*X(144)& - &-JVS(3780)*X(146)-JVS(3781)*X(147)-JVS(3782)*X(150)-JVS(3783)*X(153)-JVS(3784)*X(159)-JVS(3785)*X(167)& - &-JVS(3786)*X(181)-JVS(3787)*X(182)-JVS(3788)*X(184)-JVS(3789)*X(185)-JVS(3790)*X(187)-JVS(3791)*X(191)& - &-JVS(3792)*X(192)-JVS(3793)*X(194)-JVS(3794)*X(197)-JVS(3795)*X(199)-JVS(3796)*X(200)-JVS(3797)*X(201)& - &-JVS(3798)*X(204)-JVS(3799)*X(208)-JVS(3800)*X(209)-JVS(3801)*X(210)-JVS(3802)*X(212)-JVS(3803)*X(213)& - &-JVS(3804)*X(215)-JVS(3805)*X(216)-JVS(3806)*X(220)-JVS(3807)*X(221)-JVS(3808)*X(223)-JVS(3809)*X(225)& - &-JVS(3810)*X(226)-JVS(3811)*X(227)-JVS(3812)*X(230)-JVS(3813)*X(231)-JVS(3814)*X(233)-JVS(3815)*X(238)& - &-JVS(3816)*X(240)-JVS(3817)*X(241)-JVS(3818)*X(243)-JVS(3819)*X(246)-JVS(3820)*X(248)-JVS(3821)*X(253)& - &-JVS(3822)*X(254)-JVS(3823)*X(255)-JVS(3824)*X(258)-JVS(3825)*X(259)-JVS(3826)*X(261)-JVS(3827)*X(266)& - &-JVS(3828)*X(267)-JVS(3829)*X(268)-JVS(3830)*X(269)-JVS(3831)*X(270)-JVS(3832)*X(271)-JVS(3833)*X(276)& - &-JVS(3834)*X(277)-JVS(3835)*X(281)-JVS(3836)*X(285)-JVS(3837)*X(286)-JVS(3838)*X(287)-JVS(3839)*X(288)& - &-JVS(3840)*X(290)-JVS(3841)*X(293)-JVS(3842)*X(294)-JVS(3843)*X(295)-JVS(3844)*X(298)-JVS(3845)*X(299)& - &-JVS(3846)*X(300)-JVS(3847)*X(301)-JVS(3848)*X(302)-JVS(3849)*X(303)-JVS(3850)*X(304)-JVS(3851)*X(305)& - &-JVS(3852)*X(306)-JVS(3853)*X(307)-JVS(3854)*X(308)-JVS(3855)*X(309)-JVS(3856)*X(310)-JVS(3857)*X(311)& - &-JVS(3858)*X(312)-JVS(3859)*X(313)-JVS(3860)*X(314)-JVS(3861)*X(318)-JVS(3862)*X(319)-JVS(3863)*X(320)& - &-JVS(3864)*X(321)-JVS(3865)*X(322)-JVS(3866)*X(323)-JVS(3867)*X(324)-JVS(3868)*X(325)-JVS(3869)*X(326)& - &-JVS(3870)*X(328) + X(329) = X(329)-JVS(3435)*X(74)-JVS(3436)*X(83)-JVS(3437)*X(87)-JVS(3438)*X(92)-JVS(3439)*X(93)-JVS(3440)*X(95)& + &-JVS(3441)*X(96)-JVS(3442)*X(112)-JVS(3443)*X(114)-JVS(3444)*X(115)-JVS(3445)*X(120)-JVS(3446)*X(125)& + &-JVS(3447)*X(126)-JVS(3448)*X(130)-JVS(3449)*X(134)-JVS(3450)*X(138)-JVS(3451)*X(139)-JVS(3452)*X(140)& + &-JVS(3453)*X(141)-JVS(3454)*X(143)-JVS(3455)*X(148)-JVS(3456)*X(152)-JVS(3457)*X(161)-JVS(3458)*X(163)& + &-JVS(3459)*X(167)-JVS(3460)*X(168)-JVS(3461)*X(171)-JVS(3462)*X(175)-JVS(3463)*X(177)-JVS(3464)*X(179)& + &-JVS(3465)*X(186)-JVS(3466)*X(191)-JVS(3467)*X(194)-JVS(3468)*X(195)-JVS(3469)*X(200)-JVS(3470)*X(201)& + &-JVS(3471)*X(202)-JVS(3472)*X(203)-JVS(3473)*X(208)-JVS(3474)*X(209)-JVS(3475)*X(210)-JVS(3476)*X(211)& + &-JVS(3477)*X(212)-JVS(3478)*X(213)-JVS(3479)*X(214)-JVS(3480)*X(215)-JVS(3481)*X(216)-JVS(3482)*X(218)& + &-JVS(3483)*X(222)-JVS(3484)*X(223)-JVS(3485)*X(225)-JVS(3486)*X(226)-JVS(3487)*X(228)-JVS(3488)*X(229)& + &-JVS(3489)*X(231)-JVS(3490)*X(232)-JVS(3491)*X(233)-JVS(3492)*X(234)-JVS(3493)*X(236)-JVS(3494)*X(237)& + &-JVS(3495)*X(238)-JVS(3496)*X(239)-JVS(3497)*X(243)-JVS(3498)*X(245)-JVS(3499)*X(247)-JVS(3500)*X(249)& + &-JVS(3501)*X(250)-JVS(3502)*X(252)-JVS(3503)*X(253)-JVS(3504)*X(256)-JVS(3505)*X(257)-JVS(3506)*X(258)& + &-JVS(3507)*X(259)-JVS(3508)*X(261)-JVS(3509)*X(262)-JVS(3510)*X(263)-JVS(3511)*X(264)-JVS(3512)*X(265)& + &-JVS(3513)*X(266)-JVS(3514)*X(270)-JVS(3515)*X(271)-JVS(3516)*X(273)-JVS(3517)*X(274)-JVS(3518)*X(275)& + &-JVS(3519)*X(276)-JVS(3520)*X(277)-JVS(3521)*X(278)-JVS(3522)*X(279)-JVS(3523)*X(280)-JVS(3524)*X(281)& + &-JVS(3525)*X(282)-JVS(3526)*X(283)-JVS(3527)*X(284)-JVS(3528)*X(285)-JVS(3529)*X(288)-JVS(3530)*X(289)& + &-JVS(3531)*X(290)-JVS(3532)*X(291)-JVS(3533)*X(292)-JVS(3534)*X(293)-JVS(3535)*X(294)-JVS(3536)*X(299)& + &-JVS(3537)*X(300)-JVS(3538)*X(303)-JVS(3539)*X(304)-JVS(3540)*X(305)-JVS(3541)*X(306)-JVS(3542)*X(307)& + &-JVS(3543)*X(308)-JVS(3544)*X(309)-JVS(3545)*X(310)-JVS(3546)*X(311)-JVS(3547)*X(312)-JVS(3548)*X(313)& + &-JVS(3549)*X(314)-JVS(3550)*X(315)-JVS(3551)*X(316)-JVS(3552)*X(317)-JVS(3553)*X(318)-JVS(3554)*X(319)& + &-JVS(3555)*X(322)-JVS(3556)*X(323)-JVS(3557)*X(324)-JVS(3558)*X(325)-JVS(3559)*X(326)-JVS(3560)*X(327)& + &-JVS(3561)*X(328) IF (DO_SLV(330)) & - X(330) = X(330)-JVS(3885)*X(170)-JVS(3886)*X(252)-JVS(3887)*X(284) + X(330) = X(330)-JVS(3579)*X(86)-JVS(3580)*X(121)-JVS(3581)*X(126)-JVS(3582)*X(127)-JVS(3583)*X(148)-JVS(3584)*X(154)& + &-JVS(3585)*X(158)-JVS(3586)*X(168)-JVS(3587)*X(200)-JVS(3588)*X(243)-JVS(3589)*X(244)-JVS(3590)*X(250)& + &-JVS(3591)*X(252)-JVS(3592)*X(253)-JVS(3593)*X(255)-JVS(3594)*X(264)-JVS(3595)*X(283)-JVS(3596)*X(293)& + &-JVS(3597)*X(300)-JVS(3598)*X(304)-JVS(3599)*X(318)-JVS(3600)*X(319)-JVS(3601)*X(322)-JVS(3602)*X(323)& + &-JVS(3603)*X(324)-JVS(3604)*X(325)-JVS(3605)*X(326)-JVS(3606)*X(327)-JVS(3607)*X(328) IF (DO_SLV(331)) & - X(331) = X(331)-JVS(3904)*X(1)-JVS(3905)*X(2)-JVS(3906)*X(3)-JVS(3907)*X(44)-JVS(3908)*X(52)-JVS(3909)*X(62)-JVS(3910)& - &*X(73)-JVS(3911)*X(77)-JVS(3912)*X(96)-JVS(3913)*X(104)-JVS(3914)*X(170)-JVS(3915)*X(252)-JVS(3916)*X(284)& - &-JVS(3917)*X(330) + X(331) = X(331)-JVS(3621)*X(1)-JVS(3622)*X(2)-JVS(3623)*X(3)-JVS(3624)*X(47)-JVS(3625)*X(55)-JVS(3626)*X(65)-JVS(3627)& + &*X(75)-JVS(3628)*X(81)-JVS(3629)*X(98)-JVS(3630)*X(107)-JVS(3631)*X(172)-JVS(3632)*X(254)-JVS(3633)*X(287)& + &-JVS(3634)*X(296) IF (DO_SLV(332)) & - X(332) = X(332)-JVS(3933)*X(170)-JVS(3934)*X(252)-JVS(3935)*X(284)-JVS(3936)*X(330)-JVS(3937)*X(331) + X(332) = X(332)-JVS(3650)*X(78)-JVS(3651)*X(123)-JVS(3652)*X(248)-JVS(3653)*X(301)-JVS(3654)*X(321) IF (DO_SLV(333)) & - X(333) = X(333)-JVS(3952)*X(76)-JVS(3953)*X(120)-JVS(3954)*X(245)-JVS(3955)*X(284)-JVS(3956)*X(297)-JVS(3957)*X(317)& - &-JVS(3958)*X(328)-JVS(3959)*X(329)-JVS(3960)*X(330)-JVS(3961)*X(331)-JVS(3962)*X(332) + X(333) = X(333)-JVS(3675)*X(48)-JVS(3676)*X(72)-JVS(3677)*X(87)-JVS(3678)*X(106)-JVS(3679)*X(144)-JVS(3680)*X(148)& + &-JVS(3681)*X(156)-JVS(3682)*X(162)-JVS(3683)*X(169)-JVS(3684)*X(175)-JVS(3685)*X(177)-JVS(3686)*X(183)& + &-JVS(3687)*X(187)-JVS(3688)*X(188)-JVS(3689)*X(199)-JVS(3690)*X(203)-JVS(3691)*X(205)-JVS(3692)*X(207)& + &-JVS(3693)*X(217)-JVS(3694)*X(220)-JVS(3695)*X(221)-JVS(3696)*X(223)-JVS(3697)*X(225)-JVS(3698)*X(227)& + &-JVS(3699)*X(236)-JVS(3700)*X(246)-JVS(3701)*X(251)-JVS(3702)*X(255)-JVS(3703)*X(257)-JVS(3704)*X(260)& + &-JVS(3705)*X(265)-JVS(3706)*X(269)-JVS(3707)*X(270)-JVS(3708)*X(271)-JVS(3709)*X(272)-JVS(3710)*X(273)& + &-JVS(3711)*X(274)-JVS(3712)*X(275)-JVS(3713)*X(276)-JVS(3714)*X(278)-JVS(3715)*X(279)-JVS(3716)*X(280)& + &-JVS(3717)*X(281)-JVS(3718)*X(282)-JVS(3719)*X(284)-JVS(3720)*X(288)-JVS(3721)*X(289)-JVS(3722)*X(291)& + &-JVS(3723)*X(292)-JVS(3724)*X(294)-JVS(3725)*X(295)-JVS(3726)*X(296)-JVS(3727)*X(298)-JVS(3728)*X(299)& + &-JVS(3729)*X(302)-JVS(3730)*X(303)-JVS(3731)*X(304)-JVS(3732)*X(305)-JVS(3733)*X(306)-JVS(3734)*X(307)& + &-JVS(3735)*X(308)-JVS(3736)*X(309)-JVS(3737)*X(310)-JVS(3738)*X(311)-JVS(3739)*X(312)-JVS(3740)*X(313)& + &-JVS(3741)*X(314)-JVS(3742)*X(315)-JVS(3743)*X(316)-JVS(3744)*X(318)-JVS(3745)*X(321)-JVS(3746)*X(322)& + &-JVS(3747)*X(323)-JVS(3748)*X(324)-JVS(3749)*X(326)-JVS(3750)*X(327)-JVS(3751)*X(328)-JVS(3752)*X(329)& + &-JVS(3753)*X(330)-JVS(3754)*X(331) IF (DO_SLV(334)) & - X(334) = X(334)-JVS(3984)*X(46)-JVS(3985)*X(47)-JVS(3986)*X(48)-JVS(3987)*X(49)-JVS(3988)*X(50)-JVS(3989)*X(51)& - &-JVS(3990)*X(53)-JVS(3991)*X(54)-JVS(3992)*X(61)-JVS(3993)*X(63)-JVS(3994)*X(67)-JVS(3995)*X(78)-JVS(3996)& - &*X(81)-JVS(3997)*X(84)-JVS(3998)*X(85)-JVS(3999)*X(86)-JVS(4000)*X(87)-JVS(4001)*X(105)-JVS(4002)*X(181)& - &-JVS(4003)*X(228)-JVS(4004)*X(245)-JVS(4005)*X(290)-JVS(4006)*X(297)-JVS(4007)*X(314)-JVS(4008)*X(317)& - &-JVS(4009)*X(324)-JVS(4010)*X(326)-JVS(4011)*X(328)-JVS(4012)*X(329)-JVS(4013)*X(333) + X(334) = X(334)-JVS(3779)*X(55)-JVS(3780)*X(83)-JVS(3781)*X(87)-JVS(3782)*X(95)-JVS(3783)*X(108)-JVS(3784)*X(143)& + &-JVS(3785)*X(158)-JVS(3786)*X(161)-JVS(3787)*X(167)-JVS(3788)*X(184)-JVS(3789)*X(232)-JVS(3790)*X(237)& + &-JVS(3791)*X(238)-JVS(3792)*X(239)-JVS(3793)*X(243)-JVS(3794)*X(250)-JVS(3795)*X(252)-JVS(3796)*X(253)& + &-JVS(3797)*X(255)-JVS(3798)*X(261)-JVS(3799)*X(262)-JVS(3800)*X(264)-JVS(3801)*X(266)-JVS(3802)*X(275)& + &-JVS(3803)*X(276)-JVS(3804)*X(277)-JVS(3805)*X(278)-JVS(3806)*X(279)-JVS(3807)*X(280)-JVS(3808)*X(281)& + &-JVS(3809)*X(282)-JVS(3810)*X(283)-JVS(3811)*X(284)-JVS(3812)*X(286)-JVS(3813)*X(292)-JVS(3814)*X(293)& + &-JVS(3815)*X(294)-JVS(3816)*X(295)-JVS(3817)*X(297)-JVS(3818)*X(300)-JVS(3819)*X(304)-JVS(3820)*X(308)& + &-JVS(3821)*X(310)-JVS(3822)*X(311)-JVS(3823)*X(312)-JVS(3824)*X(313)-JVS(3825)*X(314)-JVS(3826)*X(315)& + &-JVS(3827)*X(316)-JVS(3828)*X(318)-JVS(3829)*X(319)-JVS(3830)*X(322)-JVS(3831)*X(323)-JVS(3832)*X(324)& + &-JVS(3833)*X(325)-JVS(3834)*X(326)-JVS(3835)*X(327)-JVS(3836)*X(328)-JVS(3837)*X(330) IF (DO_SLV(335)) & - X(335) = X(335)-JVS(4034)*X(56)-JVS(4035)*X(57)-JVS(4036)*X(59)-JVS(4037)*X(64)-JVS(4038)*X(65)-JVS(4039)*X(67)& - &-JVS(4040)*X(70)-JVS(4041)*X(80)-JVS(4042)*X(83)-JVS(4043)*X(90)-JVS(4044)*X(91)-JVS(4045)*X(93)-JVS(4046)& - &*X(95)-JVS(4047)*X(96)-JVS(4048)*X(108)-JVS(4049)*X(113)-JVS(4050)*X(114)-JVS(4051)*X(116)-JVS(4052)*X(121)& - &-JVS(4053)*X(122)-JVS(4054)*X(124)-JVS(4055)*X(125)-JVS(4056)*X(126)-JVS(4057)*X(127)-JVS(4058)*X(132)& - &-JVS(4059)*X(133)-JVS(4060)*X(135)-JVS(4061)*X(137)-JVS(4062)*X(138)-JVS(4063)*X(139)-JVS(4064)*X(140)& - &-JVS(4065)*X(154)-JVS(4066)*X(162)-JVS(4067)*X(163)-JVS(4068)*X(165)-JVS(4069)*X(166)-JVS(4070)*X(168)& - &-JVS(4071)*X(171)-JVS(4072)*X(172)-JVS(4073)*X(175)-JVS(4074)*X(176)-JVS(4075)*X(177)-JVS(4076)*X(178)& - &-JVS(4077)*X(179)-JVS(4078)*X(180)-JVS(4079)*X(182)-JVS(4080)*X(184)-JVS(4081)*X(186)-JVS(4082)*X(189)& - &-JVS(4083)*X(190)-JVS(4084)*X(193)-JVS(4085)*X(196)-JVS(4086)*X(197)-JVS(4087)*X(200)-JVS(4088)*X(203)& - &-JVS(4089)*X(205)-JVS(4090)*X(206)-JVS(4091)*X(207)-JVS(4092)*X(211)-JVS(4093)*X(212)-JVS(4094)*X(213)& - &-JVS(4095)*X(214)-JVS(4096)*X(218)-JVS(4097)*X(220)-JVS(4098)*X(222)-JVS(4099)*X(223)-JVS(4100)*X(224)& - &-JVS(4101)*X(226)-JVS(4102)*X(229)-JVS(4103)*X(230)-JVS(4104)*X(231)-JVS(4105)*X(232)-JVS(4106)*X(233)& - &-JVS(4107)*X(234)-JVS(4108)*X(235)-JVS(4109)*X(236)-JVS(4110)*X(237)-JVS(4111)*X(239)-JVS(4112)*X(240)& - &-JVS(4113)*X(241)-JVS(4114)*X(242)-JVS(4115)*X(243)-JVS(4116)*X(246)-JVS(4117)*X(247)-JVS(4118)*X(248)& - &-JVS(4119)*X(249)-JVS(4120)*X(250)-JVS(4121)*X(251)-JVS(4122)*X(252)-JVS(4123)*X(253)-JVS(4124)*X(254)& - &-JVS(4125)*X(255)-JVS(4126)*X(256)-JVS(4127)*X(257)-JVS(4128)*X(259)-JVS(4129)*X(260)-JVS(4130)*X(261)& - &-JVS(4131)*X(262)-JVS(4132)*X(263)-JVS(4133)*X(266)-JVS(4134)*X(267)-JVS(4135)*X(268)-JVS(4136)*X(269)& - &-JVS(4137)*X(271)-JVS(4138)*X(272)-JVS(4139)*X(273)-JVS(4140)*X(274)-JVS(4141)*X(275)-JVS(4142)*X(276)& - &-JVS(4143)*X(277)-JVS(4144)*X(278)-JVS(4145)*X(279)-JVS(4146)*X(280)-JVS(4147)*X(281)-JVS(4148)*X(284)& - &-JVS(4149)*X(285)-JVS(4150)*X(286)-JVS(4151)*X(289)-JVS(4152)*X(290)-JVS(4153)*X(291)-JVS(4154)*X(293)& - &-JVS(4155)*X(296)-JVS(4156)*X(297)-JVS(4157)*X(299)-JVS(4158)*X(300)-JVS(4159)*X(301)-JVS(4160)*X(302)& - &-JVS(4161)*X(303)-JVS(4162)*X(304)-JVS(4163)*X(305)-JVS(4164)*X(306)-JVS(4165)*X(308)-JVS(4166)*X(309)& - &-JVS(4167)*X(310)-JVS(4168)*X(311)-JVS(4169)*X(312)-JVS(4170)*X(313)-JVS(4171)*X(314)-JVS(4172)*X(315)& - &-JVS(4173)*X(317)-JVS(4174)*X(318)-JVS(4175)*X(319)-JVS(4176)*X(320)-JVS(4177)*X(321)-JVS(4178)*X(322)& - &-JVS(4179)*X(323)-JVS(4180)*X(324)-JVS(4181)*X(326)-JVS(4182)*X(327)-JVS(4183)*X(328)-JVS(4184)*X(329)& - &-JVS(4185)*X(330)-JVS(4186)*X(331)-JVS(4187)*X(332)-JVS(4188)*X(334) + X(335) = X(335)-JVS(3852)*X(63)-JVS(3853)*X(71)-JVS(3854)*X(80)-JVS(3855)*X(84)-JVS(3856)*X(85)-JVS(3857)*X(103)& + &-JVS(3858)*X(109)-JVS(3859)*X(113)-JVS(3860)*X(115)-JVS(3861)*X(122)-JVS(3862)*X(125)-JVS(3863)*X(127)& + &-JVS(3864)*X(129)-JVS(3865)*X(130)-JVS(3866)*X(133)-JVS(3867)*X(143)-JVS(3868)*X(145)-JVS(3869)*X(149)& + &-JVS(3870)*X(150)-JVS(3871)*X(151)-JVS(3872)*X(152)-JVS(3873)*X(155)-JVS(3874)*X(161)-JVS(3875)*X(170)& + &-JVS(3876)*X(184)-JVS(3877)*X(185)-JVS(3878)*X(189)-JVS(3879)*X(190)-JVS(3880)*X(191)-JVS(3881)*X(194)& + &-JVS(3882)*X(195)-JVS(3883)*X(197)-JVS(3884)*X(201)-JVS(3885)*X(202)-JVS(3886)*X(203)-JVS(3887)*X(204)& + &-JVS(3888)*X(207)-JVS(3889)*X(211)-JVS(3890)*X(213)-JVS(3891)*X(214)-JVS(3892)*X(215)-JVS(3893)*X(216)& + &-JVS(3894)*X(218)-JVS(3895)*X(220)-JVS(3896)*X(223)-JVS(3897)*X(224)-JVS(3898)*X(227)-JVS(3899)*X(228)& + &-JVS(3900)*X(229)-JVS(3901)*X(230)-JVS(3902)*X(231)-JVS(3903)*X(233)-JVS(3904)*X(236)-JVS(3905)*X(242)& + &-JVS(3906)*X(243)-JVS(3907)*X(244)-JVS(3908)*X(245)-JVS(3909)*X(250)-JVS(3910)*X(251)-JVS(3911)*X(256)& + &-JVS(3912)*X(257)-JVS(3913)*X(258)-JVS(3914)*X(259)-JVS(3915)*X(262)-JVS(3916)*X(265)-JVS(3917)*X(269)& + &-JVS(3918)*X(270)-JVS(3919)*X(271)-JVS(3920)*X(272)-JVS(3921)*X(273)-JVS(3922)*X(274)-JVS(3923)*X(279)& + &-JVS(3924)*X(281)-JVS(3925)*X(284)-JVS(3926)*X(288)-JVS(3927)*X(289)-JVS(3928)*X(290)-JVS(3929)*X(291)& + &-JVS(3930)*X(293)-JVS(3931)*X(297)-JVS(3932)*X(298)-JVS(3933)*X(299)-JVS(3934)*X(302)-JVS(3935)*X(303)& + &-JVS(3936)*X(304)-JVS(3937)*X(305)-JVS(3938)*X(306)-JVS(3939)*X(307)-JVS(3940)*X(308)-JVS(3941)*X(309)& + &-JVS(3942)*X(310)-JVS(3943)*X(311)-JVS(3944)*X(312)-JVS(3945)*X(313)-JVS(3946)*X(314)-JVS(3947)*X(315)& + &-JVS(3948)*X(316)-JVS(3949)*X(317)-JVS(3950)*X(318)-JVS(3951)*X(322)-JVS(3952)*X(323)-JVS(3953)*X(324)& + &-JVS(3954)*X(325)-JVS(3955)*X(326)-JVS(3956)*X(327)-JVS(3957)*X(328)-JVS(3958)*X(329)-JVS(3959)*X(330)& + &-JVS(3960)*X(334) IF (DO_SLV(336)) & - X(336) = X(336)-JVS(4208)*X(43)-JVS(4209)*X(52)-JVS(4210)*X(73)-JVS(4211)*X(84)-JVS(4212)*X(85)-JVS(4213)*X(86)& - &-JVS(4214)*X(87)-JVS(4215)*X(105)-JVS(4216)*X(108)-JVS(4217)*X(116)-JVS(4218)*X(164)-JVS(4219)*X(173)& - &-JVS(4220)*X(181)-JVS(4221)*X(183)-JVS(4222)*X(189)-JVS(4223)*X(196)-JVS(4224)*X(200)-JVS(4225)*X(201)& - &-JVS(4226)*X(214)-JVS(4227)*X(217)-JVS(4228)*X(218)-JVS(4229)*X(220)-JVS(4230)*X(221)-JVS(4231)*X(228)& - &-JVS(4232)*X(239)-JVS(4233)*X(240)-JVS(4234)*X(241)-JVS(4235)*X(244)-JVS(4236)*X(246)-JVS(4237)*X(251)& - &-JVS(4238)*X(252)-JVS(4239)*X(264)-JVS(4240)*X(265)-JVS(4241)*X(269)-JVS(4242)*X(271)-JVS(4243)*X(276)& - &-JVS(4244)*X(279)-JVS(4245)*X(283)-JVS(4246)*X(287)-JVS(4247)*X(289)-JVS(4248)*X(290)-JVS(4249)*X(291)& - &-JVS(4250)*X(292)-JVS(4251)*X(295)-JVS(4252)*X(296)-JVS(4253)*X(297)-JVS(4254)*X(298)-JVS(4255)*X(300)& - &-JVS(4256)*X(301)-JVS(4257)*X(302)-JVS(4258)*X(303)-JVS(4259)*X(304)-JVS(4260)*X(305)-JVS(4261)*X(306)& - &-JVS(4262)*X(307)-JVS(4263)*X(308)-JVS(4264)*X(309)-JVS(4265)*X(310)-JVS(4266)*X(311)-JVS(4267)*X(312)& - &-JVS(4268)*X(313)-JVS(4269)*X(314)-JVS(4270)*X(315)-JVS(4271)*X(316)-JVS(4272)*X(317)-JVS(4273)*X(318)& - &-JVS(4274)*X(319)-JVS(4275)*X(320)-JVS(4276)*X(321)-JVS(4277)*X(322)-JVS(4278)*X(323)-JVS(4279)*X(324)& - &-JVS(4280)*X(325)-JVS(4281)*X(326)-JVS(4282)*X(327)-JVS(4283)*X(328)-JVS(4284)*X(329)-JVS(4285)*X(330)& - &-JVS(4286)*X(331)-JVS(4287)*X(332)-JVS(4288)*X(333)-JVS(4289)*X(334)-JVS(4290)*X(335) + X(336) = X(336)-JVS(3975)*X(47)-JVS(3976)*X(58)-JVS(3977)*X(98)-JVS(3978)*X(287)-JVS(3979)*X(296)-JVS(3980)*X(331) IF (DO_SLV(337)) & - X(337) = X(337)-JVS(4309)*X(60)-JVS(4310)*X(72)-JVS(4311)*X(75)-JVS(4312)*X(79)-JVS(4313)*X(80)-JVS(4314)*X(82)& - &-JVS(4315)*X(83)-JVS(4316)*X(88)-JVS(4317)*X(91)-JVS(4318)*X(93)-JVS(4319)*X(95)-JVS(4320)*X(97)-JVS(4321)& - &*X(98)-JVS(4322)*X(99)-JVS(4323)*X(100)-JVS(4324)*X(101)-JVS(4325)*X(102)-JVS(4326)*X(105)-JVS(4327)*X(106)& - &-JVS(4328)*X(108)-JVS(4329)*X(111)-JVS(4330)*X(112)-JVS(4331)*X(115)-JVS(4332)*X(116)-JVS(4333)*X(118)& - &-JVS(4334)*X(119)-JVS(4335)*X(121)-JVS(4336)*X(123)-JVS(4337)*X(125)-JVS(4338)*X(127)-JVS(4339)*X(128)& - &-JVS(4340)*X(131)-JVS(4341)*X(132)-JVS(4342)*X(133)-JVS(4343)*X(135)-JVS(4344)*X(136)-JVS(4345)*X(137)& - &-JVS(4346)*X(138)-JVS(4347)*X(143)-JVS(4348)*X(144)-JVS(4349)*X(145)-JVS(4350)*X(146)-JVS(4351)*X(147)& - &-JVS(4352)*X(149)-JVS(4353)*X(150)-JVS(4354)*X(151)-JVS(4355)*X(152)-JVS(4356)*X(153)-JVS(4357)*X(155)& - &-JVS(4358)*X(156)-JVS(4359)*X(158)-JVS(4360)*X(161)-JVS(4361)*X(164)-JVS(4362)*X(165)-JVS(4363)*X(168)& - &-JVS(4364)*X(171)-JVS(4365)*X(172)-JVS(4366)*X(174)-JVS(4367)*X(175)-JVS(4368)*X(178)-JVS(4369)*X(180)& - &-JVS(4370)*X(181)-JVS(4371)*X(182)-JVS(4372)*X(185)-JVS(4373)*X(186)-JVS(4374)*X(187)-JVS(4375)*X(188)& - &-JVS(4376)*X(189)-JVS(4377)*X(190)-JVS(4378)*X(192)-JVS(4379)*X(194)-JVS(4380)*X(195)-JVS(4381)*X(196)& - &-JVS(4382)*X(197)-JVS(4383)*X(198)-JVS(4384)*X(199)-JVS(4385)*X(200)-JVS(4386)*X(201)-JVS(4387)*X(202)& - &-JVS(4388)*X(204)-JVS(4389)*X(205)-JVS(4390)*X(206)-JVS(4391)*X(207)-JVS(4392)*X(208)-JVS(4393)*X(209)& - &-JVS(4394)*X(210)-JVS(4395)*X(212)-JVS(4396)*X(213)-JVS(4397)*X(216)-JVS(4398)*X(217)-JVS(4399)*X(219)& - &-JVS(4400)*X(220)-JVS(4401)*X(221)-JVS(4402)*X(222)-JVS(4403)*X(223)-JVS(4404)*X(224)-JVS(4405)*X(225)& - &-JVS(4406)*X(226)-JVS(4407)*X(227)-JVS(4408)*X(228)-JVS(4409)*X(229)-JVS(4410)*X(230)-JVS(4411)*X(231)& - &-JVS(4412)*X(232)-JVS(4413)*X(233)-JVS(4414)*X(234)-JVS(4415)*X(235)-JVS(4416)*X(236)-JVS(4417)*X(238)& - &-JVS(4418)*X(240)-JVS(4419)*X(243)-JVS(4420)*X(246)-JVS(4421)*X(248)-JVS(4422)*X(249)-JVS(4423)*X(250)& - &-JVS(4424)*X(251)-JVS(4425)*X(253)-JVS(4426)*X(254)-JVS(4427)*X(255)-JVS(4428)*X(257)-JVS(4429)*X(258)& - &-JVS(4430)*X(259)-JVS(4431)*X(260)-JVS(4432)*X(261)-JVS(4433)*X(262)-JVS(4434)*X(263)-JVS(4435)*X(264)& - &-JVS(4436)*X(265)-JVS(4437)*X(266)-JVS(4438)*X(267)-JVS(4439)*X(268)-JVS(4440)*X(269)-JVS(4441)*X(270)& - &-JVS(4442)*X(271)-JVS(4443)*X(272)-JVS(4444)*X(273)-JVS(4445)*X(274)-JVS(4446)*X(275)-JVS(4447)*X(276)& - &-JVS(4448)*X(277)-JVS(4449)*X(278)-JVS(4450)*X(279)-JVS(4451)*X(280)-JVS(4452)*X(281)-JVS(4453)*X(282)& - &-JVS(4454)*X(284)-JVS(4455)*X(285)-JVS(4456)*X(286)-JVS(4457)*X(287)-JVS(4458)*X(288)-JVS(4459)*X(289)& - &-JVS(4460)*X(290)-JVS(4461)*X(291)-JVS(4462)*X(293)-JVS(4463)*X(294)-JVS(4464)*X(296)-JVS(4465)*X(298)& - &-JVS(4466)*X(299)-JVS(4467)*X(300)-JVS(4468)*X(301)-JVS(4469)*X(302)-JVS(4470)*X(303)-JVS(4471)*X(304)& - &-JVS(4472)*X(305)-JVS(4473)*X(306)-JVS(4474)*X(307)-JVS(4475)*X(308)-JVS(4476)*X(309)-JVS(4477)*X(310)& - &-JVS(4478)*X(311)-JVS(4479)*X(312)-JVS(4480)*X(313)-JVS(4481)*X(314)-JVS(4482)*X(315)-JVS(4483)*X(318)& - &-JVS(4484)*X(319)-JVS(4485)*X(320)-JVS(4486)*X(321)-JVS(4487)*X(322)-JVS(4488)*X(323)-JVS(4489)*X(324)& - &-JVS(4490)*X(325)-JVS(4491)*X(326)-JVS(4492)*X(328)-JVS(4493)*X(329)-JVS(4494)*X(330)-JVS(4495)*X(331)& - &-JVS(4496)*X(332)-JVS(4497)*X(334)-JVS(4498)*X(335)-JVS(4499)*X(336) + X(337) = X(337)-JVS(3995)*X(49)-JVS(3996)*X(50)-JVS(3997)*X(51)-JVS(3998)*X(52)-JVS(3999)*X(53)-JVS(4000)*X(54)& + &-JVS(4001)*X(56)-JVS(4002)*X(57)-JVS(4003)*X(64)-JVS(4004)*X(66)-JVS(4005)*X(70)-JVS(4006)*X(79)-JVS(4007)& + &*X(82)-JVS(4008)*X(88)-JVS(4009)*X(89)-JVS(4010)*X(90)-JVS(4011)*X(91)-JVS(4012)*X(108)-JVS(4013)*X(184)& + &-JVS(4014)*X(232)-JVS(4015)*X(248)-JVS(4016)*X(293)-JVS(4017)*X(301)-JVS(4018)*X(318)-JVS(4019)*X(321)& + &-JVS(4020)*X(328)-JVS(4021)*X(330)-JVS(4022)*X(332)-JVS(4023)*X(334)-JVS(4024)*X(335)-JVS(4025)*X(336) IF (DO_SLV(338)) & - X(338) = X(338)-JVS(4517)*X(46)-JVS(4518)*X(47)-JVS(4519)*X(48)-JVS(4520)*X(49)-JVS(4521)*X(50)-JVS(4522)*X(51)& - &-JVS(4523)*X(61)-JVS(4524)*X(76)-JVS(4525)*X(84)-JVS(4526)*X(85)-JVS(4527)*X(86)-JVS(4528)*X(87)-JVS(4529)& - &*X(110)-JVS(4530)*X(120)-JVS(4531)*X(181)-JVS(4532)*X(245)-JVS(4533)*X(284)-JVS(4534)*X(296)-JVS(4535)*X(297)& - &-JVS(4536)*X(315)-JVS(4537)*X(317)-JVS(4538)*X(318)-JVS(4539)*X(319)-JVS(4540)*X(320)-JVS(4541)*X(321)& - &-JVS(4542)*X(322)-JVS(4543)*X(323)-JVS(4544)*X(324)-JVS(4545)*X(326)-JVS(4546)*X(328)-JVS(4547)*X(329)& - &-JVS(4548)*X(330)-JVS(4549)*X(331)-JVS(4550)*X(332)-JVS(4551)*X(333)-JVS(4552)*X(334)-JVS(4553)*X(335)& - &-JVS(4554)*X(336)-JVS(4555)*X(337) + X(338) = X(338)-JVS(4046)*X(65)-JVS(4047)*X(66)-JVS(4048)*X(70)-JVS(4049)*X(98)-JVS(4050)*X(124)-JVS(4051)*X(133)& + &-JVS(4052)*X(136)-JVS(4053)*X(137)-JVS(4054)*X(168)-JVS(4055)*X(173)-JVS(4056)*X(174)-JVS(4057)*X(181)& + &-JVS(4058)*X(182)-JVS(4059)*X(185)-JVS(4060)*X(186)-JVS(4061)*X(193)-JVS(4062)*X(200)-JVS(4063)*X(201)& + &-JVS(4064)*X(203)-JVS(4065)*X(208)-JVS(4066)*X(209)-JVS(4067)*X(210)-JVS(4068)*X(215)-JVS(4069)*X(216)& + &-JVS(4070)*X(223)-JVS(4071)*X(226)-JVS(4072)*X(228)-JVS(4073)*X(229)-JVS(4074)*X(231)-JVS(4075)*X(233)& + &-JVS(4076)*X(235)-JVS(4077)*X(236)-JVS(4078)*X(237)-JVS(4079)*X(238)-JVS(4080)*X(239)-JVS(4081)*X(240)& + &-JVS(4082)*X(243)-JVS(4083)*X(244)-JVS(4084)*X(245)-JVS(4085)*X(250)-JVS(4086)*X(252)-JVS(4087)*X(253)& + &-JVS(4088)*X(254)-JVS(4089)*X(257)-JVS(4090)*X(258)-JVS(4091)*X(261)-JVS(4092)*X(262)-JVS(4093)*X(264)& + &-JVS(4094)*X(266)-JVS(4095)*X(270)-JVS(4096)*X(271)-JVS(4097)*X(272)-JVS(4098)*X(273)-JVS(4099)*X(275)& + &-JVS(4100)*X(276)-JVS(4101)*X(277)-JVS(4102)*X(278)-JVS(4103)*X(279)-JVS(4104)*X(280)-JVS(4105)*X(281)& + &-JVS(4106)*X(282)-JVS(4107)*X(283)-JVS(4108)*X(284)-JVS(4109)*X(288)-JVS(4110)*X(289)-JVS(4111)*X(292)& + &-JVS(4112)*X(293)-JVS(4113)*X(294)-JVS(4114)*X(299)-JVS(4115)*X(300)-JVS(4116)*X(301)-JVS(4117)*X(303)& + &-JVS(4118)*X(304)-JVS(4119)*X(305)-JVS(4120)*X(307)-JVS(4121)*X(308)-JVS(4122)*X(309)-JVS(4123)*X(310)& + &-JVS(4124)*X(312)-JVS(4125)*X(313)-JVS(4126)*X(314)-JVS(4127)*X(315)-JVS(4128)*X(316)-JVS(4129)*X(317)& + &-JVS(4130)*X(318)-JVS(4131)*X(319)-JVS(4132)*X(322)-JVS(4133)*X(323)-JVS(4134)*X(324)-JVS(4135)*X(325)& + &-JVS(4136)*X(326)-JVS(4137)*X(327)-JVS(4138)*X(328)-JVS(4139)*X(330)-JVS(4140)*X(331)-JVS(4141)*X(333)& + &-JVS(4142)*X(334)-JVS(4143)*X(335)-JVS(4144)*X(336)-JVS(4145)*X(337) IF (DO_SLV(339)) & - X(339) = X(339)-JVS(4572)*X(75)-JVS(4573)*X(79)-JVS(4574)*X(141)-JVS(4575)*X(142)-JVS(4576)*X(156)-JVS(4577)*X(164)& - &-JVS(4578)*X(166)-JVS(4579)*X(179)-JVS(4580)*X(181)-JVS(4581)*X(183)-JVS(4582)*X(214)-JVS(4583)*X(218)& - &-JVS(4584)*X(228)-JVS(4585)*X(264)-JVS(4586)*X(265)-JVS(4587)*X(269)-JVS(4588)*X(276)-JVS(4589)*X(282)& - &-JVS(4590)*X(283)-JVS(4591)*X(289)-JVS(4592)*X(290)-JVS(4593)*X(291)-JVS(4594)*X(295)-JVS(4595)*X(296)& - &-JVS(4596)*X(297)-JVS(4597)*X(300)-JVS(4598)*X(301)-JVS(4599)*X(302)-JVS(4600)*X(303)-JVS(4601)*X(304)& - &-JVS(4602)*X(305)-JVS(4603)*X(306)-JVS(4604)*X(307)-JVS(4605)*X(308)-JVS(4606)*X(309)-JVS(4607)*X(310)& - &-JVS(4608)*X(311)-JVS(4609)*X(312)-JVS(4610)*X(313)-JVS(4611)*X(314)-JVS(4612)*X(315)-JVS(4613)*X(316)& - &-JVS(4614)*X(317)-JVS(4615)*X(318)-JVS(4616)*X(319)-JVS(4617)*X(320)-JVS(4618)*X(321)-JVS(4619)*X(322)& - &-JVS(4620)*X(323)-JVS(4621)*X(324)-JVS(4622)*X(325)-JVS(4623)*X(326)-JVS(4624)*X(327)-JVS(4625)*X(328)& - &-JVS(4626)*X(329)-JVS(4627)*X(332)-JVS(4628)*X(333)-JVS(4629)*X(334)-JVS(4630)*X(335)-JVS(4631)*X(336)& - &-JVS(4632)*X(337)-JVS(4633)*X(338) + X(339) = X(339)-JVS(4165)*X(183)-JVS(4166)*X(217)-JVS(4167)*X(254)-JVS(4168)*X(287)-JVS(4169)*X(296)-JVS(4170)*X(301)& + &-JVS(4171)*X(320)-JVS(4172)*X(321)-JVS(4173)*X(331)-JVS(4174)*X(332)-JVS(4175)*X(333)-JVS(4176)*X(334)& + &-JVS(4177)*X(335)-JVS(4178)*X(336)-JVS(4179)*X(337)-JVS(4180)*X(338) IF (DO_SLV(340)) & - X(340) = X(340)-JVS(4649)*X(3)-JVS(4650)*X(43)-JVS(4651)*X(46)-JVS(4652)*X(47)-JVS(4653)*X(48)-JVS(4654)*X(49)& - &-JVS(4655)*X(50)-JVS(4656)*X(51)-JVS(4657)*X(61)-JVS(4658)*X(75)-JVS(4659)*X(76)-JVS(4660)*X(79)-JVS(4661)& - &*X(84)-JVS(4662)*X(85)-JVS(4663)*X(86)-JVS(4664)*X(87)-JVS(4665)*X(104)-JVS(4666)*X(110)-JVS(4667)*X(141)& - &-JVS(4668)*X(142)-JVS(4669)*X(156)-JVS(4670)*X(157)-JVS(4671)*X(164)-JVS(4672)*X(181)-JVS(4673)*X(183)& - &-JVS(4674)*X(218)-JVS(4675)*X(228)-JVS(4676)*X(245)-JVS(4677)*X(252)-JVS(4678)*X(264)-JVS(4679)*X(265)& - &-JVS(4680)*X(269)-JVS(4681)*X(276)-JVS(4682)*X(282)-JVS(4683)*X(283)-JVS(4684)*X(284)-JVS(4685)*X(289)& - &-JVS(4686)*X(290)-JVS(4687)*X(291)-JVS(4688)*X(295)-JVS(4689)*X(296)-JVS(4690)*X(297)-JVS(4691)*X(300)& - &-JVS(4692)*X(301)-JVS(4693)*X(302)-JVS(4694)*X(303)-JVS(4695)*X(304)-JVS(4696)*X(305)-JVS(4697)*X(306)& - &-JVS(4698)*X(307)-JVS(4699)*X(308)-JVS(4700)*X(309)-JVS(4701)*X(310)-JVS(4702)*X(311)-JVS(4703)*X(312)& - &-JVS(4704)*X(313)-JVS(4705)*X(314)-JVS(4706)*X(315)-JVS(4707)*X(316)-JVS(4708)*X(317)-JVS(4709)*X(318)& - &-JVS(4710)*X(319)-JVS(4711)*X(320)-JVS(4712)*X(321)-JVS(4713)*X(322)-JVS(4714)*X(323)-JVS(4715)*X(324)& - &-JVS(4716)*X(325)-JVS(4717)*X(326)-JVS(4718)*X(328)-JVS(4719)*X(329)-JVS(4720)*X(330)-JVS(4721)*X(331)& - &-JVS(4722)*X(332)-JVS(4723)*X(333)-JVS(4724)*X(334)-JVS(4725)*X(335)-JVS(4726)*X(336)-JVS(4727)*X(337)& - &-JVS(4728)*X(338)-JVS(4729)*X(339) + X(340) = X(340)-JVS(4199)*X(80)-JVS(4200)*X(84)-JVS(4201)*X(142)-JVS(4202)*X(144)-JVS(4203)*X(154)-JVS(4204)*X(167)& + &-JVS(4205)*X(169)-JVS(4206)*X(183)-JVS(4207)*X(184)-JVS(4208)*X(187)-JVS(4209)*X(217)-JVS(4210)*X(221)& + &-JVS(4211)*X(232)-JVS(4212)*X(267)-JVS(4213)*X(268)-JVS(4214)*X(272)-JVS(4215)*X(279)-JVS(4216)*X(285)& + &-JVS(4217)*X(286)-JVS(4218)*X(292)-JVS(4219)*X(293)-JVS(4220)*X(294)-JVS(4221)*X(297)-JVS(4222)*X(300)& + &-JVS(4223)*X(301)-JVS(4224)*X(304)-JVS(4225)*X(305)-JVS(4226)*X(306)-JVS(4227)*X(307)-JVS(4228)*X(308)& + &-JVS(4229)*X(309)-JVS(4230)*X(310)-JVS(4231)*X(311)-JVS(4232)*X(312)-JVS(4233)*X(313)-JVS(4234)*X(314)& + &-JVS(4235)*X(315)-JVS(4236)*X(316)-JVS(4237)*X(317)-JVS(4238)*X(318)-JVS(4239)*X(319)-JVS(4240)*X(320)& + &-JVS(4241)*X(321)-JVS(4242)*X(322)-JVS(4243)*X(323)-JVS(4244)*X(324)-JVS(4245)*X(325)-JVS(4246)*X(326)& + &-JVS(4247)*X(327)-JVS(4248)*X(328)-JVS(4249)*X(329)-JVS(4250)*X(330)-JVS(4251)*X(332)-JVS(4252)*X(333)& + &-JVS(4253)*X(334)-JVS(4254)*X(335)-JVS(4255)*X(336)-JVS(4256)*X(337)-JVS(4257)*X(338)-JVS(4258)*X(339) IF (DO_SLV(341)) & - X(341) = X(341)-JVS(4744)*X(109)-JVS(4745)*X(140)-JVS(4746)*X(166)-JVS(4747)*X(167)-JVS(4748)*X(179)-JVS(4749)*X(191)& - &-JVS(4750)*X(193)-JVS(4751)*X(201)-JVS(4752)*X(202)-JVS(4753)*X(203)-JVS(4754)*X(211)-JVS(4755)*X(213)& - &-JVS(4756)*X(217)-JVS(4757)*X(219)-JVS(4758)*X(220)-JVS(4759)*X(221)-JVS(4760)*X(228)-JVS(4761)*X(229)& - &-JVS(4762)*X(233)-JVS(4763)*X(235)-JVS(4764)*X(236)-JVS(4765)*X(237)-JVS(4766)*X(240)-JVS(4767)*X(242)& - &-JVS(4768)*X(246)-JVS(4769)*X(255)-JVS(4770)*X(257)-JVS(4771)*X(259)-JVS(4772)*X(262)-JVS(4773)*X(269)& - &-JVS(4774)*X(274)-JVS(4775)*X(275)-JVS(4776)*X(276)-JVS(4777)*X(277)-JVS(4778)*X(280)-JVS(4779)*X(281)& - &-JVS(4780)*X(289)-JVS(4781)*X(290)-JVS(4782)*X(291)-JVS(4783)*X(306)-JVS(4784)*X(308)-JVS(4785)*X(309)& - &-JVS(4786)*X(310)-JVS(4787)*X(311)-JVS(4788)*X(312)-JVS(4789)*X(314)-JVS(4790)*X(320)-JVS(4791)*X(322)& - &-JVS(4792)*X(323)-JVS(4793)*X(324)-JVS(4794)*X(325)-JVS(4795)*X(326)-JVS(4796)*X(327)-JVS(4797)*X(328)& - &-JVS(4798)*X(329)-JVS(4799)*X(331)-JVS(4800)*X(332)-JVS(4801)*X(334)-JVS(4802)*X(335)-JVS(4803)*X(336)& - &-JVS(4804)*X(337)-JVS(4805)*X(338)-JVS(4806)*X(339)-JVS(4807)*X(340) + X(341) = X(341)-JVS(4276)*X(63)-JVS(4277)*X(74)-JVS(4278)*X(80)-JVS(4279)*X(83)-JVS(4280)*X(84)-JVS(4281)*X(85)& + &-JVS(4282)*X(86)-JVS(4283)*X(92)-JVS(4284)*X(94)-JVS(4285)*X(96)-JVS(4286)*X(97)-JVS(4287)*X(99)-JVS(4288)& + &*X(100)-JVS(4289)*X(101)-JVS(4290)*X(102)-JVS(4291)*X(103)-JVS(4292)*X(104)-JVS(4293)*X(108)-JVS(4294)*X(110)& + &-JVS(4295)*X(111)-JVS(4296)*X(112)-JVS(4297)*X(114)-JVS(4298)*X(116)-JVS(4299)*X(117)-JVS(4300)*X(121)& + &-JVS(4301)*X(122)-JVS(4302)*X(124)-JVS(4303)*X(126)-JVS(4304)*X(128)-JVS(4305)*X(130)-JVS(4306)*X(131)& + &-JVS(4307)*X(133)-JVS(4308)*X(135)-JVS(4309)*X(136)-JVS(4310)*X(137)-JVS(4311)*X(138)-JVS(4312)*X(139)& + &-JVS(4313)*X(141)-JVS(4314)*X(145)-JVS(4315)*X(147)-JVS(4316)*X(148)-JVS(4317)*X(149)-JVS(4318)*X(150)& + &-JVS(4319)*X(151)-JVS(4320)*X(152)-JVS(4321)*X(154)-JVS(4322)*X(155)-JVS(4323)*X(157)-JVS(4324)*X(158)& + &-JVS(4325)*X(159)-JVS(4326)*X(162)-JVS(4327)*X(164)-JVS(4328)*X(167)-JVS(4329)*X(168)-JVS(4330)*X(173)& + &-JVS(4331)*X(174)-JVS(4332)*X(175)-JVS(4333)*X(177)-JVS(4334)*X(178)-JVS(4335)*X(181)-JVS(4336)*X(182)& + &-JVS(4337)*X(184)-JVS(4338)*X(185)-JVS(4339)*X(186)-JVS(4340)*X(188)-JVS(4341)*X(190)-JVS(4342)*X(191)& + &-JVS(4343)*X(192)-JVS(4344)*X(193)-JVS(4345)*X(195)-JVS(4346)*X(197)-JVS(4347)*X(198)-JVS(4348)*X(199)& + &-JVS(4349)*X(200)-JVS(4350)*X(201)-JVS(4351)*X(202)-JVS(4352)*X(203)-JVS(4353)*X(204)-JVS(4354)*X(205)& + &-JVS(4355)*X(207)-JVS(4356)*X(208)-JVS(4357)*X(209)-JVS(4358)*X(210)-JVS(4359)*X(211)-JVS(4360)*X(213)& + &-JVS(4361)*X(214)-JVS(4362)*X(215)-JVS(4363)*X(216)-JVS(4364)*X(219)-JVS(4365)*X(220)-JVS(4366)*X(222)& + &-JVS(4367)*X(223)-JVS(4368)*X(224)-JVS(4369)*X(225)-JVS(4370)*X(226)-JVS(4371)*X(227)-JVS(4372)*X(228)& + &-JVS(4373)*X(229)-JVS(4374)*X(230)-JVS(4375)*X(231)-JVS(4376)*X(232)-JVS(4377)*X(233)-JVS(4378)*X(234)& + &-JVS(4379)*X(235)-JVS(4380)*X(236)-JVS(4381)*X(237)-JVS(4382)*X(238)-JVS(4383)*X(239)-JVS(4384)*X(242)& + &-JVS(4385)*X(243)-JVS(4386)*X(245)-JVS(4387)*X(250)-JVS(4388)*X(251)-JVS(4389)*X(252)-JVS(4390)*X(253)& + &-JVS(4391)*X(255)-JVS(4392)*X(256)-JVS(4393)*X(257)-JVS(4394)*X(258)-JVS(4395)*X(259)-JVS(4396)*X(261)& + &-JVS(4397)*X(262)-JVS(4398)*X(263)-JVS(4399)*X(264)-JVS(4400)*X(265)-JVS(4401)*X(266)-JVS(4402)*X(267)& + &-JVS(4403)*X(268)-JVS(4404)*X(269)-JVS(4405)*X(270)-JVS(4406)*X(271)-JVS(4407)*X(272)-JVS(4408)*X(273)& + &-JVS(4409)*X(274)-JVS(4410)*X(275)-JVS(4411)*X(276)-JVS(4412)*X(277)-JVS(4413)*X(278)-JVS(4414)*X(279)& + &-JVS(4415)*X(280)-JVS(4416)*X(281)-JVS(4417)*X(282)-JVS(4418)*X(283)-JVS(4419)*X(284)-JVS(4420)*X(285)& + &-JVS(4421)*X(288)-JVS(4422)*X(289)-JVS(4423)*X(290)-JVS(4424)*X(291)-JVS(4425)*X(292)-JVS(4426)*X(293)& + &-JVS(4427)*X(294)-JVS(4428)*X(298)-JVS(4429)*X(299)-JVS(4430)*X(300)-JVS(4431)*X(302)-JVS(4432)*X(303)& + &-JVS(4433)*X(304)-JVS(4434)*X(305)-JVS(4435)*X(306)-JVS(4436)*X(307)-JVS(4437)*X(308)-JVS(4438)*X(309)& + &-JVS(4439)*X(310)-JVS(4440)*X(311)-JVS(4441)*X(312)-JVS(4442)*X(313)-JVS(4443)*X(314)-JVS(4444)*X(315)& + &-JVS(4445)*X(316)-JVS(4446)*X(317)-JVS(4447)*X(318)-JVS(4448)*X(319)-JVS(4449)*X(322)-JVS(4450)*X(323)& + &-JVS(4451)*X(324)-JVS(4452)*X(325)-JVS(4453)*X(326)-JVS(4454)*X(327)-JVS(4455)*X(328)-JVS(4456)*X(329)& + &-JVS(4457)*X(330)-JVS(4458)*X(331)-JVS(4459)*X(334)-JVS(4460)*X(335)-JVS(4461)*X(336)-JVS(4462)*X(337)& + &-JVS(4463)*X(338)-JVS(4464)*X(339)-JVS(4465)*X(340) IF (DO_SLV(342)) & - X(342) = X(342)-JVS(4821)*X(2)-JVS(4822)*X(53)-JVS(4823)*X(54)-JVS(4824)*X(59)-JVS(4825)*X(61)-JVS(4826)*X(77)& - &-JVS(4827)*X(78)-JVS(4828)*X(81)-JVS(4829)*X(105)-JVS(4830)*X(141)-JVS(4831)*X(148)-JVS(4832)*X(157)-JVS(4833)& - &*X(183)-JVS(4834)*X(218)-JVS(4835)*X(252)-JVS(4836)*X(284)-JVS(4837)*X(290)-JVS(4838)*X(295)-JVS(4839)*X(297)& - &-JVS(4840)*X(300)-JVS(4841)*X(314)-JVS(4842)*X(316)-JVS(4843)*X(317)-JVS(4844)*X(318)-JVS(4845)*X(319)& - &-JVS(4846)*X(320)-JVS(4847)*X(323)-JVS(4848)*X(324)-JVS(4849)*X(325)-JVS(4850)*X(326)-JVS(4851)*X(328)& - &-JVS(4852)*X(329)-JVS(4853)*X(330)-JVS(4854)*X(331)-JVS(4855)*X(332)-JVS(4856)*X(333)-JVS(4857)*X(334)& - &-JVS(4858)*X(335)-JVS(4859)*X(336)-JVS(4860)*X(337)-JVS(4861)*X(338)-JVS(4862)*X(339)-JVS(4863)*X(340)& - &-JVS(4864)*X(341) + X(342) = X(342)-JVS(4482)*X(2)-JVS(4483)*X(56)-JVS(4484)*X(57)-JVS(4485)*X(62)-JVS(4486)*X(64)-JVS(4487)*X(79)& + &-JVS(4488)*X(81)-JVS(4489)*X(82)-JVS(4490)*X(108)-JVS(4491)*X(142)-JVS(4492)*X(153)-JVS(4493)*X(160)-JVS(4494)& + &*X(187)-JVS(4495)*X(221)-JVS(4496)*X(254)-JVS(4497)*X(287)-JVS(4498)*X(293)-JVS(4499)*X(296)-JVS(4500)*X(297)& + &-JVS(4501)*X(301)-JVS(4502)*X(304)-JVS(4503)*X(318)-JVS(4504)*X(320)-JVS(4505)*X(321)-JVS(4506)*X(322)& + &-JVS(4507)*X(323)-JVS(4508)*X(324)-JVS(4509)*X(327)-JVS(4510)*X(328)-JVS(4511)*X(329)-JVS(4512)*X(330)& + &-JVS(4513)*X(331)-JVS(4514)*X(332)-JVS(4515)*X(334)-JVS(4516)*X(335)-JVS(4517)*X(336)-JVS(4518)*X(337)& + &-JVS(4519)*X(338)-JVS(4520)*X(339)-JVS(4521)*X(340)-JVS(4522)*X(341) IF (DO_SLV(343)) & - X(343) = X(343)-JVS(4877)*X(46)-JVS(4878)*X(47)-JVS(4879)*X(48)-JVS(4880)*X(49)-JVS(4881)*X(50)-JVS(4882)*X(51)& - &-JVS(4883)*X(53)-JVS(4884)*X(54)-JVS(4885)*X(61)-JVS(4886)*X(67)-JVS(4887)*X(68)-JVS(4888)*X(78)-JVS(4889)& - &*X(81)-JVS(4890)*X(84)-JVS(4891)*X(85)-JVS(4892)*X(86)-JVS(4893)*X(87)-JVS(4894)*X(120)-JVS(4895)*X(181)& - &-JVS(4896)*X(217)-JVS(4897)*X(228)-JVS(4898)*X(245)-JVS(4899)*X(264)-JVS(4900)*X(276)-JVS(4901)*X(284)& - &-JVS(4902)*X(290)-JVS(4903)*X(297)-JVS(4904)*X(312)-JVS(4905)*X(314)-JVS(4906)*X(316)-JVS(4907)*X(317)& - &-JVS(4908)*X(324)-JVS(4909)*X(325)-JVS(4910)*X(326)-JVS(4911)*X(328)-JVS(4912)*X(329)-JVS(4913)*X(330)& - &-JVS(4914)*X(331)-JVS(4915)*X(332)-JVS(4916)*X(333)-JVS(4917)*X(334)-JVS(4918)*X(335)-JVS(4919)*X(336)& - &-JVS(4920)*X(337)-JVS(4921)*X(338)-JVS(4922)*X(339)-JVS(4923)*X(340)-JVS(4924)*X(341)-JVS(4925)*X(342) + X(343) = X(343)-JVS(4538)*X(44)-JVS(4539)*X(46)-JVS(4540)*X(55)-JVS(4541)*X(61)-JVS(4542)*X(63)-JVS(4543)*X(69)& + &-JVS(4544)*X(71)-JVS(4545)*X(72)-JVS(4546)*X(73)-JVS(4547)*X(74)-JVS(4548)*X(75)-JVS(4549)*X(76)-JVS(4550)& + &*X(77)-JVS(4551)*X(78)-JVS(4552)*X(79)-JVS(4553)*X(80)-JVS(4554)*X(82)-JVS(4555)*X(84)-JVS(4556)*X(85)& + &-JVS(4557)*X(86)-JVS(4558)*X(87)-JVS(4559)*X(88)-JVS(4560)*X(89)-JVS(4561)*X(90)-JVS(4562)*X(91)-JVS(4563)& + &*X(92)-JVS(4564)*X(93)-JVS(4565)*X(94)-JVS(4566)*X(95)-JVS(4567)*X(96)-JVS(4568)*X(97)-JVS(4569)*X(99)& + &-JVS(4570)*X(100)-JVS(4571)*X(101)-JVS(4572)*X(102)-JVS(4573)*X(103)-JVS(4574)*X(104)-JVS(4575)*X(105)& + &-JVS(4576)*X(108)-JVS(4577)*X(109)-JVS(4578)*X(110)-JVS(4579)*X(111)-JVS(4580)*X(112)-JVS(4581)*X(113)& + &-JVS(4582)*X(115)-JVS(4583)*X(116)-JVS(4584)*X(117)-JVS(4585)*X(118)-JVS(4586)*X(120)-JVS(4587)*X(121)& + &-JVS(4588)*X(122)-JVS(4589)*X(123)-JVS(4590)*X(125)-JVS(4591)*X(126)-JVS(4592)*X(127)-JVS(4593)*X(128)& + &-JVS(4594)*X(129)-JVS(4595)*X(130)-JVS(4596)*X(131)-JVS(4597)*X(132)-JVS(4598)*X(134)-JVS(4599)*X(135)& + &-JVS(4600)*X(136)-JVS(4601)*X(137)-JVS(4602)*X(138)-JVS(4603)*X(139)-JVS(4604)*X(140)-JVS(4605)*X(141)& + &-JVS(4606)*X(142)-JVS(4607)*X(143)-JVS(4608)*X(144)-JVS(4609)*X(145)-JVS(4610)*X(146)-JVS(4611)*X(148)& + &-JVS(4612)*X(149)-JVS(4613)*X(150)-JVS(4614)*X(151)-JVS(4615)*X(152)-JVS(4616)*X(153)-JVS(4617)*X(154)& + &-JVS(4618)*X(155)-JVS(4619)*X(156)-JVS(4620)*X(157)-JVS(4621)*X(158)-JVS(4622)*X(159)-JVS(4623)*X(161)& + &-JVS(4624)*X(162)-JVS(4625)*X(163)-JVS(4626)*X(164)-JVS(4627)*X(165)-JVS(4628)*X(166)-JVS(4629)*X(167)& + &-JVS(4630)*X(170)-JVS(4631)*X(171)-JVS(4632)*X(172)-JVS(4633)*X(173)-JVS(4634)*X(174)-JVS(4635)*X(175)& + &-JVS(4636)*X(176)-JVS(4637)*X(177)-JVS(4638)*X(178)-JVS(4639)*X(179)-JVS(4640)*X(180)-JVS(4641)*X(181)& + &-JVS(4642)*X(182)-JVS(4643)*X(183)-JVS(4644)*X(184)-JVS(4645)*X(185)-JVS(4646)*X(186)-JVS(4647)*X(187)& + &-JVS(4648)*X(188)-JVS(4649)*X(189)-JVS(4650)*X(190)-JVS(4651)*X(191)-JVS(4652)*X(192)-JVS(4653)*X(193)& + &-JVS(4654)*X(194)-JVS(4655)*X(195)-JVS(4656)*X(196)-JVS(4657)*X(197)-JVS(4658)*X(198)-JVS(4659)*X(199)& + &-JVS(4660)*X(200)-JVS(4661)*X(201)-JVS(4662)*X(202)-JVS(4663)*X(203)-JVS(4664)*X(204)-JVS(4665)*X(205)& + &-JVS(4666)*X(207)-JVS(4667)*X(208)-JVS(4668)*X(209)-JVS(4669)*X(210)-JVS(4670)*X(211)-JVS(4671)*X(212)& + &-JVS(4672)*X(213)-JVS(4673)*X(214)-JVS(4674)*X(215)-JVS(4675)*X(216)-JVS(4676)*X(219)-JVS(4677)*X(220)& + &-JVS(4678)*X(221)-JVS(4679)*X(222)-JVS(4680)*X(223)-JVS(4681)*X(224)-JVS(4682)*X(225)-JVS(4683)*X(226)& + &-JVS(4684)*X(227)-JVS(4685)*X(228)-JVS(4686)*X(229)-JVS(4687)*X(231)-JVS(4688)*X(232)-JVS(4689)*X(233)& + &-JVS(4690)*X(234)-JVS(4691)*X(235)-JVS(4692)*X(236)-JVS(4693)*X(237)-JVS(4694)*X(238)-JVS(4695)*X(239)& + &-JVS(4696)*X(240)-JVS(4697)*X(241)-JVS(4698)*X(242)-JVS(4699)*X(243)-JVS(4700)*X(244)-JVS(4701)*X(245)& + &-JVS(4702)*X(246)-JVS(4703)*X(247)-JVS(4704)*X(248)-JVS(4705)*X(249)-JVS(4706)*X(250)-JVS(4707)*X(251)& + &-JVS(4708)*X(252)-JVS(4709)*X(253)-JVS(4710)*X(254)-JVS(4711)*X(255)-JVS(4712)*X(256)-JVS(4713)*X(257)& + &-JVS(4714)*X(258)-JVS(4715)*X(259)-JVS(4716)*X(260)-JVS(4717)*X(261)-JVS(4718)*X(262)-JVS(4719)*X(263)& + &-JVS(4720)*X(264)-JVS(4721)*X(265)-JVS(4722)*X(266)-JVS(4723)*X(267)-JVS(4724)*X(268)-JVS(4725)*X(269)& + &-JVS(4726)*X(270)-JVS(4727)*X(271)-JVS(4728)*X(272)-JVS(4729)*X(273)-JVS(4730)*X(274)-JVS(4731)*X(275)& + &-JVS(4732)*X(276)-JVS(4733)*X(277)-JVS(4734)*X(278)-JVS(4735)*X(279)-JVS(4736)*X(280)-JVS(4737)*X(281)& + &-JVS(4738)*X(282)-JVS(4739)*X(283)-JVS(4740)*X(284)-JVS(4741)*X(285)-JVS(4742)*X(286)-JVS(4743)*X(287)& + &-JVS(4744)*X(288)-JVS(4745)*X(289)-JVS(4746)*X(290)-JVS(4747)*X(291)-JVS(4748)*X(292)-JVS(4749)*X(293)& + &-JVS(4750)*X(294)-JVS(4751)*X(295)-JVS(4752)*X(296)-JVS(4753)*X(297)-JVS(4754)*X(298)-JVS(4755)*X(299)& + &-JVS(4756)*X(300)-JVS(4757)*X(301)-JVS(4758)*X(302)-JVS(4759)*X(303)-JVS(4760)*X(304)-JVS(4761)*X(305)& + &-JVS(4762)*X(306)-JVS(4763)*X(307)-JVS(4764)*X(308)-JVS(4765)*X(309)-JVS(4766)*X(310)-JVS(4767)*X(311)& + &-JVS(4768)*X(312)-JVS(4769)*X(313)-JVS(4770)*X(314)-JVS(4771)*X(315)-JVS(4772)*X(316)-JVS(4773)*X(317)& + &-JVS(4774)*X(318)-JVS(4775)*X(319)-JVS(4776)*X(320)-JVS(4777)*X(321)-JVS(4778)*X(322)-JVS(4779)*X(323)& + &-JVS(4780)*X(324)-JVS(4781)*X(325)-JVS(4782)*X(326)-JVS(4783)*X(327)-JVS(4784)*X(328)-JVS(4785)*X(329)& + &-JVS(4786)*X(330)-JVS(4787)*X(331)-JVS(4788)*X(332)-JVS(4789)*X(333)-JVS(4790)*X(334)-JVS(4791)*X(335)& + &-JVS(4792)*X(336)-JVS(4793)*X(337)-JVS(4794)*X(338)-JVS(4795)*X(339)-JVS(4796)*X(340)-JVS(4797)*X(341)& + &-JVS(4798)*X(342) IF (DO_SLV(344)) & - X(344) = X(344)-JVS(4937)*X(166)-JVS(4938)*X(214)-JVS(4939)*X(252)-JVS(4940)*X(297)-JVS(4941)*X(316)-JVS(4942)*X(317)& - &-JVS(4943)*X(327)-JVS(4944)*X(328)-JVS(4945)*X(329)-JVS(4946)*X(330)-JVS(4947)*X(331)-JVS(4948)*X(332)& - &-JVS(4949)*X(333)-JVS(4950)*X(334)-JVS(4951)*X(335)-JVS(4952)*X(336)-JVS(4953)*X(337)-JVS(4954)*X(338)& - &-JVS(4955)*X(339)-JVS(4956)*X(340)-JVS(4957)*X(341)-JVS(4958)*X(342)-JVS(4959)*X(343) + X(344) = X(344)-JVS(4813)*X(49)-JVS(4814)*X(50)-JVS(4815)*X(51)-JVS(4816)*X(52)-JVS(4817)*X(53)-JVS(4818)*X(54)& + &-JVS(4819)*X(64)-JVS(4820)*X(78)-JVS(4821)*X(88)-JVS(4822)*X(89)-JVS(4823)*X(90)-JVS(4824)*X(91)-JVS(4825)& + &*X(119)-JVS(4826)*X(123)-JVS(4827)*X(184)-JVS(4828)*X(248)-JVS(4829)*X(300)-JVS(4830)*X(301)-JVS(4831)*X(319)& + &-JVS(4832)*X(321)-JVS(4833)*X(322)-JVS(4834)*X(323)-JVS(4835)*X(324)-JVS(4836)*X(325)-JVS(4837)*X(326)& + &-JVS(4838)*X(327)-JVS(4839)*X(328)-JVS(4840)*X(330)-JVS(4841)*X(332)-JVS(4842)*X(334)-JVS(4843)*X(335)& + &-JVS(4844)*X(336)-JVS(4845)*X(337)-JVS(4846)*X(338)-JVS(4847)*X(339)-JVS(4848)*X(340)-JVS(4849)*X(341)& + &-JVS(4850)*X(342)-JVS(4851)*X(343) IF (DO_SLV(345)) & - X(345) = X(345)-JVS(4970)*X(41)-JVS(4971)*X(43)-JVS(4972)*X(52)-JVS(4973)*X(58)-JVS(4974)*X(60)-JVS(4975)*X(66)& - &-JVS(4976)*X(68)-JVS(4977)*X(69)-JVS(4978)*X(70)-JVS(4979)*X(71)-JVS(4980)*X(72)-JVS(4981)*X(73)-JVS(4982)& - &*X(74)-JVS(4983)*X(75)-JVS(4984)*X(76)-JVS(4985)*X(78)-JVS(4986)*X(79)-JVS(4987)*X(81)-JVS(4988)*X(82)& - &-JVS(4989)*X(83)-JVS(4990)*X(84)-JVS(4991)*X(85)-JVS(4992)*X(86)-JVS(4993)*X(87)-JVS(4994)*X(88)-JVS(4995)& - &*X(89)-JVS(4996)*X(90)-JVS(4997)*X(91)-JVS(4998)*X(92)-JVS(4999)*X(93)-JVS(5000)*X(94)-JVS(5001)*X(95)& - &-JVS(5002)*X(97)-JVS(5003)*X(98)-JVS(5004)*X(99)-JVS(5005)*X(100)-JVS(5006)*X(101)-JVS(5007)*X(102)-JVS(5008)& - &*X(105)-JVS(5009)*X(107)-JVS(5010)*X(108)-JVS(5011)*X(109)-JVS(5012)*X(111)-JVS(5013)*X(112)-JVS(5014)*X(113)& - &-JVS(5015)*X(114)-JVS(5016)*X(115)-JVS(5017)*X(116)-JVS(5018)*X(117)-JVS(5019)*X(118)-JVS(5020)*X(119)& - &-JVS(5021)*X(120)-JVS(5022)*X(122)-JVS(5023)*X(123)-JVS(5024)*X(124)-JVS(5025)*X(125)-JVS(5026)*X(126)& - &-JVS(5027)*X(127)-JVS(5028)*X(128)-JVS(5029)*X(129)-JVS(5030)*X(130)-JVS(5031)*X(131)-JVS(5032)*X(133)& - &-JVS(5033)*X(134)-JVS(5034)*X(135)-JVS(5035)*X(136)-JVS(5036)*X(137)-JVS(5037)*X(138)-JVS(5038)*X(139)& - &-JVS(5039)*X(140)-JVS(5040)*X(141)-JVS(5041)*X(142)-JVS(5042)*X(143)-JVS(5043)*X(144)-JVS(5044)*X(146)& - &-JVS(5045)*X(147)-JVS(5046)*X(148)-JVS(5047)*X(149)-JVS(5048)*X(150)-JVS(5049)*X(151)-JVS(5050)*X(152)& - &-JVS(5051)*X(153)-JVS(5052)*X(154)-JVS(5053)*X(155)-JVS(5054)*X(156)-JVS(5055)*X(158)-JVS(5056)*X(159)& - &-JVS(5057)*X(160)-JVS(5058)*X(161)-JVS(5059)*X(162)-JVS(5060)*X(163)-JVS(5061)*X(164)-JVS(5062)*X(167)& - &-JVS(5063)*X(168)-JVS(5064)*X(169)-JVS(5065)*X(170)-JVS(5066)*X(171)-JVS(5067)*X(172)-JVS(5068)*X(173)& - &-JVS(5069)*X(174)-JVS(5070)*X(175)-JVS(5071)*X(176)-JVS(5072)*X(177)-JVS(5073)*X(178)-JVS(5074)*X(179)& - &-JVS(5075)*X(180)-JVS(5076)*X(181)-JVS(5077)*X(182)-JVS(5078)*X(183)-JVS(5079)*X(184)-JVS(5080)*X(185)& - &-JVS(5081)*X(186)-JVS(5082)*X(187)-JVS(5083)*X(188)-JVS(5084)*X(189)-JVS(5085)*X(190)-JVS(5086)*X(191)& - &-JVS(5087)*X(192)-JVS(5088)*X(193)-JVS(5089)*X(194)-JVS(5090)*X(195)-JVS(5091)*X(196)-JVS(5092)*X(197)& - &-JVS(5093)*X(198)-JVS(5094)*X(199)-JVS(5095)*X(200)-JVS(5096)*X(201)-JVS(5097)*X(202)-JVS(5098)*X(204)& - &-JVS(5099)*X(205)-JVS(5100)*X(206)-JVS(5101)*X(207)-JVS(5102)*X(208)-JVS(5103)*X(209)-JVS(5104)*X(210)& - &-JVS(5105)*X(211)-JVS(5106)*X(212)-JVS(5107)*X(213)-JVS(5108)*X(216)-JVS(5109)*X(217)-JVS(5110)*X(218)& - &-JVS(5111)*X(219)-JVS(5112)*X(220)-JVS(5113)*X(221)-JVS(5114)*X(222)-JVS(5115)*X(223)-JVS(5116)*X(224)& - &-JVS(5117)*X(225)-JVS(5118)*X(226)-JVS(5119)*X(228)-JVS(5120)*X(229)-JVS(5121)*X(230)-JVS(5122)*X(231)& - &-JVS(5123)*X(232)-JVS(5124)*X(233)-JVS(5125)*X(234)-JVS(5126)*X(235)-JVS(5127)*X(236)-JVS(5128)*X(237)& - &-JVS(5129)*X(238)-JVS(5130)*X(239)-JVS(5131)*X(240)-JVS(5132)*X(241)-JVS(5133)*X(242)-JVS(5134)*X(243)& - &-JVS(5135)*X(244)-JVS(5136)*X(245)-JVS(5137)*X(246)-JVS(5138)*X(247)-JVS(5139)*X(248)-JVS(5140)*X(249)& - &-JVS(5141)*X(250)-JVS(5142)*X(251)-JVS(5143)*X(252)-JVS(5144)*X(253)-JVS(5145)*X(254)-JVS(5146)*X(255)& - &-JVS(5147)*X(256)-JVS(5148)*X(257)-JVS(5149)*X(258)-JVS(5150)*X(259)-JVS(5151)*X(260)-JVS(5152)*X(261)& - &-JVS(5153)*X(262)-JVS(5154)*X(263)-JVS(5155)*X(264)-JVS(5156)*X(265)-JVS(5157)*X(266)-JVS(5158)*X(267)& - &-JVS(5159)*X(268)-JVS(5160)*X(269)-JVS(5161)*X(270)-JVS(5162)*X(271)-JVS(5163)*X(272)-JVS(5164)*X(273)& - &-JVS(5165)*X(274)-JVS(5166)*X(275)-JVS(5167)*X(276)-JVS(5168)*X(277)-JVS(5169)*X(278)-JVS(5170)*X(279)& - &-JVS(5171)*X(280)-JVS(5172)*X(281)-JVS(5173)*X(282)-JVS(5174)*X(283)-JVS(5175)*X(284)-JVS(5176)*X(285)& - &-JVS(5177)*X(286)-JVS(5178)*X(287)-JVS(5179)*X(288)-JVS(5180)*X(289)-JVS(5181)*X(290)-JVS(5182)*X(291)& - &-JVS(5183)*X(292)-JVS(5184)*X(293)-JVS(5185)*X(294)-JVS(5186)*X(295)-JVS(5187)*X(296)-JVS(5188)*X(297)& - &-JVS(5189)*X(298)-JVS(5190)*X(299)-JVS(5191)*X(300)-JVS(5192)*X(301)-JVS(5193)*X(302)-JVS(5194)*X(303)& - &-JVS(5195)*X(304)-JVS(5196)*X(305)-JVS(5197)*X(306)-JVS(5198)*X(307)-JVS(5199)*X(308)-JVS(5200)*X(309)& - &-JVS(5201)*X(310)-JVS(5202)*X(311)-JVS(5203)*X(312)-JVS(5204)*X(313)-JVS(5205)*X(314)-JVS(5206)*X(315)& - &-JVS(5207)*X(316)-JVS(5208)*X(317)-JVS(5209)*X(318)-JVS(5210)*X(319)-JVS(5211)*X(320)-JVS(5212)*X(321)& - &-JVS(5213)*X(322)-JVS(5214)*X(323)-JVS(5215)*X(324)-JVS(5216)*X(325)-JVS(5217)*X(326)-JVS(5218)*X(327)& - &-JVS(5219)*X(328)-JVS(5220)*X(329)-JVS(5221)*X(330)-JVS(5222)*X(331)-JVS(5223)*X(332)-JVS(5224)*X(333)& - &-JVS(5225)*X(334)-JVS(5226)*X(335)-JVS(5227)*X(336)-JVS(5228)*X(337)-JVS(5229)*X(338)-JVS(5230)*X(339)& - &-JVS(5231)*X(340)-JVS(5232)*X(341)-JVS(5233)*X(342)-JVS(5234)*X(343)-JVS(5235)*X(344) + X(345) = X(345)-JVS(4865)*X(59)-JVS(4866)*X(60)-JVS(4867)*X(62)-JVS(4868)*X(67)-JVS(4869)*X(68)-JVS(4870)*X(70)& + &-JVS(4871)*X(73)-JVS(4872)*X(83)-JVS(4873)*X(86)-JVS(4874)*X(94)-JVS(4875)*X(96)-JVS(4876)*X(97)-JVS(4877)& + &*X(98)-JVS(4878)*X(105)-JVS(4879)*X(110)-JVS(4880)*X(113)-JVS(4881)*X(115)-JVS(4882)*X(117)-JVS(4883)*X(124)& + &-JVS(4884)*X(125)-JVS(4885)*X(127)-JVS(4886)*X(128)-JVS(4887)*X(129)-JVS(4888)*X(130)-JVS(4889)*X(133)& + &-JVS(4890)*X(136)-JVS(4891)*X(137)-JVS(4892)*X(139)-JVS(4893)*X(140)-JVS(4894)*X(141)-JVS(4895)*X(143)& + &-JVS(4896)*X(156)-JVS(4897)*X(165)-JVS(4898)*X(166)-JVS(4899)*X(168)-JVS(4900)*X(169)-JVS(4901)*X(173)& + &-JVS(4902)*X(174)-JVS(4903)*X(175)-JVS(4904)*X(177)-JVS(4905)*X(179)-JVS(4906)*X(180)-JVS(4907)*X(181)& + &-JVS(4908)*X(182)-JVS(4909)*X(183)-JVS(4910)*X(185)-JVS(4911)*X(186)-JVS(4912)*X(188)-JVS(4913)*X(189)& + &-JVS(4914)*X(193)-JVS(4915)*X(196)-JVS(4916)*X(200)-JVS(4917)*X(201)-JVS(4918)*X(203)-JVS(4919)*X(206)& + &-JVS(4920)*X(208)-JVS(4921)*X(209)-JVS(4922)*X(210)-JVS(4923)*X(212)-JVS(4924)*X(215)-JVS(4925)*X(216)& + &-JVS(4926)*X(217)-JVS(4927)*X(221)-JVS(4928)*X(223)-JVS(4929)*X(225)-JVS(4930)*X(226)-JVS(4931)*X(228)& + &-JVS(4932)*X(229)-JVS(4933)*X(231)-JVS(4934)*X(233)-JVS(4935)*X(234)-JVS(4936)*X(235)-JVS(4937)*X(236)& + &-JVS(4938)*X(237)-JVS(4939)*X(238)-JVS(4940)*X(239)-JVS(4941)*X(240)-JVS(4942)*X(241)-JVS(4943)*X(243)& + &-JVS(4944)*X(244)-JVS(4945)*X(245)-JVS(4946)*X(246)-JVS(4947)*X(249)-JVS(4948)*X(250)-JVS(4949)*X(251)& + &-JVS(4950)*X(252)-JVS(4951)*X(253)-JVS(4952)*X(254)-JVS(4953)*X(255)-JVS(4954)*X(256)-JVS(4955)*X(257)& + &-JVS(4956)*X(258)-JVS(4957)*X(260)-JVS(4958)*X(261)-JVS(4959)*X(262)-JVS(4960)*X(263)-JVS(4961)*X(264)& + &-JVS(4962)*X(265)-JVS(4963)*X(266)-JVS(4964)*X(269)-JVS(4965)*X(270)-JVS(4966)*X(271)-JVS(4967)*X(272)& + &-JVS(4968)*X(273)-JVS(4969)*X(275)-JVS(4970)*X(276)-JVS(4971)*X(277)-JVS(4972)*X(278)-JVS(4973)*X(279)& + &-JVS(4974)*X(280)-JVS(4975)*X(281)-JVS(4976)*X(282)-JVS(4977)*X(283)-JVS(4978)*X(284)-JVS(4979)*X(288)& + &-JVS(4980)*X(289)-JVS(4981)*X(292)-JVS(4982)*X(293)-JVS(4983)*X(294)-JVS(4984)*X(296)-JVS(4985)*X(299)& + &-JVS(4986)*X(300)-JVS(4987)*X(301)-JVS(4988)*X(303)-JVS(4989)*X(304)-JVS(4990)*X(305)-JVS(4991)*X(306)& + &-JVS(4992)*X(307)-JVS(4993)*X(308)-JVS(4994)*X(309)-JVS(4995)*X(310)-JVS(4996)*X(312)-JVS(4997)*X(313)& + &-JVS(4998)*X(314)-JVS(4999)*X(315)-JVS(5000)*X(316)-JVS(5001)*X(317)-JVS(5002)*X(318)-JVS(5003)*X(319)& + &-JVS(5004)*X(321)-JVS(5005)*X(322)-JVS(5006)*X(323)-JVS(5007)*X(324)-JVS(5008)*X(325)-JVS(5009)*X(326)& + &-JVS(5010)*X(327)-JVS(5011)*X(328)-JVS(5012)*X(330)-JVS(5013)*X(331)-JVS(5014)*X(333)-JVS(5015)*X(334)& + &-JVS(5016)*X(335)-JVS(5017)*X(336)-JVS(5018)*X(337)-JVS(5019)*X(338)-JVS(5020)*X(339)-JVS(5021)*X(340)& + &-JVS(5022)*X(341)-JVS(5023)*X(342)-JVS(5024)*X(343)-JVS(5025)*X(344) IF (DO_SLV(346)) & - X(346) = X(346)-JVS(5245)*X(62)-JVS(5246)*X(63)-JVS(5247)*X(67)-JVS(5248)*X(96)-JVS(5249)*X(121)-JVS(5250)*X(132)& - &-JVS(5251)*X(133)-JVS(5252)*X(135)-JVS(5253)*X(165)-JVS(5254)*X(171)-JVS(5255)*X(172)-JVS(5256)*X(178)& - &-JVS(5257)*X(180)-JVS(5258)*X(182)-JVS(5259)*X(189)-JVS(5260)*X(190)-JVS(5261)*X(196)-JVS(5262)*X(197)& - &-JVS(5263)*X(200)-JVS(5264)*X(205)-JVS(5265)*X(206)-JVS(5266)*X(207)-JVS(5267)*X(212)-JVS(5268)*X(213)& - &-JVS(5269)*X(220)-JVS(5270)*X(223)-JVS(5271)*X(224)-JVS(5272)*X(226)-JVS(5273)*X(230)-JVS(5274)*X(231)& - &-JVS(5275)*X(232)-JVS(5276)*X(233)-JVS(5277)*X(234)-JVS(5278)*X(235)-JVS(5279)*X(236)-JVS(5280)*X(239)& - &-JVS(5281)*X(240)-JVS(5282)*X(241)-JVS(5283)*X(243)-JVS(5284)*X(246)-JVS(5285)*X(249)-JVS(5286)*X(250)& - &-JVS(5287)*X(252)-JVS(5288)*X(253)-JVS(5289)*X(254)-JVS(5290)*X(257)-JVS(5291)*X(259)-JVS(5292)*X(260)& - &-JVS(5293)*X(263)-JVS(5294)*X(267)-JVS(5295)*X(268)-JVS(5296)*X(269)-JVS(5297)*X(271)-JVS(5298)*X(272)& - &-JVS(5299)*X(273)-JVS(5300)*X(274)-JVS(5301)*X(275)-JVS(5302)*X(276)-JVS(5303)*X(277)-JVS(5304)*X(278)& - &-JVS(5305)*X(279)-JVS(5306)*X(280)-JVS(5307)*X(281)-JVS(5308)*X(284)-JVS(5309)*X(285)-JVS(5310)*X(286)& - &-JVS(5311)*X(289)-JVS(5312)*X(290)-JVS(5313)*X(291)-JVS(5314)*X(293)-JVS(5315)*X(296)-JVS(5316)*X(297)& - &-JVS(5317)*X(299)-JVS(5318)*X(300)-JVS(5319)*X(301)-JVS(5320)*X(303)-JVS(5321)*X(304)-JVS(5322)*X(305)& - &-JVS(5323)*X(306)-JVS(5324)*X(308)-JVS(5325)*X(309)-JVS(5326)*X(310)-JVS(5327)*X(311)-JVS(5328)*X(312)& - &-JVS(5329)*X(313)-JVS(5330)*X(314)-JVS(5331)*X(315)-JVS(5332)*X(318)-JVS(5333)*X(319)-JVS(5334)*X(320)& - &-JVS(5335)*X(321)-JVS(5336)*X(322)-JVS(5337)*X(323)-JVS(5338)*X(324)-JVS(5339)*X(326)-JVS(5340)*X(327)& - &-JVS(5341)*X(328)-JVS(5342)*X(329)-JVS(5343)*X(330)-JVS(5344)*X(331)-JVS(5345)*X(332)-JVS(5346)*X(334)& - &-JVS(5347)*X(335)-JVS(5348)*X(336)-JVS(5349)*X(337)-JVS(5350)*X(338)-JVS(5351)*X(339)-JVS(5352)*X(340)& - &-JVS(5353)*X(341)-JVS(5354)*X(342)-JVS(5355)*X(343)-JVS(5356)*X(344)-JVS(5357)*X(345) + X(346) = X(346)-JVS(5038)*X(169)-JVS(5039)*X(217)-JVS(5040)*X(254)-JVS(5041)*X(287)-JVS(5042)*X(296)-JVS(5043)*X(301)& + &-JVS(5044)*X(320)-JVS(5045)*X(321)-JVS(5046)*X(331)-JVS(5047)*X(332)-JVS(5048)*X(333)-JVS(5049)*X(334)& + &-JVS(5050)*X(335)-JVS(5051)*X(336)-JVS(5052)*X(337)-JVS(5053)*X(338)-JVS(5054)*X(339)-JVS(5055)*X(340)& + &-JVS(5056)*X(341)-JVS(5057)*X(342)-JVS(5058)*X(343)-JVS(5059)*X(344)-JVS(5060)*X(345) IF (DO_SLV(347)) & - X(347) = X(347)-JVS(5366)*X(53)-JVS(5367)*X(54)-JVS(5368)*X(61)-JVS(5369)*X(78)-JVS(5370)*X(81)-JVS(5371)*X(105)& - &-JVS(5372)*X(218)-JVS(5373)*X(284)-JVS(5374)*X(316)-JVS(5375)*X(330)-JVS(5376)*X(331)-JVS(5377)*X(332)& - &-JVS(5378)*X(334)-JVS(5379)*X(335)-JVS(5380)*X(336)-JVS(5381)*X(337)-JVS(5382)*X(338)-JVS(5383)*X(339)& - &-JVS(5384)*X(340)-JVS(5385)*X(341)-JVS(5386)*X(342)-JVS(5387)*X(343)-JVS(5388)*X(344)-JVS(5389)*X(345)& - &-JVS(5390)*X(346) + X(347) = X(347)-JVS(5072)*X(56)-JVS(5073)*X(57)-JVS(5074)*X(64)-JVS(5075)*X(79)-JVS(5076)*X(82)-JVS(5077)*X(108)& + &-JVS(5078)*X(221)-JVS(5079)*X(320)-JVS(5080)*X(331)-JVS(5081)*X(336)-JVS(5082)*X(337)-JVS(5083)*X(338)& + &-JVS(5084)*X(339)-JVS(5085)*X(340)-JVS(5086)*X(341)-JVS(5087)*X(342)-JVS(5088)*X(343)-JVS(5089)*X(344)& + &-JVS(5090)*X(345)-JVS(5091)*X(346) IF (DO_SLV(348)) & - X(348) = X(348)-JVS(5398)*X(68)-JVS(5399)*X(89)-JVS(5400)*X(94)-JVS(5401)*X(134)-JVS(5402)*X(166)-JVS(5403)*X(179)& - &-JVS(5404)*X(241)-JVS(5405)*X(264)-JVS(5406)*X(276)-JVS(5407)*X(290)-JVS(5408)*X(312)-JVS(5409)*X(314)& - &-JVS(5410)*X(316)-JVS(5411)*X(324)-JVS(5412)*X(325)-JVS(5413)*X(326)-JVS(5414)*X(327)-JVS(5415)*X(328)& - &-JVS(5416)*X(329)-JVS(5417)*X(332)-JVS(5418)*X(333)-JVS(5419)*X(334)-JVS(5420)*X(335)-JVS(5421)*X(336)& - &-JVS(5422)*X(337)-JVS(5423)*X(338)-JVS(5424)*X(339)-JVS(5425)*X(340)-JVS(5426)*X(341)-JVS(5427)*X(342)& - &-JVS(5428)*X(343)-JVS(5429)*X(344)-JVS(5430)*X(345)-JVS(5431)*X(346)-JVS(5432)*X(347) + X(348) = X(348)-JVS(5102)*X(72)-JVS(5103)*X(83)-JVS(5104)*X(87)-JVS(5105)*X(110)-JVS(5106)*X(127)-JVS(5107)*X(129)& + &-JVS(5108)*X(140)-JVS(5109)*X(143)-JVS(5110)*X(144)-JVS(5111)*X(148)-JVS(5112)*X(156)-JVS(5113)*X(162)& + &-JVS(5114)*X(166)-JVS(5115)*X(170)-JVS(5116)*X(172)-JVS(5117)*X(187)-JVS(5118)*X(189)-JVS(5119)*X(194)& + &-JVS(5120)*X(196)-JVS(5121)*X(199)-JVS(5122)*X(201)-JVS(5123)*X(203)-JVS(5124)*X(205)-JVS(5125)*X(207)& + &-JVS(5126)*X(212)-JVS(5127)*X(216)-JVS(5128)*X(217)-JVS(5129)*X(221)-JVS(5130)*X(222)-JVS(5131)*X(223)& + &-JVS(5132)*X(227)-JVS(5133)*X(229)-JVS(5134)*X(234)-JVS(5135)*X(238)-JVS(5136)*X(239)-JVS(5137)*X(241)& + &-JVS(5138)*X(244)-JVS(5139)*X(246)-JVS(5140)*X(250)-JVS(5141)*X(254)-JVS(5142)*X(256)-JVS(5143)*X(260)& + &-JVS(5144)*X(261)-JVS(5145)*X(262)-JVS(5146)*X(263)-JVS(5147)*X(265)-JVS(5148)*X(266)-JVS(5149)*X(270)& + &-JVS(5150)*X(272)-JVS(5151)*X(273)-JVS(5152)*X(274)-JVS(5153)*X(275)-JVS(5154)*X(276)-JVS(5155)*X(277)& + &-JVS(5156)*X(278)-JVS(5157)*X(279)-JVS(5158)*X(280)-JVS(5159)*X(281)-JVS(5160)*X(282)-JVS(5161)*X(284)& + &-JVS(5162)*X(288)-JVS(5163)*X(289)-JVS(5164)*X(291)-JVS(5165)*X(292)-JVS(5166)*X(293)-JVS(5167)*X(294)& + &-JVS(5168)*X(295)-JVS(5169)*X(296)-JVS(5170)*X(298)-JVS(5171)*X(299)-JVS(5172)*X(302)-JVS(5173)*X(303)& + &-JVS(5174)*X(304)-JVS(5175)*X(305)-JVS(5176)*X(306)-JVS(5177)*X(307)-JVS(5178)*X(308)-JVS(5179)*X(309)& + &-JVS(5180)*X(310)-JVS(5181)*X(311)-JVS(5182)*X(312)-JVS(5183)*X(313)-JVS(5184)*X(314)-JVS(5185)*X(315)& + &-JVS(5186)*X(316)-JVS(5187)*X(317)-JVS(5188)*X(318)-JVS(5189)*X(321)-JVS(5190)*X(322)-JVS(5191)*X(323)& + &-JVS(5192)*X(324)-JVS(5193)*X(325)-JVS(5194)*X(326)-JVS(5195)*X(327)-JVS(5196)*X(328)-JVS(5197)*X(329)& + &-JVS(5198)*X(330)-JVS(5199)*X(331)-JVS(5200)*X(333)-JVS(5201)*X(334)-JVS(5202)*X(335)-JVS(5203)*X(336)& + &-JVS(5204)*X(337)-JVS(5205)*X(338)-JVS(5206)*X(339)-JVS(5207)*X(340)-JVS(5208)*X(341)-JVS(5209)*X(342)& + &-JVS(5210)*X(343)-JVS(5211)*X(344)-JVS(5212)*X(345)-JVS(5213)*X(346)-JVS(5214)*X(347) IF (DO_SLV(349)) & - X(349) = X(349)-JVS(5439)*X(252)-JVS(5440)*X(297)-JVS(5441)*X(316)-JVS(5442)*X(317)-JVS(5443)*X(330)-JVS(5444)*X(331)& - &-JVS(5445)*X(332)-JVS(5446)*X(335)-JVS(5447)*X(336)-JVS(5448)*X(337)-JVS(5449)*X(338)-JVS(5450)*X(339)& - &-JVS(5451)*X(340)-JVS(5452)*X(341)-JVS(5453)*X(342)-JVS(5454)*X(343)-JVS(5455)*X(344)-JVS(5456)*X(345)& - &-JVS(5457)*X(346)-JVS(5458)*X(347)-JVS(5459)*X(348) + X(349) = X(349)-JVS(5224)*X(254)-JVS(5225)*X(287)-JVS(5226)*X(296)-JVS(5227)*X(301)-JVS(5228)*X(320)-JVS(5229)*X(321)& + &-JVS(5230)*X(331)-JVS(5231)*X(336)-JVS(5232)*X(338)-JVS(5233)*X(339)-JVS(5234)*X(340)-JVS(5235)*X(341)& + &-JVS(5236)*X(342)-JVS(5237)*X(343)-JVS(5238)*X(344)-JVS(5239)*X(345)-JVS(5240)*X(346)-JVS(5241)*X(347)& + &-JVS(5242)*X(348) IF (DO_SLV(350)) & - X(350) = X(350)-JVS(5465)*X(252)-JVS(5466)*X(297)-JVS(5467)*X(316)-JVS(5468)*X(317)-JVS(5469)*X(330)-JVS(5470)*X(331)& - &-JVS(5471)*X(332)-JVS(5472)*X(335)-JVS(5473)*X(336)-JVS(5474)*X(337)-JVS(5475)*X(338)-JVS(5476)*X(339)& - &-JVS(5477)*X(340)-JVS(5478)*X(341)-JVS(5479)*X(342)-JVS(5480)*X(343)-JVS(5481)*X(344)-JVS(5482)*X(345)& - &-JVS(5483)*X(346)-JVS(5484)*X(347)-JVS(5485)*X(348)-JVS(5486)*X(349) + X(350) = X(350)-JVS(5251)*X(254)-JVS(5252)*X(287)-JVS(5253)*X(296)-JVS(5254)*X(301)-JVS(5255)*X(320)-JVS(5256)*X(321)& + &-JVS(5257)*X(331)-JVS(5258)*X(336)-JVS(5259)*X(338)-JVS(5260)*X(339)-JVS(5261)*X(340)-JVS(5262)*X(341)& + &-JVS(5263)*X(342)-JVS(5264)*X(343)-JVS(5265)*X(344)-JVS(5266)*X(345)-JVS(5267)*X(346)-JVS(5268)*X(347)& + &-JVS(5269)*X(348)-JVS(5270)*X(349) IF (DO_SLV(351)) & - X(351) = X(351)-JVS(5491)*X(69)-JVS(5492)*X(80)-JVS(5493)*X(94)-JVS(5494)*X(108)-JVS(5495)*X(124)-JVS(5496)*X(126)& - &-JVS(5497)*X(139)-JVS(5498)*X(140)-JVS(5499)*X(142)-JVS(5500)*X(149)-JVS(5501)*X(154)-JVS(5502)*X(158)& - &-JVS(5503)*X(163)-JVS(5504)*X(167)-JVS(5505)*X(170)-JVS(5506)*X(183)-JVS(5507)*X(184)-JVS(5508)*X(191)& - &-JVS(5509)*X(193)-JVS(5510)*X(195)-JVS(5511)*X(197)-JVS(5512)*X(200)-JVS(5513)*X(202)-JVS(5514)*X(204)& - &-JVS(5515)*X(211)-JVS(5516)*X(213)-JVS(5517)*X(214)-JVS(5518)*X(218)-JVS(5519)*X(219)-JVS(5520)*X(220)& - &-JVS(5521)*X(225)-JVS(5522)*X(229)-JVS(5523)*X(233)-JVS(5524)*X(234)-JVS(5525)*X(236)-JVS(5526)*X(237)& - &-JVS(5527)*X(241)-JVS(5528)*X(242)-JVS(5529)*X(246)-JVS(5530)*X(252)-JVS(5531)*X(255)-JVS(5532)*X(256)& - &-JVS(5533)*X(257)-JVS(5534)*X(259)-JVS(5535)*X(261)-JVS(5536)*X(262)-JVS(5537)*X(263)-JVS(5538)*X(267)& - &-JVS(5539)*X(269)-JVS(5540)*X(270)-JVS(5541)*X(271)-JVS(5542)*X(272)-JVS(5543)*X(273)-JVS(5544)*X(274)& - &-JVS(5545)*X(275)-JVS(5546)*X(276)-JVS(5547)*X(277)-JVS(5548)*X(278)-JVS(5549)*X(280)-JVS(5550)*X(281)& - &-JVS(5551)*X(285)-JVS(5552)*X(286)-JVS(5553)*X(288)-JVS(5554)*X(289)-JVS(5555)*X(290)-JVS(5556)*X(291)& - &-JVS(5557)*X(292)-JVS(5558)*X(293)-JVS(5559)*X(294)-JVS(5560)*X(298)-JVS(5561)*X(299)-JVS(5562)*X(300)& - &-JVS(5563)*X(301)-JVS(5564)*X(302)-JVS(5565)*X(303)-JVS(5566)*X(304)-JVS(5567)*X(305)-JVS(5568)*X(306)& - &-JVS(5569)*X(307)-JVS(5570)*X(308)-JVS(5571)*X(309)-JVS(5572)*X(310)-JVS(5573)*X(311)-JVS(5574)*X(312)& - &-JVS(5575)*X(313)-JVS(5576)*X(314)-JVS(5577)*X(317)-JVS(5578)*X(318)-JVS(5579)*X(319)-JVS(5580)*X(320)& - &-JVS(5581)*X(321)-JVS(5582)*X(322)-JVS(5583)*X(323)-JVS(5584)*X(324)-JVS(5585)*X(325)-JVS(5586)*X(326)& - &-JVS(5587)*X(327)-JVS(5588)*X(328)-JVS(5589)*X(329)-JVS(5590)*X(331)-JVS(5591)*X(332)-JVS(5592)*X(334)& - &-JVS(5593)*X(335)-JVS(5594)*X(336)-JVS(5595)*X(337)-JVS(5596)*X(338)-JVS(5597)*X(339)-JVS(5598)*X(340)& - &-JVS(5599)*X(341)-JVS(5600)*X(342)-JVS(5601)*X(343)-JVS(5602)*X(344)-JVS(5603)*X(345)-JVS(5604)*X(346)& - &-JVS(5605)*X(347)-JVS(5606)*X(348)-JVS(5607)*X(349)-JVS(5608)*X(350) + X(351) = X(351)-JVS(5278)*X(49)-JVS(5279)*X(50)-JVS(5280)*X(51)-JVS(5281)*X(52)-JVS(5282)*X(53)-JVS(5283)*X(54)& + &-JVS(5284)*X(56)-JVS(5285)*X(57)-JVS(5286)*X(64)-JVS(5287)*X(70)-JVS(5288)*X(71)-JVS(5289)*X(79)-JVS(5290)& + &*X(82)-JVS(5291)*X(88)-JVS(5292)*X(89)-JVS(5293)*X(90)-JVS(5294)*X(91)-JVS(5295)*X(123)-JVS(5296)*X(184)& + &-JVS(5297)*X(219)-JVS(5298)*X(232)-JVS(5299)*X(248)-JVS(5300)*X(267)-JVS(5301)*X(279)-JVS(5302)*X(293)& + &-JVS(5303)*X(301)-JVS(5304)*X(317)-JVS(5305)*X(318)-JVS(5306)*X(320)-JVS(5307)*X(321)-JVS(5308)*X(328)& + &-JVS(5309)*X(329)-JVS(5310)*X(330)-JVS(5311)*X(332)-JVS(5312)*X(334)-JVS(5313)*X(335)-JVS(5314)*X(336)& + &-JVS(5315)*X(337)-JVS(5316)*X(338)-JVS(5317)*X(339)-JVS(5318)*X(340)-JVS(5319)*X(341)-JVS(5320)*X(342)& + &-JVS(5321)*X(343)-JVS(5322)*X(344)-JVS(5323)*X(345)-JVS(5324)*X(346)-JVS(5325)*X(347)-JVS(5326)*X(348)& + &-JVS(5327)*X(349)-JVS(5328)*X(350) IF (DO_SLV(352)) & - X(352) = X(352)-JVS(5612)*X(141)-JVS(5613)*X(183)-JVS(5614)*X(290)-JVS(5615)*X(295)-JVS(5616)*X(297)-JVS(5617)*X(300)& - &-JVS(5618)*X(314)-JVS(5619)*X(316)-JVS(5620)*X(317)-JVS(5621)*X(318)-JVS(5622)*X(319)-JVS(5623)*X(320)& - &-JVS(5624)*X(323)-JVS(5625)*X(324)-JVS(5626)*X(325)-JVS(5627)*X(326)-JVS(5628)*X(328)-JVS(5629)*X(329)& - &-JVS(5630)*X(333)-JVS(5631)*X(334)-JVS(5632)*X(335)-JVS(5633)*X(336)-JVS(5634)*X(337)-JVS(5635)*X(338)& - &-JVS(5636)*X(339)-JVS(5637)*X(340)-JVS(5638)*X(341)-JVS(5639)*X(342)-JVS(5640)*X(343)-JVS(5641)*X(344)& - &-JVS(5642)*X(345)-JVS(5643)*X(346)-JVS(5644)*X(347)-JVS(5645)*X(348)-JVS(5646)*X(349)-JVS(5647)*X(350)& - &-JVS(5648)*X(351) + X(352) = X(352)-JVS(5335)*X(3)-JVS(5336)*X(46)-JVS(5337)*X(49)-JVS(5338)*X(50)-JVS(5339)*X(51)-JVS(5340)*X(52)& + &-JVS(5341)*X(53)-JVS(5342)*X(54)-JVS(5343)*X(64)-JVS(5344)*X(78)-JVS(5345)*X(80)-JVS(5346)*X(84)-JVS(5347)& + &*X(88)-JVS(5348)*X(89)-JVS(5349)*X(90)-JVS(5350)*X(91)-JVS(5351)*X(107)-JVS(5352)*X(119)-JVS(5353)*X(142)& + &-JVS(5354)*X(144)-JVS(5355)*X(154)-JVS(5356)*X(160)-JVS(5357)*X(167)-JVS(5358)*X(184)-JVS(5359)*X(187)& + &-JVS(5360)*X(221)-JVS(5361)*X(232)-JVS(5362)*X(248)-JVS(5363)*X(254)-JVS(5364)*X(267)-JVS(5365)*X(268)& + &-JVS(5366)*X(272)-JVS(5367)*X(279)-JVS(5368)*X(285)-JVS(5369)*X(286)-JVS(5370)*X(287)-JVS(5371)*X(292)& + &-JVS(5372)*X(293)-JVS(5373)*X(294)-JVS(5374)*X(296)-JVS(5375)*X(297)-JVS(5376)*X(300)-JVS(5377)*X(301)& + &-JVS(5378)*X(304)-JVS(5379)*X(305)-JVS(5380)*X(306)-JVS(5381)*X(307)-JVS(5382)*X(308)-JVS(5383)*X(309)& + &-JVS(5384)*X(310)-JVS(5385)*X(311)-JVS(5386)*X(312)-JVS(5387)*X(313)-JVS(5388)*X(314)-JVS(5389)*X(315)& + &-JVS(5390)*X(316)-JVS(5391)*X(317)-JVS(5392)*X(318)-JVS(5393)*X(319)-JVS(5394)*X(320)-JVS(5395)*X(321)& + &-JVS(5396)*X(322)-JVS(5397)*X(323)-JVS(5398)*X(324)-JVS(5399)*X(325)-JVS(5400)*X(326)-JVS(5401)*X(327)& + &-JVS(5402)*X(328)-JVS(5403)*X(329)-JVS(5404)*X(330)-JVS(5405)*X(331)-JVS(5406)*X(332)-JVS(5407)*X(334)& + &-JVS(5408)*X(335)-JVS(5409)*X(336)-JVS(5410)*X(337)-JVS(5411)*X(338)-JVS(5412)*X(339)-JVS(5413)*X(340)& + &-JVS(5414)*X(341)-JVS(5415)*X(342)-JVS(5416)*X(343)-JVS(5417)*X(344)-JVS(5418)*X(345)-JVS(5419)*X(346)& + &-JVS(5420)*X(347)-JVS(5421)*X(348)-JVS(5422)*X(349)-JVS(5423)*X(350)-JVS(5424)*X(351) IF (DO_SLV(353)) & - X(353) = X(353)-JVS(5651)*X(179)-JVS(5652)*X(214)-JVS(5653)*X(252)-JVS(5654)*X(297)-JVS(5655)*X(316)-JVS(5656)*X(317)& - &-JVS(5657)*X(327)-JVS(5658)*X(328)-JVS(5659)*X(329)-JVS(5660)*X(330)-JVS(5661)*X(331)-JVS(5662)*X(332)& - &-JVS(5663)*X(333)-JVS(5664)*X(334)-JVS(5665)*X(335)-JVS(5666)*X(336)-JVS(5667)*X(337)-JVS(5668)*X(338)& - &-JVS(5669)*X(339)-JVS(5670)*X(340)-JVS(5671)*X(341)-JVS(5672)*X(342)-JVS(5673)*X(343)-JVS(5674)*X(344)& - &-JVS(5675)*X(345)-JVS(5676)*X(346)-JVS(5677)*X(347)-JVS(5678)*X(348)-JVS(5679)*X(349)-JVS(5680)*X(350)& - &-JVS(5681)*X(351)-JVS(5682)*X(352) + X(353) = X(353)-JVS(5430)*X(46)-JVS(5431)*X(55)-JVS(5432)*X(75)-JVS(5433)*X(88)-JVS(5434)*X(89)-JVS(5435)*X(90)& + &-JVS(5436)*X(91)-JVS(5437)*X(108)-JVS(5438)*X(110)-JVS(5439)*X(117)-JVS(5440)*X(167)-JVS(5441)*X(176)& + &-JVS(5442)*X(184)-JVS(5443)*X(187)-JVS(5444)*X(193)-JVS(5445)*X(200)-JVS(5446)*X(203)-JVS(5447)*X(204)& + &-JVS(5448)*X(217)-JVS(5449)*X(219)-JVS(5450)*X(221)-JVS(5451)*X(223)-JVS(5452)*X(224)-JVS(5453)*X(232)& + &-JVS(5454)*X(240)-JVS(5455)*X(243)-JVS(5456)*X(244)-JVS(5457)*X(247)-JVS(5458)*X(250)-JVS(5459)*X(254)& + &-JVS(5460)*X(255)-JVS(5461)*X(267)-JVS(5462)*X(268)-JVS(5463)*X(272)-JVS(5464)*X(273)-JVS(5465)*X(279)& + &-JVS(5466)*X(283)-JVS(5467)*X(286)-JVS(5468)*X(287)-JVS(5469)*X(290)-JVS(5470)*X(292)-JVS(5471)*X(293)& + &-JVS(5472)*X(294)-JVS(5473)*X(295)-JVS(5474)*X(296)-JVS(5475)*X(297)-JVS(5476)*X(300)-JVS(5477)*X(301)& + &-JVS(5478)*X(302)-JVS(5479)*X(304)-JVS(5480)*X(305)-JVS(5481)*X(306)-JVS(5482)*X(307)-JVS(5483)*X(308)& + &-JVS(5484)*X(309)-JVS(5485)*X(310)-JVS(5486)*X(311)-JVS(5487)*X(312)-JVS(5488)*X(313)-JVS(5489)*X(314)& + &-JVS(5490)*X(315)-JVS(5491)*X(316)-JVS(5492)*X(317)-JVS(5493)*X(318)-JVS(5494)*X(319)-JVS(5495)*X(320)& + &-JVS(5496)*X(321)-JVS(5497)*X(322)-JVS(5498)*X(323)-JVS(5499)*X(324)-JVS(5500)*X(325)-JVS(5501)*X(326)& + &-JVS(5502)*X(327)-JVS(5503)*X(328)-JVS(5504)*X(329)-JVS(5505)*X(330)-JVS(5506)*X(331)-JVS(5507)*X(332)& + &-JVS(5508)*X(333)-JVS(5509)*X(334)-JVS(5510)*X(335)-JVS(5511)*X(336)-JVS(5512)*X(337)-JVS(5513)*X(338)& + &-JVS(5514)*X(339)-JVS(5515)*X(340)-JVS(5516)*X(341)-JVS(5517)*X(342)-JVS(5518)*X(343)-JVS(5519)*X(344)& + &-JVS(5520)*X(345)-JVS(5521)*X(346)-JVS(5522)*X(347)-JVS(5523)*X(348)-JVS(5524)*X(349)-JVS(5525)*X(350)& + &-JVS(5526)*X(351)-JVS(5527)*X(352) +IF (DO_SLV(354)) & + X(354) = X(354)-JVS(5532)*X(142)-JVS(5533)*X(187)-JVS(5534)*X(293)-JVS(5535)*X(297)-JVS(5536)*X(301)-JVS(5537)*X(304)& + &-JVS(5538)*X(318)-JVS(5539)*X(320)-JVS(5540)*X(321)-JVS(5541)*X(322)-JVS(5542)*X(323)-JVS(5543)*X(324)& + &-JVS(5544)*X(327)-JVS(5545)*X(328)-JVS(5546)*X(329)-JVS(5547)*X(330)-JVS(5548)*X(332)-JVS(5549)*X(334)& + &-JVS(5550)*X(335)-JVS(5551)*X(336)-JVS(5552)*X(337)-JVS(5553)*X(338)-JVS(5554)*X(339)-JVS(5555)*X(340)& + &-JVS(5556)*X(341)-JVS(5557)*X(342)-JVS(5558)*X(343)-JVS(5559)*X(344)-JVS(5560)*X(345)-JVS(5561)*X(346)& + &-JVS(5562)*X(347)-JVS(5563)*X(348)-JVS(5564)*X(349)-JVS(5565)*X(350)-JVS(5566)*X(351)-JVS(5567)*X(352)& + &-JVS(5568)*X(353) +IF (DO_SLV(355)) & + X(355) = X(355)-JVS(5572)*X(71)-JVS(5573)*X(87)-JVS(5574)*X(93)-JVS(5575)*X(146)-JVS(5576)*X(169)-JVS(5577)*X(183)& + &-JVS(5578)*X(244)-JVS(5579)*X(267)-JVS(5580)*X(279)-JVS(5581)*X(293)-JVS(5582)*X(317)-JVS(5583)*X(318)& + &-JVS(5584)*X(320)-JVS(5585)*X(328)-JVS(5586)*X(329)-JVS(5587)*X(330)-JVS(5588)*X(332)-JVS(5589)*X(333)& + &-JVS(5590)*X(334)-JVS(5591)*X(335)-JVS(5592)*X(336)-JVS(5593)*X(337)-JVS(5594)*X(338)-JVS(5595)*X(339)& + &-JVS(5596)*X(340)-JVS(5597)*X(341)-JVS(5598)*X(342)-JVS(5599)*X(343)-JVS(5600)*X(344)-JVS(5601)*X(345)& + &-JVS(5602)*X(346)-JVS(5603)*X(347)-JVS(5604)*X(348)-JVS(5605)*X(349)-JVS(5606)*X(350)-JVS(5607)*X(351)& + &-JVS(5608)*X(352)-JVS(5609)*X(353)-JVS(5610)*X(354) +IF (DO_SLV(356)) & + X(356) = X(356)-JVS(5613)*X(120)-JVS(5614)*X(140)-JVS(5615)*X(169)-JVS(5616)*X(170)-JVS(5617)*X(183)-JVS(5618)*X(194)& + &-JVS(5619)*X(196)-JVS(5620)*X(204)-JVS(5621)*X(205)-JVS(5622)*X(206)-JVS(5623)*X(212)-JVS(5624)*X(216)& + &-JVS(5625)*X(219)-JVS(5626)*X(222)-JVS(5627)*X(223)-JVS(5628)*X(224)-JVS(5629)*X(229)-JVS(5630)*X(232)& + &-JVS(5631)*X(234)-JVS(5632)*X(237)-JVS(5633)*X(238)-JVS(5634)*X(241)-JVS(5635)*X(243)-JVS(5636)*X(246)& + &-JVS(5637)*X(250)-JVS(5638)*X(256)-JVS(5639)*X(261)-JVS(5640)*X(262)-JVS(5641)*X(263)-JVS(5642)*X(272)& + &-JVS(5643)*X(277)-JVS(5644)*X(278)-JVS(5645)*X(279)-JVS(5646)*X(280)-JVS(5647)*X(281)-JVS(5648)*X(284)& + &-JVS(5649)*X(292)-JVS(5650)*X(293)-JVS(5651)*X(294)-JVS(5652)*X(309)-JVS(5653)*X(310)-JVS(5654)*X(312)& + &-JVS(5655)*X(313)-JVS(5656)*X(314)-JVS(5657)*X(315)-JVS(5658)*X(317)-JVS(5659)*X(318)-JVS(5660)*X(324)& + &-JVS(5661)*X(325)-JVS(5662)*X(326)-JVS(5663)*X(327)-JVS(5664)*X(328)-JVS(5665)*X(329)-JVS(5666)*X(330)& + &-JVS(5667)*X(331)-JVS(5668)*X(333)-JVS(5669)*X(334)-JVS(5670)*X(335)-JVS(5671)*X(336)-JVS(5672)*X(337)& + &-JVS(5673)*X(338)-JVS(5674)*X(339)-JVS(5675)*X(340)-JVS(5676)*X(341)-JVS(5677)*X(342)-JVS(5678)*X(343)& + &-JVS(5679)*X(344)-JVS(5680)*X(345)-JVS(5681)*X(346)-JVS(5682)*X(347)-JVS(5683)*X(348)-JVS(5684)*X(349)& + &-JVS(5685)*X(350)-JVS(5686)*X(351)-JVS(5687)*X(352)-JVS(5688)*X(353)-JVS(5689)*X(354)-JVS(5690)*X(355) +IF (DO_SLV(356)) & + X(356) = X(356)/JVS(5691) +IF (DO_SLV(355)) & + X(355) = (X(355)-JVS(5612)*X(356))/(JVS(5611)) +IF (DO_SLV(354)) & + X(354) = (X(354)-JVS(5570)*X(355)-JVS(5571)*X(356))/(JVS(5569)) IF (DO_SLV(353)) & - X(353) = X(353)/JVS(5683) + X(353) = (X(353)-JVS(5529)*X(354)-JVS(5530)*X(355)-JVS(5531)*X(356))/(JVS(5528)) IF (DO_SLV(352)) & - X(352) = (X(352)-JVS(5650)*X(353))/(JVS(5649)) + X(352) = (X(352)-JVS(5426)*X(353)-JVS(5427)*X(354)-JVS(5428)*X(355)-JVS(5429)*X(356))/(JVS(5425)) IF (DO_SLV(351)) & - X(351) = (X(351)-JVS(5610)*X(352)-JVS(5611)*X(353))/(JVS(5609)) + X(351) = (X(351)-JVS(5330)*X(352)-JVS(5331)*X(353)-JVS(5332)*X(354)-JVS(5333)*X(355)-JVS(5334)*X(356))/(JVS(5329)) IF (DO_SLV(350)) & - X(350) = (X(350)-JVS(5488)*X(351)-JVS(5489)*X(352)-JVS(5490)*X(353))/(JVS(5487)) + X(350) = (X(350)-JVS(5272)*X(351)-JVS(5273)*X(352)-JVS(5274)*X(353)-JVS(5275)*X(354)-JVS(5276)*X(355)-JVS(5277)& + &*X(356))/(JVS(5271)) IF (DO_SLV(349)) & - X(349) = (X(349)-JVS(5461)*X(350)-JVS(5462)*X(351)-JVS(5463)*X(352)-JVS(5464)*X(353))/(JVS(5460)) + X(349) = (X(349)-JVS(5244)*X(350)-JVS(5245)*X(351)-JVS(5246)*X(352)-JVS(5247)*X(353)-JVS(5248)*X(354)-JVS(5249)*X(355)& + &-JVS(5250)*X(356))/(JVS(5243)) IF (DO_SLV(348)) & - X(348) = (X(348)-JVS(5434)*X(349)-JVS(5435)*X(350)-JVS(5436)*X(351)-JVS(5437)*X(352)-JVS(5438)*X(353))/(JVS(5433)) + X(348) = (X(348)-JVS(5216)*X(349)-JVS(5217)*X(350)-JVS(5218)*X(351)-JVS(5219)*X(352)-JVS(5220)*X(353)-JVS(5221)*X(354)& + &-JVS(5222)*X(355)-JVS(5223)*X(356))/(JVS(5215)) IF (DO_SLV(347)) & - X(347) = (X(347)-JVS(5392)*X(348)-JVS(5393)*X(349)-JVS(5394)*X(350)-JVS(5395)*X(351)-JVS(5396)*X(352)-JVS(5397)& - &*X(353))/(JVS(5391)) + X(347) = (X(347)-JVS(5093)*X(348)-JVS(5094)*X(349)-JVS(5095)*X(350)-JVS(5096)*X(351)-JVS(5097)*X(352)-JVS(5098)*X(353)& + &-JVS(5099)*X(354)-JVS(5100)*X(355)-JVS(5101)*X(356))/(JVS(5092)) IF (DO_SLV(346)) & - X(346) = (X(346)-JVS(5359)*X(347)-JVS(5360)*X(348)-JVS(5361)*X(349)-JVS(5362)*X(350)-JVS(5363)*X(351)-JVS(5364)*X(352)& - &-JVS(5365)*X(353))/(JVS(5358)) + X(346) = (X(346)-JVS(5062)*X(347)-JVS(5063)*X(348)-JVS(5064)*X(349)-JVS(5065)*X(350)-JVS(5066)*X(351)-JVS(5067)*X(352)& + &-JVS(5068)*X(353)-JVS(5069)*X(354)-JVS(5070)*X(355)-JVS(5071)*X(356))/(JVS(5061)) IF (DO_SLV(345)) & - X(345) = (X(345)-JVS(5237)*X(346)-JVS(5238)*X(347)-JVS(5239)*X(348)-JVS(5240)*X(349)-JVS(5241)*X(350)-JVS(5242)*X(351)& - &-JVS(5243)*X(352)-JVS(5244)*X(353))/(JVS(5236)) + X(345) = (X(345)-JVS(5027)*X(346)-JVS(5028)*X(347)-JVS(5029)*X(348)-JVS(5030)*X(349)-JVS(5031)*X(350)-JVS(5032)*X(351)& + &-JVS(5033)*X(352)-JVS(5034)*X(353)-JVS(5035)*X(354)-JVS(5036)*X(355)-JVS(5037)*X(356))/(JVS(5026)) IF (DO_SLV(344)) & - X(344) = (X(344)-JVS(4961)*X(345)-JVS(4962)*X(346)-JVS(4963)*X(347)-JVS(4964)*X(348)-JVS(4965)*X(349)-JVS(4966)*X(350)& - &-JVS(4967)*X(351)-JVS(4968)*X(352)-JVS(4969)*X(353))/(JVS(4960)) + X(344) = (X(344)-JVS(4853)*X(345)-JVS(4854)*X(346)-JVS(4855)*X(347)-JVS(4856)*X(348)-JVS(4857)*X(349)-JVS(4858)*X(350)& + &-JVS(4859)*X(351)-JVS(4860)*X(352)-JVS(4861)*X(353)-JVS(4862)*X(354)-JVS(4863)*X(355)-JVS(4864)*X(356))& + &/(JVS(4852)) IF (DO_SLV(343)) & - X(343) = (X(343)-JVS(4927)*X(344)-JVS(4928)*X(345)-JVS(4929)*X(346)-JVS(4930)*X(347)-JVS(4931)*X(348)-JVS(4932)*X(349)& - &-JVS(4933)*X(350)-JVS(4934)*X(351)-JVS(4935)*X(352)-JVS(4936)*X(353))/(JVS(4926)) + X(343) = (X(343)-JVS(4800)*X(344)-JVS(4801)*X(345)-JVS(4802)*X(346)-JVS(4803)*X(347)-JVS(4804)*X(348)-JVS(4805)*X(349)& + &-JVS(4806)*X(350)-JVS(4807)*X(351)-JVS(4808)*X(352)-JVS(4809)*X(353)-JVS(4810)*X(354)-JVS(4811)*X(355)& + &-JVS(4812)*X(356))/(JVS(4799)) IF (DO_SLV(342)) & - X(342) = (X(342)-JVS(4866)*X(343)-JVS(4867)*X(344)-JVS(4868)*X(345)-JVS(4869)*X(346)-JVS(4870)*X(347)-JVS(4871)*X(348)& - &-JVS(4872)*X(349)-JVS(4873)*X(350)-JVS(4874)*X(351)-JVS(4875)*X(352)-JVS(4876)*X(353))/(JVS(4865)) + X(342) = (X(342)-JVS(4524)*X(343)-JVS(4525)*X(344)-JVS(4526)*X(345)-JVS(4527)*X(346)-JVS(4528)*X(347)-JVS(4529)*X(348)& + &-JVS(4530)*X(349)-JVS(4531)*X(350)-JVS(4532)*X(351)-JVS(4533)*X(352)-JVS(4534)*X(353)-JVS(4535)*X(354)& + &-JVS(4536)*X(355)-JVS(4537)*X(356))/(JVS(4523)) IF (DO_SLV(341)) & - X(341) = (X(341)-JVS(4809)*X(342)-JVS(4810)*X(343)-JVS(4811)*X(344)-JVS(4812)*X(345)-JVS(4813)*X(346)-JVS(4814)*X(347)& - &-JVS(4815)*X(348)-JVS(4816)*X(349)-JVS(4817)*X(350)-JVS(4818)*X(351)-JVS(4819)*X(352)-JVS(4820)*X(353))& - &/(JVS(4808)) + X(341) = (X(341)-JVS(4467)*X(342)-JVS(4468)*X(343)-JVS(4469)*X(344)-JVS(4470)*X(345)-JVS(4471)*X(346)-JVS(4472)*X(347)& + &-JVS(4473)*X(348)-JVS(4474)*X(349)-JVS(4475)*X(350)-JVS(4476)*X(351)-JVS(4477)*X(352)-JVS(4478)*X(353)& + &-JVS(4479)*X(354)-JVS(4480)*X(355)-JVS(4481)*X(356))/(JVS(4466)) IF (DO_SLV(340)) & - X(340) = (X(340)-JVS(4731)*X(341)-JVS(4732)*X(342)-JVS(4733)*X(343)-JVS(4734)*X(344)-JVS(4735)*X(345)-JVS(4736)*X(346)& - &-JVS(4737)*X(347)-JVS(4738)*X(348)-JVS(4739)*X(349)-JVS(4740)*X(350)-JVS(4741)*X(351)-JVS(4742)*X(352)& - &-JVS(4743)*X(353))/(JVS(4730)) + X(340) = (X(340)-JVS(4260)*X(341)-JVS(4261)*X(342)-JVS(4262)*X(343)-JVS(4263)*X(344)-JVS(4264)*X(345)-JVS(4265)*X(346)& + &-JVS(4266)*X(347)-JVS(4267)*X(348)-JVS(4268)*X(349)-JVS(4269)*X(350)-JVS(4270)*X(351)-JVS(4271)*X(352)& + &-JVS(4272)*X(353)-JVS(4273)*X(354)-JVS(4274)*X(355)-JVS(4275)*X(356))/(JVS(4259)) IF (DO_SLV(339)) & - X(339) = (X(339)-JVS(4635)*X(340)-JVS(4636)*X(341)-JVS(4637)*X(342)-JVS(4638)*X(343)-JVS(4639)*X(344)-JVS(4640)*X(345)& - &-JVS(4641)*X(346)-JVS(4642)*X(347)-JVS(4643)*X(348)-JVS(4644)*X(349)-JVS(4645)*X(350)-JVS(4646)*X(351)& - &-JVS(4647)*X(352)-JVS(4648)*X(353))/(JVS(4634)) + X(339) = (X(339)-JVS(4182)*X(340)-JVS(4183)*X(341)-JVS(4184)*X(342)-JVS(4185)*X(343)-JVS(4186)*X(344)-JVS(4187)*X(345)& + &-JVS(4188)*X(346)-JVS(4189)*X(347)-JVS(4190)*X(348)-JVS(4191)*X(349)-JVS(4192)*X(350)-JVS(4193)*X(351)& + &-JVS(4194)*X(352)-JVS(4195)*X(353)-JVS(4196)*X(354)-JVS(4197)*X(355)-JVS(4198)*X(356))/(JVS(4181)) IF (DO_SLV(338)) & - X(338) = (X(338)-JVS(4557)*X(339)-JVS(4558)*X(340)-JVS(4559)*X(341)-JVS(4560)*X(342)-JVS(4561)*X(343)-JVS(4562)*X(344)& - &-JVS(4563)*X(345)-JVS(4564)*X(346)-JVS(4565)*X(347)-JVS(4566)*X(348)-JVS(4567)*X(349)-JVS(4568)*X(350)& - &-JVS(4569)*X(351)-JVS(4570)*X(352)-JVS(4571)*X(353))/(JVS(4556)) + X(338) = (X(338)-JVS(4147)*X(339)-JVS(4148)*X(340)-JVS(4149)*X(341)-JVS(4150)*X(342)-JVS(4151)*X(343)-JVS(4152)*X(344)& + &-JVS(4153)*X(345)-JVS(4154)*X(346)-JVS(4155)*X(347)-JVS(4156)*X(348)-JVS(4157)*X(349)-JVS(4158)*X(350)& + &-JVS(4159)*X(351)-JVS(4160)*X(352)-JVS(4161)*X(353)-JVS(4162)*X(354)-JVS(4163)*X(355)-JVS(4164)*X(356))& + &/(JVS(4146)) IF (DO_SLV(337)) & - X(337) = (X(337)-JVS(4501)*X(338)-JVS(4502)*X(339)-JVS(4503)*X(340)-JVS(4504)*X(341)-JVS(4505)*X(342)-JVS(4506)*X(343)& - &-JVS(4507)*X(344)-JVS(4508)*X(345)-JVS(4509)*X(346)-JVS(4510)*X(347)-JVS(4511)*X(348)-JVS(4512)*X(349)& - &-JVS(4513)*X(350)-JVS(4514)*X(351)-JVS(4515)*X(352)-JVS(4516)*X(353))/(JVS(4500)) + X(337) = (X(337)-JVS(4027)*X(338)-JVS(4028)*X(339)-JVS(4029)*X(340)-JVS(4030)*X(341)-JVS(4031)*X(342)-JVS(4032)*X(343)& + &-JVS(4033)*X(344)-JVS(4034)*X(345)-JVS(4035)*X(346)-JVS(4036)*X(347)-JVS(4037)*X(348)-JVS(4038)*X(349)& + &-JVS(4039)*X(350)-JVS(4040)*X(351)-JVS(4041)*X(352)-JVS(4042)*X(353)-JVS(4043)*X(354)-JVS(4044)*X(355)& + &-JVS(4045)*X(356))/(JVS(4026)) IF (DO_SLV(336)) & - X(336) = (X(336)-JVS(4292)*X(337)-JVS(4293)*X(338)-JVS(4294)*X(339)-JVS(4295)*X(340)-JVS(4296)*X(341)-JVS(4297)*X(342)& - &-JVS(4298)*X(343)-JVS(4299)*X(344)-JVS(4300)*X(345)-JVS(4301)*X(346)-JVS(4302)*X(347)-JVS(4303)*X(348)& - &-JVS(4304)*X(349)-JVS(4305)*X(350)-JVS(4306)*X(351)-JVS(4307)*X(352)-JVS(4308)*X(353))/(JVS(4291)) + X(336) = (X(336)-JVS(3982)*X(338)-JVS(3983)*X(339)-JVS(3984)*X(341)-JVS(3985)*X(343)-JVS(3986)*X(344)-JVS(3987)*X(345)& + &-JVS(3988)*X(346)-JVS(3989)*X(347)-JVS(3990)*X(348)-JVS(3991)*X(349)-JVS(3992)*X(350)-JVS(3993)*X(353)& + &-JVS(3994)*X(356))/(JVS(3981)) IF (DO_SLV(335)) & - X(335) = (X(335)-JVS(4190)*X(336)-JVS(4191)*X(337)-JVS(4192)*X(338)-JVS(4193)*X(339)-JVS(4194)*X(340)-JVS(4195)*X(341)& - &-JVS(4196)*X(342)-JVS(4197)*X(343)-JVS(4198)*X(344)-JVS(4199)*X(345)-JVS(4200)*X(346)-JVS(4201)*X(347)& - &-JVS(4202)*X(348)-JVS(4203)*X(349)-JVS(4204)*X(350)-JVS(4205)*X(351)-JVS(4206)*X(352)-JVS(4207)*X(353))& - &/(JVS(4189)) + X(335) = (X(335)-JVS(3962)*X(337)-JVS(3963)*X(338)-JVS(3964)*X(341)-JVS(3965)*X(342)-JVS(3966)*X(343)-JVS(3967)*X(344)& + &-JVS(3968)*X(345)-JVS(3969)*X(348)-JVS(3970)*X(351)-JVS(3971)*X(352)-JVS(3972)*X(353)-JVS(3973)*X(355)& + &-JVS(3974)*X(356))/(JVS(3961)) IF (DO_SLV(334)) & - X(334) = (X(334)-JVS(4015)*X(335)-JVS(4016)*X(336)-JVS(4017)*X(337)-JVS(4018)*X(338)-JVS(4019)*X(339)-JVS(4020)*X(340)& - &-JVS(4021)*X(341)-JVS(4022)*X(342)-JVS(4023)*X(343)-JVS(4024)*X(344)-JVS(4025)*X(345)-JVS(4026)*X(346)& - &-JVS(4027)*X(347)-JVS(4028)*X(348)-JVS(4029)*X(349)-JVS(4030)*X(350)-JVS(4031)*X(351)-JVS(4032)*X(352)& - &-JVS(4033)*X(353))/(JVS(4014)) + X(334) = (X(334)-JVS(3839)*X(335)-JVS(3840)*X(337)-JVS(3841)*X(338)-JVS(3842)*X(341)-JVS(3843)*X(342)-JVS(3844)*X(343)& + &-JVS(3845)*X(344)-JVS(3846)*X(345)-JVS(3847)*X(348)-JVS(3848)*X(352)-JVS(3849)*X(353)-JVS(3850)*X(355)& + &-JVS(3851)*X(356))/(JVS(3838)) IF (DO_SLV(333)) & - X(333) = (X(333)-JVS(3964)*X(334)-JVS(3965)*X(335)-JVS(3966)*X(336)-JVS(3967)*X(337)-JVS(3968)*X(338)-JVS(3969)*X(339)& - &-JVS(3970)*X(340)-JVS(3971)*X(341)-JVS(3972)*X(342)-JVS(3973)*X(343)-JVS(3974)*X(344)-JVS(3975)*X(345)& - &-JVS(3976)*X(346)-JVS(3977)*X(347)-JVS(3978)*X(348)-JVS(3979)*X(349)-JVS(3980)*X(350)-JVS(3981)*X(351)& - &-JVS(3982)*X(352)-JVS(3983)*X(353))/(JVS(3963)) + X(333) = (X(333)-JVS(3756)*X(334)-JVS(3757)*X(335)-JVS(3758)*X(336)-JVS(3759)*X(337)-JVS(3760)*X(338)-JVS(3761)*X(339)& + &-JVS(3762)*X(340)-JVS(3763)*X(341)-JVS(3764)*X(342)-JVS(3765)*X(343)-JVS(3766)*X(344)-JVS(3767)*X(345)& + &-JVS(3768)*X(346)-JVS(3769)*X(347)-JVS(3770)*X(348)-JVS(3771)*X(349)-JVS(3772)*X(350)-JVS(3773)*X(351)& + &-JVS(3774)*X(352)-JVS(3775)*X(353)-JVS(3776)*X(354)-JVS(3777)*X(355)-JVS(3778)*X(356))/(JVS(3755)) IF (DO_SLV(332)) & - X(332) = (X(332)-JVS(3939)*X(335)-JVS(3940)*X(336)-JVS(3941)*X(337)-JVS(3942)*X(338)-JVS(3943)*X(341)-JVS(3944)*X(344)& - &-JVS(3945)*X(345)-JVS(3946)*X(346)-JVS(3947)*X(347)-JVS(3948)*X(349)-JVS(3949)*X(350)-JVS(3950)*X(351)& - &-JVS(3951)*X(353))/(JVS(3938)) + X(332) = (X(332)-JVS(3656)*X(334)-JVS(3657)*X(336)-JVS(3658)*X(337)-JVS(3659)*X(339)-JVS(3660)*X(340)-JVS(3661)*X(341)& + &-JVS(3662)*X(343)-JVS(3663)*X(344)-JVS(3664)*X(345)-JVS(3665)*X(346)-JVS(3666)*X(347)-JVS(3667)*X(348)& + &-JVS(3668)*X(349)-JVS(3669)*X(350)-JVS(3670)*X(351)-JVS(3671)*X(352)-JVS(3672)*X(353)-JVS(3673)*X(354)& + &-JVS(3674)*X(355))/(JVS(3655)) IF (DO_SLV(331)) & - X(331) = (X(331)-JVS(3919)*X(332)-JVS(3920)*X(335)-JVS(3921)*X(336)-JVS(3922)*X(337)-JVS(3923)*X(338)-JVS(3924)*X(341)& - &-JVS(3925)*X(344)-JVS(3926)*X(345)-JVS(3927)*X(346)-JVS(3928)*X(347)-JVS(3929)*X(349)-JVS(3930)*X(350)& - &-JVS(3931)*X(351)-JVS(3932)*X(353))/(JVS(3918)) + X(331) = (X(331)-JVS(3636)*X(336)-JVS(3637)*X(338)-JVS(3638)*X(339)-JVS(3639)*X(341)-JVS(3640)*X(343)-JVS(3641)*X(344)& + &-JVS(3642)*X(345)-JVS(3643)*X(346)-JVS(3644)*X(347)-JVS(3645)*X(348)-JVS(3646)*X(349)-JVS(3647)*X(350)& + &-JVS(3648)*X(353)-JVS(3649)*X(356))/(JVS(3635)) IF (DO_SLV(330)) & - X(330) = (X(330)-JVS(3889)*X(331)-JVS(3890)*X(332)-JVS(3891)*X(335)-JVS(3892)*X(336)-JVS(3893)*X(337)-JVS(3894)*X(338)& - &-JVS(3895)*X(341)-JVS(3896)*X(344)-JVS(3897)*X(345)-JVS(3898)*X(346)-JVS(3899)*X(347)-JVS(3900)*X(349)& - &-JVS(3901)*X(350)-JVS(3902)*X(351)-JVS(3903)*X(353))/(JVS(3888)) + X(330) = (X(330)-JVS(3609)*X(334)-JVS(3610)*X(335)-JVS(3611)*X(338)-JVS(3612)*X(341)-JVS(3613)*X(342)-JVS(3614)*X(343)& + &-JVS(3615)*X(345)-JVS(3616)*X(348)-JVS(3617)*X(352)-JVS(3618)*X(353)-JVS(3619)*X(355)-JVS(3620)*X(356))& + &/(JVS(3608)) IF (DO_SLV(329)) & - X(329) = (X(329)-JVS(3872)*X(334)-JVS(3873)*X(335)-JVS(3874)*X(336)-JVS(3875)*X(337)-JVS(3876)*X(338)-JVS(3877)*X(340)& - &-JVS(3878)*X(341)-JVS(3879)*X(342)-JVS(3880)*X(343)-JVS(3881)*X(345)-JVS(3882)*X(346)-JVS(3883)*X(348)& - &-JVS(3884)*X(351))/(JVS(3871)) + X(329) = (X(329)-JVS(3563)*X(330)-JVS(3564)*X(334)-JVS(3565)*X(335)-JVS(3566)*X(337)-JVS(3567)*X(338)-JVS(3568)*X(341)& + &-JVS(3569)*X(342)-JVS(3570)*X(343)-JVS(3571)*X(344)-JVS(3572)*X(345)-JVS(3573)*X(348)-JVS(3574)*X(351)& + &-JVS(3575)*X(352)-JVS(3576)*X(353)-JVS(3577)*X(355)-JVS(3578)*X(356))/(JVS(3562)) IF (DO_SLV(328)) & - X(328) = (X(328)-JVS(3749)*X(329)-JVS(3750)*X(334)-JVS(3751)*X(335)-JVS(3752)*X(336)-JVS(3753)*X(337)-JVS(3754)*X(338)& - &-JVS(3755)*X(340)-JVS(3756)*X(341)-JVS(3757)*X(342)-JVS(3758)*X(345)-JVS(3759)*X(346)-JVS(3760)*X(348)& - &-JVS(3761)*X(351))/(JVS(3748)) + X(328) = (X(328)-JVS(3425)*X(330)-JVS(3426)*X(334)-JVS(3427)*X(338)-JVS(3428)*X(341)-JVS(3429)*X(342)-JVS(3430)*X(343)& + &-JVS(3431)*X(345)-JVS(3432)*X(348)-JVS(3433)*X(352)-JVS(3434)*X(356))/(JVS(3424)) IF (DO_SLV(327)) & - X(327) = (X(327)-JVS(3666)*X(328)-JVS(3667)*X(329)-JVS(3668)*X(332)-JVS(3669)*X(334)-JVS(3670)*X(335)-JVS(3671)*X(336)& - &-JVS(3672)*X(337)-JVS(3673)*X(338)-JVS(3674)*X(339)-JVS(3675)*X(340)-JVS(3676)*X(341)-JVS(3677)*X(342)& - &-JVS(3678)*X(343)-JVS(3679)*X(344)-JVS(3680)*X(345)-JVS(3681)*X(346)-JVS(3682)*X(347)-JVS(3683)*X(348)& - &-JVS(3684)*X(349)-JVS(3685)*X(350)-JVS(3686)*X(351)-JVS(3687)*X(352)-JVS(3688)*X(353))/(JVS(3665)) + X(327) = (X(327)-JVS(3337)*X(328)-JVS(3338)*X(334)-JVS(3339)*X(338)-JVS(3340)*X(341)-JVS(3341)*X(342)-JVS(3342)*X(343)& + &-JVS(3343)*X(345)-JVS(3344)*X(348)-JVS(3345)*X(352)-JVS(3346)*X(356))/(JVS(3336)) IF (DO_SLV(326)) & - X(326) = (X(326)-JVS(3574)*X(328)-JVS(3575)*X(329)-JVS(3576)*X(335)-JVS(3577)*X(336)-JVS(3578)*X(337)-JVS(3579)*X(340)& - &-JVS(3580)*X(341)-JVS(3581)*X(342)-JVS(3582)*X(345)-JVS(3583)*X(346)-JVS(3584)*X(348)-JVS(3585)*X(351))& - &/(JVS(3573)) + X(326) = (X(326)-JVS(3312)*X(327)-JVS(3313)*X(328)-JVS(3314)*X(334)-JVS(3315)*X(338)-JVS(3316)*X(341)-JVS(3317)*X(342)& + &-JVS(3318)*X(343)-JVS(3319)*X(345)-JVS(3320)*X(348)-JVS(3321)*X(352)-JVS(3322)*X(356))/(JVS(3311)) IF (DO_SLV(325)) & - X(325) = (X(325)-JVS(3528)*X(326)-JVS(3529)*X(328)-JVS(3530)*X(329)-JVS(3531)*X(334)-JVS(3532)*X(335)-JVS(3533)*X(336)& - &-JVS(3534)*X(337)-JVS(3535)*X(338)-JVS(3536)*X(340)-JVS(3537)*X(341)-JVS(3538)*X(342)-JVS(3539)*X(343)& - &-JVS(3540)*X(345)-JVS(3541)*X(346)-JVS(3542)*X(348)-JVS(3543)*X(351))/(JVS(3527)) + X(325) = (X(325)-JVS(3287)*X(326)-JVS(3288)*X(327)-JVS(3289)*X(328)-JVS(3290)*X(334)-JVS(3291)*X(338)-JVS(3292)*X(341)& + &-JVS(3293)*X(342)-JVS(3294)*X(343)-JVS(3295)*X(345)-JVS(3296)*X(348)-JVS(3297)*X(352)-JVS(3298)*X(356))& + &/(JVS(3286)) IF (DO_SLV(324)) & - X(324) = (X(324)-JVS(3390)*X(326)-JVS(3391)*X(328)-JVS(3392)*X(335)-JVS(3393)*X(337)-JVS(3394)*X(340)-JVS(3395)*X(341)& - &-JVS(3396)*X(342)-JVS(3397)*X(345)-JVS(3398)*X(346)-JVS(3399)*X(351))/(JVS(3389)) + X(324) = (X(324)-JVS(3258)*X(328)-JVS(3259)*X(334)-JVS(3260)*X(338)-JVS(3261)*X(341)-JVS(3262)*X(343)-JVS(3263)*X(345)& + &-JVS(3264)*X(348)-JVS(3265)*X(352)-JVS(3266)*X(356))/(JVS(3257)) IF (DO_SLV(323)) & - X(323) = (X(323)-JVS(3302)*X(324)-JVS(3303)*X(328)-JVS(3304)*X(335)-JVS(3305)*X(337)-JVS(3306)*X(340)-JVS(3307)*X(341)& - &-JVS(3308)*X(342)-JVS(3309)*X(345)-JVS(3310)*X(346)-JVS(3311)*X(351))/(JVS(3301)) + X(323) = (X(323)-JVS(3242)*X(324)-JVS(3243)*X(328)-JVS(3244)*X(334)-JVS(3245)*X(338)-JVS(3246)*X(341)-JVS(3247)*X(343)& + &-JVS(3248)*X(345)-JVS(3249)*X(348)-JVS(3250)*X(352)-JVS(3251)*X(356))/(JVS(3241)) IF (DO_SLV(322)) & - X(322) = (X(322)-JVS(3277)*X(323)-JVS(3278)*X(324)-JVS(3279)*X(328)-JVS(3280)*X(335)-JVS(3281)*X(337)-JVS(3282)*X(340)& - &-JVS(3283)*X(341)-JVS(3284)*X(342)-JVS(3285)*X(345)-JVS(3286)*X(346)-JVS(3287)*X(351))/(JVS(3276)) + X(322) = (X(322)-JVS(3215)*X(323)-JVS(3216)*X(324)-JVS(3217)*X(328)-JVS(3218)*X(334)-JVS(3219)*X(338)-JVS(3220)*X(341)& + &-JVS(3221)*X(343)-JVS(3222)*X(345)-JVS(3223)*X(348)-JVS(3224)*X(356))/(JVS(3214)) IF (DO_SLV(321)) & - X(321) = (X(321)-JVS(3244)*X(322)-JVS(3245)*X(323)-JVS(3246)*X(324)-JVS(3247)*X(328)-JVS(3248)*X(335)-JVS(3249)*X(337)& - &-JVS(3250)*X(340)-JVS(3251)*X(341)-JVS(3252)*X(342)-JVS(3253)*X(345)-JVS(3254)*X(346)-JVS(3255)*X(351))& - &/(JVS(3243)) + X(321) = (X(321)-JVS(3200)*X(339)-JVS(3201)*X(340)-JVS(3202)*X(343)-JVS(3203)*X(344)-JVS(3204)*X(345)-JVS(3205)*X(346)& + &-JVS(3206)*X(349)-JVS(3207)*X(350)-JVS(3208)*X(351)-JVS(3209)*X(352)-JVS(3210)*X(353)-JVS(3211)*X(354))& + &/(JVS(3199)) IF (DO_SLV(320)) & - X(320) = (X(320)-JVS(3223)*X(324)-JVS(3224)*X(328)-JVS(3225)*X(335)-JVS(3226)*X(337)-JVS(3227)*X(340)-JVS(3228)*X(341)& - &-JVS(3229)*X(345)-JVS(3230)*X(346)-JVS(3231)*X(351))/(JVS(3222)) + X(320) = (X(320)-JVS(3184)*X(339)-JVS(3185)*X(340)-JVS(3186)*X(341)-JVS(3187)*X(342)-JVS(3188)*X(343)-JVS(3189)*X(345)& + &-JVS(3190)*X(346)-JVS(3191)*X(347)-JVS(3192)*X(349)-JVS(3193)*X(350)-JVS(3194)*X(351)-JVS(3195)*X(353)& + &-JVS(3196)*X(354)-JVS(3197)*X(355)-JVS(3198)*X(356))/(JVS(3183)) IF (DO_SLV(319)) & - X(319) = (X(319)-JVS(3207)*X(320)-JVS(3208)*X(324)-JVS(3209)*X(328)-JVS(3210)*X(335)-JVS(3211)*X(337)-JVS(3212)*X(340)& - &-JVS(3213)*X(341)-JVS(3214)*X(345)-JVS(3215)*X(346)-JVS(3216)*X(351))/(JVS(3206)) + X(319) = (X(319)-JVS(3165)*X(322)-JVS(3166)*X(323)-JVS(3167)*X(324)-JVS(3168)*X(325)-JVS(3169)*X(326)-JVS(3170)*X(327)& + &-JVS(3171)*X(328)-JVS(3172)*X(334)-JVS(3173)*X(338)-JVS(3174)*X(341)-JVS(3175)*X(342)-JVS(3176)*X(343)& + &-JVS(3177)*X(345)-JVS(3178)*X(348)-JVS(3179)*X(352)-JVS(3180)*X(356))/(JVS(3164)) IF (DO_SLV(318)) & - X(318) = (X(318)-JVS(3180)*X(319)-JVS(3181)*X(320)-JVS(3182)*X(324)-JVS(3183)*X(328)-JVS(3184)*X(335)-JVS(3185)*X(337)& - &-JVS(3186)*X(341)-JVS(3187)*X(345)-JVS(3188)*X(346)-JVS(3189)*X(351))/(JVS(3179)) + X(318) = (X(318)-JVS(3148)*X(328)-JVS(3149)*X(334)-JVS(3150)*X(338)-JVS(3151)*X(341)-JVS(3152)*X(343)-JVS(3153)*X(348)& + &-JVS(3154)*X(352)-JVS(3155)*X(356))/(JVS(3147)) IF (DO_SLV(317)) & - X(317) = (X(317)-JVS(3165)*X(335)-JVS(3166)*X(336)-JVS(3167)*X(338)-JVS(3168)*X(339)-JVS(3169)*X(340)-JVS(3170)*X(343)& - &-JVS(3171)*X(344)-JVS(3172)*X(345)-JVS(3173)*X(349)-JVS(3174)*X(350)-JVS(3175)*X(352)-JVS(3176)*X(353))& - &/(JVS(3164)) + X(317) = (X(317)-JVS(3113)*X(318)-JVS(3114)*X(328)-JVS(3115)*X(334)-JVS(3116)*X(335)-JVS(3117)*X(338)-JVS(3118)*X(341)& + &-JVS(3119)*X(342)-JVS(3120)*X(343)-JVS(3121)*X(345)-JVS(3122)*X(348)-JVS(3123)*X(352)-JVS(3124)*X(353)& + &-JVS(3125)*X(355)-JVS(3126)*X(356))/(JVS(3112)) IF (DO_SLV(316)) & - X(316) = (X(316)-JVS(3149)*X(335)-JVS(3150)*X(336)-JVS(3151)*X(337)-JVS(3152)*X(339)-JVS(3153)*X(341)-JVS(3154)*X(342)& - &-JVS(3155)*X(343)-JVS(3156)*X(344)-JVS(3157)*X(345)-JVS(3158)*X(347)-JVS(3159)*X(348)-JVS(3160)*X(349)& - &-JVS(3161)*X(350)-JVS(3162)*X(352)-JVS(3163)*X(353))/(JVS(3148)) + X(316) = (X(316)-JVS(3087)*X(322)-JVS(3088)*X(323)-JVS(3089)*X(324)-JVS(3090)*X(327)-JVS(3091)*X(328)-JVS(3092)*X(334)& + &-JVS(3093)*X(338)-JVS(3094)*X(341)-JVS(3095)*X(342)-JVS(3096)*X(343)-JVS(3097)*X(345)-JVS(3098)*X(348)& + &-JVS(3099)*X(352)-JVS(3100)*X(356))/(JVS(3086)) IF (DO_SLV(315)) & - X(315) = (X(315)-JVS(3130)*X(318)-JVS(3131)*X(319)-JVS(3132)*X(320)-JVS(3133)*X(321)-JVS(3134)*X(322)-JVS(3135)*X(323)& - &-JVS(3136)*X(324)-JVS(3137)*X(328)-JVS(3138)*X(335)-JVS(3139)*X(337)-JVS(3140)*X(340)-JVS(3141)*X(341)& - &-JVS(3142)*X(342)-JVS(3143)*X(345)-JVS(3144)*X(346)-JVS(3145)*X(351))/(JVS(3129)) + X(315) = (X(315)-JVS(3065)*X(328)-JVS(3066)*X(334)-JVS(3067)*X(338)-JVS(3068)*X(341)-JVS(3069)*X(343)-JVS(3070)*X(348)& + &-JVS(3071)*X(352)-JVS(3072)*X(356))/(JVS(3064)) IF (DO_SLV(314)) & - X(314) = (X(314)-JVS(3113)*X(324)-JVS(3114)*X(328)-JVS(3115)*X(337)-JVS(3116)*X(340)-JVS(3117)*X(341)-JVS(3118)*X(345)& - &-JVS(3119)*X(346)-JVS(3120)*X(351))/(JVS(3112)) + X(314) = (X(314)-JVS(3049)*X(315)-JVS(3050)*X(328)-JVS(3051)*X(334)-JVS(3052)*X(338)-JVS(3053)*X(341)-JVS(3054)*X(343)& + &-JVS(3055)*X(348)-JVS(3056)*X(352)-JVS(3057)*X(356))/(JVS(3048)) IF (DO_SLV(313)) & - X(313) = (X(313)-JVS(3078)*X(318)-JVS(3079)*X(319)-JVS(3080)*X(320)-JVS(3081)*X(323)-JVS(3082)*X(324)-JVS(3083)*X(328)& - &-JVS(3084)*X(335)-JVS(3085)*X(337)-JVS(3086)*X(340)-JVS(3087)*X(341)-JVS(3088)*X(342)-JVS(3089)*X(345)& - &-JVS(3090)*X(346)-JVS(3091)*X(351))/(JVS(3077)) + X(313) = (X(313)-JVS(3033)*X(314)-JVS(3034)*X(315)-JVS(3035)*X(328)-JVS(3036)*X(334)-JVS(3037)*X(338)-JVS(3038)*X(341)& + &-JVS(3039)*X(343)-JVS(3040)*X(348)-JVS(3041)*X(352)-JVS(3042)*X(356))/(JVS(3032)) IF (DO_SLV(312)) & - X(312) = (X(312)-JVS(3050)*X(314)-JVS(3051)*X(324)-JVS(3052)*X(328)-JVS(3053)*X(329)-JVS(3054)*X(335)-JVS(3055)*X(336)& - &-JVS(3056)*X(337)-JVS(3057)*X(340)-JVS(3058)*X(341)-JVS(3059)*X(342)-JVS(3060)*X(345)-JVS(3061)*X(346)& - &-JVS(3062)*X(348)-JVS(3063)*X(351))/(JVS(3049)) + X(312) = (X(312)-JVS(3008)*X(313)-JVS(3009)*X(314)-JVS(3010)*X(315)-JVS(3011)*X(328)-JVS(3012)*X(334)-JVS(3013)*X(338)& + &-JVS(3014)*X(341)-JVS(3015)*X(343)-JVS(3016)*X(345)-JVS(3017)*X(348)-JVS(3018)*X(352)-JVS(3019)*X(356))& + &/(JVS(3007)) IF (DO_SLV(311)) & - X(311) = (X(311)-JVS(3030)*X(324)-JVS(3031)*X(328)-JVS(3032)*X(337)-JVS(3033)*X(340)-JVS(3034)*X(341)-JVS(3035)*X(345)& - &-JVS(3036)*X(346)-JVS(3037)*X(351))/(JVS(3029)) + X(311) = (X(311)-JVS(2984)*X(312)-JVS(2985)*X(313)-JVS(2986)*X(314)-JVS(2987)*X(315)-JVS(2988)*X(316)-JVS(2989)*X(318)& + &-JVS(2990)*X(328)-JVS(2991)*X(334)-JVS(2992)*X(338)-JVS(2993)*X(341)-JVS(2994)*X(342)-JVS(2995)*X(343)& + &-JVS(2996)*X(345)-JVS(2997)*X(348)-JVS(2998)*X(352)-JVS(2999)*X(356))/(JVS(2983)) IF (DO_SLV(310)) & - X(310) = (X(310)-JVS(3017)*X(311)-JVS(3018)*X(324)-JVS(3019)*X(328)-JVS(3020)*X(337)-JVS(3021)*X(340)-JVS(3022)*X(341)& - &-JVS(3023)*X(345)-JVS(3024)*X(346)-JVS(3025)*X(351))/(JVS(3016)) + X(310) = (X(310)-JVS(2929)*X(328)-JVS(2930)*X(334)-JVS(2931)*X(338)-JVS(2932)*X(341)-JVS(2933)*X(343)-JVS(2934)*X(348)& + &-JVS(2935)*X(352)-JVS(2936)*X(356))/(JVS(2928)) IF (DO_SLV(309)) & - X(309) = (X(309)-JVS(3004)*X(310)-JVS(3005)*X(311)-JVS(3006)*X(324)-JVS(3007)*X(328)-JVS(3008)*X(337)-JVS(3009)*X(340)& - &-JVS(3010)*X(341)-JVS(3011)*X(345)-JVS(3012)*X(346)-JVS(3013)*X(351))/(JVS(3003)) + X(309) = (X(309)-JVS(2911)*X(310)-JVS(2912)*X(314)-JVS(2913)*X(315)-JVS(2914)*X(318)-JVS(2915)*X(324)-JVS(2916)*X(328)& + &-JVS(2917)*X(334)-JVS(2918)*X(338)-JVS(2919)*X(341)-JVS(2920)*X(343)-JVS(2921)*X(345)-JVS(2922)*X(348)& + &-JVS(2923)*X(352)-JVS(2924)*X(356))/(JVS(2910)) IF (DO_SLV(308)) & - X(308) = (X(308)-JVS(2979)*X(309)-JVS(2980)*X(310)-JVS(2981)*X(311)-JVS(2982)*X(324)-JVS(2983)*X(328)-JVS(2984)*X(335)& - &-JVS(2985)*X(337)-JVS(2986)*X(340)-JVS(2987)*X(341)-JVS(2988)*X(345)-JVS(2989)*X(346)-JVS(2990)*X(351))& - &/(JVS(2978)) + X(308) = (X(308)-JVS(2858)*X(310)-JVS(2859)*X(328)-JVS(2860)*X(334)-JVS(2861)*X(338)-JVS(2862)*X(341)-JVS(2863)*X(343)& + &-JVS(2864)*X(348)-JVS(2865)*X(352)-JVS(2866)*X(356))/(JVS(2857)) IF (DO_SLV(307)) & - X(307) = (X(307)-JVS(2955)*X(308)-JVS(2956)*X(309)-JVS(2957)*X(310)-JVS(2958)*X(311)-JVS(2959)*X(313)-JVS(2960)*X(314)& - &-JVS(2961)*X(324)-JVS(2962)*X(328)-JVS(2963)*X(335)-JVS(2964)*X(337)-JVS(2965)*X(340)-JVS(2966)*X(341)& - &-JVS(2967)*X(342)-JVS(2968)*X(345)-JVS(2969)*X(346)-JVS(2970)*X(351))/(JVS(2954)) + X(307) = (X(307)-JVS(2845)*X(308)-JVS(2846)*X(310)-JVS(2847)*X(314)-JVS(2848)*X(315)-JVS(2849)*X(328)-JVS(2850)*X(334)& + &-JVS(2851)*X(338)-JVS(2852)*X(341)-JVS(2853)*X(343)-JVS(2854)*X(348))/(JVS(2844)) IF (DO_SLV(306)) & - X(306) = (X(306)-JVS(2895)*X(310)-JVS(2896)*X(311)-JVS(2897)*X(314)-JVS(2898)*X(320)-JVS(2899)*X(324)-JVS(2900)*X(328)& - &-JVS(2901)*X(335)-JVS(2902)*X(337)-JVS(2903)*X(340)-JVS(2904)*X(341)-JVS(2905)*X(345)-JVS(2906)*X(346)& - &-JVS(2907)*X(351))/(JVS(2894)) + X(306) = (X(306)-JVS(2814)*X(307)-JVS(2815)*X(308)-JVS(2816)*X(310)-JVS(2817)*X(314)-JVS(2818)*X(315)-JVS(2819)*X(318)& + &-JVS(2820)*X(328)-JVS(2821)*X(334)-JVS(2822)*X(338)-JVS(2823)*X(341)-JVS(2824)*X(343)-JVS(2825)*X(345)& + &-JVS(2826)*X(348)-JVS(2827)*X(352)-JVS(2828)*X(356))/(JVS(2813)) IF (DO_SLV(305)) & - X(305) = (X(305)-JVS(2842)*X(311)-JVS(2843)*X(328)-JVS(2844)*X(337)-JVS(2845)*X(340)-JVS(2846)*X(341)-JVS(2847)*X(345)& - &-JVS(2848)*X(346)-JVS(2849)*X(351))/(JVS(2841)) + X(305) = (X(305)-JVS(2790)*X(307)-JVS(2791)*X(308)-JVS(2792)*X(310)-JVS(2793)*X(314)-JVS(2794)*X(315)-JVS(2795)*X(328)& + &-JVS(2796)*X(334)-JVS(2797)*X(338)-JVS(2798)*X(341)-JVS(2799)*X(343)-JVS(2800)*X(348))/(JVS(2789)) IF (DO_SLV(304)) & - X(304) = (X(304)-JVS(2827)*X(305)-JVS(2828)*X(311)-JVS(2829)*X(328)-JVS(2830)*X(337)-JVS(2831)*X(340)-JVS(2832)*X(341)& - &-JVS(2833)*X(345)-JVS(2834)*X(346)-JVS(2835)*X(351))/(JVS(2826)) + X(304) = (X(304)-JVS(2776)*X(328)-JVS(2777)*X(334)-JVS(2778)*X(338)-JVS(2779)*X(341)-JVS(2780)*X(343)-JVS(2781)*X(348)& + &-JVS(2782)*X(352)-JVS(2783)*X(356))/(JVS(2775)) IF (DO_SLV(303)) & - X(303) = (X(303)-JVS(2812)*X(304)-JVS(2813)*X(305)-JVS(2814)*X(310)-JVS(2815)*X(311)-JVS(2816)*X(324)-JVS(2817)*X(328)& - &-JVS(2818)*X(337)-JVS(2819)*X(345)-JVS(2820)*X(346)-JVS(2821)*X(351))/(JVS(2811)) + X(303) = (X(303)-JVS(2761)*X(307)-JVS(2762)*X(308)-JVS(2763)*X(310)-JVS(2764)*X(314)-JVS(2765)*X(315)-JVS(2766)*X(328)& + &-JVS(2767)*X(334)-JVS(2768)*X(338)-JVS(2769)*X(341)-JVS(2770)*X(343)-JVS(2771)*X(348))/(JVS(2760)) IF (DO_SLV(302)) & - X(302) = (X(302)-JVS(2781)*X(303)-JVS(2782)*X(304)-JVS(2783)*X(305)-JVS(2784)*X(310)-JVS(2785)*X(311)-JVS(2786)*X(314)& - &-JVS(2787)*X(324)-JVS(2788)*X(328)-JVS(2789)*X(335)-JVS(2790)*X(337)-JVS(2791)*X(340)-JVS(2792)*X(341)& - &-JVS(2793)*X(345)-JVS(2794)*X(346)-JVS(2795)*X(351))/(JVS(2780)) + X(302) = (X(302)-JVS(2733)*X(304)-JVS(2734)*X(318)-JVS(2735)*X(322)-JVS(2736)*X(323)-JVS(2737)*X(324)-JVS(2738)*X(326)& + &-JVS(2739)*X(327)-JVS(2740)*X(328)-JVS(2741)*X(334)-JVS(2742)*X(338)-JVS(2743)*X(341)-JVS(2744)*X(342)& + &-JVS(2745)*X(343)-JVS(2746)*X(345)-JVS(2747)*X(348)-JVS(2748)*X(352)-JVS(2749)*X(356))/(JVS(2732)) IF (DO_SLV(301)) & - X(301) = (X(301)-JVS(2757)*X(303)-JVS(2758)*X(304)-JVS(2759)*X(305)-JVS(2760)*X(310)-JVS(2761)*X(311)-JVS(2762)*X(324)& - &-JVS(2763)*X(328)-JVS(2764)*X(337)-JVS(2765)*X(345)-JVS(2766)*X(346)-JVS(2767)*X(351))/(JVS(2756)) + X(301) = (X(301)-JVS(2687)*X(339)-JVS(2688)*X(340)-JVS(2689)*X(343)-JVS(2690)*X(345)-JVS(2691)*X(346)-JVS(2692)*X(348)& + &-JVS(2693)*X(349)-JVS(2694)*X(350)-JVS(2695)*X(353)-JVS(2696)*X(354))/(JVS(2686)) IF (DO_SLV(300)) & - X(300) = (X(300)-JVS(2743)*X(324)-JVS(2744)*X(328)-JVS(2745)*X(337)-JVS(2746)*X(340)-JVS(2747)*X(341)-JVS(2748)*X(345)& - &-JVS(2749)*X(346)-JVS(2750)*X(351))/(JVS(2742)) + X(300) = (X(300)-JVS(2673)*X(324)-JVS(2674)*X(325)-JVS(2675)*X(328)-JVS(2676)*X(334)-JVS(2677)*X(338)-JVS(2678)*X(341)& + &-JVS(2679)*X(342)-JVS(2680)*X(343)-JVS(2681)*X(345)-JVS(2682)*X(348)-JVS(2683)*X(352)-JVS(2684)*X(356))& + &/(JVS(2672)) IF (DO_SLV(299)) & - X(299) = (X(299)-JVS(2728)*X(303)-JVS(2729)*X(304)-JVS(2730)*X(305)-JVS(2731)*X(310)-JVS(2732)*X(311)-JVS(2733)*X(324)& - &-JVS(2734)*X(328)-JVS(2735)*X(337)-JVS(2736)*X(345)-JVS(2737)*X(346)-JVS(2738)*X(351))/(JVS(2727)) + X(299) = (X(299)-JVS(2652)*X(303)-JVS(2653)*X(307)-JVS(2654)*X(308)-JVS(2655)*X(310)-JVS(2656)*X(328)-JVS(2657)*X(334)& + &-JVS(2658)*X(338)-JVS(2659)*X(341)-JVS(2660)*X(343)-JVS(2661)*X(348))/(JVS(2651)) IF (DO_SLV(298)) & - X(298) = (X(298)-JVS(2700)*X(300)-JVS(2701)*X(314)-JVS(2702)*X(318)-JVS(2703)*X(319)-JVS(2704)*X(320)-JVS(2705)*X(321)& - &-JVS(2706)*X(323)-JVS(2707)*X(324)-JVS(2708)*X(328)-JVS(2709)*X(335)-JVS(2710)*X(337)-JVS(2711)*X(340)& - &-JVS(2712)*X(341)-JVS(2713)*X(342)-JVS(2714)*X(345)-JVS(2715)*X(346)-JVS(2716)*X(351))/(JVS(2699)) + X(298) = (X(298)-JVS(2623)*X(299)-JVS(2624)*X(303)-JVS(2625)*X(305)-JVS(2626)*X(306)-JVS(2627)*X(307)-JVS(2628)*X(308)& + &-JVS(2629)*X(310)-JVS(2630)*X(311)-JVS(2631)*X(312)-JVS(2632)*X(313)-JVS(2633)*X(314)-JVS(2634)*X(315)& + &-JVS(2635)*X(316)-JVS(2636)*X(318)-JVS(2637)*X(324)-JVS(2638)*X(328)-JVS(2639)*X(334)-JVS(2640)*X(338)& + &-JVS(2641)*X(341)-JVS(2642)*X(342)-JVS(2643)*X(343)-JVS(2644)*X(345)-JVS(2645)*X(348)-JVS(2646)*X(352)& + &-JVS(2647)*X(356))/(JVS(2622)) IF (DO_SLV(297)) & - X(297) = (X(297)-JVS(2654)*X(335)-JVS(2655)*X(336)-JVS(2656)*X(339)-JVS(2657)*X(344)-JVS(2658)*X(345)-JVS(2659)*X(349)& - &-JVS(2660)*X(350)-JVS(2661)*X(351)-JVS(2662)*X(352)-JVS(2663)*X(353))/(JVS(2653)) + X(297) = (X(297)-JVS(2570)*X(304)-JVS(2571)*X(322)-JVS(2572)*X(323)-JVS(2573)*X(324)-JVS(2574)*X(327)-JVS(2575)*X(328)& + &-JVS(2576)*X(334)-JVS(2577)*X(338)-JVS(2578)*X(341)-JVS(2579)*X(342)-JVS(2580)*X(343)-JVS(2581)*X(345)& + &-JVS(2582)*X(348)-JVS(2583)*X(352)-JVS(2584)*X(356))/(JVS(2569)) IF (DO_SLV(296)) & - X(296) = (X(296)-JVS(2640)*X(320)-JVS(2641)*X(322)-JVS(2642)*X(324)-JVS(2643)*X(328)-JVS(2644)*X(335)-JVS(2645)*X(337)& - &-JVS(2646)*X(340)-JVS(2647)*X(341)-JVS(2648)*X(342)-JVS(2649)*X(345)-JVS(2650)*X(346)-JVS(2651)*X(351))& - &/(JVS(2639)) + X(296) = (X(296)-JVS(2542)*X(331)-JVS(2543)*X(336)-JVS(2544)*X(338)-JVS(2545)*X(339)-JVS(2546)*X(343)-JVS(2547)*X(345)& + &-JVS(2548)*X(346)-JVS(2549)*X(348)-JVS(2550)*X(349)-JVS(2551)*X(350)-JVS(2552)*X(353))/(JVS(2541)) IF (DO_SLV(295)) & - X(295) = (X(295)-JVS(2614)*X(300)-JVS(2615)*X(318)-JVS(2616)*X(319)-JVS(2617)*X(320)-JVS(2618)*X(323)-JVS(2619)*X(324)& - &-JVS(2620)*X(328)-JVS(2621)*X(335)-JVS(2622)*X(337)-JVS(2623)*X(340)-JVS(2624)*X(341)-JVS(2625)*X(342)& - &-JVS(2626)*X(345)-JVS(2627)*X(346)-JVS(2628)*X(351))/(JVS(2613)) + X(295) = (X(295)-JVS(2527)*X(304)-JVS(2528)*X(322)-JVS(2529)*X(323)-JVS(2530)*X(324)-JVS(2531)*X(328)-JVS(2532)*X(334)& + &-JVS(2533)*X(338)-JVS(2534)*X(341)-JVS(2535)*X(343)-JVS(2536)*X(345)-JVS(2537)*X(348)-JVS(2538)*X(356))& + &/(JVS(2526)) IF (DO_SLV(294)) & - X(294) = (X(294)-JVS(2573)*X(299)-JVS(2574)*X(301)-JVS(2575)*X(302)-JVS(2576)*X(303)-JVS(2577)*X(304)-JVS(2578)*X(305)& - &-JVS(2579)*X(307)-JVS(2580)*X(308)-JVS(2581)*X(309)-JVS(2582)*X(310)-JVS(2583)*X(311)-JVS(2584)*X(313)& - &-JVS(2585)*X(314)-JVS(2586)*X(320)-JVS(2587)*X(324)-JVS(2588)*X(328)-JVS(2589)*X(335)-JVS(2590)*X(337)& - &-JVS(2591)*X(340)-JVS(2592)*X(341)-JVS(2593)*X(342)-JVS(2594)*X(345)-JVS(2595)*X(346)-JVS(2596)*X(351))& - &/(JVS(2572)) + X(294) = (X(294)-JVS(2502)*X(328)-JVS(2503)*X(334)-JVS(2504)*X(338)-JVS(2505)*X(341)-JVS(2506)*X(343)-JVS(2507)*X(348)& + &-JVS(2508)*X(356))/(JVS(2501)) IF (DO_SLV(293)) & - X(293) = (X(293)-JVS(2524)*X(299)-JVS(2525)*X(303)-JVS(2526)*X(310)-JVS(2527)*X(311)-JVS(2528)*X(324)-JVS(2529)*X(328)& - &-JVS(2530)*X(337)-JVS(2531)*X(345)-JVS(2532)*X(346)-JVS(2533)*X(351))/(JVS(2523)) + X(293) = (X(293)-JVS(2494)*X(318)-JVS(2495)*X(342)-JVS(2496)*X(343)-JVS(2497)*X(348)-JVS(2498)*X(352)-JVS(2499)& + &*X(356))/(JVS(2493)) IF (DO_SLV(292)) & - X(292) = (X(292)-JVS(2508)*X(300)-JVS(2509)*X(318)-JVS(2510)*X(319)-JVS(2511)*X(320)-JVS(2512)*X(324)-JVS(2513)*X(328)& - &-JVS(2514)*X(335)-JVS(2515)*X(337)-JVS(2516)*X(341)-JVS(2517)*X(345)-JVS(2518)*X(346)-JVS(2519)*X(351))& - &/(JVS(2507)) + X(292) = (X(292)-JVS(2485)*X(294)-JVS(2486)*X(328)-JVS(2487)*X(334)-JVS(2488)*X(338)-JVS(2489)*X(341)-JVS(2490)*X(343)& + &-JVS(2491)*X(348)-JVS(2492)*X(356))/(JVS(2484)) IF (DO_SLV(291)) & - X(291) = (X(291)-JVS(2483)*X(324)-JVS(2484)*X(328)-JVS(2485)*X(337)-JVS(2486)*X(341)-JVS(2487)*X(345)-JVS(2488)*X(346)& - &-JVS(2489)*X(351))/(JVS(2482)) + X(291) = (X(291)-JVS(2465)*X(305)-JVS(2466)*X(307)-JVS(2467)*X(308)-JVS(2468)*X(310)-JVS(2469)*X(314)-JVS(2470)*X(315)& + &-JVS(2471)*X(318)-JVS(2472)*X(334)-JVS(2473)*X(338)-JVS(2474)*X(341)-JVS(2475)*X(343)-JVS(2476)*X(345)& + &-JVS(2477)*X(348)-JVS(2478)*X(352)-JVS(2479)*X(356))/(JVS(2464)) IF (DO_SLV(290)) & - X(290) = (X(290)-JVS(2475)*X(314)-JVS(2476)*X(340)-JVS(2477)*X(341)-JVS(2478)*X(342)-JVS(2479)*X(345)-JVS(2480)& - &*X(351))/(JVS(2474)) + X(290) = (X(290)-JVS(2432)*X(305)-JVS(2433)*X(307)-JVS(2434)*X(308)-JVS(2435)*X(310)-JVS(2436)*X(313)-JVS(2437)*X(314)& + &-JVS(2438)*X(315)-JVS(2439)*X(334)-JVS(2440)*X(338)-JVS(2441)*X(341)-JVS(2442)*X(343)-JVS(2443)*X(345)& + &-JVS(2444)*X(348)-JVS(2445)*X(352)-JVS(2446)*X(356))/(JVS(2431)) IF (DO_SLV(289)) & - X(289) = (X(289)-JVS(2466)*X(291)-JVS(2467)*X(324)-JVS(2468)*X(328)-JVS(2469)*X(337)-JVS(2470)*X(341)-JVS(2471)*X(345)& - &-JVS(2472)*X(346)-JVS(2473)*X(351))/(JVS(2465)) + X(289) = (X(289)-JVS(2405)*X(308)-JVS(2406)*X(310)-JVS(2407)*X(314)-JVS(2408)*X(315)-JVS(2409)*X(334)-JVS(2410)*X(338)& + &-JVS(2411)*X(341)-JVS(2412)*X(343))/(JVS(2404)) IF (DO_SLV(288)) & - X(288) = (X(288)-JVS(2446)*X(301)-JVS(2447)*X(303)-JVS(2448)*X(304)-JVS(2449)*X(305)-JVS(2450)*X(310)-JVS(2451)*X(311)& - &-JVS(2452)*X(314)-JVS(2453)*X(328)-JVS(2454)*X(335)-JVS(2455)*X(337)-JVS(2456)*X(340)-JVS(2457)*X(341)& - &-JVS(2458)*X(345)-JVS(2459)*X(346)-JVS(2460)*X(351))/(JVS(2445)) + X(288) = (X(288)-JVS(2384)*X(289)-JVS(2385)*X(308)-JVS(2386)*X(310)-JVS(2387)*X(314)-JVS(2388)*X(315)-JVS(2389)*X(334)& + &-JVS(2390)*X(338)-JVS(2391)*X(341)-JVS(2392)*X(343))/(JVS(2383)) IF (DO_SLV(287)) & - X(287) = (X(287)-JVS(2413)*X(301)-JVS(2414)*X(303)-JVS(2415)*X(304)-JVS(2416)*X(305)-JVS(2417)*X(309)-JVS(2418)*X(310)& - &-JVS(2419)*X(311)-JVS(2420)*X(328)-JVS(2421)*X(335)-JVS(2422)*X(337)-JVS(2423)*X(340)-JVS(2424)*X(341)& - &-JVS(2425)*X(345)-JVS(2426)*X(346)-JVS(2427)*X(351))/(JVS(2412)) + X(287) = (X(287)-JVS(2360)*X(296)-JVS(2361)*X(331)-JVS(2362)*X(336)-JVS(2363)*X(338)-JVS(2364)*X(339)-JVS(2365)*X(341)& + &-JVS(2366)*X(343)-JVS(2367)*X(345)-JVS(2368)*X(346)-JVS(2369)*X(348)-JVS(2370)*X(349)-JVS(2371)*X(350)& + &-JVS(2372)*X(353))/(JVS(2359)) IF (DO_SLV(286)) & - X(286) = (X(286)-JVS(2386)*X(304)-JVS(2387)*X(305)-JVS(2388)*X(310)-JVS(2389)*X(311)-JVS(2390)*X(328)-JVS(2391)*X(337)& - &-JVS(2392)*X(345)-JVS(2393)*X(346))/(JVS(2385)) + X(286) = (X(286)-JVS(2332)*X(293)-JVS(2333)*X(294)-JVS(2334)*X(300)-JVS(2335)*X(304)-JVS(2336)*X(311)-JVS(2337)*X(316)& + &-JVS(2338)*X(319)-JVS(2339)*X(322)-JVS(2340)*X(323)-JVS(2341)*X(324)-JVS(2342)*X(326)-JVS(2343)*X(327)& + &-JVS(2344)*X(328)-JVS(2345)*X(334)-JVS(2346)*X(335)-JVS(2347)*X(338)-JVS(2348)*X(341)-JVS(2349)*X(342)& + &-JVS(2350)*X(343)-JVS(2351)*X(345)-JVS(2352)*X(348)-JVS(2353)*X(352)-JVS(2354)*X(353)-JVS(2355)*X(355)& + &-JVS(2356)*X(356))/(JVS(2331)) IF (DO_SLV(285)) & - X(285) = (X(285)-JVS(2365)*X(286)-JVS(2366)*X(304)-JVS(2367)*X(305)-JVS(2368)*X(310)-JVS(2369)*X(311)-JVS(2370)*X(328)& - &-JVS(2371)*X(337)-JVS(2372)*X(345)-JVS(2373)*X(346))/(JVS(2364)) + X(285) = (X(285)-JVS(2297)*X(292)-JVS(2298)*X(293)-JVS(2299)*X(294)-JVS(2300)*X(300)-JVS(2301)*X(304)-JVS(2302)*X(308)& + &-JVS(2303)*X(309)-JVS(2304)*X(310)-JVS(2305)*X(316)-JVS(2306)*X(319)-JVS(2307)*X(322)-JVS(2308)*X(323)& + &-JVS(2309)*X(324)-JVS(2310)*X(326)-JVS(2311)*X(327)-JVS(2312)*X(328)-JVS(2313)*X(334)-JVS(2314)*X(338)& + &-JVS(2315)*X(341)-JVS(2316)*X(342)-JVS(2317)*X(343)-JVS(2318)*X(345)-JVS(2319)*X(348)-JVS(2320)*X(352)& + &-JVS(2321)*X(356))/(JVS(2296)) IF (DO_SLV(284)) & - X(284) = (X(284)-JVS(2344)*X(330)-JVS(2345)*X(331)-JVS(2346)*X(332)-JVS(2347)*X(335)-JVS(2348)*X(337)-JVS(2349)*X(338)& - &-JVS(2350)*X(341)-JVS(2351)*X(345)-JVS(2352)*X(346)-JVS(2353)*X(347))/(JVS(2343)) + X(284) = (X(284)-JVS(2277)*X(328)-JVS(2278)*X(334)-JVS(2279)*X(338)-JVS(2280)*X(341)-JVS(2281)*X(343)-JVS(2282)*X(348)& + &-JVS(2283)*X(356))/(JVS(2276)) IF (DO_SLV(283)) & - X(283) = (X(283)-JVS(2315)*X(290)-JVS(2316)*X(291)-JVS(2317)*X(296)-JVS(2318)*X(300)-JVS(2319)*X(307)-JVS(2320)*X(313)& - &-JVS(2321)*X(315)-JVS(2322)*X(318)-JVS(2323)*X(319)-JVS(2324)*X(320)-JVS(2325)*X(321)-JVS(2326)*X(323)& - &-JVS(2327)*X(324)-JVS(2328)*X(328)-JVS(2329)*X(329)-JVS(2330)*X(335)-JVS(2331)*X(336)-JVS(2332)*X(337)& - &-JVS(2333)*X(340)-JVS(2334)*X(341)-JVS(2335)*X(342)-JVS(2336)*X(345)-JVS(2337)*X(346)-JVS(2338)*X(348)& - &-JVS(2339)*X(351))/(JVS(2314)) + X(283) = (X(283)-JVS(2266)*X(304)-JVS(2267)*X(324)-JVS(2268)*X(328)-JVS(2269)*X(334)-JVS(2270)*X(338)-JVS(2271)*X(341)& + &-JVS(2272)*X(343))/(JVS(2265)) IF (DO_SLV(282)) & - X(282) = (X(282)-JVS(2280)*X(289)-JVS(2281)*X(290)-JVS(2282)*X(291)-JVS(2283)*X(296)-JVS(2284)*X(300)-JVS(2285)*X(306)& - &-JVS(2286)*X(310)-JVS(2287)*X(311)-JVS(2288)*X(313)-JVS(2289)*X(315)-JVS(2290)*X(318)-JVS(2291)*X(319)& - &-JVS(2292)*X(320)-JVS(2293)*X(321)-JVS(2294)*X(323)-JVS(2295)*X(324)-JVS(2296)*X(328)-JVS(2297)*X(335)& - &-JVS(2298)*X(337)-JVS(2299)*X(340)-JVS(2300)*X(341)-JVS(2301)*X(342)-JVS(2302)*X(345)-JVS(2303)*X(346)& - &-JVS(2304)*X(351))/(JVS(2279)) + X(282) = (X(282)-JVS(2256)*X(328)-JVS(2257)*X(334)-JVS(2258)*X(338)-JVS(2259)*X(341)-JVS(2260)*X(343)-JVS(2261)*X(345)& + &-JVS(2262)*X(348)-JVS(2263)*X(356))/(JVS(2255)) IF (DO_SLV(281)) & - X(281) = (X(281)-JVS(2260)*X(324)-JVS(2261)*X(328)-JVS(2262)*X(337)-JVS(2263)*X(341)-JVS(2264)*X(345)-JVS(2265)*X(346)& - &-JVS(2266)*X(351))/(JVS(2259)) + X(281) = (X(281)-JVS(2242)*X(328)-JVS(2243)*X(334)-JVS(2244)*X(338)-JVS(2245)*X(341)-JVS(2246)*X(343)-JVS(2247)*X(348)& + &-JVS(2248)*X(356))/(JVS(2241)) IF (DO_SLV(280)) & - X(280) = (X(280)-JVS(2247)*X(289)-JVS(2248)*X(291)-JVS(2249)*X(324)-JVS(2250)*X(328)-JVS(2251)*X(337)-JVS(2252)*X(341)& - &-JVS(2253)*X(345)-JVS(2254)*X(346)-JVS(2255)*X(351))/(JVS(2246)) + X(280) = (X(280)-JVS(2229)*X(292)-JVS(2230)*X(294)-JVS(2231)*X(328)-JVS(2232)*X(334)-JVS(2233)*X(338)-JVS(2234)*X(341)& + &-JVS(2235)*X(343)-JVS(2236)*X(348)-JVS(2237)*X(356))/(JVS(2228)) IF (DO_SLV(279)) & - X(279) = (X(279)-JVS(2233)*X(300)-JVS(2234)*X(320)-JVS(2235)*X(324)-JVS(2236)*X(328)-JVS(2237)*X(337)-JVS(2238)*X(345)& - &-JVS(2239)*X(346))/(JVS(2232)) + X(279) = (X(279)-JVS(2218)*X(343)-JVS(2219)*X(348)-JVS(2220)*X(352)-JVS(2221)*X(356))/(JVS(2217)) IF (DO_SLV(278)) & - X(278) = (X(278)-JVS(2223)*X(324)-JVS(2224)*X(328)-JVS(2225)*X(335)-JVS(2226)*X(337)-JVS(2227)*X(341)-JVS(2228)*X(345)& - &-JVS(2229)*X(346)-JVS(2230)*X(351))/(JVS(2222)) + X(278) = (X(278)-JVS(2209)*X(284)-JVS(2210)*X(328)-JVS(2211)*X(334)-JVS(2212)*X(338)-JVS(2213)*X(341)-JVS(2214)*X(343)& + &-JVS(2215)*X(348)-JVS(2216)*X(356))/(JVS(2208)) IF (DO_SLV(277)) & - X(277) = (X(277)-JVS(2209)*X(324)-JVS(2210)*X(328)-JVS(2211)*X(337)-JVS(2212)*X(341)-JVS(2213)*X(345)-JVS(2214)*X(346)& - &-JVS(2215)*X(351))/(JVS(2208)) + X(277) = (X(277)-JVS(2196)*X(278)-JVS(2197)*X(284)-JVS(2198)*X(328)-JVS(2199)*X(334)-JVS(2200)*X(338)-JVS(2201)*X(341)& + &-JVS(2202)*X(343)-JVS(2203)*X(345)-JVS(2204)*X(348)-JVS(2205)*X(356))/(JVS(2195)) IF (DO_SLV(276)) & - X(276) = (X(276)-JVS(2201)*X(340)-JVS(2202)*X(341)-JVS(2203)*X(345)-JVS(2204)*X(351))/(JVS(2200)) + X(276) = (X(276)-JVS(2176)*X(328)-JVS(2177)*X(334)-JVS(2178)*X(338)-JVS(2179)*X(341)-JVS(2180)*X(343)-JVS(2181)*X(348)& + &-JVS(2182)*X(356))/(JVS(2175)) IF (DO_SLV(275)) & - X(275) = (X(275)-JVS(2193)*X(324)-JVS(2194)*X(328)-JVS(2195)*X(337)-JVS(2196)*X(341)-JVS(2197)*X(345)-JVS(2198)*X(346)& - &-JVS(2199)*X(351))/(JVS(2192)) + X(275) = (X(275)-JVS(2164)*X(276)-JVS(2165)*X(328)-JVS(2166)*X(334)-JVS(2167)*X(338)-JVS(2168)*X(341)-JVS(2169)*X(343)& + &-JVS(2170)*X(348)-JVS(2171)*X(356))/(JVS(2163)) IF (DO_SLV(274)) & - X(274) = (X(274)-JVS(2179)*X(275)-JVS(2180)*X(281)-JVS(2181)*X(324)-JVS(2182)*X(328)-JVS(2183)*X(335)-JVS(2184)*X(337)& - &-JVS(2185)*X(341)-JVS(2186)*X(345)-JVS(2187)*X(346)-JVS(2188)*X(351))/(JVS(2178)) + X(274) = (X(274)-JVS(2140)*X(279)-JVS(2141)*X(288)-JVS(2142)*X(289)-JVS(2143)*X(291)-JVS(2144)*X(305)-JVS(2145)*X(306)& + &-JVS(2146)*X(307)-JVS(2147)*X(308)-JVS(2148)*X(309)-JVS(2149)*X(310)-JVS(2150)*X(314)-JVS(2151)*X(315)& + &-JVS(2152)*X(334)-JVS(2153)*X(338)-JVS(2154)*X(341)-JVS(2155)*X(343)-JVS(2156)*X(345)-JVS(2157)*X(348)& + &-JVS(2158)*X(356))/(JVS(2139)) IF (DO_SLV(273)) & - X(273) = (X(273)-JVS(2158)*X(275)-JVS(2159)*X(324)-JVS(2160)*X(328)-JVS(2161)*X(337)-JVS(2162)*X(341)-JVS(2163)*X(345)& - &-JVS(2164)*X(346)-JVS(2165)*X(351))/(JVS(2157)) + X(273) = (X(273)-JVS(2108)*X(308)-JVS(2109)*X(310)-JVS(2110)*X(334)-JVS(2111)*X(338)-JVS(2112)*X(341)-JVS(2113)& + &*X(343))/(JVS(2107)) IF (DO_SLV(272)) & - X(272) = (X(272)-JVS(2145)*X(281)-JVS(2146)*X(324)-JVS(2147)*X(328)-JVS(2148)*X(337)-JVS(2149)*X(341)-JVS(2150)*X(345)& - &-JVS(2151)*X(346)-JVS(2152)*X(351))/(JVS(2144)) + X(272) = (X(272)-JVS(2099)*X(334)-JVS(2100)*X(338)-JVS(2101)*X(341)-JVS(2102)*X(343)-JVS(2103)*X(345)-JVS(2104)*X(348)& + &-JVS(2105)*X(356))/(JVS(2098)) IF (DO_SLV(271)) & - X(271) = (X(271)-JVS(2136)*X(310)-JVS(2137)*X(311)-JVS(2138)*X(328)-JVS(2139)*X(337)-JVS(2140)*X(345)-JVS(2141)& - &*X(346))/(JVS(2135)) + X(271) = (X(271)-JVS(2084)*X(308)-JVS(2085)*X(310)-JVS(2086)*X(315)-JVS(2087)*X(334)-JVS(2088)*X(338)-JVS(2089)& + &*X(343))/(JVS(2083)) IF (DO_SLV(270)) & - X(270) = (X(270)-JVS(2114)*X(271)-JVS(2115)*X(276)-JVS(2116)*X(285)-JVS(2117)*X(286)-JVS(2118)*X(288)-JVS(2119)*X(301)& - &-JVS(2120)*X(302)-JVS(2121)*X(303)-JVS(2122)*X(304)-JVS(2123)*X(305)-JVS(2124)*X(306)-JVS(2125)*X(310)& - &-JVS(2126)*X(311)-JVS(2127)*X(328)-JVS(2128)*X(335)-JVS(2129)*X(337)-JVS(2130)*X(341)-JVS(2131)*X(345)& - &-JVS(2132)*X(346)-JVS(2133)*X(351))/(JVS(2113)) + X(270) = (X(270)-JVS(2078)*X(310)-JVS(2079)*X(314)-JVS(2080)*X(334)-JVS(2081)*X(338)-JVS(2082)*X(343))/(JVS(2077)) IF (DO_SLV(269)) & - X(269) = (X(269)-JVS(2082)*X(328)-JVS(2083)*X(335)-JVS(2084)*X(337)-JVS(2085)*X(341)-JVS(2086)*X(345)-JVS(2087)*X(346)& - &-JVS(2088)*X(351))/(JVS(2081)) + X(269) = (X(269)-JVS(2065)*X(270)-JVS(2066)*X(271)-JVS(2067)*X(273)-JVS(2068)*X(288)-JVS(2069)*X(289)-JVS(2070)*X(307)& + &-JVS(2071)*X(310)-JVS(2072)*X(314)-JVS(2073)*X(315)-JVS(2074)*X(338)-JVS(2075)*X(341)-JVS(2076)*X(343))& + &/(JVS(2064)) IF (DO_SLV(268)) & - X(268) = (X(268)-JVS(2067)*X(304)-JVS(2068)*X(310)-JVS(2069)*X(311)-JVS(2070)*X(328)-JVS(2071)*X(345)-JVS(2072)& - &*X(346))/(JVS(2066)) + X(268) = (X(268)-JVS(2038)*X(272)-JVS(2039)*X(279)-JVS(2040)*X(305)-JVS(2041)*X(306)-JVS(2042)*X(307)-JVS(2043)*X(309)& + &-JVS(2044)*X(311)-JVS(2045)*X(312)-JVS(2046)*X(313)-JVS(2047)*X(314)-JVS(2048)*X(315)-JVS(2049)*X(317)& + &-JVS(2050)*X(338)-JVS(2051)*X(341)-JVS(2052)*X(343)-JVS(2053)*X(345)-JVS(2054)*X(348)-JVS(2055)*X(352)& + &-JVS(2056)*X(353)-JVS(2057)*X(356))/(JVS(2037)) IF (DO_SLV(267)) & - X(267) = (X(267)-JVS(2061)*X(305)-JVS(2062)*X(311)-JVS(2063)*X(328)-JVS(2064)*X(345)-JVS(2065)*X(346))/(JVS(2060)) + X(267) = (X(267)-JVS(2012)*X(279)-JVS(2013)*X(293)-JVS(2014)*X(317)-JVS(2015)*X(318)-JVS(2016)*X(335)-JVS(2017)*X(338)& + &-JVS(2018)*X(341)-JVS(2019)*X(343)-JVS(2020)*X(345)-JVS(2021)*X(351)-JVS(2022)*X(352)-JVS(2023)*X(353)& + &-JVS(2024)*X(355)-JVS(2025)*X(356))/(JVS(2011)) IF (DO_SLV(266)) & - X(266) = (X(266)-JVS(2048)*X(267)-JVS(2049)*X(268)-JVS(2050)*X(271)-JVS(2051)*X(285)-JVS(2052)*X(286)-JVS(2053)*X(303)& - &-JVS(2054)*X(304)-JVS(2055)*X(305)-JVS(2056)*X(311)-JVS(2057)*X(337)-JVS(2058)*X(345)-JVS(2059)*X(346))& - &/(JVS(2047)) + X(266) = (X(266)-JVS(1998)*X(276)-JVS(1999)*X(281)-JVS(2000)*X(282)-JVS(2001)*X(284)-JVS(2002)*X(294)-JVS(2003)*X(328)& + &-JVS(2004)*X(334)-JVS(2005)*X(338)-JVS(2006)*X(341)-JVS(2007)*X(343)-JVS(2008)*X(348)-JVS(2009)*X(356))& + &/(JVS(1997)) IF (DO_SLV(265)) & - X(265) = (X(265)-JVS(2021)*X(269)-JVS(2022)*X(276)-JVS(2023)*X(301)-JVS(2024)*X(302)-JVS(2025)*X(303)-JVS(2026)*X(304)& - &-JVS(2027)*X(305)-JVS(2028)*X(306)-JVS(2029)*X(307)-JVS(2030)*X(308)-JVS(2031)*X(309)-JVS(2032)*X(312)& - &-JVS(2033)*X(335)-JVS(2034)*X(336)-JVS(2035)*X(337)-JVS(2036)*X(340)-JVS(2037)*X(341)-JVS(2038)*X(345)& - &-JVS(2039)*X(346)-JVS(2040)*X(351))/(JVS(2020)) + X(265) = (X(265)-JVS(1964)*X(270)-JVS(1965)*X(273)-JVS(1966)*X(299)-JVS(1967)*X(303)-JVS(1968)*X(305)-JVS(1969)*X(306)& + &-JVS(1970)*X(307)-JVS(1971)*X(310)-JVS(1972)*X(338)-JVS(1973)*X(341)-JVS(1974)*X(343)-JVS(1975)*X(348))& + &/(JVS(1963)) IF (DO_SLV(264)) & - X(264) = (X(264)-JVS(1995)*X(276)-JVS(1996)*X(290)-JVS(1997)*X(312)-JVS(1998)*X(314)-JVS(1999)*X(329)-JVS(2000)*X(335)& - &-JVS(2001)*X(336)-JVS(2002)*X(337)-JVS(2003)*X(340)-JVS(2004)*X(341)-JVS(2005)*X(343)-JVS(2006)*X(345)& - &-JVS(2007)*X(346)-JVS(2008)*X(348))/(JVS(1994)) + X(264) = (X(264)-JVS(1951)*X(293)-JVS(1952)*X(328)-JVS(1953)*X(334)-JVS(1954)*X(338)-JVS(1955)*X(341)-JVS(1956)*X(342)& + &-JVS(1957)*X(343)-JVS(1958)*X(352))/(JVS(1950)) IF (DO_SLV(263)) & - X(263) = (X(263)-JVS(1981)*X(275)-JVS(1982)*X(277)-JVS(1983)*X(278)-JVS(1984)*X(281)-JVS(1985)*X(291)-JVS(1986)*X(324)& - &-JVS(1987)*X(328)-JVS(1988)*X(337)-JVS(1989)*X(341)-JVS(1990)*X(345)-JVS(1991)*X(346)-JVS(1992)*X(351))& - &/(JVS(1980)) + X(263) = (X(263)-JVS(1941)*X(294)-JVS(1942)*X(328)-JVS(1943)*X(334)-JVS(1944)*X(338)-JVS(1945)*X(341)-JVS(1946)*X(343)& + &-JVS(1947)*X(348)-JVS(1948)*X(356))/(JVS(1940)) IF (DO_SLV(262)) & - X(262) = (X(262)-JVS(1951)*X(291)-JVS(1952)*X(324)-JVS(1953)*X(328)-JVS(1954)*X(337)-JVS(1955)*X(341)-JVS(1956)*X(345)& - &-JVS(1957)*X(346)-JVS(1958)*X(351))/(JVS(1950)) + X(262) = (X(262)-JVS(1930)*X(312)-JVS(1931)*X(313)-JVS(1932)*X(338)-JVS(1933)*X(341)-JVS(1934)*X(343)-JVS(1935)*X(345)& + &-JVS(1936)*X(348))/(JVS(1929)) IF (DO_SLV(261)) & - X(261) = (X(261)-JVS(1935)*X(267)-JVS(1936)*X(271)-JVS(1937)*X(293)-JVS(1938)*X(299)-JVS(1939)*X(301)-JVS(1940)*X(302)& - &-JVS(1941)*X(303)-JVS(1942)*X(311)-JVS(1943)*X(337)-JVS(1944)*X(345)-JVS(1945)*X(346)-JVS(1946)*X(351))& - &/(JVS(1934)) + X(261) = (X(261)-JVS(1918)*X(281)-JVS(1919)*X(328)-JVS(1920)*X(334)-JVS(1921)*X(338)-JVS(1922)*X(341)-JVS(1923)*X(343)& + &-JVS(1924)*X(345)-JVS(1925)*X(348)-JVS(1926)*X(356))/(JVS(1917)) IF (DO_SLV(260)) & - X(260) = (X(260)-JVS(1922)*X(290)-JVS(1923)*X(324)-JVS(1924)*X(328)-JVS(1925)*X(337)-JVS(1926)*X(340)-JVS(1927)*X(342)& - &-JVS(1928)*X(345)-JVS(1929)*X(346))/(JVS(1921)) + X(260) = (X(260)-JVS(1898)*X(275)-JVS(1899)*X(276)-JVS(1900)*X(278)-JVS(1901)*X(280)-JVS(1902)*X(281)-JVS(1903)*X(282)& + &-JVS(1904)*X(284)-JVS(1905)*X(292)-JVS(1906)*X(328)-JVS(1907)*X(334)-JVS(1908)*X(338)-JVS(1909)*X(341)& + &-JVS(1910)*X(343)-JVS(1911)*X(348)-JVS(1912)*X(356))/(JVS(1897)) IF (DO_SLV(259)) & - X(259) = (X(259)-JVS(1913)*X(308)-JVS(1914)*X(309)-JVS(1915)*X(335)-JVS(1916)*X(337)-JVS(1917)*X(345)-JVS(1918)*X(346)& - &-JVS(1919)*X(351))/(JVS(1912)) + X(259) = (X(259)-JVS(1882)*X(270)-JVS(1883)*X(271)-JVS(1884)*X(288)-JVS(1885)*X(289)-JVS(1886)*X(314)-JVS(1887)*X(315)& + &-JVS(1888)*X(338)-JVS(1889)*X(341)-JVS(1890)*X(343))/(JVS(1881)) IF (DO_SLV(258)) & - X(258) = (X(258)-JVS(1901)*X(267)-JVS(1902)*X(268)-JVS(1903)*X(285)-JVS(1904)*X(286)-JVS(1905)*X(304)-JVS(1906)*X(305)& - &-JVS(1907)*X(337)-JVS(1908)*X(345)-JVS(1909)*X(346))/(JVS(1900)) + X(258) = (X(258)-JVS(1868)*X(279)-JVS(1869)*X(305)-JVS(1870)*X(314)-JVS(1871)*X(318)-JVS(1872)*X(338)-JVS(1873)*X(341)& + &-JVS(1874)*X(343)-JVS(1875)*X(345))/(JVS(1867)) IF (DO_SLV(257)) & - X(257) = (X(257)-JVS(1886)*X(277)-JVS(1887)*X(324)-JVS(1888)*X(328)-JVS(1889)*X(335)-JVS(1890)*X(337)-JVS(1891)*X(341)& - &-JVS(1892)*X(345)-JVS(1893)*X(346)-JVS(1894)*X(351))/(JVS(1885)) + X(257) = (X(257)-JVS(1857)*X(279)-JVS(1858)*X(305)-JVS(1859)*X(313)-JVS(1860)*X(315)-JVS(1861)*X(338)-JVS(1862)*X(341)& + &-JVS(1863)*X(343)-JVS(1864)*X(345))/(JVS(1856)) IF (DO_SLV(256)) & - X(256) = (X(256)-JVS(1866)*X(272)-JVS(1867)*X(273)-JVS(1868)*X(275)-JVS(1869)*X(277)-JVS(1870)*X(278)-JVS(1871)*X(280)& - &-JVS(1872)*X(281)-JVS(1873)*X(289)-JVS(1874)*X(324)-JVS(1875)*X(328)-JVS(1876)*X(337)-JVS(1877)*X(341)& - &-JVS(1878)*X(345)-JVS(1879)*X(346)-JVS(1880)*X(351))/(JVS(1865)) + X(256) = (X(256)-JVS(1846)*X(284)-JVS(1847)*X(328)-JVS(1848)*X(334)-JVS(1849)*X(338)-JVS(1850)*X(341)-JVS(1851)*X(343)& + &-JVS(1852)*X(348)-JVS(1853)*X(356))/(JVS(1845)) IF (DO_SLV(255)) & - X(255) = (X(255)-JVS(1851)*X(281)-JVS(1852)*X(324)-JVS(1853)*X(328)-JVS(1854)*X(337)-JVS(1855)*X(341)-JVS(1856)*X(345)& - &-JVS(1857)*X(346)-JVS(1858)*X(351))/(JVS(1850)) + X(255) = (X(255)-JVS(1838)*X(322)-JVS(1839)*X(323)-JVS(1840)*X(324)-JVS(1841)*X(338)-JVS(1842)*X(341)-JVS(1843)& + &*X(343))/(JVS(1837)) IF (DO_SLV(254)) & - X(254) = (X(254)-JVS(1841)*X(276)-JVS(1842)*X(301)-JVS(1843)*X(305)-JVS(1844)*X(314)-JVS(1845)*X(335)-JVS(1846)*X(337)& - &-JVS(1847)*X(345)-JVS(1848)*X(346))/(JVS(1840)) + X(254) = (X(254)-JVS(1831)*X(331)-JVS(1832)*X(339)-JVS(1833)*X(345)-JVS(1834)*X(346)-JVS(1835)*X(349)-JVS(1836)& + &*X(350))/(JVS(1830)) IF (DO_SLV(253)) & - X(253) = (X(253)-JVS(1830)*X(276)-JVS(1831)*X(301)-JVS(1832)*X(304)-JVS(1833)*X(309)-JVS(1834)*X(335)-JVS(1835)*X(337)& - &-JVS(1836)*X(345)-JVS(1837)*X(346))/(JVS(1829)) + X(253) = (X(253)-JVS(1823)*X(293)-JVS(1824)*X(328)-JVS(1825)*X(334)-JVS(1826)*X(338)-JVS(1827)*X(341)-JVS(1828)*X(343)& + &-JVS(1829)*X(348))/(JVS(1822)) IF (DO_SLV(252)) & - X(252) = (X(252)-JVS(1821)*X(331)-JVS(1822)*X(335)-JVS(1823)*X(344)-JVS(1824)*X(349)-JVS(1825)*X(350)-JVS(1826)& - &*X(353))/(JVS(1820)) + X(252) = (X(252)-JVS(1815)*X(283)-JVS(1816)*X(328)-JVS(1817)*X(334)-JVS(1818)*X(338)-JVS(1819)*X(341)-JVS(1820)& + &*X(343))/(JVS(1814)) IF (DO_SLV(251)) & - X(251) = (X(251)-JVS(1814)*X(318)-JVS(1815)*X(319)-JVS(1816)*X(320)-JVS(1817)*X(337)-JVS(1818)*X(345)-JVS(1819)& - &*X(346))/(JVS(1813)) + X(251) = (X(251)-JVS(1803)*X(257)-JVS(1804)*X(279)-JVS(1805)*X(305)-JVS(1806)*X(307)-JVS(1807)*X(312)-JVS(1808)*X(314)& + &-JVS(1809)*X(315)-JVS(1810)*X(338)-JVS(1811)*X(341)-JVS(1812)*X(343)-JVS(1813)*X(345))/(JVS(1802)) IF (DO_SLV(250)) & - X(250) = (X(250)-JVS(1806)*X(290)-JVS(1807)*X(324)-JVS(1808)*X(328)-JVS(1809)*X(337)-JVS(1810)*X(345)-JVS(1811)*X(346)& - &-JVS(1812)*X(351))/(JVS(1805)) + X(250) = (X(250)-JVS(1794)*X(324)-JVS(1795)*X(338)-JVS(1796)*X(341)-JVS(1797)*X(343)-JVS(1798)*X(345))/(JVS(1793)) IF (DO_SLV(249)) & - X(249) = (X(249)-JVS(1798)*X(279)-JVS(1799)*X(324)-JVS(1800)*X(328)-JVS(1801)*X(337)-JVS(1802)*X(345)-JVS(1803)& - &*X(346))/(JVS(1797)) + X(249) = (X(249)-JVS(1777)*X(253)-JVS(1778)*X(271)-JVS(1779)*X(273)-JVS(1780)*X(299)-JVS(1781)*X(303)-JVS(1782)*X(305)& + &-JVS(1783)*X(307)-JVS(1784)*X(310)-JVS(1785)*X(312)-JVS(1786)*X(313)-JVS(1787)*X(334)-JVS(1788)*X(338)& + &-JVS(1789)*X(341)-JVS(1790)*X(343)-JVS(1791)*X(348))/(JVS(1776)) IF (DO_SLV(248)) & - X(248) = (X(248)-JVS(1786)*X(253)-JVS(1787)*X(276)-JVS(1788)*X(301)-JVS(1789)*X(303)-JVS(1790)*X(304)-JVS(1791)*X(305)& - &-JVS(1792)*X(308)-JVS(1793)*X(335)-JVS(1794)*X(337)-JVS(1795)*X(345)-JVS(1796)*X(346))/(JVS(1785)) + X(248) = (X(248)-JVS(1758)*X(301)-JVS(1759)*X(321)-JVS(1760)*X(332)-JVS(1761)*X(334)-JVS(1762)*X(337)-JVS(1763)*X(339)& + &-JVS(1764)*X(340)-JVS(1765)*X(343)-JVS(1766)*X(344)-JVS(1767)*X(346)-JVS(1768)*X(347)-JVS(1769)*X(352))& + &/(JVS(1757)) IF (DO_SLV(247)) & - X(247) = (X(247)-JVS(1767)*X(250)-JVS(1768)*X(268)-JVS(1769)*X(271)-JVS(1770)*X(293)-JVS(1771)*X(299)-JVS(1772)*X(301)& - &-JVS(1773)*X(303)-JVS(1774)*X(308)-JVS(1775)*X(309)-JVS(1776)*X(311)-JVS(1777)*X(328)-JVS(1778)*X(337)& - &-JVS(1779)*X(345)-JVS(1780)*X(346)-JVS(1781)*X(351))/(JVS(1766)) + X(247) = (X(247)-JVS(1744)*X(273)-JVS(1745)*X(279)-JVS(1746)*X(290)-JVS(1747)*X(307)-JVS(1748)*X(310)-JVS(1749)*X(313)& + &-JVS(1750)*X(315)-JVS(1751)*X(316)-JVS(1752)*X(324)-JVS(1753)*X(338)-JVS(1754)*X(341)-JVS(1755)*X(343))& + &/(JVS(1743)) IF (DO_SLV(246)) & - X(246) = (X(246)-JVS(1755)*X(320)-JVS(1756)*X(335)-JVS(1757)*X(337)-JVS(1758)*X(345)-JVS(1759)*X(346))/(JVS(1754)) + X(246) = (X(246)-JVS(1730)*X(280)-JVS(1731)*X(292)-JVS(1732)*X(294)-JVS(1733)*X(328)-JVS(1734)*X(334)-JVS(1735)*X(338)& + &-JVS(1736)*X(341)-JVS(1737)*X(343)-JVS(1738)*X(348)-JVS(1739)*X(356))/(JVS(1729)) IF (DO_SLV(245)) & - X(245) = (X(245)-JVS(1741)*X(297)-JVS(1742)*X(317)-JVS(1743)*X(328)-JVS(1744)*X(333)-JVS(1745)*X(334)-JVS(1746)*X(338)& - &-JVS(1747)*X(339)-JVS(1748)*X(340)-JVS(1749)*X(344)-JVS(1750)*X(345)-JVS(1751)*X(347)-JVS(1752)*X(353))& - &/(JVS(1740)) + X(245) = (X(245)-JVS(1721)*X(270)-JVS(1722)*X(271)-JVS(1723)*X(314)-JVS(1724)*X(315)-JVS(1725)*X(338)-JVS(1726)*X(341)& + &-JVS(1727)*X(343))/(JVS(1720)) IF (DO_SLV(244)) & - X(244) = (X(244)-JVS(1727)*X(271)-JVS(1728)*X(276)-JVS(1729)*X(287)-JVS(1730)*X(303)-JVS(1731)*X(304)-JVS(1732)*X(309)& - &-JVS(1733)*X(311)-JVS(1734)*X(313)-JVS(1735)*X(320)-JVS(1736)*X(337)-JVS(1737)*X(345)-JVS(1738)*X(346))& - &/(JVS(1726)) + X(244) = (X(244)-JVS(1709)*X(293)-JVS(1710)*X(335)-JVS(1711)*X(338)-JVS(1712)*X(345)-JVS(1713)*X(353)-JVS(1714)*X(355)& + &-JVS(1715)*X(356))/(JVS(1708)) IF (DO_SLV(243)) & - X(243) = (X(243)-JVS(1716)*X(267)-JVS(1717)*X(268)-JVS(1718)*X(304)-JVS(1719)*X(305)-JVS(1720)*X(337)-JVS(1721)*X(345)& - &-JVS(1722)*X(346))/(JVS(1715)) + X(243) = (X(243)-JVS(1703)*X(338)-JVS(1704)*X(341)-JVS(1705)*X(343)-JVS(1706)*X(345)-JVS(1707)*X(348))/(JVS(1702)) IF (DO_SLV(242)) & - X(242) = (X(242)-JVS(1701)*X(280)-JVS(1702)*X(289)-JVS(1703)*X(291)-JVS(1704)*X(324)-JVS(1705)*X(328)-JVS(1706)*X(337)& - &-JVS(1707)*X(341)-JVS(1708)*X(345)-JVS(1709)*X(346)-JVS(1710)*X(351))/(JVS(1700)) + X(242) = (X(242)-JVS(1691)*X(270)-JVS(1692)*X(271)-JVS(1693)*X(314)-JVS(1694)*X(315)-JVS(1695)*X(334)-JVS(1696)*X(338)& + &-JVS(1697)*X(341)-JVS(1698)*X(343))/(JVS(1690)) IF (DO_SLV(241)) & - X(241) = (X(241)-JVS(1692)*X(290)-JVS(1693)*X(329)-JVS(1694)*X(335)-JVS(1695)*X(336)-JVS(1696)*X(341)-JVS(1697)*X(346)& - &-JVS(1698)*X(348))/(JVS(1691)) + X(241) = (X(241)-JVS(1680)*X(284)-JVS(1681)*X(328)-JVS(1682)*X(334)-JVS(1683)*X(338)-JVS(1684)*X(341)-JVS(1685)*X(343)& + &-JVS(1686)*X(348)-JVS(1687)*X(356))/(JVS(1679)) IF (DO_SLV(240)) & - X(240) = (X(240)-JVS(1686)*X(335)-JVS(1687)*X(337)-JVS(1688)*X(345)-JVS(1689)*X(346)-JVS(1690)*X(351))/(JVS(1685)) + X(240) = (X(240)-JVS(1663)*X(254)-JVS(1664)*X(272)-JVS(1665)*X(301)-JVS(1666)*X(333)-JVS(1667)*X(338)-JVS(1668)*X(339)& + &-JVS(1669)*X(340)-JVS(1670)*X(343)-JVS(1671)*X(345)-JVS(1672)*X(346)-JVS(1673)*X(348)-JVS(1674)*X(349)& + &-JVS(1675)*X(350)-JVS(1676)*X(354)-JVS(1677)*X(355)-JVS(1678)*X(356))/(JVS(1662)) IF (DO_SLV(239)) & - X(239) = (X(239)-JVS(1666)*X(252)-JVS(1667)*X(269)-JVS(1668)*X(297)-JVS(1669)*X(327)-JVS(1670)*X(335)-JVS(1671)*X(339)& - &-JVS(1672)*X(341)-JVS(1673)*X(344)-JVS(1674)*X(345)-JVS(1675)*X(346)-JVS(1676)*X(348)-JVS(1677)*X(349)& - &-JVS(1678)*X(350)-JVS(1679)*X(351)-JVS(1680)*X(352)-JVS(1681)*X(353))/(JVS(1665)) + X(239) = (X(239)-JVS(1651)*X(250)-JVS(1652)*X(334)-JVS(1653)*X(338)-JVS(1654)*X(341)-JVS(1655)*X(343)-JVS(1656)*X(348)& + &-JVS(1657)*X(356))/(JVS(1650)) IF (DO_SLV(238)) & - X(238) = (X(238)-JVS(1653)*X(267)-JVS(1654)*X(268)-JVS(1655)*X(304)-JVS(1656)*X(305)-JVS(1657)*X(328)-JVS(1658)*X(337)& - &-JVS(1659)*X(345)-JVS(1660)*X(346))/(JVS(1652)) + X(238) = (X(238)-JVS(1640)*X(334)-JVS(1641)*X(338)-JVS(1642)*X(341)-JVS(1643)*X(343)-JVS(1644)*X(345)-JVS(1645)*X(348)& + &-JVS(1646)*X(356))/(JVS(1639)) IF (DO_SLV(237)) & - X(237) = (X(237)-JVS(1642)*X(281)-JVS(1643)*X(324)-JVS(1644)*X(328)-JVS(1645)*X(337)-JVS(1646)*X(341)-JVS(1647)*X(345)& - &-JVS(1648)*X(346)-JVS(1649)*X(351))/(JVS(1641)) + X(237) = (X(237)-JVS(1626)*X(334)-JVS(1627)*X(338)-JVS(1628)*X(341)-JVS(1629)*X(343)-JVS(1630)*X(345)-JVS(1631)*X(348)& + &-JVS(1632)*X(356))/(JVS(1625)) IF (DO_SLV(236)) & - X(236) = (X(236)-JVS(1634)*X(328)-JVS(1635)*X(335)-JVS(1636)*X(337)-JVS(1637)*X(341)-JVS(1638)*X(345)-JVS(1639)*X(346)& - &-JVS(1640)*X(351))/(JVS(1633)) + X(236) = (X(236)-JVS(1617)*X(310)-JVS(1618)*X(338)-JVS(1619)*X(341)-JVS(1620)*X(343))/(JVS(1616)) IF (DO_SLV(235)) & - X(235) = (X(235)-JVS(1620)*X(328)-JVS(1621)*X(335)-JVS(1622)*X(337)-JVS(1623)*X(341)-JVS(1624)*X(345)-JVS(1625)*X(346)& - &-JVS(1626)*X(351))/(JVS(1619)) + X(235) = (X(235)-JVS(1610)*X(314)-JVS(1611)*X(315)-JVS(1612)*X(338)-JVS(1613)*X(341)-JVS(1614)*X(343))/(JVS(1609)) IF (DO_SLV(234)) & - X(234) = (X(234)-JVS(1608)*X(246)-JVS(1609)*X(328)-JVS(1610)*X(337)-JVS(1611)*X(341)-JVS(1612)*X(345)-JVS(1613)*X(346)& - &-JVS(1614)*X(351))/(JVS(1607)) + X(234) = (X(234)-JVS(1602)*X(294)-JVS(1603)*X(341)-JVS(1604)*X(343)-JVS(1605)*X(348)-JVS(1606)*X(356))/(JVS(1601)) IF (DO_SLV(233)) & - X(233) = (X(233)-JVS(1599)*X(337)-JVS(1600)*X(341)-JVS(1601)*X(345)-JVS(1602)*X(346)-JVS(1603)*X(351))/(JVS(1598)) + X(233) = (X(233)-JVS(1597)*X(279)-JVS(1598)*X(314)-JVS(1599)*X(341)-JVS(1600)*X(343))/(JVS(1596)) IF (DO_SLV(232)) & - X(232) = (X(232)-JVS(1591)*X(304)-JVS(1592)*X(305)-JVS(1593)*X(337)-JVS(1594)*X(345)-JVS(1595)*X(346))/(JVS(1590)) + X(232) = (X(232)-JVS(1589)*X(293)-JVS(1590)*X(330)-JVS(1591)*X(337)-JVS(1592)*X(343)-JVS(1593)*X(352)-JVS(1594)& + &*X(356))/(JVS(1588)) IF (DO_SLV(231)) & - X(231) = (X(231)-JVS(1584)*X(276)-JVS(1585)*X(304)-JVS(1586)*X(337)-JVS(1587)*X(345))/(JVS(1583)) + X(231) = (X(231)-JVS(1584)*X(279)-JVS(1585)*X(315)-JVS(1586)*X(341)-JVS(1587)*X(343))/(JVS(1583)) IF (DO_SLV(230)) & - X(230) = (X(230)-JVS(1578)*X(276)-JVS(1579)*X(305)-JVS(1580)*X(337)-JVS(1581)*X(345))/(JVS(1577)) + X(230) = (X(230)-JVS(1570)*X(231)-JVS(1571)*X(233)-JVS(1572)*X(259)-JVS(1573)*X(288)-JVS(1574)*X(289)-JVS(1575)*X(291)& + &-JVS(1576)*X(305)-JVS(1577)*X(306)-JVS(1578)*X(307)-JVS(1579)*X(338)-JVS(1580)*X(341)-JVS(1581)*X(343))& + &/(JVS(1569)) IF (DO_SLV(229)) & - X(229) = (X(229)-JVS(1571)*X(291)-JVS(1572)*X(337)-JVS(1573)*X(341)-JVS(1574)*X(345)-JVS(1575)*X(351))/(JVS(1570)) + X(229) = (X(229)-JVS(1560)*X(338)-JVS(1561)*X(341)-JVS(1562)*X(343)-JVS(1563)*X(348)-JVS(1564)*X(356))/(JVS(1559)) IF (DO_SLV(228)) & - X(228) = (X(228)-JVS(1564)*X(290)-JVS(1565)*X(326)-JVS(1566)*X(334)-JVS(1567)*X(340)-JVS(1568)*X(341)-JVS(1569)& - &*X(345))/(JVS(1563)) + X(228) = (X(228)-JVS(1553)*X(314)-JVS(1554)*X(338)-JVS(1555)*X(341)-JVS(1556)*X(343))/(JVS(1552)) IF (DO_SLV(227)) & - X(227) = (X(227)-JVS(1551)*X(230)-JVS(1552)*X(231)-JVS(1553)*X(258)-JVS(1554)*X(285)-JVS(1555)*X(286)-JVS(1556)*X(288)& - &-JVS(1557)*X(301)-JVS(1558)*X(302)-JVS(1559)*X(303)-JVS(1560)*X(337)-JVS(1561)*X(345)-JVS(1562)*X(346))& - &/(JVS(1550)) + X(227) = (X(227)-JVS(1542)*X(281)-JVS(1543)*X(328)-JVS(1544)*X(334)-JVS(1545)*X(338)-JVS(1546)*X(341)-JVS(1547)*X(343)& + &-JVS(1548)*X(348)-JVS(1549)*X(356))/(JVS(1541)) IF (DO_SLV(226)) & - X(226) = (X(226)-JVS(1542)*X(311)-JVS(1543)*X(337)-JVS(1544)*X(345)-JVS(1545)*X(346))/(JVS(1541)) + X(226) = (X(226)-JVS(1534)*X(315)-JVS(1535)*X(338)-JVS(1536)*X(341)-JVS(1537)*X(343))/(JVS(1533)) IF (DO_SLV(225)) & - X(225) = (X(225)-JVS(1532)*X(277)-JVS(1533)*X(324)-JVS(1534)*X(328)-JVS(1535)*X(337)-JVS(1536)*X(341)-JVS(1537)*X(345)& - &-JVS(1538)*X(346)-JVS(1539)*X(351))/(JVS(1531)) + X(225) = (X(225)-JVS(1526)*X(308)-JVS(1527)*X(310)-JVS(1528)*X(334)-JVS(1529)*X(341)-JVS(1530)*X(343))/(JVS(1525)) IF (DO_SLV(224)) & - X(224) = (X(224)-JVS(1524)*X(304)-JVS(1525)*X(337)-JVS(1526)*X(345)-JVS(1527)*X(346))/(JVS(1523)) + X(224) = (X(224)-JVS(1521)*X(272)-JVS(1522)*X(343)-JVS(1523)*X(348)-JVS(1524)*X(356))/(JVS(1520)) IF (DO_SLV(223)) & - X(223) = (X(223)-JVS(1517)*X(305)-JVS(1518)*X(337)-JVS(1519)*X(345)-JVS(1520)*X(346))/(JVS(1516)) + X(223) = (X(223)-JVS(1509)*X(343)-JVS(1510)*X(348)-JVS(1511)*X(356))/(JVS(1508)) IF (DO_SLV(222)) & - X(222) = (X(222)-JVS(1509)*X(310)-JVS(1510)*X(311)-JVS(1511)*X(328)-JVS(1512)*X(337)-JVS(1513)*X(345))/(JVS(1508)) + X(222) = (X(222)-JVS(1505)*X(343)-JVS(1506)*X(348)-JVS(1507)*X(356))/(JVS(1504)) IF (DO_SLV(221)) & - X(221) = (X(221)-JVS(1504)*X(269)-JVS(1505)*X(341)-JVS(1506)*X(345)-JVS(1507)*X(351))/(JVS(1503)) + X(221) = (X(221)-JVS(1499)*X(340)-JVS(1500)*X(342)-JVS(1501)*X(345)-JVS(1502)*X(347)-JVS(1503)*X(353))/(JVS(1498)) IF (DO_SLV(220)) & - X(220) = (X(220)-JVS(1492)*X(341)-JVS(1493)*X(345)-JVS(1494)*X(351))/(JVS(1491)) + X(220) = (X(220)-JVS(1488)*X(236)-JVS(1489)*X(271)-JVS(1490)*X(273)-JVS(1491)*X(299)-JVS(1492)*X(305)-JVS(1493)*X(312)& + &-JVS(1494)*X(334)-JVS(1495)*X(338)-JVS(1496)*X(341)-JVS(1497)*X(343))/(JVS(1487)) IF (DO_SLV(219)) & - X(219) = (X(219)-JVS(1488)*X(341)-JVS(1489)*X(345)-JVS(1490)*X(351))/(JVS(1487)) + X(219) = (X(219)-JVS(1476)*X(232)-JVS(1477)*X(329)-JVS(1478)*X(337)-JVS(1479)*X(340)-JVS(1480)*X(341)-JVS(1481)*X(343)& + &-JVS(1482)*X(351)-JVS(1483)*X(352)-JVS(1484)*X(354)-JVS(1485)*X(356))/(JVS(1475)) IF (DO_SLV(218)) & - X(218) = (X(218)-JVS(1482)*X(335)-JVS(1483)*X(336)-JVS(1484)*X(339)-JVS(1485)*X(342)-JVS(1486)*X(347))/(JVS(1481)) + X(218) = (X(218)-JVS(1462)*X(231)-JVS(1463)*X(233)-JVS(1464)*X(270)-JVS(1465)*X(271)-JVS(1466)*X(279)-JVS(1467)*X(305)& + &-JVS(1468)*X(310)-JVS(1469)*X(314)-JVS(1470)*X(315)-JVS(1471)*X(338)-JVS(1472)*X(341)-JVS(1473)*X(343))& + &/(JVS(1461)) IF (DO_SLV(217)) & - X(217) = (X(217)-JVS(1471)*X(228)-JVS(1472)*X(325)-JVS(1473)*X(334)-JVS(1474)*X(337)-JVS(1475)*X(339)-JVS(1476)*X(340)& - &-JVS(1477)*X(341)-JVS(1478)*X(343)-JVS(1479)*X(345)-JVS(1480)*X(352))/(JVS(1470)) + X(217) = (X(217)-JVS(1443)*X(339)-JVS(1444)*X(340)-JVS(1445)*X(345)-JVS(1446)*X(346)-JVS(1447)*X(348)-JVS(1448)& + &*X(353))/(JVS(1442)) IF (DO_SLV(216)) & - X(216) = (X(216)-JVS(1459)*X(226)-JVS(1460)*X(268)-JVS(1461)*X(271)-JVS(1462)*X(293)-JVS(1463)*X(301)-JVS(1464)*X(308)& - &-JVS(1465)*X(328)-JVS(1466)*X(337)-JVS(1467)*X(345)-JVS(1468)*X(346))/(JVS(1458)) + X(216) = (X(216)-JVS(1436)*X(309)-JVS(1437)*X(338)-JVS(1438)*X(341)-JVS(1439)*X(343)-JVS(1440)*X(345)-JVS(1441)& + &*X(348))/(JVS(1435)) IF (DO_SLV(215)) & - X(215) = (X(215)-JVS(1445)*X(230)-JVS(1446)*X(231)-JVS(1447)*X(267)-JVS(1448)*X(268)-JVS(1449)*X(276)-JVS(1450)*X(301)& - &-JVS(1451)*X(304)-JVS(1452)*X(305)-JVS(1453)*X(311)-JVS(1454)*X(337)-JVS(1455)*X(345)-JVS(1456)*X(346))& - &/(JVS(1444)) + X(215) = (X(215)-JVS(1429)*X(338)-JVS(1430)*X(341)-JVS(1431)*X(343)-JVS(1432)*X(348)-JVS(1433)*X(356))/(JVS(1428)) IF (DO_SLV(214)) & - X(214) = (X(214)-JVS(1426)*X(335)-JVS(1427)*X(336)-JVS(1428)*X(339)-JVS(1429)*X(344)-JVS(1430)*X(351)-JVS(1431)& - &*X(353))/(JVS(1425)) + X(214) = (X(214)-JVS(1418)*X(228)-JVS(1419)*X(236)-JVS(1420)*X(273)-JVS(1421)*X(279)-JVS(1422)*X(307)-JVS(1423)*X(314)& + &-JVS(1424)*X(338)-JVS(1425)*X(341)-JVS(1426)*X(343))/(JVS(1417)) IF (DO_SLV(213)) & - X(213) = (X(213)-JVS(1419)*X(306)-JVS(1420)*X(335)-JVS(1421)*X(337)-JVS(1422)*X(345)-JVS(1423)*X(346)-JVS(1424)& - &*X(351))/(JVS(1418)) + X(213) = (X(213)-JVS(1413)*X(314)-JVS(1414)*X(341)-JVS(1415)*X(343))/(JVS(1412)) IF (DO_SLV(212)) & - X(212) = (X(212)-JVS(1412)*X(337)-JVS(1413)*X(341)-JVS(1414)*X(345)-JVS(1415)*X(346)-JVS(1416)*X(351))/(JVS(1411)) + X(212) = (X(212)-JVS(1407)*X(284)-JVS(1408)*X(338)-JVS(1409)*X(343)-JVS(1410)*X(348)-JVS(1411)*X(356))/(JVS(1406)) IF (DO_SLV(211)) & - X(211) = (X(211)-JVS(1405)*X(281)-JVS(1406)*X(341)-JVS(1407)*X(345)-JVS(1408)*X(346)-JVS(1409)*X(351))/(JVS(1404)) + X(211) = (X(211)-JVS(1397)*X(245)-JVS(1398)*X(258)-JVS(1399)*X(259)-JVS(1400)*X(288)-JVS(1401)*X(289)-JVS(1402)*X(291)& + &-JVS(1403)*X(338)-JVS(1404)*X(341)-JVS(1405)*X(343))/(JVS(1396)) IF (DO_SLV(210)) & - X(210) = (X(210)-JVS(1395)*X(223)-JVS(1396)*X(226)-JVS(1397)*X(271)-JVS(1398)*X(276)-JVS(1399)*X(303)-JVS(1400)*X(305)& - &-JVS(1401)*X(337)-JVS(1402)*X(345)-JVS(1403)*X(346))/(JVS(1394)) + X(210) = (X(210)-JVS(1390)*X(314)-JVS(1391)*X(338)-JVS(1392)*X(341)-JVS(1393)*X(343))/(JVS(1389)) IF (DO_SLV(209)) & - X(209) = (X(209)-JVS(1390)*X(305)-JVS(1391)*X(337)-JVS(1392)*X(345))/(JVS(1389)) + X(209) = (X(209)-JVS(1384)*X(271)-JVS(1385)*X(338)-JVS(1386)*X(341)-JVS(1387)*X(343))/(JVS(1383)) IF (DO_SLV(208)) & - X(208) = (X(208)-JVS(1380)*X(243)-JVS(1381)*X(254)-JVS(1382)*X(258)-JVS(1383)*X(285)-JVS(1384)*X(286)-JVS(1385)*X(288)& - &-JVS(1386)*X(337)-JVS(1387)*X(345)-JVS(1388)*X(346))/(JVS(1379)) + X(208) = (X(208)-JVS(1379)*X(270)-JVS(1380)*X(338)-JVS(1381)*X(341)-JVS(1382)*X(343))/(JVS(1378)) IF (DO_SLV(207)) & - X(207) = (X(207)-JVS(1373)*X(267)-JVS(1374)*X(337)-JVS(1375)*X(345)-JVS(1376)*X(346))/(JVS(1372)) + X(207) = (X(207)-JVS(1372)*X(223)-JVS(1373)*X(338)-JVS(1374)*X(341)-JVS(1375)*X(343)-JVS(1376)*X(348)-JVS(1377)& + &*X(356))/(JVS(1371)) IF (DO_SLV(206)) & - X(206) = (X(206)-JVS(1368)*X(268)-JVS(1369)*X(337)-JVS(1370)*X(345)-JVS(1371)*X(346))/(JVS(1367)) + X(206) = (X(206)-JVS(1355)*X(223)-JVS(1356)*X(237)-JVS(1357)*X(238)-JVS(1358)*X(334)-JVS(1359)*X(338)-JVS(1360)*X(341)& + &-JVS(1361)*X(343)-JVS(1362)*X(345)-JVS(1363)*X(348)-JVS(1364)*X(356))/(JVS(1354)) IF (DO_SLV(205)) & - X(205) = (X(205)-JVS(1363)*X(305)-JVS(1364)*X(337)-JVS(1365)*X(345)-JVS(1366)*X(346))/(JVS(1362)) + X(205) = (X(205)-JVS(1345)*X(223)-JVS(1346)*X(343)-JVS(1347)*X(348)-JVS(1348)*X(356))/(JVS(1344)) IF (DO_SLV(204)) & - X(204) = (X(204)-JVS(1355)*X(220)-JVS(1356)*X(337)-JVS(1357)*X(341)-JVS(1358)*X(345)-JVS(1359)*X(346)-JVS(1360)& - &*X(351))/(JVS(1354)) + X(204) = (X(204)-JVS(1338)*X(343)-JVS(1339)*X(348)-JVS(1340)*X(356))/(JVS(1337)) IF (DO_SLV(203)) & - X(203) = (X(203)-JVS(1338)*X(220)-JVS(1339)*X(235)-JVS(1340)*X(236)-JVS(1341)*X(328)-JVS(1342)*X(335)-JVS(1343)*X(337)& - &-JVS(1344)*X(341)-JVS(1345)*X(345)-JVS(1346)*X(346)-JVS(1347)*X(351))/(JVS(1337)) + X(203) = (X(203)-JVS(1330)*X(343)-JVS(1331)*X(348))/(JVS(1329)) IF (DO_SLV(202)) & - X(202) = (X(202)-JVS(1328)*X(220)-JVS(1329)*X(341)-JVS(1330)*X(345)-JVS(1331)*X(351))/(JVS(1327)) + X(202) = (X(202)-JVS(1326)*X(315)-JVS(1327)*X(341)-JVS(1328)*X(343))/(JVS(1325)) IF (DO_SLV(201)) & - X(201) = (X(201)-JVS(1321)*X(341)-JVS(1322)*X(345)-JVS(1323)*X(351))/(JVS(1320)) + X(201) = (X(201)-JVS(1320)*X(229)-JVS(1321)*X(338)-JVS(1322)*X(341)-JVS(1323)*X(343)-JVS(1324)*X(345))/(JVS(1319)) IF (DO_SLV(200)) & - X(200) = (X(200)-JVS(1313)*X(345)-JVS(1314)*X(351))/(JVS(1312)) + X(200) = (X(200)-JVS(1314)*X(338)-JVS(1315)*X(341)-JVS(1316)*X(343)-JVS(1317)*X(348))/(JVS(1313)) IF (DO_SLV(199)) & - X(199) = (X(199)-JVS(1309)*X(304)-JVS(1310)*X(337)-JVS(1311)*X(345))/(JVS(1308)) + X(199) = (X(199)-JVS(1307)*X(223)-JVS(1308)*X(343)-JVS(1309)*X(348)-JVS(1310)*X(356))/(JVS(1306)) IF (DO_SLV(198)) & - X(198) = (X(198)-JVS(1303)*X(223)-JVS(1304)*X(224)-JVS(1305)*X(232)-JVS(1306)*X(337)-JVS(1307)*X(345))/(JVS(1302)) + X(198) = (X(198)-JVS(1300)*X(226)-JVS(1301)*X(228)-JVS(1302)*X(235)-JVS(1303)*X(341)-JVS(1304)*X(343))/(JVS(1299)) IF (DO_SLV(197)) & - X(197) = (X(197)-JVS(1296)*X(233)-JVS(1297)*X(335)-JVS(1298)*X(337)-JVS(1299)*X(345)-JVS(1300)*X(346))/(JVS(1295)) + X(197) = (X(197)-JVS(1293)*X(231)-JVS(1294)*X(233)-JVS(1295)*X(305)-JVS(1296)*X(307)-JVS(1297)*X(343))/(JVS(1292)) IF (DO_SLV(196)) & - X(196) = (X(196)-JVS(1290)*X(337)-JVS(1291)*X(345)-JVS(1292)*X(346)-JVS(1293)*X(351))/(JVS(1289)) + X(196) = (X(196)-JVS(1287)*X(294)-JVS(1288)*X(338)-JVS(1289)*X(343)-JVS(1290)*X(348)-JVS(1291)*X(356))/(JVS(1286)) IF (DO_SLV(195)) & - X(195) = (X(195)-JVS(1283)*X(220)-JVS(1284)*X(341)-JVS(1285)*X(345)-JVS(1286)*X(351))/(JVS(1282)) + X(195) = (X(195)-JVS(1283)*X(315)-JVS(1284)*X(341)-JVS(1285)*X(343))/(JVS(1282)) IF (DO_SLV(194)) & - X(194) = (X(194)-JVS(1276)*X(230)-JVS(1277)*X(231)-JVS(1278)*X(301)-JVS(1279)*X(303)-JVS(1280)*X(345))/(JVS(1275)) + X(194) = (X(194)-JVS(1279)*X(343)-JVS(1280)*X(348)-JVS(1281)*X(356))/(JVS(1278)) IF (DO_SLV(193)) & - X(193) = (X(193)-JVS(1270)*X(291)-JVS(1271)*X(341)-JVS(1272)*X(345)-JVS(1273)*X(346)-JVS(1274)*X(351))/(JVS(1269)) + X(193) = (X(193)-JVS(1272)*X(203)-JVS(1273)*X(223)-JVS(1274)*X(338)-JVS(1275)*X(341)-JVS(1276)*X(343)-JVS(1277)& + &*X(348))/(JVS(1271)) IF (DO_SLV(192)) & - X(192) = (X(192)-JVS(1266)*X(304)-JVS(1267)*X(337)-JVS(1268)*X(345))/(JVS(1265)) + X(192) = (X(192)-JVS(1258)*X(252)-JVS(1259)*X(253)-JVS(1260)*X(264)-JVS(1261)*X(292)-JVS(1262)*X(304)-JVS(1263)*X(322)& + &-JVS(1264)*X(323)-JVS(1265)*X(324)-JVS(1266)*X(326)-JVS(1267)*X(327)-JVS(1268)*X(334)-JVS(1269)*X(343))& + &/(JVS(1257)) IF (DO_SLV(191)) & - X(191) = (X(191)-JVS(1262)*X(341)-JVS(1263)*X(345)-JVS(1264)*X(351))/(JVS(1261)) + X(191) = (X(191)-JVS(1254)*X(314)-JVS(1255)*X(341)-JVS(1256)*X(343))/(JVS(1253)) IF (DO_SLV(190)) & - X(190) = (X(190)-JVS(1257)*X(304)-JVS(1258)*X(337)-JVS(1259)*X(345)-JVS(1260)*X(346))/(JVS(1256)) + X(190) = (X(190)-JVS(1247)*X(231)-JVS(1248)*X(233)-JVS(1249)*X(288)-JVS(1250)*X(289)-JVS(1251)*X(305)-JVS(1252)& + &*X(343))/(JVS(1246)) IF (DO_SLV(189)) & - X(189) = (X(189)-JVS(1249)*X(200)-JVS(1250)*X(220)-JVS(1251)*X(337)-JVS(1252)*X(345)-JVS(1253)*X(346)-JVS(1254)& - &*X(351))/(JVS(1248)) + X(189) = (X(189)-JVS(1240)*X(262)-JVS(1241)*X(312)-JVS(1242)*X(343)-JVS(1243)*X(345))/(JVS(1239)) IF (DO_SLV(188)) & - X(188) = (X(188)-JVS(1235)*X(249)-JVS(1236)*X(250)-JVS(1237)*X(260)-JVS(1238)*X(289)-JVS(1239)*X(300)-JVS(1240)*X(318)& - &-JVS(1241)*X(319)-JVS(1242)*X(320)-JVS(1243)*X(321)-JVS(1244)*X(323)-JVS(1245)*X(328)-JVS(1246)*X(345))& - &/(JVS(1234)) + X(188) = (X(188)-JVS(1236)*X(310)-JVS(1237)*X(341)-JVS(1238)*X(343))/(JVS(1235)) IF (DO_SLV(187)) & - X(187) = (X(187)-JVS(1231)*X(305)-JVS(1232)*X(337)-JVS(1233)*X(345))/(JVS(1230)) + X(187) = (X(187)-JVS(1231)*X(342)-JVS(1232)*X(343)-JVS(1233)*X(348)-JVS(1234)*X(352))/(JVS(1230)) IF (DO_SLV(186)) & - X(186) = (X(186)-JVS(1227)*X(311)-JVS(1228)*X(337)-JVS(1229)*X(345))/(JVS(1226)) + X(186) = (X(186)-JVS(1226)*X(315)-JVS(1227)*X(338)-JVS(1228)*X(341)-JVS(1229)*X(343))/(JVS(1225)) IF (DO_SLV(185)) & - X(185) = (X(185)-JVS(1220)*X(230)-JVS(1221)*X(231)-JVS(1222)*X(285)-JVS(1223)*X(286)-JVS(1224)*X(301)-JVS(1225)& - &*X(345))/(JVS(1219)) + X(185) = (X(185)-JVS(1219)*X(305)-JVS(1220)*X(307)-JVS(1221)*X(338)-JVS(1222)*X(341)-JVS(1223)*X(343))/(JVS(1218)) IF (DO_SLV(184)) & - X(184) = (X(184)-JVS(1213)*X(259)-JVS(1214)*X(308)-JVS(1215)*X(335)-JVS(1216)*X(345))/(JVS(1212)) + X(184) = (X(184)-JVS(1215)*X(337)-JVS(1216)*X(343)-JVS(1217)*X(352))/(JVS(1214)) IF (DO_SLV(183)) & - X(183) = (X(183)-JVS(1208)*X(340)-JVS(1209)*X(342)-JVS(1210)*X(345)-JVS(1211)*X(351))/(JVS(1207)) + X(183) = (X(183)-JVS(1210)*X(333)-JVS(1211)*X(340)-JVS(1212)*X(355)-JVS(1213)*X(356))/(JVS(1209)) IF (DO_SLV(182)) & - X(182) = (X(182)-JVS(1202)*X(301)-JVS(1203)*X(303)-JVS(1204)*X(337)-JVS(1205)*X(345)-JVS(1206)*X(346))/(JVS(1201)) + X(182) = (X(182)-JVS(1205)*X(338)-JVS(1206)*X(341)-JVS(1207)*X(343)-JVS(1208)*X(348))/(JVS(1204)) IF (DO_SLV(181)) & - X(181) = (X(181)-JVS(1198)*X(334)-JVS(1199)*X(340)-JVS(1200)*X(345))/(JVS(1197)) + X(181) = (X(181)-JVS(1198)*X(303)-JVS(1199)*X(338)-JVS(1200)*X(341)-JVS(1201)*X(343))/(JVS(1197)) IF (DO_SLV(180)) & - X(180) = (X(180)-JVS(1193)*X(299)-JVS(1194)*X(337)-JVS(1195)*X(345)-JVS(1196)*X(346))/(JVS(1192)) + X(180) = (X(180)-JVS(1189)*X(212)-JVS(1190)*X(241)-JVS(1191)*X(256)-JVS(1192)*X(278)-JVS(1193)*X(338)-JVS(1194)*X(343)& + &-JVS(1195)*X(348)-JVS(1196)*X(356))/(JVS(1188)) IF (DO_SLV(179)) & - X(179) = (X(179)-JVS(1188)*X(327)-JVS(1189)*X(339)-JVS(1190)*X(341)-JVS(1191)*X(348))/(JVS(1187)) + X(179) = (X(179)-JVS(1184)*X(281)-JVS(1185)*X(282)-JVS(1186)*X(338)-JVS(1187)*X(343))/(JVS(1183)) IF (DO_SLV(178)) & - X(178) = (X(178)-JVS(1183)*X(337)-JVS(1184)*X(345)-JVS(1185)*X(346)-JVS(1186)*X(351))/(JVS(1182)) + X(178) = (X(178)-JVS(1177)*X(226)-JVS(1178)*X(228)-JVS(1179)*X(235)-JVS(1180)*X(341)-JVS(1181)*X(343))/(JVS(1176)) IF (DO_SLV(177)) & - X(177) = (X(177)-JVS(1172)*X(211)-JVS(1173)*X(237)-JVS(1174)*X(255)-JVS(1175)*X(272)-JVS(1176)*X(341)-JVS(1177)*X(345)& - &-JVS(1178)*X(346)-JVS(1179)*X(351))/(JVS(1171)) + X(177) = (X(177)-JVS(1173)*X(315)-JVS(1174)*X(338)-JVS(1175)*X(343))/(JVS(1172)) IF (DO_SLV(176)) & - X(176) = (X(176)-JVS(1167)*X(277)-JVS(1168)*X(278)-JVS(1169)*X(345)-JVS(1170)*X(346))/(JVS(1166)) + X(176) = (X(176)-JVS(1162)*X(203)-JVS(1163)*X(204)-JVS(1164)*X(224)-JVS(1165)*X(243)-JVS(1166)*X(250)-JVS(1167)*X(292)& + &-JVS(1168)*X(325)-JVS(1169)*X(328)-JVS(1170)*X(341)-JVS(1171)*X(343))/(JVS(1161)) IF (DO_SLV(175)) & - X(175) = (X(175)-JVS(1162)*X(305)-JVS(1163)*X(345)-JVS(1164)*X(346))/(JVS(1161)) + X(175) = (X(175)-JVS(1157)*X(314)-JVS(1158)*X(338)-JVS(1159)*X(343))/(JVS(1156)) IF (DO_SLV(174)) & - X(174) = (X(174)-JVS(1156)*X(223)-JVS(1157)*X(224)-JVS(1158)*X(232)-JVS(1159)*X(337)-JVS(1160)*X(345))/(JVS(1155)) + X(174) = (X(174)-JVS(1151)*X(231)-JVS(1152)*X(305)-JVS(1153)*X(338)-JVS(1154)*X(341)-JVS(1155)*X(345))/(JVS(1150)) IF (DO_SLV(173)) & - X(173) = (X(173)-JVS(1145)*X(200)-JVS(1146)*X(201)-JVS(1147)*X(221)-JVS(1148)*X(240)-JVS(1149)*X(246)-JVS(1150)*X(289)& - &-JVS(1151)*X(322)-JVS(1152)*X(324)-JVS(1153)*X(337)-JVS(1154)*X(345))/(JVS(1144)) + X(173) = (X(173)-JVS(1145)*X(233)-JVS(1146)*X(305)-JVS(1147)*X(338)-JVS(1148)*X(341)-JVS(1149)*X(345))/(JVS(1144)) IF (DO_SLV(172)) & - X(172) = (X(172)-JVS(1138)*X(231)-JVS(1139)*X(301)-JVS(1140)*X(335)-JVS(1141)*X(337)-JVS(1142)*X(346))/(JVS(1137)) + X(172) = (X(172)-JVS(1138)*X(254)-JVS(1139)*X(296)-JVS(1140)*X(331)-JVS(1141)*X(338)-JVS(1142)*X(343)-JVS(1143)& + &*X(348))/(JVS(1137)) IF (DO_SLV(171)) & - X(171) = (X(171)-JVS(1132)*X(230)-JVS(1133)*X(301)-JVS(1134)*X(335)-JVS(1135)*X(337)-JVS(1136)*X(346))/(JVS(1131)) + X(171) = (X(171)-JVS(1131)*X(277)-JVS(1132)*X(278)-JVS(1133)*X(334)-JVS(1134)*X(341)-JVS(1135)*X(343))/(JVS(1130)) IF (DO_SLV(170)) & - X(170) = (X(170)-JVS(1125)*X(252)-JVS(1126)*X(331)-JVS(1127)*X(332)-JVS(1128)*X(345)-JVS(1129)*X(346)-JVS(1130)& - &*X(351))/(JVS(1124)) + X(170) = (X(170)-JVS(1127)*X(343)-JVS(1128)*X(348)-JVS(1129)*X(356))/(JVS(1126)) IF (DO_SLV(169)) & - X(169) = (X(169)-JVS(1118)*X(272)-JVS(1119)*X(274)-JVS(1120)*X(328)-JVS(1121)*X(337)-JVS(1122)*X(345))/(JVS(1117)) + X(169) = (X(169)-JVS(1122)*X(333)-JVS(1123)*X(340)-JVS(1124)*X(355)-JVS(1125)*X(356))/(JVS(1121)) IF (DO_SLV(168)) & - X(168) = (X(168)-JVS(1114)*X(304)-JVS(1115)*X(345)-JVS(1116)*X(346))/(JVS(1113)) + X(168) = (X(168)-JVS(1117)*X(200)-JVS(1118)*X(338)-JVS(1119)*X(341)-JVS(1120)*X(343))/(JVS(1116)) IF (DO_SLV(167)) & - X(167) = (X(167)-JVS(1110)*X(341)-JVS(1111)*X(345)-JVS(1112)*X(351))/(JVS(1109)) + X(167) = (X(167)-JVS(1112)*X(334)-JVS(1113)*X(341)-JVS(1114)*X(343)-JVS(1115)*X(352))/(JVS(1111)) IF (DO_SLV(166)) & - X(166) = (X(166)-JVS(1105)*X(327)-JVS(1106)*X(339)-JVS(1107)*X(341)-JVS(1108)*X(348))/(JVS(1104)) + X(166) = (X(166)-JVS(1104)*X(256)-JVS(1105)*X(278)-JVS(1106)*X(334)-JVS(1107)*X(338)-JVS(1108)*X(343)-JVS(1109)*X(348)& + &-JVS(1110)*X(356))/(JVS(1103)) IF (DO_SLV(165)) & - X(165) = (X(165)-JVS(1100)*X(196)-JVS(1101)*X(337)-JVS(1102)*X(345)-JVS(1103)*X(346))/(JVS(1099)) + X(165) = (X(165)-JVS(1099)*X(275)-JVS(1100)*X(276)-JVS(1101)*X(338)-JVS(1102)*X(343))/(JVS(1098)) IF (DO_SLV(164)) & - X(164) = (X(164)-JVS(1095)*X(328)-JVS(1096)*X(337)-JVS(1097)*X(340)-JVS(1098)*X(345))/(JVS(1094)) + X(164) = (X(164)-JVS(1093)*X(275)-JVS(1094)*X(334)-JVS(1095)*X(341)-JVS(1096)*X(343))/(JVS(1092)) IF (DO_SLV(163)) & - X(163) = (X(163)-JVS(1087)*X(255)-JVS(1088)*X(272)-JVS(1089)*X(328)-JVS(1090)*X(341)-JVS(1091)*X(345)-JVS(1092)*X(346)& - &-JVS(1093)*X(351))/(JVS(1086)) + X(163) = (X(163)-JVS(1088)*X(282)-JVS(1089)*X(334)-JVS(1090)*X(341)-JVS(1091)*X(343))/(JVS(1087)) IF (DO_SLV(162)) & - X(162) = (X(162)-JVS(1082)*X(273)-JVS(1083)*X(275)-JVS(1084)*X(345)-JVS(1085)*X(346))/(JVS(1081)) + X(162) = (X(162)-JVS(1084)*X(203)-JVS(1085)*X(343)-JVS(1086)*X(348))/(JVS(1083)) IF (DO_SLV(161)) & - X(161) = (X(161)-JVS(1076)*X(273)-JVS(1077)*X(328)-JVS(1078)*X(337)-JVS(1079)*X(345))/(JVS(1075)) + X(161) = (X(161)-JVS(1077)*X(262)-JVS(1078)*X(341)-JVS(1079)*X(343))/(JVS(1076)) IF (DO_SLV(160)) & - X(160) = (X(160)-JVS(1071)*X(278)-JVS(1072)*X(328)-JVS(1073)*X(337)-JVS(1074)*X(345))/(JVS(1070)) + X(160) = (X(160)-JVS(1063)*X(221)-JVS(1064)*X(301)-JVS(1065)*X(320)-JVS(1066)*X(321)-JVS(1067)*X(332)-JVS(1068)*X(339)& + &-JVS(1069)*X(340)-JVS(1070)*X(344)-JVS(1071)*X(346)-JVS(1072)*X(347)-JVS(1073)*X(349)-JVS(1074)*X(350)& + &-JVS(1075)*X(354))/(JVS(1062)) IF (DO_SLV(159)) & - X(159) = (X(159)-JVS(1067)*X(259)-JVS(1068)*X(337)-JVS(1069)*X(345))/(JVS(1066)) + X(159) = (X(159)-JVS(1057)*X(175)-JVS(1058)*X(177)-JVS(1059)*X(191)-JVS(1060)*X(195)-JVS(1061)*X(343))/(JVS(1056)) IF (DO_SLV(158)) & - X(158) = (X(158)-JVS(1063)*X(200)-JVS(1064)*X(345)-JVS(1065)*X(351))/(JVS(1062)) + X(158) = (X(158)-JVS(1051)*X(243)-JVS(1052)*X(250)-JVS(1053)*X(325)-JVS(1054)*X(341)-JVS(1055)*X(343))/(JVS(1050)) IF (DO_SLV(157)) & - X(157) = (X(157)-JVS(1046)*X(218)-JVS(1047)*X(297)-JVS(1048)*X(316)-JVS(1049)*X(317)-JVS(1050)*X(333)-JVS(1051)*X(338)& - &-JVS(1052)*X(339)-JVS(1053)*X(344)-JVS(1054)*X(347)-JVS(1055)*X(349)-JVS(1056)*X(350)-JVS(1057)*X(352)& - &-JVS(1058)*X(353))/(JVS(1045)) + X(157) = (X(157)-JVS(1045)*X(175)-JVS(1046)*X(177)-JVS(1047)*X(191)-JVS(1048)*X(195)-JVS(1049)*X(343))/(JVS(1044)) IF (DO_SLV(156)) & - X(156) = (X(156)-JVS(1040)*X(296)-JVS(1041)*X(315)-JVS(1042)*X(328)-JVS(1043)*X(340)-JVS(1044)*X(345))/(JVS(1039)) + X(156) = (X(156)-JVS(1039)*X(246)-JVS(1040)*X(260)-JVS(1041)*X(343)-JVS(1042)*X(348)-JVS(1043)*X(356))/(JVS(1038)) IF (DO_SLV(155)) & - X(155) = (X(155)-JVS(1034)*X(240)-JVS(1035)*X(246)-JVS(1036)*X(322)-JVS(1037)*X(337)-JVS(1038)*X(345))/(JVS(1033)) + X(155) = (X(155)-JVS(1033)*X(259)-JVS(1034)*X(288)-JVS(1035)*X(338)-JVS(1036)*X(341)-JVS(1037)*X(343))/(JVS(1032)) IF (DO_SLV(154)) & - X(154) = (X(154)-JVS(1028)*X(242)-JVS(1029)*X(256)-JVS(1030)*X(341)-JVS(1031)*X(345)-JVS(1032)*X(351))/(JVS(1027)) + X(154) = (X(154)-JVS(1027)*X(300)-JVS(1028)*X(319)-JVS(1029)*X(334)-JVS(1030)*X(343)-JVS(1031)*X(352))/(JVS(1026)) IF (DO_SLV(153)) & - X(153) = (X(153)-JVS(1022)*X(258)-JVS(1023)*X(285)-JVS(1024)*X(337)-JVS(1025)*X(345)-JVS(1026)*X(346))/(JVS(1021)) + X(153) = (X(153)-JVS(1018)*X(221)-JVS(1019)*X(320)-JVS(1020)*X(342)-JVS(1021)*X(343)-JVS(1022)*X(347)-JVS(1023)*X(349)& + &-JVS(1024)*X(350)-JVS(1025)*X(354))/(JVS(1017)) IF (DO_SLV(152)) & - X(152) = (X(152)-JVS(1016)*X(168)-JVS(1017)*X(175)-JVS(1018)*X(187)-JVS(1019)*X(192)-JVS(1020)*X(345))/(JVS(1015)) + X(152) = (X(152)-JVS(1013)*X(203)-JVS(1014)*X(338)-JVS(1015)*X(341)-JVS(1016)*X(343))/(JVS(1012)) IF (DO_SLV(151)) & - X(151) = (X(151)-JVS(1010)*X(168)-JVS(1011)*X(175)-JVS(1012)*X(187)-JVS(1013)*X(192)-JVS(1014)*X(345))/(JVS(1009)) + X(151) = (X(151)-JVS(1007)*X(202)-JVS(1008)*X(279)-JVS(1009)*X(315)-JVS(1010)*X(343))/(JVS(1006)) IF (DO_SLV(150)) & - X(150) = (X(150)-JVS(1005)*X(209)-JVS(1006)*X(276)-JVS(1007)*X(305)-JVS(1008)*X(345))/(JVS(1004)) + X(150) = (X(150)-JVS(1002)*X(213)-JVS(1003)*X(279)-JVS(1004)*X(314)-JVS(1005)*X(343))/(JVS(1001)) IF (DO_SLV(149)) & - X(149) = (X(149)-JVS(1002)*X(345)-JVS(1003)*X(351))/(JVS(1001)) + X(149) = (X(149)-JVS(998)*X(288)-JVS(999)*X(289)-JVS(1000)*X(343))/(JVS(997)) IF (DO_SLV(148)) & - X(148) = (X(148)-JVS(993)*X(218)-JVS(994)*X(316)-JVS(995)*X(342)-JVS(996)*X(345)-JVS(997)*X(347)-JVS(998)*X(349)& - &-JVS(999)*X(350)-JVS(1000)*X(352))/(JVS(992)) + X(148) = (X(148)-JVS(995)*X(343)-JVS(996)*X(348))/(JVS(994)) IF (DO_SLV(147)) & - X(147) = (X(147)-JVS(989)*X(285)-JVS(990)*X(286)-JVS(991)*X(345))/(JVS(988)) + X(147) = (X(147)-JVS(986)*X(188)-JVS(987)*X(303)-JVS(988)*X(308)-JVS(989)*X(310)-JVS(990)*X(328)-JVS(991)*X(334)& + &-JVS(992)*X(338)-JVS(993)*X(348))/(JVS(985)) IF (DO_SLV(146)) & - X(146) = (X(146)-JVS(984)*X(200)-JVS(985)*X(337)-JVS(986)*X(345)-JVS(987)*X(346))/(JVS(983)) + X(146) = (X(146)-JVS(974)*X(183)-JVS(975)*X(244)-JVS(976)*X(267)-JVS(977)*X(317)-JVS(978)*X(320)-JVS(979)*X(329)& + &-JVS(980)*X(332)-JVS(981)*X(343)-JVS(982)*X(345)-JVS(983)*X(355)-JVS(984)*X(356))/(JVS(973)) IF (DO_SLV(145)) & - X(145) = (X(145)-JVS(974)*X(186)-JVS(975)*X(299)-JVS(976)*X(310)-JVS(977)*X(311)-JVS(978)*X(324)-JVS(979)*X(328)& - &-JVS(980)*X(346)-JVS(981)*X(351))/(JVS(973)) + X(145) = (X(145)-JVS(969)*X(223)-JVS(970)*X(343)-JVS(971)*X(356))/(JVS(968)) IF (DO_SLV(144)) & - X(144) = (X(144)-JVS(969)*X(199)-JVS(970)*X(276)-JVS(971)*X(304)-JVS(972)*X(345))/(JVS(968)) + X(144) = (X(144)-JVS(965)*X(343)-JVS(966)*X(348)-JVS(967)*X(352))/(JVS(964)) IF (DO_SLV(143)) & - X(143) = (X(143)-JVS(965)*X(220)-JVS(966)*X(341)-JVS(967)*X(345))/(JVS(964)) + X(143) = (X(143)-JVS(961)*X(328)-JVS(962)*X(343)-JVS(963)*X(345))/(JVS(960)) IF (DO_SLV(142)) & - X(142) = (X(142)-JVS(961)*X(340)-JVS(962)*X(345)-JVS(963)*X(351))/(JVS(960)) + X(142) = (X(142)-JVS(957)*X(342)-JVS(958)*X(343)-JVS(959)*X(352))/(JVS(956)) IF (DO_SLV(141)) & - X(141) = (X(141)-JVS(957)*X(340)-JVS(958)*X(342)-JVS(959)*X(345))/(JVS(956)) + X(141) = (X(141)-JVS(953)*X(276)-JVS(954)*X(338)-JVS(955)*X(343))/(JVS(952)) IF (DO_SLV(140)) & - X(140) = (X(140)-JVS(953)*X(341)-JVS(954)*X(345)-JVS(955)*X(351))/(JVS(952)) + X(140) = (X(140)-JVS(949)*X(343)-JVS(950)*X(348)-JVS(951)*X(356))/(JVS(948)) IF (DO_SLV(139)) & - X(139) = (X(139)-JVS(949)*X(324)-JVS(950)*X(335)-JVS(951)*X(345))/(JVS(948)) + X(139) = (X(139)-JVS(945)*X(281)-JVS(946)*X(338)-JVS(947)*X(343))/(JVS(944)) IF (DO_SLV(138)) & - X(138) = (X(138)-JVS(945)*X(275)-JVS(946)*X(345)-JVS(947)*X(346))/(JVS(944)) + X(138) = (X(138)-JVS(940)*X(239)-JVS(941)*X(334)-JVS(942)*X(341)-JVS(943)*X(343))/(JVS(939)) IF (DO_SLV(137)) & - X(137) = (X(137)-JVS(941)*X(277)-JVS(942)*X(345)-JVS(943)*X(346))/(JVS(940)) + X(137) = (X(137)-JVS(935)*X(233)-JVS(936)*X(338)-JVS(937)*X(341)-JVS(938)*X(343))/(JVS(934)) IF (DO_SLV(136)) & - X(136) = (X(136)-JVS(936)*X(234)-JVS(937)*X(328)-JVS(938)*X(337)-JVS(939)*X(345))/(JVS(935)) + X(136) = (X(136)-JVS(930)*X(231)-JVS(931)*X(338)-JVS(932)*X(341)-JVS(933)*X(343))/(JVS(929)) IF (DO_SLV(135)) & - X(135) = (X(135)-JVS(931)*X(231)-JVS(932)*X(337)-JVS(933)*X(345)-JVS(934)*X(346))/(JVS(930)) + X(135) = (X(135)-JVS(924)*X(259)-JVS(925)*X(289)-JVS(926)*X(338)-JVS(927)*X(341)-JVS(928)*X(343))/(JVS(923)) IF (DO_SLV(134)) & - X(134) = (X(134)-JVS(920)*X(179)-JVS(921)*X(241)-JVS(922)*X(264)-JVS(923)*X(312)-JVS(924)*X(316)-JVS(925)*X(325)& - &-JVS(926)*X(333)-JVS(927)*X(341)-JVS(928)*X(345)-JVS(929)*X(348))/(JVS(919)) + X(134) = (X(134)-JVS(919)*X(277)-JVS(920)*X(334)-JVS(921)*X(341)-JVS(922)*X(343))/(JVS(918)) IF (DO_SLV(133)) & - X(133) = (X(133)-JVS(914)*X(230)-JVS(915)*X(337)-JVS(916)*X(345)-JVS(917)*X(346))/(JVS(913)) + X(133) = (X(133)-JVS(914)*X(229)-JVS(915)*X(338)-JVS(916)*X(341)-JVS(917)*X(343))/(JVS(913)) IF (DO_SLV(132)) & - X(132) = (X(132)-JVS(909)*X(233)-JVS(910)*X(337)-JVS(911)*X(345)-JVS(912)*X(346))/(JVS(908)) + X(132) = (X(132)-JVS(903)*X(141)-JVS(904)*X(194)-JVS(905)*X(276)-JVS(906)*X(328)-JVS(907)*X(334)-JVS(908)*X(338)& + &-JVS(909)*X(341)-JVS(910)*X(343)-JVS(911)*X(348)-JVS(912)*X(356))/(JVS(902)) IF (DO_SLV(131)) & - X(131) = (X(131)-JVS(903)*X(258)-JVS(904)*X(286)-JVS(905)*X(337)-JVS(906)*X(345)-JVS(907)*X(346))/(JVS(902)) + X(131) = (X(131)-JVS(896)*X(202)-JVS(897)*X(213)-JVS(898)*X(270)-JVS(899)*X(271)-JVS(900)*X(343))/(JVS(895)) IF (DO_SLV(130)) & - X(130) = (X(130)-JVS(898)*X(274)-JVS(899)*X(328)-JVS(900)*X(337)-JVS(901)*X(345))/(JVS(897)) + X(130) = (X(130)-JVS(892)*X(215)-JVS(893)*X(338)-JVS(894)*X(343))/(JVS(891)) IF (DO_SLV(129)) & - X(129) = (X(129)-JVS(887)*X(138)-JVS(888)*X(191)-JVS(889)*X(275)-JVS(890)*X(324)-JVS(891)*X(328)-JVS(892)*X(337)& - &-JVS(893)*X(341)-JVS(894)*X(345)-JVS(895)*X(346)-JVS(896)*X(351))/(JVS(886)) + X(129) = (X(129)-JVS(888)*X(201)-JVS(889)*X(343)-JVS(890)*X(345))/(JVS(887)) IF (DO_SLV(128)) & - X(128) = (X(128)-JVS(880)*X(199)-JVS(881)*X(209)-JVS(882)*X(267)-JVS(883)*X(268)-JVS(884)*X(345))/(JVS(879)) + X(128) = (X(128)-JVS(884)*X(253)-JVS(885)*X(341)-JVS(886)*X(343))/(JVS(883)) IF (DO_SLV(127)) & - X(127) = (X(127)-JVS(876)*X(212)-JVS(877)*X(345)-JVS(878)*X(346))/(JVS(875)) + X(127) = (X(127)-JVS(880)*X(325)-JVS(881)*X(343)-JVS(882)*X(345))/(JVS(879)) IF (DO_SLV(126)) & - X(126) = (X(126)-JVS(872)*X(197)-JVS(873)*X(335)-JVS(874)*X(345))/(JVS(871)) + X(126) = (X(126)-JVS(876)*X(264)-JVS(877)*X(341)-JVS(878)*X(343))/(JVS(875)) IF (DO_SLV(125)) & - X(125) = (X(125)-JVS(868)*X(250)-JVS(869)*X(337)-JVS(870)*X(345))/(JVS(867)) + X(125) = (X(125)-JVS(872)*X(243)-JVS(873)*X(343)-JVS(874)*X(345))/(JVS(871)) IF (DO_SLV(124)) & - X(124) = (X(124)-JVS(864)*X(322)-JVS(865)*X(335)-JVS(866)*X(345))/(JVS(863)) + X(124) = (X(124)-JVS(867)*X(203)-JVS(868)*X(338)-JVS(869)*X(341)-JVS(870)*X(343))/(JVS(866)) IF (DO_SLV(123)) & - X(123) = (X(123)-JVS(860)*X(260)-JVS(861)*X(337)-JVS(862)*X(345))/(JVS(859)) + X(123) = (X(123)-JVS(861)*X(336)-JVS(862)*X(343)-JVS(863)*X(344)-JVS(864)*X(347))/(JVS(860)) IF (DO_SLV(122)) & - X(122) = (X(122)-JVS(856)*X(240)-JVS(857)*X(335)-JVS(858)*X(345))/(JVS(855)) + X(122) = (X(122)-JVS(856)*X(231)-JVS(857)*X(233)-JVS(858)*X(305)-JVS(859)*X(343))/(JVS(855)) IF (DO_SLV(121)) & - X(121) = (X(121)-JVS(851)*X(200)-JVS(852)*X(337)-JVS(853)*X(345)-JVS(854)*X(346))/(JVS(850)) + X(121) = (X(121)-JVS(851)*X(300)-JVS(852)*X(319)-JVS(853)*X(341)-JVS(854)*X(343))/(JVS(850)) IF (DO_SLV(120)) & - X(120) = (X(120)-JVS(845)*X(284)-JVS(846)*X(338)-JVS(847)*X(345)-JVS(848)*X(347))/(JVS(844)) + X(120) = (X(120)-JVS(847)*X(229)-JVS(848)*X(343)-JVS(849)*X(356))/(JVS(846)) IF (DO_SLV(119)) & - X(119) = (X(119)-JVS(840)*X(230)-JVS(841)*X(231)-JVS(842)*X(301)-JVS(843)*X(345))/(JVS(839)) + X(119) = (X(119)-JVS(841)*X(334)-JVS(842)*X(343)-JVS(843)*X(344)-JVS(844)*X(347)-JVS(845)*X(352))/(JVS(840)) IF (DO_SLV(118)) & - X(118) = (X(118)-JVS(835)*X(296)-JVS(836)*X(315)-JVS(837)*X(337)-JVS(838)*X(345))/(JVS(834)) + X(118) = (X(118)-JVS(834)*X(237)-JVS(835)*X(238)-JVS(836)*X(341)-JVS(837)*X(343)-JVS(838)*X(345))/(JVS(833)) IF (DO_SLV(117)) & - X(117) = (X(117)-JVS(829)*X(235)-JVS(830)*X(236)-JVS(831)*X(335)-JVS(832)*X(337)-JVS(833)*X(345))/(JVS(828)) + X(117) = (X(117)-JVS(829)*X(193)-JVS(830)*X(338)-JVS(831)*X(343))/(JVS(828)) IF (DO_SLV(116)) & - X(116) = (X(116)-JVS(824)*X(189)-JVS(825)*X(345)-JVS(826)*X(346))/(JVS(823)) + X(116) = (X(116)-JVS(823)*X(197)-JVS(824)*X(306)-JVS(825)*X(318)-JVS(826)*X(343)-JVS(827)*X(356))/(JVS(822)) IF (DO_SLV(115)) & - X(115) = (X(115)-JVS(818)*X(194)-JVS(819)*X(302)-JVS(820)*X(314)-JVS(821)*X(341)-JVS(822)*X(345))/(JVS(817)) + X(115) = (X(115)-JVS(819)*X(216)-JVS(820)*X(343)-JVS(821)*X(345))/(JVS(818)) IF (DO_SLV(114)) & - X(114) = (X(114)-JVS(814)*X(213)-JVS(815)*X(335)-JVS(816)*X(345))/(JVS(813)) + X(114) = (X(114)-JVS(813)*X(138)-JVS(814)*X(239)-JVS(815)*X(334)-JVS(816)*X(338)-JVS(817)*X(348))/(JVS(812)) IF (DO_SLV(113)) & - X(113) = (X(113)-JVS(810)*X(246)-JVS(811)*X(335)-JVS(812)*X(345))/(JVS(809)) + X(113) = (X(113)-JVS(809)*X(250)-JVS(810)*X(343)-JVS(811)*X(345))/(JVS(808)) IF (DO_SLV(112)) & - X(112) = (X(112)-JVS(806)*X(275)-JVS(807)*X(337)-JVS(808)*X(345))/(JVS(805)) + X(112) = (X(112)-JVS(805)*X(276)-JVS(806)*X(341)-JVS(807)*X(343))/(JVS(804)) IF (DO_SLV(111)) & - X(111) = (X(111)-JVS(802)*X(277)-JVS(803)*X(337)-JVS(804)*X(345))/(JVS(801)) + X(111) = (X(111)-JVS(801)*X(281)-JVS(802)*X(341)-JVS(803)*X(343))/(JVS(800)) IF (DO_SLV(110)) & - X(110) = (X(110)-JVS(796)*X(328)-JVS(797)*X(338)-JVS(798)*X(340)-JVS(799)*X(345)-JVS(800)*X(347))/(JVS(795)) + X(110) = (X(110)-JVS(797)*X(341)-JVS(798)*X(343)-JVS(799)*X(345))/(JVS(796)) IF (DO_SLV(109)) & - X(109) = (X(109)-JVS(791)*X(233)-JVS(792)*X(341)-JVS(793)*X(345))/(JVS(790)) + X(109) = (X(109)-JVS(793)*X(161)-JVS(794)*X(189)-JVS(795)*X(343))/(JVS(792)) IF (DO_SLV(108)) & - X(108) = (X(108)-JVS(787)*X(335)-JVS(788)*X(337)-JVS(789)*X(345))/(JVS(786)) + X(108) = (X(108)-JVS(790)*X(337)-JVS(791)*X(343))/(JVS(789)) IF (DO_SLV(107)) & - X(107) = (X(107)-JVS(783)*X(159)-JVS(784)*X(184)-JVS(785)*X(345))/(JVS(782)) + X(107) = (X(107)-JVS(782)*X(254)-JVS(783)*X(287)-JVS(784)*X(296)-JVS(785)*X(336)-JVS(786)*X(339)-JVS(787)*X(344)& + &-JVS(788)*X(346))/(JVS(781)) IF (DO_SLV(106)) & - X(106) = (X(106)-JVS(777)*X(136)-JVS(778)*X(234)-JVS(779)*X(328)-JVS(780)*X(346)-JVS(781)*X(351))/(JVS(776)) + X(106) = (X(106)-JVS(768)*X(175)-JVS(769)*X(177)-JVS(770)*X(188)-JVS(771)*X(220)-JVS(772)*X(225)-JVS(773)*X(251)& + &-JVS(774)*X(255)-JVS(775)*X(269)-JVS(776)*X(270)-JVS(777)*X(271)-JVS(778)*X(303)-JVS(779)*X(306)-JVS(780)& + &*X(307))/(JVS(767)) IF (DO_SLV(105)) & - X(105) = (X(105)-JVS(774)*X(334)-JVS(775)*X(345))/(JVS(773)) + X(105) = (X(105)-JVS(764)*X(237)-JVS(765)*X(343)-JVS(766)*X(345))/(JVS(763)) IF (DO_SLV(104)) & - X(104) = (X(104)-JVS(766)*X(252)-JVS(767)*X(284)-JVS(768)*X(330)-JVS(769)*X(332)-JVS(770)*X(338)-JVS(771)*X(344)& - &-JVS(772)*X(353))/(JVS(765)) + X(104) = (X(104)-JVS(760)*X(304)-JVS(761)*X(341)-JVS(762)*X(343))/(JVS(759)) IF (DO_SLV(103)) & - X(103) = (X(103)-JVS(752)*X(168)-JVS(753)*X(175)-JVS(754)*X(186)-JVS(755)*X(216)-JVS(756)*X(222)-JVS(757)*X(248)& - &-JVS(758)*X(251)-JVS(759)*X(266)-JVS(760)*X(267)-JVS(761)*X(268)-JVS(762)*X(299)-JVS(763)*X(302)-JVS(764)& - &*X(303))/(JVS(751)) + X(103) = (X(103)-JVS(758)*X(343))/(JVS(757)) IF (DO_SLV(102)) & - X(102) = (X(102)-JVS(748)*X(300)-JVS(749)*X(337)-JVS(750)*X(345))/(JVS(747)) + X(102) = (X(102)-JVS(754)*X(327)-JVS(755)*X(341)-JVS(756)*X(343))/(JVS(753)) IF (DO_SLV(101)) & - X(101) = (X(101)-JVS(746)*X(345))/(JVS(745)) + X(101) = (X(101)-JVS(750)*X(326)-JVS(751)*X(341)-JVS(752)*X(343))/(JVS(749)) IF (DO_SLV(100)) & - X(100) = (X(100)-JVS(742)*X(323)-JVS(743)*X(337)-JVS(744)*X(345))/(JVS(741)) + X(100) = (X(100)-JVS(746)*X(182)-JVS(747)*X(341)-JVS(748)*X(343))/(JVS(745)) IF (DO_SLV(99)) & - X(99) = (X(99)-JVS(738)*X(321)-JVS(739)*X(337)-JVS(740)*X(345))/(JVS(737)) + X(99) = (X(99)-JVS(742)*X(323)-JVS(743)*X(341)-JVS(744)*X(343))/(JVS(741)) IF (DO_SLV(98)) & - X(98) = (X(98)-JVS(734)*X(178)-JVS(735)*X(337)-JVS(736)*X(345))/(JVS(733)) + X(98) = (X(98)-JVS(738)*X(336)-JVS(739)*X(338)-JVS(740)*X(347))/(JVS(737)) IF (DO_SLV(97)) & - X(97) = (X(97)-JVS(730)*X(319)-JVS(731)*X(337)-JVS(732)*X(345))/(JVS(729)) + X(97) = (X(97)-JVS(731)*X(326)-JVS(732)*X(338)-JVS(733)*X(343))/(JVS(730)) IF (DO_SLV(96)) & - X(96) = (X(96)-JVS(726)*X(284)-JVS(727)*X(346)-JVS(728)*X(347))/(JVS(725)) + X(96) = (X(96)-JVS(727)*X(334)-JVS(728)*X(338)-JVS(729)*X(343))/(JVS(726)) IF (DO_SLV(95)) & - X(95) = (X(95)-JVS(719)*X(321)-JVS(720)*X(345)-JVS(721)*X(346))/(JVS(718)) + X(95) = (X(95)-JVS(723)*X(328)-JVS(724)*X(341)-JVS(725)*X(343))/(JVS(722)) IF (DO_SLV(94)) & - X(94) = (X(94)-JVS(716)*X(345)-JVS(717)*X(351))/(JVS(715)) + X(94) = (X(94)-JVS(719)*X(327)-JVS(720)*X(338)-JVS(721)*X(343))/(JVS(718)) IF (DO_SLV(93)) & - X(93) = (X(93)-JVS(712)*X(328)-JVS(713)*X(345)-JVS(714)*X(346))/(JVS(711)) + X(93) = (X(93)-JVS(715)*X(329)-JVS(716)*X(343)-JVS(717)*X(355))/(JVS(714)) IF (DO_SLV(92)) & - X(92) = (X(92)-JVS(708)*X(324)-JVS(709)*X(337)-JVS(710)*X(345))/(JVS(707)) + X(92) = (X(92)-JVS(711)*X(317)-JVS(712)*X(343)-JVS(713)*X(353))/(JVS(710)) IF (DO_SLV(91)) & - X(91) = (X(91)-JVS(704)*X(323)-JVS(705)*X(345)-JVS(706)*X(346))/(JVS(703)) + X(91) = (X(91)-JVS(708)*X(337)-JVS(709)*X(343))/(JVS(707)) IF (DO_SLV(90)) & - X(90) = (X(90)-JVS(700)*X(235)-JVS(701)*X(335)-JVS(702)*X(345))/(JVS(699)) + X(90) = (X(90)-JVS(705)*X(337)-JVS(706)*X(343))/(JVS(704)) IF (DO_SLV(89)) & - X(89) = (X(89)-JVS(696)*X(325)-JVS(697)*X(345)-JVS(698)*X(348))/(JVS(695)) + X(89) = (X(89)-JVS(702)*X(337)-JVS(703)*X(343))/(JVS(701)) IF (DO_SLV(88)) & - X(88) = (X(88)-JVS(692)*X(312)-JVS(693)*X(336)-JVS(694)*X(345))/(JVS(691)) + X(88) = (X(88)-JVS(699)*X(337)-JVS(700)*X(343))/(JVS(698)) IF (DO_SLV(87)) & - X(87) = (X(87)-JVS(689)*X(334)-JVS(690)*X(345))/(JVS(688)) + X(87) = (X(87)-JVS(696)*X(343)-JVS(697)*X(348))/(JVS(695)) IF (DO_SLV(86)) & - X(86) = (X(86)-JVS(686)*X(334)-JVS(687)*X(345))/(JVS(685)) + X(86) = (X(86)-JVS(692)*X(300)-JVS(693)*X(338)-JVS(694)*X(343))/(JVS(691)) IF (DO_SLV(85)) & - X(85) = (X(85)-JVS(683)*X(334)-JVS(684)*X(345))/(JVS(682)) + X(85) = (X(85)-JVS(690)*X(343))/(JVS(689)) IF (DO_SLV(84)) & - X(84) = (X(84)-JVS(680)*X(334)-JVS(681)*X(345))/(JVS(679)) + X(84) = (X(84)-JVS(687)*X(343)-JVS(688)*X(352))/(JVS(686)) IF (DO_SLV(83)) & - X(83) = (X(83)-JVS(676)*X(296)-JVS(677)*X(345)-JVS(678)*X(346))/(JVS(675)) + X(83) = (X(83)-JVS(684)*X(334)-JVS(685)*X(345))/(JVS(683)) IF (DO_SLV(82)) & - X(82) = (X(82)-JVS(674)*X(345))/(JVS(673)) + X(82) = (X(82)-JVS(681)*X(337)-JVS(682)*X(343))/(JVS(680)) IF (DO_SLV(81)) & - X(81) = (X(81)-JVS(671)*X(334)-JVS(672)*X(345))/(JVS(670)) + X(81) = (X(81)-JVS(675)*X(254)-JVS(676)*X(287)-JVS(677)*X(296)-JVS(678)*X(349)-JVS(679)*X(350))/(JVS(674)) IF (DO_SLV(80)) & - X(80) = (X(80)-JVS(668)*X(328)-JVS(669)*X(335))/(JVS(667)) + X(80) = (X(80)-JVS(672)*X(343)-JVS(673)*X(352))/(JVS(671)) IF (DO_SLV(79)) & - X(79) = (X(79)-JVS(665)*X(340)-JVS(666)*X(345))/(JVS(664)) + X(79) = (X(79)-JVS(669)*X(337)-JVS(670)*X(343))/(JVS(668)) IF (DO_SLV(78)) & - X(78) = (X(78)-JVS(662)*X(334)-JVS(663)*X(345))/(JVS(661)) + X(78) = (X(78)-JVS(666)*X(343)-JVS(667)*X(344))/(JVS(665)) IF (DO_SLV(77)) & - X(77) = (X(77)-JVS(656)*X(252)-JVS(657)*X(330)-JVS(658)*X(332)-JVS(659)*X(349)-JVS(660)*X(350))/(JVS(655)) + X(77) = (X(77)-JVS(662)*X(237)-JVS(663)*X(341)-JVS(664)*X(343))/(JVS(661)) IF (DO_SLV(76)) & - X(76) = (X(76)-JVS(653)*X(338)-JVS(654)*X(345))/(JVS(652)) + X(76) = (X(76)-JVS(658)*X(261)-JVS(659)*X(341)-JVS(660)*X(343))/(JVS(657)) IF (DO_SLV(75)) & - X(75) = (X(75)-JVS(650)*X(340)-JVS(651)*X(345))/(JVS(649)) + X(75) = (X(75)-JVS(654)*X(331)-JVS(655)*X(341)-JVS(656)*X(343))/(JVS(653)) IF (DO_SLV(74)) & - X(74) = (X(74)-JVS(646)*X(257)-JVS(647)*X(337)-JVS(648)*X(345))/(JVS(645)) + X(74) = (X(74)-JVS(650)*X(216)-JVS(651)*X(341)-JVS(652)*X(343))/(JVS(649)) IF (DO_SLV(73)) & - X(73) = (X(73)-JVS(642)*X(331)-JVS(643)*X(337)-JVS(644)*X(345))/(JVS(641)) + X(73) = (X(73)-JVS(646)*X(239)-JVS(647)*X(338)-JVS(648)*X(343))/(JVS(645)) IF (DO_SLV(72)) & - X(72) = (X(72)-JVS(638)*X(213)-JVS(639)*X(337)-JVS(640)*X(345))/(JVS(637)) + X(72) = (X(72)-JVS(643)*X(343)-JVS(644)*X(348))/(JVS(642)) IF (DO_SLV(71)) & - X(71) = (X(71)-JVS(634)*X(235)-JVS(635)*X(337)-JVS(636)*X(345))/(JVS(633)) + X(71) = (X(71)-JVS(640)*X(343)-JVS(641)*X(351))/(JVS(639)) IF (DO_SLV(70)) & - X(70) = (X(70)-JVS(630)*X(234)-JVS(631)*X(345)-JVS(632)*X(346))/(JVS(629)) + X(70) = (X(70)-JVS(637)*X(338)-JVS(638)*X(345))/(JVS(636)) IF (DO_SLV(69)) & - X(69) = (X(69)-JVS(627)*X(345)-JVS(628)*X(351))/(JVS(626)) + X(69) = (X(69)-JVS(632)*X(261)-JVS(633)*X(334)-JVS(634)*X(341)-JVS(635)*X(343))/(JVS(631)) IF (DO_SLV(68)) & - X(68) = (X(68)-JVS(624)*X(343)-JVS(625)*X(345))/(JVS(623)) + X(68) = (X(68)-JVS(628)*X(169)-JVS(629)*X(333)-JVS(630)*X(348))/(JVS(627)) IF (DO_SLV(67)) & - X(67) = (X(67)-JVS(621)*X(335)-JVS(622)*X(346))/(JVS(620)) + X(67) = (X(67)-JVS(624)*X(183)-JVS(625)*X(333)-JVS(626)*X(348))/(JVS(623)) IF (DO_SLV(66)) & - X(66) = (X(66)-JVS(616)*X(257)-JVS(617)*X(328)-JVS(618)*X(337)-JVS(619)*X(345))/(JVS(615)) + X(66) = (X(66)-JVS(620)*X(70)-JVS(621)*X(337)-JVS(622)*X(345))/(JVS(619)) IF (DO_SLV(65)) & - X(65) = (X(65)-JVS(612)*X(166)-JVS(613)*X(327)-JVS(614)*X(351))/(JVS(611)) + X(65) = (X(65)-JVS(617)*X(331)-JVS(618)*X(338))/(JVS(616)) IF (DO_SLV(64)) & - X(64) = (X(64)-JVS(608)*X(179)-JVS(609)*X(327)-JVS(610)*X(351))/(JVS(607)) + X(64) = (X(64)-JVS(615)*X(337))/(JVS(614)) IF (DO_SLV(63)) & - X(63) = (X(63)-JVS(604)*X(67)-JVS(605)*X(334)-JVS(606)*X(335))/(JVS(603)) + X(63) = (X(63)-JVS(613)*X(343))/(JVS(612)) IF (DO_SLV(62)) & - X(62) = (X(62)-JVS(601)*X(331)-JVS(602)*X(346))/(JVS(600)) + X(62) = (X(62)-JVS(610)*X(342)-JVS(611)*X(345))/(JVS(609)) IF (DO_SLV(61)) & - X(61) = (X(61)-JVS(599)*X(334))/(JVS(598)) + X(61) = (X(61)-JVS(607)*X(203)-JVS(608)*X(343))/(JVS(606)) IF (DO_SLV(60)) & - X(60) = (X(60)-JVS(597)*X(345))/(JVS(596)) + X(60) = (X(60)-JVS(604)*X(277)-JVS(605)*X(345))/(JVS(603)) IF (DO_SLV(59)) & - X(59) = (X(59)-JVS(594)*X(335)-JVS(595)*X(342))/(JVS(593)) + X(59) = (X(59)-JVS(601)*X(261)-JVS(602)*X(345))/(JVS(600)) IF (DO_SLV(58)) & - X(58) = (X(58)-JVS(591)*X(200)-JVS(592)*X(345))/(JVS(590)) + X(58) = (X(58)-JVS(598)*X(98)-JVS(599)*X(336))/(JVS(597)) IF (DO_SLV(57)) & - X(57) = (X(57)-JVS(588)*X(274)-JVS(589)*X(335))/(JVS(587)) + X(57) = (X(57)-JVS(596)*X(337))/(JVS(595)) IF (DO_SLV(56)) & - X(56) = (X(56)-JVS(585)*X(257)-JVS(586)*X(335))/(JVS(584)) + X(56) = (X(56)-JVS(594)*X(337))/(JVS(593)) IF (DO_SLV(55)) & - X(55) = (X(55)-JVS(582)*X(96)-JVS(583)*X(284))/(JVS(581)) + X(55) = (X(55)-JVS(592)*X(343))/(JVS(591)) IF (DO_SLV(54)) & - X(54) = (X(54)-JVS(580)*X(334))/(JVS(579)) + X(54) = (X(54)-JVS(590)*X(337))/(JVS(589)) IF (DO_SLV(53)) & - X(53) = (X(53)-JVS(578)*X(334))/(JVS(577)) + X(53) = (X(53)-JVS(588)*X(337))/(JVS(587)) IF (DO_SLV(52)) & - X(52) = (X(52)-JVS(576)*X(345))/(JVS(575)) + X(52) = (X(52)-JVS(586)*X(337))/(JVS(585)) IF (DO_SLV(51)) & - X(51) = (X(51)-JVS(574)*X(334))/(JVS(573)) + X(51) = (X(51)-JVS(584)*X(337))/(JVS(583)) IF (DO_SLV(50)) & - X(50) = (X(50)-JVS(572)*X(334))/(JVS(571)) + X(50) = (X(50)-JVS(582)*X(337))/(JVS(581)) IF (DO_SLV(49)) & - X(49) = (X(49)-JVS(570)*X(334))/(JVS(569)) + X(49) = (X(49)-JVS(580)*X(337))/(JVS(579)) IF (DO_SLV(48)) & - X(48) = (X(48)-JVS(568)*X(334))/(JVS(567)) + X(48) = (X(48)-JVS(576)*X(156)-JVS(577)*X(246)-JVS(578)*X(260))/(JVS(575)) IF (DO_SLV(47)) & - X(47) = (X(47)-JVS(566)*X(334))/(JVS(565)) + X(47) = (X(47)-JVS(574)*X(336))/(JVS(573)) IF (DO_SLV(46)) & - X(46) = (X(46)-JVS(564)*X(334))/(JVS(563)) + X(46) = (X(46)-JVS(572)*X(343))/(JVS(571)) IF (DO_SLV(45)) & - X(45) = (X(45)-JVS(560)*X(154)-JVS(561)*X(242)-JVS(562)*X(256))/(JVS(559)) + X(45) = (X(45)-JVS(570)*X(98))/(JVS(569)) IF (DO_SLV(44)) & - X(44) = (X(44)-JVS(558)*X(284))/(JVS(557)) + X(44) = (X(44)-JVS(568)*X(343))/(JVS(567)) IF (DO_SLV(43)) & - X(43) = (X(43)-JVS(556)*X(345))/(JVS(555)) + X(43) = (X(43)-JVS(559)*X(244)-JVS(560)*X(279)-JVS(561)*X(317)-JVS(562)*X(318)-JVS(563)*X(341)-JVS(564)*X(343)& + &-JVS(565)*X(353)-JVS(566)*X(356))/(JVS(558)) IF (DO_SLV(42)) & - X(42) = (X(42)-JVS(554)*X(96))/(JVS(553)) + X(42) = (X(42)-JVS(554)*X(232)-JVS(555)*X(337)-JVS(556)*X(343)-JVS(557)*X(352))/(JVS(553)) IF (DO_SLV(41)) & - X(41) = (X(41)-JVS(552)*X(345))/(JVS(551)) + X(41) = (X(41)-JVS(542)*X(93)-JVS(543)*X(183)-JVS(544)*X(244)-JVS(545)*X(267)-JVS(546)*X(317)-JVS(547)*X(320)-JVS(548)& + &*X(332)-JVS(549)*X(343)-JVS(550)*X(345)-JVS(551)*X(355)-JVS(552)*X(356))/(JVS(541)) IF (DO_SLV(40)) & - X(40) = (X(40)-JVS(543)*X(241)-JVS(544)*X(276)-JVS(545)*X(312)-JVS(546)*X(314)-JVS(547)*X(336)-JVS(548)*X(337)& - &-JVS(549)*X(341)-JVS(550)*X(345))/(JVS(542)) + X(40) = (X(40)-JVS(537)*X(244)-JVS(538)*X(317)-JVS(539)*X(335)-JVS(540)*X(343))/(JVS(536)) IF (DO_SLV(39)) & - X(39) = (X(39)-JVS(538)*X(228)-JVS(539)*X(334)-JVS(540)*X(340)-JVS(541)*X(345))/(JVS(537)) + X(39) = (X(39)-JVS(448)*X(63)-JVS(449)*X(71)-JVS(450)*X(80)-JVS(451)*X(84)-JVS(452)*X(85)-JVS(453)*X(103)-JVS(454)& + &*X(109)-JVS(455)*X(113)-JVS(456)*X(115)-JVS(457)*X(122)-JVS(458)*X(125)-JVS(459)*X(127)-JVS(460)*X(129)& + &-JVS(461)*X(130)-JVS(462)*X(133)-JVS(463)*X(143)-JVS(464)*X(145)-JVS(465)*X(149)-JVS(466)*X(150)-JVS(467)& + &*X(151)-JVS(468)*X(152)-JVS(469)*X(155)-JVS(470)*X(161)-JVS(471)*X(170)-JVS(472)*X(184)-JVS(473)*X(185)& + &-JVS(474)*X(189)-JVS(475)*X(190)-JVS(476)*X(191)-JVS(477)*X(194)-JVS(478)*X(195)-JVS(479)*X(197)-JVS(480)& + &*X(201)-JVS(481)*X(202)-JVS(482)*X(203)-JVS(483)*X(204)-JVS(484)*X(207)-JVS(485)*X(211)-JVS(486)*X(213)& + &-JVS(487)*X(214)-JVS(488)*X(218)-JVS(489)*X(220)-JVS(490)*X(223)-JVS(491)*X(224)-JVS(492)*X(227)-JVS(493)& + &*X(229)-JVS(494)*X(230)-JVS(495)*X(231)-JVS(496)*X(233)-JVS(497)*X(242)-JVS(498)*X(245)-JVS(499)*X(251)& + &-JVS(500)*X(256)-JVS(501)*X(257)-JVS(502)*X(259)-JVS(503)*X(262)-JVS(504)*X(265)-JVS(505)*X(269)-JVS(506)& + &*X(270)-JVS(507)*X(271)-JVS(508)*X(272)-JVS(509)*X(274)-JVS(510)*X(279)-JVS(511)*X(288)-JVS(512)*X(289)& + &-JVS(513)*X(290)-JVS(514)*X(293)-JVS(515)*X(297)-JVS(516)*X(298)-JVS(517)*X(302)-JVS(518)*X(305)-JVS(519)& + &*X(309)-JVS(520)*X(311)-JVS(521)*X(313)-JVS(522)*X(314)-JVS(523)*X(315)-JVS(524)*X(318)-JVS(525)*X(329)& + &-JVS(526)*X(330)-JVS(527)*X(334)-JVS(528)*X(338)-JVS(529)*X(341)-JVS(530)*X(342)-JVS(531)*X(343)-JVS(532)& + &*X(348)-JVS(533)*X(351)-JVS(534)*X(352)-JVS(535)*X(356))/(JVS(447)) IF (DO_SLV(38)) & - X(38) = (X(38)-JVS(527)*X(89)-JVS(528)*X(179)-JVS(529)*X(241)-JVS(530)*X(264)-JVS(531)*X(312)-JVS(532)*X(316)-JVS(533)& - &*X(333)-JVS(534)*X(341)-JVS(535)*X(345)-JVS(536)*X(348))/(JVS(526)) + X(38) = (X(38)-JVS(322)*X(45)-JVS(323)*X(47)-JVS(324)*X(52)-JVS(325)*X(53)-JVS(326)*X(58)-JVS(327)*X(66)-JVS(328)& + &*X(67)-JVS(329)*X(68)-JVS(330)*X(71)-JVS(331)*X(72)-JVS(332)*X(78)-JVS(333)*X(87)-JVS(334)*X(91)-JVS(335)*X(98)& + &-JVS(336)*X(108)-JVS(337)*X(120)-JVS(338)*X(123)-JVS(339)*X(140)-JVS(340)*X(144)-JVS(341)*X(148)-JVS(342)& + &*X(156)-JVS(343)*X(162)-JVS(344)*X(166)-JVS(345)*X(169)-JVS(346)*X(170)-JVS(347)*X(175)-JVS(348)*X(177)& + &-JVS(349)*X(183)-JVS(350)*X(184)-JVS(351)*X(187)-JVS(352)*X(188)-JVS(353)*X(194)-JVS(354)*X(199)-JVS(355)& + &*X(201)-JVS(356)*X(203)-JVS(357)*X(204)-JVS(358)*X(205)-JVS(359)*X(206)-JVS(360)*X(207)-JVS(361)*X(212)& + &-JVS(362)*X(216)-JVS(363)*X(217)-JVS(364)*X(219)-JVS(365)*X(220)-JVS(366)*X(221)-JVS(367)*X(222)-JVS(368)& + &*X(223)-JVS(369)*X(224)-JVS(370)*X(225)-JVS(371)*X(227)-JVS(372)*X(232)-JVS(373)*X(234)-JVS(374)*X(237)& + &-JVS(375)*X(238)-JVS(376)*X(239)-JVS(377)*X(241)-JVS(378)*X(243)-JVS(379)*X(246)-JVS(380)*X(250)-JVS(381)& + &*X(251)-JVS(382)*X(254)-JVS(383)*X(255)-JVS(384)*X(256)-JVS(385)*X(260)-JVS(386)*X(261)-JVS(387)*X(263)& + &-JVS(388)*X(265)-JVS(389)*X(266)-JVS(390)*X(267)-JVS(391)*X(269)-JVS(392)*X(270)-JVS(393)*X(271)-JVS(394)& + &*X(274)-JVS(395)*X(275)-JVS(396)*X(276)-JVS(397)*X(277)-JVS(398)*X(278)-JVS(399)*X(279)-JVS(400)*X(280)& + &-JVS(401)*X(281)-JVS(402)*X(282)-JVS(403)*X(284)-JVS(404)*X(287)-JVS(405)*X(292)-JVS(406)*X(293)-JVS(407)& + &*X(294)-JVS(408)*X(295)-JVS(409)*X(296)-JVS(410)*X(298)-JVS(411)*X(301)-JVS(412)*X(302)-JVS(413)*X(303)& + &-JVS(414)*X(306)-JVS(415)*X(307)-JVS(416)*X(308)-JVS(417)*X(309)-JVS(418)*X(310)-JVS(419)*X(312)-JVS(420)& + &*X(313)-JVS(421)*X(317)-JVS(422)*X(318)-JVS(423)*X(320)-JVS(424)*X(321)-JVS(425)*X(329)-JVS(426)*X(330)& + &-JVS(427)*X(332)-JVS(428)*X(334)-JVS(429)*X(336)-JVS(430)*X(337)-JVS(431)*X(339)-JVS(432)*X(340)-JVS(433)& + &*X(341)-JVS(434)*X(343)-JVS(435)*X(344)-JVS(436)*X(345)-JVS(437)*X(346)-JVS(438)*X(347)-JVS(439)*X(348)& + &-JVS(440)*X(349)-JVS(441)*X(350)-JVS(442)*X(351)-JVS(443)*X(353)-JVS(444)*X(354)-JVS(445)*X(355)-JVS(446)& + &*X(356))/(JVS(321)) IF (DO_SLV(37)) & - X(37) = (X(37)-JVS(522)*X(241)-JVS(523)*X(312)-JVS(524)*X(329)-JVS(525)*X(345))/(JVS(521)) + X(37) = (X(37)-JVS(204)*X(48)-JVS(205)*X(59)-JVS(206)*X(60)-JVS(207)*X(66)-JVS(208)*X(70)-JVS(209)*X(73)-JVS(210)& + &*X(83)-JVS(211)*X(86)-JVS(212)*X(94)-JVS(213)*X(96)-JVS(214)*X(97)-JVS(215)*X(105)-JVS(216)*X(106)-JVS(217)& + &*X(110)-JVS(218)*X(113)-JVS(219)*X(115)-JVS(220)*X(117)-JVS(221)*X(119)-JVS(222)*X(124)-JVS(223)*X(125)& + &-JVS(224)*X(127)-JVS(225)*X(129)-JVS(226)*X(130)-JVS(227)*X(133)-JVS(228)*X(136)-JVS(229)*X(137)-JVS(230)& + &*X(139)-JVS(231)*X(141)-JVS(232)*X(143)-JVS(233)*X(153)-JVS(234)*X(156)-JVS(235)*X(165)-JVS(236)*X(168)& + &-JVS(237)*X(172)-JVS(238)*X(173)-JVS(239)*X(174)-JVS(240)*X(179)-JVS(241)*X(180)-JVS(242)*X(181)-JVS(243)& + &*X(182)-JVS(244)*X(185)-JVS(245)*X(186)-JVS(246)*X(189)-JVS(247)*X(193)-JVS(248)*X(196)-JVS(249)*X(200)& + &-JVS(250)*X(201)-JVS(251)*X(208)-JVS(252)*X(209)-JVS(253)*X(210)-JVS(254)*X(212)-JVS(255)*X(215)-JVS(256)& + &*X(216)-JVS(257)*X(219)-JVS(258)*X(226)-JVS(259)*X(228)-JVS(260)*X(235)-JVS(261)*X(236)-JVS(262)*X(237)& + &-JVS(263)*X(238)-JVS(264)*X(239)-JVS(265)*X(240)-JVS(266)*X(243)-JVS(267)*X(244)-JVS(268)*X(245)-JVS(269)& + &*X(248)-JVS(270)*X(250)-JVS(271)*X(252)-JVS(272)*X(253)-JVS(273)*X(257)-JVS(274)*X(258)-JVS(275)*X(261)& + &-JVS(276)*X(262)-JVS(277)*X(264)-JVS(278)*X(266)-JVS(279)*X(272)-JVS(280)*X(273)-JVS(281)*X(275)-JVS(282)& + &*X(276)-JVS(283)*X(277)-JVS(284)*X(278)-JVS(285)*X(280)-JVS(286)*X(281)-JVS(287)*X(282)-JVS(288)*X(284)& + &-JVS(289)*X(288)-JVS(290)*X(289)-JVS(291)*X(292)-JVS(292)*X(294)-JVS(293)*X(299)-JVS(294)*X(300)-JVS(295)& + &*X(301)-JVS(296)*X(304)-JVS(297)*X(306)-JVS(298)*X(308)-JVS(299)*X(310)-JVS(300)*X(312)-JVS(301)*X(314)& + &-JVS(302)*X(315)-JVS(303)*X(316)-JVS(304)*X(317)-JVS(305)*X(319)-JVS(306)*X(321)-JVS(307)*X(322)-JVS(308)& + &*X(323)-JVS(309)*X(324)-JVS(310)*X(325)-JVS(311)*X(326)-JVS(312)*X(327)-JVS(313)*X(328)-JVS(314)*X(333)& + &-JVS(315)*X(334)-JVS(316)*X(338)-JVS(317)*X(341)-JVS(318)*X(343)-JVS(319)*X(345)-JVS(320)*X(352))/(JVS(203)) IF (DO_SLV(36)) & - X(36) = (X(36)-JVS(433)*X(60)-JVS(434)*X(68)-JVS(435)*X(75)-JVS(436)*X(79)-JVS(437)*X(82)-JVS(438)*X(101)-JVS(439)& - &*X(107)-JVS(440)*X(113)-JVS(441)*X(114)-JVS(442)*X(119)-JVS(443)*X(122)-JVS(444)*X(124)-JVS(445)*X(126)& - &-JVS(446)*X(127)-JVS(447)*X(132)-JVS(448)*X(139)-JVS(449)*X(143)-JVS(450)*X(144)-JVS(451)*X(146)-JVS(452)& - &*X(147)-JVS(453)*X(150)-JVS(454)*X(153)-JVS(455)*X(159)-JVS(456)*X(167)-JVS(457)*X(181)-JVS(458)*X(182)& - &-JVS(459)*X(184)-JVS(460)*X(185)-JVS(461)*X(187)-JVS(462)*X(191)-JVS(463)*X(192)-JVS(464)*X(194)-JVS(465)& - &*X(197)-JVS(466)*X(199)-JVS(467)*X(200)-JVS(468)*X(201)-JVS(469)*X(204)-JVS(470)*X(208)-JVS(471)*X(209)& - &-JVS(472)*X(210)-JVS(473)*X(215)-JVS(474)*X(216)-JVS(475)*X(220)-JVS(476)*X(221)-JVS(477)*X(225)-JVS(478)& - &*X(227)-JVS(479)*X(230)-JVS(480)*X(231)-JVS(481)*X(233)-JVS(482)*X(238)-JVS(483)*X(243)-JVS(484)*X(248)& - &-JVS(485)*X(253)-JVS(486)*X(255)-JVS(487)*X(258)-JVS(488)*X(259)-JVS(489)*X(261)-JVS(490)*X(266)-JVS(491)& - &*X(267)-JVS(492)*X(268)-JVS(493)*X(269)-JVS(494)*X(270)-JVS(495)*X(276)-JVS(496)*X(285)-JVS(497)*X(286)& - &-JVS(498)*X(287)-JVS(499)*X(290)-JVS(500)*X(294)-JVS(501)*X(295)-JVS(502)*X(298)-JVS(503)*X(301)-JVS(504)& - &*X(304)-JVS(505)*X(305)-JVS(506)*X(306)-JVS(507)*X(307)-JVS(508)*X(309)-JVS(509)*X(314)-JVS(510)*X(325)& - &-JVS(511)*X(326)-JVS(512)*X(328)-JVS(513)*X(337)-JVS(514)*X(340)-JVS(515)*X(341)-JVS(516)*X(342)-JVS(517)& - &*X(343)-JVS(518)*X(345)-JVS(519)*X(346)-JVS(520)*X(351))/(JVS(432)) + X(36) = (X(36)-JVS(202)*X(93))/(JVS(201)) IF (DO_SLV(35)) & - X(35) = (X(35)-JVS(307)*X(42)-JVS(308)*X(44)-JVS(309)*X(49)-JVS(310)*X(50)-JVS(311)*X(55)-JVS(312)*X(63)-JVS(313)& - &*X(64)-JVS(314)*X(65)-JVS(315)*X(68)-JVS(316)*X(69)-JVS(317)*X(76)-JVS(318)*X(87)-JVS(319)*X(94)-JVS(320)*X(96)& - &-JVS(321)*X(105)-JVS(322)*X(109)-JVS(323)*X(120)-JVS(324)*X(140)-JVS(325)*X(142)-JVS(326)*X(149)-JVS(327)& - &*X(154)-JVS(328)*X(158)-JVS(329)*X(163)-JVS(330)*X(166)-JVS(331)*X(167)-JVS(332)*X(168)-JVS(333)*X(175)& - &-JVS(334)*X(179)-JVS(335)*X(181)-JVS(336)*X(183)-JVS(337)*X(186)-JVS(338)*X(191)-JVS(339)*X(195)-JVS(340)& - &*X(197)-JVS(341)*X(200)-JVS(342)*X(201)-JVS(343)*X(202)-JVS(344)*X(203)-JVS(345)*X(204)-JVS(346)*X(211)& - &-JVS(347)*X(213)-JVS(348)*X(214)-JVS(349)*X(216)-JVS(350)*X(217)-JVS(351)*X(218)-JVS(352)*X(219)-JVS(353)& - &*X(220)-JVS(354)*X(221)-JVS(355)*X(222)-JVS(356)*X(225)-JVS(357)*X(228)-JVS(358)*X(229)-JVS(359)*X(234)& - &-JVS(360)*X(235)-JVS(361)*X(236)-JVS(362)*X(237)-JVS(363)*X(240)-JVS(364)*X(242)-JVS(365)*X(246)-JVS(366)& - &*X(248)-JVS(367)*X(251)-JVS(368)*X(252)-JVS(369)*X(255)-JVS(370)*X(256)-JVS(371)*X(257)-JVS(372)*X(261)& - &-JVS(373)*X(262)-JVS(374)*X(263)-JVS(375)*X(264)-JVS(376)*X(266)-JVS(377)*X(267)-JVS(378)*X(268)-JVS(379)& - &*X(270)-JVS(380)*X(272)-JVS(381)*X(273)-JVS(382)*X(274)-JVS(383)*X(275)-JVS(384)*X(276)-JVS(385)*X(277)& - &-JVS(386)*X(278)-JVS(387)*X(280)-JVS(388)*X(281)-JVS(389)*X(284)-JVS(390)*X(289)-JVS(391)*X(290)-JVS(392)& - &*X(291)-JVS(393)*X(292)-JVS(394)*X(294)-JVS(395)*X(297)-JVS(396)*X(298)-JVS(397)*X(299)-JVS(398)*X(302)& - &-JVS(399)*X(303)-JVS(400)*X(306)-JVS(401)*X(308)-JVS(402)*X(309)-JVS(403)*X(310)-JVS(404)*X(311)-JVS(405)& - &*X(312)-JVS(406)*X(314)-JVS(407)*X(316)-JVS(408)*X(317)-JVS(409)*X(325)-JVS(410)*X(326)-JVS(411)*X(328)& - &-JVS(412)*X(330)-JVS(413)*X(332)-JVS(414)*X(333)-JVS(415)*X(334)-JVS(416)*X(335)-JVS(417)*X(336)-JVS(418)& - &*X(337)-JVS(419)*X(338)-JVS(420)*X(339)-JVS(421)*X(341)-JVS(422)*X(343)-JVS(423)*X(344)-JVS(424)*X(345)& - &-JVS(425)*X(347)-JVS(426)*X(348)-JVS(427)*X(349)-JVS(428)*X(350)-JVS(429)*X(351)-JVS(430)*X(352)-JVS(431)& - &*X(353))/(JVS(306)) + X(35) = (X(35)-JVS(199)*X(329)-JVS(200)*X(355))/(JVS(198)) IF (DO_SLV(34)) & - X(34) = (X(34)-JVS(189)*X(45)-JVS(190)*X(56)-JVS(191)*X(57)-JVS(192)*X(63)-JVS(193)*X(67)-JVS(194)*X(70)-JVS(195)& - &*X(80)-JVS(196)*X(83)-JVS(197)*X(90)-JVS(198)*X(91)-JVS(199)*X(93)-JVS(200)*X(95)-JVS(201)*X(103)-JVS(202)& - &*X(108)-JVS(203)*X(110)-JVS(204)*X(113)-JVS(205)*X(114)-JVS(206)*X(116)-JVS(207)*X(121)-JVS(208)*X(122)& - &-JVS(209)*X(124)-JVS(210)*X(126)-JVS(211)*X(127)-JVS(212)*X(132)-JVS(213)*X(133)-JVS(214)*X(135)-JVS(215)& - &*X(137)-JVS(216)*X(138)-JVS(217)*X(139)-JVS(218)*X(148)-JVS(219)*X(154)-JVS(220)*X(162)-JVS(221)*X(165)& - &-JVS(222)*X(170)-JVS(223)*X(171)-JVS(224)*X(172)-JVS(225)*X(176)-JVS(226)*X(177)-JVS(227)*X(178)-JVS(228)& - &*X(180)-JVS(229)*X(182)-JVS(230)*X(184)-JVS(231)*X(189)-JVS(232)*X(190)-JVS(233)*X(193)-JVS(234)*X(196)& - &-JVS(235)*X(197)-JVS(236)*X(205)-JVS(237)*X(206)-JVS(238)*X(207)-JVS(239)*X(211)-JVS(240)*X(212)-JVS(241)& - &*X(213)-JVS(242)*X(217)-JVS(243)*X(223)-JVS(244)*X(224)-JVS(245)*X(226)-JVS(246)*X(232)-JVS(247)*X(234)& - &-JVS(248)*X(235)-JVS(249)*X(236)-JVS(250)*X(239)-JVS(251)*X(240)-JVS(252)*X(241)-JVS(253)*X(243)-JVS(254)& - &*X(245)-JVS(255)*X(246)-JVS(256)*X(249)-JVS(257)*X(250)-JVS(258)*X(253)-JVS(259)*X(254)-JVS(260)*X(257)& - &-JVS(261)*X(259)-JVS(262)*X(260)-JVS(263)*X(263)-JVS(264)*X(269)-JVS(265)*X(271)-JVS(266)*X(272)-JVS(267)& - &*X(273)-JVS(268)*X(274)-JVS(269)*X(275)-JVS(270)*X(277)-JVS(271)*X(278)-JVS(272)*X(280)-JVS(273)*X(281)& - &-JVS(274)*X(285)-JVS(275)*X(286)-JVS(276)*X(289)-JVS(277)*X(291)-JVS(278)*X(293)-JVS(279)*X(296)-JVS(280)& - &*X(297)-JVS(281)*X(300)-JVS(282)*X(302)-JVS(283)*X(304)-JVS(284)*X(305)-JVS(285)*X(308)-JVS(286)*X(310)& - &-JVS(287)*X(311)-JVS(288)*X(312)-JVS(289)*X(313)-JVS(290)*X(315)-JVS(291)*X(317)-JVS(292)*X(318)-JVS(293)& - &*X(319)-JVS(294)*X(320)-JVS(295)*X(321)-JVS(296)*X(322)-JVS(297)*X(323)-JVS(298)*X(324)-JVS(299)*X(327)& - &-JVS(300)*X(328)-JVS(301)*X(335)-JVS(302)*X(337)-JVS(303)*X(340)-JVS(304)*X(345)-JVS(305)*X(346))/(JVS(188)) + X(34) = (X(34)-JVS(191)*X(93)-JVS(192)*X(267)-JVS(193)*X(329)-JVS(194)*X(343)-JVS(195)*X(345)-JVS(196)*X(355)-JVS(197)& + &*X(356))/(JVS(190)) IF (DO_SLV(33)) & - X(33) = (X(33)-JVS(185)*X(89)-JVS(186)*X(345)-JVS(187)*X(348))/(JVS(184)) + X(33) = (X(33)-JVS(185)*X(93)-JVS(186)*X(267)-JVS(187)*X(343)-JVS(188)*X(355)-JVS(189)*X(356))/(JVS(184)) IF (DO_SLV(32)) & - X(32) = (X(32)-JVS(180)*X(241)-JVS(181)*X(312)-JVS(182)*X(345)-JVS(183)*X(348))/(JVS(179)) + X(32) = (X(32)-JVS(180)*X(244)-JVS(181)*X(317)-JVS(182)*X(343)-JVS(183)*X(355))/(JVS(179)) IF (DO_SLV(31)) & - X(31) = (X(31)-JVS(174)*X(107)-JVS(175)*X(128)-JVS(176)*X(151)-JVS(177)*X(152)-JVS(178)*X(215))/(JVS(173)) + X(31) = (X(31)-JVS(174)*X(109)-JVS(175)*X(131)-JVS(176)*X(157)-JVS(177)*X(159)-JVS(178)*X(218))/(JVS(173)) IF (DO_SLV(30)) & - X(30) = (X(30)-JVS(170)*X(115)-JVS(171)*X(270)-JVS(172)*X(294))/(JVS(169)) + X(30) = (X(30)-JVS(170)*X(116)-JVS(171)*X(274)-JVS(172)*X(298))/(JVS(169)) IF (DO_SLV(29)) & - X(29) = (X(29)-JVS(166)*X(166)-JVS(167)*X(341)-JVS(168)*X(348))/(JVS(165)) + X(29) = (X(29)-JVS(166)*X(169)-JVS(167)*X(355)-JVS(168)*X(356))/(JVS(165)) IF (DO_SLV(28)) & - X(28) = (X(28)-JVS(163)*X(94)-JVS(164)*X(345))/(JVS(162)) + X(28) = (X(28)-JVS(163)*X(87)-JVS(164)*X(343))/(JVS(162)) IF (DO_SLV(27)) & - X(27) = (X(27)-JVS(158)*X(101)-JVS(159)*X(337)-JVS(160)*X(345)-JVS(161)*X(346))/(JVS(157)) + X(27) = (X(27)-JVS(158)*X(103)-JVS(159)*X(338)-JVS(160)*X(341)-JVS(161)*X(343))/(JVS(157)) IF (DO_SLV(26)) & - X(26) = (X(26)-JVS(155)*X(27)-JVS(156)*X(346))/(JVS(154)) + X(26) = (X(26)-JVS(155)*X(27)-JVS(156)*X(338))/(JVS(154)) IF (DO_SLV(25)) & - X(25) = (X(25)-JVS(152)*X(27)-JVS(153)*X(337))/(JVS(151)) + X(25) = (X(25)-JVS(152)*X(27)-JVS(153)*X(341))/(JVS(151)) IF (DO_SLV(24)) & - X(24) = (X(24)-JVS(146)*X(187)-JVS(147)*X(192)-JVS(148)*X(199)-JVS(149)*X(209)-JVS(150)*X(345))/(JVS(145)) + X(24) = (X(24)-JVS(146)*X(191)-JVS(147)*X(195)-JVS(148)*X(202)-JVS(149)*X(213)-JVS(150)*X(343))/(JVS(145)) IF (DO_SLV(23)) & X(23) = (X(23)-JVS(144)*X(24))/(JVS(143)) IF (DO_SLV(22)) & - X(22) = (X(22)-JVS(139)*X(82)-JVS(140)*X(337)-JVS(141)*X(345)-JVS(142)*X(346))/(JVS(138)) + X(22) = (X(22)-JVS(139)*X(85)-JVS(140)*X(338)-JVS(141)*X(341)-JVS(142)*X(343))/(JVS(138)) IF (DO_SLV(21)) & - X(21) = (X(21)-JVS(136)*X(22)-JVS(137)*X(346))/(JVS(135)) + X(21) = (X(21)-JVS(136)*X(22)-JVS(137)*X(338))/(JVS(135)) IF (DO_SLV(20)) & - X(20) = (X(20)-JVS(133)*X(22)-JVS(134)*X(337))/(JVS(132)) + X(20) = (X(20)-JVS(133)*X(22)-JVS(134)*X(341))/(JVS(132)) IF (DO_SLV(19)) & - X(19) = (X(19)-JVS(131)*X(345))/(JVS(130)) + X(19) = (X(19)-JVS(131)*X(343))/(JVS(130)) IF (DO_SLV(18)) & - X(18) = (X(18)-JVS(126)*X(19)-JVS(127)*X(337)-JVS(128)*X(345)-JVS(129)*X(346))/(JVS(125)) + X(18) = (X(18)-JVS(126)*X(19)-JVS(127)*X(338)-JVS(128)*X(341)-JVS(129)*X(343))/(JVS(125)) IF (DO_SLV(17)) & - X(17) = (X(17)-JVS(123)*X(18)-JVS(124)*X(346))/(JVS(122)) + X(17) = (X(17)-JVS(123)*X(18)-JVS(124)*X(338))/(JVS(122)) IF (DO_SLV(16)) & - X(16) = (X(16)-JVS(120)*X(18)-JVS(121)*X(337))/(JVS(119)) + X(16) = (X(16)-JVS(120)*X(18)-JVS(121)*X(341))/(JVS(119)) IF (DO_SLV(15)) & - X(15) = (X(15)-JVS(117)*X(276)-JVS(118)*X(351))/(JVS(116)) + X(15) = (X(15)-JVS(117)*X(279)-JVS(118)*X(348))/(JVS(116)) IF (DO_SLV(14)) & - X(14) = (X(14)-JVS(114)*X(276)-JVS(115)*X(345))/(JVS(113)) + X(14) = (X(14)-JVS(114)*X(279)-JVS(115)*X(343))/(JVS(113)) IF (DO_SLV(13)) & - X(13) = (X(13)-JVS(109)*X(143)-JVS(110)*X(337)-JVS(111)*X(345)-JVS(112)*X(346))/(JVS(108)) + X(13) = (X(13)-JVS(109)*X(145)-JVS(110)*X(338)-JVS(111)*X(341)-JVS(112)*X(343))/(JVS(108)) IF (DO_SLV(12)) & - X(12) = (X(12)-JVS(106)*X(13)-JVS(107)*X(346))/(JVS(105)) + X(12) = (X(12)-JVS(106)*X(13)-JVS(107)*X(338))/(JVS(105)) IF (DO_SLV(11)) & - X(11) = (X(11)-JVS(103)*X(13)-JVS(104)*X(337))/(JVS(102)) + X(11) = (X(11)-JVS(103)*X(13)-JVS(104)*X(341))/(JVS(102)) IF (DO_SLV(10)) & - X(10) = (X(10)-JVS(95)*X(42)-JVS(96)*X(44)-JVS(97)*X(55)-JVS(98)*X(73)-JVS(99)*X(252)-JVS(100)*X(330)-JVS(101)*X(332))& + X(10) = (X(10)-JVS(95)*X(45)-JVS(96)*X(47)-JVS(97)*X(58)-JVS(98)*X(75)-JVS(99)*X(254)-JVS(100)*X(287)-JVS(101)*X(296))& &/(JVS(94)) IF (DO_SLV(9)) & - X(9) = (X(9)-JVS(87)*X(42)-JVS(88)*X(44)-JVS(89)*X(55)-JVS(90)*X(73)-JVS(91)*X(252)-JVS(92)*X(330)-JVS(93)*X(332))& + X(9) = (X(9)-JVS(87)*X(45)-JVS(88)*X(47)-JVS(89)*X(58)-JVS(90)*X(75)-JVS(91)*X(254)-JVS(92)*X(287)-JVS(93)*X(296))& &/(JVS(86)) IF (DO_SLV(8)) & - X(8) = (X(8)-JVS(84)*X(45)-JVS(85)*X(103))/(JVS(83)) + X(8) = (X(8)-JVS(84)*X(48)-JVS(85)*X(106))/(JVS(83)) IF (DO_SLV(7)) & - X(7) = (X(7)-JVS(15)*X(66)-JVS(16)*X(68)-JVS(17)*X(71)-JVS(18)*X(74)-JVS(19)*X(90)-JVS(20)*X(92)-JVS(21)*X(115)& - &-JVS(22)*X(130)-JVS(23)*X(133)-JVS(24)*X(135)-JVS(25)*X(139)-JVS(26)*X(159)-JVS(27)*X(169)-JVS(28)*X(173)& - &-JVS(29)*X(182)-JVS(30)*X(194)-JVS(31)*X(198)-JVS(32)*X(213)-JVS(33)*X(216)-JVS(34)*X(235)-JVS(35)*X(238)& - &-JVS(36)*X(240)-JVS(37)*X(241)-JVS(38)*X(246)-JVS(39)*X(249)-JVS(40)*X(250)-JVS(41)*X(257)-JVS(42)*X(259)& - &-JVS(43)*X(260)-JVS(44)*X(261)-JVS(45)*X(263)-JVS(46)*X(265)-JVS(47)*X(269)-JVS(48)*X(274)-JVS(49)*X(275)& - &-JVS(50)*X(276)-JVS(51)*X(277)-JVS(52)*X(280)-JVS(53)*X(281)-JVS(54)*X(283)-JVS(55)*X(287)-JVS(56)*X(290)& - &-JVS(57)*X(291)-JVS(58)*X(296)-JVS(59)*X(300)-JVS(60)*X(306)-JVS(61)*X(307)-JVS(62)*X(308)-JVS(63)*X(310)& - &-JVS(64)*X(311)-JVS(65)*X(312)-JVS(66)*X(313)-JVS(67)*X(315)-JVS(68)*X(318)-JVS(69)*X(319)-JVS(70)*X(320)& - &-JVS(71)*X(321)-JVS(72)*X(322)-JVS(73)*X(323)-JVS(74)*X(324)-JVS(75)*X(328)-JVS(76)*X(329)-JVS(77)*X(337)& - &-JVS(78)*X(340)-JVS(79)*X(341)-JVS(80)*X(345)-JVS(81)*X(346)-JVS(82)*X(351))/(JVS(14)) + X(7) = (X(7)-JVS(15)*X(69)-JVS(16)*X(71)-JVS(17)*X(76)-JVS(18)*X(77)-JVS(19)*X(95)-JVS(20)*X(105)-JVS(21)*X(116)& + &-JVS(22)*X(134)-JVS(23)*X(136)-JVS(24)*X(137)-JVS(25)*X(143)-JVS(26)*X(161)-JVS(27)*X(171)-JVS(28)*X(176)& + &-JVS(29)*X(185)-JVS(30)*X(197)-JVS(31)*X(198)-JVS(32)*X(216)-JVS(33)*X(220)-JVS(34)*X(237)-JVS(35)*X(242)& + &-JVS(36)*X(243)-JVS(37)*X(244)-JVS(38)*X(250)-JVS(39)*X(252)-JVS(40)*X(253)-JVS(41)*X(261)-JVS(42)*X(262)& + &-JVS(43)*X(264)-JVS(44)*X(265)-JVS(45)*X(266)-JVS(46)*X(268)-JVS(47)*X(272)-JVS(48)*X(276)-JVS(49)*X(277)& + &-JVS(50)*X(279)-JVS(51)*X(280)-JVS(52)*X(281)-JVS(53)*X(284)-JVS(54)*X(286)-JVS(55)*X(290)-JVS(56)*X(293)& + &-JVS(57)*X(294)-JVS(58)*X(300)-JVS(59)*X(304)-JVS(60)*X(308)-JVS(61)*X(309)-JVS(62)*X(310)-JVS(63)*X(311)& + &-JVS(64)*X(312)-JVS(65)*X(316)-JVS(66)*X(317)-JVS(67)*X(319)-JVS(68)*X(322)-JVS(69)*X(323)-JVS(70)*X(324)& + &-JVS(71)*X(325)-JVS(72)*X(326)-JVS(73)*X(327)-JVS(74)*X(328)-JVS(75)*X(334)-JVS(76)*X(335)-JVS(77)*X(338)& + &-JVS(78)*X(341)-JVS(79)*X(343)-JVS(80)*X(348)-JVS(81)*X(352)-JVS(82)*X(356))/(JVS(14)) IF (DO_SLV(6)) & - X(6) = (X(6)-JVS(12)*X(41)-JVS(13)*X(345))/(JVS(11)) + X(6) = (X(6)-JVS(12)*X(44)-JVS(13)*X(343))/(JVS(11)) IF (DO_SLV(5)) & - X(5) = (X(5)-JVS(10)*X(269))/(JVS(9)) + X(5) = (X(5)-JVS(10)*X(272))/(JVS(9)) IF (DO_SLV(4)) & - X(4) = (X(4)-JVS(5)*X(42)-JVS(6)*X(44)-JVS(7)*X(55)-JVS(8)*X(73))/(JVS(4)) + X(4) = (X(4)-JVS(5)*X(45)-JVS(6)*X(47)-JVS(7)*X(58)-JVS(8)*X(75))/(JVS(4)) IF (DO_SLV(3)) & X(3) = X(3)/JVS(3) IF (DO_SLV(2)) & @@ -2364,1297 +2371,1302 @@ SUBROUTINE KppSolveTR ( JVS, X, XX ) XX(31) = X(31)/JVS(173) XX(32) = X(32)/JVS(179) XX(33) = X(33)/JVS(184) - XX(34) = X(34)/JVS(188) - XX(35) = X(35)/JVS(306) - XX(36) = X(36)/JVS(432) - XX(37) = X(37)/JVS(521) - XX(38) = X(38)/JVS(526) - XX(39) = X(39)/JVS(537) - XX(40) = X(40)/JVS(542) - XX(41) = (X(41)-JVS(12)*XX(6))/(JVS(551)) - XX(42) = (X(42)-JVS(5)*XX(4)-JVS(87)*XX(9)-JVS(95)*XX(10)-JVS(307)*XX(35))/(JVS(553)) - XX(43) = X(43)/JVS(555) - XX(44) = (X(44)-JVS(6)*XX(4)-JVS(88)*XX(9)-JVS(96)*XX(10)-JVS(308)*XX(35))/(JVS(557)) - XX(45) = (X(45)-JVS(84)*XX(8)-JVS(189)*XX(34))/(JVS(559)) - XX(46) = X(46)/JVS(563) - XX(47) = X(47)/JVS(565) - XX(48) = X(48)/JVS(567) - XX(49) = (X(49)-JVS(309)*XX(35))/(JVS(569)) - XX(50) = (X(50)-JVS(310)*XX(35))/(JVS(571)) - XX(51) = X(51)/JVS(573) - XX(52) = X(52)/JVS(575) - XX(53) = X(53)/JVS(577) - XX(54) = X(54)/JVS(579) - XX(55) = (X(55)-JVS(7)*XX(4)-JVS(89)*XX(9)-JVS(97)*XX(10)-JVS(311)*XX(35))/(JVS(581)) - XX(56) = (X(56)-JVS(190)*XX(34))/(JVS(584)) - XX(57) = (X(57)-JVS(191)*XX(34))/(JVS(587)) - XX(58) = X(58)/JVS(590) - XX(59) = X(59)/JVS(593) - XX(60) = (X(60)-JVS(433)*XX(36))/(JVS(596)) - XX(61) = X(61)/JVS(598) - XX(62) = X(62)/JVS(600) - XX(63) = (X(63)-JVS(192)*XX(34)-JVS(312)*XX(35))/(JVS(603)) - XX(64) = (X(64)-JVS(313)*XX(35))/(JVS(607)) - XX(65) = (X(65)-JVS(314)*XX(35))/(JVS(611)) - XX(66) = (X(66)-JVS(15)*XX(7))/(JVS(615)) - XX(67) = (X(67)-JVS(193)*XX(34)-JVS(604)*XX(63))/(JVS(620)) - XX(68) = (X(68)-JVS(16)*XX(7)-JVS(315)*XX(35)-JVS(434)*XX(36))/(JVS(623)) - XX(69) = (X(69)-JVS(316)*XX(35))/(JVS(626)) - XX(70) = (X(70)-JVS(194)*XX(34))/(JVS(629)) - XX(71) = (X(71)-JVS(17)*XX(7))/(JVS(633)) - XX(72) = X(72)/JVS(637) - XX(73) = (X(73)-JVS(8)*XX(4)-JVS(90)*XX(9)-JVS(98)*XX(10))/(JVS(641)) - XX(74) = (X(74)-JVS(18)*XX(7))/(JVS(645)) - XX(75) = (X(75)-JVS(435)*XX(36))/(JVS(649)) - XX(76) = (X(76)-JVS(317)*XX(35))/(JVS(652)) - XX(77) = X(77)/JVS(655) - XX(78) = X(78)/JVS(661) - XX(79) = (X(79)-JVS(436)*XX(36))/(JVS(664)) - XX(80) = (X(80)-JVS(195)*XX(34))/(JVS(667)) - XX(81) = X(81)/JVS(670) - XX(82) = (X(82)-JVS(139)*XX(22)-JVS(437)*XX(36))/(JVS(673)) - XX(83) = (X(83)-JVS(196)*XX(34))/(JVS(675)) - XX(84) = X(84)/JVS(679) - XX(85) = X(85)/JVS(682) - XX(86) = X(86)/JVS(685) - XX(87) = (X(87)-JVS(318)*XX(35))/(JVS(688)) - XX(88) = X(88)/JVS(691) - XX(89) = (X(89)-JVS(185)*XX(33)-JVS(527)*XX(38))/(JVS(695)) - XX(90) = (X(90)-JVS(19)*XX(7)-JVS(197)*XX(34))/(JVS(699)) - XX(91) = (X(91)-JVS(198)*XX(34))/(JVS(703)) - XX(92) = (X(92)-JVS(20)*XX(7))/(JVS(707)) - XX(93) = (X(93)-JVS(199)*XX(34))/(JVS(711)) - XX(94) = (X(94)-JVS(163)*XX(28)-JVS(319)*XX(35))/(JVS(715)) - XX(95) = (X(95)-JVS(200)*XX(34))/(JVS(718)) - XX(96) = (X(96)-JVS(320)*XX(35)-JVS(554)*XX(42)-JVS(582)*XX(55))/(JVS(725)) - XX(97) = X(97)/JVS(729) - XX(98) = X(98)/JVS(733) - XX(99) = X(99)/JVS(737) - XX(100) = X(100)/JVS(741) - XX(101) = (X(101)-JVS(158)*XX(27)-JVS(438)*XX(36))/(JVS(745)) - XX(102) = X(102)/JVS(747) - XX(103) = (X(103)-JVS(85)*XX(8)-JVS(201)*XX(34))/(JVS(751)) - XX(104) = X(104)/JVS(765) - XX(105) = (X(105)-JVS(321)*XX(35))/(JVS(773)) - XX(106) = X(106)/JVS(776) - XX(107) = (X(107)-JVS(174)*XX(31)-JVS(439)*XX(36))/(JVS(782)) - XX(108) = (X(108)-JVS(202)*XX(34))/(JVS(786)) - XX(109) = (X(109)-JVS(322)*XX(35))/(JVS(790)) - XX(110) = (X(110)-JVS(203)*XX(34))/(JVS(795)) - XX(111) = X(111)/JVS(801) - XX(112) = X(112)/JVS(805) - XX(113) = (X(113)-JVS(204)*XX(34)-JVS(440)*XX(36))/(JVS(809)) - XX(114) = (X(114)-JVS(205)*XX(34)-JVS(441)*XX(36))/(JVS(813)) - XX(115) = (X(115)-JVS(21)*XX(7)-JVS(170)*XX(30))/(JVS(817)) - XX(116) = (X(116)-JVS(206)*XX(34))/(JVS(823)) - XX(117) = X(117)/JVS(828) - XX(118) = X(118)/JVS(834) - XX(119) = (X(119)-JVS(442)*XX(36))/(JVS(839)) - XX(120) = (X(120)-JVS(323)*XX(35))/(JVS(844)) - XX(121) = (X(121)-JVS(207)*XX(34))/(JVS(850)) - XX(122) = (X(122)-JVS(208)*XX(34)-JVS(443)*XX(36))/(JVS(855)) - XX(123) = X(123)/JVS(859) - XX(124) = (X(124)-JVS(209)*XX(34)-JVS(444)*XX(36))/(JVS(863)) - XX(125) = X(125)/JVS(867) - XX(126) = (X(126)-JVS(210)*XX(34)-JVS(445)*XX(36))/(JVS(871)) - XX(127) = (X(127)-JVS(211)*XX(34)-JVS(446)*XX(36))/(JVS(875)) - XX(128) = (X(128)-JVS(175)*XX(31))/(JVS(879)) - XX(129) = X(129)/JVS(886) - XX(130) = (X(130)-JVS(22)*XX(7))/(JVS(897)) - XX(131) = X(131)/JVS(902) - XX(132) = (X(132)-JVS(212)*XX(34)-JVS(447)*XX(36))/(JVS(908)) - XX(133) = (X(133)-JVS(23)*XX(7)-JVS(213)*XX(34))/(JVS(913)) - XX(134) = X(134)/JVS(919) - XX(135) = (X(135)-JVS(24)*XX(7)-JVS(214)*XX(34))/(JVS(930)) - XX(136) = (X(136)-JVS(777)*XX(106))/(JVS(935)) - XX(137) = (X(137)-JVS(215)*XX(34))/(JVS(940)) - XX(138) = (X(138)-JVS(216)*XX(34)-JVS(887)*XX(129))/(JVS(944)) - XX(139) = (X(139)-JVS(25)*XX(7)-JVS(217)*XX(34)-JVS(448)*XX(36))/(JVS(948)) - XX(140) = (X(140)-JVS(324)*XX(35))/(JVS(952)) - XX(141) = X(141)/JVS(956) - XX(142) = (X(142)-JVS(325)*XX(35))/(JVS(960)) - XX(143) = (X(143)-JVS(109)*XX(13)-JVS(449)*XX(36))/(JVS(964)) - XX(144) = (X(144)-JVS(450)*XX(36))/(JVS(968)) - XX(145) = X(145)/JVS(973) - XX(146) = (X(146)-JVS(451)*XX(36))/(JVS(983)) - XX(147) = (X(147)-JVS(452)*XX(36))/(JVS(988)) - XX(148) = (X(148)-JVS(218)*XX(34))/(JVS(992)) - XX(149) = (X(149)-JVS(326)*XX(35))/(JVS(1001)) - XX(150) = (X(150)-JVS(453)*XX(36))/(JVS(1004)) - XX(151) = (X(151)-JVS(176)*XX(31))/(JVS(1009)) - XX(152) = (X(152)-JVS(177)*XX(31))/(JVS(1015)) - XX(153) = (X(153)-JVS(454)*XX(36))/(JVS(1021)) - XX(154) = (X(154)-JVS(219)*XX(34)-JVS(327)*XX(35)-JVS(560)*XX(45))/(JVS(1027)) - XX(155) = X(155)/JVS(1033) - XX(156) = X(156)/JVS(1039) - XX(157) = X(157)/JVS(1045) - XX(158) = (X(158)-JVS(328)*XX(35))/(JVS(1062)) - XX(159) = (X(159)-JVS(26)*XX(7)-JVS(455)*XX(36)-JVS(783)*XX(107))/(JVS(1066)) - XX(160) = X(160)/JVS(1070) - XX(161) = X(161)/JVS(1075) - XX(162) = (X(162)-JVS(220)*XX(34))/(JVS(1081)) - XX(163) = (X(163)-JVS(329)*XX(35))/(JVS(1086)) - XX(164) = X(164)/JVS(1094) - XX(165) = (X(165)-JVS(221)*XX(34))/(JVS(1099)) - XX(166) = (X(166)-JVS(166)*XX(29)-JVS(330)*XX(35)-JVS(612)*XX(65))/(JVS(1104)) - XX(167) = (X(167)-JVS(331)*XX(35)-JVS(456)*XX(36))/(JVS(1109)) - XX(168) = (X(168)-JVS(332)*XX(35)-JVS(752)*XX(103)-JVS(1010)*XX(151)-JVS(1016)*XX(152))/(JVS(1113)) - XX(169) = (X(169)-JVS(27)*XX(7))/(JVS(1117)) - XX(170) = (X(170)-JVS(222)*XX(34))/(JVS(1124)) - XX(171) = (X(171)-JVS(223)*XX(34))/(JVS(1131)) - XX(172) = (X(172)-JVS(224)*XX(34))/(JVS(1137)) - XX(173) = (X(173)-JVS(28)*XX(7))/(JVS(1144)) - XX(174) = X(174)/JVS(1155) - XX(175) = (X(175)-JVS(333)*XX(35)-JVS(753)*XX(103)-JVS(1011)*XX(151)-JVS(1017)*XX(152))/(JVS(1161)) - XX(176) = (X(176)-JVS(225)*XX(34))/(JVS(1166)) - XX(177) = (X(177)-JVS(226)*XX(34))/(JVS(1171)) - XX(178) = (X(178)-JVS(227)*XX(34)-JVS(734)*XX(98))/(JVS(1182)) - XX(179) = (X(179)-JVS(334)*XX(35)-JVS(528)*XX(38)-JVS(608)*XX(64)-JVS(920)*XX(134))/(JVS(1187)) - XX(180) = (X(180)-JVS(228)*XX(34))/(JVS(1192)) - XX(181) = (X(181)-JVS(335)*XX(35)-JVS(457)*XX(36))/(JVS(1197)) - XX(182) = (X(182)-JVS(29)*XX(7)-JVS(229)*XX(34)-JVS(458)*XX(36))/(JVS(1201)) - XX(183) = (X(183)-JVS(336)*XX(35))/(JVS(1207)) - XX(184) = (X(184)-JVS(230)*XX(34)-JVS(459)*XX(36)-JVS(784)*XX(107))/(JVS(1212)) - XX(185) = (X(185)-JVS(460)*XX(36))/(JVS(1219)) - XX(186) = (X(186)-JVS(337)*XX(35)-JVS(754)*XX(103)-JVS(974)*XX(145))/(JVS(1226)) - XX(187) = (X(187)-JVS(146)*XX(24)-JVS(461)*XX(36)-JVS(1012)*XX(151)-JVS(1018)*XX(152))/(JVS(1230)) - XX(188) = X(188)/JVS(1234) - XX(189) = (X(189)-JVS(231)*XX(34)-JVS(824)*XX(116))/(JVS(1248)) - XX(190) = (X(190)-JVS(232)*XX(34))/(JVS(1256)) - XX(191) = (X(191)-JVS(338)*XX(35)-JVS(462)*XX(36)-JVS(888)*XX(129))/(JVS(1261)) - XX(192) = (X(192)-JVS(147)*XX(24)-JVS(463)*XX(36)-JVS(1013)*XX(151)-JVS(1019)*XX(152))/(JVS(1265)) - XX(193) = (X(193)-JVS(233)*XX(34))/(JVS(1269)) - XX(194) = (X(194)-JVS(30)*XX(7)-JVS(464)*XX(36)-JVS(818)*XX(115))/(JVS(1275)) - XX(195) = (X(195)-JVS(339)*XX(35))/(JVS(1282)) - XX(196) = (X(196)-JVS(234)*XX(34)-JVS(1100)*XX(165))/(JVS(1289)) - XX(197) = (X(197)-JVS(235)*XX(34)-JVS(340)*XX(35)-JVS(465)*XX(36)-JVS(872)*XX(126))/(JVS(1295)) - XX(198) = (X(198)-JVS(31)*XX(7))/(JVS(1302)) - XX(199) = (X(199)-JVS(148)*XX(24)-JVS(466)*XX(36)-JVS(880)*XX(128)-JVS(969)*XX(144))/(JVS(1308)) - XX(200) = (X(200)-JVS(341)*XX(35)-JVS(467)*XX(36)-JVS(591)*XX(58)-JVS(851)*XX(121)-JVS(984)*XX(146)-JVS(1063)*XX(158)& - &-JVS(1145)*XX(173)-JVS(1249)*XX(189))/(JVS(1312)) - XX(201) = (X(201)-JVS(342)*XX(35)-JVS(468)*XX(36)-JVS(1146)*XX(173))/(JVS(1320)) - XX(202) = (X(202)-JVS(343)*XX(35))/(JVS(1327)) - XX(203) = (X(203)-JVS(344)*XX(35))/(JVS(1337)) - XX(204) = (X(204)-JVS(345)*XX(35)-JVS(469)*XX(36))/(JVS(1354)) - XX(205) = (X(205)-JVS(236)*XX(34))/(JVS(1362)) - XX(206) = (X(206)-JVS(237)*XX(34))/(JVS(1367)) - XX(207) = (X(207)-JVS(238)*XX(34))/(JVS(1372)) - XX(208) = (X(208)-JVS(470)*XX(36))/(JVS(1379)) - XX(209) = (X(209)-JVS(149)*XX(24)-JVS(471)*XX(36)-JVS(881)*XX(128)-JVS(1005)*XX(150))/(JVS(1389)) - XX(210) = (X(210)-JVS(472)*XX(36))/(JVS(1394)) - XX(211) = (X(211)-JVS(239)*XX(34)-JVS(346)*XX(35)-JVS(1172)*XX(177))/(JVS(1404)) - XX(212) = (X(212)-JVS(240)*XX(34)-JVS(876)*XX(127))/(JVS(1411)) - XX(213) = (X(213)-JVS(32)*XX(7)-JVS(241)*XX(34)-JVS(347)*XX(35)-JVS(638)*XX(72)-JVS(814)*XX(114))/(JVS(1418)) - XX(214) = (X(214)-JVS(348)*XX(35))/(JVS(1425)) - XX(215) = (X(215)-JVS(178)*XX(31)-JVS(473)*XX(36))/(JVS(1444)) - XX(216) = (X(216)-JVS(33)*XX(7)-JVS(349)*XX(35)-JVS(474)*XX(36)-JVS(755)*XX(103))/(JVS(1458)) - XX(217) = (X(217)-JVS(242)*XX(34)-JVS(350)*XX(35))/(JVS(1470)) - XX(218) = (X(218)-JVS(351)*XX(35)-JVS(993)*XX(148)-JVS(1046)*XX(157))/(JVS(1481)) - XX(219) = (X(219)-JVS(352)*XX(35))/(JVS(1487)) - XX(220) = (X(220)-JVS(353)*XX(35)-JVS(475)*XX(36)-JVS(965)*XX(143)-JVS(1250)*XX(189)-JVS(1283)*XX(195)-JVS(1328)& - &*XX(202)-JVS(1338)*XX(203)-JVS(1355)*XX(204))/(JVS(1491)) - XX(221) = (X(221)-JVS(354)*XX(35)-JVS(476)*XX(36)-JVS(1147)*XX(173))/(JVS(1503)) - XX(222) = (X(222)-JVS(355)*XX(35)-JVS(756)*XX(103))/(JVS(1508)) - XX(223) = (X(223)-JVS(243)*XX(34)-JVS(1156)*XX(174)-JVS(1303)*XX(198)-JVS(1395)*XX(210))/(JVS(1516)) - XX(224) = (X(224)-JVS(244)*XX(34)-JVS(1157)*XX(174)-JVS(1304)*XX(198))/(JVS(1523)) - XX(225) = (X(225)-JVS(356)*XX(35)-JVS(477)*XX(36))/(JVS(1531)) - XX(226) = (X(226)-JVS(245)*XX(34)-JVS(1396)*XX(210)-JVS(1459)*XX(216))/(JVS(1541)) - XX(227) = (X(227)-JVS(478)*XX(36))/(JVS(1550)) - XX(228) = (X(228)-JVS(357)*XX(35)-JVS(538)*XX(39)-JVS(1471)*XX(217))/(JVS(1563)) - XX(229) = (X(229)-JVS(358)*XX(35))/(JVS(1570)) - XX(230) = (X(230)-JVS(479)*XX(36)-JVS(840)*XX(119)-JVS(914)*XX(133)-JVS(1132)*XX(171)-JVS(1220)*XX(185)-JVS(1276)& - &*XX(194)-JVS(1445)*XX(215)-JVS(1551)*XX(227))/(JVS(1577)) - XX(231) = (X(231)-JVS(480)*XX(36)-JVS(841)*XX(119)-JVS(931)*XX(135)-JVS(1138)*XX(172)-JVS(1221)*XX(185)-JVS(1277)& - &*XX(194)-JVS(1446)*XX(215)-JVS(1552)*XX(227))/(JVS(1583)) - XX(232) = (X(232)-JVS(246)*XX(34)-JVS(1158)*XX(174)-JVS(1305)*XX(198))/(JVS(1590)) - XX(233) = (X(233)-JVS(481)*XX(36)-JVS(791)*XX(109)-JVS(909)*XX(132)-JVS(1296)*XX(197))/(JVS(1598)) - XX(234) = (X(234)-JVS(247)*XX(34)-JVS(359)*XX(35)-JVS(630)*XX(70)-JVS(778)*XX(106)-JVS(936)*XX(136))/(JVS(1607)) - XX(235) = (X(235)-JVS(34)*XX(7)-JVS(248)*XX(34)-JVS(360)*XX(35)-JVS(634)*XX(71)-JVS(700)*XX(90)-JVS(829)*XX(117)& - &-JVS(1339)*XX(203))/(JVS(1619)) - XX(236) = (X(236)-JVS(249)*XX(34)-JVS(361)*XX(35)-JVS(830)*XX(117)-JVS(1340)*XX(203))/(JVS(1633)) - XX(237) = (X(237)-JVS(362)*XX(35)-JVS(1173)*XX(177))/(JVS(1641)) - XX(238) = (X(238)-JVS(35)*XX(7)-JVS(482)*XX(36))/(JVS(1652)) - XX(239) = (X(239)-JVS(250)*XX(34))/(JVS(1665)) - XX(240) = (X(240)-JVS(36)*XX(7)-JVS(251)*XX(34)-JVS(363)*XX(35)-JVS(856)*XX(122)-JVS(1034)*XX(155)-JVS(1148)*XX(173))& - &/(JVS(1685)) - XX(241) = (X(241)-JVS(37)*XX(7)-JVS(180)*XX(32)-JVS(252)*XX(34)-JVS(522)*XX(37)-JVS(529)*XX(38)-JVS(543)*XX(40)& - &-JVS(921)*XX(134))/(JVS(1691)) - XX(242) = (X(242)-JVS(364)*XX(35)-JVS(561)*XX(45)-JVS(1028)*XX(154))/(JVS(1700)) - XX(243) = (X(243)-JVS(253)*XX(34)-JVS(483)*XX(36)-JVS(1380)*XX(208))/(JVS(1715)) - XX(244) = X(244)/JVS(1726) - XX(245) = (X(245)-JVS(254)*XX(34))/(JVS(1740)) - XX(246) = (X(246)-JVS(38)*XX(7)-JVS(255)*XX(34)-JVS(365)*XX(35)-JVS(810)*XX(113)-JVS(1035)*XX(155)-JVS(1149)*XX(173)& - &-JVS(1608)*XX(234))/(JVS(1754)) - XX(247) = X(247)/JVS(1766) - XX(248) = (X(248)-JVS(366)*XX(35)-JVS(484)*XX(36)-JVS(757)*XX(103))/(JVS(1785)) - XX(249) = (X(249)-JVS(39)*XX(7)-JVS(256)*XX(34)-JVS(1235)*XX(188))/(JVS(1797)) - XX(250) = (X(250)-JVS(40)*XX(7)-JVS(257)*XX(34)-JVS(868)*XX(125)-JVS(1236)*XX(188)-JVS(1767)*XX(247))/(JVS(1805)) - XX(251) = (X(251)-JVS(367)*XX(35)-JVS(758)*XX(103))/(JVS(1813)) - XX(252) = (X(252)-JVS(91)*XX(9)-JVS(99)*XX(10)-JVS(368)*XX(35)-JVS(656)*XX(77)-JVS(766)*XX(104)-JVS(1125)*XX(170)& - &-JVS(1666)*XX(239))/(JVS(1820)) - XX(253) = (X(253)-JVS(258)*XX(34)-JVS(485)*XX(36)-JVS(1786)*XX(248))/(JVS(1829)) - XX(254) = (X(254)-JVS(259)*XX(34)-JVS(1381)*XX(208))/(JVS(1840)) - XX(255) = (X(255)-JVS(369)*XX(35)-JVS(486)*XX(36)-JVS(1087)*XX(163)-JVS(1174)*XX(177))/(JVS(1850)) - XX(256) = (X(256)-JVS(370)*XX(35)-JVS(562)*XX(45)-JVS(1029)*XX(154))/(JVS(1865)) - XX(257) = (X(257)-JVS(41)*XX(7)-JVS(260)*XX(34)-JVS(371)*XX(35)-JVS(585)*XX(56)-JVS(616)*XX(66)-JVS(646)*XX(74))& - &/(JVS(1885)) - XX(258) = (X(258)-JVS(487)*XX(36)-JVS(903)*XX(131)-JVS(1022)*XX(153)-JVS(1382)*XX(208)-JVS(1553)*XX(227))/(JVS(1900)) - XX(259) = (X(259)-JVS(42)*XX(7)-JVS(261)*XX(34)-JVS(488)*XX(36)-JVS(1067)*XX(159)-JVS(1213)*XX(184))/(JVS(1912)) - XX(260) = (X(260)-JVS(43)*XX(7)-JVS(262)*XX(34)-JVS(860)*XX(123)-JVS(1237)*XX(188))/(JVS(1921)) - XX(261) = (X(261)-JVS(44)*XX(7)-JVS(372)*XX(35)-JVS(489)*XX(36))/(JVS(1934)) - XX(262) = (X(262)-JVS(373)*XX(35))/(JVS(1950)) - XX(263) = (X(263)-JVS(45)*XX(7)-JVS(263)*XX(34)-JVS(374)*XX(35))/(JVS(1980)) - XX(264) = (X(264)-JVS(375)*XX(35)-JVS(530)*XX(38)-JVS(922)*XX(134))/(JVS(1994)) - XX(265) = (X(265)-JVS(46)*XX(7))/(JVS(2020)) - XX(266) = (X(266)-JVS(376)*XX(35)-JVS(490)*XX(36)-JVS(759)*XX(103))/(JVS(2047)) - XX(267) = (X(267)-JVS(377)*XX(35)-JVS(491)*XX(36)-JVS(760)*XX(103)-JVS(882)*XX(128)-JVS(1373)*XX(207)-JVS(1447)& - &*XX(215)-JVS(1653)*XX(238)-JVS(1716)*XX(243)-JVS(1901)*XX(258)-JVS(1935)*XX(261)-JVS(2048)*XX(266))& - &/(JVS(2060)) - XX(268) = (X(268)-JVS(378)*XX(35)-JVS(492)*XX(36)-JVS(761)*XX(103)-JVS(883)*XX(128)-JVS(1368)*XX(206)-JVS(1448)& - &*XX(215)-JVS(1460)*XX(216)-JVS(1654)*XX(238)-JVS(1717)*XX(243)-JVS(1768)*XX(247)-JVS(1902)*XX(258)-JVS(2049)& - &*XX(266))/(JVS(2066)) - XX(269) = (X(269)-JVS(10)*XX(5)-JVS(47)*XX(7)-JVS(264)*XX(34)-JVS(493)*XX(36)-JVS(1504)*XX(221)-JVS(1667)*XX(239)& - &-JVS(2021)*XX(265))/(JVS(2081)) - XX(270) = (X(270)-JVS(171)*XX(30)-JVS(379)*XX(35)-JVS(494)*XX(36))/(JVS(2113)) - XX(271) = (X(271)-JVS(265)*XX(34)-JVS(1397)*XX(210)-JVS(1461)*XX(216)-JVS(1727)*XX(244)-JVS(1769)*XX(247)-JVS(1936)& - &*XX(261)-JVS(2050)*XX(266)-JVS(2114)*XX(270))/(JVS(2135)) - XX(272) = (X(272)-JVS(266)*XX(34)-JVS(380)*XX(35)-JVS(1088)*XX(163)-JVS(1118)*XX(169)-JVS(1175)*XX(177)-JVS(1866)& - &*XX(256))/(JVS(2144)) - XX(273) = (X(273)-JVS(267)*XX(34)-JVS(381)*XX(35)-JVS(1076)*XX(161)-JVS(1082)*XX(162)-JVS(1867)*XX(256))/(JVS(2157)) - XX(274) = (X(274)-JVS(48)*XX(7)-JVS(268)*XX(34)-JVS(382)*XX(35)-JVS(588)*XX(57)-JVS(898)*XX(130)-JVS(1119)*XX(169))& - &/(JVS(2178)) - XX(275) = (X(275)-JVS(49)*XX(7)-JVS(269)*XX(34)-JVS(383)*XX(35)-JVS(806)*XX(112)-JVS(889)*XX(129)-JVS(945)*XX(138)& - &-JVS(1083)*XX(162)-JVS(1868)*XX(256)-JVS(1981)*XX(263)-JVS(2158)*XX(273)-JVS(2179)*XX(274))/(JVS(2192)) - XX(276) = (X(276)-JVS(50)*XX(7)-JVS(114)*XX(14)-JVS(117)*XX(15)-JVS(384)*XX(35)-JVS(495)*XX(36)-JVS(544)*XX(40)& - &-JVS(970)*XX(144)-JVS(1006)*XX(150)-JVS(1398)*XX(210)-JVS(1449)*XX(215)-JVS(1578)*XX(230)-JVS(1584)*XX(231)& - &-JVS(1728)*XX(244)-JVS(1787)*XX(248)-JVS(1830)*XX(253)-JVS(1841)*XX(254)-JVS(1995)*XX(264)-JVS(2022)*XX(265)& - &-JVS(2115)*XX(270))/(JVS(2200)) - XX(277) = (X(277)-JVS(51)*XX(7)-JVS(270)*XX(34)-JVS(385)*XX(35)-JVS(802)*XX(111)-JVS(941)*XX(137)-JVS(1167)*XX(176)& - &-JVS(1532)*XX(225)-JVS(1869)*XX(256)-JVS(1886)*XX(257)-JVS(1982)*XX(263))/(JVS(2208)) - XX(278) = (X(278)-JVS(271)*XX(34)-JVS(386)*XX(35)-JVS(1071)*XX(160)-JVS(1168)*XX(176)-JVS(1870)*XX(256)-JVS(1983)& - &*XX(263))/(JVS(2222)) - XX(279) = (X(279)-JVS(1798)*XX(249))/(JVS(2232)) - XX(280) = (X(280)-JVS(52)*XX(7)-JVS(272)*XX(34)-JVS(387)*XX(35)-JVS(1701)*XX(242)-JVS(1871)*XX(256))/(JVS(2246)) - XX(281) = (X(281)-JVS(53)*XX(7)-JVS(273)*XX(34)-JVS(388)*XX(35)-JVS(1405)*XX(211)-JVS(1642)*XX(237)-JVS(1851)*XX(255)& - &-JVS(1872)*XX(256)-JVS(1984)*XX(263)-JVS(2145)*XX(272)-JVS(2180)*XX(274))/(JVS(2259)) - XX(282) = X(282)/JVS(2279) - XX(283) = (X(283)-JVS(54)*XX(7))/(JVS(2314)) - XX(284) = (X(284)-JVS(389)*XX(35)-JVS(558)*XX(44)-JVS(583)*XX(55)-JVS(726)*XX(96)-JVS(767)*XX(104)-JVS(845)*XX(120))& - &/(JVS(2343)) - XX(285) = (X(285)-JVS(274)*XX(34)-JVS(496)*XX(36)-JVS(989)*XX(147)-JVS(1023)*XX(153)-JVS(1222)*XX(185)-JVS(1383)& - &*XX(208)-JVS(1554)*XX(227)-JVS(1903)*XX(258)-JVS(2051)*XX(266)-JVS(2116)*XX(270))/(JVS(2364)) - XX(286) = (X(286)-JVS(275)*XX(34)-JVS(497)*XX(36)-JVS(904)*XX(131)-JVS(990)*XX(147)-JVS(1223)*XX(185)-JVS(1384)& - &*XX(208)-JVS(1555)*XX(227)-JVS(1904)*XX(258)-JVS(2052)*XX(266)-JVS(2117)*XX(270)-JVS(2365)*XX(285))& - &/(JVS(2385)) - XX(287) = (X(287)-JVS(55)*XX(7)-JVS(498)*XX(36)-JVS(1729)*XX(244))/(JVS(2412)) - XX(288) = (X(288)-JVS(1385)*XX(208)-JVS(1556)*XX(227)-JVS(2118)*XX(270))/(JVS(2445)) - XX(289) = (X(289)-JVS(276)*XX(34)-JVS(390)*XX(35)-JVS(1150)*XX(173)-JVS(1238)*XX(188)-JVS(1702)*XX(242)-JVS(1873)& - &*XX(256)-JVS(2247)*XX(280)-JVS(2280)*XX(282))/(JVS(2465)) - XX(290) = (X(290)-JVS(56)*XX(7)-JVS(391)*XX(35)-JVS(499)*XX(36)-JVS(1564)*XX(228)-JVS(1692)*XX(241)-JVS(1806)*XX(250)& - &-JVS(1922)*XX(260)-JVS(1996)*XX(264)-JVS(2281)*XX(282)-JVS(2315)*XX(283))/(JVS(2474)) - XX(291) = (X(291)-JVS(57)*XX(7)-JVS(277)*XX(34)-JVS(392)*XX(35)-JVS(1270)*XX(193)-JVS(1571)*XX(229)-JVS(1703)*XX(242)& - &-JVS(1951)*XX(262)-JVS(1985)*XX(263)-JVS(2248)*XX(280)-JVS(2282)*XX(282)-JVS(2316)*XX(283)-JVS(2466)*XX(289))& - &/(JVS(2482)) - XX(292) = (X(292)-JVS(393)*XX(35))/(JVS(2507)) - XX(293) = (X(293)-JVS(278)*XX(34)-JVS(1462)*XX(216)-JVS(1770)*XX(247)-JVS(1937)*XX(261))/(JVS(2523)) - XX(294) = (X(294)-JVS(172)*XX(30)-JVS(394)*XX(35)-JVS(500)*XX(36))/(JVS(2572)) - XX(295) = (X(295)-JVS(501)*XX(36))/(JVS(2613)) - XX(296) = (X(296)-JVS(58)*XX(7)-JVS(279)*XX(34)-JVS(676)*XX(83)-JVS(835)*XX(118)-JVS(1040)*XX(156)-JVS(2283)*XX(282)& - &-JVS(2317)*XX(283))/(JVS(2639)) - XX(297) = (X(297)-JVS(280)*XX(34)-JVS(395)*XX(35)-JVS(1047)*XX(157)-JVS(1668)*XX(239)-JVS(1741)*XX(245))/(JVS(2653)) - XX(298) = (X(298)-JVS(396)*XX(35)-JVS(502)*XX(36))/(JVS(2699)) - XX(299) = (X(299)-JVS(397)*XX(35)-JVS(762)*XX(103)-JVS(975)*XX(145)-JVS(1193)*XX(180)-JVS(1771)*XX(247)-JVS(1938)& - &*XX(261)-JVS(2524)*XX(293)-JVS(2573)*XX(294))/(JVS(2727)) - XX(300) = (X(300)-JVS(59)*XX(7)-JVS(281)*XX(34)-JVS(748)*XX(102)-JVS(1239)*XX(188)-JVS(2233)*XX(279)-JVS(2284)*XX(282)& - &-JVS(2318)*XX(283)-JVS(2508)*XX(292)-JVS(2614)*XX(295)-JVS(2700)*XX(298))/(JVS(2742)) - XX(301) = (X(301)-JVS(503)*XX(36)-JVS(842)*XX(119)-JVS(1133)*XX(171)-JVS(1139)*XX(172)-JVS(1202)*XX(182)-JVS(1224)& - &*XX(185)-JVS(1278)*XX(194)-JVS(1450)*XX(215)-JVS(1463)*XX(216)-JVS(1557)*XX(227)-JVS(1772)*XX(247)-JVS(1788)& - &*XX(248)-JVS(1831)*XX(253)-JVS(1842)*XX(254)-JVS(1939)*XX(261)-JVS(2023)*XX(265)-JVS(2119)*XX(270)-JVS(2413)& - &*XX(287)-JVS(2446)*XX(288)-JVS(2574)*XX(294))/(JVS(2756)) - XX(302) = (X(302)-JVS(282)*XX(34)-JVS(398)*XX(35)-JVS(763)*XX(103)-JVS(819)*XX(115)-JVS(1558)*XX(227)-JVS(1940)& - &*XX(261)-JVS(2024)*XX(265)-JVS(2120)*XX(270)-JVS(2575)*XX(294))/(JVS(2780)) - XX(303) = (X(303)-JVS(399)*XX(35)-JVS(764)*XX(103)-JVS(1203)*XX(182)-JVS(1279)*XX(194)-JVS(1399)*XX(210)-JVS(1559)& - &*XX(227)-JVS(1730)*XX(244)-JVS(1773)*XX(247)-JVS(1789)*XX(248)-JVS(1941)*XX(261)-JVS(2025)*XX(265)-JVS(2053)& - &*XX(266)-JVS(2121)*XX(270)-JVS(2414)*XX(287)-JVS(2447)*XX(288)-JVS(2525)*XX(293)-JVS(2576)*XX(294)-JVS(2728)& - &*XX(299)-JVS(2757)*XX(301)-JVS(2781)*XX(302))/(JVS(2811)) - XX(304) = (X(304)-JVS(283)*XX(34)-JVS(504)*XX(36)-JVS(971)*XX(144)-JVS(1114)*XX(168)-JVS(1257)*XX(190)-JVS(1266)& - &*XX(192)-JVS(1309)*XX(199)-JVS(1451)*XX(215)-JVS(1524)*XX(224)-JVS(1585)*XX(231)-JVS(1591)*XX(232)-JVS(1655)& - &*XX(238)-JVS(1718)*XX(243)-JVS(1731)*XX(244)-JVS(1790)*XX(248)-JVS(1832)*XX(253)-JVS(1905)*XX(258)-JVS(2026)& - &*XX(265)-JVS(2054)*XX(266)-JVS(2067)*XX(268)-JVS(2122)*XX(270)-JVS(2366)*XX(285)-JVS(2386)*XX(286)-JVS(2415)& - &*XX(287)-JVS(2448)*XX(288)-JVS(2577)*XX(294)-JVS(2729)*XX(299)-JVS(2758)*XX(301)-JVS(2782)*XX(302)-JVS(2812)& - &*XX(303))/(JVS(2826)) - XX(305) = (X(305)-JVS(284)*XX(34)-JVS(505)*XX(36)-JVS(1007)*XX(150)-JVS(1162)*XX(175)-JVS(1231)*XX(187)-JVS(1363)& - &*XX(205)-JVS(1390)*XX(209)-JVS(1400)*XX(210)-JVS(1452)*XX(215)-JVS(1517)*XX(223)-JVS(1579)*XX(230)-JVS(1592)& - &*XX(232)-JVS(1656)*XX(238)-JVS(1719)*XX(243)-JVS(1791)*XX(248)-JVS(1843)*XX(254)-JVS(1906)*XX(258)-JVS(2027)& - &*XX(265)-JVS(2055)*XX(266)-JVS(2061)*XX(267)-JVS(2123)*XX(270)-JVS(2367)*XX(285)-JVS(2387)*XX(286)-JVS(2416)& - &*XX(287)-JVS(2449)*XX(288)-JVS(2578)*XX(294)-JVS(2730)*XX(299)-JVS(2759)*XX(301)-JVS(2783)*XX(302)-JVS(2813)& - &*XX(303)-JVS(2827)*XX(304))/(JVS(2841)) - XX(306) = (X(306)-JVS(60)*XX(7)-JVS(400)*XX(35)-JVS(506)*XX(36)-JVS(1419)*XX(213)-JVS(2028)*XX(265)-JVS(2124)*XX(270)& - &-JVS(2285)*XX(282))/(JVS(2894)) - XX(307) = (X(307)-JVS(61)*XX(7)-JVS(507)*XX(36)-JVS(2029)*XX(265)-JVS(2319)*XX(283)-JVS(2579)*XX(294))/(JVS(2954)) - XX(308) = (X(308)-JVS(62)*XX(7)-JVS(285)*XX(34)-JVS(401)*XX(35)-JVS(1214)*XX(184)-JVS(1464)*XX(216)-JVS(1774)*XX(247)& - &-JVS(1792)*XX(248)-JVS(1913)*XX(259)-JVS(2030)*XX(265)-JVS(2580)*XX(294)-JVS(2955)*XX(307))/(JVS(2978)) - XX(309) = (X(309)-JVS(402)*XX(35)-JVS(508)*XX(36)-JVS(1732)*XX(244)-JVS(1775)*XX(247)-JVS(1833)*XX(253)-JVS(1914)& - &*XX(259)-JVS(2031)*XX(265)-JVS(2417)*XX(287)-JVS(2581)*XX(294)-JVS(2956)*XX(307)-JVS(2979)*XX(308))& - &/(JVS(3003)) - XX(310) = (X(310)-JVS(63)*XX(7)-JVS(286)*XX(34)-JVS(403)*XX(35)-JVS(976)*XX(145)-JVS(1509)*XX(222)-JVS(2068)*XX(268)& - &-JVS(2125)*XX(270)-JVS(2136)*XX(271)-JVS(2286)*XX(282)-JVS(2368)*XX(285)-JVS(2388)*XX(286)-JVS(2418)*XX(287)& - &-JVS(2450)*XX(288)-JVS(2526)*XX(293)-JVS(2582)*XX(294)-JVS(2731)*XX(299)-JVS(2760)*XX(301)-JVS(2784)*XX(302)& - &-JVS(2814)*XX(303)-JVS(2895)*XX(306)-JVS(2957)*XX(307)-JVS(2980)*XX(308)-JVS(3004)*XX(309))/(JVS(3016)) - XX(311) = (X(311)-JVS(64)*XX(7)-JVS(287)*XX(34)-JVS(404)*XX(35)-JVS(977)*XX(145)-JVS(1227)*XX(186)-JVS(1453)*XX(215)& - &-JVS(1510)*XX(222)-JVS(1542)*XX(226)-JVS(1733)*XX(244)-JVS(1776)*XX(247)-JVS(1942)*XX(261)-JVS(2056)*XX(266)& - &-JVS(2062)*XX(267)-JVS(2069)*XX(268)-JVS(2126)*XX(270)-JVS(2137)*XX(271)-JVS(2287)*XX(282)-JVS(2369)*XX(285)& - &-JVS(2389)*XX(286)-JVS(2419)*XX(287)-JVS(2451)*XX(288)-JVS(2527)*XX(293)-JVS(2583)*XX(294)-JVS(2732)*XX(299)& - &-JVS(2761)*XX(301)-JVS(2785)*XX(302)-JVS(2815)*XX(303)-JVS(2828)*XX(304)-JVS(2842)*XX(305)-JVS(2896)*XX(306)& - &-JVS(2958)*XX(307)-JVS(2981)*XX(308)-JVS(3005)*XX(309)-JVS(3017)*XX(310))/(JVS(3029)) - XX(312) = (X(312)-JVS(65)*XX(7)-JVS(181)*XX(32)-JVS(288)*XX(34)-JVS(405)*XX(35)-JVS(523)*XX(37)-JVS(531)*XX(38)& - &-JVS(545)*XX(40)-JVS(692)*XX(88)-JVS(923)*XX(134)-JVS(1997)*XX(264)-JVS(2032)*XX(265))/(JVS(3049)) - XX(313) = (X(313)-JVS(66)*XX(7)-JVS(289)*XX(34)-JVS(1734)*XX(244)-JVS(2288)*XX(282)-JVS(2320)*XX(283)-JVS(2584)& - &*XX(294)-JVS(2959)*XX(307))/(JVS(3077)) - XX(314) = (X(314)-JVS(406)*XX(35)-JVS(509)*XX(36)-JVS(546)*XX(40)-JVS(820)*XX(115)-JVS(1844)*XX(254)-JVS(1998)*XX(264)& - &-JVS(2452)*XX(288)-JVS(2475)*XX(290)-JVS(2585)*XX(294)-JVS(2701)*XX(298)-JVS(2786)*XX(302)-JVS(2897)*XX(306)& - &-JVS(2960)*XX(307)-JVS(3050)*XX(312))/(JVS(3112)) - XX(315) = (X(315)-JVS(67)*XX(7)-JVS(290)*XX(34)-JVS(836)*XX(118)-JVS(1041)*XX(156)-JVS(2289)*XX(282)-JVS(2321)& - &*XX(283))/(JVS(3129)) - XX(316) = (X(316)-JVS(407)*XX(35)-JVS(532)*XX(38)-JVS(924)*XX(134)-JVS(994)*XX(148)-JVS(1048)*XX(157))/(JVS(3148)) - XX(317) = (X(317)-JVS(291)*XX(34)-JVS(408)*XX(35)-JVS(1049)*XX(157)-JVS(1742)*XX(245))/(JVS(3164)) - XX(318) = (X(318)-JVS(68)*XX(7)-JVS(292)*XX(34)-JVS(1240)*XX(188)-JVS(1814)*XX(251)-JVS(2290)*XX(282)-JVS(2322)& - &*XX(283)-JVS(2509)*XX(292)-JVS(2615)*XX(295)-JVS(2702)*XX(298)-JVS(3078)*XX(313)-JVS(3130)*XX(315))& - &/(JVS(3179)) - XX(319) = (X(319)-JVS(69)*XX(7)-JVS(293)*XX(34)-JVS(730)*XX(97)-JVS(1241)*XX(188)-JVS(1815)*XX(251)-JVS(2291)*XX(282)& - &-JVS(2323)*XX(283)-JVS(2510)*XX(292)-JVS(2616)*XX(295)-JVS(2703)*XX(298)-JVS(3079)*XX(313)-JVS(3131)*XX(315)& - &-JVS(3180)*XX(318))/(JVS(3206)) - XX(320) = (X(320)-JVS(70)*XX(7)-JVS(294)*XX(34)-JVS(1242)*XX(188)-JVS(1735)*XX(244)-JVS(1755)*XX(246)-JVS(1816)& - &*XX(251)-JVS(2234)*XX(279)-JVS(2292)*XX(282)-JVS(2324)*XX(283)-JVS(2511)*XX(292)-JVS(2586)*XX(294)-JVS(2617)& - &*XX(295)-JVS(2640)*XX(296)-JVS(2704)*XX(298)-JVS(2898)*XX(306)-JVS(3080)*XX(313)-JVS(3132)*XX(315)-JVS(3181)& - &*XX(318)-JVS(3207)*XX(319))/(JVS(3222)) - XX(321) = (X(321)-JVS(71)*XX(7)-JVS(295)*XX(34)-JVS(719)*XX(95)-JVS(738)*XX(99)-JVS(1243)*XX(188)-JVS(2293)*XX(282)& - &-JVS(2325)*XX(283)-JVS(2705)*XX(298)-JVS(3133)*XX(315))/(JVS(3243)) - XX(322) = (X(322)-JVS(72)*XX(7)-JVS(296)*XX(34)-JVS(864)*XX(124)-JVS(1036)*XX(155)-JVS(1151)*XX(173)-JVS(2641)*XX(296)& - &-JVS(3134)*XX(315)-JVS(3244)*XX(321))/(JVS(3276)) - XX(323) = (X(323)-JVS(73)*XX(7)-JVS(297)*XX(34)-JVS(704)*XX(91)-JVS(742)*XX(100)-JVS(1244)*XX(188)-JVS(2294)*XX(282)& - &-JVS(2326)*XX(283)-JVS(2618)*XX(295)-JVS(2706)*XX(298)-JVS(3081)*XX(313)-JVS(3135)*XX(315)-JVS(3245)*XX(321)& - &-JVS(3277)*XX(322))/(JVS(3301)) - XX(324) = (X(324)-JVS(74)*XX(7)-JVS(298)*XX(34)-JVS(708)*XX(92)-JVS(890)*XX(129)-JVS(949)*XX(139)-JVS(978)*XX(145)& - &-JVS(1152)*XX(173)-JVS(1533)*XX(225)-JVS(1643)*XX(237)-JVS(1704)*XX(242)-JVS(1799)*XX(249)-JVS(1807)*XX(250)& - &-JVS(1852)*XX(255)-JVS(1874)*XX(256)-JVS(1887)*XX(257)-JVS(1923)*XX(260)-JVS(1952)*XX(262)-JVS(1986)*XX(263)& - &-JVS(2146)*XX(272)-JVS(2159)*XX(273)-JVS(2181)*XX(274)-JVS(2193)*XX(275)-JVS(2209)*XX(277)-JVS(2223)*XX(278)& - &-JVS(2235)*XX(279)-JVS(2249)*XX(280)-JVS(2260)*XX(281)-JVS(2295)*XX(282)-JVS(2327)*XX(283)-JVS(2467)*XX(289)& - &-JVS(2483)*XX(291)-JVS(2512)*XX(292)-JVS(2528)*XX(293)-JVS(2587)*XX(294)-JVS(2619)*XX(295)-JVS(2642)*XX(296)& - &-JVS(2707)*XX(298)-JVS(2733)*XX(299)-JVS(2743)*XX(300)-JVS(2762)*XX(301)-JVS(2787)*XX(302)-JVS(2816)*XX(303)& - &-JVS(2899)*XX(306)-JVS(2961)*XX(307)-JVS(2982)*XX(308)-JVS(3006)*XX(309)-JVS(3018)*XX(310)-JVS(3030)*XX(311)& - &-JVS(3051)*XX(312)-JVS(3082)*XX(313)-JVS(3113)*XX(314)-JVS(3136)*XX(315)-JVS(3182)*XX(318)-JVS(3208)*XX(319)& - &-JVS(3223)*XX(320)-JVS(3246)*XX(321)-JVS(3278)*XX(322)-JVS(3302)*XX(323))/(JVS(3389)) - XX(325) = (X(325)-JVS(409)*XX(35)-JVS(510)*XX(36)-JVS(696)*XX(89)-JVS(925)*XX(134)-JVS(1472)*XX(217))/(JVS(3527)) - XX(326) = (X(326)-JVS(410)*XX(35)-JVS(511)*XX(36)-JVS(1565)*XX(228)-JVS(3390)*XX(324)-JVS(3528)*XX(325))/(JVS(3573)) - XX(327) = (X(327)-JVS(299)*XX(34)-JVS(609)*XX(64)-JVS(613)*XX(65)-JVS(1105)*XX(166)-JVS(1188)*XX(179)-JVS(1669)& - &*XX(239))/(JVS(3665)) - XX(328) = (X(328)-JVS(75)*XX(7)-JVS(300)*XX(34)-JVS(411)*XX(35)-JVS(512)*XX(36)-JVS(617)*XX(66)-JVS(668)*XX(80)& - &-JVS(712)*XX(93)-JVS(779)*XX(106)-JVS(796)*XX(110)-JVS(891)*XX(129)-JVS(899)*XX(130)-JVS(937)*XX(136)& - &-JVS(979)*XX(145)-JVS(1042)*XX(156)-JVS(1072)*XX(160)-JVS(1077)*XX(161)-JVS(1089)*XX(163)-JVS(1095)*XX(164)& - &-JVS(1120)*XX(169)-JVS(1245)*XX(188)-JVS(1341)*XX(203)-JVS(1465)*XX(216)-JVS(1511)*XX(222)-JVS(1534)*XX(225)& - &-JVS(1609)*XX(234)-JVS(1620)*XX(235)-JVS(1634)*XX(236)-JVS(1644)*XX(237)-JVS(1657)*XX(238)-JVS(1705)*XX(242)& - &-JVS(1743)*XX(245)-JVS(1777)*XX(247)-JVS(1800)*XX(249)-JVS(1808)*XX(250)-JVS(1853)*XX(255)-JVS(1875)*XX(256)& - &-JVS(1888)*XX(257)-JVS(1924)*XX(260)-JVS(1953)*XX(262)-JVS(1987)*XX(263)-JVS(2063)*XX(267)-JVS(2070)*XX(268)& - &-JVS(2082)*XX(269)-JVS(2127)*XX(270)-JVS(2138)*XX(271)-JVS(2147)*XX(272)-JVS(2160)*XX(273)-JVS(2182)*XX(274)& - &-JVS(2194)*XX(275)-JVS(2210)*XX(277)-JVS(2224)*XX(278)-JVS(2236)*XX(279)-JVS(2250)*XX(280)-JVS(2261)*XX(281)& - &-JVS(2296)*XX(282)-JVS(2328)*XX(283)-JVS(2370)*XX(285)-JVS(2390)*XX(286)-JVS(2420)*XX(287)-JVS(2453)*XX(288)& - &-JVS(2468)*XX(289)-JVS(2484)*XX(291)-JVS(2513)*XX(292)-JVS(2529)*XX(293)-JVS(2588)*XX(294)-JVS(2620)*XX(295)& - &-JVS(2643)*XX(296)-JVS(2708)*XX(298)-JVS(2734)*XX(299)-JVS(2744)*XX(300)-JVS(2763)*XX(301)-JVS(2788)*XX(302)& - &-JVS(2817)*XX(303)-JVS(2829)*XX(304)-JVS(2843)*XX(305)-JVS(2900)*XX(306)-JVS(2962)*XX(307)-JVS(2983)*XX(308)& - &-JVS(3007)*XX(309)-JVS(3019)*XX(310)-JVS(3031)*XX(311)-JVS(3052)*XX(312)-JVS(3083)*XX(313)-JVS(3114)*XX(314)& - &-JVS(3137)*XX(315)-JVS(3183)*XX(318)-JVS(3209)*XX(319)-JVS(3224)*XX(320)-JVS(3247)*XX(321)-JVS(3279)*XX(322)& - &-JVS(3303)*XX(323)-JVS(3391)*XX(324)-JVS(3529)*XX(325)-JVS(3574)*XX(326)-JVS(3666)*XX(327))/(JVS(3748)) - XX(329) = (X(329)-JVS(76)*XX(7)-JVS(524)*XX(37)-JVS(1693)*XX(241)-JVS(1999)*XX(264)-JVS(2329)*XX(283)-JVS(3053)& - &*XX(312)-JVS(3530)*XX(325)-JVS(3575)*XX(326)-JVS(3667)*XX(327)-JVS(3749)*XX(328))/(JVS(3871)) - XX(330) = (X(330)-JVS(92)*XX(9)-JVS(100)*XX(10)-JVS(412)*XX(35)-JVS(657)*XX(77)-JVS(768)*XX(104)-JVS(2344)*XX(284))& - &/(JVS(3888)) - XX(331) = (X(331)-JVS(601)*XX(62)-JVS(642)*XX(73)-JVS(1126)*XX(170)-JVS(1821)*XX(252)-JVS(2345)*XX(284)-JVS(3889)& - &*XX(330))/(JVS(3918)) - XX(332) = (X(332)-JVS(93)*XX(9)-JVS(101)*XX(10)-JVS(413)*XX(35)-JVS(658)*XX(77)-JVS(769)*XX(104)-JVS(1127)*XX(170)& - &-JVS(2346)*XX(284)-JVS(3668)*XX(327)-JVS(3890)*XX(330)-JVS(3919)*XX(331))/(JVS(3938)) - XX(333) = (X(333)-JVS(414)*XX(35)-JVS(533)*XX(38)-JVS(926)*XX(134)-JVS(1050)*XX(157)-JVS(1744)*XX(245))/(JVS(3963)) - XX(334) = (X(334)-JVS(415)*XX(35)-JVS(539)*XX(39)-JVS(564)*XX(46)-JVS(566)*XX(47)-JVS(568)*XX(48)-JVS(570)*XX(49)& - &-JVS(572)*XX(50)-JVS(574)*XX(51)-JVS(578)*XX(53)-JVS(580)*XX(54)-JVS(599)*XX(61)-JVS(605)*XX(63)-JVS(662)& - &*XX(78)-JVS(671)*XX(81)-JVS(680)*XX(84)-JVS(683)*XX(85)-JVS(686)*XX(86)-JVS(689)*XX(87)-JVS(774)*XX(105)& - &-JVS(1198)*XX(181)-JVS(1473)*XX(217)-JVS(1566)*XX(228)-JVS(1745)*XX(245)-JVS(3531)*XX(325)-JVS(3669)*XX(327)& - &-JVS(3750)*XX(328)-JVS(3872)*XX(329)-JVS(3964)*XX(333))/(JVS(4014)) - XX(335) = (X(335)-JVS(301)*XX(34)-JVS(416)*XX(35)-JVS(586)*XX(56)-JVS(589)*XX(57)-JVS(594)*XX(59)-JVS(606)*XX(63)& - &-JVS(621)*XX(67)-JVS(669)*XX(80)-JVS(701)*XX(90)-JVS(787)*XX(108)-JVS(811)*XX(113)-JVS(815)*XX(114)-JVS(831)& - &*XX(117)-JVS(857)*XX(122)-JVS(865)*XX(124)-JVS(873)*XX(126)-JVS(950)*XX(139)-JVS(1134)*XX(171)-JVS(1140)& - &*XX(172)-JVS(1215)*XX(184)-JVS(1297)*XX(197)-JVS(1342)*XX(203)-JVS(1420)*XX(213)-JVS(1426)*XX(214)-JVS(1482)& - &*XX(218)-JVS(1621)*XX(235)-JVS(1635)*XX(236)-JVS(1670)*XX(239)-JVS(1686)*XX(240)-JVS(1694)*XX(241)-JVS(1756)& - &*XX(246)-JVS(1793)*XX(248)-JVS(1822)*XX(252)-JVS(1834)*XX(253)-JVS(1845)*XX(254)-JVS(1889)*XX(257)-JVS(1915)& - &*XX(259)-JVS(2000)*XX(264)-JVS(2033)*XX(265)-JVS(2083)*XX(269)-JVS(2128)*XX(270)-JVS(2183)*XX(274)-JVS(2225)& - &*XX(278)-JVS(2297)*XX(282)-JVS(2330)*XX(283)-JVS(2347)*XX(284)-JVS(2421)*XX(287)-JVS(2454)*XX(288)-JVS(2514)& - &*XX(292)-JVS(2589)*XX(294)-JVS(2621)*XX(295)-JVS(2644)*XX(296)-JVS(2654)*XX(297)-JVS(2709)*XX(298)-JVS(2789)& - &*XX(302)-JVS(2901)*XX(306)-JVS(2963)*XX(307)-JVS(2984)*XX(308)-JVS(3054)*XX(312)-JVS(3084)*XX(313)-JVS(3138)& - &*XX(315)-JVS(3149)*XX(316)-JVS(3165)*XX(317)-JVS(3184)*XX(318)-JVS(3210)*XX(319)-JVS(3225)*XX(320)-JVS(3248)& - &*XX(321)-JVS(3280)*XX(322)-JVS(3304)*XX(323)-JVS(3392)*XX(324)-JVS(3532)*XX(325)-JVS(3576)*XX(326)-JVS(3670)& - &*XX(327)-JVS(3751)*XX(328)-JVS(3873)*XX(329)-JVS(3891)*XX(330)-JVS(3920)*XX(331)-JVS(3939)*XX(332)-JVS(3965)& - &*XX(333)-JVS(4015)*XX(334))/(JVS(4189)) - XX(336) = (X(336)-JVS(417)*XX(35)-JVS(547)*XX(40)-JVS(693)*XX(88)-JVS(1427)*XX(214)-JVS(1483)*XX(218)-JVS(1695)& - &*XX(241)-JVS(2001)*XX(264)-JVS(2034)*XX(265)-JVS(2331)*XX(283)-JVS(2655)*XX(297)-JVS(3055)*XX(312)-JVS(3150)& - &*XX(316)-JVS(3166)*XX(317)-JVS(3533)*XX(325)-JVS(3577)*XX(326)-JVS(3671)*XX(327)-JVS(3752)*XX(328)-JVS(3874)& - &*XX(329)-JVS(3892)*XX(330)-JVS(3921)*XX(331)-JVS(3940)*XX(332)-JVS(3966)*XX(333)-JVS(4016)*XX(334)-JVS(4190)& - &*XX(335))/(JVS(4291)) - XX(337) = (X(337)-JVS(77)*XX(7)-JVS(104)*XX(11)-JVS(110)*XX(13)-JVS(121)*XX(16)-JVS(127)*XX(18)-JVS(134)*XX(20)& - &-JVS(140)*XX(22)-JVS(153)*XX(25)-JVS(159)*XX(27)-JVS(302)*XX(34)-JVS(418)*XX(35)-JVS(513)*XX(36)-JVS(548)& - &*XX(40)-JVS(618)*XX(66)-JVS(635)*XX(71)-JVS(639)*XX(72)-JVS(643)*XX(73)-JVS(647)*XX(74)-JVS(709)*XX(92)& - &-JVS(731)*XX(97)-JVS(735)*XX(98)-JVS(739)*XX(99)-JVS(743)*XX(100)-JVS(749)*XX(102)-JVS(788)*XX(108)-JVS(803)& - &*XX(111)-JVS(807)*XX(112)-JVS(832)*XX(117)-JVS(837)*XX(118)-JVS(852)*XX(121)-JVS(861)*XX(123)-JVS(869)& - &*XX(125)-JVS(892)*XX(129)-JVS(900)*XX(130)-JVS(905)*XX(131)-JVS(910)*XX(132)-JVS(915)*XX(133)-JVS(932)& - &*XX(135)-JVS(938)*XX(136)-JVS(985)*XX(146)-JVS(1024)*XX(153)-JVS(1037)*XX(155)-JVS(1068)*XX(159)-JVS(1073)& - &*XX(160)-JVS(1078)*XX(161)-JVS(1096)*XX(164)-JVS(1101)*XX(165)-JVS(1121)*XX(169)-JVS(1135)*XX(171)-JVS(1141)& - &*XX(172)-JVS(1153)*XX(173)-JVS(1159)*XX(174)-JVS(1183)*XX(178)-JVS(1194)*XX(180)-JVS(1204)*XX(182)-JVS(1228)& - &*XX(186)-JVS(1232)*XX(187)-JVS(1251)*XX(189)-JVS(1258)*XX(190)-JVS(1267)*XX(192)-JVS(1290)*XX(196)-JVS(1298)& - &*XX(197)-JVS(1306)*XX(198)-JVS(1310)*XX(199)-JVS(1343)*XX(203)-JVS(1356)*XX(204)-JVS(1364)*XX(205)-JVS(1369)& - &*XX(206)-JVS(1374)*XX(207)-JVS(1386)*XX(208)-JVS(1391)*XX(209)-JVS(1401)*XX(210)-JVS(1412)*XX(212)-JVS(1421)& - &*XX(213)-JVS(1454)*XX(215)-JVS(1466)*XX(216)-JVS(1474)*XX(217)-JVS(1512)*XX(222)-JVS(1518)*XX(223)-JVS(1525)& - &*XX(224)-JVS(1535)*XX(225)-JVS(1543)*XX(226)-JVS(1560)*XX(227)-JVS(1572)*XX(229)-JVS(1580)*XX(230)-JVS(1586)& - &*XX(231)-JVS(1593)*XX(232)-JVS(1599)*XX(233)-JVS(1610)*XX(234)-JVS(1622)*XX(235)-JVS(1636)*XX(236)-JVS(1645)& - &*XX(237)-JVS(1658)*XX(238)-JVS(1687)*XX(240)-JVS(1706)*XX(242)-JVS(1720)*XX(243)-JVS(1736)*XX(244)-JVS(1757)& - &*XX(246)-JVS(1778)*XX(247)-JVS(1794)*XX(248)-JVS(1801)*XX(249)-JVS(1809)*XX(250)-JVS(1817)*XX(251)-JVS(1835)& - &*XX(253)-JVS(1846)*XX(254)-JVS(1854)*XX(255)-JVS(1876)*XX(256)-JVS(1890)*XX(257)-JVS(1907)*XX(258)-JVS(1916)& - &*XX(259)-JVS(1925)*XX(260)-JVS(1943)*XX(261)-JVS(1954)*XX(262)-JVS(1988)*XX(263)-JVS(2002)*XX(264)-JVS(2035)& - &*XX(265)-JVS(2057)*XX(266)-JVS(2084)*XX(269)-JVS(2129)*XX(270)-JVS(2139)*XX(271)-JVS(2148)*XX(272)-JVS(2161)& - &*XX(273)-JVS(2184)*XX(274)-JVS(2195)*XX(275)-JVS(2211)*XX(277)-JVS(2226)*XX(278)-JVS(2237)*XX(279)-JVS(2251)& - &*XX(280)-JVS(2262)*XX(281)-JVS(2298)*XX(282)-JVS(2332)*XX(283)-JVS(2348)*XX(284)-JVS(2371)*XX(285)-JVS(2391)& - &*XX(286)-JVS(2422)*XX(287)-JVS(2455)*XX(288)-JVS(2469)*XX(289)-JVS(2485)*XX(291)-JVS(2515)*XX(292)-JVS(2530)& - &*XX(293)-JVS(2590)*XX(294)-JVS(2622)*XX(295)-JVS(2645)*XX(296)-JVS(2710)*XX(298)-JVS(2735)*XX(299)-JVS(2745)& - &*XX(300)-JVS(2764)*XX(301)-JVS(2790)*XX(302)-JVS(2818)*XX(303)-JVS(2830)*XX(304)-JVS(2844)*XX(305)-JVS(2902)& - &*XX(306)-JVS(2964)*XX(307)-JVS(2985)*XX(308)-JVS(3008)*XX(309)-JVS(3020)*XX(310)-JVS(3032)*XX(311)-JVS(3056)& - &*XX(312)-JVS(3085)*XX(313)-JVS(3115)*XX(314)-JVS(3139)*XX(315)-JVS(3151)*XX(316)-JVS(3185)*XX(318)-JVS(3211)& - &*XX(319)-JVS(3226)*XX(320)-JVS(3249)*XX(321)-JVS(3281)*XX(322)-JVS(3305)*XX(323)-JVS(3393)*XX(324)-JVS(3534)& - &*XX(325)-JVS(3578)*XX(326)-JVS(3672)*XX(327)-JVS(3753)*XX(328)-JVS(3875)*XX(329)-JVS(3893)*XX(330)-JVS(3922)& - &*XX(331)-JVS(3941)*XX(332)-JVS(3967)*XX(333)-JVS(4017)*XX(334)-JVS(4191)*XX(335)-JVS(4292)*XX(336))& - &/(JVS(4500)) - XX(338) = (X(338)-JVS(419)*XX(35)-JVS(653)*XX(76)-JVS(770)*XX(104)-JVS(797)*XX(110)-JVS(846)*XX(120)-JVS(1051)*XX(157)& - &-JVS(1746)*XX(245)-JVS(2349)*XX(284)-JVS(3167)*XX(317)-JVS(3535)*XX(325)-JVS(3673)*XX(327)-JVS(3754)*XX(328)& - &-JVS(3876)*XX(329)-JVS(3894)*XX(330)-JVS(3923)*XX(331)-JVS(3942)*XX(332)-JVS(3968)*XX(333)-JVS(4018)*XX(334)& - &-JVS(4192)*XX(335)-JVS(4293)*XX(336)-JVS(4501)*XX(337))/(JVS(4556)) - XX(339) = (X(339)-JVS(420)*XX(35)-JVS(1052)*XX(157)-JVS(1106)*XX(166)-JVS(1189)*XX(179)-JVS(1428)*XX(214)-JVS(1475)& - &*XX(217)-JVS(1484)*XX(218)-JVS(1671)*XX(239)-JVS(1747)*XX(245)-JVS(2656)*XX(297)-JVS(3152)*XX(316)-JVS(3168)& - &*XX(317)-JVS(3674)*XX(327)-JVS(3969)*XX(333)-JVS(4019)*XX(334)-JVS(4193)*XX(335)-JVS(4294)*XX(336)-JVS(4502)& - &*XX(337)-JVS(4557)*XX(338))/(JVS(4634)) - XX(340) = (X(340)-JVS(78)*XX(7)-JVS(303)*XX(34)-JVS(514)*XX(36)-JVS(540)*XX(39)-JVS(650)*XX(75)-JVS(665)*XX(79)& - &-JVS(798)*XX(110)-JVS(957)*XX(141)-JVS(961)*XX(142)-JVS(1043)*XX(156)-JVS(1097)*XX(164)-JVS(1199)*XX(181)& - &-JVS(1208)*XX(183)-JVS(1476)*XX(217)-JVS(1567)*XX(228)-JVS(1748)*XX(245)-JVS(1926)*XX(260)-JVS(2003)*XX(264)& - &-JVS(2036)*XX(265)-JVS(2201)*XX(276)-JVS(2299)*XX(282)-JVS(2333)*XX(283)-JVS(2423)*XX(287)-JVS(2456)*XX(288)& - &-JVS(2476)*XX(290)-JVS(2591)*XX(294)-JVS(2623)*XX(295)-JVS(2646)*XX(296)-JVS(2711)*XX(298)-JVS(2746)*XX(300)& - &-JVS(2791)*XX(302)-JVS(2831)*XX(304)-JVS(2845)*XX(305)-JVS(2903)*XX(306)-JVS(2965)*XX(307)-JVS(2986)*XX(308)& - &-JVS(3009)*XX(309)-JVS(3021)*XX(310)-JVS(3033)*XX(311)-JVS(3057)*XX(312)-JVS(3086)*XX(313)-JVS(3116)*XX(314)& - &-JVS(3140)*XX(315)-JVS(3169)*XX(317)-JVS(3212)*XX(319)-JVS(3227)*XX(320)-JVS(3250)*XX(321)-JVS(3282)*XX(322)& - &-JVS(3306)*XX(323)-JVS(3394)*XX(324)-JVS(3536)*XX(325)-JVS(3579)*XX(326)-JVS(3675)*XX(327)-JVS(3755)*XX(328)& - &-JVS(3877)*XX(329)-JVS(3970)*XX(333)-JVS(4020)*XX(334)-JVS(4194)*XX(335)-JVS(4295)*XX(336)-JVS(4503)*XX(337)& - &-JVS(4558)*XX(338)-JVS(4635)*XX(339))/(JVS(4730)) - XX(341) = (X(341)-JVS(79)*XX(7)-JVS(167)*XX(29)-JVS(421)*XX(35)-JVS(515)*XX(36)-JVS(534)*XX(38)-JVS(549)*XX(40)& - &-JVS(792)*XX(109)-JVS(821)*XX(115)-JVS(893)*XX(129)-JVS(927)*XX(134)-JVS(953)*XX(140)-JVS(966)*XX(143)& - &-JVS(1030)*XX(154)-JVS(1090)*XX(163)-JVS(1107)*XX(166)-JVS(1110)*XX(167)-JVS(1176)*XX(177)-JVS(1190)*XX(179)& - &-JVS(1262)*XX(191)-JVS(1271)*XX(193)-JVS(1284)*XX(195)-JVS(1321)*XX(201)-JVS(1329)*XX(202)-JVS(1344)*XX(203)& - &-JVS(1357)*XX(204)-JVS(1406)*XX(211)-JVS(1413)*XX(212)-JVS(1477)*XX(217)-JVS(1488)*XX(219)-JVS(1492)*XX(220)& - &-JVS(1505)*XX(221)-JVS(1536)*XX(225)-JVS(1568)*XX(228)-JVS(1573)*XX(229)-JVS(1600)*XX(233)-JVS(1611)*XX(234)& - &-JVS(1623)*XX(235)-JVS(1637)*XX(236)-JVS(1646)*XX(237)-JVS(1672)*XX(239)-JVS(1696)*XX(241)-JVS(1707)*XX(242)& - &-JVS(1855)*XX(255)-JVS(1877)*XX(256)-JVS(1891)*XX(257)-JVS(1955)*XX(262)-JVS(1989)*XX(263)-JVS(2004)*XX(264)& - &-JVS(2037)*XX(265)-JVS(2085)*XX(269)-JVS(2130)*XX(270)-JVS(2149)*XX(272)-JVS(2162)*XX(273)-JVS(2185)*XX(274)& - &-JVS(2196)*XX(275)-JVS(2202)*XX(276)-JVS(2212)*XX(277)-JVS(2227)*XX(278)-JVS(2252)*XX(280)-JVS(2263)*XX(281)& - &-JVS(2300)*XX(282)-JVS(2334)*XX(283)-JVS(2350)*XX(284)-JVS(2424)*XX(287)-JVS(2457)*XX(288)-JVS(2470)*XX(289)& - &-JVS(2477)*XX(290)-JVS(2486)*XX(291)-JVS(2516)*XX(292)-JVS(2592)*XX(294)-JVS(2624)*XX(295)-JVS(2647)*XX(296)& - &-JVS(2712)*XX(298)-JVS(2747)*XX(300)-JVS(2792)*XX(302)-JVS(2832)*XX(304)-JVS(2846)*XX(305)-JVS(2904)*XX(306)& - &-JVS(2966)*XX(307)-JVS(2987)*XX(308)-JVS(3010)*XX(309)-JVS(3022)*XX(310)-JVS(3034)*XX(311)-JVS(3058)*XX(312)& - &-JVS(3087)*XX(313)-JVS(3117)*XX(314)-JVS(3141)*XX(315)-JVS(3153)*XX(316)-JVS(3186)*XX(318)-JVS(3213)*XX(319)& - &-JVS(3228)*XX(320)-JVS(3251)*XX(321)-JVS(3283)*XX(322)-JVS(3307)*XX(323)-JVS(3395)*XX(324)-JVS(3537)*XX(325)& - &-JVS(3580)*XX(326)-JVS(3676)*XX(327)-JVS(3756)*XX(328)-JVS(3878)*XX(329)-JVS(3895)*XX(330)-JVS(3924)*XX(331)& - &-JVS(3943)*XX(332)-JVS(3971)*XX(333)-JVS(4021)*XX(334)-JVS(4195)*XX(335)-JVS(4296)*XX(336)-JVS(4504)*XX(337)& - &-JVS(4559)*XX(338)-JVS(4636)*XX(339)-JVS(4731)*XX(340))/(JVS(4808)) - XX(342) = (X(342)-JVS(516)*XX(36)-JVS(595)*XX(59)-JVS(958)*XX(141)-JVS(995)*XX(148)-JVS(1209)*XX(183)-JVS(1485)& - &*XX(218)-JVS(1927)*XX(260)-JVS(2301)*XX(282)-JVS(2335)*XX(283)-JVS(2478)*XX(290)-JVS(2593)*XX(294)-JVS(2625)& - &*XX(295)-JVS(2648)*XX(296)-JVS(2713)*XX(298)-JVS(2967)*XX(307)-JVS(3059)*XX(312)-JVS(3088)*XX(313)-JVS(3142)& - &*XX(315)-JVS(3154)*XX(316)-JVS(3252)*XX(321)-JVS(3284)*XX(322)-JVS(3308)*XX(323)-JVS(3396)*XX(324)-JVS(3538)& - &*XX(325)-JVS(3581)*XX(326)-JVS(3677)*XX(327)-JVS(3757)*XX(328)-JVS(3879)*XX(329)-JVS(3972)*XX(333)-JVS(4022)& - &*XX(334)-JVS(4196)*XX(335)-JVS(4297)*XX(336)-JVS(4505)*XX(337)-JVS(4560)*XX(338)-JVS(4637)*XX(339)-JVS(4732)& - &*XX(340)-JVS(4809)*XX(341))/(JVS(4865)) - XX(343) = (X(343)-JVS(422)*XX(35)-JVS(517)*XX(36)-JVS(624)*XX(68)-JVS(1478)*XX(217)-JVS(2005)*XX(264)-JVS(3155)& - &*XX(316)-JVS(3170)*XX(317)-JVS(3539)*XX(325)-JVS(3678)*XX(327)-JVS(3880)*XX(329)-JVS(3973)*XX(333)-JVS(4023)& - &*XX(334)-JVS(4197)*XX(335)-JVS(4298)*XX(336)-JVS(4506)*XX(337)-JVS(4561)*XX(338)-JVS(4638)*XX(339)-JVS(4733)& - &*XX(340)-JVS(4810)*XX(341)-JVS(4866)*XX(342))/(JVS(4926)) - XX(344) = (X(344)-JVS(423)*XX(35)-JVS(771)*XX(104)-JVS(1053)*XX(157)-JVS(1429)*XX(214)-JVS(1673)*XX(239)-JVS(1749)& - &*XX(245)-JVS(1823)*XX(252)-JVS(2657)*XX(297)-JVS(3156)*XX(316)-JVS(3171)*XX(317)-JVS(3679)*XX(327)-JVS(3896)& - &*XX(330)-JVS(3925)*XX(331)-JVS(3944)*XX(332)-JVS(3974)*XX(333)-JVS(4024)*XX(334)-JVS(4198)*XX(335)-JVS(4299)& - &*XX(336)-JVS(4507)*XX(337)-JVS(4562)*XX(338)-JVS(4639)*XX(339)-JVS(4734)*XX(340)-JVS(4811)*XX(341)-JVS(4867)& - &*XX(342)-JVS(4927)*XX(343))/(JVS(4960)) - XX(345) = (X(345)-JVS(13)*XX(6)-JVS(80)*XX(7)-JVS(111)*XX(13)-JVS(115)*XX(14)-JVS(128)*XX(18)-JVS(131)*XX(19)-JVS(141)& - &*XX(22)-JVS(150)*XX(24)-JVS(160)*XX(27)-JVS(164)*XX(28)-JVS(182)*XX(32)-JVS(186)*XX(33)-JVS(304)*XX(34)& - &-JVS(424)*XX(35)-JVS(518)*XX(36)-JVS(525)*XX(37)-JVS(535)*XX(38)-JVS(541)*XX(39)-JVS(550)*XX(40)-JVS(552)& - &*XX(41)-JVS(556)*XX(43)-JVS(576)*XX(52)-JVS(592)*XX(58)-JVS(597)*XX(60)-JVS(619)*XX(66)-JVS(625)*XX(68)& - &-JVS(627)*XX(69)-JVS(631)*XX(70)-JVS(636)*XX(71)-JVS(640)*XX(72)-JVS(644)*XX(73)-JVS(648)*XX(74)-JVS(651)& - &*XX(75)-JVS(654)*XX(76)-JVS(663)*XX(78)-JVS(666)*XX(79)-JVS(672)*XX(81)-JVS(674)*XX(82)-JVS(677)*XX(83)& - &-JVS(681)*XX(84)-JVS(684)*XX(85)-JVS(687)*XX(86)-JVS(690)*XX(87)-JVS(694)*XX(88)-JVS(697)*XX(89)-JVS(702)& - &*XX(90)-JVS(705)*XX(91)-JVS(710)*XX(92)-JVS(713)*XX(93)-JVS(716)*XX(94)-JVS(720)*XX(95)-JVS(732)*XX(97)& - &-JVS(736)*XX(98)-JVS(740)*XX(99)-JVS(744)*XX(100)-JVS(746)*XX(101)-JVS(750)*XX(102)-JVS(775)*XX(105)-JVS(785)& - &*XX(107)-JVS(789)*XX(108)-JVS(793)*XX(109)-JVS(799)*XX(110)-JVS(804)*XX(111)-JVS(808)*XX(112)-JVS(812)& - &*XX(113)-JVS(816)*XX(114)-JVS(822)*XX(115)-JVS(825)*XX(116)-JVS(833)*XX(117)-JVS(838)*XX(118)-JVS(843)& - &*XX(119)-JVS(847)*XX(120)-JVS(853)*XX(121)-JVS(858)*XX(122)-JVS(862)*XX(123)-JVS(866)*XX(124)-JVS(870)& - &*XX(125)-JVS(874)*XX(126)-JVS(877)*XX(127)-JVS(884)*XX(128)-JVS(894)*XX(129)-JVS(901)*XX(130)-JVS(906)& - &*XX(131)-JVS(911)*XX(132)-JVS(916)*XX(133)-JVS(928)*XX(134)-JVS(933)*XX(135)-JVS(939)*XX(136)-JVS(942)& - &*XX(137)-JVS(946)*XX(138)-JVS(951)*XX(139)-JVS(954)*XX(140)-JVS(959)*XX(141)-JVS(962)*XX(142)-JVS(967)& - &*XX(143)-JVS(972)*XX(144)-JVS(986)*XX(146)-JVS(991)*XX(147)-JVS(996)*XX(148)-JVS(1002)*XX(149)-JVS(1008)& - &*XX(150)-JVS(1014)*XX(151)-JVS(1020)*XX(152)-JVS(1025)*XX(153)-JVS(1031)*XX(154)-JVS(1038)*XX(155)-JVS(1044)& - &*XX(156)-JVS(1064)*XX(158)-JVS(1069)*XX(159)-JVS(1074)*XX(160)-JVS(1079)*XX(161)-JVS(1084)*XX(162)-JVS(1091)& - &*XX(163)-JVS(1098)*XX(164)-JVS(1102)*XX(165)-JVS(1111)*XX(167)-JVS(1115)*XX(168)-JVS(1122)*XX(169)-JVS(1128)& - &*XX(170)-JVS(1154)*XX(173)-JVS(1160)*XX(174)-JVS(1163)*XX(175)-JVS(1169)*XX(176)-JVS(1177)*XX(177)-JVS(1184)& - &*XX(178)-JVS(1195)*XX(180)-JVS(1200)*XX(181)-JVS(1205)*XX(182)-JVS(1210)*XX(183)-JVS(1216)*XX(184)-JVS(1225)& - &*XX(185)-JVS(1229)*XX(186)-JVS(1233)*XX(187)-JVS(1246)*XX(188)-JVS(1252)*XX(189)-JVS(1259)*XX(190)-JVS(1263)& - &*XX(191)-JVS(1268)*XX(192)-JVS(1272)*XX(193)-JVS(1280)*XX(194)-JVS(1285)*XX(195)-JVS(1291)*XX(196)-JVS(1299)& - &*XX(197)-JVS(1307)*XX(198)-JVS(1311)*XX(199)-JVS(1313)*XX(200)-JVS(1322)*XX(201)-JVS(1330)*XX(202)-JVS(1345)& - &*XX(203)-JVS(1358)*XX(204)-JVS(1365)*XX(205)-JVS(1370)*XX(206)-JVS(1375)*XX(207)-JVS(1387)*XX(208)-JVS(1392)& - &*XX(209)-JVS(1402)*XX(210)-JVS(1407)*XX(211)-JVS(1414)*XX(212)-JVS(1422)*XX(213)-JVS(1455)*XX(215)-JVS(1467)& - &*XX(216)-JVS(1479)*XX(217)-JVS(1489)*XX(219)-JVS(1493)*XX(220)-JVS(1506)*XX(221)-JVS(1513)*XX(222)-JVS(1519)& - &*XX(223)-JVS(1526)*XX(224)-JVS(1537)*XX(225)-JVS(1544)*XX(226)-JVS(1561)*XX(227)-JVS(1569)*XX(228)-JVS(1574)& - &*XX(229)-JVS(1581)*XX(230)-JVS(1587)*XX(231)-JVS(1594)*XX(232)-JVS(1601)*XX(233)-JVS(1612)*XX(234)-JVS(1624)& - &*XX(235)-JVS(1638)*XX(236)-JVS(1647)*XX(237)-JVS(1659)*XX(238)-JVS(1674)*XX(239)-JVS(1688)*XX(240)-JVS(1708)& - &*XX(242)-JVS(1721)*XX(243)-JVS(1737)*XX(244)-JVS(1750)*XX(245)-JVS(1758)*XX(246)-JVS(1779)*XX(247)-JVS(1795)& - &*XX(248)-JVS(1802)*XX(249)-JVS(1810)*XX(250)-JVS(1818)*XX(251)-JVS(1836)*XX(253)-JVS(1847)*XX(254)-JVS(1856)& - &*XX(255)-JVS(1878)*XX(256)-JVS(1892)*XX(257)-JVS(1908)*XX(258)-JVS(1917)*XX(259)-JVS(1928)*XX(260)-JVS(1944)& - &*XX(261)-JVS(1956)*XX(262)-JVS(1990)*XX(263)-JVS(2006)*XX(264)-JVS(2038)*XX(265)-JVS(2058)*XX(266)-JVS(2064)& - &*XX(267)-JVS(2071)*XX(268)-JVS(2086)*XX(269)-JVS(2131)*XX(270)-JVS(2140)*XX(271)-JVS(2150)*XX(272)-JVS(2163)& - &*XX(273)-JVS(2186)*XX(274)-JVS(2197)*XX(275)-JVS(2203)*XX(276)-JVS(2213)*XX(277)-JVS(2228)*XX(278)-JVS(2238)& - &*XX(279)-JVS(2253)*XX(280)-JVS(2264)*XX(281)-JVS(2302)*XX(282)-JVS(2336)*XX(283)-JVS(2351)*XX(284)-JVS(2372)& - &*XX(285)-JVS(2392)*XX(286)-JVS(2425)*XX(287)-JVS(2458)*XX(288)-JVS(2471)*XX(289)-JVS(2479)*XX(290)-JVS(2487)& - &*XX(291)-JVS(2517)*XX(292)-JVS(2531)*XX(293)-JVS(2594)*XX(294)-JVS(2626)*XX(295)-JVS(2649)*XX(296)-JVS(2658)& - &*XX(297)-JVS(2714)*XX(298)-JVS(2736)*XX(299)-JVS(2748)*XX(300)-JVS(2765)*XX(301)-JVS(2793)*XX(302)-JVS(2819)& - &*XX(303)-JVS(2833)*XX(304)-JVS(2847)*XX(305)-JVS(2905)*XX(306)-JVS(2968)*XX(307)-JVS(2988)*XX(308)-JVS(3011)& - &*XX(309)-JVS(3023)*XX(310)-JVS(3035)*XX(311)-JVS(3060)*XX(312)-JVS(3089)*XX(313)-JVS(3118)*XX(314)-JVS(3143)& - &*XX(315)-JVS(3157)*XX(316)-JVS(3172)*XX(317)-JVS(3187)*XX(318)-JVS(3214)*XX(319)-JVS(3229)*XX(320)-JVS(3253)& - &*XX(321)-JVS(3285)*XX(322)-JVS(3309)*XX(323)-JVS(3397)*XX(324)-JVS(3540)*XX(325)-JVS(3582)*XX(326)-JVS(3680)& - &*XX(327)-JVS(3758)*XX(328)-JVS(3881)*XX(329)-JVS(3897)*XX(330)-JVS(3926)*XX(331)-JVS(3945)*XX(332)-JVS(3975)& - &*XX(333)-JVS(4025)*XX(334)-JVS(4199)*XX(335)-JVS(4300)*XX(336)-JVS(4508)*XX(337)-JVS(4563)*XX(338)-JVS(4640)& - &*XX(339)-JVS(4735)*XX(340)-JVS(4812)*XX(341)-JVS(4868)*XX(342)-JVS(4928)*XX(343)-JVS(4961)*XX(344))& - &/(JVS(5236)) - XX(346) = (X(346)-JVS(81)*XX(7)-JVS(107)*XX(12)-JVS(112)*XX(13)-JVS(124)*XX(17)-JVS(129)*XX(18)-JVS(137)*XX(21)& - &-JVS(142)*XX(22)-JVS(156)*XX(26)-JVS(161)*XX(27)-JVS(305)*XX(34)-JVS(519)*XX(36)-JVS(602)*XX(62)-JVS(622)& - &*XX(67)-JVS(632)*XX(70)-JVS(678)*XX(83)-JVS(706)*XX(91)-JVS(714)*XX(93)-JVS(721)*XX(95)-JVS(727)*XX(96)& - &-JVS(780)*XX(106)-JVS(826)*XX(116)-JVS(854)*XX(121)-JVS(878)*XX(127)-JVS(895)*XX(129)-JVS(907)*XX(131)& - &-JVS(912)*XX(132)-JVS(917)*XX(133)-JVS(934)*XX(135)-JVS(943)*XX(137)-JVS(947)*XX(138)-JVS(980)*XX(145)& - &-JVS(987)*XX(146)-JVS(1026)*XX(153)-JVS(1085)*XX(162)-JVS(1092)*XX(163)-JVS(1103)*XX(165)-JVS(1116)*XX(168)& - &-JVS(1129)*XX(170)-JVS(1136)*XX(171)-JVS(1142)*XX(172)-JVS(1164)*XX(175)-JVS(1170)*XX(176)-JVS(1178)*XX(177)& - &-JVS(1185)*XX(178)-JVS(1196)*XX(180)-JVS(1206)*XX(182)-JVS(1253)*XX(189)-JVS(1260)*XX(190)-JVS(1273)*XX(193)& - &-JVS(1292)*XX(196)-JVS(1300)*XX(197)-JVS(1346)*XX(203)-JVS(1359)*XX(204)-JVS(1366)*XX(205)-JVS(1371)*XX(206)& - &-JVS(1376)*XX(207)-JVS(1388)*XX(208)-JVS(1403)*XX(210)-JVS(1408)*XX(211)-JVS(1415)*XX(212)-JVS(1423)*XX(213)& - &-JVS(1456)*XX(215)-JVS(1468)*XX(216)-JVS(1520)*XX(223)-JVS(1527)*XX(224)-JVS(1538)*XX(225)-JVS(1545)*XX(226)& - &-JVS(1562)*XX(227)-JVS(1595)*XX(232)-JVS(1602)*XX(233)-JVS(1613)*XX(234)-JVS(1625)*XX(235)-JVS(1639)*XX(236)& - &-JVS(1648)*XX(237)-JVS(1660)*XX(238)-JVS(1675)*XX(239)-JVS(1689)*XX(240)-JVS(1697)*XX(241)-JVS(1709)*XX(242)& - &-JVS(1722)*XX(243)-JVS(1738)*XX(244)-JVS(1759)*XX(246)-JVS(1780)*XX(247)-JVS(1796)*XX(248)-JVS(1803)*XX(249)& - &-JVS(1811)*XX(250)-JVS(1819)*XX(251)-JVS(1837)*XX(253)-JVS(1848)*XX(254)-JVS(1857)*XX(255)-JVS(1879)*XX(256)& - &-JVS(1893)*XX(257)-JVS(1909)*XX(258)-JVS(1918)*XX(259)-JVS(1929)*XX(260)-JVS(1945)*XX(261)-JVS(1957)*XX(262)& - &-JVS(1991)*XX(263)-JVS(2007)*XX(264)-JVS(2039)*XX(265)-JVS(2059)*XX(266)-JVS(2065)*XX(267)-JVS(2072)*XX(268)& - &-JVS(2087)*XX(269)-JVS(2132)*XX(270)-JVS(2141)*XX(271)-JVS(2151)*XX(272)-JVS(2164)*XX(273)-JVS(2187)*XX(274)& - &-JVS(2198)*XX(275)-JVS(2214)*XX(277)-JVS(2229)*XX(278)-JVS(2239)*XX(279)-JVS(2254)*XX(280)-JVS(2265)*XX(281)& - &-JVS(2303)*XX(282)-JVS(2337)*XX(283)-JVS(2352)*XX(284)-JVS(2373)*XX(285)-JVS(2393)*XX(286)-JVS(2426)*XX(287)& - &-JVS(2459)*XX(288)-JVS(2472)*XX(289)-JVS(2488)*XX(291)-JVS(2518)*XX(292)-JVS(2532)*XX(293)-JVS(2595)*XX(294)& - &-JVS(2627)*XX(295)-JVS(2650)*XX(296)-JVS(2715)*XX(298)-JVS(2737)*XX(299)-JVS(2749)*XX(300)-JVS(2766)*XX(301)& - &-JVS(2794)*XX(302)-JVS(2820)*XX(303)-JVS(2834)*XX(304)-JVS(2848)*XX(305)-JVS(2906)*XX(306)-JVS(2969)*XX(307)& - &-JVS(2989)*XX(308)-JVS(3012)*XX(309)-JVS(3024)*XX(310)-JVS(3036)*XX(311)-JVS(3061)*XX(312)-JVS(3090)*XX(313)& - &-JVS(3119)*XX(314)-JVS(3144)*XX(315)-JVS(3188)*XX(318)-JVS(3215)*XX(319)-JVS(3230)*XX(320)-JVS(3254)*XX(321)& - &-JVS(3286)*XX(322)-JVS(3310)*XX(323)-JVS(3398)*XX(324)-JVS(3541)*XX(325)-JVS(3583)*XX(326)-JVS(3681)*XX(327)& - &-JVS(3759)*XX(328)-JVS(3882)*XX(329)-JVS(3898)*XX(330)-JVS(3927)*XX(331)-JVS(3946)*XX(332)-JVS(3976)*XX(333)& - &-JVS(4026)*XX(334)-JVS(4200)*XX(335)-JVS(4301)*XX(336)-JVS(4509)*XX(337)-JVS(4564)*XX(338)-JVS(4641)*XX(339)& - &-JVS(4736)*XX(340)-JVS(4813)*XX(341)-JVS(4869)*XX(342)-JVS(4929)*XX(343)-JVS(4962)*XX(344)-JVS(5237)*XX(345))& - &/(JVS(5358)) - XX(347) = (X(347)-JVS(425)*XX(35)-JVS(728)*XX(96)-JVS(800)*XX(110)-JVS(848)*XX(120)-JVS(997)*XX(148)-JVS(1054)*XX(157)& - &-JVS(1486)*XX(218)-JVS(1751)*XX(245)-JVS(2353)*XX(284)-JVS(3158)*XX(316)-JVS(3682)*XX(327)-JVS(3899)*XX(330)& - &-JVS(3928)*XX(331)-JVS(3947)*XX(332)-JVS(3977)*XX(333)-JVS(4027)*XX(334)-JVS(4201)*XX(335)-JVS(4302)*XX(336)& - &-JVS(4510)*XX(337)-JVS(4565)*XX(338)-JVS(4642)*XX(339)-JVS(4737)*XX(340)-JVS(4814)*XX(341)-JVS(4870)*XX(342)& - &-JVS(4930)*XX(343)-JVS(4963)*XX(344)-JVS(5238)*XX(345)-JVS(5359)*XX(346))/(JVS(5391)) - XX(348) = (X(348)-JVS(168)*XX(29)-JVS(183)*XX(32)-JVS(187)*XX(33)-JVS(426)*XX(35)-JVS(536)*XX(38)-JVS(698)*XX(89)& - &-JVS(929)*XX(134)-JVS(1108)*XX(166)-JVS(1191)*XX(179)-JVS(1676)*XX(239)-JVS(1698)*XX(241)-JVS(2008)*XX(264)& - &-JVS(2338)*XX(283)-JVS(3062)*XX(312)-JVS(3159)*XX(316)-JVS(3542)*XX(325)-JVS(3584)*XX(326)-JVS(3683)*XX(327)& - &-JVS(3760)*XX(328)-JVS(3883)*XX(329)-JVS(3978)*XX(333)-JVS(4028)*XX(334)-JVS(4202)*XX(335)-JVS(4303)*XX(336)& - &-JVS(4511)*XX(337)-JVS(4566)*XX(338)-JVS(4643)*XX(339)-JVS(4738)*XX(340)-JVS(4815)*XX(341)-JVS(4871)*XX(342)& - &-JVS(4931)*XX(343)-JVS(4964)*XX(344)-JVS(5239)*XX(345)-JVS(5360)*XX(346)-JVS(5392)*XX(347))/(JVS(5433)) - XX(349) = (X(349)-JVS(427)*XX(35)-JVS(659)*XX(77)-JVS(998)*XX(148)-JVS(1055)*XX(157)-JVS(1677)*XX(239)-JVS(1824)& - &*XX(252)-JVS(2659)*XX(297)-JVS(3160)*XX(316)-JVS(3173)*XX(317)-JVS(3684)*XX(327)-JVS(3900)*XX(330)-JVS(3929)& - &*XX(331)-JVS(3948)*XX(332)-JVS(3979)*XX(333)-JVS(4029)*XX(334)-JVS(4203)*XX(335)-JVS(4304)*XX(336)-JVS(4512)& - &*XX(337)-JVS(4567)*XX(338)-JVS(4644)*XX(339)-JVS(4739)*XX(340)-JVS(4816)*XX(341)-JVS(4872)*XX(342)-JVS(4932)& - &*XX(343)-JVS(4965)*XX(344)-JVS(5240)*XX(345)-JVS(5361)*XX(346)-JVS(5393)*XX(347)-JVS(5434)*XX(348))& - &/(JVS(5460)) - XX(350) = (X(350)-JVS(428)*XX(35)-JVS(660)*XX(77)-JVS(999)*XX(148)-JVS(1056)*XX(157)-JVS(1678)*XX(239)-JVS(1825)& - &*XX(252)-JVS(2660)*XX(297)-JVS(3161)*XX(316)-JVS(3174)*XX(317)-JVS(3685)*XX(327)-JVS(3901)*XX(330)-JVS(3930)& - &*XX(331)-JVS(3949)*XX(332)-JVS(3980)*XX(333)-JVS(4030)*XX(334)-JVS(4204)*XX(335)-JVS(4305)*XX(336)-JVS(4513)& - &*XX(337)-JVS(4568)*XX(338)-JVS(4645)*XX(339)-JVS(4740)*XX(340)-JVS(4817)*XX(341)-JVS(4873)*XX(342)-JVS(4933)& - &*XX(343)-JVS(4966)*XX(344)-JVS(5241)*XX(345)-JVS(5362)*XX(346)-JVS(5394)*XX(347)-JVS(5435)*XX(348)-JVS(5461)& - &*XX(349))/(JVS(5487)) - XX(351) = (X(351)-JVS(82)*XX(7)-JVS(118)*XX(15)-JVS(429)*XX(35)-JVS(520)*XX(36)-JVS(610)*XX(64)-JVS(614)*XX(65)& - &-JVS(628)*XX(69)-JVS(717)*XX(94)-JVS(781)*XX(106)-JVS(896)*XX(129)-JVS(955)*XX(140)-JVS(963)*XX(142)-JVS(981)& - &*XX(145)-JVS(1003)*XX(149)-JVS(1032)*XX(154)-JVS(1065)*XX(158)-JVS(1093)*XX(163)-JVS(1112)*XX(167)-JVS(1130)& - &*XX(170)-JVS(1179)*XX(177)-JVS(1186)*XX(178)-JVS(1211)*XX(183)-JVS(1254)*XX(189)-JVS(1264)*XX(191)-JVS(1274)& - &*XX(193)-JVS(1286)*XX(195)-JVS(1293)*XX(196)-JVS(1314)*XX(200)-JVS(1323)*XX(201)-JVS(1331)*XX(202)-JVS(1347)& - &*XX(203)-JVS(1360)*XX(204)-JVS(1409)*XX(211)-JVS(1416)*XX(212)-JVS(1424)*XX(213)-JVS(1430)*XX(214)-JVS(1490)& - &*XX(219)-JVS(1494)*XX(220)-JVS(1507)*XX(221)-JVS(1539)*XX(225)-JVS(1575)*XX(229)-JVS(1603)*XX(233)-JVS(1614)& - &*XX(234)-JVS(1626)*XX(235)-JVS(1640)*XX(236)-JVS(1649)*XX(237)-JVS(1679)*XX(239)-JVS(1690)*XX(240)-JVS(1710)& - &*XX(242)-JVS(1781)*XX(247)-JVS(1812)*XX(250)-JVS(1858)*XX(255)-JVS(1880)*XX(256)-JVS(1894)*XX(257)-JVS(1919)& - &*XX(259)-JVS(1946)*XX(261)-JVS(1958)*XX(262)-JVS(1992)*XX(263)-JVS(2040)*XX(265)-JVS(2088)*XX(269)-JVS(2133)& - &*XX(270)-JVS(2152)*XX(272)-JVS(2165)*XX(273)-JVS(2188)*XX(274)-JVS(2199)*XX(275)-JVS(2204)*XX(276)-JVS(2215)& - &*XX(277)-JVS(2230)*XX(278)-JVS(2255)*XX(280)-JVS(2266)*XX(281)-JVS(2304)*XX(282)-JVS(2339)*XX(283)-JVS(2427)& - &*XX(287)-JVS(2460)*XX(288)-JVS(2473)*XX(289)-JVS(2480)*XX(290)-JVS(2489)*XX(291)-JVS(2519)*XX(292)-JVS(2533)& - &*XX(293)-JVS(2596)*XX(294)-JVS(2628)*XX(295)-JVS(2651)*XX(296)-JVS(2661)*XX(297)-JVS(2716)*XX(298)-JVS(2738)& - &*XX(299)-JVS(2750)*XX(300)-JVS(2767)*XX(301)-JVS(2795)*XX(302)-JVS(2821)*XX(303)-JVS(2835)*XX(304)-JVS(2849)& - &*XX(305)-JVS(2907)*XX(306)-JVS(2970)*XX(307)-JVS(2990)*XX(308)-JVS(3013)*XX(309)-JVS(3025)*XX(310)-JVS(3037)& - &*XX(311)-JVS(3063)*XX(312)-JVS(3091)*XX(313)-JVS(3120)*XX(314)-JVS(3145)*XX(315)-JVS(3189)*XX(318)-JVS(3216)& - &*XX(319)-JVS(3231)*XX(320)-JVS(3255)*XX(321)-JVS(3287)*XX(322)-JVS(3311)*XX(323)-JVS(3399)*XX(324)-JVS(3543)& - &*XX(325)-JVS(3585)*XX(326)-JVS(3686)*XX(327)-JVS(3761)*XX(328)-JVS(3884)*XX(329)-JVS(3902)*XX(330)-JVS(3931)& - &*XX(331)-JVS(3950)*XX(332)-JVS(3981)*XX(333)-JVS(4031)*XX(334)-JVS(4205)*XX(335)-JVS(4306)*XX(336)-JVS(4514)& - &*XX(337)-JVS(4569)*XX(338)-JVS(4646)*XX(339)-JVS(4741)*XX(340)-JVS(4818)*XX(341)-JVS(4874)*XX(342)-JVS(4934)& - &*XX(343)-JVS(4967)*XX(344)-JVS(5242)*XX(345)-JVS(5363)*XX(346)-JVS(5395)*XX(347)-JVS(5436)*XX(348)-JVS(5462)& - &*XX(349)-JVS(5488)*XX(350))/(JVS(5609)) - XX(352) = (X(352)-JVS(430)*XX(35)-JVS(1000)*XX(148)-JVS(1057)*XX(157)-JVS(1480)*XX(217)-JVS(1680)*XX(239)-JVS(2662)& - &*XX(297)-JVS(3162)*XX(316)-JVS(3175)*XX(317)-JVS(3687)*XX(327)-JVS(3982)*XX(333)-JVS(4032)*XX(334)-JVS(4206)& - &*XX(335)-JVS(4307)*XX(336)-JVS(4515)*XX(337)-JVS(4570)*XX(338)-JVS(4647)*XX(339)-JVS(4742)*XX(340)-JVS(4819)& - &*XX(341)-JVS(4875)*XX(342)-JVS(4935)*XX(343)-JVS(4968)*XX(344)-JVS(5243)*XX(345)-JVS(5364)*XX(346)-JVS(5396)& - &*XX(347)-JVS(5437)*XX(348)-JVS(5463)*XX(349)-JVS(5489)*XX(350)-JVS(5610)*XX(351))/(JVS(5649)) - XX(353) = (X(353)-JVS(431)*XX(35)-JVS(772)*XX(104)-JVS(1058)*XX(157)-JVS(1431)*XX(214)-JVS(1681)*XX(239)-JVS(1752)& - &*XX(245)-JVS(1826)*XX(252)-JVS(2663)*XX(297)-JVS(3163)*XX(316)-JVS(3176)*XX(317)-JVS(3688)*XX(327)-JVS(3903)& - &*XX(330)-JVS(3932)*XX(331)-JVS(3951)*XX(332)-JVS(3983)*XX(333)-JVS(4033)*XX(334)-JVS(4207)*XX(335)-JVS(4308)& - &*XX(336)-JVS(4516)*XX(337)-JVS(4571)*XX(338)-JVS(4648)*XX(339)-JVS(4743)*XX(340)-JVS(4820)*XX(341)-JVS(4876)& - &*XX(342)-JVS(4936)*XX(343)-JVS(4969)*XX(344)-JVS(5244)*XX(345)-JVS(5365)*XX(346)-JVS(5397)*XX(347)-JVS(5438)& - &*XX(348)-JVS(5464)*XX(349)-JVS(5490)*XX(350)-JVS(5611)*XX(351)-JVS(5650)*XX(352))/(JVS(5683)) - XX(353) = XX(353) - XX(352) = XX(352)-JVS(5682)*XX(353) - XX(351) = XX(351)-JVS(5648)*XX(352)-JVS(5681)*XX(353) - XX(350) = XX(350)-JVS(5608)*XX(351)-JVS(5647)*XX(352)-JVS(5680)*XX(353) - XX(349) = XX(349)-JVS(5486)*XX(350)-JVS(5607)*XX(351)-JVS(5646)*XX(352)-JVS(5679)*XX(353) - XX(348) = XX(348)-JVS(5459)*XX(349)-JVS(5485)*XX(350)-JVS(5606)*XX(351)-JVS(5645)*XX(352)-JVS(5678)*XX(353) - XX(347) = XX(347)-JVS(5432)*XX(348)-JVS(5458)*XX(349)-JVS(5484)*XX(350)-JVS(5605)*XX(351)-JVS(5644)*XX(352)-JVS(5677)& + XX(34) = X(34)/JVS(190) + XX(35) = X(35)/JVS(198) + XX(36) = X(36)/JVS(201) + XX(37) = X(37)/JVS(203) + XX(38) = X(38)/JVS(321) + XX(39) = X(39)/JVS(447) + XX(40) = X(40)/JVS(536) + XX(41) = X(41)/JVS(541) + XX(42) = X(42)/JVS(553) + XX(43) = X(43)/JVS(558) + XX(44) = (X(44)-JVS(12)*XX(6))/(JVS(567)) + XX(45) = (X(45)-JVS(5)*XX(4)-JVS(87)*XX(9)-JVS(95)*XX(10)-JVS(322)*XX(38))/(JVS(569)) + XX(46) = X(46)/JVS(571) + XX(47) = (X(47)-JVS(6)*XX(4)-JVS(88)*XX(9)-JVS(96)*XX(10)-JVS(323)*XX(38))/(JVS(573)) + XX(48) = (X(48)-JVS(84)*XX(8)-JVS(204)*XX(37))/(JVS(575)) + XX(49) = X(49)/JVS(579) + XX(50) = X(50)/JVS(581) + XX(51) = X(51)/JVS(583) + XX(52) = (X(52)-JVS(324)*XX(38))/(JVS(585)) + XX(53) = (X(53)-JVS(325)*XX(38))/(JVS(587)) + XX(54) = X(54)/JVS(589) + XX(55) = X(55)/JVS(591) + XX(56) = X(56)/JVS(593) + XX(57) = X(57)/JVS(595) + XX(58) = (X(58)-JVS(7)*XX(4)-JVS(89)*XX(9)-JVS(97)*XX(10)-JVS(326)*XX(38))/(JVS(597)) + XX(59) = (X(59)-JVS(205)*XX(37))/(JVS(600)) + XX(60) = (X(60)-JVS(206)*XX(37))/(JVS(603)) + XX(61) = X(61)/JVS(606) + XX(62) = X(62)/JVS(609) + XX(63) = (X(63)-JVS(448)*XX(39))/(JVS(612)) + XX(64) = X(64)/JVS(614) + XX(65) = X(65)/JVS(616) + XX(66) = (X(66)-JVS(207)*XX(37)-JVS(327)*XX(38))/(JVS(619)) + XX(67) = (X(67)-JVS(328)*XX(38))/(JVS(623)) + XX(68) = (X(68)-JVS(329)*XX(38))/(JVS(627)) + XX(69) = (X(69)-JVS(15)*XX(7))/(JVS(631)) + XX(70) = (X(70)-JVS(208)*XX(37)-JVS(620)*XX(66))/(JVS(636)) + XX(71) = (X(71)-JVS(16)*XX(7)-JVS(330)*XX(38)-JVS(449)*XX(39))/(JVS(639)) + XX(72) = (X(72)-JVS(331)*XX(38))/(JVS(642)) + XX(73) = (X(73)-JVS(209)*XX(37))/(JVS(645)) + XX(74) = X(74)/JVS(649) + XX(75) = (X(75)-JVS(8)*XX(4)-JVS(90)*XX(9)-JVS(98)*XX(10))/(JVS(653)) + XX(76) = (X(76)-JVS(17)*XX(7))/(JVS(657)) + XX(77) = (X(77)-JVS(18)*XX(7))/(JVS(661)) + XX(78) = (X(78)-JVS(332)*XX(38))/(JVS(665)) + XX(79) = X(79)/JVS(668) + XX(80) = (X(80)-JVS(450)*XX(39))/(JVS(671)) + XX(81) = X(81)/JVS(674) + XX(82) = X(82)/JVS(680) + XX(83) = (X(83)-JVS(210)*XX(37))/(JVS(683)) + XX(84) = (X(84)-JVS(451)*XX(39))/(JVS(686)) + XX(85) = (X(85)-JVS(139)*XX(22)-JVS(452)*XX(39))/(JVS(689)) + XX(86) = (X(86)-JVS(211)*XX(37))/(JVS(691)) + XX(87) = (X(87)-JVS(163)*XX(28)-JVS(333)*XX(38))/(JVS(695)) + XX(88) = X(88)/JVS(698) + XX(89) = X(89)/JVS(701) + XX(90) = X(90)/JVS(704) + XX(91) = (X(91)-JVS(334)*XX(38))/(JVS(707)) + XX(92) = X(92)/JVS(710) + XX(93) = (X(93)-JVS(185)*XX(33)-JVS(191)*XX(34)-JVS(202)*XX(36)-JVS(542)*XX(41))/(JVS(714)) + XX(94) = (X(94)-JVS(212)*XX(37))/(JVS(718)) + XX(95) = (X(95)-JVS(19)*XX(7))/(JVS(722)) + XX(96) = (X(96)-JVS(213)*XX(37))/(JVS(726)) + XX(97) = (X(97)-JVS(214)*XX(37))/(JVS(730)) + XX(98) = (X(98)-JVS(335)*XX(38)-JVS(570)*XX(45)-JVS(598)*XX(58))/(JVS(737)) + XX(99) = X(99)/JVS(741) + XX(100) = X(100)/JVS(745) + XX(101) = X(101)/JVS(749) + XX(102) = X(102)/JVS(753) + XX(103) = (X(103)-JVS(158)*XX(27)-JVS(453)*XX(39))/(JVS(757)) + XX(104) = X(104)/JVS(759) + XX(105) = (X(105)-JVS(20)*XX(7)-JVS(215)*XX(37))/(JVS(763)) + XX(106) = (X(106)-JVS(85)*XX(8)-JVS(216)*XX(37))/(JVS(767)) + XX(107) = X(107)/JVS(781) + XX(108) = (X(108)-JVS(336)*XX(38))/(JVS(789)) + XX(109) = (X(109)-JVS(174)*XX(31)-JVS(454)*XX(39))/(JVS(792)) + XX(110) = (X(110)-JVS(217)*XX(37))/(JVS(796)) + XX(111) = X(111)/JVS(800) + XX(112) = X(112)/JVS(804) + XX(113) = (X(113)-JVS(218)*XX(37)-JVS(455)*XX(39))/(JVS(808)) + XX(114) = X(114)/JVS(812) + XX(115) = (X(115)-JVS(219)*XX(37)-JVS(456)*XX(39))/(JVS(818)) + XX(116) = (X(116)-JVS(21)*XX(7)-JVS(170)*XX(30))/(JVS(822)) + XX(117) = (X(117)-JVS(220)*XX(37))/(JVS(828)) + XX(118) = X(118)/JVS(833) + XX(119) = (X(119)-JVS(221)*XX(37))/(JVS(840)) + XX(120) = (X(120)-JVS(337)*XX(38))/(JVS(846)) + XX(121) = X(121)/JVS(850) + XX(122) = (X(122)-JVS(457)*XX(39))/(JVS(855)) + XX(123) = (X(123)-JVS(338)*XX(38))/(JVS(860)) + XX(124) = (X(124)-JVS(222)*XX(37))/(JVS(866)) + XX(125) = (X(125)-JVS(223)*XX(37)-JVS(458)*XX(39))/(JVS(871)) + XX(126) = X(126)/JVS(875) + XX(127) = (X(127)-JVS(224)*XX(37)-JVS(459)*XX(39))/(JVS(879)) + XX(128) = X(128)/JVS(883) + XX(129) = (X(129)-JVS(225)*XX(37)-JVS(460)*XX(39))/(JVS(887)) + XX(130) = (X(130)-JVS(226)*XX(37)-JVS(461)*XX(39))/(JVS(891)) + XX(131) = (X(131)-JVS(175)*XX(31))/(JVS(895)) + XX(132) = X(132)/JVS(902) + XX(133) = (X(133)-JVS(227)*XX(37)-JVS(462)*XX(39))/(JVS(913)) + XX(134) = (X(134)-JVS(22)*XX(7))/(JVS(918)) + XX(135) = X(135)/JVS(923) + XX(136) = (X(136)-JVS(23)*XX(7)-JVS(228)*XX(37))/(JVS(929)) + XX(137) = (X(137)-JVS(24)*XX(7)-JVS(229)*XX(37))/(JVS(934)) + XX(138) = (X(138)-JVS(813)*XX(114))/(JVS(939)) + XX(139) = (X(139)-JVS(230)*XX(37))/(JVS(944)) + XX(140) = (X(140)-JVS(339)*XX(38))/(JVS(948)) + XX(141) = (X(141)-JVS(231)*XX(37)-JVS(903)*XX(132))/(JVS(952)) + XX(142) = X(142)/JVS(956) + XX(143) = (X(143)-JVS(25)*XX(7)-JVS(232)*XX(37)-JVS(463)*XX(39))/(JVS(960)) + XX(144) = (X(144)-JVS(340)*XX(38))/(JVS(964)) + XX(145) = (X(145)-JVS(109)*XX(13)-JVS(464)*XX(39))/(JVS(968)) + XX(146) = X(146)/JVS(973) + XX(147) = X(147)/JVS(985) + XX(148) = (X(148)-JVS(341)*XX(38))/(JVS(994)) + XX(149) = (X(149)-JVS(465)*XX(39))/(JVS(997)) + XX(150) = (X(150)-JVS(466)*XX(39))/(JVS(1001)) + XX(151) = (X(151)-JVS(467)*XX(39))/(JVS(1006)) + XX(152) = (X(152)-JVS(468)*XX(39))/(JVS(1012)) + XX(153) = (X(153)-JVS(233)*XX(37))/(JVS(1017)) + XX(154) = X(154)/JVS(1026) + XX(155) = (X(155)-JVS(469)*XX(39))/(JVS(1032)) + XX(156) = (X(156)-JVS(234)*XX(37)-JVS(342)*XX(38)-JVS(576)*XX(48))/(JVS(1038)) + XX(157) = (X(157)-JVS(176)*XX(31))/(JVS(1044)) + XX(158) = X(158)/JVS(1050) + XX(159) = (X(159)-JVS(177)*XX(31))/(JVS(1056)) + XX(160) = X(160)/JVS(1062) + XX(161) = (X(161)-JVS(26)*XX(7)-JVS(470)*XX(39)-JVS(793)*XX(109))/(JVS(1076)) + XX(162) = (X(162)-JVS(343)*XX(38))/(JVS(1083)) + XX(163) = X(163)/JVS(1087) + XX(164) = X(164)/JVS(1092) + XX(165) = (X(165)-JVS(235)*XX(37))/(JVS(1098)) + XX(166) = (X(166)-JVS(344)*XX(38))/(JVS(1103)) + XX(167) = X(167)/JVS(1111) + XX(168) = (X(168)-JVS(236)*XX(37))/(JVS(1116)) + XX(169) = (X(169)-JVS(166)*XX(29)-JVS(345)*XX(38)-JVS(628)*XX(68))/(JVS(1121)) + XX(170) = (X(170)-JVS(346)*XX(38)-JVS(471)*XX(39))/(JVS(1126)) + XX(171) = (X(171)-JVS(27)*XX(7))/(JVS(1130)) + XX(172) = (X(172)-JVS(237)*XX(37))/(JVS(1137)) + XX(173) = (X(173)-JVS(238)*XX(37))/(JVS(1144)) + XX(174) = (X(174)-JVS(239)*XX(37))/(JVS(1150)) + XX(175) = (X(175)-JVS(347)*XX(38)-JVS(768)*XX(106)-JVS(1045)*XX(157)-JVS(1057)*XX(159))/(JVS(1156)) + XX(176) = (X(176)-JVS(28)*XX(7))/(JVS(1161)) + XX(177) = (X(177)-JVS(348)*XX(38)-JVS(769)*XX(106)-JVS(1046)*XX(157)-JVS(1058)*XX(159))/(JVS(1172)) + XX(178) = X(178)/JVS(1176) + XX(179) = (X(179)-JVS(240)*XX(37))/(JVS(1183)) + XX(180) = (X(180)-JVS(241)*XX(37))/(JVS(1188)) + XX(181) = (X(181)-JVS(242)*XX(37))/(JVS(1197)) + XX(182) = (X(182)-JVS(243)*XX(37)-JVS(746)*XX(100))/(JVS(1204)) + XX(183) = (X(183)-JVS(349)*XX(38)-JVS(543)*XX(41)-JVS(624)*XX(67)-JVS(974)*XX(146))/(JVS(1209)) + XX(184) = (X(184)-JVS(350)*XX(38)-JVS(472)*XX(39))/(JVS(1214)) + XX(185) = (X(185)-JVS(29)*XX(7)-JVS(244)*XX(37)-JVS(473)*XX(39))/(JVS(1218)) + XX(186) = (X(186)-JVS(245)*XX(37))/(JVS(1225)) + XX(187) = (X(187)-JVS(351)*XX(38))/(JVS(1230)) + XX(188) = (X(188)-JVS(352)*XX(38)-JVS(770)*XX(106)-JVS(986)*XX(147))/(JVS(1235)) + XX(189) = (X(189)-JVS(246)*XX(37)-JVS(474)*XX(39)-JVS(794)*XX(109))/(JVS(1239)) + XX(190) = (X(190)-JVS(475)*XX(39))/(JVS(1246)) + XX(191) = (X(191)-JVS(146)*XX(24)-JVS(476)*XX(39)-JVS(1047)*XX(157)-JVS(1059)*XX(159))/(JVS(1253)) + XX(192) = X(192)/JVS(1257) + XX(193) = (X(193)-JVS(247)*XX(37)-JVS(829)*XX(117))/(JVS(1271)) + XX(194) = (X(194)-JVS(353)*XX(38)-JVS(477)*XX(39)-JVS(904)*XX(132))/(JVS(1278)) + XX(195) = (X(195)-JVS(147)*XX(24)-JVS(478)*XX(39)-JVS(1048)*XX(157)-JVS(1060)*XX(159))/(JVS(1282)) + XX(196) = (X(196)-JVS(248)*XX(37))/(JVS(1286)) + XX(197) = (X(197)-JVS(30)*XX(7)-JVS(479)*XX(39)-JVS(823)*XX(116))/(JVS(1292)) + XX(198) = (X(198)-JVS(31)*XX(7))/(JVS(1299)) + XX(199) = (X(199)-JVS(354)*XX(38))/(JVS(1306)) + XX(200) = (X(200)-JVS(249)*XX(37)-JVS(1117)*XX(168))/(JVS(1313)) + XX(201) = (X(201)-JVS(250)*XX(37)-JVS(355)*XX(38)-JVS(480)*XX(39)-JVS(888)*XX(129))/(JVS(1319)) + XX(202) = (X(202)-JVS(148)*XX(24)-JVS(481)*XX(39)-JVS(896)*XX(131)-JVS(1007)*XX(151))/(JVS(1325)) + XX(203) = (X(203)-JVS(356)*XX(38)-JVS(482)*XX(39)-JVS(607)*XX(61)-JVS(867)*XX(124)-JVS(1013)*XX(152)-JVS(1084)*XX(162)& + &-JVS(1162)*XX(176)-JVS(1272)*XX(193))/(JVS(1329)) + XX(204) = (X(204)-JVS(357)*XX(38)-JVS(483)*XX(39)-JVS(1163)*XX(176))/(JVS(1337)) + XX(205) = (X(205)-JVS(358)*XX(38))/(JVS(1344)) + XX(206) = (X(206)-JVS(359)*XX(38))/(JVS(1354)) + XX(207) = (X(207)-JVS(360)*XX(38)-JVS(484)*XX(39))/(JVS(1371)) + XX(208) = (X(208)-JVS(251)*XX(37))/(JVS(1378)) + XX(209) = (X(209)-JVS(252)*XX(37))/(JVS(1383)) + XX(210) = (X(210)-JVS(253)*XX(37))/(JVS(1389)) + XX(211) = (X(211)-JVS(485)*XX(39))/(JVS(1396)) + XX(212) = (X(212)-JVS(254)*XX(37)-JVS(361)*XX(38)-JVS(1189)*XX(180))/(JVS(1406)) + XX(213) = (X(213)-JVS(149)*XX(24)-JVS(486)*XX(39)-JVS(897)*XX(131)-JVS(1002)*XX(150))/(JVS(1412)) + XX(214) = (X(214)-JVS(487)*XX(39))/(JVS(1417)) + XX(215) = (X(215)-JVS(255)*XX(37)-JVS(892)*XX(130))/(JVS(1428)) + XX(216) = (X(216)-JVS(32)*XX(7)-JVS(256)*XX(37)-JVS(362)*XX(38)-JVS(650)*XX(74)-JVS(819)*XX(115))/(JVS(1435)) + XX(217) = (X(217)-JVS(363)*XX(38))/(JVS(1442)) + XX(218) = (X(218)-JVS(178)*XX(31)-JVS(488)*XX(39))/(JVS(1461)) + XX(219) = (X(219)-JVS(257)*XX(37)-JVS(364)*XX(38))/(JVS(1475)) + XX(220) = (X(220)-JVS(33)*XX(7)-JVS(365)*XX(38)-JVS(489)*XX(39)-JVS(771)*XX(106))/(JVS(1487)) + XX(221) = (X(221)-JVS(366)*XX(38)-JVS(1018)*XX(153)-JVS(1063)*XX(160))/(JVS(1498)) + XX(222) = (X(222)-JVS(367)*XX(38))/(JVS(1504)) + XX(223) = (X(223)-JVS(368)*XX(38)-JVS(490)*XX(39)-JVS(969)*XX(145)-JVS(1273)*XX(193)-JVS(1307)*XX(199)-JVS(1345)& + &*XX(205)-JVS(1355)*XX(206)-JVS(1372)*XX(207))/(JVS(1508)) + XX(224) = (X(224)-JVS(369)*XX(38)-JVS(491)*XX(39)-JVS(1164)*XX(176))/(JVS(1520)) + XX(225) = (X(225)-JVS(370)*XX(38)-JVS(772)*XX(106))/(JVS(1525)) + XX(226) = (X(226)-JVS(258)*XX(37)-JVS(1177)*XX(178)-JVS(1300)*XX(198))/(JVS(1533)) + XX(227) = (X(227)-JVS(371)*XX(38)-JVS(492)*XX(39))/(JVS(1541)) + XX(228) = (X(228)-JVS(259)*XX(37)-JVS(1178)*XX(178)-JVS(1301)*XX(198)-JVS(1418)*XX(214))/(JVS(1552)) + XX(229) = (X(229)-JVS(493)*XX(39)-JVS(847)*XX(120)-JVS(914)*XX(133)-JVS(1320)*XX(201))/(JVS(1559)) + XX(230) = (X(230)-JVS(494)*XX(39))/(JVS(1569)) + XX(231) = (X(231)-JVS(495)*XX(39)-JVS(856)*XX(122)-JVS(930)*XX(136)-JVS(1151)*XX(174)-JVS(1247)*XX(190)-JVS(1293)& + &*XX(197)-JVS(1462)*XX(218)-JVS(1570)*XX(230))/(JVS(1583)) + XX(232) = (X(232)-JVS(372)*XX(38)-JVS(554)*XX(42)-JVS(1476)*XX(219))/(JVS(1588)) + XX(233) = (X(233)-JVS(496)*XX(39)-JVS(857)*XX(122)-JVS(935)*XX(137)-JVS(1145)*XX(173)-JVS(1248)*XX(190)-JVS(1294)& + &*XX(197)-JVS(1463)*XX(218)-JVS(1571)*XX(230))/(JVS(1596)) + XX(234) = (X(234)-JVS(373)*XX(38))/(JVS(1601)) + XX(235) = (X(235)-JVS(260)*XX(37)-JVS(1179)*XX(178)-JVS(1302)*XX(198))/(JVS(1609)) + XX(236) = (X(236)-JVS(261)*XX(37)-JVS(1419)*XX(214)-JVS(1488)*XX(220))/(JVS(1616)) + XX(237) = (X(237)-JVS(34)*XX(7)-JVS(262)*XX(37)-JVS(374)*XX(38)-JVS(662)*XX(77)-JVS(764)*XX(105)-JVS(834)*XX(118)& + &-JVS(1356)*XX(206))/(JVS(1625)) + XX(238) = (X(238)-JVS(263)*XX(37)-JVS(375)*XX(38)-JVS(835)*XX(118)-JVS(1357)*XX(206))/(JVS(1639)) + XX(239) = (X(239)-JVS(264)*XX(37)-JVS(376)*XX(38)-JVS(646)*XX(73)-JVS(814)*XX(114)-JVS(940)*XX(138))/(JVS(1650)) + XX(240) = (X(240)-JVS(265)*XX(37))/(JVS(1662)) + XX(241) = (X(241)-JVS(377)*XX(38)-JVS(1190)*XX(180))/(JVS(1679)) + XX(242) = (X(242)-JVS(35)*XX(7)-JVS(497)*XX(39))/(JVS(1690)) + XX(243) = (X(243)-JVS(36)*XX(7)-JVS(266)*XX(37)-JVS(378)*XX(38)-JVS(872)*XX(125)-JVS(1051)*XX(158)-JVS(1165)*XX(176))& + &/(JVS(1702)) + XX(244) = (X(244)-JVS(37)*XX(7)-JVS(180)*XX(32)-JVS(267)*XX(37)-JVS(537)*XX(40)-JVS(544)*XX(41)-JVS(559)*XX(43)& + &-JVS(975)*XX(146))/(JVS(1708)) + XX(245) = (X(245)-JVS(268)*XX(37)-JVS(498)*XX(39)-JVS(1397)*XX(211))/(JVS(1720)) + XX(246) = (X(246)-JVS(379)*XX(38)-JVS(577)*XX(48)-JVS(1039)*XX(156))/(JVS(1729)) + XX(247) = X(247)/JVS(1743) + XX(248) = (X(248)-JVS(269)*XX(37))/(JVS(1757)) + XX(249) = X(249)/JVS(1776) + XX(250) = (X(250)-JVS(38)*XX(7)-JVS(270)*XX(37)-JVS(380)*XX(38)-JVS(809)*XX(113)-JVS(1052)*XX(158)-JVS(1166)*XX(176)& + &-JVS(1651)*XX(239))/(JVS(1793)) + XX(251) = (X(251)-JVS(381)*XX(38)-JVS(499)*XX(39)-JVS(773)*XX(106))/(JVS(1802)) + XX(252) = (X(252)-JVS(39)*XX(7)-JVS(271)*XX(37)-JVS(1258)*XX(192))/(JVS(1814)) + XX(253) = (X(253)-JVS(40)*XX(7)-JVS(272)*XX(37)-JVS(884)*XX(128)-JVS(1259)*XX(192)-JVS(1777)*XX(249))/(JVS(1822)) + XX(254) = (X(254)-JVS(91)*XX(9)-JVS(99)*XX(10)-JVS(382)*XX(38)-JVS(675)*XX(81)-JVS(782)*XX(107)-JVS(1138)*XX(172)& + &-JVS(1663)*XX(240))/(JVS(1830)) + XX(255) = (X(255)-JVS(383)*XX(38)-JVS(774)*XX(106))/(JVS(1837)) + XX(256) = (X(256)-JVS(384)*XX(38)-JVS(500)*XX(39)-JVS(1104)*XX(166)-JVS(1191)*XX(180))/(JVS(1845)) + XX(257) = (X(257)-JVS(273)*XX(37)-JVS(501)*XX(39)-JVS(1803)*XX(251))/(JVS(1856)) + XX(258) = (X(258)-JVS(274)*XX(37)-JVS(1398)*XX(211))/(JVS(1867)) + XX(259) = (X(259)-JVS(502)*XX(39)-JVS(924)*XX(135)-JVS(1033)*XX(155)-JVS(1399)*XX(211)-JVS(1572)*XX(230))/(JVS(1881)) + XX(260) = (X(260)-JVS(385)*XX(38)-JVS(578)*XX(48)-JVS(1040)*XX(156))/(JVS(1897)) + XX(261) = (X(261)-JVS(41)*XX(7)-JVS(275)*XX(37)-JVS(386)*XX(38)-JVS(601)*XX(59)-JVS(632)*XX(69)-JVS(658)*XX(76))& + &/(JVS(1917)) + XX(262) = (X(262)-JVS(42)*XX(7)-JVS(276)*XX(37)-JVS(503)*XX(39)-JVS(1077)*XX(161)-JVS(1240)*XX(189))/(JVS(1929)) + XX(263) = (X(263)-JVS(387)*XX(38))/(JVS(1940)) + XX(264) = (X(264)-JVS(43)*XX(7)-JVS(277)*XX(37)-JVS(876)*XX(126)-JVS(1260)*XX(192))/(JVS(1950)) + XX(265) = (X(265)-JVS(44)*XX(7)-JVS(388)*XX(38)-JVS(504)*XX(39))/(JVS(1963)) + XX(266) = (X(266)-JVS(45)*XX(7)-JVS(278)*XX(37)-JVS(389)*XX(38))/(JVS(1997)) + XX(267) = (X(267)-JVS(186)*XX(33)-JVS(192)*XX(34)-JVS(390)*XX(38)-JVS(545)*XX(41)-JVS(976)*XX(146))/(JVS(2011)) + XX(268) = (X(268)-JVS(46)*XX(7))/(JVS(2037)) + XX(269) = (X(269)-JVS(391)*XX(38)-JVS(505)*XX(39)-JVS(775)*XX(106))/(JVS(2064)) + XX(270) = (X(270)-JVS(392)*XX(38)-JVS(506)*XX(39)-JVS(776)*XX(106)-JVS(898)*XX(131)-JVS(1379)*XX(208)-JVS(1464)& + &*XX(218)-JVS(1691)*XX(242)-JVS(1721)*XX(245)-JVS(1882)*XX(259)-JVS(1964)*XX(265)-JVS(2065)*XX(269))& + &/(JVS(2077)) + XX(271) = (X(271)-JVS(393)*XX(38)-JVS(507)*XX(39)-JVS(777)*XX(106)-JVS(899)*XX(131)-JVS(1384)*XX(209)-JVS(1465)& + &*XX(218)-JVS(1489)*XX(220)-JVS(1692)*XX(242)-JVS(1722)*XX(245)-JVS(1778)*XX(249)-JVS(1883)*XX(259)-JVS(2066)& + &*XX(269))/(JVS(2083)) + XX(272) = (X(272)-JVS(10)*XX(5)-JVS(47)*XX(7)-JVS(279)*XX(37)-JVS(508)*XX(39)-JVS(1521)*XX(224)-JVS(1664)*XX(240)& + &-JVS(2038)*XX(268))/(JVS(2098)) + XX(273) = (X(273)-JVS(280)*XX(37)-JVS(1420)*XX(214)-JVS(1490)*XX(220)-JVS(1744)*XX(247)-JVS(1779)*XX(249)-JVS(1965)& + &*XX(265)-JVS(2067)*XX(269))/(JVS(2107)) + XX(274) = (X(274)-JVS(171)*XX(30)-JVS(394)*XX(38)-JVS(509)*XX(39))/(JVS(2139)) + XX(275) = (X(275)-JVS(281)*XX(37)-JVS(395)*XX(38)-JVS(1093)*XX(164)-JVS(1099)*XX(165)-JVS(1898)*XX(260))/(JVS(2163)) + XX(276) = (X(276)-JVS(48)*XX(7)-JVS(282)*XX(37)-JVS(396)*XX(38)-JVS(805)*XX(112)-JVS(905)*XX(132)-JVS(953)*XX(141)& + &-JVS(1100)*XX(165)-JVS(1899)*XX(260)-JVS(1998)*XX(266)-JVS(2164)*XX(275))/(JVS(2175)) + XX(277) = (X(277)-JVS(49)*XX(7)-JVS(283)*XX(37)-JVS(397)*XX(38)-JVS(604)*XX(60)-JVS(919)*XX(134)-JVS(1131)*XX(171))& + &/(JVS(2195)) + XX(278) = (X(278)-JVS(284)*XX(37)-JVS(398)*XX(38)-JVS(1105)*XX(166)-JVS(1132)*XX(171)-JVS(1192)*XX(180)-JVS(1900)& + &*XX(260)-JVS(2196)*XX(277))/(JVS(2208)) + XX(279) = (X(279)-JVS(50)*XX(7)-JVS(114)*XX(14)-JVS(117)*XX(15)-JVS(399)*XX(38)-JVS(510)*XX(39)-JVS(560)*XX(43)& + &-JVS(1003)*XX(150)-JVS(1008)*XX(151)-JVS(1421)*XX(214)-JVS(1466)*XX(218)-JVS(1584)*XX(231)-JVS(1597)*XX(233)& + &-JVS(1745)*XX(247)-JVS(1804)*XX(251)-JVS(1857)*XX(257)-JVS(1868)*XX(258)-JVS(2012)*XX(267)-JVS(2039)*XX(268)& + &-JVS(2140)*XX(274))/(JVS(2217)) + XX(280) = (X(280)-JVS(51)*XX(7)-JVS(285)*XX(37)-JVS(400)*XX(38)-JVS(1730)*XX(246)-JVS(1901)*XX(260))/(JVS(2228)) + XX(281) = (X(281)-JVS(52)*XX(7)-JVS(286)*XX(37)-JVS(401)*XX(38)-JVS(801)*XX(111)-JVS(945)*XX(139)-JVS(1184)*XX(179)& + &-JVS(1542)*XX(227)-JVS(1902)*XX(260)-JVS(1918)*XX(261)-JVS(1999)*XX(266))/(JVS(2241)) + XX(282) = (X(282)-JVS(287)*XX(37)-JVS(402)*XX(38)-JVS(1088)*XX(163)-JVS(1185)*XX(179)-JVS(1903)*XX(260)-JVS(2000)& + &*XX(266))/(JVS(2255)) + XX(283) = (X(283)-JVS(1815)*XX(252))/(JVS(2265)) + XX(284) = (X(284)-JVS(53)*XX(7)-JVS(288)*XX(37)-JVS(403)*XX(38)-JVS(1407)*XX(212)-JVS(1680)*XX(241)-JVS(1846)*XX(256)& + &-JVS(1904)*XX(260)-JVS(2001)*XX(266)-JVS(2197)*XX(277)-JVS(2209)*XX(278))/(JVS(2276)) + XX(285) = X(285)/JVS(2296) + XX(286) = (X(286)-JVS(54)*XX(7))/(JVS(2331)) + XX(287) = (X(287)-JVS(92)*XX(9)-JVS(100)*XX(10)-JVS(404)*XX(38)-JVS(676)*XX(81)-JVS(783)*XX(107))/(JVS(2359)) + XX(288) = (X(288)-JVS(289)*XX(37)-JVS(511)*XX(39)-JVS(998)*XX(149)-JVS(1034)*XX(155)-JVS(1249)*XX(190)-JVS(1400)& + &*XX(211)-JVS(1573)*XX(230)-JVS(1884)*XX(259)-JVS(2068)*XX(269)-JVS(2141)*XX(274))/(JVS(2383)) + XX(289) = (X(289)-JVS(290)*XX(37)-JVS(512)*XX(39)-JVS(925)*XX(135)-JVS(999)*XX(149)-JVS(1250)*XX(190)-JVS(1401)& + &*XX(211)-JVS(1574)*XX(230)-JVS(1885)*XX(259)-JVS(2069)*XX(269)-JVS(2142)*XX(274)-JVS(2384)*XX(288))& + &/(JVS(2404)) + XX(290) = (X(290)-JVS(55)*XX(7)-JVS(513)*XX(39)-JVS(1746)*XX(247))/(JVS(2431)) + XX(291) = (X(291)-JVS(1402)*XX(211)-JVS(1575)*XX(230)-JVS(2143)*XX(274))/(JVS(2464)) + XX(292) = (X(292)-JVS(291)*XX(37)-JVS(405)*XX(38)-JVS(1167)*XX(176)-JVS(1261)*XX(192)-JVS(1731)*XX(246)-JVS(1905)& + &*XX(260)-JVS(2229)*XX(280)-JVS(2297)*XX(285))/(JVS(2484)) + XX(293) = (X(293)-JVS(56)*XX(7)-JVS(406)*XX(38)-JVS(514)*XX(39)-JVS(1589)*XX(232)-JVS(1709)*XX(244)-JVS(1823)*XX(253)& + &-JVS(1951)*XX(264)-JVS(2013)*XX(267)-JVS(2298)*XX(285)-JVS(2332)*XX(286))/(JVS(2493)) + XX(294) = (X(294)-JVS(57)*XX(7)-JVS(292)*XX(37)-JVS(407)*XX(38)-JVS(1287)*XX(196)-JVS(1602)*XX(234)-JVS(1732)*XX(246)& + &-JVS(1941)*XX(263)-JVS(2002)*XX(266)-JVS(2230)*XX(280)-JVS(2299)*XX(285)-JVS(2333)*XX(286)-JVS(2485)*XX(292))& + &/(JVS(2501)) + XX(295) = (X(295)-JVS(408)*XX(38))/(JVS(2526)) + XX(296) = (X(296)-JVS(93)*XX(9)-JVS(101)*XX(10)-JVS(409)*XX(38)-JVS(677)*XX(81)-JVS(784)*XX(107)-JVS(1139)*XX(172)& + &-JVS(2360)*XX(287))/(JVS(2541)) + XX(297) = (X(297)-JVS(515)*XX(39))/(JVS(2569)) + XX(298) = (X(298)-JVS(172)*XX(30)-JVS(410)*XX(38)-JVS(516)*XX(39))/(JVS(2622)) + XX(299) = (X(299)-JVS(293)*XX(37)-JVS(1491)*XX(220)-JVS(1780)*XX(249)-JVS(1966)*XX(265)-JVS(2623)*XX(298))/(JVS(2651)) + XX(300) = (X(300)-JVS(58)*XX(7)-JVS(294)*XX(37)-JVS(692)*XX(86)-JVS(851)*XX(121)-JVS(1027)*XX(154)-JVS(2300)*XX(285)& + &-JVS(2334)*XX(286))/(JVS(2672)) + XX(301) = (X(301)-JVS(295)*XX(37)-JVS(411)*XX(38)-JVS(1064)*XX(160)-JVS(1665)*XX(240)-JVS(1758)*XX(248))/(JVS(2686)) + XX(302) = (X(302)-JVS(412)*XX(38)-JVS(517)*XX(39))/(JVS(2732)) + XX(303) = (X(303)-JVS(413)*XX(38)-JVS(778)*XX(106)-JVS(987)*XX(147)-JVS(1198)*XX(181)-JVS(1781)*XX(249)-JVS(1967)& + &*XX(265)-JVS(2624)*XX(298)-JVS(2652)*XX(299))/(JVS(2760)) + XX(304) = (X(304)-JVS(59)*XX(7)-JVS(296)*XX(37)-JVS(760)*XX(104)-JVS(1262)*XX(192)-JVS(2266)*XX(283)-JVS(2301)*XX(285)& + &-JVS(2335)*XX(286)-JVS(2527)*XX(295)-JVS(2570)*XX(297)-JVS(2733)*XX(302))/(JVS(2775)) + XX(305) = (X(305)-JVS(518)*XX(39)-JVS(858)*XX(122)-JVS(1146)*XX(173)-JVS(1152)*XX(174)-JVS(1219)*XX(185)-JVS(1251)& + &*XX(190)-JVS(1295)*XX(197)-JVS(1467)*XX(218)-JVS(1492)*XX(220)-JVS(1576)*XX(230)-JVS(1782)*XX(249)-JVS(1805)& + &*XX(251)-JVS(1858)*XX(257)-JVS(1869)*XX(258)-JVS(1968)*XX(265)-JVS(2040)*XX(268)-JVS(2144)*XX(274)-JVS(2432)& + &*XX(290)-JVS(2465)*XX(291)-JVS(2625)*XX(298))/(JVS(2789)) + XX(306) = (X(306)-JVS(297)*XX(37)-JVS(414)*XX(38)-JVS(779)*XX(106)-JVS(824)*XX(116)-JVS(1577)*XX(230)-JVS(1969)& + &*XX(265)-JVS(2041)*XX(268)-JVS(2145)*XX(274)-JVS(2626)*XX(298))/(JVS(2813)) + XX(307) = (X(307)-JVS(415)*XX(38)-JVS(780)*XX(106)-JVS(1220)*XX(185)-JVS(1296)*XX(197)-JVS(1422)*XX(214)-JVS(1578)& + &*XX(230)-JVS(1747)*XX(247)-JVS(1783)*XX(249)-JVS(1806)*XX(251)-JVS(1970)*XX(265)-JVS(2042)*XX(268)-JVS(2070)& + &*XX(269)-JVS(2146)*XX(274)-JVS(2433)*XX(290)-JVS(2466)*XX(291)-JVS(2627)*XX(298)-JVS(2653)*XX(299)-JVS(2761)& + &*XX(303)-JVS(2790)*XX(305)-JVS(2814)*XX(306))/(JVS(2844)) + XX(308) = (X(308)-JVS(60)*XX(7)-JVS(298)*XX(37)-JVS(416)*XX(38)-JVS(988)*XX(147)-JVS(1526)*XX(225)-JVS(2084)*XX(271)& + &-JVS(2108)*XX(273)-JVS(2147)*XX(274)-JVS(2302)*XX(285)-JVS(2385)*XX(288)-JVS(2405)*XX(289)-JVS(2434)*XX(290)& + &-JVS(2467)*XX(291)-JVS(2628)*XX(298)-JVS(2654)*XX(299)-JVS(2762)*XX(303)-JVS(2791)*XX(305)-JVS(2815)*XX(306)& + &-JVS(2845)*XX(307))/(JVS(2857)) + XX(309) = (X(309)-JVS(61)*XX(7)-JVS(417)*XX(38)-JVS(519)*XX(39)-JVS(1436)*XX(216)-JVS(2043)*XX(268)-JVS(2148)*XX(274)& + &-JVS(2303)*XX(285))/(JVS(2910)) + XX(310) = (X(310)-JVS(62)*XX(7)-JVS(299)*XX(37)-JVS(418)*XX(38)-JVS(989)*XX(147)-JVS(1236)*XX(188)-JVS(1468)*XX(218)& + &-JVS(1527)*XX(225)-JVS(1617)*XX(236)-JVS(1748)*XX(247)-JVS(1784)*XX(249)-JVS(1971)*XX(265)-JVS(2071)*XX(269)& + &-JVS(2078)*XX(270)-JVS(2085)*XX(271)-JVS(2109)*XX(273)-JVS(2149)*XX(274)-JVS(2304)*XX(285)-JVS(2386)*XX(288)& + &-JVS(2406)*XX(289)-JVS(2435)*XX(290)-JVS(2468)*XX(291)-JVS(2629)*XX(298)-JVS(2655)*XX(299)-JVS(2763)*XX(303)& + &-JVS(2792)*XX(305)-JVS(2816)*XX(306)-JVS(2846)*XX(307)-JVS(2858)*XX(308)-JVS(2911)*XX(309))/(JVS(2928)) + XX(311) = (X(311)-JVS(63)*XX(7)-JVS(520)*XX(39)-JVS(2044)*XX(268)-JVS(2336)*XX(286)-JVS(2630)*XX(298))/(JVS(2983)) + XX(312) = (X(312)-JVS(64)*XX(7)-JVS(300)*XX(37)-JVS(419)*XX(38)-JVS(1241)*XX(189)-JVS(1493)*XX(220)-JVS(1785)*XX(249)& + &-JVS(1807)*XX(251)-JVS(1930)*XX(262)-JVS(2045)*XX(268)-JVS(2631)*XX(298)-JVS(2984)*XX(311))/(JVS(3007)) + XX(313) = (X(313)-JVS(420)*XX(38)-JVS(521)*XX(39)-JVS(1749)*XX(247)-JVS(1786)*XX(249)-JVS(1859)*XX(257)-JVS(1931)& + &*XX(262)-JVS(2046)*XX(268)-JVS(2436)*XX(290)-JVS(2632)*XX(298)-JVS(2985)*XX(311)-JVS(3008)*XX(312))& + &/(JVS(3032)) + XX(314) = (X(314)-JVS(301)*XX(37)-JVS(522)*XX(39)-JVS(1004)*XX(150)-JVS(1157)*XX(175)-JVS(1254)*XX(191)-JVS(1390)& + &*XX(210)-JVS(1413)*XX(213)-JVS(1423)*XX(214)-JVS(1469)*XX(218)-JVS(1553)*XX(228)-JVS(1598)*XX(233)-JVS(1610)& + &*XX(235)-JVS(1693)*XX(242)-JVS(1723)*XX(245)-JVS(1808)*XX(251)-JVS(1870)*XX(258)-JVS(1886)*XX(259)-JVS(2047)& + &*XX(268)-JVS(2072)*XX(269)-JVS(2079)*XX(270)-JVS(2150)*XX(274)-JVS(2387)*XX(288)-JVS(2407)*XX(289)-JVS(2437)& + &*XX(290)-JVS(2469)*XX(291)-JVS(2633)*XX(298)-JVS(2764)*XX(303)-JVS(2793)*XX(305)-JVS(2817)*XX(306)-JVS(2847)& + &*XX(307)-JVS(2912)*XX(309)-JVS(2986)*XX(311)-JVS(3009)*XX(312)-JVS(3033)*XX(313))/(JVS(3048)) + XX(315) = (X(315)-JVS(302)*XX(37)-JVS(523)*XX(39)-JVS(1009)*XX(151)-JVS(1173)*XX(177)-JVS(1226)*XX(186)-JVS(1283)& + &*XX(195)-JVS(1326)*XX(202)-JVS(1470)*XX(218)-JVS(1534)*XX(226)-JVS(1585)*XX(231)-JVS(1611)*XX(235)-JVS(1694)& + &*XX(242)-JVS(1724)*XX(245)-JVS(1750)*XX(247)-JVS(1809)*XX(251)-JVS(1860)*XX(257)-JVS(1887)*XX(259)-JVS(2048)& + &*XX(268)-JVS(2073)*XX(269)-JVS(2086)*XX(271)-JVS(2151)*XX(274)-JVS(2388)*XX(288)-JVS(2408)*XX(289)-JVS(2438)& + &*XX(290)-JVS(2470)*XX(291)-JVS(2634)*XX(298)-JVS(2765)*XX(303)-JVS(2794)*XX(305)-JVS(2818)*XX(306)-JVS(2848)& + &*XX(307)-JVS(2913)*XX(309)-JVS(2987)*XX(311)-JVS(3010)*XX(312)-JVS(3034)*XX(313)-JVS(3049)*XX(314))& + &/(JVS(3064)) + XX(316) = (X(316)-JVS(65)*XX(7)-JVS(303)*XX(37)-JVS(1751)*XX(247)-JVS(2305)*XX(285)-JVS(2337)*XX(286)-JVS(2635)& + &*XX(298)-JVS(2988)*XX(311))/(JVS(3086)) + XX(317) = (X(317)-JVS(66)*XX(7)-JVS(181)*XX(32)-JVS(304)*XX(37)-JVS(421)*XX(38)-JVS(538)*XX(40)-JVS(546)*XX(41)& + &-JVS(561)*XX(43)-JVS(711)*XX(92)-JVS(977)*XX(146)-JVS(2014)*XX(267)-JVS(2049)*XX(268))/(JVS(3112)) + XX(318) = (X(318)-JVS(422)*XX(38)-JVS(524)*XX(39)-JVS(562)*XX(43)-JVS(825)*XX(116)-JVS(1871)*XX(258)-JVS(2015)*XX(267)& + &-JVS(2471)*XX(291)-JVS(2494)*XX(293)-JVS(2636)*XX(298)-JVS(2734)*XX(302)-JVS(2819)*XX(306)-JVS(2914)*XX(309)& + &-JVS(2989)*XX(311)-JVS(3113)*XX(317))/(JVS(3147)) + XX(319) = (X(319)-JVS(67)*XX(7)-JVS(305)*XX(37)-JVS(852)*XX(121)-JVS(1028)*XX(154)-JVS(2306)*XX(285)-JVS(2338)& + &*XX(286))/(JVS(3164)) + XX(320) = (X(320)-JVS(423)*XX(38)-JVS(547)*XX(41)-JVS(978)*XX(146)-JVS(1019)*XX(153)-JVS(1065)*XX(160))/(JVS(3183)) + XX(321) = (X(321)-JVS(306)*XX(37)-JVS(424)*XX(38)-JVS(1066)*XX(160)-JVS(1759)*XX(248))/(JVS(3199)) + XX(322) = (X(322)-JVS(68)*XX(7)-JVS(307)*XX(37)-JVS(1263)*XX(192)-JVS(1838)*XX(255)-JVS(2307)*XX(285)-JVS(2339)& + &*XX(286)-JVS(2528)*XX(295)-JVS(2571)*XX(297)-JVS(2735)*XX(302)-JVS(3087)*XX(316)-JVS(3165)*XX(319))& + &/(JVS(3214)) + XX(323) = (X(323)-JVS(69)*XX(7)-JVS(308)*XX(37)-JVS(742)*XX(99)-JVS(1264)*XX(192)-JVS(1839)*XX(255)-JVS(2308)*XX(285)& + &-JVS(2340)*XX(286)-JVS(2529)*XX(295)-JVS(2572)*XX(297)-JVS(2736)*XX(302)-JVS(3088)*XX(316)-JVS(3166)*XX(319)& + &-JVS(3215)*XX(322))/(JVS(3241)) + XX(324) = (X(324)-JVS(70)*XX(7)-JVS(309)*XX(37)-JVS(1265)*XX(192)-JVS(1752)*XX(247)-JVS(1794)*XX(250)-JVS(1840)& + &*XX(255)-JVS(2267)*XX(283)-JVS(2309)*XX(285)-JVS(2341)*XX(286)-JVS(2530)*XX(295)-JVS(2573)*XX(297)-JVS(2637)& + &*XX(298)-JVS(2673)*XX(300)-JVS(2737)*XX(302)-JVS(2915)*XX(309)-JVS(3089)*XX(316)-JVS(3167)*XX(319)-JVS(3216)& + &*XX(322)-JVS(3242)*XX(323))/(JVS(3257)) + XX(325) = (X(325)-JVS(71)*XX(7)-JVS(310)*XX(37)-JVS(880)*XX(127)-JVS(1053)*XX(158)-JVS(1168)*XX(176)-JVS(2674)*XX(300)& + &-JVS(3168)*XX(319))/(JVS(3286)) + XX(326) = (X(326)-JVS(72)*XX(7)-JVS(311)*XX(37)-JVS(731)*XX(97)-JVS(750)*XX(101)-JVS(1266)*XX(192)-JVS(2310)*XX(285)& + &-JVS(2342)*XX(286)-JVS(2738)*XX(302)-JVS(3169)*XX(319)-JVS(3287)*XX(325))/(JVS(3311)) + XX(327) = (X(327)-JVS(73)*XX(7)-JVS(312)*XX(37)-JVS(719)*XX(94)-JVS(754)*XX(102)-JVS(1267)*XX(192)-JVS(2311)*XX(285)& + &-JVS(2343)*XX(286)-JVS(2574)*XX(297)-JVS(2739)*XX(302)-JVS(3090)*XX(316)-JVS(3170)*XX(319)-JVS(3288)*XX(325)& + &-JVS(3312)*XX(326))/(JVS(3336)) + XX(328) = (X(328)-JVS(74)*XX(7)-JVS(313)*XX(37)-JVS(723)*XX(95)-JVS(906)*XX(132)-JVS(961)*XX(143)-JVS(990)*XX(147)& + &-JVS(1169)*XX(176)-JVS(1543)*XX(227)-JVS(1681)*XX(241)-JVS(1733)*XX(246)-JVS(1816)*XX(252)-JVS(1824)*XX(253)& + &-JVS(1847)*XX(256)-JVS(1906)*XX(260)-JVS(1919)*XX(261)-JVS(1942)*XX(263)-JVS(1952)*XX(264)-JVS(2003)*XX(266)& + &-JVS(2165)*XX(275)-JVS(2176)*XX(276)-JVS(2198)*XX(277)-JVS(2210)*XX(278)-JVS(2231)*XX(280)-JVS(2242)*XX(281)& + &-JVS(2256)*XX(282)-JVS(2268)*XX(283)-JVS(2277)*XX(284)-JVS(2312)*XX(285)-JVS(2344)*XX(286)-JVS(2486)*XX(292)& + &-JVS(2502)*XX(294)-JVS(2531)*XX(295)-JVS(2575)*XX(297)-JVS(2638)*XX(298)-JVS(2656)*XX(299)-JVS(2675)*XX(300)& + &-JVS(2740)*XX(302)-JVS(2766)*XX(303)-JVS(2776)*XX(304)-JVS(2795)*XX(305)-JVS(2820)*XX(306)-JVS(2849)*XX(307)& + &-JVS(2859)*XX(308)-JVS(2916)*XX(309)-JVS(2929)*XX(310)-JVS(2990)*XX(311)-JVS(3011)*XX(312)-JVS(3035)*XX(313)& + &-JVS(3050)*XX(314)-JVS(3065)*XX(315)-JVS(3091)*XX(316)-JVS(3114)*XX(317)-JVS(3148)*XX(318)-JVS(3171)*XX(319)& + &-JVS(3217)*XX(322)-JVS(3243)*XX(323)-JVS(3258)*XX(324)-JVS(3289)*XX(325)-JVS(3313)*XX(326)-JVS(3337)*XX(327))& + &/(JVS(3424)) + XX(329) = (X(329)-JVS(193)*XX(34)-JVS(199)*XX(35)-JVS(425)*XX(38)-JVS(525)*XX(39)-JVS(715)*XX(93)-JVS(979)*XX(146)& + &-JVS(1477)*XX(219))/(JVS(3562)) + XX(330) = (X(330)-JVS(426)*XX(38)-JVS(526)*XX(39)-JVS(1590)*XX(232)-JVS(3425)*XX(328)-JVS(3563)*XX(329))/(JVS(3608)) + XX(331) = (X(331)-JVS(617)*XX(65)-JVS(654)*XX(75)-JVS(1140)*XX(172)-JVS(1831)*XX(254)-JVS(2361)*XX(287)-JVS(2542)& + &*XX(296))/(JVS(3635)) + XX(332) = (X(332)-JVS(427)*XX(38)-JVS(548)*XX(41)-JVS(980)*XX(146)-JVS(1067)*XX(160)-JVS(1760)*XX(248))/(JVS(3655)) + XX(333) = (X(333)-JVS(314)*XX(37)-JVS(625)*XX(67)-JVS(629)*XX(68)-JVS(1122)*XX(169)-JVS(1210)*XX(183)-JVS(1666)& + &*XX(240))/(JVS(3755)) + XX(334) = (X(334)-JVS(75)*XX(7)-JVS(315)*XX(37)-JVS(428)*XX(38)-JVS(527)*XX(39)-JVS(633)*XX(69)-JVS(684)*XX(83)& + &-JVS(727)*XX(96)-JVS(815)*XX(114)-JVS(841)*XX(119)-JVS(907)*XX(132)-JVS(920)*XX(134)-JVS(941)*XX(138)& + &-JVS(991)*XX(147)-JVS(1029)*XX(154)-JVS(1089)*XX(163)-JVS(1094)*XX(164)-JVS(1106)*XX(166)-JVS(1112)*XX(167)& + &-JVS(1133)*XX(171)-JVS(1268)*XX(192)-JVS(1358)*XX(206)-JVS(1494)*XX(220)-JVS(1528)*XX(225)-JVS(1544)*XX(227)& + &-JVS(1626)*XX(237)-JVS(1640)*XX(238)-JVS(1652)*XX(239)-JVS(1682)*XX(241)-JVS(1695)*XX(242)-JVS(1734)*XX(246)& + &-JVS(1761)*XX(248)-JVS(1787)*XX(249)-JVS(1817)*XX(252)-JVS(1825)*XX(253)-JVS(1848)*XX(256)-JVS(1907)*XX(260)& + &-JVS(1920)*XX(261)-JVS(1943)*XX(263)-JVS(1953)*XX(264)-JVS(2004)*XX(266)-JVS(2080)*XX(270)-JVS(2087)*XX(271)& + &-JVS(2099)*XX(272)-JVS(2110)*XX(273)-JVS(2152)*XX(274)-JVS(2166)*XX(275)-JVS(2177)*XX(276)-JVS(2199)*XX(277)& + &-JVS(2211)*XX(278)-JVS(2232)*XX(280)-JVS(2243)*XX(281)-JVS(2257)*XX(282)-JVS(2269)*XX(283)-JVS(2278)*XX(284)& + &-JVS(2313)*XX(285)-JVS(2345)*XX(286)-JVS(2389)*XX(288)-JVS(2409)*XX(289)-JVS(2439)*XX(290)-JVS(2472)*XX(291)& + &-JVS(2487)*XX(292)-JVS(2503)*XX(294)-JVS(2532)*XX(295)-JVS(2576)*XX(297)-JVS(2639)*XX(298)-JVS(2657)*XX(299)& + &-JVS(2676)*XX(300)-JVS(2741)*XX(302)-JVS(2767)*XX(303)-JVS(2777)*XX(304)-JVS(2796)*XX(305)-JVS(2821)*XX(306)& + &-JVS(2850)*XX(307)-JVS(2860)*XX(308)-JVS(2917)*XX(309)-JVS(2930)*XX(310)-JVS(2991)*XX(311)-JVS(3012)*XX(312)& + &-JVS(3036)*XX(313)-JVS(3051)*XX(314)-JVS(3066)*XX(315)-JVS(3092)*XX(316)-JVS(3115)*XX(317)-JVS(3149)*XX(318)& + &-JVS(3172)*XX(319)-JVS(3218)*XX(322)-JVS(3244)*XX(323)-JVS(3259)*XX(324)-JVS(3290)*XX(325)-JVS(3314)*XX(326)& + &-JVS(3338)*XX(327)-JVS(3426)*XX(328)-JVS(3564)*XX(329)-JVS(3609)*XX(330)-JVS(3656)*XX(332)-JVS(3756)*XX(333))& + &/(JVS(3838)) + XX(335) = (X(335)-JVS(76)*XX(7)-JVS(539)*XX(40)-JVS(1710)*XX(244)-JVS(2016)*XX(267)-JVS(2346)*XX(286)-JVS(3116)& + &*XX(317)-JVS(3565)*XX(329)-JVS(3610)*XX(330)-JVS(3757)*XX(333)-JVS(3839)*XX(334))/(JVS(3961)) + XX(336) = (X(336)-JVS(429)*XX(38)-JVS(574)*XX(47)-JVS(599)*XX(58)-JVS(738)*XX(98)-JVS(785)*XX(107)-JVS(861)*XX(123)& + &-JVS(2362)*XX(287)-JVS(2543)*XX(296)-JVS(3636)*XX(331)-JVS(3657)*XX(332)-JVS(3758)*XX(333))/(JVS(3981)) + XX(337) = (X(337)-JVS(430)*XX(38)-JVS(555)*XX(42)-JVS(580)*XX(49)-JVS(582)*XX(50)-JVS(584)*XX(51)-JVS(586)*XX(52)& + &-JVS(588)*XX(53)-JVS(590)*XX(54)-JVS(594)*XX(56)-JVS(596)*XX(57)-JVS(615)*XX(64)-JVS(621)*XX(66)-JVS(669)& + &*XX(79)-JVS(681)*XX(82)-JVS(699)*XX(88)-JVS(702)*XX(89)-JVS(705)*XX(90)-JVS(708)*XX(91)-JVS(790)*XX(108)& + &-JVS(1215)*XX(184)-JVS(1478)*XX(219)-JVS(1591)*XX(232)-JVS(1762)*XX(248)-JVS(3566)*XX(329)-JVS(3658)*XX(332)& + &-JVS(3759)*XX(333)-JVS(3840)*XX(334)-JVS(3962)*XX(335))/(JVS(4026)) + XX(338) = (X(338)-JVS(77)*XX(7)-JVS(107)*XX(12)-JVS(110)*XX(13)-JVS(124)*XX(17)-JVS(127)*XX(18)-JVS(137)*XX(21)& + &-JVS(140)*XX(22)-JVS(156)*XX(26)-JVS(159)*XX(27)-JVS(316)*XX(37)-JVS(528)*XX(39)-JVS(618)*XX(65)-JVS(637)& + &*XX(70)-JVS(647)*XX(73)-JVS(693)*XX(86)-JVS(720)*XX(94)-JVS(728)*XX(96)-JVS(732)*XX(97)-JVS(739)*XX(98)& + &-JVS(816)*XX(114)-JVS(830)*XX(117)-JVS(868)*XX(124)-JVS(893)*XX(130)-JVS(908)*XX(132)-JVS(915)*XX(133)& + &-JVS(926)*XX(135)-JVS(931)*XX(136)-JVS(936)*XX(137)-JVS(946)*XX(139)-JVS(954)*XX(141)-JVS(992)*XX(147)& + &-JVS(1014)*XX(152)-JVS(1035)*XX(155)-JVS(1101)*XX(165)-JVS(1107)*XX(166)-JVS(1118)*XX(168)-JVS(1141)*XX(172)& + &-JVS(1147)*XX(173)-JVS(1153)*XX(174)-JVS(1158)*XX(175)-JVS(1174)*XX(177)-JVS(1186)*XX(179)-JVS(1193)*XX(180)& + &-JVS(1199)*XX(181)-JVS(1205)*XX(182)-JVS(1221)*XX(185)-JVS(1227)*XX(186)-JVS(1274)*XX(193)-JVS(1288)*XX(196)& + &-JVS(1314)*XX(200)-JVS(1321)*XX(201)-JVS(1359)*XX(206)-JVS(1373)*XX(207)-JVS(1380)*XX(208)-JVS(1385)*XX(209)& + &-JVS(1391)*XX(210)-JVS(1403)*XX(211)-JVS(1408)*XX(212)-JVS(1424)*XX(214)-JVS(1429)*XX(215)-JVS(1437)*XX(216)& + &-JVS(1471)*XX(218)-JVS(1495)*XX(220)-JVS(1535)*XX(226)-JVS(1545)*XX(227)-JVS(1554)*XX(228)-JVS(1560)*XX(229)& + &-JVS(1579)*XX(230)-JVS(1612)*XX(235)-JVS(1618)*XX(236)-JVS(1627)*XX(237)-JVS(1641)*XX(238)-JVS(1653)*XX(239)& + &-JVS(1667)*XX(240)-JVS(1683)*XX(241)-JVS(1696)*XX(242)-JVS(1703)*XX(243)-JVS(1711)*XX(244)-JVS(1725)*XX(245)& + &-JVS(1735)*XX(246)-JVS(1753)*XX(247)-JVS(1788)*XX(249)-JVS(1795)*XX(250)-JVS(1810)*XX(251)-JVS(1818)*XX(252)& + &-JVS(1826)*XX(253)-JVS(1841)*XX(255)-JVS(1849)*XX(256)-JVS(1861)*XX(257)-JVS(1872)*XX(258)-JVS(1888)*XX(259)& + &-JVS(1908)*XX(260)-JVS(1921)*XX(261)-JVS(1932)*XX(262)-JVS(1944)*XX(263)-JVS(1954)*XX(264)-JVS(1972)*XX(265)& + &-JVS(2005)*XX(266)-JVS(2017)*XX(267)-JVS(2050)*XX(268)-JVS(2074)*XX(269)-JVS(2081)*XX(270)-JVS(2088)*XX(271)& + &-JVS(2100)*XX(272)-JVS(2111)*XX(273)-JVS(2153)*XX(274)-JVS(2167)*XX(275)-JVS(2178)*XX(276)-JVS(2200)*XX(277)& + &-JVS(2212)*XX(278)-JVS(2233)*XX(280)-JVS(2244)*XX(281)-JVS(2258)*XX(282)-JVS(2270)*XX(283)-JVS(2279)*XX(284)& + &-JVS(2314)*XX(285)-JVS(2347)*XX(286)-JVS(2363)*XX(287)-JVS(2390)*XX(288)-JVS(2410)*XX(289)-JVS(2440)*XX(290)& + &-JVS(2473)*XX(291)-JVS(2488)*XX(292)-JVS(2504)*XX(294)-JVS(2533)*XX(295)-JVS(2544)*XX(296)-JVS(2577)*XX(297)& + &-JVS(2640)*XX(298)-JVS(2658)*XX(299)-JVS(2677)*XX(300)-JVS(2742)*XX(302)-JVS(2768)*XX(303)-JVS(2778)*XX(304)& + &-JVS(2797)*XX(305)-JVS(2822)*XX(306)-JVS(2851)*XX(307)-JVS(2861)*XX(308)-JVS(2918)*XX(309)-JVS(2931)*XX(310)& + &-JVS(2992)*XX(311)-JVS(3013)*XX(312)-JVS(3037)*XX(313)-JVS(3052)*XX(314)-JVS(3067)*XX(315)-JVS(3093)*XX(316)& + &-JVS(3117)*XX(317)-JVS(3150)*XX(318)-JVS(3173)*XX(319)-JVS(3219)*XX(322)-JVS(3245)*XX(323)-JVS(3260)*XX(324)& + &-JVS(3291)*XX(325)-JVS(3315)*XX(326)-JVS(3339)*XX(327)-JVS(3427)*XX(328)-JVS(3567)*XX(329)-JVS(3611)*XX(330)& + &-JVS(3637)*XX(331)-JVS(3760)*XX(333)-JVS(3841)*XX(334)-JVS(3963)*XX(335)-JVS(3982)*XX(336)-JVS(4027)*XX(337))& + &/(JVS(4146)) + XX(339) = (X(339)-JVS(431)*XX(38)-JVS(786)*XX(107)-JVS(1068)*XX(160)-JVS(1443)*XX(217)-JVS(1668)*XX(240)-JVS(1763)& + &*XX(248)-JVS(1832)*XX(254)-JVS(2364)*XX(287)-JVS(2545)*XX(296)-JVS(2687)*XX(301)-JVS(3184)*XX(320)-JVS(3200)& + &*XX(321)-JVS(3638)*XX(331)-JVS(3659)*XX(332)-JVS(3761)*XX(333)-JVS(3983)*XX(336)-JVS(4028)*XX(337)-JVS(4147)& + &*XX(338))/(JVS(4181)) + XX(340) = (X(340)-JVS(432)*XX(38)-JVS(1069)*XX(160)-JVS(1123)*XX(169)-JVS(1211)*XX(183)-JVS(1444)*XX(217)-JVS(1479)& + &*XX(219)-JVS(1499)*XX(221)-JVS(1669)*XX(240)-JVS(1764)*XX(248)-JVS(2688)*XX(301)-JVS(3185)*XX(320)-JVS(3201)& + &*XX(321)-JVS(3660)*XX(332)-JVS(3762)*XX(333)-JVS(4029)*XX(337)-JVS(4148)*XX(338)-JVS(4182)*XX(339))& + &/(JVS(4259)) + XX(341) = (X(341)-JVS(78)*XX(7)-JVS(104)*XX(11)-JVS(111)*XX(13)-JVS(121)*XX(16)-JVS(128)*XX(18)-JVS(134)*XX(20)& + &-JVS(141)*XX(22)-JVS(153)*XX(25)-JVS(160)*XX(27)-JVS(317)*XX(37)-JVS(433)*XX(38)-JVS(529)*XX(39)-JVS(563)& + &*XX(43)-JVS(634)*XX(69)-JVS(651)*XX(74)-JVS(655)*XX(75)-JVS(659)*XX(76)-JVS(663)*XX(77)-JVS(724)*XX(95)& + &-JVS(743)*XX(99)-JVS(747)*XX(100)-JVS(751)*XX(101)-JVS(755)*XX(102)-JVS(761)*XX(104)-JVS(797)*XX(110)& + &-JVS(802)*XX(111)-JVS(806)*XX(112)-JVS(836)*XX(118)-JVS(853)*XX(121)-JVS(869)*XX(124)-JVS(877)*XX(126)& + &-JVS(885)*XX(128)-JVS(909)*XX(132)-JVS(916)*XX(133)-JVS(921)*XX(134)-JVS(927)*XX(135)-JVS(932)*XX(136)& + &-JVS(937)*XX(137)-JVS(942)*XX(138)-JVS(1015)*XX(152)-JVS(1036)*XX(155)-JVS(1054)*XX(158)-JVS(1078)*XX(161)& + &-JVS(1090)*XX(163)-JVS(1095)*XX(164)-JVS(1113)*XX(167)-JVS(1119)*XX(168)-JVS(1134)*XX(171)-JVS(1148)*XX(173)& + &-JVS(1154)*XX(174)-JVS(1170)*XX(176)-JVS(1180)*XX(178)-JVS(1200)*XX(181)-JVS(1206)*XX(182)-JVS(1222)*XX(185)& + &-JVS(1228)*XX(186)-JVS(1237)*XX(188)-JVS(1255)*XX(191)-JVS(1275)*XX(193)-JVS(1284)*XX(195)-JVS(1303)*XX(198)& + &-JVS(1315)*XX(200)-JVS(1322)*XX(201)-JVS(1327)*XX(202)-JVS(1360)*XX(206)-JVS(1374)*XX(207)-JVS(1381)*XX(208)& + &-JVS(1386)*XX(209)-JVS(1392)*XX(210)-JVS(1404)*XX(211)-JVS(1414)*XX(213)-JVS(1425)*XX(214)-JVS(1430)*XX(215)& + &-JVS(1438)*XX(216)-JVS(1472)*XX(218)-JVS(1480)*XX(219)-JVS(1496)*XX(220)-JVS(1529)*XX(225)-JVS(1536)*XX(226)& + &-JVS(1546)*XX(227)-JVS(1555)*XX(228)-JVS(1561)*XX(229)-JVS(1580)*XX(230)-JVS(1586)*XX(231)-JVS(1599)*XX(233)& + &-JVS(1603)*XX(234)-JVS(1613)*XX(235)-JVS(1619)*XX(236)-JVS(1628)*XX(237)-JVS(1642)*XX(238)-JVS(1654)*XX(239)& + &-JVS(1684)*XX(241)-JVS(1697)*XX(242)-JVS(1704)*XX(243)-JVS(1726)*XX(245)-JVS(1736)*XX(246)-JVS(1754)*XX(247)& + &-JVS(1789)*XX(249)-JVS(1796)*XX(250)-JVS(1811)*XX(251)-JVS(1819)*XX(252)-JVS(1827)*XX(253)-JVS(1842)*XX(255)& + &-JVS(1850)*XX(256)-JVS(1862)*XX(257)-JVS(1873)*XX(258)-JVS(1889)*XX(259)-JVS(1909)*XX(260)-JVS(1922)*XX(261)& + &-JVS(1933)*XX(262)-JVS(1945)*XX(263)-JVS(1955)*XX(264)-JVS(1973)*XX(265)-JVS(2006)*XX(266)-JVS(2018)*XX(267)& + &-JVS(2051)*XX(268)-JVS(2075)*XX(269)-JVS(2101)*XX(272)-JVS(2112)*XX(273)-JVS(2154)*XX(274)-JVS(2168)*XX(275)& + &-JVS(2179)*XX(276)-JVS(2201)*XX(277)-JVS(2213)*XX(278)-JVS(2234)*XX(280)-JVS(2245)*XX(281)-JVS(2259)*XX(282)& + &-JVS(2271)*XX(283)-JVS(2280)*XX(284)-JVS(2315)*XX(285)-JVS(2348)*XX(286)-JVS(2365)*XX(287)-JVS(2391)*XX(288)& + &-JVS(2411)*XX(289)-JVS(2441)*XX(290)-JVS(2474)*XX(291)-JVS(2489)*XX(292)-JVS(2505)*XX(294)-JVS(2534)*XX(295)& + &-JVS(2578)*XX(297)-JVS(2641)*XX(298)-JVS(2659)*XX(299)-JVS(2678)*XX(300)-JVS(2743)*XX(302)-JVS(2769)*XX(303)& + &-JVS(2779)*XX(304)-JVS(2798)*XX(305)-JVS(2823)*XX(306)-JVS(2852)*XX(307)-JVS(2862)*XX(308)-JVS(2919)*XX(309)& + &-JVS(2932)*XX(310)-JVS(2993)*XX(311)-JVS(3014)*XX(312)-JVS(3038)*XX(313)-JVS(3053)*XX(314)-JVS(3068)*XX(315)& + &-JVS(3094)*XX(316)-JVS(3118)*XX(317)-JVS(3151)*XX(318)-JVS(3174)*XX(319)-JVS(3186)*XX(320)-JVS(3220)*XX(322)& + &-JVS(3246)*XX(323)-JVS(3261)*XX(324)-JVS(3292)*XX(325)-JVS(3316)*XX(326)-JVS(3340)*XX(327)-JVS(3428)*XX(328)& + &-JVS(3568)*XX(329)-JVS(3612)*XX(330)-JVS(3639)*XX(331)-JVS(3661)*XX(332)-JVS(3763)*XX(333)-JVS(3842)*XX(334)& + &-JVS(3964)*XX(335)-JVS(3984)*XX(336)-JVS(4030)*XX(337)-JVS(4149)*XX(338)-JVS(4183)*XX(339)-JVS(4260)*XX(340))& + &/(JVS(4466)) + XX(342) = (X(342)-JVS(530)*XX(39)-JVS(610)*XX(62)-JVS(957)*XX(142)-JVS(1020)*XX(153)-JVS(1231)*XX(187)-JVS(1500)& + &*XX(221)-JVS(1956)*XX(264)-JVS(2316)*XX(285)-JVS(2349)*XX(286)-JVS(2495)*XX(293)-JVS(2579)*XX(297)-JVS(2642)& + &*XX(298)-JVS(2679)*XX(300)-JVS(2744)*XX(302)-JVS(2994)*XX(311)-JVS(3095)*XX(316)-JVS(3119)*XX(317)-JVS(3175)& + &*XX(319)-JVS(3187)*XX(320)-JVS(3293)*XX(325)-JVS(3317)*XX(326)-JVS(3341)*XX(327)-JVS(3429)*XX(328)-JVS(3569)& + &*XX(329)-JVS(3613)*XX(330)-JVS(3764)*XX(333)-JVS(3843)*XX(334)-JVS(3965)*XX(335)-JVS(4031)*XX(337)-JVS(4150)& + &*XX(338)-JVS(4184)*XX(339)-JVS(4261)*XX(340)-JVS(4467)*XX(341))/(JVS(4523)) + XX(343) = (X(343)-JVS(13)*XX(6)-JVS(79)*XX(7)-JVS(112)*XX(13)-JVS(115)*XX(14)-JVS(129)*XX(18)-JVS(131)*XX(19)-JVS(142)& + &*XX(22)-JVS(150)*XX(24)-JVS(161)*XX(27)-JVS(164)*XX(28)-JVS(182)*XX(32)-JVS(187)*XX(33)-JVS(194)*XX(34)& + &-JVS(318)*XX(37)-JVS(434)*XX(38)-JVS(531)*XX(39)-JVS(540)*XX(40)-JVS(549)*XX(41)-JVS(556)*XX(42)-JVS(564)& + &*XX(43)-JVS(568)*XX(44)-JVS(572)*XX(46)-JVS(592)*XX(55)-JVS(608)*XX(61)-JVS(613)*XX(63)-JVS(635)*XX(69)& + &-JVS(640)*XX(71)-JVS(643)*XX(72)-JVS(648)*XX(73)-JVS(652)*XX(74)-JVS(656)*XX(75)-JVS(660)*XX(76)-JVS(664)& + &*XX(77)-JVS(666)*XX(78)-JVS(670)*XX(79)-JVS(672)*XX(80)-JVS(682)*XX(82)-JVS(687)*XX(84)-JVS(690)*XX(85)& + &-JVS(694)*XX(86)-JVS(696)*XX(87)-JVS(700)*XX(88)-JVS(703)*XX(89)-JVS(706)*XX(90)-JVS(709)*XX(91)-JVS(712)& + &*XX(92)-JVS(716)*XX(93)-JVS(721)*XX(94)-JVS(725)*XX(95)-JVS(729)*XX(96)-JVS(733)*XX(97)-JVS(744)*XX(99)& + &-JVS(748)*XX(100)-JVS(752)*XX(101)-JVS(756)*XX(102)-JVS(758)*XX(103)-JVS(762)*XX(104)-JVS(765)*XX(105)& + &-JVS(791)*XX(108)-JVS(795)*XX(109)-JVS(798)*XX(110)-JVS(803)*XX(111)-JVS(807)*XX(112)-JVS(810)*XX(113)& + &-JVS(820)*XX(115)-JVS(826)*XX(116)-JVS(831)*XX(117)-JVS(837)*XX(118)-JVS(842)*XX(119)-JVS(848)*XX(120)& + &-JVS(854)*XX(121)-JVS(859)*XX(122)-JVS(862)*XX(123)-JVS(870)*XX(124)-JVS(873)*XX(125)-JVS(878)*XX(126)& + &-JVS(881)*XX(127)-JVS(886)*XX(128)-JVS(889)*XX(129)-JVS(894)*XX(130)-JVS(900)*XX(131)-JVS(910)*XX(132)& + &-JVS(917)*XX(133)-JVS(922)*XX(134)-JVS(928)*XX(135)-JVS(933)*XX(136)-JVS(938)*XX(137)-JVS(943)*XX(138)& + &-JVS(947)*XX(139)-JVS(949)*XX(140)-JVS(955)*XX(141)-JVS(958)*XX(142)-JVS(962)*XX(143)-JVS(965)*XX(144)& + &-JVS(970)*XX(145)-JVS(981)*XX(146)-JVS(995)*XX(148)-JVS(1000)*XX(149)-JVS(1005)*XX(150)-JVS(1010)*XX(151)& + &-JVS(1016)*XX(152)-JVS(1021)*XX(153)-JVS(1030)*XX(154)-JVS(1037)*XX(155)-JVS(1041)*XX(156)-JVS(1049)*XX(157)& + &-JVS(1055)*XX(158)-JVS(1061)*XX(159)-JVS(1079)*XX(161)-JVS(1085)*XX(162)-JVS(1091)*XX(163)-JVS(1096)*XX(164)& + &-JVS(1102)*XX(165)-JVS(1108)*XX(166)-JVS(1114)*XX(167)-JVS(1120)*XX(168)-JVS(1127)*XX(170)-JVS(1135)*XX(171)& + &-JVS(1142)*XX(172)-JVS(1159)*XX(175)-JVS(1171)*XX(176)-JVS(1175)*XX(177)-JVS(1181)*XX(178)-JVS(1187)*XX(179)& + &-JVS(1194)*XX(180)-JVS(1201)*XX(181)-JVS(1207)*XX(182)-JVS(1216)*XX(184)-JVS(1223)*XX(185)-JVS(1229)*XX(186)& + &-JVS(1232)*XX(187)-JVS(1238)*XX(188)-JVS(1242)*XX(189)-JVS(1252)*XX(190)-JVS(1256)*XX(191)-JVS(1269)*XX(192)& + &-JVS(1276)*XX(193)-JVS(1279)*XX(194)-JVS(1285)*XX(195)-JVS(1289)*XX(196)-JVS(1297)*XX(197)-JVS(1304)*XX(198)& + &-JVS(1308)*XX(199)-JVS(1316)*XX(200)-JVS(1323)*XX(201)-JVS(1328)*XX(202)-JVS(1330)*XX(203)-JVS(1338)*XX(204)& + &-JVS(1346)*XX(205)-JVS(1361)*XX(206)-JVS(1375)*XX(207)-JVS(1382)*XX(208)-JVS(1387)*XX(209)-JVS(1393)*XX(210)& + &-JVS(1405)*XX(211)-JVS(1409)*XX(212)-JVS(1415)*XX(213)-JVS(1426)*XX(214)-JVS(1431)*XX(215)-JVS(1439)*XX(216)& + &-JVS(1473)*XX(218)-JVS(1481)*XX(219)-JVS(1497)*XX(220)-JVS(1505)*XX(222)-JVS(1509)*XX(223)-JVS(1522)*XX(224)& + &-JVS(1530)*XX(225)-JVS(1537)*XX(226)-JVS(1547)*XX(227)-JVS(1556)*XX(228)-JVS(1562)*XX(229)-JVS(1581)*XX(230)& + &-JVS(1587)*XX(231)-JVS(1592)*XX(232)-JVS(1600)*XX(233)-JVS(1604)*XX(234)-JVS(1614)*XX(235)-JVS(1620)*XX(236)& + &-JVS(1629)*XX(237)-JVS(1643)*XX(238)-JVS(1655)*XX(239)-JVS(1670)*XX(240)-JVS(1685)*XX(241)-JVS(1698)*XX(242)& + &-JVS(1705)*XX(243)-JVS(1727)*XX(245)-JVS(1737)*XX(246)-JVS(1755)*XX(247)-JVS(1765)*XX(248)-JVS(1790)*XX(249)& + &-JVS(1797)*XX(250)-JVS(1812)*XX(251)-JVS(1820)*XX(252)-JVS(1828)*XX(253)-JVS(1843)*XX(255)-JVS(1851)*XX(256)& + &-JVS(1863)*XX(257)-JVS(1874)*XX(258)-JVS(1890)*XX(259)-JVS(1910)*XX(260)-JVS(1923)*XX(261)-JVS(1934)*XX(262)& + &-JVS(1946)*XX(263)-JVS(1957)*XX(264)-JVS(1974)*XX(265)-JVS(2007)*XX(266)-JVS(2019)*XX(267)-JVS(2052)*XX(268)& + &-JVS(2076)*XX(269)-JVS(2082)*XX(270)-JVS(2089)*XX(271)-JVS(2102)*XX(272)-JVS(2113)*XX(273)-JVS(2155)*XX(274)& + &-JVS(2169)*XX(275)-JVS(2180)*XX(276)-JVS(2202)*XX(277)-JVS(2214)*XX(278)-JVS(2218)*XX(279)-JVS(2235)*XX(280)& + &-JVS(2246)*XX(281)-JVS(2260)*XX(282)-JVS(2272)*XX(283)-JVS(2281)*XX(284)-JVS(2317)*XX(285)-JVS(2350)*XX(286)& + &-JVS(2366)*XX(287)-JVS(2392)*XX(288)-JVS(2412)*XX(289)-JVS(2442)*XX(290)-JVS(2475)*XX(291)-JVS(2490)*XX(292)& + &-JVS(2496)*XX(293)-JVS(2506)*XX(294)-JVS(2535)*XX(295)-JVS(2546)*XX(296)-JVS(2580)*XX(297)-JVS(2643)*XX(298)& + &-JVS(2660)*XX(299)-JVS(2680)*XX(300)-JVS(2689)*XX(301)-JVS(2745)*XX(302)-JVS(2770)*XX(303)-JVS(2780)*XX(304)& + &-JVS(2799)*XX(305)-JVS(2824)*XX(306)-JVS(2853)*XX(307)-JVS(2863)*XX(308)-JVS(2920)*XX(309)-JVS(2933)*XX(310)& + &-JVS(2995)*XX(311)-JVS(3015)*XX(312)-JVS(3039)*XX(313)-JVS(3054)*XX(314)-JVS(3069)*XX(315)-JVS(3096)*XX(316)& + &-JVS(3120)*XX(317)-JVS(3152)*XX(318)-JVS(3176)*XX(319)-JVS(3188)*XX(320)-JVS(3202)*XX(321)-JVS(3221)*XX(322)& + &-JVS(3247)*XX(323)-JVS(3262)*XX(324)-JVS(3294)*XX(325)-JVS(3318)*XX(326)-JVS(3342)*XX(327)-JVS(3430)*XX(328)& + &-JVS(3570)*XX(329)-JVS(3614)*XX(330)-JVS(3640)*XX(331)-JVS(3662)*XX(332)-JVS(3765)*XX(333)-JVS(3844)*XX(334)& + &-JVS(3966)*XX(335)-JVS(3985)*XX(336)-JVS(4032)*XX(337)-JVS(4151)*XX(338)-JVS(4185)*XX(339)-JVS(4262)*XX(340)& + &-JVS(4468)*XX(341)-JVS(4524)*XX(342))/(JVS(4799)) + XX(344) = (X(344)-JVS(435)*XX(38)-JVS(667)*XX(78)-JVS(787)*XX(107)-JVS(843)*XX(119)-JVS(863)*XX(123)-JVS(1070)*XX(160)& + &-JVS(1766)*XX(248)-JVS(3203)*XX(321)-JVS(3571)*XX(329)-JVS(3641)*XX(331)-JVS(3663)*XX(332)-JVS(3766)*XX(333)& + &-JVS(3845)*XX(334)-JVS(3967)*XX(335)-JVS(3986)*XX(336)-JVS(4033)*XX(337)-JVS(4152)*XX(338)-JVS(4186)*XX(339)& + &-JVS(4263)*XX(340)-JVS(4469)*XX(341)-JVS(4525)*XX(342)-JVS(4800)*XX(343))/(JVS(4852)) + XX(345) = (X(345)-JVS(195)*XX(34)-JVS(319)*XX(37)-JVS(436)*XX(38)-JVS(550)*XX(41)-JVS(602)*XX(59)-JVS(605)*XX(60)& + &-JVS(611)*XX(62)-JVS(622)*XX(66)-JVS(638)*XX(70)-JVS(685)*XX(83)-JVS(766)*XX(105)-JVS(799)*XX(110)-JVS(811)& + &*XX(113)-JVS(821)*XX(115)-JVS(838)*XX(118)-JVS(874)*XX(125)-JVS(882)*XX(127)-JVS(890)*XX(129)-JVS(963)& + &*XX(143)-JVS(982)*XX(146)-JVS(1149)*XX(173)-JVS(1155)*XX(174)-JVS(1243)*XX(189)-JVS(1324)*XX(201)-JVS(1362)& + &*XX(206)-JVS(1440)*XX(216)-JVS(1445)*XX(217)-JVS(1501)*XX(221)-JVS(1630)*XX(237)-JVS(1644)*XX(238)-JVS(1671)& + &*XX(240)-JVS(1706)*XX(243)-JVS(1712)*XX(244)-JVS(1798)*XX(250)-JVS(1813)*XX(251)-JVS(1833)*XX(254)-JVS(1864)& + &*XX(257)-JVS(1875)*XX(258)-JVS(1924)*XX(261)-JVS(1935)*XX(262)-JVS(2020)*XX(267)-JVS(2053)*XX(268)-JVS(2103)& + &*XX(272)-JVS(2156)*XX(274)-JVS(2203)*XX(277)-JVS(2261)*XX(282)-JVS(2318)*XX(285)-JVS(2351)*XX(286)-JVS(2367)& + &*XX(287)-JVS(2443)*XX(290)-JVS(2476)*XX(291)-JVS(2536)*XX(295)-JVS(2547)*XX(296)-JVS(2581)*XX(297)-JVS(2644)& + &*XX(298)-JVS(2681)*XX(300)-JVS(2690)*XX(301)-JVS(2746)*XX(302)-JVS(2825)*XX(306)-JVS(2921)*XX(309)-JVS(2996)& + &*XX(311)-JVS(3016)*XX(312)-JVS(3097)*XX(316)-JVS(3121)*XX(317)-JVS(3177)*XX(319)-JVS(3189)*XX(320)-JVS(3204)& + &*XX(321)-JVS(3222)*XX(322)-JVS(3248)*XX(323)-JVS(3263)*XX(324)-JVS(3295)*XX(325)-JVS(3319)*XX(326)-JVS(3343)& + &*XX(327)-JVS(3431)*XX(328)-JVS(3572)*XX(329)-JVS(3615)*XX(330)-JVS(3642)*XX(331)-JVS(3664)*XX(332)-JVS(3767)& + &*XX(333)-JVS(3846)*XX(334)-JVS(3968)*XX(335)-JVS(3987)*XX(336)-JVS(4034)*XX(337)-JVS(4153)*XX(338)-JVS(4187)& + &*XX(339)-JVS(4264)*XX(340)-JVS(4470)*XX(341)-JVS(4526)*XX(342)-JVS(4801)*XX(343)-JVS(4853)*XX(344))& + &/(JVS(5026)) + XX(346) = (X(346)-JVS(437)*XX(38)-JVS(788)*XX(107)-JVS(1071)*XX(160)-JVS(1446)*XX(217)-JVS(1672)*XX(240)-JVS(1767)& + &*XX(248)-JVS(1834)*XX(254)-JVS(2368)*XX(287)-JVS(2548)*XX(296)-JVS(2691)*XX(301)-JVS(3190)*XX(320)-JVS(3205)& + &*XX(321)-JVS(3643)*XX(331)-JVS(3665)*XX(332)-JVS(3768)*XX(333)-JVS(3988)*XX(336)-JVS(4035)*XX(337)-JVS(4154)& + &*XX(338)-JVS(4188)*XX(339)-JVS(4265)*XX(340)-JVS(4471)*XX(341)-JVS(4527)*XX(342)-JVS(4802)*XX(343)-JVS(4854)& + &*XX(344)-JVS(5027)*XX(345))/(JVS(5061)) + XX(347) = (X(347)-JVS(438)*XX(38)-JVS(740)*XX(98)-JVS(844)*XX(119)-JVS(864)*XX(123)-JVS(1022)*XX(153)-JVS(1072)& + &*XX(160)-JVS(1502)*XX(221)-JVS(1768)*XX(248)-JVS(3191)*XX(320)-JVS(3644)*XX(331)-JVS(3666)*XX(332)-JVS(3769)& + &*XX(333)-JVS(3989)*XX(336)-JVS(4036)*XX(337)-JVS(4155)*XX(338)-JVS(4189)*XX(339)-JVS(4266)*XX(340)-JVS(4472)& + &*XX(341)-JVS(4528)*XX(342)-JVS(4803)*XX(343)-JVS(4855)*XX(344)-JVS(5028)*XX(345)-JVS(5062)*XX(346))& + &/(JVS(5092)) + XX(348) = (X(348)-JVS(80)*XX(7)-JVS(118)*XX(15)-JVS(439)*XX(38)-JVS(532)*XX(39)-JVS(626)*XX(67)-JVS(630)*XX(68)& + &-JVS(644)*XX(72)-JVS(697)*XX(87)-JVS(817)*XX(114)-JVS(911)*XX(132)-JVS(950)*XX(140)-JVS(966)*XX(144)-JVS(993)& + &*XX(147)-JVS(996)*XX(148)-JVS(1042)*XX(156)-JVS(1086)*XX(162)-JVS(1109)*XX(166)-JVS(1128)*XX(170)-JVS(1143)& + &*XX(172)-JVS(1195)*XX(180)-JVS(1208)*XX(182)-JVS(1233)*XX(187)-JVS(1277)*XX(193)-JVS(1280)*XX(194)-JVS(1290)& + &*XX(196)-JVS(1309)*XX(199)-JVS(1317)*XX(200)-JVS(1331)*XX(203)-JVS(1339)*XX(204)-JVS(1347)*XX(205)-JVS(1363)& + &*XX(206)-JVS(1376)*XX(207)-JVS(1410)*XX(212)-JVS(1432)*XX(215)-JVS(1441)*XX(216)-JVS(1447)*XX(217)-JVS(1506)& + &*XX(222)-JVS(1510)*XX(223)-JVS(1523)*XX(224)-JVS(1548)*XX(227)-JVS(1563)*XX(229)-JVS(1605)*XX(234)-JVS(1631)& + &*XX(237)-JVS(1645)*XX(238)-JVS(1656)*XX(239)-JVS(1673)*XX(240)-JVS(1686)*XX(241)-JVS(1707)*XX(243)-JVS(1738)& + &*XX(246)-JVS(1791)*XX(249)-JVS(1829)*XX(253)-JVS(1852)*XX(256)-JVS(1911)*XX(260)-JVS(1925)*XX(261)-JVS(1936)& + &*XX(262)-JVS(1947)*XX(263)-JVS(1975)*XX(265)-JVS(2008)*XX(266)-JVS(2054)*XX(268)-JVS(2104)*XX(272)-JVS(2157)& + &*XX(274)-JVS(2170)*XX(275)-JVS(2181)*XX(276)-JVS(2204)*XX(277)-JVS(2215)*XX(278)-JVS(2219)*XX(279)-JVS(2236)& + &*XX(280)-JVS(2247)*XX(281)-JVS(2262)*XX(282)-JVS(2282)*XX(284)-JVS(2319)*XX(285)-JVS(2352)*XX(286)-JVS(2369)& + &*XX(287)-JVS(2444)*XX(290)-JVS(2477)*XX(291)-JVS(2491)*XX(292)-JVS(2497)*XX(293)-JVS(2507)*XX(294)-JVS(2537)& + &*XX(295)-JVS(2549)*XX(296)-JVS(2582)*XX(297)-JVS(2645)*XX(298)-JVS(2661)*XX(299)-JVS(2682)*XX(300)-JVS(2692)& + &*XX(301)-JVS(2747)*XX(302)-JVS(2771)*XX(303)-JVS(2781)*XX(304)-JVS(2800)*XX(305)-JVS(2826)*XX(306)-JVS(2854)& + &*XX(307)-JVS(2864)*XX(308)-JVS(2922)*XX(309)-JVS(2934)*XX(310)-JVS(2997)*XX(311)-JVS(3017)*XX(312)-JVS(3040)& + &*XX(313)-JVS(3055)*XX(314)-JVS(3070)*XX(315)-JVS(3098)*XX(316)-JVS(3122)*XX(317)-JVS(3153)*XX(318)-JVS(3178)& + &*XX(319)-JVS(3223)*XX(322)-JVS(3249)*XX(323)-JVS(3264)*XX(324)-JVS(3296)*XX(325)-JVS(3320)*XX(326)-JVS(3344)& + &*XX(327)-JVS(3432)*XX(328)-JVS(3573)*XX(329)-JVS(3616)*XX(330)-JVS(3645)*XX(331)-JVS(3667)*XX(332)-JVS(3770)& + &*XX(333)-JVS(3847)*XX(334)-JVS(3969)*XX(335)-JVS(3990)*XX(336)-JVS(4037)*XX(337)-JVS(4156)*XX(338)-JVS(4190)& + &*XX(339)-JVS(4267)*XX(340)-JVS(4473)*XX(341)-JVS(4529)*XX(342)-JVS(4804)*XX(343)-JVS(4856)*XX(344)-JVS(5029)& + &*XX(345)-JVS(5063)*XX(346)-JVS(5093)*XX(347))/(JVS(5215)) + XX(349) = (X(349)-JVS(440)*XX(38)-JVS(678)*XX(81)-JVS(1023)*XX(153)-JVS(1073)*XX(160)-JVS(1674)*XX(240)-JVS(1835)& + &*XX(254)-JVS(2370)*XX(287)-JVS(2550)*XX(296)-JVS(2693)*XX(301)-JVS(3192)*XX(320)-JVS(3206)*XX(321)-JVS(3646)& + &*XX(331)-JVS(3668)*XX(332)-JVS(3771)*XX(333)-JVS(3991)*XX(336)-JVS(4038)*XX(337)-JVS(4157)*XX(338)-JVS(4191)& + &*XX(339)-JVS(4268)*XX(340)-JVS(4474)*XX(341)-JVS(4530)*XX(342)-JVS(4805)*XX(343)-JVS(4857)*XX(344)-JVS(5030)& + &*XX(345)-JVS(5064)*XX(346)-JVS(5094)*XX(347)-JVS(5216)*XX(348))/(JVS(5243)) + XX(350) = (X(350)-JVS(441)*XX(38)-JVS(679)*XX(81)-JVS(1024)*XX(153)-JVS(1074)*XX(160)-JVS(1675)*XX(240)-JVS(1836)& + &*XX(254)-JVS(2371)*XX(287)-JVS(2551)*XX(296)-JVS(2694)*XX(301)-JVS(3193)*XX(320)-JVS(3207)*XX(321)-JVS(3647)& + &*XX(331)-JVS(3669)*XX(332)-JVS(3772)*XX(333)-JVS(3992)*XX(336)-JVS(4039)*XX(337)-JVS(4158)*XX(338)-JVS(4192)& + &*XX(339)-JVS(4269)*XX(340)-JVS(4475)*XX(341)-JVS(4531)*XX(342)-JVS(4806)*XX(343)-JVS(4858)*XX(344)-JVS(5031)& + &*XX(345)-JVS(5065)*XX(346)-JVS(5095)*XX(347)-JVS(5217)*XX(348)-JVS(5244)*XX(349))/(JVS(5271)) + XX(351) = (X(351)-JVS(442)*XX(38)-JVS(533)*XX(39)-JVS(641)*XX(71)-JVS(1482)*XX(219)-JVS(2021)*XX(267)-JVS(3194)& + &*XX(320)-JVS(3208)*XX(321)-JVS(3574)*XX(329)-JVS(3670)*XX(332)-JVS(3773)*XX(333)-JVS(3970)*XX(335)-JVS(4040)& + &*XX(337)-JVS(4159)*XX(338)-JVS(4193)*XX(339)-JVS(4270)*XX(340)-JVS(4476)*XX(341)-JVS(4532)*XX(342)-JVS(4807)& + &*XX(343)-JVS(4859)*XX(344)-JVS(5032)*XX(345)-JVS(5066)*XX(346)-JVS(5096)*XX(347)-JVS(5218)*XX(348)-JVS(5245)& + &*XX(349)-JVS(5272)*XX(350))/(JVS(5329)) + XX(352) = (X(352)-JVS(81)*XX(7)-JVS(320)*XX(37)-JVS(534)*XX(39)-JVS(557)*XX(42)-JVS(673)*XX(80)-JVS(688)*XX(84)& + &-JVS(845)*XX(119)-JVS(959)*XX(142)-JVS(967)*XX(144)-JVS(1031)*XX(154)-JVS(1115)*XX(167)-JVS(1217)*XX(184)& + &-JVS(1234)*XX(187)-JVS(1483)*XX(219)-JVS(1593)*XX(232)-JVS(1769)*XX(248)-JVS(1958)*XX(264)-JVS(2022)*XX(267)& + &-JVS(2055)*XX(268)-JVS(2220)*XX(279)-JVS(2320)*XX(285)-JVS(2353)*XX(286)-JVS(2445)*XX(290)-JVS(2478)*XX(291)& + &-JVS(2498)*XX(293)-JVS(2583)*XX(297)-JVS(2646)*XX(298)-JVS(2683)*XX(300)-JVS(2748)*XX(302)-JVS(2782)*XX(304)& + &-JVS(2827)*XX(306)-JVS(2865)*XX(308)-JVS(2923)*XX(309)-JVS(2935)*XX(310)-JVS(2998)*XX(311)-JVS(3018)*XX(312)& + &-JVS(3041)*XX(313)-JVS(3056)*XX(314)-JVS(3071)*XX(315)-JVS(3099)*XX(316)-JVS(3123)*XX(317)-JVS(3154)*XX(318)& + &-JVS(3179)*XX(319)-JVS(3209)*XX(321)-JVS(3250)*XX(323)-JVS(3265)*XX(324)-JVS(3297)*XX(325)-JVS(3321)*XX(326)& + &-JVS(3345)*XX(327)-JVS(3433)*XX(328)-JVS(3575)*XX(329)-JVS(3617)*XX(330)-JVS(3671)*XX(332)-JVS(3774)*XX(333)& + &-JVS(3848)*XX(334)-JVS(3971)*XX(335)-JVS(4041)*XX(337)-JVS(4160)*XX(338)-JVS(4194)*XX(339)-JVS(4271)*XX(340)& + &-JVS(4477)*XX(341)-JVS(4533)*XX(342)-JVS(4808)*XX(343)-JVS(4860)*XX(344)-JVS(5033)*XX(345)-JVS(5067)*XX(346)& + &-JVS(5097)*XX(347)-JVS(5219)*XX(348)-JVS(5246)*XX(349)-JVS(5273)*XX(350)-JVS(5330)*XX(351))/(JVS(5425)) + XX(353) = (X(353)-JVS(443)*XX(38)-JVS(565)*XX(43)-JVS(713)*XX(92)-JVS(1448)*XX(217)-JVS(1503)*XX(221)-JVS(1713)& + &*XX(244)-JVS(2023)*XX(267)-JVS(2056)*XX(268)-JVS(2354)*XX(286)-JVS(2372)*XX(287)-JVS(2552)*XX(296)-JVS(2695)& + &*XX(301)-JVS(3124)*XX(317)-JVS(3195)*XX(320)-JVS(3210)*XX(321)-JVS(3576)*XX(329)-JVS(3618)*XX(330)-JVS(3648)& + &*XX(331)-JVS(3672)*XX(332)-JVS(3775)*XX(333)-JVS(3849)*XX(334)-JVS(3972)*XX(335)-JVS(3993)*XX(336)-JVS(4042)& + &*XX(337)-JVS(4161)*XX(338)-JVS(4195)*XX(339)-JVS(4272)*XX(340)-JVS(4478)*XX(341)-JVS(4534)*XX(342)-JVS(4809)& + &*XX(343)-JVS(4861)*XX(344)-JVS(5034)*XX(345)-JVS(5068)*XX(346)-JVS(5098)*XX(347)-JVS(5220)*XX(348)-JVS(5247)& + &*XX(349)-JVS(5274)*XX(350)-JVS(5331)*XX(351)-JVS(5426)*XX(352))/(JVS(5528)) + XX(354) = (X(354)-JVS(444)*XX(38)-JVS(1025)*XX(153)-JVS(1075)*XX(160)-JVS(1484)*XX(219)-JVS(1676)*XX(240)-JVS(2696)& + &*XX(301)-JVS(3196)*XX(320)-JVS(3211)*XX(321)-JVS(3673)*XX(332)-JVS(3776)*XX(333)-JVS(4043)*XX(337)-JVS(4162)& + &*XX(338)-JVS(4196)*XX(339)-JVS(4273)*XX(340)-JVS(4479)*XX(341)-JVS(4535)*XX(342)-JVS(4810)*XX(343)-JVS(4862)& + &*XX(344)-JVS(5035)*XX(345)-JVS(5069)*XX(346)-JVS(5099)*XX(347)-JVS(5221)*XX(348)-JVS(5248)*XX(349)-JVS(5275)& + &*XX(350)-JVS(5332)*XX(351)-JVS(5427)*XX(352)-JVS(5529)*XX(353))/(JVS(5569)) + XX(355) = (X(355)-JVS(167)*XX(29)-JVS(183)*XX(32)-JVS(188)*XX(33)-JVS(196)*XX(34)-JVS(200)*XX(35)-JVS(445)*XX(38)& + &-JVS(551)*XX(41)-JVS(717)*XX(93)-JVS(983)*XX(146)-JVS(1124)*XX(169)-JVS(1212)*XX(183)-JVS(1677)*XX(240)& + &-JVS(1714)*XX(244)-JVS(2024)*XX(267)-JVS(2355)*XX(286)-JVS(3125)*XX(317)-JVS(3197)*XX(320)-JVS(3577)*XX(329)& + &-JVS(3619)*XX(330)-JVS(3674)*XX(332)-JVS(3777)*XX(333)-JVS(3850)*XX(334)-JVS(3973)*XX(335)-JVS(4044)*XX(337)& + &-JVS(4163)*XX(338)-JVS(4197)*XX(339)-JVS(4274)*XX(340)-JVS(4480)*XX(341)-JVS(4536)*XX(342)-JVS(4811)*XX(343)& + &-JVS(4863)*XX(344)-JVS(5036)*XX(345)-JVS(5070)*XX(346)-JVS(5100)*XX(347)-JVS(5222)*XX(348)-JVS(5249)*XX(349)& + &-JVS(5276)*XX(350)-JVS(5333)*XX(351)-JVS(5428)*XX(352)-JVS(5530)*XX(353)-JVS(5570)*XX(354))/(JVS(5611)) + XX(356) = (X(356)-JVS(82)*XX(7)-JVS(168)*XX(29)-JVS(189)*XX(33)-JVS(197)*XX(34)-JVS(446)*XX(38)-JVS(535)*XX(39)& + &-JVS(552)*XX(41)-JVS(566)*XX(43)-JVS(827)*XX(116)-JVS(849)*XX(120)-JVS(912)*XX(132)-JVS(951)*XX(140)-JVS(971)& + &*XX(145)-JVS(984)*XX(146)-JVS(1043)*XX(156)-JVS(1110)*XX(166)-JVS(1125)*XX(169)-JVS(1129)*XX(170)-JVS(1196)& + &*XX(180)-JVS(1213)*XX(183)-JVS(1281)*XX(194)-JVS(1291)*XX(196)-JVS(1310)*XX(199)-JVS(1340)*XX(204)-JVS(1348)& + &*XX(205)-JVS(1364)*XX(206)-JVS(1377)*XX(207)-JVS(1411)*XX(212)-JVS(1433)*XX(215)-JVS(1485)*XX(219)-JVS(1507)& + &*XX(222)-JVS(1511)*XX(223)-JVS(1524)*XX(224)-JVS(1549)*XX(227)-JVS(1564)*XX(229)-JVS(1594)*XX(232)-JVS(1606)& + &*XX(234)-JVS(1632)*XX(237)-JVS(1646)*XX(238)-JVS(1657)*XX(239)-JVS(1678)*XX(240)-JVS(1687)*XX(241)-JVS(1715)& + &*XX(244)-JVS(1739)*XX(246)-JVS(1853)*XX(256)-JVS(1912)*XX(260)-JVS(1926)*XX(261)-JVS(1948)*XX(263)-JVS(2009)& + &*XX(266)-JVS(2025)*XX(267)-JVS(2057)*XX(268)-JVS(2105)*XX(272)-JVS(2158)*XX(274)-JVS(2171)*XX(275)-JVS(2182)& + &*XX(276)-JVS(2205)*XX(277)-JVS(2216)*XX(278)-JVS(2221)*XX(279)-JVS(2237)*XX(280)-JVS(2248)*XX(281)-JVS(2263)& + &*XX(282)-JVS(2283)*XX(284)-JVS(2321)*XX(285)-JVS(2356)*XX(286)-JVS(2446)*XX(290)-JVS(2479)*XX(291)-JVS(2492)& + &*XX(292)-JVS(2499)*XX(293)-JVS(2508)*XX(294)-JVS(2538)*XX(295)-JVS(2584)*XX(297)-JVS(2647)*XX(298)-JVS(2684)& + &*XX(300)-JVS(2749)*XX(302)-JVS(2783)*XX(304)-JVS(2828)*XX(306)-JVS(2866)*XX(308)-JVS(2924)*XX(309)-JVS(2936)& + &*XX(310)-JVS(2999)*XX(311)-JVS(3019)*XX(312)-JVS(3042)*XX(313)-JVS(3057)*XX(314)-JVS(3072)*XX(315)-JVS(3100)& + &*XX(316)-JVS(3126)*XX(317)-JVS(3155)*XX(318)-JVS(3180)*XX(319)-JVS(3198)*XX(320)-JVS(3224)*XX(322)-JVS(3251)& + &*XX(323)-JVS(3266)*XX(324)-JVS(3298)*XX(325)-JVS(3322)*XX(326)-JVS(3346)*XX(327)-JVS(3434)*XX(328)-JVS(3578)& + &*XX(329)-JVS(3620)*XX(330)-JVS(3649)*XX(331)-JVS(3778)*XX(333)-JVS(3851)*XX(334)-JVS(3974)*XX(335)-JVS(3994)& + &*XX(336)-JVS(4045)*XX(337)-JVS(4164)*XX(338)-JVS(4198)*XX(339)-JVS(4275)*XX(340)-JVS(4481)*XX(341)-JVS(4537)& + &*XX(342)-JVS(4812)*XX(343)-JVS(4864)*XX(344)-JVS(5037)*XX(345)-JVS(5071)*XX(346)-JVS(5101)*XX(347)-JVS(5223)& + &*XX(348)-JVS(5250)*XX(349)-JVS(5277)*XX(350)-JVS(5334)*XX(351)-JVS(5429)*XX(352)-JVS(5531)*XX(353)-JVS(5571)& + &*XX(354)-JVS(5612)*XX(355))/(JVS(5691)) + XX(356) = XX(356) + XX(355) = XX(355)-JVS(5690)*XX(356) + XX(354) = XX(354)-JVS(5610)*XX(355)-JVS(5689)*XX(356) + XX(353) = XX(353)-JVS(5568)*XX(354)-JVS(5609)*XX(355)-JVS(5688)*XX(356) + XX(352) = XX(352)-JVS(5527)*XX(353)-JVS(5567)*XX(354)-JVS(5608)*XX(355)-JVS(5687)*XX(356) + XX(351) = XX(351)-JVS(5424)*XX(352)-JVS(5526)*XX(353)-JVS(5566)*XX(354)-JVS(5607)*XX(355)-JVS(5686)*XX(356) + XX(350) = XX(350)-JVS(5328)*XX(351)-JVS(5423)*XX(352)-JVS(5525)*XX(353)-JVS(5565)*XX(354)-JVS(5606)*XX(355)-JVS(5685)& + &*XX(356) + XX(349) = XX(349)-JVS(5270)*XX(350)-JVS(5327)*XX(351)-JVS(5422)*XX(352)-JVS(5524)*XX(353)-JVS(5564)*XX(354)-JVS(5605)& + &*XX(355)-JVS(5684)*XX(356) + XX(348) = XX(348)-JVS(5242)*XX(349)-JVS(5269)*XX(350)-JVS(5326)*XX(351)-JVS(5421)*XX(352)-JVS(5523)*XX(353)-JVS(5563)& + &*XX(354)-JVS(5604)*XX(355)-JVS(5683)*XX(356) + XX(347) = XX(347)-JVS(5214)*XX(348)-JVS(5241)*XX(349)-JVS(5268)*XX(350)-JVS(5325)*XX(351)-JVS(5420)*XX(352)-JVS(5522)& + &*XX(353)-JVS(5562)*XX(354)-JVS(5603)*XX(355)-JVS(5682)*XX(356) + XX(346) = XX(346)-JVS(5091)*XX(347)-JVS(5213)*XX(348)-JVS(5240)*XX(349)-JVS(5267)*XX(350)-JVS(5324)*XX(351)-JVS(5419)& + &*XX(352)-JVS(5521)*XX(353)-JVS(5561)*XX(354)-JVS(5602)*XX(355)-JVS(5681)*XX(356) + XX(345) = XX(345)-JVS(5060)*XX(346)-JVS(5090)*XX(347)-JVS(5212)*XX(348)-JVS(5239)*XX(349)-JVS(5266)*XX(350)-JVS(5323)& + &*XX(351)-JVS(5418)*XX(352)-JVS(5520)*XX(353)-JVS(5560)*XX(354)-JVS(5601)*XX(355)-JVS(5680)*XX(356) + XX(344) = XX(344)-JVS(5025)*XX(345)-JVS(5059)*XX(346)-JVS(5089)*XX(347)-JVS(5211)*XX(348)-JVS(5238)*XX(349)-JVS(5265)& + &*XX(350)-JVS(5322)*XX(351)-JVS(5417)*XX(352)-JVS(5519)*XX(353)-JVS(5559)*XX(354)-JVS(5600)*XX(355)-JVS(5679)& + &*XX(356) + XX(343) = XX(343)-JVS(4851)*XX(344)-JVS(5024)*XX(345)-JVS(5058)*XX(346)-JVS(5088)*XX(347)-JVS(5210)*XX(348)-JVS(5237)& + &*XX(349)-JVS(5264)*XX(350)-JVS(5321)*XX(351)-JVS(5416)*XX(352)-JVS(5518)*XX(353)-JVS(5558)*XX(354)-JVS(5599)& + &*XX(355)-JVS(5678)*XX(356) + XX(342) = XX(342)-JVS(4798)*XX(343)-JVS(4850)*XX(344)-JVS(5023)*XX(345)-JVS(5057)*XX(346)-JVS(5087)*XX(347)-JVS(5209)& + &*XX(348)-JVS(5236)*XX(349)-JVS(5263)*XX(350)-JVS(5320)*XX(351)-JVS(5415)*XX(352)-JVS(5517)*XX(353)-JVS(5557)& + &*XX(354)-JVS(5598)*XX(355)-JVS(5677)*XX(356) + XX(341) = XX(341)-JVS(4522)*XX(342)-JVS(4797)*XX(343)-JVS(4849)*XX(344)-JVS(5022)*XX(345)-JVS(5056)*XX(346)-JVS(5086)& + &*XX(347)-JVS(5208)*XX(348)-JVS(5235)*XX(349)-JVS(5262)*XX(350)-JVS(5319)*XX(351)-JVS(5414)*XX(352)-JVS(5516)& + &*XX(353)-JVS(5556)*XX(354)-JVS(5597)*XX(355)-JVS(5676)*XX(356) + XX(340) = XX(340)-JVS(4465)*XX(341)-JVS(4521)*XX(342)-JVS(4796)*XX(343)-JVS(4848)*XX(344)-JVS(5021)*XX(345)-JVS(5055)& + &*XX(346)-JVS(5085)*XX(347)-JVS(5207)*XX(348)-JVS(5234)*XX(349)-JVS(5261)*XX(350)-JVS(5318)*XX(351)-JVS(5413)& + &*XX(352)-JVS(5515)*XX(353)-JVS(5555)*XX(354)-JVS(5596)*XX(355)-JVS(5675)*XX(356) + XX(339) = XX(339)-JVS(4258)*XX(340)-JVS(4464)*XX(341)-JVS(4520)*XX(342)-JVS(4795)*XX(343)-JVS(4847)*XX(344)-JVS(5020)& + &*XX(345)-JVS(5054)*XX(346)-JVS(5084)*XX(347)-JVS(5206)*XX(348)-JVS(5233)*XX(349)-JVS(5260)*XX(350)-JVS(5317)& + &*XX(351)-JVS(5412)*XX(352)-JVS(5514)*XX(353)-JVS(5554)*XX(354)-JVS(5595)*XX(355)-JVS(5674)*XX(356) + XX(338) = XX(338)-JVS(4180)*XX(339)-JVS(4257)*XX(340)-JVS(4463)*XX(341)-JVS(4519)*XX(342)-JVS(4794)*XX(343)-JVS(4846)& + &*XX(344)-JVS(5019)*XX(345)-JVS(5053)*XX(346)-JVS(5083)*XX(347)-JVS(5205)*XX(348)-JVS(5232)*XX(349)-JVS(5259)& + &*XX(350)-JVS(5316)*XX(351)-JVS(5411)*XX(352)-JVS(5513)*XX(353)-JVS(5553)*XX(354)-JVS(5594)*XX(355)-JVS(5673)& + &*XX(356) + XX(337) = XX(337)-JVS(4145)*XX(338)-JVS(4179)*XX(339)-JVS(4256)*XX(340)-JVS(4462)*XX(341)-JVS(4518)*XX(342)-JVS(4793)& + &*XX(343)-JVS(4845)*XX(344)-JVS(5018)*XX(345)-JVS(5052)*XX(346)-JVS(5082)*XX(347)-JVS(5204)*XX(348)-JVS(5315)& + &*XX(351)-JVS(5410)*XX(352)-JVS(5512)*XX(353)-JVS(5552)*XX(354)-JVS(5593)*XX(355)-JVS(5672)*XX(356) + XX(336) = XX(336)-JVS(4025)*XX(337)-JVS(4144)*XX(338)-JVS(4178)*XX(339)-JVS(4255)*XX(340)-JVS(4461)*XX(341)-JVS(4517)& + &*XX(342)-JVS(4792)*XX(343)-JVS(4844)*XX(344)-JVS(5017)*XX(345)-JVS(5051)*XX(346)-JVS(5081)*XX(347)-JVS(5203)& + &*XX(348)-JVS(5231)*XX(349)-JVS(5258)*XX(350)-JVS(5314)*XX(351)-JVS(5409)*XX(352)-JVS(5511)*XX(353)-JVS(5551)& + &*XX(354)-JVS(5592)*XX(355)-JVS(5671)*XX(356) + XX(335) = XX(335)-JVS(4024)*XX(337)-JVS(4143)*XX(338)-JVS(4177)*XX(339)-JVS(4254)*XX(340)-JVS(4460)*XX(341)-JVS(4516)& + &*XX(342)-JVS(4791)*XX(343)-JVS(4843)*XX(344)-JVS(5016)*XX(345)-JVS(5050)*XX(346)-JVS(5202)*XX(348)-JVS(5313)& + &*XX(351)-JVS(5408)*XX(352)-JVS(5510)*XX(353)-JVS(5550)*XX(354)-JVS(5591)*XX(355)-JVS(5670)*XX(356) + XX(334) = XX(334)-JVS(3960)*XX(335)-JVS(4023)*XX(337)-JVS(4142)*XX(338)-JVS(4176)*XX(339)-JVS(4253)*XX(340)-JVS(4459)& + &*XX(341)-JVS(4515)*XX(342)-JVS(4790)*XX(343)-JVS(4842)*XX(344)-JVS(5015)*XX(345)-JVS(5049)*XX(346)-JVS(5201)& + &*XX(348)-JVS(5312)*XX(351)-JVS(5407)*XX(352)-JVS(5509)*XX(353)-JVS(5549)*XX(354)-JVS(5590)*XX(355)-JVS(5669)& + &*XX(356) + XX(333) = XX(333)-JVS(4141)*XX(338)-JVS(4175)*XX(339)-JVS(4252)*XX(340)-JVS(4789)*XX(343)-JVS(5014)*XX(345)-JVS(5048)& + &*XX(346)-JVS(5200)*XX(348)-JVS(5508)*XX(353)-JVS(5589)*XX(355)-JVS(5668)*XX(356) + XX(332) = XX(332)-JVS(4022)*XX(337)-JVS(4174)*XX(339)-JVS(4251)*XX(340)-JVS(4514)*XX(342)-JVS(4788)*XX(343)-JVS(4841)& + &*XX(344)-JVS(5047)*XX(346)-JVS(5311)*XX(351)-JVS(5406)*XX(352)-JVS(5507)*XX(353)-JVS(5548)*XX(354)-JVS(5588)& + &*XX(355) + XX(331) = XX(331)-JVS(3754)*XX(333)-JVS(3980)*XX(336)-JVS(4140)*XX(338)-JVS(4173)*XX(339)-JVS(4458)*XX(341)-JVS(4513)& + &*XX(342)-JVS(4787)*XX(343)-JVS(5013)*XX(345)-JVS(5046)*XX(346)-JVS(5080)*XX(347)-JVS(5199)*XX(348)-JVS(5230)& + &*XX(349)-JVS(5257)*XX(350)-JVS(5405)*XX(352)-JVS(5506)*XX(353)-JVS(5667)*XX(356) + XX(330) = XX(330)-JVS(3753)*XX(333)-JVS(3837)*XX(334)-JVS(3959)*XX(335)-JVS(4021)*XX(337)-JVS(4139)*XX(338)-JVS(4250)& + &*XX(340)-JVS(4457)*XX(341)-JVS(4512)*XX(342)-JVS(4786)*XX(343)-JVS(4840)*XX(344)-JVS(5012)*XX(345)-JVS(5198)& + &*XX(348)-JVS(5310)*XX(351)-JVS(5404)*XX(352)-JVS(5505)*XX(353)-JVS(5547)*XX(354)-JVS(5587)*XX(355)-JVS(5666)& + &*XX(356) + XX(329) = XX(329)-JVS(3752)*XX(333)-JVS(3958)*XX(335)-JVS(4249)*XX(340)-JVS(4456)*XX(341)-JVS(4511)*XX(342)-JVS(4785)& + &*XX(343)-JVS(5197)*XX(348)-JVS(5309)*XX(351)-JVS(5403)*XX(352)-JVS(5504)*XX(353)-JVS(5546)*XX(354)-JVS(5586)& + &*XX(355)-JVS(5665)*XX(356) + XX(328) = XX(328)-JVS(3561)*XX(329)-JVS(3607)*XX(330)-JVS(3751)*XX(333)-JVS(3836)*XX(334)-JVS(3957)*XX(335)-JVS(4020)& + &*XX(337)-JVS(4138)*XX(338)-JVS(4248)*XX(340)-JVS(4455)*XX(341)-JVS(4510)*XX(342)-JVS(4784)*XX(343)-JVS(4839)& + &*XX(344)-JVS(5011)*XX(345)-JVS(5196)*XX(348)-JVS(5308)*XX(351)-JVS(5402)*XX(352)-JVS(5503)*XX(353)-JVS(5545)& + &*XX(354)-JVS(5585)*XX(355)-JVS(5664)*XX(356) + XX(327) = XX(327)-JVS(3423)*XX(328)-JVS(3560)*XX(329)-JVS(3606)*XX(330)-JVS(3750)*XX(333)-JVS(3835)*XX(334)-JVS(3956)& + &*XX(335)-JVS(4137)*XX(338)-JVS(4247)*XX(340)-JVS(4454)*XX(341)-JVS(4509)*XX(342)-JVS(4783)*XX(343)-JVS(4838)& + &*XX(344)-JVS(5010)*XX(345)-JVS(5195)*XX(348)-JVS(5401)*XX(352)-JVS(5502)*XX(353)-JVS(5544)*XX(354)-JVS(5663)& + &*XX(356) + XX(326) = XX(326)-JVS(3335)*XX(327)-JVS(3422)*XX(328)-JVS(3559)*XX(329)-JVS(3605)*XX(330)-JVS(3749)*XX(333)-JVS(3834)& + &*XX(334)-JVS(3955)*XX(335)-JVS(4136)*XX(338)-JVS(4246)*XX(340)-JVS(4453)*XX(341)-JVS(4782)*XX(343)-JVS(4837)& + &*XX(344)-JVS(5009)*XX(345)-JVS(5194)*XX(348)-JVS(5400)*XX(352)-JVS(5501)*XX(353)-JVS(5662)*XX(356) + XX(325) = XX(325)-JVS(3310)*XX(326)-JVS(3334)*XX(327)-JVS(3421)*XX(328)-JVS(3558)*XX(329)-JVS(3604)*XX(330)-JVS(3833)& + &*XX(334)-JVS(3954)*XX(335)-JVS(4135)*XX(338)-JVS(4245)*XX(340)-JVS(4452)*XX(341)-JVS(4781)*XX(343)-JVS(4836)& + &*XX(344)-JVS(5008)*XX(345)-JVS(5193)*XX(348)-JVS(5399)*XX(352)-JVS(5500)*XX(353)-JVS(5661)*XX(356) + XX(324) = XX(324)-JVS(3285)*XX(325)-JVS(3309)*XX(326)-JVS(3333)*XX(327)-JVS(3420)*XX(328)-JVS(3557)*XX(329)-JVS(3603)& + &*XX(330)-JVS(3748)*XX(333)-JVS(3832)*XX(334)-JVS(3953)*XX(335)-JVS(4134)*XX(338)-JVS(4244)*XX(340)-JVS(4451)& + &*XX(341)-JVS(4508)*XX(342)-JVS(4780)*XX(343)-JVS(4835)*XX(344)-JVS(5007)*XX(345)-JVS(5192)*XX(348)-JVS(5398)& + &*XX(352)-JVS(5499)*XX(353)-JVS(5543)*XX(354)-JVS(5660)*XX(356) + XX(323) = XX(323)-JVS(3256)*XX(324)-JVS(3284)*XX(325)-JVS(3308)*XX(326)-JVS(3332)*XX(327)-JVS(3419)*XX(328)-JVS(3556)& + &*XX(329)-JVS(3602)*XX(330)-JVS(3747)*XX(333)-JVS(3831)*XX(334)-JVS(3952)*XX(335)-JVS(4133)*XX(338)-JVS(4243)& + &*XX(340)-JVS(4450)*XX(341)-JVS(4507)*XX(342)-JVS(4779)*XX(343)-JVS(4834)*XX(344)-JVS(5006)*XX(345)-JVS(5191)& + &*XX(348)-JVS(5397)*XX(352)-JVS(5498)*XX(353)-JVS(5542)*XX(354) + XX(322) = XX(322)-JVS(3240)*XX(323)-JVS(3255)*XX(324)-JVS(3283)*XX(325)-JVS(3307)*XX(326)-JVS(3331)*XX(327)-JVS(3418)& + &*XX(328)-JVS(3555)*XX(329)-JVS(3601)*XX(330)-JVS(3746)*XX(333)-JVS(3830)*XX(334)-JVS(3951)*XX(335)-JVS(4132)& + &*XX(338)-JVS(4242)*XX(340)-JVS(4449)*XX(341)-JVS(4506)*XX(342)-JVS(4778)*XX(343)-JVS(4833)*XX(344)-JVS(5005)& + &*XX(345)-JVS(5190)*XX(348)-JVS(5396)*XX(352)-JVS(5497)*XX(353)-JVS(5541)*XX(354) + XX(321) = XX(321)-JVS(3654)*XX(332)-JVS(3745)*XX(333)-JVS(4019)*XX(337)-JVS(4172)*XX(339)-JVS(4241)*XX(340)-JVS(4505)& + &*XX(342)-JVS(4777)*XX(343)-JVS(4832)*XX(344)-JVS(5004)*XX(345)-JVS(5045)*XX(346)-JVS(5189)*XX(348)-JVS(5229)& + &*XX(349)-JVS(5256)*XX(350)-JVS(5307)*XX(351)-JVS(5395)*XX(352)-JVS(5496)*XX(353)-JVS(5540)*XX(354) + XX(320) = XX(320)-JVS(4171)*XX(339)-JVS(4240)*XX(340)-JVS(4504)*XX(342)-JVS(4776)*XX(343)-JVS(5044)*XX(346)-JVS(5079)& + &*XX(347)-JVS(5228)*XX(349)-JVS(5255)*XX(350)-JVS(5306)*XX(351)-JVS(5394)*XX(352)-JVS(5495)*XX(353)-JVS(5539)& + &*XX(354)-JVS(5584)*XX(355) + XX(319) = XX(319)-JVS(3417)*XX(328)-JVS(3554)*XX(329)-JVS(3600)*XX(330)-JVS(3829)*XX(334)-JVS(4131)*XX(338)-JVS(4239)& + &*XX(340)-JVS(4448)*XX(341)-JVS(4775)*XX(343)-JVS(4831)*XX(344)-JVS(5003)*XX(345)-JVS(5393)*XX(352)-JVS(5494)& &*XX(353) - XX(346) = XX(346)-JVS(5390)*XX(347)-JVS(5431)*XX(348)-JVS(5457)*XX(349)-JVS(5483)*XX(350)-JVS(5604)*XX(351)-JVS(5643)& - &*XX(352)-JVS(5676)*XX(353) - XX(345) = XX(345)-JVS(5357)*XX(346)-JVS(5389)*XX(347)-JVS(5430)*XX(348)-JVS(5456)*XX(349)-JVS(5482)*XX(350)-JVS(5603)& - &*XX(351)-JVS(5642)*XX(352)-JVS(5675)*XX(353) - XX(344) = XX(344)-JVS(5235)*XX(345)-JVS(5356)*XX(346)-JVS(5388)*XX(347)-JVS(5429)*XX(348)-JVS(5455)*XX(349)-JVS(5481)& - &*XX(350)-JVS(5602)*XX(351)-JVS(5641)*XX(352)-JVS(5674)*XX(353) - XX(343) = XX(343)-JVS(4959)*XX(344)-JVS(5234)*XX(345)-JVS(5355)*XX(346)-JVS(5387)*XX(347)-JVS(5428)*XX(348)-JVS(5454)& - &*XX(349)-JVS(5480)*XX(350)-JVS(5601)*XX(351)-JVS(5640)*XX(352)-JVS(5673)*XX(353) - XX(342) = XX(342)-JVS(4925)*XX(343)-JVS(4958)*XX(344)-JVS(5233)*XX(345)-JVS(5354)*XX(346)-JVS(5386)*XX(347)-JVS(5427)& - &*XX(348)-JVS(5453)*XX(349)-JVS(5479)*XX(350)-JVS(5600)*XX(351)-JVS(5639)*XX(352)-JVS(5672)*XX(353) - XX(341) = XX(341)-JVS(4864)*XX(342)-JVS(4924)*XX(343)-JVS(4957)*XX(344)-JVS(5232)*XX(345)-JVS(5353)*XX(346)-JVS(5385)& - &*XX(347)-JVS(5426)*XX(348)-JVS(5452)*XX(349)-JVS(5478)*XX(350)-JVS(5599)*XX(351)-JVS(5638)*XX(352)-JVS(5671)& + XX(318) = XX(318)-JVS(3163)*XX(319)-JVS(3282)*XX(325)-JVS(3306)*XX(326)-JVS(3330)*XX(327)-JVS(3416)*XX(328)-JVS(3553)& + &*XX(329)-JVS(3599)*XX(330)-JVS(3744)*XX(333)-JVS(3828)*XX(334)-JVS(3950)*XX(335)-JVS(4018)*XX(337)-JVS(4130)& + &*XX(338)-JVS(4238)*XX(340)-JVS(4447)*XX(341)-JVS(4503)*XX(342)-JVS(4774)*XX(343)-JVS(5002)*XX(345)-JVS(5188)& + &*XX(348)-JVS(5305)*XX(351)-JVS(5392)*XX(352)-JVS(5493)*XX(353)-JVS(5538)*XX(354)-JVS(5583)*XX(355)-JVS(5659)& + &*XX(356) + XX(317) = XX(317)-JVS(3552)*XX(329)-JVS(3949)*XX(335)-JVS(4129)*XX(338)-JVS(4237)*XX(340)-JVS(4446)*XX(341)-JVS(4773)& + &*XX(343)-JVS(5001)*XX(345)-JVS(5187)*XX(348)-JVS(5304)*XX(351)-JVS(5391)*XX(352)-JVS(5492)*XX(353)-JVS(5582)& + &*XX(355)-JVS(5658)*XX(356) + XX(316) = XX(316)-JVS(3415)*XX(328)-JVS(3551)*XX(329)-JVS(3743)*XX(333)-JVS(3827)*XX(334)-JVS(3948)*XX(335)-JVS(4128)& + &*XX(338)-JVS(4236)*XX(340)-JVS(4445)*XX(341)-JVS(4772)*XX(343)-JVS(5000)*XX(345)-JVS(5186)*XX(348)-JVS(5390)& + &*XX(352)-JVS(5491)*XX(353) + XX(315) = XX(315)-JVS(3085)*XX(316)-JVS(3111)*XX(317)-JVS(3146)*XX(318)-JVS(3414)*XX(328)-JVS(3550)*XX(329)-JVS(3742)& + &*XX(333)-JVS(3826)*XX(334)-JVS(3947)*XX(335)-JVS(4127)*XX(338)-JVS(4235)*XX(340)-JVS(4444)*XX(341)-JVS(4771)& + &*XX(343)-JVS(4999)*XX(345)-JVS(5185)*XX(348)-JVS(5389)*XX(352)-JVS(5490)*XX(353)-JVS(5657)*XX(356) + XX(314) = XX(314)-JVS(3063)*XX(315)-JVS(3084)*XX(316)-JVS(3110)*XX(317)-JVS(3145)*XX(318)-JVS(3413)*XX(328)-JVS(3549)& + &*XX(329)-JVS(3741)*XX(333)-JVS(3825)*XX(334)-JVS(3946)*XX(335)-JVS(4126)*XX(338)-JVS(4234)*XX(340)-JVS(4443)& + &*XX(341)-JVS(4770)*XX(343)-JVS(4998)*XX(345)-JVS(5184)*XX(348)-JVS(5388)*XX(352)-JVS(5489)*XX(353)-JVS(5656)& + &*XX(356) + XX(313) = XX(313)-JVS(3083)*XX(316)-JVS(3109)*XX(317)-JVS(3412)*XX(328)-JVS(3548)*XX(329)-JVS(3740)*XX(333)-JVS(3824)& + &*XX(334)-JVS(3945)*XX(335)-JVS(4125)*XX(338)-JVS(4233)*XX(340)-JVS(4442)*XX(341)-JVS(4769)*XX(343)-JVS(4997)& + &*XX(345)-JVS(5183)*XX(348)-JVS(5387)*XX(352)-JVS(5488)*XX(353)-JVS(5655)*XX(356) + XX(312) = XX(312)-JVS(3411)*XX(328)-JVS(3547)*XX(329)-JVS(3739)*XX(333)-JVS(3823)*XX(334)-JVS(3944)*XX(335)-JVS(4124)& + &*XX(338)-JVS(4232)*XX(340)-JVS(4441)*XX(341)-JVS(4768)*XX(343)-JVS(4996)*XX(345)-JVS(5182)*XX(348)-JVS(5386)& + &*XX(352)-JVS(5487)*XX(353)-JVS(5654)*XX(356) + XX(311) = XX(311)-JVS(3410)*XX(328)-JVS(3546)*XX(329)-JVS(3738)*XX(333)-JVS(3822)*XX(334)-JVS(3943)*XX(335)-JVS(4231)& + &*XX(340)-JVS(4440)*XX(341)-JVS(4767)*XX(343)-JVS(5181)*XX(348)-JVS(5385)*XX(352)-JVS(5486)*XX(353) + XX(310) = XX(310)-JVS(2982)*XX(311)-JVS(3006)*XX(312)-JVS(3031)*XX(313)-JVS(3047)*XX(314)-JVS(3062)*XX(315)-JVS(3082)& + &*XX(316)-JVS(3144)*XX(318)-JVS(3409)*XX(328)-JVS(3545)*XX(329)-JVS(3737)*XX(333)-JVS(3821)*XX(334)-JVS(3942)& + &*XX(335)-JVS(4123)*XX(338)-JVS(4230)*XX(340)-JVS(4439)*XX(341)-JVS(4766)*XX(343)-JVS(4995)*XX(345)-JVS(5180)& + &*XX(348)-JVS(5384)*XX(352)-JVS(5485)*XX(353)-JVS(5653)*XX(356) + XX(309) = XX(309)-JVS(3544)*XX(329)-JVS(3736)*XX(333)-JVS(3941)*XX(335)-JVS(4122)*XX(338)-JVS(4229)*XX(340)-JVS(4438)& + &*XX(341)-JVS(4765)*XX(343)-JVS(4994)*XX(345)-JVS(5179)*XX(348)-JVS(5383)*XX(352)-JVS(5484)*XX(353)-JVS(5652)& + &*XX(356) + XX(308) = XX(308)-JVS(2909)*XX(309)-JVS(2927)*XX(310)-JVS(2981)*XX(311)-JVS(3005)*XX(312)-JVS(3030)*XX(313)-JVS(3081)& + &*XX(316)-JVS(3143)*XX(318)-JVS(3408)*XX(328)-JVS(3543)*XX(329)-JVS(3735)*XX(333)-JVS(3820)*XX(334)-JVS(3940)& + &*XX(335)-JVS(4121)*XX(338)-JVS(4228)*XX(340)-JVS(4437)*XX(341)-JVS(4764)*XX(343)-JVS(4993)*XX(345)-JVS(5178)& + &*XX(348)-JVS(5382)*XX(352)-JVS(5483)*XX(353) + XX(307) = XX(307)-JVS(2908)*XX(309)-JVS(2980)*XX(311)-JVS(3004)*XX(312)-JVS(3029)*XX(313)-JVS(3080)*XX(316)-JVS(3142)& + &*XX(318)-JVS(3407)*XX(328)-JVS(3542)*XX(329)-JVS(3734)*XX(333)-JVS(3939)*XX(335)-JVS(4120)*XX(338)-JVS(4227)& + &*XX(340)-JVS(4436)*XX(341)-JVS(4763)*XX(343)-JVS(4992)*XX(345)-JVS(5177)*XX(348)-JVS(5381)*XX(352)-JVS(5482)& &*XX(353) - XX(340) = XX(340)-JVS(4807)*XX(341)-JVS(4863)*XX(342)-JVS(4923)*XX(343)-JVS(4956)*XX(344)-JVS(5231)*XX(345)-JVS(5352)& - &*XX(346)-JVS(5384)*XX(347)-JVS(5425)*XX(348)-JVS(5451)*XX(349)-JVS(5477)*XX(350)-JVS(5598)*XX(351)-JVS(5637)& - &*XX(352)-JVS(5670)*XX(353) - XX(339) = XX(339)-JVS(4729)*XX(340)-JVS(4806)*XX(341)-JVS(4862)*XX(342)-JVS(4922)*XX(343)-JVS(4955)*XX(344)-JVS(5230)& - &*XX(345)-JVS(5351)*XX(346)-JVS(5383)*XX(347)-JVS(5424)*XX(348)-JVS(5450)*XX(349)-JVS(5476)*XX(350)-JVS(5597)& - &*XX(351)-JVS(5636)*XX(352)-JVS(5669)*XX(353) - XX(338) = XX(338)-JVS(4633)*XX(339)-JVS(4728)*XX(340)-JVS(4805)*XX(341)-JVS(4861)*XX(342)-JVS(4921)*XX(343)-JVS(4954)& - &*XX(344)-JVS(5229)*XX(345)-JVS(5350)*XX(346)-JVS(5382)*XX(347)-JVS(5423)*XX(348)-JVS(5449)*XX(349)-JVS(5475)& - &*XX(350)-JVS(5596)*XX(351)-JVS(5635)*XX(352)-JVS(5668)*XX(353) - XX(337) = XX(337)-JVS(4555)*XX(338)-JVS(4632)*XX(339)-JVS(4727)*XX(340)-JVS(4804)*XX(341)-JVS(4860)*XX(342)-JVS(4920)& - &*XX(343)-JVS(4953)*XX(344)-JVS(5228)*XX(345)-JVS(5349)*XX(346)-JVS(5381)*XX(347)-JVS(5422)*XX(348)-JVS(5448)& - &*XX(349)-JVS(5474)*XX(350)-JVS(5595)*XX(351)-JVS(5634)*XX(352)-JVS(5667)*XX(353) - XX(336) = XX(336)-JVS(4499)*XX(337)-JVS(4554)*XX(338)-JVS(4631)*XX(339)-JVS(4726)*XX(340)-JVS(4803)*XX(341)-JVS(4859)& - &*XX(342)-JVS(4919)*XX(343)-JVS(4952)*XX(344)-JVS(5227)*XX(345)-JVS(5348)*XX(346)-JVS(5380)*XX(347)-JVS(5421)& - &*XX(348)-JVS(5447)*XX(349)-JVS(5473)*XX(350)-JVS(5594)*XX(351)-JVS(5633)*XX(352)-JVS(5666)*XX(353) - XX(335) = XX(335)-JVS(4290)*XX(336)-JVS(4498)*XX(337)-JVS(4553)*XX(338)-JVS(4630)*XX(339)-JVS(4725)*XX(340)-JVS(4802)& - &*XX(341)-JVS(4858)*XX(342)-JVS(4918)*XX(343)-JVS(4951)*XX(344)-JVS(5226)*XX(345)-JVS(5347)*XX(346)-JVS(5379)& - &*XX(347)-JVS(5420)*XX(348)-JVS(5446)*XX(349)-JVS(5472)*XX(350)-JVS(5593)*XX(351)-JVS(5632)*XX(352)-JVS(5665)& + XX(306) = XX(306)-JVS(2907)*XX(309)-JVS(3406)*XX(328)-JVS(3541)*XX(329)-JVS(3733)*XX(333)-JVS(3938)*XX(335)-JVS(4226)& + &*XX(340)-JVS(4435)*XX(341)-JVS(4762)*XX(343)-JVS(4991)*XX(345)-JVS(5176)*XX(348)-JVS(5380)*XX(352)-JVS(5481)& &*XX(353) - XX(334) = XX(334)-JVS(4188)*XX(335)-JVS(4289)*XX(336)-JVS(4497)*XX(337)-JVS(4552)*XX(338)-JVS(4629)*XX(339)-JVS(4724)& - &*XX(340)-JVS(4801)*XX(341)-JVS(4857)*XX(342)-JVS(4917)*XX(343)-JVS(4950)*XX(344)-JVS(5225)*XX(345)-JVS(5346)& - &*XX(346)-JVS(5378)*XX(347)-JVS(5419)*XX(348)-JVS(5592)*XX(351)-JVS(5631)*XX(352)-JVS(5664)*XX(353) - XX(333) = XX(333)-JVS(4013)*XX(334)-JVS(4288)*XX(336)-JVS(4551)*XX(338)-JVS(4628)*XX(339)-JVS(4723)*XX(340)-JVS(4856)& - &*XX(342)-JVS(4916)*XX(343)-JVS(4949)*XX(344)-JVS(5224)*XX(345)-JVS(5418)*XX(348)-JVS(5630)*XX(352)-JVS(5663)& + XX(305) = XX(305)-JVS(2812)*XX(306)-JVS(2906)*XX(309)-JVS(2979)*XX(311)-JVS(3003)*XX(312)-JVS(3079)*XX(316)-JVS(3405)& + &*XX(328)-JVS(3540)*XX(329)-JVS(3732)*XX(333)-JVS(3937)*XX(335)-JVS(4119)*XX(338)-JVS(4225)*XX(340)-JVS(4434)& + &*XX(341)-JVS(4761)*XX(343)-JVS(4990)*XX(345)-JVS(5175)*XX(348)-JVS(5379)*XX(352)-JVS(5480)*XX(353) + XX(304) = XX(304)-JVS(3078)*XX(316)-JVS(3162)*XX(319)-JVS(3239)*XX(323)-JVS(3254)*XX(324)-JVS(3281)*XX(325)-JVS(3305)& + &*XX(326)-JVS(3329)*XX(327)-JVS(3404)*XX(328)-JVS(3539)*XX(329)-JVS(3598)*XX(330)-JVS(3731)*XX(333)-JVS(3819)& + &*XX(334)-JVS(3936)*XX(335)-JVS(4118)*XX(338)-JVS(4224)*XX(340)-JVS(4433)*XX(341)-JVS(4502)*XX(342)-JVS(4760)& + &*XX(343)-JVS(4989)*XX(345)-JVS(5174)*XX(348)-JVS(5378)*XX(352)-JVS(5479)*XX(353)-JVS(5537)*XX(354) + XX(303) = XX(303)-JVS(2788)*XX(305)-JVS(2811)*XX(306)-JVS(2843)*XX(307)-JVS(2905)*XX(309)-JVS(2978)*XX(311)-JVS(3028)& + &*XX(313)-JVS(3141)*XX(318)-JVS(3403)*XX(328)-JVS(3538)*XX(329)-JVS(3730)*XX(333)-JVS(3935)*XX(335)-JVS(4117)& + &*XX(338)-JVS(4432)*XX(341)-JVS(4759)*XX(343)-JVS(4988)*XX(345)-JVS(5173)*XX(348) + XX(302) = XX(302)-JVS(3161)*XX(319)-JVS(3280)*XX(325)-JVS(3304)*XX(326)-JVS(3328)*XX(327)-JVS(3729)*XX(333)-JVS(3934)& + &*XX(335)-JVS(4431)*XX(341)-JVS(4758)*XX(343)-JVS(5172)*XX(348)-JVS(5478)*XX(353) + XX(301) = XX(301)-JVS(3653)*XX(332)-JVS(4017)*XX(337)-JVS(4116)*XX(338)-JVS(4170)*XX(339)-JVS(4223)*XX(340)-JVS(4501)& + &*XX(342)-JVS(4757)*XX(343)-JVS(4830)*XX(344)-JVS(4987)*XX(345)-JVS(5043)*XX(346)-JVS(5227)*XX(349)-JVS(5254)& + &*XX(350)-JVS(5303)*XX(351)-JVS(5377)*XX(352)-JVS(5477)*XX(353)-JVS(5536)*XX(354) + XX(300) = XX(300)-JVS(3160)*XX(319)-JVS(3402)*XX(328)-JVS(3537)*XX(329)-JVS(3597)*XX(330)-JVS(3818)*XX(334)-JVS(4115)& + &*XX(338)-JVS(4222)*XX(340)-JVS(4430)*XX(341)-JVS(4756)*XX(343)-JVS(4829)*XX(344)-JVS(4986)*XX(345)-JVS(5376)& + &*XX(352)-JVS(5476)*XX(353) + XX(299) = XX(299)-JVS(2759)*XX(303)-JVS(2810)*XX(306)-JVS(2842)*XX(307)-JVS(2904)*XX(309)-JVS(2977)*XX(311)-JVS(3401)& + &*XX(328)-JVS(3536)*XX(329)-JVS(3728)*XX(333)-JVS(3933)*XX(335)-JVS(4114)*XX(338)-JVS(4429)*XX(341)-JVS(4755)& + &*XX(343)-JVS(4985)*XX(345)-JVS(5171)*XX(348) + XX(298) = XX(298)-JVS(3400)*XX(328)-JVS(3727)*XX(333)-JVS(3932)*XX(335)-JVS(4428)*XX(341)-JVS(4754)*XX(343)-JVS(5170)& + &*XX(348) + XX(297) = XX(297)-JVS(3077)*XX(316)-JVS(3399)*XX(328)-JVS(3817)*XX(334)-JVS(3931)*XX(335)-JVS(4221)*XX(340)-JVS(4500)& + &*XX(342)-JVS(4753)*XX(343)-JVS(5375)*XX(352)-JVS(5475)*XX(353)-JVS(5535)*XX(354) + XX(296) = XX(296)-JVS(3634)*XX(331)-JVS(3726)*XX(333)-JVS(3979)*XX(336)-JVS(4169)*XX(339)-JVS(4499)*XX(342)-JVS(4752)& + &*XX(343)-JVS(4984)*XX(345)-JVS(5042)*XX(346)-JVS(5169)*XX(348)-JVS(5226)*XX(349)-JVS(5253)*XX(350)-JVS(5374)& + &*XX(352)-JVS(5474)*XX(353) + XX(295) = XX(295)-JVS(3159)*XX(319)-JVS(3253)*XX(324)-JVS(3279)*XX(325)-JVS(3303)*XX(326)-JVS(3327)*XX(327)-JVS(3398)& + &*XX(328)-JVS(3725)*XX(333)-JVS(3816)*XX(334)-JVS(4751)*XX(343)-JVS(5168)*XX(348)-JVS(5473)*XX(353) + XX(294) = XX(294)-JVS(2525)*XX(295)-JVS(2568)*XX(297)-JVS(2671)*XX(300)-JVS(2731)*XX(302)-JVS(2903)*XX(309)-JVS(2976)& + &*XX(311)-JVS(3140)*XX(318)-JVS(3397)*XX(328)-JVS(3535)*XX(329)-JVS(3724)*XX(333)-JVS(3815)*XX(334)-JVS(4113)& + &*XX(338)-JVS(4220)*XX(340)-JVS(4427)*XX(341)-JVS(4750)*XX(343)-JVS(4983)*XX(345)-JVS(5167)*XX(348)-JVS(5373)& + &*XX(352)-JVS(5472)*XX(353)-JVS(5651)*XX(356) + XX(293) = XX(293)-JVS(2621)*XX(298)-JVS(2730)*XX(302)-JVS(2975)*XX(311)-JVS(3108)*XX(317)-JVS(3396)*XX(328)-JVS(3534)& + &*XX(329)-JVS(3596)*XX(330)-JVS(3814)*XX(334)-JVS(3930)*XX(335)-JVS(4016)*XX(337)-JVS(4112)*XX(338)-JVS(4219)& + &*XX(340)-JVS(4426)*XX(341)-JVS(4498)*XX(342)-JVS(4749)*XX(343)-JVS(4982)*XX(345)-JVS(5166)*XX(348)-JVS(5302)& + &*XX(351)-JVS(5372)*XX(352)-JVS(5471)*XX(353)-JVS(5534)*XX(354)-JVS(5581)*XX(355)-JVS(5650)*XX(356) + XX(292) = XX(292)-JVS(2524)*XX(295)-JVS(2670)*XX(300)-JVS(2729)*XX(302)-JVS(2974)*XX(311)-JVS(3395)*XX(328)-JVS(3533)& + &*XX(329)-JVS(3723)*XX(333)-JVS(3813)*XX(334)-JVS(4111)*XX(338)-JVS(4218)*XX(340)-JVS(4425)*XX(341)-JVS(4748)& + &*XX(343)-JVS(4981)*XX(345)-JVS(5165)*XX(348)-JVS(5371)*XX(352)-JVS(5470)*XX(353)-JVS(5649)*XX(356) + XX(291) = XX(291)-JVS(2620)*XX(298)-JVS(2902)*XX(309)-JVS(3394)*XX(328)-JVS(3532)*XX(329)-JVS(3722)*XX(333)-JVS(3929)& + &*XX(335)-JVS(4424)*XX(341)-JVS(4747)*XX(343)-JVS(5164)*XX(348) + XX(290) = XX(290)-JVS(2619)*XX(298)-JVS(2973)*XX(311)-JVS(3076)*XX(316)-JVS(3393)*XX(328)-JVS(3531)*XX(329)-JVS(3928)& + &*XX(335)-JVS(4423)*XX(341)-JVS(4746)*XX(343)-JVS(5469)*XX(353) + XX(289) = XX(289)-JVS(2430)*XX(290)-JVS(2463)*XX(291)-JVS(2618)*XX(298)-JVS(2901)*XX(309)-JVS(2972)*XX(311)-JVS(3392)& + &*XX(328)-JVS(3530)*XX(329)-JVS(3721)*XX(333)-JVS(3927)*XX(335)-JVS(4110)*XX(338)-JVS(4422)*XX(341)-JVS(4745)& + &*XX(343)-JVS(4980)*XX(345)-JVS(5163)*XX(348) + XX(288) = XX(288)-JVS(2403)*XX(289)-JVS(2429)*XX(290)-JVS(2462)*XX(291)-JVS(2617)*XX(298)-JVS(2900)*XX(309)-JVS(2971)& + &*XX(311)-JVS(3391)*XX(328)-JVS(3529)*XX(329)-JVS(3720)*XX(333)-JVS(3926)*XX(335)-JVS(4109)*XX(338)-JVS(4421)& + &*XX(341)-JVS(4744)*XX(343)-JVS(4979)*XX(345)-JVS(5162)*XX(348) + XX(287) = XX(287)-JVS(3633)*XX(331)-JVS(3978)*XX(336)-JVS(4168)*XX(339)-JVS(4497)*XX(342)-JVS(4743)*XX(343)-JVS(5041)& + &*XX(346)-JVS(5225)*XX(349)-JVS(5252)*XX(350)-JVS(5370)*XX(352)-JVS(5468)*XX(353) + XX(286) = XX(286)-JVS(3812)*XX(334)-JVS(4217)*XX(340)-JVS(4742)*XX(343)-JVS(5369)*XX(352)-JVS(5467)*XX(353) + XX(285) = XX(285)-JVS(3528)*XX(329)-JVS(4216)*XX(340)-JVS(4420)*XX(341)-JVS(4741)*XX(343)-JVS(5368)*XX(352) + XX(284) = XX(284)-JVS(2295)*XX(285)-JVS(2330)*XX(286)-JVS(2523)*XX(295)-JVS(2728)*XX(302)-JVS(2970)*XX(311)-JVS(3107)& + &*XX(317)-JVS(3238)*XX(323)-JVS(3390)*XX(328)-JVS(3527)*XX(329)-JVS(3719)*XX(333)-JVS(3811)*XX(334)-JVS(3925)& + &*XX(335)-JVS(4108)*XX(338)-JVS(4419)*XX(341)-JVS(4740)*XX(343)-JVS(4978)*XX(345)-JVS(5161)*XX(348)-JVS(5648)& + &*XX(356) + XX(283) = XX(283)-JVS(2294)*XX(285)-JVS(2329)*XX(286)-JVS(2522)*XX(295)-JVS(2567)*XX(297)-JVS(2727)*XX(302)-JVS(3158)& + &*XX(319)-JVS(3237)*XX(323)-JVS(3302)*XX(326)-JVS(3326)*XX(327)-JVS(3389)*XX(328)-JVS(3526)*XX(329)-JVS(3595)& + &*XX(330)-JVS(3810)*XX(334)-JVS(4107)*XX(338)-JVS(4418)*XX(341)-JVS(4739)*XX(343)-JVS(4977)*XX(345)-JVS(5466)& &*XX(353) - XX(332) = XX(332)-JVS(3962)*XX(333)-JVS(4187)*XX(335)-JVS(4287)*XX(336)-JVS(4496)*XX(337)-JVS(4550)*XX(338)-JVS(4627)& - &*XX(339)-JVS(4722)*XX(340)-JVS(4800)*XX(341)-JVS(4855)*XX(342)-JVS(4915)*XX(343)-JVS(4948)*XX(344)-JVS(5223)& - &*XX(345)-JVS(5345)*XX(346)-JVS(5377)*XX(347)-JVS(5417)*XX(348)-JVS(5445)*XX(349)-JVS(5471)*XX(350)-JVS(5591)& - &*XX(351)-JVS(5662)*XX(353) - XX(331) = XX(331)-JVS(3937)*XX(332)-JVS(3961)*XX(333)-JVS(4186)*XX(335)-JVS(4286)*XX(336)-JVS(4495)*XX(337)-JVS(4549)& - &*XX(338)-JVS(4721)*XX(340)-JVS(4799)*XX(341)-JVS(4854)*XX(342)-JVS(4914)*XX(343)-JVS(4947)*XX(344)-JVS(5222)& - &*XX(345)-JVS(5344)*XX(346)-JVS(5376)*XX(347)-JVS(5444)*XX(349)-JVS(5470)*XX(350)-JVS(5590)*XX(351)-JVS(5661)& - &*XX(353) - XX(330) = XX(330)-JVS(3917)*XX(331)-JVS(3936)*XX(332)-JVS(3960)*XX(333)-JVS(4185)*XX(335)-JVS(4285)*XX(336)-JVS(4494)& - &*XX(337)-JVS(4548)*XX(338)-JVS(4720)*XX(340)-JVS(4853)*XX(342)-JVS(4913)*XX(343)-JVS(4946)*XX(344)-JVS(5221)& - &*XX(345)-JVS(5343)*XX(346)-JVS(5375)*XX(347)-JVS(5443)*XX(349)-JVS(5469)*XX(350)-JVS(5660)*XX(353) - XX(329) = XX(329)-JVS(3959)*XX(333)-JVS(4012)*XX(334)-JVS(4184)*XX(335)-JVS(4284)*XX(336)-JVS(4493)*XX(337)-JVS(4547)& - &*XX(338)-JVS(4626)*XX(339)-JVS(4719)*XX(340)-JVS(4798)*XX(341)-JVS(4852)*XX(342)-JVS(4912)*XX(343)-JVS(4945)& - &*XX(344)-JVS(5220)*XX(345)-JVS(5342)*XX(346)-JVS(5416)*XX(348)-JVS(5589)*XX(351)-JVS(5629)*XX(352)-JVS(5659)& - &*XX(353) - XX(328) = XX(328)-JVS(3870)*XX(329)-JVS(3958)*XX(333)-JVS(4011)*XX(334)-JVS(4183)*XX(335)-JVS(4283)*XX(336)-JVS(4492)& - &*XX(337)-JVS(4546)*XX(338)-JVS(4625)*XX(339)-JVS(4718)*XX(340)-JVS(4797)*XX(341)-JVS(4851)*XX(342)-JVS(4911)& - &*XX(343)-JVS(4944)*XX(344)-JVS(5219)*XX(345)-JVS(5341)*XX(346)-JVS(5415)*XX(348)-JVS(5588)*XX(351)-JVS(5628)& - &*XX(352)-JVS(5658)*XX(353) - XX(327) = XX(327)-JVS(4182)*XX(335)-JVS(4282)*XX(336)-JVS(4624)*XX(339)-JVS(4796)*XX(341)-JVS(4943)*XX(344)-JVS(5218)& - &*XX(345)-JVS(5340)*XX(346)-JVS(5414)*XX(348)-JVS(5587)*XX(351)-JVS(5657)*XX(353) - XX(326) = XX(326)-JVS(3664)*XX(327)-JVS(3747)*XX(328)-JVS(3869)*XX(329)-JVS(4010)*XX(334)-JVS(4181)*XX(335)-JVS(4281)& - &*XX(336)-JVS(4491)*XX(337)-JVS(4545)*XX(338)-JVS(4623)*XX(339)-JVS(4717)*XX(340)-JVS(4795)*XX(341)-JVS(4850)& - &*XX(342)-JVS(4910)*XX(343)-JVS(5217)*XX(345)-JVS(5339)*XX(346)-JVS(5413)*XX(348)-JVS(5586)*XX(351)-JVS(5627)& - &*XX(352) - XX(325) = XX(325)-JVS(3663)*XX(327)-JVS(3868)*XX(329)-JVS(4280)*XX(336)-JVS(4490)*XX(337)-JVS(4622)*XX(339)-JVS(4716)& - &*XX(340)-JVS(4794)*XX(341)-JVS(4849)*XX(342)-JVS(4909)*XX(343)-JVS(5216)*XX(345)-JVS(5412)*XX(348)-JVS(5585)& - &*XX(351)-JVS(5626)*XX(352) - XX(324) = XX(324)-JVS(3526)*XX(325)-JVS(3572)*XX(326)-JVS(3662)*XX(327)-JVS(3746)*XX(328)-JVS(3867)*XX(329)-JVS(4009)& - &*XX(334)-JVS(4180)*XX(335)-JVS(4279)*XX(336)-JVS(4489)*XX(337)-JVS(4544)*XX(338)-JVS(4621)*XX(339)-JVS(4715)& - &*XX(340)-JVS(4793)*XX(341)-JVS(4848)*XX(342)-JVS(4908)*XX(343)-JVS(5215)*XX(345)-JVS(5338)*XX(346)-JVS(5411)& - &*XX(348)-JVS(5584)*XX(351)-JVS(5625)*XX(352) - XX(323) = XX(323)-JVS(3388)*XX(324)-JVS(3525)*XX(325)-JVS(3571)*XX(326)-JVS(3661)*XX(327)-JVS(3745)*XX(328)-JVS(3866)& - &*XX(329)-JVS(4179)*XX(335)-JVS(4278)*XX(336)-JVS(4488)*XX(337)-JVS(4543)*XX(338)-JVS(4620)*XX(339)-JVS(4714)& - &*XX(340)-JVS(4792)*XX(341)-JVS(4847)*XX(342)-JVS(5214)*XX(345)-JVS(5337)*XX(346)-JVS(5583)*XX(351)-JVS(5624)& - &*XX(352) - XX(322) = XX(322)-JVS(3300)*XX(323)-JVS(3387)*XX(324)-JVS(3524)*XX(325)-JVS(3570)*XX(326)-JVS(3660)*XX(327)-JVS(3744)& - &*XX(328)-JVS(3865)*XX(329)-JVS(4178)*XX(335)-JVS(4277)*XX(336)-JVS(4487)*XX(337)-JVS(4542)*XX(338)-JVS(4619)& - &*XX(339)-JVS(4713)*XX(340)-JVS(4791)*XX(341)-JVS(5213)*XX(345)-JVS(5336)*XX(346)-JVS(5582)*XX(351) - XX(321) = XX(321)-JVS(3275)*XX(322)-JVS(3299)*XX(323)-JVS(3386)*XX(324)-JVS(3523)*XX(325)-JVS(3569)*XX(326)-JVS(3659)& - &*XX(327)-JVS(3743)*XX(328)-JVS(3864)*XX(329)-JVS(4177)*XX(335)-JVS(4276)*XX(336)-JVS(4486)*XX(337)-JVS(4541)& - &*XX(338)-JVS(4618)*XX(339)-JVS(4712)*XX(340)-JVS(5212)*XX(345)-JVS(5335)*XX(346)-JVS(5581)*XX(351) - XX(320) = XX(320)-JVS(3242)*XX(321)-JVS(3274)*XX(322)-JVS(3298)*XX(323)-JVS(3385)*XX(324)-JVS(3522)*XX(325)-JVS(3568)& - &*XX(326)-JVS(3658)*XX(327)-JVS(3742)*XX(328)-JVS(3863)*XX(329)-JVS(4176)*XX(335)-JVS(4275)*XX(336)-JVS(4485)& - &*XX(337)-JVS(4540)*XX(338)-JVS(4617)*XX(339)-JVS(4711)*XX(340)-JVS(4790)*XX(341)-JVS(4846)*XX(342)-JVS(5211)& - &*XX(345)-JVS(5334)*XX(346)-JVS(5580)*XX(351)-JVS(5623)*XX(352) - XX(319) = XX(319)-JVS(3221)*XX(320)-JVS(3241)*XX(321)-JVS(3273)*XX(322)-JVS(3297)*XX(323)-JVS(3384)*XX(324)-JVS(3521)& - &*XX(325)-JVS(3567)*XX(326)-JVS(3657)*XX(327)-JVS(3741)*XX(328)-JVS(3862)*XX(329)-JVS(4175)*XX(335)-JVS(4274)& - &*XX(336)-JVS(4484)*XX(337)-JVS(4539)*XX(338)-JVS(4616)*XX(339)-JVS(4710)*XX(340)-JVS(4845)*XX(342)-JVS(5210)& - &*XX(345)-JVS(5333)*XX(346)-JVS(5579)*XX(351)-JVS(5622)*XX(352) - XX(318) = XX(318)-JVS(3205)*XX(319)-JVS(3220)*XX(320)-JVS(3240)*XX(321)-JVS(3272)*XX(322)-JVS(3296)*XX(323)-JVS(3383)& - &*XX(324)-JVS(3520)*XX(325)-JVS(3566)*XX(326)-JVS(3656)*XX(327)-JVS(3740)*XX(328)-JVS(3861)*XX(329)-JVS(4174)& - &*XX(335)-JVS(4273)*XX(336)-JVS(4483)*XX(337)-JVS(4538)*XX(338)-JVS(4615)*XX(339)-JVS(4709)*XX(340)-JVS(4844)& - &*XX(342)-JVS(5209)*XX(345)-JVS(5332)*XX(346)-JVS(5578)*XX(351)-JVS(5621)*XX(352) - XX(317) = XX(317)-JVS(3655)*XX(327)-JVS(3957)*XX(333)-JVS(4008)*XX(334)-JVS(4173)*XX(335)-JVS(4272)*XX(336)-JVS(4537)& - &*XX(338)-JVS(4614)*XX(339)-JVS(4708)*XX(340)-JVS(4843)*XX(342)-JVS(4907)*XX(343)-JVS(4942)*XX(344)-JVS(5208)& - &*XX(345)-JVS(5442)*XX(349)-JVS(5468)*XX(350)-JVS(5577)*XX(351)-JVS(5620)*XX(352)-JVS(5656)*XX(353) - XX(316) = XX(316)-JVS(4271)*XX(336)-JVS(4613)*XX(339)-JVS(4707)*XX(340)-JVS(4842)*XX(342)-JVS(4906)*XX(343)-JVS(4941)& - &*XX(344)-JVS(5207)*XX(345)-JVS(5374)*XX(347)-JVS(5410)*XX(348)-JVS(5441)*XX(349)-JVS(5467)*XX(350)-JVS(5619)& - &*XX(352)-JVS(5655)*XX(353) - XX(315) = XX(315)-JVS(3382)*XX(324)-JVS(3519)*XX(325)-JVS(3565)*XX(326)-JVS(3739)*XX(328)-JVS(4172)*XX(335)-JVS(4270)& - &*XX(336)-JVS(4482)*XX(337)-JVS(4536)*XX(338)-JVS(4612)*XX(339)-JVS(4706)*XX(340)-JVS(5206)*XX(345)-JVS(5331)& - &*XX(346) - XX(314) = XX(314)-JVS(3128)*XX(315)-JVS(3239)*XX(321)-JVS(3271)*XX(322)-JVS(3295)*XX(323)-JVS(3381)*XX(324)-JVS(3518)& - &*XX(325)-JVS(3564)*XX(326)-JVS(3654)*XX(327)-JVS(3738)*XX(328)-JVS(3860)*XX(329)-JVS(4007)*XX(334)-JVS(4171)& - &*XX(335)-JVS(4269)*XX(336)-JVS(4481)*XX(337)-JVS(4611)*XX(339)-JVS(4705)*XX(340)-JVS(4789)*XX(341)-JVS(4841)& - &*XX(342)-JVS(4905)*XX(343)-JVS(5205)*XX(345)-JVS(5330)*XX(346)-JVS(5409)*XX(348)-JVS(5576)*XX(351)-JVS(5618)& - &*XX(352) - XX(313) = XX(313)-JVS(3380)*XX(324)-JVS(3517)*XX(325)-JVS(3653)*XX(327)-JVS(3737)*XX(328)-JVS(3859)*XX(329)-JVS(4170)& - &*XX(335)-JVS(4268)*XX(336)-JVS(4480)*XX(337)-JVS(4610)*XX(339)-JVS(4704)*XX(340)-JVS(5204)*XX(345)-JVS(5329)& - &*XX(346)-JVS(5575)*XX(351) - XX(312) = XX(312)-JVS(3516)*XX(325)-JVS(3858)*XX(329)-JVS(4169)*XX(335)-JVS(4267)*XX(336)-JVS(4479)*XX(337)-JVS(4609)& - &*XX(339)-JVS(4703)*XX(340)-JVS(4788)*XX(341)-JVS(4904)*XX(343)-JVS(5203)*XX(345)-JVS(5328)*XX(346)-JVS(5408)& - &*XX(348)-JVS(5574)*XX(351) - XX(311) = XX(311)-JVS(3048)*XX(312)-JVS(3076)*XX(313)-JVS(3111)*XX(314)-JVS(3379)*XX(324)-JVS(3515)*XX(325)-JVS(3652)& - &*XX(327)-JVS(3736)*XX(328)-JVS(3857)*XX(329)-JVS(4168)*XX(335)-JVS(4266)*XX(336)-JVS(4478)*XX(337)-JVS(4608)& - &*XX(339)-JVS(4702)*XX(340)-JVS(4787)*XX(341)-JVS(5202)*XX(345)-JVS(5327)*XX(346)-JVS(5573)*XX(351) - XX(310) = XX(310)-JVS(3028)*XX(311)-JVS(3047)*XX(312)-JVS(3075)*XX(313)-JVS(3110)*XX(314)-JVS(3378)*XX(324)-JVS(3514)& - &*XX(325)-JVS(3651)*XX(327)-JVS(3735)*XX(328)-JVS(3856)*XX(329)-JVS(4167)*XX(335)-JVS(4265)*XX(336)-JVS(4477)& - &*XX(337)-JVS(4607)*XX(339)-JVS(4701)*XX(340)-JVS(4786)*XX(341)-JVS(5201)*XX(345)-JVS(5326)*XX(346)-JVS(5572)& - &*XX(351) - XX(309) = XX(309)-JVS(3046)*XX(312)-JVS(3074)*XX(313)-JVS(3377)*XX(324)-JVS(3513)*XX(325)-JVS(3650)*XX(327)-JVS(3734)& - &*XX(328)-JVS(3855)*XX(329)-JVS(4166)*XX(335)-JVS(4264)*XX(336)-JVS(4476)*XX(337)-JVS(4606)*XX(339)-JVS(4700)& - &*XX(340)-JVS(4785)*XX(341)-JVS(5200)*XX(345)-JVS(5325)*XX(346)-JVS(5571)*XX(351) - XX(308) = XX(308)-JVS(3376)*XX(324)-JVS(3512)*XX(325)-JVS(3649)*XX(327)-JVS(3733)*XX(328)-JVS(3854)*XX(329)-JVS(4165)& - &*XX(335)-JVS(4263)*XX(336)-JVS(4475)*XX(337)-JVS(4605)*XX(339)-JVS(4699)*XX(340)-JVS(4784)*XX(341)-JVS(5199)& - &*XX(345)-JVS(5324)*XX(346)-JVS(5570)*XX(351) - XX(307) = XX(307)-JVS(3375)*XX(324)-JVS(3511)*XX(325)-JVS(3648)*XX(327)-JVS(3732)*XX(328)-JVS(3853)*XX(329)-JVS(4262)& - &*XX(336)-JVS(4474)*XX(337)-JVS(4604)*XX(339)-JVS(4698)*XX(340)-JVS(5198)*XX(345)-JVS(5569)*XX(351) - XX(306) = XX(306)-JVS(3510)*XX(325)-JVS(3647)*XX(327)-JVS(3852)*XX(329)-JVS(4164)*XX(335)-JVS(4261)*XX(336)-JVS(4473)& - &*XX(337)-JVS(4603)*XX(339)-JVS(4697)*XX(340)-JVS(4783)*XX(341)-JVS(5197)*XX(345)-JVS(5323)*XX(346)-JVS(5568)& - &*XX(351) - XX(305) = XX(305)-JVS(2893)*XX(306)-JVS(2953)*XX(307)-JVS(2977)*XX(308)-JVS(3002)*XX(309)-JVS(3073)*XX(313)-JVS(3109)& - &*XX(314)-JVS(3374)*XX(324)-JVS(3509)*XX(325)-JVS(3646)*XX(327)-JVS(3731)*XX(328)-JVS(3851)*XX(329)-JVS(4163)& - &*XX(335)-JVS(4260)*XX(336)-JVS(4472)*XX(337)-JVS(4602)*XX(339)-JVS(4696)*XX(340)-JVS(5196)*XX(345)-JVS(5322)& - &*XX(346)-JVS(5567)*XX(351) - XX(304) = XX(304)-JVS(2840)*XX(305)-JVS(2892)*XX(306)-JVS(2952)*XX(307)-JVS(2976)*XX(308)-JVS(3001)*XX(309)-JVS(3072)& - &*XX(313)-JVS(3108)*XX(314)-JVS(3373)*XX(324)-JVS(3508)*XX(325)-JVS(3645)*XX(327)-JVS(3730)*XX(328)-JVS(3850)& - &*XX(329)-JVS(4162)*XX(335)-JVS(4259)*XX(336)-JVS(4471)*XX(337)-JVS(4601)*XX(339)-JVS(4695)*XX(340)-JVS(5195)& - &*XX(345)-JVS(5321)*XX(346)-JVS(5566)*XX(351) - XX(303) = XX(303)-JVS(2891)*XX(306)-JVS(2951)*XX(307)-JVS(2975)*XX(308)-JVS(3000)*XX(309)-JVS(3071)*XX(313)-JVS(3107)& - &*XX(314)-JVS(3372)*XX(324)-JVS(3507)*XX(325)-JVS(3644)*XX(327)-JVS(3849)*XX(329)-JVS(4161)*XX(335)-JVS(4258)& - &*XX(336)-JVS(4470)*XX(337)-JVS(4600)*XX(339)-JVS(4694)*XX(340)-JVS(5194)*XX(345)-JVS(5320)*XX(346)-JVS(5565)& - &*XX(351) - XX(302) = XX(302)-JVS(2890)*XX(306)-JVS(3371)*XX(324)-JVS(3506)*XX(325)-JVS(3643)*XX(327)-JVS(3848)*XX(329)-JVS(4160)& - &*XX(335)-JVS(4257)*XX(336)-JVS(4469)*XX(337)-JVS(4599)*XX(339)-JVS(4693)*XX(340)-JVS(5193)*XX(345)-JVS(5564)& - &*XX(351) - XX(301) = XX(301)-JVS(2779)*XX(302)-JVS(2889)*XX(306)-JVS(2950)*XX(307)-JVS(2974)*XX(308)-JVS(3070)*XX(313)-JVS(3370)& - &*XX(324)-JVS(3505)*XX(325)-JVS(3642)*XX(327)-JVS(3847)*XX(329)-JVS(4159)*XX(335)-JVS(4256)*XX(336)-JVS(4468)& - &*XX(337)-JVS(4598)*XX(339)-JVS(4692)*XX(340)-JVS(5192)*XX(345)-JVS(5319)*XX(346)-JVS(5563)*XX(351) - XX(300) = XX(300)-JVS(3069)*XX(313)-JVS(3127)*XX(315)-JVS(3204)*XX(319)-JVS(3219)*XX(320)-JVS(3238)*XX(321)-JVS(3270)& - &*XX(322)-JVS(3294)*XX(323)-JVS(3369)*XX(324)-JVS(3504)*XX(325)-JVS(3563)*XX(326)-JVS(3641)*XX(327)-JVS(3729)& - &*XX(328)-JVS(3846)*XX(329)-JVS(4158)*XX(335)-JVS(4255)*XX(336)-JVS(4467)*XX(337)-JVS(4597)*XX(339)-JVS(4691)& - &*XX(340)-JVS(4840)*XX(342)-JVS(5191)*XX(345)-JVS(5318)*XX(346)-JVS(5562)*XX(351)-JVS(5617)*XX(352) - XX(299) = XX(299)-JVS(2755)*XX(301)-JVS(2778)*XX(302)-JVS(2810)*XX(303)-JVS(2888)*XX(306)-JVS(2949)*XX(307)-JVS(2999)& - &*XX(309)-JVS(3106)*XX(314)-JVS(3368)*XX(324)-JVS(3503)*XX(325)-JVS(3640)*XX(327)-JVS(3845)*XX(329)-JVS(4157)& - &*XX(335)-JVS(4466)*XX(337)-JVS(5190)*XX(345)-JVS(5317)*XX(346)-JVS(5561)*XX(351) - XX(298) = XX(298)-JVS(3126)*XX(315)-JVS(3237)*XX(321)-JVS(3269)*XX(322)-JVS(3293)*XX(323)-JVS(3639)*XX(327)-JVS(3844)& - &*XX(329)-JVS(4254)*XX(336)-JVS(4465)*XX(337)-JVS(5189)*XX(345)-JVS(5560)*XX(351) - XX(297) = XX(297)-JVS(3956)*XX(333)-JVS(4006)*XX(334)-JVS(4156)*XX(335)-JVS(4253)*XX(336)-JVS(4535)*XX(338)-JVS(4596)& - &*XX(339)-JVS(4690)*XX(340)-JVS(4839)*XX(342)-JVS(4903)*XX(343)-JVS(4940)*XX(344)-JVS(5188)*XX(345)-JVS(5316)& - &*XX(346)-JVS(5440)*XX(349)-JVS(5466)*XX(350)-JVS(5616)*XX(352)-JVS(5654)*XX(353) - XX(296) = XX(296)-JVS(3125)*XX(315)-JVS(3367)*XX(324)-JVS(3502)*XX(325)-JVS(3562)*XX(326)-JVS(3728)*XX(328)-JVS(4155)& - &*XX(335)-JVS(4252)*XX(336)-JVS(4464)*XX(337)-JVS(4534)*XX(338)-JVS(4595)*XX(339)-JVS(4689)*XX(340)-JVS(5187)& - &*XX(345)-JVS(5315)*XX(346) - XX(295) = XX(295)-JVS(3068)*XX(313)-JVS(3366)*XX(324)-JVS(3727)*XX(328)-JVS(3843)*XX(329)-JVS(4251)*XX(336)-JVS(4594)& - &*XX(339)-JVS(4688)*XX(340)-JVS(4838)*XX(342)-JVS(5186)*XX(345)-JVS(5615)*XX(352) - XX(294) = XX(294)-JVS(3365)*XX(324)-JVS(3638)*XX(327)-JVS(3842)*XX(329)-JVS(4463)*XX(337)-JVS(5185)*XX(345)-JVS(5559)& - &*XX(351) - XX(293) = XX(293)-JVS(2571)*XX(294)-JVS(2726)*XX(299)-JVS(2777)*XX(302)-JVS(2809)*XX(303)-JVS(2887)*XX(306)-JVS(2948)& - &*XX(307)-JVS(3364)*XX(324)-JVS(3501)*XX(325)-JVS(3637)*XX(327)-JVS(3841)*XX(329)-JVS(4154)*XX(335)-JVS(4462)& - &*XX(337)-JVS(5184)*XX(345)-JVS(5314)*XX(346)-JVS(5558)*XX(351) - XX(292) = XX(292)-JVS(3124)*XX(315)-JVS(3218)*XX(320)-JVS(3236)*XX(321)-JVS(3268)*XX(322)-JVS(3292)*XX(323)-JVS(3363)& - &*XX(324)-JVS(3636)*XX(327)-JVS(3726)*XX(328)-JVS(4250)*XX(336)-JVS(5183)*XX(345)-JVS(5557)*XX(351) - XX(291) = XX(291)-JVS(2506)*XX(292)-JVS(2612)*XX(295)-JVS(2638)*XX(296)-JVS(2698)*XX(298)-JVS(2886)*XX(306)-JVS(2947)& - &*XX(307)-JVS(3105)*XX(314)-JVS(3362)*XX(324)-JVS(3500)*XX(325)-JVS(3635)*XX(327)-JVS(3725)*XX(328)-JVS(4153)& - &*XX(335)-JVS(4249)*XX(336)-JVS(4461)*XX(337)-JVS(4593)*XX(339)-JVS(4687)*XX(340)-JVS(4782)*XX(341)-JVS(5182)& - &*XX(345)-JVS(5313)*XX(346)-JVS(5556)*XX(351) - XX(290) = XX(290)-JVS(2570)*XX(294)-JVS(2697)*XX(298)-JVS(2946)*XX(307)-JVS(3045)*XX(312)-JVS(3361)*XX(324)-JVS(3499)& - &*XX(325)-JVS(3561)*XX(326)-JVS(3724)*XX(328)-JVS(3840)*XX(329)-JVS(4005)*XX(334)-JVS(4152)*XX(335)-JVS(4248)& - &*XX(336)-JVS(4460)*XX(337)-JVS(4592)*XX(339)-JVS(4686)*XX(340)-JVS(4781)*XX(341)-JVS(4837)*XX(342)-JVS(4902)& - &*XX(343)-JVS(5181)*XX(345)-JVS(5312)*XX(346)-JVS(5407)*XX(348)-JVS(5555)*XX(351)-JVS(5614)*XX(352) - XX(289) = XX(289)-JVS(2505)*XX(292)-JVS(2637)*XX(296)-JVS(2696)*XX(298)-JVS(2945)*XX(307)-JVS(3360)*XX(324)-JVS(3498)& - &*XX(325)-JVS(3634)*XX(327)-JVS(3723)*XX(328)-JVS(4151)*XX(335)-JVS(4247)*XX(336)-JVS(4459)*XX(337)-JVS(4591)& - &*XX(339)-JVS(4685)*XX(340)-JVS(4780)*XX(341)-JVS(5180)*XX(345)-JVS(5311)*XX(346)-JVS(5554)*XX(351) - XX(288) = XX(288)-JVS(2569)*XX(294)-JVS(2885)*XX(306)-JVS(3359)*XX(324)-JVS(3497)*XX(325)-JVS(3633)*XX(327)-JVS(3839)& - &*XX(329)-JVS(4458)*XX(337)-JVS(5179)*XX(345)-JVS(5553)*XX(351) - XX(287) = XX(287)-JVS(2568)*XX(294)-JVS(2944)*XX(307)-JVS(3067)*XX(313)-JVS(3358)*XX(324)-JVS(3496)*XX(325)-JVS(3838)& - &*XX(329)-JVS(4246)*XX(336)-JVS(4457)*XX(337)-JVS(5178)*XX(345) - XX(286) = XX(286)-JVS(2411)*XX(287)-JVS(2444)*XX(288)-JVS(2567)*XX(294)-JVS(2884)*XX(306)-JVS(2943)*XX(307)-JVS(3357)& - &*XX(324)-JVS(3495)*XX(325)-JVS(3632)*XX(327)-JVS(3837)*XX(329)-JVS(4150)*XX(335)-JVS(4456)*XX(337)-JVS(5177)& - &*XX(345)-JVS(5310)*XX(346)-JVS(5552)*XX(351) - XX(285) = XX(285)-JVS(2384)*XX(286)-JVS(2410)*XX(287)-JVS(2443)*XX(288)-JVS(2566)*XX(294)-JVS(2883)*XX(306)-JVS(2942)& - &*XX(307)-JVS(3356)*XX(324)-JVS(3494)*XX(325)-JVS(3631)*XX(327)-JVS(3836)*XX(329)-JVS(4149)*XX(335)-JVS(4455)& - &*XX(337)-JVS(5176)*XX(345)-JVS(5309)*XX(346)-JVS(5551)*XX(351) - XX(284) = XX(284)-JVS(3887)*XX(330)-JVS(3916)*XX(331)-JVS(3935)*XX(332)-JVS(3955)*XX(333)-JVS(4148)*XX(335)-JVS(4454)& - &*XX(337)-JVS(4533)*XX(338)-JVS(4684)*XX(340)-JVS(4836)*XX(342)-JVS(4901)*XX(343)-JVS(5175)*XX(345)-JVS(5308)& - &*XX(346)-JVS(5373)*XX(347) - XX(283) = XX(283)-JVS(3722)*XX(328)-JVS(4245)*XX(336)-JVS(4590)*XX(339)-JVS(4683)*XX(340)-JVS(5174)*XX(345) - XX(282) = XX(282)-JVS(3493)*XX(325)-JVS(4453)*XX(337)-JVS(4589)*XX(339)-JVS(4682)*XX(340)-JVS(5173)*XX(345) - XX(281) = XX(281)-JVS(2278)*XX(282)-JVS(2313)*XX(283)-JVS(2504)*XX(292)-JVS(2695)*XX(298)-JVS(2941)*XX(307)-JVS(3044)& - &*XX(312)-JVS(3203)*XX(319)-JVS(3355)*XX(324)-JVS(3492)*XX(325)-JVS(3630)*XX(327)-JVS(3721)*XX(328)-JVS(3835)& - &*XX(329)-JVS(4147)*XX(335)-JVS(4452)*XX(337)-JVS(4779)*XX(341)-JVS(5172)*XX(345)-JVS(5307)*XX(346)-JVS(5550)& - &*XX(351) - XX(280) = XX(280)-JVS(2464)*XX(289)-JVS(2503)*XX(292)-JVS(2694)*XX(298)-JVS(2940)*XX(307)-JVS(3354)*XX(324)-JVS(3491)& - &*XX(325)-JVS(3629)*XX(327)-JVS(3720)*XX(328)-JVS(4146)*XX(335)-JVS(4451)*XX(337)-JVS(4778)*XX(341)-JVS(5171)& - &*XX(345)-JVS(5306)*XX(346)-JVS(5549)*XX(351) - XX(279) = XX(279)-JVS(2277)*XX(282)-JVS(2312)*XX(283)-JVS(2502)*XX(292)-JVS(2611)*XX(295)-JVS(2693)*XX(298)-JVS(3123)& - &*XX(315)-JVS(3202)*XX(319)-JVS(3235)*XX(321)-JVS(3291)*XX(323)-JVS(3353)*XX(324)-JVS(3490)*XX(325)-JVS(3560)& - &*XX(326)-JVS(3719)*XX(328)-JVS(4145)*XX(335)-JVS(4244)*XX(336)-JVS(4450)*XX(337)-JVS(5170)*XX(345)-JVS(5305)& - &*XX(346) - XX(278) = XX(278)-JVS(2276)*XX(282)-JVS(2501)*XX(292)-JVS(2610)*XX(295)-JVS(2939)*XX(307)-JVS(3267)*XX(322)-JVS(3352)& - &*XX(324)-JVS(3489)*XX(325)-JVS(3628)*XX(327)-JVS(3718)*XX(328)-JVS(4144)*XX(335)-JVS(4449)*XX(337)-JVS(5169)& - &*XX(345)-JVS(5304)*XX(346)-JVS(5548)*XX(351) - XX(277) = XX(277)-JVS(2221)*XX(278)-JVS(2275)*XX(282)-JVS(2311)*XX(283)-JVS(2500)*XX(292)-JVS(2609)*XX(295)-JVS(2938)& - &*XX(307)-JVS(3266)*XX(322)-JVS(3351)*XX(324)-JVS(3488)*XX(325)-JVS(3627)*XX(327)-JVS(3717)*XX(328)-JVS(3834)& - &*XX(329)-JVS(4143)*XX(335)-JVS(4448)*XX(337)-JVS(4777)*XX(341)-JVS(5168)*XX(345)-JVS(5303)*XX(346)-JVS(5547)& - &*XX(351) - XX(276) = XX(276)-JVS(2409)*XX(287)-JVS(2442)*XX(288)-JVS(2565)*XX(294)-JVS(2776)*XX(302)-JVS(2825)*XX(304)-JVS(2839)& - &*XX(305)-JVS(2882)*XX(306)-JVS(2937)*XX(307)-JVS(2973)*XX(308)-JVS(2998)*XX(309)-JVS(3015)*XX(310)-JVS(3027)& - &*XX(311)-JVS(3043)*XX(312)-JVS(3066)*XX(313)-JVS(3104)*XX(314)-JVS(3350)*XX(324)-JVS(3487)*XX(325)-JVS(3626)& - &*XX(327)-JVS(3716)*XX(328)-JVS(3833)*XX(329)-JVS(4142)*XX(335)-JVS(4243)*XX(336)-JVS(4447)*XX(337)-JVS(4588)& - &*XX(339)-JVS(4681)*XX(340)-JVS(4776)*XX(341)-JVS(4900)*XX(343)-JVS(5167)*XX(345)-JVS(5302)*XX(346)-JVS(5406)& - &*XX(348)-JVS(5546)*XX(351) - XX(275) = XX(275)-JVS(2274)*XX(282)-JVS(2310)*XX(283)-JVS(2499)*XX(292)-JVS(2608)*XX(295)-JVS(2692)*XX(298)-JVS(2936)& - &*XX(307)-JVS(3201)*XX(319)-JVS(3349)*XX(324)-JVS(3486)*XX(325)-JVS(3625)*XX(327)-JVS(3715)*XX(328)-JVS(4141)& - &*XX(335)-JVS(4446)*XX(337)-JVS(4775)*XX(341)-JVS(5166)*XX(345)-JVS(5301)*XX(346)-JVS(5545)*XX(351) - XX(274) = XX(274)-JVS(2691)*XX(298)-JVS(3200)*XX(319)-JVS(3348)*XX(324)-JVS(3485)*XX(325)-JVS(3714)*XX(328)-JVS(4140)& - &*XX(335)-JVS(4445)*XX(337)-JVS(4774)*XX(341)-JVS(5165)*XX(345)-JVS(5300)*XX(346)-JVS(5544)*XX(351) - XX(273) = XX(273)-JVS(2177)*XX(274)-JVS(2273)*XX(282)-JVS(2498)*XX(292)-JVS(2607)*XX(295)-JVS(2690)*XX(298)-JVS(2935)& - &*XX(307)-JVS(3199)*XX(319)-JVS(3484)*XX(325)-JVS(3624)*XX(327)-JVS(3713)*XX(328)-JVS(4139)*XX(335)-JVS(4444)& - &*XX(337)-JVS(5164)*XX(345)-JVS(5299)*XX(346)-JVS(5543)*XX(351) - XX(272) = XX(272)-JVS(2176)*XX(274)-JVS(2272)*XX(282)-JVS(2497)*XX(292)-JVS(2689)*XX(298)-JVS(2934)*XX(307)-JVS(3198)& - &*XX(319)-JVS(3347)*XX(324)-JVS(3483)*XX(325)-JVS(3623)*XX(327)-JVS(3712)*XX(328)-JVS(4138)*XX(335)-JVS(4443)& - &*XX(337)-JVS(5163)*XX(345)-JVS(5298)*XX(346)-JVS(5542)*XX(351) - XX(271) = XX(271)-JVS(2408)*XX(287)-JVS(2441)*XX(288)-JVS(2564)*XX(294)-JVS(2725)*XX(299)-JVS(2775)*XX(302)-JVS(2808)& - &*XX(303)-JVS(2881)*XX(306)-JVS(2933)*XX(307)-JVS(3065)*XX(313)-JVS(3346)*XX(324)-JVS(3482)*XX(325)-JVS(3622)& - &*XX(327)-JVS(3832)*XX(329)-JVS(4137)*XX(335)-JVS(4242)*XX(336)-JVS(4442)*XX(337)-JVS(5162)*XX(345)-JVS(5297)& - &*XX(346)-JVS(5541)*XX(351) - XX(270) = XX(270)-JVS(3481)*XX(325)-JVS(3621)*XX(327)-JVS(3831)*XX(329)-JVS(4441)*XX(337)-JVS(5161)*XX(345)-JVS(5540)& - &*XX(351) - XX(269) = XX(269)-JVS(2112)*XX(270)-JVS(2636)*XX(296)-JVS(2688)*XX(298)-JVS(2880)*XX(306)-JVS(3178)*XX(318)-JVS(3265)& - &*XX(322)-JVS(3620)*XX(327)-JVS(3830)*XX(329)-JVS(4136)*XX(335)-JVS(4241)*XX(336)-JVS(4440)*XX(337)-JVS(4587)& - &*XX(339)-JVS(4680)*XX(340)-JVS(4773)*XX(341)-JVS(5160)*XX(345)-JVS(5296)*XX(346)-JVS(5539)*XX(351) - XX(268) = XX(268)-JVS(2111)*XX(270)-JVS(2363)*XX(285)-JVS(2383)*XX(286)-JVS(2407)*XX(287)-JVS(2440)*XX(288)-JVS(2563)& - &*XX(294)-JVS(2724)*XX(299)-JVS(2754)*XX(301)-JVS(2807)*XX(303)-JVS(2879)*XX(306)-JVS(2932)*XX(307)-JVS(3345)& - &*XX(324)-JVS(3480)*XX(325)-JVS(3619)*XX(327)-JVS(3829)*XX(329)-JVS(4135)*XX(335)-JVS(4439)*XX(337)-JVS(5159)& - &*XX(345)-JVS(5295)*XX(346) - XX(267) = XX(267)-JVS(2110)*XX(270)-JVS(2362)*XX(285)-JVS(2382)*XX(286)-JVS(2406)*XX(287)-JVS(2439)*XX(288)-JVS(2562)& - &*XX(294)-JVS(2723)*XX(299)-JVS(2753)*XX(301)-JVS(2774)*XX(302)-JVS(2806)*XX(303)-JVS(2878)*XX(306)-JVS(2931)& - &*XX(307)-JVS(3344)*XX(324)-JVS(3479)*XX(325)-JVS(3618)*XX(327)-JVS(3828)*XX(329)-JVS(4134)*XX(335)-JVS(4438)& - &*XX(337)-JVS(5158)*XX(345)-JVS(5294)*XX(346)-JVS(5538)*XX(351) - XX(266) = XX(266)-JVS(2405)*XX(287)-JVS(2438)*XX(288)-JVS(2561)*XX(294)-JVS(2877)*XX(306)-JVS(3617)*XX(327)-JVS(3827)& - &*XX(329)-JVS(4133)*XX(335)-JVS(4437)*XX(337)-JVS(5157)*XX(345) - XX(265) = XX(265)-JVS(4240)*XX(336)-JVS(4436)*XX(337)-JVS(4586)*XX(339)-JVS(4679)*XX(340)-JVS(5156)*XX(345) - XX(264) = XX(264)-JVS(4239)*XX(336)-JVS(4435)*XX(337)-JVS(4585)*XX(339)-JVS(4678)*XX(340)-JVS(4899)*XX(343)-JVS(5155)& - &*XX(345)-JVS(5405)*XX(348) - XX(263) = XX(263)-JVS(3343)*XX(324)-JVS(3478)*XX(325)-JVS(3711)*XX(328)-JVS(4132)*XX(335)-JVS(4434)*XX(337)-JVS(5154)& - &*XX(345)-JVS(5293)*XX(346)-JVS(5537)*XX(351) - XX(262) = XX(262)-JVS(1979)*XX(263)-JVS(2245)*XX(280)-JVS(2496)*XX(292)-JVS(2606)*XX(295)-JVS(2876)*XX(306)-JVS(3103)& - &*XX(314)-JVS(3477)*XX(325)-JVS(4131)*XX(335)-JVS(4433)*XX(337)-JVS(4772)*XX(341)-JVS(5153)*XX(345)-JVS(5536)& - &*XX(351) - XX(261) = XX(261)-JVS(3342)*XX(324)-JVS(3476)*XX(325)-JVS(3616)*XX(327)-JVS(3826)*XX(329)-JVS(4130)*XX(335)-JVS(4432)& - &*XX(337)-JVS(5152)*XX(345)-JVS(5535)*XX(351) - XX(260) = XX(260)-JVS(2271)*XX(282)-JVS(2309)*XX(283)-JVS(2687)*XX(298)-JVS(2930)*XX(307)-JVS(3341)*XX(324)-JVS(3475)& - &*XX(325)-JVS(3559)*XX(326)-JVS(3710)*XX(328)-JVS(4129)*XX(335)-JVS(4431)*XX(337)-JVS(5151)*XX(345)-JVS(5292)& - &*XX(346) - XX(259) = XX(259)-JVS(2019)*XX(265)-JVS(2560)*XX(294)-JVS(2929)*XX(307)-JVS(3340)*XX(324)-JVS(3474)*XX(325)-JVS(3709)& - &*XX(328)-JVS(3825)*XX(329)-JVS(4128)*XX(335)-JVS(4430)*XX(337)-JVS(4771)*XX(341)-JVS(5150)*XX(345)-JVS(5291)& - &*XX(346)-JVS(5534)*XX(351) - XX(258) = XX(258)-JVS(2109)*XX(270)-JVS(2404)*XX(287)-JVS(2559)*XX(294)-JVS(2875)*XX(306)-JVS(2928)*XX(307)-JVS(3339)& - &*XX(324)-JVS(3473)*XX(325)-JVS(3824)*XX(329)-JVS(4429)*XX(337)-JVS(5149)*XX(345) - XX(257) = XX(257)-JVS(2220)*XX(278)-JVS(3338)*XX(324)-JVS(3472)*XX(325)-JVS(3708)*XX(328)-JVS(4127)*XX(335)-JVS(4428)& - &*XX(337)-JVS(4770)*XX(341)-JVS(5148)*XX(345)-JVS(5290)*XX(346)-JVS(5533)*XX(351) - XX(256) = XX(256)-JVS(2495)*XX(292)-JVS(2927)*XX(307)-JVS(3615)*XX(327)-JVS(4126)*XX(335)-JVS(5147)*XX(345)-JVS(5532)& - &*XX(351) - XX(255) = XX(255)-JVS(1864)*XX(256)-JVS(1978)*XX(263)-JVS(2175)*XX(274)-JVS(3042)*XX(312)-JVS(3471)*XX(325)-JVS(3823)& - &*XX(329)-JVS(4125)*XX(335)-JVS(4427)*XX(337)-JVS(4769)*XX(341)-JVS(5146)*XX(345)-JVS(5531)*XX(351) - XX(254) = XX(254)-JVS(2437)*XX(288)-JVS(2558)*XX(294)-JVS(2773)*XX(302)-JVS(2874)*XX(306)-JVS(3337)*XX(324)-JVS(3470)& - &*XX(325)-JVS(3822)*XX(329)-JVS(4124)*XX(335)-JVS(4426)*XX(337)-JVS(5145)*XX(345)-JVS(5289)*XX(346) - XX(253) = XX(253)-JVS(2403)*XX(287)-JVS(2557)*XX(294)-JVS(2926)*XX(307)-JVS(2972)*XX(308)-JVS(3469)*XX(325)-JVS(3614)& - &*XX(327)-JVS(3821)*XX(329)-JVS(4123)*XX(335)-JVS(4425)*XX(337)-JVS(5144)*XX(345)-JVS(5288)*XX(346) - XX(252) = XX(252)-JVS(3886)*XX(330)-JVS(3915)*XX(331)-JVS(3934)*XX(332)-JVS(4122)*XX(335)-JVS(4238)*XX(336)-JVS(4677)& - &*XX(340)-JVS(4835)*XX(342)-JVS(4939)*XX(344)-JVS(5143)*XX(345)-JVS(5287)*XX(346)-JVS(5439)*XX(349)-JVS(5465)& - &*XX(350)-JVS(5530)*XX(351)-JVS(5653)*XX(353) - XX(251) = XX(251)-JVS(2494)*XX(292)-JVS(2605)*XX(295)-JVS(2686)*XX(298)-JVS(3122)*XX(315)-JVS(3177)*XX(318)-JVS(3234)& - &*XX(321)-JVS(3290)*XX(323)-JVS(3558)*XX(326)-JVS(3613)*XX(327)-JVS(3707)*XX(328)-JVS(4121)*XX(335)-JVS(4237)& - &*XX(336)-JVS(4424)*XX(337)-JVS(5142)*XX(345) - XX(250) = XX(250)-JVS(2270)*XX(282)-JVS(2308)*XX(283)-JVS(2556)*XX(294)-JVS(2685)*XX(298)-JVS(3336)*XX(324)-JVS(3468)& - &*XX(325)-JVS(3557)*XX(326)-JVS(3706)*XX(328)-JVS(4120)*XX(335)-JVS(4423)*XX(337)-JVS(5141)*XX(345)-JVS(5286)& - &*XX(346) - XX(249) = XX(249)-JVS(2231)*XX(279)-JVS(2269)*XX(282)-JVS(2307)*XX(283)-JVS(2684)*XX(298)-JVS(3197)*XX(319)-JVS(3335)& - &*XX(324)-JVS(3467)*XX(325)-JVS(3556)*XX(326)-JVS(3705)*XX(328)-JVS(4119)*XX(335)-JVS(4422)*XX(337)-JVS(5140)& - &*XX(345)-JVS(5285)*XX(346) - XX(248) = XX(248)-JVS(2925)*XX(307)-JVS(2971)*XX(308)-JVS(3612)*XX(327)-JVS(3820)*XX(329)-JVS(4118)*XX(335)-JVS(4421)& - &*XX(337)-JVS(5139)*XX(345) - XX(247) = XX(247)-JVS(2555)*XX(294)-JVS(3334)*XX(324)-JVS(3466)*XX(325)-JVS(4117)*XX(335)-JVS(5138)*XX(345) - XX(246) = XX(246)-JVS(2268)*XX(282)-JVS(2635)*XX(296)-JVS(2873)*XX(306)-JVS(3264)*XX(322)-JVS(3465)*XX(325)-JVS(3555)& - &*XX(326)-JVS(3704)*XX(328)-JVS(3819)*XX(329)-JVS(4116)*XX(335)-JVS(4236)*XX(336)-JVS(4420)*XX(337)-JVS(4768)& - &*XX(341)-JVS(5137)*XX(345)-JVS(5284)*XX(346)-JVS(5529)*XX(351) - XX(245) = XX(245)-JVS(3954)*XX(333)-JVS(4004)*XX(334)-JVS(4532)*XX(338)-JVS(4676)*XX(340)-JVS(4898)*XX(343)-JVS(5136)& + XX(282) = XX(282)-JVS(2293)*XX(285)-JVS(2521)*XX(295)-JVS(2566)*XX(297)-JVS(2969)*XX(311)-JVS(3278)*XX(325)-JVS(3388)& + &*XX(328)-JVS(3525)*XX(329)-JVS(3718)*XX(333)-JVS(3809)*XX(334)-JVS(4106)*XX(338)-JVS(4417)*XX(341)-JVS(4738)& + &*XX(343)-JVS(4976)*XX(345)-JVS(5160)*XX(348) + XX(281) = XX(281)-JVS(2254)*XX(282)-JVS(2292)*XX(285)-JVS(2328)*XX(286)-JVS(2520)*XX(295)-JVS(2565)*XX(297)-JVS(2968)& + &*XX(311)-JVS(3277)*XX(325)-JVS(3387)*XX(328)-JVS(3524)*XX(329)-JVS(3717)*XX(333)-JVS(3808)*XX(334)-JVS(3924)& + &*XX(335)-JVS(4105)*XX(338)-JVS(4416)*XX(341)-JVS(4737)*XX(343)-JVS(4975)*XX(345)-JVS(5159)*XX(348)-JVS(5647)& + &*XX(356) + XX(280) = XX(280)-JVS(2483)*XX(292)-JVS(2519)*XX(295)-JVS(2726)*XX(302)-JVS(2967)*XX(311)-JVS(3386)*XX(328)-JVS(3523)& + &*XX(329)-JVS(3716)*XX(333)-JVS(3807)*XX(334)-JVS(4104)*XX(338)-JVS(4415)*XX(341)-JVS(4736)*XX(343)-JVS(4974)& + &*XX(345)-JVS(5158)*XX(348)-JVS(5646)*XX(356) + XX(279) = XX(279)-JVS(2428)*XX(290)-JVS(2461)*XX(291)-JVS(2616)*XX(298)-JVS(2809)*XX(306)-JVS(2856)*XX(308)-JVS(2899)& + &*XX(309)-JVS(2926)*XX(310)-JVS(2966)*XX(311)-JVS(3002)*XX(312)-JVS(3027)*XX(313)-JVS(3046)*XX(314)-JVS(3061)& + &*XX(315)-JVS(3075)*XX(316)-JVS(3106)*XX(317)-JVS(3139)*XX(318)-JVS(3385)*XX(328)-JVS(3522)*XX(329)-JVS(3715)& + &*XX(333)-JVS(3806)*XX(334)-JVS(3923)*XX(335)-JVS(4103)*XX(338)-JVS(4215)*XX(340)-JVS(4414)*XX(341)-JVS(4735)& + &*XX(343)-JVS(4973)*XX(345)-JVS(5157)*XX(348)-JVS(5301)*XX(351)-JVS(5367)*XX(352)-JVS(5465)*XX(353)-JVS(5580)& + &*XX(355)-JVS(5645)*XX(356) + XX(278) = XX(278)-JVS(2291)*XX(285)-JVS(2518)*XX(295)-JVS(2725)*XX(302)-JVS(2965)*XX(311)-JVS(3236)*XX(323)-JVS(3384)& + &*XX(328)-JVS(3521)*XX(329)-JVS(3714)*XX(333)-JVS(3805)*XX(334)-JVS(4102)*XX(338)-JVS(4413)*XX(341)-JVS(4734)& + &*XX(343)-JVS(4972)*XX(345)-JVS(5156)*XX(348)-JVS(5644)*XX(356) + XX(277) = XX(277)-JVS(2724)*XX(302)-JVS(3235)*XX(323)-JVS(3383)*XX(328)-JVS(3520)*XX(329)-JVS(3804)*XX(334)-JVS(4101)& + &*XX(338)-JVS(4412)*XX(341)-JVS(4733)*XX(343)-JVS(4971)*XX(345)-JVS(5155)*XX(348)-JVS(5643)*XX(356) + XX(276) = XX(276)-JVS(2194)*XX(277)-JVS(2290)*XX(285)-JVS(2327)*XX(286)-JVS(2517)*XX(295)-JVS(2564)*XX(297)-JVS(2723)& + &*XX(302)-JVS(2964)*XX(311)-JVS(3234)*XX(323)-JVS(3382)*XX(328)-JVS(3519)*XX(329)-JVS(3713)*XX(333)-JVS(3803)& + &*XX(334)-JVS(4100)*XX(338)-JVS(4411)*XX(341)-JVS(4732)*XX(343)-JVS(4970)*XX(345)-JVS(5154)*XX(348) + XX(275) = XX(275)-JVS(2193)*XX(277)-JVS(2289)*XX(285)-JVS(2516)*XX(295)-JVS(2563)*XX(297)-JVS(2722)*XX(302)-JVS(2963)& + &*XX(311)-JVS(3233)*XX(323)-JVS(3518)*XX(329)-JVS(3712)*XX(333)-JVS(3802)*XX(334)-JVS(4099)*XX(338)-JVS(4410)& + &*XX(341)-JVS(4731)*XX(343)-JVS(4969)*XX(345)-JVS(5153)*XX(348) + XX(274) = XX(274)-JVS(3517)*XX(329)-JVS(3711)*XX(333)-JVS(3922)*XX(335)-JVS(4409)*XX(341)-JVS(4730)*XX(343)-JVS(5152)& + &*XX(348) + XX(273) = XX(273)-JVS(2138)*XX(274)-JVS(2427)*XX(290)-JVS(2460)*XX(291)-JVS(2615)*XX(298)-JVS(2758)*XX(303)-JVS(2808)& + &*XX(306)-JVS(2841)*XX(307)-JVS(2898)*XX(309)-JVS(2962)*XX(311)-JVS(3074)*XX(316)-JVS(3381)*XX(328)-JVS(3516)& + &*XX(329)-JVS(3710)*XX(333)-JVS(3921)*XX(335)-JVS(4098)*XX(338)-JVS(4408)*XX(341)-JVS(4729)*XX(343)-JVS(4968)& + &*XX(345)-JVS(5151)*XX(348)-JVS(5464)*XX(353) + XX(272) = XX(272)-JVS(2137)*XX(274)-JVS(2669)*XX(300)-JVS(2721)*XX(302)-JVS(2897)*XX(309)-JVS(3213)*XX(322)-JVS(3276)& + &*XX(325)-JVS(3709)*XX(333)-JVS(3920)*XX(335)-JVS(4097)*XX(338)-JVS(4214)*XX(340)-JVS(4407)*XX(341)-JVS(4728)& + &*XX(343)-JVS(4967)*XX(345)-JVS(5150)*XX(348)-JVS(5366)*XX(352)-JVS(5463)*XX(353)-JVS(5642)*XX(356) + XX(271) = XX(271)-JVS(2136)*XX(274)-JVS(2382)*XX(288)-JVS(2402)*XX(289)-JVS(2426)*XX(290)-JVS(2459)*XX(291)-JVS(2614)& + &*XX(298)-JVS(2757)*XX(303)-JVS(2787)*XX(305)-JVS(2840)*XX(307)-JVS(2896)*XX(309)-JVS(2961)*XX(311)-JVS(3380)& + &*XX(328)-JVS(3515)*XX(329)-JVS(3708)*XX(333)-JVS(3919)*XX(335)-JVS(4096)*XX(338)-JVS(4406)*XX(341)-JVS(4727)& + &*XX(343)-JVS(4966)*XX(345) + XX(270) = XX(270)-JVS(2135)*XX(274)-JVS(2381)*XX(288)-JVS(2401)*XX(289)-JVS(2425)*XX(290)-JVS(2458)*XX(291)-JVS(2613)& + &*XX(298)-JVS(2756)*XX(303)-JVS(2786)*XX(305)-JVS(2807)*XX(306)-JVS(2839)*XX(307)-JVS(2895)*XX(309)-JVS(2960)& + &*XX(311)-JVS(3379)*XX(328)-JVS(3514)*XX(329)-JVS(3707)*XX(333)-JVS(3918)*XX(335)-JVS(4095)*XX(338)-JVS(4405)& + &*XX(341)-JVS(4726)*XX(343)-JVS(4965)*XX(345)-JVS(5149)*XX(348) + XX(269) = XX(269)-JVS(2424)*XX(290)-JVS(2457)*XX(291)-JVS(2612)*XX(298)-JVS(2894)*XX(309)-JVS(3706)*XX(333)-JVS(3917)& + &*XX(335)-JVS(4404)*XX(341)-JVS(4725)*XX(343)-JVS(4964)*XX(345) + XX(268) = XX(268)-JVS(4213)*XX(340)-JVS(4403)*XX(341)-JVS(4724)*XX(343)-JVS(5365)*XX(352)-JVS(5462)*XX(353) + XX(267) = XX(267)-JVS(4212)*XX(340)-JVS(4402)*XX(341)-JVS(4723)*XX(343)-JVS(5300)*XX(351)-JVS(5364)*XX(352)-JVS(5461)& + &*XX(353)-JVS(5579)*XX(355) + XX(266) = XX(266)-JVS(3378)*XX(328)-JVS(3513)*XX(329)-JVS(3801)*XX(334)-JVS(4094)*XX(338)-JVS(4401)*XX(341)-JVS(4722)& + &*XX(343)-JVS(4963)*XX(345)-JVS(5148)*XX(348) + XX(265) = XX(265)-JVS(3377)*XX(328)-JVS(3512)*XX(329)-JVS(3705)*XX(333)-JVS(3916)*XX(335)-JVS(4400)*XX(341)-JVS(4721)& + &*XX(343)-JVS(4962)*XX(345)-JVS(5147)*XX(348) + XX(264) = XX(264)-JVS(2288)*XX(285)-JVS(2326)*XX(286)-JVS(2720)*XX(302)-JVS(2959)*XX(311)-JVS(3376)*XX(328)-JVS(3511)& + &*XX(329)-JVS(3594)*XX(330)-JVS(3800)*XX(334)-JVS(4093)*XX(338)-JVS(4399)*XX(341)-JVS(4720)*XX(343)-JVS(4961)& &*XX(345) - XX(244) = XX(244)-JVS(2554)*XX(294)-JVS(3064)*XX(313)-JVS(3333)*XX(324)-JVS(3464)*XX(325)-JVS(4235)*XX(336)-JVS(5135)& + XX(263) = XX(263)-JVS(1996)*XX(266)-JVS(2227)*XX(280)-JVS(2515)*XX(295)-JVS(2562)*XX(297)-JVS(2893)*XX(309)-JVS(3138)& + &*XX(318)-JVS(3510)*XX(329)-JVS(4398)*XX(341)-JVS(4719)*XX(343)-JVS(4960)*XX(345)-JVS(5146)*XX(348)-JVS(5641)& + &*XX(356) + XX(262) = XX(262)-JVS(2036)*XX(268)-JVS(2611)*XX(298)-JVS(2958)*XX(311)-JVS(3375)*XX(328)-JVS(3509)*XX(329)-JVS(3799)& + &*XX(334)-JVS(3915)*XX(335)-JVS(4092)*XX(338)-JVS(4397)*XX(341)-JVS(4718)*XX(343)-JVS(4959)*XX(345)-JVS(5145)& + &*XX(348)-JVS(5640)*XX(356) + XX(261) = XX(261)-JVS(2253)*XX(282)-JVS(3374)*XX(328)-JVS(3508)*XX(329)-JVS(3798)*XX(334)-JVS(4091)*XX(338)-JVS(4396)& + &*XX(341)-JVS(4717)*XX(343)-JVS(4958)*XX(345)-JVS(5144)*XX(348)-JVS(5639)*XX(356) + XX(260) = XX(260)-JVS(2514)*XX(295)-JVS(2957)*XX(311)-JVS(3704)*XX(333)-JVS(4716)*XX(343)-JVS(4957)*XX(345)-JVS(5143)& + &*XX(348) + XX(259) = XX(259)-JVS(2134)*XX(274)-JVS(2423)*XX(290)-JVS(2610)*XX(298)-JVS(2892)*XX(309)-JVS(2956)*XX(311)-JVS(3373)& + &*XX(328)-JVS(3507)*XX(329)-JVS(3914)*XX(335)-JVS(4395)*XX(341)-JVS(4715)*XX(343) + XX(258) = XX(258)-JVS(2456)*XX(291)-JVS(2609)*XX(298)-JVS(2806)*XX(306)-JVS(2891)*XX(309)-JVS(3372)*XX(328)-JVS(3506)& + &*XX(329)-JVS(3913)*XX(335)-JVS(4090)*XX(338)-JVS(4394)*XX(341)-JVS(4714)*XX(343)-JVS(4956)*XX(345) + XX(257) = XX(257)-JVS(2422)*XX(290)-JVS(2608)*XX(298)-JVS(2955)*XX(311)-JVS(3001)*XX(312)-JVS(3505)*XX(329)-JVS(3703)& + &*XX(333)-JVS(3912)*XX(335)-JVS(4089)*XX(338)-JVS(4393)*XX(341)-JVS(4713)*XX(343)-JVS(4955)*XX(345) + XX(256) = XX(256)-JVS(1896)*XX(260)-JVS(1995)*XX(266)-JVS(2192)*XX(277)-JVS(3105)*XX(317)-JVS(3504)*XX(329)-JVS(3911)& + &*XX(335)-JVS(4392)*XX(341)-JVS(4712)*XX(343)-JVS(4954)*XX(345)-JVS(5142)*XX(348)-JVS(5638)*XX(356) + XX(255) = XX(255)-JVS(2513)*XX(295)-JVS(2561)*XX(297)-JVS(2719)*XX(302)-JVS(3157)*XX(319)-JVS(3212)*XX(322)-JVS(3301)& + &*XX(326)-JVS(3325)*XX(327)-JVS(3593)*XX(330)-JVS(3702)*XX(333)-JVS(3797)*XX(334)-JVS(4391)*XX(341)-JVS(4711)& + &*XX(343)-JVS(4953)*XX(345)-JVS(5460)*XX(353) + XX(254) = XX(254)-JVS(2358)*XX(287)-JVS(2540)*XX(296)-JVS(3632)*XX(331)-JVS(4088)*XX(338)-JVS(4167)*XX(339)-JVS(4496)& + &*XX(342)-JVS(4710)*XX(343)-JVS(4952)*XX(345)-JVS(5040)*XX(346)-JVS(5141)*XX(348)-JVS(5224)*XX(349)-JVS(5251)& + &*XX(350)-JVS(5363)*XX(352)-JVS(5459)*XX(353) + XX(253) = XX(253)-JVS(2287)*XX(285)-JVS(2325)*XX(286)-JVS(2607)*XX(298)-JVS(2718)*XX(302)-JVS(3371)*XX(328)-JVS(3503)& + &*XX(329)-JVS(3592)*XX(330)-JVS(3796)*XX(334)-JVS(4087)*XX(338)-JVS(4390)*XX(341)-JVS(4709)*XX(343)-JVS(4951)& &*XX(345) - XX(243) = XX(243)-JVS(1899)*XX(258)-JVS(2046)*XX(266)-JVS(2924)*XX(307)-JVS(3332)*XX(324)-JVS(3463)*XX(325)-JVS(3818)& - &*XX(329)-JVS(4115)*XX(335)-JVS(4419)*XX(337)-JVS(5134)*XX(345)-JVS(5283)*XX(346) - XX(242) = XX(242)-JVS(2683)*XX(298)-JVS(2923)*XX(307)-JVS(3611)*XX(327)-JVS(4114)*XX(335)-JVS(4767)*XX(341)-JVS(5133)& - &*XX(345)-JVS(5528)*XX(351) - XX(241) = XX(241)-JVS(1993)*XX(264)-JVS(2306)*XX(283)-JVS(3554)*XX(326)-JVS(3817)*XX(329)-JVS(4113)*XX(335)-JVS(4234)& - &*XX(336)-JVS(5132)*XX(345)-JVS(5282)*XX(346)-JVS(5404)*XX(348)-JVS(5527)*XX(351) - XX(240) = XX(240)-JVS(2634)*XX(296)-JVS(3263)*XX(322)-JVS(3331)*XX(324)-JVS(3462)*XX(325)-JVS(3553)*XX(326)-JVS(3703)& - &*XX(328)-JVS(3816)*XX(329)-JVS(4112)*XX(335)-JVS(4233)*XX(336)-JVS(4418)*XX(337)-JVS(4766)*XX(341)-JVS(5131)& - &*XX(345)-JVS(5281)*XX(346) - XX(239) = XX(239)-JVS(4111)*XX(335)-JVS(4232)*XX(336)-JVS(5130)*XX(345)-JVS(5280)*XX(346) - XX(238) = XX(238)-JVS(2361)*XX(285)-JVS(2381)*XX(286)-JVS(2402)*XX(287)-JVS(2436)*XX(288)-JVS(2553)*XX(294)-JVS(3815)& - &*XX(329)-JVS(4417)*XX(337)-JVS(5129)*XX(345) - XX(237) = XX(237)-JVS(1863)*XX(256)-JVS(1977)*XX(263)-JVS(2143)*XX(272)-JVS(2174)*XX(274)-JVS(4110)*XX(335)-JVS(4765)& - &*XX(341)-JVS(5128)*XX(345)-JVS(5526)*XX(351) - XX(236) = XX(236)-JVS(2080)*XX(269)-JVS(3461)*XX(325)-JVS(3702)*XX(328)-JVS(4109)*XX(335)-JVS(4416)*XX(337)-JVS(4764)& - &*XX(341)-JVS(5127)*XX(345)-JVS(5279)*XX(346)-JVS(5525)*XX(351) - XX(235) = XX(235)-JVS(1632)*XX(236)-JVS(2079)*XX(269)-JVS(3460)*XX(325)-JVS(3701)*XX(328)-JVS(4108)*XX(335)-JVS(4415)& - &*XX(337)-JVS(4763)*XX(341)-JVS(5126)*XX(345)-JVS(5278)*XX(346) - XX(234) = XX(234)-JVS(2267)*XX(282)-JVS(2872)*XX(306)-JVS(3459)*XX(325)-JVS(3700)*XX(328)-JVS(4107)*XX(335)-JVS(4414)& - &*XX(337)-JVS(5125)*XX(345)-JVS(5277)*XX(346)-JVS(5524)*XX(351) - XX(233) = XX(233)-JVS(1606)*XX(234)-JVS(2108)*XX(270)-JVS(2871)*XX(306)-JVS(3041)*XX(312)-JVS(3458)*XX(325)-JVS(3814)& - &*XX(329)-JVS(4106)*XX(335)-JVS(4413)*XX(337)-JVS(4762)*XX(341)-JVS(5124)*XX(345)-JVS(5276)*XX(346)-JVS(5523)& - &*XX(351) - XX(232) = XX(232)-JVS(1898)*XX(258)-JVS(2107)*XX(270)-JVS(2401)*XX(287)-JVS(2435)*XX(288)-JVS(2552)*XX(294)-JVS(2805)& - &*XX(303)-JVS(2870)*XX(306)-JVS(2922)*XX(307)-JVS(4105)*XX(335)-JVS(4412)*XX(337)-JVS(5123)*XX(345)-JVS(5275)& - &*XX(346) - XX(231) = XX(231)-JVS(1784)*XX(248)-JVS(1828)*XX(253)-JVS(2018)*XX(265)-JVS(2106)*XX(270)-JVS(2400)*XX(287)-JVS(2551)& - &*XX(294)-JVS(2921)*XX(307)-JVS(2997)*XX(309)-JVS(3330)*XX(324)-JVS(3457)*XX(325)-JVS(3813)*XX(329)-JVS(4104)& - &*XX(335)-JVS(4411)*XX(337)-JVS(5122)*XX(345)-JVS(5274)*XX(346) - XX(230) = XX(230)-JVS(1839)*XX(254)-JVS(2017)*XX(265)-JVS(2105)*XX(270)-JVS(2434)*XX(288)-JVS(2550)*XX(294)-JVS(2772)& - &*XX(302)-JVS(2920)*XX(307)-JVS(3102)*XX(314)-JVS(3329)*XX(324)-JVS(3456)*XX(325)-JVS(3812)*XX(329)-JVS(4103)& - &*XX(335)-JVS(4410)*XX(337)-JVS(5121)*XX(345)-JVS(5273)*XX(346) - XX(229) = XX(229)-JVS(1949)*XX(262)-JVS(1976)*XX(263)-JVS(2244)*XX(280)-JVS(2604)*XX(295)-JVS(2682)*XX(298)-JVS(3101)& - &*XX(314)-JVS(3455)*XX(325)-JVS(4102)*XX(335)-JVS(4409)*XX(337)-JVS(4761)*XX(341)-JVS(5120)*XX(345)-JVS(5522)& - &*XX(351) - XX(228) = XX(228)-JVS(3454)*XX(325)-JVS(3699)*XX(328)-JVS(4003)*XX(334)-JVS(4231)*XX(336)-JVS(4408)*XX(337)-JVS(4584)& - &*XX(339)-JVS(4675)*XX(340)-JVS(4760)*XX(341)-JVS(4897)*XX(343)-JVS(5119)*XX(345) - XX(227) = XX(227)-JVS(2104)*XX(270)-JVS(2549)*XX(294)-JVS(3328)*XX(324)-JVS(3811)*XX(329)-JVS(4407)*XX(337) - XX(226) = XX(226)-JVS(1725)*XX(244)-JVS(1765)*XX(247)-JVS(1933)*XX(261)-JVS(2045)*XX(266)-JVS(2103)*XX(270)-JVS(2722)& - &*XX(299)-JVS(2771)*XX(302)-JVS(2804)*XX(303)-JVS(3453)*XX(325)-JVS(3610)*XX(327)-JVS(3810)*XX(329)-JVS(4101)& - &*XX(335)-JVS(4406)*XX(337)-JVS(5118)*XX(345)-JVS(5272)*XX(346) - XX(225) = XX(225)-JVS(1884)*XX(257)-JVS(2219)*XX(278)-JVS(3609)*XX(327)-JVS(3809)*XX(329)-JVS(4405)*XX(337)-JVS(5117)& - &*XX(345)-JVS(5521)*XX(351) - XX(224) = XX(224)-JVS(1724)*XX(244)-JVS(1897)*XX(258)-JVS(2102)*XX(270)-JVS(2399)*XX(287)-JVS(2433)*XX(288)-JVS(2548)& - &*XX(294)-JVS(2803)*XX(303)-JVS(2869)*XX(306)-JVS(2919)*XX(307)-JVS(3452)*XX(325)-JVS(4100)*XX(335)-JVS(4404)& - &*XX(337)-JVS(5116)*XX(345)-JVS(5271)*XX(346) - XX(223) = XX(223)-JVS(1896)*XX(258)-JVS(2101)*XX(270)-JVS(2398)*XX(287)-JVS(2432)*XX(288)-JVS(2547)*XX(294)-JVS(2802)& - &*XX(303)-JVS(2868)*XX(306)-JVS(2918)*XX(307)-JVS(3451)*XX(325)-JVS(3808)*XX(329)-JVS(4099)*XX(335)-JVS(4403)& - &*XX(337)-JVS(5115)*XX(345)-JVS(5270)*XX(346) - XX(222) = XX(222)-JVS(2134)*XX(271)-JVS(2522)*XX(293)-JVS(2801)*XX(303)-JVS(2996)*XX(309)-JVS(3014)*XX(310)-JVS(3100)& - &*XX(314)-JVS(3450)*XX(325)-JVS(3608)*XX(327)-JVS(4098)*XX(335)-JVS(4402)*XX(337)-JVS(5114)*XX(345) - XX(221) = XX(221)-JVS(2016)*XX(265)-JVS(2100)*XX(270)-JVS(2633)*XX(296)-JVS(2681)*XX(298)-JVS(2867)*XX(306)-JVS(3262)& - &*XX(322)-JVS(3807)*XX(329)-JVS(4230)*XX(336)-JVS(4401)*XX(337)-JVS(4759)*XX(341)-JVS(5113)*XX(345) - XX(220) = XX(220)-JVS(1502)*XX(221)-JVS(1618)*XX(235)-JVS(1631)*XX(236)-JVS(1975)*XX(263)-JVS(2078)*XX(269)-JVS(2099)& - &*XX(270)-JVS(2866)*XX(306)-JVS(3040)*XX(312)-JVS(3449)*XX(325)-JVS(3607)*XX(327)-JVS(3806)*XX(329)-JVS(4097)& - &*XX(335)-JVS(4229)*XX(336)-JVS(4400)*XX(337)-JVS(4758)*XX(341)-JVS(5112)*XX(345)-JVS(5269)*XX(346)-JVS(5520)& - &*XX(351) - XX(219) = XX(219)-JVS(1948)*XX(262)-JVS(1974)*XX(263)-JVS(2191)*XX(275)-JVS(2207)*XX(277)-JVS(2243)*XX(280)-JVS(2258)& - &*XX(281)-JVS(2463)*XX(289)-JVS(2481)*XX(291)-JVS(2493)*XX(292)-JVS(2603)*XX(295)-JVS(2680)*XX(298)-JVS(3099)& - &*XX(314)-JVS(3217)*XX(320)-JVS(3448)*XX(325)-JVS(4399)*XX(337)-JVS(4757)*XX(341)-JVS(5111)*XX(345)-JVS(5519)& - &*XX(351) - XX(218) = XX(218)-JVS(3147)*XX(316)-JVS(3606)*XX(327)-JVS(4096)*XX(335)-JVS(4228)*XX(336)-JVS(4583)*XX(339)-JVS(4674)& - &*XX(340)-JVS(4834)*XX(342)-JVS(5110)*XX(345)-JVS(5372)*XX(347)-JVS(5518)*XX(351) - XX(217) = XX(217)-JVS(4227)*XX(336)-JVS(4398)*XX(337)-JVS(4756)*XX(341)-JVS(4896)*XX(343)-JVS(5109)*XX(345) - XX(216) = XX(216)-JVS(1764)*XX(247)-JVS(3605)*XX(327)-JVS(3805)*XX(329)-JVS(4397)*XX(337)-JVS(5108)*XX(345) - XX(215) = XX(215)-JVS(2546)*XX(294)-JVS(2917)*XX(307)-JVS(3447)*XX(325)-JVS(3804)*XX(329) - XX(214) = XX(214)-JVS(2652)*XX(297)-JVS(3604)*XX(327)-JVS(4095)*XX(335)-JVS(4226)*XX(336)-JVS(4582)*XX(339)-JVS(4938)& - &*XX(344)-JVS(5517)*XX(351)-JVS(5652)*XX(353) - XX(213) = XX(213)-JVS(3446)*XX(325)-JVS(3803)*XX(329)-JVS(4094)*XX(335)-JVS(4396)*XX(337)-JVS(4755)*XX(341)-JVS(5107)& - &*XX(345)-JVS(5268)*XX(346)-JVS(5516)*XX(351) - XX(212) = XX(212)-JVS(1597)*XX(233)-JVS(2679)*XX(298)-JVS(2865)*XX(306)-JVS(3445)*XX(325)-JVS(3802)*XX(329)-JVS(4093)& - &*XX(335)-JVS(4395)*XX(337)-JVS(5106)*XX(345)-JVS(5267)*XX(346) - XX(211) = XX(211)-JVS(1862)*XX(256)-JVS(1973)*XX(263)-JVS(2142)*XX(272)-JVS(2173)*XX(274)-JVS(3444)*XX(325)-JVS(4092)& - &*XX(335)-JVS(4754)*XX(341)-JVS(5105)*XX(345)-JVS(5515)*XX(351) - XX(210) = XX(210)-JVS(2098)*XX(270)-JVS(3443)*XX(325)-JVS(3801)*XX(329)-JVS(4394)*XX(337)-JVS(5104)*XX(345) - XX(209) = XX(209)-JVS(1393)*XX(210)-JVS(1443)*XX(215)-JVS(1515)*XX(223)-JVS(1576)*XX(230)-JVS(1651)*XX(238)-JVS(1714)& - &*XX(243)-JVS(2431)*XX(288)-JVS(2545)*XX(294)-JVS(2838)*XX(305)-JVS(3098)*XX(314)-JVS(3327)*XX(324)-JVS(3442)& - &*XX(325)-JVS(3800)*XX(329)-JVS(4393)*XX(337)-JVS(5103)*XX(345) - XX(208) = XX(208)-JVS(3326)*XX(324)-JVS(3441)*XX(325)-JVS(3799)*XX(329)-JVS(4392)*XX(337)-JVS(5102)*XX(345) - XX(207) = XX(207)-JVS(1932)*XX(261)-JVS(2044)*XX(266)-JVS(2721)*XX(299)-JVS(2770)*XX(302)-JVS(2800)*XX(303)-JVS(2916)& - &*XX(307)-JVS(3440)*XX(325)-JVS(4091)*XX(335)-JVS(4391)*XX(337)-JVS(5101)*XX(345)-JVS(5266)*XX(346) - XX(206) = XX(206)-JVS(1457)*XX(216)-JVS(1763)*XX(247)-JVS(2043)*XX(266)-JVS(2720)*XX(299)-JVS(2799)*XX(303)-JVS(2864)& - &*XX(306)-JVS(3439)*XX(325)-JVS(4090)*XX(335)-JVS(4390)*XX(337)-JVS(5100)*XX(345)-JVS(5265)*XX(346) - XX(205) = XX(205)-JVS(1783)*XX(248)-JVS(2042)*XX(266)-JVS(2719)*XX(299)-JVS(2798)*XX(303)-JVS(2863)*XX(306)-JVS(2915)& - &*XX(307)-JVS(3438)*XX(325)-JVS(4089)*XX(335)-JVS(4389)*XX(337)-JVS(5099)*XX(345)-JVS(5264)*XX(346) - XX(204) = XX(204)-JVS(1617)*XX(235)-JVS(1630)*XX(236)-JVS(3603)*XX(327)-JVS(3798)*XX(329)-JVS(4388)*XX(337)-JVS(5098)& - &*XX(345)-JVS(5514)*XX(351) - XX(203) = XX(203)-JVS(1629)*XX(236)-JVS(2077)*XX(269)-JVS(4088)*XX(335)-JVS(4753)*XX(341) - XX(202) = XX(202)-JVS(1336)*XX(203)-JVS(1501)*XX(221)-JVS(1972)*XX(263)-JVS(2076)*XX(269)-JVS(2862)*XX(306)-JVS(3602)& - &*XX(327)-JVS(4387)*XX(337)-JVS(4752)*XX(341)-JVS(5097)*XX(345)-JVS(5513)*XX(351) - XX(201) = XX(201)-JVS(2015)*XX(265)-JVS(2305)*XX(283)-JVS(2544)*XX(294)-JVS(2632)*XX(296)-JVS(2678)*XX(298)-JVS(2741)& - &*XX(300)-JVS(2861)*XX(306)-JVS(3261)*XX(322)-JVS(3797)*XX(329)-JVS(4225)*XX(336)-JVS(4386)*XX(337)-JVS(4751)& - &*XX(341)-JVS(5096)*XX(345) - XX(200) = XX(200)-JVS(1319)*XX(201)-JVS(1326)*XX(202)-JVS(1335)*XX(203)-JVS(1353)*XX(204)-JVS(1500)*XX(221)-JVS(1684)& - &*XX(240)-JVS(1971)*XX(263)-JVS(2075)*XX(269)-JVS(2097)*XX(270)-JVS(2543)*XX(294)-JVS(2631)*XX(296)-JVS(3325)& - &*XX(324)-JVS(3437)*XX(325)-JVS(3601)*XX(327)-JVS(3796)*XX(329)-JVS(4087)*XX(335)-JVS(4224)*XX(336)-JVS(4385)& - &*XX(337)-JVS(5095)*XX(345)-JVS(5263)*XX(346)-JVS(5512)*XX(351) - XX(199) = XX(199)-JVS(1442)*XX(215)-JVS(1522)*XX(224)-JVS(1582)*XX(231)-JVS(1650)*XX(238)-JVS(1713)*XX(243)-JVS(1723)& - &*XX(244)-JVS(2397)*XX(287)-JVS(2542)*XX(294)-JVS(2824)*XX(304)-JVS(2995)*XX(309)-JVS(3436)*XX(325)-JVS(3795)& - &*XX(329)-JVS(4384)*XX(337)-JVS(5094)*XX(345) - XX(198) = XX(198)-JVS(2096)*XX(270)-JVS(2396)*XX(287)-JVS(2430)*XX(288)-JVS(2541)*XX(294)-JVS(2860)*XX(306)-JVS(2914)& - &*XX(307)-JVS(4383)*XX(337)-JVS(5093)*XX(345) - XX(197) = XX(197)-JVS(2859)*XX(306)-JVS(3435)*XX(325)-JVS(3794)*XX(329)-JVS(4086)*XX(335)-JVS(4382)*XX(337)-JVS(5092)& - &*XX(345)-JVS(5262)*XX(346)-JVS(5511)*XX(351) - XX(196) = XX(196)-JVS(2677)*XX(298)-JVS(3260)*XX(322)-JVS(3324)*XX(324)-JVS(3434)*XX(325)-JVS(3552)*XX(326)-JVS(4085)& - &*XX(335)-JVS(4223)*XX(336)-JVS(4381)*XX(337)-JVS(5091)*XX(345)-JVS(5261)*XX(346) - XX(195) = XX(195)-JVS(1325)*XX(202)-JVS(1334)*XX(203)-JVS(1499)*XX(221)-JVS(1970)*XX(263)-JVS(2074)*XX(269)-JVS(2095)& - &*XX(270)-JVS(3600)*XX(327)-JVS(4380)*XX(337)-JVS(5090)*XX(345)-JVS(5510)*XX(351) - XX(194) = XX(194)-JVS(1549)*XX(227)-JVS(2014)*XX(265)-JVS(2094)*XX(270)-JVS(2540)*XX(294)-JVS(3323)*XX(324)-JVS(3793)& - &*XX(329)-JVS(4379)*XX(337)-JVS(5089)*XX(345) - XX(193) = XX(193)-JVS(1699)*XX(242)-JVS(1947)*XX(262)-JVS(1969)*XX(263)-JVS(2242)*XX(280)-JVS(4084)*XX(335)-JVS(4750)& - &*XX(341)-JVS(5088)*XX(345)-JVS(5509)*XX(351) - XX(192) = XX(192)-JVS(1441)*XX(215)-JVS(1521)*XX(224)-JVS(1589)*XX(232)-JVS(1712)*XX(243)-JVS(2360)*XX(285)-JVS(2380)& - &*XX(286)-JVS(2395)*XX(287)-JVS(2823)*XX(304)-JVS(2994)*XX(309)-JVS(3433)*XX(325)-JVS(3792)*XX(329)-JVS(4378)& - &*XX(337)-JVS(5087)*XX(345) - XX(191) = XX(191)-JVS(1530)*XX(225)-JVS(2156)*XX(273)-JVS(2190)*XX(275)-JVS(2206)*XX(277)-JVS(2241)*XX(280)-JVS(2257)& - &*XX(281)-JVS(2462)*XX(289)-JVS(3039)*XX(312)-JVS(3432)*XX(325)-JVS(3791)*XX(329)-JVS(4749)*XX(341)-JVS(5086)& - &*XX(345)-JVS(5508)*XX(351) - XX(190) = XX(190)-JVS(2041)*XX(266)-JVS(2718)*XX(299)-JVS(2769)*XX(302)-JVS(2797)*XX(303)-JVS(3431)*XX(325)-JVS(4083)& - &*XX(335)-JVS(4377)*XX(337)-JVS(5085)*XX(345)-JVS(5260)*XX(346) - XX(189) = XX(189)-JVS(1352)*XX(204)-JVS(4082)*XX(335)-JVS(4222)*XX(336)-JVS(4376)*XX(337)-JVS(5084)*XX(345)-JVS(5259)& - &*XX(346) - XX(188) = XX(188)-JVS(2676)*XX(298)-JVS(4375)*XX(337)-JVS(5083)*XX(345) - XX(187) = XX(187)-JVS(1440)*XX(215)-JVS(1514)*XX(223)-JVS(1588)*XX(232)-JVS(2359)*XX(285)-JVS(2379)*XX(286)-JVS(2429)& - &*XX(288)-JVS(2837)*XX(305)-JVS(3097)*XX(314)-JVS(3430)*XX(325)-JVS(3790)*XX(329)-JVS(4374)*XX(337)-JVS(5082)& - &*XX(345) - XX(186) = XX(186)-JVS(1439)*XX(215)-JVS(1540)*XX(226)-JVS(2521)*XX(293)-JVS(2752)*XX(301)-JVS(2796)*XX(303)-JVS(2822)& - &*XX(304)-JVS(2836)*XX(305)-JVS(3026)*XX(311)-JVS(3599)*XX(327)-JVS(4081)*XX(335)-JVS(4373)*XX(337)-JVS(5081)& - &*XX(345) - XX(185) = XX(185)-JVS(2093)*XX(270)-JVS(2539)*XX(294)-JVS(3322)*XX(324)-JVS(3789)*XX(329)-JVS(4372)*XX(337)-JVS(5080)& - &*XX(345) - XX(184) = XX(184)-JVS(1911)*XX(259)-JVS(2013)*XX(265)-JVS(2538)*XX(294)-JVS(2913)*XX(307)-JVS(3321)*XX(324)-JVS(3788)& - &*XX(329)-JVS(4080)*XX(335)-JVS(5079)*XX(345)-JVS(5507)*XX(351) - XX(183) = XX(183)-JVS(2630)*XX(296)-JVS(3598)*XX(327)-JVS(4221)*XX(336)-JVS(4581)*XX(339)-JVS(4673)*XX(340)-JVS(4833)& - &*XX(342)-JVS(5078)*XX(345)-JVS(5506)*XX(351)-JVS(5613)*XX(352) - XX(182) = XX(182)-JVS(1762)*XX(247)-JVS(1931)*XX(261)-JVS(3787)*XX(329)-JVS(4079)*XX(335)-JVS(4371)*XX(337)-JVS(5077)& - &*XX(345)-JVS(5258)*XX(346) - XX(181) = XX(181)-JVS(1469)*XX(217)-JVS(3698)*XX(328)-JVS(3786)*XX(329)-JVS(4002)*XX(334)-JVS(4220)*XX(336)-JVS(4370)& - &*XX(337)-JVS(4531)*XX(338)-JVS(4580)*XX(339)-JVS(4672)*XX(340)-JVS(4895)*XX(343)-JVS(5076)*XX(345) - XX(180) = XX(180)-JVS(1761)*XX(247)-JVS(1930)*XX(261)-JVS(2717)*XX(299)-JVS(2858)*XX(306)-JVS(4078)*XX(335)-JVS(4369)& - &*XX(337)-JVS(5075)*XX(345)-JVS(5257)*XX(346) - XX(179) = XX(179)-JVS(1664)*XX(239)-JVS(3597)*XX(327)-JVS(4077)*XX(335)-JVS(4579)*XX(339)-JVS(4748)*XX(341)-JVS(5074)& - &*XX(345)-JVS(5403)*XX(348)-JVS(5651)*XX(353) - XX(178) = XX(178)-JVS(1288)*XX(196)-JVS(2492)*XX(292)-JVS(2675)*XX(298)-JVS(3196)*XX(319)-JVS(4076)*XX(335)-JVS(4368)& - &*XX(337)-JVS(5073)*XX(345)-JVS(5256)*XX(346) - XX(177) = XX(177)-JVS(1861)*XX(256)-JVS(2172)*XX(274)-JVS(4075)*XX(335)-JVS(5072)*XX(345) - XX(176) = XX(176)-JVS(1860)*XX(256)-JVS(1968)*XX(263)-JVS(2491)*XX(292)-JVS(2602)*XX(295)-JVS(3259)*XX(322)-JVS(3429)& - &*XX(325)-JVS(4074)*XX(335)-JVS(5071)*XX(345) - XX(175) = XX(175)-JVS(1361)*XX(205)-JVS(1438)*XX(215)-JVS(2358)*XX(285)-JVS(2378)*XX(286)-JVS(3096)*XX(314)-JVS(3428)& - &*XX(325)-JVS(3596)*XX(327)-JVS(4073)*XX(335)-JVS(4367)*XX(337)-JVS(5070)*XX(345) - XX(174) = XX(174)-JVS(1301)*XX(198)-JVS(1895)*XX(258)-JVS(2857)*XX(306)-JVS(2912)*XX(307)-JVS(4366)*XX(337)-JVS(5069)& - &*XX(345) - XX(173) = XX(173)-JVS(2629)*XX(296)-JVS(4219)*XX(336)-JVS(5068)*XX(345) - XX(172) = XX(172)-JVS(1782)*XX(248)-JVS(1827)*XX(253)-JVS(4072)*XX(335)-JVS(4365)*XX(337)-JVS(5067)*XX(345)-JVS(5255)& - &*XX(346) - XX(171) = XX(171)-JVS(1838)*XX(254)-JVS(2768)*XX(302)-JVS(4071)*XX(335)-JVS(4364)*XX(337)-JVS(5066)*XX(345)-JVS(5254)& - &*XX(346) - XX(170) = XX(170)-JVS(3885)*XX(330)-JVS(3914)*XX(331)-JVS(3933)*XX(332)-JVS(5065)*XX(345)-JVS(5505)*XX(351) - XX(169) = XX(169)-JVS(2171)*XX(274)-JVS(2674)*XX(298)-JVS(3195)*XX(319)-JVS(3320)*XX(324)-JVS(3427)*XX(325)-JVS(5064)& - &*XX(345) - XX(168) = XX(168)-JVS(1255)*XX(190)-JVS(1437)*XX(215)-JVS(2357)*XX(285)-JVS(2377)*XX(286)-JVS(2993)*XX(309)-JVS(3426)& - &*XX(325)-JVS(3595)*XX(327)-JVS(4070)*XX(335)-JVS(4363)*XX(337)-JVS(5063)*XX(345) - XX(167) = XX(167)-JVS(1849)*XX(255)-JVS(1967)*XX(263)-JVS(2170)*XX(274)-JVS(2240)*XX(280)-JVS(2256)*XX(281)-JVS(2461)& - &*XX(289)-JVS(3785)*XX(329)-JVS(4747)*XX(341)-JVS(5062)*XX(345)-JVS(5504)*XX(351) - XX(166) = XX(166)-JVS(1663)*XX(239)-JVS(3594)*XX(327)-JVS(4069)*XX(335)-JVS(4578)*XX(339)-JVS(4746)*XX(341)-JVS(4937)& - &*XX(344)-JVS(5402)*XX(348) - XX(165) = XX(165)-JVS(1287)*XX(196)-JVS(2673)*XX(298)-JVS(3425)*XX(325)-JVS(3551)*XX(326)-JVS(4068)*XX(335)-JVS(4362)& - &*XX(337)-JVS(5253)*XX(346) - XX(164) = XX(164)-JVS(3424)*XX(325)-JVS(3697)*XX(328)-JVS(4218)*XX(336)-JVS(4361)*XX(337)-JVS(4577)*XX(339)-JVS(4671)& - &*XX(340)-JVS(5061)*XX(345) - XX(163) = XX(163)-JVS(2169)*XX(274)-JVS(4067)*XX(335)-JVS(5060)*XX(345)-JVS(5503)*XX(351) - XX(162) = XX(162)-JVS(1859)*XX(256)-JVS(2168)*XX(274)-JVS(2601)*XX(295)-JVS(2672)*XX(298)-JVS(3194)*XX(319)-JVS(4066)& - &*XX(335)-JVS(5059)*XX(345) - XX(161) = XX(161)-JVS(2155)*XX(273)-JVS(2167)*XX(274)-JVS(2600)*XX(295)-JVS(2671)*XX(298)-JVS(3193)*XX(319)-JVS(4360)& - &*XX(337)-JVS(5058)*XX(345) - XX(160) = XX(160)-JVS(1966)*XX(263)-JVS(2218)*XX(278)-JVS(2490)*XX(292)-JVS(2599)*XX(295)-JVS(3258)*XX(322)-JVS(3423)& - &*XX(325)-JVS(5057)*XX(345) - XX(159) = XX(159)-JVS(1910)*XX(259)-JVS(2012)*XX(265)-JVS(2537)*XX(294)-JVS(2911)*XX(307)-JVS(3319)*XX(324)-JVS(3422)& - &*XX(325)-JVS(3696)*XX(328)-JVS(3784)*XX(329)-JVS(5056)*XX(345) - XX(158) = XX(158)-JVS(1318)*XX(201)-JVS(1324)*XX(202)-JVS(1333)*XX(203)-JVS(1965)*XX(263)-JVS(2073)*XX(269)-JVS(3593)& - &*XX(327)-JVS(4359)*XX(337)-JVS(5055)*XX(345)-JVS(5502)*XX(351) - XX(157) = XX(157)-JVS(4670)*XX(340)-JVS(4832)*XX(342) - XX(156) = XX(156)-JVS(3550)*XX(326)-JVS(4358)*XX(337)-JVS(4576)*XX(339)-JVS(4669)*XX(340)-JVS(5054)*XX(345) - XX(155) = XX(155)-JVS(3257)*XX(322)-JVS(3549)*XX(326)-JVS(3695)*XX(328)-JVS(4357)*XX(337)-JVS(5053)*XX(345) - XX(154) = XX(154)-JVS(2910)*XX(307)-JVS(3592)*XX(327)-JVS(4065)*XX(335)-JVS(5052)*XX(345)-JVS(5501)*XX(351) - XX(153) = XX(153)-JVS(1548)*XX(227)-JVS(2909)*XX(307)-JVS(3783)*XX(329)-JVS(4356)*XX(337)-JVS(5051)*XX(345) - XX(152) = XX(152)-JVS(1436)*XX(215)-JVS(2356)*XX(285)-JVS(2376)*XX(286)-JVS(4355)*XX(337)-JVS(5050)*XX(345) - XX(151) = XX(151)-JVS(1435)*XX(215)-JVS(2355)*XX(285)-JVS(2375)*XX(286)-JVS(4354)*XX(337)-JVS(5049)*XX(345) - XX(150) = XX(150)-JVS(1434)*XX(215)-JVS(2428)*XX(288)-JVS(3095)*XX(314)-JVS(3782)*XX(329)-JVS(4353)*XX(337)-JVS(5048)& - &*XX(345) - XX(149) = XX(149)-JVS(1061)*XX(158)-JVS(1247)*XX(189)-JVS(1317)*XX(201)-JVS(1351)*XX(204)-JVS(1498)*XX(221)-JVS(1964)& - &*XX(263)-JVS(3421)*XX(325)-JVS(3548)*XX(326)-JVS(3591)*XX(327)-JVS(4352)*XX(337)-JVS(5047)*XX(345)-JVS(5500)& - &*XX(351) - XX(148) = XX(148)-JVS(3146)*XX(316)-JVS(4831)*XX(342)-JVS(5046)*XX(345) - XX(147) = XX(147)-JVS(1218)*XX(185)-JVS(1378)*XX(208)-JVS(1547)*XX(227)-JVS(2354)*XX(285)-JVS(2374)*XX(286)-JVS(3781)& - &*XX(329)-JVS(4351)*XX(337)-JVS(5045)*XX(345) - XX(146) = XX(146)-JVS(1683)*XX(240)-JVS(3318)*XX(324)-JVS(3420)*XX(325)-JVS(3780)*XX(329)-JVS(4350)*XX(337)-JVS(5044)& + XX(252) = XX(252)-JVS(2264)*XX(283)-JVS(2286)*XX(285)-JVS(2324)*XX(286)-JVS(2717)*XX(302)-JVS(3232)*XX(323)-JVS(3370)& + &*XX(328)-JVS(3502)*XX(329)-JVS(3591)*XX(330)-JVS(3795)*XX(334)-JVS(4086)*XX(338)-JVS(4389)*XX(341)-JVS(4708)& + &*XX(343)-JVS(4950)*XX(345) + XX(251) = XX(251)-JVS(2954)*XX(311)-JVS(3000)*XX(312)-JVS(3701)*XX(333)-JVS(3910)*XX(335)-JVS(4388)*XX(341)-JVS(4707)& + &*XX(343)-JVS(4949)*XX(345) + XX(250) = XX(250)-JVS(2285)*XX(285)-JVS(2668)*XX(300)-JVS(2890)*XX(309)-JVS(3275)*XX(325)-JVS(3501)*XX(329)-JVS(3590)& + &*XX(330)-JVS(3794)*XX(334)-JVS(3909)*XX(335)-JVS(4085)*XX(338)-JVS(4387)*XX(341)-JVS(4706)*XX(343)-JVS(4948)& + &*XX(345)-JVS(5140)*XX(348)-JVS(5458)*XX(353)-JVS(5637)*XX(356) + XX(249) = XX(249)-JVS(2606)*XX(298)-JVS(3369)*XX(328)-JVS(3500)*XX(329)-JVS(4705)*XX(343)-JVS(4947)*XX(345) + XX(248) = XX(248)-JVS(3652)*XX(332)-JVS(4015)*XX(337)-JVS(4704)*XX(343)-JVS(4828)*XX(344)-JVS(5299)*XX(351)-JVS(5362)& + &*XX(352) + XX(247) = XX(247)-JVS(2605)*XX(298)-JVS(3073)*XX(316)-JVS(3368)*XX(328)-JVS(3499)*XX(329)-JVS(4703)*XX(343)-JVS(5457)& + &*XX(353) + XX(246) = XX(246)-JVS(2716)*XX(302)-JVS(2953)*XX(311)-JVS(3700)*XX(333)-JVS(4702)*XX(343)-JVS(4946)*XX(345)-JVS(5139)& + &*XX(348)-JVS(5636)*XX(356) + XX(245) = XX(245)-JVS(1880)*XX(259)-JVS(2063)*XX(269)-JVS(2952)*XX(311)-JVS(3367)*XX(328)-JVS(3498)*XX(329)-JVS(3908)& + &*XX(335)-JVS(4084)*XX(338)-JVS(4386)*XX(341)-JVS(4701)*XX(343)-JVS(4945)*XX(345) + XX(244) = XX(244)-JVS(2010)*XX(267)-JVS(2323)*XX(286)-JVS(3589)*XX(330)-JVS(3907)*XX(335)-JVS(4083)*XX(338)-JVS(4700)& + &*XX(343)-JVS(4944)*XX(345)-JVS(5138)*XX(348)-JVS(5456)*XX(353)-JVS(5578)*XX(355) + XX(243) = XX(243)-JVS(2667)*XX(300)-JVS(3274)*XX(325)-JVS(3366)*XX(328)-JVS(3497)*XX(329)-JVS(3588)*XX(330)-JVS(3793)& + &*XX(334)-JVS(3906)*XX(335)-JVS(4082)*XX(338)-JVS(4385)*XX(341)-JVS(4699)*XX(343)-JVS(4943)*XX(345)-JVS(5455)& + &*XX(353)-JVS(5635)*XX(356) + XX(242) = XX(242)-JVS(2380)*XX(288)-JVS(2400)*XX(289)-JVS(2421)*XX(290)-JVS(2455)*XX(291)-JVS(2604)*XX(298)-JVS(3905)& + &*XX(335)-JVS(4384)*XX(341)-JVS(4698)*XX(343) + XX(241) = XX(241)-JVS(1895)*XX(260)-JVS(1994)*XX(266)-JVS(2191)*XX(277)-JVS(2207)*XX(278)-JVS(4697)*XX(343)-JVS(4942)& + &*XX(345)-JVS(5137)*XX(348)-JVS(5634)*XX(356) + XX(240) = XX(240)-JVS(4081)*XX(338)-JVS(4696)*XX(343)-JVS(4941)*XX(345)-JVS(5454)*XX(353) + XX(239) = XX(239)-JVS(2284)*XX(285)-JVS(2889)*XX(309)-JVS(3496)*XX(329)-JVS(3792)*XX(334)-JVS(4080)*XX(338)-JVS(4383)& + &*XX(341)-JVS(4695)*XX(343)-JVS(4940)*XX(345)-JVS(5136)*XX(348) + XX(238) = XX(238)-JVS(2097)*XX(272)-JVS(3495)*XX(329)-JVS(3791)*XX(334)-JVS(4079)*XX(338)-JVS(4382)*XX(341)-JVS(4694)& + &*XX(343)-JVS(4939)*XX(345)-JVS(5135)*XX(348)-JVS(5633)*XX(356) + XX(237) = XX(237)-JVS(1638)*XX(238)-JVS(2096)*XX(272)-JVS(3494)*XX(329)-JVS(3790)*XX(334)-JVS(4078)*XX(338)-JVS(4381)& + &*XX(341)-JVS(4693)*XX(343)-JVS(4938)*XX(345)-JVS(5632)*XX(356) + XX(236) = XX(236)-JVS(1742)*XX(247)-JVS(1775)*XX(249)-JVS(1962)*XX(265)-JVS(2062)*XX(269)-JVS(2133)*XX(274)-JVS(2755)& + &*XX(303)-JVS(2805)*XX(306)-JVS(2838)*XX(307)-JVS(3493)*XX(329)-JVS(3699)*XX(333)-JVS(3904)*XX(335)-JVS(4077)& + &*XX(338)-JVS(4380)*XX(341)-JVS(4692)*XX(343)-JVS(4937)*XX(345) + XX(235) = XX(235)-JVS(1879)*XX(259)-JVS(2132)*XX(274)-JVS(2420)*XX(290)-JVS(2454)*XX(291)-JVS(2603)*XX(298)-JVS(2837)& + &*XX(307)-JVS(2888)*XX(309)-JVS(2951)*XX(311)-JVS(4076)*XX(338)-JVS(4379)*XX(341)-JVS(4691)*XX(343)-JVS(4936)& &*XX(345) - XX(145) = XX(145)-JVS(2520)*XX(293)-JVS(2751)*XX(301)-JVS(4349)*XX(337) - XX(144) = XX(144)-JVS(1433)*XX(215)-JVS(2394)*XX(287)-JVS(2992)*XX(309)-JVS(3779)*XX(329)-JVS(4348)*XX(337)-JVS(5043)& + XX(234) = XX(234)-JVS(1939)*XX(263)-JVS(1993)*XX(266)-JVS(2226)*XX(280)-JVS(2560)*XX(297)-JVS(2715)*XX(302)-JVS(3137)& + &*XX(318)-JVS(3492)*XX(329)-JVS(4378)*XX(341)-JVS(4690)*XX(343)-JVS(4935)*XX(345)-JVS(5134)*XX(348)-JVS(5631)& + &*XX(356) + XX(233) = XX(233)-JVS(1866)*XX(258)-JVS(2035)*XX(268)-JVS(2131)*XX(274)-JVS(2453)*XX(291)-JVS(2602)*XX(298)-JVS(2804)& + &*XX(306)-JVS(2950)*XX(311)-JVS(3136)*XX(318)-JVS(3365)*XX(328)-JVS(3491)*XX(329)-JVS(3903)*XX(335)-JVS(4075)& + &*XX(338)-JVS(4377)*XX(341)-JVS(4689)*XX(343)-JVS(4934)*XX(345) + XX(232) = XX(232)-JVS(3490)*XX(329)-JVS(3789)*XX(334)-JVS(4014)*XX(337)-JVS(4211)*XX(340)-JVS(4376)*XX(341)-JVS(4688)& + &*XX(343)-JVS(5298)*XX(351)-JVS(5361)*XX(352)-JVS(5453)*XX(353)-JVS(5630)*XX(356) + XX(231) = XX(231)-JVS(1801)*XX(251)-JVS(1855)*XX(257)-JVS(2034)*XX(268)-JVS(2130)*XX(274)-JVS(2419)*XX(290)-JVS(2601)& + &*XX(298)-JVS(2949)*XX(311)-JVS(3026)*XX(313)-JVS(3364)*XX(328)-JVS(3489)*XX(329)-JVS(3902)*XX(335)-JVS(4074)& + &*XX(338)-JVS(4375)*XX(341)-JVS(4687)*XX(343)-JVS(4933)*XX(345) + XX(230) = XX(230)-JVS(2129)*XX(274)-JVS(2600)*XX(298)-JVS(3363)*XX(328)-JVS(3901)*XX(335)-JVS(4374)*XX(341) + XX(229) = XX(229)-JVS(1649)*XX(239)-JVS(2128)*XX(274)-JVS(2887)*XX(309)-JVS(3104)*XX(317)-JVS(3488)*XX(329)-JVS(3900)& + &*XX(335)-JVS(4073)*XX(338)-JVS(4373)*XX(341)-JVS(4686)*XX(343)-JVS(4932)*XX(345)-JVS(5133)*XX(348)-JVS(5629)& + &*XX(356) + XX(228) = XX(228)-JVS(1878)*XX(259)-JVS(2127)*XX(274)-JVS(2418)*XX(290)-JVS(2452)*XX(291)-JVS(2599)*XX(298)-JVS(2836)& + &*XX(307)-JVS(2886)*XX(309)-JVS(2948)*XX(311)-JVS(3487)*XX(329)-JVS(3899)*XX(335)-JVS(4072)*XX(338)-JVS(4372)& + &*XX(341)-JVS(4685)*XX(343)-JVS(4931)*XX(345) + XX(227) = XX(227)-JVS(1916)*XX(261)-JVS(2252)*XX(282)-JVS(3698)*XX(333)-JVS(3898)*XX(335)-JVS(4371)*XX(341)-JVS(4684)& + &*XX(343)-JVS(5132)*XX(348) + XX(226) = XX(226)-JVS(1741)*XX(247)-JVS(1877)*XX(259)-JVS(2126)*XX(274)-JVS(2417)*XX(290)-JVS(2451)*XX(291)-JVS(2598)& + &*XX(298)-JVS(2835)*XX(307)-JVS(2885)*XX(309)-JVS(2947)*XX(311)-JVS(3486)*XX(329)-JVS(4071)*XX(338)-JVS(4370)& + &*XX(341)-JVS(4683)*XX(343)-JVS(4930)*XX(345) + XX(225) = XX(225)-JVS(2106)*XX(273)-JVS(2650)*XX(299)-JVS(2834)*XX(307)-JVS(2855)*XX(308)-JVS(3025)*XX(313)-JVS(3135)& + &*XX(318)-JVS(3485)*XX(329)-JVS(3697)*XX(333)-JVS(4369)*XX(341)-JVS(4682)*XX(343)-JVS(4929)*XX(345) + XX(224) = XX(224)-JVS(2033)*XX(268)-JVS(2125)*XX(274)-JVS(2666)*XX(300)-JVS(2714)*XX(302)-JVS(2884)*XX(309)-JVS(3273)& + &*XX(325)-JVS(3897)*XX(335)-JVS(4368)*XX(341)-JVS(4681)*XX(343)-JVS(5452)*XX(353)-JVS(5628)*XX(356) + XX(223) = XX(223)-JVS(1519)*XX(224)-JVS(1624)*XX(237)-JVS(1637)*XX(238)-JVS(1992)*XX(266)-JVS(2095)*XX(272)-JVS(2124)& + &*XX(274)-JVS(2883)*XX(309)-JVS(3103)*XX(317)-JVS(3484)*XX(329)-JVS(3696)*XX(333)-JVS(3896)*XX(335)-JVS(4070)& + &*XX(338)-JVS(4367)*XX(341)-JVS(4680)*XX(343)-JVS(4928)*XX(345)-JVS(5131)*XX(348)-JVS(5451)*XX(353)-JVS(5627)& + &*XX(356) + XX(222) = XX(222)-JVS(1938)*XX(263)-JVS(1991)*XX(266)-JVS(2174)*XX(276)-JVS(2225)*XX(280)-JVS(2240)*XX(281)-JVS(2275)& + &*XX(284)-JVS(2482)*XX(292)-JVS(2500)*XX(294)-JVS(2512)*XX(295)-JVS(2559)*XX(297)-JVS(2713)*XX(302)-JVS(3134)& + &*XX(318)-JVS(3252)*XX(324)-JVS(3483)*XX(329)-JVS(4366)*XX(341)-JVS(4679)*XX(343)-JVS(5130)*XX(348)-JVS(5626)& + &*XX(356) + XX(221) = XX(221)-JVS(3182)*XX(320)-JVS(3695)*XX(333)-JVS(4210)*XX(340)-JVS(4495)*XX(342)-JVS(4678)*XX(343)-JVS(4927)& + &*XX(345)-JVS(5078)*XX(347)-JVS(5129)*XX(348)-JVS(5360)*XX(352)-JVS(5450)*XX(353) + XX(220) = XX(220)-JVS(1774)*XX(249)-JVS(3694)*XX(333)-JVS(3895)*XX(335)-JVS(4365)*XX(341)-JVS(4677)*XX(343) + XX(219) = XX(219)-JVS(4364)*XX(341)-JVS(4676)*XX(343)-JVS(5297)*XX(351)-JVS(5449)*XX(353)-JVS(5625)*XX(356) + XX(218) = XX(218)-JVS(2597)*XX(298)-JVS(2946)*XX(311)-JVS(3482)*XX(329)-JVS(3894)*XX(335) + XX(217) = XX(217)-JVS(2685)*XX(301)-JVS(3693)*XX(333)-JVS(4166)*XX(339)-JVS(4209)*XX(340)-JVS(4926)*XX(345)-JVS(5039)& + &*XX(346)-JVS(5128)*XX(348)-JVS(5448)*XX(353) + XX(216) = XX(216)-JVS(3481)*XX(329)-JVS(3893)*XX(335)-JVS(4069)*XX(338)-JVS(4363)*XX(341)-JVS(4675)*XX(343)-JVS(4925)& + &*XX(345)-JVS(5127)*XX(348)-JVS(5624)*XX(356) + XX(215) = XX(215)-JVS(1558)*XX(229)-JVS(2712)*XX(302)-JVS(2882)*XX(309)-JVS(3480)*XX(329)-JVS(3892)*XX(335)-JVS(4068)& + &*XX(338)-JVS(4362)*XX(341)-JVS(4674)*XX(343)-JVS(4924)*XX(345) + XX(214) = XX(214)-JVS(2123)*XX(274)-JVS(3479)*XX(329)-JVS(3891)*XX(335)-JVS(4361)*XX(341)-JVS(4673)*XX(343) + XX(213) = XX(213)-JVS(1416)*XX(214)-JVS(1460)*XX(218)-JVS(1551)*XX(228)-JVS(1595)*XX(233)-JVS(1689)*XX(242)-JVS(1719)& + &*XX(245)-JVS(2450)*XX(291)-JVS(2596)*XX(298)-JVS(3045)*XX(314)-JVS(3133)*XX(318)-JVS(3362)*XX(328)-JVS(3478)& + &*XX(329)-JVS(3890)*XX(335)-JVS(4360)*XX(341)-JVS(4672)*XX(343) + XX(212) = XX(212)-JVS(1894)*XX(260)-JVS(1990)*XX(266)-JVS(2190)*XX(277)-JVS(2206)*XX(278)-JVS(3477)*XX(329)-JVS(4671)& + &*XX(343)-JVS(4923)*XX(345)-JVS(5126)*XX(348)-JVS(5623)*XX(356) + XX(211) = XX(211)-JVS(3361)*XX(328)-JVS(3476)*XX(329)-JVS(3889)*XX(335)-JVS(4359)*XX(341)-JVS(4670)*XX(343) + XX(210) = XX(210)-JVS(1800)*XX(251)-JVS(2061)*XX(269)-JVS(2754)*XX(303)-JVS(2833)*XX(307)-JVS(2881)*XX(309)-JVS(2945)& + &*XX(311)-JVS(3475)*XX(329)-JVS(4067)*XX(338)-JVS(4358)*XX(341)-JVS(4669)*XX(343)-JVS(4922)*XX(345) + XX(209) = XX(209)-JVS(1486)*XX(220)-JVS(1773)*XX(249)-JVS(2060)*XX(269)-JVS(2753)*XX(303)-JVS(2832)*XX(307)-JVS(2880)& + &*XX(309)-JVS(3474)*XX(329)-JVS(4066)*XX(338)-JVS(4357)*XX(341)-JVS(4668)*XX(343)-JVS(4921)*XX(345) + XX(208) = XX(208)-JVS(1961)*XX(265)-JVS(2059)*XX(269)-JVS(2752)*XX(303)-JVS(2803)*XX(306)-JVS(2831)*XX(307)-JVS(2944)& + &*XX(311)-JVS(3473)*XX(329)-JVS(4065)*XX(338)-JVS(4356)*XX(341)-JVS(4667)*XX(343)-JVS(4920)*XX(345) + XX(207) = XX(207)-JVS(1623)*XX(237)-JVS(1636)*XX(238)-JVS(3692)*XX(333)-JVS(3888)*XX(335)-JVS(4355)*XX(341)-JVS(4666)& + &*XX(343)-JVS(5125)*XX(348) + XX(206) = XX(206)-JVS(1635)*XX(238)-JVS(2094)*XX(272)-JVS(4919)*XX(345)-JVS(5622)*XX(356) + XX(205) = XX(205)-JVS(1353)*XX(206)-JVS(1518)*XX(224)-JVS(1989)*XX(266)-JVS(2093)*XX(272)-JVS(2879)*XX(309)-JVS(3691)& + &*XX(333)-JVS(4354)*XX(341)-JVS(4665)*XX(343)-JVS(5124)*XX(348)-JVS(5621)*XX(356) + XX(204) = XX(204)-JVS(2032)*XX(268)-JVS(2322)*XX(286)-JVS(2595)*XX(298)-JVS(2665)*XX(300)-JVS(2711)*XX(302)-JVS(2774)& + &*XX(304)-JVS(2878)*XX(309)-JVS(3272)*XX(325)-JVS(3887)*XX(335)-JVS(4353)*XX(341)-JVS(4664)*XX(343)-JVS(5447)& + &*XX(353)-JVS(5620)*XX(356) + XX(203) = XX(203)-JVS(1336)*XX(204)-JVS(1343)*XX(205)-JVS(1352)*XX(206)-JVS(1370)*XX(207)-JVS(1517)*XX(224)-JVS(1701)& + &*XX(243)-JVS(1988)*XX(266)-JVS(2092)*XX(272)-JVS(2122)*XX(274)-JVS(2594)*XX(298)-JVS(2664)*XX(300)-JVS(3360)& + &*XX(328)-JVS(3472)*XX(329)-JVS(3690)*XX(333)-JVS(3886)*XX(335)-JVS(4064)*XX(338)-JVS(4352)*XX(341)-JVS(4663)& + &*XX(343)-JVS(4918)*XX(345)-JVS(5123)*XX(348)-JVS(5446)*XX(353) + XX(202) = XX(202)-JVS(1459)*XX(218)-JVS(1532)*XX(226)-JVS(1582)*XX(231)-JVS(1688)*XX(242)-JVS(1718)*XX(245)-JVS(1740)& + &*XX(247)-JVS(2416)*XX(290)-JVS(2593)*XX(298)-JVS(3024)*XX(313)-JVS(3060)*XX(315)-JVS(3471)*XX(329)-JVS(3885)& + &*XX(335)-JVS(4351)*XX(341)-JVS(4662)*XX(343) + XX(201) = XX(201)-JVS(2877)*XX(309)-JVS(3470)*XX(329)-JVS(3884)*XX(335)-JVS(4063)*XX(338)-JVS(4350)*XX(341)-JVS(4661)& + &*XX(343)-JVS(4917)*XX(345)-JVS(5122)*XX(348) + XX(200) = XX(200)-JVS(2710)*XX(302)-JVS(3271)*XX(325)-JVS(3359)*XX(328)-JVS(3469)*XX(329)-JVS(3587)*XX(330)-JVS(4062)& + &*XX(338)-JVS(4349)*XX(341)-JVS(4660)*XX(343)-JVS(4916)*XX(345)-JVS(5445)*XX(353) + XX(199) = XX(199)-JVS(1342)*XX(205)-JVS(1351)*XX(206)-JVS(1516)*XX(224)-JVS(1987)*XX(266)-JVS(2091)*XX(272)-JVS(2121)& + &*XX(274)-JVS(3689)*XX(333)-JVS(4348)*XX(341)-JVS(4659)*XX(343)-JVS(5121)*XX(348) + XX(198) = XX(198)-JVS(2120)*XX(274)-JVS(2415)*XX(290)-JVS(2449)*XX(291)-JVS(2592)*XX(298)-JVS(2876)*XX(309)-JVS(2943)& + &*XX(311)-JVS(4347)*XX(341)-JVS(4658)*XX(343) + XX(197) = XX(197)-JVS(1568)*XX(230)-JVS(2031)*XX(268)-JVS(2119)*XX(274)-JVS(2591)*XX(298)-JVS(3358)*XX(328)-JVS(3883)& + &*XX(335)-JVS(4346)*XX(341)-JVS(4657)*XX(343) + XX(196) = XX(196)-JVS(1728)*XX(246)-JVS(1937)*XX(263)-JVS(1986)*XX(266)-JVS(2224)*XX(280)-JVS(4656)*XX(343)-JVS(4915)& + &*XX(345)-JVS(5120)*XX(348)-JVS(5619)*XX(356) + XX(195) = XX(195)-JVS(1458)*XX(218)-JVS(1531)*XX(226)-JVS(1608)*XX(235)-JVS(1717)*XX(245)-JVS(2379)*XX(288)-JVS(2399)& + &*XX(289)-JVS(2414)*XX(290)-JVS(3023)*XX(313)-JVS(3059)*XX(315)-JVS(3468)*XX(329)-JVS(3882)*XX(335)-JVS(4345)& + &*XX(341)-JVS(4655)*XX(343) + XX(194) = XX(194)-JVS(1540)*XX(227)-JVS(2162)*XX(275)-JVS(2173)*XX(276)-JVS(2223)*XX(280)-JVS(2239)*XX(281)-JVS(2274)& + &*XX(284)-JVS(2481)*XX(292)-JVS(3102)*XX(317)-JVS(3467)*XX(329)-JVS(3881)*XX(335)-JVS(4654)*XX(343)-JVS(5119)& + &*XX(348)-JVS(5618)*XX(356) + XX(193) = XX(193)-JVS(1369)*XX(207)-JVS(4061)*XX(338)-JVS(4344)*XX(341)-JVS(4653)*XX(343)-JVS(4914)*XX(345)-JVS(5444)& + &*XX(353) + XX(192) = XX(192)-JVS(2709)*XX(302)-JVS(4343)*XX(341)-JVS(4652)*XX(343) + XX(191) = XX(191)-JVS(1457)*XX(218)-JVS(1550)*XX(228)-JVS(1607)*XX(235)-JVS(2378)*XX(288)-JVS(2398)*XX(289)-JVS(2448)& + &*XX(291)-JVS(3044)*XX(314)-JVS(3132)*XX(318)-JVS(3466)*XX(329)-JVS(3880)*XX(335)-JVS(4342)*XX(341)-JVS(4651)& + &*XX(343) + XX(190) = XX(190)-JVS(2118)*XX(274)-JVS(2590)*XX(298)-JVS(3357)*XX(328)-JVS(3879)*XX(335)-JVS(4341)*XX(341)-JVS(4650)& + &*XX(343) + XX(189) = XX(189)-JVS(1928)*XX(262)-JVS(2030)*XX(268)-JVS(2589)*XX(298)-JVS(2942)*XX(311)-JVS(3356)*XX(328)-JVS(3878)& + &*XX(335)-JVS(4649)*XX(343)-JVS(4913)*XX(345)-JVS(5118)*XX(348) + XX(188) = XX(188)-JVS(1456)*XX(218)-JVS(1615)*XX(236)-JVS(2649)*XX(299)-JVS(2785)*XX(305)-JVS(2830)*XX(307)-JVS(2925)& + &*XX(310)-JVS(3043)*XX(314)-JVS(3058)*XX(315)-JVS(3688)*XX(333)-JVS(4340)*XX(341)-JVS(4648)*XX(343)-JVS(4912)& &*XX(345) - XX(143) = XX(143)-JVS(1281)*XX(195)-JVS(1497)*XX(221)-JVS(1963)*XX(263)-JVS(2092)*XX(270)-JVS(3778)*XX(329)-JVS(4347)& - &*XX(337)-JVS(5042)*XX(345) - XX(142) = XX(142)-JVS(2740)*XX(300)-JVS(3192)*XX(319)-JVS(3590)*XX(327)-JVS(4575)*XX(339)-JVS(4668)*XX(340)-JVS(5041)& - &*XX(345)-JVS(5499)*XX(351) - XX(141) = XX(141)-JVS(3233)*XX(321)-JVS(3289)*XX(323)-JVS(4574)*XX(339)-JVS(4667)*XX(340)-JVS(4830)*XX(342)-JVS(5040)& - &*XX(345)-JVS(5612)*XX(352) - XX(140) = XX(140)-JVS(1410)*XX(212)-JVS(1596)*XX(233)-JVS(3419)*XX(325)-JVS(4064)*XX(335)-JVS(4745)*XX(341)-JVS(5039)& - &*XX(345)-JVS(5498)*XX(351) - XX(139) = XX(139)-JVS(3317)*XX(324)-JVS(3418)*XX(325)-JVS(3694)*XX(328)-JVS(3777)*XX(329)-JVS(4063)*XX(335)-JVS(5038)& - &*XX(345)-JVS(5497)*XX(351) - XX(138) = XX(138)-JVS(1080)*XX(162)-JVS(1962)*XX(263)-JVS(2154)*XX(273)-JVS(3417)*XX(325)-JVS(4062)*XX(335)-JVS(4346)& - &*XX(337)-JVS(5037)*XX(345) - XX(137) = XX(137)-JVS(1165)*XX(176)-JVS(1529)*XX(225)-JVS(1961)*XX(263)-JVS(3416)*XX(325)-JVS(4061)*XX(335)-JVS(4345)& - &*XX(337)-JVS(5036)*XX(345) - XX(136) = XX(136)-JVS(1605)*XX(234)-JVS(2856)*XX(306)-JVS(3415)*XX(325)-JVS(4344)*XX(337)-JVS(5035)*XX(345) - XX(135) = XX(135)-JVS(2991)*XX(309)-JVS(4060)*XX(335)-JVS(4343)*XX(337)-JVS(5034)*XX(345)-JVS(5252)*XX(346) - XX(134) = XX(134)-JVS(5033)*XX(345)-JVS(5401)*XX(348) - XX(133) = XX(133)-JVS(3094)*XX(314)-JVS(4059)*XX(335)-JVS(4342)*XX(337)-JVS(5032)*XX(345)-JVS(5251)*XX(346) - XX(132) = XX(132)-JVS(2855)*XX(306)-JVS(3776)*XX(329)-JVS(4058)*XX(335)-JVS(4341)*XX(337)-JVS(5250)*XX(346) - XX(131) = XX(131)-JVS(1377)*XX(208)-JVS(1546)*XX(227)-JVS(4340)*XX(337)-JVS(5031)*XX(345) - XX(130) = XX(130)-JVS(2670)*XX(298)-JVS(3191)*XX(319)-JVS(3316)*XX(324)-JVS(3414)*XX(325)-JVS(5030)*XX(345) - XX(129) = XX(129)-JVS(2153)*XX(273)-JVS(5029)*XX(345) - XX(128) = XX(128)-JVS(1432)*XX(215)-JVS(1711)*XX(243)-JVS(4339)*XX(337)-JVS(5028)*XX(345) - XX(127) = XX(127)-JVS(2854)*XX(306)-JVS(3413)*XX(325)-JVS(3775)*XX(329)-JVS(4057)*XX(335)-JVS(4338)*XX(337)-JVS(5027)& + XX(187) = XX(187)-JVS(2663)*XX(300)-JVS(3687)*XX(333)-JVS(4208)*XX(340)-JVS(4494)*XX(342)-JVS(4647)*XX(343)-JVS(5117)& + &*XX(348)-JVS(5359)*XX(352)-JVS(5443)*XX(353)-JVS(5533)*XX(354) + XX(186) = XX(186)-JVS(2058)*XX(269)-JVS(2751)*XX(303)-JVS(2802)*XX(306)-JVS(2829)*XX(307)-JVS(3465)*XX(329)-JVS(4060)& + &*XX(338)-JVS(4339)*XX(341)-JVS(4646)*XX(343)-JVS(4911)*XX(345) + XX(185) = XX(185)-JVS(1772)*XX(249)-JVS(1960)*XX(265)-JVS(3877)*XX(335)-JVS(4059)*XX(338)-JVS(4338)*XX(341)-JVS(4645)& + &*XX(343)-JVS(4910)*XX(345) + XX(184) = XX(184)-JVS(1474)*XX(219)-JVS(3788)*XX(334)-JVS(3876)*XX(335)-JVS(4013)*XX(337)-JVS(4207)*XX(340)-JVS(4337)& + &*XX(341)-JVS(4644)*XX(343)-JVS(4827)*XX(344)-JVS(5296)*XX(351)-JVS(5358)*XX(352)-JVS(5442)*XX(353) + XX(183) = XX(183)-JVS(1661)*XX(240)-JVS(3686)*XX(333)-JVS(4165)*XX(339)-JVS(4206)*XX(340)-JVS(4643)*XX(343)-JVS(4909)& + &*XX(345)-JVS(5577)*XX(355)-JVS(5617)*XX(356) + XX(182) = XX(182)-JVS(1312)*XX(200)-JVS(2511)*XX(295)-JVS(2708)*XX(302)-JVS(3231)*XX(323)-JVS(4058)*XX(338)-JVS(4336)& + &*XX(341)-JVS(4642)*XX(343)-JVS(4908)*XX(345) + XX(181) = XX(181)-JVS(1771)*XX(249)-JVS(1959)*XX(265)-JVS(2750)*XX(303)-JVS(2875)*XX(309)-JVS(4057)*XX(338)-JVS(4335)& + &*XX(341)-JVS(4641)*XX(343)-JVS(4907)*XX(345) + XX(180) = XX(180)-JVS(1893)*XX(260)-JVS(2189)*XX(277)-JVS(4640)*XX(343)-JVS(4906)*XX(345) + XX(179) = XX(179)-JVS(1892)*XX(260)-JVS(1985)*XX(266)-JVS(2510)*XX(295)-JVS(2558)*XX(297)-JVS(3270)*XX(325)-JVS(3464)& + &*XX(329)-JVS(4639)*XX(343)-JVS(4905)*XX(345) + XX(178) = XX(178)-JVS(1298)*XX(198)-JVS(1876)*XX(259)-JVS(2874)*XX(309)-JVS(2941)*XX(311)-JVS(4334)*XX(341)-JVS(4638)& + &*XX(343) + XX(177) = XX(177)-JVS(1224)*XX(186)-JVS(1455)*XX(218)-JVS(2377)*XX(288)-JVS(2397)*XX(289)-JVS(3022)*XX(313)-JVS(3463)& + &*XX(329)-JVS(3685)*XX(333)-JVS(4333)*XX(341)-JVS(4637)*XX(343)-JVS(4904)*XX(345) + XX(176) = XX(176)-JVS(2662)*XX(300)-JVS(4636)*XX(343)-JVS(5441)*XX(353) + XX(175) = XX(175)-JVS(1388)*XX(210)-JVS(1454)*XX(218)-JVS(2376)*XX(288)-JVS(2396)*XX(289)-JVS(3131)*XX(318)-JVS(3462)& + &*XX(329)-JVS(3684)*XX(333)-JVS(4332)*XX(341)-JVS(4635)*XX(343)-JVS(4903)*XX(345) + XX(174) = XX(174)-JVS(1799)*XX(251)-JVS(1854)*XX(257)-JVS(4056)*XX(338)-JVS(4331)*XX(341)-JVS(4634)*XX(343)-JVS(4902)& &*XX(345) - XX(126) = XX(126)-JVS(1294)*XX(197)-JVS(2853)*XX(306)-JVS(3774)*XX(329)-JVS(4056)*XX(335)-JVS(5026)*XX(345)-JVS(5496)& - &*XX(351) - XX(125) = XX(125)-JVS(1760)*XX(247)-JVS(1804)*XX(250)-JVS(2669)*XX(298)-JVS(4055)*XX(335)-JVS(4337)*XX(337)-JVS(5025)& + XX(173) = XX(173)-JVS(1865)*XX(258)-JVS(2801)*XX(306)-JVS(4055)*XX(338)-JVS(4330)*XX(341)-JVS(4633)*XX(343)-JVS(4901)& &*XX(345) - XX(124) = XX(124)-JVS(3256)*XX(322)-JVS(3547)*XX(326)-JVS(3773)*XX(329)-JVS(4054)*XX(335)-JVS(5024)*XX(345)-JVS(5495)& - &*XX(351) - XX(123) = XX(123)-JVS(1920)*XX(260)-JVS(2908)*XX(307)-JVS(3412)*XX(325)-JVS(3546)*XX(326)-JVS(4336)*XX(337)-JVS(5023)& + XX(172) = XX(172)-JVS(2357)*XX(287)-JVS(2539)*XX(296)-JVS(3631)*XX(331)-JVS(4632)*XX(343)-JVS(5116)*XX(348) + XX(171) = XX(171)-JVS(2188)*XX(277)-JVS(2707)*XX(302)-JVS(3230)*XX(323)-JVS(3355)*XX(328)-JVS(3461)*XX(329)-JVS(4631)& + &*XX(343) + XX(170) = XX(170)-JVS(1844)*XX(256)-JVS(1984)*XX(266)-JVS(2187)*XX(277)-JVS(2222)*XX(280)-JVS(2273)*XX(284)-JVS(2480)& + &*XX(292)-JVS(3875)*XX(335)-JVS(4630)*XX(343)-JVS(5115)*XX(348)-JVS(5616)*XX(356) + XX(169) = XX(169)-JVS(1660)*XX(240)-JVS(3683)*XX(333)-JVS(4205)*XX(340)-JVS(4900)*XX(345)-JVS(5038)*XX(346)-JVS(5576)& + &*XX(355)-JVS(5615)*XX(356) + XX(168) = XX(168)-JVS(1311)*XX(200)-JVS(2706)*XX(302)-JVS(3460)*XX(329)-JVS(3586)*XX(330)-JVS(4054)*XX(338)-JVS(4329)& + &*XX(341)-JVS(4899)*XX(345) + XX(167) = XX(167)-JVS(3459)*XX(329)-JVS(3787)*XX(334)-JVS(4204)*XX(340)-JVS(4328)*XX(341)-JVS(4629)*XX(343)-JVS(5357)& + &*XX(352)-JVS(5440)*XX(353) + XX(166) = XX(166)-JVS(2186)*XX(277)-JVS(4628)*XX(343)-JVS(4898)*XX(345)-JVS(5114)*XX(348) + XX(165) = XX(165)-JVS(1891)*XX(260)-JVS(2185)*XX(277)-JVS(2557)*XX(297)-JVS(2705)*XX(302)-JVS(3229)*XX(323)-JVS(4627)& + &*XX(343)-JVS(4897)*XX(345) + XX(164) = XX(164)-JVS(2161)*XX(275)-JVS(2184)*XX(277)-JVS(2556)*XX(297)-JVS(2704)*XX(302)-JVS(3228)*XX(323)-JVS(4327)& + &*XX(341)-JVS(4626)*XX(343) + XX(163) = XX(163)-JVS(1983)*XX(266)-JVS(2251)*XX(282)-JVS(2509)*XX(295)-JVS(2555)*XX(297)-JVS(3269)*XX(325)-JVS(3458)& + &*XX(329)-JVS(4625)*XX(343) + XX(162) = XX(162)-JVS(1335)*XX(204)-JVS(1341)*XX(205)-JVS(1350)*XX(206)-JVS(1982)*XX(266)-JVS(2090)*XX(272)-JVS(3682)& + &*XX(333)-JVS(4326)*XX(341)-JVS(4624)*XX(343)-JVS(5113)*XX(348) + XX(161) = XX(161)-JVS(1927)*XX(262)-JVS(2029)*XX(268)-JVS(2588)*XX(298)-JVS(2940)*XX(311)-JVS(3354)*XX(328)-JVS(3457)& + &*XX(329)-JVS(3786)*XX(334)-JVS(3874)*XX(335)-JVS(4623)*XX(343) + XX(160) = XX(160)-JVS(4493)*XX(342)-JVS(5356)*XX(352) + XX(159) = XX(159)-JVS(1453)*XX(218)-JVS(2375)*XX(288)-JVS(2395)*XX(289)-JVS(4325)*XX(341)-JVS(4622)*XX(343) + XX(158) = XX(158)-JVS(3268)*XX(325)-JVS(3585)*XX(330)-JVS(3785)*XX(334)-JVS(4324)*XX(341)-JVS(4621)*XX(343) + XX(157) = XX(157)-JVS(1452)*XX(218)-JVS(2374)*XX(288)-JVS(2394)*XX(289)-JVS(4323)*XX(341)-JVS(4620)*XX(343) + XX(156) = XX(156)-JVS(2939)*XX(311)-JVS(3681)*XX(333)-JVS(4619)*XX(343)-JVS(4896)*XX(345)-JVS(5112)*XX(348) + XX(155) = XX(155)-JVS(1567)*XX(230)-JVS(2938)*XX(311)-JVS(3873)*XX(335)-JVS(4322)*XX(341)-JVS(4618)*XX(343) + XX(154) = XX(154)-JVS(3584)*XX(330)-JVS(4203)*XX(340)-JVS(4321)*XX(341)-JVS(4617)*XX(343)-JVS(5355)*XX(352) + XX(153) = XX(153)-JVS(3181)*XX(320)-JVS(4492)*XX(342)-JVS(4616)*XX(343) + XX(152) = XX(152)-JVS(1700)*XX(243)-JVS(3353)*XX(328)-JVS(3456)*XX(329)-JVS(3872)*XX(335)-JVS(4320)*XX(341)-JVS(4615)& + &*XX(343) + XX(151) = XX(151)-JVS(1451)*XX(218)-JVS(2413)*XX(290)-JVS(3021)*XX(313)-JVS(3871)*XX(335)-JVS(4319)*XX(341)-JVS(4614)& + &*XX(343) + XX(150) = XX(150)-JVS(1450)*XX(218)-JVS(2447)*XX(291)-JVS(3130)*XX(318)-JVS(3870)*XX(335)-JVS(4318)*XX(341)-JVS(4613)& + &*XX(343) + XX(149) = XX(149)-JVS(1245)*XX(190)-JVS(1395)*XX(211)-JVS(1566)*XX(230)-JVS(2373)*XX(288)-JVS(2393)*XX(289)-JVS(3869)& + &*XX(335)-JVS(4317)*XX(341)-JVS(4612)*XX(343) + XX(148) = XX(148)-JVS(1082)*XX(162)-JVS(1270)*XX(193)-JVS(1334)*XX(204)-JVS(1368)*XX(207)-JVS(1515)*XX(224)-JVS(1981)& + &*XX(266)-JVS(3455)*XX(329)-JVS(3583)*XX(330)-JVS(3680)*XX(333)-JVS(4316)*XX(341)-JVS(4611)*XX(343)-JVS(5111)& + &*XX(348) + XX(147) = XX(147)-JVS(2648)*XX(299)-JVS(2784)*XX(305)-JVS(4315)*XX(341) + XX(146) = XX(146)-JVS(4610)*XX(343)-JVS(5575)*XX(355) + XX(145) = XX(145)-JVS(1305)*XX(199)-JVS(1514)*XX(224)-JVS(1980)*XX(266)-JVS(2117)*XX(274)-JVS(3868)*XX(335)-JVS(4314)& + &*XX(341)-JVS(4609)*XX(343) + XX(144) = XX(144)-JVS(2773)*XX(304)-JVS(3227)*XX(323)-JVS(3679)*XX(333)-JVS(4202)*XX(340)-JVS(4608)*XX(343)-JVS(5110)& + &*XX(348)-JVS(5354)*XX(352) + XX(143) = XX(143)-JVS(3352)*XX(328)-JVS(3454)*XX(329)-JVS(3784)*XX(334)-JVS(3867)*XX(335)-JVS(4607)*XX(343)-JVS(4895)& + &*XX(345)-JVS(5109)*XX(348) + XX(142) = XX(142)-JVS(3300)*XX(326)-JVS(3324)*XX(327)-JVS(4201)*XX(340)-JVS(4491)*XX(342)-JVS(4606)*XX(343)-JVS(5353)& + &*XX(352)-JVS(5532)*XX(354) + XX(141) = XX(141)-JVS(1097)*XX(165)-JVS(1979)*XX(266)-JVS(2160)*XX(275)-JVS(3453)*XX(329)-JVS(4313)*XX(341)-JVS(4605)& + &*XX(343)-JVS(4894)*XX(345) + XX(140) = XX(140)-JVS(1427)*XX(215)-JVS(1557)*XX(229)-JVS(3452)*XX(329)-JVS(4604)*XX(343)-JVS(4893)*XX(345)-JVS(5108)& + &*XX(348)-JVS(5614)*XX(356) + XX(139) = XX(139)-JVS(1182)*XX(179)-JVS(1539)*XX(227)-JVS(1978)*XX(266)-JVS(3451)*XX(329)-JVS(4312)*XX(341)-JVS(4603)& + &*XX(343)-JVS(4892)*XX(345) + XX(138) = XX(138)-JVS(1648)*XX(239)-JVS(2873)*XX(309)-JVS(3450)*XX(329)-JVS(4311)*XX(341)-JVS(4602)*XX(343) + XX(137) = XX(137)-JVS(3129)*XX(318)-JVS(4053)*XX(338)-JVS(4310)*XX(341)-JVS(4601)*XX(343)-JVS(4891)*XX(345) + XX(136) = XX(136)-JVS(3020)*XX(313)-JVS(4052)*XX(338)-JVS(4309)*XX(341)-JVS(4600)*XX(343)-JVS(4890)*XX(345) + XX(135) = XX(135)-JVS(1394)*XX(211)-JVS(1565)*XX(230)-JVS(4308)*XX(341)-JVS(4599)*XX(343) + XX(134) = XX(134)-JVS(2703)*XX(302)-JVS(3226)*XX(323)-JVS(3351)*XX(328)-JVS(3449)*XX(329)-JVS(4598)*XX(343) + XX(133) = XX(133)-JVS(2872)*XX(309)-JVS(3866)*XX(335)-JVS(4051)*XX(338)-JVS(4307)*XX(341)-JVS(4889)*XX(345) + XX(132) = XX(132)-JVS(2159)*XX(275)-JVS(4597)*XX(343) + XX(131) = XX(131)-JVS(1449)*XX(218)-JVS(1716)*XX(245)-JVS(4306)*XX(341)-JVS(4596)*XX(343) + XX(130) = XX(130)-JVS(2871)*XX(309)-JVS(3448)*XX(329)-JVS(3865)*XX(335)-JVS(4305)*XX(341)-JVS(4595)*XX(343)-JVS(4888)& &*XX(345) - XX(122) = XX(122)-JVS(1682)*XX(240)-JVS(3315)*XX(324)-JVS(3411)*XX(325)-JVS(3772)*XX(329)-JVS(4053)*XX(335)-JVS(5022)& + XX(129) = XX(129)-JVS(1318)*XX(201)-JVS(2870)*XX(309)-JVS(3864)*XX(335)-JVS(4594)*XX(343)-JVS(4887)*XX(345)-JVS(5107)& + &*XX(348) + XX(128) = XX(128)-JVS(1770)*XX(249)-JVS(1821)*XX(253)-JVS(2702)*XX(302)-JVS(4304)*XX(341)-JVS(4593)*XX(343)-JVS(4886)& &*XX(345) - XX(121) = XX(121)-JVS(982)*XX(146)-JVS(4052)*XX(335)-JVS(4335)*XX(337)-JVS(5249)*XX(346) - XX(120) = XX(120)-JVS(3953)*XX(333)-JVS(4530)*XX(338)-JVS(4894)*XX(343)-JVS(5021)*XX(345) - XX(119) = XX(119)-JVS(1217)*XX(185)-JVS(3771)*XX(329)-JVS(4334)*XX(337)-JVS(5020)*XX(345) - XX(118) = XX(118)-JVS(3121)*XX(315)-JVS(3545)*XX(326)-JVS(4333)*XX(337)-JVS(5019)*XX(345) - XX(117) = XX(117)-JVS(1332)*XX(203)-JVS(1628)*XX(236)-JVS(5018)*XX(345) - XX(116) = XX(116)-JVS(1350)*XX(204)-JVS(4051)*XX(335)-JVS(4217)*XX(336)-JVS(4332)*XX(337)-JVS(5017)*XX(345) - XX(115) = XX(115)-JVS(3314)*XX(324)-JVS(4331)*XX(337)-JVS(5016)*XX(345) - XX(114) = XX(114)-JVS(1417)*XX(213)-JVS(3410)*XX(325)-JVS(3770)*XX(329)-JVS(4050)*XX(335)-JVS(5015)*XX(345) - XX(113) = XX(113)-JVS(1753)*XX(246)-JVS(2852)*XX(306)-JVS(3769)*XX(329)-JVS(4049)*XX(335)-JVS(5014)*XX(345) - XX(112) = XX(112)-JVS(885)*XX(129)-JVS(2189)*XX(275)-JVS(3409)*XX(325)-JVS(4330)*XX(337)-JVS(5013)*XX(345) - XX(111) = XX(111)-JVS(1528)*XX(225)-JVS(1883)*XX(257)-JVS(2205)*XX(277)-JVS(4329)*XX(337)-JVS(5012)*XX(345) - XX(110) = XX(110)-JVS(1739)*XX(245)-JVS(4529)*XX(338)-JVS(4666)*XX(340) - XX(109) = XX(109)-JVS(1604)*XX(234)-JVS(3038)*XX(312)-JVS(3408)*XX(325)-JVS(4744)*XX(341)-JVS(5011)*XX(345) - XX(108) = XX(108)-JVS(4048)*XX(335)-JVS(4216)*XX(336)-JVS(4328)*XX(337)-JVS(5010)*XX(345)-JVS(5494)*XX(351) - XX(107) = XX(107)-JVS(2011)*XX(265)-JVS(2536)*XX(294)-JVS(3313)*XX(324)-JVS(3768)*XX(329)-JVS(5009)*XX(345) - XX(106) = XX(106)-JVS(2851)*XX(306)-JVS(3407)*XX(325)-JVS(4327)*XX(337) - XX(105) = XX(105)-JVS(3693)*XX(328)-JVS(4001)*XX(334)-JVS(4215)*XX(336)-JVS(4326)*XX(337)-JVS(4829)*XX(342)-JVS(5008)& - &*XX(345)-JVS(5371)*XX(347) - XX(104) = XX(104)-JVS(3913)*XX(331)-JVS(4665)*XX(340) - XX(103) = XX(103)-JVS(3589)*XX(327) - XX(102) = XX(102)-JVS(2668)*XX(298)-JVS(2739)*XX(300)-JVS(4325)*XX(337)-JVS(5007)*XX(345) - XX(101) = XX(101)-JVS(1060)*XX(158)-JVS(1143)*XX(173)-JVS(1316)*XX(201)-JVS(1349)*XX(204)-JVS(1496)*XX(221)-JVS(1960)& - &*XX(263)-JVS(2091)*XX(270)-JVS(2535)*XX(294)-JVS(3093)*XX(314)-JVS(3767)*XX(329)-JVS(4324)*XX(337)-JVS(5006)& + XX(127) = XX(127)-JVS(3267)*XX(325)-JVS(3582)*XX(330)-JVS(3863)*XX(335)-JVS(4592)*XX(343)-JVS(4885)*XX(345)-JVS(5106)& + &*XX(348) + XX(126) = XX(126)-JVS(1949)*XX(264)-JVS(2937)*XX(311)-JVS(3447)*XX(329)-JVS(3581)*XX(330)-JVS(4303)*XX(341)-JVS(4591)& + &*XX(343) + XX(125) = XX(125)-JVS(1699)*XX(243)-JVS(3350)*XX(328)-JVS(3446)*XX(329)-JVS(3862)*XX(335)-JVS(4590)*XX(343)-JVS(4884)& &*XX(345) - XX(100) = XX(100)-JVS(2598)*XX(295)-JVS(3288)*XX(323)-JVS(4323)*XX(337)-JVS(5005)*XX(345) - XX(99) = XX(99)-JVS(2667)*XX(298)-JVS(3232)*XX(321)-JVS(4322)*XX(337)-JVS(5004)*XX(345) - XX(98) = XX(98)-JVS(1181)*XX(178)-JVS(2666)*XX(298)-JVS(4321)*XX(337)-JVS(5003)*XX(345) - XX(97) = XX(97)-JVS(2665)*XX(298)-JVS(3190)*XX(319)-JVS(4320)*XX(337)-JVS(5002)*XX(345) - XX(96) = XX(96)-JVS(2342)*XX(284)-JVS(3912)*XX(331)-JVS(4047)*XX(335)-JVS(5248)*XX(346) - XX(95) = XX(95)-JVS(2664)*XX(298)-JVS(4046)*XX(335)-JVS(4319)*XX(337)-JVS(5001)*XX(345) - XX(94) = XX(94)-JVS(3406)*XX(325)-JVS(3588)*XX(327)-JVS(3692)*XX(328)-JVS(5000)*XX(345)-JVS(5400)*XX(348)-JVS(5493)& - &*XX(351) - XX(93) = XX(93)-JVS(3405)*XX(325)-JVS(4045)*XX(335)-JVS(4318)*XX(337)-JVS(4999)*XX(345) - XX(92) = XX(92)-JVS(3312)*XX(324)-JVS(3404)*XX(325)-JVS(3691)*XX(328)-JVS(4998)*XX(345) - XX(91) = XX(91)-JVS(2597)*XX(295)-JVS(4044)*XX(335)-JVS(4317)*XX(337)-JVS(4997)*XX(345) - XX(90) = XX(90)-JVS(827)*XX(117)-JVS(1616)*XX(235)-JVS(4043)*XX(335)-JVS(4996)*XX(345) - XX(89) = XX(89)-JVS(918)*XX(134)-JVS(3403)*XX(325)-JVS(4995)*XX(345)-JVS(5399)*XX(348) - XX(88) = XX(88)-JVS(2010)*XX(265)-JVS(3402)*XX(325)-JVS(4316)*XX(337)-JVS(4994)*XX(345) - XX(87) = XX(87)-JVS(4000)*XX(334)-JVS(4214)*XX(336)-JVS(4528)*XX(338)-JVS(4664)*XX(340)-JVS(4893)*XX(343)-JVS(4993)& - &*XX(345) - XX(86) = XX(86)-JVS(3999)*XX(334)-JVS(4213)*XX(336)-JVS(4527)*XX(338)-JVS(4663)*XX(340)-JVS(4892)*XX(343)-JVS(4992)& - &*XX(345) - XX(85) = XX(85)-JVS(3998)*XX(334)-JVS(4212)*XX(336)-JVS(4526)*XX(338)-JVS(4662)*XX(340)-JVS(4891)*XX(343)-JVS(4991)& - &*XX(345) - XX(84) = XX(84)-JVS(3997)*XX(334)-JVS(4211)*XX(336)-JVS(4525)*XX(338)-JVS(4661)*XX(340)-JVS(4890)*XX(343)-JVS(4990)& - &*XX(345) - XX(83) = XX(83)-JVS(3544)*XX(326)-JVS(4042)*XX(335)-JVS(4315)*XX(337)-JVS(4989)*XX(345) - XX(82) = XX(82)-JVS(1059)*XX(158)-JVS(1315)*XX(201)-JVS(1348)*XX(204)-JVS(1495)*XX(221)-JVS(1959)*XX(263)-JVS(2090)& - &*XX(270)-JVS(2534)*XX(294)-JVS(3092)*XX(314)-JVS(3766)*XX(329)-JVS(4314)*XX(337)-JVS(4988)*XX(345) - XX(81) = XX(81)-JVS(3996)*XX(334)-JVS(4828)*XX(342)-JVS(4889)*XX(343)-JVS(4987)*XX(345)-JVS(5370)*XX(347) - XX(80) = XX(80)-JVS(3401)*XX(325)-JVS(3690)*XX(328)-JVS(4041)*XX(335)-JVS(4313)*XX(337)-JVS(5492)*XX(351) - XX(79) = XX(79)-JVS(3765)*XX(329)-JVS(4312)*XX(337)-JVS(4573)*XX(339)-JVS(4660)*XX(340)-JVS(4986)*XX(345) - XX(78) = XX(78)-JVS(3995)*XX(334)-JVS(4827)*XX(342)-JVS(4888)*XX(343)-JVS(4985)*XX(345)-JVS(5369)*XX(347) - XX(77) = XX(77)-JVS(3911)*XX(331)-JVS(4826)*XX(342) - XX(76) = XX(76)-JVS(794)*XX(110)-JVS(3952)*XX(333)-JVS(4524)*XX(338)-JVS(4659)*XX(340)-JVS(4984)*XX(345) - XX(75) = XX(75)-JVS(3764)*XX(329)-JVS(4311)*XX(337)-JVS(4572)*XX(339)-JVS(4658)*XX(340)-JVS(4983)*XX(345) - XX(74) = XX(74)-JVS(1882)*XX(257)-JVS(2217)*XX(278)-JVS(4982)*XX(345) - XX(73) = XX(73)-JVS(3910)*XX(331)-JVS(4210)*XX(336)-JVS(4981)*XX(345) - XX(72) = XX(72)-JVS(3400)*XX(325)-JVS(4310)*XX(337)-JVS(4980)*XX(345) - XX(71) = XX(71)-JVS(1615)*XX(235)-JVS(1627)*XX(236)-JVS(4979)*XX(345) - XX(70) = XX(70)-JVS(2850)*XX(306)-JVS(4040)*XX(335)-JVS(4978)*XX(345) - XX(69) = XX(69)-JVS(1180)*XX(178)-JVS(3587)*XX(327)-JVS(4977)*XX(345)-JVS(5491)*XX(351) - XX(68) = XX(68)-JVS(3763)*XX(329)-JVS(4887)*XX(343)-JVS(4976)*XX(345)-JVS(5398)*XX(348) - XX(67) = XX(67)-JVS(3994)*XX(334)-JVS(4039)*XX(335)-JVS(4886)*XX(343)-JVS(5247)*XX(346) - XX(66) = XX(66)-JVS(2216)*XX(278)-JVS(4975)*XX(345) - XX(65) = XX(65)-JVS(1662)*XX(239)-JVS(4038)*XX(335) - XX(64) = XX(64)-JVS(1661)*XX(239)-JVS(4037)*XX(335) - XX(63) = XX(63)-JVS(3993)*XX(334)-JVS(5246)*XX(346) - XX(62) = XX(62)-JVS(1123)*XX(170)-JVS(3909)*XX(331)-JVS(5245)*XX(346) - XX(61) = XX(61)-JVS(3992)*XX(334)-JVS(4523)*XX(338)-JVS(4657)*XX(340)-JVS(4825)*XX(342)-JVS(4885)*XX(343)-JVS(5368)& - &*XX(347) - XX(60) = XX(60)-JVS(2009)*XX(265)-JVS(2089)*XX(270)-JVS(3762)*XX(329)-JVS(4309)*XX(337)-JVS(4974)*XX(345) - XX(59) = XX(59)-JVS(4036)*XX(335)-JVS(4824)*XX(342) - XX(58) = XX(58)-JVS(849)*XX(121)-JVS(4973)*XX(345) - XX(57) = XX(57)-JVS(2166)*XX(274)-JVS(4035)*XX(335) - XX(56) = XX(56)-JVS(1881)*XX(257)-JVS(4034)*XX(335) - XX(55) = XX(55)-JVS(724)*XX(96)-JVS(2341)*XX(284) - XX(54) = XX(54)-JVS(3991)*XX(334)-JVS(4823)*XX(342)-JVS(4884)*XX(343)-JVS(5367)*XX(347) - XX(53) = XX(53)-JVS(3990)*XX(334)-JVS(4822)*XX(342)-JVS(4883)*XX(343)-JVS(5366)*XX(347) - XX(52) = XX(52)-JVS(3689)*XX(328)-JVS(3908)*XX(331)-JVS(4209)*XX(336)-JVS(4972)*XX(345) - XX(51) = XX(51)-JVS(3989)*XX(334)-JVS(4522)*XX(338)-JVS(4656)*XX(340)-JVS(4882)*XX(343) - XX(50) = XX(50)-JVS(3988)*XX(334)-JVS(4521)*XX(338)-JVS(4655)*XX(340)-JVS(4881)*XX(343) - XX(49) = XX(49)-JVS(3987)*XX(334)-JVS(4520)*XX(338)-JVS(4654)*XX(340)-JVS(4880)*XX(343) - XX(48) = XX(48)-JVS(3986)*XX(334)-JVS(4519)*XX(338)-JVS(4653)*XX(340)-JVS(4879)*XX(343) - XX(47) = XX(47)-JVS(3985)*XX(334)-JVS(4518)*XX(338)-JVS(4652)*XX(340)-JVS(4878)*XX(343) - XX(46) = XX(46)-JVS(3984)*XX(334)-JVS(4517)*XX(338)-JVS(4651)*XX(340)-JVS(4877)*XX(343) - XX(45) = XX(45)-JVS(3586)*XX(327) - XX(44) = XX(44)-JVS(723)*XX(96)-JVS(2340)*XX(284)-JVS(3907)*XX(331) - XX(43) = XX(43)-JVS(4208)*XX(336)-JVS(4650)*XX(340)-JVS(4971)*XX(345) - XX(42) = XX(42)-JVS(722)*XX(96) - XX(41) = XX(41)-JVS(4970)*XX(345) + XX(124) = XX(124)-JVS(1011)*XX(152)-JVS(4050)*XX(338)-JVS(4302)*XX(341)-JVS(4883)*XX(345) + XX(123) = XX(123)-JVS(3651)*XX(332)-JVS(4589)*XX(343)-JVS(4826)*XX(344)-JVS(5295)*XX(351) + XX(122) = XX(122)-JVS(1244)*XX(190)-JVS(3861)*XX(335)-JVS(4301)*XX(341)-JVS(4588)*XX(343) + XX(121) = XX(121)-JVS(3156)*XX(319)-JVS(3580)*XX(330)-JVS(4300)*XX(341)-JVS(4587)*XX(343) + XX(120) = XX(120)-JVS(1647)*XX(239)-JVS(3101)*XX(317)-JVS(3445)*XX(329)-JVS(4586)*XX(343)-JVS(5613)*XX(356) + XX(119) = XX(119)-JVS(1756)*XX(248)-JVS(4825)*XX(344)-JVS(5352)*XX(352) + XX(118) = XX(118)-JVS(1349)*XX(206)-JVS(1634)*XX(238)-JVS(4585)*XX(343) + XX(117) = XX(117)-JVS(1367)*XX(207)-JVS(4299)*XX(341)-JVS(4584)*XX(343)-JVS(4882)*XX(345)-JVS(5439)*XX(353) + XX(116) = XX(116)-JVS(3349)*XX(328)-JVS(4298)*XX(341)-JVS(4583)*XX(343) + XX(115) = XX(115)-JVS(1434)*XX(216)-JVS(3444)*XX(329)-JVS(3860)*XX(335)-JVS(4582)*XX(343)-JVS(4881)*XX(345) + XX(114) = XX(114)-JVS(2869)*XX(309)-JVS(3443)*XX(329)-JVS(4297)*XX(341) + XX(113) = XX(113)-JVS(1792)*XX(250)-JVS(2868)*XX(309)-JVS(3859)*XX(335)-JVS(4581)*XX(343)-JVS(4880)*XX(345) + XX(112) = XX(112)-JVS(901)*XX(132)-JVS(2172)*XX(276)-JVS(3442)*XX(329)-JVS(4296)*XX(341)-JVS(4580)*XX(343) + XX(111) = XX(111)-JVS(1538)*XX(227)-JVS(1915)*XX(261)-JVS(2238)*XX(281)-JVS(4295)*XX(341)-JVS(4579)*XX(343) + XX(110) = XX(110)-JVS(4294)*XX(341)-JVS(4578)*XX(343)-JVS(4879)*XX(345)-JVS(5105)*XX(348)-JVS(5438)*XX(353) + XX(109) = XX(109)-JVS(2028)*XX(268)-JVS(2587)*XX(298)-JVS(3348)*XX(328)-JVS(3858)*XX(335)-JVS(4577)*XX(343) + XX(108) = XX(108)-JVS(3783)*XX(334)-JVS(4012)*XX(337)-JVS(4293)*XX(341)-JVS(4490)*XX(342)-JVS(4576)*XX(343)-JVS(5077)& + &*XX(347)-JVS(5437)*XX(353) + XX(107) = XX(107)-JVS(3630)*XX(331)-JVS(5351)*XX(352) + XX(106) = XX(106)-JVS(3678)*XX(333) + XX(105) = XX(105)-JVS(832)*XX(118)-JVS(1622)*XX(237)-JVS(4575)*XX(343)-JVS(4878)*XX(345) + XX(104) = XX(104)-JVS(2701)*XX(302)-JVS(2772)*XX(304)-JVS(4292)*XX(341)-JVS(4574)*XX(343) + XX(103) = XX(103)-JVS(1081)*XX(162)-JVS(1160)*XX(176)-JVS(1333)*XX(204)-JVS(1366)*XX(207)-JVS(1513)*XX(224)-JVS(1977)& + &*XX(266)-JVS(2116)*XX(274)-JVS(2586)*XX(298)-JVS(3128)*XX(318)-JVS(3857)*XX(335)-JVS(4291)*XX(341)-JVS(4573)& + &*XX(343) + XX(102) = XX(102)-JVS(2554)*XX(297)-JVS(3323)*XX(327)-JVS(4290)*XX(341)-JVS(4572)*XX(343) + XX(101) = XX(101)-JVS(2700)*XX(302)-JVS(3299)*XX(326)-JVS(4289)*XX(341)-JVS(4571)*XX(343) + XX(100) = XX(100)-JVS(1203)*XX(182)-JVS(2699)*XX(302)-JVS(4288)*XX(341)-JVS(4570)*XX(343) + XX(99) = XX(99)-JVS(2698)*XX(302)-JVS(3225)*XX(323)-JVS(4287)*XX(341)-JVS(4569)*XX(343) + XX(98) = XX(98)-JVS(3629)*XX(331)-JVS(3977)*XX(336)-JVS(4049)*XX(338)-JVS(4877)*XX(345) + XX(97) = XX(97)-JVS(2697)*XX(302)-JVS(4286)*XX(341)-JVS(4568)*XX(343)-JVS(4876)*XX(345) + XX(96) = XX(96)-JVS(3441)*XX(329)-JVS(4285)*XX(341)-JVS(4567)*XX(343)-JVS(4875)*XX(345) + XX(95) = XX(95)-JVS(3347)*XX(328)-JVS(3440)*XX(329)-JVS(3782)*XX(334)-JVS(4566)*XX(343) + XX(94) = XX(94)-JVS(2553)*XX(297)-JVS(4284)*XX(341)-JVS(4565)*XX(343)-JVS(4874)*XX(345) + XX(93) = XX(93)-JVS(972)*XX(146)-JVS(3439)*XX(329)-JVS(4564)*XX(343)-JVS(5574)*XX(355) + XX(92) = XX(92)-JVS(2027)*XX(268)-JVS(3438)*XX(329)-JVS(4283)*XX(341)-JVS(4563)*XX(343) + XX(91) = XX(91)-JVS(4011)*XX(337)-JVS(4562)*XX(343)-JVS(4824)*XX(344)-JVS(5294)*XX(351)-JVS(5350)*XX(352)-JVS(5436)& + &*XX(353) + XX(90) = XX(90)-JVS(4010)*XX(337)-JVS(4561)*XX(343)-JVS(4823)*XX(344)-JVS(5293)*XX(351)-JVS(5349)*XX(352)-JVS(5435)& + &*XX(353) + XX(89) = XX(89)-JVS(4009)*XX(337)-JVS(4560)*XX(343)-JVS(4822)*XX(344)-JVS(5292)*XX(351)-JVS(5348)*XX(352)-JVS(5434)& + &*XX(353) + XX(88) = XX(88)-JVS(4008)*XX(337)-JVS(4559)*XX(343)-JVS(4821)*XX(344)-JVS(5291)*XX(351)-JVS(5347)*XX(352)-JVS(5433)& + &*XX(353) + XX(87) = XX(87)-JVS(3437)*XX(329)-JVS(3677)*XX(333)-JVS(3781)*XX(334)-JVS(4558)*XX(343)-JVS(5104)*XX(348)-JVS(5573)& + &*XX(355) + XX(86) = XX(86)-JVS(3579)*XX(330)-JVS(4282)*XX(341)-JVS(4557)*XX(343)-JVS(4873)*XX(345) + XX(85) = XX(85)-JVS(1080)*XX(162)-JVS(1332)*XX(204)-JVS(1365)*XX(207)-JVS(1512)*XX(224)-JVS(1976)*XX(266)-JVS(2115)& + &*XX(274)-JVS(2585)*XX(298)-JVS(3127)*XX(318)-JVS(3856)*XX(335)-JVS(4281)*XX(341)-JVS(4556)*XX(343) + XX(84) = XX(84)-JVS(3855)*XX(335)-JVS(4200)*XX(340)-JVS(4280)*XX(341)-JVS(4555)*XX(343)-JVS(5346)*XX(352) + XX(83) = XX(83)-JVS(3436)*XX(329)-JVS(3780)*XX(334)-JVS(4279)*XX(341)-JVS(4872)*XX(345)-JVS(5103)*XX(348) + XX(82) = XX(82)-JVS(4007)*XX(337)-JVS(4489)*XX(342)-JVS(4554)*XX(343)-JVS(5076)*XX(347)-JVS(5290)*XX(351) + XX(81) = XX(81)-JVS(3628)*XX(331)-JVS(4488)*XX(342) + XX(80) = XX(80)-JVS(3854)*XX(335)-JVS(4199)*XX(340)-JVS(4278)*XX(341)-JVS(4553)*XX(343)-JVS(5345)*XX(352) + XX(79) = XX(79)-JVS(4006)*XX(337)-JVS(4487)*XX(342)-JVS(4552)*XX(343)-JVS(5075)*XX(347)-JVS(5289)*XX(351) + XX(78) = XX(78)-JVS(839)*XX(119)-JVS(3650)*XX(332)-JVS(4551)*XX(343)-JVS(4820)*XX(344)-JVS(5344)*XX(352) + XX(77) = XX(77)-JVS(1621)*XX(237)-JVS(1633)*XX(238)-JVS(4550)*XX(343) + XX(76) = XX(76)-JVS(1914)*XX(261)-JVS(2250)*XX(282)-JVS(4549)*XX(343) + XX(75) = XX(75)-JVS(3627)*XX(331)-JVS(4548)*XX(343)-JVS(5432)*XX(353) + XX(74) = XX(74)-JVS(3435)*XX(329)-JVS(4277)*XX(341)-JVS(4547)*XX(343) + XX(73) = XX(73)-JVS(2867)*XX(309)-JVS(4546)*XX(343)-JVS(4871)*XX(345) + XX(72) = XX(72)-JVS(1202)*XX(182)-JVS(3676)*XX(333)-JVS(4545)*XX(343)-JVS(5102)*XX(348) + XX(71) = XX(71)-JVS(3853)*XX(335)-JVS(4544)*XX(343)-JVS(5288)*XX(351)-JVS(5572)*XX(355) + XX(70) = XX(70)-JVS(4005)*XX(337)-JVS(4048)*XX(338)-JVS(4870)*XX(345)-JVS(5287)*XX(351) + XX(69) = XX(69)-JVS(2249)*XX(282)-JVS(4543)*XX(343) + XX(68) = XX(68)-JVS(1659)*XX(240)-JVS(4869)*XX(345) + XX(67) = XX(67)-JVS(1658)*XX(240)-JVS(4868)*XX(345) + XX(66) = XX(66)-JVS(4004)*XX(337)-JVS(4047)*XX(338) + XX(65) = XX(65)-JVS(1136)*XX(172)-JVS(3626)*XX(331)-JVS(4046)*XX(338) + XX(64) = XX(64)-JVS(4003)*XX(337)-JVS(4486)*XX(342)-JVS(4819)*XX(344)-JVS(5074)*XX(347)-JVS(5286)*XX(351)-JVS(5343)& + &*XX(352) + XX(63) = XX(63)-JVS(2026)*XX(268)-JVS(2114)*XX(274)-JVS(3852)*XX(335)-JVS(4276)*XX(341)-JVS(4542)*XX(343) + XX(62) = XX(62)-JVS(4485)*XX(342)-JVS(4867)*XX(345) + XX(61) = XX(61)-JVS(865)*XX(124)-JVS(4541)*XX(343) + XX(60) = XX(60)-JVS(2183)*XX(277)-JVS(4866)*XX(345) + XX(59) = XX(59)-JVS(1913)*XX(261)-JVS(4865)*XX(345) + XX(58) = XX(58)-JVS(736)*XX(98)-JVS(3976)*XX(336) + XX(57) = XX(57)-JVS(4002)*XX(337)-JVS(4484)*XX(342)-JVS(5073)*XX(347)-JVS(5285)*XX(351) + XX(56) = XX(56)-JVS(4001)*XX(337)-JVS(4483)*XX(342)-JVS(5072)*XX(347)-JVS(5284)*XX(351) + XX(55) = XX(55)-JVS(3625)*XX(331)-JVS(3779)*XX(334)-JVS(4540)*XX(343)-JVS(5431)*XX(353) + XX(54) = XX(54)-JVS(4000)*XX(337)-JVS(4818)*XX(344)-JVS(5283)*XX(351)-JVS(5342)*XX(352) + XX(53) = XX(53)-JVS(3999)*XX(337)-JVS(4817)*XX(344)-JVS(5282)*XX(351)-JVS(5341)*XX(352) + XX(52) = XX(52)-JVS(3998)*XX(337)-JVS(4816)*XX(344)-JVS(5281)*XX(351)-JVS(5340)*XX(352) + XX(51) = XX(51)-JVS(3997)*XX(337)-JVS(4815)*XX(344)-JVS(5280)*XX(351)-JVS(5339)*XX(352) + XX(50) = XX(50)-JVS(3996)*XX(337)-JVS(4814)*XX(344)-JVS(5279)*XX(351)-JVS(5338)*XX(352) + XX(49) = XX(49)-JVS(3995)*XX(337)-JVS(4813)*XX(344)-JVS(5278)*XX(351)-JVS(5337)*XX(352) + XX(48) = XX(48)-JVS(3675)*XX(333) + XX(47) = XX(47)-JVS(735)*XX(98)-JVS(3624)*XX(331)-JVS(3975)*XX(336) + XX(46) = XX(46)-JVS(4539)*XX(343)-JVS(5336)*XX(352)-JVS(5430)*XX(353) + XX(45) = XX(45)-JVS(734)*XX(98) + XX(44) = XX(44)-JVS(4538)*XX(343) + XX(43) = XX(43) + XX(42) = XX(42) + XX(41) = XX(41) XX(40) = XX(40) XX(39) = XX(39) XX(38) = XX(38) @@ -3692,9 +3704,9 @@ SUBROUTINE KppSolveTR ( JVS, X, XX ) XX(6) = XX(6) XX(5) = XX(5) XX(4) = XX(4) - XX(3) = XX(3)-JVS(3906)*XX(331)-JVS(4649)*XX(340) - XX(2) = XX(2)-JVS(3905)*XX(331)-JVS(4821)*XX(342) - XX(1) = XX(1)-JVS(3904)*XX(331) + XX(3) = XX(3)-JVS(3623)*XX(331)-JVS(5335)*XX(352) + XX(2) = XX(2)-JVS(3622)*XX(331)-JVS(4482)*XX(342) + XX(1) = XX(1)-JVS(3621)*XX(331) END SUBROUTINE KppSolveTR diff --git a/KPP/fullchem/gckpp_Monitor.F90 b/KPP/fullchem/gckpp_Monitor.F90 index 7ff7470eb..2fa2bab1b 100644 --- a/KPP/fullchem/gckpp_Monitor.F90 +++ b/KPP/fullchem/gckpp_Monitor.F90 @@ -2,7 +2,7 @@ ! ! Utility Data Module File ! -! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor +! Generated by KPP-3.3.0 symbolic chemistry Kinetics PreProcessor ! (https:/github.com/KineticPreProcessor/KPP ! KPP is distributed under GPL, the general public licence ! (http://www.gnu.org/copyleft/gpl.html) @@ -38,194 +38,195 @@ MODULE gckpp_Monitor 'LXRO2H ','LXRO2N ','XRO2 ', & ! index 25 - 27 'MSA ','SO4s ','SOAGX ', & ! index 28 - 30 'SOAIE ','PH2SO4 ','PSO4AQ ', & ! index 31 - 33 - 'POx ','LOx ','PCO ', & ! index 34 - 36 - 'LCO ','PSO4 ','LCH4 ', & ! index 37 - 39 - 'PH2O2 ','FURA ','I2O4 ', & ! index 40 - 42 - 'CH3CCl3 ','I2O2 ','MONITA ', & ! index 43 - 45 - 'CCl4 ','CFC11 ','CFC12 ', & ! index 46 - 48 - 'CFC113 ','CFC114 ','CFC115 ', & ! index 49 - 51 - 'CH3I ','H1301 ','H2402 ', & ! index 52 - 54 - 'I2O3 ','PINPAN ','LIMPAN ', & ! index 55 - 57 - 'TLFUONE ','BrNO2 ','C2H2 ', & ! index 58 - 60 - 'H1211 ','INO ','N2O ', & ! index 61 - 63 - 'NIT ','NITs ','PINONIC ', & ! index 64 - 66 - 'N ','OCS ','ALK6 ', & ! index 67 - 69 - 'ETHN ','BZCO3H ','HACTA ', & ! index 70 - 72 - 'HI ','PINO3H ','CHCl3 ', & ! index 73 - 75 - 'Cl2O2 ','IBr ','CH2Br2 ', & ! index 76 - 78 - 'CH2Cl2 ','MPN ','CHBr3 ', & ! index 79 - 81 - 'TOLU ','ETNO3 ','HCFC123 ', & ! index 82 - 84 - 'HCFC141b ','HCFC142b ','HCFC22 ', & ! index 85 - 87 - 'HMHP ','HMS ','BZPAN ' /) ! index up to 90 + 'PSO4MP ','PHMSAQ ','PHMSMP ', & ! index 34 - 36 + 'POx ','LOx ','PCO ', & ! index 37 - 39 + 'LCO ','PSO4 ','LCH4 ', & ! index 40 - 42 + 'PH2O2 ','FURA ','I2O4 ', & ! index 43 - 45 + 'CH3CCl3 ','I2O2 ','MONITA ', & ! index 46 - 48 + 'CCl4 ','CFC11 ','CFC12 ', & ! index 49 - 51 + 'CFC113 ','CFC114 ','CFC115 ', & ! index 52 - 54 + 'CH3I ','H1301 ','H2402 ', & ! index 55 - 57 + 'I2O3 ','PINPAN ','LIMPAN ', & ! index 58 - 60 + 'TLFUONE ','BrNO2 ','C2H2 ', & ! index 61 - 63 + 'H1211 ','INO ','N2O ', & ! index 64 - 66 + 'NIT ','NITs ','PINONIC ', & ! index 67 - 69 + 'N ','OCS ','ALK6 ', & ! index 70 - 72 + 'ETHN ','HACTA ','HI ', & ! index 73 - 75 + 'PINO3H ','BZCO3H ','Cl2O2 ', & ! index 76 - 78 + 'CH2Br2 ','CH2Cl2 ','IBr ', & ! index 79 - 81 + 'CHBr3 ','MPN ','CHCl3 ', & ! index 82 - 84 + 'TOLU ','ETNO3 ','DMS ', & ! index 85 - 87 + 'HCFC123 ','HCFC141b ','HCFC142b ' /) ! index up to 90 CHARACTER(LEN=32), PARAMETER, DIMENSION(90) :: SPC_NAMES_1 = (/ & - 'IPRNO3 ','MAP ','MENO3 ', & ! index 91 - 93 - 'DMS ','NPRNO3 ','OIO ', & ! index 94 - 96 - 'R4P ','R7P ','RA3P ', & ! index 97 - 99 - 'RB3P ','XYLE ','ALK4P ', & ! index 100 - 102 - 'IONITA ','ICl ','CH3Br ', & ! index 103 - 105 - 'ETO ','HMML ','HNO4 ', & ! index 106 - 108 - 'C2H4 ','ClOO ','APINP ', & ! index 109 - 111 - 'BPINP ','MEKPN ','PHAN ', & ! index 112 - 114 - 'PYAC ','RNO3 ','BENZP ', & ! index 115 - 117 - 'ETP ','IDC ','OClO ', & ! index 118 - 120 - 'TLFUO2 ','AROMPN ','PP ', & ! index 121 - 123 - 'PPN ','PRPN ','APAN ', & ! index 124 - 126 - 'BUTN ','IEPOXD ','BPINO ', & ! index 127 - 129 - 'LIMO2H ','MVKDH ','ACRO2 ', & ! index 130 - 132 - 'HPALD1OO ','SO4 ','HPALD2OO ', & ! index 133 - 135 - 'ETHP ','APINN ','BPINN ', & ! index 136 - 138 - 'PAN ','C4H6 ','C3H8 ', & ! index 139 - 141 - 'ALK4 ','BENZ ','HPALD4 ', & ! index 142 - 144 - 'INA ','AROMCHO ','IDCHP ', & ! index 145 - 147 - 'Br2 ','EBZ ','HPALD3 ', & ! index 148 - 150 - 'IEPOXA ','IEPOXB ','MCRDH ', & ! index 151 - 153 - 'HONIT ','RP ','EOH ', & ! index 154 - 156 - 'BrCl ','CSL ','MACR1OOH ', & ! index 157 - 159 - 'C96O2H ','BPINOOH ','BPINON ', & ! index 160 - 162 - 'LIMKB ','MP ','R7N1 ', & ! index 163 - 165 - 'SALCAL ','LIMO ','IHN3 ', & ! index 166 - 168 - 'LIMO3H ','I2 ','C4HVP1 ', & ! index 169 - 171 - 'C4HVP2 ','RCOOH ','IDHDP ', & ! index 172 - 174 - 'IHN2 ','C96N ','LIMNB ', & ! index 175 - 177 - 'R7O2 ','SALAAL ','IDNOO ' /) ! index up to 180 + 'HCFC22 ','HMHP ','HMS ', & ! index 91 - 93 + 'IPRNO3 ','MAP ','MENO3 ', & ! index 94 - 96 + 'NPRNO3 ','OIO ','R4P ', & ! index 97 - 99 + 'R7P ','RA3P ','RB3P ', & ! index 100 - 102 + 'XYLE ','ALK4P ','BZPAN ', & ! index 103 - 105 + 'IONITA ','ICl ','CH3Br ', & ! index 106 - 108 + 'HMML ','HNO4 ','APINP ', & ! index 109 - 111 + 'BPINP ','MEKPN ','ETO ', & ! index 112 - 114 + 'PHAN ','PYAC ','RNO3 ', & ! index 115 - 117 + 'BENZP ','ClOO ','C2H4 ', & ! index 118 - 120 + 'ETP ','IDC ','OClO ', & ! index 121 - 123 + 'TLFUO2 ','AROMPN ','PP ', & ! index 124 - 126 + 'PPN ','PRPN ','APAN ', & ! index 127 - 129 + 'BUTN ','IEPOXD ','BPINO ', & ! index 130 - 132 + 'ACRO2 ','LIMO2H ','MVKDH ', & ! index 133 - 135 + 'HPALD2OO ','HPALD1OO ','ETHP ', & ! index 136 - 138 + 'APINN ','C4H6 ','BPINN ', & ! index 139 - 141 + 'C3H8 ','PAN ','ALK4 ', & ! index 142 - 144 + 'BENZ ','SO4 ','INA ', & ! index 145 - 147 + 'EBZ ','IDCHP ','HPALD3 ', & ! index 148 - 150 + 'HPALD4 ','AROMCHO ','Br2 ', & ! index 151 - 153 + 'EOH ','MCRDH ','HONIT ', & ! index 154 - 156 + 'IEPOXA ','RP ','IEPOXB ', & ! index 157 - 159 + 'BrCl ','MACR1OOH ','CSL ', & ! index 160 - 162 + 'C96O2H ','BPINOOH ','BPINON ', & ! index 163 - 165 + 'LIMKB ','MP ','R7N1 ', & ! index 166 - 168 + 'SALCAL ','LIMO ','LIMO3H ', & ! index 169 - 171 + 'I2 ','C4HVP1 ','C4HVP2 ', & ! index 172 - 174 + 'IHN2 ','RCOOH ','IHN3 ', & ! index 175 - 177 + 'IDHDP ','C96N ','LIMNB ' /) ! index up to 180 CHARACTER(LEN=32), PARAMETER, DIMENSION(90) :: SPC_NAMES_2 = (/ & - 'CH3Cl ','ICNOO ','C2H6 ', & ! index 181 - 183 - 'MPAN ','MVKPC ','INPD ', & ! index 184 - 186 - 'RIPA ','ROH ','ZRO2 ', & ! index 187 - 189 - 'ISOPNOO2 ','MTPA ','RIPB ', & ! index 190 - 192 - 'PIN ','MCRENOL ','PHEN ', & ! index 193 - 195 - 'R7N2 ','ACO3 ','IDHPE ', & ! index 196 - 198 - 'RIPD ','TMB ','AROMP5 ', & ! index 199 - 201 - 'MCT ','BENZO ','BALD ', & ! index 202 - 204 - 'ISOPNOO1 ','IDHNDOO1 ','IDHNDOO2 ', & ! index 205 - 207 - 'MVKHC ','RIPC ','HPETHNL ', & ! index 208 - 210 - 'LIMN ','BUTO2 ','GCO3 ', & ! index 211 - 213 - 'N2O5 ','ICHE ','MCRHNB ', & ! index 214 - 216 - 'H ','BrNO3 ','MTPO ', & ! index 217 - 219 - 'STYR ','AROMP4 ','INPB ', & ! index 220 - 222 - 'IHPOO1 ','IHPOO2 ','PINAL ', & ! index 223 - 225 - 'IHPNDOO ','MVKHCB ','CH4 ', & ! index 226 - 228 - 'PIP ','HPALD1 ','HPALD2 ', & ! index 229 - 231 - 'IHPOO3 ','ACR ','ETOO ', & ! index 232 - 234 - 'BZCO3 ','BENZO2 ','LIMKET ', & ! index 235 - 237 - 'HC5A ','HNO2 ','AROMCO3 ', & ! index 238 - 240 - 'CH3CHOO ','MONITU ','ICHOO ', & ! index 241 - 243 - 'ATOOH ','Cl2 ','MEKCO3 ', & ! index 244 - 246 - 'PROPNN ','MCRHN ','ALK4N1 ', & ! index 247 - 249 - 'PRN1 ','R4N2 ','IONO ', & ! index 250 - 252 - 'MCROHOO ','MVKOHOO ','LIMAL ', & ! index 253 - 255 - 'MONITS ','PINO3 ','ICPDH ', & ! index 256 - 258 - 'MACR1OO ','PO2 ','ETHLN ', & ! index 259 - 261 - 'MYRCO ','AROMRO2 ','H2O2 ', & ! index 262 - 264 - 'HCOOH ','ITCN ','IHN4 ', & ! index 265 - 267 - 'IHN1 ','NPHEN ','GLYX ' /) ! index up to 270 - CHARACTER(LEN=32), PARAMETER, DIMENSION(86) :: SPC_NAMES_3 = (/ & - 'IHPNBOO ','LIMKO2 ','BPINOO2 ', & ! index 271 - 273 - 'LIMO3 ','BPINO2 ','ISOP ', & ! index 274 - 276 - 'APINO2 ','C96O2 ','ALK4N2 ', & ! index 277 - 279 - 'OLNN ','LIMO2 ','MOH ', & ! index 280 - 282 - 'ACTA ','IO ','IEPOXBOO ', & ! index 283 - 285 - 'IEPOXAOO ','MCRHP ','MVKHP ', & ! index 286 - 288 - 'OLND ','PRPE ','PIO2 ', & ! index 289 - 291 - 'MEK ','IDHNBOO ','MGLY ', & ! index 292 - 294 - 'ACET ','ETO2 ','ClNO2 ', & ! index 295 - 297 - 'RCHO ','IDN ','ALK4O2 ', & ! index 298 - 300 - 'ICN ','MVKN ','ITHN ', & ! index 301 - 303 - 'IHOO4 ','IHOO1 ','GLYC ', & ! index 304 - 306 - 'HAC ','MACRNO2 ','MACR ', & ! index 307 - 309 - 'INO2B ','INO2D ','CH2OO ', & ! index 310 - 312 - 'ATO2 ','MVK ','OTHRO2 ', & ! index 313 - 315 - 'HOBr ','ClNO3 ','R4N1 ', & ! index 316 - 318 - 'R4O2 ','KO2 ','A3O2 ', & ! index 319 - 321 - 'RCO3 ','B3O2 ','MCO3 ', & ! index 322 - 324 - 'CH2O ','ALD2 ','HNO3 ', & ! index 325 - 327 - 'MO2 ','CO ','HOI ', & ! index 328 - 330 - 'I ','IONO2 ','HOCl ', & ! index 331 - 333 - 'O1D ','NO2 ','H2O ', & ! index 334 - 336 - 'HO2 ','ClO ','HCl ', & ! index 337 - 339 - 'Cl ','O3 ','Br ', & ! index 340 - 342 - 'O ','SALCCL ','OH ', & ! index 343 - 345 - 'NO ','BrO ','SO2 ', & ! index 346 - 348 - 'BrSALA ','BrSALC ','NO3 ', & ! index 349 - 351 - 'HBr ','SALACL ','H2 ', & ! index 352 - 354 - 'N2 ','O2 ' /) ! index up to 356 - CHARACTER(LEN=32), PARAMETER, DIMENSION(356) :: SPC_NAMES = (/& + 'IDNOO ','R7O2 ','SALAAL ', & ! index 181 - 183 + 'CH3Cl ','ICNOO ','ISOPNOO2 ', & ! index 184 - 186 + 'C2H6 ','INPD ','MPAN ', & ! index 187 - 189 + 'MVKPC ','RIPA ','ROH ', & ! index 190 - 192 + 'ZRO2 ','MTPA ','RIPB ', & ! index 193 - 195 + 'PIN ','MCRENOL ','IDHPE ', & ! index 196 - 198 + 'PHEN ','R7N2 ','ACO3 ', & ! index 199 - 201 + 'RIPD ','TMB ','AROMP5 ', & ! index 202 - 204 + 'MCT ','BENZO ','BALD ', & ! index 205 - 207 + 'IDHNDOO2 ','IDHNDOO1 ','ISOPNOO1 ', & ! index 208 - 210 + 'MVKHC ','LIMN ','RIPC ', & ! index 211 - 213 + 'HPETHNL ','BUTO2 ','GCO3 ', & ! index 214 - 216 + 'N2O5 ','ICHE ','H ', & ! index 217 - 219 + 'MCRHNB ','BrNO3 ','MTPO ', & ! index 220 - 222 + 'STYR ','AROMP4 ','INPB ', & ! index 223 - 225 + 'IHPOO2 ','PINAL ','IHPOO1 ', & ! index 226 - 228 + 'ACR ','MVKHCB ','HPALD2 ', & ! index 229 - 231 + 'CH4 ','HPALD1 ','PIP ', & ! index 232 - 234 + 'IHPOO3 ','IHPNDOO ','BZCO3 ', & ! index 235 - 237 + 'BENZO2 ','ETOO ','HNO2 ', & ! index 238 - 240 + 'LIMKET ','HC5A ','AROMCO3 ', & ! index 241 - 243 + 'CH3CHOO ','ICHOO ','MONITU ', & ! index 244 - 246 + 'ATOOH ','Cl2 ','PROPNN ', & ! index 247 - 249 + 'MEKCO3 ','MCRHN ','ALK4N1 ', & ! index 250 - 252 + 'PRN1 ','IONO ','R4N2 ', & ! index 253 - 255 + 'LIMAL ','MCROHOO ','MVKOHOO ', & ! index 256 - 258 + 'ICPDH ','MONITS ','PINO3 ', & ! index 259 - 261 + 'MACR1OO ','MYRCO ','PO2 ', & ! index 262 - 264 + 'ETHLN ','AROMRO2 ','H2O2 ', & ! index 265 - 267 + 'HCOOH ','ITCN ','IHN4 ' /) ! index up to 270 + CHARACTER(LEN=32), PARAMETER, DIMENSION(89) :: SPC_NAMES_3 = (/ & + 'IHN1 ','NPHEN ','IHPNBOO ', & ! index 271 - 273 + 'GLYX ','BPINOO2 ','BPINO2 ', & ! index 274 - 276 + 'LIMO3 ','LIMKO2 ','ISOP ', & ! index 277 - 279 + 'OLNN ','APINO2 ','C96O2 ', & ! index 280 - 282 + 'ALK4N2 ','LIMO2 ','MOH ', & ! index 283 - 285 + 'ACTA ','HOI ','IEPOXBOO ', & ! index 286 - 288 + 'IEPOXAOO ','MCRHP ','MVKHP ', & ! index 289 - 291 + 'OLND ','PRPE ','PIO2 ', & ! index 292 - 294 + 'MEK ','IONO2 ','ACET ', & ! index 295 - 297 + 'MGLY ','IDHNBOO ','ETO2 ', & ! index 298 - 300 + 'ClNO2 ','RCHO ','IDN ', & ! index 301 - 303 + 'ALK4O2 ','ICN ','MVKN ', & ! index 304 - 306 + 'ITHN ','INO2B ','GLYC ', & ! index 307 - 309 + 'INO2D ','HAC ','MACRNO2 ', & ! index 310 - 312 + 'MACR ','IHOO1 ','IHOO4 ', & ! index 313 - 315 + 'ATO2 ','CH2OO ','MVK ', & ! index 316 - 318 + 'OTHRO2 ','HOBr ','ClNO3 ', & ! index 319 - 321 + 'R4N1 ','R4O2 ','KO2 ', & ! index 322 - 324 + 'RCO3 ','A3O2 ','B3O2 ', & ! index 325 - 327 + 'MCO3 ','CH2O ','ALD2 ', & ! index 328 - 330 + 'I ','HOCl ','HNO3 ', & ! index 331 - 333 + 'MO2 ','CO ','IO ', & ! index 334 - 336 + 'O1D ','NO ','SALACL ', & ! index 337 - 339 + 'HCl ','HO2 ','Br ', & ! index 340 - 342 + 'OH ','ClO ','NO2 ', & ! index 343 - 345 + 'SALCCL ','BrO ','NO3 ', & ! index 346 - 348 + 'BrSALA ','BrSALC ','O ', & ! index 349 - 351 + 'Cl ','H2O ','HBr ', & ! index 352 - 354 + 'SO2 ','O3 ','H2 ', & ! index 355 - 357 + 'N2 ','O2 ' /) ! index up to 359 + CHARACTER(LEN=32), PARAMETER, DIMENSION(359) :: SPC_NAMES = (/& SPC_NAMES_0, SPC_NAMES_1, SPC_NAMES_2, SPC_NAMES_3 /) INTEGER, DIMENSION(1) :: LOOKAT INTEGER, DIMENSION(1) :: MONITOR CHARACTER(LEN=32), DIMENSION(1) :: SMASS CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_0 = (/ & - 'SALAAL + O3 + SO2 --> LOx + PSO4 + SO4 - SALAAL ', & ! index 1 + 'SALAAL + SO2 + O3 --> LOx + PSO4 + SO4 - SALAAL ', & ! index 1 ' SALAAL + HCl --> SALACL ', & ! index 2 ' SALAAL + HNO3 --> NIT ', & ! index 3 - 'SALCAL + O3 + SO2 --> SO4s + LOx - SALCAL ', & ! index 4 + 'SALCAL + SO2 + O3 --> SO4s + LOx - SALCAL ', & ! index 4 ' SALCAL + HCl --> SALCCL ', & ! index 5 ' SALCAL + HNO3 --> NITs ', & ! index 6 - ' H2O2 + SO2 --> PSO4 + SO4 ', & ! index 7 - ' O3 + SO2 --> LOx + PSO4 + SO4 ', & ! index 8 - ' SO2 --> PSO4 + SO4 ', & ! index 9 - ' CH2O + SO2 --> HMS ', & ! index 10 + ' H2O2 + SO2 --> PSO4AQ + PSO4 + SO4 ', & ! index 7 + ' SO2 + O3 --> PSO4AQ + LOx + PSO4 + SO4 ', & ! index 8 + ' SO2 --> PSO4AQ + PSO4 + SO4 ', & ! index 9 + ' CH2O + SO2 --> PHMSAQ + HMS ', & ! index 10 ' HMS --> CH2O + SO2 ', & ! index 11 ' HMS + OH + SO2 --> 2 PSO4AQ + 2 PSO4 + 2 SO4 + CH2O ', & ! index 12 - ' O3 + NO --> NO2 + O2 ', & ! index 13 - ' O3 + OH --> LOx + HO2 + O2 ', & ! index 14 + ' NO + O3 --> NO2 + O2 ', & ! index 13 + ' OH + O3 --> LOx + HO2 + O2 ', & ! index 14 ' HO2 + O3 --> LOx + OH + 2 O2 ', & ! index 15 ' NO2 + O3 --> NO3 + O2 ', & ! index 16 ' MO2 + O3 --> LOx + CH2O + HO2 + O2 ', & ! index 17 - ' 2 OH --> POx + H2O + O ', & ! index 18 + ' 2 OH --> POx + O + H2O ', & ! index 18 ' 2 OH --> PH2O2 + H2O2 ', & ! index 19 ' HO2 + OH --> H2O + O2 ', & ! index 20 - ' H2O2 + OH --> H2O + HO2 ', & ! index 21 - ' HO2 + NO --> POx + NO2 + OH ', & ! index 22 + ' H2O2 + OH --> HO2 + H2O ', & ! index 21 + ' NO + HO2 --> POx + OH + NO2 ', & ! index 22 ' 2 HO2 --> PH2O2 + H2O2 + O2 ', & ! index 23 ' CO + OH --> CO2 + LCO + HO2 ', & ! index 24 ' CH4 + OH --> LCH4 + MO2 + H2O ', & ! index 25 - ' MO2 + NO --> POx + CH2O + NO2 + HO2 ', & ! index 26 + ' MO2 + NO --> POx + CH2O + HO2 + NO2 ', & ! index 26 ' MO2 + NO --> MENO3 ', & ! index 27 ' MO2 + HO2 --> MP + O2 ', & ! index 28 ' 2 MO2 --> MOH + CH2O + O2 ', & ! index 29 ' 2 MO2 --> 2 CH2O + 2 HO2 ' /) ! index up to 30 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_1 = (/ & ' MO2 + OH --> 0.13 MOH + 0.87 CH2O + 1.74 HO2 ', & ! index 31 - ' MP + OH --> 0.3 CH2O + 0.7 MO2 + H2O + 0.3 OH ', & ! index 32 - ' ATOOH + OH --> 0.3 MGLY + 0.7 ATO2 + H2O + 0.3 OH ', & ! index 33 - ' CH2O + OH --> PCO + CO + H2O + HO2 ', & ! index 34 - ' NO2 + OH --> HNO3 ', & ! index 35 - ' HNO3 + OH --> POx + H2O + NO3 ', & ! index 36 - ' OH + NO --> HNO2 ', & ! index 37 + ' MP + OH --> 0.3 CH2O + 0.7 MO2 + 0.3 OH + H2O ', & ! index 32 + ' ATOOH + OH --> 0.3 MGLY + 0.7 ATO2 + 0.3 OH + H2O ', & ! index 33 + ' CH2O + OH --> PCO + CO + HO2 + H2O ', & ! index 34 + ' OH + NO2 --> HNO3 ', & ! index 35 + ' HNO3 + OH --> POx + NO3 + H2O ', & ! index 36 + ' NO + OH --> HNO2 ', & ! index 37 ' HNO2 + OH --> POx + NO2 + H2O ', & ! index 38 - ' NO2 + HO2 --> HNO4 ', & ! index 39 - ' HNO4 --> NO2 + HO2 ', & ! index 40 + ' HO2 + NO2 --> HNO4 ', & ! index 39 + ' HNO4 --> HO2 + NO2 ', & ! index 40 ' HNO4 + OH --> NO2 + H2O + O2 ', & ! index 41 - ' HO2 + NO3 --> LOx + NO2 + OH + O2 ', & ! index 42 + ' HO2 + NO3 --> LOx + OH + NO2 + O2 ', & ! index 42 ' NO + NO3 --> 2 NO2 ', & ! index 43 - ' OH + NO3 --> LOx + NO2 + HO2 ', & ! index 44 + ' OH + NO3 --> LOx + HO2 + NO2 ', & ! index 44 ' NO2 + NO3 --> N2O5 ', & ! index 45 ' N2O5 --> NO2 + NO3 ', & ! index 46 - ' HCOOH + OH --> CO2 + H2O + HO2 ', & ! index 47 + ' HCOOH + OH --> CO2 + HO2 + H2O ', & ! index 47 ' MOH + OH --> CH2O + HO2 ', & ! index 48 - ' NO2 + NO3 --> 2 LOx + NO2 + NO + O2 ', & ! index 49 + ' NO2 + NO3 --> 2 LOx + NO + NO2 + O2 ', & ! index 49 ' CH2O + NO3 --> LOx + PCO + HNO3 + CO + HO2 ', & ! index 50 - ' ALD2 + OH --> 0.05 PCO + 0.95 MCO3 + 0.05 CH2O + 0.05 CO + H2O + 0.05 HO2 ', & ! index 51 + ' ALD2 + OH --> 0.05 PCO + 0.95 MCO3 + 0.05 CH2O + 0.05 CO + 0.05 HO2 + H2O ', & ! index 51 ' ALD2 + NO3 --> LOx + MCO3 + HNO3 ', & ! index 52 ' MCO3 + NO2 --> PAN ', & ! index 53 ' PAN --> MCO3 + NO2 ', & ! index 54 ' PAN + OH --> PCO + CH2O + CO + NO2 ', & ! index 55 ' MCO3 + NO --> CO2 + POx + MO2 + NO2 ', & ! index 56 ' C2H6 + OH --> ETO2 + H2O ', & ! index 57 - ' ETO2 + NO --> POx + ALD2 + NO2 + HO2 ', & ! index 58 + ' ETO2 + NO --> POx + ALD2 + HO2 + NO2 ', & ! index 58 ' ETO2 + NO --> ETNO3 ', & ! index 59 - ' OTHRO2 + NO --> POx + ALD2 + NO2 + HO2 ' /) ! index up to 60 + ' OTHRO2 + NO --> POx + ALD2 + HO2 + NO2 ' /) ! index up to 60 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_2 = (/ & ' C3H8 + OH --> B3O2 ', & ! index 61 ' C3H8 + OH --> A3O2 ', & ! index 62 - ' A3O2 + NO --> POx + RCHO + NO2 + HO2 ', & ! index 63 + ' A3O2 + NO --> POx + RCHO + HO2 + NO2 ', & ! index 63 ' A3O2 + NO --> NPRNO3 ', & ! index 64 - ' PO2 + NO --> POx + CH2O + ALD2 + NO2 + HO2 ', & ! index 65 + ' PO2 + NO --> POx + CH2O + ALD2 + HO2 + NO2 ', & ! index 65 ' ALK6 + OH --> R7O2 ', & ! index 66 ' ALK6 + NO3 --> LOx + R7O2 + HNO3 ', & ! index 67 - ' R7O2 + NO --> POx + 0.25 MEK + 0.75 RCHO + 0.25 R4O2 + NO2 + 0.75 HO2 ', & ! index 68 + ' R7O2 + NO --> POx + 0.25 MEK + 0.75 RCHO + 0.25 R4O2 + 0.75 HO2 + NO2 ', & ! index 68 ' R7O2 + NO --> R7N2 ', & ! index 69 ' R7O2 + HO2 --> R7P ', & ! index 70 ' R7P + OH --> 0.5 R7O2 + 0.5 RCHO + 0.5 OH ', & ! index 71 @@ -235,14 +236,14 @@ MODULE gckpp_Monitor ' C4H6 + OH --> BUTO2 ', & ! index 75 ' C4H6 + NO3 --> LOx + ACR + CH2O + NO2 ', & ! index 76 ' C4H6 + O3 --> LOx + ACR + CH2O ', & ! index 77 - ' BUTO2 + NO --> 0.942 POx + 0.058 BUTN + 0.73 ACR + 0.326 RCHO + 0.603 CH2O + 0.942 NO... etc.', & ! index 78 + ' BUTO2 + NO --> 0.942 POx + 0.058 BUTN + 0.73 ACR + 0.326 RCHO + 0.603 CH2O + 0.513 HO... etc.', & ! index 78 ' BUTO2 + HO2 --> 0.894 RCHO + 0.659 GLYC ', & ! index 79 - ' BUTN + OH --> POx + PCO + GLYC + CH2O + CO + NO2 + HO2 ', & ! index 80 + ' BUTN + OH --> POx + PCO + GLYC + CH2O + CO + HO2 + NO2 ', & ! index 80 ' ACR + OH --> 0.255 ACRO2 + 0.68 ACO3 + 0.065 GLYX + 0.065 CH2O + 0.425 HO2 ', & ! index 81 - ' ACRO2 + NO --> POx + PCO + GLYC + CO + NO2 + HO2 ', & ! index 82 + ' ACRO2 + NO --> POx + PCO + GLYC + CO + HO2 + NO2 ', & ! index 82 ' ACRO2 + HO2 --> PCO + GLYC + CO + HO2 ', & ! index 83 ' ACO3 + HO2 --> PCO + 0.5 GLYC + CH2O + CO + 0.25 HO2 + 0.25 OH ', & ! index 84 - ' ACO3 + NO --> POx + PCO + CH2O + CO + NO2 + HO2 ', & ! index 85 + ' ACO3 + NO --> POx + PCO + CH2O + CO + HO2 + NO2 ', & ! index 85 ' ACO3 + NO2 --> LOx + APAN ', & ! index 86 ' APAN --> POx + ACO3 + NO2 ', & ! index 87 ' APAN + OH --> 2 POx + PCO + GLYC + CO + NO3 ', & ! index 88 @@ -256,7 +257,7 @@ MODULE gckpp_Monitor ' R4N1 + NO --> POx + 0.64 RCHO + 0.64 CH2O + 0.97 ALD2 + 2 NO2 ', & ! index 95 ' ATO2 + NO --> POx + MCO3 + CH2O + NO2 ', & ! index 96 ' KO2 + NO --> POx + 0.072 ALK4N2 + 0.919 MCO3 + 0.919 ALD2 + 0.928 NO2 ', & ! index 97 - ' B3O2 + NO --> POx + ACET + NO2 + HO2 ', & ! index 98 + ' B3O2 + NO --> POx + ACET + HO2 + NO2 ', & ! index 98 ' B3O2 + NO --> IPRNO3 ', & ! index 99 ' PRN1 + NO --> POx + CH2O + ALD2 + 2 NO2 ', & ! index 100 ' ALK4 + NO3 --> LOx + ALK4O2 + HNO3 ', & ! index 101 @@ -287,7 +288,7 @@ MODULE gckpp_Monitor ' MEKPN --> POx + MEKCO3 + NO2 ', & ! index 125 ' MEKPN + OH --> POx + PCO + GLYC + CO + NO2 ', & ! index 126 ' MEKCO3 + NO --> CO2 + POx + ETOO + NO2 ', & ! index 127 - ' MEKCO3 + HO2 --> 0.44 CO2 + 0.15 POx + 0.41 RP + 0.15 RCOOH + 0.44 ETOO + 0.15 O3 + 0.44 OH ', & ! index 128 + ' MEKCO3 + HO2 --> 0.44 CO2 + 0.15 POx + 0.41 RP + 0.15 RCOOH + 0.44 ETOO + 0.44 OH + 0.15 O3 ', & ! index 128 ' ETO2 + MO2 --> 0.25 EOH + 0.25 MOH + 0.75 CH2O + 0.75 ALD2 + HO2 ', & ! index 129 ' OTHRO2 + MO2 --> 0.25 EOH + 0.25 MOH + 0.75 CH2O + 0.75 ALD2 + HO2 ', & ! index 130 ' MEK + NO3 --> LOx + KO2 + HNO3 ', & ! index 131 @@ -298,7 +299,7 @@ MODULE gckpp_Monitor ' ATO2 + MO2 --> 0.3 CO2 + 0.5 MOH + 0.5 MGLY + 0.2 HAC + 0.3 MCO3 + 0.5 CH2O + 0.3 HO2 ', & ! index 136 ' KO2 + MO2 --> 0.25 ROH + 0.25 MOH + 0.25 MEK + 0.5 MCO3 + 0.75 CH2O + 0.5 ALD2 + 0.2... etc.', & ! index 137 ' B3O2 + MO2 --> 0.25 ROH + 0.25 MOH + 0.75 ACET + 0.75 CH2O + HO2 ', & ! index 138 - ' PRN1 + MO2 --> 0.25 ROH + 0.25 MOH + 0.25 RCHO + 1.25 CH2O + 0.5 ALD2 + NO2 + 0.5 HO2 ', & ! index 139 + ' PRN1 + MO2 --> 0.25 ROH + 0.25 MOH + 0.25 RCHO + 1.25 CH2O + 0.5 ALD2 + 0.5 HO2 + NO2 ', & ! index 139 ' EOH + OH --> ALD2 + HO2 ', & ! index 140 ' ROH + OH --> RCHO + HO2 ', & ! index 141 ' 2 ETO2 --> 0.4 EOH + 1.6 ALD2 + 1.2 HO2 ', & ! index 142 @@ -317,9 +318,9 @@ MODULE gckpp_Monitor ' GLYC + NO3 --> LOx + GCO3 + HNO3 ', & ! index 154 ' GCO3 + NO2 --> LOx + PHAN ', & ! index 155 ' PHAN --> POx + GCO3 + NO2 ', & ! index 156 - ' GCO3 + NO --> POx + CH2O + NO2 + HO2 ', & ! index 157 - ' GCO3 + HO2 --> 0.44 CO2 + 0.15 POx + 0.56 HACTA + 0.44 CH2O + 0.44 HO2 + 0.15 O3 + 0.44 OH ', & ! index 158 - ' GCO3 + NO3 --> LOx + CH2O + NO2 + HO2 ', & ! index 159 + ' GCO3 + NO --> POx + CH2O + HO2 + NO2 ', & ! index 157 + ' GCO3 + HO2 --> 0.44 CO2 + 0.15 POx + 0.56 HACTA + 0.44 CH2O + 0.44 HO2 + 0.44 OH + 0.15 O3 ', & ! index 158 + ' GCO3 + NO3 --> LOx + CH2O + HO2 + NO2 ', & ! index 159 ' PHAN + OH --> POx + PCO + CH2O + CO + NO2 ', & ! index 160 ' HACTA + OH --> CH2O + HO2 ', & ! index 161 ' PRPE + NO3 --> LOx + PRN1 ', & ! index 162 @@ -364,13 +365,13 @@ MODULE gckpp_Monitor ' DMS + OH --> 0.25 MSA + MO2 + 0.75 SO2 ', & ! index 200 ' DMS + NO3 --> LOx + CH2O + HNO3 + MO2 + SO2 ', & ! index 201 ' OH + SO2 --> PH2SO4 + PSO4 + SO4 + HO2 ', & ! index 202 - ' O3 + Br --> BrO + O2 ', & ! index 203 + ' Br + O3 --> BrO + O2 ', & ! index 203 ' HO2 + BrO --> HOBr + O2 ', & ! index 204 ' HO2 + Br --> HBr + O2 ', & ! index 205 - ' OH + HBr --> H2O + Br ', & ! index 206 + ' OH + HBr --> Br + H2O ', & ! index 206 ' 2 BrO --> 2 LOx + 2 Br + O2 ', & ! index 207 ' 2 BrO --> 2 LOx + Br2 + O2 ', & ! index 208 - ' NO + BrO --> NO2 + Br ', & ! index 209 + ' NO + BrO --> Br + NO2 ', & ! index 209 ' BrNO3 + Br --> Br2 + NO3 ' /) ! index up to 210 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_7 = (/ & ' Br2 + OH --> POx + HOBr + Br ', & ! index 211 @@ -383,11 +384,11 @@ MODULE gckpp_Monitor ' ACET + Br --> ATO2 + HBr ', & ! index 218 ' C2H6 + Br --> ETO2 + HBr ', & ! index 219 ' C3H8 + Br --> A3O2 + HBr ', & ! index 220 - ' NO2 + Br --> BrNO2 ', & ! index 221 + ' Br + NO2 --> BrNO2 ', & ! index 221 ' NO2 + BrO --> BrNO3 ', & ! index 222 ' CHBr3 + OH --> 3 Br ', & ! index 223 ' CH2Br2 + OH --> 2 Br ', & ! index 224 - ' CH3Br + OH --> H2O + HO2 + Br ', & ! index 225 + ' CH3Br + OH --> HO2 + Br + H2O ', & ! index 225 ' O1D + H2O --> LOx + 2 OH ', & ! index 226 ' O1D + N2 --> O + N2 ', & ! index 227 ' O1D + O2 --> O + O2 ', & ! index 228 @@ -395,78 +396,78 @@ MODULE gckpp_Monitor ' N2O + O1D --> LOx + 1.22 NO + 0.39 N2 + 0.39 O2 ', & ! index 230 ' CH4 + O1D --> LOx + LCH4 + 0.2 H + 0.25 CH2O + 0.75 MO2 + 0.2 HO2 + 0.75 OH + 0.05 H2 ', & ! index 231 ' O + O2 --> O3 ', & ! index 232 - ' O3 + O --> 2 LOx + 2 O2 ', & ! index 233 + ' O + O3 --> 2 LOx + 2 O2 ', & ! index 233 ' OH + H2 --> H + H2O ', & ! index 234 - ' O + OH --> LOx + H + O2 ', & ! index 235 + ' OH + O --> LOx + H + O2 ', & ! index 235 ' HO2 + O --> LOx + OH + O2 ', & ! index 236 ' O1D + O3 --> LOx + O + 1.5 O2 ', & ! index 237 ' OCS + O --> LOx + PCO + CO + SO2 ', & ! index 238 ' OCS + OH --> CO2 + SO2 ', & ! index 239 ' NO2 + O --> 2 LOx + NO + O2 ' /) ! index up to 240 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_8 = (/ & - ' O + NO3 --> 2 LOx + NO2 + O2 ', & ! index 241 - ' O + NO --> NO2 ', & ! index 242 + ' NO3 + O --> 2 LOx + NO2 + O2 ', & ! index 241 + ' NO + O --> NO2 ', & ! index 242 ' NO2 + O --> NO3 ', & ! index 243 ' H2O2 + O --> LOx + HO2 + OH ', & ! index 244 ' H + O2 --> HO2 ', & ! index 245 ' H + O3 --> LOx + OH + O2 ', & ! index 246 - ' H + HO2 --> 0.02 POx + 0.02 H2O + 0.02 O + 1.788 OH + 0.086 H2 + 0.086 O2 ', & ! index 247 - ' N + O2 --> POx + O + NO ', & ! index 248 + ' H + HO2 --> 0.02 POx + 1.788 OH + 0.02 O + 0.02 H2O + 0.086 H2 + 0.086 O2 ', & ! index 247 + ' N + O2 --> POx + NO + O ', & ! index 248 ' N + NO --> POx + O + N2 ', & ! index 249 ' N + NO2 --> N2O + O ', & ! index 250 - ' O + BrO --> 2 LOx + Br + O2 ', & ! index 251 + ' BrO + O --> 2 LOx + Br + O2 ', & ! index 251 ' CH2O + O --> LOx + PCO + CO + HO2 + OH ', & ! index 252 - ' O1D + HCl --> 0.66 LOx + 0.22 H + 0.22 ClO + 0.12 HCl + 0.66 Cl + 0.12 O + 0.66 OH ', & ! index 253 - ' O1D + HBr --> 0.6 LOx + 0.2 H + 0.6 Br + 0.2 O + 0.6 OH + 0.2 BrO + 0.2 HBr ', & ! index 254 - ' Cl2 + O1D --> 0.25 Cl2 + 0.75 ClO + 0.75 Cl + 0.25 O ', & ! index 255 - ' CCl4 + O1D --> 0.21 CCl4 + 0.79 ClO + 2.37 Cl + 0.21 O ', & ! index 256 - ' CH3Cl + O1D --> 0.44 LOx + 0.1 CH3Cl + 0.09 H + 0.9 MO2 + 0.46 ClO + 0.35 Cl + 0.1 O ', & ! index 257 + ' O1D + HCl --> 0.66 LOx + 0.22 H + 0.12 HCl + 0.66 OH + 0.22 ClO + 0.12 O + 0.66 Cl ', & ! index 253 + ' O1D + HBr --> 0.6 LOx + 0.2 H + 0.6 Br + 0.6 OH + 0.2 BrO + 0.2 O + 0.2 HBr ', & ! index 254 + ' Cl2 + O1D --> 0.25 Cl2 + 0.75 ClO + 0.25 O + 0.75 Cl ', & ! index 255 + ' CCl4 + O1D --> 0.21 CCl4 + 0.79 ClO + 0.21 O + 2.37 Cl ', & ! index 256 + ' CH3Cl + O1D --> 0.44 LOx + 0.1 CH3Cl + 0.09 H + 0.9 MO2 + 0.46 ClO + 0.1 O + 0.35 Cl ', & ! index 257 ' CH3Br + O1D --> 0.56 LOx + MO2 + 0.56 Br + 0.44 BrO ', & ! index 258 - ' CH2Br2 + O1D --> 0.05 CH2Br2 + 0.95 Br + 0.05 O + 0.95 BrO ', & ! index 259 - ' CHBr3 + O1D --> 0.3 CHBr3 + 1.4 Br + 0.3 O + 0.7 BrO ', & ! index 260 - ' HCFC22 + O1D --> 0.19 LOx + 0.25 HCFC22 + 0.56 ClO + 0.19 Cl + 0.25 O + 0.05 OH ', & ! index 261 - ' CFC11 + O1D --> 0.1 CFC11 + 0.9 ClO + 1.8 Cl + 0.1 O ', & ! index 262 - ' CFC12 + O1D --> 0.14 CFC12 + 0.86 ClO + 0.86 Cl + 0.14 O ', & ! index 263 - ' H1211 + O1D --> 0.35 H1211 + 0.34 ClO + 0.31 Cl + 0.34 Br + 0.35 O + 0.31 BrO ', & ! index 264 - ' H1301 + O1D --> 0.55 H1301 + 0.55 O + 0.45 BrO ', & ! index 265 - ' HCFC141b + O1D --> 0.31 HCFC141b + 0.69 ClO + 0.69 Cl + 0.31 O ', & ! index 266 + ' CH2Br2 + O1D --> 0.05 CH2Br2 + 0.95 Br + 0.95 BrO + 0.05 O ', & ! index 259 + ' CHBr3 + O1D --> 0.3 CHBr3 + 1.4 Br + 0.7 BrO + 0.3 O ', & ! index 260 + ' HCFC22 + O1D --> 0.19 LOx + 0.25 HCFC22 + 0.05 OH + 0.56 ClO + 0.25 O + 0.19 Cl ', & ! index 261 + ' CFC11 + O1D --> 0.1 CFC11 + 0.9 ClO + 0.1 O + 1.8 Cl ', & ! index 262 + ' CFC12 + O1D --> 0.14 CFC12 + 0.86 ClO + 0.14 O + 0.86 Cl ', & ! index 263 + ' H1211 + O1D --> 0.35 H1211 + 0.34 Br + 0.34 ClO + 0.31 BrO + 0.35 O + 0.31 Cl ', & ! index 264 + ' H1301 + O1D --> 0.55 H1301 + 0.45 BrO + 0.55 O ', & ! index 265 + ' HCFC141b + O1D --> 0.31 HCFC141b + 0.69 ClO + 0.31 O + 0.69 Cl ', & ! index 266 ' HCFC142b + O1D --> 0.35 HCFC142b + 0.65 ClO + 0.35 O ', & ! index 267 - ' HCFC123 + O1D --> 0.21 HCFC123 + 0.79 ClO + 0.79 Cl + 0.21 O ', & ! index 268 - ' CFC113 + O1D --> 0.1 LOx + 0.1 CFC113 + 0.8 ClO + 1.9 Cl + 0.1 O ', & ! index 269 - ' CFC114 + O1D --> 0.05 LOx + 0.1 CFC114 + 0.85 ClO + 0.95 Cl + 0.1 O ' /) ! index up to 270 + ' HCFC123 + O1D --> 0.21 HCFC123 + 0.79 ClO + 0.21 O + 0.79 Cl ', & ! index 268 + ' CFC113 + O1D --> 0.1 LOx + 0.1 CFC113 + 0.8 ClO + 0.1 O + 1.9 Cl ', & ! index 269 + ' CFC114 + O1D --> 0.05 LOx + 0.1 CFC114 + 0.85 ClO + 0.1 O + 0.95 Cl ' /) ! index up to 270 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_9 = (/ & ' CFC115 + O1D --> 0.14 CFC115 + 0.86 ClO + 0.14 O ', & ! index 271 - ' H2402 + O1D --> 0.25 H2402 + 0.75 Br + 0.25 O + 0.75 BrO ', & ! index 272 + ' H2402 + O1D --> 0.25 H2402 + 0.75 Br + 0.75 BrO + 0.25 O ', & ! index 272 ' Cl2 + OH --> POx + HOCl + Cl ', & ! index 273 ' MO2 + ClO --> LOx + ClOO + CH2O + HO2 ', & ! index 274 - ' ClO + OH --> LOx + HO2 + Cl ', & ! index 275 - ' ClO + OH --> LOx + HCl + O2 ', & ! index 276 + ' OH + ClO --> LOx + HO2 + Cl ', & ! index 275 + ' OH + ClO --> LOx + HCl + O2 ', & ! index 276 ' OClO + OH --> LOx + HOCl + O2 ', & ! index 277 ' Cl2O2 + OH --> LOx + ClOO + HOCl ', & ! index 278 - ' HCl + OH --> H2O + Cl ', & ! index 279 - ' HOCl + OH --> H2O + ClO ', & ! index 280 + ' HCl + OH --> Cl + H2O ', & ! index 279 + ' HOCl + OH --> ClO + H2O ', & ! index 280 ' ClNO2 + OH --> POx + HOCl + NO2 ', & ! index 281 ' ClNO3 + OH --> POx + HOCl + NO3 ', & ! index 282 - ' CH3Cl + OH --> H2O + HO2 + Cl ', & ! index 283 + ' CH3Cl + OH --> HO2 + Cl + H2O ', & ! index 283 ' CH2Cl2 + OH --> HO2 + 2 Cl ', & ! index 284 ' CHCl3 + OH --> HO2 + 3 Cl ', & ! index 285 - ' CH3CCl3 + OH --> H2O + 3 Cl ', & ! index 286 - ' HCFC22 + OH --> H2O + Cl ', & ! index 287 - ' HCFC141b + OH --> H2O + 2 Cl ', & ! index 288 - ' HCFC142b + OH --> H2O + Cl ', & ! index 289 - ' HCFC123 + OH --> H2O + 2 Cl ', & ! index 290 + ' CH3CCl3 + OH --> 3 Cl + H2O ', & ! index 286 + ' HCFC22 + OH --> Cl + H2O ', & ! index 287 + ' HCFC141b + OH --> 2 Cl + H2O ', & ! index 288 + ' HCFC142b + OH --> Cl + H2O ', & ! index 289 + ' HCFC123 + OH --> 2 Cl + H2O ', & ! index 290 ' CH4 + Cl --> LCH4 + MO2 + HCl ', & ! index 291 - ' CH2O + Cl --> PCO + CO + HO2 + HCl ', & ! index 292 + ' CH2O + Cl --> PCO + CO + HCl + HO2 ', & ! index 292 ' Cl + O3 --> ClO + O2 ', & ! index 293 ' Cl + H2 --> H + HCl ', & ! index 294 - ' H2O2 + Cl --> HO2 + HCl ', & ! index 295 + ' H2O2 + Cl --> HCl + HO2 ', & ! index 295 ' HO2 + Cl --> HCl + O2 ', & ! index 296 - ' HO2 + Cl --> POx + ClO + OH ', & ! index 297 + ' HO2 + Cl --> POx + OH + ClO ', & ! index 297 ' ClO + O --> 2 LOx + Cl + O2 ', & ! index 298 ' HO2 + ClO --> HOCl + O2 ', & ! index 299 - ' ClO + NO --> NO2 + Cl ' /) ! index up to 300 + ' NO + ClO --> NO2 + Cl ' /) ! index up to 300 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_10 = (/ & - ' NO2 + ClO --> ClNO3 ', & ! index 301 + ' ClO + NO2 --> ClNO3 ', & ! index 301 ' 2 ClO --> 2 LOx + Cl2 + O2 ', & ! index 302 ' 2 ClO --> 2 LOx + ClOO + Cl ', & ! index 303 ' 2 ClO --> OClO + Cl ', & ! index 304 @@ -480,22 +481,22 @@ MODULE gckpp_Monitor ' ClO + BrO --> 2 LOx + BrCl + O2 ', & ! index 312 ' ClNO3 + O --> ClO + NO3 ', & ! index 313 ' ClNO3 + Cl --> Cl2 + NO3 ', & ! index 314 - ' CH3Cl + Cl --> PCO + CO + HO2 + 2 HCl ', & ! index 315 - ' CH2Cl2 + Cl --> PCO + CO + HO2 + HCl + 2 Cl ', & ! index 316 - ' CHCl3 + Cl --> PCO + CO + HO2 + HCl + 3 Cl ', & ! index 317 - ' HCOOH + Cl --> CO2 + H2O + HCl ', & ! index 318 + ' CH3Cl + Cl --> PCO + CO + 2 HCl + HO2 ', & ! index 315 + ' CH2Cl2 + Cl --> PCO + CO + HCl + HO2 + 2 Cl ', & ! index 316 + ' CHCl3 + Cl --> PCO + CO + HCl + HO2 + 3 Cl ', & ! index 317 + ' HCOOH + Cl --> CO2 + HCl + H2O ', & ! index 318 ' MO2 + Cl --> POx + CH2O + HO2 + ClO ', & ! index 319 ' MP + Cl --> MO2 + HCl ', & ! index 320 ' C2H6 + Cl --> ETO2 + HCl ', & ! index 321 ' ETO2 + Cl --> POx + ALD2 + HO2 + ClO ', & ! index 322 ' OTHRO2 + Cl --> POx + ALD2 + HO2 + ClO ', & ! index 323 - ' MOH + Cl --> CH2O + HO2 + HCl ', & ! index 324 + ' MOH + Cl --> CH2O + HCl + HO2 ', & ! index 324 ' EOH + Cl --> ALD2 + HCl ', & ! index 325 ' ACTA + Cl --> CO2 + MO2 + HCl ', & ! index 326 ' C3H8 + Cl --> B3O2 + HCl ', & ! index 327 ' C3H8 + Cl --> A3O2 + HCl ', & ! index 328 ' ACET + Cl --> ATO2 + HCl ', & ! index 329 - ' ISOP + Cl --> 0.5 IHOO4 + 0.5 IHOO1 + HCl ' /) ! index up to 330 + ' ISOP + Cl --> 0.5 IHOO1 + 0.5 IHOO4 + HCl ' /) ! index up to 330 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_11 = (/ & ' ALK4 + Cl --> ALK4O2 + HCl ', & ! index 331 ' PRPE + Cl --> PO2 + HCl ', & ! index 332 @@ -505,10 +506,10 @@ MODULE gckpp_Monitor ' I + NO2 --> IONO ', & ! index 336 ' IONO --> I + NO2 ', & ! index 337 ' 2 IONO --> I2 + 2 NO2 ', & ! index 338 - ' I2 + NO3 --> I + IONO2 ', & ! index 339 + ' I2 + NO3 --> IONO2 + I ', & ! index 339 ' IO + NO2 --> IONO2 ', & ! index 340 ' IONO2 --> IO + NO2 ', & ! index 341 - ' I + IONO2 --> I2 + NO3 ', & ! index 342 + ' IONO2 + I --> I2 + NO3 ', & ! index 342 ' I + BrO --> IO + Br ', & ! index 343 ' IO + BrO --> 0.4 LOx + 0.8 OIO + 0.2 I + Br + 0.2 O2 ', & ! index 344 ' OIO + IO --> I2O3 ', & ! index 345 @@ -524,8 +525,8 @@ MODULE gckpp_Monitor ' IO + HO2 --> HOI + O2 ', & ! index 355 ' IO + NO --> I + NO2 ', & ! index 356 ' 2 IO --> 0.6 I2O2 + 0.4 OIO + 0.4 I ', & ! index 357 - ' I2O2 --> 0.996 OIO + 0.008 IO + 0.996 I ', & ! index 358 - ' CH3I + OH --> MO2 + I + H2O ', & ! index 359 + ' I2O2 --> 0.996 OIO + 0.996 I + 0.008 IO ', & ! index 358 + ' CH3I + OH --> I + MO2 + H2O ', & ! index 359 ' ETHLN + OH --> CO2 + CH2O + NO2 ' /) ! index up to 360 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_12 = (/ & ' PROPNN + OH --> MGLY + NO2 ', & ! index 361 @@ -552,14 +553,14 @@ MODULE gckpp_Monitor ' MTPA + OH --> 0.255 BPINO2 + 0.67 APINO2 + 0.075 LIMO2 ', & ! index 382 ' MTPA + O3 --> LOx + 0.1 PCO + 0.2 BPINO + 0.2 PINAL + 0.1 BPINOO2 + 0.5 APINO2 + 0.1... etc.', & ! index 383 ' APINO2 + HO2 --> APINP ', & ! index 384 - ' APINO2 + NO --> 0.75 POx + 0.25 APINN + 0.75 PINAL + 0.75 NO2 + 0.75 HO2 ', & ! index 385 - ' APINO2 + NO3 --> LOx + PINAL + NO2 + HO2 ', & ! index 386 + ' APINO2 + NO --> 0.75 POx + 0.25 APINN + 0.75 PINAL + 0.75 HO2 + 0.75 NO2 ', & ! index 385 + ' APINO2 + NO3 --> LOx + PINAL + HO2 + NO2 ', & ! index 386 ' APINP + OH --> 0.4 PINO3 + 0.6 APINO2 ', & ! index 387 - ' APINN + OH --> 0.5 POx + 0.5 C96N + 0.5 PINAL + 0.5 AROMRO2 + 0.5 CH2O + 0.5 NO2 + 0.5 HO2 ', & ! index 388 + ' APINN + OH --> 0.5 POx + 0.5 C96N + 0.5 PINAL + 0.5 AROMRO2 + 0.5 CH2O + 0.5 HO2 + 0.5 NO2 ', & ! index 388 ' PINAL + NO3 --> LOx + PINO3 + HNO3 ', & ! index 389 ' PINAL + OH --> PINO3 ' /) ! index up to 390 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_13 = (/ & - ' PINO3 + HO2 --> 0.15 POx + 0.15 PINONIC + 0.41 PINO3H + 0.44 C96O2 + 0.15 O3 + 0.44 OH ', & ! index 391 + ' PINO3 + HO2 --> 0.15 POx + 0.15 PINONIC + 0.41 PINO3H + 0.44 C96O2 + 0.44 OH + 0.15 O3 ', & ! index 391 ' PINO3 + NO --> CO2 + POx + C96O2 + NO2 ', & ! index 392 ' PINO3 + NO2 --> LOx + PINPAN ', & ! index 393 ' PINPAN --> POx + PINO3 + NO2 ', & ! index 394 @@ -573,34 +574,34 @@ MODULE gckpp_Monitor ' C96O2H + OH --> 0.5 AROMRO2 + 0.5 C96O2 + 0.25 MEK + 0.5 ACET + 0.5 RCO3 + 0.5 CH2O ', & ! index 402 ' C96N + OH --> POx + 0.5 MONITS + 0.55 AROMRO2 + 0.3 MEK + 0.4 ACET + 0.4 RCO3 + 0.4 ... etc.', & ! index 403 ' BPINO2 + HO2 --> BPINP ', & ! index 404 - ' BPINO2 + NO --> 0.75 POx + 0.75 BPINO + 0.25 BPINN + 0.75 CH2O + 0.75 NO2 + 0.75 HO2 ', & ! index 405 - ' BPINO2 + NO3 --> LOx + BPINO + CH2O + NO2 + HO2 ', & ! index 406 - ' BPINN + OH --> 0.5 POx + 0.5 BPINO + 0.5 BPINON + 0.5 AROMRO2 + CH2O + 0.5 NO2 + 0.5 HO2 ', & ! index 407 + ' BPINO2 + NO --> 0.75 POx + 0.75 BPINO + 0.25 BPINN + 0.75 CH2O + 0.75 HO2 + 0.75 NO2 ', & ! index 405 + ' BPINO2 + NO3 --> LOx + BPINO + CH2O + HO2 + NO2 ', & ! index 406 + ' BPINN + OH --> 0.5 POx + 0.5 BPINO + 0.5 BPINON + 0.5 AROMRO2 + CH2O + 0.5 HO2 + 0.5 NO2 ', & ! index 407 ' BPINP + OH --> BPINO2 ', & ! index 408 ' BPINO + OH --> BPINOO2 ', & ! index 409 ' BPINOO2 + HO2 --> BPINOOH ', & ! index 410 ' BPINOO2 + NO --> BPINON ', & ! index 411 - ' BPINOO2 + NO --> POx + 0.27 LIMO3 + 0.6 ACET + 0.6 RCHO + 0.6 R4O2 + NO2 + HO2 ', & ! index 412 + ' BPINOO2 + NO --> POx + 0.27 LIMO3 + 0.6 ACET + 0.6 RCHO + 0.6 R4O2 + HO2 + NO2 ', & ! index 412 ' BPINOO2 + MO2 --> 0.25 BPINOOH + 0.23 LIMO3 + 0.25 MOH + 0.4 ACET + 0.4 RCHO + 0.4 R4O2 ... etc.', & ! index 413 - ' BPINOO2 + NO3 --> LOx + 0.27 LIMO3 + 0.6 ACET + 0.6 RCHO + 0.6 R4O2 + NO2 + HO2 ', & ! index 414 + ' BPINOO2 + NO3 --> LOx + 0.27 LIMO3 + 0.6 ACET + 0.6 RCHO + 0.6 R4O2 + HO2 + NO2 ', & ! index 414 ' BPINOOH + OH --> BPINOO2 ', & ! index 415 ' BPINON + OH --> POx + 0.5 MONITS + 0.085 LIMO3 + 0.3 ACET + 0.3 RCHO + 0.3 R4O2 + 0.5 NO2 ', & ! index 416 ' LIMO2 + HO2 --> 0.37 LIMKET + 0.63 LIMAL ', & ! index 417 - ' LIMO2 + NO --> 0.75 POx + 0.25 LIMN + 0.28 LIMKET + 0.47 LIMAL + 0.75 NO2 + 0.75 HO2 ', & ! index 418 - ' LIMO2 + NO3 --> LOx + 0.37 LIMKET + 0.63 LIMAL + NO2 + HO2 ', & ! index 419 + ' LIMO2 + NO --> 0.75 POx + 0.25 LIMN + 0.28 LIMKET + 0.47 LIMAL + 0.75 HO2 + 0.75 NO2 ', & ! index 418 + ' LIMO2 + NO3 --> LOx + 0.37 LIMKET + 0.63 LIMAL + HO2 + NO2 ', & ! index 419 ' LIMAL + OH --> LIMO3 ' /) ! index up to 420 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_14 = (/ & ' LIMAL + O3 --> LOx + 0.3 LIMKB + 0.6 LIMO3 + 0.33 CH2OO + 0.67 CH2O + 0.6 OH ', & ! index 421 ' LIMAL + NO3 --> 2 LOx + LIMNB + AROMRO2 ', & ! index 422 ' LIMKET + OH --> LIMKO2 ', & ! index 423 - ' LIMKET + O3 --> LOx + 0.27 LIMKO2 + 0.73 LIMO3 + 0.865 OH ', & ! index 424 + ' LIMKET + O3 --> LOx + 0.73 LIMO3 + 0.27 LIMKO2 + 0.865 OH ', & ! index 424 ' LIMKET + NO3 --> 2 LOx + LIMNB + AROMRO2 ', & ! index 425 - ' LIMN + OH --> 0.5 POx + 0.5 LIMNB + 0.18 LIMKO2 + 0.32 LIMO3 + 0.5 NO2 ', & ! index 426 + ' LIMN + OH --> 0.5 POx + 0.5 LIMNB + 0.32 LIMO3 + 0.18 LIMKO2 + 0.5 NO2 ', & ! index 426 ' LIMN + O3 --> 0.5 LOx + 0.5 LIMNB + 0.4 LIMO3 + CH2O + 0.5 NO2 ', & ! index 427 ' LIMN + NO3 --> LOx + LIMNB + AROMRO2 + NO2 ', & ! index 428 - ' LIMKO2 + NO --> 0.84 POx + 0.84 LIMKB + 0.16 LIMNB + 0.84 NO2 + 0.84 HO2 ', & ! index 429 + ' LIMKO2 + NO --> 0.84 POx + 0.84 LIMKB + 0.16 LIMNB + 0.84 HO2 + 0.84 NO2 ', & ! index 429 ' LIMKO2 + HO2 --> LIMO3H ', & ! index 430 - ' LIMKO2 + NO3 --> LOx + LIMKB + NO2 + HO2 ', & ! index 431 + ' LIMKO2 + NO3 --> LOx + LIMKB + HO2 + NO2 ', & ! index 431 ' LIMKO2 + MO2 --> 0.75 LIMKB + 0.25 LIMO3H + 0.25 MOH + 0.75 CH2O + HO2 ', & ! index 432 ' LIMKB + OH --> LIMO3 ', & ! index 433 ' LIMKB + NO3 --> LOx + LIMO3 + NO2 ', & ! index 434 @@ -614,8 +615,8 @@ MODULE gckpp_Monitor ' LIMO2H + OH --> CO2 + RCHO + 0.8 R4O2 + MCO3 + 0.4 CH2O ', & ! index 442 ' PIO2 + HO2 --> PIP ', & ! index 443 ' PIO2 + NO --> PIN ', & ! index 444 - ' PIO2 + NO --> POx + 0.675 MYRCO + 0.45 ACET + 0.45 MVK + 0.1 CH2O + NO2 + HO2 ', & ! index 445 - ' PIO2 + NO3 --> LOx + 0.675 MYRCO + 0.45 ACET + 0.45 MVK + 0.1 CH2O + NO2 + HO2 ', & ! index 446 + ' PIO2 + NO --> POx + 0.675 MYRCO + 0.45 ACET + 0.45 MVK + 0.1 CH2O + HO2 + NO2 ', & ! index 445 + ' PIO2 + NO3 --> LOx + 0.675 MYRCO + 0.45 ACET + 0.45 MVK + 0.1 CH2O + HO2 + NO2 ', & ! index 446 ' PIP + OH --> 0.78 MYRCO + 0.7 AROMRO2 + 0.3 ACET + 0.3 MVK + 0.1 CH2O + 0.3 OH ', & ! index 447 ' PIP + O3 --> LOx + 0.78 MYRCO + 0.7 AROMRO2 + 0.3 ACET + 0.3 MVK + 0.1 CH2O + 0.3 OH ', & ! index 448 ' PIP + NO3 --> LOx + 0.39 MYRCO + 0.35 AROMRO2 + 0.5 OLNN + 0.15 ACET + 0.15 MVK + 0.... etc.', & ! index 449 @@ -638,7 +639,7 @@ MODULE gckpp_Monitor ' PINO3 + MCO3 --> 2 CO2 + C96O2 + MO2 ', & ! index 465 ' LIMO3 + MO2 --> 0.75 CO2 + 0.25 LIMO2H + 0.75 RCHO + 0.6 R4O2 + 0.75 MCO3 + 1.3 CH2O +... etc.', & ! index 466 ' LIMO3 + MCO3 --> CO2 + RCHO + 0.8 R4O2 + MCO3 + 0.4 CH2O + MO2 ', & ! index 467 - ' OLNN + NO --> POx + MONITS + NO2 + HO2 ', & ! index 468 + ' OLNN + NO --> POx + MONITS + HO2 + NO2 ', & ! index 468 ' OLND + NO --> POx + 0.464 MEK + 1.24 RCHO + 0.287 CH2O + 2 NO2 ', & ! index 469 ' OLNN + HO2 --> 0.3 MONITU + 0.7 MONITS ', & ! index 470 ' OLND + HO2 --> 0.3 MONITU + 0.7 MONITS ', & ! index 471 @@ -646,10 +647,10 @@ MODULE gckpp_Monitor ' OLND + MO2 --> 0.25 ROH + 0.15 MONITU + 0.35 MONITS + 0.25 MOH + 0.34 MEK + 0.93 RCHO... etc.', & ! index 473 ' OLNN + MCO3 --> CO2 + 0.3 MONITU + 0.7 MONITS + MO2 + HO2 ', & ! index 474 ' OLND + MCO3 --> 0.5 RCOOH + 0.464 MEK + 1.24 RCHO + 0.287 CH2O + 0.5 MO2 + NO2 ', & ! index 475 - ' OLNN + NO3 --> LOx + 0.3 MONITU + 0.7 MONITS + NO2 + HO2 ', & ! index 476 + ' OLNN + NO3 --> LOx + 0.3 MONITU + 0.7 MONITS + HO2 + NO2 ', & ! index 476 ' OLND + NO3 --> LOx + 0.464 MEK + 1.24 RCHO + 0.287 CH2O + 2 NO2 ', & ! index 477 ' 2 OLNN --> 0.6 MONITU + 1.4 MONITS + HO2 ', & ! index 478 - ' OLNN + OLND --> 0.45 MONITU + 1.05 MONITS + 0.149 MEK + 0.64 RCHO + 0.202 CH2O + 0.5 N... etc.', & ! index 479 + ' OLNN + OLND --> 0.45 MONITU + 1.05 MONITS + 0.149 MEK + 0.64 RCHO + 0.202 CH2O + 0.5 H... etc.', & ! index 479 ' 2 OLND --> 0.3 MONITU + 0.7 MONITS + 0.285 MEK + 1.21 RCHO + 0.504 CH2O + NO2 ' /) ! index up to 480 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_16 = (/ & ' MONITS + OH --> HONIT ', & ! index 481 @@ -679,23 +680,23 @@ MODULE gckpp_Monitor ' IHOO4 --> 0.9 PCO + 0.15 HPALD4 + 0.25 HPALD2 + 0.3 ATOOH + 0.3 MGLY + 0.3 CH2O ... etc.', & ! index 505 ' 2 IHOO1 --> 2 MVK + 2 CH2O + 2 HO2 ', & ! index 506 ' 2 IHOO4 --> 2 MACR + 2 CH2O + 2 HO2 ', & ! index 507 - ' IHOO4 + IHOO1 --> MACR + MVK + 2 CH2O + 2 HO2 ', & ! index 508 + ' IHOO1 + IHOO4 --> MACR + MVK + 2 CH2O + 2 HO2 ', & ! index 508 ' 2 IHOO1 --> PCO + HC5A + MVKHP + CO + HO2 + OH ', & ! index 509 ' 2 IHOO4 --> PCO + HC5A + MCRHP + CO + HO2 + OH ' /) ! index up to 510 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_17 = (/ & - ' IHOO4 + IHOO1 --> PCO + HC5A + 0.5 MCRHP + 0.5 MVKHP + CO + HO2 + OH ', & ! index 511 + ' IHOO1 + IHOO4 --> PCO + HC5A + 0.5 MCRHP + 0.5 MVKHP + CO + HO2 + OH ', & ! index 511 ' IHOO1 + MO2 --> MVK + 2 CH2O + 2 HO2 ', & ! index 512 ' IHOO1 + MO2 --> 0.5 PCO + 0.5 HC5A + 0.5 MVKHP + CH2O + 0.5 CO + 1.5 HO2 + 0.5 OH ', & ! index 513 ' IHOO4 + MO2 --> MACR + 2 CH2O + 2 HO2 ', & ! index 514 ' IHOO4 + MO2 --> 0.5 PCO + 0.5 HC5A + 0.5 MCRHP + CH2O + 0.5 CO + 1.5 HO2 + 0.5 OH ', & ! index 515 ' IHOO1 + NO --> POx + IHN2 ', & ! index 516 - ' IHOO1 + NO --> POx + MVK + CH2O + NO2 + HO2 ', & ! index 517 + ' IHOO1 + NO --> POx + MVK + CH2O + HO2 + NO2 ', & ! index 517 ' IHOO1 + NO --> POx + IHN4 ', & ! index 518 - ' IHOO1 + NO --> POx + 0.55 PCO + 0.45 HC5A + 0.55 MVKHP + 0.55 CO + NO2 + 0.45 HO2 + 0.55 OH ', & ! index 519 + ' IHOO1 + NO --> POx + 0.55 PCO + 0.45 HC5A + 0.55 MVKHP + 0.55 CO + 0.45 HO2 + 0.55 OH + NO2 ', & ! index 519 ' IHOO4 + NO --> POx + IHN3 ', & ! index 520 - ' IHOO4 + NO --> POx + MACR + CH2O + NO2 + HO2 ', & ! index 521 + ' IHOO4 + NO --> POx + MACR + CH2O + HO2 + NO2 ', & ! index 521 ' IHOO4 + NO --> POx + IHN1 ', & ! index 522 - ' IHOO4 + NO --> POx + 0.55 PCO + 0.45 HC5A + 0.55 MCRHP + 0.55 CO + NO2 + 0.45 HO2 + 0.55 OH ', & ! index 523 + ' IHOO4 + NO --> POx + 0.55 PCO + 0.45 HC5A + 0.55 MCRHP + 0.55 CO + 0.45 HO2 + 0.55 OH + NO2 ', & ! index 523 ' HPALD1 + OH --> 0.45 PCO + 0.15 IDC + 0.315 HPALD1OO + 0.085 ICHE + 0.33 MVKHP + 0.085... etc.', & ! index 524 ' HPALD2 + OH --> 0.37 PCO + 0.15 IDC + 0.315 HPALD2OO + 0.165 ICHE + 0.17 MCRHP + 0.165... etc.', & ! index 525 ' HPALD3 + OH --> 0.42 PCO + 0.58 ICHE + 0.19 MVKHP + 0.23 MVK + 0.42 CO + OH ', & ! index 526 @@ -708,20 +709,20 @@ MODULE gckpp_Monitor ' RIPB + OH --> 0.005 LVOC + 0.345 IHPOO2 + 0.655 IHPOO3 ', & ! index 533 ' RIPB + OH --> 0.005 LVOC + 0.68 IEPOXA + 0.32 IEPOXB + OH ', & ! index 534 ' RIPA + OH --> 0.005 LVOC + 0.25 PCO + 0.125 MVKHP + 0.75 IHOO1 + 0.125 MVK + 0.25 CO... etc.', & ! index 535 - ' RIPB + OH --> 0.005 LVOC + 0.33 PCO + 0.16 ICHOO + 0.165 MCRHP + 0.51 IHOO4 + 0.165 ... etc.', & ! index 536 + ' RIPB + OH --> 0.005 LVOC + 0.33 PCO + 0.16 ICHOO + 0.165 MCRHP + 0.165 MACR + 0.51 I... etc.', & ! index 536 ' RIPC + OH --> 0.005 LVOC + 0.036 PCO + 0.255 IEPOXD + 0.009 HPALD3 + 0.018 HPETHNL +... etc.', & ! index 537 ' RIPD + OH --> 0.005 LVOC + 0.054 PCO + 0.595 IEPOXD + 0.009 HPALD4 + 0.255 IHPOO2 + ... etc.', & ! index 538 ' IHPOO1 --> 0.824 IDHPE + 0.176 ICPDH + OH ', & ! index 539 - ' IHPOO1 + NO --> POx + 0.284 HPETHNL + 0.716 MCRHP + 0.284 HAC + 0.716 CH2O + NO2 + HO2 ' /) ! index up to 540 + ' IHPOO1 + NO --> POx + 0.284 HPETHNL + 0.716 MCRHP + 0.284 HAC + 0.716 CH2O + HO2 + NO2 ' /) ! index up to 540 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_18 = (/ & ' IHPOO1 + NO --> POx + ITHN ', & ! index 541 ' IHPOO1 + HO2 --> 0.725 IDHDP + 0.135 HPETHNL + 0.14 MCRHP + 0.135 HAC + 0.14 CH2O + 0.2... etc.', & ! index 542 ' IHPOO2 --> 0.452 IDHPE + 0.548 ICPDH + OH ', & ! index 543 - ' IHPOO2 + NO --> POx + 0.294 ATOOH + 0.706 MVKHP + 0.294 GLYC + 0.706 CH2O + NO2 + HO2 ', & ! index 544 + ' IHPOO2 + NO --> POx + 0.294 ATOOH + 0.706 MVKHP + 0.294 GLYC + 0.706 CH2O + HO2 + NO2 ', & ! index 544 ' IHPOO2 + NO --> POx + ITHN ', & ! index 545 ' IHPOO2 + HO2 --> 0.725 IDHDP + 0.135 ATOOH + 0.14 MVKHP + 0.135 GLYC + 0.14 CH2O + 0.27... etc.', & ! index 546 ' IHPOO3 --> IDHPE ', & ! index 547 - ' IHPOO3 + NO --> POx + GLYC + HAC + NO2 + OH ', & ! index 548 + ' IHPOO3 + NO --> POx + GLYC + HAC + OH + NO2 ', & ! index 548 ' IHPOO3 + NO --> POx + ITHN ', & ! index 549 ' IHPOO3 + HO2 --> 0.35 IDHDP + 0.65 GLYC + 0.65 HAC + 1.3 OH ', & ! index 550 ' IEPOXD + OH --> 0.75 ICHE + 0.25 ICHOO + 0.75 HO2 ', & ! index 551 @@ -732,21 +733,21 @@ MODULE gckpp_Monitor ' IEPOXAOO --> IDCHP + HO2 ', & ! index 556 ' IEPOXAOO --> PCO + MVKDH + CO + OH ', & ! index 557 ' IEPOXAOO + HO2 --> 0.13 PCO + 0.13 MVKDH + 0.35 ICPDH + 0.52 MGLY + 0.52 GLYC + 0.13 CO +... etc.', & ! index 558 - ' IEPOXAOO + NO --> POx + 0.2 PCO + 0.2 MVKDH + 0.8 MGLY + 0.8 GLYC + 0.2 CO + NO2 + HO2 ', & ! index 559 + ' IEPOXAOO + NO --> POx + 0.2 PCO + 0.2 MVKDH + 0.8 MGLY + 0.8 GLYC + 0.2 CO + HO2 + NO2 ', & ! index 559 ' IEPOXAOO + NO --> POx + ITCN ', & ! index 560 ' IEPOXBOO --> IDCHP + HO2 ', & ! index 561 ' IEPOXBOO --> PCO + MCRDH + CO + OH ', & ! index 562 - ' IEPOXBOO + NO --> POx + 0.2 PCO + 0.2 MCRDH + 0.8 GLYX + 0.8 HAC + 0.2 CO + NO2 + HO2 ', & ! index 563 + ' IEPOXBOO + NO --> POx + 0.2 PCO + 0.2 MCRDH + 0.8 GLYX + 0.8 HAC + 0.2 CO + HO2 + NO2 ', & ! index 563 ' IEPOXBOO + NO --> POx + ITCN ', & ! index 564 ' IEPOXBOO + HO2 --> 0.13 PCO + 0.13 MCRDH + 0.35 ICPDH + 0.52 GLYX + 0.52 HAC + 0.13 CO + ... etc.', & ! index 565 ' ICHOO + HO2 --> 0.52 PCO + 0.13 MVKHC + 0.35 ICPDH + 0.52 HAC + 0.65 CH2O + 0.52 CO + ... etc.', & ! index 566 ' ICHOO + NO --> POx + ITCN ', & ! index 567 - ' ICHOO + NO --> POx + 0.8 PCO + 0.2 MVKHC + 0.8 HAC + CH2O + 0.8 CO + NO2 + HO2 ', & ! index 568 + ' ICHOO + NO --> POx + 0.8 PCO + 0.2 MVKHC + 0.8 HAC + CH2O + 0.8 CO + HO2 + NO2 ', & ! index 568 ' ICHOO --> 2 PCO + HAC + 2 CO + HO2 + OH ', & ! index 569 - ' HPALD1OO + NO --> CO2 + POx + MVK + NO2 + OH ' /) ! index up to 570 + ' HPALD1OO + NO --> CO2 + POx + MVK + OH + NO2 ' /) ! index up to 570 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_19 = (/ & ' HPALD1OO + HO2 --> CO2 + MVK + 2 OH ', & ! index 571 - ' HPALD2OO + NO --> CO2 + POx + MACR + NO2 + OH ', & ! index 572 + ' HPALD2OO + NO --> CO2 + POx + MACR + OH + NO2 ', & ! index 572 ' HPALD2OO + HO2 --> CO2 + MACR + 2 OH ', & ! index 573 ' IHN2 + OH --> ISOPNOO1 ', & ! index 574 ' IHN2 + OH --> 0.67 IEPOXA + 0.33 IEPOXB + NO2 ', & ! index 575 @@ -759,27 +760,27 @@ MODULE gckpp_Monitor ' IHN1 + OH --> 0.6 PCO + 0.6 MCRHNB + 0.4 ICN + 0.6 CO + 0.4 HO2 + 0.6 OH ', & ! index 582 ' IHN4 + OH --> 0.6 PCO + 0.4 ICN + 0.6 MVKN + 0.6 CO + 0.4 HO2 + 0.6 OH ', & ! index 583 ' ISOPNOO1 --> ITCN + HO2 ', & ! index 584 - ' ISOPNOO1 + HO2 --> 0.059 MCRHN + 0.482 ITHN + 0.459 GLYC + 0.459 HAC + 0.059 CH2O + 0.459... etc.', & ! index 585 - ' ISOPNOO1 + NO --> POx + 0.272 MCRHN + 0.728 GLYC + 0.728 HAC + 0.272 CH2O + 1.728 NO2 + ... etc.', & ! index 586 + ' ISOPNOO1 + HO2 --> 0.059 MCRHN + 0.482 ITHN + 0.459 GLYC + 0.459 HAC + 0.059 CH2O + 0.059... etc.', & ! index 585 + ' ISOPNOO1 + NO --> POx + 0.272 MCRHN + 0.728 GLYC + 0.728 HAC + 0.272 CH2O + 0.272 HO2 + ... etc.', & ! index 586 ' ISOPNOO1 + NO --> POx + IDN ', & ! index 587 ' ISOPNOO2 --> ITCN + HO2 ', & ! index 588 ' ISOPNOO2 + HO2 --> 0.599 MVKN + 0.401 ITHN + 0.599 CH2O + 0.599 HO2 + 0.599 OH ', & ! index 589 - ' ISOPNOO2 + NO --> POx + MVKN + CH2O + NO2 + HO2 ', & ! index 590 + ' ISOPNOO2 + NO --> POx + MVKN + CH2O + HO2 + NO2 ', & ! index 590 ' ISOPNOO2 + NO --> POx + IDN ', & ! index 591 ' IDHNDOO1 --> ITCN + HO2 ', & ! index 592 ' IDHNDOO2 --> ITCN + HO2 ', & ! index 593 ' IDHNDOO1 + HO2 --> 0.031 MCRHNB + 0.551 PROPNN + 0.418 ITHN + 0.551 GLYC + 0.031 CH2O + 0... etc.', & ! index 594 - ' IDHNDOO1 + NO --> POx + 0.065 MCRHNB + 0.935 PROPNN + 0.935 GLYC + 0.065 CH2O + NO2 + HO2 ', & ! index 595 + ' IDHNDOO1 + NO --> POx + 0.065 MCRHNB + 0.935 PROPNN + 0.935 GLYC + 0.065 CH2O + HO2 + NO2 ', & ! index 595 ' IDHNDOO1 + NO --> POx + IDN ', & ! index 596 ' IDHNDOO2 + HO2 --> 0.441 ETHLN + 0.065 MVKN + 0.494 ITHN + 0.441 HAC + 0.065 CH2O + 0.506... etc.', & ! index 597 - ' IDHNDOO2 + NO --> POx + 0.858 ETHLN + 0.142 MVKN + 0.858 HAC + 0.142 CH2O + NO2 + HO2 ', & ! index 598 + ' IDHNDOO2 + NO --> POx + 0.858 ETHLN + 0.142 MVKN + 0.858 HAC + 0.142 CH2O + HO2 + NO2 ', & ! index 598 ' IDHNDOO2 + NO --> POx + IDN ', & ! index 599 ' IDHNBOO + HO2 --> 0.094 MCRHNB + 0.242 PROPNN + 0.033 ETHLN + 0.01 MVKN + 0.621 ITHN + 0... etc.' /) ! index up to 600 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_20 = (/ & ' IDHNBOO + NO --> POx + 0.355 MCRHNB + 0.546 PROPNN + 0.071 ETHLN + 0.028 MVKN + 0.546 G... etc.', & ! index 601 ' IDHNBOO + NO --> POx + IDN ', & ! index 602 ' ISOP + NO3 --> LISOPNO3 + LOx + 0.465 INO2B + 0.535 INO2D ', & ! index 603 - ' INO2B + HO2 --> 0.473 INPB + 0.048 MACR + 0.479 MVK + 0.527 CH2O + 0.527 NO2 + 0.527 OH ', & ! index 604 + ' INO2B + HO2 --> 0.473 INPB + 0.048 MACR + 0.479 MVK + 0.527 CH2O + 0.527 OH + 0.527 NO2 ', & ! index 604 ' INO2D + HO2 --> INPD ', & ! index 605 ' 2 INO2B --> 0.07 INPB + 0.07 ICN + 0.123 MACR + 1.737 MVK + 1.86 CH2O + 1.86 NO2 ', & ! index 606 ' INO2B + INO2D --> 0.474 INA + 0.399 INPB + 0.032 IHN1 + 0.532 ICN + 0.019 MACR + 0.544 M... etc.', & ! index 607 @@ -789,10 +790,10 @@ MODULE gckpp_Monitor ' INO2B + MCO3 --> CO2 + 0.097 MACR + 0.903 MVK + CH2O + MO2 + NO2 ', & ! index 611 ' INO2D + MCO3 --> CO2 + 0.841 INA + 0.159 ICN + MO2 + 0.159 HO2 ', & ! index 612 ' INO2B + NO3 --> LOx + 0.097 MACR + 0.903 MVK + CH2O + 2 NO2 ', & ! index 613 - ' INO2D + NO3 --> LOx + 0.841 INA + 0.159 ICN + NO2 + 0.159 HO2 ', & ! index 614 + ' INO2D + NO3 --> LOx + 0.841 INA + 0.159 ICN + 0.159 HO2 + NO2 ', & ! index 614 ' INO2B + NO --> POx + 0.096 MACR + 0.904 MVK + CH2O + 2 NO2 ', & ! index 615 ' INO2B + NO --> POx + IDN ', & ! index 616 - ' INO2D + NO --> POx + 0.841 INA + 0.159 ICN + NO2 + 0.159 HO2 ', & ! index 617 + ' INO2D + NO --> POx + 0.841 INA + 0.159 ICN + 0.159 HO2 + NO2 ', & ! index 617 ' INO2D + NO --> POx + IDN ', & ! index 618 ' INA + O2 --> ICN + HO2 ', & ! index 619 ' INA --> IDHNBOO ', & ! index 620 @@ -818,8 +819,8 @@ MODULE gckpp_Monitor ' ICNOO + NO --> 0.429 CO2 + POx + 0.33 PCO + 0.67 ICNOO + 0.231 PROPNN + 0.099 ETHLN +... etc.', & ! index 639 ' ICNOO + HO2 --> 0.429 CO2 + 0.33 PCO + 0.67 ICNOO + 0.231 PROPNN + 0.099 ETHLN + 0.33 ... etc.', & ! index 640 ' IDN + OH --> 0.435 IDNOO + 0.565 ITHN + 0.565 NO2 ', & ! index 641 - ' IDNOO + NO --> POx + PROPNN + 0.89 ETHLN + 0.11 GLYC + 1.11 NO2 + 0.89 HO2 ', & ! index 642 - ' IDNOO + HO2 --> 0.82 PROPNN + 0.73 ETHLN + 0.18 IDN + 0.09 GLYC + 0.09 NO2 + 0.73 HO2 ... etc.', & ! index 643 + ' IDNOO + NO --> POx + PROPNN + 0.89 ETHLN + 0.11 GLYC + 0.89 HO2 + 1.11 NO2 ', & ! index 642 + ' IDNOO + HO2 --> 0.82 PROPNN + 0.73 ETHLN + 0.18 IDN + 0.09 GLYC + 0.73 HO2 + 0.82 OH +... etc.', & ! index 643 ' MVK + OH --> MVKOHOO ', & ! index 644 ' MVK + O3 --> LOx + 0.28 PCO + 0.045 PH2O2 + 0.075 PYAC + 0.045 H2O2 + 0.545 MGLY + ... etc.', & ! index 645 ' MACR + OH --> 0.036 PCO + 0.036 ATOOH + 0.964 MCROHOO + 0.036 CO + 0.036 HO2 ', & ! index 646 @@ -845,21 +846,21 @@ MODULE gckpp_Monitor ' MVKHC + OH --> 2 PCO + MCO3 + 2 CO + HO2 ', & ! index 665 ' MCRDH + OH --> 0.84 PCO + 0.16 MVKHCB + 0.84 HAC + 0.84 CO + HO2 ', & ! index 666 ' MVKOHOO + HO2 --> 0.255 MVKHC + 0.335 MVKHP + 0.05 MGLY + 0.36 GLYC + 0.36 MCO3 + 0.05 C... etc.', & ! index 667 - ' MVKOHOO + NO --> POx + 0.242 MGLY + 0.758 GLYC + 0.758 MCO3 + 0.242 CH2O + NO2 + 0.242 HO2 ', & ! index 668 + ' MVKOHOO + NO --> POx + 0.242 MGLY + 0.758 GLYC + 0.758 MCO3 + 0.242 CH2O + 0.242 HO2 + NO2 ', & ! index 668 ' MVKOHOO + NO --> POx + MVKN ', & ! index 669 ' MCROHOO + HO2 --> 0.507 PCO + 0.41 MCRHP + 0.083 MGLY + 0.507 HAC + 0.083 CH2O + 0.507 C... etc.', & ! index 670 ' MACR1OO + HO2 --> 0.5 CO2 + 0.13 POx + 0.325 PCO + 0.5 MACR1OOH + 0.175 MCO3 + 0.5 CH2O ... etc.', & ! index 671 ' MACR1OOH + OH --> 0.41 CO2 + 0.488 PCO + 0.098 HMML + 0.165 MACR1OO + 0.488 HAC + 0.087 ... etc.', & ! index 672 ' MCROHOO --> PCO + HAC + CO + OH ', & ! index 673 - ' MCROHOO + NO --> POx + 0.86 PCO + 0.14 MGLY + 0.86 HAC + 0.14 CH2O + 0.86 CO + NO2 + 0.86 HO2 ', & ! index 674 + ' MCROHOO + NO --> POx + 0.86 PCO + 0.14 MGLY + 0.86 HAC + 0.14 CH2O + 0.86 CO + 0.86 HO2 + NO2 ', & ! index 674 ' MCROHOO + NO --> POx + MCRHN ', & ! index 675 ' MACR1OO + NO --> CO2 + POx + 0.65 PCO + 0.35 MCO3 + CH2O + 0.65 MO2 + 0.65 CO + NO2 ', & ! index 676 ' MACR1OO + NO2 --> MPAN ', & ! index 677 - ' MACRNO2 + HO2 --> 0.5 CO2 + 0.13 POx + 0.13 MCRHNB + 0.37 MCRHN + 0.5 HAC + 0.5 NO2 + 0.... etc.', & ! index 678 + ' MACRNO2 + HO2 --> 0.5 CO2 + 0.13 POx + 0.13 MCRHNB + 0.37 MCRHN + 0.5 HAC + 0.5 OH + 0.5... etc.', & ! index 678 ' MACRNO2 + NO --> CO2 + POx + HAC + 2 NO2 ', & ! index 679 ' MACRNO2 + NO2 --> MPAN + NO2 ', & ! index 680 ' MACRNO2 + NO3 --> CO2 + LOx + HAC + 2 NO2 ', & ! index 681 - ' MACRNO2 + MO2 --> 0.7 CO2 + 0.3 MCRHNB + 0.7 HAC + CH2O + 0.7 NO2 + 0.7 HO2 ', & ! index 682 + ' MACRNO2 + MO2 --> 0.7 CO2 + 0.3 MCRHNB + 0.7 HAC + CH2O + 0.7 HO2 + 0.7 NO2 ', & ! index 682 ' MPAN --> MACR1OO + NO2 ', & ! index 683 ' MPAN + OH --> POx + 0.25 PCO + 0.75 HMML + 0.25 HAC + 0.25 CO + NO3 ', & ! index 684 ' HMML + OH --> PCO + 0.3 HCOOH + 0.7 MGLY + 0.3 MCO3 + CO + 0.7 OH ', & ! index 685 @@ -873,7 +874,7 @@ MODULE gckpp_Monitor ' ETHLN + NO3 --> LOx + MCO3 + HNO3 + NO2 ', & ! index 692 ' PYAC + OH --> CO2 + MCO3 ', & ! index 693 ' HMHP + OH --> 0.5 HCOOH + 0.5 CH2O + 0.5 HO2 + 0.5 OH ', & ! index 694 - ' MCO3 + HO2 --> 0.5 CO2 + 0.13 POx + 0.37 MAP + 0.13 ACTA + 0.5 MO2 + 0.13 O3 + 0.5 OH ', & ! index 695 + ' MCO3 + HO2 --> 0.5 CO2 + 0.13 POx + 0.37 MAP + 0.13 ACTA + 0.5 MO2 + 0.5 OH + 0.13 O3 ', & ! index 695 ' HPETHNL + OH --> PCO + CH2O + CO + OH ', & ! index 696 ' HPETHNL + OH --> GLYX + OH ', & ! index 697 ' NAP + OH --> NRO2 + OH ', & ! index 698 @@ -887,9 +888,9 @@ MODULE gckpp_Monitor ' EBZ + NO3 --> LOx + BALD + AROMRO2 + CH2O + HNO3 ', & ! index 706 ' TMB + OH --> 0.12 PCO + 0.15 TLFUONE + 0.03 CSL + 0.5 RCOOH + 0.05 ZRO2 + 0.6 AROMP... etc.', & ! index 707 ' TMB + NO3 --> LOx + 0.4 AROMP5 + BALD + AROMRO2 + HNO3 ', & ! index 708 - ' ZRO2 + NO --> 0.89 POx + 0.11 RNO3 + 0.89 BALD + 0.89 NO2 + HO2 ', & ! index 709 + ' ZRO2 + NO --> 0.89 POx + 0.11 RNO3 + 0.89 BALD + HO2 + 0.89 NO2 ', & ! index 709 ' ZRO2 + HO2 --> BALD + OH ', & ! index 710 - ' RNO3 + OH --> POx + BALD + NO2 + HO2 ', & ! index 711 + ' RNO3 + OH --> POx + BALD + HO2 + NO2 ', & ! index 711 ' C2H4 + O3 --> LOx + CH2OO + CH2O ', & ! index 712 ' C2H4 + OH --> ETOO ', & ! index 713 ' C2H2 + OH --> 0.364 PCO + 0.364 HCOOH + 0.636 GLYX + 0.364 CO + 0.364 HO2 + 0.636 OH ', & ! index 714 @@ -907,16 +908,16 @@ MODULE gckpp_Monitor ' TOLU + OH --> TRO2 + 0.27 PCO + 0.19 CSL + 0.3 AROMP5 + 0.06 BALD + 0.68 AROMP4 + 0.... etc.', & ! index 725 ' XYLE + OH --> XRO2 + 0.3 PCO + 0.15 CSL + 0.45 RCOOH + 0.56 AROMP5 + 0.06 BALD + 0.2... etc.', & ! index 726 ' AROMRO2 + HO2 --> HO2 + OH ', & ! index 727 - ' AROMRO2 + NO --> POx + NO2 + HO2 ', & ! index 728 - ' AROMRO2 + NO3 --> LOx + NO2 + HO2 ', & ! index 729 + ' AROMRO2 + NO --> POx + HO2 + NO2 ', & ! index 728 + ' AROMRO2 + NO3 --> LOx + HO2 + NO2 ', & ! index 729 ' AROMRO2 + MO2 --> CH2O + 2 HO2 ', & ! index 730 ' AROMRO2 + MCO3 --> CO2 + MO2 + HO2 ', & ! index 731 ' TLFUONE + OH --> TLFUO2 ', & ! index 732 - ' TLFUO2 + NO --> POx + AROMCHO + NO2 + HO2 ', & ! index 733 + ' TLFUO2 + NO --> POx + AROMCHO + HO2 + NO2 ', & ! index 733 ' TLFUO2 + HO2 --> AROMCHO ', & ! index 734 ' AROMCHO + OH --> AROMCO3 ', & ! index 735 ' AROMCO3 + NO --> 2 CO2 + POx + RCO3 + NO2 ', & ! index 736 - ' AROMCO3 + HO2 --> 0.44 CO2 + 0.15 POx + 0.41 RP + 0.15 RCOOH + 0.44 RCO3 + 0.15 O3 + 0.44 OH ', & ! index 737 + ' AROMCO3 + HO2 --> 0.44 CO2 + 0.15 POx + 0.41 RP + 0.15 RCOOH + 0.44 RCO3 + 0.44 OH + 0.15 O3 ', & ! index 737 ' AROMCO3 + NO2 --> LOx + AROMPN ', & ! index 738 ' AROMPN --> POx + AROMCO3 + NO2 ', & ! index 739 ' AROMPN + OH --> POx + 2 PCO + MCO3 + CH2O + 2 CO + NO2 ', & ! index 740 @@ -929,7 +930,7 @@ MODULE gckpp_Monitor ' MCT + NO3 --> 1.5 LOx + 0.3 BENZO + 0.3 AROMP4 + 0.2 AROMRO2 + 0.5 NPHEN + 0.5 HNO3 ', & ! index 747 ' BALD + OH --> BZCO3 ', & ! index 748 ' BALD + NO3 --> LOx + BZCO3 + HNO3 ', & ! index 749 - ' BZCO3 + HO2 --> 0.35 CO2 + 0.15 POx + 0.65 BZCO3H + 0.15 BENZP + 0.2 BENZO2 + 0.15 O3 + 0.2 OH' /) ! index up to 750 + ' BZCO3 + HO2 --> 0.35 CO2 + 0.15 POx + 0.65 BZCO3H + 0.15 BENZP + 0.2 BENZO2 + 0.2 OH + 0.15 O3' /) ! index up to 750 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_25 = (/ & ' BZCO3 + NO --> CO2 + POx + BENZO2 + NO2 ', & ! index 751 ' BZCO3 + NO2 --> LOx + BZPAN ', & ! index 752 @@ -959,7 +960,7 @@ MODULE gckpp_Monitor ' TRO2 + NO --> LTRO2N + NO ', & ! index 776 ' XRO2 + HO2 --> LXRO2H + HO2 ', & ! index 777 ' XRO2 + NO --> LXRO2N + NO ', & ! index 778 - ' MO2 + NO3 --> LOx + CH2O + NO2 + HO2 ', & ! index 779 + ' MO2 + NO3 --> LOx + CH2O + HO2 + NO2 ', & ! index 779 ' FURA + OH --> BUTDI ' /) ! index up to 780 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_26 = (/ & ' HO2 --> H2O ', & ! index 781 @@ -972,11 +973,11 @@ MODULE gckpp_Monitor ' N2O5 --> LOx + 2 HNO3 ', & ! index 788 ' N2O5 + SALACL --> LOx + ClNO2 + HNO3 ', & ! index 789 ' N2O5 + SALCCL --> LOx + ClNO2 + HNO3 ', & ! index 790 - ' OH + SALACL --> 0.5 Cl2 ', & ! index 791 - ' SALCCL + OH --> 0.5 Cl2 ', & ! index 792 + ' SALACL + OH --> 0.5 Cl2 ', & ! index 791 + ' OH + SALCCL --> 0.5 Cl2 ', & ! index 792 ' BrNO3 + H2O --> HOBr + HNO3 ', & ! index 793 ' BrNO3 + HCl --> LOx + BrCl + HNO3 ', & ! index 794 - ' ClNO3 + H2O --> HNO3 + HOCl ', & ! index 795 + ' ClNO3 + H2O --> HOCl + HNO3 ', & ! index 795 ' ClNO3 + HCl --> LOx + Cl2 + HNO3 ', & ! index 796 ' ClNO3 + HBr --> LOx + BrCl + HNO3 ', & ! index 797 ' ClNO3 + BrSALA --> LOx + BrCl + HNO3 ', & ! index 798 @@ -1002,9 +1003,9 @@ MODULE gckpp_Monitor ' HOBr + BrSALA --> LOx + Br2 ', & ! index 817 ' HOBr + BrSALC --> LOx + Br2 ', & ! index 818 ' HOBr + SO2 --> LOx + PSO4 + SO4 + HBr ', & ! index 819 - ' O3 + HBr --> HOBr ', & ! index 820 - ' O3 + BrSALA --> HOBr ', & ! index 821 - ' O3 + BrSALC --> HOBr ', & ! index 822 + ' HBr + O3 --> HOBr ', & ! index 820 + ' BrSALA + O3 --> HOBr ', & ! index 821 + ' BrSALC + O3 --> HOBr ', & ! index 822 ' HBr --> BrSALA ', & ! index 823 ' HBr --> BrSALC ', & ! index 824 ' HI --> AERI ', & ! index 825 @@ -1026,7 +1027,7 @@ MODULE gckpp_Monitor CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_28 = (/ & ' IONO2 --> ISALA + LOx + HNO3 ', & ! index 841 ' IONO2 --> ISALC + LOx + HNO3 ', & ! index 842 - ' IONO2 + H2O --> HNO3 + HOI ', & ! index 843 + ' IONO2 + H2O --> HOI + HNO3 ', & ! index 843 ' IONO + BrSALA --> LOx + IBr + HNO2 ', & ! index 844 ' IONO + BrSALC --> LOx + IBr + HNO2 ', & ! index 845 ' IONO + SALACL --> LOx + ICl + HNO2 ', & ! index 846 @@ -1066,190 +1067,197 @@ MODULE gckpp_Monitor ' MCRHNB --> LOx + IONITA ', & ! index 879 ' MCRHN --> LOx + IONITA ', & ! index 880 ' NPHEN --> AONITA ', & ! index 881 - ' O3 --> O + O2 ', & ! index 882 - ' O3 --> O1D + O2 ', & ! index 883 - ' O2 --> 2 POx + 2 O ', & ! index 884 - ' NO2 --> O + NO ', & ! index 885 - ' H2O2 --> 2 OH ', & ! index 886 - ' MP --> CH2O + HO2 + OH ', & ! index 887 - ' CH2O --> PCO + H + CO + HO2 ', & ! index 888 - ' CH2O --> PCO + CO + H2 ', & ! index 889 - ' HNO3 --> NO2 + OH ', & ! index 890 - ' HNO2 --> OH + NO ', & ! index 891 - ' HNO4 --> POx + OH + NO3 ', & ! index 892 - ' HNO4 --> NO2 + HO2 ', & ! index 893 - ' NO3 --> NO2 + O ', & ! index 894 - ' NO3 --> 2 LOx + NO + O2 ', & ! index 895 - ' N2O5 --> NO2 + NO3 ', & ! index 896 - ' ALD2 --> 0.88 PCO + 0.12 MCO3 + 0.88 MO2 + 0.88 CO + HO2 ', & ! index 897 - ' ALD2 --> PCO + CH4 + CO ', & ! index 898 - ' PAN --> 0.3 CO2 + 0.3 POx + 0.7 MCO3 + 0.3 MO2 + 0.7 NO2 + 0.3 NO3 ', & ! index 899 - ' APAN --> POx + ACO3 + NO2 ' /) ! index up to 900 + ' H2O2 + SO2 --> PSO4MP + PSO4 + SO4 ', & ! index 882 + ' SO2 + O3 --> PSO4MP + LOx + PSO4 + SO4 ', & ! index 883 + ' SO2 --> PSO4MP + PSO4 + SO4 ', & ! index 884 + ' NO2 + SO2 --> PSO4MP + LOx + PSO4 + SO4 ', & ! index 885 + ' CH2O + SO2 --> PSO4MP + HMS ', & ! index 886 + ' HMS --> PHMSMP + CH2O + SO2 ', & ! index 887 + ' HMS + OH + SO2 --> 2 PSO4MP + 2 PSO4 + 2 SO4 + CH2O ', & ! index 888 + ' O3 --> O + O2 ', & ! index 889 + ' O3 --> O1D + O2 ', & ! index 890 + ' O2 --> 2 POx + 2 O ', & ! index 891 + ' NO2 --> NO + O ', & ! index 892 + ' H2O2 --> 2 OH ', & ! index 893 + ' MP --> CH2O + HO2 + OH ', & ! index 894 + ' CH2O --> PCO + H + CO + HO2 ', & ! index 895 + ' CH2O --> PCO + CO + H2 ', & ! index 896 + ' HNO3 --> OH + NO2 ', & ! index 897 + ' HNO2 --> NO + OH ', & ! index 898 + ' HNO4 --> POx + OH + NO3 ', & ! index 899 + ' HNO4 --> HO2 + NO2 ' /) ! index up to 900 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_30 = (/ & - ' ACR --> 0.7 PCO + 0.4 C2H4 + 0.3 ACO3 + 0.3 CH2O + 0.7 CO + 0.3 HO2 ', & ! index 901 - ' AROMCHO --> PCO + MCO3 + CH2O + CO + HO2 ', & ! index 902 - ' RCHO --> PCO + 0.49 OTHRO2 + 0.07 A3O2 + 0.27 B3O2 + CO + HO2 ', & ! index 903 - ' ACET --> MCO3 + MO2 ', & ! index 904 - ' ACET --> PCO + 2 MO2 + CO ', & ! index 905 - ' MEK --> 0.415 OTHRO2 + 0.06 A3O2 + 0.15 RCO3 + 0.23 B3O2 + 0.85 MCO3 + 0.15 MO2 ', & ! index 906 - ' GLYC --> PCO + 0.1 MOH + 0.9 CH2O + CO + 1.73 HO2 + 0.07 OH ', & ! index 907 - ' GLYX --> 2 PCO + 2 CO + 2 HO2 ', & ! index 908 - ' GLYX --> 2 PCO + 2 CO + H2 ', & ! index 909 - ' GLYX --> PCO + CH2O + CO ', & ! index 910 - ' MGLY --> PCO + MCO3 + CO + HO2 ', & ! index 911 - ' MVK --> PCO + PRPE + CO ', & ! index 912 - ' MVK --> PCO + MCO3 + CH2O + CO + HO2 ', & ! index 913 - ' MVK --> RCO3 + MO2 ', & ! index 914 - ' MACR --> PCO + MCO3 + CH2O + CO + HO2 ', & ! index 915 - ' HAC --> MCO3 + CH2O + HO2 ', & ! index 916 - ' PRPN --> RCHO + NO2 + HO2 + OH ', & ! index 917 - ' ETP --> ALD2 + HO2 + OH ', & ! index 918 - ' RA3P --> RCHO + HO2 + OH ', & ! index 919 - ' RB3P --> ACET + HO2 + OH ', & ! index 920 - ' R4P --> 1.5 RCHO + HO2 + OH ', & ! index 921 - ' R7P --> RCHO + HO2 + OH ', & ! index 922 - ' ALK4P --> 1.5 RCHO + HO2 + OH ', & ! index 923 - ' PP --> CH2O + ALD2 + HO2 + OH ', & ! index 924 - ' RP --> ALD2 + MO2 + HO2 + OH ', & ! index 925 - ' R4N2 --> 0.19 MEK + 0.34 ACET + 0.15 RCHO + 0.34 OTHRO2 + 0.05 A3O2 + 0.19 B3O2... etc.', & ! index 926 - ' R7N2 --> POx + 1.558 RCHO + 0.326 RCO3 + 0.326 MCO3 + 0.348 ALD2 + NO2 + 0.326 HO2 ', & ! index 927 - ' RNO3 --> POx + BALD + NO2 + H2O + HO2 ', & ! index 928 - ' ALK4N2 --> 0.19 MEK + 0.34 ACET + 0.15 RCHO + 0.34 OTHRO2 + 0.05 A3O2 + 0.19 B3O2... etc.', & ! index 929 - ' MAP --> CO2 + MO2 + OH ' /) ! index up to 930 + ' NO3 --> NO2 + O ', & ! index 901 + ' NO3 --> 2 LOx + NO + O2 ', & ! index 902 + ' N2O5 --> NO2 + NO3 ', & ! index 903 + ' ALD2 --> 0.88 PCO + 0.12 MCO3 + 0.88 MO2 + 0.88 CO + HO2 ', & ! index 904 + ' ALD2 --> PCO + CH4 + CO ', & ! index 905 + ' PAN --> 0.3 CO2 + 0.3 POx + 0.7 MCO3 + 0.3 MO2 + 0.7 NO2 + 0.3 NO3 ', & ! index 906 + ' APAN --> POx + ACO3 + NO2 ', & ! index 907 + ' ACR --> 0.7 PCO + 0.4 C2H4 + 0.3 ACO3 + 0.3 CH2O + 0.7 CO + 0.3 HO2 ', & ! index 908 + ' AROMCHO --> PCO + MCO3 + CH2O + CO + HO2 ', & ! index 909 + ' RCHO --> PCO + 0.49 OTHRO2 + 0.07 A3O2 + 0.27 B3O2 + CO + HO2 ', & ! index 910 + ' ACET --> MCO3 + MO2 ', & ! index 911 + ' ACET --> PCO + 2 MO2 + CO ', & ! index 912 + ' MEK --> 0.415 OTHRO2 + 0.15 RCO3 + 0.06 A3O2 + 0.23 B3O2 + 0.85 MCO3 + 0.15 MO2 ', & ! index 913 + ' GLYC --> PCO + 0.1 MOH + 0.9 CH2O + CO + 1.73 HO2 + 0.07 OH ', & ! index 914 + ' GLYX --> 2 PCO + 2 CO + 2 HO2 ', & ! index 915 + ' GLYX --> 2 PCO + 2 CO + H2 ', & ! index 916 + ' GLYX --> PCO + CH2O + CO ', & ! index 917 + ' MGLY --> PCO + MCO3 + CO + HO2 ', & ! index 918 + ' MVK --> PCO + PRPE + CO ', & ! index 919 + ' MVK --> PCO + MCO3 + CH2O + CO + HO2 ', & ! index 920 + ' MVK --> RCO3 + MO2 ', & ! index 921 + ' MACR --> PCO + MCO3 + CH2O + CO + HO2 ', & ! index 922 + ' HAC --> MCO3 + CH2O + HO2 ', & ! index 923 + ' PRPN --> RCHO + HO2 + OH + NO2 ', & ! index 924 + ' ETP --> ALD2 + HO2 + OH ', & ! index 925 + ' RA3P --> RCHO + HO2 + OH ', & ! index 926 + ' RB3P --> ACET + HO2 + OH ', & ! index 927 + ' R4P --> 1.5 RCHO + HO2 + OH ', & ! index 928 + ' R7P --> RCHO + HO2 + OH ', & ! index 929 + ' ALK4P --> 1.5 RCHO + HO2 + OH ' /) ! index up to 930 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_31 = (/ & - ' Br2 --> 2 Br ', & ! index 931 - ' BrO --> Br + O ', & ! index 932 - ' HOBr --> LOx + Br + OH ', & ! index 933 - ' BrNO3 --> Br + NO3 ', & ! index 934 - ' BrNO3 --> NO2 + BrO ', & ! index 935 - ' BrNO2 --> NO2 + Br ', & ! index 936 - ' CHBr3 --> 3 Br ', & ! index 937 - ' CH2Br2 --> 2 Br ', & ! index 938 - ' CH3Br --> MO2 + Br ', & ! index 939 - ' CH3Cl --> MO2 + Cl ', & ! index 940 - ' CH2Cl2 --> 2 Cl ', & ! index 941 - ' BrCl --> Cl + Br ', & ! index 942 - ' Cl2 --> 2 Cl ', & ! index 943 - ' ClO --> Cl + O ', & ! index 944 - ' OClO --> ClO + O ', & ! index 945 - ' Cl2O2 --> 2 LOx + ClOO + Cl ', & ! index 946 - ' ClNO2 --> NO2 + Cl ', & ! index 947 - ' ClNO3 --> Cl + NO3 ', & ! index 948 - ' ClNO3 --> NO2 + ClO ', & ! index 949 - ' HOCl --> LOx + Cl + OH ', & ! index 950 - ' CH3CCl3 --> 3 Cl ', & ! index 951 - ' CCl4 --> 4 Cl ', & ! index 952 - ' CFC11 --> 3 Cl ', & ! index 953 - ' CFC12 --> 2 Cl ', & ! index 954 - ' CFC113 --> 3 Cl ', & ! index 955 - ' CFC114 --> 2 Cl ', & ! index 956 - ' CFC115 --> Cl ', & ! index 957 - ' HCFC123 --> 2 Cl ', & ! index 958 - ' HCFC141b --> 2 Cl ', & ! index 959 - ' HCFC142b --> Cl ' /) ! index up to 960 + ' PP --> CH2O + ALD2 + HO2 + OH ', & ! index 931 + ' RP --> ALD2 + MO2 + HO2 + OH ', & ! index 932 + ' R4N2 --> 0.19 MEK + 0.34 ACET + 0.15 RCHO + 0.34 OTHRO2 + 0.05 A3O2 + 0.19 B3O2... etc.', & ! index 933 + ' R7N2 --> POx + 1.558 RCHO + 0.326 RCO3 + 0.326 MCO3 + 0.348 ALD2 + 0.326 HO2 + NO2 ', & ! index 934 + ' RNO3 --> POx + BALD + HO2 + NO2 + H2O ', & ! index 935 + ' ALK4N2 --> 0.19 MEK + 0.34 ACET + 0.15 RCHO + 0.34 OTHRO2 + 0.05 A3O2 + 0.19 B3O2... etc.', & ! index 936 + ' MAP --> CO2 + MO2 + OH ', & ! index 937 + ' Br2 --> 2 Br ', & ! index 938 + ' BrO --> Br + O ', & ! index 939 + ' HOBr --> LOx + Br + OH ', & ! index 940 + ' BrNO3 --> Br + NO3 ', & ! index 941 + ' BrNO3 --> NO2 + BrO ', & ! index 942 + ' BrNO2 --> Br + NO2 ', & ! index 943 + ' CHBr3 --> 3 Br ', & ! index 944 + ' CH2Br2 --> 2 Br ', & ! index 945 + ' CH3Br --> MO2 + Br ', & ! index 946 + ' CH3Cl --> MO2 + Cl ', & ! index 947 + ' CH2Cl2 --> 2 Cl ', & ! index 948 + ' BrCl --> Br + Cl ', & ! index 949 + ' Cl2 --> 2 Cl ', & ! index 950 + ' ClO --> O + Cl ', & ! index 951 + ' OClO --> ClO + O ', & ! index 952 + ' Cl2O2 --> 2 LOx + ClOO + Cl ', & ! index 953 + ' ClNO2 --> NO2 + Cl ', & ! index 954 + ' ClNO3 --> NO3 + Cl ', & ! index 955 + ' ClNO3 --> ClO + NO2 ', & ! index 956 + ' HOCl --> LOx + OH + Cl ', & ! index 957 + ' CH3CCl3 --> 3 Cl ', & ! index 958 + ' CCl4 --> 4 Cl ', & ! index 959 + ' CFC11 --> 3 Cl ' /) ! index up to 960 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_32 = (/ & - ' HCFC22 --> Cl ', & ! index 961 - ' H1301 --> Br ', & ! index 962 - ' H1211 --> Cl + Br ', & ! index 963 - ' H2402 --> 2 Br ', & ! index 964 - ' ClOO --> Cl + O2 ', & ! index 965 - ' I2 --> 2 I ', & ! index 966 - ' HOI --> LOx + I + OH ', & ! index 967 - ' IO --> I + O ', & ! index 968 - ' OIO --> 2 LOx + I + O2 ', & ! index 969 - ' INO --> I + NO ', & ! index 970 - ' IONO --> I + NO2 ', & ! index 971 - ' IONO2 --> I + NO3 ', & ! index 972 - ' I2O2 --> OIO + I ', & ! index 973 - ' CH3I --> I ', & ! index 974 - ' CH2I2 --> 2 I ', & ! index 975 - ' CH2ICl --> I + Cl ', & ! index 976 - ' CH2IBr --> I + Br ', & ! index 977 - ' I2O4 --> 2 OIO ', & ! index 978 - ' I2O3 --> OIO + IO ', & ! index 979 - ' IBr --> I + Br ', & ! index 980 - ' ICl --> I + Cl ', & ! index 981 - ' MPN --> POx + CH2O + HO2 + NO3 ', & ! index 982 - ' MPN --> MO2 + NO2 ', & ! index 983 - ' ATOOH --> MCO3 + CH2O + OH ', & ! index 984 - ' N2O --> POx + O1D + N2 ', & ! index 985 - ' OCS --> PCO + CO + SO2 ', & ! index 986 - ' SO4 --> 2 OH + SO2 ', & ! index 987 - ' NO --> POx + N + O ', & ! index 988 - ' PIP --> RCHO + HO2 + OH ', & ! index 989 - ' ETHLN --> PCO + CH2O + CO + NO2 + HO2 ' /) ! index up to 990 + ' CFC12 --> 2 Cl ', & ! index 961 + ' CFC113 --> 3 Cl ', & ! index 962 + ' CFC114 --> 2 Cl ', & ! index 963 + ' CFC115 --> Cl ', & ! index 964 + ' HCFC123 --> 2 Cl ', & ! index 965 + ' HCFC141b --> 2 Cl ', & ! index 966 + ' HCFC142b --> Cl ', & ! index 967 + ' HCFC22 --> Cl ', & ! index 968 + ' H1301 --> Br ', & ! index 969 + ' H1211 --> Br + Cl ', & ! index 970 + ' H2402 --> 2 Br ', & ! index 971 + ' ClOO --> Cl + O2 ', & ! index 972 + ' I2 --> 2 I ', & ! index 973 + ' HOI --> LOx + I + OH ', & ! index 974 + ' IO --> I + O ', & ! index 975 + ' OIO --> 2 LOx + I + O2 ', & ! index 976 + ' INO --> I + NO ', & ! index 977 + ' IONO --> I + NO2 ', & ! index 978 + ' IONO2 --> I + NO3 ', & ! index 979 + ' I2O2 --> OIO + I ', & ! index 980 + ' CH3I --> I ', & ! index 981 + ' CH2I2 --> 2 I ', & ! index 982 + ' CH2ICl --> I + Cl ', & ! index 983 + ' CH2IBr --> I + Br ', & ! index 984 + ' I2O4 --> 2 OIO ', & ! index 985 + ' I2O3 --> OIO + IO ', & ! index 986 + ' IBr --> I + Br ', & ! index 987 + ' ICl --> I + Cl ', & ! index 988 + ' MPN --> POx + CH2O + HO2 + NO3 ', & ! index 989 + ' MPN --> MO2 + NO2 ' /) ! index up to 990 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_33 = (/ & - ' MONITS --> MEK + NO2 ', & ! index 991 - ' MONITU --> RCHO + NO2 ', & ! index 992 - ' HONIT --> HAC + NO2 ', & ! index 993 - ' NITs --> LOx + HNO2 ', & ! index 994 - ' NITs --> NO2 ', & ! index 995 - ' NIT --> LOx + HNO2 ', & ! index 996 - ' NIT --> NO2 ', & ! index 997 - ' MENO3 --> POx + CH2O + NO2 + HO2 ', & ! index 998 - ' ETNO3 --> POx + ALD2 + NO2 + HO2 ', & ! index 999 - ' IPRNO3 --> POx + ACET + NO2 + HO2 ', & ! index 1000 - ' NPRNO3 --> POx + RCHO + NO2 + HO2 ', & ! index 1001 - ' HMHP --> CH2O + 2 OH ', & ! index 1002 - ' HPETHNL --> PCO + CH2O + CO + HO2 + OH ', & ! index 1003 - ' PYAC --> CO2 + MCO3 + HO2 ', & ! index 1004 - ' PROPNN --> MCO3 + CH2O + NO2 ', & ! index 1005 - ' MVKHC --> PCO + MCO3 + CH2O + CO + HO2 ', & ! index 1006 - ' MVKHCB --> 0.5 PCO + 0.5 GLYX + 0.5 MGLY + 0.5 MCO3 + 0.5 CO + 1.5 HO2 ', & ! index 1007 - ' MVKHP --> 0.47 MGLY + 0.53 GLYC + 0.53 MCO3 + 0.47 CH2O + 0.47 HO2 + OH ', & ! index 1008 - ' MVKPC --> 0.571 PCO + 0.429 GLYX + 0.571 MGLY + 0.429 MCO3 + 0.571 CO + 0.571 HO2 + OH ', & ! index 1009 - ' MCRENOL --> 0.875 PCO + 0.75 PYAC + 0.125 GLYX + 0.125 MGLY + 0.125 MCO3 + 0.875 C... etc.', & ! index 1010 - ' MCRHP --> 0.77 PCO + 0.23 MGLY + 0.77 HAC + 0.23 CH2O + 0.77 CO + HO2 + OH ', & ! index 1011 - ' MACR1OOH --> 1.238 CO2 + 0.25 MACR1OOH + 0.262 MCO3 + 0.75 CH2O + 0.488 MO2 + 0.75 OH ', & ! index 1012 - ' MVKN --> 0.3 ETHLN + 0.69 GLYC + 1.01 MCO3 + 0.7 NO2 + 0.29 HO2 + 0.01 OH ', & ! index 1013 - ' MCRHN --> PCO + HAC + CO + NO2 + HO2 ', & ! index 1014 - ' MCRHNB --> PCO + PROPNN + CO + HO2 + OH ', & ! index 1015 - ' RIPA --> MVK + CH2O + HO2 + OH ', & ! index 1016 - ' RIPB --> MACR + CH2O + HO2 + OH ', & ! index 1017 - ' RIPC --> HC5A + HO2 + OH ', & ! index 1018 - ' RIPD --> HC5A + HO2 + OH ', & ! index 1019 - ' HPALD1 --> 0.888 PCO + 0.112 IDC + 0.224 C4HVP1 + 0.112 MVKPC + 0.552 MCRENOL + 0... etc.' /) ! index up to 1020 + ' ATOOH --> MCO3 + CH2O + OH ', & ! index 991 + ' N2O --> POx + O1D + N2 ', & ! index 992 + ' OCS --> PCO + CO + SO2 ', & ! index 993 + ' SO4 --> 2 OH + SO2 ', & ! index 994 + ' NO --> POx + N + O ', & ! index 995 + ' PIP --> RCHO + HO2 + OH ', & ! index 996 + ' ETHLN --> PCO + CH2O + CO + HO2 + NO2 ', & ! index 997 + ' MONITS --> MEK + NO2 ', & ! index 998 + ' MONITU --> RCHO + NO2 ', & ! index 999 + ' HONIT --> HAC + NO2 ', & ! index 1000 + ' NITs --> LOx + HNO2 ', & ! index 1001 + ' NITs --> NO2 ', & ! index 1002 + ' NIT --> LOx + HNO2 ', & ! index 1003 + ' NIT --> NO2 ', & ! index 1004 + ' MENO3 --> POx + CH2O + HO2 + NO2 ', & ! index 1005 + ' ETNO3 --> POx + ALD2 + HO2 + NO2 ', & ! index 1006 + ' IPRNO3 --> POx + ACET + HO2 + NO2 ', & ! index 1007 + ' NPRNO3 --> POx + RCHO + HO2 + NO2 ', & ! index 1008 + ' HMHP --> CH2O + 2 OH ', & ! index 1009 + ' HPETHNL --> PCO + CH2O + CO + HO2 + OH ', & ! index 1010 + ' PYAC --> CO2 + MCO3 + HO2 ', & ! index 1011 + ' PROPNN --> MCO3 + CH2O + NO2 ', & ! index 1012 + ' MVKHC --> PCO + MCO3 + CH2O + CO + HO2 ', & ! index 1013 + ' MVKHCB --> 0.5 PCO + 0.5 GLYX + 0.5 MGLY + 0.5 MCO3 + 0.5 CO + 1.5 HO2 ', & ! index 1014 + ' MVKHP --> 0.47 MGLY + 0.53 GLYC + 0.53 MCO3 + 0.47 CH2O + 0.47 HO2 + OH ', & ! index 1015 + ' MVKPC --> 0.571 PCO + 0.429 GLYX + 0.571 MGLY + 0.429 MCO3 + 0.571 CO + 0.571 HO2 + OH ', & ! index 1016 + ' MCRENOL --> 0.875 PCO + 0.75 PYAC + 0.125 GLYX + 0.125 MGLY + 0.125 MCO3 + 0.875 C... etc.', & ! index 1017 + ' MCRHP --> 0.77 PCO + 0.23 MGLY + 0.77 HAC + 0.23 CH2O + 0.77 CO + HO2 + OH ', & ! index 1018 + ' MACR1OOH --> 1.238 CO2 + 0.25 MACR1OOH + 0.262 MCO3 + 0.75 CH2O + 0.488 MO2 + 0.75 OH ', & ! index 1019 + ' MVKN --> 0.3 ETHLN + 0.69 GLYC + 1.01 MCO3 + 0.29 HO2 + 0.01 OH + 0.7 NO2 ' /) ! index up to 1020 CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_34 = (/ & - ' HPALD2 --> 0.818 PCO + 0.182 IDC + 0.182 C4HVP2 + 0.182 MVKPC + 0.454 MCRENOL + 0... etc.', & ! index 1021 - ' HPALD3 --> PCO + MVK + CO + HO2 + OH ', & ! index 1022 - ' HPALD4 --> PCO + MACR + CO + HO2 + OH ', & ! index 1023 - ' IHN1 --> 0.55 PCO + 0.45 HC5A + 0.55 MVKHP + 0.55 CO + NO2 + 0.45 HO2 + 0.55 OH ', & ! index 1024 - ' IHN2 --> MVK + CH2O + NO2 + HO2 ', & ! index 1025 - ' IHN3 --> MACR + CH2O + NO2 + HO2 ', & ! index 1026 - ' IHN4 --> 0.55 PCO + 0.45 HC5A + 0.55 MCRHP + 0.55 CO + NO2 + 0.45 HO2 + 0.55 OH ', & ! index 1027 - ' INPB --> 0.097 MACR + 0.903 MVK + CH2O + NO2 + 0.33 HO2 + 0.67 OH ', & ! index 1028 - ' INPD --> 0.841 INA + 0.159 ICN + 0.159 HO2 + OH ', & ! index 1029 - ' INPD --> 0.159 IHOO4 + 0.841 IHOO1 + NO2 ', & ! index 1030 - ' ICN --> 0.839 PCO + 0.161 IDC + 0.068 C4HVP1 + 0.128 C4HVP2 + 0.162 MVKPC + 0.... etc.', & ! index 1031 - ' IDN --> 0.222 INA + 0.223 ICN + 0.5 GLYC + 0.5 HAC + 0.005 MACR + 0.05 MVK + 0... etc.', & ! index 1032 - ' ICPDH --> PCO + 0.35 MVKDH + 0.15 MCRDH + 0.5 MCRHP + CO + 1.5 HO2 + 0.5 OH ', & ! index 1033 - ' ICPDH --> 0.163 PCO + 0.163 MCRDH + 0.133 MVKHCB + 0.586 GLYX + 0.118 MGLY + 0.1... etc.', & ! index 1034 - ' IDHDP --> 0.75 ICPDH + 0.25 GLYC + 0.25 HAC + 0.75 HO2 + 1.25 OH ', & ! index 1035 - ' IDHPE --> 0.571 GLYX + 0.429 MGLY + 0.429 GLYC + 0.571 HAC + HO2 + OH ', & ! index 1036 - ' IDCHP --> PCO + 0.454 MVKPC + 0.391 MVKHC + 0.155 MVKHCB + CO + 1.454 HO2 + 0.546 OH ', & ! index 1037 - ' ITHN --> 0.5 MCRHN + 0.15 ETHLN + 0.05 MVKN + 0.3 GLYC + 0.45 HAC + 0.55 CH2O +... etc.', & ! index 1038 - ' ITHN --> 0.5 HPETHNL + 0.05 ATOOH + 0.15 MCRHP + 0.35 GLYC + 0.8 HAC + 0.15 CH2... etc.', & ! index 1039 - ' ITCN --> MGLY + GLYC + NO2 + OH ', & ! index 1040 - ' ITCN --> PCO + 0.5 MCRHP + 0.5 MVKHP + CO + NO2 + HO2 ', & ! index 1041 - ' ETHP --> ETO + OH ', & ! index 1042 - ' BALD --> PCO + BENZO2 + CO + HO2 ', & ! index 1043 - ' BZCO3H --> CO2 + BENZO2 + OH ', & ! index 1044 - ' BENZP --> BENZO ', & ! index 1045 - ' NPHEN --> CO2 + PCO + AROMP4 + HNO2 + CO + HO2 ', & ! index 1046 - ' PPN --> 0.3 POx + 0.7 RCO3 + 0.7 NO2 + 0.3 NO3 ', & ! index 1047 - ' APINP --> PINAL + HO2 + OH ', & ! index 1048 - ' PINAL --> PCO + C96O2 + CO + HO2 ', & ! index 1049 - ' PINO3H --> CO2 + C96O2 + OH ' /) ! index up to 1050 - CHARACTER(LEN=100), PARAMETER, DIMENSION(8) :: EQN_NAMES_35 = (/ & - ' PINONIC --> CO2 + C96O2 + OH ', & ! index 1051 - ' C96O2H --> AROMRO2 + 0.5 MEK + ACET + RCO3 + CH2O + OH ', & ! index 1052 - ' BPINP --> BPINO + CH2O + HO2 + OH ', & ! index 1053 - ' BPINOOH --> 0.27 LIMO3 + 0.6 ACET + 0.6 RCHO + 0.6 R4O2 + HO2 + OH ', & ! index 1054 - ' LIMO3H --> CO2 + RCHO + 0.8 R4O2 + MCO3 + 0.4 CH2O + OH ', & ! index 1055 - ' LIMO2H --> CO2 + RCHO + 0.8 R4O2 + MCO3 + 0.4 CH2O + OH ', & ! index 1056 - ' PIP --> 0.675 MYRCO + 0.45 ACET + 0.45 MVK + 0.1 CH2O + HO2 + OH ', & ! index 1057 - ' LIMAL --> PCO + 0.9 LIMO3 + CO + HO2 ' /) ! index up to 1058 - CHARACTER(LEN=100), PARAMETER, DIMENSION(1058) :: EQN_NAMES = (/& + ' MCRHN --> PCO + HAC + CO + HO2 + NO2 ', & ! index 1021 + ' MCRHNB --> PCO + PROPNN + CO + HO2 + OH ', & ! index 1022 + ' RIPA --> MVK + CH2O + HO2 + OH ', & ! index 1023 + ' RIPB --> MACR + CH2O + HO2 + OH ', & ! index 1024 + ' RIPC --> HC5A + HO2 + OH ', & ! index 1025 + ' RIPD --> HC5A + HO2 + OH ', & ! index 1026 + ' HPALD1 --> 0.888 PCO + 0.112 IDC + 0.224 C4HVP1 + 0.112 MVKPC + 0.552 MCRENOL + 0... etc.', & ! index 1027 + ' HPALD2 --> 0.818 PCO + 0.182 IDC + 0.182 C4HVP2 + 0.182 MVKPC + 0.454 MCRENOL + 0... etc.', & ! index 1028 + ' HPALD3 --> PCO + MVK + CO + HO2 + OH ', & ! index 1029 + ' HPALD4 --> PCO + MACR + CO + HO2 + OH ', & ! index 1030 + ' IHN1 --> 0.55 PCO + 0.45 HC5A + 0.55 MVKHP + 0.55 CO + 0.45 HO2 + 0.55 OH + NO2 ', & ! index 1031 + ' IHN2 --> MVK + CH2O + HO2 + NO2 ', & ! index 1032 + ' IHN3 --> MACR + CH2O + HO2 + NO2 ', & ! index 1033 + ' IHN4 --> 0.55 PCO + 0.45 HC5A + 0.55 MCRHP + 0.55 CO + 0.45 HO2 + 0.55 OH + NO2 ', & ! index 1034 + ' INPB --> 0.097 MACR + 0.903 MVK + CH2O + 0.33 HO2 + 0.67 OH + NO2 ', & ! index 1035 + ' INPD --> 0.841 INA + 0.159 ICN + 0.159 HO2 + OH ', & ! index 1036 + ' INPD --> 0.841 IHOO1 + 0.159 IHOO4 + NO2 ', & ! index 1037 + ' ICN --> 0.839 PCO + 0.161 IDC + 0.068 C4HVP1 + 0.128 C4HVP2 + 0.162 MVKPC + 0.... etc.', & ! index 1038 + ' IDN --> 0.222 INA + 0.223 ICN + 0.5 GLYC + 0.5 HAC + 0.005 MACR + 0.05 MVK + 0... etc.', & ! index 1039 + ' ICPDH --> PCO + 0.35 MVKDH + 0.15 MCRDH + 0.5 MCRHP + CO + 1.5 HO2 + 0.5 OH ', & ! index 1040 + ' ICPDH --> 0.163 PCO + 0.163 MCRDH + 0.133 MVKHCB + 0.586 GLYX + 0.118 MGLY + 0.1... etc.', & ! index 1041 + ' IDHDP --> 0.75 ICPDH + 0.25 GLYC + 0.25 HAC + 0.75 HO2 + 1.25 OH ', & ! index 1042 + ' IDHPE --> 0.571 GLYX + 0.429 MGLY + 0.429 GLYC + 0.571 HAC + HO2 + OH ', & ! index 1043 + ' IDCHP --> PCO + 0.454 MVKPC + 0.391 MVKHC + 0.155 MVKHCB + CO + 1.454 HO2 + 0.546 OH ', & ! index 1044 + ' ITHN --> 0.5 MCRHN + 0.15 ETHLN + 0.05 MVKN + 0.3 GLYC + 0.45 HAC + 0.55 CH2O +... etc.', & ! index 1045 + ' ITHN --> 0.5 HPETHNL + 0.05 ATOOH + 0.15 MCRHP + 0.35 GLYC + 0.8 HAC + 0.15 CH2... etc.', & ! index 1046 + ' ITCN --> MGLY + GLYC + OH + NO2 ', & ! index 1047 + ' ITCN --> PCO + 0.5 MCRHP + 0.5 MVKHP + CO + HO2 + NO2 ', & ! index 1048 + ' ETHP --> ETO + OH ', & ! index 1049 + ' BALD --> PCO + BENZO2 + CO + HO2 ' /) ! index up to 1050 + CHARACTER(LEN=100), PARAMETER, DIMENSION(15) :: EQN_NAMES_35 = (/ & + ' BZCO3H --> CO2 + BENZO2 + OH ', & ! index 1051 + ' BENZP --> BENZO ', & ! index 1052 + ' NPHEN --> CO2 + PCO + AROMP4 + HNO2 + CO + HO2 ', & ! index 1053 + ' PPN --> 0.3 POx + 0.7 RCO3 + 0.7 NO2 + 0.3 NO3 ', & ! index 1054 + ' APINP --> PINAL + HO2 + OH ', & ! index 1055 + ' PINAL --> PCO + C96O2 + CO + HO2 ', & ! index 1056 + ' PINO3H --> CO2 + C96O2 + OH ', & ! index 1057 + ' PINONIC --> CO2 + C96O2 + OH ', & ! index 1058 + ' C96O2H --> AROMRO2 + 0.5 MEK + ACET + RCO3 + CH2O + OH ', & ! index 1059 + ' BPINP --> BPINO + CH2O + HO2 + OH ', & ! index 1060 + ' BPINOOH --> 0.27 LIMO3 + 0.6 ACET + 0.6 RCHO + 0.6 R4O2 + HO2 + OH ', & ! index 1061 + ' LIMO3H --> CO2 + RCHO + 0.8 R4O2 + MCO3 + 0.4 CH2O + OH ', & ! index 1062 + ' LIMO2H --> CO2 + RCHO + 0.8 R4O2 + MCO3 + 0.4 CH2O + OH ', & ! index 1063 + ' PIP --> 0.675 MYRCO + 0.45 ACET + 0.45 MVK + 0.1 CH2O + HO2 + OH ', & ! index 1064 + ' LIMAL --> PCO + 0.9 LIMO3 + CO + HO2 ' /) ! index up to 1065 + CHARACTER(LEN=100), PARAMETER, DIMENSION(1065) :: EQN_NAMES = (/& EQN_NAMES_0, EQN_NAMES_1, EQN_NAMES_2, EQN_NAMES_3, EQN_NAMES_4, & EQN_NAMES_5, EQN_NAMES_6, EQN_NAMES_7, EQN_NAMES_8, EQN_NAMES_9, & EQN_NAMES_10, EQN_NAMES_11, EQN_NAMES_12, EQN_NAMES_13, EQN_NAMES_14, & diff --git a/KPP/fullchem/gckpp_Parameters.F90 b/KPP/fullchem/gckpp_Parameters.F90 index 3db95f81d..e197c6716 100644 --- a/KPP/fullchem/gckpp_Parameters.F90 +++ b/KPP/fullchem/gckpp_Parameters.F90 @@ -2,7 +2,7 @@ ! ! Parameter Module File ! -! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor +! Generated by KPP-3.3.0 symbolic chemistry Kinetics PreProcessor ! (https:/github.com/KineticPreProcessor/KPP ! KPP is distributed under GPL, the general public licence ! (http://www.gnu.org/copyleft/gpl.html) @@ -31,9 +31,9 @@ MODULE gckpp_Parameters ! NSPEC - Number of chemical species - INTEGER, PARAMETER :: NSPEC = 356 + INTEGER, PARAMETER :: NSPEC = 359 ! NVAR - Number of Variable species - INTEGER, PARAMETER :: NVAR = 353 + INTEGER, PARAMETER :: NVAR = 356 ! NFAM - Number of Prod/Loss Families INTEGER, PARAMETER :: NFAM = 7 ! NVARACT - Number of Active species @@ -41,17 +41,17 @@ MODULE gckpp_Parameters ! NFIX - Number of Fixed species INTEGER, PARAMETER :: NFIX = 3 ! NREACT - Number of reactions - INTEGER, PARAMETER :: NREACT = 1058 + INTEGER, PARAMETER :: NREACT = 1065 ! NVARST - Starting of variables in conc. vect. INTEGER, PARAMETER :: NVARST = 1 ! NFIXST - Starting of fixed in conc. vect. - INTEGER, PARAMETER :: NFIXST = 354 + INTEGER, PARAMETER :: NFIXST = 357 ! NONZERO - Number of nonzero entries in Jacobian - INTEGER, PARAMETER :: NONZERO = 4401 + INTEGER, PARAMETER :: NONZERO = 4420 ! LU_NONZERO - Number of nonzero entries in LU factoriz. of Jacobian - INTEGER, PARAMETER :: LU_NONZERO = 5683 + INTEGER, PARAMETER :: LU_NONZERO = 5691 ! CNVAR - (NVAR+1) Number of elements in compressed row format - INTEGER, PARAMETER :: CNVAR = 354 + INTEGER, PARAMETER :: CNVAR = 357 ! NLOOKAT - Number of species to look at INTEGER, PARAMETER :: NLOOKAT = 0 ! NMONITOR - Number of species to monitor @@ -95,333 +95,336 @@ MODULE gckpp_Parameters INTEGER, PARAMETER :: ind_SOAIE = 31 INTEGER, PARAMETER :: ind_PH2SO4 = 32 INTEGER, PARAMETER :: ind_PSO4AQ = 33 - INTEGER, PARAMETER :: ind_POx = 34 - INTEGER, PARAMETER :: ind_LOx = 35 - INTEGER, PARAMETER :: ind_PCO = 36 - INTEGER, PARAMETER :: ind_LCO = 37 - INTEGER, PARAMETER :: ind_PSO4 = 38 - INTEGER, PARAMETER :: ind_LCH4 = 39 - INTEGER, PARAMETER :: ind_PH2O2 = 40 - INTEGER, PARAMETER :: ind_FURA = 41 - INTEGER, PARAMETER :: ind_I2O4 = 42 - INTEGER, PARAMETER :: ind_CH3CCl3 = 43 - INTEGER, PARAMETER :: ind_I2O2 = 44 - INTEGER, PARAMETER :: ind_MONITA = 45 - INTEGER, PARAMETER :: ind_CCl4 = 46 - INTEGER, PARAMETER :: ind_CFC11 = 47 - INTEGER, PARAMETER :: ind_CFC12 = 48 - INTEGER, PARAMETER :: ind_CFC113 = 49 - INTEGER, PARAMETER :: ind_CFC114 = 50 - INTEGER, PARAMETER :: ind_CFC115 = 51 - INTEGER, PARAMETER :: ind_CH3I = 52 - INTEGER, PARAMETER :: ind_H1301 = 53 - INTEGER, PARAMETER :: ind_H2402 = 54 - INTEGER, PARAMETER :: ind_I2O3 = 55 - INTEGER, PARAMETER :: ind_PINPAN = 56 - INTEGER, PARAMETER :: ind_LIMPAN = 57 - INTEGER, PARAMETER :: ind_TLFUONE = 58 - INTEGER, PARAMETER :: ind_BrNO2 = 59 - INTEGER, PARAMETER :: ind_C2H2 = 60 - INTEGER, PARAMETER :: ind_H1211 = 61 - INTEGER, PARAMETER :: ind_INO = 62 - INTEGER, PARAMETER :: ind_N2O = 63 - INTEGER, PARAMETER :: ind_NIT = 64 - INTEGER, PARAMETER :: ind_NITs = 65 - INTEGER, PARAMETER :: ind_PINONIC = 66 - INTEGER, PARAMETER :: ind_N = 67 - INTEGER, PARAMETER :: ind_OCS = 68 - INTEGER, PARAMETER :: ind_ALK6 = 69 - INTEGER, PARAMETER :: ind_ETHN = 70 - INTEGER, PARAMETER :: ind_BZCO3H = 71 - INTEGER, PARAMETER :: ind_HACTA = 72 - INTEGER, PARAMETER :: ind_HI = 73 - INTEGER, PARAMETER :: ind_PINO3H = 74 - INTEGER, PARAMETER :: ind_CHCl3 = 75 - INTEGER, PARAMETER :: ind_Cl2O2 = 76 - INTEGER, PARAMETER :: ind_IBr = 77 - INTEGER, PARAMETER :: ind_CH2Br2 = 78 - INTEGER, PARAMETER :: ind_CH2Cl2 = 79 - INTEGER, PARAMETER :: ind_MPN = 80 - INTEGER, PARAMETER :: ind_CHBr3 = 81 - INTEGER, PARAMETER :: ind_TOLU = 82 - INTEGER, PARAMETER :: ind_ETNO3 = 83 - INTEGER, PARAMETER :: ind_HCFC123 = 84 - INTEGER, PARAMETER :: ind_HCFC141b = 85 - INTEGER, PARAMETER :: ind_HCFC142b = 86 - INTEGER, PARAMETER :: ind_HCFC22 = 87 - INTEGER, PARAMETER :: ind_HMHP = 88 - INTEGER, PARAMETER :: ind_HMS = 89 - INTEGER, PARAMETER :: ind_BZPAN = 90 - INTEGER, PARAMETER :: ind_IPRNO3 = 91 - INTEGER, PARAMETER :: ind_MAP = 92 - INTEGER, PARAMETER :: ind_MENO3 = 93 - INTEGER, PARAMETER :: ind_DMS = 94 - INTEGER, PARAMETER :: ind_NPRNO3 = 95 - INTEGER, PARAMETER :: ind_OIO = 96 - INTEGER, PARAMETER :: ind_R4P = 97 - INTEGER, PARAMETER :: ind_R7P = 98 - INTEGER, PARAMETER :: ind_RA3P = 99 - INTEGER, PARAMETER :: ind_RB3P = 100 - INTEGER, PARAMETER :: ind_XYLE = 101 - INTEGER, PARAMETER :: ind_ALK4P = 102 - INTEGER, PARAMETER :: ind_IONITA = 103 - INTEGER, PARAMETER :: ind_ICl = 104 - INTEGER, PARAMETER :: ind_CH3Br = 105 - INTEGER, PARAMETER :: ind_ETO = 106 - INTEGER, PARAMETER :: ind_HMML = 107 - INTEGER, PARAMETER :: ind_HNO4 = 108 - INTEGER, PARAMETER :: ind_C2H4 = 109 - INTEGER, PARAMETER :: ind_ClOO = 110 + INTEGER, PARAMETER :: ind_PSO4MP = 34 + INTEGER, PARAMETER :: ind_PHMSAQ = 35 + INTEGER, PARAMETER :: ind_PHMSMP = 36 + INTEGER, PARAMETER :: ind_POx = 37 + INTEGER, PARAMETER :: ind_LOx = 38 + INTEGER, PARAMETER :: ind_PCO = 39 + INTEGER, PARAMETER :: ind_LCO = 40 + INTEGER, PARAMETER :: ind_PSO4 = 41 + INTEGER, PARAMETER :: ind_LCH4 = 42 + INTEGER, PARAMETER :: ind_PH2O2 = 43 + INTEGER, PARAMETER :: ind_FURA = 44 + INTEGER, PARAMETER :: ind_I2O4 = 45 + INTEGER, PARAMETER :: ind_CH3CCl3 = 46 + INTEGER, PARAMETER :: ind_I2O2 = 47 + INTEGER, PARAMETER :: ind_MONITA = 48 + INTEGER, PARAMETER :: ind_CCl4 = 49 + INTEGER, PARAMETER :: ind_CFC11 = 50 + INTEGER, PARAMETER :: ind_CFC12 = 51 + INTEGER, PARAMETER :: ind_CFC113 = 52 + INTEGER, PARAMETER :: ind_CFC114 = 53 + INTEGER, PARAMETER :: ind_CFC115 = 54 + INTEGER, PARAMETER :: ind_CH3I = 55 + INTEGER, PARAMETER :: ind_H1301 = 56 + INTEGER, PARAMETER :: ind_H2402 = 57 + INTEGER, PARAMETER :: ind_I2O3 = 58 + INTEGER, PARAMETER :: ind_PINPAN = 59 + INTEGER, PARAMETER :: ind_LIMPAN = 60 + INTEGER, PARAMETER :: ind_TLFUONE = 61 + INTEGER, PARAMETER :: ind_BrNO2 = 62 + INTEGER, PARAMETER :: ind_C2H2 = 63 + INTEGER, PARAMETER :: ind_H1211 = 64 + INTEGER, PARAMETER :: ind_INO = 65 + INTEGER, PARAMETER :: ind_N2O = 66 + INTEGER, PARAMETER :: ind_NIT = 67 + INTEGER, PARAMETER :: ind_NITs = 68 + INTEGER, PARAMETER :: ind_PINONIC = 69 + INTEGER, PARAMETER :: ind_N = 70 + INTEGER, PARAMETER :: ind_OCS = 71 + INTEGER, PARAMETER :: ind_ALK6 = 72 + INTEGER, PARAMETER :: ind_ETHN = 73 + INTEGER, PARAMETER :: ind_HACTA = 74 + INTEGER, PARAMETER :: ind_HI = 75 + INTEGER, PARAMETER :: ind_PINO3H = 76 + INTEGER, PARAMETER :: ind_BZCO3H = 77 + INTEGER, PARAMETER :: ind_Cl2O2 = 78 + INTEGER, PARAMETER :: ind_CH2Br2 = 79 + INTEGER, PARAMETER :: ind_CH2Cl2 = 80 + INTEGER, PARAMETER :: ind_IBr = 81 + INTEGER, PARAMETER :: ind_CHBr3 = 82 + INTEGER, PARAMETER :: ind_MPN = 83 + INTEGER, PARAMETER :: ind_CHCl3 = 84 + INTEGER, PARAMETER :: ind_TOLU = 85 + INTEGER, PARAMETER :: ind_ETNO3 = 86 + INTEGER, PARAMETER :: ind_DMS = 87 + INTEGER, PARAMETER :: ind_HCFC123 = 88 + INTEGER, PARAMETER :: ind_HCFC141b = 89 + INTEGER, PARAMETER :: ind_HCFC142b = 90 + INTEGER, PARAMETER :: ind_HCFC22 = 91 + INTEGER, PARAMETER :: ind_HMHP = 92 + INTEGER, PARAMETER :: ind_HMS = 93 + INTEGER, PARAMETER :: ind_IPRNO3 = 94 + INTEGER, PARAMETER :: ind_MAP = 95 + INTEGER, PARAMETER :: ind_MENO3 = 96 + INTEGER, PARAMETER :: ind_NPRNO3 = 97 + INTEGER, PARAMETER :: ind_OIO = 98 + INTEGER, PARAMETER :: ind_R4P = 99 + INTEGER, PARAMETER :: ind_R7P = 100 + INTEGER, PARAMETER :: ind_RA3P = 101 + INTEGER, PARAMETER :: ind_RB3P = 102 + INTEGER, PARAMETER :: ind_XYLE = 103 + INTEGER, PARAMETER :: ind_ALK4P = 104 + INTEGER, PARAMETER :: ind_BZPAN = 105 + INTEGER, PARAMETER :: ind_IONITA = 106 + INTEGER, PARAMETER :: ind_ICl = 107 + INTEGER, PARAMETER :: ind_CH3Br = 108 + INTEGER, PARAMETER :: ind_HMML = 109 + INTEGER, PARAMETER :: ind_HNO4 = 110 INTEGER, PARAMETER :: ind_APINP = 111 INTEGER, PARAMETER :: ind_BPINP = 112 INTEGER, PARAMETER :: ind_MEKPN = 113 - INTEGER, PARAMETER :: ind_PHAN = 114 - INTEGER, PARAMETER :: ind_PYAC = 115 - INTEGER, PARAMETER :: ind_RNO3 = 116 - INTEGER, PARAMETER :: ind_BENZP = 117 - INTEGER, PARAMETER :: ind_ETP = 118 - INTEGER, PARAMETER :: ind_IDC = 119 - INTEGER, PARAMETER :: ind_OClO = 120 - INTEGER, PARAMETER :: ind_TLFUO2 = 121 - INTEGER, PARAMETER :: ind_AROMPN = 122 - INTEGER, PARAMETER :: ind_PP = 123 - INTEGER, PARAMETER :: ind_PPN = 124 - INTEGER, PARAMETER :: ind_PRPN = 125 - INTEGER, PARAMETER :: ind_APAN = 126 - INTEGER, PARAMETER :: ind_BUTN = 127 - INTEGER, PARAMETER :: ind_IEPOXD = 128 - INTEGER, PARAMETER :: ind_BPINO = 129 - INTEGER, PARAMETER :: ind_LIMO2H = 130 - INTEGER, PARAMETER :: ind_MVKDH = 131 - INTEGER, PARAMETER :: ind_ACRO2 = 132 - INTEGER, PARAMETER :: ind_HPALD1OO = 133 - INTEGER, PARAMETER :: ind_SO4 = 134 - INTEGER, PARAMETER :: ind_HPALD2OO = 135 - INTEGER, PARAMETER :: ind_ETHP = 136 - INTEGER, PARAMETER :: ind_APINN = 137 - INTEGER, PARAMETER :: ind_BPINN = 138 - INTEGER, PARAMETER :: ind_PAN = 139 + INTEGER, PARAMETER :: ind_ETO = 114 + INTEGER, PARAMETER :: ind_PHAN = 115 + INTEGER, PARAMETER :: ind_PYAC = 116 + INTEGER, PARAMETER :: ind_RNO3 = 117 + INTEGER, PARAMETER :: ind_BENZP = 118 + INTEGER, PARAMETER :: ind_ClOO = 119 + INTEGER, PARAMETER :: ind_C2H4 = 120 + INTEGER, PARAMETER :: ind_ETP = 121 + INTEGER, PARAMETER :: ind_IDC = 122 + INTEGER, PARAMETER :: ind_OClO = 123 + INTEGER, PARAMETER :: ind_TLFUO2 = 124 + INTEGER, PARAMETER :: ind_AROMPN = 125 + INTEGER, PARAMETER :: ind_PP = 126 + INTEGER, PARAMETER :: ind_PPN = 127 + INTEGER, PARAMETER :: ind_PRPN = 128 + INTEGER, PARAMETER :: ind_APAN = 129 + INTEGER, PARAMETER :: ind_BUTN = 130 + INTEGER, PARAMETER :: ind_IEPOXD = 131 + INTEGER, PARAMETER :: ind_BPINO = 132 + INTEGER, PARAMETER :: ind_ACRO2 = 133 + INTEGER, PARAMETER :: ind_LIMO2H = 134 + INTEGER, PARAMETER :: ind_MVKDH = 135 + INTEGER, PARAMETER :: ind_HPALD2OO = 136 + INTEGER, PARAMETER :: ind_HPALD1OO = 137 + INTEGER, PARAMETER :: ind_ETHP = 138 + INTEGER, PARAMETER :: ind_APINN = 139 INTEGER, PARAMETER :: ind_C4H6 = 140 - INTEGER, PARAMETER :: ind_C3H8 = 141 - INTEGER, PARAMETER :: ind_ALK4 = 142 - INTEGER, PARAMETER :: ind_BENZ = 143 - INTEGER, PARAMETER :: ind_HPALD4 = 144 - INTEGER, PARAMETER :: ind_INA = 145 - INTEGER, PARAMETER :: ind_AROMCHO = 146 - INTEGER, PARAMETER :: ind_IDCHP = 147 - INTEGER, PARAMETER :: ind_Br2 = 148 - INTEGER, PARAMETER :: ind_EBZ = 149 + INTEGER, PARAMETER :: ind_BPINN = 141 + INTEGER, PARAMETER :: ind_C3H8 = 142 + INTEGER, PARAMETER :: ind_PAN = 143 + INTEGER, PARAMETER :: ind_ALK4 = 144 + INTEGER, PARAMETER :: ind_BENZ = 145 + INTEGER, PARAMETER :: ind_SO4 = 146 + INTEGER, PARAMETER :: ind_INA = 147 + INTEGER, PARAMETER :: ind_EBZ = 148 + INTEGER, PARAMETER :: ind_IDCHP = 149 INTEGER, PARAMETER :: ind_HPALD3 = 150 - INTEGER, PARAMETER :: ind_IEPOXA = 151 - INTEGER, PARAMETER :: ind_IEPOXB = 152 - INTEGER, PARAMETER :: ind_MCRDH = 153 - INTEGER, PARAMETER :: ind_HONIT = 154 - INTEGER, PARAMETER :: ind_RP = 155 - INTEGER, PARAMETER :: ind_EOH = 156 - INTEGER, PARAMETER :: ind_BrCl = 157 - INTEGER, PARAMETER :: ind_CSL = 158 - INTEGER, PARAMETER :: ind_MACR1OOH = 159 - INTEGER, PARAMETER :: ind_C96O2H = 160 - INTEGER, PARAMETER :: ind_BPINOOH = 161 - INTEGER, PARAMETER :: ind_BPINON = 162 - INTEGER, PARAMETER :: ind_LIMKB = 163 - INTEGER, PARAMETER :: ind_MP = 164 - INTEGER, PARAMETER :: ind_R7N1 = 165 - INTEGER, PARAMETER :: ind_SALCAL = 166 - INTEGER, PARAMETER :: ind_LIMO = 167 - INTEGER, PARAMETER :: ind_IHN3 = 168 - INTEGER, PARAMETER :: ind_LIMO3H = 169 - INTEGER, PARAMETER :: ind_I2 = 170 - INTEGER, PARAMETER :: ind_C4HVP1 = 171 - INTEGER, PARAMETER :: ind_C4HVP2 = 172 - INTEGER, PARAMETER :: ind_RCOOH = 173 - INTEGER, PARAMETER :: ind_IDHDP = 174 + INTEGER, PARAMETER :: ind_HPALD4 = 151 + INTEGER, PARAMETER :: ind_AROMCHO = 152 + INTEGER, PARAMETER :: ind_Br2 = 153 + INTEGER, PARAMETER :: ind_EOH = 154 + INTEGER, PARAMETER :: ind_MCRDH = 155 + INTEGER, PARAMETER :: ind_HONIT = 156 + INTEGER, PARAMETER :: ind_IEPOXA = 157 + INTEGER, PARAMETER :: ind_RP = 158 + INTEGER, PARAMETER :: ind_IEPOXB = 159 + INTEGER, PARAMETER :: ind_BrCl = 160 + INTEGER, PARAMETER :: ind_MACR1OOH = 161 + INTEGER, PARAMETER :: ind_CSL = 162 + INTEGER, PARAMETER :: ind_C96O2H = 163 + INTEGER, PARAMETER :: ind_BPINOOH = 164 + INTEGER, PARAMETER :: ind_BPINON = 165 + INTEGER, PARAMETER :: ind_LIMKB = 166 + INTEGER, PARAMETER :: ind_MP = 167 + INTEGER, PARAMETER :: ind_R7N1 = 168 + INTEGER, PARAMETER :: ind_SALCAL = 169 + INTEGER, PARAMETER :: ind_LIMO = 170 + INTEGER, PARAMETER :: ind_LIMO3H = 171 + INTEGER, PARAMETER :: ind_I2 = 172 + INTEGER, PARAMETER :: ind_C4HVP1 = 173 + INTEGER, PARAMETER :: ind_C4HVP2 = 174 INTEGER, PARAMETER :: ind_IHN2 = 175 - INTEGER, PARAMETER :: ind_C96N = 176 - INTEGER, PARAMETER :: ind_LIMNB = 177 - INTEGER, PARAMETER :: ind_R7O2 = 178 - INTEGER, PARAMETER :: ind_SALAAL = 179 - INTEGER, PARAMETER :: ind_IDNOO = 180 - INTEGER, PARAMETER :: ind_CH3Cl = 181 - INTEGER, PARAMETER :: ind_ICNOO = 182 - INTEGER, PARAMETER :: ind_C2H6 = 183 - INTEGER, PARAMETER :: ind_MPAN = 184 - INTEGER, PARAMETER :: ind_MVKPC = 185 - INTEGER, PARAMETER :: ind_INPD = 186 - INTEGER, PARAMETER :: ind_RIPA = 187 - INTEGER, PARAMETER :: ind_ROH = 188 - INTEGER, PARAMETER :: ind_ZRO2 = 189 - INTEGER, PARAMETER :: ind_ISOPNOO2 = 190 - INTEGER, PARAMETER :: ind_MTPA = 191 - INTEGER, PARAMETER :: ind_RIPB = 192 - INTEGER, PARAMETER :: ind_PIN = 193 - INTEGER, PARAMETER :: ind_MCRENOL = 194 - INTEGER, PARAMETER :: ind_PHEN = 195 - INTEGER, PARAMETER :: ind_R7N2 = 196 - INTEGER, PARAMETER :: ind_ACO3 = 197 + INTEGER, PARAMETER :: ind_RCOOH = 176 + INTEGER, PARAMETER :: ind_IHN3 = 177 + INTEGER, PARAMETER :: ind_IDHDP = 178 + INTEGER, PARAMETER :: ind_C96N = 179 + INTEGER, PARAMETER :: ind_LIMNB = 180 + INTEGER, PARAMETER :: ind_IDNOO = 181 + INTEGER, PARAMETER :: ind_R7O2 = 182 + INTEGER, PARAMETER :: ind_SALAAL = 183 + INTEGER, PARAMETER :: ind_CH3Cl = 184 + INTEGER, PARAMETER :: ind_ICNOO = 185 + INTEGER, PARAMETER :: ind_ISOPNOO2 = 186 + INTEGER, PARAMETER :: ind_C2H6 = 187 + INTEGER, PARAMETER :: ind_INPD = 188 + INTEGER, PARAMETER :: ind_MPAN = 189 + INTEGER, PARAMETER :: ind_MVKPC = 190 + INTEGER, PARAMETER :: ind_RIPA = 191 + INTEGER, PARAMETER :: ind_ROH = 192 + INTEGER, PARAMETER :: ind_ZRO2 = 193 + INTEGER, PARAMETER :: ind_MTPA = 194 + INTEGER, PARAMETER :: ind_RIPB = 195 + INTEGER, PARAMETER :: ind_PIN = 196 + INTEGER, PARAMETER :: ind_MCRENOL = 197 INTEGER, PARAMETER :: ind_IDHPE = 198 - INTEGER, PARAMETER :: ind_RIPD = 199 - INTEGER, PARAMETER :: ind_TMB = 200 - INTEGER, PARAMETER :: ind_AROMP5 = 201 - INTEGER, PARAMETER :: ind_MCT = 202 - INTEGER, PARAMETER :: ind_BENZO = 203 - INTEGER, PARAMETER :: ind_BALD = 204 - INTEGER, PARAMETER :: ind_ISOPNOO1 = 205 - INTEGER, PARAMETER :: ind_IDHNDOO1 = 206 - INTEGER, PARAMETER :: ind_IDHNDOO2 = 207 - INTEGER, PARAMETER :: ind_MVKHC = 208 - INTEGER, PARAMETER :: ind_RIPC = 209 - INTEGER, PARAMETER :: ind_HPETHNL = 210 - INTEGER, PARAMETER :: ind_LIMN = 211 - INTEGER, PARAMETER :: ind_BUTO2 = 212 - INTEGER, PARAMETER :: ind_GCO3 = 213 - INTEGER, PARAMETER :: ind_N2O5 = 214 - INTEGER, PARAMETER :: ind_ICHE = 215 - INTEGER, PARAMETER :: ind_MCRHNB = 216 - INTEGER, PARAMETER :: ind_H = 217 - INTEGER, PARAMETER :: ind_BrNO3 = 218 - INTEGER, PARAMETER :: ind_MTPO = 219 - INTEGER, PARAMETER :: ind_STYR = 220 - INTEGER, PARAMETER :: ind_AROMP4 = 221 - INTEGER, PARAMETER :: ind_INPB = 222 - INTEGER, PARAMETER :: ind_IHPOO1 = 223 - INTEGER, PARAMETER :: ind_IHPOO2 = 224 - INTEGER, PARAMETER :: ind_PINAL = 225 - INTEGER, PARAMETER :: ind_IHPNDOO = 226 - INTEGER, PARAMETER :: ind_MVKHCB = 227 - INTEGER, PARAMETER :: ind_CH4 = 228 - INTEGER, PARAMETER :: ind_PIP = 229 - INTEGER, PARAMETER :: ind_HPALD1 = 230 + INTEGER, PARAMETER :: ind_PHEN = 199 + INTEGER, PARAMETER :: ind_R7N2 = 200 + INTEGER, PARAMETER :: ind_ACO3 = 201 + INTEGER, PARAMETER :: ind_RIPD = 202 + INTEGER, PARAMETER :: ind_TMB = 203 + INTEGER, PARAMETER :: ind_AROMP5 = 204 + INTEGER, PARAMETER :: ind_MCT = 205 + INTEGER, PARAMETER :: ind_BENZO = 206 + INTEGER, PARAMETER :: ind_BALD = 207 + INTEGER, PARAMETER :: ind_IDHNDOO2 = 208 + INTEGER, PARAMETER :: ind_IDHNDOO1 = 209 + INTEGER, PARAMETER :: ind_ISOPNOO1 = 210 + INTEGER, PARAMETER :: ind_MVKHC = 211 + INTEGER, PARAMETER :: ind_LIMN = 212 + INTEGER, PARAMETER :: ind_RIPC = 213 + INTEGER, PARAMETER :: ind_HPETHNL = 214 + INTEGER, PARAMETER :: ind_BUTO2 = 215 + INTEGER, PARAMETER :: ind_GCO3 = 216 + INTEGER, PARAMETER :: ind_N2O5 = 217 + INTEGER, PARAMETER :: ind_ICHE = 218 + INTEGER, PARAMETER :: ind_H = 219 + INTEGER, PARAMETER :: ind_MCRHNB = 220 + INTEGER, PARAMETER :: ind_BrNO3 = 221 + INTEGER, PARAMETER :: ind_MTPO = 222 + INTEGER, PARAMETER :: ind_STYR = 223 + INTEGER, PARAMETER :: ind_AROMP4 = 224 + INTEGER, PARAMETER :: ind_INPB = 225 + INTEGER, PARAMETER :: ind_IHPOO2 = 226 + INTEGER, PARAMETER :: ind_PINAL = 227 + INTEGER, PARAMETER :: ind_IHPOO1 = 228 + INTEGER, PARAMETER :: ind_ACR = 229 + INTEGER, PARAMETER :: ind_MVKHCB = 230 INTEGER, PARAMETER :: ind_HPALD2 = 231 - INTEGER, PARAMETER :: ind_IHPOO3 = 232 - INTEGER, PARAMETER :: ind_ACR = 233 - INTEGER, PARAMETER :: ind_ETOO = 234 - INTEGER, PARAMETER :: ind_BZCO3 = 235 - INTEGER, PARAMETER :: ind_BENZO2 = 236 - INTEGER, PARAMETER :: ind_LIMKET = 237 - INTEGER, PARAMETER :: ind_HC5A = 238 - INTEGER, PARAMETER :: ind_HNO2 = 239 - INTEGER, PARAMETER :: ind_AROMCO3 = 240 - INTEGER, PARAMETER :: ind_CH3CHOO = 241 - INTEGER, PARAMETER :: ind_MONITU = 242 - INTEGER, PARAMETER :: ind_ICHOO = 243 - INTEGER, PARAMETER :: ind_ATOOH = 244 - INTEGER, PARAMETER :: ind_Cl2 = 245 - INTEGER, PARAMETER :: ind_MEKCO3 = 246 - INTEGER, PARAMETER :: ind_PROPNN = 247 - INTEGER, PARAMETER :: ind_MCRHN = 248 - INTEGER, PARAMETER :: ind_ALK4N1 = 249 - INTEGER, PARAMETER :: ind_PRN1 = 250 - INTEGER, PARAMETER :: ind_R4N2 = 251 - INTEGER, PARAMETER :: ind_IONO = 252 - INTEGER, PARAMETER :: ind_MCROHOO = 253 - INTEGER, PARAMETER :: ind_MVKOHOO = 254 - INTEGER, PARAMETER :: ind_LIMAL = 255 - INTEGER, PARAMETER :: ind_MONITS = 256 - INTEGER, PARAMETER :: ind_PINO3 = 257 - INTEGER, PARAMETER :: ind_ICPDH = 258 - INTEGER, PARAMETER :: ind_MACR1OO = 259 - INTEGER, PARAMETER :: ind_PO2 = 260 - INTEGER, PARAMETER :: ind_ETHLN = 261 - INTEGER, PARAMETER :: ind_MYRCO = 262 - INTEGER, PARAMETER :: ind_AROMRO2 = 263 - INTEGER, PARAMETER :: ind_H2O2 = 264 - INTEGER, PARAMETER :: ind_HCOOH = 265 - INTEGER, PARAMETER :: ind_ITCN = 266 - INTEGER, PARAMETER :: ind_IHN4 = 267 - INTEGER, PARAMETER :: ind_IHN1 = 268 - INTEGER, PARAMETER :: ind_NPHEN = 269 - INTEGER, PARAMETER :: ind_GLYX = 270 - INTEGER, PARAMETER :: ind_IHPNBOO = 271 - INTEGER, PARAMETER :: ind_LIMKO2 = 272 - INTEGER, PARAMETER :: ind_BPINOO2 = 273 - INTEGER, PARAMETER :: ind_LIMO3 = 274 - INTEGER, PARAMETER :: ind_BPINO2 = 275 - INTEGER, PARAMETER :: ind_ISOP = 276 - INTEGER, PARAMETER :: ind_APINO2 = 277 - INTEGER, PARAMETER :: ind_C96O2 = 278 - INTEGER, PARAMETER :: ind_ALK4N2 = 279 + INTEGER, PARAMETER :: ind_CH4 = 232 + INTEGER, PARAMETER :: ind_HPALD1 = 233 + INTEGER, PARAMETER :: ind_PIP = 234 + INTEGER, PARAMETER :: ind_IHPOO3 = 235 + INTEGER, PARAMETER :: ind_IHPNDOO = 236 + INTEGER, PARAMETER :: ind_BZCO3 = 237 + INTEGER, PARAMETER :: ind_BENZO2 = 238 + INTEGER, PARAMETER :: ind_ETOO = 239 + INTEGER, PARAMETER :: ind_HNO2 = 240 + INTEGER, PARAMETER :: ind_LIMKET = 241 + INTEGER, PARAMETER :: ind_HC5A = 242 + INTEGER, PARAMETER :: ind_AROMCO3 = 243 + INTEGER, PARAMETER :: ind_CH3CHOO = 244 + INTEGER, PARAMETER :: ind_ICHOO = 245 + INTEGER, PARAMETER :: ind_MONITU = 246 + INTEGER, PARAMETER :: ind_ATOOH = 247 + INTEGER, PARAMETER :: ind_Cl2 = 248 + INTEGER, PARAMETER :: ind_PROPNN = 249 + INTEGER, PARAMETER :: ind_MEKCO3 = 250 + INTEGER, PARAMETER :: ind_MCRHN = 251 + INTEGER, PARAMETER :: ind_ALK4N1 = 252 + INTEGER, PARAMETER :: ind_PRN1 = 253 + INTEGER, PARAMETER :: ind_IONO = 254 + INTEGER, PARAMETER :: ind_R4N2 = 255 + INTEGER, PARAMETER :: ind_LIMAL = 256 + INTEGER, PARAMETER :: ind_MCROHOO = 257 + INTEGER, PARAMETER :: ind_MVKOHOO = 258 + INTEGER, PARAMETER :: ind_ICPDH = 259 + INTEGER, PARAMETER :: ind_MONITS = 260 + INTEGER, PARAMETER :: ind_PINO3 = 261 + INTEGER, PARAMETER :: ind_MACR1OO = 262 + INTEGER, PARAMETER :: ind_MYRCO = 263 + INTEGER, PARAMETER :: ind_PO2 = 264 + INTEGER, PARAMETER :: ind_ETHLN = 265 + INTEGER, PARAMETER :: ind_AROMRO2 = 266 + INTEGER, PARAMETER :: ind_H2O2 = 267 + INTEGER, PARAMETER :: ind_HCOOH = 268 + INTEGER, PARAMETER :: ind_ITCN = 269 + INTEGER, PARAMETER :: ind_IHN4 = 270 + INTEGER, PARAMETER :: ind_IHN1 = 271 + INTEGER, PARAMETER :: ind_NPHEN = 272 + INTEGER, PARAMETER :: ind_IHPNBOO = 273 + INTEGER, PARAMETER :: ind_GLYX = 274 + INTEGER, PARAMETER :: ind_BPINOO2 = 275 + INTEGER, PARAMETER :: ind_BPINO2 = 276 + INTEGER, PARAMETER :: ind_LIMO3 = 277 + INTEGER, PARAMETER :: ind_LIMKO2 = 278 + INTEGER, PARAMETER :: ind_ISOP = 279 INTEGER, PARAMETER :: ind_OLNN = 280 - INTEGER, PARAMETER :: ind_LIMO2 = 281 - INTEGER, PARAMETER :: ind_MOH = 282 - INTEGER, PARAMETER :: ind_ACTA = 283 - INTEGER, PARAMETER :: ind_IO = 284 - INTEGER, PARAMETER :: ind_IEPOXBOO = 285 - INTEGER, PARAMETER :: ind_IEPOXAOO = 286 - INTEGER, PARAMETER :: ind_MCRHP = 287 - INTEGER, PARAMETER :: ind_MVKHP = 288 - INTEGER, PARAMETER :: ind_OLND = 289 - INTEGER, PARAMETER :: ind_PRPE = 290 - INTEGER, PARAMETER :: ind_PIO2 = 291 - INTEGER, PARAMETER :: ind_MEK = 292 - INTEGER, PARAMETER :: ind_IDHNBOO = 293 - INTEGER, PARAMETER :: ind_MGLY = 294 - INTEGER, PARAMETER :: ind_ACET = 295 - INTEGER, PARAMETER :: ind_ETO2 = 296 - INTEGER, PARAMETER :: ind_ClNO2 = 297 - INTEGER, PARAMETER :: ind_RCHO = 298 - INTEGER, PARAMETER :: ind_IDN = 299 - INTEGER, PARAMETER :: ind_ALK4O2 = 300 - INTEGER, PARAMETER :: ind_ICN = 301 - INTEGER, PARAMETER :: ind_MVKN = 302 - INTEGER, PARAMETER :: ind_ITHN = 303 - INTEGER, PARAMETER :: ind_IHOO4 = 304 - INTEGER, PARAMETER :: ind_IHOO1 = 305 - INTEGER, PARAMETER :: ind_GLYC = 306 - INTEGER, PARAMETER :: ind_HAC = 307 - INTEGER, PARAMETER :: ind_MACRNO2 = 308 - INTEGER, PARAMETER :: ind_MACR = 309 - INTEGER, PARAMETER :: ind_INO2B = 310 - INTEGER, PARAMETER :: ind_INO2D = 311 - INTEGER, PARAMETER :: ind_CH2OO = 312 - INTEGER, PARAMETER :: ind_ATO2 = 313 - INTEGER, PARAMETER :: ind_MVK = 314 - INTEGER, PARAMETER :: ind_OTHRO2 = 315 - INTEGER, PARAMETER :: ind_HOBr = 316 - INTEGER, PARAMETER :: ind_ClNO3 = 317 - INTEGER, PARAMETER :: ind_R4N1 = 318 - INTEGER, PARAMETER :: ind_R4O2 = 319 - INTEGER, PARAMETER :: ind_KO2 = 320 - INTEGER, PARAMETER :: ind_A3O2 = 321 - INTEGER, PARAMETER :: ind_RCO3 = 322 - INTEGER, PARAMETER :: ind_B3O2 = 323 - INTEGER, PARAMETER :: ind_MCO3 = 324 - INTEGER, PARAMETER :: ind_CH2O = 325 - INTEGER, PARAMETER :: ind_ALD2 = 326 - INTEGER, PARAMETER :: ind_HNO3 = 327 - INTEGER, PARAMETER :: ind_MO2 = 328 - INTEGER, PARAMETER :: ind_CO = 329 - INTEGER, PARAMETER :: ind_HOI = 330 + INTEGER, PARAMETER :: ind_APINO2 = 281 + INTEGER, PARAMETER :: ind_C96O2 = 282 + INTEGER, PARAMETER :: ind_ALK4N2 = 283 + INTEGER, PARAMETER :: ind_LIMO2 = 284 + INTEGER, PARAMETER :: ind_MOH = 285 + INTEGER, PARAMETER :: ind_ACTA = 286 + INTEGER, PARAMETER :: ind_HOI = 287 + INTEGER, PARAMETER :: ind_IEPOXBOO = 288 + INTEGER, PARAMETER :: ind_IEPOXAOO = 289 + INTEGER, PARAMETER :: ind_MCRHP = 290 + INTEGER, PARAMETER :: ind_MVKHP = 291 + INTEGER, PARAMETER :: ind_OLND = 292 + INTEGER, PARAMETER :: ind_PRPE = 293 + INTEGER, PARAMETER :: ind_PIO2 = 294 + INTEGER, PARAMETER :: ind_MEK = 295 + INTEGER, PARAMETER :: ind_IONO2 = 296 + INTEGER, PARAMETER :: ind_ACET = 297 + INTEGER, PARAMETER :: ind_MGLY = 298 + INTEGER, PARAMETER :: ind_IDHNBOO = 299 + INTEGER, PARAMETER :: ind_ETO2 = 300 + INTEGER, PARAMETER :: ind_ClNO2 = 301 + INTEGER, PARAMETER :: ind_RCHO = 302 + INTEGER, PARAMETER :: ind_IDN = 303 + INTEGER, PARAMETER :: ind_ALK4O2 = 304 + INTEGER, PARAMETER :: ind_ICN = 305 + INTEGER, PARAMETER :: ind_MVKN = 306 + INTEGER, PARAMETER :: ind_ITHN = 307 + INTEGER, PARAMETER :: ind_INO2B = 308 + INTEGER, PARAMETER :: ind_GLYC = 309 + INTEGER, PARAMETER :: ind_INO2D = 310 + INTEGER, PARAMETER :: ind_HAC = 311 + INTEGER, PARAMETER :: ind_MACRNO2 = 312 + INTEGER, PARAMETER :: ind_MACR = 313 + INTEGER, PARAMETER :: ind_IHOO1 = 314 + INTEGER, PARAMETER :: ind_IHOO4 = 315 + INTEGER, PARAMETER :: ind_ATO2 = 316 + INTEGER, PARAMETER :: ind_CH2OO = 317 + INTEGER, PARAMETER :: ind_MVK = 318 + INTEGER, PARAMETER :: ind_OTHRO2 = 319 + INTEGER, PARAMETER :: ind_HOBr = 320 + INTEGER, PARAMETER :: ind_ClNO3 = 321 + INTEGER, PARAMETER :: ind_R4N1 = 322 + INTEGER, PARAMETER :: ind_R4O2 = 323 + INTEGER, PARAMETER :: ind_KO2 = 324 + INTEGER, PARAMETER :: ind_RCO3 = 325 + INTEGER, PARAMETER :: ind_A3O2 = 326 + INTEGER, PARAMETER :: ind_B3O2 = 327 + INTEGER, PARAMETER :: ind_MCO3 = 328 + INTEGER, PARAMETER :: ind_CH2O = 329 + INTEGER, PARAMETER :: ind_ALD2 = 330 INTEGER, PARAMETER :: ind_I = 331 - INTEGER, PARAMETER :: ind_IONO2 = 332 - INTEGER, PARAMETER :: ind_HOCl = 333 - INTEGER, PARAMETER :: ind_O1D = 334 - INTEGER, PARAMETER :: ind_NO2 = 335 - INTEGER, PARAMETER :: ind_H2O = 336 - INTEGER, PARAMETER :: ind_HO2 = 337 - INTEGER, PARAMETER :: ind_ClO = 338 - INTEGER, PARAMETER :: ind_HCl = 339 - INTEGER, PARAMETER :: ind_Cl = 340 - INTEGER, PARAMETER :: ind_O3 = 341 + INTEGER, PARAMETER :: ind_HOCl = 332 + INTEGER, PARAMETER :: ind_HNO3 = 333 + INTEGER, PARAMETER :: ind_MO2 = 334 + INTEGER, PARAMETER :: ind_CO = 335 + INTEGER, PARAMETER :: ind_IO = 336 + INTEGER, PARAMETER :: ind_O1D = 337 + INTEGER, PARAMETER :: ind_NO = 338 + INTEGER, PARAMETER :: ind_SALACL = 339 + INTEGER, PARAMETER :: ind_HCl = 340 + INTEGER, PARAMETER :: ind_HO2 = 341 INTEGER, PARAMETER :: ind_Br = 342 - INTEGER, PARAMETER :: ind_O = 343 - INTEGER, PARAMETER :: ind_SALCCL = 344 - INTEGER, PARAMETER :: ind_OH = 345 - INTEGER, PARAMETER :: ind_NO = 346 + INTEGER, PARAMETER :: ind_OH = 343 + INTEGER, PARAMETER :: ind_ClO = 344 + INTEGER, PARAMETER :: ind_NO2 = 345 + INTEGER, PARAMETER :: ind_SALCCL = 346 INTEGER, PARAMETER :: ind_BrO = 347 - INTEGER, PARAMETER :: ind_SO2 = 348 + INTEGER, PARAMETER :: ind_NO3 = 348 INTEGER, PARAMETER :: ind_BrSALA = 349 INTEGER, PARAMETER :: ind_BrSALC = 350 - INTEGER, PARAMETER :: ind_NO3 = 351 - INTEGER, PARAMETER :: ind_HBr = 352 - INTEGER, PARAMETER :: ind_SALACL = 353 + INTEGER, PARAMETER :: ind_O = 351 + INTEGER, PARAMETER :: ind_Cl = 352 + INTEGER, PARAMETER :: ind_H2O = 353 + INTEGER, PARAMETER :: ind_HBr = 354 + INTEGER, PARAMETER :: ind_SO2 = 355 + INTEGER, PARAMETER :: ind_O3 = 356 ! Index declaration for fixed species in C ! C(ind_spc) - INTEGER, PARAMETER :: ind_H2 = 354 - INTEGER, PARAMETER :: ind_N2 = 355 - INTEGER, PARAMETER :: ind_O2 = 356 + INTEGER, PARAMETER :: ind_H2 = 357 + INTEGER, PARAMETER :: ind_N2 = 358 + INTEGER, PARAMETER :: ind_O2 = 359 ! Index declaration for fixed species in FIX ! FIX(indf_spc) = C(ind_spc) = C(NVAR+indf_spc) diff --git a/KPP/fullchem/gckpp_Rates.F90 b/KPP/fullchem/gckpp_Rates.F90 index 9423a97fd..573e29cad 100644 --- a/KPP/fullchem/gckpp_Rates.F90 +++ b/KPP/fullchem/gckpp_Rates.F90 @@ -2,7 +2,7 @@ ! ! The Reaction Rates File ! -! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor +! Generated by KPP-3.3.0 symbolic chemistry Kinetics PreProcessor ! (https:/github.com/KineticPreProcessor/KPP ! KPP is distributed under GPL, the general public licence ! (http://www.gnu.org/copyleft/gpl.html) @@ -1322,183 +1322,190 @@ SUBROUTINE Update_RCONST ( YIN ) RCONST(879) = (VOCuptk1stOrd(SR_MW(ind_MCRHNB),5.0E-3_dp,State_Het)) RCONST(880) = (VOCuptk1stOrd(SR_MW(ind_MCRHN),5.0E-3_dp,State_Het)) RCONST(881) = (VOCuptk1stOrd(SR_MW(ind_NPHEN),1.0E-2_dp,State_Het)) - RCONST(882) = (PHOTOL(2)) - RCONST(883) = (PHOTOL(3)) - RCONST(884) = (PHOTOL(1)) - RCONST(885) = (PHOTOL(11)) - RCONST(886) = (PHOTOL(9)) - RCONST(887) = (PHOTOL(10)) - RCONST(888) = (PHOTOL(7)) - RCONST(889) = (PHOTOL(8)) - RCONST(890) = (PHOTOL(16)) - RCONST(891) = (PHOTOL(15)) - RCONST(892) = (PHOTOL(17)) - RCONST(893) = (PHOTOL(18)) - RCONST(894) = (PHOTOL(12)) - RCONST(895) = (PHOTOL(13)) - RCONST(896) = (PHOTOL(14)) - RCONST(897) = (PHOTOL(61)) - RCONST(898) = (PHOTOL(62)) - RCONST(899) = (PHOTOL(59)) - RCONST(900) = (PHOTOL(59)) - RCONST(901) = (PHOTOL(66)) - RCONST(902) = (PHOTOL(70)) - RCONST(903) = (PHOTOL(70)) - RCONST(904) = (PHOTOL(76)) - RCONST(905) = (PHOTOL(77)) - RCONST(906) = (PHOTOL(69)) - RCONST(907) = (PHOTOL(68)) - RCONST(908) = (PHOTOL(72)) - RCONST(909) = (PHOTOL(73)) - RCONST(910) = (PHOTOL(74)) - RCONST(911) = (PHOTOL(71)) - RCONST(912) = (PHOTOL(63)) - RCONST(913) = (PHOTOL(64)) - RCONST(914) = (PHOTOL(65)) - RCONST(915) = (PHOTOL(66)) - RCONST(916) = (PHOTOL(75)) - RCONST(917) = (PHOTOL(79)) - RCONST(918) = (PHOTOL(80)) - RCONST(919) = (PHOTOL(81)) - RCONST(920) = (PHOTOL(82)) - RCONST(921) = (PHOTOL(83)) - RCONST(922) = (PHOTOL(83)) - RCONST(923) = (PHOTOL(83)) - RCONST(924) = (PHOTOL(84)) - RCONST(925) = (PHOTOL(85)) - RCONST(926) = (PHOTOL(98)) - RCONST(927) = (PHOTOL(98)) - RCONST(928) = (PHOTOL(98)) - RCONST(929) = (PHOTOL(98)) - RCONST(930) = (PHOTOL(99)) - RCONST(931) = (PHOTOL(23)) - RCONST(932) = (PHOTOL(28)) - RCONST(933) = (PHOTOL(32)) - RCONST(934) = (PHOTOL(29)) - RCONST(935) = (PHOTOL(30)) - RCONST(936) = (PHOTOL(31)) - RCONST(937) = (PHOTOL(56)) - RCONST(938) = (PHOTOL(55)) - RCONST(939) = (PHOTOL(50)) - RCONST(940) = (PHOTOL(43)) - RCONST(941) = (PHOTOL(45)) - RCONST(942) = (PHOTOL(33)) - RCONST(943) = (PHOTOL(22)) - RCONST(944) = (PHOTOL(27)) - RCONST(945) = (PHOTOL(25)) - RCONST(946) = (PHOTOL(26)) - RCONST(947) = (PHOTOL(21)) - RCONST(948) = (PHOTOL(19)) - RCONST(949) = (PHOTOL(20)) - RCONST(950) = (PHOTOL(24)) - RCONST(951) = (PHOTOL(44)) - RCONST(952) = (PHOTOL(42)) - RCONST(953) = (PHOTOL(37)) - RCONST(954) = (PHOTOL(38)) - RCONST(955) = (PHOTOL(39)) - RCONST(956) = (PHOTOL(40)) - RCONST(957) = (PHOTOL(41)) - RCONST(958) = (PHOTOL(47)) - RCONST(959) = (PHOTOL(48)) - RCONST(960) = (PHOTOL(49)) - RCONST(961) = (PHOTOL(46)) - RCONST(962) = (PHOTOL(53)) - RCONST(963) = (PHOTOL(51)) - RCONST(964) = (PHOTOL(54)) - RCONST(965) = (PHOTOL(101)) - RCONST(966) = (PHOTOL(114)) - RCONST(967) = (PHOTOL(115)) - RCONST(968) = (PHOTOL(116)) - RCONST(969) = (PHOTOL(117)) - RCONST(970) = (PHOTOL(118)) - RCONST(971) = (PHOTOL(119)) - RCONST(972) = (PHOTOL(120)) - RCONST(973) = (PHOTOL(121)) - RCONST(974) = (PHOTOL(122)) - RCONST(975) = (PHOTOL(123)) - RCONST(976) = (PHOTOL(124)) - RCONST(977) = (PHOTOL(125)) - RCONST(978) = (PHOTOL(126)) - RCONST(979) = (PHOTOL(127)) - RCONST(980) = (PHOTOL(128)) - RCONST(981) = (PHOTOL(129)) - RCONST(982) = (PHOTOL(103)) - RCONST(983) = (PHOTOL(104)) - RCONST(984) = (PHOTOL(97)) - RCONST(985) = (PHOTOL(36)) - RCONST(986) = (PHOTOL(34)) - RCONST(987) = (PHOTOL(100)) - RCONST(988) = (PHOTOL(6)) - RCONST(989) = (PHOTOL(105)) - RCONST(990) = (PHOTOL(107)) - RCONST(991) = (PHOTOL(111)) - RCONST(992) = (PHOTOL(112)) - RCONST(993) = (PHOTOL(113)) - RCONST(994) = (PHOTOL(130)) - RCONST(995) = (PHOTOL(131)) - RCONST(996) = (PHOTOL(132)) - RCONST(997) = (PHOTOL(133)) - RCONST(998) = (PHOTOL(134)) - RCONST(999) = (PHOTOL(135)) - RCONST(1000) = (PHOTOL(136)) - RCONST(1001) = (PHOTOL(137)) - RCONST(1002) = (PHOTOL(86)) - RCONST(1003) = (PHOTOL(87)) - RCONST(1004) = (PHOTOL(88)) - RCONST(1005) = (PHOTOL(89)) - RCONST(1006) = (PHOTOL(90)) - RCONST(1007) = (PHOTOL(91)) - RCONST(1008) = (PHOTOL(92)) - RCONST(1009) = (PHOTOL(93)) - RCONST(1010) = (PHOTOL(94)) - RCONST(1011) = (PHOTOL(95)) - RCONST(1012) = (PHOTOL(96)) - RCONST(1013) = (PHOTOL(108)) - RCONST(1014) = (PHOTOL(109)) - RCONST(1015) = (PHOTOL(110)) - RCONST(1016) = (PHOTOL(138)) - RCONST(1017) = (PHOTOL(139)) - RCONST(1018) = (PHOTOL(140)) - RCONST(1019) = (PHOTOL(141)) - RCONST(1020) = (PHOTOL(142)) - RCONST(1021) = (PHOTOL(143)) - RCONST(1022) = (PHOTOL(144)) - RCONST(1023) = (PHOTOL(145)) - RCONST(1024) = (PHOTOL(146)) - RCONST(1025) = (PHOTOL(147)) - RCONST(1026) = (PHOTOL(148)) - RCONST(1027) = (PHOTOL(149)) - RCONST(1028) = (PHOTOL(150)) - RCONST(1029) = (PHOTOL(151)) - RCONST(1030) = (PHOTOL(152)) - RCONST(1031) = (PHOTOL(106)) - RCONST(1032) = (PHOTOL(78)) - RCONST(1033) = (PHOTOL(153)) - RCONST(1034) = (PHOTOL(154)) - RCONST(1035) = (PHOTOL(155)) - RCONST(1036) = (PHOTOL(156)) - RCONST(1037) = (PHOTOL(157)) - RCONST(1038) = (PHOTOL(158)) - RCONST(1039) = (PHOTOL(159)) - RCONST(1040) = (PHOTOL(160)) - RCONST(1041) = (PHOTOL(161)) - RCONST(1042) = (PHOTOL(162)) - RCONST(1043) = (PHOTOL(163)) - RCONST(1044) = (PHOTOL(164)) - RCONST(1045) = (PHOTOL(165)) - RCONST(1046) = (PHOTOL(166)) - RCONST(1047) = (PHOTOL(167)) - RCONST(1048) = (PHOTOL(168)) - RCONST(1049) = (PHOTOL(169)) - RCONST(1050) = (PHOTOL(170)) - RCONST(1051) = (PHOTOL(171)) - RCONST(1052) = (PHOTOL(172)) - RCONST(1053) = (PHOTOL(173)) - RCONST(1054) = (PHOTOL(174)) - RCONST(1055) = (PHOTOL(175)) - RCONST(1056) = (PHOTOL(176)) - RCONST(1057) = (PHOTOL(105)) - RCONST(1058) = (PHOTOL(177)) + RCONST(882) = (SO2uptkbyH2O2(State_Het)) + RCONST(883) = (SO2uptkbyO3(State_Het)) + RCONST(884) = (SO2uptkbyTMIO2(State_Het)) + RCONST(885) = (SO2uptkbyNO2(State_Het)) + RCONST(886) = (SO2uptkbyCH2O(State_Het)) + RCONST(887) = (HMSDecomp(State_Het)) + RCONST(888) = (HMSOxidation(State_Het)) + RCONST(889) = (PHOTOL(2)) + RCONST(890) = (PHOTOL(3)) + RCONST(891) = (PHOTOL(1)) + RCONST(892) = (PHOTOL(11)) + RCONST(893) = (PHOTOL(9)) + RCONST(894) = (PHOTOL(10)) + RCONST(895) = (PHOTOL(7)) + RCONST(896) = (PHOTOL(8)) + RCONST(897) = (PHOTOL(16)) + RCONST(898) = (PHOTOL(15)) + RCONST(899) = (PHOTOL(17)) + RCONST(900) = (PHOTOL(18)) + RCONST(901) = (PHOTOL(12)) + RCONST(902) = (PHOTOL(13)) + RCONST(903) = (PHOTOL(14)) + RCONST(904) = (PHOTOL(61)) + RCONST(905) = (PHOTOL(62)) + RCONST(906) = (PHOTOL(59)) + RCONST(907) = (PHOTOL(59)) + RCONST(908) = (PHOTOL(66)) + RCONST(909) = (PHOTOL(70)) + RCONST(910) = (PHOTOL(70)) + RCONST(911) = (PHOTOL(76)) + RCONST(912) = (PHOTOL(77)) + RCONST(913) = (PHOTOL(69)) + RCONST(914) = (PHOTOL(68)) + RCONST(915) = (PHOTOL(72)) + RCONST(916) = (PHOTOL(73)) + RCONST(917) = (PHOTOL(74)) + RCONST(918) = (PHOTOL(71)) + RCONST(919) = (PHOTOL(63)) + RCONST(920) = (PHOTOL(64)) + RCONST(921) = (PHOTOL(65)) + RCONST(922) = (PHOTOL(66)) + RCONST(923) = (PHOTOL(75)) + RCONST(924) = (PHOTOL(79)) + RCONST(925) = (PHOTOL(80)) + RCONST(926) = (PHOTOL(81)) + RCONST(927) = (PHOTOL(82)) + RCONST(928) = (PHOTOL(83)) + RCONST(929) = (PHOTOL(83)) + RCONST(930) = (PHOTOL(83)) + RCONST(931) = (PHOTOL(84)) + RCONST(932) = (PHOTOL(85)) + RCONST(933) = (PHOTOL(98)) + RCONST(934) = (PHOTOL(98)) + RCONST(935) = (PHOTOL(98)) + RCONST(936) = (PHOTOL(98)) + RCONST(937) = (PHOTOL(99)) + RCONST(938) = (PHOTOL(23)) + RCONST(939) = (PHOTOL(28)) + RCONST(940) = (PHOTOL(32)) + RCONST(941) = (PHOTOL(29)) + RCONST(942) = (PHOTOL(30)) + RCONST(943) = (PHOTOL(31)) + RCONST(944) = (PHOTOL(56)) + RCONST(945) = (PHOTOL(55)) + RCONST(946) = (PHOTOL(50)) + RCONST(947) = (PHOTOL(43)) + RCONST(948) = (PHOTOL(45)) + RCONST(949) = (PHOTOL(33)) + RCONST(950) = (PHOTOL(22)) + RCONST(951) = (PHOTOL(27)) + RCONST(952) = (PHOTOL(25)) + RCONST(953) = (PHOTOL(26)) + RCONST(954) = (PHOTOL(21)) + RCONST(955) = (PHOTOL(19)) + RCONST(956) = (PHOTOL(20)) + RCONST(957) = (PHOTOL(24)) + RCONST(958) = (PHOTOL(44)) + RCONST(959) = (PHOTOL(42)) + RCONST(960) = (PHOTOL(37)) + RCONST(961) = (PHOTOL(38)) + RCONST(962) = (PHOTOL(39)) + RCONST(963) = (PHOTOL(40)) + RCONST(964) = (PHOTOL(41)) + RCONST(965) = (PHOTOL(47)) + RCONST(966) = (PHOTOL(48)) + RCONST(967) = (PHOTOL(49)) + RCONST(968) = (PHOTOL(46)) + RCONST(969) = (PHOTOL(53)) + RCONST(970) = (PHOTOL(51)) + RCONST(971) = (PHOTOL(54)) + RCONST(972) = (PHOTOL(101)) + RCONST(973) = (PHOTOL(114)) + RCONST(974) = (PHOTOL(115)) + RCONST(975) = (PHOTOL(116)) + RCONST(976) = (PHOTOL(117)) + RCONST(977) = (PHOTOL(118)) + RCONST(978) = (PHOTOL(119)) + RCONST(979) = (PHOTOL(120)) + RCONST(980) = (PHOTOL(121)) + RCONST(981) = (PHOTOL(122)) + RCONST(982) = (PHOTOL(123)) + RCONST(983) = (PHOTOL(124)) + RCONST(984) = (PHOTOL(125)) + RCONST(985) = (PHOTOL(126)) + RCONST(986) = (PHOTOL(127)) + RCONST(987) = (PHOTOL(128)) + RCONST(988) = (PHOTOL(129)) + RCONST(989) = (PHOTOL(103)) + RCONST(990) = (PHOTOL(104)) + RCONST(991) = (PHOTOL(97)) + RCONST(992) = (PHOTOL(36)) + RCONST(993) = (PHOTOL(34)) + RCONST(994) = (PHOTOL(100)) + RCONST(995) = (PHOTOL(6)) + RCONST(996) = (PHOTOL(105)) + RCONST(997) = (PHOTOL(107)) + RCONST(998) = (PHOTOL(111)) + RCONST(999) = (PHOTOL(112)) + RCONST(1000) = (PHOTOL(113)) + RCONST(1001) = (PHOTOL(130)) + RCONST(1002) = (PHOTOL(131)) + RCONST(1003) = (PHOTOL(132)) + RCONST(1004) = (PHOTOL(133)) + RCONST(1005) = (PHOTOL(134)) + RCONST(1006) = (PHOTOL(135)) + RCONST(1007) = (PHOTOL(136)) + RCONST(1008) = (PHOTOL(137)) + RCONST(1009) = (PHOTOL(86)) + RCONST(1010) = (PHOTOL(87)) + RCONST(1011) = (PHOTOL(88)) + RCONST(1012) = (PHOTOL(89)) + RCONST(1013) = (PHOTOL(90)) + RCONST(1014) = (PHOTOL(91)) + RCONST(1015) = (PHOTOL(92)) + RCONST(1016) = (PHOTOL(93)) + RCONST(1017) = (PHOTOL(94)) + RCONST(1018) = (PHOTOL(95)) + RCONST(1019) = (PHOTOL(96)) + RCONST(1020) = (PHOTOL(108)) + RCONST(1021) = (PHOTOL(109)) + RCONST(1022) = (PHOTOL(110)) + RCONST(1023) = (PHOTOL(138)) + RCONST(1024) = (PHOTOL(139)) + RCONST(1025) = (PHOTOL(140)) + RCONST(1026) = (PHOTOL(141)) + RCONST(1027) = (PHOTOL(142)) + RCONST(1028) = (PHOTOL(143)) + RCONST(1029) = (PHOTOL(144)) + RCONST(1030) = (PHOTOL(145)) + RCONST(1031) = (PHOTOL(146)) + RCONST(1032) = (PHOTOL(147)) + RCONST(1033) = (PHOTOL(148)) + RCONST(1034) = (PHOTOL(149)) + RCONST(1035) = (PHOTOL(150)) + RCONST(1036) = (PHOTOL(151)) + RCONST(1037) = (PHOTOL(152)) + RCONST(1038) = (PHOTOL(106)) + RCONST(1039) = (PHOTOL(78)) + RCONST(1040) = (PHOTOL(153)) + RCONST(1041) = (PHOTOL(154)) + RCONST(1042) = (PHOTOL(155)) + RCONST(1043) = (PHOTOL(156)) + RCONST(1044) = (PHOTOL(157)) + RCONST(1045) = (PHOTOL(158)) + RCONST(1046) = (PHOTOL(159)) + RCONST(1047) = (PHOTOL(160)) + RCONST(1048) = (PHOTOL(161)) + RCONST(1049) = (PHOTOL(162)) + RCONST(1050) = (PHOTOL(163)) + RCONST(1051) = (PHOTOL(164)) + RCONST(1052) = (PHOTOL(165)) + RCONST(1053) = (PHOTOL(166)) + RCONST(1054) = (PHOTOL(167)) + RCONST(1055) = (PHOTOL(168)) + RCONST(1056) = (PHOTOL(169)) + RCONST(1057) = (PHOTOL(170)) + RCONST(1058) = (PHOTOL(171)) + RCONST(1059) = (PHOTOL(172)) + RCONST(1060) = (PHOTOL(173)) + RCONST(1061) = (PHOTOL(174)) + RCONST(1062) = (PHOTOL(175)) + RCONST(1063) = (PHOTOL(176)) + RCONST(1064) = (PHOTOL(105)) + RCONST(1065) = (PHOTOL(177)) END SUBROUTINE UPDATE_RCONST ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ @@ -1529,183 +1536,183 @@ SUBROUTINE Update_PHOTO ( ) ! End inlined code from F90_RCONST - RCONST(882) = (PHOTOL(2)) - RCONST(883) = (PHOTOL(3)) - RCONST(884) = (PHOTOL(1)) - RCONST(885) = (PHOTOL(11)) - RCONST(886) = (PHOTOL(9)) - RCONST(887) = (PHOTOL(10)) - RCONST(888) = (PHOTOL(7)) - RCONST(889) = (PHOTOL(8)) - RCONST(890) = (PHOTOL(16)) - RCONST(891) = (PHOTOL(15)) - RCONST(892) = (PHOTOL(17)) - RCONST(893) = (PHOTOL(18)) - RCONST(894) = (PHOTOL(12)) - RCONST(895) = (PHOTOL(13)) - RCONST(896) = (PHOTOL(14)) - RCONST(897) = (PHOTOL(61)) - RCONST(898) = (PHOTOL(62)) - RCONST(899) = (PHOTOL(59)) - RCONST(900) = (PHOTOL(59)) - RCONST(901) = (PHOTOL(66)) - RCONST(902) = (PHOTOL(70)) - RCONST(903) = (PHOTOL(70)) - RCONST(904) = (PHOTOL(76)) - RCONST(905) = (PHOTOL(77)) - RCONST(906) = (PHOTOL(69)) - RCONST(907) = (PHOTOL(68)) - RCONST(908) = (PHOTOL(72)) - RCONST(909) = (PHOTOL(73)) - RCONST(910) = (PHOTOL(74)) - RCONST(911) = (PHOTOL(71)) - RCONST(912) = (PHOTOL(63)) - RCONST(913) = (PHOTOL(64)) - RCONST(914) = (PHOTOL(65)) - RCONST(915) = (PHOTOL(66)) - RCONST(916) = (PHOTOL(75)) - RCONST(917) = (PHOTOL(79)) - RCONST(918) = (PHOTOL(80)) - RCONST(919) = (PHOTOL(81)) - RCONST(920) = (PHOTOL(82)) - RCONST(921) = (PHOTOL(83)) - RCONST(922) = (PHOTOL(83)) - RCONST(923) = (PHOTOL(83)) - RCONST(924) = (PHOTOL(84)) - RCONST(925) = (PHOTOL(85)) - RCONST(926) = (PHOTOL(98)) - RCONST(927) = (PHOTOL(98)) - RCONST(928) = (PHOTOL(98)) - RCONST(929) = (PHOTOL(98)) - RCONST(930) = (PHOTOL(99)) - RCONST(931) = (PHOTOL(23)) - RCONST(932) = (PHOTOL(28)) - RCONST(933) = (PHOTOL(32)) - RCONST(934) = (PHOTOL(29)) - RCONST(935) = (PHOTOL(30)) - RCONST(936) = (PHOTOL(31)) - RCONST(937) = (PHOTOL(56)) - RCONST(938) = (PHOTOL(55)) - RCONST(939) = (PHOTOL(50)) - RCONST(940) = (PHOTOL(43)) - RCONST(941) = (PHOTOL(45)) - RCONST(942) = (PHOTOL(33)) - RCONST(943) = (PHOTOL(22)) - RCONST(944) = (PHOTOL(27)) - RCONST(945) = (PHOTOL(25)) - RCONST(946) = (PHOTOL(26)) - RCONST(947) = (PHOTOL(21)) - RCONST(948) = (PHOTOL(19)) - RCONST(949) = (PHOTOL(20)) - RCONST(950) = (PHOTOL(24)) - RCONST(951) = (PHOTOL(44)) - RCONST(952) = (PHOTOL(42)) - RCONST(953) = (PHOTOL(37)) - RCONST(954) = (PHOTOL(38)) - RCONST(955) = (PHOTOL(39)) - RCONST(956) = (PHOTOL(40)) - RCONST(957) = (PHOTOL(41)) - RCONST(958) = (PHOTOL(47)) - RCONST(959) = (PHOTOL(48)) - RCONST(960) = (PHOTOL(49)) - RCONST(961) = (PHOTOL(46)) - RCONST(962) = (PHOTOL(53)) - RCONST(963) = (PHOTOL(51)) - RCONST(964) = (PHOTOL(54)) - RCONST(965) = (PHOTOL(101)) - RCONST(966) = (PHOTOL(114)) - RCONST(967) = (PHOTOL(115)) - RCONST(968) = (PHOTOL(116)) - RCONST(969) = (PHOTOL(117)) - RCONST(970) = (PHOTOL(118)) - RCONST(971) = (PHOTOL(119)) - RCONST(972) = (PHOTOL(120)) - RCONST(973) = (PHOTOL(121)) - RCONST(974) = (PHOTOL(122)) - RCONST(975) = (PHOTOL(123)) - RCONST(976) = (PHOTOL(124)) - RCONST(977) = (PHOTOL(125)) - RCONST(978) = (PHOTOL(126)) - RCONST(979) = (PHOTOL(127)) - RCONST(980) = (PHOTOL(128)) - RCONST(981) = (PHOTOL(129)) - RCONST(982) = (PHOTOL(103)) - RCONST(983) = (PHOTOL(104)) - RCONST(984) = (PHOTOL(97)) - RCONST(985) = (PHOTOL(36)) - RCONST(986) = (PHOTOL(34)) - RCONST(987) = (PHOTOL(100)) - RCONST(988) = (PHOTOL(6)) - RCONST(989) = (PHOTOL(105)) - RCONST(990) = (PHOTOL(107)) - RCONST(991) = (PHOTOL(111)) - RCONST(992) = (PHOTOL(112)) - RCONST(993) = (PHOTOL(113)) - RCONST(994) = (PHOTOL(130)) - RCONST(995) = (PHOTOL(131)) - RCONST(996) = (PHOTOL(132)) - RCONST(997) = (PHOTOL(133)) - RCONST(998) = (PHOTOL(134)) - RCONST(999) = (PHOTOL(135)) - RCONST(1000) = (PHOTOL(136)) - RCONST(1001) = (PHOTOL(137)) - RCONST(1002) = (PHOTOL(86)) - RCONST(1003) = (PHOTOL(87)) - RCONST(1004) = (PHOTOL(88)) - RCONST(1005) = (PHOTOL(89)) - RCONST(1006) = (PHOTOL(90)) - RCONST(1007) = (PHOTOL(91)) - RCONST(1008) = (PHOTOL(92)) - RCONST(1009) = (PHOTOL(93)) - RCONST(1010) = (PHOTOL(94)) - RCONST(1011) = (PHOTOL(95)) - RCONST(1012) = (PHOTOL(96)) - RCONST(1013) = (PHOTOL(108)) - RCONST(1014) = (PHOTOL(109)) - RCONST(1015) = (PHOTOL(110)) - RCONST(1016) = (PHOTOL(138)) - RCONST(1017) = (PHOTOL(139)) - RCONST(1018) = (PHOTOL(140)) - RCONST(1019) = (PHOTOL(141)) - RCONST(1020) = (PHOTOL(142)) - RCONST(1021) = (PHOTOL(143)) - RCONST(1022) = (PHOTOL(144)) - RCONST(1023) = (PHOTOL(145)) - RCONST(1024) = (PHOTOL(146)) - RCONST(1025) = (PHOTOL(147)) - RCONST(1026) = (PHOTOL(148)) - RCONST(1027) = (PHOTOL(149)) - RCONST(1028) = (PHOTOL(150)) - RCONST(1029) = (PHOTOL(151)) - RCONST(1030) = (PHOTOL(152)) - RCONST(1031) = (PHOTOL(106)) - RCONST(1032) = (PHOTOL(78)) - RCONST(1033) = (PHOTOL(153)) - RCONST(1034) = (PHOTOL(154)) - RCONST(1035) = (PHOTOL(155)) - RCONST(1036) = (PHOTOL(156)) - RCONST(1037) = (PHOTOL(157)) - RCONST(1038) = (PHOTOL(158)) - RCONST(1039) = (PHOTOL(159)) - RCONST(1040) = (PHOTOL(160)) - RCONST(1041) = (PHOTOL(161)) - RCONST(1042) = (PHOTOL(162)) - RCONST(1043) = (PHOTOL(163)) - RCONST(1044) = (PHOTOL(164)) - RCONST(1045) = (PHOTOL(165)) - RCONST(1046) = (PHOTOL(166)) - RCONST(1047) = (PHOTOL(167)) - RCONST(1048) = (PHOTOL(168)) - RCONST(1049) = (PHOTOL(169)) - RCONST(1050) = (PHOTOL(170)) - RCONST(1051) = (PHOTOL(171)) - RCONST(1052) = (PHOTOL(172)) - RCONST(1053) = (PHOTOL(173)) - RCONST(1054) = (PHOTOL(174)) - RCONST(1055) = (PHOTOL(175)) - RCONST(1056) = (PHOTOL(176)) - RCONST(1057) = (PHOTOL(105)) - RCONST(1058) = (PHOTOL(177)) + RCONST(889) = (PHOTOL(2)) + RCONST(890) = (PHOTOL(3)) + RCONST(891) = (PHOTOL(1)) + RCONST(892) = (PHOTOL(11)) + RCONST(893) = (PHOTOL(9)) + RCONST(894) = (PHOTOL(10)) + RCONST(895) = (PHOTOL(7)) + RCONST(896) = (PHOTOL(8)) + RCONST(897) = (PHOTOL(16)) + RCONST(898) = (PHOTOL(15)) + RCONST(899) = (PHOTOL(17)) + RCONST(900) = (PHOTOL(18)) + RCONST(901) = (PHOTOL(12)) + RCONST(902) = (PHOTOL(13)) + RCONST(903) = (PHOTOL(14)) + RCONST(904) = (PHOTOL(61)) + RCONST(905) = (PHOTOL(62)) + RCONST(906) = (PHOTOL(59)) + RCONST(907) = (PHOTOL(59)) + RCONST(908) = (PHOTOL(66)) + RCONST(909) = (PHOTOL(70)) + RCONST(910) = (PHOTOL(70)) + RCONST(911) = (PHOTOL(76)) + RCONST(912) = (PHOTOL(77)) + RCONST(913) = (PHOTOL(69)) + RCONST(914) = (PHOTOL(68)) + RCONST(915) = (PHOTOL(72)) + RCONST(916) = (PHOTOL(73)) + RCONST(917) = (PHOTOL(74)) + RCONST(918) = (PHOTOL(71)) + RCONST(919) = (PHOTOL(63)) + RCONST(920) = (PHOTOL(64)) + RCONST(921) = (PHOTOL(65)) + RCONST(922) = (PHOTOL(66)) + RCONST(923) = (PHOTOL(75)) + RCONST(924) = (PHOTOL(79)) + RCONST(925) = (PHOTOL(80)) + RCONST(926) = (PHOTOL(81)) + RCONST(927) = (PHOTOL(82)) + RCONST(928) = (PHOTOL(83)) + RCONST(929) = (PHOTOL(83)) + RCONST(930) = (PHOTOL(83)) + RCONST(931) = (PHOTOL(84)) + RCONST(932) = (PHOTOL(85)) + RCONST(933) = (PHOTOL(98)) + RCONST(934) = (PHOTOL(98)) + RCONST(935) = (PHOTOL(98)) + RCONST(936) = (PHOTOL(98)) + RCONST(937) = (PHOTOL(99)) + RCONST(938) = (PHOTOL(23)) + RCONST(939) = (PHOTOL(28)) + RCONST(940) = (PHOTOL(32)) + RCONST(941) = (PHOTOL(29)) + RCONST(942) = (PHOTOL(30)) + RCONST(943) = (PHOTOL(31)) + RCONST(944) = (PHOTOL(56)) + RCONST(945) = (PHOTOL(55)) + RCONST(946) = (PHOTOL(50)) + RCONST(947) = (PHOTOL(43)) + RCONST(948) = (PHOTOL(45)) + RCONST(949) = (PHOTOL(33)) + RCONST(950) = (PHOTOL(22)) + RCONST(951) = (PHOTOL(27)) + RCONST(952) = (PHOTOL(25)) + RCONST(953) = (PHOTOL(26)) + RCONST(954) = (PHOTOL(21)) + RCONST(955) = (PHOTOL(19)) + RCONST(956) = (PHOTOL(20)) + RCONST(957) = (PHOTOL(24)) + RCONST(958) = (PHOTOL(44)) + RCONST(959) = (PHOTOL(42)) + RCONST(960) = (PHOTOL(37)) + RCONST(961) = (PHOTOL(38)) + RCONST(962) = (PHOTOL(39)) + RCONST(963) = (PHOTOL(40)) + RCONST(964) = (PHOTOL(41)) + RCONST(965) = (PHOTOL(47)) + RCONST(966) = (PHOTOL(48)) + RCONST(967) = (PHOTOL(49)) + RCONST(968) = (PHOTOL(46)) + RCONST(969) = (PHOTOL(53)) + RCONST(970) = (PHOTOL(51)) + RCONST(971) = (PHOTOL(54)) + RCONST(972) = (PHOTOL(101)) + RCONST(973) = (PHOTOL(114)) + RCONST(974) = (PHOTOL(115)) + RCONST(975) = (PHOTOL(116)) + RCONST(976) = (PHOTOL(117)) + RCONST(977) = (PHOTOL(118)) + RCONST(978) = (PHOTOL(119)) + RCONST(979) = (PHOTOL(120)) + RCONST(980) = (PHOTOL(121)) + RCONST(981) = (PHOTOL(122)) + RCONST(982) = (PHOTOL(123)) + RCONST(983) = (PHOTOL(124)) + RCONST(984) = (PHOTOL(125)) + RCONST(985) = (PHOTOL(126)) + RCONST(986) = (PHOTOL(127)) + RCONST(987) = (PHOTOL(128)) + RCONST(988) = (PHOTOL(129)) + RCONST(989) = (PHOTOL(103)) + RCONST(990) = (PHOTOL(104)) + RCONST(991) = (PHOTOL(97)) + RCONST(992) = (PHOTOL(36)) + RCONST(993) = (PHOTOL(34)) + RCONST(994) = (PHOTOL(100)) + RCONST(995) = (PHOTOL(6)) + RCONST(996) = (PHOTOL(105)) + RCONST(997) = (PHOTOL(107)) + RCONST(998) = (PHOTOL(111)) + RCONST(999) = (PHOTOL(112)) + RCONST(1000) = (PHOTOL(113)) + RCONST(1001) = (PHOTOL(130)) + RCONST(1002) = (PHOTOL(131)) + RCONST(1003) = (PHOTOL(132)) + RCONST(1004) = (PHOTOL(133)) + RCONST(1005) = (PHOTOL(134)) + RCONST(1006) = (PHOTOL(135)) + RCONST(1007) = (PHOTOL(136)) + RCONST(1008) = (PHOTOL(137)) + RCONST(1009) = (PHOTOL(86)) + RCONST(1010) = (PHOTOL(87)) + RCONST(1011) = (PHOTOL(88)) + RCONST(1012) = (PHOTOL(89)) + RCONST(1013) = (PHOTOL(90)) + RCONST(1014) = (PHOTOL(91)) + RCONST(1015) = (PHOTOL(92)) + RCONST(1016) = (PHOTOL(93)) + RCONST(1017) = (PHOTOL(94)) + RCONST(1018) = (PHOTOL(95)) + RCONST(1019) = (PHOTOL(96)) + RCONST(1020) = (PHOTOL(108)) + RCONST(1021) = (PHOTOL(109)) + RCONST(1022) = (PHOTOL(110)) + RCONST(1023) = (PHOTOL(138)) + RCONST(1024) = (PHOTOL(139)) + RCONST(1025) = (PHOTOL(140)) + RCONST(1026) = (PHOTOL(141)) + RCONST(1027) = (PHOTOL(142)) + RCONST(1028) = (PHOTOL(143)) + RCONST(1029) = (PHOTOL(144)) + RCONST(1030) = (PHOTOL(145)) + RCONST(1031) = (PHOTOL(146)) + RCONST(1032) = (PHOTOL(147)) + RCONST(1033) = (PHOTOL(148)) + RCONST(1034) = (PHOTOL(149)) + RCONST(1035) = (PHOTOL(150)) + RCONST(1036) = (PHOTOL(151)) + RCONST(1037) = (PHOTOL(152)) + RCONST(1038) = (PHOTOL(106)) + RCONST(1039) = (PHOTOL(78)) + RCONST(1040) = (PHOTOL(153)) + RCONST(1041) = (PHOTOL(154)) + RCONST(1042) = (PHOTOL(155)) + RCONST(1043) = (PHOTOL(156)) + RCONST(1044) = (PHOTOL(157)) + RCONST(1045) = (PHOTOL(158)) + RCONST(1046) = (PHOTOL(159)) + RCONST(1047) = (PHOTOL(160)) + RCONST(1048) = (PHOTOL(161)) + RCONST(1049) = (PHOTOL(162)) + RCONST(1050) = (PHOTOL(163)) + RCONST(1051) = (PHOTOL(164)) + RCONST(1052) = (PHOTOL(165)) + RCONST(1053) = (PHOTOL(166)) + RCONST(1054) = (PHOTOL(167)) + RCONST(1055) = (PHOTOL(168)) + RCONST(1056) = (PHOTOL(169)) + RCONST(1057) = (PHOTOL(170)) + RCONST(1058) = (PHOTOL(171)) + RCONST(1059) = (PHOTOL(172)) + RCONST(1060) = (PHOTOL(173)) + RCONST(1061) = (PHOTOL(174)) + RCONST(1062) = (PHOTOL(175)) + RCONST(1063) = (PHOTOL(176)) + RCONST(1064) = (PHOTOL(105)) + RCONST(1065) = (PHOTOL(177)) END SUBROUTINE Update_PHOTO diff --git a/KPP/fullchem/gckpp_Util.F90 b/KPP/fullchem/gckpp_Util.F90 index 1ec6fd7c5..1bb8a66eb 100644 --- a/KPP/fullchem/gckpp_Util.F90 +++ b/KPP/fullchem/gckpp_Util.F90 @@ -2,7 +2,7 @@ ! ! Auxiliary Routines File ! -! Generated by KPP-3.2.0 symbolic chemistry Kinetics PreProcessor +! Generated by KPP-3.3.0 symbolic chemistry Kinetics PreProcessor ! (https:/github.com/KineticPreProcessor/KPP ! KPP is distributed under GPL, the general public licence ! (http://www.gnu.org/copyleft/gpl.html) @@ -227,230 +227,230 @@ SUBROUTINE Shuffle_user2kpp ( V_USER, V ) ! V - Concentrations of variable species (local) REAL(kind=dp) :: V(NVAR) - V(321) = V_USER(1) - V(233) = V_USER(2) - V(132) = V_USER(3) - V(197) = V_USER(4) - V(295) = V_USER(5) - V(283) = V_USER(6) + V(326) = V_USER(1) + V(229) = V_USER(2) + V(133) = V_USER(3) + V(201) = V_USER(4) + V(297) = V_USER(5) + V(286) = V_USER(6) V(4) = V_USER(7) - V(326) = V_USER(8) - V(142) = V_USER(9) - V(249) = V_USER(10) - V(279) = V_USER(11) - V(300) = V_USER(12) - V(102) = V_USER(13) - V(69) = V_USER(14) + V(330) = V_USER(8) + V(144) = V_USER(9) + V(252) = V_USER(10) + V(283) = V_USER(11) + V(304) = V_USER(12) + V(104) = V_USER(13) + V(72) = V_USER(14) V(5) = V_USER(15) - V(126) = V_USER(16) - V(146) = V_USER(17) - V(263) = V_USER(18) - V(221) = V_USER(19) - V(201) = V_USER(20) - V(122) = V_USER(21) - V(240) = V_USER(22) - V(313) = V_USER(23) - V(244) = V_USER(24) - V(323) = V_USER(25) - V(204) = V_USER(26) - V(143) = V_USER(27) - V(203) = V_USER(28) - V(236) = V_USER(29) - V(117) = V_USER(30) + V(129) = V_USER(16) + V(152) = V_USER(17) + V(266) = V_USER(18) + V(224) = V_USER(19) + V(204) = V_USER(20) + V(125) = V_USER(21) + V(243) = V_USER(22) + V(316) = V_USER(23) + V(247) = V_USER(24) + V(327) = V_USER(25) + V(207) = V_USER(26) + V(145) = V_USER(27) + V(206) = V_USER(28) + V(238) = V_USER(29) + V(118) = V_USER(30) V(342) = V_USER(31) - V(148) = V_USER(32) - V(157) = V_USER(33) - V(59) = V_USER(34) - V(218) = V_USER(35) + V(153) = V_USER(32) + V(160) = V_USER(33) + V(62) = V_USER(34) + V(221) = V_USER(35) V(347) = V_USER(36) V(13) = V_USER(37) V(349) = V_USER(38) V(350) = V_USER(39) V(6) = V_USER(40) - V(127) = V_USER(41) - V(212) = V_USER(42) - V(235) = V_USER(43) - V(71) = V_USER(44) - V(90) = V_USER(45) - V(60) = V_USER(46) - V(109) = V_USER(47) - V(183) = V_USER(48) - V(141) = V_USER(49) + V(130) = V_USER(41) + V(215) = V_USER(42) + V(237) = V_USER(43) + V(77) = V_USER(44) + V(105) = V_USER(45) + V(63) = V_USER(46) + V(120) = V_USER(47) + V(187) = V_USER(48) + V(142) = V_USER(49) V(140) = V_USER(50) - V(171) = V_USER(51) - V(172) = V_USER(52) - V(46) = V_USER(53) - V(47) = V_USER(54) - V(48) = V_USER(55) - V(49) = V_USER(56) - V(50) = V_USER(57) - V(51) = V_USER(58) - V(78) = V_USER(59) - V(79) = V_USER(60) + V(173) = V_USER(51) + V(174) = V_USER(52) + V(49) = V_USER(53) + V(50) = V_USER(54) + V(51) = V_USER(55) + V(52) = V_USER(56) + V(53) = V_USER(57) + V(54) = V_USER(58) + V(79) = V_USER(59) + V(80) = V_USER(60) V(1) = V_USER(61) V(2) = V_USER(62) V(3) = V_USER(63) - V(325) = V_USER(64) - V(312) = V_USER(65) - V(105) = V_USER(66) - V(43) = V_USER(67) - V(241) = V_USER(68) - V(181) = V_USER(69) - V(52) = V_USER(70) - V(228) = V_USER(71) - V(81) = V_USER(72) - V(75) = V_USER(73) - V(340) = V_USER(74) - V(245) = V_USER(75) - V(76) = V_USER(76) - V(297) = V_USER(77) - V(317) = V_USER(78) - V(338) = V_USER(79) - V(110) = V_USER(80) - V(329) = V_USER(81) + V(329) = V_USER(64) + V(317) = V_USER(65) + V(108) = V_USER(66) + V(46) = V_USER(67) + V(244) = V_USER(68) + V(184) = V_USER(69) + V(55) = V_USER(70) + V(232) = V_USER(71) + V(82) = V_USER(72) + V(84) = V_USER(73) + V(352) = V_USER(74) + V(248) = V_USER(75) + V(78) = V_USER(76) + V(301) = V_USER(77) + V(321) = V_USER(78) + V(344) = V_USER(79) + V(119) = V_USER(80) + V(335) = V_USER(81) V(7) = V_USER(82) - V(158) = V_USER(83) - V(94) = V_USER(84) - V(149) = V_USER(85) - V(156) = V_USER(86) - V(261) = V_USER(87) - V(70) = V_USER(88) - V(136) = V_USER(89) - V(83) = V_USER(90) - V(106) = V_USER(91) - V(234) = V_USER(92) - V(296) = V_USER(93) - V(118) = V_USER(94) - V(41) = V_USER(95) - V(213) = V_USER(96) - V(306) = V_USER(97) - V(270) = V_USER(98) - V(217) = V_USER(99) - V(61) = V_USER(100) - V(53) = V_USER(101) - V(54) = V_USER(102) - V(336) = V_USER(103) - V(264) = V_USER(104) - V(307) = V_USER(105) - V(72) = V_USER(106) - V(352) = V_USER(107) - V(238) = V_USER(108) - V(84) = V_USER(109) - V(85) = V_USER(110) - V(86) = V_USER(111) - V(87) = V_USER(112) - V(339) = V_USER(113) - V(265) = V_USER(114) - V(73) = V_USER(115) - V(88) = V_USER(116) - V(107) = V_USER(117) - V(89) = V_USER(118) - V(239) = V_USER(119) - V(327) = V_USER(120) - V(108) = V_USER(121) - V(337) = V_USER(122) - V(316) = V_USER(123) - V(333) = V_USER(124) - V(330) = V_USER(125) - V(154) = V_USER(126) - V(230) = V_USER(127) - V(133) = V_USER(128) + V(162) = V_USER(83) + V(87) = V_USER(84) + V(148) = V_USER(85) + V(154) = V_USER(86) + V(265) = V_USER(87) + V(73) = V_USER(88) + V(138) = V_USER(89) + V(86) = V_USER(90) + V(114) = V_USER(91) + V(239) = V_USER(92) + V(300) = V_USER(93) + V(121) = V_USER(94) + V(44) = V_USER(95) + V(216) = V_USER(96) + V(309) = V_USER(97) + V(274) = V_USER(98) + V(219) = V_USER(99) + V(64) = V_USER(100) + V(56) = V_USER(101) + V(57) = V_USER(102) + V(353) = V_USER(103) + V(267) = V_USER(104) + V(311) = V_USER(105) + V(74) = V_USER(106) + V(354) = V_USER(107) + V(242) = V_USER(108) + V(88) = V_USER(109) + V(89) = V_USER(110) + V(90) = V_USER(111) + V(91) = V_USER(112) + V(340) = V_USER(113) + V(268) = V_USER(114) + V(75) = V_USER(115) + V(92) = V_USER(116) + V(109) = V_USER(117) + V(93) = V_USER(118) + V(240) = V_USER(119) + V(333) = V_USER(120) + V(110) = V_USER(121) + V(341) = V_USER(122) + V(320) = V_USER(123) + V(332) = V_USER(124) + V(287) = V_USER(125) + V(156) = V_USER(126) + V(233) = V_USER(127) + V(137) = V_USER(128) V(231) = V_USER(129) - V(135) = V_USER(130) + V(136) = V_USER(130) V(150) = V_USER(131) - V(144) = V_USER(132) - V(210) = V_USER(133) + V(151) = V_USER(132) + V(214) = V_USER(133) V(331) = V_USER(134) - V(170) = V_USER(135) - V(44) = V_USER(136) - V(55) = V_USER(137) - V(42) = V_USER(138) - V(77) = V_USER(139) - V(215) = V_USER(140) - V(243) = V_USER(141) - V(104) = V_USER(142) - V(301) = V_USER(143) - V(182) = V_USER(144) - V(258) = V_USER(145) - V(119) = V_USER(146) - V(147) = V_USER(147) - V(174) = V_USER(148) - V(293) = V_USER(149) - V(206) = V_USER(150) - V(207) = V_USER(151) + V(172) = V_USER(135) + V(47) = V_USER(136) + V(58) = V_USER(137) + V(45) = V_USER(138) + V(81) = V_USER(139) + V(218) = V_USER(140) + V(245) = V_USER(141) + V(107) = V_USER(142) + V(305) = V_USER(143) + V(185) = V_USER(144) + V(259) = V_USER(145) + V(122) = V_USER(146) + V(149) = V_USER(147) + V(178) = V_USER(148) + V(299) = V_USER(149) + V(209) = V_USER(150) + V(208) = V_USER(151) V(198) = V_USER(152) - V(299) = V_USER(153) - V(180) = V_USER(154) - V(151) = V_USER(155) - V(286) = V_USER(156) - V(152) = V_USER(157) - V(285) = V_USER(158) - V(128) = V_USER(159) - V(268) = V_USER(160) + V(303) = V_USER(153) + V(181) = V_USER(154) + V(157) = V_USER(155) + V(289) = V_USER(156) + V(159) = V_USER(157) + V(288) = V_USER(158) + V(131) = V_USER(159) + V(271) = V_USER(160) V(175) = V_USER(161) - V(168) = V_USER(162) - V(267) = V_USER(163) - V(305) = V_USER(164) - V(304) = V_USER(165) - V(271) = V_USER(166) - V(226) = V_USER(167) - V(223) = V_USER(168) - V(224) = V_USER(169) - V(232) = V_USER(170) - V(145) = V_USER(171) + V(177) = V_USER(162) + V(270) = V_USER(163) + V(314) = V_USER(164) + V(315) = V_USER(165) + V(273) = V_USER(166) + V(236) = V_USER(167) + V(228) = V_USER(168) + V(226) = V_USER(169) + V(235) = V_USER(170) + V(147) = V_USER(171) V(8) = V_USER(172) - V(62) = V_USER(173) - V(310) = V_USER(174) - V(311) = V_USER(175) - V(222) = V_USER(176) - V(186) = V_USER(177) - V(284) = V_USER(178) - V(103) = V_USER(179) - V(252) = V_USER(180) - V(332) = V_USER(181) - V(91) = V_USER(182) + V(65) = V_USER(173) + V(308) = V_USER(174) + V(310) = V_USER(175) + V(225) = V_USER(176) + V(188) = V_USER(177) + V(336) = V_USER(178) + V(106) = V_USER(179) + V(254) = V_USER(180) + V(296) = V_USER(181) + V(94) = V_USER(182) V(9) = V_USER(183) V(10) = V_USER(184) - V(276) = V_USER(185) - V(205) = V_USER(186) - V(190) = V_USER(187) - V(266) = V_USER(188) - V(303) = V_USER(189) - V(320) = V_USER(190) + V(279) = V_USER(185) + V(210) = V_USER(186) + V(186) = V_USER(187) + V(269) = V_USER(188) + V(307) = V_USER(189) + V(324) = V_USER(190) V(11) = V_USER(191) V(12) = V_USER(192) - V(167) = V_USER(193) - V(281) = V_USER(194) + V(170) = V_USER(193) + V(284) = V_USER(194) V(111) = V_USER(195) - V(137) = V_USER(196) - V(225) = V_USER(197) - V(56) = V_USER(198) - V(66) = V_USER(199) - V(74) = V_USER(200) - V(160) = V_USER(201) - V(176) = V_USER(202) - V(129) = V_USER(203) - V(138) = V_USER(204) + V(139) = V_USER(196) + V(227) = V_USER(197) + V(59) = V_USER(198) + V(69) = V_USER(199) + V(76) = V_USER(200) + V(163) = V_USER(201) + V(179) = V_USER(202) + V(132) = V_USER(203) + V(141) = V_USER(204) V(112) = V_USER(205) - V(161) = V_USER(206) - V(162) = V_USER(207) - V(255) = V_USER(208) - V(211) = V_USER(209) - V(237) = V_USER(210) - V(163) = V_USER(211) - V(177) = V_USER(212) - V(57) = V_USER(213) - V(130) = V_USER(214) - V(169) = V_USER(215) - V(262) = V_USER(216) - V(193) = V_USER(217) - V(277) = V_USER(218) - V(257) = V_USER(219) - V(278) = V_USER(220) - V(275) = V_USER(221) - V(273) = V_USER(222) - V(272) = V_USER(223) - V(274) = V_USER(224) + V(164) = V_USER(206) + V(165) = V_USER(207) + V(256) = V_USER(208) + V(212) = V_USER(209) + V(241) = V_USER(210) + V(166) = V_USER(211) + V(180) = V_USER(212) + V(60) = V_USER(213) + V(134) = V_USER(214) + V(171) = V_USER(215) + V(263) = V_USER(216) + V(196) = V_USER(217) + V(281) = V_USER(218) + V(261) = V_USER(219) + V(282) = V_USER(220) + V(276) = V_USER(221) + V(275) = V_USER(222) + V(278) = V_USER(223) + V(277) = V_USER(224) V(14) = V_USER(225) V(15) = V_USER(226) V(16) = V_USER(227) @@ -461,118 +461,121 @@ SUBROUTINE Shuffle_user2kpp ( V_USER, V ) V(23) = V_USER(232) V(25) = V_USER(233) V(26) = V_USER(234) - V(309) = V_USER(235) - V(259) = V_USER(236) - V(159) = V_USER(237) - V(308) = V_USER(238) - V(92) = V_USER(239) - V(324) = V_USER(240) - V(153) = V_USER(241) - V(194) = V_USER(242) - V(248) = V_USER(243) - V(216) = V_USER(244) - V(287) = V_USER(245) - V(253) = V_USER(246) - V(202) = V_USER(247) - V(246) = V_USER(248) - V(292) = V_USER(249) + V(313) = V_USER(235) + V(262) = V_USER(236) + V(161) = V_USER(237) + V(312) = V_USER(238) + V(95) = V_USER(239) + V(328) = V_USER(240) + V(155) = V_USER(241) + V(197) = V_USER(242) + V(251) = V_USER(243) + V(220) = V_USER(244) + V(290) = V_USER(245) + V(257) = V_USER(246) + V(205) = V_USER(247) + V(250) = V_USER(248) + V(295) = V_USER(249) V(113) = V_USER(250) - V(93) = V_USER(251) - V(294) = V_USER(252) - V(328) = V_USER(253) - V(282) = V_USER(254) - V(45) = V_USER(255) - V(256) = V_USER(256) - V(242) = V_USER(257) - V(164) = V_USER(258) - V(184) = V_USER(259) - V(80) = V_USER(260) + V(96) = V_USER(251) + V(298) = V_USER(252) + V(334) = V_USER(253) + V(285) = V_USER(254) + V(48) = V_USER(255) + V(260) = V_USER(256) + V(246) = V_USER(257) + V(167) = V_USER(258) + V(189) = V_USER(259) + V(83) = V_USER(260) V(28) = V_USER(261) - V(191) = V_USER(262) - V(219) = V_USER(263) - V(314) = V_USER(264) - V(131) = V_USER(265) - V(208) = V_USER(266) - V(227) = V_USER(267) - V(288) = V_USER(268) - V(302) = V_USER(269) - V(254) = V_USER(270) - V(185) = V_USER(271) - V(67) = V_USER(272) - V(63) = V_USER(273) - V(214) = V_USER(274) + V(194) = V_USER(262) + V(222) = V_USER(263) + V(318) = V_USER(264) + V(135) = V_USER(265) + V(211) = V_USER(266) + V(230) = V_USER(267) + V(291) = V_USER(268) + V(306) = V_USER(269) + V(258) = V_USER(270) + V(190) = V_USER(271) + V(70) = V_USER(272) + V(66) = V_USER(273) + V(217) = V_USER(274) V(19) = V_USER(275) - V(64) = V_USER(276) - V(65) = V_USER(277) - V(346) = V_USER(278) - V(335) = V_USER(279) - V(351) = V_USER(280) - V(269) = V_USER(281) - V(95) = V_USER(282) + V(67) = V_USER(276) + V(68) = V_USER(277) + V(338) = V_USER(278) + V(345) = V_USER(279) + V(348) = V_USER(280) + V(272) = V_USER(281) + V(97) = V_USER(282) V(18) = V_USER(283) - V(343) = V_USER(284) - V(334) = V_USER(285) - V(341) = V_USER(286) - V(120) = V_USER(289) - V(68) = V_USER(290) - V(345) = V_USER(291) - V(96) = V_USER(292) - V(289) = V_USER(293) + V(351) = V_USER(284) + V(337) = V_USER(285) + V(356) = V_USER(286) + V(123) = V_USER(289) + V(71) = V_USER(290) + V(343) = V_USER(291) + V(98) = V_USER(292) + V(292) = V_USER(293) V(280) = V_USER(294) - V(315) = V_USER(295) - V(139) = V_USER(296) - V(114) = V_USER(297) - V(195) = V_USER(298) - V(291) = V_USER(299) - V(229) = V_USER(300) - V(260) = V_USER(301) - V(123) = V_USER(302) - V(124) = V_USER(303) - V(250) = V_USER(304) - V(247) = V_USER(305) - V(290) = V_USER(306) - V(125) = V_USER(307) - V(115) = V_USER(308) - V(318) = V_USER(309) - V(251) = V_USER(310) - V(319) = V_USER(311) - V(97) = V_USER(312) - V(178) = V_USER(313) - V(165) = V_USER(314) - V(98) = V_USER(315) - V(196) = V_USER(316) - V(99) = V_USER(317) - V(100) = V_USER(318) - V(298) = V_USER(319) - V(322) = V_USER(320) - V(173) = V_USER(321) - V(187) = V_USER(322) - V(192) = V_USER(323) - V(209) = V_USER(324) - V(199) = V_USER(325) - V(116) = V_USER(326) - V(188) = V_USER(327) - V(155) = V_USER(328) - V(179) = V_USER(329) - V(166) = V_USER(330) - V(353) = V_USER(331) - V(344) = V_USER(332) - V(348) = V_USER(337) - V(134) = V_USER(338) + V(319) = V_USER(295) + V(143) = V_USER(296) + V(115) = V_USER(297) + V(199) = V_USER(298) + V(294) = V_USER(299) + V(234) = V_USER(300) + V(264) = V_USER(301) + V(126) = V_USER(302) + V(127) = V_USER(303) + V(253) = V_USER(304) + V(249) = V_USER(305) + V(293) = V_USER(306) + V(128) = V_USER(307) + V(116) = V_USER(308) + V(322) = V_USER(309) + V(255) = V_USER(310) + V(323) = V_USER(311) + V(99) = V_USER(312) + V(182) = V_USER(313) + V(168) = V_USER(314) + V(100) = V_USER(315) + V(200) = V_USER(316) + V(101) = V_USER(317) + V(102) = V_USER(318) + V(302) = V_USER(319) + V(325) = V_USER(320) + V(176) = V_USER(321) + V(191) = V_USER(322) + V(195) = V_USER(323) + V(213) = V_USER(324) + V(202) = V_USER(325) + V(117) = V_USER(326) + V(192) = V_USER(327) + V(158) = V_USER(328) + V(183) = V_USER(329) + V(169) = V_USER(330) + V(339) = V_USER(331) + V(346) = V_USER(332) + V(355) = V_USER(337) + V(146) = V_USER(338) V(29) = V_USER(339) V(30) = V_USER(340) V(31) = V_USER(341) - V(220) = V_USER(342) - V(58) = V_USER(343) - V(121) = V_USER(344) - V(200) = V_USER(345) - V(82) = V_USER(346) + V(223) = V_USER(342) + V(61) = V_USER(343) + V(124) = V_USER(344) + V(203) = V_USER(345) + V(85) = V_USER(346) V(22) = V_USER(347) - V(101) = V_USER(348) + V(103) = V_USER(348) V(27) = V_USER(349) V(32) = V_USER(350) V(33) = V_USER(351) - V(189) = V_USER(352) + V(34) = V_USER(352) + V(35) = V_USER(353) + V(36) = V_USER(354) + V(193) = V_USER(355) END SUBROUTINE Shuffle_user2kpp @@ -596,230 +599,230 @@ SUBROUTINE Shuffle_kpp2user ( V, V_USER ) ! V_USER - Concentration of variable species in USER's order REAL(kind=dp) :: V_USER(NVAR) - V_USER(1) = V(321) - V_USER(2) = V(233) - V_USER(3) = V(132) - V_USER(4) = V(197) - V_USER(5) = V(295) - V_USER(6) = V(283) + V_USER(1) = V(326) + V_USER(2) = V(229) + V_USER(3) = V(133) + V_USER(4) = V(201) + V_USER(5) = V(297) + V_USER(6) = V(286) V_USER(7) = V(4) - V_USER(8) = V(326) - V_USER(9) = V(142) - V_USER(10) = V(249) - V_USER(11) = V(279) - V_USER(12) = V(300) - V_USER(13) = V(102) - V_USER(14) = V(69) + V_USER(8) = V(330) + V_USER(9) = V(144) + V_USER(10) = V(252) + V_USER(11) = V(283) + V_USER(12) = V(304) + V_USER(13) = V(104) + V_USER(14) = V(72) V_USER(15) = V(5) - V_USER(16) = V(126) - V_USER(17) = V(146) - V_USER(18) = V(263) - V_USER(19) = V(221) - V_USER(20) = V(201) - V_USER(21) = V(122) - V_USER(22) = V(240) - V_USER(23) = V(313) - V_USER(24) = V(244) - V_USER(25) = V(323) - V_USER(26) = V(204) - V_USER(27) = V(143) - V_USER(28) = V(203) - V_USER(29) = V(236) - V_USER(30) = V(117) + V_USER(16) = V(129) + V_USER(17) = V(152) + V_USER(18) = V(266) + V_USER(19) = V(224) + V_USER(20) = V(204) + V_USER(21) = V(125) + V_USER(22) = V(243) + V_USER(23) = V(316) + V_USER(24) = V(247) + V_USER(25) = V(327) + V_USER(26) = V(207) + V_USER(27) = V(145) + V_USER(28) = V(206) + V_USER(29) = V(238) + V_USER(30) = V(118) V_USER(31) = V(342) - V_USER(32) = V(148) - V_USER(33) = V(157) - V_USER(34) = V(59) - V_USER(35) = V(218) + V_USER(32) = V(153) + V_USER(33) = V(160) + V_USER(34) = V(62) + V_USER(35) = V(221) V_USER(36) = V(347) V_USER(37) = V(13) V_USER(38) = V(349) V_USER(39) = V(350) V_USER(40) = V(6) - V_USER(41) = V(127) - V_USER(42) = V(212) - V_USER(43) = V(235) - V_USER(44) = V(71) - V_USER(45) = V(90) - V_USER(46) = V(60) - V_USER(47) = V(109) - V_USER(48) = V(183) - V_USER(49) = V(141) + V_USER(41) = V(130) + V_USER(42) = V(215) + V_USER(43) = V(237) + V_USER(44) = V(77) + V_USER(45) = V(105) + V_USER(46) = V(63) + V_USER(47) = V(120) + V_USER(48) = V(187) + V_USER(49) = V(142) V_USER(50) = V(140) - V_USER(51) = V(171) - V_USER(52) = V(172) - V_USER(53) = V(46) - V_USER(54) = V(47) - V_USER(55) = V(48) - V_USER(56) = V(49) - V_USER(57) = V(50) - V_USER(58) = V(51) - V_USER(59) = V(78) - V_USER(60) = V(79) + V_USER(51) = V(173) + V_USER(52) = V(174) + V_USER(53) = V(49) + V_USER(54) = V(50) + V_USER(55) = V(51) + V_USER(56) = V(52) + V_USER(57) = V(53) + V_USER(58) = V(54) + V_USER(59) = V(79) + V_USER(60) = V(80) V_USER(61) = V(1) V_USER(62) = V(2) V_USER(63) = V(3) - V_USER(64) = V(325) - V_USER(65) = V(312) - V_USER(66) = V(105) - V_USER(67) = V(43) - V_USER(68) = V(241) - V_USER(69) = V(181) - V_USER(70) = V(52) - V_USER(71) = V(228) - V_USER(72) = V(81) - V_USER(73) = V(75) - V_USER(74) = V(340) - V_USER(75) = V(245) - V_USER(76) = V(76) - V_USER(77) = V(297) - V_USER(78) = V(317) - V_USER(79) = V(338) - V_USER(80) = V(110) - V_USER(81) = V(329) + V_USER(64) = V(329) + V_USER(65) = V(317) + V_USER(66) = V(108) + V_USER(67) = V(46) + V_USER(68) = V(244) + V_USER(69) = V(184) + V_USER(70) = V(55) + V_USER(71) = V(232) + V_USER(72) = V(82) + V_USER(73) = V(84) + V_USER(74) = V(352) + V_USER(75) = V(248) + V_USER(76) = V(78) + V_USER(77) = V(301) + V_USER(78) = V(321) + V_USER(79) = V(344) + V_USER(80) = V(119) + V_USER(81) = V(335) V_USER(82) = V(7) - V_USER(83) = V(158) - V_USER(84) = V(94) - V_USER(85) = V(149) - V_USER(86) = V(156) - V_USER(87) = V(261) - V_USER(88) = V(70) - V_USER(89) = V(136) - V_USER(90) = V(83) - V_USER(91) = V(106) - V_USER(92) = V(234) - V_USER(93) = V(296) - V_USER(94) = V(118) - V_USER(95) = V(41) - V_USER(96) = V(213) - V_USER(97) = V(306) - V_USER(98) = V(270) - V_USER(99) = V(217) - V_USER(100) = V(61) - V_USER(101) = V(53) - V_USER(102) = V(54) - V_USER(103) = V(336) - V_USER(104) = V(264) - V_USER(105) = V(307) - V_USER(106) = V(72) - V_USER(107) = V(352) - V_USER(108) = V(238) - V_USER(109) = V(84) - V_USER(110) = V(85) - V_USER(111) = V(86) - V_USER(112) = V(87) - V_USER(113) = V(339) - V_USER(114) = V(265) - V_USER(115) = V(73) - V_USER(116) = V(88) - V_USER(117) = V(107) - V_USER(118) = V(89) - V_USER(119) = V(239) - V_USER(120) = V(327) - V_USER(121) = V(108) - V_USER(122) = V(337) - V_USER(123) = V(316) - V_USER(124) = V(333) - V_USER(125) = V(330) - V_USER(126) = V(154) - V_USER(127) = V(230) - V_USER(128) = V(133) + V_USER(83) = V(162) + V_USER(84) = V(87) + V_USER(85) = V(148) + V_USER(86) = V(154) + V_USER(87) = V(265) + V_USER(88) = V(73) + V_USER(89) = V(138) + V_USER(90) = V(86) + V_USER(91) = V(114) + V_USER(92) = V(239) + V_USER(93) = V(300) + V_USER(94) = V(121) + V_USER(95) = V(44) + V_USER(96) = V(216) + V_USER(97) = V(309) + V_USER(98) = V(274) + V_USER(99) = V(219) + V_USER(100) = V(64) + V_USER(101) = V(56) + V_USER(102) = V(57) + V_USER(103) = V(353) + V_USER(104) = V(267) + V_USER(105) = V(311) + V_USER(106) = V(74) + V_USER(107) = V(354) + V_USER(108) = V(242) + V_USER(109) = V(88) + V_USER(110) = V(89) + V_USER(111) = V(90) + V_USER(112) = V(91) + V_USER(113) = V(340) + V_USER(114) = V(268) + V_USER(115) = V(75) + V_USER(116) = V(92) + V_USER(117) = V(109) + V_USER(118) = V(93) + V_USER(119) = V(240) + V_USER(120) = V(333) + V_USER(121) = V(110) + V_USER(122) = V(341) + V_USER(123) = V(320) + V_USER(124) = V(332) + V_USER(125) = V(287) + V_USER(126) = V(156) + V_USER(127) = V(233) + V_USER(128) = V(137) V_USER(129) = V(231) - V_USER(130) = V(135) + V_USER(130) = V(136) V_USER(131) = V(150) - V_USER(132) = V(144) - V_USER(133) = V(210) + V_USER(132) = V(151) + V_USER(133) = V(214) V_USER(134) = V(331) - V_USER(135) = V(170) - V_USER(136) = V(44) - V_USER(137) = V(55) - V_USER(138) = V(42) - V_USER(139) = V(77) - V_USER(140) = V(215) - V_USER(141) = V(243) - V_USER(142) = V(104) - V_USER(143) = V(301) - V_USER(144) = V(182) - V_USER(145) = V(258) - V_USER(146) = V(119) - V_USER(147) = V(147) - V_USER(148) = V(174) - V_USER(149) = V(293) - V_USER(150) = V(206) - V_USER(151) = V(207) + V_USER(135) = V(172) + V_USER(136) = V(47) + V_USER(137) = V(58) + V_USER(138) = V(45) + V_USER(139) = V(81) + V_USER(140) = V(218) + V_USER(141) = V(245) + V_USER(142) = V(107) + V_USER(143) = V(305) + V_USER(144) = V(185) + V_USER(145) = V(259) + V_USER(146) = V(122) + V_USER(147) = V(149) + V_USER(148) = V(178) + V_USER(149) = V(299) + V_USER(150) = V(209) + V_USER(151) = V(208) V_USER(152) = V(198) - V_USER(153) = V(299) - V_USER(154) = V(180) - V_USER(155) = V(151) - V_USER(156) = V(286) - V_USER(157) = V(152) - V_USER(158) = V(285) - V_USER(159) = V(128) - V_USER(160) = V(268) + V_USER(153) = V(303) + V_USER(154) = V(181) + V_USER(155) = V(157) + V_USER(156) = V(289) + V_USER(157) = V(159) + V_USER(158) = V(288) + V_USER(159) = V(131) + V_USER(160) = V(271) V_USER(161) = V(175) - V_USER(162) = V(168) - V_USER(163) = V(267) - V_USER(164) = V(305) - V_USER(165) = V(304) - V_USER(166) = V(271) - V_USER(167) = V(226) - V_USER(168) = V(223) - V_USER(169) = V(224) - V_USER(170) = V(232) - V_USER(171) = V(145) + V_USER(162) = V(177) + V_USER(163) = V(270) + V_USER(164) = V(314) + V_USER(165) = V(315) + V_USER(166) = V(273) + V_USER(167) = V(236) + V_USER(168) = V(228) + V_USER(169) = V(226) + V_USER(170) = V(235) + V_USER(171) = V(147) V_USER(172) = V(8) - V_USER(173) = V(62) - V_USER(174) = V(310) - V_USER(175) = V(311) - V_USER(176) = V(222) - V_USER(177) = V(186) - V_USER(178) = V(284) - V_USER(179) = V(103) - V_USER(180) = V(252) - V_USER(181) = V(332) - V_USER(182) = V(91) + V_USER(173) = V(65) + V_USER(174) = V(308) + V_USER(175) = V(310) + V_USER(176) = V(225) + V_USER(177) = V(188) + V_USER(178) = V(336) + V_USER(179) = V(106) + V_USER(180) = V(254) + V_USER(181) = V(296) + V_USER(182) = V(94) V_USER(183) = V(9) V_USER(184) = V(10) - V_USER(185) = V(276) - V_USER(186) = V(205) - V_USER(187) = V(190) - V_USER(188) = V(266) - V_USER(189) = V(303) - V_USER(190) = V(320) + V_USER(185) = V(279) + V_USER(186) = V(210) + V_USER(187) = V(186) + V_USER(188) = V(269) + V_USER(189) = V(307) + V_USER(190) = V(324) V_USER(191) = V(11) V_USER(192) = V(12) - V_USER(193) = V(167) - V_USER(194) = V(281) + V_USER(193) = V(170) + V_USER(194) = V(284) V_USER(195) = V(111) - V_USER(196) = V(137) - V_USER(197) = V(225) - V_USER(198) = V(56) - V_USER(199) = V(66) - V_USER(200) = V(74) - V_USER(201) = V(160) - V_USER(202) = V(176) - V_USER(203) = V(129) - V_USER(204) = V(138) + V_USER(196) = V(139) + V_USER(197) = V(227) + V_USER(198) = V(59) + V_USER(199) = V(69) + V_USER(200) = V(76) + V_USER(201) = V(163) + V_USER(202) = V(179) + V_USER(203) = V(132) + V_USER(204) = V(141) V_USER(205) = V(112) - V_USER(206) = V(161) - V_USER(207) = V(162) - V_USER(208) = V(255) - V_USER(209) = V(211) - V_USER(210) = V(237) - V_USER(211) = V(163) - V_USER(212) = V(177) - V_USER(213) = V(57) - V_USER(214) = V(130) - V_USER(215) = V(169) - V_USER(216) = V(262) - V_USER(217) = V(193) - V_USER(218) = V(277) - V_USER(219) = V(257) - V_USER(220) = V(278) - V_USER(221) = V(275) - V_USER(222) = V(273) - V_USER(223) = V(272) - V_USER(224) = V(274) + V_USER(206) = V(164) + V_USER(207) = V(165) + V_USER(208) = V(256) + V_USER(209) = V(212) + V_USER(210) = V(241) + V_USER(211) = V(166) + V_USER(212) = V(180) + V_USER(213) = V(60) + V_USER(214) = V(134) + V_USER(215) = V(171) + V_USER(216) = V(263) + V_USER(217) = V(196) + V_USER(218) = V(281) + V_USER(219) = V(261) + V_USER(220) = V(282) + V_USER(221) = V(276) + V_USER(222) = V(275) + V_USER(223) = V(278) + V_USER(224) = V(277) V_USER(225) = V(14) V_USER(226) = V(15) V_USER(227) = V(16) @@ -830,118 +833,121 @@ SUBROUTINE Shuffle_kpp2user ( V, V_USER ) V_USER(232) = V(23) V_USER(233) = V(25) V_USER(234) = V(26) - V_USER(235) = V(309) - V_USER(236) = V(259) - V_USER(237) = V(159) - V_USER(238) = V(308) - V_USER(239) = V(92) - V_USER(240) = V(324) - V_USER(241) = V(153) - V_USER(242) = V(194) - V_USER(243) = V(248) - V_USER(244) = V(216) - V_USER(245) = V(287) - V_USER(246) = V(253) - V_USER(247) = V(202) - V_USER(248) = V(246) - V_USER(249) = V(292) + V_USER(235) = V(313) + V_USER(236) = V(262) + V_USER(237) = V(161) + V_USER(238) = V(312) + V_USER(239) = V(95) + V_USER(240) = V(328) + V_USER(241) = V(155) + V_USER(242) = V(197) + V_USER(243) = V(251) + V_USER(244) = V(220) + V_USER(245) = V(290) + V_USER(246) = V(257) + V_USER(247) = V(205) + V_USER(248) = V(250) + V_USER(249) = V(295) V_USER(250) = V(113) - V_USER(251) = V(93) - V_USER(252) = V(294) - V_USER(253) = V(328) - V_USER(254) = V(282) - V_USER(255) = V(45) - V_USER(256) = V(256) - V_USER(257) = V(242) - V_USER(258) = V(164) - V_USER(259) = V(184) - V_USER(260) = V(80) + V_USER(251) = V(96) + V_USER(252) = V(298) + V_USER(253) = V(334) + V_USER(254) = V(285) + V_USER(255) = V(48) + V_USER(256) = V(260) + V_USER(257) = V(246) + V_USER(258) = V(167) + V_USER(259) = V(189) + V_USER(260) = V(83) V_USER(261) = V(28) - V_USER(262) = V(191) - V_USER(263) = V(219) - V_USER(264) = V(314) - V_USER(265) = V(131) - V_USER(266) = V(208) - V_USER(267) = V(227) - V_USER(268) = V(288) - V_USER(269) = V(302) - V_USER(270) = V(254) - V_USER(271) = V(185) - V_USER(272) = V(67) - V_USER(273) = V(63) - V_USER(274) = V(214) + V_USER(262) = V(194) + V_USER(263) = V(222) + V_USER(264) = V(318) + V_USER(265) = V(135) + V_USER(266) = V(211) + V_USER(267) = V(230) + V_USER(268) = V(291) + V_USER(269) = V(306) + V_USER(270) = V(258) + V_USER(271) = V(190) + V_USER(272) = V(70) + V_USER(273) = V(66) + V_USER(274) = V(217) V_USER(275) = V(19) - V_USER(276) = V(64) - V_USER(277) = V(65) - V_USER(278) = V(346) - V_USER(279) = V(335) - V_USER(280) = V(351) - V_USER(281) = V(269) - V_USER(282) = V(95) + V_USER(276) = V(67) + V_USER(277) = V(68) + V_USER(278) = V(338) + V_USER(279) = V(345) + V_USER(280) = V(348) + V_USER(281) = V(272) + V_USER(282) = V(97) V_USER(283) = V(18) - V_USER(284) = V(343) - V_USER(285) = V(334) - V_USER(286) = V(341) - V_USER(289) = V(120) - V_USER(290) = V(68) - V_USER(291) = V(345) - V_USER(292) = V(96) - V_USER(293) = V(289) + V_USER(284) = V(351) + V_USER(285) = V(337) + V_USER(286) = V(356) + V_USER(289) = V(123) + V_USER(290) = V(71) + V_USER(291) = V(343) + V_USER(292) = V(98) + V_USER(293) = V(292) V_USER(294) = V(280) - V_USER(295) = V(315) - V_USER(296) = V(139) - V_USER(297) = V(114) - V_USER(298) = V(195) - V_USER(299) = V(291) - V_USER(300) = V(229) - V_USER(301) = V(260) - V_USER(302) = V(123) - V_USER(303) = V(124) - V_USER(304) = V(250) - V_USER(305) = V(247) - V_USER(306) = V(290) - V_USER(307) = V(125) - V_USER(308) = V(115) - V_USER(309) = V(318) - V_USER(310) = V(251) - V_USER(311) = V(319) - V_USER(312) = V(97) - V_USER(313) = V(178) - V_USER(314) = V(165) - V_USER(315) = V(98) - V_USER(316) = V(196) - V_USER(317) = V(99) - V_USER(318) = V(100) - V_USER(319) = V(298) - V_USER(320) = V(322) - V_USER(321) = V(173) - V_USER(322) = V(187) - V_USER(323) = V(192) - V_USER(324) = V(209) - V_USER(325) = V(199) - V_USER(326) = V(116) - V_USER(327) = V(188) - V_USER(328) = V(155) - V_USER(329) = V(179) - V_USER(330) = V(166) - V_USER(331) = V(353) - V_USER(332) = V(344) - V_USER(337) = V(348) - V_USER(338) = V(134) + V_USER(295) = V(319) + V_USER(296) = V(143) + V_USER(297) = V(115) + V_USER(298) = V(199) + V_USER(299) = V(294) + V_USER(300) = V(234) + V_USER(301) = V(264) + V_USER(302) = V(126) + V_USER(303) = V(127) + V_USER(304) = V(253) + V_USER(305) = V(249) + V_USER(306) = V(293) + V_USER(307) = V(128) + V_USER(308) = V(116) + V_USER(309) = V(322) + V_USER(310) = V(255) + V_USER(311) = V(323) + V_USER(312) = V(99) + V_USER(313) = V(182) + V_USER(314) = V(168) + V_USER(315) = V(100) + V_USER(316) = V(200) + V_USER(317) = V(101) + V_USER(318) = V(102) + V_USER(319) = V(302) + V_USER(320) = V(325) + V_USER(321) = V(176) + V_USER(322) = V(191) + V_USER(323) = V(195) + V_USER(324) = V(213) + V_USER(325) = V(202) + V_USER(326) = V(117) + V_USER(327) = V(192) + V_USER(328) = V(158) + V_USER(329) = V(183) + V_USER(330) = V(169) + V_USER(331) = V(339) + V_USER(332) = V(346) + V_USER(337) = V(355) + V_USER(338) = V(146) V_USER(339) = V(29) V_USER(340) = V(30) V_USER(341) = V(31) - V_USER(342) = V(220) - V_USER(343) = V(58) - V_USER(344) = V(121) - V_USER(345) = V(200) - V_USER(346) = V(82) + V_USER(342) = V(223) + V_USER(343) = V(61) + V_USER(344) = V(124) + V_USER(345) = V(203) + V_USER(346) = V(85) V_USER(347) = V(22) - V_USER(348) = V(101) + V_USER(348) = V(103) V_USER(349) = V(27) V_USER(350) = V(32) V_USER(351) = V(33) - V_USER(352) = V(189) + V_USER(352) = V(34) + V_USER(353) = V(35) + V_USER(354) = V(36) + V_USER(355) = V(193) END SUBROUTINE Shuffle_kpp2user @@ -989,53 +995,53 @@ SUBROUTINE Get_OHreactivity ( CC, RR, OHreact ) ! OHreact - OH reactivity [s-1] REAL(kind=dp) :: OHreact - OHreact = RR(12)*CC(89) + RR(14)*CC(341) + 2*RR(18) + 2*RR(19) + RR(20)*CC(337) & - + RR(21)*CC(264) + RR(24)*CC(329) + RR(25)*CC(228) + RR(31)*CC(328) + RR(32)*CC(164) & - + RR(33)*CC(244) + RR(34)*CC(325) + RR(35)*CC(335) + RR(36)*CC(327) + RR(37)*CC(346) & - + RR(38)*CC(239) + RR(41)*CC(108) + RR(44)*CC(351) + RR(47)*CC(265) + RR(48)*CC(282) & - + RR(51)*CC(326) + RR(55)*CC(139) + RR(57)*CC(183) + RR(61)*CC(141) + RR(62)*CC(141) & - + RR(66)*CC(69) + RR(71)*CC(98) + RR(72)*CC(196) + RR(75)*CC(140) + RR(80)*CC(127) & - + RR(81)*CC(233) + RR(88)*CC(126) + RR(89)*CC(142) + RR(102)*CC(251) + RR(103)*CC(279) & - + RR(104)*CC(283) + RR(105)*CC(298) + RR(108)*CC(124) + RR(111)*CC(295) + RR(122)*CC(292) & - + RR(126)*CC(113) + RR(140)*CC(156) + RR(141)*CC(188) + RR(149)*CC(290) + RR(151)*CC(306) & - + RR(152)*CC(306) + RR(153)*CC(306) + RR(160)*CC(114) + RR(161)*CC(72) + RR(163)*CC(270) & - + RR(164)*CC(294) + RR(167)*CC(307) + RR(168)*CC(307) + RR(169)*CC(125) + RR(170)*CC(118) & - + RR(171)*CC(99) + RR(172)*CC(100) + RR(173)*CC(97) + RR(174)*CC(102) + RR(175)*CC(155) & - + RR(176)*CC(123) + RR(177)*CC(24) + RR(178)*CC(92) + RR(199)*CC(94) + RR(200)*CC(94) & - + RR(202)*CC(348) + RR(206)*CC(352) + RR(211)*CC(148) + RR(214)*CC(347) + RR(223)*CC(81) & - + RR(224)*CC(78) + RR(225)*CC(105) + RR(234)*CC(354) + RR(235)*CC(343) + RR(239)*CC(68) & - + RR(273)*CC(245) + RR(275)*CC(338) + RR(276)*CC(338) + RR(277)*CC(120) + RR(278)*CC(76) & - + RR(279)*CC(339) + RR(280)*CC(333) + RR(281)*CC(297) + RR(282)*CC(317) + RR(283)*CC(181) & - + RR(284)*CC(79) + RR(285)*CC(75) + RR(286)*CC(43) + RR(287)*CC(87) + RR(288)*CC(85) & - + RR(289)*CC(86) + RR(290)*CC(84) + RR(352)*CC(170) + RR(353)*CC(73) + RR(354)*CC(330) & - + RR(359)*CC(52) + RR(360)*CC(261) + RR(361)*CC(247) + RR(378)*CC(167) + RR(380)*CC(219) & - + RR(382)*CC(191) + RR(387)*CC(111) + RR(388)*CC(137) + RR(390)*CC(225) + RR(396)*CC(74) & - + RR(397)*CC(66) + RR(402)*CC(160) + RR(403)*CC(176) + RR(407)*CC(138) + RR(408)*CC(112) & - + RR(409)*CC(129) + RR(415)*CC(161) + RR(416)*CC(162) + RR(420)*CC(255) + RR(423)*CC(237) & - + RR(426)*CC(211) + RR(433)*CC(163) + RR(435)*CC(177) + RR(441)*CC(169) + RR(442)*CC(130) & - + RR(447)*CC(229) + RR(450)*CC(193) + RR(453)*CC(262) + RR(481)*CC(256) + RR(482)*CC(242) & - + RR(488)*CC(154) + RR(489)*CC(93) + RR(490)*CC(83) + RR(491)*CC(91) + RR(492)*CC(95) & - + RR(494)*CC(276) + RR(495)*CC(276) + RR(496)*CC(276) + RR(497)*CC(276) + RR(524)*CC(230) & - + RR(525)*CC(231) + RR(526)*CC(150) + RR(527)*CC(144) + RR(528)*CC(238) + RR(529)*CC(215) & - + RR(530)*CC(119) + RR(531)*CC(187) + RR(532)*CC(187) + RR(533)*CC(192) + RR(534)*CC(192) & - + RR(535)*CC(187) + RR(536)*CC(192) + RR(537)*CC(209) + RR(538)*CC(199) + RR(551)*CC(128) & - + RR(552)*CC(151) + RR(553)*CC(151) + RR(554)*CC(152) + RR(555)*CC(152) + RR(574)*CC(175) & - + RR(575)*CC(175) + RR(576)*CC(168) + RR(577)*CC(168) + RR(578)*CC(268) + RR(579)*CC(268) & - + RR(580)*CC(267) + RR(581)*CC(267) + RR(582)*CC(268) + RR(583)*CC(267) + RR(621)*CC(222) & - + RR(622)*CC(186) + RR(623)*CC(222) + RR(624)*CC(186) + RR(625)*CC(186) + RR(626)*CC(222) & - + RR(627)*CC(186) + RR(628)*CC(186) + RR(637)*CC(301) + RR(638)*CC(301) + RR(641)*CC(299) & - + RR(644)*CC(314) + RR(646)*CC(309) + RR(647)*CC(309) + RR(650)*CC(302) + RR(651)*CC(288) & - + RR(652)*CC(287) + RR(653)*CC(248) + RR(654)*CC(216) + RR(661)*CC(194) + RR(662)*CC(185) & - + RR(663)*CC(131) + RR(664)*CC(227) + RR(665)*CC(208) + RR(666)*CC(153) + RR(672)*CC(159) & - + RR(684)*CC(184) + RR(685)*CC(107) + RR(686)*CC(258) + RR(687)*CC(147) + RR(688)*CC(174) & - + RR(689)*CC(198) + RR(690)*CC(266) + RR(691)*CC(303) + RR(693)*CC(115) + RR(694)*CC(88) & - + RR(696)*CC(210) + RR(697)*CC(210) + RR(698)*CC(19) + RR(701)*CC(173) + RR(702)*CC(220) & - + RR(705)*CC(149) + RR(707)*CC(200) + RR(711)*CC(116) + RR(713)*CC(109) + RR(714)*CC(60) & - + RR(721)*CC(70) + RR(722)*CC(136) + RR(723)*CC(136) + RR(724)*CC(143) + RR(725)*CC(82) & - + RR(726)*CC(101) + RR(732)*CC(58) + RR(735)*CC(146) + RR(740)*CC(122) + RR(741)*CC(195) & - + RR(743)*CC(158) + RR(745)*CC(202) + RR(748)*CC(204) + RR(753)*CC(71) + RR(755)*CC(90) & - + RR(760)*CC(117) + RR(763)*CC(269) + RR(767)*CC(221) + RR(770)*CC(201) + RR(780)*CC(41) & - + RR(791)*CC(353) + RR(792)*CC(344) + OHreact = RR(12)*CC(93) + RR(14)*CC(356) + 2*RR(18) + 2*RR(19) + RR(20)*CC(341) & + + RR(21)*CC(267) + RR(24)*CC(335) + RR(25)*CC(232) + RR(31)*CC(334) + RR(32)*CC(167) & + + RR(33)*CC(247) + RR(34)*CC(329) + RR(35)*CC(345) + RR(36)*CC(333) + RR(37)*CC(338) & + + RR(38)*CC(240) + RR(41)*CC(110) + RR(44)*CC(348) + RR(47)*CC(268) + RR(48)*CC(285) & + + RR(51)*CC(330) + RR(55)*CC(143) + RR(57)*CC(187) + RR(61)*CC(142) + RR(62)*CC(142) & + + RR(66)*CC(72) + RR(71)*CC(100) + RR(72)*CC(200) + RR(75)*CC(140) + RR(80)*CC(130) & + + RR(81)*CC(229) + RR(88)*CC(129) + RR(89)*CC(144) + RR(102)*CC(255) + RR(103)*CC(283) & + + RR(104)*CC(286) + RR(105)*CC(302) + RR(108)*CC(127) + RR(111)*CC(297) + RR(122)*CC(295) & + + RR(126)*CC(113) + RR(140)*CC(154) + RR(141)*CC(192) + RR(149)*CC(293) + RR(151)*CC(309) & + + RR(152)*CC(309) + RR(153)*CC(309) + RR(160)*CC(115) + RR(161)*CC(74) + RR(163)*CC(274) & + + RR(164)*CC(298) + RR(167)*CC(311) + RR(168)*CC(311) + RR(169)*CC(128) + RR(170)*CC(121) & + + RR(171)*CC(101) + RR(172)*CC(102) + RR(173)*CC(99) + RR(174)*CC(104) + RR(175)*CC(158) & + + RR(176)*CC(126) + RR(177)*CC(24) + RR(178)*CC(95) + RR(199)*CC(87) + RR(200)*CC(87) & + + RR(202)*CC(355) + RR(206)*CC(354) + RR(211)*CC(153) + RR(214)*CC(347) + RR(223)*CC(82) & + + RR(224)*CC(79) + RR(225)*CC(108) + RR(234)*CC(357) + RR(235)*CC(351) + RR(239)*CC(71) & + + RR(273)*CC(248) + RR(275)*CC(344) + RR(276)*CC(344) + RR(277)*CC(123) + RR(278)*CC(78) & + + RR(279)*CC(340) + RR(280)*CC(332) + RR(281)*CC(301) + RR(282)*CC(321) + RR(283)*CC(184) & + + RR(284)*CC(80) + RR(285)*CC(84) + RR(286)*CC(46) + RR(287)*CC(91) + RR(288)*CC(89) & + + RR(289)*CC(90) + RR(290)*CC(88) + RR(352)*CC(172) + RR(353)*CC(75) + RR(354)*CC(287) & + + RR(359)*CC(55) + RR(360)*CC(265) + RR(361)*CC(249) + RR(378)*CC(170) + RR(380)*CC(222) & + + RR(382)*CC(194) + RR(387)*CC(111) + RR(388)*CC(139) + RR(390)*CC(227) + RR(396)*CC(76) & + + RR(397)*CC(69) + RR(402)*CC(163) + RR(403)*CC(179) + RR(407)*CC(141) + RR(408)*CC(112) & + + RR(409)*CC(132) + RR(415)*CC(164) + RR(416)*CC(165) + RR(420)*CC(256) + RR(423)*CC(241) & + + RR(426)*CC(212) + RR(433)*CC(166) + RR(435)*CC(180) + RR(441)*CC(171) + RR(442)*CC(134) & + + RR(447)*CC(234) + RR(450)*CC(196) + RR(453)*CC(263) + RR(481)*CC(260) + RR(482)*CC(246) & + + RR(488)*CC(156) + RR(489)*CC(96) + RR(490)*CC(86) + RR(491)*CC(94) + RR(492)*CC(97) & + + RR(494)*CC(279) + RR(495)*CC(279) + RR(496)*CC(279) + RR(497)*CC(279) + RR(524)*CC(233) & + + RR(525)*CC(231) + RR(526)*CC(150) + RR(527)*CC(151) + RR(528)*CC(242) + RR(529)*CC(218) & + + RR(530)*CC(122) + RR(531)*CC(191) + RR(532)*CC(191) + RR(533)*CC(195) + RR(534)*CC(195) & + + RR(535)*CC(191) + RR(536)*CC(195) + RR(537)*CC(213) + RR(538)*CC(202) + RR(551)*CC(131) & + + RR(552)*CC(157) + RR(553)*CC(157) + RR(554)*CC(159) + RR(555)*CC(159) + RR(574)*CC(175) & + + RR(575)*CC(175) + RR(576)*CC(177) + RR(577)*CC(177) + RR(578)*CC(271) + RR(579)*CC(271) & + + RR(580)*CC(270) + RR(581)*CC(270) + RR(582)*CC(271) + RR(583)*CC(270) + RR(621)*CC(225) & + + RR(622)*CC(188) + RR(623)*CC(225) + RR(624)*CC(188) + RR(625)*CC(188) + RR(626)*CC(225) & + + RR(627)*CC(188) + RR(628)*CC(188) + RR(637)*CC(305) + RR(638)*CC(305) + RR(641)*CC(303) & + + RR(644)*CC(318) + RR(646)*CC(313) + RR(647)*CC(313) + RR(650)*CC(306) + RR(651)*CC(291) & + + RR(652)*CC(290) + RR(653)*CC(251) + RR(654)*CC(220) + RR(661)*CC(197) + RR(662)*CC(190) & + + RR(663)*CC(135) + RR(664)*CC(230) + RR(665)*CC(211) + RR(666)*CC(155) + RR(672)*CC(161) & + + RR(684)*CC(189) + RR(685)*CC(109) + RR(686)*CC(259) + RR(687)*CC(149) + RR(688)*CC(178) & + + RR(689)*CC(198) + RR(690)*CC(269) + RR(691)*CC(307) + RR(693)*CC(116) + RR(694)*CC(92) & + + RR(696)*CC(214) + RR(697)*CC(214) + RR(698)*CC(19) + RR(701)*CC(176) + RR(702)*CC(223) & + + RR(705)*CC(148) + RR(707)*CC(203) + RR(711)*CC(117) + RR(713)*CC(120) + RR(714)*CC(63) & + + RR(721)*CC(73) + RR(722)*CC(138) + RR(723)*CC(138) + RR(724)*CC(145) + RR(725)*CC(85) & + + RR(726)*CC(103) + RR(732)*CC(61) + RR(735)*CC(152) + RR(740)*CC(125) + RR(741)*CC(199) & + + RR(743)*CC(162) + RR(745)*CC(205) + RR(748)*CC(207) + RR(753)*CC(77) + RR(755)*CC(105) & + + RR(760)*CC(118) + RR(763)*CC(272) + RR(767)*CC(224) + RR(770)*CC(204) + RR(780)*CC(44) & + + RR(791)*CC(339) + RR(792)*CC(346) + RR(888)*CC(93) END SUBROUTINE Get_OHreactivity ! End of Get_OHreactivity subroutine diff --git a/run/GCClassic/HISTORY.rc.templates/HISTORY.rc.aerosol b/run/GCClassic/HISTORY.rc.templates/HISTORY.rc.aerosol index 2576194db..0c28992fe 100644 --- a/run/GCClassic/HISTORY.rc.templates/HISTORY.rc.aerosol +++ b/run/GCClassic/HISTORY.rc.templates/HISTORY.rc.aerosol @@ -341,18 +341,18 @@ COLLECTIONS: 'Restart', StateChm.frequency: ${RUNDIR_HIST_TIME_AVG_FREQ} StateChm.duration: ${RUNDIR_HIST_TIME_AVG_DUR} StateChm.mode: 'time-averaged' - StateChm.fields: 'Chem_IsorropAeropHAccum ', - 'Chem_IsorropAeropHCoarse ', - 'Chem_IsorropHplusAccum ', - 'Chem_IsorropHplusCoarse ', - 'Chem_IsorropAeroH2OAccum ', - 'Chem_IsorropAeroH2OCoarse ', - 'Chem_IsorropSulfate ', - 'Chem_IsorropNitrateAccum ', - 'Chem_IsorropNitrateCoarse ', - 'Chem_IsorropChlorideAccum ', - 'Chem_IsorropChlorideCoarse ', - 'Chem_IsorropBisulfate ', + StateChm.fields: 'Chem_AteAeropHAccum ', + 'Chem_AteAeropHCoarse ', + 'Chem_AteHplusAccum ', + 'Chem_AteHplusCoarse ', + 'Chem_AteAeroH2OAccum ', + 'Chem_AteAeroH2OCoarse ', + 'Chem_AteSulfate ', + 'Chem_AteNitrateAccum ', + 'Chem_AteNitrateCoarse ', + 'Chem_AteChlorideAccum ', + 'Chem_AteChlorideCoarse ', + 'Chem_AteBisulfate ', 'Chem_pHCloud ', 'Chem_isCloud ', 'Chem_SSAlkAccumMode ', diff --git a/run/GCClassic/HISTORY.rc.templates/HISTORY.rc.fullchem b/run/GCClassic/HISTORY.rc.templates/HISTORY.rc.fullchem index d09fc02d2..51a87d474 100644 --- a/run/GCClassic/HISTORY.rc.templates/HISTORY.rc.fullchem +++ b/run/GCClassic/HISTORY.rc.templates/HISTORY.rc.fullchem @@ -674,19 +674,21 @@ COLLECTIONS: 'Restart', StateChm.frequency: ${RUNDIR_HIST_TIME_AVG_FREQ} StateChm.duration: ${RUNDIR_HIST_TIME_AVG_DUR} StateChm.mode: 'time-averaged' - StateChm.fields: 'Chem_IsorropAeropHAccum ', - 'Chem_IsorropAeropHCoarse ', - 'Chem_IsorropHplusAccum ', - 'Chem_IsorropHplusCoarse ', - 'Chem_IsorropAeroH2OAccum ', - 'Chem_IsorropAeroH2OCoarse ', - 'Chem_IsorropSulfate ', - 'Chem_IsorropNitrateAccum ', - 'Chem_IsorropNitrateCoarse ', - 'Chem_IsorropChlorideAccum ', - 'Chem_IsorropChlorideCoarse ', - 'Chem_IsorropBisulfate ', + StateChm.fields: 'Chem_AteAeropHAccum ', + 'Chem_AteAeropHCoarse ', + 'Chem_AteHplusAccum ', + 'Chem_AteHplusCoarse ', + 'Chem_AteAeroH2OAccum ', + 'Chem_AteAeroH2OCoarse ', + 'Chem_AteSulfate ', + 'Chem_AteNitrateAccum ', + 'Chem_AteNitrateCoarse ', + 'Chem_AteChlorideAccum ', + 'Chem_AteChlorideCoarse ', + 'Chem_AteBisulfate ', + 'Chem_AteIONIC ', 'Chem_pHCloud ', + 'Chem_HPlusCloud ', 'Chem_isCloud ', 'Chem_SSAlkAccumMode ', 'Chem_SSAlkCoarseMode ', diff --git a/run/GCHP/HISTORY.rc.templates/HISTORY.rc.fullchem b/run/GCHP/HISTORY.rc.templates/HISTORY.rc.fullchem index 8d2fc0a5b..40328462f 100644 --- a/run/GCHP/HISTORY.rc.templates/HISTORY.rc.fullchem +++ b/run/GCHP/HISTORY.rc.templates/HISTORY.rc.fullchem @@ -2156,18 +2156,19 @@ COLLECTIONS: @#'DefaultCollection', StateChm.frequency: 010000 StateChm.duration: 010000 StateChm.mode: 'time-averaged' - StateChm.fields: 'Chem_IsorropAeropHAccum ', 'GCHPchem', - 'Chem_IsorropAeropHCoarse ', 'GCHPchem', - 'Chem_IsorropHplusAccum ', 'GCHPchem', - 'Chem_IsorropHplusCoarse ', 'GCHPchem', - 'Chem_IsorropAeroH2OAccum ', 'GCHPchem', - 'Chem_IsorropAeroH2OCoarse ', 'GCHPchem', - 'Chem_IsorropSulfate ', 'GCHPchem', - 'Chem_IsorropNitrateAccum ', 'GCHPchem', - 'Chem_IsorropNitrateCoarse ', 'GCHPchem', - 'Chem_IsorropChlorideAccum ', 'GCHPchem', - 'Chem_IsorropChlorideCoarse ', 'GCHPchem', - 'Chem_IsorropBisulfate ', 'GCHPchem', + StateChm.fields: 'Chem_AteAeropHAccum ', 'GCHPchem', + 'Chem_AteAeropHCoarse ', 'GCHPchem', + 'Chem_AteHplusAccum ', 'GCHPchem', + 'Chem_AteHplusCoarse ', 'GCHPchem', + 'Chem_AteAeroH2OAccum ', 'GCHPchem', + 'Chem_AteAeroH2OCoarse ', 'GCHPchem', + 'Chem_AteSulfate ', 'GCHPchem', + 'Chem_AteNitrateAccum ', 'GCHPchem', + 'Chem_AteNitrateCoarse ', 'GCHPchem', + 'Chem_AteChlorideAccum ', 'GCHPchem', + 'Chem_AteChlorideCoarse ', 'GCHPchem', + 'Chem_AteBisulfate ', 'GCHPchem', + 'Chem_AteIONIC ', 'GCHPchem', 'Chem_pHCloud ', 'GCHPchem', 'Chem_isCloud ', 'GCHPchem', 'Chem_SSAlkAccumMode ', 'GCHPchem', diff --git a/run/shared/species_database.yml b/run/shared/species_database.yml index 0a3490e41..423a239cf 100644 --- a/run/shared/species_database.yml +++ b/run/shared/species_database.yml @@ -4414,7 +4414,7 @@ PSO4: MW_g: 96.06 KPP_AbsTol: 1.0e+25 PSO4AQ: - FullName: SO4 from cloud chemistry + FullName: Prod SO4 from cloud chemistry Is_Gas: true MW_g: 96.06 PYAC: